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

[mevenson at common-lisp.net]

Author: mevenson
Date: Tue Jul  5 02:33:59 2011
New Revision: 13378

Log:
PRINT-OBJECT shouldn't repeat the identity twice for STANDARD-OBJECT.

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	Mon Jul  4 08:16:46 2011	(r13377)
+++ trunk/abcl/src/org/armedbear/lisp/print-object.lisp	Tue Jul  5 02:33:59 2011	(r13378)
@@ -42,6 +42,9 @@
   (print-unreadable-object (object stream :type t :identity t)
      (write-string (%write-to-string object) stream)))
 
+(defmethod print-object ((object standard-object) stream)
+  (write-string (%write-to-string object) stream))
+
 (defmethod print-object ((object structure-object) stream)
   (write-string (%write-to-string object) stream))