На что заменить explode, что бы программа заработала в LispWorks

Формулировка задачи:

(defun repl-wd (text a b)
  (let* ((aa (cdr (butlast (explode a))))
         (bb (cdr (butlast (explode b))))
         (atext (explode text))
         (ltext (mapcar 'list atext)))
         (implode (apply 'append (mapcar #'(lambda (x) (if (equal x aa) bb x)) ltext)))))

==> repl-wd (repl-wd "аннигилировать" "и" "ре") ==> "аннрегрелреровать"

Решение задачи: «На что заменить explode, что бы программа заработала в LispWorks»

Листинг программы

(defun repl-wd (text a b)
  (strRep text a b))
 
==> REPL-WD
 
(repl-wd "аннигилировать" "и" "ре")
 
==> "аннрегрелреровать"

Объяснение кода листинга программы

В коде определена функция с именем repl-wd. Она принимает два аргумента text и a. Функция заменяет в строке text все вхождения символа a на символ b. Функция вызывается с аргументами аннигилировать, и и ре. Результатом выполнения функции является строка аннрегрелрерировать, в которой все вхождения символа и заменены на ре.