From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 20 Dec 2014 22:26:05 +0000 (+0000)
Subject: optparse.lisp: Move `ignorable' declaration into the right place.
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/lisp/commitdiff_plain/570ab74881a69e4c978c2c3a4202174fac41cad1

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

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))))