X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/lisp/blobdiff_plain/28a5e53109f67f9ed97af095baa95fd360ed9e68..refs/heads/public:/optparse.lisp

diff --git a/optparse.lisp b/optparse.lisp
index 08192d0..4207933 100644
--- a/optparse.lisp
+++ b/optparse.lisp
@@ -446,7 +446,7 @@ (defmacro defopthandler (name (var &optional (arg (gensym)))
    on some parameters (the ARGS) and the value of an option-argument named
    ARG."
   (let ((func (intern (format nil "OPTHANDLER/~:@(~A~)" name))))
-    (multiple-value-bind (docs decls body) (parse-body body)
+    (with-parsed-body (body decls docs) body
       `(progn
 	 (setf (get ',name 'opthandler) ',func)
 	 (defun ,func (,var ,arg ,@args)