Let macro that attempts to add the name that the variable was declared with to the metadata

let_prime.clj

(defmacro let'
  "This is a `let` macro that also includes metadata about
  what name was used for each form if that form supports
  metadata."
  [bindings & body]
  (let [bindings'
        (mapcat
          (fn [[name form]]
            (let [tmp-name (gensym)
                  meta-form `(if (and
                                   (instance? clojure.lang.IObj ~tmp-name) 
                                   (instance? clojure.lang.IMeta ~tmp-name))
                               (vary-meta assoc :let-name '~name)
                               ~tmp-name)]
              [tmp-name form name meta-form]))
          (partition 2 bindings))]
    (list* `let
           (vec bindings')
           body)))