Como retornar o primeiro caractere de uma string em LISP usando a função char() e o índice 0

; variáveis que vamos usar no programa
(let ((palavra)(letra))
  ; 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)
  
  ; agora vamos obter a primeira letra da palavra
  (setq letra (char palavra 0))
  
  ; e mostramos o resultado
  (format t "A primeira letra da palavra é: ~C" letra)
)