optparse.lisp: Move `ignorable' declaration into the right place.

diff --git a/optparse.lisp b/optparse.lisp
index 73d9619..a949128 100644 (file)
--- a/optparse.lisp
+++ b/optparse.lisp
@@ -447,8 +447,8 @@
         (setf (get ',name 'opthandler) ',func)
         (defun ,func (,var ,arg ,@args)
           ,@docs ,@decls
         (setf (get ',name 'opthandler) ',func)
         (defun ,func (,var ,arg ,@args)
           ,@docs ,@decls

+          (declare (ignorable ,arg))

           (with-locatives ,var
           (with-locatives ,var

-            (declare (ignorable ,arg))

             ,@body))
         ',name))))
 
             ,@body))
         ',name))))