projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.16.27:
[sbcl.git]
/
src
/
compiler
/
ir1util.lisp
diff --git
a/src/compiler/ir1util.lisp
b/src/compiler/ir1util.lisp
index
7b68ff8
..
bd6357e
100644
(file)
--- a/
src/compiler/ir1util.lisp
+++ b/
src/compiler/ir1util.lisp
@@
-611,7
+611,10
@@
(destructuring-bind (name . thing) var
(declare (ignore name))
(etypecase thing
(destructuring-bind (name . thing) var
(declare (ignore name))
(etypecase thing
- (leaf nil)
+ ;; The evaluator will mark lexicals with :BOGUS when it
+ ;; translates an interpreter lexenv to a compiler
+ ;; lexenv.
+ ((or leaf #!+sb-eval (member :bogus)) nil)
(cons (aver (eq (car thing) 'macro))
t)
(heap-alien-info nil)))))
(cons (aver (eq (car thing) 'macro))
t)
(heap-alien-info nil)))))