@@ -4,7 +4,8 @@
(:use :cl
:esrap)
(:export #:parse-date
- #:print-date))
+ #:print-date
+ #:date-stamp))
(in-package #:iso-date)
@@ -158,3 +159,7 @@
(format nil "~4,'0d-~2,'0d-~2,'0dT~2,'0d:~2,'0d:~2,'0d"
year month date
hour minute second)))
+
+(defun date-stamp ()
+ (values (print-date (get-universal-time))
+ (get-universal-time)))