diff --git a/pcl/fast-init.lisp b/pcl/fast-init.lisp index b58f28a7f34b671fab9d98001ad8a63a0debb32a..2d091742fa12e09d1e8577f53ba9a3e03c6d65b9 100644 --- a/pcl/fast-init.lisp +++ b/pcl/fast-init.lisp @@ -26,7 +26,7 @@ ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/Attic/fast-init.lisp,v 1.6 2001/01/27 15:07:45 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/Attic/fast-init.lisp,v 1.7 2002/04/13 22:40:07 pmai Exp $") ;;; ;;; This file defines the optimized make-instance functions. ;;; @@ -490,7 +490,7 @@ initialize-instance-methods))))) #'(lambda (class1 initargs) (if (not (eq wrapper (class-wrapper class))) - (let* ((info (initialize-info class1 initargs)) + (let* ((info (initialize-info (coerce-to-class class1) initargs)) (fn (initialize-info-make-instance-function info))) (declare (type function fn)) (funcall fn class1 initargs)) @@ -533,7 +533,7 @@ (list wrapper *the-wrapper-of-t*)))) #'(lambda (class1 initargs) (if (not (eq wrapper (class-wrapper class))) - (let* ((info (initialize-info class1 initargs)) + (let* ((info (initialize-info (coerce-to-class class1) initargs)) (fn (initialize-info-make-instance-function info))) (declare (type function fn)) (funcall fn class1 initargs))