Commit 965178a1 authored by pfdietz's avatar pfdietz
Browse files

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

parent 527c8d33
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment