Return to chkrtab.h CVS log

Up to [CSRG BSD Unix] / 42BSD / ucb / lisp / franz / h

Annotation of 42BSD/ucb/lisp/franz/h/chkrtab.h, revision 1.1.1.1

1.1       root        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;

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.