如何编写将重复命令的宏？

Question

我正在尝试编写一个宏,让我简化一个表达式中多个顶级变量的定义.

这个想法是让它的工作方式类似于let:

(defparameters ((*foo* 42)
                (*bar* 31)
                (*baz* 99)))

我尝试使用以下内容,但似乎没有做任何事情.

(defmacro defparameters (exprs)
  (dolist (expr exprs)
    (let ((name (car  expr))
          (exp  (cadr expr)))
      `(defparameter ,name ,exp))))

我尝试过使用macroexpand它但似乎根本没有扩展.

我究竟做错了什么？我该如何解决？

Answer 1

a的返回值dolist由其可选的第三个参数给出,因此您的宏返回默认值nil.

宏只返回一个表单,所以当你有多个东西时,比如你的系列defparameters,你需要以某种形式将它们全部包装并返回.progn这里适合.例如:

(defmacro defparameters (exprs)
  `(progn ,@(loop for (name exp) in exprs
                  collect `(defparameter ,name ,exp))))