如何找到包含lisp表单的asdf系统？

Question

有没有办法确定asdf系统包含一段代码？显然：

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

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

我可以满足于：

• 确定当前源文件的便携方式。
• 确定包的源系统的方法。