From Newsgroup: comp.lang.lisp

Adam Warner wrote:

(let ((x '(1 3 5 7 9)))
(do ((x x (cdr x))
(sum 0 (+ sum (car x))))
((null? x) sum)))

Gauche Scheme

(let1 xs '(1 3 5 7 9)
(do ((sum 0 (+ sum (pop! xs))))
((null? xs) sum)))
--- Synchronet 3.21a-Linux NewsLink 1.2