projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.17.24: refactor handling of constants in the compiler
[sbcl.git]
/
src
/
pcl
/
walk.lisp
diff --git
a/src/pcl/walk.lisp
b/src/pcl/walk.lisp
index
1a7bf6f
..
ba16dfa
100644
(file)
--- a/
src/pcl/walk.lisp
+++ b/
src/pcl/walk.lisp
@@
-668,7
+668,7
@@
&aux arg)
(cond ((null arglist) ())
((symbolp (setq arg (car arglist)))
&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
(note-lexical-binding arg env))
(recons arglist
arg
@@
-676,8
+676,7
@@
context
env
(and destructuringp
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
((consp arg)
(prog1 (recons arglist
(if destructuringp