[slime-cvs] CVS update: slime/swank-cmucl.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv32668

Modified Files:
	swank-cmucl.lisp 
Log Message:
((resolve-location t pathname t t t)): Emacs buffer positions are 1
based.  Add 1 to the 0 based file-position.

Date: Thu Nov 13 17:45:27 2003
Author: heller

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.19 slime/swank-cmucl.lisp:1.20
--- slime/swank-cmucl.lisp:1.19	Wed Nov 12 19:20:06 2003
+++ slime/swank-cmucl.lisp	Thu Nov 13 17:45:27 2003
@@ -202,7 +202,7 @@
 			      source-path source))
 
 (defmethod resolve-location (i (f pathname) position path source)
-  `(:file ,(unix-truename f) ,(source-path-file-position path f)))
+  `(:file ,(unix-truename f) ,(1+ (source-path-file-position path f))))
 
 (defmethod resolve-location ((i buffer-source-info) (f (eql :stream))
 			     position path source)