1.1--- a/lisp/lib/cli/tests.lisp	Wed Sep 11 18:08:29 2024 -0400
     1.2+++ b/lisp/lib/cli/tests.lisp	Wed Sep 11 21:40:01 2024 -0400
     1.3@@ -218,7 +218,7 @@
     1.4     (is (string= "foobar"
     1.5                  (completing-read "nothing: " tcoll :history thist :default "foobar")))))
     1.6 
     1.7-(defparameter *opts* '((:name "foo" :global t :description "bar")
     1.8+(defparameter *opts* '((:name "foo" :global t :description "bar" :kind string)
     1.9 		       (:name "bar" :description "foo" :kind string)))
    1.10 
    1.11 (defparameter *cmd1* (make-cli :cmd :name "holla" :opts *opts* :description "cmd1 description"))
    1.12@@ -683,13 +683,12 @@
    1.13     (proc-args *cli* '("--log" "default" "--foo=11"))))
    1.14 
    1.15 (defmain (:exit nil :export nil)
    1.16-  (with-cli () *cli*
    1.17+  (with-cli (*cli*) ()
    1.18     (log:trace! "defmain is OK")
    1.19     t))
    1.20 
    1.21 (deftest clap-main ()
    1.22-  (let ((sb-ext:*posix-argv* nil))
    1.23-    (is (null (funcall #'main)))))
    1.24+  (is (null (funcall #'main))))
    1.25 
    1.26 (deftest sbcl-tools ()
    1.27   (with-sbcl (:noinform t :quit t)