fix

contrib/walker/example.lisp

@@ -246,3 +246,7 @@
 (loop :for x :from 1 :to 10
       :if (f x)
       :do (g x))
+
+(loop :for n :in list
+      :do (f n)
+          (g n))

contrib/walker/loop-form.lisp

@@ -556,13 +556,13 @@
                      (t
                       nil)))
              (compound-forms (env)
-               (let ((pos pos)
+               (let ((first-pos pos)
                      (exp (next)))
                  (walker-assert (consp exp))
-                 (cons (walk walker exp env (cons pos path))
+                 (cons (walk walker exp env (cons first-pos path))
                        (loop :for exp := (lookahead)
                              :while (consp exp)
-                             :collect (walk walker exp env (cons pos path))
+                             :collect (walk walker exp env (cons (current) path))
                              :do (next)))))
              (compound-forms-with-lazy ()
                (let ((pos pos)

contrib/walker/tests/test-cases.lisp

@@ -3740,3 +3740,18 @@
         :COLLECT :IT)
   (1 6))
  ((1 6) (2)))
+((MICROS/WALKER:COLLECT-HIGHLIGHT-PATHS
+  (LOOP :FOR MICROS/WALKER::N :IN LIST
+        :DO (MICROS/WALKER::F MICROS/WALKER::N) (MICROS/WALKER::G MICROS/WALKER::N))
+  (1 7))
+ ((1 7) (1 6) (2)))
+((MICROS/WALKER:COLLECT-HIGHLIGHT-PATHS
+  (LOOP :FOR MICROS/WALKER::N :IN LIST
+        :DO (MICROS/WALKER::F MICROS/WALKER::N) (MICROS/WALKER::G MICROS/WALKER::N))
+  (1 6))
+ ((1 7) (1 6) (2)))
+((MICROS/WALKER:COLLECT-HIGHLIGHT-PATHS
+  (LOOP :FOR MICROS/WALKER::N :IN LIST
+        :DO (MICROS/WALKER::F MICROS/WALKER::N) (MICROS/WALKER::G MICROS/WALKER::N))
+  (2))
+ ((1 7) (1 6) (2)))