Small error in arguments.lisp

This commit is contained in:
Alexander Rosenberg 2024-09-06 21:42:45 -07:00
parent 3fc927fee8
commit c86b38db09
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730

View File

@ -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))