Вы можете использовать do-all-symbols
.
См. здесь для аналогичного вопроса. Принятый ответ также содержит некоторые сведения о пакетах, что очень удобно.
Примерно так в коде. Определите useful-symbol-p
, как считаете нужным:
(let ((lst ()))
(do-all-symbols (s lst)
(when (useful-symbol-p s) (push s lst)))
lst)