特殊的阅读器宏，如 [ ]、{ }

Question

我想写一些特殊的阅读器宏：

[hello "world"] ; <=> (funcall #'|hello| "world")
{hello "my" ("world")} ; <=> (apply #'|hello| "my" ("world"))

这可以实现吗？你会怎么做？

Answer 1

是的，你要的词是readtable（Common Lisp HyperSpec chapter 23和Common Lisp HyperSpec chapter 2讨论相关概念）。

你需要先定义一个函数来读取你感兴趣的数据，然后以你想要的形式返回它。

(defun read-case-preserve-funcall-or-apply (stream char)
  (let ((preserved-readtable-case (readtable-case *readtable*)))
    (setf (readtable-case *readtable* :preserve))
    (let ((tmp (read-delimited-list (if (char= char #\[) #\] #\}) stream t)))
      (let ((fun (car tmp))
        (args (cdr tmp)))
    (cond ((char= char #\[) `(funcall (function ,fun) ,@args))
          ((char= char #\{) `(apply (function ,fun) ,@args)))))))

之后，您需要将其连接到 readtable 并将一些语法标记从 ( 和 ) 复制到新的分隔符。