diff --git a/reader/read-suppress.lsp b/reader/read-suppress.lsp index 8960d36dabbc5294ee3a7bc1c296f035d6a85920..86073f19e3aeb2d4360d125c348413e4ad013954 100644 --- a/reader/read-suppress.lsp +++ b/reader/read-suppress.lsp @@ -69,8 +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") +;; Undefined macro dispatch characters MAY signal an error - +;; the behaviour is undefined in this case +;; (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")