diff options
| author | Rich Hickey <richhickey@gmail.com> | 2010-06-25 13:03:30 -0400 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2010-06-25 13:03:30 -0400 |
| commit | 29b42bdfec1726976d5c1125d10ee0d811d197ff (patch) | |
| tree | d4886372fd0d8192602d2e0b5acc8f17a819ca20 | |
| parent | bb711051c1c5aaa8d034fc10ec7eb41d04e797ad (diff) | |
fixes for equiv compat
| -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)))) |