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

[Luke Gorrie]

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

Modified Files:
	swank.lisp 
Log Message:
*** empty log message ***
Date: Wed Apr  7 06:20:41 2004
Author: lgorrie

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