- rv.push (s.cut_string (0, i));
- s = s.nomid_string (0, i);
+string
+camel_case_to_lisp_identifier (const string &in)
+{
+ vector<char> out;
+
+ /* don't add '-' before first character */
+ out.push_back (char (tolower (in[0])));
+
+ for (size_t inpos = 1; inpos < in.size (); inpos++)
+ {
+ if (isupper (in[inpos]))
+ out.push_back ('-');
+ out.push_back ( char (tolower (in[inpos])));