Return to chkrtab.h CVS log

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

Annotation of 43BSDTahoe/ucb/lisp/franz/h/chkrtab.h, revision 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.