blob: d58eb47662fe80d6d9bacb04d7eb6023847f4d63 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
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))))
|