A tool box Common Lisp about string modification