X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/b73ffb8235ffb6f3bce6ac42731e19d3be846067..e8567770c29b1e26c340c1666a2d3b28c06454c8:/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))))