search-and-replace-all.lisp

(defun search-and-replace-all (old new string)
  (loop
     with start = 0
     for pos = (search old string :start2 start)
     while pos
     do (setf string (concatenate 'string
                                  (subseq string 0 pos)
                                  new
                                  (subseq string (+ pos (length old))))
              start (+ pos (length new))))
  string)