lispdoc - results for cerror

(defun average (numbers)
  (if (null numbers)
      (progn
       (cerror "Use 0 as the average."
               "Average of the empty list is undefined.")
       0)
      (/ (reduce #'+ numbers) (length numbers))))