diff --git a/ansi-tests/random-int-form.lsp b/ansi-tests/random-int-form.lsp index 9fa99b0210eb5360b780dec1fec5b58afbb9581c..e421688c4f639bf4b4edef83ac68207e3da422ca 100644 --- a/ansi-tests/random-int-form.lsp +++ b/ansi-tests/random-int-form.lsp @@ -39,7 +39,9 @@ (defvar *maximum-random-int-bits* 45) -(defvar *compile-unoptimized-form* #-clisp t #+clisp nil) +(defvar *compile-unoptimized-form* + #-(or gcl clisp) t + #+(or gcl clisp) nil) (declaim (special *vars*)) @@ -143,6 +145,7 @@ `(,op ,(make-random-integer-form (1- size))))) (2 `(isqrt (abs ,(make-random-integer-form (- size 2))))) + #-cmu (2 (destructuring-bind (s1 s2) (random-partition (- size 2) 2)