Should be a lambda expression
Posted: Sat May 26, 2012 3:01 pm
Here is the function causing problems:
ERROR:
*** - SYSTEM::%EXPAND-FORM: (SETQ LIST1 APPEND LIST1 LIST X) should be a lambda expression
The following restarts are available:
ABORT :R1 Abort main loop
Code: Select all
(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))
)
)
)
ERROR:
*** - SYSTEM::%EXPAND-FORM: (SETQ LIST1 APPEND LIST1 LIST X) should be a lambda expression
The following restarts are available:
ABORT :R1 Abort main loop