[slime-cvs] CVS slime

[mbaringer]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv26689

Modified Files:
	swank.lisp 
Log Message:


--- /project/slime/cvsroot/slime/swank.lisp	2006/12/05 13:54:34	1.420
+++ /project/slime/cvsroot/slime/swank.lisp	2006/12/06 11:36:10	1.421
@@ -3460,8 +3460,7 @@
       (parse-completion-arguments string default-package-name)
     (flet ((convert (vector &optional converter)
              (when vector
-               (loop for idx :upfrom 0
-                     while (< idx (length vector))
+               (loop for idx below (length vector)
                      for el = (aref vector idx)
                      do (setf (aref vector idx) (convert-fuzzy-completion-result
                                                  el converter internal-p package-name))))))