我想写一些特殊的阅读器宏:
[hello "world"] ; <=> (funcall #'|hello| "world")
{hello "my" ("world")} ; <=> (apply #'|hello| "my" ("world"))
这能实现吗?你会怎么做?
最佳答案
是的,你要的词是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)))))))
之后,您需要将它连接到可读表并将一些语法标记从 (
和 )
复制到您的新分隔符。
关于lisp - 特殊的阅读器宏,如 [ ]、{ },我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/17062953/