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

Question

所以我正在尝试编写一个常见的 lisp 函数，该函数使用一个预定义的函数 function flatten（我已经测试过所有这些都有效）和 returns 一个没有重复的扁平化列表。但是我不断收到此错误：%EXPAND-FORM: (SETF L (FLATTEN L)) should be a lambda expression 而且我不知道如何解决它。

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

Answer 1

你的括号太多了：

((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 之外计算它，并将它绑定到某个变量。结果列表具有相同数量的元素，或者 less。在该列表上调用 member 可能会更有效一些，因为它可能更短。

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

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

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

(SETF L (FLATTEN L)) should be a lambda expression error

lisp

lambda

common-lisp