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)))))
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)))))