class - 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))