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