Skip to content
Snippets Groups Projects
Commit bffedbea authored by pfdietz's avatar pfdietz
Browse files

patch for possible ambiguity at end of DST

parent 5f91194b
No related branches found
No related tags found
No related merge requests found
......@@ -52,8 +52,10 @@
repeat 1000
unless (let ((daylight-p-2 (nth-value 7 (decode-universal-time time2))))
(or (eql time time2)
(and daylight-p (not daylight-p-2) (eql time (- time2 3600)))
(and (not daylight-p) daylight-p-2 (eql time (+ time2 3600)))))
(and daylight-p (not daylight-p-2) ; (eql time (- time2 3600))
)
(and (not daylight-p) daylight-p-2 ; (eql time (+ time2 3600))
)))
collect (progn (incf count)
(list time (list second minute hour date month year day daylight-p zone) time2))
until (>= count 100)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment