Como percorrer os caracteres de uma string individualmente em LISP usando o laço loop for e as funções length() e char()

; variáveis que vamos usar no programa
(let ((palavra))
  ; Vamos pedir para o usuário informar
  ; uma palavra
  (princ "Informe uma palavra: ")
  ; talvez o seu compilador não precise disso
  (force-output)
  ; atribui o valor lido à variável palavra
  (setq palavra (read-line))
  
  ; vamos mostrar a palavra informada
  ; o símbolo ~% provoca uma quebra de linha
  (format t "A palavra informada foi: ~S~%" palavra)
  
  ; vamos varrer os caracteres da string
  (loop for i from 0 to (- (length palavra) 1)
    ; mostramos cada letra em uma linha
    do(format t "~C~%" (char palavra i))
  )
)