macros - 普通口齿不清 : how can a macro define other methods/macros with programmatically generated names?

Question

我意识到我的代码的某个部分由看起来相似的方法组组成(就像我有多个三重奏:一个辅助函数被另外两个为程序员准备的函数调用)。我正在尝试编写一个宏来为我定义这三个函数，这样我需要做的就是调用宏。但我的尝试导致 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))

此外，在我了解如何使它工作之后，如果我让这个宏定义其他宏而不是其他函数，是否还有任何额外的陷阱？我读了How do I write a macro-defining macro in common lisp但我认为我的问题有点不同，因为我在询问以编程方式生成的符号/名称。不过，我愿意接受纠正 :) 谢谢!

Answer 1

试试这个:

(defmacro def-trio (base-name)                                         ; changes:
  (let<strong>*</strong>                                                                ; 3.
    (<strong>(package (symbol-package base-name))</strong>                              ; 2.
     (helper-name <strong>(intern</strong> (format nil "<strong>HELPER</strong>-~a" base-name)<strong> package)</strong>) ; 1. 4.
     (method-1 <strong>(intern</strong> (format nil "~a-1" base-name) <strong>package</strong>))         ; 1.
     (method-2 <strong>(intern</strong> (format nil "~a-2" base-name) <strong>package</strong>)) )       ; 1.
    `(progn 
          (defun ,helper-name () 'helper-called)
          (defun ,method-1 () (,helper-name) '1-called)
          (defun ,method-2 () (,helper-name) '2-called) )))

对您的原始定义进行了以下更改——第一个更改是关键的更改:

1. 使用 (intern ... package) 将每个计算符号名称嵌入到与基本名称相同的包中。
2. 引入变量 package，它绑定(bind)到提供的 base-name 符号的包。
3. 将 let 更改为 let* 以允许在后续变量中引用新引入的变量 package。
4. 将辅助方法的前缀更改为大写，以匹配普通 Lisp 符号的约定。