From 7a35400d896e6697902c2880afeba66965bd0f38 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sun, 30 Aug 2015 10:58:38 +0100 Subject: [PATCH] doc/list-exports.lisp: Sort sibling classes by name in the tree. --- doc/list-exports.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/doc/list-exports.lisp b/doc/list-exports.lisp index 71a06d9..710da87 100644 --- a/doc/list-exports.lisp +++ b/doc/list-exports.lisp @@ -181,7 +181,8 @@ 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)))) @@ -206,9 +207,10 @@ (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)) -- 2.11.0