X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fpcl%2Fwalk.lisp;h=ba16dfaff4484334b3ae9db5b89913b71e4953b8;hb=45bc305be4e269d2e1a477c8e0ae9a64df1ccd1c;hp=1a7bf6f68e0337a9c5e9a3b321093b74f9337e05;hpb=8ee41eac134a552e07e966dd16d681e8216147fc;p=sbcl.git

diff --git a/src/pcl/walk.lisp b/src/pcl/walk.lisp
index 1a7bf6f..ba16dfa 100644
--- a/src/pcl/walk.lisp
+++ b/src/pcl/walk.lisp
@@ -668,7 +668,7 @@
                                          &aux arg)
   (cond ((null arglist) ())
         ((symbolp (setq arg (car arglist)))
-         (or (member arg lambda-list-keywords :test #'eq)
+         (or (member arg sb!xc:lambda-list-keywords :test #'eq)
              (note-lexical-binding arg env))
          (recons arglist
                  arg
@@ -676,8 +676,7 @@
                                context
                                env
                                (and destructuringp
-                                    (not (member arg
-                                                 lambda-list-keywords))))))
+                                    (not (member arg sb!xc:lambda-list-keywords))))))
         ((consp arg)
          (prog1 (recons arglist
                         (if destructuringp