X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fmethods.lisp;h=52d9ece6665b31a741a0b5e5a0933d86b7c7791d;hb=05e9b542c5700416b8fd9f3ba9bb91bb6ab84b3a;hp=3dc38cce84c1ff5f8cccdbb45ca40a8e41f3affe;hpb=f505ec4076a19cf75227bf60f7f8684166694f8e;p=sbcl.git

diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp
index 3dc38cc..52d9ece 100644
--- a/src/pcl/methods.lisp
+++ b/src/pcl/methods.lisp
@@ -1617,7 +1617,7 @@
   (reinitialize-instance generic-function :name new-value)
   new-value)
 
-(defmethod function-keyword-parameters ((method standard-method))
+(defmethod function-keywords ((method standard-method))
   (multiple-value-bind (nreq nopt keysp restp allow-other-keys-p
                         keywords keyword-parameters)
       (analyze-lambda-list (if (consp method)
@@ -1658,7 +1658,7 @@
           (let ((methods.keys nil) (methods.allowp nil))
             (dolist (m methods)
               (multiple-value-bind (m.keyparams m.allow-other-keys)
-                  (function-keyword-parameters m)
+                  (function-keywords m)
                 (setq methods.keys (union methods.keys m.keyparams :key #'maybe-car))
                 (setq methods.allowp (or methods.allowp m.allow-other-keys))))
             (let ((arglist '()))