tavisrudd

(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"}