lisp - multirember 函数中的 max-lisp-eval-depth

Question

在《the little schemer》第四版一书中，第 8 章有函数“multirember & co”，我是在“emacs lisp”语言中做的，导致以下问题： Emacs: nesting beyond `max-lisp-评估深度'

(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'

我的代码有什么问题？

提前致谢