1.1.2.3 Example 3

;;; These functions sum the elements of an array. Since the Loop
;;; Facility supports iteration over arrays, the code is simple.
(defun sum-array-loop (array) ; Use Loop Facility
(loop for a being the elements of array ; constructs.
sum a))