[slime-cvs] CVS slime

[trittweiler]

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

Modified Files:
	swank-sbcl.lisp ChangeLog 
Log Message:
	* swank-sbcl.lisp (make-definition-source-location): Fix typo
	introduced with crlf-related commit on 2008-09-16.


--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2008/09/17 06:19:49	1.219
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2008/09/17 17:48:08	1.220
@@ -601,7 +601,7 @@
            (make-location `(:file ,namestring)
                           ;; /file positions/ in Common Lisp start
                           ;; from 0, in Emacs they start from 1.
-                          `(:position (1+ ,pos))
+                          `(:position ,(1+ pos))
                           `(:snippet ,snippet))))))))
 
 (defun string-path-snippet (string form-path position)
--- /project/slime/cvsroot/slime/ChangeLog	2008/09/17 06:20:34	1.1512
+++ /project/slime/cvsroot/slime/ChangeLog	2008/09/17 17:48:08	1.1513
@@ -1,3 +1,8 @@
+2008-09-17  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* swank-sbcl.lisp (make-definition-source-location): Fix typo
+	introduced with crlf-related commit on 2008-09-16.
+
 2008-09-17  Helmut Eller  <heller at common-lisp.net>
 
 	* slime.el (slime-test-find-top-level-restart): New function.