[slime-cvs] CVS slime

[alendvai]

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

Modified Files:
	swank.lisp 
Log Message:
FIX: fuzzy completion for M-V-B. Fix by Madhu.


--- /project/slime/cvsroot/slime/swank.lisp	2006/12/12 15:40:23	1.426
+++ /project/slime/cvsroot/slime/swank.lisp	2006/12/13 16:57:47	1.427
@@ -3253,7 +3253,7 @@
 INPUT is used to guess the preferred case."
   (ecase (readtable-case *readtable*)
     (:upcase (cond ((or with-escaping-p
-                        (every #'upper-case-p input))
+                        (not (some #'lower-case-p input)))
                     #'identity)
                    (t #'string-downcase)))
     (:invert (lambda (output)
@@ -3263,7 +3263,7 @@
                        (upper (string-downcase output))
                        (t output)))))
     (:downcase (cond ((or with-escaping-p
-                          (every #'lower-case-p input))
+                          (not (some #'upper-case-p input)))
                       #'identity)
                      (t #'string-upcase)))
     (:preserve #'identity)))