diff --git a/ansi-tests/print-array.lsp b/ansi-tests/print-array.lsp index 8b2d58961464739aa152e023472e3ec899fe0f1b..f05973833ba2397e158a1d849447e182b9174030 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