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