Use a *much* faster "satisfies?" alternative

dakrone · Dec 3, 2012 · 18a1b4a · 18a1b4a
1 parent 6f1854c
commit 18a1b4a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/cheshire/generate.clj b/src/cheshire/generate.clj
@@ -82,7 +82,7 @@
 (defn generate [^JsonGenerator jg obj ^String date-format ^Exception ex]
   (cond
    (nil? obj) (.writeNull ^JsonGenerator jg)
-   (:to-json (find-protocol-impl JSONable obj)) (#'to-json obj jg)
+   (get (:impls JSONable) (class obj)) (#'to-json obj jg)
    (i? IPersistentCollection obj) (condp instance? obj
                                     clojure.lang.IPersistentMap
                                     (generate-map jg obj date-format ex)