小编nil*_*nil的帖子

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

另外,在我学会了如何使这个工作后,如果我有这个宏定义其他宏而不是其他函数,还有任何额外的问题吗？我读过如何在常见的lisp中编写一个宏定义宏,但我认为我的问题有点不同,因为我问的是编程生成的符号/名称.我很乐意接受纠正:)谢谢!

感谢以前关于常见的lisp的答案:宏如何用编程生成的名称定义其他方法/宏？我有一个定义辅助函数的宏(实际上我有一个macrolet,我最喜欢的lisp-newbie-hammer).但是在这个宏中,有一些东西可以决定辅助函数是否需要接受特定的参数.所以我有一个带有几乎相同分支的if语句 - 在一个分支中,我将var放在生成函数的lambda列表中.在另一个分支中,我省略了var.(我正在为非程序员编写DSL,所以我不希望他们看到类似&可选的东西)

有没有办法避免在这里有基本重复的代码？如果我将var设置为"",那么""会出现在我生成的defuns的lambda列表中.如果我将var设置为nil,则会出现NIL.

是否有一个我可以使用的值,var完全没有任何评价,眨眼存在？(哲学上的兴趣,不应该有吗？)