From 15cd7569cdb262da1f54246f135242ccdec03c0d Mon Sep 17 00:00:00 2001
From: Jan Moringen <jmoringe@techfak.uni-bielefeld.de>
Date: Sat, 23 Mar 2013 13:04:35 +0100
Subject: [PATCH] Silence some unused variable warnings in
tests/condition.[im]pure.lisp
---
tests/condition.pure.lisp | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
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)))))
--
1.7.10.4