\version "2.19.40"
testpaths =
#(define-void-function
   (parser location)
   ()
   (display (car (ly:input-file-line-char-column location))))
\testpaths

{ c }