fork download
  1. (use '[clojure.walk :only [macroexpand-all]])
  2.  
  3. (defmacro get-lexical-env []
  4. (into {} ; Thanks to amalloy for pointing me to into
  5. (for [s (keys &env)]
  6. [(list 'quote s) s])))
  7.  
  8. (println (macroexpand-all '(let [a 1] (get-lexical-env))))
Success #stdin #stdout 1.3s 220224KB
stdin
Standard input is empty
stdout
(let* [a 1] {})