- SCM s = ly_symbol2scm (symbol);
- SCM d = scm_makfrom0str (descr);
- SCM l = parse_symbol_list (vars);
+ string suffix ("-interface");
+ string lispy_name = camel_case_to_lisp_identifier (cxx_name);
+ vsize end = max (int (0), int (lispy_name.length () - suffix.length ()));
+ if (lispy_name.substr (end) != suffix)
+ lispy_name += suffix;