Method code for $string.to_symbol()

[Turn on line numbering]
arg str;

str = lowercase(strsed(str, "[^a-zA-Z0-9_]+", "", "g"));
return (> tosym(str) <);

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit

Tlon