projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.18.11: Add SB-EXT:*MUFFLED-WARNINGS*, to muffle warnings at runtime.
[sbcl.git]
/
src
/
pcl
/
walk.lisp
diff --git
a/src/pcl/walk.lisp
b/src/pcl/walk.lisp
index
30906c7
..
ba16dfa
100644
(file)
--- a/
src/pcl/walk.lisp
+++ b/
src/pcl/walk.lisp
@@
-267,12
+267,12
@@
(push (list thing :lexical-var) (cadddr (env-lock env))))
(defun var-lexical-p (var env)
(push (list thing :lexical-var) (cadddr (env-lock env))))
(defun var-lexical-p (var env)
- (let ((entry (member var (env-lexical-variables env) :key #'car)))
+ (let ((entry (member var (env-lexical-variables env) :key #'car :test #'eq)))
(when (eq (cadar entry) :lexical-var)
entry)))
(defun variable-symbol-macro-p (var env)
(when (eq (cadar entry) :lexical-var)
entry)))
(defun variable-symbol-macro-p (var env)
- (let ((entry (member var (env-lexical-variables env) :key #'car)))
+ (let ((entry (member var (env-lexical-variables env) :key #'car :test #'eq)))
(when (eq (cadar entry) 'sb!sys:macro)
entry)))
(when (eq (cadar entry) 'sb!sys:macro)
entry)))
@@
-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)
+ (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