/[gcl]/gcl/ansi-tests/parse-integer.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/parse-integer.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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