1.1--- a/lisp/lib/cli/clap/cli.lisp	Tue Oct 01 21:52:17 2024 -0400
     1.2+++ b/lisp/lib/cli/clap/cli.lisp	Tue Oct 01 22:29:08 2024 -0400
     1.3@@ -48,7 +48,8 @@
     1.4        (lambda (x)
     1.5          (etypecase x
     1.6            (string (make-cli-opt :name x))
     1.7-           (list (apply #'make-cli :opt x))))
     1.8+           (list (apply #'make-cli :opt x))
     1.9+           (symbol (make-cli-opt :name (string-downcase (symbol-name x ))))))
    1.10        opts))
    1.11 
    1.12 (defun make-cmds (cmds)