Commit eb1d6e1e authored by Marius Gerbershagen's avatar Marius Gerbershagen

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
......@@ -69,6 +69,9 @@
(def-random-suppress-test read-suppress.15 :prefix "#(" :suffix ")")
(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.2 "#\\:x")
(def-read-suppress-test read-suppress.sharp-slash.3 "#\\::::")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment