Tells all the packages that inherit a symbol and what their export status is:
;; by shinmera, Discord, 2025-04
(defun who-uses-symbol (symbol)
(let ((f ()))
(dolist (p (list-all-packages))
(multiple-value-bind (found status) (find-symbol (string symbol) p)
(when (eq symbol found)
(push (list status (package-name p)) f))))
(format T "~{~&~{~10a ~a~}~}" (sort f #'string< :key #'first))))related: list internal (and external) symbols #39
Tells all the packages that inherit a symbol and what their export status is:
related: list internal (and external) symbols #39