/[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.2 by pfdietz, Mon Jan 17 01:55:58 2005 UTC revision 1.3 by pfdietz, Tue Jan 18 13:51:35 2005 UTC
# Line 18  Line 18 
18  (def-read-suppress-test read-suppress.3 "::")  (def-read-suppress-test read-suppress.3 "::")
19  (def-read-suppress-test read-suppress.4 ":::")  (def-read-suppress-test read-suppress.4 ":::")
20  (def-read-suppress-test read-suppress.5 "123.45")  (def-read-suppress-test read-suppress.5 "123.45")
21  (def-read-suppress-test read-suppress.6 ".")  ;; (def-read-suppress-test read-suppress.6 ".")
22  (def-read-suppress-test read-suppress.7 "..")  (def-read-suppress-test read-suppress.7 "..")
23  (def-read-suppress-test read-suppress.8 "...")  (def-read-suppress-test read-suppress.8 "...")
24  (def-read-suppress-test read-suppress.9 "(1 2)")  (def-read-suppress-test read-suppress.9 "(1 2)")
25  (def-read-suppress-test read-suppress.10 "(1 . 2)")  (def-read-suppress-test read-suppress.10 "(1 . 2)")
26  (def-read-suppress-test read-suppress.11 "(1 . 2 . 3)")  (def-read-suppress-test read-suppress.11 "(1 .. 2 . 3)")
27  (def-read-suppress-test read-suppress.12 "(. 2)")  (def-read-suppress-test read-suppress.12 "(...)")
28    
29  (defparameter *non-macro-chars*  (defparameter *non-macro-chars*
30    "1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-=+_~!@$%^&*{}[]<>/?.")    "1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-=+_~!@$%^&*{}[]<>/?.")
# Line 166  Line 166 
166  (def-read-suppress-test read-suppress.sharp-c.12 "#1C(1 2)")  (def-read-suppress-test read-suppress.sharp-c.12 "#1C(1 2)")
167  (def-read-suppress-test read-suppress.sharp-c.13 "#10c(1 2)")  (def-read-suppress-test read-suppress.sharp-c.13 "#10c(1 2)")
168  (def-read-suppress-test read-suppress.sharp-c.14 "#123456789c(1 2)")  (def-read-suppress-test read-suppress.sharp-c.14 "#123456789c(1 2)")
169  (def-read-suppress-test read-suppress.sharp-c.15 "#c(.)")  (def-read-suppress-test read-suppress.sharp-c.15 "#c(..)")
170    
171  (def-read-suppress-test read-suppress.sharp-x.1 "#x0")  (def-read-suppress-test read-suppress.sharp-x.1 "#x0")
172  (def-read-suppress-test read-suppress.sharp-x.2 "#X1")  (def-read-suppress-test read-suppress.sharp-x.2 "#X1")
# Line 197  Line 197 
197  (def-read-suppress-test read-suppress.sharp-a.5 "#10a(a b c)")  (def-read-suppress-test read-suppress.sharp-a.5 "#10a(a b c)")
198  (def-read-suppress-test read-suppress.sharp-a.6 "#100a(a b c)")  (def-read-suppress-test read-suppress.sharp-a.6 "#100a(a b c)")
199  (def-read-suppress-test read-suppress.sharp-a.7 "#10000000000000a(a b c)")  (def-read-suppress-test read-suppress.sharp-a.7 "#10000000000000a(a b c)")
200  (def-read-suppress-test read-suppress.sharp-a.8 "#a.")  (def-read-suppress-test read-suppress.sharp-a.8 "#a..")
201  (def-read-suppress-test read-suppress.sharp-a.9 "#a(.)")  (def-read-suppress-test read-suppress.sharp-a.9 "#a(...)")
202    
203  (def-read-suppress-test read-suppress.sharp-s.1 "#s()")  (def-read-suppress-test read-suppress.sharp-s.1 "#s()")
204  (def-read-suppress-test read-suppress.sharp-s.2 "#S(invalid-sname)")  (def-read-suppress-test read-suppress.sharp-s.2 "#S(invalid-sname)")
205  (def-read-suppress-test read-suppress.sharp-s.3 "#s(.)")  (def-read-suppress-test read-suppress.sharp-s.3 "#s(..)")
206  (def-read-suppress-test read-suppress.sharp-s.4 "#S(foo bar)")  (def-read-suppress-test read-suppress.sharp-s.4 "#S(foo bar)")
207  (def-read-suppress-test read-suppress.sharp-s.5 "#0s()")  (def-read-suppress-test read-suppress.sharp-s.5 "#0s()")
208  (def-read-suppress-test read-suppress.sharp-s.6 "#1S()")  (def-read-suppress-test read-suppress.sharp-s.6 "#1S()")

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

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