From 29b42bdfec1726976d5c1125d10ee0d811d197ff Mon Sep 17 00:00:00 2001 From: Rich Hickey Date: Fri, 25 Jun 2010 13:03:30 -0400 Subject: fixes for equiv compat --- src/main/clojure/clojure/contrib/pprint/cl_format.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/main/clojure/clojure/contrib/pprint/cl_format.clj b/src/main/clojure/clojure/contrib/pprint/cl_format.clj index a7aeca30..b93d535a 100644 --- 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)))) -- cgit v1.2.3-18-g5258