deflocals.clj

(defmacro deflet [bindings & body]
  `(do ~@(for [[sym expr] (partition 2 (destructure bindings))]
           (list 'def sym expr))
       ~@body))

(defmacro defbindings [bindings]
  `(do ~@(for [[sym expr] (partition 2 (destructure bindings))]
           (list 'def sym expr))))

(defmacro deflast [sym]
  `(def ~sym *1))


;(deflet [foo 1
;         [_ bar] [1 2]
;         {:keys [baz]} {:baz 3}]
;  (+ foo bar baz))
;=> 6

;(+ 1 1)
;(deflast foo)
;foo => 2