Ignore:
Timestamp:
Mar 21, 2008, 6:35:01 PM (12 years ago)
Author:
gz
Message:

More detailed error messages for class forward references, make-condition

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-error-system.lisp

    r8815 r8855  
    619619  (if (subtypep name 'condition)
    620620    (apply #'make-instance name init-list)
    621     (error "~S is not a defined condition type name" name)))
     621    (let ((class (if (classp name)
     622                   name
     623                   (find-class name)))) ;; elicit an error if no such class
     624      (unless (class-finalized-p class)
     625        (finalize-inheritance class)) ;; elicit an error if forward refs.
     626      (error "~S is not a condition class" class))))
    622627
    623628(defmethod print-object ((c condition) stream)
Note: See TracChangeset for help on using the changeset viewer.