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

clos.lisp

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