[slime-cvs] CVS slime

[CVS User mevenson]

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

Modified Files:
	ChangeLog swank-abcl.lisp 
Log Message:
* swank-abcl.lisp (source-location): Emacs buffers start at 1,
whereas CL files start at 0 (Tobias Rittweiler).


--- /project/slime/cvsroot/slime/ChangeLog	2009/09/16 15:46:27	1.1854
+++ /project/slime/cvsroot/slime/ChangeLog	2009/09/17 06:23:03	1.1855
@@ -1,3 +1,8 @@
+2009-09-17  Mark Evenson  <evenson at panix.com>
+
+	* swank-abcl.lisp (source-location): Emacs buffers start at 1,
+	whereas CL files start at 0 (Tobias Rittweiler).
+
 2009-09-16  Stas Boukarev  <stassats at gmail.com>
 
 	* swank.lisp (documentation-symbol): Return more readable information.
--- /project/slime/cvsroot/slime/swank-abcl.lisp	2009/09/14 05:51:51	1.70
+++ /project/slime/cvsroot/slime/swank-abcl.lisp	2009/09/17 06:23:03	1.71
@@ -439,8 +439,8 @@
       `(((,symbol)
          (:location
            (:file ,(namestring (ext:source-pathname symbol)))
-           ,(if (and pos (plusp pos))
-                (list :position pos)
+           ,(if pos
+                (list :position (1+ pos))
                 (list :function-name (string symbol)))
            (:align t)))))))