Small error in arguments.lisp
This commit is contained in:
parent
3fc927fee8
commit
c86b38db09
@ -149,7 +149,7 @@ arguments will be placed in a list at the beginning of the alist."
|
|||||||
do
|
do
|
||||||
(format stream " ~v@<~@[-~c~]~@[, ~*~]~@[--~a~]~@[=<arg>~*~]~> ~a~%"
|
(format stream " ~v@<~@[-~c~]~@[, ~*~]~@[--~a~]~@[=<arg>~*~]~> ~a~%"
|
||||||
longest-option
|
longest-option
|
||||||
short (or short long) long has-arg-p desc))
|
short (and short long) long has-arg-p desc))
|
||||||
(format stream
|
(format stream
|
||||||
"~%~@[The choice surrounded by '*' is the default. ~]Arguments to long~:[ ~;~%~]~
|
"~%~@[The choice surrounded by '*' is the default. ~]Arguments to long~:[ ~;~%~]~
|
||||||
options are also required for their short variant.~%" print-astrisk print-astrisk))
|
options are also required for their short variant.~%" print-astrisk print-astrisk))
|
||||||
|
Loading…
Reference in New Issue
Block a user