|
|
1.1 ! root 1: /* sccs id @(#)sigtab.h 34.2 10/24/80 */ ! 2: ! 3: /* ! 4: * lispvals in use by the program should be in this table. ! 5: * Otherwise they may get garbage-collected. ! 6: */ ! 7: ! 8: #define SIGNIF 116 ! 9: ! 10: extern lispval lispsys[SIGNIF]; ! 11: ! 12: #define tatom (lispsys[1]) ! 13: #define lambda (lispsys[2]) ! 14: #define nlambda (lispsys[3]) ! 15: #define perda (lispsys[4]) ! 16: #define lpara (lispsys[5]) ! 17: #define rpara (lispsys[6]) ! 18: #define lbkta (lispsys[7]) ! 19: #define rbkta (lispsys[8]) ! 20: #define Eofa (lispsys[9]) ! 21: #define snqta (lispsys[10]) ! 22: #define exclpa (lispsys[11]) ! 23: #define quota (lispsys[12]) ! 24: #define xatom (lispsys[13]) ! 25: #define cara (lispsys[14]) ! 26: #define cdra (lispsys[15]) ! 27: #define gcafter (lispsys[16]) ! 28: #define noptop (lispsys[17]) ! 29: #define gcthresh (lispsys[18]) ! 30: #define int_name (lispsys[19]) ! 31: #define str_name (lispsys[20]) ! 32: #define atom_name (lispsys[21]) ! 33: #define doub_name (lispsys[22]) ! 34: #define dtpr_name (lispsys[23]) ! 35: #define int_items (lispsys[24]) ! 36: #define int_pages (lispsys[25]) ! 37: #define str_items (lispsys[26]) ! 38: #define str_pages (lispsys[27]) ! 39: #define dtpr_items (lispsys[28]) ! 40: #define dtpr_pages (lispsys[29]) ! 41: #define doub_items (lispsys[30]) ! 42: #define doub_pages (lispsys[31]) ! 43: #define atom_items (lispsys[32]) ! 44: #define atom_pages (lispsys[33]) ! 45: #define gccall1 (lispsys[34]) ! 46: #define gccall2 (lispsys[35]) ! 47: #define sysa (lispsys[36]) ! 48: #define plima (lispsys[37]) ! 49: #define macro (lispsys[38]) ! 50: #define startup (lispsys[39]) ! 51: #define rcomms (lispsys[40]) ! 52: #define commta (lispsys[41]) ! 53: #define plimit (lispsys[44]) ! 54: #define array_items (lispsys[45]) ! 55: #define array_pages (lispsys[46]) ! 56: #define array_name (lispsys[47]) ! 57: #define sdot_items (lispsys[48]) ! 58: #define sdot_pages (lispsys[49]) ! 59: #define sdot_name (lispsys[50]) ! 60: #define val_items (lispsys[51]) ! 61: #define val_pages (lispsys[52]) ! 62: #define val_name (lispsys[53]) ! 63: #define splice (lispsys[54]) ! 64: #define rdrsdot (lispsys[55]) ! 65: #define funct_items (lispsys[56]) ! 66: #define funct_pages (lispsys[57]) ! 67: #define funct_name (lispsys[58]) ! 68: #define nstack (lispsys[59]) ! 69: #define rdrint (lispsys[63]) ! 70: #define nilplist (lispsys[64]) ! 71: #define badst (lispsys[65]) ! 72: #define gccheck (lispsys[66]) ! 73: #define gcport (lispsys[67]) ! 74: #define gcdis (lispsys[68]) ! 75: #define gcload (lispsys[69]) ! 76: #define loading (lispsys[70]) ! 77: #define noautot (lispsys[71]) ! 78: #define lcode (lispsys[72]) ! 79: #define ccode (lispsys[73]) ! 80: #define odform (lispsys[74]) ! 81: #define bcdst (lispsys[75]) ! 82: #define listst (lispsys[76]) ! 83: #define macrost (lispsys[77]) ! 84: #define protst (lispsys[78]) ! 85: #define argst (lispsys[79]) ! 86: #define arrayst (lispsys[80]) ! 87: #define proga (lispsys[81]) ! 88: #define progma (lispsys[82]) ! 89: #define bstack (lispsys[83]) ! 90: #define lexpr_atom (lispsys[84]) ! 91: #define lexpr (lispsys[85]) ! 92: #define ibase (lispsys[86]) ! 93: #define Vpiport (lispsys[87]) ! 94: #define Vpoport (lispsys[88]) ! 95: #define Veval (lispsys[89]) ! 96: #define Vererr (lispsys[90]) ! 97: #define Vertpl (lispsys[91]) ! 98: #define Verall (lispsys[92]) ! 99: #define Vermisc (lispsys[93]) ! 100: #define Vlerall (lispsys[94]) ! 101: #define stlist (lispsys[95]) ! 102: #define Vreadtable (lispsys[96]) ! 103: #define strtab (lispsys[97]) ! 104: #define Verbrk (lispsys[98]) ! 105: #define Vnogbar (lispsys[99]) ! 106: #define rdrsdot2 (lispsys[100]) ! 107: #define Veruwpt (lispsys[101]) ! 108: ! 109: #define hunkfree (lispsys[102]) ! 110: #define port_name (lispsys[103]) ! 111: #define reseta (lispsys[104]) ! 112: #define rsetatom (lispsys[105]) ! 113: #define bptr_atom (lispsys[106]) ! 114: #define evalhatom (lispsys[107]) ! 115: #define evalhcall (lispsys[108]) ! 116: #define Vptport (lispsys[109]) ! 117: #define Vcntlw (lispsys[110]) ! 118: #define Verrset (lispsys[111]) ! 119: #define Verundef (lispsys[112]) ! 120: #define Vsubrou (lispsys[113]) ! 121: #define Vprinlevel (lispsys[114]) ! 122: #define Vprinlength (lispsys[115]) ! 123: ! 124: /* various status switches */ ! 125: ! 126: #ifndef CONTORT ! 127: extern lispval stattab[16] ; ! 128: #define Schainp (stattab[0]) ! 129: #define Sautor (stattab[1]) ! 130: #define Strans (stattab[2]) ! 131: #define evalhsw (stattab[3]) ! 132: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.