[armedbear-cvs] r11785 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Apr 26 02:58:46 2009
New Revision: 11785

Log:
Add ignore declaration on unused argument.


Modified:
   trunk/abcl/src/org/armedbear/lisp/restart.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/restart.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/restart.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/restart.lisp	Sun Apr 26 02:58:46 2009
@@ -47,7 +47,7 @@
   function
   report-function
   interactive-function
-  (test-function #'(lambda (c) t)))
+  (test-function #'(lambda (c) (declare (ignore c)) t)))
 
 (defmacro restart-bind (bindings &body forms)
   `(let ((*restart-clusters*