(not (ly:get-option 'old-relative-used)))
(old-relative-not-used-message input-file-name))%% there is a problem at the end of the input file
(not (ly:get-option 'old-relative-used)))
(old-relative-not-used-message input-file-name))%% there is a problem at the end of the input file