[nongnu] elpa/sly b3a3f656c0 4/5: clasp: Translate logical pathnames in source references

[ELPA Syncer]

branch: elpa/sly
commit b3a3f656c0a03f059bca543da6e3438c05225774
Author: Tarn W. Burton <twburton@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    clasp: Translate logical pathnames in source references
    
    Cherry-picked-from: SLIME commit 9d3d303333e6bcf5a39cd3866f0dc9c95520601c
---
 slynk/backend/clasp.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/slynk/backend/clasp.lisp b/slynk/backend/clasp.lisp
index 661884958e..102f1db3e8 100644
--- a/slynk/backend/clasp.lisp
+++ b/slynk/backend/clasp.lisp
@@ -461,7 +461,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)))))
@@ -522,7 +522,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)))