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