1.1--- a/lisp/lib/cli/clap/cli.lisp	Tue Sep 10 21:26:30 2024 -0400
     1.2+++ b/lisp/lib/cli/clap/cli.lisp	Tue Sep 10 21:52:14 2024 -0400
     1.3@@ -53,7 +53,7 @@
     1.4            (t (make-cli :opt :name (format nil "~(~A~)" x) :global t))))
     1.5        opts))
     1.6 
     1.7-(defun make-cmds (&rest cmds)
     1.8+(defun make-cmds (cmds)
     1.9   "Make a vector of CLI-CMDs based on CMDS."
    1.10   (map 'vector
    1.11         (lambda (x)

     2.1--- a/lisp/lib/cli/tests.lisp	Tue Sep 10 21:26:30 2024 -0400
     2.2+++ b/lisp/lib/cli/tests.lisp	Tue Sep 10 21:52:14 2024 -0400
     2.3@@ -223,7 +223,7 @@
     2.4 
     2.5 (defparameter *cmd1* (make-cli :cmd :name "holla" :opts *opts* :description "cmd1 description"))
     2.6 (defparameter *cmd2* (make-cli :cmd :name "ayo" :cmds (vector *cmd1*) :opts *opts* :description "cmd1 description"))
     2.7-(defparameter *cmds* (make-cmds `(:name "baz" :description "baz" :opts ,*opts*) *cmd1* *cmd2*))
     2.8+(defparameter *cmds* (make-cmds (list `(:name "baz" :description "baz" :opts ,*opts*) *cmd1* *cmd2*)))
     2.9 
    2.10 (defparameter *cli* (make-cli :cli :opts *opts* :cmds *cmds* :description "test cli"))
    2.11