>>542
>>532じゃないけど、一例。あんま簡単じゃないかも。

(let ((x 0))
(do ((x 1 (1+ x))
(y x x))
((> x 5))
(print y)))
;-> 0
; 1
; 2
; 3
; 4

(let ((x 0))
(do* ((x 1 (1+ x))
(y x x))
((> x 5))
(print y)))
;-> 1
; 2
; 3
; 4
; 5