From c224ae222378375e18f6bc57840f494fcf011f83 Mon Sep 17 00:00:00 2001 From: pmai <pmai> Date: Sat, 13 Apr 2002 22:40:07 +0000 Subject: [PATCH] Fix bug that caused initialization functions to fail after a call to make-instances-obsolete. --- pcl/fast-init.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pcl/fast-init.lisp b/pcl/fast-init.lisp index b58f28a7f..2d091742f 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)) -- GitLab