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