[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-ccl.lisp 
Log Message:
swank-ccl.lisp (source-note-to-source-location): keys of
*temp-file-map* are pathnames, not namestrings; convert
namestrings to pathnames before looking up.


--- /project/slime/cvsroot/slime/ChangeLog	2009/07/27 04:08:41	1.1817
+++ /project/slime/cvsroot/slime/ChangeLog	2009/07/27 13:08:16	1.1818
@@ -1,3 +1,9 @@
+2009-07-27  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-ccl.lisp (source-note-to-source-location): keys of
+	*temp-file-map* are pathnames, not namestrings; convert
+	namestrings to pathnames before looking up.
+
 2009-07-27  Geo Carncross  <geocar at gmail.com>
 
 	* swank-ecl.lisp: Support for older ECL installs
--- /project/slime/cvsroot/slime/swank-ccl.lisp	2009/07/26 08:00:40	1.1
+++ /project/slime/cvsroot/slime/swank-ccl.lisp	2009/07/27 13:08:17	1.2
@@ -584,7 +584,7 @@
                       (file-name (ccl:source-note-filename source))
                       (start-pos (ccl:source-note-start-pos source)))
                  (make-location
-                  (when file-name (filename-to-buffer file-name))
+                  (when file-name (filename-to-buffer (pathname file-name)))
                   (when start-pos (list :position (1+ start-pos)))
                   (when full-text (list :snippet (subseq full-text  0 (min 40 (length full-text))))))))
               ((and source name)