string->symbol-ci

[procedure] string->symbol-ci string

Bigloo:

 (string->symbol (string-upcase string))

See also string->symbol.