X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdlisp2.lisp;h=433832b9006f5728c766998bbfb5a3a961e03b7c;hb=a736ac10b709b2d40305f0a6e3764afd246a8ef5;hp=77e4bd2650ac21e048a18a6d1b0ac73dcfe2ffe7;hpb=2217cdb364e8b48c187b085895bb2a5cbdbd9622;p=sbcl.git

diff --git a/src/pcl/dlisp2.lisp b/src/pcl/dlisp2.lisp
index 77e4bd2..433832b 100644
--- a/src/pcl/dlisp2.lisp
+++ b/src/pcl/dlisp2.lisp
@@ -89,7 +89,7 @@
   (if cached-emf-p
       (lambda (cache miss-fn)
 	(declare (type function miss-fn))
-	#'(sb-kernel:instance-lambda (&rest args)
+	#'(instance-lambda (&rest args)
             (declare #.*optimize-speed*)
 	    (with-dfun-wrappers (args metatypes)
 	      (dfun-wrappers invalid-wrapper-p)
@@ -104,7 +104,7 @@
 			    (invoke-emf emf args))))))))
       (lambda (cache emf miss-fn)
 	(declare (type function miss-fn))
-	#'(sb-kernel:instance-lambda (&rest args)
+	#'(instance-lambda (&rest args)
 	    (declare #.*optimize-speed*)
 	    (with-dfun-wrappers (args metatypes)
 	      (dfun-wrappers invalid-wrapper-p)