Write a LISP Program to add two numbers

Lisp

Write a LISP Program to add two numbers  .

Program/Code:
(defun add()
(format t "Enter 1st Value ")
(setf a(read))
(format t "Enter 2nd Value ")
(setf b(read))
(setf c(+ a b))
(format t "Sum=~d" c)
)

Output:

Enter 1st Value 12
Enter 2nd Value 3
Sum=15