[Homelisp] Удалить из строки лишние пробелы

В заданной строке все слова разделены несколькими пробелами. Удалить все лишние пробелы.Если можно то помогите.

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

;; racket-lang.org
(let ((str "this    is    a    string"))
  (string-join (string-split str)))
;"this is a string"

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

Создается новая переменная str и присваивается ей строка this is a string.
Используя функцию string-split, строка str разбивается на массив строк, используя пробел как разделитель.
Результат функции string-split присваивается новой переменной str.
Используя функцию string-join, массив строк str объединяется обратно в одну строку, используя пробел как разделитель.
Результат функции string-join выводится на экран.