Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv6528/src/code
Modified Files:
target-package.lisp
Log Message:
1.0.18.8: Sort results of APROPOS-LIST and APROPOS.
Index: target-package.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/target-package.lisp,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -d -r1.44 -r1.45
--- target-package.lisp 4 Jun 2008 12:39:40 -0000 1.44
+++ target-package.lisp 30 Jun 2008 18:49:41 -0000 1.45
@@ -1339,10 +1339,10 @@
: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
|