display-new-bindings.clj

(let [*stack-of-local-binding-maps* (atom '())]
  (defmacro pop-environment []
    (swap! *stack-of-local-binding-maps* pop) nil)
  (defmacro push-environment []
    (swap! *stack-of-local-binding-maps* conj &env) nil)
  (defmacro display-new-bindings [& body]
    `(do
       ~@(map (fn [x#] (list 'println [`'~x# x#]))
                  (keys (into {}
                              (clojure.set/difference (set &env)
                                                      (set (first @*stack-of-local-binding-maps*))))))
       (push-environment)
       ~@body
       (pop-environment))))