add metadata to clojure multifn methods

defmethod.clj

(defmacro defmethod
  "Creates and installs a new method of multimethod associated with dispatch-value. "
  {:added "1.0"}
  [multifn dispatch-val & fn-tail]
  `(. ~(with-meta multifn {:tag 'clojure.lang.MultiFn}) addMethod ~dispatch-val (fn ~@fn-tail)))

(defmacro defmethod-with-metadata
  "Creates and installs a new method of multimethod associated with dispatch-value. "
  {:added "1.0"}
  [multifn dispatch-val & fn-tail]
  `(. ~(with-meta multifn {:tag 'clojure.lang.MultiFn}) 
      addMethod
      ~dispatch-val
      (with-meta (fn ~@fn-tail)
        ~{:ns *ns*
          :arglists (list 'quote (list (vec (first fn-tail))))
          :name (name multifn)
          :line (:line (meta &form))
          :file *file*})))