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

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Sat May  5 12:48:16 2012
New Revision: 13930

Log:
Revert previous print-object change.

... better to find the root causes and fix them.

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	Sat May  5 07:12:13 2012	(r13929)
+++ trunk/abcl/src/org/armedbear/lisp/print-object.lisp	Sat May  5 12:48:16 2012	(r13930)
@@ -50,15 +50,7 @@
 
 (defmethod print-object ((class class) stream)
   (print-unreadable-object (class stream :identity t)
-    (format stream "~S ~S"
-            (class-name (class-of class))
-            ;; Handle partially-initialized class metaobjects
-            ;; gracefully; useful for error reporting.
-            (cond ((not (slot-exists-p class 'name))
-                   "(a class object without name slot)")
-                  ((not (slot-boundp class 'name))
-                   "(a class object with unset name)")
-                  (t (class-name class)))))
+    (format stream "~S ~S" (class-name (class-of class)) (class-name class)))
   class)
 
 (defmethod print-object ((gf generic-function) stream)