From 9049678a886c6f341b191fc286f0b2e3f7336ee7 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Fri, 10 Oct 2003 03:19:59 +0000 Subject: [PATCH] Turn off ASH generation in cmucl, where it still causes too many errors. Make second form be uncompiled in gcl as well as clisp. --- ansi-tests/random-int-form.lsp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/ansi-tests/random-int-form.lsp b/ansi-tests/random-int-form.lsp index 9fa99b02..e421688c 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) -- GitLab