(xdef 'car (lambda (x) (cond ((pair? x) (car x)) ((eqv? x 'nil) 'nil) ((eqv? x '()) 'nil) (#t (err "Can't take car of" x)))))
From ac.scm ©
ac.scm