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