From d88106964311337371779afbea77ae6b3755537f Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 11 Oct 2003 16:00:15 +0000
Subject: [PATCH] I've removed the conditionalization of an ASH case.  This
 increases the number of failures under cmucl so that
 (test-random-integer-forms 100 3 ...) fails about 5% of the iterations there.
  Also added an ASH example to misc.lsp

---
 ansi-tests/misc.lsp            | 6 ++++++
 ansi-tests/random-int-form.lsp | 1 -
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 0df0ef79..6d2bd4b8 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -943,3 +943,9 @@
 		   (rem c (min -1 0))))
    87723029763)
   0)
+
+(deftest misc.74
+  (funcall (compile nil '(lambda ()
+			   (declare (optimize (safety 3) (speed 0) (debug 0)))
+			   (ash 6916244 (min 42 -185236061640)))))
+  0)
diff --git a/ansi-tests/random-int-form.lsp b/ansi-tests/random-int-form.lsp
index 107e509f..5815d5c4 100644
--- a/ansi-tests/random-int-form.lsp
+++ b/ansi-tests/random-int-form.lsp
@@ -151,7 +151,6 @@
 	`(,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