/[gcl]/gcl/ansi-tests/decode-universal-time.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/decode-universal-time.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pfdietz, Sun May 8 13:20:06 2005 UTC revision 1.3 by pfdietz, Sat Aug 20 16:48:13 2005 UTC
# Line 50  Line 50 
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)))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26