diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/clj/clojure/core_print.clj | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/clj/clojure/core_print.clj b/src/clj/clojure/core_print.clj index 9ec08dfa..228b8cb3 100644 --- a/src/clj/clojure/core_print.clj +++ b/src/clj/clojure/core_print.clj @@ -68,6 +68,9 @@ (pr-on m w)) (.write w " ")))) +(defmethod print-method :default [o, #^Writer w] + (print-method (vary-meta o #(dissoc % :type)) w)) + (defmethod print-method nil [o, #^Writer w] (.write w "nil")) @@ -80,7 +83,7 @@ (print-args o w) (.write w ")")) -(defmethod print-method :default [o, #^Writer w] +(defmethod print-method Object [o, #^Writer w] (.write w "#<") (.write w (.getSimpleName (class o))) (.write w " ") |