fogus · September 14, 2010 15:59
diff --git a/type-tag.clj b/type-tag.clj
 (defmulti foo type)
 (defmethod foo String [_]   (println "a string"))
 (defmethod foo ::cereal [_] (println "some cereal"))

 (foo "blah")
 ; a string

 (foo {:a 1})
 ; java.lang.IllegalArgumentException: No method in multimethod 'foo' for dispatch value: class clojure.lang.PersistentArrayMap

 (foo ^{:type ::cereal} {:a 1})
 ; some cereal
	(defmulti foo type)
	(defmethod foo String [_] (println "a string"))
	(defmethod foo ::cereal [_] (println "some cereal"))

	(foo "blah")
	; a string

	(foo {:a 1})
	; java.lang.IllegalArgumentException: No method in multimethod 'foo' for dispatch value: class clojure.lang.PersistentArrayMap

	(foo ^{:type ::cereal} {:a 1})
	; some cereal