39 |
|
|
40 |
(defvar *maximum-random-int-bits* 45) |
(defvar *maximum-random-int-bits* 45) |
41 |
|
|
42 |
(defvar *compile-unoptimized-form* #-clisp t #+clisp nil) |
(defvar *compile-unoptimized-form* |
43 |
|
#-(or gcl clisp) t |
44 |
|
#+(or gcl clisp) nil) |
45 |
|
|
46 |
(declaim (special *vars*)) |
(declaim (special *vars*)) |
47 |
|
|
145 |
`(,op ,(make-random-integer-form (1- size))))) |
`(,op ,(make-random-integer-form (1- size))))) |
146 |
(2 `(isqrt (abs ,(make-random-integer-form (- size 2))))) |
(2 `(isqrt (abs ,(make-random-integer-form (- size 2))))) |
147 |
|
|
148 |
|
#-cmu |
149 |
(2 |
(2 |
150 |
(destructuring-bind (s1 s2) |
(destructuring-bind (s1 s2) |
151 |
(random-partition (- size 2) 2) |
(random-partition (- size 2) 2) |