1.1--- a/lisp/lib/cli/clap/util.lisp	Thu Sep 12 16:48:47 2024 -0400
     1.2+++ b/lisp/lib/cli/clap/util.lisp	Thu Sep 12 22:38:22 2024 -0400
     1.3@@ -14,8 +14,8 @@
     1.4 
     1.5 (defun long-opt-p (str)
     1.6   (declare (simple-string str))
     1.7-  (and (char= (aref str 0) (aref str 1) #\-)
     1.8-       (> (length str) 2)))
     1.9+  (and (> (length str) 2)
    1.10+       (char= (aref str 0) (aref str 1) #\-)))
    1.11 
    1.12 (defun long-opt-has-eq-p (str)
    1.13   "Return non-nil if STR is a long-opt which has an '=' somewhere,
    1.14@@ -27,8 +27,8 @@
    1.15 (defun short-opt-p (str)
    1.16   (declare (simple-string str))
    1.17   (and (char= (aref str 0) #\-)
    1.18-       (not (char= (aref str 1) #\-))
    1.19-       (> (length str) 1)))
    1.20+       (> (length str) 1)
    1.21+       (not (char= (aref str 1) #\-))))
    1.22 
    1.23 (defun opt-group-p (str)
    1.24   (declare (simple-string str))