(def +envs+ (atom {}))

(defmacro get-&env []
  (let [env-key (gensym)]
    (swap! +envs+ assoc env-key &env)
    `(@+envs+ '~env-key)))

(let [a 1] (println (get-&env)))