>>136
何が目的なのかはしらんが、built-in functionの一覧を知りたいような人が
そのコードも書けないなんて変な話だ。

(defvar list-of-buitin-functions nil)
(defun listup-builtin-function (symbol)
(when (and (functionp symbol)
(subrp (symbol-function symbol)))
(setq list-of-buitin-functions
(cons symbol list-of-buitin-functions))))
(mapatoms 'listup-builtin-function)