Changeset 14011


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/print-object.lisp

    r13983 r14011  
    5151(defmethod print-object ((class class) stream)
    5252  (print-unreadable-object (class stream :identity t)
    53     (format stream "~S ~S" (class-name (class-of class)) (class-name class)))
     53    ;; Avoid recursive errors for uninitialized class objects, e.g. when
     54    ;; validate-superclass fails
     55    (format stream "~S ~S" (class-name (class-of class)) (ignore-errors (class-name class))))
    5456  class)
    5557
Note: See TracChangeset for help on using the changeset viewer.