Заменить в каждом предложении все вхождения заданного слова на заданное новое слово

(defun num-substr
   (a s &optional (m (length a)) (z 0) &aux (n (search a s)))
      (if n (num-substr a (subseq s (+ n m)) m (1+ z)) z)) 
 
CL-USER 1 > (num-substr "a" "banana")
3

(defun task (sent wf wt)
  (strRep sent wf wt))
 
==> task
 
(task "Вышел котик на тропинку" "котик" "пёсик")
 
==> "Вышел пёсик на тропинку"

(defun task (sent wf wt)
  (let ((w (strWords sent))
        (r ""))
   (iter (for i in w)
     (setq r (strCat r (if (eq i wf) wt i) " ")))
   (strRTrim r))) 
 
==> task
 
(task "Вышел котик на тропинку" "котик" "пёсик")
 
==> "Вышел пёсик на тропинку"

(defun substitute-word (z a s)
  (format nil "~{~a~^ ~}"
          (substitute
           (read-from-string z)
           (read-from-string a)
           (read-from-string
            (concatenate 'string "(" s ")")))))
 
> (substitute-word "zz" "aa" "aa bb aa")
"ZZ BB ZZ"