/[gcl]/gcl/ansi-tests/read-suppress.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/read-suppress.lsp

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

revision 1.1 by pfdietz, Sun Jan 16 03:10:52 2005 UTC revision 1.2 by pfdietz, Mon Jan 17 01:55:58 2005 UTC
# Line 33  Line 33 
33    
34  (defmacro def-random-suppress-test (name &key  (defmacro def-random-suppress-test (name &key
35                                           (chars '*non-macro-chars*)                                           (chars '*non-macro-chars*)
36                                           (reps 10000)                                           (reps 1000)
37                                           (maxlen 8)                                           (maxlen 8)
38                                           (count 10)                                           (count 10)
39                                           (prefix "")                                           (prefix "")
# Line 56  Line 56 
56               for vals = (multiple-value-list               for vals = (multiple-value-list
57                           (handler-case (read-from-string s)                           (handler-case (read-from-string s)
58                                         (reader-error (rc) rc)))                                         (reader-error (rc) rc)))
59               repeat 10000               repeat reps
60               unless (equal vals (list nil (length s)))               unless (equal vals (list nil (length s)))
61               collect (progn (when (> (incf count) maxcount)               collect (progn (when (> (incf count) maxcount)
62                                (loop-finish))                                (loop-finish))
63                              (list n s vals))))                              (list n s vals))))
64       nil))       nil))                                      
                                           
65    
66  (def-random-suppress-test read-suppress.13)  (def-random-suppress-test read-suppress.13)
67  (def-random-suppress-test read-suppress.14 :prefix "(" :suffix ")")  (def-random-suppress-test read-suppress.14 :prefix "(" :suffix ")")

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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