# HG changeset patch # User Richard Westhaver # Date 1716952692 14400 # Node ID 97efb1015e408f6a73d2efa05c687a1db067084b # Parent 386d51cf61ca777b337ef600afcf48356af1382c .rsi rm diff -r 386d51cf61ca -r 97efb1015e40 lisp/bin/skel.lisp --- a/lisp/bin/skel.lisp Tue May 28 23:12:31 2024 -0400 +++ b/lisp/bin/skel.lisp Tue May 28 23:18:12 2024 -0400 @@ -166,9 +166,6 @@ (required-argument 'name))) (defcmd skc-vc - (print $args) - (print $opts) - (print $cli) (if $args (std/string:string-case ((car $args) :default (skel-error "invalid command")) ("status" (skc-status nil nil))) diff -r 386d51cf61ca -r 97efb1015e40 lisp/lib/cli/clap.lisp --- a/lisp/lib/cli/clap.lisp Tue May 28 23:12:31 2024 -0400 +++ b/lisp/lib/cli/clap.lisp Tue May 28 23:18:12 2024 -0400 @@ -50,7 +50,7 @@ (println "(:SIGINT)") (sb-ext:exit :code 130))) ;; reset terminal state - (.ris)))) + #+nil (.ris)))) (defmacro with-cli (slots cli &body body) "Like with-slots with some extra bindings."