Author: aaa. Date 2017-12-15 10:26:19, views: 263, Raw

Увеличить
(defun function-symbols (f)
 (let ((lst ()))
  (do-all-symbols (s lst)
   (if (and (fboundp s)
            (eq (symbol-function s) f))
     (push s lst)))))