lisp - 超过 1 行代码的宏

Question

正在学习Common Lisp的宏系统，突然发现一个问题

(defun hello () (format t "hello ~%")) 
(defun world () (format t "world ~%"))
(defmacro call-2-func (func1 func2)
  `(,func1)
  `(,func2))

(macroexpand-1 '(call-2-func hello world)) 
(WORLD) 
T

嗯。为什么我不能只从一个宏生成 2 个 LoC？我该如何解决？ (progn 将无法在更复杂的情况下工作...)

Answer 1

您的宏只需返回一个 形式即可调用这两个函数。
相反，您生成了两种形式(并且只使用了最后一种。)

尝试:

(defmacro call-2-func (func1 func2)
  `(progn (,func1) (,func2)))

或者如果您不想仅限于 2 个功能:

(defmacro call-funcs (&rest funcs)
  `(progn ,@(mapcar #'list funcs)))