local_env.clj

(ns local-env
  (:use [clojure.contrib.def :only (defvar-)])
  (:use [clojure.contrib.macro-utils :only (mexpand-all symbol-macrolet)]))

(defvar- *local-envs* {})

(defmacro let-env [env-name & body]
  (binding [*local-envs* (assoc *local-envs* env-name &env)]
    `(let [~env-name ~(into {} (for [x (keys &env)] `['~x ~x]))]
       ~(mexpand-all `(do ~@body)))))

(defmacro with-env [env-name & body]
  (let [env (*local-envs* env-name)]
    (mexpand-all
      `(symbol-macrolet ~(vec (mapcat (fn [name]
                                        `[~name (~env-name '~name)])
                                      (keys env)))
         ~@body))))