[nongnu] elpa/slime 9d3d303333 24/43: clasp: Translate logical pathnames in source references

[ELPA Syncer]

branch: elpa/slime
commit 9d3d303333e6bcf5a39cd3866f0dc9c95520601c
Author: Tarn W. Burton <twburton@gmail.com>
Commit: Stas Boukarev <stassats@gmail.com>

    clasp: Translate logical pathnames in source references
---
 swank/clasp.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/swank/clasp.lisp b/swank/clasp.lisp
index c96b7496d6..a8afef31a9 100644
--- a/swank/clasp.lisp
+++ b/swank/clasp.lisp
@@ -460,7 +460,7 @@
 (defimplementation frame-source-location (frame-number)
   (let ((csl (clasp-debug:frame-source-position (frame-from-number 
frame-number))))
     (if (clasp-debug:code-source-line-pathname csl)
-        (make-location (list :file (namestring 
(clasp-debug:code-source-line-pathname csl)))
+        (make-location (list :file (namestring (translate-logical-pathname 
(clasp-debug:code-source-line-pathname csl))))
                        (list :line (clasp-debug:code-source-line-line-number 
csl))
                        '(:align t))
         `(:error ,(format nil "No source for frame: ~a" frame-number)))))
@@ -521,7 +521,7 @@
                  `(:align t)))
 
 (defun translate-location (location)
-  (make-location (list :file (namestring (ext:source-location-pathname 
location)))
+  (make-location (list :file (namestring (translate-logical-pathname 
(ext:source-location-pathname location))))
                  (list :position (ext:source-location-offset location))
                  '(:align t)))