Changeset 14011

Timestamp:

07/17/12 07:59:27 (8 years ago)

Author:

rschlatte

Message:

Robustify print-object of uninitialized class objects

• avoid recursive errors when invoking debugger because of validate-superclass failures

• Reproducible on the REPL via (class-prototype (find-class 'standard-class))

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)) (class-name class)))
+    ;; Avoid recursive errors for uninitialized class objects, e.g. when
+    ;; validate-superclass fails
+    (format stream "~S ~S" (class-name (class-of class)) (ignore-errors (class-name class))))
   class)