changelog shortlog graph tags branches changeset file revisions annotate raw help

Mercurial > core / lisp/bin/packy.lisp

revision 651: af486e0a40c9
parent 650: 692dfd7f02d0
child 689: 2e7d93b892a5
     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)))