admin/coccinelle/list_loop.cocci

   1 // Omit redundant type check, consistently use CONSP.
   2 @@
   3 identifier A;
   4 expression X;
   5 statement S;
   6 @@
   7 (
   8 for (A = X;
   9 - !NILP (A);
  10 + CONSP (A);
  11 - A = Fcdr (A))
  12 + A = XCDR (A))
  13 S
  14 |
  15 for (A = X; CONSP (A);
  16 - A = Fcdr (A))
  17 + A = XCDR (A))
  18 S
  19 )