Como pesquisar uma substring em uma string em LISP usando a função search()

; variáveis que vamos usar no programa
(let ((frase)(palavra)(resultado))
  ; Vamos pedir para o usuário informar
  ; uma frase
  (princ "Informe uma frase: ")
  (force-output)
  ; atribui o valor lido à variável frase
  (setq frase (read-line))
  
  ; Vamos pedir para o usuário informar
  ; uma palavra
  (princ "Informe uma palavra: ")
  (force-output)
  ; atribui o valor lido à variável palavra
  (setq palavra (read-line))
  
  ; agora vamos testar se a palavra está contida
  ; na frase
  (setq resultado (search palavra frase))
  (if (eq nil resultado)
    (princ "A palavra não está na frase")
    (format t "A palavra encontrada no índice: ~D~%"
      resultado)
  )
)