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

diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp
index c7d814c..6629735 100644
--- a/src/compiler/main.lisp
+++ b/src/compiler/main.lisp
@@ -28,7 +28,8 @@
                   #!+sb-show *compiler-trace-output*
                   *last-source-context* *last-original-source*
                   *last-source-form* *last-format-string* *last-format-args*
-                  *last-message-count* *lexenv* *fun-names-in-this-file*
+                  *last-message-count* *last-error-context*
+                  *lexenv* *fun-names-in-this-file*
                   *allow-instrumenting*))
 
 ;;; Whether call of a function which cannot be defined causes a full
@@ -742,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))))