我意识到我的代码的某个部分由看起来相似的方法组组成(就像我有多个三重奏:一个由程序员的其他两个函数调用的辅助函数)。我正在尝试编写一个宏来为我定义这三个函数,以便我所需要做的就是调用该宏。但我的尝试导致 defun 和函数调用将引用字符串而不是生成的名称作为新符号。我究竟做错了什么?
示例(错误代码)
(defmacro def-trio (base-name)
(let
((helper-name (format nil "helper-~a" base-name))
(method-1 (format nil "~a-1" base-name))
(method-2 (format nil "~a-2" base-name)))
`(progn
(defun ,helper-name () 'helper-called)
(defun ,method-1 () (,helper-name) '1-called)
(defun ,method-2 () (,helper-name) '2-called))))
现在发生以下情况:
(def-trio my-trio)
==>
(PROGN (DEFUN "helper-MY-TRIO" () 'HELPER-CALLED)
(DEFUN "MY-TRIO-1" () ("helper-MY-TRIO") '1-CALLED)
(DEFUN "MY-TRIO-2" () ("helper-MY-TRIO") '2-CALLED))
另外,在我学习如何让它工作之后,如果我让这个宏定义其他宏而不是其他函数,是否会有任何额外的问题?我读如何在 Common Lisp 中编写宏定义宏 https://stackoverflow.com/questions/3121145/how-do-i-write-a-macro-defining-macro-in-common-lisp但我认为我的问题有点不同,因为我问的是以编程方式生成的符号/名称。不过,我愿意接受纠正:) 谢谢!
尝试这个:
(defmacro def-trio (base-name) ; changes:
(let* ; 3.
((package (symbol-package base-name)) ; 2.
(helper-name (intern (format nil "HELPER-~a" base-name) package)) ; 1. 4.
(method-1 (intern (format nil "~a-1" base-name) package)) ; 1.
(method-2 (intern (format nil "~a-2" base-name) package)) ) ; 1.
`(progn
(defun ,helper-name () 'helper-called)
(defun ,method-1 () (,helper-name) '1-called)
(defun ,method-2 () (,helper-name) '2-called) )))
对您的原始定义进行了以下更改 - 第一个更改是关键的更改:
- 使用以下命令将每个计算符号名称插入到与基本名称相同的包中
(intern ... package)
.
- 引入了变量
package
与所提供的包装绑定在一起base-name
symbol.
- Changed
let
to let*
允许新引入的变量package
在后续变量中引用。
- 将辅助方法的前缀更改为大写,以匹配普通 Lisp 符号的约定。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)