宏扩展没有扩展。

Question

所以我试图写一个宏来测试一个数字是正的、负的还是零的，测试之后会对这三种可能性中的每一种做一个特定的动作。我的密码是..。

(defmacro numif [e p z n] `(if (pos? ~e) ~p (if (zero? ~e) ~z (if (neg? ~e) ~n))))

当我试图扩展它时，我会收到答案，而不是答案的扩展版本，就像这样.

user=> (macroexpand (numif 2 "pos" "zero" "neg"))
"pos"

我知道这可能与我的安置有关，但我似乎不知道地点和原因。如果有人能向我解释为什么我的发言没有得到充分的扩展，那就太棒了。

Answer 1

别忘了引用' ;p。

(macroexpand '(numif 2 "pos" "zero" "neg"))
;; -> (if (clojure.core/pos? 2) "pos" (if (clojure.core/zero? 2) "zero" (if (clojure.core/neg? 2) "neg")))