Como escrever uma função LISP que recebe dois números inteiros e retorna a soma desses dois valores como um inteiro - Lista de Exercícios Resolvidos de LISP

(defun somar(n1 n2)
  ; sua implementação aqui
)

Informe o primeiro número: 4
Informe o segundo número: 3
A soma dos dois números é: 7

; Vamos declarar a função somar(), que recebe dois números
; inteiros e retorna a soma deles
(defun somar(n1 n2)
  ; retornamos a soma dos dois números recebidos
  (+ n1 n2)
)

; Esta é a função principal
(defun principal()
  ; vamos declarar as variáveis locais que precisamos
  (let ((n1)(n2)(soma))
    ; Vamos ler o primeiro valor
    (princ "Informe o primeiro número: ")
    ; talvez o seu compilador não precise disso
    (force-output)
    (setq n1 (read))
    ; Vamos ler o segundo valor
    (princ "Informe o segundo número: ")
    ; talvez o seu compilador não precise disso
    (force-output)
    (setq n2 (read))
   
    ; Agora vamos efetuar uma chamada à função somar()
    (setq soma (somar n1 n2))
   
    ; E mostramos o resultado
    (format t "A soma dos dois números é: ~D" soma)
  )
)
 
; Auto-executa a função principal()
(principal)