What length does a cyclical list have?

  (define l '(1 2 3))
  (set-cdr! (cddr l) l)