\version "2.21.0"

loc =
#(define-void-function ()()
    (display (*location*)))

\loc

#(ly:message "~a" (*location*))
%#(ly:message "~a" (ly:input-file-line-char-column (*location*)))