Циклический список в Lisp/Scheme

Собственно как такое сделать? Понятно, что можно сделать set-cdr! с конца списка на его начало, но как тогда с ним работать, например, как определить длину?