rem: isarg(s)	 uchar *s;
add: isarg(uchar *s)
context: isarg(s)	/* is s in argument list for current function? */	uchar *s;{	extern Node *arglist;	Node *p = arglist;	int n;	for (n = 0; p != 0; p = p->nnext, n++)		if (strcmp(((Cell *)(p->narg[0]))->nval, s) == 0)			return n;	return -1;}