[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv20470

Modified Files:
	ChangeLog swank-c-p-c.lisp 
Log Message:
* swank-c-p-c.lisp (longest-compound-prefix): Wrong arguments for
longest-common-prefix.
Reported by Peter Stirling.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/09/07 03:05:17	1.415
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/09/09 08:28:21	1.416
@@ -1,3 +1,9 @@
+2010-09-09  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-c-p-c.lisp (longest-compound-prefix): Wrong arguments for
+	longest-common-prefix.
+	Reported by Peter Stirling.
+
 2010-09-07  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-c-p-c.lisp: s/delimeter/delimiter/, correct spelling.
--- /project/slime/cvsroot/slime/contrib/swank-c-p-c.lisp	2010/09/07 03:05:17	1.6
+++ /project/slime/cvsroot/slime/contrib/swank-c-p-c.lisp	2010/09/09 08:28:21	1.7
@@ -251,7 +251,7 @@
            if (notevery #'string= token-list (rest token-list))
            ;; Note that we possibly collect the "" here as well, so that
            ;; UNTOKENIZE-COMPLETION will append a delimiter for us.
-             collect (longest-common-prefix token-list delimiter)
+             collect (longest-common-prefix token-list)
              and do (loop-finish)
            else collect (first token-list))
      delimiter)))