CL-USER> (string-upcase "alphaBETA")
"ALPHABETA"