From 965178a1308bc329fe40d772489b38e51c099349 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Tue, 23 Aug 2005 14:01:58 +0000 Subject: [PATCH] Modify print.char.[89] so results on failure are more useful --- ansi-tests/print-characters.lsp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/ansi-tests/print-characters.lsp b/ansi-tests/print-characters.lsp index 03f7c9d4..2dc6c518 100644 --- a/ansi-tests/print-characters.lsp +++ b/ansi-tests/print-characters.lsp @@ -78,7 +78,8 @@ for c = (code-char i) repeat 1000 unless (null c) - nconc (randomly-check-readability c)) + nconc (let ((result (randomly-check-readability c))) + (and result (list (cons i (first result)))))) nil) (deftest print.char.9 @@ -86,7 +87,8 @@ for c = (code-char i) repeat 1000 unless (null c) - nconc (randomly-check-readability c)) + nconc (let ((result (randomly-check-readability c))) + (and result (list (cons i (first result)))))) nil) (deftest print.char.10 -- GitLab