From ac9c057c58a9e497849e50c17380d2558766c169 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 8 Jun 2004 00:02:10 +0000
Subject: [PATCH] array-rank-limit may be as small as 8.  Fix two tests that
 assumed otherwise.

---
 ansi-tests/print-array.lsp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/ansi-tests/print-array.lsp b/ansi-tests/print-array.lsp
index 140b88d2..4b98503c 100644
--- a/ansi-tests/print-array.lsp
+++ b/ansi-tests/print-array.lsp
@@ -416,7 +416,9 @@
 
 (deftest print.array.multi-dim.1
   (with-standard-io-syntax
-   (loop for d in '(4 5 6 7 8 9 10 12 16 20 30 40 100 200 400 600 800 1023)
+   (loop for d in (remove array-rank-limit
+			  '(4 5 6 7 8 9 10 12 16 20 30 40 100 200 400 600 800 1023)
+			  :test #'<=)
 	 for dims = (make-list d :initial-element 1)
 	 for a = (make-array dims :initial-element 0)
 	 for result = (with-standard-io-syntax
@@ -433,7 +435,7 @@
 
 (deftest print.array.multi-dim.2
   (with-standard-io-syntax
-   (loop for d = (+ 4 (random 1020))
+   (loop for d = (+ 4 (random (min (- array-rank-limit 4) 1000)))
 	 for p = (random d)
 	 for dims = (let ((list (make-list d :initial-element 1)))
 		      (setf (elt list p) 0)
-- 
GitLab