From Newsgroup: comp.lang.lisp

(defun myloop (initial final increment)
(loop for i = initial then (+ i increment)
while (< i final)
do (print i)
finally (let ((i final)) (print i))))

Have you simplified your real problem too much?

This is an acceptable solution, thanks.

(define (myloop init final inc)
(do ((i init (+ i inc)))
((>= i final) (print final))
(print i)))

(myloop 3 10 2)
===>
3
5
7
9
10

"!" is similar to "do".

(define (myloop init final inc)
(! (i init : + inc)
(>= i final) (print final)
(print i)))


--- Synchronet 3.21a-Linux NewsLink 1.2