Commit b17f9827 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Don't truenamize relative source locations.

parent a06f9f7f
......@@ -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)))))
((location-function-p dst)
(funcall collect
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment