Plaster
New
List
Login
common-lisp
default
anonymous
2020.11.05 20:34:10
(let ((package (find-package "CL")) (maybe '())) (do-all-symbols (sym "SB-KERNEL") (when (fboundp sym) (let ((count (handler-case (funcall sym package) (condition (c) (declare (ignore c)) nil)))) (when (eql count 978) (push sym maybe))))) maybe)
Raw
Annotate
Repaste
Edit