+ SCM exp = gh_list (ly_symbol2scm ((output_format_global + "-scm").ch_C ()),
+ ly_quote_scm (ly_symbol2scm ("all-definitions")),
+ SCM_UNDEFINED);
+ exp = scm_eval2 (exp, SCM_EOL);
+ scm_eval2 (exp, SCM_EOL);
+
+ String creator = gnu_lilypond_version_str ();
+
+ String generate = _ (", at ");
+ time_t t (time (0));
+ generate += ctime (&t);
+ generate = generate.left_str (generate.length_i () - 1);
+
+ /*
+ Make fixed length time stamps
+ */
+ generate = generate + to_str (' ' * (120 - generate.length_i ())>? 0) ;
+