Truthful error reporting for complicated compile-time type mismatches

[sbcl.git] / src / compiler / ir1opt.lisp

diff --git a/src/compiler/ir1opt.lisp b/src/compiler/ir1opt.lisp
index 9c01bc1..838f284 100644 (file)
--- a/src/compiler/ir1opt.lisp
+++ b/src/compiler/ir1opt.lisp
@@ -2159,7 +2159,7 @@
 
           ;; FIXME: Do it in one step.
           (let ((context (cons (node-source-form cast)
-                               (lvar-source (cast-value cast)))))
+                               (lvar-all-sources (cast-value cast)))))
             (filter-lvar
              value
              (if (cast-single-value-p cast)