diff options
| -rw-r--r-- | src/main/clojure/clojure/contrib/pprint/cl_format.clj | 2 |
1 files changed, 1 insertions, 1 deletions
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)))) |