Como testar se um número é primo em LISP

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

; variáveis que vamos usar no programa
(let ((numero)(primo NIL))
  ; vamos solicitar um número inteiro positivo
  (princ "Informe um número inteiro positivo: ")
  ; talvez o seu compilador não precise disso
  (force-output)
  ; atribui o valor lido à variável numero
  (setq numero (read))    
  
  ; vamos testar as condições
  (cond 
    ; o número é negativo?
    ((< numero 0)
      (princ "Número inválido"))
    ((or (= numero 0)(= numero 1))
      (princ "Número válido, mas não é primo."))
    ; passou até aqui. Vamos testar se o número é primo
    (t  
      (setq primo T)
      (loop for i from 2 to (truncate (/ numero 2))
        do (
          ; se passar no teste, não é primo
          if (= 0 (rem numero i))
           (progn
	     (setq primo NIL)
             (loop-finish) 
	  )			 
	) 
      )
	  
      ; é primo?
      (if (eql T primo)
        (princ "O número informado é primo")
        (princ "O número informado não é primo")
      )
    )  
  )
)