所以我试图编写一个通用的 lisp 函数,它接受一个列表,它使用一个预定义的函数函数 flatten (我已经测试过了)并返回一个没有重复的扁平列表。但是我一直收到这个错误:%EXPAND-FORM: (SETF L (FLATTEN L)) 应该是一个 lambda 表达式,我不知道如何修复它。
(defun eliminateDuplicates (L)
((setf L (flatten L))
(cond ((null L) L)
((member (car L) (cdr L))
(eliminateDuplicates (cdr L)))
(t (cons (car L) (eliminateDuplicates (cdr L)))))))
Run Code Online (Sandbox Code Playgroud)