[armedbear-cvs] r13305 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri May 27 15:38:25 2011
New Revision: 13305

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

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

Modified: trunk/abcl/src/org/armedbear/lisp/print-object.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/print-object.lisp	Fri May 27 07:13:27 2011	(r13304)
+++ trunk/abcl/src/org/armedbear/lisp/print-object.lisp	Fri May 27 15:38:25 2011	(r13305)
@@ -39,16 +39,12 @@
 (defgeneric print-object (object stream))
 
 (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)
   (print-unreadable-object (class stream :identity t)
     (format stream "~S ~S"