;;; Loading "/home/bojohan/cvs/slime/swank.lisp" Iteration in LOOP follows body code. Current LOOP context: FOR EL = (AREF VECTOR IDX) DO. Broken at LOAD. SWANK>>

2006-12-06 Johan Bockgård bojohan+sf@dd.chalmers.se

* swank.lisp (fuzzy-completion-set): Don't mix for clauses and body clauses in loop.

--- swank.lisp 06 Dec 2006 10:06:07 +0100 1.420 +++ swank.lisp 06 Dec 2006 11:46:39 +0100 @@ -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))))))