(defun make-adder (n)
#'(lambda (&optional x) (if (null x) n (+ x n))))