package))
(remove super
(sb-mop:class-direct-superclasses this))))
- (dolist (sub (reverse (gethash this subs)))
+ (dolist (sub (sort (copy-list (gethash this subs))
+ #'string< :key #'class-name))
(walk-down sub this (1+ depth)))))
(walk-down (find-class t) nil 0))))
(labels ((components (comp)
(slot-value comp 'asdf::components))
(files (comp)
- (remove-if-not (lambda (comp)
+ (sort (remove-if-not (lambda (comp)
(typep comp 'asdf:cl-source-file))
- (components comp)))
+ (components comp))
+ #'string< :key #'asdf:component-name))
(by-name (comp name)
(find name (components comp)
:test #'string= :key #'asdf:component-name))