re: continuing next iteration

    > (loop for i below 6
            finally (return (reverse (pairlis list list2)))
        do (format t "~d" i)
        collect i into list
        do (format t "^2 = ~2d~%" (* i i))
        collect (* i i) into list2)
    0^2 =  0
    1^2 =  1
    2^2 =  4
    3^2 =  9
    4^2 = 16
    5^2 = 25
    ((0 . 0) (1 . 1) (2 . 4) (3 . 9) (4 . 16) (5 . 25))

(do ((i 0 (+ i 1))
     (_ 0 (format #t "^2 = ~2D~%" (* i i)))
     (lst '() (cons i lst))
     (lst2 '() (cons (* i i) lst2)))
  ((= i 6) (reverse (map cons lst lst2)))
  (format #t "~D" i ))

  ===>
0^2 =  0
1^2 =  1
2^2 =  4
3^2 =  9
4^2 = 16
5^2 = 25
((0 . 0) (1 . 1) (2 . 4) (3 . 9) (4 . 16) (5 . 25))