# HG changeset patch
# User Richard Westhaver <ellis@rwest.io>
# Date 1726273855 14400
# Node ID 692dfd7f02d067b9e1b8ca65de40afcb3db03237
# Parent  6e5006dfe7b8d56311f1d4f48cfb5bbb3f6f0d1e
update with-cli syntax

diff -r 6e5006dfe7b8 -r 692dfd7f02d0 lisp/bin/homer.lisp
--- a/lisp/bin/homer.lisp	Thu Sep 12 22:38:22 2024 -0400
+++ b/lisp/bin/homer.lisp	Fri Sep 13 20:30:55 2024 -0400
@@ -198,7 +198,7 @@
 
 (defun run ()
   (let ((*log-level* :info))
-    (with-cli (opts cmds args) *cli*
+    (with-cli (*cli* opts cmds args) (cli:args)
       (init-homer-vars)
       (load-homerc)
       (do-cmd *cli*)
diff -r 6e5006dfe7b8 -r 692dfd7f02d0 lisp/bin/organ.lisp
--- a/lisp/bin/organ.lisp	Thu Sep 12 22:38:22 2024 -0400
+++ b/lisp/bin/organ.lisp	Fri Sep 13 20:30:55 2024 -0400
@@ -57,7 +57,7 @@
 
 (defun run ()
   (let ((*log-level* :info))
-    (with-cli (*cli* opts cmds args) ()
+    (with-cli (*cli* opts cmds args) (cli:args)
       (do-cmd *cli*)
       (debug-opts *cli*))))
 
diff -r 6e5006dfe7b8 -r 692dfd7f02d0 lisp/bin/packy.lisp
--- a/lisp/bin/packy.lisp	Thu Sep 12 22:38:22 2024 -0400
+++ b/lisp/bin/packy.lisp	Fri Sep 13 20:30:55 2024 -0400
@@ -26,7 +26,7 @@
 
 (defun run ()
   (let ((*log-level* :info))
-    (with-cli (opts cmds args) *cli*
+    (with-cli (*cli* opts cmds args) (cli:args)
       (do-cmd *cli*)
       (debug-opts *cli*))))