通用 Lisp 未定义调度字符

Question

我目前正在阅读Paul Graham的"On Lisp"一书中关于阅读时宏的章节。

我遇到的问题如下。当我运行他的一个例子时：

(set-dispatch-macro-character ## #?
  #’(lambda (stream char1 char2)
    ‘#’(lambda (&rest ,(gensym))
       ,(read stream t nil t))))

我收到以下错误：

No dispatch function defined for #’

为什么会这样？可能是因为我在 REPL 运行它吗？人们可以做些什么来修复它？

Answer 1

您从中复制代码的 PDF 使用的标点符号超出了您应该在此处使用的基本 ASCII 字符范围：

CL-USER> (char-name #’)
"RIGHT_SINGLE_QUOTATION_MARK"

通常的引号符号应改为使用撇号字符：

CL-USER> (char-name #')
"APOSTROPHE"

反引号也是如此：

CL-USER> (char-name #‘)
"LEFT_SINGLE_QUOTATION_MARK"

你应该写：

(set-dispatch-macro-character ## #?
                              #'(lambda (stream char1 char2)
                                `#'(lambda (&rest ,(gensym))
                                     ,(read stream t nil t))))

lambda之前不需要#'，因为Common Lisp也定义了一个名为lambda的宏，它可以扩展到(function (lambda ...))。

您可以按如下方式测试新的读取宏：

CL-USER> #?10
#<FUNCTION (LAMBDA (&REST #:G617)) {1001C541FB}>
CL-USER> (funcall *)
10

使用

SBCL 时，我会收到有关未使用变量的警告。发生这种情况是因为代码在匿名函数中声明变量，但从不使用它们。这不是一个严重的问题，但一般来说，最好声明忽略哪些变量：

(set-dispatch-macro-character
 ## #?
 (lambda (stream &rest chars)
   (declare (ignore chars))
   (let ((rest (gensym)))
     `(lambda (&rest ,rest)
        (declare (ignore ,rest))
        ,(read stream t nil t)))))