# HG changeset patch
# User Richard Westhaver <ellis@rwest.io>
# Date 1726019534 14400
# Node ID f59072409c7ac2ed878ce33cce8c60e6620e1cfb
# Parent  f901de70a80edb2b4cfc37158ceead5f8243419c
revert cli-cmds back to list instead of &rest

diff -r f901de70a80e -r f59072409c7a lisp/lib/cli/clap/cli.lisp
--- a/lisp/lib/cli/clap/cli.lisp	Tue Sep 10 21:26:30 2024 -0400
+++ b/lisp/lib/cli/clap/cli.lisp	Tue Sep 10 21:52:14 2024 -0400
@@ -53,7 +53,7 @@
            (t (make-cli :opt :name (format nil "~(~A~)" x) :global t))))
        opts))
 
-(defun make-cmds (&rest cmds)
+(defun make-cmds (cmds)
   "Make a vector of CLI-CMDs based on CMDS."
   (map 'vector
         (lambda (x)
diff -r f901de70a80e -r f59072409c7a lisp/lib/cli/tests.lisp
--- a/lisp/lib/cli/tests.lisp	Tue Sep 10 21:26:30 2024 -0400
+++ b/lisp/lib/cli/tests.lisp	Tue Sep 10 21:52:14 2024 -0400
@@ -223,7 +223,7 @@
 
 (defparameter *cmd1* (make-cli :cmd :name "holla" :opts *opts* :description "cmd1 description"))
 (defparameter *cmd2* (make-cli :cmd :name "ayo" :cmds (vector *cmd1*) :opts *opts* :description "cmd1 description"))
-(defparameter *cmds* (make-cmds `(:name "baz" :description "baz" :opts ,*opts*) *cmd1* *cmd2*))
+(defparameter *cmds* (make-cmds (list `(:name "baz" :description "baz" :opts ,*opts*) *cmd1* *cmd2*)))
 
 (defparameter *cli* (make-cli :cli :opts *opts* :cmds *cmds* :description "test cli"))