以前から探してて、あるにはあった。
ココによると、 si::*builtin-function-p だそうな。
ただ、ちょっと使いにくいので、ラップしとく。
(defun builtin-function-p (symbol) "symbol がビルトイン関数かどうかを返す。" (and (fboundp symbol) (si::*builtin-function-p (symbol-function symbol))))
以前から探してて、あるにはあった。
ココによると、 si::*builtin-function-p だそうな。
ただ、ちょっと使いにくいので、ラップしとく。
(defun builtin-function-p (symbol) "symbol がビルトイン関数かどうかを返す。" (and (fboundp symbol) (si::*builtin-function-p (symbol-function symbol))))