[Ecls-list] [PATCH] Fix ignore declaration in HANDLER-CASE expansion

[Tobias C. Rittweiler]

The expansion of HANDLER-CASE introduces a variable binding that is only
sometimes used. This binding is declared IGNOREd. The attached patch
changes that declaration to an IGNORABLE.

  -T.

Index: clos/conditions.lsp
===================================================================
RCS file: /project/ecl/cvsroot/ecl/src/clos/conditions.lsp,v
retrieving revision 1.41
diff -u -r1.41 conditions.lsp
--- clos/conditions.lsp	19 Sep 2008 17:40:56 -0000	1.41
+++ clos/conditions.lsp	26 Sep 2008 23:33:15 -0000
@@ -700,7 +700,7 @@
 					cases)))
 	  `(block ,tag
 	     (let ((,var nil))
-	       (declare (ignore ,var))
+	       (declare (ignorable ,var))
 	       (tagbody
 		 (handler-bind ,(mapcar #'(lambda (annotated-case)
 					    (list (cadr annotated-case)