unsmob_metrics (val)->file_name_ = file_name;
SCM name_string = ly_string2scm (name);
unsmob_metrics (val)->description_ = scm_cons (name_string,
unsmob_metrics (val)->file_name_ = file_name;
SCM name_string = ly_string2scm (name);
unsmob_metrics (val)->description_ = scm_cons (name_string,