projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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))))
(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
;;;; 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
;; 2007 April 1 October 28 March 25 October 28
;; 2008 April 6 October 26 March 30 October 26
+