X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fboot.lisp;h=9bb5b50fb8651f28b71b23b5ba67d82d3314d2ed;hb=e049902f5e7c30501d2dbb7a41d058a0c717fc1f;hp=c4b2bda3ffafce4ee0280f899c4a239d3c311032;hpb=742e0b2aed0e06a5ac6036c6b576088e3f91208f;p=sbcl.git

diff --git a/src/pcl/boot.lisp b/src/pcl/boot.lisp
index c4b2bda..9bb5b50 100644
--- a/src/pcl/boot.lisp
+++ b/src/pcl/boot.lisp
@@ -347,10 +347,8 @@ bootstrapping.
 			 lambda-list
 			 body
 			 env)
-  (let ((*make-instance-function-keys* nil)
-	(*optimize-asv-funcall-p* t)
+  (let ((*optimize-asv-funcall-p* t)
 	(*asv-readers* nil) (*asv-writers* nil) (*asv-boundps* nil))
-    (declare (special *make-instance-function-keys*))
     (multiple-value-bind (method-lambda unspecialized-lambda-list specializers)
 	(add-method-declarations name qualifiers lambda-list body env)
       (multiple-value-bind (method-function-lambda initargs)
@@ -380,9 +378,6 @@ bootstrapping.
 	     ;; intended. I hate that kind of bug (code which silently
 	     ;; gives the wrong answer), so we don't do a DECLAIM
 	     ;; here. -- WHN 20000229
-	     ,@(when *make-instance-function-keys*
-		 `((get-make-instance-functions
-		    ',*make-instance-function-keys*)))
 	     ,@(when (or *asv-readers* *asv-writers* *asv-boundps*)
 		 `((initialize-internal-slot-gfs*
 		    ',*asv-readers* ',*asv-writers* ',*asv-boundps*)))