Optimize loop and replace EQL by CHAR=.
Added special version of string-left-trim for list bag and general string.
Declare type of string argument in two special versions.
Define CHARACTER-IN-GENERAL-VECTOR-BAG-P.
Define CHARACTER-IN-SIMPLE-VECTOR-BAG-P.