fixes for equiv compat

richhickey · Jun 25, 2010 · 29b42bd · 29b42bd
1 parent bb71105
commit 29b42bd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/main/clojure/clojure/contrib/pprint/cl_format.clj b/src/main/clojure/clojure/contrib/pprint/cl_format.clj
@@ -245,7 +245,7 @@ http://www.lispworks.com/documentation/HyperSpec/Body/22_c.htm
 for improved performance"
   [base val]
   (let [format-str (get java-base-formats base)]
-    (if (and format-str (integer? val))
+    (if (and format-str (integer? val) (-> val class .getName (.startsWith "java.")))
       (clojure.core/format format-str val)
       (base-str base val))))