Skip to content
Snippets Groups Projects
Commit eb1d6e1e authored by Marius Gerbershagen's avatar Marius Gerbershagen
Browse files

add new test for *read-suppress*

    According to the example in the CLHS documentation
    on *read-suppress*, undefined macro dispatch characters should not
    signal an error
parent 8a57eee5
No related branches found
No related tags found
No related merge requests found
...@@ -69,6 +69,9 @@ ...@@ -69,6 +69,9 @@
(def-random-suppress-test read-suppress.15 :prefix "#(" :suffix ")") (def-random-suppress-test read-suppress.15 :prefix "#(" :suffix ")")
(def-random-suppress-test read-suppress.16 :chars "0123456789.eEfFsSdDlL+-") (def-random-suppress-test read-suppress.16 :chars "0123456789.eEfFsSdDlL+-")
;; Undefined macro dispatch characters should not signal an error
(def-read-suppress-test read-suppress.17 "#garbage")
(def-read-suppress-test read-suppress.sharp-slash.1 "#\\boguscharname") (def-read-suppress-test read-suppress.sharp-slash.1 "#\\boguscharname")
(def-read-suppress-test read-suppress.sharp-slash.2 "#\\:x") (def-read-suppress-test read-suppress.sharp-slash.2 "#\\:x")
(def-read-suppress-test read-suppress.sharp-slash.3 "#\\::::") (def-read-suppress-test read-suppress.sharp-slash.3 "#\\::::")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment