mdw-base.lisp: Move `with-places' to earlier in the file.

[lisp] / optparse.lisp

diff --git a/optparse.lisp b/optparse.lisp
index 09050f631b0abd558223f490b01887668db1609f..a94912855e824fcc256c4766042050e06fce18f4 100644 (file)
--- a/optparse.lisp
+++ b/optparse.lisp
@@ -426,8 +426,8 @@ (defmacro with-unix-error-reporting ((&key) &body body)
         (progn ,@body)
        (simple-condition (,cond)
         (apply #'die
         (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)))))
 
        (error (,cond)
         (die "~A" ,cond)))))
 


@@ -447,8 +447,8 @@ (defmacro defopthandler (name (var &optional (arg (gensym)))
         (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))))