只是我代码的一个功能:
(defun equalprev (x y)
(cond ((or (atom x) (atom y))
(if (not (null isLoop))
t
((setq list1 (append list1 (list x)))
(setq list2 (append list2 (list y)))
(eql x y))))
((equalprev (car x) (car y))
(equalprev (cdr x) (cdr y)))))
调
*** - SYSTEM::%EXPAND-FORM: (SETQ LIST1 (APPEND LIST1 (LIST X))) should be a `lambda`
expression
The following restarts are available:
ABORT :R1 Abort main loop
感谢任何帮助