From fabc8a7b9027ff9c312ed45591e75dfd67c21f05 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Fri, 25 Mar 2022 15:51:26 -0500
Subject: [add] printing creation date in oneliner printouts

---
 lib/util.lisp | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'lib/util.lisp')

diff --git a/lib/util.lisp b/lib/util.lisp
index 4b827f1..441b2e0 100644
--- a/lib/util.lisp
+++ b/lib/util.lisp
@@ -71,6 +71,12 @@ determined by EXECUTABLE-ON-SYSTEM-P."
   (if what "true" "false"))
 
 
+(defun datestring-of-universal-time (ut)
+  (multiple-value-bind
+        (sec min hour day month year)  (decode-universal-time ut)
+    (declare (ignore sec min hour))
+    (format nil "~a-~2,'0d-~2,'0d" year month day)))
+
 (defmacro defplist (name &rest slots)
   (let* ((slots-names
            (loop for slot in slots
@@ -92,3 +98,4 @@ determined by EXECUTABLE-ON-SYSTEM-P."
     `(progn
        ,make-name-defun
        ,@slot-defuns)))
+
-- 
cgit v1.2.3