From 1aecbe0c7b107675f3963a46d1e917f7b1c8586b Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Tue, 18 Jan 2005 13:51:35 +0000 Subject: [PATCH] Rolled back some tests that assume '.' by itself in wrong places should be ignored when *read-suppress* it true --- ansi-tests/read-suppress.lsp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/ansi-tests/read-suppress.lsp b/ansi-tests/read-suppress.lsp index edb4e703..0a93829e 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()") -- GitLab