projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.7.25:
[sbcl.git]
/
src
/
compiler
/
ir1report.lisp
diff --git
a/src/compiler/ir1report.lisp
b/src/compiler/ir1report.lisp
index
6f18bd4
..
5dcac30
100644
(file)
--- a/
src/compiler/ir1report.lisp
+++ b/
src/compiler/ir1report.lisp
@@
-499,7
+499,7
@@
has written, having proved that it is unreachable."))
(aver ep) ; else no entry points??
(multiple-value-bind (form context)
(find-original-source
(aver ep) ; else no entry points??
(multiple-value-bind (form context)
(find-original-source
- (node-source-path (continuation-next (block-start ep))))
+ (node-source-path (block-start-node ep)))
(declare (ignore form))
(let ((*print-level* 2)
(*print-pretty* nil))
(declare (ignore form))
(let ((*print-level* 2)
(*print-pretty* nil))