1.1--- a/lisp/bin/packy.lisp Fri Sep 13 20:30:55 2024 -0400
1.2+++ b/lisp/bin/packy.lisp Sat Sep 14 22:13:06 2024 -0400
1.3@@ -1,6 +1,5 @@
1.4 (defpackage :bin/packy
1.5- (:use :cl :std :sb-ext :cli :packy :clap :log)
1.6- (:export :main))
1.7+ (:use :cl :std :sb-ext :cli :packy :clap :log))
1.8
1.9 (in-package :bin/packy)
1.10
1.11@@ -12,7 +11,7 @@
1.12 (defopt pk-target (setq *pk-targets* *arg*))
1.13 (defcmd pk-show (print (list *optc* *argc* *opts* *args* *pk-targets*)))
1.14
1.15-(define-cli *cli*
1.16+(define-cli *packy-cli*
1.17 :name "packy"
1.18 :version "0.1.0"
1.19 :description "Universal Package Manager"
1.20@@ -26,11 +25,11 @@
1.21
1.22 (defun run ()
1.23 (let ((*log-level* :info))
1.24- (with-cli (*cli* opts cmds args) (cli:args)
1.25+ (with-cli (*packy-cli* opts cmds args) (cli:args)
1.26 (do-cmd *cli*)
1.27 (debug-opts *cli*))))
1.28
1.29-(defmain ()
1.30+(defmain start-packy ()
1.31 (let ((*print-readably* t))
1.32 (run)
1.33 (sb-ext:exit :code 0)))