diff --git a/ansi-tests/print-characters.lsp b/ansi-tests/print-characters.lsp index 03f7c9d4043a6becf0d80b541ddd178949820512..2dc6c51897588b848d15e37e6a3cfd347cfa709c 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