(replace (character-macro-table really-to-readtable)
(character-macro-table really-from-readtable))
(setf (dispatch-tables really-to-readtable)
(replace (character-macro-table really-to-readtable)
(character-macro-table really-from-readtable))
(setf (dispatch-tables really-to-readtable)