ビルトイン関数かどうか

以前から探してて、あるにはあった。

ココによると、 si::*builtin-function-p だそうな。

ただ、ちょっと使いにくいので、ラップしとく。

(defun builtin-function-p (symbol)
"symbol がビルトイン関数かどうかを返す。"
(and (fboundp symbol)
(si::*builtin-function-p (symbol-function symbol))))