To get related variables only from cl-user
, you iterate over all related characters with do-symbols
and exclude characters that are imported from other packages:
(let ((external-symbols (mapcan (lambda (pkg) (let (rez) (do-symbols (s pkg rez) (push s rez)))) (package-use-list (find-package 'cl-user))))) (do-symbols (s 'cl-user) (when (and (boundp s) (not (member s external-symbols))) (print s))))
source share