1.1--- a/lisp/lib/cli/clap/cli.lisp	Fri Sep 27 20:42:20 2024 -0400
     1.2+++ b/lisp/lib/cli/clap/cli.lisp	Sat Sep 28 16:42:55 2024 -0400
     1.3@@ -14,7 +14,7 @@
     1.4     ((eql kind :cmd) (apply #'make-instance 'cli-cmd slots))
     1.5     (t (apply #'make-instance kind slots))))
     1.6 
     1.7-(defmacro define-cli (sym &key name version description thunk opts cmds)
     1.8+(defmacro define-cli (sym &key name version #+nil (help t) description thunk opts cmds)
     1.9   "Define a symbol NAME bound to a top-level CLI object."
    1.10   (with-gensyms (%name %class)
    1.11     (if (atom sym)
    1.12@@ -22,6 +22,7 @@
    1.13               %class :cli)
    1.14         (setq %name (car sym)
    1.15               %class (cdr sym)))
    1.16+    ;; (when help)
    1.17     `(,*default-cli-def* ,%name (make-cli ,%class :name ,name
    1.18                                                   :version ,version
    1.19                                                   :description ,description