(defmacro get-env [] (let [ a-name (gensym) a (eval `(do (def ~a-name (atom nil)) ~a-name))] (reset! a &env) `(deref ~a-name))) (println (let [a 1] (get-env)))