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

[Luke Gorrie]

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

Modified Files:
	swank.lisp 
Log Message:
(find-matching-packages): Add a ":" to the end of package names in
completion.

Date: Wed Apr  7 06:06:15 2004
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.162 slime/swank.lisp:1.163
--- slime/swank.lisp:1.162	Wed Apr  7 05:53:25 2004
+++ slime/swank.lisp	Wed Apr  7 06:06:13 2004
@@ -1349,8 +1349,10 @@
 (defun find-matching-packages (name matcher)
   "Return a list of package names matching NAME."
   (let ((to-match (string-upcase name)))
-    (remove-if-not #'(lambda (x) (funcall matcher to-match x))
-                   (mapcar #'package-name (list-all-packages)))))
+    (mapcar (lambda (pkgname)
+              (concatenate 'string pkgname ":"))
+            (remove-if-not (lambda (x) (funcall matcher to-match x))
+                           (mapcar #'package-name (list-all-packages))))))
 
 (defun completion-set (string default-package-name matchp)
   (declare (type simple-base-string string))