int gdbscm_scm_string_to_int (SCM string) { char *s = scm_to_latin1_string (string); int r = atoi (s); free (s); return r; }
char * gdbscm_scm_to_c_string (SCM string) { return scm_to_latin1_string (string); }
gdb::unique_xmalloc_ptr<char> gdbscm_scm_to_c_string (SCM string) { return gdb::unique_xmalloc_ptr<char> (scm_to_latin1_string (string)); }