lisp - 这个常见的 lisp 代码有什么问题？

Question

基本上我尝试评估下面的函数，但不断收到以下错误:

 WARNING :
MAINDIA is neither declared nor bound,
it will be treated as if it were declared SPECIAL.
WARNING :
SOUT is neither declared nor bound,
it will be treated as if it were declared SPECIAL.
WARNING :
NORT is neither declared nor bound,
it will be treated as if it were declared SPECIAL.
*** - NIL: variable MAINDIA has no value
The following restarts are available:
ABORT          :R1      Abort debug loop
ABORT          :R2      Abort debug loop
ABORT          :R3      Abort debug loop
ABORT          :R4      Abort debug loop
ABORT          :R5      Abort debug loop
ABORT          :R6      Abort debug loop
ABORT          :R7      Abort debug loop
ABORT          :R8      Abort main loop

当我尝试从 Internet 复制并粘贴一个示例时，它起作用了，但是当我手动将它输入到解释器中时，它不起作用。此外，我正在从 emacs 运行 CLISP。

代码:

(defun diagonal-mast (sq)
  (let* ((maindia #x8040201008040201)
         (diag (- (* 8 (logand sq 7))
                  (logand sq 56)))
         (nort (logand (- diag)
                       (ash diag -31)))
         (sout (logand diag (ash (- diag) -31))))
    (ash (ash maindia (- sout))
         nort)))

注意:我使用的是 CLISP 2.48

Answer 1

很可能，您的问题出在 emacs 上，而不是代码上，因为它在评论者和我的 lisp 中运行良好。我不再使用 emacs，因此以下解决方案可能已被弃用或完全错误，但是如果您通过 emacs --debug-init 启动 Emacs 并收到错误消息，则说明您遇到了一些设置问题而不是代码问题.否则，问题似乎是您的 lisp 实现，而不是您的 lisp 编写。如果它以某种方式是您的 lisp 实现，只需重建它应该没问题。如果这是你的设置，我很确定slimedev有一些非常详尽的错误和修复列表。好打猎。