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

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

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

revision 1.1 by pfdietz, Sun Aug 31 15:35:20 2003 UTC revision 1.2 by pfdietz, Mon Sep 1 01:15:02 2003 UTC
# Line 37  Line 37 
37    (let* ((upper-bound most-positive-fixnum)    (let* ((upper-bound most-positive-fixnum)
38           (lower-bound most-negative-fixnum)           (lower-bound most-negative-fixnum)
39           (spread (- upper-bound lower-bound)))           (spread (- upper-bound lower-bound)))
40      (flet ((%r () (- (random spread) lower-bound)))      (flet ((%r () (+ (random spread) lower-bound)))
41        (loop for x = (%r)        (loop for x = (%r)
42              for y = (%r)              for y = (%r)
43              for z = (%r)              for z = (%r)
# Line 57  Line 57 
57    (let* ((upper-bound 1000000000000000)    (let* ((upper-bound 1000000000000000)
58           (lower-bound -1000000000000000)           (lower-bound -1000000000000000)
59           (spread (- upper-bound lower-bound)))           (spread (- upper-bound lower-bound)))
60      (flet ((%r () (- (random spread) lower-bound)))      (flet ((%r () (+ (random spread) lower-bound)))
61        (loop for x = (%r)        (loop for x = (%r)
62              for y = (%r)              for y = (%r)
63              for z = (%r)              for z = (%r)
# Line 77  Line 77 
77    (let* ((upper-bound most-positive-fixnum)    (let* ((upper-bound most-positive-fixnum)
78           (lower-bound most-negative-fixnum)           (lower-bound most-negative-fixnum)
79           (spread (- upper-bound lower-bound)))           (spread (- upper-bound lower-bound)))
80      (flet ((%r () (- (random spread) lower-bound)))      (flet ((%r () (+ (random spread) lower-bound)))
81        (loop for x = (/ (%r) (max 1 (%r)))        (loop for x = (/ (%r) (max 1 (%r)))
82              for y = (/ (%r) (max 1 (%r)))              for y = (/ (%r) (max 1 (%r)))
83              for z = (/ (%r) (max 1 (%r)))              for z = (/ (%r) (max 1 (%r)))
# Line 113  Line 113 
113    (let* ((upper-bound most-positive-fixnum)    (let* ((upper-bound most-positive-fixnum)
114           (lower-bound most-negative-fixnum)           (lower-bound most-negative-fixnum)
115           (spread (- upper-bound lower-bound)))           (spread (- upper-bound lower-bound)))
116      (flet ((%r () (- (random spread) lower-bound)))      (flet ((%r () (+ (random spread) lower-bound)))
117        (loop        (loop
118         for xr = (%r)         for xr = (%r)
119         for xi = (%r)         for xi = (%r)
# Line 389  Line 389 
389             (list x x))             (list x x))
390     collect (list x eps eps2))     collect (list x eps eps2))
391    nil)    nil)
   
   

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