Function: calendar-sum

calendar-sum is a macro defined in calendar.el.gz.

Signature

(calendar-sum INDEX INITIAL CONDITION EXPRESSION)

Documentation

For INDEX = INITIAL, +1, ... (as long as CONDITION holds), sum EXPRESSION.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/calendar.el.gz
(defmacro calendar-sum (index initial condition expression)
  "For INDEX = INITIAL, +1, ... (as long as CONDITION holds), sum EXPRESSION."
  (declare (debug (symbolp form form form)))
  `(let ((,index ,initial)
         (sum 0))
    (while ,condition
      (setq sum (+ sum ,expression)
            ,index (1+ ,index)))
    sum))