Comment 2 for bug 998946

It's just mutated

(defun foo (object)
  (declare (cons object))
  (loop for cdr = object then (cdr cdr)
        for car = (if (consp cdr)
                      (car cdr)
                      cdr)
        for i = 1 then (1+ i)
        while cdr
        do (print (list i car))))