Changeset 13305 for trunk/abcl/src/org/armedbear/lisp/print-object.lisp

Timestamp:

05/27/11 22:38:25 (12 years ago)

Author:

ehuelsmann

Message:

Remove PRINT-OBJECT method which masked java-side-implemented
printing of built-in ERRORs.

File:

• trunk/abcl/src/org/armedbear/lisp/print-object.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/print-object.lisp

@@ -40 +40 @@
 
 (defmethod print-object ((object t) stream)
-  (print-unreadable-object (object stream :type t :identity t)))
+  (print-unreadable-object (object stream :type t :identity t)
+     (write-string (%write-to-string object) stream)))
 
 (defmethod print-object ((object structure-object) stream)
   (write-string (%write-to-string object) stream))
-
-(defmethod print-object ((object standard-object) stream)
-  (print-unreadable-object (object stream :identity t)
-    (format stream "~S" (class-name (class-of object))))
-  object)
 
 (defmethod print-object ((class class) stream)