diff options
| author | Chas Emerick <cemerick@snowtide.com> | 2009-06-01 16:30:49 -0400 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2009-11-24 08:19:18 -0500 |
| commit | ebcbde9152c77e0e75937172024611ba8ae9b4ea (patch) | |
| tree | 39f64d2587400ae2ec08bff87f8364ad1ba547a2 | |
| parent | 146f3614d100e9bce421afdcceee67aa0b956bb8 (diff) | |
add type-hint to defmethod to avoid spurious reflection warnings
Signed-off-by: Rich Hickey <richhickey@gmail.com>
| -rw-r--r-- | src/clj/clojure/core.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index 1dbfe163..535acfcb 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -1149,7 +1149,7 @@ (defmacro defmethod "Creates and installs a new method of multimethod associated with dispatch-value. " [multifn dispatch-val & fn-tail] - `(. ~multifn addMethod ~dispatch-val (fn ~@fn-tail))) + `(. ~(with-meta multifn {:tag 'clojure.lang.MultiFn}) addMethod ~dispatch-val (fn ~@fn-tail))) (defn remove-method "Removes the method of multimethod associated with dispatch-value." |