Memoize

Common_Lisp_get-dispatch-macro-character

マクロ文字を登録するときは set-dispatch-macro-character を使う。

リードマクロ - OnLisp

が、その前に、登録しようとしているリードマクロが既に登録されていないか調べるには get-dispatch-macro-character を使う。

 
* (get-dispatch-macro-character #\# #\{)
 
NIL
 
* (get-dispatch-macro-character #\# #\')
 
#<FUNCTION SB-IMPL::SHARP-QUOTE>