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