1 (defun my-cons (x y) 2 (lambda (m) 3 (cond ((= m 0) x) 4 ((= m 1) y) 5 (t (error "Argument not 0 or 1 -- CONS ~S~%" m))))) 6 (defun my-car (z) 7 (funcall z 0)) 8 (defun my-cdr (z) 9 (funcall z 1)) 10 11 (defun