r8580: add tests/improvements to ensure-keyword-*

[kmrcl.git] / datetime.lisp

diff --git a/datetime.lisp b/datetime.lisp
index 4a4dbe2e321feae2789864b0d657c82759a9a1c6..288d3c85740bd616cde4234cd99364e4ff404fdc 100644 (file)
--- a/datetime.lisp
+++ b/datetime.lisp
@@ -68,6 +68,11 @@
     (t
      (format t "~,2F ~A" val unit))))
 
+(defconstant +posix-epoch+
+  (encode-universal-time 0 0 0 1 1 1970 0))
+
+(defun posix-time-to-utime (time)
+  (+ time +posix-epoch+))
 
 ;;;; Daylight Saving Time calculations 
 
@@ -101,3 +106,4 @@
 ;; 2007  April 1   October 28    March 25       October 28
 ;; 2008  April 6   October 26    March 30       October 26
 
+