changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/bin/skc.lisp

changeset 682: 5e8b1855f866
parent: 5f88b237ce29
author: Richard Westhaver <ellis@rwest.io>
date: Sat, 28 Sep 2024 16:42:55 -0400
permissions: -rw-r--r--
description: lisp fixes 
     1 ;;; skc.lisp --- Skel Client
     2 
     3 ;; 
     4 
     5 ;;; Code:
     6 (in-package :std-user)
     7 (defpkg :bin/skc
     8   (:use :cl)
     9   (:nicknames :skc))
    10 (in-package :bin/skc)
    11 
    12 (cli:define-cli *skc-cli*
    13   :name "skc"
    14   :version #.(format nil "0.1.1:~A" (read-line (sb-ext:process-output (vc:run-hg-command "id" '("-i") :stream))))
    15   :thunk 'cli:args)
    16 
    17 (cli:defmain start-skc ()
    18   (cli:with-cli (*skc-cli* opts cmds) (cli:args)
    19     (cli:do-cmd *skc-cli*)))