Translate logical pathnames when reporting errors (#41)

mmgeorge · Jul 7, 2022 · 3180921 · 3180921
1 parent 89fff94
commit 3180921
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/slynk-asdf.lisp b/slynk-asdf.lisp
@@ -263,7 +263,7 @@ already knows."
   (if (and (eq (car location) :error)
            *current-source-file*)
       (slynk-backend:make-location
-       `(:file ,(namestring (asdf:component-pathname *current-source-file*)))
+       `(:file ,(namestring (translate-logical-pathname (asdf:component-pathname *current-source-file*))))
        `(:position 0))
       location))