長い関数orマクロ名トップ20
(let (syms)
(do-external-symbols (s :cl)
(when (fboundp s) (push `(,(length (symbol-name s)) ,s) syms)))
(format t "~20{~{~2D : ~A~}~%~}" (sort syms #'> :key #'car)))

使った事あるのset-dispatch-macro-characterしかねえ