common-lisp - 如何找到包含 lisp 形式的 asdf 系统？

Question

有没有办法确定什么 asdf 系统包含一段代码？明显地：

(let ((p *package*))
  (defun get-package ()
    p))

获取编译代码的包是微不足道的。asdf 系统的等价物是什么？

我可以满足：

• 一种确定当前源文件的可移植方式。
• 一种确定软件包源系统的方法。