Skip to content
Snippets Groups Projects
Commit b17f9827 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Don't truenamize relative source locations.

parent a06f9f7f
No related branches found
No related tags found
No related merge requests found
......@@ -2550,7 +2550,9 @@ with a different configuration, so the configuration would be re-read then."
(when dst
(process-output-translations (pathname dst) :inherit nil :collect collect))
(when src
(let ((trusrc (or (eql src t) (truenamize (resolve-location src t)))))
(let ((trusrc (or (eql src t)
(let ((loc (resolve-location src t)))
(if (absolute-pathname-p loc) (truenamize loc) loc)))))
(cond
((location-function-p dst)
(funcall collect
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment