Auto currying for clojure (a la haskell but more explicit)

autocurry.clj

(defmacro defc
  [identifier bindings & body]
  (let [n# (count bindings)]
    `(def ~identifier
       (fn [& args#]
         (if (< (count args#) ~n#)
           (apply partial ~identifier args#)
           (let [myfn# (fn ~bindings ~@body)]
             (apply myfn# args#)))))))

(defc sum-three-numbers
  [num1 num2 num3]
  (+ num1 num2 num3))

example.clj

(sum-three-numbers 1 2 3)
;; -> 6

(sum-three-numbers 1)
;; -> #<core$partial$fn__4190 clojure.core$partial$fn__4190@8a20568>

(sum-three-numbers 1 2)
;; -> #<core$partial$fn__4192 clojure.core$partial$fn__4192@892c746>

((sum-three-numbers 1) 2)
;; -> #<core$partial$fn__4192 clojure.core$partial$fn__4192@4be0ae98>

(((sum-three-numbers 1) 2) 3)
;; -> 6