X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmain.lisp;h=66297358d6e3ef503eae36cd18a1b69f2f49ed5e;hb=0ca182b2e0fd9a7fc8005bef9d21000b326208fc;hp=d750adf820521db394bfcff050c9379a34596908;hpb=89723dab1eff0dcc17c79c5675cb18c7c4e62b80;p=sbcl.git

diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp
index d750adf..6629735 100644
--- a/src/compiler/main.lisp
+++ b/src/compiler/main.lisp
@@ -743,7 +743,7 @@
 ;;; Given a pathname, return a SOURCE-INFO structure.
 (defun make-file-source-info (file external-format)
   (let ((file-info (make-file-info :name (truename file)
-                                   :untruename file
+                                   :untruename (merge-pathnames file)
                                    :external-format external-format
                                    :write-date (file-write-date file))))