|
|
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.