的Clojure當宏觀

Question

我在瀏覽Clojure的來源，我的方式感到驚訝時，宏定義：

user=> (source when) 
(defmacro when 
    "Evaluates test. If logical true, evaluates body in an implicit do." 
    {:added "1.0"} 
    [test & body] 
    (list 'if test (cons 'do body))) 
nil 
user=> 

我期待它寫成這樣的事情，而不是：

(defmacro when [test & body] `(if ~test (do ~@body))) 

爲什麼用這種不太常見的方式編寫實際的宏？

Answer 1

core.clj是自上而下構建的，從Java提供的內容開始，並構建了Clojure的所有需求。當定義when時，語法引號尚不存在。
的when宏被定義在core.clj的line 456和語法引號的要求並不可用，直到line 682.的當宏被用來定義語法引用