SUM
(defun sum-integers2 (a b) (sum #'identity a b)) (defun sum-squares2 (a b) (sum #'square a b))
#'identity и #'square задают функциональные аргументы.
#'identity
#'square