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