X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fmethods.lisp;h=f8f13a7b7230423c41581e0107451aceae51ce6b;hb=c1d63b850fe9528036f8ae715088384e81d880cc;hp=4a45c20684c4552da8cfbf7494b5aac32db0f6e1;hpb=e5cf6f26b24a3c85bd3258dd9cac9d9a26d510f3;p=sbcl.git

diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp
index 4a45c20..f8f13a7 100644
--- a/src/pcl/methods.lisp
+++ b/src/pcl/methods.lisp
@@ -1360,7 +1360,7 @@
           (get-fun1 `(lambda
                       ,arglist
                       ,@(unless function-p
-                          `((declare (ignore .pv-cell. .next-method-call.))))
+                          `((declare (ignore .pv. .next-method-call.))))
                       (locally (declare #.*optimize-speed*)
                                (let ((emf ,net))
                                  ,(make-emf-call nargs applyp 'emf))))