gistfile1.clj

(defmacro defn-errors
  "Like defn, but allows any number of the
  argument to throw errors, using join-errors"
  [name & args]
  (let [[name [params & body]] (name-with-attributes
                               name args)
        param-sym (gensym "params")]
    `(defmacro ~name [& ~param-sym]
       `(apply (fn [~@'~params] ~@'~body)
                           (join-errors
                             ~@~param-sym)))))