1.1--- a/lisp/lib/cli/clap/cmd.lisp	Sat Sep 14 22:13:06 2024 -0400
     1.2+++ b/lisp/lib/cli/clap/cmd.lisp	Sat Sep 14 23:55:38 2024 -0400
     1.3@@ -164,7 +164,7 @@
     1.4           (%compose-short-opt o)
     1.5           ;;  TODO 2024-09-11: signal error?
     1.6           (with-opt-restart-case a
     1.7-            (clap-unknown-argument a)))
     1.8+            (clap-unknown-argument a 'cli-opt)))
     1.9      else if (long-opt-p a) ;; LONG OPT
    1.10      collect           
    1.11         (let ((o (car (find-opts self (string-left-trim "-" a) :recurse t)))
    1.12@@ -179,7 +179,7 @@
    1.13                (setq skip t)))
    1.14             (t ;; (not o) (not has-eq)
    1.15              (with-opt-restart-case a
    1.16-               (clap-unknown-argument a)))))
    1.17+               (clap-unknown-argument a 'cli-opt)))))
    1.18      ;; OPT GROUP
    1.19      else if (opt-group-p a)
    1.20      collect (make-cli-node 'group nil)