52 |
repeat 1000 |
repeat 1000 |
53 |
unless (let ((daylight-p-2 (nth-value 7 (decode-universal-time time2)))) |
unless (let ((daylight-p-2 (nth-value 7 (decode-universal-time time2)))) |
54 |
(or (eql time time2) |
(or (eql time time2) |
55 |
(and daylight-p (not daylight-p-2) (eql time (- time2 3600))) |
(and daylight-p (not daylight-p-2) ; (eql time (- time2 3600)) |
56 |
(and (not daylight-p) daylight-p-2 (eql time (+ time2 3600))))) |
) |
57 |
|
(and (not daylight-p) daylight-p-2 ; (eql time (+ time2 3600)) |
58 |
|
))) |
59 |
collect (progn (incf count) |
collect (progn (incf count) |
60 |
(list time (list second minute hour date month year day daylight-p zone) time2)) |
(list time (list second minute hour date month year day daylight-p zone) time2)) |
61 |
until (>= count 100))) |
until (>= count 100))) |