RosettaCodeData/Task/Averages-Arithmetic-mean/Common-Lisp/averages-arithmetic-mean-1.lisp

(defun mean (&rest sequence)
  (when sequence
    (/ (reduce #'+ sequence) (length sequence))))