changeset 363: |
a5a2d756ee2f |
parent 362: |
b1f78dffbcdd |
child 364: |
76c4c4c4a7c1 |
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Thu, 23 May 2024 19:07:51 -0400 |
files: |
lisp/bin/skel.lisp lisp/lib/cli/clap.lisp |
description: |
fix define-cli |
1.1--- a/lisp/bin/skel.lisp Thu May 23 18:23:38 2024 -0400
1.2+++ b/lisp/bin/skel.lisp Thu May 23 19:07:51 2024 -0400
1.3@@ -181,7 +181,7 @@
1.4 (define-cli $cli
1.5 :name "skel"
1.6 :version "0.1.1"
1.7- :description "A hacker's project compiler and build tool."
1.8+ :description "A hacker's project compiler."
1.9 :thunk skc-show
1.10 :opts (make-opts
1.11 (:name "help" :global t :description "print this message"
2.1--- a/lisp/lib/cli/clap.lisp Thu May 23 18:23:38 2024 -0400
2.2+++ b/lisp/lib/cli/clap.lisp Thu May 23 19:07:51 2024 -0400
2.3@@ -92,7 +92,7 @@
2.4 (with-gensyms (%name %class)
2.5 (if (atom name)
2.6 (setq %name name
2.7- %class nil)
2.8+ %class :cli)
2.9 (setq %name (car name)
2.10 %class (cdr name)))
2.11 `(,*default-cli-def* ,%name (apply #'make-cli ,%class (walk-cli-slots ',body)))))