Parent Directory | Revision Log | Patch
revision 1.5 by pfdietz, Mon Sep 8 11:04:33 2003 UTC | revision 1.6 by pfdietz, Mon Sep 8 13:16:22 2003 UTC | |
---|---|---|
# | Line 24 | Line 24 |
24 | (deftest parse-integer.error.5 | (deftest parse-integer.error.5 |
25 | (loop for x across +standard-chars+ | (loop for x across +standard-chars+ |
26 | unless (or (digit-char-p x) | unless (or (digit-char-p x) |
27 | (eq (eval `(classify-error (parse-integer ,(string c)))) | (eq (eval `(classify-error (parse-integer ,(string x)))) |
28 | 'parse-error)) | 'parse-error)) |
29 | collect x) | collect x) |
30 | nil) | nil) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |