set-dispatch-macro-character
builtin-function
(set-dispatch-macro-character dispatch-char sub-char handler &key (readtable $readtable))
TO DO