如何优雅地用不同参数系统调用Common Lisp外部宏？

你的核心问题在于宏是编译时展开的结构，无法像函数一样直接通过funcall调用，所以用lambda包装宏调用的方式会显得冗余。更地道的做法是用宏来生成所有需要的测试代码，完全在编译时完成展开，避免运行时的额外开销和复杂的lambda嵌套。

方案1：基于测试函数的批量生成 #

如果你的测试逻辑封装成函数，可以定义一个generate-tests宏，直接根据宏名、测试函数和参数列表，生成所有对应的宏调用：

(defmacro macro1 (body) 
  `(format t "Running macro1 with body: ~s~%" ',body)) ; 模拟fiveam的finishes
(defmacro macro2 (body) 
  `(format t "Running macro2 with body: ~s~%" ',body)) ; 模拟fiveam的signals

(defmacro generate-tests (&rest test-specs)
  `(progn
     ,@(loop for (macro func args) in test-specs
             append (loop for arg in args
                          collect `(,macro (funcall ,func ,arg))))))

;; 使用示例
(generate-tests
  (macro1 (lambda (val) (format t "~a" val)) (1 2 3 4 5))
  (macro2 (lambda (val) (format t "~a" val)) (-4 -5 -6 -7 -8 -9)))

这个宏会展开成一系列直接的宏调用，比如：

(progn
  (macro1 (funcall (lambda (val) (format t "~a" val)) 1))
  (macro1 (funcall (lambda (val) (format t "~a" val)) 2))
  ;; ... 其他参数对应的macro1调用
  (macro2 (funcall (lambda (val) (format t "~a" val)) -4))
  ;; ... 其他参数对应的macro2调用
)

如果测试逻辑是命名函数，用法更简洁：

(defun my-test-func (val) (format t "~a" val))

(generate-tests
  (macro1 #'my-test-func (1 2 3 4 5))
  (macro2 #'my-test-func (-4 -5 -6 -7 -8 -9)))

方案2：基于表达式模板的批量生成 #

如果你的测试逻辑是仅参数不同的相似表达式，可以直接用模板替换的方式，不需要额外定义lambda函数：

(defmacro generate-tests-with-template (&rest test-specs)
  `(progn
     ,@(loop for (macro template args) in test-specs
             append (loop for arg in args
                          collect `(,macro ,(subst arg 'val template))))))

;; 使用示例，直接用`val`作为参数占位符
(generate-tests-with-template
  (macro1 (format t "~a" val) (1 2 3 4 5))
  (macro2 (format t "~a" val) (-4 -5 -6 -7 -8 -9)))

这个宏会将模板中的val替换为对应的参数，展开后就是：

(progn
  (macro1 (format t "~a" 1))
  (macro1 (format t "~a" 2))
  ;; ...
  (macro2 (format t "~a" -4))
  ;; ...
)

为什么这个方案更优雅？ #

• 完全利用Common Lisp的宏展开机制，在编译时生成所有测试代码，没有运行时的lambda和funcall开销。
• 代码结构更直观，直接描述“用XX宏，对这些参数执行XX逻辑”，符合声明式的风格。
• 避免了将宏包装为函数的冗余操作，贴合宏的设计初衷。

内容的提问来源于stack exchange，提问作者DPA