Changeset 13928

Timestamp:

05/05/12 14:05:28 (12 years ago)

Author:

rschlatte

Message:

Better error reporting involving partially-initialized class metaobjects

File:

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

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

@@ -53 +53 @@
     (format stream "~S ~S"
             (class-name (class-of class))
-            (class-name 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)))))
   class)