X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fmethods.lisp;h=849e499390873103dd2e119a7edbd3d84cbdc2e5;hb=0e03a9ac950b78d776c4869c809e202d9e929f39;hp=b192b0220ac9758952fef2d6f1dc090d3fe70617;hpb=903f4432362a1e7764dfed46d35894625cc085d8;p=sbcl.git

diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp
index b192b02..849e499 100644
--- a/src/pcl/methods.lisp
+++ b/src/pcl/methods.lisp
@@ -1243,7 +1243,8 @@
   (if (atom form)
       (default-test-converter form)
       (case (car form)
-        ((invoke-effective-method-function invoke-fast-method-call)
+        ((invoke-effective-method-function invoke-fast-method-call
+          invoke-effective-narrow-method-function)
          '.call.)
         (methods
          '.methods.)
@@ -1345,8 +1346,7 @@
           (get-fun1 `(lambda
                       ,arglist
                       ,@(unless function-p
-                          `((declare (ignore .pv-cell.
-                                             .next-method-call.))))
+                          `((declare (ignore .pv-cell. .next-method-call.))))
                       (locally (declare #.*optimize-speed*)
                                (let ((emf ,net))
                                  ,(make-emf-call metatypes applyp 'emf))))
@@ -1526,7 +1526,7 @@
          (update-dfun gf dfun cache info))))))
 
 (defmethod (setf class-name) (new-value class)
-  (let ((classoid (%wrapper-classoid (class-wrapper class))))
+  (let ((classoid (wrapper-classoid (class-wrapper class))))
     (if (and new-value (symbolp new-value))
         (setf (classoid-name classoid) new-value)
         (setf (classoid-name classoid) nil)))