From c86b38db093eeed95631c2e6e75d84a4a84166ee Mon Sep 17 00:00:00 2001
From: Alexander Rosenberg <zanderpkg@pm.me>
Date: Fri, 6 Sep 2024 21:42:45 -0700
Subject: [PATCH] Small error in arguments.lisp

---
 arguments.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/arguments.lisp b/arguments.lisp
index 339eaee..239b4a6 100644
--- 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))