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)) |
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 |