8 lines
240 B
Common Lisp
8 lines
240 B
Common Lisp
|
|
(defun classes ()
|
|
(let ((r nil))
|
|
(maphash #'(lambda (k v)
|
|
(setf r (cons k r))) si:*class-name-hash-table*)
|
|
(sort r #'(lambda (x y)
|
|
(string<= (package-name (symbol-package x))
|
|
(package-name (symbol-package y)))))))
|