From: Jan Moringen <jmoringe@techfak.uni-bielefeld.de>
Date: Sat, 23 Mar 2013 12:04:35 +0000 (+0100)
Subject: Silence some unused variable warnings in tests/condition.[im]pure.lisp
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=15cd7569cdb262da1f54246f135242ccdec03c0d;p=sbcl.git

Silence some unused variable warnings in tests/condition.[im]pure.lisp
---

diff --git a/tests/condition.pure.lisp b/tests/condition.pure.lisp
index 88fba5b..0430800 100644
--- a/tests/condition.pure.lisp
+++ b/tests/condition.pure.lisp
@@ -51,6 +51,7 @@
                    (foo2 (make-condition 'error)))
                (handler-bind
                    ((error (lambda (c)
+                             (declare (ignore c))
                              (let ((restarts (remove 'res (compute-restarts foo1)
                                                      :key #'restart-name
                                                      :test-not #'eql)))
@@ -96,8 +97,11 @@
 (assert
  (eq (block nil
        (handler-bind
-           ((type-error (lambda (c) (return :failed)))
+           ((type-error (lambda (c)
+                          (declare (ignore c))
+                          (return :failed)))
             (simple-error (lambda (c)
+                            (declare (ignore c))
                             (return (if (find-restart 'continue)
                                         :passed
                                         :failed)))))