added get-method

1 files changed, 5 insertions, 0 deletions

diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
index f44fcb71..934dbe89 100644
--- a/src/clj/clojure/core.clj
+++ b/src/clj/clojure/core.clj
@@ -1085,6 +1085,11 @@
   "Given a multimethod, returns a map of dispatch values -> dispatch fns"
   [#^clojure.lang.MultiFn multifn] (.getMethodTable multifn))
 
+(defn get-method
+  "Given a multimethod and a dispatch value, returns the dispatch fn
+  that would apply to that value, or nil if none apply and no default"
+  [#^clojure.lang.MultiFn multifn dispatch-val] (.getMethod multifn dispatch-val))
+
 (defn prefers
   "Given a multimethod, returns a map of preferred value -> set of other values"
   [#^clojure.lang.MultiFn multifn] (.getPreferTable multifn))