From d8c48b14b87d355b1e02f814d9bb8236847bc4de Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Sun, 3 Feb 2013 13:38:29 +0400 Subject: [PATCH] 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 --- src/code/defboot.lisp | 1 + 1 file changed, 1 insertion(+) 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) -- 1.7.10.4