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

[Dan Barlow]

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

Modified Files:
	slime.el swank-sbcl.lisp 
Log Message:
unbroke last commit, in two obvious respects
Date: Thu Dec 11 12:08:56 2003
Author: dbarlow

Index: slime/slime.el
diff -u slime/slime.el:1.140 slime/slime.el:1.141
--- slime/slime.el:1.140	Thu Dec 11 11:37:32 2003
+++ slime/slime.el	Thu Dec 11 12:08:55 2003
@@ -2088,7 +2088,7 @@
 (defun slime-xrefs-for-notes (notes)
   (let ((xrefs))
     (dolist (note notes)
-      (let* ((location (getf n :location))
+      (let* ((location (getf note :location))
              (fn (cadr (assq :file (cdr location))))
              (file (assoc fn xrefs))
              (node


Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.42 slime/swank-sbcl.lisp:1.43
--- slime/swank-sbcl.lisp:1.42	Thu Dec 11 11:37:32 2003
+++ slime/swank-sbcl.lisp	Thu Dec 11 12:08:55 2003
@@ -204,7 +204,7 @@
 
 (defmethod resolve-note-location ((b (eql nil)) (f pathname) pos path source)
   (make-location
-   `(:file ,(truename f))
+   `(:file ,(namestring (truename f)))
    `(:position ,(1+ (source-path-file-position path f)))))
 
 ;;; FIXME this one's broken: no source-path-string-position