Automatic Let -Clojure macro

autolet.clj

(defn _autolet [exp]
  (cond
    (empty? exp) exp
    (= (ffirst exp) :=) (let [app (into (vector) (rest (first exp)))
			      rexp (_autolet (rest exp))]
			  `((let ~app ~@rexp)))
    :else (cons (first exp) (_autolet (rest exp)))))
(defmacro autolet [& exp]
  `(do ~@(_autolet exp)))