/[gcl]/gcl/ansi-tests/times.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/times.lsp

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

revision 1.4 by pfdietz, Mon Sep 1 01:15:02 2003 UTC revision 1.5 by pfdietz, Mon Sep 1 19:13:25 2003 UTC
# Line 65  Line 65 
65    (let* ((upper-bound (* 1000 1000 1000))    (let* ((upper-bound (* 1000 1000 1000))
66           (lower-bound (- upper-bound))           (lower-bound (- upper-bound))
67           (spread (1+ (- upper-bound lower-bound))))           (spread (1+ (- upper-bound lower-bound))))
68      (loop for x = (+ (rationalize (random (float spread 1.0f0))) lower-bound)      (loop for x = (+ (rational (random (float spread 1.0f0))) lower-bound)
69            for y = (+ (rationalize (random (float spread 1.0f0))) lower-bound)            for y = (+ (rational (random (float spread 1.0f0))) lower-bound)
70            for prod = (* x y)            for prod = (* x y)
71            for prod2 = (rat-times x y)            for prod2 = (rat-times x y)
72            repeat 1000            repeat 1000
# Line 114  Line 114 
114    (let* ((upper-bound (* 1000 1000 1000 1000))    (let* ((upper-bound (* 1000 1000 1000 1000))
115           (lower-bound (- upper-bound))           (lower-bound (- upper-bound))
116           (spread (1+ (- upper-bound lower-bound))))           (spread (1+ (- upper-bound lower-bound))))
117      (flet ((%r () (+ (rationalize (random (float spread 1.0f0))) lower-bound)))      (flet ((%r () (+ (rational (random (float spread 1.0f0))) lower-bound)))
118        (loop for xr = (%r)        (loop for xr = (%r)
119              for xc = (%r)              for xc = (%r)
120              for x = (complex xr xc)              for x = (complex xr xc)

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

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