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

[Luke Gorrie]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
(function-source-location): Use TRUENAME to resolve source file name
(thanks Lawrence Mitchell).

Date: Sun Nov 23 22:18:25 2003
Author: lgorrie

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.26 slime/swank-sbcl.lisp:1.27
--- slime/swank-sbcl.lisp:1.26	Sun Nov 23 09:16:42 2003
+++ slime/swank-sbcl.lisp	Sun Nov 23 22:18:25 2003
@@ -324,7 +324,7 @@
          (pathname (sb-introspect:definition-source-pathname def))
          (path (sb-introspect:definition-source-form-path def)))
     (list :sbcl 
-          :filename (and pathname (namestring pathname))
+          :filename (and pathname (namestring (truename pathname)))
           :position (sb-introspect:definition-source-character-offset def)
           :path path
           ;; source-paths depend on the file having been compiled with