fork download
  1. (defmacro get-env []
  2. (let [
  3. a-name (gensym)
  4. a (eval `(do (def ~a-name (atom nil)) ~a-name))]
  5. (reset! a &env)
  6. `(deref ~a-name)))
  7.  
  8. (println (let [a 1] (get-env)))
Success #stdin #stdout 1.19s 220224KB
stdin
Standard input is empty
stdout
{a #<LocalBinding [email protected]>}