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))))
It's just mutated
(defun foo (object)
(car cdr)
cdr)
(declare (cons object))
(loop for cdr = object then (cdr cdr)
for car = (if (consp cdr)
for i = 1 then (1+ i)
while cdr
do (print (list i car))))