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

diff --git a/src/pcl/dfun.lisp b/src/pcl/dfun.lisp
index e1c28ba..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))))
 
@@ -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)