X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fmethods.lisp;h=d0e5c0484b3bf1f583e3bde17b6462d2cdf0c8d8;hb=f4820c2cd6eb6af8f21312e2e2ca19af42de4be6;hp=c395c7bab7f35cdffbc0683b1cca7a9cdf48ae98;hpb=09702467ab16baab34dc209606d9d07af38eaedd;p=sbcl.git

diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp
index c395c7b..d0e5c04 100644
--- a/src/pcl/methods.lisp
+++ b/src/pcl/methods.lisp
@@ -229,7 +229,7 @@
   (let* ((existing-gf (find-generic-function generic-function-name nil))
          (generic-function
           (if existing-gf
-              (ensure-generic-function 
+              (ensure-generic-function
                generic-function-name
                :generic-function-class (class-of existing-gf))
               (ensure-generic-function generic-function-name)))
@@ -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))))