[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (all-completions): Remove mixed case syms e.g |Foo|.
"fo" is not a prefix of "|Foo|" and it would be problematic later.

--- /project/slime/cvsroot/slime/ChangeLog	2011/10/05 11:58:00	1.2218
+++ /project/slime/cvsroot/slime/ChangeLog	2011/10/13 09:24:02	1.2219
@@ -1,3 +1,8 @@
+2011-10-13  Helmut Eller  <heller at common-lisp.net>
+
+	* swank.lisp (all-completions): Remove mixed case syms e.g |Foo|.
+	"fo" is not a prefix of "|Foo|" and it would be problematic later.
+
 2011-10-05  Stas Boukarev  <stassats at gmail.com>
 
 	* swank.lisp (clear-repl-variables): New functions, clears *, /,
--- /project/slime/cvsroot/slime/swank.lisp	2011/10/05 11:58:00	1.753
+++ /project/slime/cvsroot/slime/swank.lisp	2011/10/13 09:24:03	1.754
@@ -3050,8 +3050,12 @@
                       ((not pname) (guess-buffer-package package))
                       (t (guess-package pname))))
 	   (test (lambda (sym) (prefix-match-p name (symbol-name sym))))
-	   (syms (and pkg (matching-symbols pkg extern test))))
-      (format-completion-set (mapcar #'unparse-symbol syms) intern pname))))
+	   (syms (and pkg (matching-symbols pkg extern test)))
+           (strings (loop for sym in syms
+                          for str = (unparse-symbol sym)
+                          when (prefix-match-p name str) ; remove |Foo|
+                          collect str)))
+      (format-completion-set strings intern pname))))
 
 (defun matching-symbols (package external test)
   (let ((test (if external