projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.32.12: Fix slot-value on specialized parameters in SVUC methods
[sbcl.git]
/
src
/
compiler
/
ir1report.lisp
diff --git
a/src/compiler/ir1report.lisp
b/src/compiler/ir1report.lisp
index
72f0fa2
..
25a7f57
100644
(file)
--- a/
src/compiler/ir1report.lisp
+++ b/
src/compiler/ir1report.lisp
@@
-182,10
+182,8
@@
(let ((context *compiler-error-context*))
(if (compiler-error-context-p context)
(values context t)
(let ((context *compiler-error-context*))
(if (compiler-error-context-p context)
(values context t)
- (let* ((path (or (and (boundp '*current-path*) *current-path*)
- (if context
- (node-source-path context)
- nil)))
+ (let* ((path (or (and (node-p context) (node-source-path context))
+ (and (boundp '*current-path*) *current-path*)))
(old
(find (when path (source-path-original-source path))
(remove-if #'null old-contexts)
(old
(find (when path (source-path-original-source path))
(remove-if #'null old-contexts)