Changeset 13928


Ignore:
Timestamp:
05/05/12 14:05:28 (9 years ago)
Author:
rschlatte
Message:

Better error reporting involving partially-initialized class metaobjects

File:
1 edited

Legend:

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

    r13814 r13928  
    5353    (format stream "~S ~S"
    5454            (class-name (class-of class))
    55             (class-name class)))
     55            ;; Handle partially-initialized class metaobjects
     56            ;; gracefully; useful for error reporting.
     57            (cond ((not (slot-exists-p class 'name))
     58                   "(a class object without name slot)")
     59                  ((not (slot-boundp class 'name))
     60                   "(a class object with unset name)")
     61                  (t (class-name class)))))
    5662  class)
    5763
Note: See TracChangeset for help on using the changeset viewer.