projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.18.20: Fewer STYLE-WARNINGs.
[sbcl.git]
/
src
/
code
/
early-source-location.lisp
diff --git
a/src/code/early-source-location.lisp
b/src/code/early-source-location.lisp
index
e7018e3
..
bb2fcda
100644
(file)
--- a/
src/code/early-source-location.lisp
+++ b/
src/code/early-source-location.lisp
@@
-23,8
+23,7
@@
(defvar *source-location-thunks* nil)
(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)
(defun source-location ()
nil)
@@
-35,7
+34,7
@@
(symbol-value '*source-info*))
`(cons ,(make-file-info-namestring
*compile-file-pathname*
(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*))))))
,(when (boundp '*current-path*)
(source-path-tlf-number (symbol-value '*current-path*))))))