[slime-cvs] CVS update: slime/ChangeLog slime/swank.lisp

[Edi Weitz]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv23921

Modified Files:
	ChangeLog swank.lisp 
Log Message:
Add package nicknames to completion results

Date: Tue Jun 21 20:28:58 2005
Author: eweitz

Index: slime/ChangeLog
diff -u slime/ChangeLog:1.715 slime/ChangeLog:1.716
--- slime/ChangeLog:1.715	Mon Jun 13 11:34:53 2005
+++ slime/ChangeLog	Tue Jun 21 20:28:58 2005
@@ -1,3 +1,7 @@
+2005-06-21  Edi Weitz  <edi at agharta.de>
+
+	* swank.lisp (find-matching-packages): Also use nicknames.
+
 2005-06-13  Edi Weitz  <edi at agharta.de>
 
 	* swank.lisp (list-all-systems-in-central-registry): Delete


Index: slime/swank.lisp
diff -u slime/swank.lisp:1.308 slime/swank.lisp:1.309
--- slime/swank.lisp:1.308	Mon Jun 13 11:34:53 2005
+++ slime/swank.lisp	Tue Jun 21 20:28:58 2005
@@ -2383,7 +2383,9 @@
     (remove-if-not (lambda (x) (funcall matcher to-match x))
                    (mapcar (lambda (pkgname)
                              (concatenate 'string pkgname ":"))
-                           (mapcar #'package-name (list-all-packages))))))
+                           (loop for package in (list-all-packages)
+                                 collect (package-name package)
+                                 append (package-nicknames package))))))
 
 (defun parse-completion-arguments (string default-package-name)
   "Parse STRING as a symbol designator.