Skip to content
Snippets Groups Projects
Commit 965178a1 authored by pfdietz's avatar pfdietz
Browse files

Modify print.char.[89] so results on failure are more useful

parent 527c8d33
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment