有没有办法捕捉定义 Common Lisp 包的时刻？

Question

我想收集在 ASDF 系统加载过程中定义的所有包。

已经试过了：

1. 使用系统加载前后(list-all-packages)的区别，但不是很方便，因为有些系统可以作为我正在检查的系统的依赖项加载，我需要进行集合提取.

2. 试图定义一个initialize-instance :after ((package package) &rest initargs) 方法，但在评估defpackage 表单时它没有被调用。

另外，当我快速加载一个 ASDF 系统时，我在它的输出中看到了 [package dexador]。 quicklisp 是如何做到这一点的？

Answer 1

在 Quicklisp 中，我使用了*macroexpand-hook*。