X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/b73ffb8235ffb6f3bce6ac42731e19d3be846067..4da88bb98b75edf5033fa864cae0d3d1c397ac07:/optparse.lisp diff --git a/optparse.lisp b/optparse.lisp index 09050f6..73d9619 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)))))