List:列出包中的所有CLOS类

Question

我确信可以列出包中定义的所有类，但我不知道如何做到。

有人知道答案吗？

谢谢，

Answer 1

我终于编写了这段代码，它完成了我所需要的：

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