lift macro to operate on functions

lift.clj

(defmacro lift [n k]
  (let [fns (gensym "fns")
        args (gensym "args")
        arity (int n)]
    `(fn [& ~fns]
      (fn [& ~args]
        (~k ~@(for [i (range arity)] (list 'apply (list 'nth fns i) args)))))))

(def lor (lift 2 or))

(def f (lor pos? (constantly 42)))
[(f 1)  (f -1)]  ; => [true 42]