# HG changeset patch
# User Richard Westhaver <ellis@rwest.io>
# Date 1716505671 14400
# Node ID a5a2d756ee2fc53b188ff7d3d0b833f4265e921e
# Parent  b1f78dffbcdd4e8a0eed29ef7c32b4a1dd67d046
fix define-cli

diff -r b1f78dffbcdd -r a5a2d756ee2f lisp/bin/skel.lisp
--- a/lisp/bin/skel.lisp	Thu May 23 18:23:38 2024 -0400
+++ b/lisp/bin/skel.lisp	Thu May 23 19:07:51 2024 -0400
@@ -181,7 +181,7 @@
 (define-cli $cli
   :name "skel"
   :version "0.1.1"
-  :description "A hacker's project compiler and build tool."
+  :description "A hacker's project compiler."
   :thunk skc-show
   :opts (make-opts 
 	  (:name "help" :global t :description "print this message" 
diff -r b1f78dffbcdd -r a5a2d756ee2f lisp/lib/cli/clap.lisp
--- a/lisp/lib/cli/clap.lisp	Thu May 23 18:23:38 2024 -0400
+++ b/lisp/lib/cli/clap.lisp	Thu May 23 19:07:51 2024 -0400
@@ -92,7 +92,7 @@
   (with-gensyms (%name %class)
     (if (atom name)
         (setq %name name
-              %class nil)
+              %class :cli)
         (setq %name (car name)
               %class (cdr name)))
     `(,*default-cli-def* ,%name (apply #'make-cli ,%class (walk-cli-slots ',body)))))