restart-case: Spurious unused variable warnings.

restart-case without any restart clauses used to signal an unused
variable warning, add ignorable declaration.
Fixes lp#1113859

diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp
index 050489b..9f3bf28 100644 (file)
--- 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)