(defun sum-average (x y) (setq z (+ x y)) (/ z 2)) (defun sum-avg-caller (sum x y) (sum-average x y) sum) (setq sum '(a b c)) (sum-avg-caller 0 55 65) sum