READ modifying characters.

[RWK at MIT-MC (Robert W. Kerns)]

If SETSYNTAX ~ and : to be character macros, and the macros are EQUAL
(not only for EQ, they just need to be EQUAL!) then you get very anomolous
behaviour:
(LIST (READ) (TYI))X~<sp>    ;space to activate....
(X 72)				;X: !?!
(LIST (READ) (TYI))X:<sp>
(X 72)				;At least one of them works!
(LIST (READ) (TYIPEEK) (TYI) (TYI))X~~<sp>  ;TYIPEEK sees it too,
(X 72 72 176)			;But only the first TYI sees it, after that
				;TYI behaves normally
(LIST (READ) (TYIPEEK T) (TYI))X ~
(X 176 176)			;(TYIPEEK T) won't do it, and it only happens
				;to the character that terminates a read.