From b0639279b6c76ab5aa53c58c41ae472eaa361222 Mon Sep 17 00:00:00 2001 From: Richard M Kreuter Date: Mon, 30 Jun 2008 18:49:41 +0000 Subject: [PATCH] 1.0.18.8: Sort results of APROPOS-LIST and APROPOS. --- src/code/target-package.lisp | 4 ++-- version.lisp-expr | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp index 24af5a1..890bd11 100644 --- a/src/code/target-package.lisp +++ b/src/code/target-package.lisp @@ -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 diff --git a/version.lisp-expr b/version.lisp-expr index a563aa1..e62abb2 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -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" -- 1.7.10.4