78 |
for c = (code-char i) |
for c = (code-char i) |
79 |
repeat 1000 |
repeat 1000 |
80 |
unless (null c) |
unless (null c) |
81 |
nconc (randomly-check-readability c)) |
nconc (let ((result (randomly-check-readability c))) |
82 |
|
(and result (list (cons i (first result)))))) |
83 |
nil) |
nil) |
84 |
|
|
85 |
(deftest print.char.9 |
(deftest print.char.9 |
87 |
for c = (code-char i) |
for c = (code-char i) |
88 |
repeat 1000 |
repeat 1000 |
89 |
unless (null c) |
unless (null c) |
90 |
nconc (randomly-check-readability c)) |
nconc (let ((result (randomly-check-readability c))) |
91 |
|
(and result (list (cons i (first result)))))) |
92 |
nil) |
nil) |
93 |
|
|
94 |
(deftest print.char.10 |
(deftest print.char.10 |