clast
CLAST is a Common Lisp library that can produce an "abstract syntax tree" of a "form". Its main use is for source analysis and transformation, e.g., extracting the "free variables" list from a form.
$ area51 add clastCopyUsage
;; area51 add updates your .asd automatically.
;; Use the package in your code:
(in-package :my-project)
(clast:some-function ...)