;;Functions to help test-itteration
(defun do-sum (x)
  (let ((total 0))
    (do ((i 0 (+ i 1)));for(i=0; i <= x; i++) {total += i;} return i;
      ((> i x) total)
      (setf total (+ total i)))
    total))

(defun dolist-sum (l)
  (let ((total 0))
    (dolist (element l);for each element in l, add its value to the total.
      (setf total (+ total element)))
    total))

;;Chapter 2, Test 9, Pg 23
(deftest test-itteration ()
  (check
    (equal (do-sum 4) 10)
    (equal (dolist-sum `(1 2 3 4)) 10)))