2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "gcl_info.h" |
#include "gcl_info.h" |
4 |
void init_gcl_info(){do_init(VV);} |
void init_gcl_info(){do_init(VV);} |
5 |
/* function definition for SHARP-U-READER */ |
/* local entry for function SHARP-U-READER */ |
6 |
|
|
7 |
static void L1() |
static object LI1(V4,V5,V6) |
8 |
{register object *base=vs_base; |
|
9 |
register object *sup=base+VM1; VC1 |
register object V4;object V5;object V6; |
10 |
vs_check; |
{ VMB1 VMS1 VMV1 |
|
{register object V1; |
|
|
object V2; |
|
|
object V3; |
|
|
V1=(base[0]); |
|
|
V2=(base[1]); |
|
|
V3=(base[2]); |
|
|
vs_top=sup; |
|
11 |
goto TTL; |
goto TTL; |
12 |
TTL:; |
TTL:; |
13 |
{object V4; |
{object V7; |
14 |
base[3]= small_fixnum(10); |
V7= (VFUN_NARGS=5,(*(LnkLI89))(small_fixnum(10),VV[0],VV[1],VV[2],small_fixnum(0)));{object V8; |
15 |
base[4]= VV[0]; |
{object V9; |
16 |
base[5]= VV[1]; |
{long V10; |
17 |
base[6]= VV[2]; |
V10= 0; |
18 |
base[7]= small_fixnum(0); |
if(!((type_of((V4))==t_stream? (((V4))->sm.sm_fp)!=0: 0 ))){ |
19 |
vs_top=(vs_base=base+3)+5; |
goto T10;} |
20 |
(void) (*Lnk89)(); |
V10= (long)getc(((V4))->sm.sm_fp); |
21 |
vs_top=sup; |
if(!((V10)==(-1))){ |
22 |
V4= vs_base[0];{object V5; |
goto T15;} |
23 |
{object V6; |
if(!((feof(((V4))->sm.sm_fp)))){ |
|
{long V7; |
|
|
V7= 0; |
|
|
if(!((type_of((V1))==t_stream? (((V1))->sm.sm_fp)!=0: 0 ))){ |
|
24 |
goto T15;} |
goto T15;} |
25 |
V7= (long)getc(((V1))->sm.sm_fp); |
V9= Cnil; |
26 |
if(!((V7)==(-1))){ |
goto T7; |
|
goto T20;} |
|
|
if(!((feof(((V1))->sm.sm_fp)))){ |
|
|
goto T20;} |
|
|
V6= Cnil; |
|
|
goto T12; |
|
|
goto T20; |
|
|
T20:; |
|
|
V6= code_char((V7)); |
|
|
goto T12; |
|
27 |
goto T15; |
goto T15; |
28 |
T15:; |
T15:; |
29 |
V6= read_char1((V1),Cnil);} |
V9= code_char((V10)); |
30 |
goto T12; |
goto T7; |
|
T12:; |
|
|
if(type_of((V6))==t_character){ |
|
|
goto T24;} |
|
|
V5= Cnil; |
|
|
goto T11; |
|
|
goto T24; |
|
|
T24:; |
|
|
V5= (((long)(34))==((long)(char_code((V6))))?Ct:Cnil);} |
|
|
goto T11; |
|
|
T11:; |
|
|
if(V5==Cnil)goto T10; |
|
|
goto T9; |
|
31 |
goto T10; |
goto T10; |
32 |
T10:;} |
T10:; |
33 |
base[3]= VV[4]; |
V9= read_char1((V4),Cnil);} |
34 |
vs_top=(vs_base=base+3)+1; |
goto T7; |
35 |
|
T7:; |
36 |
|
if(type_of((V9))==t_character){ |
37 |
|
goto T19;} |
38 |
|
V8= Cnil; |
39 |
|
goto T6; |
40 |
|
goto T19; |
41 |
|
T19:; |
42 |
|
V8= (((long)(34))==((long)(char_code((V9))))?Ct:Cnil);} |
43 |
|
goto T6; |
44 |
|
T6:; |
45 |
|
if(V8==Cnil)goto T5; |
46 |
|
goto T4; |
47 |
|
goto T5; |
48 |
|
T5:;} |
49 |
|
base[0]= VV[4]; |
50 |
|
vs_top=(vs_base=base+0)+1; |
51 |
Lerror(); |
Lerror(); |
52 |
vs_top=sup; |
vs_top=sup; |
53 |
goto T9; |
goto T4; |
54 |
T9:; |
T4:; |
55 |
goto T29; |
goto T24; |
56 |
T29:; |
T24:; |
57 |
{register object V8; |
{register object V11; |
58 |
{register long V9; |
{register long V12; |
59 |
V9= 0; |
V12= 0; |
60 |
if(!((type_of((V1))==t_stream? (((V1))->sm.sm_fp)!=0: 0 ))){ |
if(!((type_of((V4))==t_stream? (((V4))->sm.sm_fp)!=0: 0 ))){ |
61 |
|
goto T29;} |
62 |
|
V12= (long)getc(((V4))->sm.sm_fp); |
63 |
|
if(!((V12)==(-1))){ |
64 |
goto T34;} |
goto T34;} |
65 |
V9= (long)getc(((V1))->sm.sm_fp); |
if(!((feof(((V4))->sm.sm_fp)))){ |
66 |
if(!((V9)==(-1))){ |
goto T34;} |
67 |
goto T39;} |
V11= Cnil; |
68 |
if(!((feof(((V1))->sm.sm_fp)))){ |
goto T26; |
|
goto T39;} |
|
|
V8= Cnil; |
|
|
goto T31; |
|
|
goto T39; |
|
|
T39:; |
|
|
V8= code_char((V9)); |
|
|
goto T31; |
|
69 |
goto T34; |
goto T34; |
70 |
T34:; |
T34:; |
71 |
V8= read_char1((V1),Cnil);} |
V11= code_char((V12)); |
72 |
goto T31; |
goto T26; |
73 |
T31:; |
goto T29; |
74 |
if(type_of(V8)==t_character){ |
T29:; |
75 |
goto T47;} |
V11= read_char1((V4),Cnil);} |
76 |
goto T45; |
goto T26; |
77 |
goto T47; |
T26:; |
78 |
T47:; |
if(type_of(V11)==t_character){ |
79 |
if(!(((long)(34))==((long)(char_code(V8))))){ |
goto T42;} |
80 |
goto T45;} |
goto T40; |
81 |
goto T27; |
goto T42; |
82 |
goto T45; |
T42:; |
83 |
T45:; |
if(!(((long)(34))==((long)(char_code(V11))))){ |
84 |
if(type_of(V8)==t_character){ |
goto T40;} |
85 |
goto T51;} |
goto T22; |
86 |
goto T43; |
goto T40; |
87 |
goto T51; |
T40:; |
88 |
T51:; |
if(type_of(V11)==t_character){ |
89 |
if(!(((long)(92))==((long)(char_code(V8))))){ |
goto T46;} |
90 |
goto T43;} |
goto T38; |
91 |
{register long V12; |
goto T46; |
92 |
V12= 0; |
T46:; |
93 |
if(!((type_of((V1))==t_stream? (((V1))->sm.sm_fp)!=0: 0 ))){ |
if(!(((long)(92))==((long)(char_code(V11))))){ |
94 |
|
goto T38;} |
95 |
|
{register long V15; |
96 |
|
V15= 0; |
97 |
|
if(!((type_of((V4))==t_stream? (((V4))->sm.sm_fp)!=0: 0 ))){ |
98 |
|
goto T52;} |
99 |
|
V15= (long)getc(((V4))->sm.sm_fp); |
100 |
|
if(!((V15)==(-1))){ |
101 |
goto T57;} |
goto T57;} |
102 |
V12= (long)getc(((V1))->sm.sm_fp); |
if(!((feof(((V4))->sm.sm_fp)))){ |
103 |
if(!((V12)==(-1))){ |
goto T57;} |
104 |
goto T62;} |
V11= Cnil; |
105 |
if(!((feof(((V1))->sm.sm_fp)))){ |
goto T49; |
|
goto T62;} |
|
|
V8= Cnil; |
|
|
goto T54; |
|
|
goto T62; |
|
|
T62:; |
|
|
V8= code_char((V12)); |
|
|
goto T54; |
|
106 |
goto T57; |
goto T57; |
107 |
T57:; |
T57:; |
108 |
V8= read_char1((V1),Cnil);} |
V11= code_char((V15)); |
109 |
goto T54; |
goto T49; |
110 |
T54:;{object V13; |
goto T52; |
111 |
{register object x= (V8),V15= VV[6]; |
T52:; |
112 |
while(V15!=Cnil) |
V11= read_char1((V4),Cnil);} |
113 |
if(eql(x,V15->c.c_car->c.c_car) &&V15->c.c_car != Cnil){ |
goto T49; |
114 |
V14= (V15->c.c_car); |
T49:;{object V16; |
115 |
goto T69; |
{register object x= (V11),V18= VV[6]; |
116 |
}else V15=V15->c.c_cdr; |
while(V18!=Cnil) |
117 |
V14= Cnil;} |
if(eql(x,V18->c.c_car->c.c_car) &&V18->c.c_car != Cnil){ |
118 |
|
V17= (V18->c.c_car); |
119 |
|
goto T64; |
120 |
|
}else V18=V18->c.c_cdr; |
121 |
|
V17= Cnil;} |
122 |
|
goto T64; |
123 |
|
T64:; |
124 |
|
V16= CMPcdr(V17); |
125 |
|
if(V16==Cnil)goto T62; |
126 |
|
V11= V16; |
127 |
|
goto T61; |
128 |
|
goto T62; |
129 |
|
T62:;} |
130 |
|
goto T61; |
131 |
|
T61:; |
132 |
|
goto T38; |
133 |
|
T38:; |
134 |
|
{register object V20; |
135 |
|
register long V21; |
136 |
|
long V22; |
137 |
|
V20= (V7); |
138 |
|
V21= (long)(((V20))->st.st_fillp); |
139 |
|
V22= (long)(((V20))->st.st_dim); |
140 |
|
if(!((V21)<(V22))){ |
141 |
|
goto T69;} |
142 |
|
(void)((((V20))->st.st_fillp)=((long)(1)+(V21))); |
143 |
|
V23 = CMPmake_fixnum(V21); |
144 |
|
(void)(aset1((V20),fix(V23),V11)); |
145 |
|
goto T25; |
146 |
goto T69; |
goto T69; |
147 |
T69:; |
T69:; |
148 |
V13= CMPcdr(V14); |
(void)((VFUN_NARGS=2,(*(LnkLI90))(V11,(V20))));}} |
149 |
if(V13==Cnil)goto T67; |
goto T25; |
150 |
V8= V13; |
T25:; |
151 |
goto T66; |
goto T24; |
152 |
goto T67; |
goto T22; |
153 |
T67:;} |
T22:; |
154 |
goto T66; |
{object V24 = (V7); |
155 |
T66:; |
VMR1(V24)}} |
156 |
goto T43; |
base[0]=base[0]; |
157 |
T43:; |
return Cnil; |
158 |
{register object V17; |
} |
159 |
register long V18; |
/* local entry for function FILE-TO-STRING */ |
160 |
long V19; |
|
161 |
V17= (V4); |
static object LI2(object V25,object first,...) |
162 |
V18= (long)(((V17))->st.st_fillp); |
{ |
163 |
V19= (long)(((V17))->st.st_dim); |
va_list ap; |
164 |
if(!((V18)<(V19))){ |
int narg = VFUN_NARGS; VMB2 VMS2 VMV2 |
165 |
goto T74;} |
bds_check; |
166 |
(void)((((V17))->st.st_fillp)=((long)(1)+(V18))); |
{VOL object V26; |
167 |
V20 = CMPmake_fixnum(V18); |
va_start(ap,first); |
168 |
(void)(aset1((V17),fix(V20),V8)); |
V26= V25; |
169 |
goto T30; |
narg = narg - 1; |
170 |
|
if (narg <= 0) goto T74; |
171 |
|
else { |
172 |
|
base[1]= first;} |
173 |
|
--narg; goto T75; |
174 |
goto T74; |
goto T74; |
175 |
T74:; |
T74:; |
|
base[3]= V8; |
|
|
base[4]= (V17); |
|
|
vs_top=(vs_base=base+3)+2; |
|
|
(void) (*Lnk90)(); |
|
|
vs_top=sup;}} |
|
|
goto T30; |
|
|
T30:; |
|
|
goto T29; |
|
|
goto T27; |
|
|
T27:; |
|
|
base[3]= (V4); |
|
|
vs_top=(vs_base=base+3)+1; |
|
|
return;} |
|
|
} |
|
|
} |
|
|
/* function definition for FILE-TO-STRING */ |
|
|
|
|
|
static void L2() |
|
|
{register object *VOL base=vs_base; |
|
|
register object *VOL sup=base+VM2; VC2 |
|
|
vs_check; |
|
|
bds_check; |
|
|
{VOL object V21; |
|
|
V21=(base[0]); |
|
|
vs_base=vs_base+1; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T81;} |
|
|
vs_top=sup; |
|
|
goto T82; |
|
|
goto T81; |
|
|
T81:; |
|
176 |
base[1]= small_fixnum(0); |
base[1]= small_fixnum(0); |
177 |
goto T82; |
goto T75; |
178 |
T82:; |
T75:; |
179 |
bds_bind(VV[7],Ct); |
bds_bind(VV[7],Ct); |
180 |
base[3]= small_fixnum(0); |
base[3]= small_fixnum(0); |
181 |
base[5]= (V21); |
base[5]= (V26); |
182 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
183 |
(void) (*Lnk91)(); |
(void) (*Lnk91)(); |
184 |
vs_top=sup; |
vs_top=sup; |
191 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
192 |
Lfile_length(); |
Lfile_length(); |
193 |
vs_top=sup; |
vs_top=sup; |
194 |
base[3]= vs_base[0];{VOL object V22; |
base[3]= vs_base[0];{VOL object V27; |
195 |
if(number_compare(small_fixnum(0),base[1])<=0){ |
if(number_compare(small_fixnum(0),base[1])<=0){ |
196 |
goto T93;} |
goto T86;} |
197 |
V22= Cnil; |
V27= Cnil; |
198 |
goto T92; |
goto T85; |
199 |
goto T93; |
goto T86; |
200 |
T93:; |
T86:; |
201 |
V22= (number_compare(base[1],base[3])<=0?Ct:Cnil); |
V27= (number_compare(base[1],base[3])<=0?Ct:Cnil); |
202 |
goto T92; |
goto T85; |
203 |
T92:; |
T85:; |
204 |
if(V22==Cnil)goto T91; |
if(V27==Cnil)goto T84; |
205 |
goto T90; |
goto T83; |
206 |
goto T91; |
goto T84; |
207 |
T91:;} |
T84:;} |
208 |
base[6]= VV[8]; |
base[6]= VV[8]; |
209 |
base[7]= base[1]; |
base[7]= base[1]; |
210 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
211 |
Lerror(); |
Lerror(); |
212 |
vs_top=sup; |
vs_top=sup; |
213 |
goto T90; |
goto T83; |
214 |
T90:; |
T83:; |
215 |
{object V23; |
{object V28; |
216 |
base[6]= number_minus(base[3],base[1]); |
V29= number_minus(base[3],base[1]); |
217 |
base[7]= VV[0]; |
V28= (VFUN_NARGS=3,(*(LnkLI89))(/* INLINE-ARGS */V29,VV[0],VV[1])); |
|
base[8]= VV[1]; |
|
|
vs_top=(vs_base=base+6)+3; |
|
|
(void) (*Lnk89)(); |
|
|
vs_top=sup; |
|
|
V23= vs_base[0]; |
|
218 |
if(!(number_compare(base[1],small_fixnum(0))>0)){ |
if(!(number_compare(base[1],small_fixnum(0))>0)){ |
219 |
goto T101;} |
goto T91;} |
220 |
base[6]= base[4]; |
base[6]= base[4]; |
221 |
base[7]= base[1]; |
base[7]= base[1]; |
222 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
223 |
Lfile_position(); |
Lfile_position(); |
224 |
vs_top=sup; |
vs_top=sup; |
225 |
goto T101; |
goto T91; |
226 |
T101:; |
T91:; |
227 |
base[6]= (V23); |
base[6]= (V28); |
228 |
base[7]= small_fixnum(0); |
base[7]= small_fixnum(0); |
229 |
base[8]= CMPmake_fixnum((long)length((V23))); |
base[8]= CMPmake_fixnum((long)length((V28))); |
230 |
base[9]= base[4]; |
base[9]= base[4]; |
231 |
vs_top=(vs_base=base+6)+4; |
vs_top=(vs_base=base+6)+4; |
232 |
(void) (*Lnk92)(); |
(void) (*Lnk92)(); |
233 |
vs_top=sup; |
vs_top=sup; |
234 |
base[6]= (V23); |
base[6]= (V28); |
235 |
vs_top=(vs_base=base+6)+1;} |
vs_top=(vs_base=base+6)+1;} |
236 |
active=FALSE;} |
active=FALSE;} |
237 |
base[5]=Cnil; |
base[5]=Cnil; |
240 |
vs_top=sup; |
vs_top=sup; |
241 |
nlj_active=FALSE;frs_pop(); |
nlj_active=FALSE;frs_pop(); |
242 |
if((base[4])==Cnil){ |
if((base[4])==Cnil){ |
243 |
goto T111;} |
goto T101;} |
244 |
base[6]= base[4]; |
base[6]= base[4]; |
245 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
246 |
Lclose(); |
Lclose(); |
247 |
vs_top=sup; |
vs_top=sup; |
248 |
goto T111; |
goto T101; |
249 |
T111:; |
T101:; |
250 |
vs_base=vs_top=base+6; |
vs_base=vs_top=base+6; |
251 |
for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
252 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
253 |
|
vs_top=sup; |
254 |
|
{object V30 = vs_base[0]; |
255 |
bds_unwind1; |
bds_unwind1; |
256 |
return;}} |
VMR2(V30)}}} |
257 |
|
va_end(ap); |
258 |
|
base[0]=base[0]; |
259 |
|
return Cnil;} |
260 |
} |
} |
261 |
} |
/* local entry for function ATOI */ |
|
/* function definition for ATOI */ |
|
262 |
|
|
263 |
static void L3() |
static object LI3(V33,V34) |
264 |
{register object *base=vs_base; |
|
265 |
register object *sup=base+VM3; VC3 |
register object V33;register long V34; |
266 |
vs_check; |
{ VMB3 VMS3 VMV3 |
|
{register object V24; |
|
|
register long V25; |
|
|
V24=(base[0]); |
|
|
V25=fix(base[1]); |
|
|
vs_top=sup; |
|
267 |
goto TTL; |
goto TTL; |
268 |
TTL:; |
TTL:; |
269 |
{register long V26; |
{register long V35; |
270 |
register long V27; |
register long V36; |
271 |
register long V28; |
register long V37; |
272 |
V26= 0; |
V35= 0; |
273 |
V27= 0; |
V36= 0; |
274 |
V28= (long)((V24))->v.v_fillp; |
V37= (long)((V33))->v.v_fillp; |
275 |
goto T120; |
goto T110; |
276 |
T120:; |
T110:; |
277 |
if(!((V25)<(V28))){ |
if(!((V34)<(V37))){ |
278 |
|
goto T113;} |
279 |
|
goto T112; |
280 |
|
goto T113; |
281 |
|
T113:; |
282 |
|
goto T111; |
283 |
|
goto T112; |
284 |
|
T112:; |
285 |
|
V36= (long)(((V33))->ust.ust_self[V34]); |
286 |
|
V34= (long)(V34)+(1); |
287 |
|
V36= (long)(V36)-(48); |
288 |
|
if(!((V36)>=(0))){ |
289 |
goto T123;} |
goto T123;} |
290 |
goto T122; |
if(!((V36)<(10))){ |
291 |
|
goto T123;} |
292 |
|
V38 = CMPmake_fixnum(V36); |
293 |
|
V39 = CMPmake_fixnum(V35); |
294 |
|
V40= number_times(small_fixnum(10),V39); |
295 |
|
V35= fix(number_plus(V38,/* INLINE-ARGS */V40)); |
296 |
|
goto T121; |
297 |
goto T123; |
goto T123; |
298 |
T123:; |
T123:; |
299 |
goto T121; |
goto T108; |
|
goto T122; |
|
|
T122:; |
|
|
V27= (long)(((V24))->ust.ust_self[V25]); |
|
|
V25= (long)(V25)+(1); |
|
|
V27= (long)(V27)-(48); |
|
|
if(!((V27)>=(0))){ |
|
|
goto T133;} |
|
|
if(!((V27)<(10))){ |
|
|
goto T133;} |
|
|
V29 = CMPmake_fixnum(V27); |
|
|
V30 = CMPmake_fixnum(V26); |
|
|
V31= number_times(small_fixnum(10),V30); |
|
|
V26= fix(number_plus(V29,/* INLINE-ARGS */V31)); |
|
|
goto T131; |
|
|
goto T133; |
|
|
T133:; |
|
|
goto T118; |
|
|
goto T131; |
|
|
T131:; |
|
|
goto T120; |
|
300 |
goto T121; |
goto T121; |
301 |
T121:; |
T121:; |
302 |
goto T118; |
goto T110; |
303 |
goto T118; |
goto T111; |
304 |
goto T118; |
T111:; |
305 |
T118:; |
goto T108; |
306 |
base[2]= CMPmake_fixnum(V26); |
goto T108; |
307 |
vs_top=(vs_base=base+2)+1; |
goto T108; |
308 |
return;} |
T108:; |
309 |
} |
{long V41 = V35; |
310 |
|
VMR3((object)V41)}} |
311 |
} |
} |
312 |
/* function definition for INFO-GET-TAGS */ |
/* local entry for function INFO-GET-TAGS */ |
313 |
|
|
314 |
static void L4() |
static object LI4(V43) |
315 |
{register object *base=vs_base; |
|
316 |
register object *sup=base+VM4; VC4 |
object V43; |
317 |
vs_check; |
{ VMB4 VMS4 VMV4 |
318 |
bds_check; |
bds_check; |
|
{object V32; |
|
|
V32=(base[0]); |
|
|
vs_top=sup; |
|
319 |
goto TTL; |
goto TTL; |
320 |
TTL:; |
TTL:; |
321 |
{register long V33; |
{register long V44; |
322 |
object V34; |
object V45; |
323 |
register object V35; |
register object V46; |
324 |
V33= 0; |
V44= 0; |
325 |
bds_bind(VV[9],Cnil); |
bds_bind(VV[9],Cnil); |
326 |
V34= Cnil; |
V45= Cnil; |
327 |
V35= Cnil; |
V46= Cnil; |
328 |
bds_bind(VV[10],Ct); |
bds_bind(VV[10],Ct); |
329 |
{register object V36; |
{register object V47; |
330 |
register long V37; |
register long V48; |
331 |
base[3]= (V32); |
V47= (VFUN_NARGS=1,(*(LnkLI93))((V43))); |
332 |
vs_top=(vs_base=base+3)+1; |
V48= 0; |
333 |
(void) (*Lnk93)(); |
{long V49= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[11],(V47),small_fixnum(0)))); |
334 |
vs_top=sup; |
if(!((/* INLINE-ARGS */V49)>=(0))){ |
335 |
V36= vs_base[0]; |
goto T134;}} |
336 |
V37= 0; |
V48= (long)(*(LnkLI95))(0); |
337 |
{long V38= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[11],(V36),small_fixnum(0)))); |
V50 = CMPmake_fixnum(V48); |
338 |
if(!((/* INLINE-ARGS */V38)>=(0))){ |
V44= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[12],(V47),V50))); |
339 |
|
goto T142; |
340 |
|
T142:; |
341 |
|
V51 = CMPmake_fixnum(V48); |
342 |
|
V52 = CMPmake_fixnum(V44); |
343 |
|
{long V53= fix((VFUN_NARGS=4,(*(LnkLI94))(VV[13],(V47),V51,V52))); |
344 |
|
if(!((/* INLINE-ARGS */V53)>=(0))){ |
345 |
goto T145;}} |
goto T145;}} |
346 |
V37= (long)(*(LnkLI95))(0); |
goto T144; |
|
V39 = CMPmake_fixnum(V37); |
|
|
V33= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[12],(V36),V39))); |
|
|
goto T153; |
|
|
T153:; |
|
|
V40 = CMPmake_fixnum(V37); |
|
|
V41 = CMPmake_fixnum(V33); |
|
|
{long V42= fix((VFUN_NARGS=4,(*(LnkLI94))(VV[13],(V36),V40,V41))); |
|
|
if(!((/* INLINE-ARGS */V42)>=(0))){ |
|
|
goto T156;}} |
|
|
goto T155; |
|
|
goto T156; |
|
|
T156:; |
|
|
goto T154; |
|
|
goto T155; |
|
|
T155:; |
|
|
V37= (long)(*(LnkLI95))(0); |
|
|
base[3]= (V36); |
|
|
base[4]= CMPmake_fixnum((long)(*(LnkLI96))(2)); |
|
|
vs_top=(vs_base=base+3)+2; |
|
|
(void) (*Lnk97)(); |
|
|
vs_top=sup; |
|
|
V43= vs_base[0]; |
|
|
base[3]= (V36); |
|
|
base[4]= small_fixnum(1); |
|
|
vs_top=(vs_base=base+3)+2; |
|
|
(void) (*Lnk98)(); |
|
|
vs_top=sup; |
|
|
V44= vs_base[0]; |
|
|
V45= make_cons(V43,V44); |
|
|
V35= make_cons(/* INLINE-ARGS */V45,(V35)); |
|
|
goto T153; |
|
|
goto T154; |
|
|
T154:; |
|
|
goto T145; |
|
|
goto T145; |
|
347 |
goto T145; |
goto T145; |
348 |
T145:; |
T145:; |
349 |
V46 = CMPmake_fixnum(V37); |
goto T143; |
350 |
{long V47= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[14],(V36),V46))); |
goto T144; |
351 |
if(!((/* INLINE-ARGS */V47)>=(0))){ |
T144:; |
352 |
goto T169;}} |
V48= (long)(*(LnkLI95))(0); |
353 |
V37= (long)(*(LnkLI95))(0); |
{long V54= (long)(*(LnkLI97))(2); |
354 |
V48 = CMPmake_fixnum(V37); |
V55 = CMPmake_fixnum((long)(*(LnkLI96))((V47),/* INLINE-ARGS */V54)); |
355 |
{long V49= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[15],(V36),V48))); |
V56= (*(LnkLI98))((V47),small_fixnum(1)); |
356 |
if(!((/* INLINE-ARGS */V49)>=(0))){ |
V57= make_cons(V55,/* INLINE-ARGS */V56); |
357 |
goto T169;}} |
V46= make_cons(/* INLINE-ARGS */V57,(V46));} |
358 |
base[3]= (V36); |
goto T142; |
359 |
base[4]= CMPmake_fixnum(V37); |
goto T143; |
360 |
base[5]= CMPmake_fixnum((long)(*(LnkLI95))(0)); |
T143:; |
361 |
vs_top=(vs_base=base+3)+3; |
goto T134; |
362 |
|
goto T134; |
363 |
|
goto T134; |
364 |
|
T134:; |
365 |
|
V58 = CMPmake_fixnum(V48); |
366 |
|
{long V59= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[14],(V47),V58))); |
367 |
|
if(!((/* INLINE-ARGS */V59)>=(0))){ |
368 |
|
goto T152;}} |
369 |
|
V48= (long)(*(LnkLI95))(0); |
370 |
|
V60 = CMPmake_fixnum(V48); |
371 |
|
{long V61= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[15],(V47),V60))); |
372 |
|
if(!((/* INLINE-ARGS */V61)>=(0))){ |
373 |
|
goto T152;}} |
374 |
|
base[2]= (V47); |
375 |
|
base[3]= CMPmake_fixnum(V48); |
376 |
|
base[4]= CMPmake_fixnum((long)(*(LnkLI95))(0)); |
377 |
|
vs_top=(vs_base=base+2)+3; |
378 |
Lsubseq(); |
Lsubseq(); |
379 |
vs_top=sup; |
vs_top=sup; |
380 |
V34= vs_base[0]; |
V45= vs_base[0]; |
381 |
goto T169; |
goto T152; |
382 |
T169:; |
T152:; |
383 |
if(((V35))==Cnil){ |
if(((V46))==Cnil){ |
384 |
goto T180;} |
goto T163;} |
385 |
if((V34)!=Cnil){ |
if((V45)!=Cnil){ |
386 |
goto T180;} |
goto T163;} |
387 |
base[3]= VV[16]; |
base[2]= VV[16]; |
388 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+2)+1; |
389 |
(void) (*Lnk99)(); |
(void) (*Lnk99)(); |
390 |
vs_top=sup; |
vs_top=sup; |
391 |
goto T180; |
goto T163; |
392 |
T180:; |
T163:; |
393 |
V50= nreverse((V35)); |
V62= nreverse((V46)); |
394 |
base[3]= make_cons((V34),/* INLINE-ARGS */V50); |
{object V63 = make_cons((V45),/* INLINE-ARGS */V62); |
|
vs_top=(vs_base=base+3)+1; |
|
395 |
bds_unwind1; |
bds_unwind1; |
396 |
bds_unwind1; |
bds_unwind1; |
397 |
return;}} |
VMR4(V63)}}} |
398 |
} |
base[0]=base[0]; |
399 |
|
return Cnil; |
400 |
} |
} |
401 |
/* function definition for RE-QUOTE-STRING */ |
/* local entry for function RE-QUOTE-STRING */ |
402 |
|
|
403 |
static void L5() |
static object LI5(V65) |
404 |
{register object *base=vs_base; |
|
405 |
register object *sup=base+VM5; VC5 |
object V65; |
406 |
vs_check; |
{ VMB5 VMS5 VMV5 |
|
{object V51; |
|
|
V51=(base[0]); |
|
|
vs_top=sup; |
|
407 |
goto TTL; |
goto TTL; |
408 |
TTL:; |
TTL:; |
409 |
{register long V52; |
{register long V66; |
410 |
long V53; |
long V67; |
411 |
object V54; |
object V68; |
412 |
long V55; |
long V69; |
413 |
V52= 0; |
V66= 0; |
414 |
V53= (long)((V51))->v.v_fillp; |
V67= (long)((V65))->v.v_fillp; |
415 |
V54= Cnil; |
V68= Cnil; |
416 |
V55= 0; |
V69= 0; |
417 |
{register object V56; |
{register object V70; |
418 |
V56= Cnil; |
V70= Cnil; |
419 |
goto T190; |
goto T173; |
420 |
T190:; |
T173:; |
421 |
goto T193; |
goto T176; |
422 |
T193:; |
T176:; |
423 |
if(!((V52)<(V53))){ |
if(!((V66)<(V67))){ |
424 |
goto T196;} |
goto T179;} |
425 |
goto T195; |
goto T178; |
426 |
goto T196; |
goto T179; |
427 |
T196:; |
T179:; |
428 |
|
goto T177; |
429 |
|
goto T178; |
430 |
|
T178:; |
431 |
|
V68= code_char(((V65))->ust.ust_self[V66]); |
432 |
|
if(((VFUN_NARGS=2,(*(LnkLI100))((V68),VV[17])))==Cnil){ |
433 |
|
goto T183;} |
434 |
|
if(((V70))==Cnil){ |
435 |
|
goto T187;} |
436 |
|
{unsigned char V71; |
437 |
|
register object V72; |
438 |
|
register long V73; |
439 |
|
long V74; |
440 |
|
V71= 92; |
441 |
|
V72= (V70); |
442 |
|
V73= (long)(((V72))->st.st_fillp); |
443 |
|
V74= (long)(((V72))->st.st_dim); |
444 |
|
if(!((V73)<(V74))){ |
445 |
|
goto T194;} |
446 |
|
(void)((((V72))->st.st_fillp)=((long)(1)+(V73))); |
447 |
|
V75 = CMPmake_fixnum(V73); |
448 |
|
(void)(aset1((V72),fix(V75),code_char(V71))); |
449 |
|
goto T183; |
450 |
goto T194; |
goto T194; |
451 |
goto T195; |
T194:; |
452 |
T195:; |
(void)((VFUN_NARGS=2,(*(LnkLI90))(code_char(V71),(V72)))); |
453 |
V54= code_char(((V51))->ust.ust_self[V52]); |
goto T183;} |
454 |
base[1]= (V54); |
goto T187; |
455 |
base[2]= VV[17]; |
T187:; |
456 |
vs_top=(vs_base=base+1)+2; |
V69= (long)(V69)+(1); |
457 |
(void) (*Lnk100)(); |
goto T183; |
458 |
vs_top=sup; |
T183:; |
459 |
if((vs_base[0])==Cnil){ |
if(((V70))==Cnil){ |
460 |
goto T200;} |
goto T199;} |
461 |
if(((V56))==Cnil){ |
{register object V77; |
462 |
|
register long V78; |
463 |
|
long V79; |
464 |
|
V77= (V70); |
465 |
|
V78= (long)(((V77))->st.st_fillp); |
466 |
|
V79= (long)(((V77))->st.st_dim); |
467 |
|
if(!((V78)<(V79))){ |
468 |
goto T206;} |
goto T206;} |
469 |
{unsigned char V57; |
(void)((((V77))->st.st_fillp)=((long)(1)+(V78))); |
470 |
register object V58; |
V80 = CMPmake_fixnum(V78); |
471 |
register long V59; |
(void)(aset1((V77),fix(V80),V68)); |
472 |
long V60; |
goto T199; |
|
V57= 92; |
|
|
V58= (V56); |
|
|
V59= (long)(((V58))->st.st_fillp); |
|
|
V60= (long)(((V58))->st.st_dim); |
|
|
if(!((V59)<(V60))){ |
|
|
goto T213;} |
|
|
(void)((((V58))->st.st_fillp)=((long)(1)+(V59))); |
|
|
V61 = CMPmake_fixnum(V59); |
|
|
(void)(aset1((V58),fix(V61),code_char(V57))); |
|
|
goto T200; |
|
|
goto T213; |
|
|
T213:; |
|
|
base[1]= code_char(V57); |
|
|
base[2]= (V58); |
|
|
vs_top=(vs_base=base+1)+2; |
|
|
(void) (*Lnk90)(); |
|
|
vs_top=sup; |
|
|
goto T200;} |
|
473 |
goto T206; |
goto T206; |
474 |
T206:; |
T206:; |
475 |
V55= (long)(V55)+(1); |
(void)((VFUN_NARGS=2,(*(LnkLI90))(V68,(V77))));} |
476 |
goto T200; |
goto T199; |
477 |
T200:; |
T199:; |
478 |
if(((V56))==Cnil){ |
V66= (long)(V66)+(1); |
479 |
goto T220;} |
goto T176; |
480 |
{register object V63; |
goto T177; |
481 |
register long V64; |
T177:; |
482 |
long V65; |
goto T174; |
483 |
V63= (V56); |
goto T174; |
484 |
V64= (long)(((V63))->st.st_fillp); |
goto T174; |
485 |
V65= (long)(((V63))->st.st_dim); |
T174:; |
486 |
if(!((V64)<(V65))){ |
{object V81; |
487 |
goto T227;} |
V81= (V70); |
488 |
(void)((((V63))->st.st_fillp)=((long)(1)+(V64))); |
if(((V81))==Cnil){ |
489 |
V66 = CMPmake_fixnum(V64); |
goto T215;} |
490 |
(void)(aset1((V63),fix(V66),V54)); |
goto T213; |
491 |
goto T220; |
goto T215; |
492 |
goto T227; |
T215:; |
493 |
T227:; |
if(!((V69)>(0))){ |
494 |
base[1]= V54; |
goto T218;} |
495 |
base[2]= (V63); |
V82 = CMPmake_fixnum((long)((long)((V65))->v.v_fillp)+(V69)); |
496 |
vs_top=(vs_base=base+1)+2; |
V70= (VFUN_NARGS=5,(*(LnkLI89))(V82,VV[0],VV[1],VV[2],small_fixnum(0))); |
497 |
(void) (*Lnk90)(); |
V66= 0; |
498 |
vs_top=sup;} |
goto T173; |
499 |
goto T220; |
goto T218; |
500 |
T220:; |
T218:; |
501 |
V52= (long)(V52)+(1); |
V70= (V65);} |
502 |
goto T193; |
goto T213; |
503 |
goto T194; |
T213:; |
504 |
T194:; |
goto T171; |
505 |
goto T191; |
goto T171; |
506 |
goto T191; |
T171:; |
507 |
goto T191; |
{object V83 = (V70); |
508 |
T191:; |
VMR5(V83)}}} |
509 |
{object V67; |
return Cnil; |
|
V67= (V56); |
|
|
if(((V67))==Cnil){ |
|
|
goto T238;} |
|
|
goto T236; |
|
|
goto T238; |
|
|
T238:; |
|
|
if(!((V55)>(0))){ |
|
|
goto T241;} |
|
|
base[1]= CMPmake_fixnum((long)((long)((V51))->v.v_fillp)+(V55)); |
|
|
base[2]= VV[0]; |
|
|
base[3]= VV[1]; |
|
|
base[4]= VV[2]; |
|
|
base[5]= small_fixnum(0); |
|
|
vs_top=(vs_base=base+1)+5; |
|
|
(void) (*Lnk89)(); |
|
|
vs_top=sup; |
|
|
V56= vs_base[0]; |
|
|
V52= 0; |
|
|
goto T190; |
|
|
goto T241; |
|
|
T241:; |
|
|
V56= (V51);} |
|
|
goto T236; |
|
|
T236:; |
|
|
goto T188; |
|
|
goto T188; |
|
|
T188:; |
|
|
base[1]= (V56); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
return;}} |
|
|
} |
|
510 |
} |
} |
511 |
/* function definition for GET-MATCH */ |
/* local entry for function GET-MATCH */ |
512 |
|
|
513 |
static void L6() |
static object LI6(V86,V87) |
514 |
{register object *base=vs_base; |
|
515 |
register object *sup=base+VM6; VC6 |
object V86;object V87; |
516 |
vs_check; |
{ VMB6 VMS6 VMV6 |
|
{object V68; |
|
|
object V69; |
|
|
V68=(base[0]); |
|
|
V69=(base[1]); |
|
|
vs_top=sup; |
|
517 |
goto TTL; |
goto TTL; |
518 |
TTL:; |
TTL:; |
519 |
base[2]= (V68); |
base[0]= (V86); |
520 |
base[3]= CMPmake_fixnum((long)(*(LnkLI96))(fix((V69)))); |
base[1]= CMPmake_fixnum((long)(*(LnkLI97))(fix((V87)))); |
521 |
base[4]= CMPmake_fixnum((long)(*(LnkLI95))(fix((V69)))); |
base[2]= CMPmake_fixnum((long)(*(LnkLI95))(fix((V87)))); |
522 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+0)+3; |
523 |
Lsubseq(); |
Lsubseq(); |
524 |
return; |
vs_top=sup; |
525 |
} |
{object V88 = vs_base[0]; |
526 |
|
VMR6(V88)} |
527 |
|
base[0]=base[0]; |
528 |
|
return Cnil; |
529 |
} |
} |
530 |
/* function definition for GET-NODES */ |
/* local entry for function GET-NODES */ |
531 |
|
|
532 |
static void L7() |
static object LI7(V91,V92) |
533 |
{register object *base=vs_base; |
|
534 |
register object *sup=base+VM7; VC7 |
register object V91;register object V92; |
535 |
vs_check; |
{ VMB7 VMS7 VMV7 |
536 |
bds_check; |
bds_check; |
|
{register object V70; |
|
|
register object V71; |
|
|
V70=(base[0]); |
|
|
V71=(base[1]); |
|
|
vs_top=sup; |
|
537 |
goto TTL; |
goto TTL; |
538 |
TTL:; |
TTL:; |
539 |
{register long V72; |
{register long V93; |
540 |
register object V73; |
register object V94; |
541 |
V72= 0; |
V93= 0; |
542 |
V73= Cnil; |
V94= Cnil; |
543 |
bds_bind(VV[10],Ct); |
bds_bind(VV[10],Ct); |
544 |
bds_bind(VV[9],Cnil); |
bds_bind(VV[9],Cnil); |
545 |
if(((V71))==Cnil){ |
if(((V92))==Cnil){ |
546 |
goto T259;} |
goto T231;} |
547 |
base[4]= VV[18]; |
base[2]= VV[18]; |
548 |
base[6]= (V70); |
base[3]= (*(LnkLI101))((V91)); |
549 |
vs_top=(vs_base=base+6)+1; |
base[4]= VV[19]; |
550 |
(void) (*Lnk101)(); |
vs_top=(vs_base=base+2)+3; |
|
vs_top=sup; |
|
|
base[5]= vs_base[0]; |
|
|
base[6]= VV[19]; |
|
|
vs_top=(vs_base=base+4)+3; |
|
551 |
(void) (*Lnk102)(); |
(void) (*Lnk102)(); |
552 |
vs_top=sup; |
vs_top=sup; |
553 |
V70= vs_base[0]; |
V91= vs_base[0]; |
554 |
goto T269; |
goto T240; |
555 |
T269:; |
T240:; |
556 |
V74 = CMPmake_fixnum(V72); |
V95 = CMPmake_fixnum(V93); |
557 |
{long V75= fix((VFUN_NARGS=3,(*(LnkLI94))((V70),(V71),V74))); |
{long V96= fix((VFUN_NARGS=3,(*(LnkLI94))((V91),(V92),V95))); |
558 |
if(!((/* INLINE-ARGS */V75)>=(0))){ |
if(!((/* INLINE-ARGS */V96)>=(0))){ |
559 |
goto T272;}} |
goto T243;}} |
560 |
goto T271; |
goto T242; |
561 |
goto T272; |
goto T243; |
562 |
T272:; |
T243:; |
563 |
goto T270; |
goto T241; |
564 |
goto T271; |
goto T242; |
565 |
T271:; |
T242:; |
566 |
V72= (long)(*(LnkLI95))(0); |
V93= (long)(*(LnkLI95))(0); |
567 |
base[4]= (V71); |
V97= (*(LnkLI98))((V92),small_fixnum(1)); |
568 |
base[5]= small_fixnum(1); |
V94= make_cons(/* INLINE-ARGS */V97,(V94)); |
569 |
vs_top=(vs_base=base+4)+2; |
goto T240; |
570 |
(void) (*Lnk98)(); |
goto T241; |
571 |
vs_top=sup; |
T241:; |
572 |
V76= vs_base[0]; |
goto T238; |
573 |
V73= make_cons(V76,(V73)); |
goto T238; |
574 |
goto T269; |
goto T238; |
575 |
goto T270; |
T238:; |
576 |
T270:; |
{object V98 = nreverse((V94)); |
|
goto T267; |
|
|
goto T267; |
|
|
goto T267; |
|
|
T267:; |
|
|
base[4]= nreverse((V73)); |
|
|
vs_top=(vs_base=base+4)+1; |
|
|
bds_unwind1; |
|
|
bds_unwind1; |
|
|
return; |
|
|
goto T259; |
|
|
T259:; |
|
|
base[4]= Cnil; |
|
|
vs_top=(vs_base=base+4)+1; |
|
577 |
bds_unwind1; |
bds_unwind1; |
578 |
bds_unwind1; |
bds_unwind1; |
579 |
return;} |
VMR7(V98)} |
580 |
} |
goto T231; |
581 |
} |
T231:; |
582 |
/* function definition for GET-INDEX-NODE */ |
{object V99 = Cnil; |
583 |
|
bds_unwind1; |
584 |
static void L8() |
bds_unwind1; |
585 |
{register object *base=vs_base; |
VMR7(V99)}} |
586 |
register object *sup=base+VM8; VC8 |
base[0]=base[0]; |
587 |
vs_check; |
return Cnil; |
588 |
vs_top=sup; |
} |
589 |
goto TTL; |
/* local entry for function GET-INDEX-NODE */ |
590 |
TTL:;{object V77; |
|
591 |
V77= CMPcaddr((VV[20]->s.s_dbind)); |
static object LI8() |
592 |
if(V77==Cnil)goto T282; |
|
593 |
base[0]= V77; |
{ VMB8 VMS8 VMV8 |
594 |
vs_top=(vs_base=base+0)+1; |
goto TTL; |
595 |
return; |
TTL:;{object V100; |
596 |
goto T282; |
V100= CMPcaddr((VV[20]->s.s_dbind)); |
597 |
T282:;} |
if(V100==Cnil)goto T250; |
598 |
{object V78; |
{object V101 = V100; |
599 |
object V79; |
VMR8(V101)} |
600 |
object V80; |
goto T250; |
601 |
V78= Cnil; |
T250:;} |
602 |
V79= CMPcar(CMPcadr((VV[20]->s.s_dbind))); |
{object V102; |
603 |
if((V79)==Cnil){ |
object V103; |
604 |
V80= Cnil; |
object V104; |
605 |
goto T286;} |
V102= Cnil; |
606 |
base[2]= VV[21]; |
V103= CMPcar(CMPcadr((VV[20]->s.s_dbind))); |
607 |
base[3]= (V79); |
if((V103)==Cnil){ |
608 |
vs_top=(vs_base=base+2)+2; |
V104= Cnil; |
609 |
(void) (*Lnk103)(); |
goto T254;} |
610 |
vs_top=sup; |
V105= (*(LnkLI103))(VV[21],(V103)); |
611 |
V81= vs_base[0]; |
V104= CMPcar(/* INLINE-ARGS */V105); |
612 |
V80= CMPcar(V81); |
goto T254; |
613 |
goto T286; |
T254:; |
614 |
T286:; |
if(((V104))==Cnil){ |
615 |
if(((V80))==Cnil){ |
goto T256;} |
616 |
goto T291;} |
base[2]= (V104); |
|
base[2]= (V80); |
|
617 |
base[3]= Cnil; |
base[3]= Cnil; |
618 |
base[4]= Cnil; |
base[4]= Cnil; |
619 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
620 |
(void) (*Lnk104)(); |
(void) (*Lnk104)(); |
621 |
vs_top=sup; |
vs_top=sup; |
622 |
V78= vs_base[0]; |
V102= vs_base[0]; |
623 |
{object V82; |
{object V106; |
624 |
V82= (VV[20]->s.s_dbind); |
V106= (VV[20]->s.s_dbind); |
625 |
(CMPcddr((V82)))->c.c_car = V78; |
(CMPcddr((V106)))->c.c_car = V102; |
626 |
(void)(CMPcddr((V82))); |
(void)(CMPcddr((V106))); |
627 |
base[2]= V78; |
{object V108 = V102; |
628 |
vs_top=(vs_base=base+2)+1; |
VMR8(V108)}} |
629 |
return;} |
goto T256; |
630 |
goto T291; |
T256:; |
631 |
T291:; |
{object V109 = Cnil; |
632 |
base[2]= Cnil; |
VMR8(V109)}} |
633 |
vs_top=(vs_base=base+2)+1; |
base[0]=base[0]; |
634 |
return;} |
return Cnil; |
635 |
} |
} |
636 |
/* function definition for NODES-FROM-INDEX */ |
/* local entry for function NODES-FROM-INDEX */ |
637 |
|
|
638 |
static void L9() |
static object LI9(V111) |
639 |
{register object *base=vs_base; |
|
640 |
register object *sup=base+VM9; VC9 |
register object V111; |
641 |
vs_check; |
{ VMB9 VMS9 VMV9 |
642 |
bds_check; |
bds_check; |
|
{register object V84; |
|
|
V84=(base[0]); |
|
|
vs_top=sup; |
|
643 |
goto TTL; |
goto TTL; |
644 |
TTL:; |
TTL:; |
645 |
{register object V85; |
{register object V112; |
646 |
register object V86; |
register object V113; |
647 |
V85= small_fixnum(0); |
V112= small_fixnum(0); |
648 |
V86= Cnil; |
V113= Cnil; |
649 |
bds_bind(VV[10],Ct); |
bds_bind(VV[10],Ct); |
650 |
bds_bind(VV[9],Cnil); |
bds_bind(VV[9],Cnil); |
651 |
{register object V87; |
{register object V114; |
652 |
vs_base=vs_top; |
V114= (*(LnkLI105))(); |
653 |
(void) (*Lnk105)(); |
if(((V114))==Cnil){ |
654 |
vs_top=sup; |
goto T269;} |
655 |
V87= vs_base[0]; |
base[2]= VV[22]; |
656 |
if(((V87))==Cnil){ |
base[3]= (*(LnkLI101))((V111)); |
657 |
goto T304;} |
base[4]= VV[23]; |
658 |
base[3]= VV[22]; |
vs_top=(vs_base=base+2)+3; |
|
base[5]= (V84); |
|
|
vs_top=(vs_base=base+5)+1; |
|
|
(void) (*Lnk101)(); |
|
|
vs_top=sup; |
|
|
base[4]= vs_base[0]; |
|
|
base[5]= VV[23]; |
|
|
vs_top=(vs_base=base+3)+3; |
|
659 |
(void) (*Lnk102)(); |
(void) (*Lnk102)(); |
660 |
vs_top=sup; |
vs_top=sup; |
661 |
V84= vs_base[0]; |
V111= vs_base[0]; |
662 |
goto T314; |
goto T278; |
663 |
T314:; |
T278:; |
664 |
{long V88= fix((VFUN_NARGS=3,(*(LnkLI94))((V84),(V87),(V85)))); |
{long V115= fix((VFUN_NARGS=3,(*(LnkLI94))((V111),(V114),(V112)))); |
665 |
if(!((/* INLINE-ARGS */V88)>=(0))){ |
if(!((/* INLINE-ARGS */V115)>=(0))){ |
666 |
goto T317;}} |
goto T281;}} |
667 |
goto T316; |
goto T280; |
668 |
goto T317; |
goto T281; |
669 |
T317:; |
T281:; |
670 |
goto T315; |
goto T279; |
671 |
goto T316; |
goto T280; |
672 |
T316:; |
T280:; |
673 |
V85= CMPmake_fixnum((long)(*(LnkLI95))(0)); |
V112= CMPmake_fixnum((long)(*(LnkLI95))(0)); |
674 |
base[3]= (V87); |
V116= (*(LnkLI98))((V114),small_fixnum(1)); |
675 |
base[4]= small_fixnum(1); |
V117= (*(LnkLI98))((V114),small_fixnum(2)); |
676 |
vs_top=(vs_base=base+3)+2; |
V118= make_cons(/* INLINE-ARGS */V116,/* INLINE-ARGS */V117); |
677 |
(void) (*Lnk98)(); |
V113= make_cons(/* INLINE-ARGS */V118,(V113)); |
678 |
vs_top=sup; |
goto T278; |
679 |
V89= vs_base[0]; |
goto T279; |
680 |
base[3]= (V87); |
T279:; |
681 |
base[4]= small_fixnum(2); |
goto T276; |
682 |
vs_top=(vs_base=base+3)+2; |
goto T276; |
683 |
(void) (*Lnk98)(); |
goto T276; |
684 |
vs_top=sup; |
T276:; |
685 |
V90= vs_base[0]; |
{object V119 = nreverse((V113)); |
|
V91= make_cons(V89,V90); |
|
|
V86= make_cons(/* INLINE-ARGS */V91,(V86)); |
|
|
goto T314; |
|
|
goto T315; |
|
|
T315:; |
|
|
goto T312; |
|
|
goto T312; |
|
|
goto T312; |
|
|
T312:; |
|
|
base[3]= nreverse((V86)); |
|
|
vs_top=(vs_base=base+3)+1; |
|
686 |
bds_unwind1; |
bds_unwind1; |
687 |
bds_unwind1; |
bds_unwind1; |
688 |
return; |
VMR9(V119)} |
689 |
goto T304; |
goto T269; |
690 |
T304:; |
T269:; |
691 |
base[3]= Cnil; |
{object V120 = Cnil; |
|
vs_top=(vs_base=base+3)+1; |
|
692 |
bds_unwind1; |
bds_unwind1; |
693 |
bds_unwind1; |
bds_unwind1; |
694 |
return;}} |
VMR9(V120)}}} |
695 |
} |
base[0]=base[0]; |
696 |
|
return Cnil; |
697 |
} |
} |
698 |
/* function definition for GET-NODE-INDEX */ |
/* local entry for function GET-NODE-INDEX */ |
699 |
|
|
700 |
static void L10() |
static object LI10(V123,V124) |
701 |
{register object *base=vs_base; |
|
702 |
register object *sup=base+VM10; VC10 |
register object V123;object V124; |
703 |
vs_check; |
{ VMB10 VMS10 VMV10 |
704 |
bds_check; |
bds_check; |
|
{register object V92; |
|
|
object V93; |
|
|
V92=(base[0]); |
|
|
V93=(base[1]); |
|
|
vs_top=sup; |
|
705 |
goto TTL; |
goto TTL; |
706 |
TTL:; |
TTL:; |
707 |
{object V94; |
{object V125; |
708 |
V94= (V92); |
V125= (V123); |
709 |
bds_bind(VV[9],Cnil); |
bds_bind(VV[9],Cnil); |
710 |
if(((V93))!=Cnil){ |
if(((V124))!=Cnil){ |
711 |
goto T332;} |
goto T290;} |
712 |
base[3]= small_fixnum(0); |
{long V126 = 0; |
713 |
vs_top=(vs_base=base+3)+1; |
bds_unwind1; |
714 |
bds_unwind1; |
VMR10((object)V126)} |
715 |
return; |
goto T290; |
716 |
goto T332; |
T290:; |
717 |
T332:; |
base[1]= VV[24]; |
718 |
base[3]= VV[24]; |
base[2]= (*(LnkLI101))((V123)); |
719 |
base[5]= (V92); |
base[3]= VV[25]; |
720 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+1)+3; |
|
(void) (*Lnk101)(); |
|
|
vs_top=sup; |
|
|
base[4]= vs_base[0]; |
|
|
base[5]= VV[25]; |
|
|
vs_top=(vs_base=base+3)+3; |
|
721 |
(void) (*Lnk102)(); |
(void) (*Lnk102)(); |
722 |
vs_top=sup; |
vs_top=sup; |
723 |
V92= vs_base[0]; |
V123= vs_base[0]; |
724 |
{long V95= fix((VFUN_NARGS=2,(*(LnkLI94))((V92),(V93)))); |
{long V127= fix((VFUN_NARGS=2,(*(LnkLI94))((V123),(V124)))); |
725 |
if(!((/* INLINE-ARGS */V95)>=(0))){ |
if(!((/* INLINE-ARGS */V127)>=(0))){ |
726 |
goto T341;}} |
goto T298;}} |
727 |
base[3]= (V93); |
{long V128= (long)(*(LnkLI97))(1); |
728 |
base[4]= CMPmake_fixnum((long)(*(LnkLI96))(1)); |
{long V129 = (long)(*(LnkLI96))((V124),/* INLINE-ARGS */V128); |
729 |
vs_top=(vs_base=base+3)+2; |
bds_unwind1; |
730 |
(void) (*Lnk97)(); |
VMR10((object)V129)}} |
731 |
bds_unwind1; |
goto T298; |
732 |
return; |
T298:; |
733 |
goto T341; |
base[1]= VV[26]; |
734 |
T341:; |
base[2]= (V125); |
735 |
base[3]= VV[26]; |
vs_top=(vs_base=base+1)+2; |
|
base[4]= (V94); |
|
|
vs_top=(vs_base=base+3)+2; |
|
736 |
(void) (*Lnk99)(); |
(void) (*Lnk99)(); |
737 |
vs_top=sup; |
vs_top=sup; |
738 |
base[3]= small_fixnum(0); |
{long V130 = 0; |
|
vs_top=(vs_base=base+3)+1; |
|
739 |
bds_unwind1; |
bds_unwind1; |
740 |
return;} |
VMR10((object)V130)}} |
741 |
} |
base[0]=base[0]; |
742 |
} |
} |
743 |
/* function definition for ALL-MATCHES */ |
/* local entry for function ALL-MATCHES */ |
744 |
|
|
745 |
static void L11() |
static object LI11(V133,V134) |
746 |
{register object *base=vs_base; |
|
747 |
register object *sup=base+VM11; VC11 |
object V133;object V134; |
748 |
vs_check; |
{ VMB11 VMS11 VMV11 |
749 |
bds_check; |
bds_check; |
|
{object V96; |
|
|
object V97; |
|
|
V96=(base[0]); |
|
|
V97=(base[1]); |
|
|
vs_top=sup; |
|
750 |
goto TTL; |
goto TTL; |
751 |
TTL:; |
TTL:; |
752 |
{register long V98; |
{register long V135; |
753 |
V98= 0; |
V135= 0; |
754 |
bds_bind(VV[9],Cnil); |
bds_bind(VV[9],Cnil); |
755 |
{register object V99; |
{register object V136; |
756 |
register object V100; |
register object V137; |
757 |
register object V101; |
register object V138; |
758 |
V99= Cnil; |
V136= Cnil; |
759 |
V100= Cnil; |
V137= Cnil; |
760 |
V101= Cnil; |
V138= Cnil; |
761 |
goto T350; |
goto T305; |
762 |
T350:; |
T305:; |
763 |
V102 = CMPmake_fixnum(V98); |
V139 = CMPmake_fixnum(V135); |
764 |
V98= fix((VFUN_NARGS=3,(*(LnkLI94))((V96),(V97),V102))); |
V135= fix((VFUN_NARGS=3,(*(LnkLI94))((V133),(V134),V139))); |
765 |
if(!((V98)>=(0))){ |
if(!((V135)>=(0))){ |
766 |
goto T353;} |
goto T308;} |
767 |
goto T352; |
goto T307; |
768 |
goto T353; |
goto T308; |
769 |
T353:; |
T308:; |
770 |
goto T351; |
goto T306; |
771 |
goto T352; |
goto T307; |
772 |
T352:;{object V103; |
T307:;{object V140; |
773 |
V103= CMPmake_fixnum(V98); |
V140= CMPmake_fixnum(V135); |
774 |
V98= (long)(*(LnkLI95))(0); |
V135= (long)(*(LnkLI95))(0); |
775 |
V104 = CMPmake_fixnum(V98); |
V141 = CMPmake_fixnum(V135); |
776 |
V101= list(2,V103,V104);} |
V138= list(2,V140,V141);} |
777 |
if(((V100))==Cnil){ |
if(((V137))==Cnil){ |
778 |
goto T361;} |
goto T316;} |
779 |
{register object V105; |
{register object V142; |
780 |
register object V106; |
register object V143; |
781 |
V105= (V100); |
V142= (V137); |
782 |
V100= make_cons((V101),Cnil); |
V137= make_cons((V138),Cnil); |
783 |
V106= (V100); |
V143= (V137); |
784 |
((V105))->c.c_cdr = (V106); |
((V142))->c.c_cdr = (V143); |
785 |
goto T359;} |
goto T314;} |
786 |
goto T361; |
goto T316; |
787 |
T361:; |
T316:; |
788 |
V100= make_cons((V101),Cnil); |
V137= make_cons((V138),Cnil); |
789 |
V99= (V100); |
V136= (V137); |
790 |
goto T359; |
goto T314; |
791 |
T359:; |
T314:; |
792 |
goto T350; |
goto T305; |
793 |
goto T351; |
goto T306; |
794 |
T351:; |
T306:; |
795 |
base[3]= (V99); |
{object V144 = (V136); |
796 |
vs_top=(vs_base=base+3)+1; |
bds_unwind1; |
797 |
bds_unwind1; |
VMR11(V144)} |
798 |
return; |
{object V145 = Cnil; |
799 |
base[3]= Cnil; |
bds_unwind1; |
800 |
vs_top=(vs_base=base+3)+1; |
VMR11(V145)} |
801 |
bds_unwind1; |
{object V146 = Cnil; |
802 |
return; |
bds_unwind1; |
803 |
base[3]= Cnil; |
VMR11(V146)}}} |
804 |
vs_top=(vs_base=base+3)+1; |
base[0]=base[0]; |
805 |
bds_unwind1; |
return Cnil; |
|
return;}} |
|
|
} |
|
806 |
} |
} |
807 |
/* macro definition for NODE */ |
/* macro definition for NODE */ |
808 |
|
|
811 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
812 |
vs_check; |
vs_check; |
813 |
vs_top=sup; |
vs_top=sup; |
814 |
{object V107=base[0]->c.c_cdr; |
{object V147=base[0]->c.c_cdr; |
815 |
base[2]= (V107->c.c_car); |
base[2]= (V147->c.c_car); |
816 |
V107=V107->c.c_cdr; |
V147=V147->c.c_cdr; |
817 |
base[3]= (V107->c.c_car);} |
base[3]= (V147->c.c_car);} |
818 |
base[4]= base[2]; |
V148= (VFUN_NARGS=2,(*(LnkLI100))(base[2],VV[28])); |
819 |
base[5]= VV[28]; |
base[4]= list(3,VV[27],/* INLINE-ARGS */V148,base[3]); |
|
vs_top=(vs_base=base+4)+2; |
|
|
(void) (*Lnk100)(); |
|
|
vs_top=sup; |
|
|
V108= vs_base[0]; |
|
|
base[4]= list(3,VV[27],V108,base[3]); |
|
820 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
821 |
return; |
return; |
822 |
} |
} |
823 |
/* function definition for NODE-OFFSET */ |
/* local entry for function NODE-OFFSET */ |
824 |
|
|
825 |
static void L13() |
static object LI13(V150) |
826 |
{register object *base=vs_base; |
|
827 |
register object *sup=base+VM13; VC13 |
object V150; |
828 |
vs_check; |
{ VMB13 VMS13 VMV13 |
|
{object V109; |
|
|
V109=(base[0]); |
|
|
vs_top=sup; |
|
829 |
goto TTL; |
goto TTL; |
830 |
TTL:; |
TTL:; |
831 |
base[1]= number_plus(CMPcar(CMPcadr(CMPcddddr((V109)))),CMPcadr((V109))); |
{object V151 = number_plus(CMPcar(CMPcadr(CMPcddddr((V150)))),CMPcadr((V150))); |
832 |
vs_top=(vs_base=base+1)+1; |
VMR13(V151)} |
833 |
return; |
return Cnil; |
|
} |
|
834 |
} |
} |
835 |
/* function definition for SETUP-INFO */ |
/* local entry for function SETUP-INFO */ |
836 |
|
|
837 |
static void L14() |
static object LI14(V153) |
838 |
{register object *base=vs_base; |
|
839 |
register object *sup=base+VM14; VC14 |
register object V153; |
840 |
vs_check; |
{ VMB14 VMS14 VMV14 |
841 |
bds_check; |
bds_check; |
|
{register object V110; |
|
|
V110=(base[0]); |
|
|
vs_top=sup; |
|
842 |
goto TTL; |
goto TTL; |
843 |
TTL:; |
TTL:; |
844 |
{object V111; |
{object V154; |
845 |
register object V112; |
register object V155; |
846 |
V111= Cnil; |
V154= Cnil; |
847 |
V112= Cnil; |
V155= Cnil; |
848 |
if(!(((VV[29]->s.s_dbind))==((VV[30]->s.s_dbind)))){ |
if(!(((VV[29]->s.s_dbind))==((VV[30]->s.s_dbind)))){ |
849 |
goto T377;} |
goto T329;} |
850 |
goto T376; |
goto T328; |
851 |
goto T377; |
goto T329; |
852 |
T377:; |
T329:; |
853 |
(VV[29]->s.s_dbind)= (VV[30]->s.s_dbind); |
(VV[29]->s.s_dbind)= (VV[30]->s.s_dbind); |
854 |
{object V113; |
{object V156; |
855 |
base[2]= (VV[30]->s.s_dbind); |
base[1]= (VV[30]->s.s_dbind); |
856 |
base[3]= VV[31]; |
base[2]= VV[31]; |
|
vs_top=(vs_base=base+2)+2; |
|
|
(void) (*Lnk102)(); |
|
|
vs_top=sup; |
|
|
V113= vs_base[0]; |
|
|
(VV[32]->s.s_dbind)= make_cons((V113),(VV[32]->s.s_dbind));} |
|
|
base[1]= (VV[32]->s.s_dbind); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
(void) (*Lnk106)(); |
|
|
vs_top=sup; |
|
|
(VV[32]->s.s_dbind)= vs_base[0]; |
|
|
goto T376; |
|
|
T376:; |
|
|
if(!(equal((V110),VV[33]))){ |
|
|
goto T388;} |
|
|
V110= VV[34]; |
|
|
goto T388; |
|
|
T388:; |
|
|
base[1]= (V110); |
|
|
base[2]= (VV[32]->s.s_dbind); |
|
|
base[3]= VV[35]; |
|
|
base[4]= Cnil; |
|
|
vs_top=(vs_base=base+1)+4; |
|
|
(void) (*Lnk107)(); |
|
|
vs_top=sup; |
|
|
V112= vs_base[0]; |
|
|
{object V114; |
|
|
base[1]= VV[36]; |
|
|
base[2]= (V112); |
|
857 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
858 |
(void) (*Lnk108)(); |
(void) (*Lnk102)(); |
859 |
vs_top=sup; |
vs_top=sup; |
860 |
V114= vs_base[0]; |
V156= vs_base[0]; |
861 |
if(((V114))==Cnil){ |
(VV[32]->s.s_dbind)= make_cons((V156),(VV[32]->s.s_dbind));} |
862 |
goto T398;} |
(VV[32]->s.s_dbind)= (*(LnkLI106))((VV[32]->s.s_dbind)); |
863 |
base[1]= (V112); |
goto T328; |
864 |
base[2]= small_fixnum(0); |
T328:; |
865 |
base[3]= (V114); |
if(!(equal((V153),VV[33]))){ |
866 |
vs_top=(vs_base=base+1)+3; |
goto T339;} |
867 |
|
V153= VV[34]; |
868 |
|
goto T339; |
869 |
|
T339:; |
870 |
|
V155= (VFUN_NARGS=4,(*(LnkLI107))((V153),(VV[32]->s.s_dbind),VV[35],Cnil)); |
871 |
|
{object V157; |
872 |
|
V157= (VFUN_NARGS=2,(*(LnkLI108))(VV[36],(V155))); |
873 |
|
if(((V157))==Cnil){ |
874 |
|
goto T345;} |
875 |
|
base[0]= (V155); |
876 |
|
base[1]= small_fixnum(0); |
877 |
|
base[2]= (V157); |
878 |
|
vs_top=(vs_base=base+0)+3; |
879 |
Lsubseq(); |
Lsubseq(); |
880 |
vs_top=sup; |
vs_top=sup; |
881 |
V112= vs_base[0];} |
V155= vs_base[0];} |
882 |
goto T398; |
goto T345; |
883 |
T398:; |
T345:; |
884 |
if(((V112))!=Cnil){ |
if(((V155))!=Cnil){ |
885 |
goto T408;} |
goto T353;} |
886 |
if(equal((V110),VV[37])){ |
if(equal((V153),VV[37])){ |
887 |
goto T408;} |
goto T353;} |
888 |
{object V115; |
{object V158; |
889 |
base[3]= VV[38]; |
base[2]= VV[38]; |
890 |
|
base[3]= Cnil; |
891 |
base[4]= Cnil; |
base[4]= Cnil; |
892 |
base[5]= Cnil; |
vs_top=(vs_base=base+2)+3; |
|
vs_top=(vs_base=base+3)+3; |
|
893 |
(void) (*Lnk104)(); |
(void) (*Lnk104)(); |
894 |
vs_top=sup; |
vs_top=sup; |
895 |
V115= vs_base[0]; |
V158= vs_base[0]; |
896 |
bds_bind(VV[10],Cnil); |
bds_bind(VV[10],Cnil); |
897 |
base[3]= VV[39]; |
base[2]= VV[39]; |
898 |
base[5]= (V110); |
base[3]= (*(LnkLI101))((V153)); |
899 |
vs_top=(vs_base=base+5)+1; |
base[4]= VV[40]; |
900 |
(void) (*Lnk101)(); |
vs_top=(vs_base=base+2)+3; |
|
vs_top=sup; |
|
|
base[4]= vs_base[0]; |
|
|
base[5]= VV[40]; |
|
|
vs_top=(vs_base=base+3)+3; |
|
901 |
(void) (*Lnk102)(); |
(void) (*Lnk102)(); |
902 |
vs_top=sup; |
vs_top=sup; |
903 |
V116= vs_base[0]; |
V159= vs_base[0]; |
904 |
{long V117= fix((VFUN_NARGS=2,(*(LnkLI94))(V116,(V115)))); |
{long V160= fix((VFUN_NARGS=2,(*(LnkLI94))(V159,(V158)))); |
905 |
if(!((/* INLINE-ARGS */V117)>=(0))){ |
if(!((/* INLINE-ARGS */V160)>=(0))){ |
906 |
bds_unwind1; |
bds_unwind1; |
907 |
goto T408;}} |
goto T353;}} |
908 |
base[3]= (V115); |
V155= (*(LnkLI98))((V158),small_fixnum(1)); |
|
base[4]= small_fixnum(1); |
|
|
vs_top=(vs_base=base+3)+2; |
|
|
(void) (*Lnk98)(); |
|
|
vs_top=sup; |
|
|
V112= vs_base[0]; |
|
909 |
bds_unwind1;} |
bds_unwind1;} |
910 |
goto T408; |
goto T353; |
911 |
T408:; |
T353:; |
912 |
if(((V112))==Cnil){ |
if(((V155))==Cnil){ |
913 |
goto T429;} |
goto T371;} |
914 |
{object V118; |
{object V161; |
915 |
base[3]= (V112); |
base[2]= (V155); |
916 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+2)+1; |
917 |
Ltruename(); |
Ltruename(); |
918 |
vs_top=sup; |
vs_top=sup; |
919 |
base[2]= vs_base[0]; |
base[1]= vs_base[0]; |
920 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+1)+1; |
921 |
Lnamestring(); |
Lnamestring(); |
922 |
vs_top=sup; |
vs_top=sup; |
923 |
V118= vs_base[0]; |
V161= vs_base[0]; |
924 |
{register object x= (V118),V119= (VV[41]->s.s_dbind); |
{register object x= (V161),V162= (VV[41]->s.s_dbind); |
925 |
while(V119!=Cnil) |
while(V162!=Cnil) |
926 |
if(equal(x,V119->c.c_car->c.c_car) &&V119->c.c_car != Cnil){ |
if(equal(x,V162->c.c_car->c.c_car) &&V162->c.c_car != Cnil){ |
927 |
V111= (V119->c.c_car); |
V154= (V162->c.c_car); |
928 |
goto T437; |
goto T379; |
929 |
}else V119=V119->c.c_cdr; |
}else V162=V162->c.c_cdr; |
930 |
V111= Cnil;} |
V154= Cnil;} |
931 |
goto T437; |
goto T379; |
932 |
T437:; |
T379:; |
933 |
if(((V111))==Cnil){ |
if(((V154))==Cnil){ |
934 |
goto T435;} |
goto T377;} |
935 |
(VV[20]->s.s_dbind)= (V111); |
(VV[20]->s.s_dbind)= (V154); |
936 |
goto T427; |
goto T369; |
937 |
goto T435; |
goto T377; |
938 |
T435:; |
T377:; |
939 |
base[2]= (V118); |
V163= (*(LnkLI109))((V161)); |
940 |
vs_top=(vs_base=base+2)+1; |
(VV[20]->s.s_dbind)= list(3,(V161),/* INLINE-ARGS */V163,Cnil); |
|
(void) (*Lnk109)(); |
|
|
vs_top=sup; |
|
|
V120= vs_base[0]; |
|
|
(VV[20]->s.s_dbind)= list(3,(V118),V120,Cnil); |
|
941 |
(VV[41]->s.s_dbind)= make_cons((VV[20]->s.s_dbind),(VV[41]->s.s_dbind)); |
(VV[41]->s.s_dbind)= make_cons((VV[20]->s.s_dbind),(VV[41]->s.s_dbind)); |
942 |
goto T427;} |
goto T369;} |
943 |
goto T429; |
goto T371; |
944 |
T429:; |
T371:; |
945 |
base[1]= Ct; |
base[0]= Ct; |
946 |
base[2]= VV[42]; |
base[1]= VV[42]; |
947 |
base[3]= (V110); |
base[2]= (V153); |
948 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+0)+3; |
949 |
Lformat(); |
Lformat(); |
950 |
vs_top=sup; |
vs_top=sup; |
951 |
goto T427; |
goto T369; |
952 |
T427:; |
T369:; |
953 |
base[1]= Cnil; |
{object V164 = Cnil; |
954 |
vs_top=(vs_base=base+1)+1; |
VMR14(V164)}} |
955 |
return;} |
base[0]=base[0]; |
956 |
} |
return Cnil; |
957 |
} |
} |
958 |
/* function definition for GET-INFO-CHOICES */ |
/* local entry for function GET-INFO-CHOICES */ |
959 |
|
|
960 |
static void L15() |
static object LI15(V167,V168) |
|
{register object *base=vs_base; |
|
|
register object *sup=base+VM15; VC15 |
|
|
vs_check; |
|
|
{object V121; |
|
|
object V122; |
|
|
V121=(base[0]); |
|
|
V122=(base[1]); |
|
|
vs_top=sup; |
|
|
goto TTL; |
|
|
TTL:; |
|
|
if(!(eql((V122),VV[43]))){ |
|
|
goto T448;} |
|
|
base[2]= (V121); |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
(void) (*Lnk110)(); |
|
|
return; |
|
|
goto T448; |
|
|
T448:; |
|
|
base[2]= (V121); |
|
|
base[3]= CMPcar(CMPcadr((VV[20]->s.s_dbind))); |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
(void) (*Lnk103)(); |
|
|
return; |
|
|
} |
|
|
} |
|
|
/* function definition for ADD-FILE */ |
|
961 |
|
|
962 |
static void L16() |
object V167;object V168; |
963 |
{register object *base=vs_base; |
{ VMB15 VMS15 VMV15 |
|
register object *sup=base+VM16; VC16 |
|
|
vs_check; |
|
|
{object V123; |
|
|
register object V124; |
|
|
V123=(base[0]); |
|
|
V124=(base[1]); |
|
|
vs_top=sup; |
|
964 |
goto TTL; |
goto TTL; |
965 |
TTL:; |
TTL:; |
966 |
{register object V125; |
if(!(eql((V168),VV[43]))){ |
967 |
V125= (V123); |
goto T388;} |
968 |
goto T456; |
{object V169 = (*(LnkLI110))((V167)); |
969 |
T456:; |
VMR15(V169)} |
970 |
if((V125)!=Cnil){ |
goto T388; |
971 |
goto T458;} |
T388:; |
972 |
goto T457; |
{object V170 = (*(LnkLI103))((V167),CMPcar(CMPcadr((VV[20]->s.s_dbind)))); |
973 |
goto T458; |
VMR15(V170)} |
974 |
T458:; |
return Cnil; |
975 |
{register object V126; |
} |
976 |
register object V127; |
/* local entry for function ADD-FILE */ |
977 |
V126= (V125); |
|
978 |
V127= list(2,CMPcar((V125)),(V124)); |
static object LI16(V173,V174) |
979 |
((V126))->c.c_car = (V127);} |
|
980 |
V125= CMPcdr((V125)); |
object V173;register object V174; |
981 |
goto T456; |
{ VMB16 VMS16 VMV16 |
982 |
goto T457; |
goto TTL; |
983 |
T457:; |
TTL:; |
984 |
goto T454; |
{register object V175; |
985 |
goto T454; |
V175= (V173); |
986 |
goto T454; |
goto T393; |
987 |
T454:; |
T393:; |
988 |
base[2]= (V123); |
if((V175)!=Cnil){ |
989 |
vs_top=(vs_base=base+2)+1; |
goto T395;} |
990 |
return;} |
goto T394; |
991 |
} |
goto T395; |
992 |
|
T395:; |
993 |
|
{register object V176; |
994 |
|
register object V177; |
995 |
|
V176= (V175); |
996 |
|
V177= list(2,CMPcar((V175)),(V174)); |
997 |
|
((V176))->c.c_car = (V177);} |
998 |
|
V175= CMPcdr((V175)); |
999 |
|
goto T393; |
1000 |
|
goto T394; |
1001 |
|
T394:; |
1002 |
|
goto T391; |
1003 |
|
goto T391; |
1004 |
|
goto T391; |
1005 |
|
T391:; |
1006 |
|
{object V178 = (V173); |
1007 |
|
VMR16(V178)}} |
1008 |
|
base[0]=base[0]; |
1009 |
|
return Cnil; |
1010 |
} |
} |
1011 |
/* function definition for INFO-ERROR */ |
/* function definition for INFO-ERROR */ |
1012 |
|
|
1014 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1015 |
register object *sup=base+VM17; VC17 |
register object *sup=base+VM17; VC17 |
1016 |
vs_check; |
vs_check; |
1017 |
{object V128; |
{object V179; |
1018 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
1019 |
{object *p=vs_top; |
{object *p=vs_top; |
1020 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1021 |
V128=(base[0]); |
V179=(base[0]); |
1022 |
vs_top=sup; |
vs_top=sup; |
1023 |
if(((VV[44]->s.s_dbind))==Cnil){ |
if(((VV[44]->s.s_dbind))==Cnil){ |
1024 |
goto T467;} |
goto T404;} |
1025 |
base[2]= Cnil; |
base[2]= Cnil; |
1026 |
{object V129; |
{object V180; |
1027 |
V129= (V128); |
V180= (V179); |
1028 |
vs_top=base+3; |
vs_top=base+3; |
1029 |
while(V129!=Cnil) |
while(V180!=Cnil) |
1030 |
{vs_push((V129)->c.c_car);V129=(V129)->c.c_cdr;} |
{vs_push((V180)->c.c_car);V180=(V180)->c.c_cdr;} |
1031 |
vs_base=base+2;} |
vs_base=base+2;} |
1032 |
Lformat(); |
Lformat(); |
1033 |
vs_top=sup; |
vs_top=sup; |
1035 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1036 |
(void) (*Lnk111)(); |
(void) (*Lnk111)(); |
1037 |
return; |
return; |
1038 |
goto T467; |
goto T404; |
1039 |
T467:; |
T404:; |
1040 |
{object V130; |
{object V181; |
1041 |
V130= (V128); |
V181= (V179); |
1042 |
vs_top=base+1; |
vs_top=base+1; |
1043 |
while(V130!=Cnil) |
while(V181!=Cnil) |
1044 |
{vs_push((V130)->c.c_car);V130=(V130)->c.c_cdr;} |
{vs_push((V181)->c.c_car);V181=(V181)->c.c_cdr;} |
1045 |
vs_base=base+1;} |
vs_base=base+1;} |
1046 |
Lerror(); |
Lerror(); |
1047 |
return; |
return; |
1048 |
} |
} |
1049 |
} |
} |
1050 |
/* function definition for INFO-GET-FILE */ |
/* local entry for function INFO-GET-FILE */ |
1051 |
|
|
1052 |
static void L18() |
static object LI18(V183) |
1053 |
{register object *base=vs_base; |
|
1054 |
register object *sup=base+VM18; VC18 |
register object V183; |
1055 |
vs_check; |
{ VMB18 VMS18 VMV18 |
|
{register object V131; |
|
|
V131=(base[0]); |
|
|
vs_top=sup; |
|
1056 |
goto TTL; |
goto TTL; |
1057 |
TTL:; |
TTL:; |
1058 |
base[1]= (V131); |
base[0]= (V183); |
1059 |
base[2]= CMPcar((VV[20]->s.s_dbind)); |
base[1]= CMPcar((VV[20]->s.s_dbind)); |
1060 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+0)+2; |
1061 |
Lmerge_pathnames(); |
Lmerge_pathnames(); |
1062 |
vs_top=sup; |
vs_top=sup; |
1063 |
V131= vs_base[0]; |
V183= vs_base[0]; |
1064 |
if(!(equal(CMPcar((VV[45]->s.s_dbind)),(V131)))){ |
if(!(equal(CMPcar((VV[45]->s.s_dbind)),(V183)))){ |
1065 |
goto T479;} |
goto T416;} |
1066 |
V132= (VV[45]->s.s_dbind); |
V184= (VV[45]->s.s_dbind); |
1067 |
goto T477; |
goto T414; |
1068 |
goto T479; |
goto T416; |
1069 |
T479:; |
T416:; |
1070 |
base[1]= (V131); |
V185= (VFUN_NARGS=1,(*(LnkLI93))((V183))); |
1071 |
vs_top=(vs_base=base+1)+1; |
(VV[45]->s.s_dbind)= make_cons((V183),/* INLINE-ARGS */V185); |
1072 |
(void) (*Lnk93)(); |
V184= (VV[45]->s.s_dbind); |
1073 |
vs_top=sup; |
goto T414; |
1074 |
V133= vs_base[0]; |
T414:; |
1075 |
(VV[45]->s.s_dbind)= make_cons((V131),V133); |
{object V186 = CMPcdr(V184); |
1076 |
V132= (VV[45]->s.s_dbind); |
VMR18(V186)} |
1077 |
goto T477; |
base[0]=base[0]; |
1078 |
T477:; |
return Cnil; |
|
base[1]= CMPcdr(V132); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
return; |
|
|
} |
|
1079 |
} |
} |
1080 |
/* function definition for WAITING */ |
/* function definition for WAITING */ |
1081 |
|
|
1083 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1084 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
1085 |
vs_check; |
vs_check; |
1086 |
{object V134; |
{object V187; |
1087 |
V134=(base[0]); |
V187=(base[0]); |
1088 |
vs_top=sup; |
vs_top=sup; |
1089 |
goto TTL; |
goto TTL; |
1090 |
TTL:; |
TTL:; |
1092 |
base[1]= Cnil; |
base[1]= Cnil; |
1093 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1094 |
return;} |
return;} |
1095 |
base[1]= (V134); |
base[1]= (V187); |
1096 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1097 |
Lfboundp(); |
Lfboundp(); |
1098 |
vs_top=sup; |
vs_top=sup; |
1099 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1100 |
goto T484;} |
goto T419;} |
1101 |
base[1]= Cnil; |
base[1]= Cnil; |
1102 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1103 |
return; |
return; |
1104 |
goto T484; |
goto T419; |
1105 |
T484:; |
T419:; |
1106 |
base[1]= VV[46]; |
base[1]= VV[46]; |
1107 |
base[2]= (V134); |
base[2]= (V187); |
1108 |
base[3]= VV[47]; |
base[3]= VV[47]; |
1109 |
base[4]= VV[48]; |
base[4]= VV[48]; |
1110 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
1111 |
(void) (*Lnk112)(); |
(void) (*Lnk112)(); |
1112 |
vs_top=sup; |
vs_top=sup; |
1113 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1114 |
goto T487;} |
goto T422;} |
1115 |
base[1]= Cnil; |
base[1]= Cnil; |
1116 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1117 |
return; |
return; |
1118 |
goto T487; |
goto T422; |
1119 |
T487:; |
T422:; |
1120 |
base[1]= VV[49]; |
base[1]= VV[49]; |
1121 |
base[2]= VV[50]; |
base[2]= VV[50]; |
1122 |
base[3]= VV[51]; |
base[3]= VV[51]; |
1123 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1124 |
super_funcall_no_event((V134)); |
super_funcall_no_event((V187)); |
1125 |
return; |
return; |
1126 |
} |
} |
1127 |
} |
} |
1131 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1132 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
1133 |
vs_check; |
vs_check; |
1134 |
{object V135; |
{object V188; |
1135 |
V135=(base[0]); |
V188=(base[0]); |
1136 |
vs_top=sup; |
vs_top=sup; |
1137 |
goto TTL; |
goto TTL; |
1138 |
TTL:; |
TTL:; |
1139 |
base[1]= (V135); |
base[1]= (V188); |
1140 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1141 |
Lfboundp(); |
Lfboundp(); |
1142 |
vs_top=sup; |
vs_top=sup; |
1143 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1144 |
goto T496;} |
goto T431;} |
1145 |
base[1]= Cnil; |
base[1]= Cnil; |
1146 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1147 |
return; |
return; |
1148 |
goto T496; |
goto T431; |
1149 |
T496:; |
T431:; |
1150 |
base[1]= VV[49]; |
base[1]= VV[49]; |
1151 |
base[2]= VV[50]; |
base[2]= VV[50]; |
1152 |
base[3]= VV[52]; |
base[3]= VV[52]; |
1153 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1154 |
super_funcall_no_event((V135)); |
super_funcall_no_event((V188)); |
1155 |
return; |
return; |
1156 |
} |
} |
1157 |
} |
} |
1161 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1162 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM21; VC21 |
1163 |
vs_check; |
vs_check; |
1164 |
{register object V136; |
{register object V189; |
1165 |
V136=(base[0]); |
V189=(base[0]); |
1166 |
vs_top=sup; |
vs_top=sup; |
1167 |
goto TTL; |
goto TTL; |
1168 |
TTL:; |
TTL:; |
1169 |
{object V137; |
{object V190; |
1170 |
register object V138; |
register object V191; |
1171 |
register object V139; |
register object V192; |
1172 |
V137= CMPcdr(CMPcadr((VV[20]->s.s_dbind))); |
V190= CMPcdr(CMPcadr((VV[20]->s.s_dbind))); |
1173 |
V138= Cnil; |
V191= Cnil; |
1174 |
V139= Cnil; |
V192= Cnil; |
1175 |
if((V137)==Cnil){ |
if((V190)==Cnil){ |
1176 |
goto T503;} |
goto T438;} |
1177 |
if(number_compare((V136),small_fixnum(0))>=0){ |
if(number_compare((V189),small_fixnum(0))>=0){ |
1178 |
goto T504;} |
goto T439;} |
1179 |
goto T503; |
goto T438; |
1180 |
goto T504; |
goto T439; |
1181 |
T504:; |
T439:; |
1182 |
{register object V140; |
{register object V193; |
1183 |
register object V141; |
register object V194; |
1184 |
V140= (V137); |
V193= (V190); |
1185 |
V141= CMPcar((V140)); |
V194= CMPcar((V193)); |
1186 |
goto T509; |
goto T444; |
1187 |
T509:; |
T444:; |
1188 |
if(!(((V140))==Cnil)){ |
if(!(((V193))==Cnil)){ |
1189 |
goto T510;} |
goto T445;} |
1190 |
goto T503; |
goto T438; |
1191 |
goto T510; |
goto T445; |
1192 |
T510:; |
T445:; |
1193 |
if(!(number_compare(CMPcar((V141)),(V136))>0)){ |
if(!(number_compare(CMPcar((V194)),(V189))>0)){ |
1194 |
goto T514;} |
goto T449;} |
1195 |
V139= CMPcar((V141)); |
V192= CMPcar((V194)); |
1196 |
goto T503; |
goto T438; |
1197 |
goto T514; |
goto T449; |
1198 |
T514:; |
T449:; |
1199 |
V138= (V141); |
V191= (V194); |
1200 |
V140= CMPcdr((V140)); |
V193= CMPcdr((V193)); |
1201 |
V141= CMPcar((V140)); |
V194= CMPcar((V193)); |
1202 |
goto T509;} |
goto T444;} |
1203 |
goto T503; |
goto T438; |
1204 |
T503:; |
T438:; |
1205 |
if((V138)!=Cnil){ |
if((V191)!=Cnil){ |
1206 |
base[1]= (V138); |
base[1]= (V191); |
1207 |
goto T526;} |
goto T461;} |
1208 |
base[1]= make_cons(small_fixnum(0),CMPcar((VV[20]->s.s_dbind))); |
base[1]= make_cons(small_fixnum(0),CMPcar((VV[20]->s.s_dbind))); |
1209 |
goto T526; |
goto T461; |
1210 |
T526:; |
T461:; |
1211 |
base[2]= (V139); |
base[2]= (V192); |
1212 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1213 |
return;} |
return;} |
1214 |
} |
} |
1215 |
} |
} |
1216 |
/* function definition for INFO-NODE-FROM-POSITION */ |
/* local entry for function INFO-NODE-FROM-POSITION */ |
1217 |
|
|
1218 |
static void L22() |
static object LI22(V196) |
1219 |
{register object *base=vs_base; |
|
1220 |
register object *sup=base+VM22; VC22 |
object V196; |
1221 |
vs_check; |
{ VMB22 VMS22 VMV22 |
|
{object V142; |
|
|
V142=(base[0]); |
|
|
vs_top=sup; |
|
1222 |
goto TTL; |
goto TTL; |
1223 |
TTL:; |
TTL:; |
1224 |
{register object V143; |
{register object V197; |
1225 |
V143= small_fixnum(0); |
V197= small_fixnum(0); |
1226 |
{object V144; |
{object V198; |
1227 |
register object V145; |
register object V199; |
1228 |
register object V146; |
register object V200; |
1229 |
base[4]= (V142); |
base[3]= (V196); |
1230 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+3)+1; |
1231 |
(void) (*Lnk113)(); |
(void) (*Lnk113)(); |
1232 |
vs_top=sup; |
vs_top=sup; |
1233 |
V144= vs_base[0]; |
V198= vs_base[0]; |
1234 |
base[4]= CMPcdr((V144)); |
V199= (*(LnkLI114))(CMPcdr((V198))); |
1235 |
vs_top=(vs_base=base+4)+1; |
V200= number_minus((V196),CMPcar((V198))); |
1236 |
(void) (*Lnk114)(); |
goto T470; |
1237 |
vs_top=sup; |
T470:; |
1238 |
V145= vs_base[0]; |
{long V201= fix((VFUN_NARGS=4,(*(LnkLI94))(VV[53],(V199),(V197),(V200)))); |
1239 |
V146= number_minus((V142),CMPcar((V144))); |
if(!((/* INLINE-ARGS */V201)>=(0))){ |
1240 |
goto T536; |
goto T473;}} |
1241 |
T536:; |
goto T472; |
1242 |
{long V147= fix((VFUN_NARGS=4,(*(LnkLI94))(VV[53],(V145),(V143),(V146)))); |
goto T473; |
1243 |
if(!((/* INLINE-ARGS */V147)>=(0))){ |
T473:; |
1244 |
goto T539;}} |
goto T471; |
1245 |
goto T538; |
goto T472; |
1246 |
goto T539; |
T472:; |
1247 |
T539:; |
V197= CMPmake_fixnum((long)(*(LnkLI95))(0)); |
1248 |
goto T537; |
goto T470; |
1249 |
goto T538; |
goto T471; |
1250 |
T538:; |
T471:; |
1251 |
V143= CMPmake_fixnum((long)(*(LnkLI95))(0)); |
goto T468; |
1252 |
goto T536; |
goto T468; |
1253 |
goto T537; |
goto T468; |
1254 |
T537:; |
T468:; |
1255 |
goto T534; |
V197= number_minus((V197),small_fixnum(1)); |
1256 |
goto T534; |
{long V202= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[54],(V199),(V197)))); |
1257 |
goto T534; |
if(!((/* INLINE-ARGS */V202)>=(0))){ |
1258 |
T534:; |
goto T481;}} |
1259 |
V143= number_minus((V143),small_fixnum(1)); |
{object V203; |
1260 |
{long V148= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[54],(V145),(V143)))); |
object V204; |
1261 |
if(!((/* INLINE-ARGS */V148)>=(0))){ |
object V205; |
1262 |
goto T547;}} |
object V206; |
1263 |
{object V149; |
object V207; |
1264 |
object V150; |
V203= CMPmake_fixnum((long)(*(LnkLI97))(0)); |
1265 |
object V151; |
V204= CMPmake_fixnum((long)(*(LnkLI95))(0)); |
1266 |
object V152; |
V205= (*(LnkLI98))((V199),small_fixnum(1)); |
1267 |
object V153; |
{long V208= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[55],(V199),(V204)))); |
1268 |
V149= CMPmake_fixnum((long)(*(LnkLI96))(0)); |
if(!((/* INLINE-ARGS */V208)>=(0))){ |
1269 |
V150= CMPmake_fixnum((long)(*(LnkLI95))(0)); |
goto T488;}} |
1270 |
base[9]= (V145); |
V206= CMPmake_fixnum((long)(*(LnkLI97))(0)); |
1271 |
base[10]= small_fixnum(1); |
goto T486; |
1272 |
vs_top=(vs_base=base+9)+2; |
goto T488; |
1273 |
(void) (*Lnk98)(); |
T488:; |
1274 |
vs_top=sup; |
V206= CMPmake_fixnum((long)length((V199))); |
1275 |
V151= vs_base[0]; |
goto T486; |
1276 |
{long V154= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[55],(V145),(V150)))); |
T486:; |
1277 |
if(!((/* INLINE-ARGS */V154)>=(0))){ |
V207= listA(7,(V199),(V204),(V206),(V203),(V205),(V198),(VV[20]->s.s_dbind)); |
1278 |
goto T556;}} |
{object V209 = (V207); |
1279 |
V152= CMPmake_fixnum((long)(*(LnkLI96))(0)); |
VMR22(V209)}} |
1280 |
goto T554; |
goto T481; |
1281 |
goto T556; |
T481:; |
1282 |
T556:; |
{object V210 = Cnil; |
1283 |
V152= CMPmake_fixnum((long)length((V145))); |
VMR22(V210)}}} |
1284 |
goto T554; |
base[0]=base[0]; |
1285 |
T554:; |
return Cnil; |
|
V153= listA(7,(V145),(V150),(V152),(V149),(V151),(V144),(VV[20]->s.s_dbind)); |
|
|
base[9]= (V153); |
|
|
vs_top=(vs_base=base+9)+1; |
|
|
return;} |
|
|
goto T547; |
|
|
T547:; |
|
|
base[4]= Cnil; |
|
|
vs_top=(vs_base=base+4)+1; |
|
|
return;}} |
|
|
} |
|
1286 |
} |
} |
1287 |
/* function definition for SHOW-INFO */ |
/* function definition for SHOW-INFO */ |
1288 |
|
|
1291 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM23; VC23 |
1292 |
vs_check; |
vs_check; |
1293 |
bds_check; |
bds_check; |
1294 |
{register object V155; |
{register object V211; |
1295 |
register object V156; |
register object V212; |
1296 |
object V157; |
object V213; |
1297 |
V155=(base[0]); |
V211=(base[0]); |
1298 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
1299 |
if(vs_base>=vs_top){vs_top=sup;goto T559;} |
if(vs_base>=vs_top){vs_top=sup;goto T491;} |
1300 |
V156=(base[1]); |
V212=(base[1]); |
1301 |
vs_base++; |
vs_base++; |
1302 |
if(vs_base>=vs_top){vs_top=sup;goto T560;} |
if(vs_base>=vs_top){vs_top=sup;goto T492;} |
1303 |
V157=(base[2]); |
V213=(base[2]); |
1304 |
vs_top=sup; |
vs_top=sup; |
1305 |
goto T561; |
goto T493; |
1306 |
goto T559; |
goto T491; |
1307 |
T559:; |
T491:; |
1308 |
V156= Cnil; |
V212= Cnil; |
1309 |
goto T560; |
goto T492; |
1310 |
T560:; |
T492:; |
1311 |
V157= (VV[44]->s.s_dbind); |
V213= (VV[44]->s.s_dbind); |
1312 |
goto T561; |
goto T493; |
1313 |
T561:; |
T493:; |
1314 |
{register object V158; |
{register object V214; |
1315 |
register object V159; |
register object V215; |
1316 |
register long V160; |
register long V216; |
1317 |
long V161; |
long V217; |
1318 |
V158= Cnil; |
V214= Cnil; |
1319 |
bds_bind(VV[9],Cnil); |
bds_bind(VV[9],Cnil); |
1320 |
V159= Cnil; |
V215= Cnil; |
1321 |
V160= 0; |
V216= 0; |
1322 |
V161= -1; |
V217= -1; |
1323 |
if(!(type_of((V155))==t_cons)){ |
if(!(type_of((V211))==t_cons)){ |
1324 |
goto T569;} |
goto T501;} |
1325 |
if(!(type_of(CMPcdr((V155)))==t_cons)){ |
if(!(type_of(CMPcdr((V211)))==t_cons)){ |
1326 |
goto T569;} |
goto T501;} |
1327 |
V159= CMPcadr((V155)); |
V215= CMPcadr((V211)); |
1328 |
V155= CMPcar((V155)); |
V211= CMPcar((V211)); |
1329 |
goto T569; |
goto T501; |
1330 |
T569:; |
T501:; |
1331 |
if(!(type_of((V155))==t_cons)){ |
if(!(type_of((V211))==t_cons)){ |
1332 |
goto T568;} |
goto T500;} |
1333 |
V156= CMPcar((V155)); |
V212= CMPcar((V211)); |
1334 |
V155= CMPcdr((V155)); |
V211= CMPcdr((V211)); |
1335 |
goto T568; |
goto T500; |
1336 |
T568:; |
T500:; |
1337 |
if(!(type_of((V155))==t_string)){ |
if(!(type_of((V211))==t_string)){ |
1338 |
goto T583;} |
goto T515;} |
1339 |
goto T582; |
goto T514; |
1340 |
goto T583; |
goto T515; |
1341 |
T583:; |
T515:; |
1342 |
base[4]= VV[56]; |
base[4]= VV[56]; |
1343 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1344 |
(void) (*Lnk99)(); |
(void) (*Lnk99)(); |
1345 |
vs_top=sup; |
vs_top=sup; |
1346 |
goto T582; |
goto T514; |
1347 |
T582:; |
T514:; |
1348 |
base[4]= (VV[57]->s.s_dbind); |
base[4]= (VV[57]->s.s_dbind); |
1349 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1350 |
(void) (*Lnk115)(); |
(void) (*Lnk115)(); |
1351 |
vs_top=sup; |
vs_top=sup; |
1352 |
{long V162= fix((VFUN_NARGS=2,(*(LnkLI94))(VV[58],(V155)))); |
{long V218= fix((VFUN_NARGS=2,(*(LnkLI94))(VV[58],(V211)))); |
1353 |
if(!((/* INLINE-ARGS */V162)>=(0))){ |
if(!((/* INLINE-ARGS */V218)>=(0))){ |
1354 |
goto T588;}} |
goto T520;}} |
1355 |
base[4]= (V155); |
V215= (*(LnkLI98))((V211),small_fixnum(1)); |
1356 |
base[5]= small_fixnum(1); |
V211= (*(LnkLI98))((V211),small_fixnum(2)); |
1357 |
vs_top=(vs_base=base+4)+2; |
if(!(equal((V211),VV[59]))){ |
1358 |
(void) (*Lnk98)(); |
goto T520;} |
1359 |
vs_top=sup; |
V211= VV[60]; |
1360 |
V159= vs_base[0]; |
goto T520; |
1361 |
base[4]= (V155); |
T520:; |
1362 |
base[5]= small_fixnum(2); |
if(((V215))==Cnil){ |
1363 |
vs_top=(vs_base=base+4)+2; |
goto T530;} |
1364 |
(void) (*Lnk98)(); |
(void)((*(LnkLI116))((V215))); |
1365 |
vs_top=sup; |
goto T530; |
1366 |
V155= vs_base[0]; |
T530:; |
1367 |
if(!(equal((V155),VV[59]))){ |
{object V219; |
1368 |
goto T588;} |
V219= CMPmake_fixnum((long)(*(LnkLI117))((V211),CMPcar(CMPcadr((VV[20]->s.s_dbind))))); |
1369 |
V155= VV[60]; |
if(((V219))!=Cnil){ |
1370 |
goto T588; |
goto T534;} |
|
T588:; |
|
|
if(((V159))==Cnil){ |
|
|
goto T602;} |
|
|
base[4]= (V159); |
|
|
vs_top=(vs_base=base+4)+1; |
|
|
(void) (*Lnk116)(); |
|
|
vs_top=sup; |
|
|
goto T602; |
|
|
T602:; |
|
|
{object V163; |
|
|
base[4]= (V155); |
|
|
base[5]= CMPcar(CMPcadr((VV[20]->s.s_dbind))); |
|
|
vs_top=(vs_base=base+4)+2; |
|
|
(void) (*Lnk117)(); |
|
|
vs_top=sup; |
|
|
V163= vs_base[0]; |
|
|
if(((V163))!=Cnil){ |
|
|
goto T609;} |
|
1371 |
base[4]= Ct; |
base[4]= Ct; |
1372 |
base[5]= VV[61]; |
base[5]= VV[61]; |
1373 |
base[6]= (V155); |
base[6]= (V211); |
1374 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
1375 |
Lformat(); |
Lformat(); |
1376 |
vs_top=sup; |
vs_top=sup; |
1378 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1379 |
bds_unwind1; |
bds_unwind1; |
1380 |
return; |
return; |
1381 |
goto T609; |
goto T534; |
1382 |
T609:; |
T534:; |
1383 |
base[4]= (V163); |
base[4]= (V219); |
1384 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1385 |
(void) (*Lnk113)(); |
(void) (*Lnk113)(); |
1386 |
vs_top=sup; |
vs_top=sup; |
1387 |
V158= vs_base[0]; |
V214= vs_base[0]; |
1388 |
{register object V164; |
{register object V220; |
1389 |
object V165; |
object V221; |
1390 |
base[6]= CMPcdr((V158)); |
V220= (*(LnkLI114))(CMPcdr((V214))); |
1391 |
vs_top=(vs_base=base+6)+1; |
V221= number_minus((V219),CMPcar((V214))); |
|
(void) (*Lnk114)(); |
|
|
vs_top=sup; |
|
|
V164= vs_base[0]; |
|
|
V165= number_minus((V163),CMPcar((V158))); |
|
1392 |
base[6]= VV[62]; |
base[6]= VV[62]; |
1393 |
base[8]= (V155); |
base[7]= (*(LnkLI101))((V211)); |
|
vs_top=(vs_base=base+8)+1; |
|
|
(void) (*Lnk101)(); |
|
|
vs_top=sup; |
|
|
base[7]= vs_base[0]; |
|
1394 |
base[8]= VV[63]; |
base[8]= VV[63]; |
1395 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
1396 |
(void) (*Lnk102)(); |
(void) (*Lnk102)(); |
1397 |
vs_top=sup; |
vs_top=sup; |
1398 |
V166= vs_base[0]; |
V222= vs_base[0]; |
1399 |
{long V167= fix((VFUN_NARGS=3,(*(LnkLI94))(V166,(V164),(V165)))); |
{long V223= fix((VFUN_NARGS=3,(*(LnkLI94))(V222,(V220),(V221)))); |
1400 |
if(!((/* INLINE-ARGS */V167)>=(0))){ |
if(!((/* INLINE-ARGS */V223)>=(0))){ |
1401 |
goto T623;}} |
goto T547;}} |
1402 |
{object V168; |
{object V224; |
1403 |
register object V169; |
register object V225; |
1404 |
register object V170; |
register object V226; |
1405 |
object V171; |
object V227; |
1406 |
V168= CMPmake_fixnum((long)(*(LnkLI96))(0)); |
V224= CMPmake_fixnum((long)(*(LnkLI97))(0)); |
1407 |
V169= CMPmake_fixnum((long)(*(LnkLI95))(0)); |
V225= CMPmake_fixnum((long)(*(LnkLI95))(0)); |
1408 |
{long V172= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[64],(V164),(V169)))); |
{long V228= fix((VFUN_NARGS=3,(*(LnkLI94))(VV[64],(V220),(V225)))); |
1409 |
if(!((/* INLINE-ARGS */V172)>=(0))){ |
if(!((/* INLINE-ARGS */V228)>=(0))){ |
1410 |
goto T634;}} |
goto T557;}} |
1411 |
V170= CMPmake_fixnum((long)(*(LnkLI96))(0)); |
V226= CMPmake_fixnum((long)(*(LnkLI97))(0)); |
1412 |
goto T632; |
goto T555; |
1413 |
goto T634; |
goto T557; |
1414 |
T634:; |
T557:; |
1415 |
V170= CMPmake_fixnum((long)length((V164))); |
V226= CMPmake_fixnum((long)length((V220))); |
1416 |
goto T632; |
goto T555; |
1417 |
T632:; |
T555:; |
1418 |
V171= listA(7,(V164),(V169),(V170),(V168),(V155),(V158),(VV[20]->s.s_dbind)); |
V227= listA(7,(V220),(V225),(V226),(V224),(V211),(V214),(VV[20]->s.s_dbind)); |
1419 |
if(((V156))==Cnil){ |
if(((V212))==Cnil){ |
1420 |
goto T637;} |
goto T560;} |
1421 |
base[10]= (V156); |
V212= (*(LnkLI101))((V212)); |
|
vs_top=(vs_base=base+10)+1; |
|
|
(void) (*Lnk101)(); |
|
|
vs_top=sup; |
|
|
V156= vs_base[0]; |
|
1422 |
bds_bind(VV[10],Cnil); |
bds_bind(VV[10],Cnil); |
1423 |
base[11]= VV[65]; |
base[11]= VV[65]; |
1424 |
base[12]= (V156); |
base[12]= (V212); |
1425 |
base[13]= VV[66]; |
base[13]= VV[66]; |
1426 |
vs_top=(vs_base=base+11)+3; |
vs_top=(vs_base=base+11)+3; |
1427 |
(void) (*Lnk102)(); |
(void) (*Lnk102)(); |
1428 |
vs_top=sup; |
vs_top=sup; |
1429 |
V173= vs_base[0]; |
V229= vs_base[0]; |
1430 |
V161= fix((VFUN_NARGS=4,(*(LnkLI94))(V173,(V164),(V169),(V170)))); |
V217= fix((VFUN_NARGS=4,(*(LnkLI94))(V229,(V220),(V225),(V226)))); |
1431 |
if((V161)>=(0)){ |
if((V217)>=(0)){ |
1432 |
goto T643;} |
goto T565;} |
1433 |
{long V174= fix((VFUN_NARGS=4,(*(LnkLI94))((V156),(V164),(V169),(V170)))); |
{long V230= fix((VFUN_NARGS=4,(*(LnkLI94))((V212),(V220),(V225),(V226)))); |
1434 |
if(!((/* INLINE-ARGS */V174)>=(0))){ |
if(!((/* INLINE-ARGS */V230)>=(0))){ |
1435 |
bds_unwind1; |
bds_unwind1; |
1436 |
goto T637;}} |
goto T560;}} |
1437 |
goto T643; |
goto T565; |
1438 |
T643:; |
T565:; |
1439 |
V175 = CMPmake_fixnum((long)(*(LnkLI96))(0)); |
V231 = CMPmake_fixnum((long)(*(LnkLI97))(0)); |
1440 |
V160= fix(number_minus(V175,(V169))); |
V216= fix(number_minus(V231,(V225))); |
1441 |
bds_unwind1; |
bds_unwind1; |
1442 |
goto T637; |
goto T560; |
1443 |
T637:; |
T560:; |
1444 |
if(((V157))==Cnil){ |
if(((V213))==Cnil){ |
1445 |
goto T654;} |
goto T576;} |
1446 |
{object V176; |
{object V232; |
1447 |
base[10]= (V171); |
base[10]= (V227); |
1448 |
base[11]= CMPmake_fixnum(V160); |
base[11]= CMPmake_fixnum(V216); |
1449 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
1450 |
(void) (*Lnk118)(); |
(void) (*Lnk118)(); |
1451 |
vs_top=sup; |
vs_top=sup; |
1452 |
V176= vs_base[0]; |
V232= vs_base[0]; |
1453 |
base[10]= (VV[57]->s.s_dbind); |
base[10]= (VV[57]->s.s_dbind); |
1454 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
1455 |
(void) (*Lnk119)(); |
(void) (*Lnk119)(); |
1456 |
vs_top=sup; |
vs_top=sup; |
1457 |
base[10]= (V176); |
base[10]= (V232); |
1458 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
1459 |
bds_unwind1; |
bds_unwind1; |
1460 |
return;} |
return;} |
1461 |
goto T654; |
goto T576; |
1462 |
T654:; |
T576:; |
1463 |
{object V177; |
{object V233; |
1464 |
if(!((V161)>=(0))){ |
if(!((V217)>=(0))){ |
1465 |
goto T663;} |
goto T585;} |
1466 |
base[10]= (V169); |
base[10]= (V225); |
1467 |
base[11]= small_fixnum(1); |
base[11]= small_fixnum(1); |
1468 |
base[12]= CMPmake_fixnum(V160); |
base[12]= CMPmake_fixnum(V216); |
1469 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
1470 |
Lplus(); |
Lplus(); |
1471 |
vs_top=sup; |
vs_top=sup; |
1472 |
V178= vs_base[0]; |
V234= vs_base[0]; |
1473 |
{long V179= fix((VFUN_NARGS=4,(*(LnkLI94))(VV[67],(V164),V178,(V170)))); |
{long V235= fix((VFUN_NARGS=4,(*(LnkLI94))(VV[67],(V220),V234,(V226)))); |
1474 |
if(!((/* INLINE-ARGS */V179)>=(0))){ |
if(!((/* INLINE-ARGS */V235)>=(0))){ |
1475 |
goto T663;}} |
goto T585;}} |
1476 |
V177= CMPmake_fixnum((long)(*(LnkLI96))(0)); |
V233= CMPmake_fixnum((long)(*(LnkLI97))(0)); |
1477 |
goto T661; |
goto T583; |
1478 |
goto T663; |
goto T585; |
1479 |
T663:; |
T585:; |
1480 |
V177= (V170); |
V233= (V226); |
1481 |
goto T661; |
goto T583; |
1482 |
T661:; |
T583:; |
1483 |
base[10]= (V164); |
base[10]= (V220); |
1484 |
V180 = CMPmake_fixnum(V160); |
V236 = CMPmake_fixnum(V216); |
1485 |
base[11]= number_plus(V180,(V169)); |
base[11]= number_plus(V236,(V225)); |
1486 |
base[12]= (V177); |
base[12]= (V233); |
1487 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
1488 |
Lsubseq(); |
Lsubseq(); |
1489 |
bds_unwind1; |
bds_unwind1; |
1490 |
return;}} |
return;}} |
1491 |
goto T623; |
goto T547; |
1492 |
T623:; |
T547:; |
1493 |
base[6]= VV[68]; |
base[6]= VV[68]; |
1494 |
base[7]= (V155); |
base[7]= (V211); |
1495 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
1496 |
(void) (*Lnk99)(); |
(void) (*Lnk99)(); |
1497 |
vs_top=sup; |
vs_top=sup; |
1502 |
return;}}} |
return;}}} |
1503 |
} |
} |
1504 |
} |
} |
1505 |
/* function definition for INFO-AUX */ |
/* local entry for function INFO-AUX */ |
1506 |
|
|
1507 |
static void L24() |
static object LI24(V239,V240) |
1508 |
{register object *base=vs_base; |
|
1509 |
register object *sup=base+VM24; VC24 |
object V239;object V240; |
1510 |
vs_check; |
{ VMB24 VMS24 VMV24 |
|
{object V181; |
|
|
object V182; |
|
|
V181=(base[0]); |
|
|
V182=(base[1]); |
|
|
vs_top=sup; |
|
1511 |
goto TTL; |
goto TTL; |
1512 |
TTL:; |
TTL:; |
1513 |
{register object V183; |
{register object V241; |
1514 |
register object V184; |
register object V242; |
1515 |
V183= Cnil; |
V241= Cnil; |
1516 |
V184= (V182); |
V242= (V240); |
1517 |
{object V185; |
{object V243; |
1518 |
register object V186; |
register object V244; |
1519 |
register object V187; |
register object V245; |
1520 |
register object V188; |
register object V246; |
1521 |
V185= Cnil; |
V243= Cnil; |
1522 |
V186= Cnil; |
V244= Cnil; |
1523 |
V187= Cnil; |
V245= Cnil; |
1524 |
V188= Cnil; |
V246= Cnil; |
1525 |
goto T679; |
goto T601; |
1526 |
T679:; |
T601:; |
1527 |
if(((V184))==Cnil){ |
if(((V242))==Cnil){ |
1528 |
goto T682;} |
goto T604;} |
1529 |
goto T681; |
goto T603; |
1530 |
goto T682; |
goto T604; |
1531 |
T682:; |
T604:; |
1532 |
goto T680; |
goto T602; |
1533 |
goto T681; |
goto T603; |
1534 |
T681:; |
T603:; |
1535 |
{object V189; |
{object V247; |
1536 |
V189= CMPcar((V184)); |
V247= CMPcar((V242)); |
1537 |
V183= (V189);} |
V241= (V247);} |
1538 |
base[2]= (V183); |
(void)((*(LnkLI116))((V241))); |
1539 |
vs_top=(vs_base=base+2)+1; |
V248= (*(LnkLI121))((V239),VV[69]); |
1540 |
(void) (*Lnk116)(); |
base[0]= (*(LnkLI120))(/* INLINE-ARGS */V248,(V241)); |
1541 |
vs_top=sup; |
vs_top=(vs_base=base+0)+1; |
|
base[4]= (V181); |
|
|
base[5]= VV[69]; |
|
|
vs_top=(vs_base=base+4)+2; |
|
|
(void) (*Lnk120)(); |
|
|
vs_top=sup; |
|
|
base[3]= vs_base[0]; |
|
|
base[4]= (V183); |
|
|
vs_top=(vs_base=base+3)+2; |
|
|
(void) (*Lnk121)(); |
|
|
vs_top=sup; |
|
|
base[2]= vs_base[0]; |
|
|
vs_top=(vs_base=base+2)+1; |
|
1542 |
Lcopy_list(); |
Lcopy_list(); |
1543 |
vs_top=sup; |
vs_top=sup; |
1544 |
V187= vs_base[0]; |
V245= vs_base[0]; |
1545 |
if(((V186))==Cnil){ |
if(((V244))==Cnil){ |
1546 |
goto T698;} |
goto T615;} |
1547 |
{register object V191; |
{register object V250; |
1548 |
V191= (V187); |
V250= (V245); |
1549 |
(V186)->c.c_cdr = (V191); |
(V244)->c.c_cdr = (V250); |
1550 |
if(((V191))!=Cnil){ |
if(((V250))!=Cnil){ |
1551 |
goto T700;}} |
goto T617;}} |
1552 |
goto T696; |
goto T613; |
1553 |
goto T700; |
goto T617; |
1554 |
T700:; |
T617:; |
1555 |
base[2]= CMPcdr((V186)); |
base[0]= CMPcdr((V244)); |
1556 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+0)+1; |
1557 |
Llast(); |
Llast(); |
1558 |
vs_top=sup; |
vs_top=sup; |
1559 |
V186= vs_base[0]; |
V244= vs_base[0]; |
1560 |
goto T696; |
goto T613; |
1561 |
goto T698; |
goto T615; |
1562 |
T698:; |
T615:; |
1563 |
V185= (V187); |
V243= (V245); |
1564 |
base[2]= (V185); |
base[0]= (V243); |
1565 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+0)+1; |
1566 |
Llast(); |
Llast(); |
1567 |
vs_top=sup; |
vs_top=sup; |
1568 |
V186= vs_base[0]; |
V244= vs_base[0]; |
1569 |
goto T696; |
goto T613; |
1570 |
T696:; |
T613:; |
1571 |
base[4]= (V181); |
V251= (*(LnkLI121))((V239),VV[43]); |
1572 |
base[5]= VV[43]; |
base[0]= (*(LnkLI120))(/* INLINE-ARGS */V251,(V241)); |
1573 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+0)+1; |
|
(void) (*Lnk120)(); |
|
|
vs_top=sup; |
|
|
base[3]= vs_base[0]; |
|
|
base[4]= (V183); |
|
|
vs_top=(vs_base=base+3)+2; |
|
|
(void) (*Lnk121)(); |
|
|
vs_top=sup; |
|
|
base[2]= vs_base[0]; |
|
|
vs_top=(vs_base=base+2)+1; |
|
1574 |
Lcopy_list(); |
Lcopy_list(); |
1575 |
vs_top=sup; |
vs_top=sup; |
1576 |
V188= vs_base[0]; |
V246= vs_base[0]; |
1577 |
if(((V186))==Cnil){ |
if(((V244))==Cnil){ |
1578 |
goto T718;} |
goto T631;} |
1579 |
{register object V193; |
{register object V253; |
1580 |
V193= (V188); |
V253= (V246); |
1581 |
(V186)->c.c_cdr = (V193); |
(V244)->c.c_cdr = (V253); |
1582 |
if(((V193))!=Cnil){ |
if(((V253))!=Cnil){ |
1583 |
goto T720;}} |
goto T633;}} |
1584 |
goto T716; |
goto T629; |
1585 |
goto T720; |
goto T633; |
1586 |
T720:; |
T633:; |
1587 |
base[2]= CMPcdr((V186)); |
base[0]= CMPcdr((V244)); |
1588 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+0)+1; |
1589 |
Llast(); |
Llast(); |
1590 |
vs_top=sup; |
vs_top=sup; |
1591 |
V186= vs_base[0]; |
V244= vs_base[0]; |
1592 |
goto T716; |
goto T629; |
1593 |
goto T718; |
goto T631; |
1594 |
T718:; |
T631:; |
1595 |
V185= (V188); |
V243= (V246); |
1596 |
base[2]= (V185); |
base[0]= (V243); |
1597 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+0)+1; |
1598 |
Llast(); |
Llast(); |
1599 |
vs_top=sup; |
vs_top=sup; |
1600 |
V186= vs_base[0]; |
V244= vs_base[0]; |
1601 |
goto T716; |
goto T629; |
1602 |
T716:; |
T629:; |
1603 |
V184= CMPcdr((V184)); |
V242= CMPcdr((V242)); |
1604 |
goto T679; |
goto T601; |
1605 |
goto T680; |
goto T602; |
1606 |
T680:; |
T602:; |
1607 |
base[2]= (V185); |
{object V254 = (V243); |
1608 |
vs_top=(vs_base=base+2)+1; |
VMR24(V254)} |
1609 |
return; |
{object V255 = Cnil; |
1610 |
base[2]= Cnil; |
VMR24(V255)} |
1611 |
vs_top=(vs_base=base+2)+1; |
{object V256 = Cnil; |
1612 |
return; |
VMR24(V256)}}} |
1613 |
base[2]= Cnil; |
base[0]=base[0]; |
1614 |
vs_top=(vs_base=base+2)+1; |
return Cnil; |
1615 |
return;}} |
} |
1616 |
} |
/* local entry for function INFO-SEARCH */ |
1617 |
} |
|
1618 |
/* function definition for INFO-SEARCH */ |
static object LI25(object V257,object first,...) |
1619 |
|
{ |
1620 |
static void L25() |
va_list ap; |
1621 |
{register object *base=vs_base; |
int narg = VFUN_NARGS; VMB25 VMS25 VMV25 |
1622 |
register object *sup=base+VM25; VC25 |
{object V258; |
1623 |
vs_check; |
register object V259; |
1624 |
{object V194; |
register object V260; |
1625 |
register object V195; |
va_start(ap,first); |
1626 |
register object V196; |
V258= V257; |
1627 |
V194=(base[0]); |
narg = narg - 1; |
1628 |
vs_base=vs_base+1; |
if (narg <= 0) goto T646; |
1629 |
if(vs_base>=vs_top){vs_top=sup;goto T733;} |
else { |
1630 |
V195=(base[1]); |
V259= first;} |
1631 |
vs_base++; |
if (--narg <= 0) goto T647; |
1632 |
if(vs_base>=vs_top){vs_top=sup;goto T734;} |
else { |
1633 |
V196=(base[2]); |
V260= va_arg(ap,object);} |
1634 |
vs_top=sup; |
--narg; goto T648; |
1635 |
goto T735; |
goto T646; |
1636 |
goto T733; |
T646:; |
1637 |
T733:; |
V259= Cnil; |
1638 |
V195= Cnil; |
goto T647; |
1639 |
goto T734; |
T647:; |
1640 |
T734:; |
V260= Cnil; |
1641 |
V196= Cnil; |
goto T648; |
1642 |
goto T735; |
T648:; |
1643 |
T735:; |
{register object V261; |
1644 |
{register object V197; |
V261= Cnil; |
1645 |
V197= Cnil; |
if((V259)!=Cnil){ |
1646 |
if((V195)!=Cnil){ |
goto T652;} |
1647 |
goto T739;} |
V259= small_fixnum(0); |
1648 |
V195= small_fixnum(0); |
goto T652; |
1649 |
goto T739; |
T652:; |
1650 |
T739:; |
goto T656; |
1651 |
goto T743; |
T656:; |
1652 |
T743:; |
if((V259)!=Cnil){ |
1653 |
if((V195)!=Cnil){ |
goto T658;} |
1654 |
goto T745;} |
goto T657; |
1655 |
goto T744; |
goto T658; |
1656 |
goto T745; |
T658:; |
1657 |
T745:; |
{register object V262; |
1658 |
{register object V198; |
register object V263; |
1659 |
register object V199; |
base[0]= (V259); |
1660 |
base[3]= (V195); |
vs_top=(vs_base=base+0)+1; |
|
vs_top=(vs_base=base+3)+1; |
|
1661 |
(void) (*Lnk113)(); |
(void) (*Lnk113)(); |
1662 |
if(vs_base>=vs_top){vs_top=sup;goto T749;} |
if(vs_base>=vs_top){vs_top=sup;goto T662;} |
1663 |
V198= vs_base[0]; |
V262= vs_base[0]; |
1664 |
vs_base++; |
vs_base++; |
1665 |
if(vs_base>=vs_top){vs_top=sup;goto T750;} |
if(vs_base>=vs_top){vs_top=sup;goto T663;} |
1666 |
V199= vs_base[0]; |
V263= vs_base[0]; |
|
vs_top=sup; |
|
|
goto T751; |
|
|
goto T749; |
|
|
T749:; |
|
|
V198= Cnil; |
|
|
goto T750; |
|
|
T750:; |
|
|
V199= Cnil; |
|
|
goto T751; |
|
|
T751:; |
|
|
V197= (V199); |
|
|
if((V196)==Cnil){ |
|
|
goto T754;} |
|
|
if((V197)==Cnil){ |
|
|
goto T754;} |
|
|
if(number_compare((V196),(V197))<0){ |
|
|
goto T755;} |
|
|
goto T754; |
|
|
goto T755; |
|
|
T755:; |
|
|
V197= (V196); |
|
|
goto T754; |
|
|
T754:; |
|
|
{register object V200; |
|
|
register object V201; |
|
|
object V202; |
|
|
object V203; |
|
|
base[7]= CMPcdr((V198)); |
|
|
vs_top=(vs_base=base+7)+1; |
|
|
(void) (*Lnk114)(); |
|
|
vs_top=sup; |
|
|
V200= vs_base[0]; |
|
|
V201= CMPcar((V198)); |
|
|
V202= number_minus((V195),(V201)); |
|
|
V203= CMPmake_fixnum((long)length((V200))); |
|
|
if(((V197))==Cnil){ |
|
|
goto T768;} |
|
|
V204= number_minus((V197),(V201)); |
|
|
goto T766; |
|
|
goto T768; |
|
|
T768:; |
|
|
V204= (V203); |
|
|
goto T766; |
|
|
T766:; |
|
|
{long V205= fix((VFUN_NARGS=4,(*(LnkLI94))((V194),(V200),(V202),V204))); |
|
|
if(!((/* INLINE-ARGS */V205)>=(0))){ |
|
|
goto T758;}} |
|
|
V206 = CMPmake_fixnum((long)(*(LnkLI96))(0)); |
|
|
base[7]= number_plus((V201),V206); |
|
|
vs_top=(vs_base=base+7)+1; |
|
|
return;} |
|
|
goto T758; |
|
|
T758:; |
|
|
V195= (V199);} |
|
|
goto T743; |
|
|
goto T744; |
|
|
T744:; |
|
|
goto T741; |
|
|
goto T741; |
|
|
goto T741; |
|
|
T741:; |
|
|
base[3]= small_fixnum(-1); |
|
|
vs_top=(vs_base=base+3)+1; |
|
|
return;} |
|
|
} |
|
|
} |
|
|
/* function definition for IDESCRIBE */ |
|
|
|
|
|
static void L26() |
|
|
{register object *base=vs_base; |
|
|
register object *sup=base+VM26; VC26 |
|
|
vs_check; |
|
|
{register object V207; |
|
|
V207=(base[0]); |
|
1667 |
vs_top=sup; |
vs_top=sup; |
1668 |
goto TTL; |
goto T664; |
1669 |
TTL:; |
goto T662; |
1670 |
{object V208; |
T662:; |
1671 |
base[2]= (V207); |
V262= Cnil; |
1672 |
base[3]= (VV[70]->s.s_dbind); |
goto T663; |
1673 |
vs_top=(vs_base=base+2)+2; |
T663:; |
1674 |
(void) (*Lnk122)(); |
V263= Cnil; |
1675 |
vs_top=sup; |
goto T664; |
1676 |
V208= vs_base[0]; |
T664:; |
1677 |
{register object V209; |
V261= (V263); |
1678 |
register object V210; |
if((V260)==Cnil){ |
1679 |
V209= (V208); |
goto T667;} |
1680 |
V210= CMPcar((V209)); |
if((V261)==Cnil){ |
1681 |
goto T778; |
goto T667;} |
1682 |
T778:; |
if(number_compare((V260),(V261))<0){ |
1683 |
if(!(((V209))==Cnil)){ |
goto T668;} |
1684 |
goto T779;} |
goto T667; |
1685 |
base[3]= Cnil; |
goto T668; |
1686 |
vs_top=(vs_base=base+3)+1; |
T668:; |
1687 |
return; |
V261= (V260); |
1688 |
goto T779; |
goto T667; |
1689 |
T779:; |
T667:; |
1690 |
if(!(type_of(CMPcar((V210)))==t_cons)){ |
{register object V264; |
1691 |
goto T787;} |
register object V265; |
1692 |
if(!(equalp(CMPcaar((V210)),(V207)))){ |
object V266; |
1693 |
goto T783;} |
object V267; |
1694 |
goto T785; |
V264= (*(LnkLI114))(CMPcdr((V262))); |
1695 |
goto T787; |
V265= CMPcar((V262)); |
1696 |
T787:; |
V266= number_minus((V259),(V265)); |
1697 |
if(!(equalp(CMPcar((V210)),(V207)))){ |
V267= CMPmake_fixnum((long)length((V264))); |
1698 |
goto T783;} |
if(((V261))==Cnil){ |
1699 |
goto T785; |
goto T680;} |
1700 |
T785:; |
V268= number_minus((V261),(V265)); |
1701 |
base[3]= Ct; |
goto T678; |
1702 |
base[4]= VV[71]; |
goto T680; |
1703 |
base[5]= (V210); |
T680:; |
1704 |
vs_top=(vs_base=base+3)+3; |
V268= (V267); |
1705 |
|
goto T678; |
1706 |
|
T678:; |
1707 |
|
{long V269= fix((VFUN_NARGS=4,(*(LnkLI94))((V258),(V264),(V266),V268))); |
1708 |
|
if(!((/* INLINE-ARGS */V269)>=(0))){ |
1709 |
|
goto T671;}} |
1710 |
|
V270 = CMPmake_fixnum((long)(*(LnkLI97))(0)); |
1711 |
|
{object V271 = number_plus((V265),V270); |
1712 |
|
VMR25(V271)}} |
1713 |
|
goto T671; |
1714 |
|
T671:; |
1715 |
|
V259= (V263);} |
1716 |
|
goto T656; |
1717 |
|
goto T657; |
1718 |
|
T657:; |
1719 |
|
goto T654; |
1720 |
|
goto T654; |
1721 |
|
goto T654; |
1722 |
|
T654:; |
1723 |
|
{object V272 = small_fixnum(-1); |
1724 |
|
VMR25(V272)}} |
1725 |
|
va_end(ap); |
1726 |
|
base[0]=base[0]; |
1727 |
|
return Cnil;} |
1728 |
|
} |
1729 |
|
/* local entry for function IDESCRIBE */ |
1730 |
|
|
1731 |
|
static object LI26(V274) |
1732 |
|
|
1733 |
|
register object V274; |
1734 |
|
{ VMB26 VMS26 VMV26 |
1735 |
|
goto TTL; |
1736 |
|
TTL:; |
1737 |
|
{object V275; |
1738 |
|
V275= (*(LnkLI122))((V274),(VV[70]->s.s_dbind)); |
1739 |
|
{register object V276; |
1740 |
|
register object V277; |
1741 |
|
V276= (V275); |
1742 |
|
V277= CMPcar((V276)); |
1743 |
|
goto T688; |
1744 |
|
T688:; |
1745 |
|
if(!(((V276))==Cnil)){ |
1746 |
|
goto T689;} |
1747 |
|
{object V278 = Cnil; |
1748 |
|
VMR26(V278)} |
1749 |
|
goto T689; |
1750 |
|
T689:; |
1751 |
|
if(!(type_of(CMPcar((V277)))==t_cons)){ |
1752 |
|
goto T697;} |
1753 |
|
if(!(equalp(CMPcaar((V277)),(V274)))){ |
1754 |
|
goto T693;} |
1755 |
|
goto T695; |
1756 |
|
goto T697; |
1757 |
|
T697:; |
1758 |
|
if(!(equalp(CMPcar((V277)),(V274)))){ |
1759 |
|
goto T693;} |
1760 |
|
goto T695; |
1761 |
|
T695:; |
1762 |
|
base[2]= Ct; |
1763 |
|
base[3]= VV[71]; |
1764 |
|
base[4]= (V277); |
1765 |
|
vs_top=(vs_base=base+2)+3; |
1766 |
Lformat(); |
Lformat(); |
1767 |
vs_top=sup; |
vs_top=sup; |
1768 |
base[3]= (V210); |
base[2]= (V277); |
1769 |
|
base[3]= Cnil; |
1770 |
base[4]= Cnil; |
base[4]= Cnil; |
1771 |
base[5]= Cnil; |
vs_top=(vs_base=base+2)+3; |
|
vs_top=(vs_base=base+3)+3; |
|
1772 |
(void) (*Lnk104)(); |
(void) (*Lnk104)(); |
1773 |
vs_top=sup; |
vs_top=sup; |
1774 |
V211= vs_base[0]; |
V279= vs_base[0]; |
1775 |
(void)(princ(V211,Cnil)); |
(void)(princ(V279,Cnil)); |
1776 |
goto T783; |
goto T693; |
1777 |
T783:; |
T693:; |
1778 |
V209= CMPcdr((V209)); |
V276= CMPcdr((V276)); |
1779 |
V210= CMPcar((V209)); |
V277= CMPcar((V276)); |
1780 |
goto T778;}} |
goto T688;}} |
1781 |
} |
base[0]=base[0]; |
1782 |
|
return Cnil; |
1783 |
} |
} |
1784 |
/* function definition for INFO */ |
/* function definition for INFO */ |
1785 |
|
|
1788 |
register object *sup=base+VM27; VC27 |
register object *sup=base+VM27; VC27 |
1789 |
vs_check; |
vs_check; |
1790 |
bds_check; |
bds_check; |
1791 |
{object V212; |
{object V280; |
1792 |
object V213; |
object V281; |
1793 |
V212=(base[0]); |
V280=(base[0]); |
1794 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
1795 |
if(vs_base>=vs_top){vs_top=sup;goto T802;} |
if(vs_base>=vs_top){vs_top=sup;goto T712;} |
1796 |
V213=(base[1]); |
V281=(base[1]); |
1797 |
vs_top=sup; |
vs_top=sup; |
1798 |
goto T803; |
goto T713; |
1799 |
goto T802; |
goto T712; |
1800 |
T802:; |
T712:; |
1801 |
V213= (VV[70]->s.s_dbind); |
V281= (VV[70]->s.s_dbind); |
1802 |
goto T803; |
goto T713; |
1803 |
T803:; |
T713:; |
1804 |
{object V214; |
{object V282; |
1805 |
register object V215; |
register object V283; |
1806 |
object V216; |
object V284; |
1807 |
V214= Cnil; |
V282= Cnil; |
1808 |
bds_bind(VV[20],Cnil); |
bds_bind(VV[20],Cnil); |
1809 |
V215= Cnil; |
V283= Cnil; |
1810 |
V216= Cnil; |
V284= Cnil; |
1811 |
{object V217; |
{object V285; |
1812 |
base[3]= (V212); |
V285= (*(LnkLI122))((V280),(V281)); |
|
base[4]= (V213); |
|
|
vs_top=(vs_base=base+3)+2; |
|
|
(void) (*Lnk122)(); |
|
|
vs_top=sup; |
|
|
V217= vs_base[0]; |
|
1813 |
if(((VV[44]->s.s_dbind))==Cnil){ |
if(((VV[44]->s.s_dbind))==Cnil){ |
1814 |
goto T812;} |
goto T720;} |
1815 |
base[3]= (V217); |
base[3]= (V285); |
1816 |
base[4]= (V213); |
base[4]= (V281); |
1817 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1818 |
(void) (*Lnk123)(); |
(void) (*Lnk123)(); |
1819 |
bds_unwind1; |
bds_unwind1; |
1820 |
return; |
return; |
1821 |
goto T812; |
goto T720; |
1822 |
T812:; |
T720:; |
1823 |
if(((V217))==Cnil){ |
if(((V285))==Cnil){ |
1824 |
goto T817;} |
goto T725;} |
1825 |
base[3]= CMPmake_fixnum((long)length((V217))); |
base[3]= CMPmake_fixnum((long)length((V285))); |
1826 |
base[3]=MMcons(base[3],Cnil); |
base[3]=MMcons(base[3],Cnil); |
1827 |
{register long V218; |
{register long V286; |
1828 |
V218= 0; |
V286= 0; |
1829 |
{register object V219; |
{register object V287; |
1830 |
register object V220; |
register object V288; |
1831 |
V219= Cnil; |
V287= Cnil; |
1832 |
V220= (V217); |
V288= (V285); |
1833 |
{object V221; |
{object V289; |
1834 |
V221= Cnil; |
V289= Cnil; |
1835 |
goto T823; |
goto T731; |
1836 |
T823:; |
T731:; |
1837 |
if(((V220))==Cnil){ |
if(((V288))==Cnil){ |
1838 |
goto T826;} |
goto T734;} |
1839 |
goto T825; |
goto T733; |
1840 |
goto T826; |
goto T734; |
1841 |
T826:; |
T734:; |
1842 |
goto T824; |
goto T732; |
1843 |
goto T825; |
goto T733; |
1844 |
T825:; |
T733:; |
1845 |
{object V222; |
{object V290; |
1846 |
V222= CMPcar((V220)); |
V290= CMPcar((V288)); |
1847 |
V219= (V222);} |
V287= (V290);} |
1848 |
V215= Cnil; |
V283= Cnil; |
1849 |
V216= Cnil; |
V284= Cnil; |
1850 |
if(!(type_of((V219))==t_cons)){ |
if(!(type_of((V287))==t_cons)){ |
1851 |
goto T836;} |
goto T744;} |
1852 |
if(!(type_of(CMPcdr((V219)))==t_cons)){ |
if(!(type_of(CMPcdr((V287)))==t_cons)){ |
1853 |
goto T836;} |
goto T744;} |
1854 |
V215= CMPcadr((V219)); |
V283= CMPcadr((V287)); |
1855 |
V219= CMPcar((V219)); |
V287= CMPcar((V287)); |
1856 |
goto T836; |
goto T744; |
1857 |
T836:; |
T744:; |
1858 |
if(!(type_of((V219))==t_cons)){ |
if(!(type_of((V287))==t_cons)){ |
1859 |
goto T835;} |
goto T743;} |
1860 |
V216= CMPcar((V219)); |
V284= CMPcar((V287)); |
1861 |
V219= CMPcdr((V219)); |
V287= CMPcdr((V287)); |
1862 |
goto T835; |
goto T743; |
1863 |
T835:; |
T743:; |
1864 |
base[4]= Ct; |
base[4]= Ct; |
1865 |
base[5]= VV[72]; |
base[5]= VV[72]; |
1866 |
base[6]= CMPmake_fixnum(V218); |
base[6]= CMPmake_fixnum(V286); |
1867 |
base[7]= (V216); |
base[7]= (V284); |
1868 |
if(!(((V215))==((V221)))){ |
if(!(((V283))==((V289)))){ |
1869 |
goto T856;} |
goto T764;} |
1870 |
base[8]= Cnil; |
base[8]= Cnil; |
1871 |
goto T854; |
goto T762; |
1872 |
goto T856; |
goto T764; |
1873 |
T856:; |
T764:; |
1874 |
V221= (V215); |
V289= (V283); |
1875 |
base[8]= (V221); |
base[8]= (V289); |
1876 |
goto T854; |
goto T762; |
1877 |
T854:; |
T762:; |
1878 |
base[9]= (V219); |
base[9]= (V287); |
1879 |
vs_top=(vs_base=base+4)+6; |
vs_top=(vs_base=base+4)+6; |
1880 |
Lformat(); |
Lformat(); |
1881 |
vs_top=sup; |
vs_top=sup; |
1882 |
if(!((V218)<(2147483646))){ |
if(!((V286)<(2147483646))){ |
1883 |
goto T861;} |
goto T769;} |
1884 |
goto T860; |
goto T768; |
1885 |
goto T861; |
goto T769; |
1886 |
T861:; |
T769:; |
1887 |
vs_base=vs_top; |
(void)((*(LnkLI124))()); |
1888 |
(void) (*Lnk124)(); |
goto T768; |
1889 |
vs_top=sup; |
T768:; |
1890 |
goto T860; |
V286= (long)(V286)+(1); |
1891 |
T860:; |
V288= CMPcdr((V288)); |
1892 |
V218= (long)(V218)+(1); |
goto T731; |
1893 |
V220= CMPcdr((V220)); |
goto T732; |
1894 |
goto T823; |
T732:; |
1895 |
goto T824; |
goto T728; |
1896 |
T824:; |
goto T728;}}} |
1897 |
goto T820; |
goto T728; |
1898 |
goto T820;}}} |
T728:; |
1899 |
goto T820; |
if(!(((long)length((V285)))>(1))){ |
1900 |
T820:; |
goto T778;} |
|
if(!(((long)length((V217)))>(1))){ |
|
|
goto T870;} |
|
1901 |
base[4]= Ct; |
base[4]= Ct; |
1902 |
base[5]= VV[74]; |
base[5]= VV[74]; |
1903 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1904 |
Lformat(); |
Lformat(); |
1905 |
vs_top=sup; |
vs_top=sup; |
1906 |
goto T868; |
goto T776; |
1907 |
goto T870; |
goto T778; |
1908 |
T870:; |
T778:; |
1909 |
princ_char(10,Cnil); |
princ_char(10,Cnil); |
1910 |
goto T868; |
goto T776; |
1911 |
T868:; |
T776:; |
1912 |
{object V223; |
{object V291; |
1913 |
object V224; |
object V292; |
1914 |
register object V225; |
register object V293; |
1915 |
if(!(((long)length((V217)))>(1))){ |
if(!(((long)length((V285)))>(1))){ |
1916 |
goto T876;} |
goto T784;} |
1917 |
vs_base=vs_top; |
vs_base=vs_top; |
1918 |
Lread_line(); |
Lread_line(); |
1919 |
vs_top=sup; |
vs_top=sup; |
1920 |
V223= vs_base[0]; |
V291= vs_base[0]; |
1921 |
goto T874; |
goto T782; |
1922 |
goto T876; |
goto T784; |
1923 |
T876:; |
T784:; |
1924 |
V223= VV[75]; |
V291= VV[75]; |
1925 |
goto T874; |
goto T782; |
1926 |
T874:; |
T782:; |
1927 |
V224= small_fixnum(0); |
V292= small_fixnum(0); |
1928 |
V225= Cnil; |
V293= Cnil; |
1929 |
goto T880; |
goto T788; |
1930 |
T880:; |
T788:; |
1931 |
if(!(equal((V223),VV[76]))){ |
if(!(equal((V291),VV[76]))){ |
1932 |
goto T883;} |
goto T791;} |
1933 |
goto T882; |
goto T790; |
1934 |
goto T883; |
goto T791; |
1935 |
T883:; |
T791:; |
1936 |
goto T881; |
goto T789; |
1937 |
goto T882; |
goto T790; |
1938 |
T882:; |
T790:; |
1939 |
vs_base=vs_top; |
vs_base=vs_top; |
1940 |
Lread_line(); |
Lread_line(); |
1941 |
vs_top=sup; |
vs_top=sup; |
1942 |
V223= vs_base[0]; |
V291= vs_base[0]; |
1943 |
goto T880; |
goto T788; |
1944 |
goto T881; |
goto T789; |
1945 |
T881:; |
T789:; |
1946 |
goto T878; |
goto T786; |
1947 |
goto T878; |
goto T786; |
1948 |
goto T878; |
goto T786; |
1949 |
T878:; |
T786:; |
1950 |
goto T890; |
goto T798; |
1951 |
T890:;{object V226; |
T798:;{object V294; |
1952 |
base[4]= (V223); |
base[4]= (V291); |
1953 |
base[5]= Cnil; |
base[5]= Cnil; |
1954 |
base[6]= Cnil; |
base[6]= Cnil; |
1955 |
base[7]= VV[77]; |
base[7]= VV[77]; |
1956 |
base[8]= (V224); |
base[8]= (V292); |
1957 |
vs_top=(vs_base=base+4)+5; |
vs_top=(vs_base=base+4)+5; |
1958 |
(void) (*Lnk125)(); |
(void) (*Lnk125)(); |
1959 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
1960 |
V225= vs_base[0]; |
V293= vs_base[0]; |
1961 |
vs_base++; |
vs_base++; |
1962 |
}else{ |
}else{ |
1963 |
V225= Cnil;} |
V293= Cnil;} |
1964 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
1965 |
V224= vs_base[0]; |
V292= vs_base[0]; |
1966 |
}else{ |
}else{ |
1967 |
V224= Cnil;} |
V292= Cnil;} |
|
vs_top=sup; |
|
|
V226= (V225); |
|
|
if(V226==Cnil)goto T893; |
|
|
goto T892; |
|
|
goto T893; |
|
|
T893:;} |
|
|
goto T891; |
|
|
goto T892; |
|
|
T892:; |
|
|
if(!(type_of((V225))==t_fixnum|| |
|
|
type_of((V225))==t_bignum|| |
|
|
type_of((V225))==t_ratio|| |
|
|
type_of((V225))==t_shortfloat|| |
|
|
type_of((V225))==t_longfloat|| |
|
|
type_of((V225))==t_complex)){ |
|
|
goto T903;} |
|
|
V214= make_cons((V225),(V214)); |
|
|
goto T901; |
|
|
goto T903; |
|
|
T903:; |
|
|
V214= (V225); |
|
|
goto T888; |
|
|
goto T901; |
|
|
T901:; |
|
|
goto T890; |
|
|
goto T891; |
|
|
T891:; |
|
|
goto T888; |
|
|
goto T888; |
|
|
goto T888; |
|
|
T888:; |
|
|
if(!(type_of((V214))==t_cons)){ |
|
|
goto T911;} |
|
|
V214= nreverse((V214)); |
|
|
goto T909; |
|
|
goto T911; |
|
|
T911:; |
|
|
if(!(type_of((V214))==t_symbol)){ |
|
|
goto T909;} |
|
|
V227= symbol_name((V214)); |
|
|
if(equal(/* INLINE-ARGS */V227,VV[78])){ |
|
|
goto T917;} |
|
|
V214= Cnil; |
|
|
goto T916; |
|
|
goto T917; |
|
|
T917:; |
|
|
{register long V228; |
|
|
long V229; |
|
|
V228= 0; |
|
|
{object V230; |
|
|
V230= CMPmake_fixnum((long)length((V217)));{object V231; |
|
|
V231= (type_of((V230))==t_fixnum?Ct:Cnil); |
|
|
if(V231==Cnil)goto T923; |
|
|
goto T922; |
|
|
goto T923; |
|
|
T923:;} |
|
|
vs_base=vs_top; |
|
|
(void) (*Lnk124)(); |
|
|
vs_top=sup; |
|
|
goto T922; |
|
|
T922:; |
|
|
V229= fix((V230));} |
|
|
{object V232; |
|
|
register object V233; |
|
|
V232= Cnil; |
|
|
V233= Cnil; |
|
|
goto T926; |
|
|
T926:; |
|
|
if((V228)>=(V229)){ |
|
|
goto T929;} |
|
|
goto T928; |
|
|
goto T929; |
|
|
T929:; |
|
|
goto T927; |
|
|
goto T928; |
|
|
T928:; |
|
|
if(((V233))==Cnil){ |
|
|
goto T933;} |
|
|
{object V234; |
|
|
object V235; |
|
|
V234= (V233); |
|
|
V236 = CMPmake_fixnum(V228); |
|
|
V233= make_cons(V236,Cnil); |
|
|
V235= (V233); |
|
|
((V234))->c.c_cdr = (V235); |
|
|
goto T931;} |
|
|
goto T933; |
|
|
T933:; |
|
|
V237 = CMPmake_fixnum(V228); |
|
|
V233= make_cons(V237,Cnil); |
|
|
V232= (V233); |
|
|
goto T931; |
|
|
T931:; |
|
|
V228= (long)(V228)+(1); |
|
|
goto T926; |
|
|
goto T927; |
|
|
T927:; |
|
|
V214= (V232); |
|
|
goto T916; |
|
|
V214= Cnil; |
|
|
goto T916; |
|
|
V214= Cnil; |
|
|
goto T916;}} |
|
|
goto T916; |
|
|
T916:; |
|
|
goto T909; |
|
|
T909:; |
|
|
if(((V214))==Cnil){ |
|
|
goto T945;} |
|
|
base[4]= |
|
|
make_cclosure_new(LC31,Cnil,base[3],Cdata); |
|
|
base[5]= (V214); |
|
|
vs_top=(vs_base=base+4)+2; |
|
|
(void) (*Lnk126)(); |
|
1968 |
vs_top=sup; |
vs_top=sup; |
1969 |
V214= vs_base[0]; |
V294= (V293); |
1970 |
|
if(V294==Cnil)goto T801; |
1971 |
|
goto T800; |
1972 |
|
goto T801; |
1973 |
|
T801:;} |
1974 |
|
goto T799; |
1975 |
|
goto T800; |
1976 |
|
T800:; |
1977 |
|
if(!(type_of((V293))==t_fixnum|| |
1978 |
|
type_of((V293))==t_bignum|| |
1979 |
|
type_of((V293))==t_ratio|| |
1980 |
|
type_of((V293))==t_shortfloat|| |
1981 |
|
type_of((V293))==t_longfloat|| |
1982 |
|
type_of((V293))==t_complex)){ |
1983 |
|
goto T811;} |
1984 |
|
V282= make_cons((V293),(V282)); |
1985 |
|
goto T809; |
1986 |
|
goto T811; |
1987 |
|
T811:; |
1988 |
|
V282= (V293); |
1989 |
|
goto T796; |
1990 |
|
goto T809; |
1991 |
|
T809:; |
1992 |
|
goto T798; |
1993 |
|
goto T799; |
1994 |
|
T799:; |
1995 |
|
goto T796; |
1996 |
|
goto T796; |
1997 |
|
goto T796; |
1998 |
|
T796:; |
1999 |
|
if(!(type_of((V282))==t_cons)){ |
2000 |
|
goto T819;} |
2001 |
|
V282= nreverse((V282)); |
2002 |
|
goto T817; |
2003 |
|
goto T819; |
2004 |
|
T819:; |
2005 |
|
if(!(type_of((V282))==t_symbol)){ |
2006 |
|
goto T817;} |
2007 |
|
V295= symbol_name((V282)); |
2008 |
|
if(equal(/* INLINE-ARGS */V295,VV[78])){ |
2009 |
|
goto T825;} |
2010 |
|
V282= Cnil; |
2011 |
|
goto T824; |
2012 |
|
goto T825; |
2013 |
|
T825:; |
2014 |
|
{register long V296; |
2015 |
|
long V297; |
2016 |
|
V296= 0; |
2017 |
|
{object V298; |
2018 |
|
V298= CMPmake_fixnum((long)length((V285)));{object V299; |
2019 |
|
V299= (type_of((V298))==t_fixnum?Ct:Cnil); |
2020 |
|
if(V299==Cnil)goto T831; |
2021 |
|
goto T830; |
2022 |
|
goto T831; |
2023 |
|
T831:;} |
2024 |
|
(void)((*(LnkLI124))()); |
2025 |
|
goto T830; |
2026 |
|
T830:; |
2027 |
|
V297= fix((V298));} |
2028 |
|
{object V300; |
2029 |
|
register object V301; |
2030 |
|
V300= Cnil; |
2031 |
|
V301= Cnil; |
2032 |
|
goto T834; |
2033 |
|
T834:; |
2034 |
|
if((V296)>=(V297)){ |
2035 |
|
goto T837;} |
2036 |
|
goto T836; |
2037 |
|
goto T837; |
2038 |
|
T837:; |
2039 |
|
goto T835; |
2040 |
|
goto T836; |
2041 |
|
T836:; |
2042 |
|
if(((V301))==Cnil){ |
2043 |
|
goto T841;} |
2044 |
|
{object V302; |
2045 |
|
object V303; |
2046 |
|
V302= (V301); |
2047 |
|
V304 = CMPmake_fixnum(V296); |
2048 |
|
V301= make_cons(V304,Cnil); |
2049 |
|
V303= (V301); |
2050 |
|
((V302))->c.c_cdr = (V303); |
2051 |
|
goto T839;} |
2052 |
|
goto T841; |
2053 |
|
T841:; |
2054 |
|
V305 = CMPmake_fixnum(V296); |
2055 |
|
V301= make_cons(V305,Cnil); |
2056 |
|
V300= (V301); |
2057 |
|
goto T839; |
2058 |
|
T839:; |
2059 |
|
V296= (long)(V296)+(1); |
2060 |
|
goto T834; |
2061 |
|
goto T835; |
2062 |
|
T835:; |
2063 |
|
V282= (V300); |
2064 |
|
goto T824; |
2065 |
|
V282= Cnil; |
2066 |
|
goto T824; |
2067 |
|
V282= Cnil; |
2068 |
|
goto T824;}} |
2069 |
|
goto T824; |
2070 |
|
T824:; |
2071 |
|
goto T817; |
2072 |
|
T817:; |
2073 |
|
if(((V282))==Cnil){ |
2074 |
|
goto T853;} |
2075 |
|
V306= |
2076 |
|
make_cclosure_new(LC32,Cnil,base[3],Cdata); |
2077 |
|
V282= (VFUN_NARGS=2,(*(LnkLI126))(V306,(V282))); |
2078 |
base[4]= Ct; |
base[4]= Ct; |
2079 |
base[5]= VV[79]; |
base[5]= VV[79]; |
2080 |
base[6]= CMPcar((VV[20]->s.s_dbind)); |
base[6]= CMPcar((VV[20]->s.s_dbind)); |
2081 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
2082 |
Lformat(); |
Lformat(); |
2083 |
vs_top=sup; |
vs_top=sup; |
2084 |
goto T945; |
goto T853; |
2085 |
T945:; |
T853:; |
2086 |
{object V238; |
{object V307; |
2087 |
register object V239; |
register object V308; |
2088 |
V238= Cnil; |
V307= Cnil; |
2089 |
V239= (V214); |
V308= (V282); |
2090 |
goto T956; |
goto T863; |
2091 |
T956:; |
T863:; |
2092 |
if(((V239))==Cnil){ |
if(((V308))==Cnil){ |
2093 |
goto T959;} |
goto T866;} |
2094 |
goto T958; |
goto T865; |
2095 |
goto T959; |
goto T866; |
2096 |
T959:; |
T866:; |
2097 |
goto T957; |
goto T864; |
2098 |
goto T958; |
goto T865; |
2099 |
T958:; |
T865:; |
2100 |
{object V240; |
{object V309; |
2101 |
V240= CMPcar((V239)); |
V309= CMPcar((V308)); |
2102 |
V238= (V240);} |
V307= (V309);} |
2103 |
base[4]= nth(fix((V238)),(V217)); |
base[4]= nth(fix((V307)),(V285)); |
2104 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2105 |
(void) (*Lnk104)(); |
(void) (*Lnk104)(); |
2106 |
vs_top=sup; |
vs_top=sup; |
2107 |
V241= vs_base[0]; |
V310= vs_base[0]; |
2108 |
(void)(princ(V241,Cnil)); |
(void)(princ(V310,Cnil)); |
2109 |
V239= CMPcdr((V239)); |
V308= CMPcdr((V308)); |
2110 |
goto T956; |
goto T863; |
2111 |
goto T957; |
goto T864; |
2112 |
T957:; |
T864:; |
2113 |
base[4]= Cnil; |
base[4]= Cnil; |
2114 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2115 |
bds_unwind1; |
bds_unwind1; |
2118 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2119 |
bds_unwind1; |
bds_unwind1; |
2120 |
return;}} |
return;}} |
2121 |
goto T817; |
goto T725; |
2122 |
T817:; |
T725:; |
2123 |
base[3]= Cnil; |
base[3]= Cnil; |
2124 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2125 |
bds_unwind1; |
bds_unwind1; |
2126 |
return;}} |
return;}} |
2127 |
} |
} |
2128 |
} |
} |
2129 |
/* function definition for DEFAULT-INFO-HOTLIST */ |
/* local entry for function DEFAULT-INFO-HOTLIST */ |
2130 |
|
|
2131 |
static void L28() |
static object LI28() |
2132 |
{register object *base=vs_base; |
|
2133 |
register object *sup=base+VM28; VC28 |
{ VMB28 VMS28 VMV28 |
|
vs_check; |
|
|
vs_top=sup; |
|
2134 |
goto TTL; |
goto TTL; |
2135 |
TTL:; |
TTL:; |
2136 |
base[1]= VV[80]; |
base[1]= VV[80]; |
2144 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
2145 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2146 |
Lnamestring(); |
Lnamestring(); |
2147 |
return; |
vs_top=sup; |
2148 |
|
{object V311 = vs_base[0]; |
2149 |
|
VMR28(V311)} |
2150 |
|
base[0]=base[0]; |
2151 |
|
return Cnil; |
2152 |
} |
} |
2153 |
/* function definition for ADD-TO-HOTLIST */ |
/* local entry for function ADD-TO-HOTLIST */ |
2154 |
|
|
2155 |
static void L29() |
static object LI30(V313) |
2156 |
{register object *VOL base=vs_base; |
|
2157 |
register object *VOL sup=base+VM29; VC29 |
VOL object V313; |
2158 |
vs_check; |
{ VMB29 VMS29 VMV29 |
|
vs_top=sup; |
|
2159 |
goto TTL; |
goto TTL; |
2160 |
TTL:; |
TTL:; |
2161 |
|
base[0]= (V313); |
2162 |
if(!(type_of(base[0])==t_symbol)){ |
if(!(type_of(base[0])==t_symbol)){ |
2163 |
goto T973;} |
goto T880;} |
2164 |
{object V242 =(base[0])->s.s_plist; |
{object V314 =(base[0])->s.s_plist; |
2165 |
object ind= VV[69]; |
object ind= VV[69]; |
2166 |
while(V242!=Cnil){ |
while(V314!=Cnil){ |
2167 |
if(V242->c.c_car==ind){ |
if(V314->c.c_car==ind){ |
2168 |
base[0]= (V242->c.c_cdr->c.c_car); |
base[0]= (V314->c.c_cdr->c.c_car); |
2169 |
goto T976; |
goto T883; |
2170 |
}else V242=V242->c.c_cdr->c.c_cdr;} |
}else V314=V314->c.c_cdr->c.c_cdr;} |
2171 |
base[0]= Cnil;} |
base[0]= Cnil;} |
2172 |
goto T976; |
goto T883; |
2173 |
T976:; |
T883:; |
2174 |
goto T973; |
goto T880; |
2175 |
T973:; |
T880:; |
2176 |
if((base[0])==Cnil){ |
if((base[0])==Cnil){ |
2177 |
goto T978;} |
goto T885;} |
2178 |
vs_base=vs_top; |
base[2]= (*(LnkLI128))(); |
|
(void) (*Lnk128)(); |
|
|
vs_top=sup; |
|
|
base[2]= vs_base[0]; |
|
2179 |
base[3]= VV[81]; |
base[3]= VV[81]; |
2180 |
base[4]= VV[82]; |
base[4]= VV[82]; |
2181 |
base[5]= VV[83]; |
base[5]= VV[83]; |
2194 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2195 |
Lfile_position(); |
Lfile_position(); |
2196 |
vs_top=sup; |
vs_top=sup; |
2197 |
V243= vs_base[0]; |
V315= vs_base[0]; |
2198 |
if(!(number_compare(V243,small_fixnum(10))<0)){ |
if(!(number_compare(V315,small_fixnum(10))<0)){ |
2199 |
goto T989;} |
goto T896;} |
2200 |
(void)(princ(VV[87],base[1])); |
(void)(princ(VV[87],base[1])); |
2201 |
goto T989; |
goto T896; |
2202 |
T989:; |
T896:; |
2203 |
base[3]= base[1]; |
base[3]= base[1]; |
2204 |
base[4]= VV[88]; |
base[4]= VV[88]; |
2205 |
base[5]= CMPcaddr(CMPcddddr(base[0])); |
base[5]= CMPcaddr(CMPcddddr(base[0])); |
2213 |
vs_top=sup; |
vs_top=sup; |
2214 |
nlj_active=FALSE;frs_pop(); |
nlj_active=FALSE;frs_pop(); |
2215 |
if((base[1])==Cnil){ |
if((base[1])==Cnil){ |
2216 |
goto T998;} |
goto T905;} |
2217 |
base[3]= base[1]; |
base[3]= base[1]; |
2218 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2219 |
Lclose(); |
Lclose(); |
2220 |
vs_top=sup; |
vs_top=sup; |
2221 |
goto T998; |
goto T905; |
2222 |
T998:; |
T905:; |
2223 |
vs_base=vs_top=base+3; |
vs_base=vs_top=base+3; |
2224 |
for(p= base[2];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
for(p= base[2];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
2225 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
|
return;}} |
|
|
goto T978; |
|
|
T978:; |
|
|
base[1]= Cnil; |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
return; |
|
|
} |
|
|
/* function definition for LIST-MATCHES */ |
|
|
|
|
|
static void L30() |
|
|
{register object *base=vs_base; |
|
|
register object *sup=base+VM30; VC30 |
|
|
vs_check; |
|
|
{object V244; |
|
|
object V245; |
|
|
V244=(base[0]); |
|
|
vs_base=vs_base+1; |
|
|
vs_top[0]=Cnil; |
|
|
{object *p=vs_top; |
|
|
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
|
|
V245=(base[1]); |
|
2226 |
vs_top=sup; |
vs_top=sup; |
2227 |
{register object V246; |
{object V316 = vs_base[0]; |
2228 |
register object V247; |
VMR29(V316)}}} |
2229 |
V246= Cnil; |
goto T885; |
2230 |
V247= (V245); |
T885:; |
2231 |
{object V248; |
{object V317 = Cnil; |
2232 |
register object V249; |
VMR29(V317)} |
2233 |
register object V250; |
base[0]=base[0]; |
2234 |
V248= Cnil; |
return Cnil; |
2235 |
V249= Cnil; |
} |
2236 |
V250= Cnil; |
/* local entry for function LIST-MATCHES */ |
2237 |
goto T1003; |
|
2238 |
T1003:; |
static object LI31(object V318,object first,...) |
2239 |
if(((V247))==Cnil){ |
{ |
2240 |
goto T1006;} |
va_list ap; |
2241 |
goto T1005; |
int narg = VFUN_NARGS; VMB30 VMS30 VMV30 |
2242 |
goto T1006; |
{object V319; |
2243 |
T1006:; |
object V320; |
2244 |
goto T1004; |
va_start(ap,first); |
2245 |
goto T1005; |
V319= V318; |
2246 |
T1005:; |
narg= narg - 1; |
2247 |
{register object V251; |
V321 = list_vector_new(narg,first,ap); |
2248 |
V251= CMPcar((V247)); |
V320= V321; |
2249 |
V246= (V251);} |
{register object V322; |
2250 |
{long V252= (long)(*(LnkLI96))(fix((V246))); |
register object V323; |
2251 |
if((/* INLINE-ARGS */V252)>=(0)){ |
V322= Cnil; |
2252 |
goto T1013;}} |
V323= (V320); |
2253 |
V250= Cnil; |
{object V324; |
2254 |
goto T1012; |
register object V325; |
2255 |
goto T1013; |
register object V326; |
2256 |
T1013:; |
V324= Cnil; |
2257 |
base[2]= (V244); |
V325= Cnil; |
2258 |
base[3]= (V246); |
V326= Cnil; |
2259 |
vs_top=(vs_base=base+2)+2; |
goto T910; |
2260 |
(void) (*Lnk98)(); |
T910:; |
2261 |
vs_top=sup; |
if(((V323))==Cnil){ |
2262 |
V250= vs_base[0]; |
goto T913;} |
2263 |
goto T1012; |
goto T912; |
2264 |
T1012:; |
goto T913; |
2265 |
if(((V249))==Cnil){ |
T913:; |
2266 |
goto T1019;} |
goto T911; |
2267 |
{register object V253; |
goto T912; |
2268 |
register object V254; |
T912:; |
2269 |
V253= (V249); |
{register object V327; |
2270 |
V249= make_cons((V250),Cnil); |
V327= CMPcar((V323)); |
2271 |
V254= (V249); |
V322= (V327);} |
2272 |
((V253))->c.c_cdr = (V254); |
{long V328= (long)(*(LnkLI97))(fix((V322))); |
2273 |
goto T1017;} |
if((/* INLINE-ARGS */V328)>=(0)){ |
2274 |
goto T1019; |
goto T920;}} |
2275 |
T1019:; |
V326= Cnil; |
2276 |
V249= make_cons((V250),Cnil); |
goto T919; |
2277 |
V248= (V249); |
goto T920; |
2278 |
goto T1017; |
T920:; |
2279 |
T1017:; |
V326= (*(LnkLI98))((V319),(V322)); |
2280 |
V247= CMPcdr((V247)); |
goto T919; |
2281 |
goto T1003; |
T919:; |
2282 |
goto T1004; |
if(((V325))==Cnil){ |
2283 |
T1004:; |
goto T924;} |
2284 |
base[2]= (V248); |
{register object V329; |
2285 |
vs_top=(vs_base=base+2)+1; |
register object V330; |
2286 |
return; |
V329= (V325); |
2287 |
base[2]= Cnil; |
V325= make_cons((V326),Cnil); |
2288 |
vs_top=(vs_base=base+2)+1; |
V330= (V325); |
2289 |
return; |
((V329))->c.c_cdr = (V330); |
2290 |
base[2]= Cnil; |
goto T922;} |
2291 |
vs_top=(vs_base=base+2)+1; |
goto T924; |
2292 |
return;}} |
T924:; |
2293 |
|
V325= make_cons((V326),Cnil); |
2294 |
|
V324= (V325); |
2295 |
|
goto T922; |
2296 |
|
T922:; |
2297 |
|
V323= CMPcdr((V323)); |
2298 |
|
goto T910; |
2299 |
|
goto T911; |
2300 |
|
T911:; |
2301 |
|
{object V331 = (V324); |
2302 |
|
VMR30(V331)} |
2303 |
|
{object V332 = Cnil; |
2304 |
|
VMR30(V332)} |
2305 |
|
{object V333 = Cnil; |
2306 |
|
VMR30(V333)}}} |
2307 |
|
va_end(ap); |
2308 |
|
base[0]=base[0]; |
2309 |
|
return Cnil;} |
2310 |
} |
} |
|
} |
|
2311 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
2312 |
|
|
2313 |
static void LC31(base0) |
static void LC32(base0) |
2314 |
register object *base0; |
register object *base0; |
2315 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2316 |
register object *sup=base+VM31; VC31 |
register object *sup=base+VM31; VC31 |
2317 |
vs_check; |
vs_check; |
2318 |
{object V255; |
{object V334; |
2319 |
V255=(base[0]); |
V334=(base[0]); |
2320 |
vs_top=sup; |
vs_top=sup; |
2321 |
if(type_of((V255))==t_fixnum||type_of((V255))==t_bignum){ |
if(type_of((V334))==t_fixnum||type_of((V334))==t_bignum){ |
2322 |
goto T1031;} |
goto T936;} |
2323 |
base[1]= Cnil; |
base[1]= Cnil; |
2324 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2325 |
return; |
return; |
2326 |
goto T1031; |
goto T936; |
2327 |
T1031:; |
T936:; |
2328 |
base[1]= (number_compare((V255),(base0[0]->c.c_car))>=0?Ct:Cnil); |
base[1]= (number_compare((V334),(base0[0]->c.c_car))>=0?Ct:Cnil); |
2329 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2330 |
return; |
return; |
2331 |
} |
} |
2332 |
} |
} |
2333 |
static void LnkT128(){ call_or_link(VV[128],(void **)(void *)&Lnk128);} /* DEFAULT-INFO-HOTLIST */ |
static object LnkTLI128(){return call_proc0(VV[128],(void **)(void *)&LnkLI128);} /* DEFAULT-INFO-HOTLIST */ |
2334 |
static void LnkT127(){ call_or_link(VV[127],(void **)(void *)&Lnk127);} /* USER-HOMEDIR-PATHNAME */ |
static void LnkT127(){ call_or_link(VV[127],(void **)(void *)&Lnk127);} /* USER-HOMEDIR-PATHNAME */ |
2335 |
static void LnkT126(){ call_or_link(VV[126],(void **)(void *)&Lnk126);} /* REMOVE-IF */ |
static object LnkTLI126(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[126],(void **)(void *)&LnkLI126,first,ap);va_end(ap);return V1;} /* REMOVE-IF */ |
2336 |
static void LnkT125(){ call_or_link(VV[125],(void **)(void *)&Lnk125);} /* READ-FROM-STRING */ |
static void LnkT125(){ call_or_link(VV[125],(void **)(void *)&Lnk125);} /* READ-FROM-STRING */ |
2337 |
static void LnkT124(){ call_or_link(VV[124],(void **)(void *)&Lnk124);} /* TYPE-ERROR */ |
static object LnkTLI124(){return call_proc0(VV[124],(void **)(void *)&LnkLI124);} /* TYPE-ERROR */ |
2338 |
static void LnkT123(){ call_or_link(VV[123],(void **)(void *)&Lnk123);} /* OFFER-CHOICES */ |
static void LnkT123(){ call_or_link(VV[123],(void **)(void *)&Lnk123);} /* OFFER-CHOICES */ |
2339 |
static void LnkT122(){ call_or_link(VV[122],(void **)(void *)&Lnk122);} /* INFO-AUX */ |
static object LnkTLI122(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[122],(void **)(void *)&LnkLI122,2,first,ap);va_end(ap);return V1;} /* INFO-AUX */ |
2340 |
static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* ADD-FILE */ |
static object LnkTLI121(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[121],(void **)(void *)&LnkLI121,2,first,ap);va_end(ap);return V1;} /* GET-INFO-CHOICES */ |
2341 |
static void LnkT120(){ call_or_link(VV[120],(void **)(void *)&Lnk120);} /* GET-INFO-CHOICES */ |
static object LnkTLI120(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[120],(void **)(void *)&LnkLI120,2,first,ap);va_end(ap);return V1;} /* ADD-FILE */ |
2342 |
static void LnkT119(){ call_or_link(VV[119],(void **)(void *)&Lnk119);} /* END-WAITING */ |
static void LnkT119(){ call_or_link(VV[119],(void **)(void *)&Lnk119);} /* END-WAITING */ |
2343 |
static void LnkT118(){ call_or_link(VV[118],(void **)(void *)&Lnk118);} /* PRINT-NODE */ |
static void LnkT118(){ call_or_link(VV[118],(void **)(void *)&Lnk118);} /* PRINT-NODE */ |
2344 |
static void LnkT117(){ call_or_link(VV[117],(void **)(void *)&Lnk117);} /* GET-NODE-INDEX */ |
static object LnkTLI117(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[117],(void **)(void *)&LnkLI117,258,first,ap);va_end(ap);return V1;} /* GET-NODE-INDEX */ |
2345 |
static void LnkT116(){ call_or_link(VV[116],(void **)(void *)&Lnk116);} /* SETUP-INFO */ |
static object LnkTLI116(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[116],(void **)(void *)&LnkLI116,1,first,ap);va_end(ap);return V1;} /* SETUP-INFO */ |
2346 |
static void LnkT115(){ call_or_link(VV[115],(void **)(void *)&Lnk115);} /* WAITING */ |
static void LnkT115(){ call_or_link(VV[115],(void **)(void *)&Lnk115);} /* WAITING */ |
2347 |
static void LnkT114(){ call_or_link(VV[114],(void **)(void *)&Lnk114);} /* INFO-GET-FILE */ |
static object LnkTLI114(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[114],(void **)(void *)&LnkLI114,1,first,ap);va_end(ap);return V1;} /* INFO-GET-FILE */ |
2348 |
static void LnkT113(){ call_or_link(VV[113],(void **)(void *)&Lnk113);} /* INFO-SUBFILE */ |
static void LnkT113(){ call_or_link(VV[113],(void **)(void *)&Lnk113);} /* INFO-SUBFILE */ |
2349 |
static void LnkT112(){ call_or_link(VV[112],(void **)(void *)&Lnk112);} /* WINFO */ |
static void LnkT112(){ call_or_link(VV[112],(void **)(void *)&Lnk112);} /* WINFO */ |
2350 |
static void LnkT111(){ call_or_link(VV[111],(void **)(void *)&Lnk111);} /* TKERROR */ |
static void LnkT111(){ call_or_link(VV[111],(void **)(void *)&Lnk111);} /* TKERROR */ |
2351 |
static void LnkT110(){ call_or_link(VV[110],(void **)(void *)&Lnk110);} /* NODES-FROM-INDEX */ |
static object LnkTLI110(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[110],(void **)(void *)&LnkLI110,1,first,ap);va_end(ap);return V1;} /* NODES-FROM-INDEX */ |
2352 |
static void LnkT109(){ call_or_link(VV[109],(void **)(void *)&Lnk109);} /* INFO-GET-TAGS */ |
static object LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)(void *)&LnkLI109,1,first,ap);va_end(ap);return V1;} /* INFO-GET-TAGS */ |
2353 |
static void LnkT108(){ call_or_link(VV[108],(void **)(void *)&Lnk108);} /* SEARCH */ |
static object LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[108],(void **)(void *)&LnkLI108,first,ap);va_end(ap);return V1;} /* SEARCH */ |
2354 |
static void LnkT107(){ call_or_link(VV[107],(void **)(void *)&Lnk107);} /* FILE-SEARCH */ |
static object LnkTLI107(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[107],(void **)(void *)&LnkLI107,first,ap);va_end(ap);return V1;} /* FILE-SEARCH */ |
2355 |
static void LnkT106(){ call_or_link(VV[106],(void **)(void *)&Lnk106);} /* FIX-LOAD-PATH */ |
static object LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,1,first,ap);va_end(ap);return V1;} /* FIX-LOAD-PATH */ |
2356 |
static void LnkT105(){ call_or_link(VV[105],(void **)(void *)&Lnk105);} /* GET-INDEX-NODE */ |
static object LnkTLI105(){return call_proc0(VV[105],(void **)(void *)&LnkLI105);} /* GET-INDEX-NODE */ |
2357 |
static void LnkT104(){ call_or_link(VV[104],(void **)(void *)&Lnk104);} /* SHOW-INFO */ |
static void LnkT104(){ call_or_link(VV[104],(void **)(void *)&Lnk104);} /* SHOW-INFO */ |
2358 |
static void LnkT103(){ call_or_link(VV[103],(void **)(void *)&Lnk103);} /* GET-NODES */ |
static object LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)(void *)&LnkLI103,2,first,ap);va_end(ap);return V1;} /* GET-NODES */ |
2359 |
static void LnkT102(){ call_or_link(VV[102],(void **)(void *)&Lnk102);} /* STRING-CONCATENATE */ |
static void LnkT102(){ call_or_link(VV[102],(void **)(void *)&Lnk102);} /* STRING-CONCATENATE */ |
2360 |
static void LnkT101(){ call_or_link(VV[101],(void **)(void *)&Lnk101);} /* RE-QUOTE-STRING */ |
static object LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)(void *)&LnkLI101,1,first,ap);va_end(ap);return V1;} /* RE-QUOTE-STRING */ |
2361 |
static void LnkT100(){ call_or_link(VV[100],(void **)(void *)&Lnk100);} /* POSITION */ |
static object LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[100],(void **)(void *)&LnkLI100,first,ap);va_end(ap);return V1;} /* POSITION */ |
2362 |
static void LnkT99(){ call_or_link(VV[99],(void **)(void *)&Lnk99);} /* INFO-ERROR */ |
static void LnkT99(){ call_or_link(VV[99],(void **)(void *)&Lnk99);} /* INFO-ERROR */ |
2363 |
static void LnkT98(){ call_or_link(VV[98],(void **)(void *)&Lnk98);} /* GET-MATCH */ |
static object LnkTLI98(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[98],(void **)(void *)&LnkLI98,2,first,ap);va_end(ap);return V1;} /* GET-MATCH */ |
2364 |
static void LnkT97(){ call_or_link(VV[97],(void **)(void *)&Lnk97);} /* ATOI */ |
static object LnkTLI97(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[97],(void **)(void *)&LnkLI97,4353,first,ap);va_end(ap);return V1;} /* MATCH-BEGINNING */ |
2365 |
static object LnkTLI96(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[96],(void **)(void *)&LnkLI96,4353,first,ap);va_end(ap);return V1;} /* MATCH-BEGINNING */ |
static object LnkTLI96(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[96],(void **)(void *)&LnkLI96,16642,first,ap);va_end(ap);return V1;} /* ATOI */ |
2366 |
static object LnkTLI95(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[95],(void **)(void *)&LnkLI95,4353,first,ap);va_end(ap);return V1;} /* MATCH-END */ |
static object LnkTLI95(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[95],(void **)(void *)&LnkLI95,4353,first,ap);va_end(ap);return V1;} /* MATCH-END */ |
2367 |
static object LnkTLI94(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[94],(void **)(void *)&LnkLI94,first,ap);va_end(ap);return V1;} /* STRING-MATCH */ |
static object LnkTLI94(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[94],(void **)(void *)&LnkLI94,first,ap);va_end(ap);return V1;} /* STRING-MATCH */ |
2368 |
static void LnkT93(){ call_or_link(VV[93],(void **)(void *)&Lnk93);} /* FILE-TO-STRING */ |
static object LnkTLI93(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[93],(void **)(void *)&LnkLI93,first,ap);va_end(ap);return V1;} /* FILE-TO-STRING */ |
2369 |
static void LnkT92(){ call_or_link(VV[92],(void **)(void *)&Lnk92);} /* FREAD */ |
static void LnkT92(){ call_or_link(VV[92],(void **)(void *)&Lnk92);} /* FREAD */ |
2370 |
static void LnkT91(){ call_or_link(VV[91],(void **)(void *)&Lnk91);} /* OPEN */ |
static void LnkT91(){ call_or_link(VV[91],(void **)(void *)&Lnk91);} /* OPEN */ |
2371 |
static void LnkT90(){ call_or_link(VV[90],(void **)(void *)&Lnk90);} /* VECTOR-PUSH-EXTEND */ |
static object LnkTLI90(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[90],(void **)(void *)&LnkLI90,first,ap);va_end(ap);return V1;} /* VECTOR-PUSH-EXTEND */ |
2372 |
static void LnkT89(){ call_or_link(VV[89],(void **)(void *)&Lnk89);} /* MAKE-ARRAY */ |
static object LnkTLI89(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[89],(void **)(void *)&LnkLI89,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */ |
2373 |
|
|
2374 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
2375 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |