From: Stas Boukarev <stassats@gmail.com>
Date: Sun, 3 Feb 2013 09:38:29 +0000 (+0400)
Subject: restart-case: Spurious unused variable warnings.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=d8c48b14b87d355b1e02f814d9bb8236847bc4de;p=sbcl.git

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
--- 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)