1 files changed, 13 insertions, 0 deletions
diff --git a/utilities.lisp b/utilities.lisp
new file mode 100644
index 0000000..d58eb47
--- /dev/null
+++ b/utilities.lisp
@@ -0,0 +1,13 @@
+;;; utilities.lisp
+
+(in-package :arclade)
+
+(defun read-from-file (path)
+  (read-from-string
+   (alexandria:read-file-into-string path)))
+
+(defvar *epoch* (encode-universal-time 0 0 0 1 1 1970)
+  "Jan 1 1970 Unix Epoch time in CL universal time.")
+
+(defun epoch-time (time)
+  (multiple-value-list (decode-universal-time (+ *epoch* time))))