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