[slime-cvs] CVS slime

[mbaringer]

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

Modified Files:
	swank.lisp 
Log Message:
(fuzzy-find-matching-packages): Fix a small typo that
prevented interpreting NIL as the argument TIME-LIMIT-IN-MEC to
mean an infinite time limit. This bug propagated up to explicit
calls to FUZZY-COMPLETIONS, like 
   (swank:fuzzy-completions "mvb" "COMMON-LISP") => (NIL, T)

(format-fuzzy-completions): Renamed to FORMAT-FUZZY-COMPLETION-SET

(format-fuzzy-completion-set): Accomodated to recent changes of
the return value of FUZZY-COMPLETIONS; changed the docstring to
make it explicit that this function is supposed to take the return
value of FUZZY-COMPLETION-SET.


--- /project/slime/cvsroot/slime/swank.lisp	2007/04/08 23:07:53	1.474
+++ /project/slime/cvsroot/slime/swank.lisp	2007/04/16 14:24:35	1.475
@@ -3863,7 +3863,7 @@
     (declare (type boolean time-limit-p))
     (declare (type integer time-limit rtime-at-start))
     (declare (type function converter))
-    (if (and time-limit (<= time-limit 0))
+    (if (and time-limit-p (<= time-limit 0))
         (values #() time-limit)
         (loop for package in (list-all-packages)
               for package-name   = (package-name package)
@@ -4103,9 +4103,10 @@
                                             (length (second chunk))))))
     highlit))
 
-(defun format-fuzzy-completions (winners)
+(defun format-fuzzy-completion-set (winners)
   "Given a list of completion objects such as on returned by
-FUZZY-COMPLETIONS, format the list into user-readable output."
+FUZZY-COMPLETION-SET, format the list into user-readable output
+for interactive debugging purpose."
   (let ((max-len 
          (loop for winner in winners maximizing (length (first winner)))))
     (loop for (sym score result) in winners do