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." ...@@ -2550,7 +2550,9 @@ with a different configuration, so the configuration would be re-read then."
(when dst (when dst
(process-output-translations (pathname dst) :inherit nil :collect collect)) (process-output-translations (pathname dst) :inherit nil :collect collect))
(when src (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 (cond
((location-function-p dst) ((location-function-p dst)
(funcall collect (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