(SETF L (FLATTEN L)) 应该是 lambda 表达式错误

如何解决(SETF L (FLATTEN L)) 应该是 lambda 表达式错误

所以我正在尝试编写一个通用的 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)))))))

解决方法

括号太多：

((setf ... ...) ...)

当表单在正常评估上下文中看起来像这样时（例如，不是绑定）：

(F X)

如果 F 不是宏，那么 F 应该是一个函数，要么是命名现有函数的符号，要么是 lambda 表达式 (lambda (y) ...)。此处，F 不是 lambda 表达式，因为它是 (setf ... ...)。

还请注意，由于您递归调用该函数，因此您将继续在列表的每个子列表上调用 flatten。您可能希望将函数一分为二，一个删除扁平列表中的重复项，另一个调用 (flatten L) 上的第一个。例如，您可以将其重写如下（请注意符号是如何用破折号（不是大写字母）分隔的，以及代码的格式）：

(defun eliminate-duplicates (list)
  (when list
    (destructuring-bind (head . rest) list
      (if (member head rest)
          (eliminate-duplicates rest)
          (cons head (eliminate-duplicates rest))))))

(defun flatten-eliminate-duplicates (list)
  (eliminate-duplicates (flatten list)))

还要注意，在 if 的两个分支中，您递归调用 eliminate-duplicates 函数。您也可以在 if 之外计算它，并将其绑定到某个变量。结果列表要么具有相同数量的元素，要么更少。在该列表上调用 member 可能会更有效，因为它可能更短。

(defun eliminate-duplicates (list)
  (when list
    (let ((rest (eliminate-duplicates (rest list))))
      (if (member head rest) rest (cons head rest)))))

（您也可以使用 hash-table，但这可能超出您的需要）