Como quebrar uma string em suas partes em LISP usando uma função personalizada

; Função que recebe uma frase ou texto e um caractere
; e quebra (separa, explode) a frase ou texto usando
; o caractere informado e retorna uma lista de
; palavras
(defun quebrar_string(texto caractere)
  (loop for i = 0 then (1+ j)
    as j = (position (coerce caractere 'character) 
      texto :start i) collect (subseq texto i j)
  while j)
)

; Esta é a função principal
(defun principal()
  ; variáveis usadas no exemplo
  (let ((frase)(caractere)(partes))
    ; vamos criar a frase que será quebrada em partes
    (setq frase "Gosto de programar em LISP")
    
    ; agora vamos declarar o caractere que será usado
    ; como separador. Aqui vou usar o espaço
    (setq caractere " ")
	
    ; agora obtemos as partes da string
    (setq partes (quebrar_string frase caractere))
	
    ; vamos exibir a quantidade de partes da string
    ; agora vamos obter o tamanho da lista
    (format t "A string foi quebrada em ~D partes~%" (list-length partes))  	

    ; e agora mostramos as partes individualmente
    (write-line "As partes da string são:")
    (dolist (palavra partes)
      ; e exibimos cada valor individualmente
      (format t "~a~%" palavra)   
    )
  ) 
)
 
; Auto-executa a função principal()
(principal)