lisp - 为什么 Setq 工作但不让？

Question

我遵循我的书“Lisp 之地”中的语法，并且 let 版本仅在传递 *string* 时返回 nil。而“setq”版本返回 string 的反转版本。

(defparameter *string* "a b c")
(defun reverse-string (string)
    (let (reversed (string))))

(defun setq-reverse-string (string)
    (setq reversed (reverse string)))

Answer 1

LET 的语法是:

(LET ((var1 val1)
      (var2 val2)
      ...)
  body)

在 (varN valN) 的位置，您可以只放置 varN，它是 (varN nil) 的简写。您也可以省略 valN，在这种情况下它默认为 nil。

所以你的代码等同于:

(defun reverse-string (string)
  (let ((reversed nil)
        (string nil))))

您缺少一定程度的括号来执行您想要的操作:

(defun reverse-string (string)
  (let ((reversed (string)))))

您还缺少对 reverse 的调用，并返回变量

(defun reverse-string (string)
  (let ((reversed (reverse string)))
    reversed))