[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-source-path-parser.lisp 
Log Message:
* swank-source-path-parser.lisp (make-source-recorder)
(source-path-source-position): Adjust the file-position before
entering it the table.

--- /project/slime/cvsroot/slime/ChangeLog	2009/01/08 06:45:09	1.1643
+++ /project/slime/cvsroot/slime/ChangeLog	2009/01/08 06:45:19	1.1644
@@ -1,5 +1,11 @@
 2009-01-07  Helmut Eller  <heller at common-lisp.net>
 
+	* swank-source-path-parser.lisp (make-source-recorder)
+	(source-path-source-position): Adjust the file-position before
+	entering it the table.
+
+2009-01-07  Helmut Eller  <heller at common-lisp.net>
+
 	* slime.el (slime-with-xref-buffer): Don't set
 	slime-popup-buffer-quit-function. Use the default.  Don't shrink
 	the window because it may have existed before creating the buffer
--- /project/slime/cvsroot/slime/swank-source-path-parser.lisp	2008/03/23 23:34:41	1.20
+++ /project/slime/cvsroot/slime/swank-source-path-parser.lisp	2009/01/08 06:45:19	1.21
@@ -45,7 +45,7 @@
 before and after of calling FN in the hashtable SOURCE-MAP."
   (declare (type function fn))
   (lambda (stream char)
-    (let ((start (file-position stream))
+    (let ((start (1- (file-position stream)))
 	  (values (multiple-value-list (funcall fn stream char)))
 	  (end (file-position stream)))
       ;(format t "[~D \"~{~A~^, ~}\" ~D ~D ~S]~%" start values end (char-code char) char)
@@ -144,5 +144,5 @@
 	  for positions = (gethash form source-map)
 	  until (and positions (null (cdr positions)))
 	  finally (destructuring-bind ((start . end)) positions
-		    (return (values (1- start) end))))))
+		    (return (values start end))))))