X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fmethods.lisp;h=c1e5fc462cb221bbf79fb6fc06d8777d7c89d06b;hb=fe6da9f355488152649de48885b96205043c0f82;hp=7efb80d5313c94e8aaf2e2a9bd5cf33cb9e191e8;hpb=b56c1a4dc22aa0ac827343667584aa6090b15f02;p=sbcl.git

diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp
index 7efb80d..c1e5fc4 100644
--- a/src/pcl/methods.lisp
+++ b/src/pcl/methods.lisp
@@ -635,7 +635,7 @@
                                       (remove-duplicates
                                        (nconc
                                         (mapcan #'function-keywords methods)
-                                        (mapcar #'keywordicate gf.keys))))))
+                                        (mapcar #'keyword-spec-name gf.keys))))))
                                 (when all-keys
                                   (setq keysp t)
                                   `(&key ,@all-keys))))