Print metadata and anonymous classes better

Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>

Author: amalloy

src/clj/clojure/core_print.clj

@@ -88,9 +88,13 @@
   (.write w ")"))
 
 (defn- print-object [o, ^Writer w]
+  (when (instance? clojure.lang.IMeta o)
+    (print-meta o w))
   (.write w "#<")
-  (.write w (.getSimpleName (class o)))
-  (.write w " ")
+  (let [name (.getSimpleName (class o))]
+    (when (seq name) ;; anonymous classes have a simple name of ""
+      (.write w name)
+      (.write w " ")))
   (.write w (str o))
   (.write w ">"))