通用lisp:宏如何使用编程生成的名称定义其他方法/宏？

Question

我意识到，我的代码的某一部分由一组看起来类似的方法组成(就像我有多个三元组:一个由另外两个函数调用给程序员的助手函数)。我正在尝试编写一个宏，它将为我定义这三个函数，所以我所需要做的就是调用这个宏。但是我的尝试会导致defuns和函数调用，它们引用字符串而不是生成的名称作为新的符号。我做错了什么？

示例(不正确的代码)

(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

使用 将生成的函数名称字符串转换为符号.。