blob: 468645ac1ac7d423effb577168df539dcbee12bf (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
;;;; SYSTEM.lisp
;;;; Entrypoint for SYSTEM
;;;; AUTHOR:
;; ---------------------------------------------------------------------
;;; Package Definition
;; ---------------------------------------------------------------------
(defpackage :SYSTEM
(:use #:common-lisp)
(:export #:entrypoint
#:*version*))
(in-package :SYSTEM)
(defparameter *version* (with-output-to-string
(*standard-output*)
(uiop:run-program "git rev-parse --short HEAD" :output t)))
;; ---------------------------------------------------------------------
;;; Entrypoint
;; ---------------------------------------------------------------------
(defun entrypoint ()
"Entrypoint for SYSTEM."
(format t "SYSTEM Version: ~A" *version*)
"SYSTEM")
|