----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

; 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)

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

; Vamos definir as variáveis que vamos
; usar no programa
(defvar numero)
(defvar raiz)

; Este o programa principal
(defun RaizQuadrada()
  ; Vamos ler o número
  (princ "Informe um número: ")
  ; talvez o seu compilador não precise disso
  (force-output)
  ; atribui o valor lido à variável numero
  (setq numero (read))
  
  ; calcula a raiz quadrada do número informado
  (setq raiz (sqrt numero))
  
  ; E mostramos o resultado
  (format t "A raiz quadrada de ~F é ~F" numero
    raiz)
)

; Auto-executa a função RaizQuadrada()
(RaizQuadrada)

Informe o primeiro valor: 3
Informe o segundo valor: 7
3 vezes 7 é 21

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

; Vamos definir as variáveis que vamos
; usar no programa
(defvar n1)
(defvar n2)
(defvar produto)

; Este o programa principal
(defun Multiplicacao()
  ; Vamos ler o primeiro valor
  (princ "Informe o primeiro valor: ")
  ; talvez o seu compilador não precise disso
  (force-output)
  (setq n1 (read))
  ; Vamos ler o segundo valor
  (princ "Informe o segundo valor: ")
  ; talvez o seu compilador não precise disso
  (force-output)
  (setq n2 (read))
  
  ; Agora vamos efetuar a multiplicação dos
  ; dois valores informados
  (setq produto (* n1 n2))
  
  ; E mostramos o resultado
  (format t "~D vezes ~D é ~D" n1 n2
    produto)
)

; Auto-executa a função Multiplicacao()
(Multiplicacao)

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

(format t "Cosseno de 0 = ~F~%" (cos 0))
(format t "Cosseno de 1 = ~F~%" (cos 1))
(format t "Cosseno de 2 = ~F" (cos 2))