From: milanj on
If you are using sbcl then -> http://www.pvk.ca/Blog/Lisp/string_case_bis.html