(sb!c:get-toplevelish-file-info (symbol-value '*source-info*)))
,(when (boundp '*current-path*)
(source-path-tlf-number (symbol-value '*current-path*))))))
(sb!c:get-toplevelish-file-info (symbol-value '*source-info*)))
,(when (boundp '*current-path*)
(source-path-tlf-number (symbol-value '*current-path*))))))