|
|
1.1 ! root 1: /* lispvals in use by the program should be in this table. */ ! 2: /* Otherwise they may get garbage-collected. */ ! 3: #define SIGNIF 98 ! 4: extern lispval lispsys[SIGNIF]; ! 5: #define tatom (lispsys[1]) ! 6: #define lambda (lispsys[2]) ! 7: #define nlambda (lispsys[3]) ! 8: #define perda (lispsys[4]) ! 9: #define lpara (lispsys[5]) ! 10: #define rpara (lispsys[6]) ! 11: #define lbkta (lispsys[7]) ! 12: #define rbkta (lispsys[8]) ! 13: #define Eofa (lispsys[9]) ! 14: #define snqta (lispsys[10]) ! 15: #define exclpa (lispsys[11]) ! 16: #define quota (lispsys[12]) ! 17: #define xatom (lispsys[13]) ! 18: #define cara (lispsys[14]) ! 19: #define cdra (lispsys[15]) ! 20: #define gcafter (lispsys[16]) ! 21: #define noptop (lispsys[17]) ! 22: #define gcthresh (lispsys[18]) ! 23: #define int_name (lispsys[19]) ! 24: #define str_name (lispsys[20]) ! 25: #define atom_name (lispsys[21]) ! 26: #define doub_name (lispsys[22]) ! 27: #define dtpr_name (lispsys[23]) ! 28: #define int_items (lispsys[24]) ! 29: #define int_pages (lispsys[25]) ! 30: #define str_items (lispsys[26]) ! 31: #define str_pages (lispsys[27]) ! 32: #define dtpr_items (lispsys[28]) ! 33: #define dtpr_pages (lispsys[29]) ! 34: #define doub_items (lispsys[30]) ! 35: #define doub_pages (lispsys[31]) ! 36: #define atom_items (lispsys[32]) ! 37: #define atom_pages (lispsys[33]) ! 38: #define gccall1 (lispsys[34]) ! 39: #define gccall2 (lispsys[35]) ! 40: #define sysa (lispsys[36]) ! 41: #define plima (lispsys[37]) ! 42: #define macro (lispsys[38]) ! 43: #define startup (lispsys[39]) ! 44: #define rcomms (lispsys[40]) ! 45: #define commta (lispsys[41]) ! 46: #define plimit (lispsys[44]) ! 47: #define array_items (lispsys[45]) ! 48: #define array_pages (lispsys[46]) ! 49: #define array_name (lispsys[47]) ! 50: #define sdot_items (lispsys[48]) ! 51: #define sdot_pages (lispsys[49]) ! 52: #define sdot_name (lispsys[50]) ! 53: #define val_items (lispsys[51]) ! 54: #define val_pages (lispsys[52]) ! 55: #define val_name (lispsys[53]) ! 56: #define splice (lispsys[54]) ! 57: #define rdrsdot (lispsys[55]) ! 58: #define funct_items (lispsys[56]) ! 59: #define funct_pages (lispsys[57]) ! 60: #define funct_name (lispsys[58]) ! 61: #define nstack (lispsys[59]) ! 62: #define rdrint (lispsys[63]) ! 63: #define nilplist (lispsys[64]) ! 64: #define badst (lispsys[65]) ! 65: #define gccheck (lispsys[66]) ! 66: #define gcport (lispsys[67]) ! 67: #define gcdis (lispsys[68]) ! 68: #define gcload (lispsys[69]) ! 69: #define loading (lispsys[70]) ! 70: #define noautot (lispsys[71]) ! 71: #define lcode (lispsys[72]) ! 72: #define ccode (lispsys[73]) ! 73: #define odform (lispsys[74]) ! 74: #define bcdst (lispsys[75]) ! 75: #define listst (lispsys[76]) ! 76: #define macrost (lispsys[77]) ! 77: #define protst (lispsys[78]) ! 78: #define argst (lispsys[79]) ! 79: #define arrayst (lispsys[80]) ! 80: #define proga (lispsys[81]) ! 81: #define progma (lispsys[82]) ! 82: #define bstack (lispsys[83]) ! 83: #define lexpr_atom (lispsys[84]) ! 84: #define lexpr (lispsys[85]) ! 85: #define ibase (lispsys[86]) ! 86: #define Vpiport (lispsys[87]) ! 87: #define Vpoport (lispsys[88]) ! 88: #define Veval (lispsys[89]) ! 89: #define Vererr (lispsys[90]) ! 90: #define Vertpl (lispsys[91]) ! 91: #define Verall (lispsys[92]) ! 92: #define Vermisc (lispsys[93]) ! 93: #define Vlerall (lispsys[94]) ! 94: #define stlist (lispsys[95]) ! 95: #define Vreadtable (lispsys[96]) ! 96: #define strtab (lispsys[97]) ! 97: /* various status switches */ ! 98: extern lispval stattab[16] ; ! 99: #define Schainp (stattab[0])
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.