9 |
(cond |
(cond |
10 |
((subtypep* 'fixnum type) |
((subtypep* 'fixnum type) |
11 |
(random most-positive-fixnum)) |
(random most-positive-fixnum)) |
12 |
|
((and (listp type) |
13 |
|
(eql (car type) 'integer) |
14 |
|
(integerp (cadr type)) |
15 |
|
(integerp (caddr type)) |
16 |
|
(null (cdddr type))) |
17 |
|
(+ (cadr type) (random (- (1+ (caddr type)) (cadr type))))) |
18 |
((subtypep* '(integer 0 255) type) |
((subtypep* '(integer 0 255) type) |
19 |
(random 255)) |
(random 255)) |
20 |
((subtypep* '(integer 0 7) type) |
((subtypep* '(integer 0 7) type) |
137 |
|
|
138 |
(defun make-random-rd-params (maxlen) |
(defun make-random-rd-params (maxlen) |
139 |
"Generate random paramaters for remove/delete/etc. functions." |
"Generate random paramaters for remove/delete/etc. functions." |
140 |
(let* ((element-type t) |
(let* ((element-type |
141 |
|
(rcase |
142 |
|
(2 t) |
143 |
|
(1 'bit) |
144 |
|
(1 '(integer 0 2)) |
145 |
|
(1 'symbol))) |
146 |
(type-select (random 7)) |
(type-select (random 7)) |
147 |
(type |
(type |
148 |
(case type-select |
(case type-select |