1.0.18.8: Sort results of APROPOS-LIST and APROPOS.
authorRichard M Kreuter <kreuter@users.sourceforge.net>
Mon, 30 Jun 2008 18:49:41 +0000 (18:49 +0000)
committerRichard M Kreuter <kreuter@users.sourceforge.net>
Mon, 30 Jun 2008 18:49:41 +0000 (18:49 +0000)
src/code/target-package.lisp
version.lisp-expr

index 24af5a1..890bd11 100644 (file)
@@ -1339,10 +1339,10 @@ PACKAGE."
                              :external))
                      (search string (symbol-name symbol) :test #'char-equal))
             (push symbol result)))
-        result)
+        (sort result #'string-lessp))
       (mapcan (lambda (package)
                 (apropos-list string-designator package external-only))
-              (list-all-packages))))
+              (sort (list-all-packages) #'string-lessp :key #'package-name))))
 
 (defun apropos (string-designator &optional package external-only)
   #!+sb-doc
index a563aa1..e62abb2 100644 (file)
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.18.7"
+"1.0.18.8"