X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefboot.lisp;h=9f3bf28a7a478eaef9f64f29220029a4035c0874;hb=044fd6468eace7c9bb1404d35b820cea413f64b3;hp=050489bcfa832b553dd98666b4ea6c9b6a716701;hpb=678a5d0cd5bfccf621e11147507471c3f511595c;p=sbcl.git

diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp
index 050489b..9f3bf28 100644
--- a/src/code/defboot.lisp
+++ b/src/code/defboot.lisp
@@ -549,6 +549,7 @@ evaluated as a PROGN."
                    clauses))))
       `(block ,block-tag
          (let ((,temp-var nil))
+           (declare (ignorable ,temp-var))
            (tagbody
             (restart-bind
                 ,(mapcar (lambda (datum)