- `(cons ,(make-file-info-namestring
- *compile-file-pathname*
- (source-info-file-info (symbol-value '*source-info*)))
- ,(when (boundp '*current-path*)
- (source-path-tlf-number (symbol-value '*current-path*))))))
+ (let ((form `(cons ,(make-file-info-namestring
+ *compile-file-pathname*
+ (sb!c:get-toplevelish-file-info (symbol-value '*source-info*)))
+ ,(when (boundp '*current-path*)
+ (source-path-tlf-number (symbol-value '*current-path*))))))
+ form)))