macro for functions that bind special vars

binding-fn.clj

(defmacro binding-non-default-fn [fn-name default-specials args & body]
  (let [special-vars (vec (doall (map gensym default-specials)))]
    `(defn ~fn-name
       (~args ~@body)
       (~(vec (concat special-vars args))
        (binding ~(vec (interleave default-specials special-vars))
          ~@body)))))


call:

(binding-non-default-fn resource [*kb*] [x]
  (create-resource *kb* (resource-ify x)))

expected output:

(defn resource
  ([x] (create-resource *kb* (resource-ify x)))
  ([*kb*64 x] (binding [*kb* *kb*64]
                (create-resource *kb* (resource-ify x)))))