X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/lisp/blobdiff_plain/4da88bb98b75edf5033fa864cae0d3d1c397ac07..570ab74881a69e4c978c2c3a4202174fac41cad1:/optparse.lisp?ds=sidebyside

diff --git a/optparse.lisp b/optparse.lisp
index 73d9619..a949128 100644
--- a/optparse.lisp
+++ b/optparse.lisp
@@ -447,8 +447,8 @@ (defmacro defopthandler (name (var &optional (arg (gensym)))
 	 (setf (get ',name 'opthandler) ',func)
 	 (defun ,func (,var ,arg ,@args)
 	   ,@docs ,@decls
+	   (declare (ignorable ,arg))
 	   (with-locatives ,var
-	     (declare (ignorable ,arg))
 	     ,@body))
 	 ',name))))