X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-source-location.lisp;h=bb2fcdab455e59341d70a8c94d8f944bff4740d6;hb=8eee0d3a30bf39d9f201acff28c92059fe6c3e4e;hp=e7018e31c64efdebf050d48d3b41300cb9f00f93;hpb=3c8b7b5089ae068f3dcdf84d7545562ac33e67be;p=sbcl.git

diff --git a/src/code/early-source-location.lisp b/src/code/early-source-location.lisp
index e7018e3..bb2fcda 100644
--- a/src/code/early-source-location.lisp
+++ b/src/code/early-source-location.lisp
@@ -23,8 +23,7 @@
 
 (defvar *source-location-thunks* nil)
 
-;; Should get called only in unusual circumstances. Normally handled
-;; by a compiler macro.
+;; Will be redefined in src/code/source-location.lisp.
 (defun source-location ()
   nil)
 
@@ -35,7 +34,7 @@
              (symbol-value '*source-info*))
     `(cons ,(make-file-info-namestring
               *compile-file-pathname*
-              (source-info-file-info (symbol-value '*source-info*)))
+              (sb!c:get-toplevelish-file-info (symbol-value '*source-info*)))
            ,(when (boundp '*current-path*)
                   (source-path-tlf-number (symbol-value '*current-path*))))))