diff options
| author | Colin Okay <okay@toyful.space> | 2022-03-25 15:51:26 -0500 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-03-25 15:51:26 -0500 |
| commit | fabc8a7b9027ff9c312ed45591e75dfd67c21f05 (patch) | |
| tree | 0d7aef241dd191d17746f8ce0fa336dc4dcca063 /lib/util.lisp | |
| parent | e95a60bce9d86ca3b2a7cdf41a0c4df3fc5cb3fd (diff) | |
[add] printing creation date in oneliner printouts
Diffstat (limited to 'lib/util.lisp')
| -rw-r--r-- | lib/util.lisp | 7 |
1 files changed, 7 insertions, 0 deletions
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))) + |