1303 |
(random-from-interval (1+ most-positive-fixnum) most-negative-fixnum)) |
(random-from-interval (1+ most-positive-fixnum) most-negative-fixnum)) |
1304 |
((complex) |
((complex) |
1305 |
(make-random-element-of-type '(complex real))) |
(make-random-element-of-type '(complex real))) |
1306 |
|
((cons) |
1307 |
|
(make-random-element-of-type '(cons t t))) |
1308 |
|
((list) |
1309 |
|
(let ((len (min (random 10) (random 10)))) |
1310 |
|
(loop repeat len collect (make-random-element-of-type t)))) |
1311 |
|
((sequence) |
1312 |
|
(make-random-element-of-type '(or list vector))) |
1313 |
)))) |
)))) |
1314 |
|
|
1315 |
(defun make-random-character () |
(defun make-random-character () |