projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.86.flaky7.23:
[sbcl.git]
/
src
/
compiler
/
locall.lisp
diff --git
a/src/compiler/locall.lisp
b/src/compiler/locall.lisp
index
8cab2c5
..
d031161
100644
(file)
--- a/
src/compiler/locall.lisp
+++ b/
src/compiler/locall.lisp
@@
-861,7
+861,8
@@
(dolist (called (lambda-calls fun))
(dolist (ref (leaf-refs called))
(let ((this-call (continuation-dest (node-cont ref))))
(dolist (called (lambda-calls fun))
(dolist (ref (leaf-refs called))
(let ((this-call (continuation-dest (node-cont ref))))
- (when (and (node-tail-p this-call)
+ (when (and this-call
+ (node-tail-p this-call)
(eq (node-home-lambda this-call) fun))
(setf (node-tail-p this-call) nil)
(ecase (functional-kind called)
(eq (node-home-lambda this-call) fun))
(setf (node-tail-p this-call) nil)
(ecase (functional-kind called)