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

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

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

revision 1.1 by pfdietz, Sun May 8 20:29:42 2005 UTC revision 1.2 by pfdietz, Sun May 8 21:16:59 2005 UTC
# Line 35  Line 35 
35          until (>= count 100))          until (>= count 100))
36    nil)    nil)
37    
38    #|
39  (deftest encode-universal-time.2  (deftest encode-universal-time.2
40    (loop with count = 0    (loop with count = 0
41          for year = (+ 1901 (random 1000))          for year = (+ 1901 (random 1000))
# Line 59  Line 60 
60          collect (progn (incf count) (list vals time decoded-vals))          collect (progn (incf count) (list vals time decoded-vals))
61          until (>= count 100))          until (>= count 100))
62    nil)    nil)
63    |#
64    
65  (deftest encode-universal-time.3  (deftest encode-universal-time.3
66    (loop with count = 0    (loop with count = 0

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

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