tests/iter-macros.lisp

   1 ; Tests for macros implementing iteration constructs
   2 ; DOTIMES
   3 (test (let ((total 0))
   4         (dotimes (n 6)
   5           (incf total n))
   6         (= total 15)))
   7
   8 ; DOLIST
   9 (test (let ((total 0))
  10         (dolist (n '(1 2 3 4 5))
  11           (incf total n))
  12         (= total 15)))
  13
  14 ; DO
  15 (test (do ((a 0 b)
  16            (b 1 (+ a b))
  17            (n 0 (1+ n)))
  18         ((= n 10)
  19          (= a 55))))
  20
  21 ; DO*
  22 (test (do* ((a 0 b)
  23             (b 1 (+ a b))
  24             (n 0 (1+ n)))
  25         ((= n 10)
  26          (= a 512))))