projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.28.65: fix compiling with *PROFILE-HASH-CACHE* set to T
[sbcl.git]
/
src
/
compiler
/
physenvanal.lisp
diff --git
a/src/compiler/physenvanal.lisp
b/src/compiler/physenvanal.lisp
index
0b92341
..
e43bf9e
100644
(file)
--- a/
src/compiler/physenvanal.lisp
+++ b/
src/compiler/physenvanal.lisp
@@
-341,10
+341,10
@@
(real-dx-lvars real)))
(t
(do-uses (use lvar)
(real-dx-lvars real)))
(t
(do-uses (use lvar)
- (let ((source (find-original-source (node-source-path use))))
- (unless (symbolp source)
+ (unless (ref-p use)
+ (let ((*compiler-error-context* use))
(compiler-notify "could not stack allocate the result of ~S"
(compiler-notify "could not stack allocate the result of ~S"
- source))))
+ (find-original-source (node-source-path use))))))
(setf (lvar-dynamic-extent lvar) nil)))))
(node ; DX closure
(let* ((call what)
(setf (lvar-dynamic-extent lvar) nil)))))
(node ; DX closure
(let* ((call what)