/[gcl]/gcl/ansi-tests/random-int-form.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/random-int-form.lsp

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

revision 1.17 by pfdietz, Fri Oct 10 03:19:59 2003 UTC revision 1.18 by pfdietz, Sat Oct 11 14:10:37 2003 UTC
# Line 115  Line 115 
115    "Generate a list (LO HI) of integers, LO <= HI.  This is used    "Generate a list (LO HI) of integers, LO <= HI.  This is used
116     for generating integer types."     for generating integer types."
117    (declare (ignore var))    (declare (ignore var))
118    (flet ((%r () (let ((r (ash 1 (1+ (random *maximum-random-int-bits*)))))    (rcase
119                    (- (random r) (floor (/ r 2))))))     (1 (flet ((%r () (let ((r (ash 1 (1+ (random *maximum-random-int-bits*)))))
120      (let ((x (%r))                        (- (random r) (floor (/ r 2))))))
121            (y (%r)))          (let ((x (%r))
122        (list (min x y) (max x y)))))                (y (%r)))
123              (list (min x y) (max x y)))))
124       (1 (let* ((b (ash 1 (1+ (random *maximum-random-int-bits*))))
125                 (b2 (floor (/ b 2))))
126            (let ((x (- (random b) b2))
127                  (y (- (random b) b2)))
128              (list (min x y) (max x y)))))))
129    
130  (defparameter *flet-names* nil)  (defparameter *flet-names* nil)
131    

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

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