(let ((rt (copy-readtable nil))) (set-syntax-from-char ## #\A rt (copy-readtable nil)) (get-dispatch-macro-character ## #\x rt))

should signal an error as ## is no longer a dispatching macro character.

-T.