如何在其他宏的范围内扩展宏(尝试调试宏)

Question

这是我可以做的最简单的例子:

(defmacro printer [& forms]
  `(println ~@forms))

(defmacro adder [s]
  `(inc ~s))

它们可以按预期使用:

(printer "haha")
=> "haha"

(adder 1)
=> 2

我可以macroexpand让他们看看宏做了什么:

(macroexpand '(printer 1))
=> (clojure.core/println 1)

(macroexpand '(adder 1))
=> (clojure.core/inc 1)

但是当它们嵌套时我得不到我想要的东西:

(macroexpand '(printer (adder 1)))
=> (clojure.core.println (adder 1))

我希望得到

=> (clojure.core.println (clojure.core/inc 1))

有没有办法扩展嵌套宏？这对于调试特定的bug有很大帮助.

Answer 1

(use 'clojure.walk)
(macroexpand-all '(printer (adder 1)))
;(clojure.core/println (clojure.core/inc 1))