4.3BSD - /usr/src/ucb/lisp/franz/h/chkrtab.h

   1: /*					-[Sat Jan 29 13:53:19 1983 by jkf]-
   2:  * 	chkrtab.h			$Locker:  $
   3:  * check if read table valid
   4:  *
   5:  * $Header: /na/franz/franz/h/chkrtab.h,v 1.1 83/01/29 14:05:24 jkf Exp $
   6:  *
   7:  * (c) copyright 1982, Regents of the University of California
   8:  */
   9: 
  10: #define chkrtab(p); \
  11:     if(p!=lastrtab){ if(TYPE(p)!=ARRAY && TYPE(p->ar.data)!=INT) rtaberr();\
  12:             else {lastrtab=p;ctable=(unsigned char*)p->ar.data;}}
  13: extern lispval lastrtab;

Defined macros