Small error in arguments.lisp

2024-09-06 21:42:45 -07:00 · 2024-09-06 21:42:45 -07:00 · c86b38db09
commit c86b38db09
parent 3fc927fee8
1 changed files with 1 additions and 1 deletions
--- a/arguments.lisp
+++ b/arguments.lisp
@ -149,7 +149,7 @@ arguments will be placed in a list at the beginning of the alist."
        do
           (format stream "  ~v@<~@[-~c~]~@[, ~*~]~@[--~a~]~@[=<arg>~*~]~>  ~a~%"
                   longest-option
-                   short (or short long) long has-arg-p desc))
+                   short (and short long) long has-arg-p desc))
  (format stream
 "~%~@[The choice surrounded by '*' is the default. ~]Arguments to long~:[ ~;~%~]~
 options are also required for their short variant.~%" print-astrisk print-astrisk))