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

; 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