projects
/
jscl.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
a19fd1672b5084ffc9408a37f5aa429ccd7d68bb
[jscl.git]
/
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))))