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