diff --git a/ansi-tests/read-suppress.lsp b/ansi-tests/read-suppress.lsp index edb4e703b9692d091b245e5c831383bfa39742d8..0a93829ee59a91a5004e63391dfe44ea32118cc6 100644 --- a/ansi-tests/read-suppress.lsp +++ b/ansi-tests/read-suppress.lsp @@ -18,13 +18,13 @@ (def-read-suppress-test read-suppress.3 "::") (def-read-suppress-test read-suppress.4 ":::") (def-read-suppress-test read-suppress.5 "123.45") -(def-read-suppress-test read-suppress.6 ".") +;; (def-read-suppress-test read-suppress.6 ".") (def-read-suppress-test read-suppress.7 "..") (def-read-suppress-test read-suppress.8 "...") (def-read-suppress-test read-suppress.9 "(1 2)") (def-read-suppress-test read-suppress.10 "(1 . 2)") -(def-read-suppress-test read-suppress.11 "(1 . 2 . 3)") -(def-read-suppress-test read-suppress.12 "(. 2)") +(def-read-suppress-test read-suppress.11 "(1 .. 2 . 3)") +(def-read-suppress-test read-suppress.12 "(...)") (defparameter *non-macro-chars* "1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-=+_~!@$%^&*{}[]<>/?.") @@ -166,7 +166,7 @@ (def-read-suppress-test read-suppress.sharp-c.12 "#1C(1 2)") (def-read-suppress-test read-suppress.sharp-c.13 "#10c(1 2)") (def-read-suppress-test read-suppress.sharp-c.14 "#123456789c(1 2)") -(def-read-suppress-test read-suppress.sharp-c.15 "#c(.)") +(def-read-suppress-test read-suppress.sharp-c.15 "#c(..)") (def-read-suppress-test read-suppress.sharp-x.1 "#x0") (def-read-suppress-test read-suppress.sharp-x.2 "#X1") @@ -197,12 +197,12 @@ (def-read-suppress-test read-suppress.sharp-a.5 "#10a(a b c)") (def-read-suppress-test read-suppress.sharp-a.6 "#100a(a b c)") (def-read-suppress-test read-suppress.sharp-a.7 "#10000000000000a(a b c)") -(def-read-suppress-test read-suppress.sharp-a.8 "#a.") -(def-read-suppress-test read-suppress.sharp-a.9 "#a(.)") +(def-read-suppress-test read-suppress.sharp-a.8 "#a..") +(def-read-suppress-test read-suppress.sharp-a.9 "#a(...)") (def-read-suppress-test read-suppress.sharp-s.1 "#s()") (def-read-suppress-test read-suppress.sharp-s.2 "#S(invalid-sname)") -(def-read-suppress-test read-suppress.sharp-s.3 "#s(.)") +(def-read-suppress-test read-suppress.sharp-s.3 "#s(..)") (def-read-suppress-test read-suppress.sharp-s.4 "#S(foo bar)") (def-read-suppress-test read-suppress.sharp-s.5 "#0s()") (def-read-suppress-test read-suppress.sharp-s.6 "#1S()")