列表：列出包中的所有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))