~mdw
/
lisp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
base: with-parsed-body, different interface.
[lisp]
/
optparse.lisp
diff --git
a/optparse.lisp
b/optparse.lisp
index
08192d0
..
4207933
100644
(file)
--- a/
optparse.lisp
+++ b/
optparse.lisp
@@
-446,7
+446,7
@@
Ambiguous long option `~A' -- could be any of:~{~% --~A~}"
on some parameters (the ARGS) and the value of an option-argument named
ARG."
(let ((func (intern (format nil "OPTHANDLER/~:@(~A~)" name))))
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)
`(progn
(setf (get ',name 'opthandler) ',func)
(defun ,func (,var ,arg ,@args)