(let loop-name ( definitions ) (expr) ... (cond ((continue condition) (loop-name ...)) (else exit-value)) )