[unix-history] / usr / src / cmd / lisp / chkrtab.h

#define chkrtab(p);	\
	if(p!=lastrtab){ if(TYPE(p)!=ARRAY && TYPE(p->data)!=INT) rtaberr();\
			 else { lastrtab = p; ctable = p->data; } }
extern lispval lastrtab;
Commit	Line	Data
8cd657f4 JF	1	#define chkrtab(p); \
	2	if(p!=lastrtab){ if(TYPE(p)!=ARRAY && TYPE(p->data)!=INT) rtaberr();\
	3	else { lastrtab = p; ctable = p->data; } }
	4	extern lispval lastrtab;