;;; The specification is not totally clear about it, but I think ;;; SET-SYNTAX-FROM-CHAR should clear a character's associated ;;; dispatch tables when the FROM character is not a ;;; dispatch macro character.

;;; I.e. the following should signal an error.

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