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