1.1--- a/lisp/bin/homer.lisp	Fri Jul 26 23:12:33 2024 -0400
     1.2+++ b/lisp/bin/homer.lisp	Fri Jul 26 23:55:27 2024 -0400
     1.3@@ -76,10 +76,10 @@
     1.4               (error "missing HOMER directory")))))))
     1.5 
     1.6 ;;; CLI
     1.7-(defopt homer-help (print-help $cli))
     1.8-(defopt homer-version (print-version $cli))
     1.9-(defopt homer-log-level (when $val (setq *log-level* :debug)))
    1.10-(defopt homer-force (when $val (setq *homer-force* t)))
    1.11+(defopt homer-help (print-help *cli*))
    1.12+(defopt homer-version (print-version *cli*))
    1.13+(defopt homer-log-level (when *arg* (setq *log-level* :debug)))
    1.14+(defopt homer-force (when *arg* (setq *homer-force* t)))
    1.15 
    1.16 (defcmd homer-show
    1.17   (describe *home-config*))
    1.18@@ -181,7 +181,7 @@
    1.19               (find-files src *home-hidden-paths*)))
    1.20       (error 'file-error :pathname src))))
    1.21 
    1.22-(define-cli $cli
    1.23+(define-cli *cli*
    1.24   :name "homer"
    1.25   :version "0.1.0"
    1.26   :description "user home manager"
    1.27@@ -200,11 +200,11 @@
    1.28 
    1.29 (defun run ()
    1.30   (let ((*log-level* :info))
    1.31-    (with-cli (opts cmds args) $cli
    1.32+    (with-cli (opts cmds args) *cli*
    1.33       (init-homer-vars)
    1.34       (load-homerc)
    1.35-      (do-cmd $cli)
    1.36-      (debug-opts $cli))))
    1.37+      (do-cmd *cli*)
    1.38+      (debug-opts *cli*))))
    1.39 
    1.40 (defmain ()
    1.41   (let ((*print-readably* t))