Plaster
New
List
Login
common-lisp
default
shinmera
2023.05.01 07:42:02
(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))))
Raw
Annotate
Repaste