(let* ((string "The quick brown fox jumps over the lazy dog") (from "fox") (to "tiger") (pos (search from string))) (if pos (let ((before (subseq string 0 pos)) (after (subseq string (+ pos (length from))))) (concatenate 'string before to after)) nil))