It appears you have a superfluous opening parenthesis just before the FORMAT call:

(defun adder ()
(format t "Enter a number, press return and enter another number")
(setq number-one (read))...