Macroexpand没有扩展

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")))