[bpt/emacs.git] / admin / coccinelle / list_loop.cocci

// Omit redundant type check, consistently use CONSP.
@@
identifier A;
expression X;
statement S;
@@
(
for (A = X; 
- !NILP (A); 
+ CONSP (A);
- A = Fcdr (A))
+ A = XCDR (A))
S
|
for (A = X; CONSP (A);
- A = Fcdr (A))
+ A = XCDR (A))
S
)
Commit	Line	Data
7d7bbefd DA	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	)