如何在Clojure宏中捕获词法范围？

Question

在Common Lisp中,我可以定义和使用从词法范围捕获变量的宏,以便我可以在let表单中使用它:

CL-USER> (defmacro plus9 () `(+ 9 woo))
PLUS9
CL-USER> (macroexpand '(plus9))
(+ 9 WOO)
T
CL-USER> (let ((woo 1)) (plus9))
10

然而,当我定义Clojure中的一个类似的宏,它寻找的定义woo在user命名空间:

user=> (defmacro plus9 [] `(+ 9 woo))
#'user/plus9
user=> (macroexpand '(plus9))
(clojure.core/+ 9 user/woo)
user=> (let [woo 1] (plus9))

CompilerException java.lang.RuntimeException: No such var: user/woo

显然,我误解了范围在Clojure中的工作原理.用Clojure实现这个宏的正确方法是什么？

Answer 1

我是一个宏菜鸟,但是怎么样

user=> (defmacro plus9 [] `(+ 9 ~'woo))
#'user/plus9
user=> (macroexpand '(plus9))
(clojure.core/+ 9 woo)
user=> (let [woo 1] (plus9))
10