Bad code deletion note inside LOOP stepping clauses

[Stas Boukarev]

(defun foo (object)
  (if (consp 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)))))

complains about the second leg of IF, since i variable has both initial and THEN clauses, car variable handling is compiled in two pieces to. And when it's initialized the type of cdr is know to be a cons.

[Attila Lendvai (attila-lendvai)]

this seems to have been fixed meanwhile.

C-c C-c'ing it in slime doesn't give me any notes/warnings.

> (lisp-implementation-version)

"1.3.8.46.hu.dwim.4-da817a7"

[Stas Boukarev (stassats)]

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))))

[Paul F. Dietz (paul-f-dietz)]

Neither the original nor the mutated form cause the issue now.