Changeset 13930

Timestamp:

05/05/12 19:48:16 (9 years ago)

Author:

rschlatte

Message:

Revert previous print-object change.

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

File:

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

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

@@ -51 +51 @@
 (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)