clojureのマクロ展開

hello.clj

(ns hello
  (:gen-class))

(def x (atom 2))

(defmacro test-macro []
  (println @x))

(swap! x inc)

(test-macro)

; コンパイルした結果
; user=> (compile 'hello)
; 3
; hello
; user=>