50 |
(error (c) (print time) (error c))) |
(error (c) (print time) (error c))) |
51 |
for time2 = (encode-universal-time second minute hour date month year) |
for time2 = (encode-universal-time second minute hour date month year) |
52 |
repeat 1000 |
repeat 1000 |
53 |
unless (eql time time2) |
unless (let ((daylight-p-2 (nth-value 7 (decode-universal-time time2)))) |
54 |
|
(or (eql time time2) |
55 |
|
(and daylight-p (not daylight-p-2) (eql time (- time2 3600))) |
56 |
|
(and (not daylight-p) daylight-p-2 (eql time (+ time2 3600))))) |
57 |
collect (progn (incf count) |
collect (progn (incf count) |
58 |
(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)) |
59 |
until (>= count 100))) |
until (>= count 100))) |