X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/d977f44b3dbc17d099431c53d053005262769c6b..0eed4749891adf0a7be89e786b8968ee805a8d41:/optparse.lisp

diff --git a/optparse.lisp b/optparse.lisp
index 09050f6..a949128 100644
--- a/optparse.lisp
+++ b/optparse.lisp
@@ -426,8 +426,8 @@
 	 (progn ,@body)
        (simple-condition (,cond)
 	 (apply #'die
-	        (simple-condition-format-control ,cond)
-	        (simple-condition-format-arguments ,cond)))
+		(simple-condition-format-control ,cond)
+		(simple-condition-format-arguments ,cond)))
        (error (,cond)
 	 (die "~A" ,cond)))))
 
@@ -447,8 +447,8 @@
 	 (setf (get ',name 'opthandler) ',func)
 	 (defun ,func (,var ,arg ,@args)
 	   ,@docs ,@decls
+	   (declare (ignorable ,arg))
 	   (with-locatives ,var
-	     (declare (ignorable ,arg))
 	     ,@body))
 	 ',name))))