Add everything

I've already been working on a CL template. Just add the fucker.

1 files changed, 26 insertions, 0 deletions

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")