/[gcl]/gcl/ansi-tests/print-characters.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/print-characters.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by pfdietz, Sun Apr 18 00:22:26 2004 UTC revision 1.8 by pfdietz, Tue Aug 23 14:01:58 2005 UTC
# Line 78  Line 78 
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
# Line 86  Line 87 
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

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26