多重函数中的Max-lisp-eval-depth

Question

在书中，小图表＆＃34;第四版，在第8章中有功能＆＃34; multirember＆amp; co＆＃34;，我是在＆＃34; emacs lisp＆＃34;语言，导致以下问题： Emacs：嵌套超过`max-lisp-eval-depth＆＃39;

(defun multirember&co (a lat col)
    (cond ((null lat) (funcall col '() '()))
          ((eq (car lat) a) (multirember&co a
                                              (cdr lat)
                                              (lambda (newlat seen)
                                                  (funcall col newlat
                                                               (cons (car lat) seen)))))
    (t (multirember&co a
                       (cdr lat)
                       (lambda (newlat seen)
                           (funcall col (cons (car lat) newlat)
                                         seen))))))



(defun a-friend (x y)
  (null y))

(multirember&co 'tuna '(tuna) 'a-friend) 

Emacs：嵌套超过了max-lisp-eval-depth＆＃39;

我的代码出了什么问题？

提前致谢