/[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.3 by pfdietz, Sat Aug 20 16:48:13 2005 UTC revision 1.4 by pfdietz, Sat Aug 20 16:50:30 2005 UTC
# Line 52  Line 52 
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)))

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

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