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