r8505: Automated commit for Debian build of kmrcl upstream-version-1.63

[kmrcl.git] / datetime.lisp

diff --git a/datetime.lisp b/datetime.lisp
index 4a4dbe2e321feae2789864b0d657c82759a9a1c6..ac71fa472841a383ca62ea89a24aebe2062d0eec 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