Class 列表：列出包中的所有CLOS类

我确信可以列出一个包中定义的所有类，但我不知道怎么做

有人知道答案吗

---

谢谢，

我终于编写了这段代码，它满足了我的需要：

(defun list-package-class (package)
  (let (classes) 
    (do-external-symbols (s (find-package package))
      (when (find-class s nil)
        (push s classes)))
    classes))

---

在包符号上迭代

FIND-CLASS

，并收集非nil结果。感谢您的帮助。知道这个类，有没有一种方法可以迭代它的所有实例？没有，默认情况下没有。但不难补充的是。。。