From b17f982793de0f1bdad62c422bb15baab21b4407 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <fare@tunes.org> Date: Thu, 8 Apr 2010 02:38:12 -0400 Subject: [PATCH] Don't truenamize relative source locations. --- asdf.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/asdf.lisp b/asdf.lisp index 4b7fb072..1413deeb 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -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 -- GitLab