plet.clj

(defn deconstruct
  ([l]
   (thisfn l [] []))
  ([l vars values]
   (if (seq l)
     (recur (rest (rest l))
            (conj vars (first l))
            (conj values (first (rest l))))
     [vars values])))

(defmacro letp [bindings & exprs]
  (let [ret (deconstruct bindings)
        vars (ret 0)
        values (ret 1)]
    `((fn ~vars ~@exprs)
        ~@values)))

Changed the original to be a bit sleeker.