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-=+_~!@$%^&*{}[]<>/?.") |
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") |
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()") |