(use '[clojure.walk :only [macroexpand-all]])

(defmacro get-lexical-env []
  (into {}                  ; Thanks to amalloy for pointing me to into
    (for [s (keys &env)]
      [(list 'quote s) s])))

(println (macroexpand-all '(let [a 1] (get-lexical-env))))