X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1util.lisp;h=18220b1054afcf9502d7cf43fb767e347ebf79db;hb=872175cd9cb5b4966a36d4bd92421cc407a0355b;hp=4b3aaf3a2a1fa54cddab8281568b6e8e0badb6be;hpb=204f2fa9771ad9e55718dc76205afec7d11b3011;p=sbcl.git

diff --git a/src/compiler/ir1util.lisp b/src/compiler/ir1util.lisp
index 4b3aaf3..18220b1 100644
--- a/src/compiler/ir1util.lisp
+++ b/src/compiler/ir1util.lisp
@@ -1457,13 +1457,13 @@
 		    (incf n)))
 
 		(let* ((tlf (source-path-tlf-number path))
-		       (file (find-file-info tlf *source-info*)))
+		       (file-info (source-info-file-info *source-info*)))
 		  (make-compiler-error-context
 		   :enclosing-source (short)
 		   :source (full)
 		   :original-source (stringify-form form)
 		   :context src-context
-		   :file-name (file-info-name file)
+		   :file-name (file-info-name file-info)
 		   :file-position
 		   (multiple-value-bind (ignore pos)
 		       (find-source-root tlf *source-info*)