if-statement - LISP 中的错误 - SYSTEM::%EXPAND-FORM:无效形式 (40)

Question

我正在开发一个 Lisp 程序，该程序包含读取框尺寸的代码，然后将它们从最短到最长的长度排序(并将每个新长度设置为新变量)。

当我尝试将我的文件加载到解释器中时，出现以下错误:

 - SYSTEM::%EXPAND-FORM: invalid form (40)

假设这个错误源于我代码的第 40 行，这里是第 34-45 行:

(defun get-box ()
    (let ((d1) (d2) (d3))
        (setf d1 (read))
        (setf d2 (read))
        (setf d3 (read))
        (list d1 d2 d3))
        (if (= -1 d1)
            (exit)
            (setf new-d1 (first (sort (d1 d2 d3)) #'<))
            (setf new-d2 (second (sort (d1 d2 d3)) #'<))
            (setf new-d3 (third (sort (d1 d2 d3)) #'<))
            (next-part-of-program (new-d1, new-d2, new-d3)))

此代码段中的 if 语句在句法或语义上是否存在固有错误？ EXPAND-FORM 错误在 Lisp 中来自/意味着什么？

非常感谢任何帮助。谢谢!

Answer 1

当您在 "SYS" 包(也称为 "SI" 和 "SYSTEM" 在不同的包中看到提及符号的消息时实现)，特别是当符号是内部的(以两个冒号为前缀)，而且它们的名称包含非字母数字字符(例如，% 或 $)时，机会此消息是否特定于实现，您可以通过提及您正在使用的实现来帮助我们帮助您。

也就是说，我认为您正在使用 CLISP，在这种情况下，此 40 不会在您的文件中命名一行。

您在文件中的不适当位置有一个文字 40，或者您有一个值为 40 的变量，您在宏扩展期间用错位的逗号对其求值.