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