CLCS

Examples of SUM clause

 (loop for i of-type fixnum in '(1 2 3 4 5)
       sum i)15
 (setq series '(1.2 4.3 5.7))(1.2 4.3 5.7)
 (loop for v in series 
       sum (* 2.0 v))22.4