X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdfun.lisp;h=70e47da6185c4d01b2a68f51df639737f08dca3b;hb=a736ac10b709b2d40305f0a6e3764afd246a8ef5;hp=9d59ea8be510569cfa6fb8bb5160e4c5df705e1a;hpb=2d3cb6dba6461e98744eca2a1df4f770cea468ca;p=sbcl.git

diff --git a/src/pcl/dfun.lisp b/src/pcl/dfun.lisp
index 9d59ea8..70e47da 100644
--- a/src/pcl/dfun.lisp
+++ b/src/pcl/dfun.lisp
@@ -689,7 +689,7 @@ And so, we are saved.
 
 (defun make-initial-dfun (gf)
   (let ((initial-dfun
-	 #'(sb-kernel:instance-lambda (&rest args)
+	 #'(instance-lambda (&rest args)
 	     (initial-dfun gf args))))
     (multiple-value-bind (dfun cache info)
 	(if (and (eq *boot-state* 'complete)
@@ -725,17 +725,17 @@ And so, we are saved.
   (let* ((methods (early-gf-methods gf))
 	 (slot-name (early-method-standard-accessor-slot-name (car methods))))
     (ecase type
-      (reader #'(sb-kernel:instance-lambda (instance)
+      (reader #'(instance-lambda (instance)
 		  (let* ((class (class-of instance))
 			 (class-name (!bootstrap-get-slot 'class class 'name)))
 		    (!bootstrap-get-slot class-name instance slot-name))))
-      (boundp #'(sb-kernel:instance-lambda (instance)
+      (boundp #'(instance-lambda (instance)
 		  (let* ((class (class-of instance))
 			 (class-name (!bootstrap-get-slot 'class class 'name)))
 		    (not (eq +slot-unbound+
 			     (!bootstrap-get-slot class-name
 						  instance slot-name))))))
-      (writer #'(sb-kernel:instance-lambda (new-value instance)
+      (writer #'(instance-lambda (new-value instance)
 		  (let* ((class (class-of instance))
 			 (class-name (!bootstrap-get-slot 'class class 'name)))
 		    (!bootstrap-set-slot class-name instance slot-name new-value)))))))
@@ -829,7 +829,7 @@ And so, we are saved.
 	specls all-same-p)
     (cond ((null methods)
 	   (values
-	    #'(sb-kernel:instance-lambda (&rest args)
+	    #'(instance-lambda (&rest args)
 		(apply #'no-applicable-method gf args))
 	    nil
 	    (no-methods-dfun-info)))
@@ -1474,7 +1474,7 @@ And so, we are saved.
       (if function-p
 	  (lambda (method-alist wrappers)
 	    (declare (ignore method-alist wrappers))
-	    #'(sb-kernel:instance-lambda (&rest args)
+	    #'(instance-lambda (&rest args)
 		(apply #'no-applicable-method gf args)))
 	  (lambda (method-alist wrappers)
 	    (declare (ignore method-alist wrappers))