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