[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-check-fancy-symbol-name): Don't update the loop
index inside the loop body.

--- /project/slime/cvsroot/slime/ChangeLog	2009/06/20 10:02:34	1.1787
+++ /project/slime/cvsroot/slime/ChangeLog	2009/06/20 10:02:46	1.1788
@@ -1,5 +1,10 @@
 2009-06-20  Helmut Eller  <heller at common-lisp.net>
 
+	* slime.el (slime-check-fancy-symbol-name): Don't update the loop
+	index inside the loop body.
+
+2009-06-20  Helmut Eller  <heller at common-lisp.net>
+
 	* swank-openmcl.lisp (emacs-connected): Deleted. Setting
 	ccl::*interactive-abort-process* doesn't seem right.
 
--- /project/slime/cvsroot/slime/slime.el	2009/06/11 08:07:17	1.1185
+++ /project/slime/cvsroot/slime/slime.el	2009/06/20 10:02:46	1.1186
@@ -7330,10 +7330,9 @@
 (defun slime-check-fancy-symbol-name (buffer-offset symbol-name)
   ;; We test that `slime-symbol-at-point' works at every
   ;; character of the symbol name.
-  (dotimes (pt (length symbol-name))
-    (setq pt (+ buffer-offset pt))
-    (goto-char pt)
-    (slime-test-expect (format "Check `%s' (at %d)..." (buffer-string) pt)
+  (dotimes (i (length symbol-name))
+    (goto-char (+ buffer-offset i))
+    (slime-test-expect (format "Check `%s' (at %d)..." (buffer-string) (point))
                        symbol-name 
                        (slime-symbol-at-point)
                        #'equal)))