1.1--- a/lisp/lib/cli/clap/macs.lisp	Fri Jul 26 23:55:27 2024 -0400
     1.2+++ b/lisp/lib/cli/clap/macs.lisp	Sat Jul 27 00:40:29 2024 -0400
     1.3@@ -33,8 +33,11 @@
     1.4 (defmacro defcmd (name &body body)
     1.5   `(defun ,name (args opts) 
     1.6      (declare (ignorable args opts))
     1.7-     (setq *argc* (length args)
     1.8-           *optc* (length opts))
     1.9+     (setq
    1.10+      *argc* (length args)
    1.11+      *optc* (length opts)
    1.12+      *args* args
    1.13+      *opts* opts)
    1.14      ,@body))
    1.15 
    1.16 (defmacro defopt (name &body body)