- if (safe_global_b)
- {
- gh_define ("security-paranoia", SCM_BOOL_T);
- }
-
- 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;
- if (no_timestamps_global_b)
- creator = gnu_lilypond_str ();
- else
- creator = gnu_lilypond_version_str ();
+ String generate = _ (", at ");
+ time_t t (time (0));
+ generate += ctime (&t);
+ generate = generate.left_str (generate.length_i () - 1);