0.8.9.46:

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

diff --git a/src/compiler/ir1opt.lisp b/src/compiler/ir1opt.lisp
index f630293..9bf0a58 100644 (file)
--- a/src/compiler/ir1opt.lisp
+++ b/src/compiler/ir1opt.lisp
@@ -740,6 +740,7 @@
          (ctran (node-next node))
         (tail (component-tail (block-component block)))
         (succ (first (block-succ block))))
+    (declare (ignore lvar))
     (unless (or (and (eq node (block-last block)) (eq succ tail))
                (block-delete-p block))
       (when (eq (node-derived-type node) *empty-type*)