Comparable function type

gistfile1.clj

(deftype CFn [f form]
  clojure.lang.IFn
  (invoke [this x1] ((.f this) x1))
  (invoke [this x1 x2] ((.f this) x1 x2))
  (invoke [this x1 x2 x3] ((.f this) x1 x2 x3))
  (invoke [this x1 x2 x3 x4] ((.f this) x1 x2 x3 x4))
  (invoke [this x1 x2 x3 x4 x5] ((.f this) x1 x2 x3 x4 x5))
  (invoke [this x1 x2 x3 x4 x5 x6] ((.f this) x1 x2 x3 x4 x5 x6))
  (invoke [this x1 x2 x3 x4 x5 x6 x7] ((.f this) x1 x2 x3 x4 x5 x6 x7))
  ; and so on....
  (applyTo [this arglist]
           (apply (.f this) arglist))
  java.lang.Object
  (equals [this other_fn]
          (if (and (= (class other_fn) (class this)) 
                   (= (.form this) (.form other_fn)))
              true false)))

(defmacro c-fn [& forms]
  `(CFn. (fn ~@forms) '~forms))