X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdfun.lisp;h=0879c322c7f46586d48fca0fd2730ba21ba52e06;hb=4aa82530da00c41e2751671ac75eda2d19a173a0;hp=0df70c69c19c48b7700076306667f6356fbf3aa9;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/pcl/dfun.lisp b/src/pcl/dfun.lisp
index 0df70c6..0879c32 100644
--- a/src/pcl/dfun.lisp
+++ b/src/pcl/dfun.lisp
@@ -300,13 +300,11 @@ And so, we are saved.
 (defun accessor-miss-function (gf dfun-info)
   (ecase (dfun-info-accessor-type dfun-info)
     (reader
-      #'(lambda (arg)
-	   (declare (pcl-fast-call))
-	   (accessor-miss gf nil arg dfun-info)))
+     (lambda (arg)
+       (accessor-miss gf nil arg dfun-info)))
     (writer
-     #'(lambda (new arg)
-	 (declare (pcl-fast-call))
-	 (accessor-miss gf new arg dfun-info)))))
+     (lambda (new arg)
+       (accessor-miss gf new arg dfun-info)))))
 
 #-sb-fluid (declaim (sb-ext:freeze-type dfun-info))
 
@@ -392,9 +390,8 @@ And so, we are saved.
 	   (funcall (get-dfun-constructor 'emit-checking metatypes applyp)
 		    cache
 		    function
-		    #'(lambda (&rest args)
-			(declare (pcl-fast-call))
-			(checking-miss generic-function args dfun-info)))
+		    (lambda (&rest args)
+		      (checking-miss generic-function args dfun-info)))
 	   cache
 	   dfun-info)))))
 
@@ -450,9 +447,8 @@ And so, we are saved.
       (values
        (funcall (get-dfun-constructor 'emit-caching metatypes applyp)
 		cache
-		#'(lambda (&rest args)
-		    (declare (pcl-fast-call))
-		    (caching-miss generic-function args dfun-info)))
+		(lambda (&rest args)
+		  (caching-miss generic-function args dfun-info)))
        cache
        dfun-info))))
 
@@ -511,9 +507,8 @@ And so, we are saved.
       (values
        (funcall (get-dfun-constructor 'emit-constant-value metatypes)
 		cache
-		#'(lambda (&rest args)
-		    (declare (pcl-fast-call))
-		    (constant-value-miss generic-function args dfun-info)))
+		(lambda (&rest args)
+		  (constant-value-miss generic-function args dfun-info)))
        cache
        dfun-info))))
 
@@ -730,12 +725,12 @@ And so, we are saved.
     (ecase type
       (reader #'(sb-kernel:instance-lambda (instance)
 		  (let* ((class (class-of instance))
-			 (class-name (bootstrap-get-slot 'class class 'name)))
-		    (bootstrap-get-slot class-name instance slot-name))))
+			 (class-name (!bootstrap-get-slot 'class class 'name)))
+		    (!bootstrap-get-slot class-name instance slot-name))))
       (writer #'(sb-kernel: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)))))))
+			 (class-name (!bootstrap-get-slot 'class class 'name)))
+		    (!bootstrap-set-slot class-name instance slot-name new-value)))))))
 
 (defun initial-dfun (gf args)
   (dfun-miss (gf args wrappers invalidp nemf ntype nindex)
@@ -1205,10 +1200,10 @@ And so, we are saved.
 (defun order-specializers (specl1 specl2 index compare-classes-function)
   (let ((type1 (if (eq *boot-state* 'complete)
 		   (specializer-type specl1)
-		   (bootstrap-get-slot 'specializer specl1 'type)))
+		   (!bootstrap-get-slot 'specializer specl1 'type)))
 	(type2 (if (eq *boot-state* 'complete)
 		   (specializer-type specl2)
-		   (bootstrap-get-slot 'specializer specl2 'type))))
+		   (!bootstrap-get-slot 'specializer specl2 'type))))
     (cond ((eq specl1 specl2)
 	   nil)
 	  ((atom type1)
@@ -1504,7 +1499,7 @@ And so, we are saved.
 (defun update-dfun (generic-function &optional dfun cache info)
   (let* ((early-p (early-gf-p generic-function))
 	 (gf-name (if early-p
-		      (early-gf-name generic-function)
+		      (!early-gf-name generic-function)
 		      (generic-function-name generic-function)))
 	 (ocache (gf-dfun-cache generic-function)))
     (set-dfun generic-function dfun cache info)