X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcondition.pure.lisp;h=043080019c14b9558c671055237b2123fa7566ed;hb=15cd7569cdb262da1f54246f135242ccdec03c0d;hp=88fba5b4c64bac63f67a0a39ce7fd4ed77dff16c;hpb=9d5be5e9531a594e67e7f4ba6e1201a36c8f1ad9;p=sbcl.git

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