doってあったかな。

(do ((a alist (cdr a))
(i 0 (+ i 1))
((null a) i))