1.1--- a/lisp/lib/cli/clap/macs.lisp	Sun Jul 28 20:49:47 2024 -0400
     1.2+++ b/lisp/lib/cli/clap/macs.lisp	Sun Jul 28 21:31:32 2024 -0400
     1.3@@ -33,7 +33,7 @@
     1.4 (defmacro defcmd (name &body body)
     1.5   `(defun ,name (args opts) 
     1.6      (declare (ignorable args opts)
     1.7-              (list args opts))
     1.8+              (vector args opts))
     1.9      (setq
    1.10       *argc* (length args)
    1.11       *optc* (length opts)
    1.12@@ -43,7 +43,7 @@
    1.13 
    1.14 (defmacro defopt (name &body body)
    1.15   `(defun ,name (&optional arg)
    1.16-     (declare (ignorable arg) (list arg))
    1.17+     (declare (ignorable arg))
    1.18      (setq *arg* arg)
    1.19        ,@body))
    1.20