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