Ticket #83: make-instance-unfinalized-class.patch.patch

File make-instance-unfinalized-class.patch.patch, 575 bytes (added by Mahmud Mohamed, 11 years ago)

Patch to signal an error if make-instance applied to a class with unfinalized precendence list

  • clos.lisp

     
    379379            class))
    380380  (dolist (class (class-precedence-list class))
    381381    (when (typep class 'forward-referenced-class)
    382       (return-from std-finalize-inheritance)))
     382      (error 'program-error  "Class ~a is not defined" (class-name class))))
    383383  (setf (class-slots class)
    384384                   (funcall (if (eq (class-of class) +the-standard-class+)
    385385                                #'std-compute-slots