Skip to content
Snippets Groups Projects
Commit c224ae22 authored by pmai's avatar pmai
Browse files

Fix bug that caused initialization functions to fail after a call to

make-instances-obsolete.
parent 0f3e5df8
No related branches found
No related tags found
No related merge requests found
...@@ -26,7 +26,7 @@ ...@@ -26,7 +26,7 @@
;;; ;;;
(ext:file-comment (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. ;;; This file defines the optimized make-instance functions.
;;; ;;;
...@@ -490,7 +490,7 @@ ...@@ -490,7 +490,7 @@
initialize-instance-methods))))) initialize-instance-methods)))))
#'(lambda (class1 initargs) #'(lambda (class1 initargs)
(if (not (eq wrapper (class-wrapper class))) (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))) (fn (initialize-info-make-instance-function info)))
(declare (type function fn)) (declare (type function fn))
(funcall fn class1 initargs)) (funcall fn class1 initargs))
...@@ -533,7 +533,7 @@ ...@@ -533,7 +533,7 @@
(list wrapper *the-wrapper-of-t*)))) (list wrapper *the-wrapper-of-t*))))
#'(lambda (class1 initargs) #'(lambda (class1 initargs)
(if (not (eq wrapper (class-wrapper class))) (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))) (fn (initialize-info-make-instance-function info)))
(declare (type function fn)) (declare (type function fn))
(funcall fn class1 initargs)) (funcall fn class1 initargs))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment