From 6ad840ed600bebfe4801b045a2bb24abb848b54e Mon Sep 17 00:00:00 2001 From: Tristan Williams Date: Sun, 27 Oct 2024 22:15:12 -0400 Subject: Add everything I've already been working on a CL template. Just add the fucker. --- src/SYSTEM.lisp | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 src/SYSTEM.lisp (limited to 'src/SYSTEM.lisp') diff --git a/src/SYSTEM.lisp b/src/SYSTEM.lisp new file mode 100644 index 0000000..468645a --- /dev/null +++ b/src/SYSTEM.lisp @@ -0,0 +1,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") -- cgit v1.2.3