From 12b114ae40a5a7911625d8df49e0ea30d3e606a5 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 23 Aug 2005 13:59:50 +0000
Subject: [PATCH] Modift print.array.2.21 to trim the failure list for
 readability.

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

diff --git a/ansi-tests/print-array.lsp b/ansi-tests/print-array.lsp
index 8b2d5896..f0597383 100644
--- a/ansi-tests/print-array.lsp
+++ b/ansi-tests/print-array.lsp
@@ -312,10 +312,14 @@
   "#2A((3 8) (2 67))")
 
 (deftest print.array.2.21
-  (loop for a = (make-array (list (random 4) (random 4))
-			    :initial-element (- (random 1000000) 500000))
-	repeat 100 nconc (randomly-check-readability a :test #'is-similar
-						     :can-fail t))
+  (trim-list
+   (loop
+      for dims = (list (random 4) (random 4))
+      for a = (make-array dims :initial-element (- (random 1000000) 500000))
+      repeat 100
+      nconc (let ((result (randomly-check-readability a :test #'is-similar :can-fail t)))
+	      (and result (list (cons dims (first result))))))
+   10)
   nil)
 
 (deftest print.array.2.22
-- 
GitLab