>>553
doって何者だ?
CL-USER> (let ((x 9))
(do ((x 1 (1+ x))
(y x x))
((> x 5))
(print y)))
9
1
2
3
4 NIL
CL-USER> (let ((x 9))
(do* ((x 1 (1+ x))
(y x x))
((> x 5))
(print y)))
1
2
3
4
5 NIL