1.1--- a/lisp/bin/skel.lisp	Tue May 28 23:12:31 2024 -0400
     1.2+++ b/lisp/bin/skel.lisp	Tue May 28 23:18:12 2024 -0400
     1.3@@ -166,9 +166,6 @@
     1.4       (required-argument 'name)))
     1.5 
     1.6 (defcmd skc-vc
     1.7-  (print $args)
     1.8-  (print $opts)
     1.9-  (print $cli)
    1.10   (if $args
    1.11       (std/string:string-case ((car $args) :default (skel-error "invalid command"))
    1.12         ("status" (skc-status nil nil)))

     2.1--- a/lisp/lib/cli/clap.lisp	Tue May 28 23:12:31 2024 -0400
     2.2+++ b/lisp/lib/cli/clap.lisp	Tue May 28 23:18:12 2024 -0400
     2.3@@ -50,7 +50,7 @@
     2.4               (println "(:SIGINT)")
     2.5               (sb-ext:exit :code 130)))
     2.6        ;; reset terminal state
     2.7-       (.ris))))
     2.8+       #+nil (.ris))))
     2.9 
    2.10 (defmacro with-cli (slots cli &body body)
    2.11   "Like with-slots with some extra bindings."