7 |
static void L1() |
static void L1() |
8 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
9 |
register object *VOL sup=base+VM1; VC1 |
register object *VOL sup=base+VM1; VC1 |
10 |
vs_reserve(VM1); |
vs_check; |
11 |
bds_check; |
bds_check; |
12 |
{VOL object V1; |
{VOL object V1; |
|
check_arg(1); |
|
13 |
V1=(base[0]); |
V1=(base[0]); |
14 |
vs_top=sup; |
vs_top=sup; |
15 |
goto TTL; |
goto TTL; |
28 |
{register object V2; |
{register object V2; |
29 |
object V3; |
object V3; |
30 |
register object V4; |
register object V4; |
31 |
V2= car((V1)); |
V2= CMPcar((V1)); |
32 |
V3= cdr((V1)); |
V3= CMPcdr((V1)); |
33 |
V4= Cnil; |
V4= Cnil; |
34 |
if(!(type_of((V2))==t_symbol)){ |
if(!(type_of((V2))==t_symbol)){ |
35 |
goto T8;} |
goto T8;} |
44 |
return; |
return; |
45 |
goto T11; |
goto T11; |
46 |
T11:; |
T11:; |
47 |
if((get((V2),VV[5],Cnil))==Cnil){ |
{object V6 =((V2))->s.s_plist; |
48 |
|
object ind= VV[5]; |
49 |
|
while(V6!=Cnil){ |
50 |
|
if(V6->c.c_car==ind){ |
51 |
|
if(((V6->c.c_cdr->c.c_car))==Cnil){ |
52 |
goto T14;} |
goto T14;} |
53 |
if((symbol_value(VV[6]))==Cnil){ |
goto T15; |
54 |
|
}else V6=V6->c.c_cdr->c.c_cdr;} |
55 |
|
goto T14;} |
56 |
|
goto T15; |
57 |
|
T15:; |
58 |
|
if(((VV[6]->s.s_dbind))==Cnil){ |
59 |
goto T16;} |
goto T16;} |
60 |
(void)((VFUN_NARGS=2,(*(LnkLI267))(VV[7],(V1)))); |
(void)((VFUN_NARGS=2,(*(LnkLI267))(VV[7],(V1)))); |
61 |
goto T16; |
goto T16; |
62 |
T16:; |
T16:; |
63 |
{object V6; |
{object V7; |
64 |
base[3]= (V2); |
base[3]= (V2); |
65 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
66 |
Lmacro_function(); |
Lmacro_function(); |
68 |
V4= vs_base[0]; |
V4= vs_base[0]; |
69 |
if(((V4))==Cnil){ |
if(((V4))==Cnil){ |
70 |
goto T21;} |
goto T21;} |
71 |
base[3]= cdr((V1)); |
base[3]= CMPcdr((V1)); |
72 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
73 |
Lcopy_list(); |
Lcopy_list(); |
74 |
vs_top=sup; |
vs_top=sup; |
75 |
V7= vs_base[0]; |
V8= vs_base[0]; |
76 |
V6= (*(LnkLI268))((V4),(V2),V7); |
V7= (*(LnkLI268))((V4),(V2),V8); |
77 |
goto T19; |
goto T19; |
78 |
goto T21; |
goto T21; |
79 |
T21:; |
T21:; |
80 |
V6= (V1); |
V7= (V1); |
81 |
goto T19; |
goto T19; |
82 |
T19:; |
T19:; |
83 |
(void)((*(LnkLI269))(Ct,(V6))); |
(void)((*(LnkLI269))(Ct,(V7))); |
84 |
V8= (*(LnkLI270))((V6)); |
V9= (*(LnkLI270))((V7)); |
85 |
frs_pop(); |
frs_pop(); |
86 |
base[3]= V8; |
base[3]= V9; |
87 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
88 |
bds_unwind1; |
bds_unwind1; |
89 |
bds_unwind1; |
bds_unwind1; |
90 |
return;} |
return;} |
91 |
goto T14; |
goto T14; |
92 |
T14:; |
T14:; |
93 |
V4= get((V2),VV[8],Cnil); |
{object V10 =((V2))->s.s_plist; |
94 |
|
object ind= VV[8]; |
95 |
|
while(V10!=Cnil){ |
96 |
|
if(V10->c.c_car==ind){ |
97 |
|
V4= (V10->c.c_cdr->c.c_car); |
98 |
|
goto T31; |
99 |
|
}else V10=V10->c.c_cdr->c.c_cdr;} |
100 |
|
V4= Cnil;} |
101 |
|
goto T31; |
102 |
|
T31:; |
103 |
if(((V4))==Cnil){ |
if(((V4))==Cnil){ |
104 |
goto T29;} |
goto T29;} |
105 |
if((symbol_value(VV[9]))==Cnil){ |
if(((VV[9]->s.s_dbind))==Cnil){ |
106 |
goto T32;} |
goto T32;} |
107 |
(void)((*(LnkLI271))()); |
(void)((*(LnkLI271))()); |
108 |
goto T32; |
goto T32; |
116 |
return; |
return; |
117 |
goto T29; |
goto T29; |
118 |
T29:; |
T29:; |
119 |
if((get((V2),VV[10],Cnil))==Cnil){ |
{object V11 =((V2))->s.s_plist; |
120 |
|
object ind= VV[10]; |
121 |
|
while(V11!=Cnil){ |
122 |
|
if(V11->c.c_car==ind){ |
123 |
|
if(((V11->c.c_cdr->c.c_car))==Cnil){ |
124 |
|
goto T37;} |
125 |
|
goto T38; |
126 |
|
}else V11=V11->c.c_cdr->c.c_cdr;} |
127 |
goto T37;} |
goto T37;} |
128 |
if((symbol_value(VV[9]))==Cnil){ |
goto T38; |
129 |
|
T38:; |
130 |
|
if(((VV[9]->s.s_dbind))==Cnil){ |
131 |
goto T39;} |
goto T39;} |
132 |
(void)((*(LnkLI271))()); |
(void)((*(LnkLI271))()); |
133 |
goto T39; |
goto T39; |
141 |
return; |
return; |
142 |
goto T37; |
goto T37; |
143 |
T37:; |
T37:; |
144 |
if((get((V2),VV[11],Cnil))==Cnil){ |
{object V12 =((V2))->s.s_plist; |
145 |
|
object ind= VV[11]; |
146 |
|
while(V12!=Cnil){ |
147 |
|
if(V12->c.c_car==ind){ |
148 |
|
if(((V12->c.c_cdr->c.c_car))==Cnil){ |
149 |
goto T44;} |
goto T44;} |
150 |
V9= (*(LnkLI274))((V1)); |
goto T45; |
151 |
|
}else V12=V12->c.c_cdr->c.c_cdr;} |
152 |
|
goto T44;} |
153 |
|
goto T45; |
154 |
|
T45:; |
155 |
|
V13= (*(LnkLI274))((V1)); |
156 |
frs_pop(); |
frs_pop(); |
157 |
base[3]= V9; |
base[3]= V13; |
158 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
159 |
bds_unwind1; |
bds_unwind1; |
160 |
bds_unwind1; |
bds_unwind1; |
168 |
V4= vs_base[0]; |
V4= vs_base[0]; |
169 |
if(((V4))==Cnil){ |
if(((V4))==Cnil){ |
170 |
goto T47;} |
goto T47;} |
171 |
{object V10; |
{object V14; |
172 |
base[3]= cdr((V1)); |
base[3]= CMPcdr((V1)); |
173 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
174 |
Lcopy_list(); |
Lcopy_list(); |
175 |
vs_top=sup; |
vs_top=sup; |
176 |
V11= vs_base[0]; |
V15= vs_base[0]; |
177 |
V10= (*(LnkLI268))((V4),(V2),V11); |
V14= (*(LnkLI268))((V4),(V2),V15); |
178 |
base[3]= (V10); |
base[3]= (V14); |
179 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
180 |
(void) (*Lnk273)(); |
(void) (*Lnk273)(); |
181 |
frs_pop(); |
frs_pop(); |
184 |
return;} |
return;} |
185 |
goto T47; |
goto T47; |
186 |
T47:; |
T47:; |
187 |
V12= (*(LnkLI274))((V1)); |
V16= (*(LnkLI274))((V1)); |
188 |
frs_pop(); |
frs_pop(); |
189 |
base[3]= V12; |
base[3]= V16; |
190 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
191 |
bds_unwind1; |
bds_unwind1; |
192 |
bds_unwind1; |
bds_unwind1; |
195 |
T8:; |
T8:; |
196 |
if(!(type_of((V2))==t_cons)){ |
if(!(type_of((V2))==t_cons)){ |
197 |
goto T56;} |
goto T56;} |
198 |
V13= (*(LnkLI274))((V1)); |
V17= (*(LnkLI274))((V1)); |
199 |
frs_pop(); |
frs_pop(); |
200 |
base[3]= V13; |
base[3]= V17; |
201 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
202 |
bds_unwind1; |
bds_unwind1; |
203 |
bds_unwind1; |
bds_unwind1; |
204 |
return; |
return; |
205 |
goto T56; |
goto T56; |
206 |
T56:; |
T56:; |
207 |
V14= (VFUN_NARGS=2,(*(LnkLI266))(VV[12],(V2))); |
V18= (VFUN_NARGS=2,(*(LnkLI266))(VV[12],(V2))); |
208 |
frs_pop(); |
frs_pop(); |
209 |
base[3]= V14; |
base[3]= V18; |
210 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
211 |
bds_unwind1; |
bds_unwind1; |
212 |
bds_unwind1; |
bds_unwind1; |
221 |
return;} |
return;} |
222 |
} |
} |
223 |
} |
} |
224 |
/* function definition for DECLARATION-TYPE */ |
/* local entry for function DECLARATION-TYPE */ |
225 |
|
|
226 |
static void L2() |
static object LI2(V20) |
227 |
{register object *base=vs_base; |
|
228 |
register object *sup=base+VM2; VC2 |
object V20; |
229 |
vs_reserve(VM2); |
{ VMB2 VMS2 VMV2 |
|
{object V15; |
|
|
check_arg(1); |
|
|
V15=(base[0]); |
|
|
vs_top=sup; |
|
230 |
goto TTL; |
goto TTL; |
231 |
TTL:; |
TTL:; |
232 |
if(!(equal((V15),VV[13]))){ |
if(!(equal((V20),VV[13]))){ |
233 |
goto T59;} |
goto T59;} |
234 |
base[1]= VV[14]; |
{object V21 = VV[14]; |
235 |
vs_top=(vs_base=base+1)+1; |
VMR2(V21)} |
|
return; |
|
236 |
goto T59; |
goto T59; |
237 |
T59:; |
T59:; |
238 |
if(!(equal((V15),VV[15]))){ |
if(!(equal((V20),VV[15]))){ |
239 |
goto T62;} |
goto T62;} |
240 |
base[1]= VV[16]; |
{object V22 = VV[16]; |
241 |
vs_top=(vs_base=base+1)+1; |
VMR2(V22)} |
|
return; |
|
242 |
goto T62; |
goto T62; |
243 |
T62:; |
T62:; |
244 |
base[1]= (V15); |
{object V23 = (V20); |
245 |
vs_top=(vs_base=base+1)+1; |
VMR2(V23)} |
246 |
return; |
return Cnil; |
|
} |
|
247 |
} |
} |
248 |
/* local entry for function CTOP-WRITE */ |
/* local entry for function CTOP-WRITE */ |
249 |
|
|
250 |
static object LI3(V17) |
static object LI3(V25) |
251 |
|
|
252 |
object V17; |
object V25; |
253 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
254 |
bds_check; |
bds_check; |
255 |
goto TTL; |
goto TTL; |
256 |
TTL:; |
TTL:; |
257 |
{object V18; |
{object V26; |
258 |
V18= Cnil; |
V26= Cnil; |
259 |
bds_bind(VV[18],Cnil); |
bds_bind(VV[18],Cnil); |
260 |
bds_bind(VV[19],Cnil); |
bds_bind(VV[19],Cnil); |
261 |
bds_bind(VV[21],VV[20]); |
bds_bind(VV[21],VV[20]); |
264 |
bds_bind(VV[24],Cnil); |
bds_bind(VV[24],Cnil); |
265 |
bds_bind(VV[0],Cnil); |
bds_bind(VV[0],Cnil); |
266 |
bds_bind(VV[17],Cnil); |
bds_bind(VV[17],Cnil); |
267 |
setq(VV[25],reverse(symbol_value(VV[25]))); |
(VV[25]->s.s_dbind)= reverse((VV[25]->s.s_dbind)); |
268 |
princ_str("\nvoid init_",VV[26]); |
princ_str("\nvoid init_",VV[26]); |
269 |
(void)((*(LnkLI275))((V17))); |
(void)((*(LnkLI275))((V25))); |
270 |
princ_str("(){",VV[26]); |
princ_str("(){",VV[26]); |
271 |
princ_str("do_init(VV);",VV[26]); |
princ_str("do_init(VV);",VV[26]); |
272 |
princ_char(125,VV[26]); |
princ_char(125,VV[26]); |
273 |
{object V19; |
{object V27; |
274 |
V19= symbol_value(VV[25]); |
V27= (VV[25]->s.s_dbind); |
275 |
bds_bind(VV[0],car((V19))); |
bds_bind(VV[0],CMPcar((V27))); |
276 |
goto T77; |
goto T77; |
277 |
T77:; |
T77:; |
278 |
if(!(endp_prop((V19)))){ |
if(!(((V27))==Cnil)){ |
279 |
goto T78;} |
goto T78;} |
280 |
bds_unwind1; |
bds_unwind1; |
281 |
goto T73; |
goto T73; |
282 |
goto T78; |
goto T78; |
283 |
T78:; |
T78:; |
284 |
setq(VV[1],Ct); |
(VV[1]->s.s_dbind)= Ct; |
285 |
(VV[17]->s.s_dbind)= Cnil; |
(VV[17]->s.s_dbind)= Cnil; |
286 |
V18= get(car((VV[0]->s.s_dbind)),VV[27],Cnil); |
{object V28 =(CMPcar((VV[0]->s.s_dbind)))->s.s_plist; |
287 |
if(((V18))==Cnil){ |
object ind= VV[27]; |
288 |
|
while(V28!=Cnil){ |
289 |
|
if(V28->c.c_car==ind){ |
290 |
|
V26= (V28->c.c_cdr->c.c_car); |
291 |
|
goto T89; |
292 |
|
}else V28=V28->c.c_cdr->c.c_cdr;} |
293 |
|
V26= Cnil;} |
294 |
|
goto T89; |
295 |
|
T89:; |
296 |
|
if(((V26))==Cnil){ |
297 |
goto T86;} |
goto T86;} |
298 |
base[9]= (V18); |
base[9]= (V26); |
299 |
{object V20; |
{object V29; |
300 |
V20= cdr((VV[0]->s.s_dbind)); |
V29= CMPcdr((VV[0]->s.s_dbind)); |
301 |
vs_top=base+10; |
vs_top=base+10; |
302 |
while(!endp(V20)) |
while(V29!=Cnil) |
303 |
{vs_push(car(V20));V20=cdr(V20);} |
{vs_push((V29)->c.c_car);V29=(V29)->c.c_cdr;} |
304 |
vs_base=base+10;} |
vs_base=base+10;} |
305 |
super_funcall_no_event(base[9]); |
super_funcall_no_event(base[9]); |
306 |
vs_top=sup; |
vs_top=sup; |
307 |
goto T86; |
goto T86; |
308 |
T86:; |
T86:; |
309 |
V19= cdr((V19)); |
V27= CMPcdr((V27)); |
310 |
(VV[0]->s.s_dbind)= car((V19)); |
(VV[0]->s.s_dbind)= CMPcar((V27)); |
311 |
goto T77;} |
goto T77;} |
312 |
goto T73; |
goto T73; |
313 |
T73:; |
T73:; |
314 |
{object V21; |
{object V30; |
315 |
V21= symbol_value(VV[25]); |
V30= (VV[25]->s.s_dbind); |
316 |
bds_bind(VV[0],car((V21))); |
bds_bind(VV[0],CMPcar((V30))); |
317 |
goto T101; |
goto T101; |
318 |
T101:; |
T101:; |
319 |
if(!(endp_prop((V21)))){ |
if(!(((V30))==Cnil)){ |
320 |
goto T102;} |
goto T102;} |
321 |
bds_unwind1; |
bds_unwind1; |
322 |
goto T97; |
goto T97; |
323 |
goto T102; |
goto T102; |
324 |
T102:; |
T102:; |
325 |
setq(VV[1],Ct); |
(VV[1]->s.s_dbind)= Ct; |
326 |
(VV[17]->s.s_dbind)= Cnil; |
(VV[17]->s.s_dbind)= Cnil; |
327 |
V18= get(car((VV[0]->s.s_dbind)),VV[28],Cnil); |
{object V31 =(CMPcar((VV[0]->s.s_dbind)))->s.s_plist; |
328 |
if(((V18))==Cnil){ |
object ind= VV[28]; |
329 |
|
while(V31!=Cnil){ |
330 |
|
if(V31->c.c_car==ind){ |
331 |
|
V26= (V31->c.c_cdr->c.c_car); |
332 |
|
goto T113; |
333 |
|
}else V31=V31->c.c_cdr->c.c_cdr;} |
334 |
|
V26= Cnil;} |
335 |
|
goto T113; |
336 |
|
T113:; |
337 |
|
if(((V26))==Cnil){ |
338 |
goto T110;} |
goto T110;} |
339 |
base[9]= (V18); |
base[9]= (V26); |
340 |
{object V22; |
{object V32; |
341 |
V22= cdr((VV[0]->s.s_dbind)); |
V32= CMPcdr((VV[0]->s.s_dbind)); |
342 |
vs_top=base+10; |
vs_top=base+10; |
343 |
while(!endp(V22)) |
while(V32!=Cnil) |
344 |
{vs_push(car(V22));V22=cdr(V22);} |
{vs_push((V32)->c.c_car);V32=(V32)->c.c_cdr;} |
345 |
vs_base=base+10;} |
vs_base=base+10;} |
346 |
super_funcall_no_event(base[9]); |
super_funcall_no_event(base[9]); |
347 |
vs_top=sup; |
vs_top=sup; |
348 |
goto T110; |
goto T110; |
349 |
T110:; |
T110:; |
350 |
V21= cdr((V21)); |
V30= CMPcdr((V30)); |
351 |
(VV[0]->s.s_dbind)= car((V21)); |
(VV[0]->s.s_dbind)= CMPcar((V30)); |
352 |
goto T101;} |
goto T101;} |
353 |
goto T97; |
goto T97; |
354 |
T97:; |
T97:; |
355 |
{object V23; |
{object V33; |
356 |
V23= Cnil; |
V33= Cnil; |
357 |
goto T123; |
goto T123; |
358 |
T123:; |
T123:; |
359 |
if(!(endp_prop(symbol_value(VV[29])))){ |
if(!(((VV[29]->s.s_dbind))==Cnil)){ |
360 |
goto T125;} |
goto T125;} |
361 |
goto T121; |
goto T121; |
362 |
goto T125; |
goto T125; |
363 |
T125:; |
T125:; |
364 |
V23= car(symbol_value(VV[29])); |
V33= CMPcar((VV[29]->s.s_dbind)); |
365 |
{object V24; |
{object V34; |
366 |
V24= car(symbol_value(VV[29])); |
V34= CMPcar((VV[29]->s.s_dbind)); |
367 |
setq(VV[29],cdr(symbol_value(VV[29])));} |
(VV[29]->s.s_dbind)= CMPcdr((VV[29]->s.s_dbind));} |
368 |
(VV[17]->s.s_dbind)= Cnil; |
(VV[17]->s.s_dbind)= Cnil; |
369 |
{object V25; |
{object V35; |
370 |
V25= (V23); |
V35= (V33); |
371 |
vs_top=base+8; |
vs_top=base+8; |
372 |
while(!endp(V25)) |
while(V35!=Cnil) |
373 |
{vs_push(car(V25));V25=cdr(V25);} |
{vs_push((V35)->c.c_car);V35=(V35)->c.c_cdr;} |
374 |
vs_base=base+8;} |
vs_base=base+8;} |
375 |
(void) (*Lnk258)(); |
(void) (*Lnk258)(); |
376 |
vs_top=sup; |
vs_top=sup; |
377 |
goto T123;} |
goto T123;} |
378 |
goto T121; |
goto T121; |
379 |
T121:; |
T121:; |
380 |
{object V26; |
{object V36; |
381 |
object V27; |
object V37; |
382 |
V26= symbol_value(VV[30]); |
V36= (VV[30]->s.s_dbind); |
383 |
V27= car((V26)); |
V37= CMPcar((V36)); |
384 |
goto T142; |
goto T142; |
385 |
T142:; |
T142:; |
386 |
if(!(endp_prop((V26)))){ |
if(!(((V36))==Cnil)){ |
387 |
goto T143;} |
goto T143;} |
388 |
goto T138; |
goto T138; |
389 |
goto T143; |
goto T143; |
390 |
T143:; |
T143:; |
391 |
(VV[17]->s.s_dbind)= Cnil; |
(VV[17]->s.s_dbind)= Cnil; |
392 |
{object V28; |
{object V38; |
393 |
V28= (V27); |
V38= (V37); |
394 |
vs_top=base+9; |
vs_top=base+9; |
395 |
while(!endp(V28)) |
while(V38!=Cnil) |
396 |
{vs_push(car(V28));V28=cdr(V28);} |
{vs_push((V38)->c.c_car);V38=(V38)->c.c_cdr;} |
397 |
vs_base=base+9;} |
vs_base=base+9;} |
398 |
(void) (*Lnk276)(); |
(void) (*Lnk276)(); |
399 |
vs_top=sup; |
vs_top=sup; |
400 |
V26= cdr((V26)); |
V36= CMPcdr((V36)); |
401 |
V27= car((V26)); |
V37= CMPcar((V36)); |
402 |
goto T142;} |
goto T142;} |
403 |
goto T138; |
goto T138; |
404 |
T138:; |
T138:; |
405 |
{object V29; |
{object V39; |
406 |
object V30; |
object V40; |
407 |
V29= (VV[18]->s.s_dbind); |
V39= (VV[18]->s.s_dbind); |
408 |
V30= car((V29)); |
V40= CMPcar((V39)); |
409 |
goto T160; |
goto T160; |
410 |
T160:; |
T160:; |
411 |
if(!(endp_prop((V29)))){ |
if(!(((V39))==Cnil)){ |
412 |
goto T161;} |
goto T161;} |
413 |
goto T156; |
goto T156; |
414 |
goto T161; |
goto T161; |
415 |
T161:; |
T161:; |
416 |
(VV[17]->s.s_dbind)= Cnil; |
(VV[17]->s.s_dbind)= Cnil; |
417 |
(void)((*(LnkLI277))((V30))); |
(void)((*(LnkLI277))((V40))); |
418 |
V29= cdr((V29)); |
V39= CMPcdr((V39)); |
419 |
V30= car((V29)); |
V40= CMPcar((V39)); |
420 |
goto T160;} |
goto T160;} |
421 |
goto T156; |
goto T156; |
422 |
T156:; |
T156:; |
423 |
{object V31; |
{object V41; |
424 |
object V32; |
object V42; |
425 |
V31= symbol_value(VV[31]); |
V41= (VV[31]->s.s_dbind); |
426 |
V32= car((V31)); |
V42= CMPcar((V41)); |
427 |
goto T177; |
goto T177; |
428 |
T177:; |
T177:; |
429 |
if(!(endp_prop((V31)))){ |
if(!(((V41))==Cnil)){ |
430 |
goto T178;} |
goto T178;} |
431 |
goto T173; |
goto T173; |
432 |
goto T178; |
goto T178; |
433 |
T178:; |
T178:; |
434 |
princ_str("\nstatic void LC",VV[32]); |
princ_str("\nstatic void LC",VV[32]); |
435 |
V33= structure_ref((V32),VV[33],3); |
(void)((*(LnkLI278))(STREF(object,(V42),12))); |
|
(void)((*(LnkLI278))(/* INLINE-ARGS */V33)); |
|
436 |
princ_str("();",VV[32]); |
princ_str("();",VV[32]); |
437 |
V31= cdr((V31)); |
V41= CMPcdr((V41)); |
438 |
V32= car((V31)); |
V42= CMPcar((V41)); |
439 |
goto T177;} |
goto T177;} |
440 |
goto T173; |
goto T173; |
441 |
T173:; |
T173:; |
442 |
{object V34; |
{object V43; |
443 |
object V35; |
object V44; |
444 |
V34= symbol_value(VV[34]); |
V43= (VV[34]->s.s_dbind); |
445 |
V35= car((V34)); |
V44= CMPcar((V43)); |
446 |
goto T195; |
goto T195; |
447 |
T195:; |
T195:; |
448 |
if(!(endp_prop((V34)))){ |
if(!(((V43))==Cnil)){ |
449 |
goto T196;} |
goto T196;} |
450 |
goto T191; |
goto T191; |
451 |
goto T196; |
goto T196; |
452 |
T196:; |
T196:; |
453 |
princ_str("\n#define VM",VV[32]); |
princ_str("\n#define VM",VV[32]); |
454 |
(void)((*(LnkLI278))(car((V35)))); |
(void)((*(LnkLI278))(CMPcar((V44)))); |
455 |
princ_char(32,VV[32]); |
princ_char(32,VV[32]); |
456 |
(void)((*(LnkLI278))(cdr((V35)))); |
(void)((*(LnkLI278))(CMPcdr((V44)))); |
457 |
V34= cdr((V34)); |
V43= CMPcdr((V43)); |
458 |
V35= car((V34)); |
V44= CMPcar((V43)); |
459 |
goto T195;} |
goto T195;} |
460 |
goto T191; |
goto T191; |
461 |
T191:; |
T191:; |
462 |
(void)((*(LnkLI279))(Cnil)); |
(void)((*(LnkLI279))(Cnil)); |
463 |
{object V36; |
{object V45; |
464 |
object V37; |
object V46; |
465 |
base[9]= (VV[23]->s.s_dbind); |
base[9]= (VV[23]->s.s_dbind); |
466 |
base[10]= symbol_value(VV[35]); |
base[10]= (VV[35]->s.s_dbind); |
467 |
base[11]= small_fixnum(1); |
base[11]= small_fixnum(1); |
468 |
vs_top=(vs_base=base+9)+3; |
vs_top=(vs_base=base+9)+3; |
469 |
Lminus(); |
Lminus(); |
470 |
vs_top=sup; |
vs_top=sup; |
471 |
V36= vs_base[0]; |
V45= vs_base[0]; |
472 |
V37= small_fixnum(0); |
V46= small_fixnum(0); |
473 |
goto T218; |
goto T218; |
474 |
T218:; |
T218:; |
475 |
if(!(number_compare((V37),(V36))>=0)){ |
if(!(number_compare((V46),(V45))>=0)){ |
476 |
goto T219;} |
goto T219;} |
477 |
goto T211; |
goto T211; |
478 |
goto T219; |
goto T219; |
479 |
T219:; |
T219:; |
480 |
(void)((*(LnkLI279))(Cnil)); |
(void)((*(LnkLI279))(Cnil)); |
481 |
V37= one_plus((V37)); |
V46= one_plus((V46)); |
482 |
goto T218;} |
goto T218;} |
483 |
goto T211; |
goto T211; |
484 |
T211:; |
T211:; |
485 |
princ_str("\nstatic char * VVi[",VV[32]); |
princ_str("\nstatic char * VVi[",VV[32]); |
486 |
V38= number_plus(small_fixnum(1),symbol_value(VV[35])); |
V47= number_plus(small_fixnum(1),(VV[35]->s.s_dbind)); |
487 |
(void)((*(LnkLI278))(/* INLINE-ARGS */V38)); |
(void)((*(LnkLI278))(/* INLINE-ARGS */V47)); |
488 |
princ_str("]={",VV[32]); |
princ_str("]={",VV[32]); |
489 |
princ_str("\n#define Cdata VV[",VV[32]); |
princ_str("\n#define Cdata VV[",VV[32]); |
490 |
(void)((*(LnkLI278))(symbol_value(VV[35]))); |
(void)((*(LnkLI278))((VV[35]->s.s_dbind))); |
491 |
princ_char(93,VV[32]); |
princ_char(93,VV[32]); |
492 |
if((VV[22]->s.s_dbind)!=Cnil){ |
if((VV[22]->s.s_dbind)!=Cnil){ |
493 |
goto T235;} |
goto T235;} |
495 |
(void)((*(LnkLI278))(small_fixnum(0))); |
(void)((*(LnkLI278))(small_fixnum(0))); |
496 |
goto T235; |
goto T235; |
497 |
T235:; |
T235:; |
498 |
{register object V39; |
{register object V48; |
499 |
V39= nreverse((VV[22]->s.s_dbind)); |
V48= nreverse((VV[22]->s.s_dbind)); |
500 |
goto T241; |
goto T241; |
501 |
T241:; |
T241:; |
502 |
if(((V39))!=Cnil){ |
if(((V48))!=Cnil){ |
503 |
goto T242;} |
goto T242;} |
504 |
princ_str("\n};",VV[32]); |
princ_str("\n};",VV[32]); |
505 |
goto T238; |
goto T238; |
506 |
goto T242; |
goto T242; |
507 |
T242:; |
T242:; |
508 |
princ_str("\n(char *)(",VV[32]); |
princ_str("\n(char *)(",VV[32]); |
509 |
(void)((*(LnkLI278))(caar((V39)))); |
(void)((*(LnkLI278))(CMPcaar((V48)))); |
510 |
(void)((*(LnkLI278))(cadar((V39)))); |
(void)((*(LnkLI278))(CMPcadar((V48)))); |
511 |
if((cdr((V39)))==Cnil){ |
if((CMPcdr((V48)))==Cnil){ |
512 |
goto T254;} |
goto T254;} |
513 |
V40= VV[36]; |
V49= VV[36]; |
514 |
goto T252; |
goto T252; |
515 |
goto T254; |
goto T254; |
516 |
T254:; |
T254:; |
517 |
V40= VV[37]; |
V49= VV[37]; |
518 |
goto T252; |
goto T252; |
519 |
T252:; |
T252:; |
520 |
(void)((*(LnkLI278))(V40)); |
(void)((*(LnkLI278))(V49)); |
521 |
V39= cdr((V39)); |
V48= CMPcdr((V48)); |
522 |
goto T241;} |
goto T241;} |
523 |
goto T238; |
goto T238; |
524 |
T238:; |
T238:; |
526 |
vs_base=vs_top; |
vs_base=vs_top; |
527 |
(void) (*Lnk280)(); |
(void) (*Lnk280)(); |
528 |
vs_top=sup; |
vs_top=sup; |
529 |
{object V41; |
{object V50; |
530 |
object V42; |
object V51; |
531 |
V41= (VV[18]->s.s_dbind); |
V50= (VV[18]->s.s_dbind); |
532 |
V42= car((V41)); |
V51= CMPcar((V50)); |
533 |
goto T265; |
goto T265; |
534 |
T265:; |
T265:; |
535 |
if(!(endp_prop((V41)))){ |
if(!(((V50))==Cnil)){ |
536 |
goto T266;} |
goto T266;} |
537 |
{object V43 = Cnil; |
{object V52 = Cnil; |
538 |
bds_unwind1; |
bds_unwind1; |
539 |
bds_unwind1; |
bds_unwind1; |
540 |
bds_unwind1; |
bds_unwind1; |
543 |
bds_unwind1; |
bds_unwind1; |
544 |
bds_unwind1; |
bds_unwind1; |
545 |
bds_unwind1; |
bds_unwind1; |
546 |
VMR3(V43)} |
VMR3(V52)} |
547 |
goto T266; |
goto T266; |
548 |
T266:; |
T266:; |
549 |
{register object V44; |
{register object V53; |
550 |
register object V45; |
register object V54; |
551 |
object V46; |
object V55; |
552 |
register object V47; |
register object V56; |
553 |
V44= cadr((V42)); |
V53= CMPcadr((V51)); |
554 |
V45= caddr((V42)); |
V54= CMPcaddr((V51)); |
555 |
V46= cadddr((V42)); |
V55= CMPcadddr((V51)); |
556 |
V47= Cnil; |
V56= Cnil; |
557 |
if(!(((V45))==(VV[38]))){ |
if(!(((V54))==(VV[38]))){ |
558 |
goto T276;} |
goto T276;} |
559 |
princ_str("\nstatic object *Lclptr",VV[32]); |
princ_str("\nstatic object *Lclptr",VV[32]); |
560 |
(void)((*(LnkLI278))((V44))); |
(void)((*(LnkLI278))((V53))); |
561 |
princ_char(59,VV[32]); |
princ_char(59,VV[32]); |
562 |
V47= VV[39]; |
V56= VV[39]; |
563 |
goto T274; |
goto T274; |
564 |
goto T276; |
goto T276; |
565 |
T276:; |
T276:; |
566 |
if(((V45))==Cnil){ |
if(((V54))==Cnil){ |
567 |
goto T285;} |
goto T285;} |
568 |
V47= (*(LnkLI281))((V45)); |
V56= (*(LnkLI281))((V54)); |
569 |
goto T283; |
goto T283; |
570 |
goto T285; |
goto T285; |
571 |
T285:; |
T285:; |
572 |
V47= VV[40]; |
V56= VV[40]; |
573 |
goto T283; |
goto T283; |
574 |
T283:; |
T283:; |
575 |
goto T274; |
goto T274; |
576 |
T274:; |
T274:; |
577 |
if(((V45))==Cnil){ |
if(((V54))==Cnil){ |
578 |
goto T288;} |
goto T288;} |
579 |
if(((V45))==(VV[38])){ |
if(((V54))==(VV[38])){ |
580 |
goto T288;} |
goto T288;} |
581 |
if(((V46))!=Cnil){ |
if(((V55))!=Cnil){ |
582 |
goto T287;} |
goto T287;} |
583 |
if((Ct)==((V45))){ |
if((Ct)==((V54))){ |
584 |
goto T288;} |
goto T288;} |
585 |
goto T287; |
goto T287; |
586 |
T287:; |
T287:; |
587 |
princ_str("\nstatic ",VV[32]); |
princ_str("\nstatic ",VV[32]); |
588 |
base[9]= (V47); |
V57= (*(LnkLI282))((V56)); |
589 |
vs_top=(vs_base=base+9)+1; |
(void)((*(LnkLI278))(/* INLINE-ARGS */V57)); |
|
(void) (*Lnk282)(); |
|
|
vs_top=sup; |
|
|
V48= vs_base[0]; |
|
|
(void)((*(LnkLI278))(V48)); |
|
590 |
princ_str(" LnkT",VV[32]); |
princ_str(" LnkT",VV[32]); |
591 |
(void)((*(LnkLI278))((V44))); |
(void)((*(LnkLI278))((V53))); |
592 |
princ_str("(object,...);",VV[32]); |
princ_str("(object,...);",VV[32]); |
593 |
princ_str("\nstatic ",VV[32]); |
princ_str("\nstatic ",VV[32]); |
594 |
base[9]= (V47); |
V58= (*(LnkLI282))((V56)); |
595 |
vs_top=(vs_base=base+9)+1; |
(void)((*(LnkLI278))(/* INLINE-ARGS */V58)); |
|
(void) (*Lnk282)(); |
|
|
vs_top=sup; |
|
|
V49= vs_base[0]; |
|
|
(void)((*(LnkLI278))(V49)); |
|
596 |
princ_str(" (*Lnk",VV[32]); |
princ_str(" (*Lnk",VV[32]); |
597 |
(void)((*(LnkLI278))((V44))); |
(void)((*(LnkLI278))((V53))); |
598 |
princ_str(")() = (",VV[32]); |
princ_str(")() = (",VV[32]); |
599 |
base[9]= (V47); |
V59= (*(LnkLI282))((V56)); |
600 |
vs_top=(vs_base=base+9)+1; |
(void)((*(LnkLI278))(/* INLINE-ARGS */V59)); |
|
(void) (*Lnk282)(); |
|
|
vs_top=sup; |
|
|
V50= vs_base[0]; |
|
|
(void)((*(LnkLI278))(V50)); |
|
601 |
princ_str("(*)()) LnkT",VV[32]); |
princ_str("(*)()) LnkT",VV[32]); |
602 |
(void)((*(LnkLI278))((V44))); |
(void)((*(LnkLI278))((V53))); |
603 |
princ_char(59,VV[32]); |
princ_char(59,VV[32]); |
604 |
goto T270; |
goto T270; |
605 |
goto T288; |
goto T288; |
606 |
T288:; |
T288:; |
607 |
princ_str("\nstatic ",VV[32]); |
princ_str("\nstatic ",VV[32]); |
608 |
base[9]= (V47); |
V60= (*(LnkLI282))((V56)); |
609 |
vs_top=(vs_base=base+9)+1; |
(void)((*(LnkLI278))(/* INLINE-ARGS */V60)); |
|
(void) (*Lnk282)(); |
|
|
vs_top=sup; |
|
|
V51= vs_base[0]; |
|
|
(void)((*(LnkLI278))(V51)); |
|
610 |
princ_str(" LnkT",VV[32]); |
princ_str(" LnkT",VV[32]); |
611 |
(void)((*(LnkLI278))((V44))); |
(void)((*(LnkLI278))((V53))); |
612 |
princ_str("();",VV[32]); |
princ_str("();",VV[32]); |
613 |
princ_str("\nstatic ",VV[32]); |
princ_str("\nstatic ",VV[32]); |
614 |
base[9]= (V47); |
V61= (*(LnkLI282))((V56)); |
615 |
vs_top=(vs_base=base+9)+1; |
(void)((*(LnkLI278))(/* INLINE-ARGS */V61)); |
|
(void) (*Lnk282)(); |
|
|
vs_top=sup; |
|
|
V52= vs_base[0]; |
|
|
(void)((*(LnkLI278))(V52)); |
|
616 |
princ_str(" (*Lnk",VV[32]); |
princ_str(" (*Lnk",VV[32]); |
617 |
(void)((*(LnkLI278))((V44))); |
(void)((*(LnkLI278))((V53))); |
618 |
princ_str(")() = LnkT",VV[32]); |
princ_str(")() = LnkT",VV[32]); |
619 |
(void)((*(LnkLI278))((V44))); |
(void)((*(LnkLI278))((V53))); |
620 |
princ_char(59,VV[32]);} |
princ_char(59,VV[32]);} |
621 |
goto T270; |
goto T270; |
622 |
T270:; |
T270:; |
623 |
V41= cdr((V41)); |
V50= CMPcdr((V50)); |
624 |
V42= car((V41)); |
V51= CMPcar((V50)); |
625 |
goto T265;}} |
goto T265;}} |
626 |
base[0]=base[0]; |
base[0]=base[0]; |
627 |
return Cnil; |
return Cnil; |
628 |
} |
} |
629 |
/* local entry for function MAYBE-EVAL */ |
/* local entry for function MAYBE-EVAL */ |
630 |
|
|
631 |
static object LI4(V55,V56) |
static object LI4(V64,V65) |
632 |
|
|
633 |
object V55;register object V56; |
object V64;register object V65; |
634 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
635 |
goto TTL; |
goto TTL; |
636 |
TTL:; |
TTL:; |
637 |
if((V55)!=Cnil){ |
if((V64)!=Cnil){ |
638 |
goto T339;} |
goto T329;} |
639 |
if(type_of(car((V56)))==t_symbol){ |
if(type_of(CMPcar((V65)))==t_symbol){ |
640 |
goto T340;} |
goto T330;} |
641 |
goto T339; |
goto T329; |
642 |
goto T340; |
goto T330; |
643 |
T340:; |
T330:; |
644 |
V55= get(car((V56)),VV[41],Cnil); |
{object V66 =(CMPcar((V65)))->s.s_plist; |
645 |
goto T339; |
object ind= VV[41]; |
646 |
T339:; |
while(V66!=Cnil){ |
647 |
if(((V55))==Cnil){ |
if(V66->c.c_car==ind){ |
648 |
goto T345;} |
V64= (V66->c.c_cdr->c.c_car); |
649 |
if((VV[42])==(symbol_value(VV[43]))){ |
goto T332; |
650 |
goto T343;} |
}else V66=V66->c.c_cdr->c.c_cdr;} |
651 |
goto T345; |
V64= Cnil;} |
652 |
T345:; |
goto T332; |
653 |
if(!(type_of(symbol_value(VV[43]))==t_cons)){ |
T332:; |
654 |
goto T344;} |
goto T329; |
655 |
{register object x= VV[44],V57= symbol_value(VV[43]); |
T329:; |
656 |
while(!endp(V57)) |
if(((V64))==Cnil){ |
657 |
if(eql(x,V57->c.c_car)){ |
goto T335;} |
658 |
goto T351; |
if((VV[42])==((VV[43]->s.s_dbind))){ |
659 |
}else V57=V57->c.c_cdr; |
goto T333;} |
660 |
goto T344;} |
goto T335; |
661 |
goto T351; |
T335:; |
662 |
T351:; |
if(!(type_of((VV[43]->s.s_dbind))==t_cons)){ |
663 |
goto T343; |
goto T334;} |
664 |
T343:; |
{register object x= VV[44],V67= (VV[43]->s.s_dbind); |
665 |
if(((V56))==Cnil){ |
while(V67!=Cnil) |
666 |
goto T352;} |
if(eql(x,V67->c.c_car)){ |
667 |
base[0]= (V56); |
goto T341; |
668 |
|
}else V67=V67->c.c_cdr; |
669 |
|
goto T334;} |
670 |
|
goto T341; |
671 |
|
T341:; |
672 |
|
goto T333; |
673 |
|
T333:; |
674 |
|
if(((V65))==Cnil){ |
675 |
|
goto T342;} |
676 |
|
base[0]= (V65); |
677 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
678 |
(void) (*Lnk283)(); |
(void) (*Lnk283)(); |
679 |
vs_top=sup; |
vs_top=sup; |
680 |
goto T352; |
goto T342; |
681 |
T352:; |
T342:; |
682 |
{object V58 = Ct; |
{object V68 = Ct; |
683 |
VMR4(V58)} |
VMR4(V68)} |
684 |
goto T344; |
goto T334; |
685 |
T344:; |
T334:; |
686 |
{object V59 = Cnil; |
{object V69 = Cnil; |
687 |
VMR4(V59)} |
VMR4(V69)} |
688 |
base[0]=base[0]; |
base[0]=base[0]; |
689 |
return Cnil; |
return Cnil; |
690 |
} |
} |
693 |
static void L5() |
static void L5() |
694 |
{register object *base=vs_base; |
{register object *base=vs_base; |
695 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
696 |
vs_reserve(VM5); |
vs_check; |
697 |
bds_check; |
bds_check; |
698 |
{register object V60; |
{register object V70; |
699 |
check_arg(1); |
V70=(base[0]); |
|
V60=(base[0]); |
|
700 |
vs_top=sup; |
vs_top=sup; |
701 |
goto TTL; |
goto TTL; |
702 |
TTL:; |
TTL:; |
703 |
{register object V61; |
{register object V71; |
704 |
register object V62; |
register object V72; |
705 |
V61= Cnil; |
V71= Cnil; |
706 |
V62= Cnil; |
V72= Cnil; |
707 |
if(!(endp_prop((V60)))){ |
if(!(((V70))==Cnil)){ |
708 |
goto T358;} |
goto T348;} |
709 |
(void)((*(LnkLI284))(VV[45],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI284))(VV[45],small_fixnum(1),small_fixnum(0))); |
710 |
goto T358; |
goto T348; |
711 |
T358:; |
T348:; |
712 |
{register object V63; |
{register object V73; |
713 |
register object V64; |
register object V74; |
714 |
V63= car((V60)); |
V73= CMPcar((V70)); |
715 |
V64= car((V63)); |
V74= CMPcar((V73)); |
716 |
|
goto T355; |
717 |
|
T355:; |
718 |
|
if(!(((V73))==Cnil)){ |
719 |
|
goto T356;} |
720 |
|
goto T351; |
721 |
|
goto T356; |
722 |
|
T356:; |
723 |
|
{object V75= (V74); |
724 |
|
if((V75!= VV[285]))goto T361; |
725 |
|
V71= Ct; |
726 |
|
goto T360; |
727 |
|
goto T361; |
728 |
|
T361:; |
729 |
|
if((V75!= VV[286]))goto T363; |
730 |
|
V71= Ct; |
731 |
|
goto T360; |
732 |
|
goto T363; |
733 |
|
T363:; |
734 |
|
if((V75!= VV[44]))goto T365; |
735 |
|
V72= Ct; |
736 |
|
goto T360; |
737 |
goto T365; |
goto T365; |
738 |
T365:; |
T365:; |
739 |
if(!(endp_prop((V63)))){ |
if((V75!= VV[287]))goto T367; |
740 |
goto T366;} |
V72= Ct; |
741 |
goto T361; |
goto T360; |
742 |
goto T366; |
goto T367; |
743 |
T366:; |
T367:; |
744 |
{object V65= (V64); |
if((V75!= VV[288]))goto T369; |
745 |
if((V65!= VV[285]))goto T371; |
goto T360; |
746 |
V61= Ct; |
goto T369; |
747 |
goto T370; |
T369:; |
748 |
goto T371; |
if((V75!= VV[289]))goto T370; |
749 |
T371:; |
goto T360; |
|
if((V65!= VV[44]))goto T373; |
|
|
V62= Ct; |
|
|
goto T370; |
|
|
goto T373; |
|
|
T373:; |
|
|
if((V65!= VV[286]))goto T375; |
|
|
goto T370; |
|
|
goto T375; |
|
|
T375:; |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[46],(V64))));} |
|
750 |
goto T370; |
goto T370; |
751 |
T370:; |
T370:; |
752 |
V63= cdr((V63)); |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[46],(V74))));} |
753 |
V64= car((V63)); |
goto T360; |
754 |
goto T365;} |
T360:; |
755 |
goto T361; |
V73= CMPcdr((V73)); |
756 |
T361:; |
V74= CMPcar((V73)); |
757 |
base[1]= car((V60)); |
goto T355;} |
758 |
|
goto T351; |
759 |
|
T351:; |
760 |
|
base[1]= CMPcar((V70)); |
761 |
bds_bind(VV[43],base[1]); |
bds_bind(VV[43],base[1]); |
762 |
if(((V61))==Cnil){ |
if(((V71))==Cnil){ |
763 |
goto T383;} |
goto T378;} |
764 |
base[2]= (*(LnkLI287))(cdr((V60))); |
base[2]= (*(LnkLI290))(CMPcdr((V70))); |
765 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
766 |
bds_unwind1; |
bds_unwind1; |
767 |
return; |
return; |
768 |
goto T383; |
goto T378; |
769 |
T383:; |
T378:; |
770 |
if(((V62))==Cnil){ |
if(((V72))==Cnil){ |
771 |
goto T386;} |
goto T381;} |
772 |
base[2]= make_cons(VV[47],cdr((V60))); |
base[2]= make_cons(VV[47],CMPcdr((V70))); |
773 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
774 |
(void) (*Lnk283)(); |
(void) (*Lnk283)(); |
775 |
bds_unwind1; |
bds_unwind1; |
776 |
return; |
return; |
777 |
goto T386; |
goto T381; |
778 |
T386:; |
T381:; |
779 |
base[2]= Cnil; |
base[2]= Cnil; |
780 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
781 |
bds_unwind1; |
bds_unwind1; |
784 |
} |
} |
785 |
/* local entry for function T1PROGN */ |
/* local entry for function T1PROGN */ |
786 |
|
|
787 |
static object LI6(V67) |
static object LI6(V77) |
788 |
|
|
789 |
object V67; |
object V77; |
790 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
791 |
bds_check; |
bds_check; |
792 |
goto TTL; |
goto TTL; |
793 |
TTL:; |
TTL:; |
794 |
if(!(equal(car((V67)),VV[48]))){ |
if(!(equal(CMPcar((V77)),VV[48]))){ |
795 |
goto T390;} |
goto T385;} |
796 |
bds_bind(VV[49],Ct); |
bds_bind(VV[49],Ct); |
797 |
{object V68 = (*(LnkLI287))(cdr((V67))); |
{object V78 = (*(LnkLI290))(CMPcdr((V77))); |
798 |
bds_unwind1; |
bds_unwind1; |
799 |
VMR6(V68)} |
VMR6(V78)} |
800 |
|
goto T385; |
801 |
|
T385:; |
802 |
|
{register object V79; |
803 |
|
register object V80; |
804 |
|
V79= (V77); |
805 |
|
V80= CMPcar((V79)); |
806 |
goto T390; |
goto T390; |
807 |
T390:; |
T390:; |
808 |
{register object V69; |
if(!(((V79))==Cnil)){ |
809 |
register object V70; |
goto T391;} |
810 |
V69= (V67); |
{object V81 = Cnil; |
811 |
V70= car((V69)); |
VMR6(V81)} |
812 |
goto T395; |
goto T391; |
813 |
T395:; |
T391:; |
814 |
if(!(endp_prop((V69)))){ |
base[1]= (V80); |
|
goto T396;} |
|
|
{object V71 = Cnil; |
|
|
VMR6(V71)} |
|
|
goto T396; |
|
|
T396:; |
|
|
base[1]= (V70); |
|
815 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
816 |
(void) (*Lnk273)(); |
(void) (*Lnk273)(); |
817 |
vs_top=sup; |
vs_top=sup; |
818 |
V69= cdr((V69)); |
V79= CMPcdr((V79)); |
819 |
V70= car((V69)); |
V80= CMPcar((V79)); |
820 |
goto T395;} |
goto T390;} |
821 |
base[0]=base[0]; |
base[0]=base[0]; |
822 |
return Cnil; |
return Cnil; |
823 |
} |
} |
824 |
/* local entry for function CMPFIX-ARGS */ |
/* local entry for function CMPFIX-ARGS */ |
825 |
|
|
826 |
static object LI7(V74,V75) |
static object LI7(V84,V85) |
827 |
|
|
828 |
object V74;object V75; |
object V84;object V85; |
829 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
830 |
goto TTL; |
goto TTL; |
831 |
TTL:; |
TTL:; |
832 |
{register object V76; |
{register object V86; |
833 |
register object V77; |
register object V87; |
834 |
V76= Cnil; |
V86= Cnil; |
835 |
base[1]= cadr((V74)); |
base[1]= CMPcadr((V84)); |
836 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
837 |
Lcopy_list(); |
Lcopy_list(); |
838 |
vs_top=sup; |
vs_top=sup; |
839 |
V77= vs_base[0]; |
V87= vs_base[0]; |
840 |
{register object V78; |
{register object V88; |
841 |
register object V79; |
register object V89; |
842 |
V78= (V75); |
V88= (V85); |
843 |
V79= car((V78)); |
V89= CMPcar((V88)); |
844 |
goto T414; |
goto T409; |
845 |
T414:; |
T409:; |
846 |
if(!(endp_prop((V78)))){ |
if(!(((V88))==Cnil)){ |
847 |
goto T415;} |
goto T410;} |
848 |
|
goto T405; |
849 |
goto T410; |
goto T410; |
850 |
|
T410:; |
851 |
|
{register object x= CMPcar((V89)),V90= (V87); |
852 |
|
while(V90!=Cnil) |
853 |
|
if(eql(x,V90->c.c_car)){ |
854 |
|
V86= V90; |
855 |
|
goto T415; |
856 |
|
}else V90=V90->c.c_cdr; |
857 |
|
V86= Cnil;} |
858 |
goto T415; |
goto T415; |
859 |
T415:; |
T415:; |
860 |
{register object x= car((V79)),V80= (V77); |
if((V86)==Cnil){ |
861 |
while(!endp(V80)) |
goto T416;} |
862 |
if(eql(x,V80->c.c_car)){ |
{register object V91; |
863 |
V76= V80; |
register object V92; |
864 |
goto T420; |
V91= (V86); |
865 |
}else V80=V80->c.c_cdr; |
V92= CMPcadr((V89)); |
866 |
V76= Cnil;} |
((V91))->c.c_car = (V92);} |
867 |
goto T420; |
goto T416; |
868 |
T420:; |
T416:; |
869 |
if((V76)==Cnil){ |
V88= CMPcdr((V88)); |
870 |
goto T421;} |
V89= CMPcar((V88)); |
871 |
{register object V81; |
goto T409;} |
872 |
register object V82; |
goto T405; |
873 |
V81= (V76); |
T405:; |
874 |
V82= cadr((V79)); |
{register object x= VV[50],V93= (V87); |
875 |
if(type_of((V81))!=t_cons)FEwrong_type_argument(Scons,(V81)); |
while(V93!=Cnil) |
876 |
((V81))->c.c_car = (V82);} |
if(eql(x,V93->c.c_car)){ |
877 |
goto T421; |
V86= V93; |
878 |
T421:; |
goto T429; |
879 |
V78= cdr((V78)); |
}else V93=V93->c.c_cdr; |
880 |
V79= car((V78)); |
V86= Cnil;} |
881 |
goto T414;} |
goto T429; |
882 |
goto T410; |
T429:; |
883 |
T410:; |
if(((V86))==Cnil){ |
884 |
{register object x= VV[50],V83= (V77); |
goto T427;} |
885 |
while(!endp(V83)) |
{object V95; |
886 |
if(eql(x,V83->c.c_car)){ |
V95= append((V85),CMPcdr((V86))); |
887 |
V76= V83; |
(V86)->c.c_cdr = (V95); |
888 |
goto T434; |
goto T425;} |
889 |
}else V83=V83->c.c_cdr; |
goto T427; |
890 |
V76= Cnil;} |
T427:; |
891 |
goto T434; |
V96= make_cons(VV[50],(V85)); |
892 |
T434:; |
V87= append((V87),/* INLINE-ARGS */V96); |
893 |
if(((V76))==Cnil){ |
goto T425; |
894 |
goto T432;} |
T425:; |
895 |
{object V85; |
{object V97 = listA(3,CMPcar((V84)),(V87),CMPcddr((V84))); |
896 |
V85= append((V75),cdr((V76))); |
VMR7(V97)}} |
|
if(type_of(V76)!=t_cons)FEwrong_type_argument(Scons,V76); |
|
|
(V76)->c.c_cdr = (V85); |
|
|
goto T430;} |
|
|
goto T432; |
|
|
T432:; |
|
|
V86= make_cons(VV[50],(V75)); |
|
|
V77= append((V77),/* INLINE-ARGS */V86); |
|
|
goto T430; |
|
|
T430:; |
|
|
{object V87 = listA(3,car((V74)),(V77),cddr((V74))); |
|
|
VMR7(V87)}} |
|
897 |
base[0]=base[0]; |
base[0]=base[0]; |
898 |
return Cnil; |
return Cnil; |
899 |
} |
} |
900 |
/* local entry for function T1DEFUN */ |
/* local entry for function T1DEFUN */ |
901 |
|
|
902 |
static object LI8(V89) |
static object LI8(V99) |
903 |
|
|
904 |
object V89; |
object V99; |
905 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
906 |
bds_check; |
bds_check; |
907 |
goto TTL; |
goto TTL; |
908 |
TTL:; |
TTL:; |
909 |
{object V90; |
{object V100; |
910 |
V90= symbol_value(VV[51]); |
V100= (VV[51]->s.s_dbind); |
911 |
bds_bind(VV[53],Cnil); |
bds_bind(VV[53],Cnil); |
912 |
if(endp_prop((V89))){ |
if(((V99))==Cnil){ |
913 |
goto T440;} |
goto T435;} |
914 |
if(!(endp_prop(cdr((V89))))){ |
if(!((CMPcdr((V99)))==Cnil)){ |
915 |
|
goto T434;} |
916 |
|
goto T435; |
917 |
|
T435:; |
918 |
|
V102 = CMPmake_fixnum((long)length((V99))); |
919 |
|
(void)((*(LnkLI284))(VV[52],small_fixnum(2),V102)); |
920 |
|
goto T434; |
921 |
|
T434:; |
922 |
|
if(type_of(CMPcar((V99)))==t_symbol){ |
923 |
goto T439;} |
goto T439;} |
924 |
goto T440; |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[54],CMPcar((V99))))); |
|
T440:; |
|
|
V92 = make_fixnum((long)length((V89))); |
|
|
(void)((*(LnkLI284))(VV[52],small_fixnum(2),V92)); |
|
925 |
goto T439; |
goto T439; |
926 |
T439:; |
T439:; |
927 |
if(type_of(car((V89)))==t_symbol){ |
V103= make_cons(VV[52],(V99)); |
928 |
goto T444;} |
(void)((*(LnkLI269))(Cnil,/* INLINE-ARGS */V103)); |
|
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[54],car((V89))))); |
|
929 |
goto T444; |
goto T444; |
930 |
T444:; |
T444:; |
931 |
V93= make_cons(VV[52],(V89)); |
(VV[6]->s.s_dbind)= Ct; |
932 |
(void)((*(LnkLI269))(Cnil,/* INLINE-ARGS */V93)); |
(VV[55]->s.s_dbind)= Cnil; |
933 |
goto T449; |
{register object V104; |
934 |
T449:; |
object V105; |
935 |
setq(VV[6],Ct); |
object V106; |
936 |
setq(VV[55],Cnil); |
register object V107;{object V108; |
937 |
{register object V94; |
{object V109 =(CMPcar((V99)))->s.s_plist; |
938 |
object V95; |
object ind= VV[61]; |
939 |
object V96; |
while(V109!=Cnil){ |
940 |
register object V97;{object V98; |
if(V109->c.c_car==ind){ |
941 |
V98= get(car((V89)),VV[61],Cnil); |
V108= (V109->c.c_cdr->c.c_car); |
942 |
if(V98==Cnil)goto T456; |
goto T452; |
943 |
V95= V98; |
}else V109=V109->c.c_cdr->c.c_cdr;} |
944 |
goto T455; |
V108= Cnil;} |
945 |
goto T456; |
goto T452; |
946 |
T456:;} |
T452:; |
947 |
setq(VV[62],number_plus(symbol_value(VV[62]),small_fixnum(1))); |
if(V108==Cnil)goto T451; |
948 |
V95= symbol_value(VV[62]); |
V105= V108; |
949 |
goto T455; |
goto T450; |
950 |
T455:; |
goto T451; |
951 |
V97= car((V89)); |
T451:;} |
952 |
|
(VV[62]->s.s_dbind)= number_plus((VV[62]->s.s_dbind),small_fixnum(1)); |
953 |
|
V105= (VV[62]->s.s_dbind); |
954 |
|
goto T450; |
955 |
|
T450:; |
956 |
|
V107= CMPcar((V99)); |
957 |
bds_bind(VV[56],Cnil); |
bds_bind(VV[56],Cnil); |
958 |
bds_bind(VV[57],Cnil); |
bds_bind(VV[57],Cnil); |
959 |
bds_bind(VV[58],Cnil); |
bds_bind(VV[58],Cnil); |
960 |
bds_bind(VV[59],Cnil); |
bds_bind(VV[59],Cnil); |
961 |
V94= Cnil; |
V104= Cnil; |
962 |
bds_bind(VV[60],Cnil); |
bds_bind(VV[60],Cnil); |
963 |
V96= Cnil; |
V106= Cnil; |
964 |
V94= (VFUN_NARGS=2,(*(LnkLI288))(cdr((V89)),(V97))); |
V104= (VFUN_NARGS=2,(*(LnkLI291))(CMPcdr((V99)),(V107))); |
965 |
if(!(eql((V90),symbol_value(VV[51])))){ |
if(!(eql((V100),(VV[51]->s.s_dbind)))){ |
966 |
goto T463;} |
goto T458;} |
967 |
goto T462; |
goto T457; |
968 |
|
goto T458; |
969 |
|
T458:; |
970 |
|
V110= CMPcadr((V104)); |
971 |
|
V111= Ct; |
972 |
|
STSET(object,/* INLINE-ARGS */V110,16, Ct); |
973 |
|
(void)(Ct); |
974 |
|
goto T457; |
975 |
|
T457:; |
976 |
|
(void)((*(LnkLI292))(STREF(object,CMPcadr((V104)),4))); |
977 |
|
{object V112 =((V107))->s.s_plist; |
978 |
|
object ind= VV[64]; |
979 |
|
while(V112!=Cnil){ |
980 |
|
if(V112->c.c_car==ind){ |
981 |
|
if(((V112->c.c_cdr->c.c_car))==Cnil){ |
982 |
|
goto T461;} |
983 |
|
goto T463; |
984 |
|
}else V112=V112->c.c_cdr->c.c_cdr;} |
985 |
|
goto T461;} |
986 |
goto T463; |
goto T463; |
987 |
T463:; |
T463:; |
988 |
(void)(structure_set(cadr((V94)),VV[63],4,Ct)); |
{object V113; |
989 |
goto T462; |
V113= CMPmake_fixnum((long)length(CMPcar(CMPcaddr((V104))))); |
990 |
T462:; |
(void)(sputprop((V107),VV[64],(V113))); |
991 |
V99= structure_ref(cadr((V94)),VV[63],1); |
base[6]= (V113); |
|
(void)((*(LnkLI289))(/* INLINE-ARGS */V99)); |
|
|
if((get((V97),VV[64],Cnil))==Cnil){ |
|
|
goto T466;} |
|
|
{object V100; |
|
|
V100= make_fixnum((long)length(car(caddr((V94))))); |
|
|
(void)(sputprop((V97),VV[64],(V100))); |
|
|
base[6]= (V100); |
|
992 |
base[7]= VV[66]; |
base[7]= VV[66]; |
993 |
base[8]= Ct; |
base[8]= Ct; |
994 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
995 |
Lmake_list(); |
Lmake_list(); |
996 |
vs_top=sup; |
vs_top=sup; |
997 |
V101= vs_base[0]; |
V114= vs_base[0]; |
998 |
V102= list(4,VV[65],(V97),V101,Ct); |
V115= list(4,VV[65],(V107),V114,Ct); |
999 |
(void)((*(LnkLI290))(/* INLINE-ARGS */V102));} |
(void)((*(LnkLI293))(/* INLINE-ARGS */V115));} |
1000 |
goto T466; |
goto T461; |
1001 |
T466:; |
T461:; |
1002 |
if((get((V97),VV[67],Cnil))==Cnil){ |
{object V116 =((V107))->s.s_plist; |
1003 |
|
object ind= VV[67]; |
1004 |
|
while(V116!=Cnil){ |
1005 |
|
if(V116->c.c_car==ind){ |
1006 |
|
if(((V116->c.c_cdr->c.c_car))==Cnil){ |
1007 |
|
goto T472;} |
1008 |
|
goto T474; |
1009 |
|
}else V116=V116->c.c_cdr->c.c_cdr;} |
1010 |
|
goto T472;} |
1011 |
|
goto T474; |
1012 |
|
T474:; |
1013 |
|
{object V117; |
1014 |
|
register object V118; |
1015 |
|
V117= CMPcaddr((V104)); |
1016 |
|
V118= Cnil; |
1017 |
|
if((CMPcadr((V117)))==Cnil){ |
1018 |
goto T477;} |
goto T477;} |
1019 |
{object V103; |
goto T472; |
|
register object V104; |
|
|
V103= caddr((V94)); |
|
|
V104= Cnil; |
|
|
if((cadr((V103)))==Cnil){ |
|
|
goto T482;} |
|
|
goto T477; |
|
|
goto T482; |
|
|
T482:; |
|
|
if((caddr((V103)))==Cnil){ |
|
|
goto T484;} |
|
|
goto T477; |
|
|
goto T484; |
|
|
T484:; |
|
|
if((cadddr((V103)))==Cnil){ |
|
|
goto T486;} |
|
|
goto T477; |
|
|
goto T486; |
|
|
T486:; |
|
|
if(((long)length(car((V103))))<(64)){ |
|
|
goto T488;} |
|
1020 |
goto T477; |
goto T477; |
1021 |
|
T477:; |
1022 |
|
if((CMPcaddr((V117)))==Cnil){ |
1023 |
|
goto T479;} |
1024 |
|
goto T472; |
1025 |
|
goto T479; |
1026 |
|
T479:; |
1027 |
|
if((CMPcadddr((V117)))==Cnil){ |
1028 |
|
goto T481;} |
1029 |
|
goto T472; |
1030 |
|
goto T481; |
1031 |
|
T481:; |
1032 |
|
if(((long)length(CMPcar((V117))))<(64)){ |
1033 |
|
goto T483;} |
1034 |
|
goto T472; |
1035 |
|
goto T483; |
1036 |
|
T483:; |
1037 |
|
{register object V119; |
1038 |
|
register object V120; |
1039 |
|
object V121; |
1040 |
|
V119= CMPcar((V117)); |
1041 |
|
{object V122 =((V107))->s.s_plist; |
1042 |
|
object ind= VV[68]; |
1043 |
|
while(V122!=Cnil){ |
1044 |
|
if(V122->c.c_car==ind){ |
1045 |
|
V120= (V122->c.c_cdr->c.c_car); |
1046 |
|
goto T488; |
1047 |
|
}else V122=V122->c.c_cdr->c.c_cdr;} |
1048 |
|
V120= Cnil;} |
1049 |
goto T488; |
goto T488; |
1050 |
T488:; |
T488:; |
1051 |
{register object V105; |
V121= Cnil; |
1052 |
register object V106; |
goto T490; |
1053 |
object V107; |
T490:; |
1054 |
V105= car((V103)); |
if(!(((V119))==Cnil)){ |
1055 |
V106= get((V97),VV[68],Cnil); |
goto T491;} |
1056 |
V107= Cnil; |
if(((V120))==Cnil){ |
1057 |
goto T495; |
goto T494;} |
1058 |
T495:; |
goto T486; |
1059 |
if(!(endp_prop((V105)))){ |
goto T494; |
1060 |
goto T496;} |
T494:; |
1061 |
if(endp_prop((V106))){ |
if(((V118))==Cnil){ |
1062 |
goto T499;} |
goto T497;} |
1063 |
goto T491; |
V99= (*(LnkLI294))((V99),(V118)); |
|
goto T499; |
|
|
T499:; |
|
|
if(((V104))==Cnil){ |
|
|
goto T502;} |
|
|
V89= (*(LnkLI291))((V89),(V104)); |
|
1064 |
bds_unwind1; |
bds_unwind1; |
1065 |
bds_unwind1; |
bds_unwind1; |
1066 |
bds_unwind1; |
bds_unwind1; |
1067 |
bds_unwind1; |
bds_unwind1; |
1068 |
bds_unwind1; |
bds_unwind1; |
1069 |
goto T449; |
goto T444; |
1070 |
goto T502; |
goto T497; |
1071 |
T502:; |
T497:; |
1072 |
if(((V107))==Cnil){ |
if(((V121))==Cnil){ |
1073 |
goto T490;} |
goto T485;} |
1074 |
|
goto T486; |
1075 |
goto T491; |
goto T491; |
1076 |
goto T496; |
T491:; |
1077 |
T496:; |
{register object V123; |
1078 |
{register object V108; |
V123= CMPcar((V119)); |
1079 |
V108= car((V105)); |
if(!(equal(CMPcar((V120)),VV[69]))){ |
1080 |
if(!(equal(car((V106)),VV[69]))){ |
goto T504;} |
1081 |
|
goto T486; |
1082 |
|
goto T504; |
1083 |
|
T504:; |
1084 |
|
if((STREF(object,(V123),4))==(VV[71])){ |
1085 |
|
goto T510;} |
1086 |
|
if(!((STREF(object,(V123),4))==(VV[72]))){ |
1087 |
goto T509;} |
goto T509;} |
1088 |
goto T491; |
if(!((CMPcar((V120)))==(Ct))){ |
1089 |
|
goto T509;} |
1090 |
|
goto T510; |
1091 |
|
T510:; |
1092 |
|
if((STREF(object,(V123),12))!=Cnil){ |
1093 |
|
goto T509;} |
1094 |
|
if(!((STREF(object,(V123),16))==(VV[73]))){ |
1095 |
|
goto T508;} |
1096 |
goto T509; |
goto T509; |
1097 |
T509:; |
T509:; |
1098 |
V109= structure_ref((V108),VV[70],1); |
{object V124; |
|
if((/* INLINE-ARGS */V109)==(VV[71])){ |
|
|
goto T515;} |
|
|
V110= structure_ref((V108),VV[70],1); |
|
|
if(!((/* INLINE-ARGS */V110)==(VV[72]))){ |
|
|
goto T514;} |
|
|
if(!((car((V106)))==(Ct))){ |
|
|
goto T514;} |
|
|
goto T515; |
|
|
T515:; |
|
|
if((structure_ref((V108),VV[70],3))!=Cnil){ |
|
|
goto T514;} |
|
|
V111= structure_ref((V108),VV[70],4); |
|
|
if(!((/* INLINE-ARGS */V111)==(VV[73]))){ |
|
|
goto T513;} |
|
|
goto T514; |
|
|
T514:; |
|
|
{object V112; |
|
|
V113= structure_ref((V108),VV[70],0); |
|
1099 |
vs_base=vs_top; |
vs_base=vs_top; |
1100 |
Lgensym(); |
Lgensym(); |
1101 |
vs_top=sup; |
vs_top=sup; |
1102 |
V114= vs_base[0]; |
V125= vs_base[0]; |
1103 |
V112= list(2,/* INLINE-ARGS */V113,V114); |
V124= list(2,STREF(object,(V123),0),V125); |
1104 |
V104= make_cons((V112),(V104));} |
V118= make_cons((V124),(V118));} |
1105 |
goto T513; |
goto T508; |
1106 |
T513:; |
T508:; |
1107 |
V115= car((V106)); |
if(((*(LnkLI295))(CMPcar((V120)),STREF(object,(V123),20)))==Cnil){ |
|
V116= structure_ref((V108),VV[70],5); |
|
|
if(((*(LnkLI292))(/* INLINE-ARGS */V115,/* INLINE-ARGS */V116))==Cnil){ |
|
|
goto T512;} |
|
|
{register object x= car((V106)),V117= VV[74]; |
|
|
while(!endp(V117)) |
|
|
if(eql(x,V117->c.c_car)){ |
|
|
goto T507; |
|
|
}else V117=V117->c.c_cdr;} |
|
|
V118= structure_ref((V108),VV[70],4); |
|
|
if((/* INLINE-ARGS */V118)==(VV[75])){ |
|
1108 |
goto T507;} |
goto T507;} |
1109 |
if((symbol_value(VV[76]))!=Cnil){ |
{register object x= CMPcar((V120)),V126= VV[74]; |
1110 |
goto T507;} |
while(V126!=Cnil) |
1111 |
V120= structure_ref(cadr((V94)),VV[63],0); |
if(eql(x,V126->c.c_car)){ |
1112 |
{register object x= (V108),V119= /* INLINE-ARGS */V120; |
goto T502; |
1113 |
while(!endp(V119)) |
}else V126=V126->c.c_cdr;} |
1114 |
if(eql(x,V119->c.c_car)){ |
if((STREF(object,(V123),16))==(VV[75])){ |
1115 |
goto T537; |
goto T502;} |
1116 |
}else V119=V119->c.c_cdr; |
if(((VV[76]->s.s_dbind))!=Cnil){ |
1117 |
goto T507;} |
goto T502;} |
1118 |
goto T537; |
{register object x= (V123),V127= STREF(object,CMPcadr((V104)),0); |
1119 |
T537:; |
while(V127!=Cnil) |
1120 |
goto T512; |
if(eql(x,V127->c.c_car)){ |
1121 |
T512:; |
goto T532; |
1122 |
if(((V104))!=Cnil){ |
}else V127=V127->c.c_cdr; |
1123 |
goto T538;} |
goto T502;} |
1124 |
V121= structure_ref((V108),VV[70],0); |
goto T532; |
1125 |
(void)((VFUN_NARGS=3,(*(LnkLI267))(VV[77],(V97),/* INLINE-ARGS */V121))); |
T532:; |
|
goto T538; |
|
|
T538:; |
|
|
V107= Ct;} |
|
1126 |
goto T507; |
goto T507; |
1127 |
T507:; |
T507:; |
1128 |
V105= cdr((V105)); |
if(((V118))!=Cnil){ |
1129 |
V106= cdr((V106)); |
goto T533;} |
1130 |
goto T495;} |
(void)((VFUN_NARGS=3,(*(LnkLI267))(VV[77],(V107),STREF(object,(V123),0)))); |
1131 |
goto T491; |
goto T533; |
1132 |
T491:; |
T533:; |
1133 |
goto T477; |
V121= Ct;} |
1134 |
goto T490; |
goto T502; |
1135 |
T490:; |
T502:; |
1136 |
if(!(type_of((V95))==t_fixnum|| |
V119= CMPcdr((V119)); |
1137 |
type_of((V95))==t_bignum|| |
V120= CMPcdr((V120)); |
1138 |
type_of((V95))==t_ratio|| |
goto T490;} |
1139 |
type_of((V95))==t_shortfloat|| |
goto T486; |
1140 |
type_of((V95))==t_longfloat|| |
T486:; |
1141 |
type_of((V95))==t_complex)){ |
goto T472; |
1142 |
goto T477;}} |
goto T485; |
1143 |
{object V122; |
T485:; |
1144 |
V123= get((V97),VV[68],Cnil); |
if(!(type_of((V105))==t_fixnum|| |
1145 |
V124= get((V97),VV[78],Cnil); |
type_of((V105))==t_bignum|| |
1146 |
V125= get((V97),VV[68],Cnil); |
type_of((V105))==t_ratio|| |
1147 |
V122= list(5,(V97),V123,V124,small_fixnum(3),(*(LnkLI293))((V95),V125)); |
type_of((V105))==t_shortfloat|| |
1148 |
setq(VV[79],make_cons((V122),symbol_value(VV[79]))); |
type_of((V105))==t_longfloat|| |
1149 |
goto T475;} |
type_of((V105))==t_complex)){ |
1150 |
goto T477; |
goto T472;}} |
|
T477:; |
|
|
{object V126; |
|
|
V127= get((V97),VV[78],Cnil); |
|
|
V126= ((V127)==(Ct)?Ct:Cnil); |
|
|
if(((V126))==Cnil){ |
|
|
goto T475;}} |
|
|
goto T475; |
|
|
T475:; |
|
|
if((cadddr((V94)))==Cnil){ |
|
|
goto T555;} |
|
|
V96= cadddr((V94)); |
|
|
goto T555; |
|
|
T555:; |
|
|
(void)((*(LnkLI294))()); |
|
1151 |
{object V128; |
{object V128; |
1152 |
V128= list(6,VV[52],(V97),(V95),(V94),(V96),(VV[60]->s.s_dbind)); |
{object V130 =((V107))->s.s_plist; |
1153 |
setq(VV[25],make_cons((V128),symbol_value(VV[25])));} |
object ind= VV[68]; |
1154 |
{object V129; |
while(V130!=Cnil){ |
1155 |
V129= make_cons((V97),(V95)); |
if(V130->c.c_car==ind){ |
1156 |
setq(VV[80],make_cons((V129),symbol_value(VV[80]))); |
V129= (V130->c.c_cdr->c.c_car); |
1157 |
V130= symbol_value(VV[80]); |
goto T542; |
1158 |
|
}else V130=V130->c.c_cdr->c.c_cdr;} |
1159 |
|
V129= Cnil;} |
1160 |
|
goto T542; |
1161 |
|
T542:; |
1162 |
|
{object V132 =((V107))->s.s_plist; |
1163 |
|
object ind= VV[78]; |
1164 |
|
while(V132!=Cnil){ |
1165 |
|
if(V132->c.c_car==ind){ |
1166 |
|
V131= (V132->c.c_cdr->c.c_car); |
1167 |
|
goto T543; |
1168 |
|
}else V132=V132->c.c_cdr->c.c_cdr;} |
1169 |
|
V131= Cnil;} |
1170 |
|
goto T543; |
1171 |
|
T543:; |
1172 |
|
{object V134 =((V107))->s.s_plist; |
1173 |
|
object ind= VV[68]; |
1174 |
|
while(V134!=Cnil){ |
1175 |
|
if(V134->c.c_car==ind){ |
1176 |
|
V133= (V134->c.c_cdr->c.c_car); |
1177 |
|
goto T544; |
1178 |
|
}else V134=V134->c.c_cdr->c.c_cdr;} |
1179 |
|
V133= Cnil;} |
1180 |
|
goto T544; |
1181 |
|
T544:; |
1182 |
|
V128= list(5,(V107),V129,V131,small_fixnum(3),(*(LnkLI296))((V105),V133)); |
1183 |
|
(VV[79]->s.s_dbind)= make_cons((V128),(VV[79]->s.s_dbind)); |
1184 |
|
goto T470;} |
1185 |
|
goto T472; |
1186 |
|
T472:; |
1187 |
|
{object V135; |
1188 |
|
{object V137 =((V107))->s.s_plist; |
1189 |
|
object ind= VV[78]; |
1190 |
|
while(V137!=Cnil){ |
1191 |
|
if(V137->c.c_car==ind){ |
1192 |
|
V136= (V137->c.c_cdr->c.c_car); |
1193 |
|
goto T547; |
1194 |
|
}else V137=V137->c.c_cdr->c.c_cdr;} |
1195 |
|
V136= Cnil;} |
1196 |
|
goto T547; |
1197 |
|
T547:; |
1198 |
|
V135= ((V136)==(Ct)?Ct:Cnil); |
1199 |
|
if(((V135))==Cnil){ |
1200 |
|
goto T470;}} |
1201 |
|
goto T470; |
1202 |
|
T470:; |
1203 |
|
if((CMPcadddr((V104)))==Cnil){ |
1204 |
|
goto T550;} |
1205 |
|
V106= CMPcadddr((V104)); |
1206 |
|
goto T550; |
1207 |
|
T550:; |
1208 |
|
(void)((*(LnkLI297))()); |
1209 |
|
{object V138; |
1210 |
|
V138= list(6,VV[52],(V107),(V105),(V104),(V106),(VV[60]->s.s_dbind)); |
1211 |
|
(VV[25]->s.s_dbind)= make_cons((V138),(VV[25]->s.s_dbind));} |
1212 |
|
{object V139; |
1213 |
|
V139= make_cons((V107),(V105)); |
1214 |
|
(VV[80]->s.s_dbind)= make_cons((V139),(VV[80]->s.s_dbind)); |
1215 |
|
V140= (VV[80]->s.s_dbind); |
1216 |
bds_unwind1; |
bds_unwind1; |
1217 |
bds_unwind1; |
bds_unwind1; |
1218 |
bds_unwind1; |
bds_unwind1; |
1219 |
bds_unwind1; |
bds_unwind1; |
1220 |
bds_unwind1;}} |
bds_unwind1;}} |
1221 |
{object V131 = Cnil; |
{object V141 = Cnil; |
1222 |
bds_unwind1; |
bds_unwind1; |
1223 |
VMR8(V131)}} |
VMR8(V141)}} |
1224 |
base[0]=base[0]; |
base[0]=base[0]; |
1225 |
return Cnil; |
return Cnil; |
1226 |
} |
} |
1227 |
/* local entry for function MAKE-INLINE-STRING */ |
/* local entry for function MAKE-INLINE-STRING */ |
1228 |
|
|
1229 |
static object LI9(V134,V135) |
static object LI9(V144,V145) |
1230 |
|
|
1231 |
object V134;object V135; |
object V144;object V145; |
1232 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
1233 |
goto TTL; |
goto TTL; |
1234 |
TTL:; |
TTL:; |
1235 |
if(((V135))!=Cnil){ |
if(((V145))!=Cnil){ |
1236 |
goto T566;} |
goto T561;} |
1237 |
base[0]= Cnil; |
base[0]= Cnil; |
1238 |
base[1]= VV[81]; |
base[1]= VV[81]; |
1239 |
base[2]= (V134); |
base[2]= (V144); |
1240 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1241 |
Lformat(); |
Lformat(); |
1242 |
vs_top=sup; |
vs_top=sup; |
1243 |
{object V136 = vs_base[0]; |
{object V146 = vs_base[0]; |
1244 |
VMR9(V136)} |
VMR9(V146)} |
1245 |
goto T566; |
goto T561; |
1246 |
T566:; |
T561:; |
1247 |
{register object V137; |
{register object V147; |
1248 |
V137= (VFUN_NARGS=7,(*(LnkLI295))(small_fixnum(100),VV[82],VV[83],VV[84],small_fixnum(0),VV[85],Ct)); |
V147= (VFUN_NARGS=7,(*(LnkLI298))(small_fixnum(100),VV[82],VV[83],VV[84],small_fixnum(0),VV[85],Ct)); |
1249 |
base[0]= (V137); |
base[0]= (V147); |
1250 |
base[1]= VV[86]; |
base[1]= VV[86]; |
1251 |
base[2]= (V134); |
base[2]= (V144); |
1252 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1253 |
Lformat(); |
Lformat(); |
1254 |
vs_top=sup; |
vs_top=sup; |
1255 |
{register object V138; |
{register object V148; |
1256 |
register long V139; |
register long V149; |
1257 |
V139= 0; |
V149= 0; |
1258 |
V138= (V135); |
V148= (V145); |
1259 |
goto T579; |
goto T574; |
1260 |
T579:; |
T574:; |
1261 |
if(!(endp_prop(cdr((V138))))){ |
if(!((CMPcdr((V148)))==Cnil)){ |
1262 |
goto T580;} |
goto T575;} |
1263 |
base[0]= (V137); |
base[0]= (V147); |
1264 |
base[1]= VV[87]; |
base[1]= VV[87]; |
1265 |
base[2]= make_fixnum(V139); |
base[2]= CMPmake_fixnum(V149); |
1266 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1267 |
Lformat(); |
Lformat(); |
1268 |
vs_top=sup; |
vs_top=sup; |
1269 |
goto T576; |
goto T571; |
1270 |
goto T580; |
goto T575; |
1271 |
T580:; |
T575:; |
1272 |
base[0]= (V137); |
base[0]= (V147); |
1273 |
base[1]= VV[88]; |
base[1]= VV[88]; |
1274 |
base[2]= make_fixnum(V139); |
base[2]= CMPmake_fixnum(V149); |
1275 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1276 |
Lformat(); |
Lformat(); |
1277 |
vs_top=sup; |
vs_top=sup; |
1278 |
V138= cdr((V138)); |
V148= CMPcdr((V148)); |
1279 |
V139= (long)(V139)+1; |
V149= (long)(V149)+1; |
1280 |
goto T579;} |
goto T574;} |
1281 |
goto T576; |
goto T571; |
1282 |
T576:; |
T571:; |
1283 |
{object V140 = (V137); |
{object V150 = (V147); |
1284 |
VMR9(V140)}} |
VMR9(V150)}} |
1285 |
base[0]=base[0]; |
base[0]=base[0]; |
1286 |
return Cnil; |
return Cnil; |
1287 |
} |
} |
1291 |
{ |
{ |
1292 |
va_list ap; |
va_list ap; |
1293 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
1294 |
{object V141; |
{object V151; |
1295 |
va_start(ap,first); |
va_start(ap,first); |
1296 |
narg = narg - 0; |
narg = narg - 0; |
1297 |
if (narg <= 0) goto T595; |
if (narg <= 0) goto T590; |
1298 |
else { |
else { |
1299 |
V141= first;} |
V151= first;} |
1300 |
--narg; goto T596; |
--narg; goto T591; |
1301 |
goto T595; |
goto T590; |
1302 |
T595:; |
T590:; |
1303 |
V141= Cnil; |
V151= Cnil; |
1304 |
|
goto T591; |
1305 |
|
T591:; |
1306 |
|
{object V152; |
1307 |
|
(VV[89]->s.s_dbind)= number_plus((VV[89]->s.s_dbind),small_fixnum(1)); |
1308 |
|
V152= (VV[89]->s.s_dbind); |
1309 |
|
{object V153; |
1310 |
|
if(((V151))==Cnil){ |
1311 |
|
goto T598;} |
1312 |
|
V153= make_cons((V151),(V152)); |
1313 |
|
goto T596; |
1314 |
|
goto T598; |
1315 |
|
T598:; |
1316 |
|
V153= (V152); |
1317 |
goto T596; |
goto T596; |
1318 |
T596:; |
T596:; |
1319 |
{object V142; |
(VV[19]->s.s_dbind)= make_cons((V153),(VV[19]->s.s_dbind));} |
1320 |
setq(VV[89],number_plus(symbol_value(VV[89]),small_fixnum(1))); |
{object V154 = (V152); |
1321 |
V142= symbol_value(VV[89]); |
VMR10(V154)}} |
|
{object V143; |
|
|
if(((V141))==Cnil){ |
|
|
goto T603;} |
|
|
V143= make_cons((V141),(V142)); |
|
|
goto T601; |
|
|
goto T603; |
|
|
T603:; |
|
|
V143= (V142); |
|
|
goto T601; |
|
|
T601:; |
|
|
setq(VV[19],make_cons((V143),symbol_value(VV[19])));} |
|
|
{object V144 = (V142); |
|
|
VMR10(V144)}} |
|
1322 |
va_end(ap); |
va_end(ap); |
1323 |
base[0]=base[0]; |
base[0]=base[0]; |
1324 |
return Cnil;} |
return Cnil;} |
1325 |
} |
} |
1326 |
/* local entry for function F-TYPE */ |
/* local entry for function F-TYPE */ |
1327 |
|
|
1328 |
static object LI11(V146) |
static object LI11(V156) |
1329 |
|
|
1330 |
register object V146; |
register object V156; |
1331 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
1332 |
goto TTL; |
goto TTL; |
1333 |
TTL:; |
TTL:; |
1334 |
base[0]= (V146); |
base[0]= (V156); |
1335 |
base[1]= VV[70]; |
base[1]= VV[70]; |
1336 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1337 |
(void) (*Lnk296)(); |
(void) (*Lnk299)(); |
1338 |
vs_top=sup; |
vs_top=sup; |
1339 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1340 |
goto T606;} |
goto T601;} |
1341 |
V146= structure_ref((V146),VV[70],5); |
V156= STREF(object,(V156),20); |
1342 |
goto T606; |
goto T601; |
1343 |
T606:; |
T601:; |
1344 |
if(((V146))==Cnil){ |
if(((V156))==Cnil){ |
1345 |
goto T613;} |
goto T608;} |
1346 |
base[0]= (V146); |
base[0]= (V156); |
1347 |
base[1]= VV[90]; |
base[1]= VV[90]; |
1348 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1349 |
(void) (*Lnk297)(); |
(void) (*Lnk300)(); |
1350 |
vs_top=sup; |
vs_top=sup; |
1351 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1352 |
goto T613;} |
goto T608;} |
1353 |
{long V147 = 1; |
{long V157 = 1; |
1354 |
VMR11((object)V147)} |
VMR11((object)V157)} |
1355 |
goto T613; |
goto T608; |
1356 |
T613:; |
T608:; |
1357 |
{long V148 = 0; |
{long V158 = 0; |
1358 |
VMR11((object)V148)} |
VMR11((object)V158)} |
1359 |
base[0]=base[0]; |
base[0]=base[0]; |
1360 |
} |
} |
1361 |
/* local entry for function PROCLAIMED-ARGD */ |
/* local entry for function PROCLAIMED-ARGD */ |
1362 |
|
|
1363 |
static object LI12(V151,V152) |
static object LI12(V161,V162) |
1364 |
|
|
1365 |
register object V151;object V152; |
register object V161;object V162; |
1366 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
1367 |
goto TTL; |
goto TTL; |
1368 |
TTL:; |
TTL:; |
1369 |
{register long V153; |
{register long V163; |
1370 |
register long V154; |
register long V164; |
1371 |
register object V155; |
register object V165; |
1372 |
register object V156; |
register object V166; |
1373 |
V153= (long)length((V151)); |
V163= (long)length((V161)); |
1374 |
V154= 8; |
V164= 8; |
1375 |
V155= make_fixnum((long)(*(LnkLI298))((V152))); |
V165= CMPmake_fixnum((long)(*(LnkLI301))((V162))); |
1376 |
V156= Ct; |
V166= Ct; |
1377 |
goto T623; |
goto T618; |
1378 |
T623:; |
T618:; |
1379 |
if(eql(small_fixnum(0),(V155))){ |
if(eql(small_fixnum(0),(V165))){ |
1380 |
goto T625;} |
goto T620;} |
1381 |
V153= (long)(V153)+((long)((fix((V155))) << (V154))); |
V163= (long)(V163)+((long)((fix((V165))) << (V164))); |
1382 |
goto T625; |
goto T620; |
1383 |
T625:; |
T620:; |
1384 |
if(((V156))==Cnil){ |
if(((V166))==Cnil){ |
1385 |
goto T629;} |
goto T624;} |
1386 |
V154= 10; |
V164= 10; |
1387 |
V156= Cnil; |
V166= Cnil; |
1388 |
goto T629; |
goto T624; |
1389 |
T629:; |
T624:; |
1390 |
if(((V151))!=Cnil){ |
if(((V161))!=Cnil){ |
1391 |
goto T635;} |
goto T630;} |
1392 |
{long V157 = V153; |
{long V167 = V163; |
1393 |
VMR12((object)V157)} |
VMR12((object)V167)} |
1394 |
goto T635; |
goto T630; |
1395 |
T635:; |
T630:; |
1396 |
V154= (long)(V154)+(2); |
V164= (long)(V164)+(2); |
1397 |
{register object V159; |
{register object V169; |
1398 |
V159= car((V151)); |
V169= CMPcar((V161)); |
1399 |
V151= cdr((V151)); |
V161= CMPcdr((V161)); |
1400 |
V158= (V159);} |
V168= (V169);} |
1401 |
V155= make_fixnum((long)(*(LnkLI298))(V158)); |
V165= CMPmake_fixnum((long)(*(LnkLI301))(V168)); |
1402 |
goto T623;} |
goto T618;} |
1403 |
} |
} |
1404 |
/* local entry for function WT-IF-PROCLAIMED */ |
/* local entry for function WT-IF-PROCLAIMED */ |
1405 |
|
|
1406 |
static object LI13(V163,V164,V165) |
static object LI13(V173,V174,V175) |
1407 |
|
|
1408 |
register object V163;object V164;object V165; |
register object V173;object V174;object V175; |
1409 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
1410 |
goto TTL; |
goto TTL; |
1411 |
TTL:; |
TTL:; |
1412 |
if(((VFUN_NARGS=1,(*(LnkLI300))((V163))))==Cnil){ |
if(((VFUN_NARGS=1,(*(LnkLI303))((V173))))==Cnil){ |
1413 |
goto T647;} |
goto T642;} |
1414 |
{register object x= (V163),V166= symbol_value(VV[79]); |
{register object x= (V173),V176= (VV[79]->s.s_dbind); |
1415 |
while(!endp(V166)) |
while(V176!=Cnil) |
1416 |
if(type_of(V166->c.c_car)==t_cons &&eql(x,V166->c.c_car->c.c_car)){ |
if(eql(x,V176->c.c_car->c.c_car) &&V176->c.c_car != Cnil){ |
1417 |
goto T651; |
goto T646; |
1418 |
}else V166=V166->c.c_cdr; |
}else V176=V176->c.c_cdr; |
1419 |
goto T650;} |
goto T645;} |
1420 |
goto T651; |
goto T646; |
1421 |
T651:; |
T646:; |
1422 |
V167= list(2,VV[92],(V163)); |
V177= list(2,VV[92],(V173)); |
1423 |
V168= (*(LnkLI302))(VV[93],(V164)); |
V178= (*(LnkLI305))(VV[93],(V174)); |
1424 |
V169= get((V163),VV[68],Cnil); |
{object V180 =((V173))->s.s_plist; |
1425 |
V170= get((V163),VV[78],Cnil); |
object ind= VV[68]; |
1426 |
V171 = make_fixnum((long)(*(LnkLI303))(V169,V170)); |
while(V180!=Cnil){ |
1427 |
V172= list(4,VV[91],/* INLINE-ARGS */V167,/* INLINE-ARGS */V168,V171); |
if(V180->c.c_car==ind){ |
1428 |
(void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V172))); |
V179= (V180->c.c_cdr->c.c_car); |
1429 |
{object V173 = Ct; |
goto T648; |
1430 |
VMR13(V173)} |
}else V180=V180->c.c_cdr->c.c_cdr;} |
1431 |
goto T650; |
V179= Cnil;} |
1432 |
T650:; |
goto T648; |
1433 |
{register object V174; |
T648:; |
1434 |
register object V175; |
{object V182 =((V173))->s.s_plist; |
1435 |
object V176; |
object ind= VV[78]; |
1436 |
V174= make_fixnum((long)length(car(caddr((V165))))); |
while(V182!=Cnil){ |
1437 |
V177= get((V163),VV[68],Cnil); |
if(V182->c.c_car==ind){ |
1438 |
V175= make_fixnum((long)length(V177)); |
V181= (V182->c.c_cdr->c.c_car); |
1439 |
V179= get((V163),VV[68],Cnil); |
goto T649; |
1440 |
{register object x= VV[69],V178= V179; |
}else V182=V182->c.c_cdr->c.c_cdr;} |
1441 |
while(!endp(V178)) |
V181= Cnil;} |
1442 |
if(eql(x,V178->c.c_car)){ |
goto T649; |
1443 |
V176= V178; |
T649:; |
1444 |
goto T659; |
V183 = CMPmake_fixnum((long)(*(LnkLI306))(V179,V181)); |
1445 |
}else V178=V178->c.c_cdr; |
V184= list(4,VV[91],/* INLINE-ARGS */V177,/* INLINE-ARGS */V178,V183); |
1446 |
V176= Cnil;} |
(void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V184))); |
1447 |
goto T659; |
{object V185 = Ct; |
1448 |
T659:; |
VMR13(V185)} |
1449 |
if(((V176))==Cnil){ |
goto T645; |
1450 |
goto T662;} |
T645:; |
1451 |
base[0]= (V174); |
{register object V186; |
1452 |
|
register object V187; |
1453 |
|
object V188; |
1454 |
|
V186= CMPmake_fixnum((long)length(CMPcar(CMPcaddr((V175))))); |
1455 |
|
{object V190 =((V173))->s.s_plist; |
1456 |
|
object ind= VV[68]; |
1457 |
|
while(V190!=Cnil){ |
1458 |
|
if(V190->c.c_car==ind){ |
1459 |
|
V189= (V190->c.c_cdr->c.c_car); |
1460 |
|
goto T653; |
1461 |
|
}else V190=V190->c.c_cdr->c.c_cdr;} |
1462 |
|
V189= Cnil;} |
1463 |
|
goto T653; |
1464 |
|
T653:; |
1465 |
|
V187= CMPmake_fixnum((long)length(V189)); |
1466 |
|
{object V193 =((V173))->s.s_plist; |
1467 |
|
object ind= VV[68]; |
1468 |
|
while(V193!=Cnil){ |
1469 |
|
if(V193->c.c_car==ind){ |
1470 |
|
V192= (V193->c.c_cdr->c.c_car); |
1471 |
|
goto T655; |
1472 |
|
}else V193=V193->c.c_cdr->c.c_cdr;} |
1473 |
|
V192= Cnil;} |
1474 |
|
goto T655; |
1475 |
|
T655:; |
1476 |
|
{register object x= VV[69],V191= V192; |
1477 |
|
while(V191!=Cnil) |
1478 |
|
if(eql(x,V191->c.c_car)){ |
1479 |
|
V188= V191; |
1480 |
|
goto T654; |
1481 |
|
}else V191=V191->c.c_cdr; |
1482 |
|
V188= Cnil;} |
1483 |
|
goto T654; |
1484 |
|
T654:; |
1485 |
|
if(((V188))==Cnil){ |
1486 |
|
goto T657;} |
1487 |
|
base[0]= (V186); |
1488 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1489 |
Lmonotonically_nonincreasing(); |
Lmonotonically_nonincreasing(); |
1490 |
vs_top=sup; |
vs_top=sup; |
1491 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1492 |
goto T664;} |
goto T659;} |
1493 |
goto T655; |
goto T650; |
1494 |
goto T664; |
goto T659; |
1495 |
T664:;{object V180; |
T659:;{object V194; |
1496 |
V181 = make_fixnum((long)length((V176))); |
V195 = CMPmake_fixnum((long)length((V188))); |
1497 |
V180= number_minus((V175),V181); |
V194= number_minus((V187),V195); |
1498 |
if(V180==Cnil)goto T667; |
if(V194==Cnil)goto T662; |
1499 |
goto T655; |
goto T650; |
|
goto T667; |
|
|
T667:;} |
|
|
V182 = make_fixnum((long)length((V176))); |
|
|
V183= number_minus((V175),V182); |
|
|
(void)((VFUN_NARGS=4,(*(LnkLI267))(VV[94],(V163),/* INLINE-ARGS */V183,(V174)))); |
|
|
goto T655; |
|
1500 |
goto T662; |
goto T662; |
1501 |
T662:; |
T662:;} |
1502 |
if(eql((V174),(V175))){ |
V196 = CMPmake_fixnum((long)length((V188))); |
1503 |
goto T670;} |
V197= number_minus((V187),V196); |
1504 |
(void)((VFUN_NARGS=4,(*(LnkLI267))(VV[95],(V163),(V175),(V174)))); |
(void)((VFUN_NARGS=4,(*(LnkLI267))(VV[94],(V173),/* INLINE-ARGS */V197,(V186)))); |
1505 |
goto T655; |
goto T650; |
1506 |
goto T670; |
goto T657; |
1507 |
T670:; |
T657:; |
1508 |
(void)((VFUN_NARGS=2,(*(LnkLI267))(VV[96],(V163))));} |
if(eql((V186),(V187))){ |
1509 |
goto T655; |
goto T665;} |
1510 |
T655:; |
(void)((VFUN_NARGS=4,(*(LnkLI267))(VV[95],(V173),(V187),(V186)))); |
1511 |
{object V184 = Cnil; |
goto T650; |
1512 |
VMR13(V184)} |
goto T665; |
1513 |
goto T647; |
T665:; |
1514 |
T647:; |
(void)((VFUN_NARGS=2,(*(LnkLI267))(VV[96],(V173))));} |
1515 |
{object V185 = Cnil; |
goto T650; |
1516 |
VMR13(V185)} |
T650:; |
1517 |
|
{object V198 = Cnil; |
1518 |
|
VMR13(V198)} |
1519 |
|
goto T642; |
1520 |
|
T642:; |
1521 |
|
{object V199 = Cnil; |
1522 |
|
VMR13(V199)} |
1523 |
base[0]=base[0]; |
base[0]=base[0]; |
1524 |
return Cnil; |
return Cnil; |
1525 |
} |
} |
1526 |
/* local entry for function VOLATILE */ |
/* local entry for function VOLATILE */ |
1527 |
|
|
1528 |
static object LI14(V187) |
static object LI14(V201) |
1529 |
|
|
1530 |
object V187; |
object V201; |
1531 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1532 |
goto TTL; |
goto TTL; |
1533 |
TTL:; |
TTL:; |
1534 |
if((structure_ref((V187),VV[63],4))==Cnil){ |
if((STREF(object,(V201),16))==Cnil){ |
1535 |
goto T673;} |
goto T668;} |
1536 |
{object V188 = VV[97]; |
{object V202 = VV[97]; |
1537 |
VMR14(V188)} |
VMR14(V202)} |
1538 |
goto T673; |
goto T668; |
1539 |
T673:; |
T668:; |
1540 |
{object V189 = VV[98]; |
{object V203 = VV[98]; |
1541 |
VMR14(V189)} |
VMR14(V203)} |
1542 |
return Cnil; |
return Cnil; |
1543 |
} |
} |
1544 |
/* local entry for function REGISTER */ |
/* local entry for function REGISTER */ |
1545 |
|
|
1546 |
static object LI15(V191) |
static object LI15(V205) |
1547 |
|
|
1548 |
object V191; |
object V205; |
1549 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
1550 |
goto TTL; |
goto TTL; |
1551 |
TTL:; |
TTL:; |
1552 |
if(!(equal(symbol_value(VV[21]),VV[99]))){ |
if(!(equal((VV[21]->s.s_dbind),VV[99]))){ |
1553 |
goto T676;} |
goto T671;} |
1554 |
{long V192= fix(structure_ref((V191),VV[70],6)); |
if(!((fix(STREF(object,(V205),24)))>=(fix((VV[100]->s.s_dbind))))){ |
1555 |
if(!((/* INLINE-ARGS */V192)>=(fix(symbol_value(VV[100]))))){ |
goto T671;} |
1556 |
goto T676;}} |
{object V206 = VV[101]; |
1557 |
{object V193 = VV[101]; |
VMR15(V206)} |
1558 |
VMR15(V193)} |
goto T671; |
1559 |
goto T676; |
T671:; |
1560 |
T676:; |
{object V207 = VV[102]; |
1561 |
{object V194 = VV[102]; |
VMR15(V207)} |
|
VMR15(V194)} |
|
1562 |
return Cnil; |
return Cnil; |
1563 |
} |
} |
1564 |
/* local entry for function VARARG-P */ |
/* local entry for function VARARG-P */ |
1565 |
|
|
1566 |
static object LI16(V196) |
static object LI16(V209) |
1567 |
|
|
1568 |
object V196; |
object V209; |
1569 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
1570 |
goto TTL; |
goto TTL; |
1571 |
TTL:; |
TTL:; |
1572 |
V197= get((V196),VV[78],Cnil); |
{object V211 =((V209))->s.s_plist; |
1573 |
if(equal(V197,Ct)){ |
object ind= VV[78]; |
1574 |
goto T680;} |
while(V211!=Cnil){ |
1575 |
{object V198 = Cnil; |
if(V211->c.c_car==ind){ |
1576 |
VMR16(V198)} |
V210= (V211->c.c_cdr->c.c_car); |
1577 |
|
goto T677; |
1578 |
|
}else V211=V211->c.c_cdr->c.c_cdr;} |
1579 |
|
V210= Cnil;} |
1580 |
|
goto T677; |
1581 |
|
T677:; |
1582 |
|
if(equal(V210,Ct)){ |
1583 |
|
goto T675;} |
1584 |
|
{object V212 = Cnil; |
1585 |
|
VMR16(V212)} |
1586 |
|
goto T675; |
1587 |
|
T675:; |
1588 |
|
{register object V213; |
1589 |
|
{object V214 =((V209))->s.s_plist; |
1590 |
|
object ind= VV[68]; |
1591 |
|
while(V214!=Cnil){ |
1592 |
|
if(V214->c.c_car==ind){ |
1593 |
|
V213= (V214->c.c_cdr->c.c_car); |
1594 |
|
goto T678; |
1595 |
|
}else V214=V214->c.c_cdr->c.c_cdr;} |
1596 |
|
V213= Cnil;} |
1597 |
|
goto T678; |
1598 |
|
T678:; |
1599 |
goto T680; |
goto T680; |
1600 |
T680:; |
T680:; |
1601 |
{register object V199; |
if(((V213))!=Cnil){ |
1602 |
V199= get((V196),VV[68],Cnil); |
goto T681;} |
1603 |
goto T685; |
{object V215 = Ct; |
1604 |
T685:; |
VMR16(V215)} |
1605 |
if(((V199))!=Cnil){ |
goto T681; |
1606 |
|
T681:; |
1607 |
|
if(!(type_of((V213))==t_cons)){ |
1608 |
goto T686;} |
goto T686;} |
1609 |
{object V200 = Ct; |
goto T685; |
|
VMR16(V200)} |
|
1610 |
goto T686; |
goto T686; |
1611 |
T686:; |
T686:; |
1612 |
if(!(type_of((V199))==t_cons)){ |
{object V216 = Cnil; |
1613 |
|
VMR16(V216)} |
1614 |
|
goto T685; |
1615 |
|
T685:; |
1616 |
|
if(!((CMPcar((V213)))==(Ct))){ |
1617 |
|
goto T689;} |
1618 |
|
goto T688; |
1619 |
|
goto T689; |
1620 |
|
T689:; |
1621 |
|
if(!((CMPcar((V213)))==(VV[69]))){ |
1622 |
goto T691;} |
goto T691;} |
1623 |
goto T690; |
goto T688; |
1624 |
goto T691; |
goto T691; |
1625 |
T691:; |
T691:; |
1626 |
{object V201 = Cnil; |
{object V217 = Cnil; |
1627 |
VMR16(V201)} |
VMR16(V217)} |
1628 |
goto T690; |
goto T688; |
1629 |
T690:; |
T688:; |
1630 |
if(!((car((V199)))==(Ct))){ |
V213= CMPcdr((V213)); |
1631 |
goto T694;} |
goto T680;} |
|
goto T693; |
|
|
goto T694; |
|
|
T694:; |
|
|
if(!((car((V199)))==(VV[69]))){ |
|
|
goto T696;} |
|
|
goto T693; |
|
|
goto T696; |
|
|
T696:; |
|
|
{object V202 = Cnil; |
|
|
VMR16(V202)} |
|
|
goto T693; |
|
|
T693:; |
|
|
V199= cdr((V199)); |
|
|
goto T685;} |
|
1632 |
return Cnil; |
return Cnil; |
1633 |
} |
} |
1634 |
/* local entry for function MAXARGS */ |
/* local entry for function MAXARGS */ |
1635 |
|
|
1636 |
static object LI17(V204) |
static object LI17(V219) |
1637 |
|
|
1638 |
register object V204; |
register object V219; |
1639 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
1640 |
goto TTL; |
goto TTL; |
1641 |
TTL:; |
TTL:; |
1642 |
if((cadddr((V204)))!=Cnil){ |
if((CMPcadddr((V219)))!=Cnil){ |
1643 |
goto T701;} |
goto T696;} |
1644 |
if((caddr((V204)))==Cnil){ |
if((CMPcaddr((V219)))==Cnil){ |
1645 |
goto T702;} |
goto T697;} |
1646 |
goto T701; |
goto T696; |
1647 |
T701:; |
T696:; |
1648 |
{object V205 = small_fixnum(64); |
{object V220 = small_fixnum(64); |
1649 |
VMR17(V205)} |
VMR17(V220)} |
1650 |
goto T702; |
goto T697; |
1651 |
T702:; |
T697:; |
1652 |
base[0]= make_fixnum((long)length(car((V204)))); |
base[0]= CMPmake_fixnum((long)length(CMPcar((V219)))); |
1653 |
base[1]= make_fixnum((long)length(cadr((V204)))); |
base[1]= CMPmake_fixnum((long)length(CMPcadr((V219)))); |
1654 |
V206 = make_fixnum((long)length(car(cddddr((V204))))); |
V221 = CMPmake_fixnum((long)length(CMPcar(CMPcddddr((V219))))); |
1655 |
base[2]= number_times(small_fixnum(2),V206); |
base[2]= number_times(small_fixnum(2),V221); |
1656 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1657 |
Lplus(); |
Lplus(); |
1658 |
vs_top=sup; |
vs_top=sup; |
1659 |
{object V207 = vs_base[0]; |
{object V222 = vs_base[0]; |
1660 |
VMR17(V207)} |
VMR17(V222)} |
1661 |
base[0]=base[0]; |
base[0]=base[0]; |
1662 |
return Cnil; |
return Cnil; |
1663 |
} |
} |
1664 |
/* local entry for function ADD-ADDRESS */ |
/* local entry for function ADD-ADDRESS */ |
1665 |
|
|
1666 |
static object LI18(V210,V211) |
static object LI18(V225,V226) |
1667 |
|
|
1668 |
object V210;object V211; |
object V225;object V226; |
1669 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1670 |
goto TTL; |
goto TTL; |
1671 |
TTL:; |
TTL:; |
1672 |
{object V212; |
{object V227; |
1673 |
V212= list(2,(V210),(V211)); |
V227= list(2,(V225),(V226)); |
1674 |
setq(VV[22],make_cons((V212),symbol_value(VV[22])));} |
(VV[22]->s.s_dbind)= make_cons((V227),(VV[22]->s.s_dbind));} |
1675 |
{object V213; |
{object V228; |
1676 |
V213= symbol_value(VV[23]); |
V228= (VV[23]->s.s_dbind); |
1677 |
setq(VV[23],number_plus(symbol_value(VV[23]),small_fixnum(1))); |
(VV[23]->s.s_dbind)= number_plus((VV[23]->s.s_dbind),small_fixnum(1)); |
1678 |
{object V214 = (V213); |
{object V229 = (V228); |
1679 |
VMR18(V214)}} |
VMR18(V229)}} |
1680 |
base[0]=base[0]; |
base[0]=base[0]; |
1681 |
return Cnil; |
return Cnil; |
1682 |
} |
} |
1683 |
/* local entry for function T2DEFUN */ |
/* local entry for function T2DEFUN */ |
1684 |
|
|
1685 |
static object LI19(V220,V221,V222,V223,V224) |
static object LI19(V235,V236,V237,V238,V239) |
1686 |
|
|
1687 |
register object V220;register object V221;register object V222;object V223;object V224; |
register object V235;register object V236;register object V237;object V238;object V239; |
1688 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
1689 |
goto TTL; |
goto TTL; |
1690 |
TTL:; |
TTL:; |
1691 |
if((get((V220),VV[103],Cnil))==Cnil){ |
{object V240 =((V235))->s.s_plist; |
1692 |
goto T714;} |
object ind= VV[103]; |
1693 |
{object V225 = Cnil; |
while(V240!=Cnil){ |
1694 |
VMR19(V225)} |
if(V240->c.c_car==ind){ |
1695 |
goto T714; |
if(((V240->c.c_cdr->c.c_car))==Cnil){ |
1696 |
T714:; |
goto T709;} |
1697 |
if(((V223))==Cnil){ |
goto T711; |
1698 |
goto T717;} |
}else V240=V240->c.c_cdr->c.c_cdr;} |
1699 |
V226= list(4,VV[104],list(2,VV[92],(V220)),(V223),VV[105]); |
goto T709;} |
1700 |
(void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V226))); |
goto T711; |
1701 |
goto T717; |
T711:; |
1702 |
T717:; |
{object V241 = Cnil; |
1703 |
{object V227; |
VMR19(V241)} |
1704 |
V227= (*(LnkLI304))((V220),(V221),(V222)); |
goto T709; |
1705 |
if(((V227))==Cnil){ |
T709:; |
1706 |
goto T723;} |
if(((V238))==Cnil){ |
1707 |
goto T720; |
goto T712;} |
1708 |
goto T723; |
V242= list(4,VV[104],list(2,VV[92],(V235)),(V238),VV[105]); |
1709 |
T723:; |
(void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V242))); |
1710 |
if(((*(LnkLI305))((V220)))==Cnil){ |
goto T712; |
1711 |
goto T726;} |
T712:; |
1712 |
{object V228; |
{object V243; |
1713 |
V228= cadddr(caddr((V222))); |
V243= (*(LnkLI307))((V235),(V236),(V237)); |
1714 |
if(((V228))==Cnil){ |
if(((V243))==Cnil){ |
1715 |
goto T730;} |
goto T718;} |
1716 |
V229= list(2,VV[92],(V220)); |
goto T715; |
1717 |
V230= (*(LnkLI302))(VV[107],(V221)); |
goto T718; |
1718 |
V231 = make_fixnum((long)length(car(caddr((V222))))); |
T718:; |
1719 |
V232= (*(LnkLI306))(caddr((V222))); |
if(((*(LnkLI308))((V235)))==Cnil){ |
1720 |
V233= (*(LnkLI299))(/* INLINE-ARGS */V232,small_fixnum(8)); |
goto T721;} |
1721 |
V234= number_plus(V231,/* INLINE-ARGS */V233); |
{object V244; |
1722 |
|
V244= CMPcadddr(CMPcaddr((V237))); |
1723 |
|
if(((V244))==Cnil){ |
1724 |
|
goto T725;} |
1725 |
|
V245= list(2,VV[92],(V235)); |
1726 |
|
V246= (*(LnkLI305))(VV[107],(V236)); |
1727 |
|
V247 = CMPmake_fixnum((long)length(CMPcar(CMPcaddr((V237))))); |
1728 |
|
V248= (*(LnkLI309))(CMPcaddr((V237))); |
1729 |
|
V249= (*(LnkLI302))(/* INLINE-ARGS */V248,small_fixnum(8)); |
1730 |
|
V250= number_plus(V247,/* INLINE-ARGS */V249); |
1731 |
base[0]= Cnil; |
base[0]= Cnil; |
1732 |
base[1]= VV[108]; |
base[1]= VV[108]; |
1733 |
base[2]= (V221); |
base[2]= (V236); |
1734 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1735 |
Lformat(); |
Lformat(); |
1736 |
vs_top=sup; |
vs_top=sup; |
1737 |
V235= vs_base[0]; |
V251= vs_base[0]; |
1738 |
V236= list(5,VV[106],/* INLINE-ARGS */V229,/* INLINE-ARGS */V230,/* INLINE-ARGS */V234,(*(LnkLI302))(V235,VV[109])); |
V252= list(5,VV[106],/* INLINE-ARGS */V245,/* INLINE-ARGS */V246,/* INLINE-ARGS */V250,(*(LnkLI305))(V251,VV[109])); |
1739 |
(void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V236))); |
(void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V252))); |
1740 |
goto T720; |
goto T715; |
1741 |
goto T730; |
goto T725; |
1742 |
T730:; |
T725:; |
1743 |
V237= list(2,VV[92],(V220)); |
V253= list(2,VV[92],(V235)); |
1744 |
V238= (*(LnkLI302))(VV[111],(V221)); |
V254= (*(LnkLI305))(VV[111],(V236)); |
1745 |
V239 = make_fixnum((long)length(car(caddr((V222))))); |
V255 = CMPmake_fixnum((long)length(CMPcar(CMPcaddr((V237))))); |
1746 |
V240= (*(LnkLI306))(caddr((V222))); |
V256= (*(LnkLI309))(CMPcaddr((V237))); |
1747 |
V241= (*(LnkLI299))(/* INLINE-ARGS */V240,small_fixnum(8)); |
V257= (*(LnkLI302))(/* INLINE-ARGS */V256,small_fixnum(8)); |
1748 |
V242= list(4,VV[110],/* INLINE-ARGS */V237,/* INLINE-ARGS */V238,number_plus(V239,/* INLINE-ARGS */V241)); |
V258= list(4,VV[110],/* INLINE-ARGS */V253,/* INLINE-ARGS */V254,number_plus(V255,/* INLINE-ARGS */V257)); |
1749 |
(void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V242))); |
(void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V258))); |
1750 |
goto T720;} |
goto T715;} |
1751 |
goto T726; |
goto T721; |
1752 |
T726:; |
T721:; |
1753 |
if(!(type_of((V221))==t_fixnum|| |
if(!(type_of((V236))==t_fixnum|| |
1754 |
type_of((V221))==t_bignum|| |
type_of((V236))==t_bignum|| |
1755 |
type_of((V221))==t_ratio|| |
type_of((V236))==t_ratio|| |
1756 |
type_of((V221))==t_shortfloat|| |
type_of((V236))==t_shortfloat|| |
1757 |
type_of((V221))==t_longfloat|| |
type_of((V236))==t_longfloat|| |
1758 |
type_of((V221))==t_complex)){ |
type_of((V236))==t_complex)){ |
1759 |
goto T737;} |
goto T732;} |
1760 |
princ_str("\nstatic void L",VV[32]); |
princ_str("\nstatic void L",VV[32]); |
1761 |
(void)((*(LnkLI278))((V221))); |
(void)((*(LnkLI278))((V236))); |
1762 |
princ_str("();",VV[32]); |
princ_str("();",VV[32]); |
1763 |
V243= list(2,VV[92],(V220)); |
V259= list(2,VV[92],(V235)); |
1764 |
V244= list(3,VV[112],/* INLINE-ARGS */V243,(*(LnkLI302))(VV[113],(V221))); |
V260= list(3,VV[112],/* INLINE-ARGS */V259,(*(LnkLI305))(VV[113],(V236))); |
1765 |
(void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V244))); |
(void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V260))); |
1766 |
goto T720; |
goto T715; |
1767 |
goto T737; |
goto T732; |
1768 |
T737:; |
T732:; |
1769 |
princ_char(10,VV[32]); |
princ_char(10,VV[32]); |
1770 |
(void)((*(LnkLI278))((V221))); |
(void)((*(LnkLI278))((V236))); |
1771 |
princ_str("();",VV[32]); |
princ_str("();",VV[32]); |
1772 |
V245= list(2,VV[92],(V220)); |
V261= list(2,VV[92],(V235)); |
1773 |
V246= list(3,VV[112],/* INLINE-ARGS */V245,(*(LnkLI302))(VV[114],(V221))); |
V262= list(3,VV[112],/* INLINE-ARGS */V261,(*(LnkLI305))(VV[114],(V236))); |
1774 |
(void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V246)));} |
(void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V262)));} |
1775 |
goto T720; |
goto T715; |
1776 |
T720:; |
T715:; |
1777 |
if(!(number_compare(symbol_value(VV[115]),small_fixnum(2))<0)){ |
if(!(number_compare((VV[115]->s.s_dbind),small_fixnum(2))<0)){ |
1778 |
goto T748;} |
goto T743;} |
1779 |
{object V247 = sputprop((V220),VV[116],Ct); |
{object V263 = sputprop((V235),VV[116],Ct); |
1780 |
VMR19(V247)} |
VMR19(V263)} |
1781 |
goto T748; |
goto T743; |
1782 |
T748:; |
T743:; |
1783 |
{object V248 = Cnil; |
{object V264 = Cnil; |
1784 |
VMR19(V248)} |
VMR19(V264)} |
1785 |
base[0]=base[0]; |
base[0]=base[0]; |
1786 |
return Cnil; |
return Cnil; |
1787 |
} |
} |
1788 |
/* local entry for function ADD-DEBUG */ |
/* local entry for function ADD-DEBUG */ |
1789 |
|
|
1790 |
static object LI20(V251,V252) |
static object LI20(V267,V268) |
1791 |
|
|
1792 |
object V251;object V252; |
object V267;object V268; |
1793 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
1794 |
goto TTL; |
goto TTL; |
1795 |
TTL:; |
TTL:; |
1796 |
{object V253 = putprop((V251),(V252),VV[117]); |
{object V269 = putprop((V267),(V268),VV[117]); |
1797 |
VMR20(V253)} |
VMR20(V269)} |
1798 |
return Cnil; |
return Cnil; |
1799 |
} |
} |
1800 |
/* local entry for function T3DEFUN */ |
/* local entry for function T3DEFUN */ |
1801 |
|
|
1802 |
static object LI21(V259,V260,V261,V262,V263) |
static object LI21(V275,V276,V277,V278,V279) |
1803 |
|
|
1804 |
register object V259;register object V260;register object V261;object V262;object V263; |
register object V275;register object V276;register object V277;object V278;object V279; |
1805 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
1806 |
bds_check; |
bds_check; |
1807 |
goto TTL; |
goto TTL; |
1808 |
TTL:; |
TTL:; |
1809 |
{register object V264; |
{register object V280; |
1810 |
V264= Cnil; |
V280= Cnil; |
1811 |
bds_bind(VV[0],list(2,VV[52],(V259))); |
bds_bind(VV[0],list(2,VV[52],(V275))); |
1812 |
bds_bind(VV[21],(*(LnkLI307))(cadr((V261)))); |
bds_bind(VV[21],(*(LnkLI310))(CMPcadr((V277)))); |
1813 |
bds_bind(VV[118],Cnil); |
bds_bind(VV[118],Cnil); |
1814 |
{register object V265; |
{register object V281; |
1815 |
register object V266; |
register object V282; |
1816 |
V265= symbol_value(VV[79]); |
V281= (VV[79]->s.s_dbind); |
1817 |
V266= car((V265)); |
V282= CMPcar((V281)); |
|
goto T760; |
|
|
T760:; |
|
|
if(!(endp_prop((V265)))){ |
|
|
goto T761;} |
|
1818 |
goto T755; |
goto T755; |
1819 |
goto T761; |
T755:; |
1820 |
T761:;{object V267; |
if(!(((V281))==Cnil)){ |
1821 |
base[4]= cadddr((V266)); |
goto T756;} |
1822 |
|
goto T750; |
1823 |
|
goto T756; |
1824 |
|
T756:;{object V283; |
1825 |
|
base[4]= CMPcadddr((V282)); |
1826 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1827 |
(void) (*Lnk308)(); |
(void) (*Lnk311)(); |
1828 |
vs_top=sup; |
vs_top=sup; |
1829 |
V267= vs_base[0]; |
V283= vs_base[0]; |
1830 |
if(V267==Cnil)goto T766; |
if(V283==Cnil)goto T761; |
1831 |
goto T765; |
goto T760; |
1832 |
goto T766; |
goto T761; |
1833 |
T766:;} |
T761:;} |
1834 |
base[4]= VV[119]; |
base[4]= VV[119]; |
1835 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1836 |
Lerror(); |
Lerror(); |
1837 |
vs_top=sup; |
vs_top=sup; |
1838 |
|
goto T760; |
1839 |
|
T760:; |
1840 |
|
if((CMPcar((V282)))==((V275))){ |
1841 |
|
goto T766;} |
1842 |
|
goto T765; |
1843 |
|
goto T766; |
1844 |
|
T766:; |
1845 |
|
if((CMPcadr(CMPcddddr((V282))))==Cnil){ |
1846 |
|
goto T768;} |
1847 |
|
goto T765; |
1848 |
|
goto T768; |
1849 |
|
T768:; |
1850 |
|
V280= (V282); |
1851 |
|
if(((V280))==Cnil){ |
1852 |
|
goto T750;} |
1853 |
|
goto T751; |
1854 |
goto T765; |
goto T765; |
1855 |
T765:; |
T765:; |
1856 |
if((car((V266)))==((V259))){ |
V281= CMPcdr((V281)); |
1857 |
goto T771;} |
V282= CMPcar((V281)); |
|
goto T770; |
|
|
goto T771; |
|
|
T771:; |
|
|
if((cadr(cddddr((V266))))==Cnil){ |
|
|
goto T773;} |
|
|
goto T770; |
|
|
goto T773; |
|
|
T773:; |
|
|
V264= (V266); |
|
|
if(((V264))==Cnil){ |
|
1858 |
goto T755;} |
goto T755;} |
1859 |
goto T756; |
goto T751; |
1860 |
goto T770; |
T751:; |
1861 |
T770:; |
if(((VFUN_NARGS=1,(*(LnkLI303))((V275))))!=Cnil){ |
1862 |
V265= cdr((V265)); |
goto T776;} |
1863 |
V266= car((V265)); |
{object V284; |
1864 |
goto T760;} |
V284= list(4,(V275),(V276),CMPcadr((V280)),CMPcaddr((V280))); |
1865 |
goto T756; |
(VV[30]->s.s_dbind)= make_cons((V284),(VV[30]->s.s_dbind));} |
1866 |
T756:; |
goto T776; |
1867 |
if(((VFUN_NARGS=1,(*(LnkLI300))((V259))))!=Cnil){ |
T776:; |
1868 |
goto T781;} |
(void)((*(LnkLI312))(STREF(object,CMPcadr((V277)),4),small_fixnum(0))); |
|
{object V268; |
|
|
V268= list(4,(V259),(V260),cadr((V264)),caddr((V264))); |
|
|
setq(VV[30],make_cons((V268),symbol_value(VV[30])));} |
|
|
goto T781; |
|
|
T781:; |
|
|
V269= structure_ref(cadr((V261)),VV[63],1); |
|
|
(void)((*(LnkLI309))(/* INLINE-ARGS */V269,small_fixnum(0))); |
|
1869 |
base[3]= VV[120]; |
base[3]= VV[120]; |
1870 |
{object V270= caddr((V264)); |
{object V285= CMPcaddr((V280)); |
1871 |
if((V270!= VV[90]))goto T789; |
if((V285!= VV[90]))goto T784; |
1872 |
base[4]= VV[121]; |
base[4]= VV[121]; |
1873 |
goto T788; |
goto T783; |
1874 |
goto T789; |
goto T784; |
1875 |
T789:; |
T784:; |
1876 |
if((V270!= VV[143]))goto T790; |
if((V285!= VV[143]))goto T785; |
1877 |
base[4]= VV[122]; |
base[4]= VV[122]; |
1878 |
goto T788; |
goto T783; |
1879 |
goto T790; |
goto T785; |
1880 |
T790:; |
T785:; |
1881 |
if((V270!= VV[144]))goto T791; |
if((V285!= VV[144]))goto T786; |
1882 |
base[4]= VV[123]; |
base[4]= VV[123]; |
1883 |
goto T788; |
goto T783; |
1884 |
goto T791; |
goto T786; |
1885 |
T791:; |
T786:; |
1886 |
if((V270!= VV[145]))goto T792; |
if((V285!= VV[145]))goto T787; |
1887 |
base[4]= VV[124]; |
base[4]= VV[124]; |
1888 |
goto T788; |
goto T783; |
1889 |
goto T792; |
goto T787; |
1890 |
T792:; |
T787:; |
1891 |
base[4]= VV[125];} |
base[4]= VV[125];} |
1892 |
goto T788; |
goto T783; |
1893 |
T788:; |
T783:; |
1894 |
base[5]= (V259); |
base[5]= (V275); |
1895 |
base[6]= (V260); |
base[6]= (V276); |
1896 |
base[7]= (V261); |
base[7]= (V277); |
1897 |
base[8]= (V263); |
base[8]= (V279); |
1898 |
base[9]= (V264); |
base[9]= (V280); |
1899 |
vs_top=(vs_base=base+3)+7; |
vs_top=(vs_base=base+3)+7; |
1900 |
(void) (*Lnk310)(); |
(void) (*Lnk313)(); |
1901 |
vs_top=sup; |
vs_top=sup; |
1902 |
goto T753; |
goto T748; |
1903 |
goto T755; |
goto T750; |
1904 |
T755:; |
T750:; |
1905 |
if(((*(LnkLI305))((V259)))==Cnil){ |
if(((*(LnkLI308))((V275)))==Cnil){ |
1906 |
goto T799;} |
goto T794;} |
1907 |
V271= structure_ref(cadr((V261)),VV[63],1); |
(void)((*(LnkLI312))(STREF(object,CMPcadr((V277)),4),small_fixnum(0))); |
|
(void)((*(LnkLI309))(/* INLINE-ARGS */V271,small_fixnum(0))); |
|
1908 |
base[3]= VV[126]; |
base[3]= VV[126]; |
1909 |
base[4]= VV[125]; |
base[4]= VV[125]; |
1910 |
base[5]= (V259); |
base[5]= (V275); |
1911 |
base[6]= (V260); |
base[6]= (V276); |
1912 |
base[7]= (V261); |
base[7]= (V277); |
1913 |
base[8]= (V263); |
base[8]= (V279); |
1914 |
vs_top=(vs_base=base+3)+6; |
vs_top=(vs_base=base+3)+6; |
1915 |
(void) (*Lnk310)(); |
(void) (*Lnk313)(); |
1916 |
vs_top=sup; |
vs_top=sup; |
1917 |
goto T753; |
goto T748; |
1918 |
goto T799; |
goto T794; |
1919 |
T799:; |
T794:; |
1920 |
V272= structure_ref(cadr((V261)),VV[63],1); |
(void)((*(LnkLI312))(STREF(object,CMPcadr((V277)),4),small_fixnum(2))); |
|
(void)((*(LnkLI309))(/* INLINE-ARGS */V272,small_fixnum(2))); |
|
1921 |
base[3]= VV[127]; |
base[3]= VV[127]; |
1922 |
base[4]= VV[128]; |
base[4]= VV[128]; |
1923 |
base[5]= (V259); |
base[5]= (V275); |
1924 |
base[6]= (V260); |
base[6]= (V276); |
1925 |
base[7]= (V261); |
base[7]= (V277); |
1926 |
base[8]= (V263); |
base[8]= (V279); |
1927 |
vs_top=(vs_base=base+3)+6; |
vs_top=(vs_base=base+3)+6; |
1928 |
(void) (*Lnk310)(); |
(void) (*Lnk313)(); |
1929 |
vs_top=sup; |
vs_top=sup; |
1930 |
goto T753; |
goto T748; |
1931 |
T753:; |
T748:; |
1932 |
(void)((*(LnkLI311))((V260))); |
(void)((*(LnkLI314))((V276))); |
1933 |
{object V273 = (*(LnkLI312))((V259),(V261)); |
{object V286 = (*(LnkLI315))((V275),(V277)); |
1934 |
bds_unwind1; |
bds_unwind1; |
1935 |
bds_unwind1; |
bds_unwind1; |
1936 |
bds_unwind1; |
bds_unwind1; |
1937 |
VMR21(V273)}} |
VMR21(V286)}} |
1938 |
base[0]=base[0]; |
base[0]=base[0]; |
1939 |
return Cnil; |
return Cnil; |
1940 |
} |
} |
1943 |
static void L22() |
static void L22() |
1944 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1945 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM22; VC22 |
1946 |
vs_reserve(VM22); |
vs_check; |
1947 |
bds_check; |
bds_check; |
1948 |
{object V274; |
{object V287; |
1949 |
object V275; |
object V288; |
1950 |
if(vs_top-vs_base<2) too_few_arguments(); |
V287=(base[0]); |
|
V274=(base[0]); |
|
1951 |
bds_bind(VV[129],base[1]); |
bds_bind(VV[129],base[1]); |
1952 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
1953 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
1954 |
{object *p=vs_top; |
{object *p=vs_top; |
1955 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1956 |
V275=(base[2]); |
V288=(base[2]); |
1957 |
vs_top=sup; |
vs_top=sup; |
1958 |
bds_bind(VV[19],Cnil); |
bds_bind(VV[19],Cnil); |
1959 |
bds_bind(VV[130],small_fixnum(0)); |
bds_bind(VV[130],small_fixnum(0)); |
1963 |
bds_bind(VV[134],Cnil); |
bds_bind(VV[134],Cnil); |
1964 |
bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil)); |
bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil)); |
1965 |
bds_bind(VV[136],(VV[129]->s.s_dbind)); |
bds_bind(VV[136],(VV[129]->s.s_dbind)); |
1966 |
setq(VV[138],number_plus(symbol_value(VV[138]),small_fixnum(1))); |
(VV[138]->s.s_dbind)= number_plus((VV[138]->s.s_dbind),small_fixnum(1)); |
1967 |
bds_bind(VV[137],symbol_value(VV[138])); |
bds_bind(VV[137],(VV[138]->s.s_dbind)); |
1968 |
bds_bind(VV[139],Cnil); |
bds_bind(VV[139],Cnil); |
1969 |
bds_bind(VV[140],Cnil); |
bds_bind(VV[140],Cnil); |
1970 |
bds_bind(VV[141],Cnil); |
bds_bind(VV[141],Cnil); |
1971 |
bds_bind(VV[142],small_fixnum(0)); |
bds_bind(VV[142],small_fixnum(0)); |
1972 |
base[16]= (V274); |
base[16]= (V287); |
1973 |
{object V276; |
{object V289; |
1974 |
V276= (V275); |
V289= (V288); |
1975 |
vs_top=base+17; |
vs_top=base+17; |
1976 |
while(!endp(V276)) |
while(V289!=Cnil) |
1977 |
{vs_push(car(V276));V276=cdr(V276);} |
{vs_push((V289)->c.c_car);V289=(V289)->c.c_cdr;} |
1978 |
vs_base=base+17;} |
vs_base=base+17;} |
1979 |
super_funcall_no_event(base[16]); |
super_funcall_no_event(base[16]); |
1980 |
bds_unwind1; |
bds_unwind1; |
1996 |
} |
} |
1997 |
/* local entry for function T3DEFUN-LOCAL-ENTRY */ |
/* local entry for function T3DEFUN-LOCAL-ENTRY */ |
1998 |
|
|
1999 |
static object LI23(V282,V283,V284,V285,V286) |
static object LI23(V295,V296,V297,V298,V299) |
2000 |
|
|
2001 |
object V282;object V283;object V284;object V285;object V286; |
object V295;object V296;object V297;object V298;object V299; |
2002 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
2003 |
bds_check; |
bds_check; |
2004 |
goto TTL; |
goto TTL; |
2005 |
TTL:; |
TTL:; |
2006 |
{object V287; |
{object V300; |
2007 |
object V288; |
object V301; |
2008 |
V287= Cnil; |
V300= Cnil; |
2009 |
V288= caaddr((V284)); |
V301= CMPcaaddr((V297)); |
2010 |
{register object V289; |
{register object V302; |
2011 |
object V290; |
object V303; |
2012 |
V290= cadr((V286)); |
V303= CMPcadr((V299)); |
2013 |
V289= (V288); |
V302= (V301); |
2014 |
goto T826; |
goto T821; |
2015 |
T826:; |
T821:; |
2016 |
if(!(endp_prop((V289)))){ |
if(!(((V302))==Cnil)){ |
2017 |
goto T827;} |
goto T822;} |
2018 |
goto T823; |
goto T818; |
2019 |
goto T827; |
goto T822; |
2020 |
T827:; |
T822:; |
2021 |
V291= structure_ref(car((V289)),VV[70],1); |
if(!((STREF(object,CMPcar((V302)),4))==(VV[72]))){ |
2022 |
if(!((/* INLINE-ARGS */V291)==(VV[72]))){ |
goto T828;} |
2023 |
goto T833;} |
{object V304; |
2024 |
{object V292; |
V304= make_cons(CMPcar((V302)),STREF(object,CMPcar((V302)),16)); |
2025 |
V293= car((V289)); |
V300= make_cons((V304),(V300)); |
2026 |
V294= structure_ref(car((V289)),VV[70],4); |
goto T826;} |
2027 |
V292= make_cons(/* INLINE-ARGS */V293,/* INLINE-ARGS */V294); |
goto T828; |
2028 |
V287= make_cons((V292),(V287)); |
T828:; |
2029 |
goto T831;} |
V305= CMPcar((V302)); |
2030 |
|
{object V307= CMPcar((V303)); |
2031 |
|
if((V307!= VV[90]))goto T833; |
2032 |
|
V306= VV[90]; |
2033 |
|
goto T832; |
2034 |
goto T833; |
goto T833; |
2035 |
T833:; |
T833:; |
2036 |
V295= car((V289)); |
if((V307!= VV[143]))goto T834; |
2037 |
{object V297= car((V290)); |
V306= VV[143]; |
2038 |
if((V297!= VV[90]))goto T838; |
goto T832; |
2039 |
V296= VV[90]; |
goto T834; |
2040 |
goto T837; |
T834:; |
2041 |
goto T838; |
if((V307!= VV[144]))goto T835; |
2042 |
T838:; |
V306= VV[144]; |
2043 |
if((V297!= VV[143]))goto T839; |
goto T832; |
2044 |
V296= VV[143]; |
goto T835; |
2045 |
goto T837; |
T835:; |
2046 |
goto T839; |
if((V307!= VV[145]))goto T836; |
2047 |
T839:; |
V306= VV[145]; |
2048 |
if((V297!= VV[144]))goto T840; |
goto T832; |
2049 |
V296= VV[144]; |
goto T836; |
2050 |
goto T837; |
T836:; |
2051 |
goto T840; |
V306= VV[75];} |
2052 |
T840:; |
goto T832; |
2053 |
if((V297!= VV[145]))goto T841; |
T832:; |
2054 |
V296= VV[145]; |
V308= Ct; |
2055 |
goto T837; |
STSET(object,/* INLINE-ARGS */V305,4, V306); |
2056 |
goto T841; |
(void)(V306); |
2057 |
T841:; |
goto T826; |
2058 |
V296= VV[75];} |
T826:; |
2059 |
goto T837; |
V309= CMPcar((V302)); |
2060 |
T837:; |
(VV[89]->s.s_dbind)= number_plus((VV[89]->s.s_dbind),small_fixnum(1)); |
2061 |
(void)(structure_set(/* INLINE-ARGS */V295,VV[70],1,V296)); |
V310= Ct; |
2062 |
goto T831; |
STSET(object,/* INLINE-ARGS */V309,16, (VV[89]->s.s_dbind)); |
2063 |
T831:; |
(void)((VV[89]->s.s_dbind)); |
2064 |
V298= car((V289)); |
V302= CMPcdr((V302)); |
2065 |
setq(VV[89],number_plus(symbol_value(VV[89]),small_fixnum(1))); |
V303= CMPcdr((V303)); |
2066 |
(void)(structure_set(/* INLINE-ARGS */V298,VV[70],4,symbol_value(VV[89]))); |
goto T821;} |
2067 |
V289= cdr((V289)); |
goto T818; |
2068 |
V290= cdr((V290)); |
T818:; |
2069 |
goto T826;} |
(void)((VFUN_NARGS=2,(*(LnkLI316))(VV[146],(V295)))); |
|
goto T823; |
|
|
T823:; |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI313))(VV[146],(V282)))); |
|
2070 |
princ_str("\nstatic ",VV[32]); |
princ_str("\nstatic ",VV[32]); |
2071 |
base[1]= (*(LnkLI281))(caddr((V286))); |
V311= (*(LnkLI281))(CMPcaddr((V299))); |
2072 |
vs_top=(vs_base=base+1)+1; |
V312= (*(LnkLI282))(/* INLINE-ARGS */V311); |
2073 |
(void) (*Lnk282)(); |
(void)((*(LnkLI278))(/* INLINE-ARGS */V312)); |
|
vs_top=sup; |
|
|
V299= vs_base[0]; |
|
|
(void)((*(LnkLI278))(V299)); |
|
2074 |
princ_str("LI",VV[32]); |
princ_str("LI",VV[32]); |
2075 |
(void)((*(LnkLI278))((V283))); |
(void)((*(LnkLI278))((V296))); |
2076 |
princ_str("();",VV[32]); |
princ_str("();",VV[32]); |
2077 |
princ_str("\nstatic ",VV[26]); |
princ_str("\nstatic ",VV[26]); |
2078 |
base[1]= (*(LnkLI281))(caddr((V286))); |
V313= (*(LnkLI281))(CMPcaddr((V299))); |
2079 |
vs_top=(vs_base=base+1)+1; |
V314= (*(LnkLI282))(/* INLINE-ARGS */V313); |
2080 |
(void) (*Lnk282)(); |
(void)((*(LnkLI275))(/* INLINE-ARGS */V314)); |
|
vs_top=sup; |
|
|
V300= vs_base[0]; |
|
|
(void)((*(LnkLI275))(V300)); |
|
2081 |
princ_str("LI",VV[26]); |
princ_str("LI",VV[26]); |
2082 |
(void)((*(LnkLI275))((V283))); |
(void)((*(LnkLI275))((V296))); |
2083 |
princ_char(40,VV[26]); |
princ_char(40,VV[26]); |
2084 |
(void)((*(LnkLI314))((V288),cadr((V286)))); |
(void)((*(LnkLI317))((V301),CMPcadr((V299)))); |
2085 |
{object V301; |
{object V315; |
2086 |
V301= symbol_value(VV[137]); |
V315= (VV[137]->s.s_dbind); |
2087 |
if((symbol_value(VV[148]))==Cnil){ |
if(((VV[148]->s.s_dbind))==Cnil){ |
2088 |
goto T869;} |
goto T860;} |
2089 |
base[1]= make_cons((V282),(V288)); |
base[1]= make_cons((V295),(V301)); |
2090 |
goto T867; |
goto T858; |
2091 |
goto T869; |
goto T860; |
2092 |
T869:; |
T860:; |
2093 |
base[1]= Cnil; |
base[1]= Cnil; |
2094 |
goto T867; |
goto T858; |
2095 |
T867:; |
T858:; |
2096 |
bds_bind(VV[147],base[1]); |
bds_bind(VV[147],base[1]); |
2097 |
bds_bind(VV[135],symbol_value(VV[135])); |
bds_bind(VV[135],(VV[135]->s.s_dbind)); |
2098 |
princ_str("\n{ ",VV[26]); |
princ_str("\n{ ",VV[26]); |
2099 |
V302= structure_ref(cadr((V284)),VV[63],1); |
(void)((*(LnkLI318))(STREF(object,CMPcadr((V297)),4),(V296),VV[149])); |
|
(void)((*(LnkLI315))(/* INLINE-ARGS */V302,(V283),VV[149])); |
|
2100 |
princ_str(" VMB",VV[26]); |
princ_str(" VMB",VV[26]); |
2101 |
(void)((*(LnkLI275))((V301))); |
(void)((*(LnkLI275))((V315))); |
2102 |
princ_str(" VMS",VV[26]); |
princ_str(" VMS",VV[26]); |
2103 |
(void)((*(LnkLI275))((V301))); |
(void)((*(LnkLI275))((V315))); |
2104 |
princ_str(" VMV",VV[26]); |
princ_str(" VMV",VV[26]); |
2105 |
(void)((*(LnkLI275))((V301))); |
(void)((*(LnkLI275))((V315))); |
2106 |
if(((V285))==Cnil){ |
if(((V298))==Cnil){ |
2107 |
goto T881;} |
goto T872;} |
2108 |
princ_str("\n bds_check;",VV[26]); |
princ_str("\n bds_check;",VV[26]); |
2109 |
goto T881; |
goto T872; |
2110 |
T881:; |
T872:; |
2111 |
if((symbol_value(VV[150]))==Cnil){ |
if(((VV[150]->s.s_dbind))==Cnil){ |
2112 |
goto T885;} |
goto T876;} |
2113 |
princ_str("\n ihs_check;",VV[26]); |
princ_str("\n ihs_check;",VV[26]); |
2114 |
goto T885; |
goto T876; |
2115 |
T885:; |
T876:; |
2116 |
if(((VV[147]->s.s_dbind))==Cnil){ |
if(((VV[147]->s.s_dbind))==Cnil){ |
2117 |
goto T889;} |
goto T880;} |
2118 |
(VV[135]->s.s_dbind)= make_cons(VV[151],(VV[135]->s.s_dbind)); |
(VV[135]->s.s_dbind)= make_cons(VV[151],(VV[135]->s.s_dbind)); |
2119 |
princ_str("\n goto TTL;",VV[26]); |
princ_str("\n goto TTL;",VV[26]); |
2120 |
princ_str("\nTTL:;",VV[26]); |
princ_str("\nTTL:;",VV[26]); |
2121 |
goto T889; |
goto T880; |
2122 |
T889:; |
T880:; |
2123 |
{register object V304; |
{register object V317; |
2124 |
register object V305; |
register object V318; |
2125 |
V304= (V287); |
V317= (V300); |
2126 |
V305= car((V304)); |
V318= CMPcar((V317)); |
2127 |
goto T901; |
goto T892; |
2128 |
T901:; |
T892:; |
2129 |
if(!(endp_prop((V304)))){ |
if(!(((V317))==Cnil)){ |
2130 |
goto T902;} |
goto T893;} |
2131 |
goto T897; |
goto T888; |
2132 |
goto T902; |
goto T893; |
2133 |
T902:; |
T893:; |
2134 |
princ_str("\n bds_bind(VV[",VV[26]); |
princ_str("\n bds_bind(VV[",VV[26]); |
2135 |
(void)((*(LnkLI275))(cdr((V305)))); |
(void)((*(LnkLI275))(CMPcdr((V318)))); |
2136 |
princ_str("],V",VV[26]); |
princ_str("],V",VV[26]); |
2137 |
V306= structure_ref(car((V305)),VV[70],4); |
(void)((*(LnkLI275))(STREF(object,CMPcar((V318)),16))); |
|
(void)((*(LnkLI275))(/* INLINE-ARGS */V306)); |
|
2138 |
princ_str(");",VV[26]); |
princ_str(");",VV[26]); |
2139 |
(VV[135]->s.s_dbind)= make_cons(VV[152],(VV[135]->s.s_dbind)); |
(VV[135]->s.s_dbind)= make_cons(VV[152],(VV[135]->s.s_dbind)); |
2140 |
(void)(structure_set(car((V305)),VV[70],1,VV[72])); |
V320= CMPcar((V318)); |
2141 |
(void)(structure_set(car((V305)),VV[70],4,cdr((V305)))); |
V321= Ct; |
2142 |
V304= cdr((V304)); |
STSET(object,/* INLINE-ARGS */V320,4, VV[72]); |
2143 |
V305= car((V304)); |
(void)(VV[72]); |
2144 |
goto T901;} |
V322= CMPcar((V318)); |
2145 |
goto T897; |
V323= CMPcdr((V318)); |
2146 |
T897:; |
V324= Ct; |
2147 |
base[3]= caddr(cddr((V284))); |
STSET(object,/* INLINE-ARGS */V322,16, /* INLINE-ARGS */V323); |
2148 |
|
(void)(/* INLINE-ARGS */V323); |
2149 |
|
V317= CMPcdr((V317)); |
2150 |
|
V318= CMPcar((V317)); |
2151 |
|
goto T892;} |
2152 |
|
goto T888; |
2153 |
|
T888:; |
2154 |
|
base[3]= CMPcaddr(CMPcddr((V297))); |
2155 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2156 |
(void) (*Lnk316)(); |
(void) (*Lnk319)(); |
2157 |
vs_top=sup; |
vs_top=sup; |
2158 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[131]))==0)){ |
if(!(number_compare(small_fixnum(0),(VV[131]->s.s_dbind))==0)){ |
2159 |
goto T925;} |
goto T916;} |
2160 |
if((symbol_value(VV[139]))!=Cnil){ |
if(((VV[139]->s.s_dbind))!=Cnil){ |
2161 |
goto T925;} |
goto T916;} |
2162 |
if((symbol_value(VV[141]))!=Cnil){ |
if(((VV[141]->s.s_dbind))!=Cnil){ |
2163 |
goto T925;} |
goto T916;} |
2164 |
goto T923; |
goto T914; |
2165 |
goto T925; |
goto T916; |
2166 |
T925:; |
T916:; |
2167 |
princ_str("\n base[0]=base[0];",VV[26]); |
princ_str("\n base[0]=base[0];",VV[26]); |
2168 |
|
goto T914; |
2169 |
|
T914:; |
2170 |
|
V325= (*(LnkLI281))(CMPcaddr((V299))); |
2171 |
|
if(!(equal(VV[153],/* INLINE-ARGS */V325))){ |
2172 |
|
goto T923;} |
2173 |
|
princ_str("\n return Cnil;",VV[26]); |
2174 |
goto T923; |
goto T923; |
2175 |
T923:; |
T923:; |
|
V308= (*(LnkLI281))(caddr((V286))); |
|
|
if(!(equal(VV[153],/* INLINE-ARGS */V308))){ |
|
|
goto T932;} |
|
|
princ_str("\n return Cnil;",VV[26]); |
|
|
goto T932; |
|
|
T932:; |
|
2176 |
princ_str("\n}",VV[26]); |
princ_str("\n}",VV[26]); |
2177 |
{object V309 = (*(LnkLI317))((V301),caddr((V286))); |
{object V326 = (*(LnkLI320))((V315),CMPcaddr((V299))); |
2178 |
bds_unwind1; |
bds_unwind1; |
2179 |
bds_unwind1; |
bds_unwind1; |
2180 |
VMR23(V309)}}} |
VMR23(V326)}}} |
2181 |
base[0]=base[0]; |
base[0]=base[0]; |
2182 |
return Cnil; |
return Cnil; |
2183 |
} |
} |
2184 |
/* local entry for function SET-UP-VAR-CVS */ |
/* local entry for function SET-UP-VAR-CVS */ |
2185 |
|
|
2186 |
static object LI24(V311) |
static object LI24(V328) |
2187 |
|
|
2188 |
object V311; |
object V328; |
2189 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
2190 |
goto TTL; |
goto TTL; |
2191 |
TTL:; |
TTL:; |
2192 |
if((symbol_value(VV[154]))==Cnil){ |
if(((VV[154]->s.s_dbind))==Cnil){ |
2193 |
goto T939;} |
goto T930;} |
2194 |
V312= (*(LnkLI318))(); |
V329= (*(LnkLI321))(); |
2195 |
{object V313 = structure_set((V311),VV[70],2,/* INLINE-ARGS */V312); |
V330= Ct; |
2196 |
VMR24(V313)} |
STSET(object,(V328),8, /* INLINE-ARGS */V329); |
2197 |
goto T939; |
{object V331 = /* INLINE-ARGS */V329; |
2198 |
T939:; |
VMR24(V331)} |
2199 |
V314= (*(LnkLI319))(); |
goto T930; |
2200 |
{object V315 = structure_set((V311),VV[70],2,/* INLINE-ARGS */V314); |
T930:; |
2201 |
VMR24(V315)} |
V332= (*(LnkLI322))(); |
2202 |
|
V333= Ct; |
2203 |
|
STSET(object,(V328),8, /* INLINE-ARGS */V332); |
2204 |
|
{object V334 = /* INLINE-ARGS */V332; |
2205 |
|
VMR24(V334)} |
2206 |
return Cnil; |
return Cnil; |
2207 |
} |
} |
2208 |
/* local entry for function T3DEFUN-VARARG */ |
/* local entry for function T3DEFUN-VARARG */ |
2209 |
|
|
2210 |
static object LI25(V320,V321,V322,V323) |
static object LI25(V339,V340,V341,V342) |
2211 |
|
|
2212 |
object V320;object V321;object V322;object V323; |
object V339;object V340;object V341;object V342; |
2213 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
2214 |
bds_check; |
bds_check; |
2215 |
goto TTL; |
goto TTL; |
2216 |
TTL:; |
TTL:; |
2217 |
{object V324; |
{object V343; |
2218 |
register object V325; |
register object V344; |
2219 |
object V326; |
object V345; |
2220 |
object V327; |
object V346; |
2221 |
object V328; |
object V347; |
2222 |
object V329; |
object V348; |
2223 |
object V330; |
object V349; |
2224 |
object V331; |
object V350; |
2225 |
V324= Cnil; |
V343= Cnil; |
2226 |
bds_bind(VV[154],Cnil); |
bds_bind(VV[154],Cnil); |
2227 |
base[1]= Cnil; |
base[1]= Cnil; |
2228 |
V325= Cnil; |
V344= Cnil; |
2229 |
V326= Ct; |
V345= Ct; |
2230 |
V327= Cnil; |
V346= Cnil; |
2231 |
bds_bind(VV[155],small_fixnum(0)); |
bds_bind(VV[155],small_fixnum(0)); |
2232 |
V328= Cnil; |
V347= Cnil; |
2233 |
V329= caddr((V322)); |
V348= CMPcaddr((V341)); |
2234 |
V330= Cnil;{object V332; |
V349= Cnil;{object V351; |
2235 |
V332= caddr((V329)); |
V351= CMPcaddr((V348)); |
2236 |
if(V332==Cnil)goto T949; |
if(V351==Cnil)goto T940; |
2237 |
V331= V332; |
V350= V351; |
2238 |
goto T948; |
goto T939; |
2239 |
goto T949; |
goto T940; |
2240 |
T949:;}{object V333; |
T940:;}{object V352; |
2241 |
V333= cadr((V329)); |
V352= CMPcadr((V348)); |
2242 |
if(V333==Cnil)goto T951; |
if(V352==Cnil)goto T942; |
2243 |
V331= V333; |
V350= V352; |
2244 |
goto T948; |
goto T939; |
2245 |
goto T951; |
goto T942; |
2246 |
T951:;} |
T942:;} |
2247 |
V331= cadddr((V329)); |
V350= CMPcadddr((V348)); |
2248 |
|
goto T939; |
2249 |
|
T939:; |
2250 |
|
{object V353; |
2251 |
|
register object V354; |
2252 |
|
V353= CMPcar((V348)); |
2253 |
|
V354= CMPcar((V353)); |
2254 |
goto T948; |
goto T948; |
2255 |
T948:; |
T948:; |
2256 |
{object V334; |
if(!(((V353))==Cnil)){ |
2257 |
register object V335; |
goto T949;} |
2258 |
V334= car((V329)); |
goto T944; |
2259 |
V335= car((V334)); |
goto T949; |
2260 |
goto T957; |
T949:; |
2261 |
T957:; |
{object V355; |
2262 |
if(!(endp_prop((V334)))){ |
(VV[89]->s.s_dbind)= number_plus((VV[89]->s.s_dbind),small_fixnum(1)); |
2263 |
goto T958;} |
V355= list(2,VV[156],(VV[89]->s.s_dbind)); |
2264 |
goto T953; |
V343= make_cons((V355),(V343));} |
2265 |
goto T958; |
V353= CMPcdr((V353)); |
2266 |
T958:; |
V354= CMPcar((V353)); |
2267 |
{object V336; |
goto T948;} |
2268 |
setq(VV[89],number_plus(symbol_value(VV[89]),small_fixnum(1))); |
goto T944; |
2269 |
V336= list(2,VV[156],symbol_value(VV[89])); |
T944:; |
2270 |
V324= make_cons((V336),(V324));} |
(void)((VFUN_NARGS=2,(*(LnkLI316))(VV[157],(V339)))); |
2271 |
V334= cdr((V334)); |
{object V356; |
2272 |
V335= car((V334)); |
V356= VV[158]; |
|
goto T957;} |
|
|
goto T953; |
|
|
T953:; |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI313))(VV[157],(V320)))); |
|
|
{object V337; |
|
|
V337= VV[158]; |
|
2273 |
princ_str("\nstatic object LI",VV[26]); |
princ_str("\nstatic object LI",VV[26]); |
2274 |
(void)((*(LnkLI275))((V321))); |
(void)((*(LnkLI275))((V340))); |
2275 |
princ_char(40,VV[26]); |
princ_char(40,VV[26]); |
2276 |
if(((V324))==Cnil){ |
if(((V343))==Cnil){ |
2277 |
goto T977;} |
goto T968;} |
2278 |
{object V338; |
{object V357; |
2279 |
V338= (V324); |
V357= (V343); |
2280 |
goto T981; |
goto T972; |
2281 |
T981:; |
T972:; |
2282 |
if(((V338))!=Cnil){ |
if(((V357))!=Cnil){ |
2283 |
goto T982;} |
goto T973;} |
2284 |
goto T977; |
goto T968; |
2285 |
|
goto T973; |
2286 |
|
T973:; |
2287 |
|
princ_str("object ",VV[26]); |
2288 |
|
(void)((*(LnkLI275))(CMPcar((V357)))); |
2289 |
|
V356= (VFUN_NARGS=3,(*(LnkLI323))(VV[159],(V356),VV[160])); |
2290 |
|
if(!((CMPcdr((V357)))==Cnil)){ |
2291 |
|
goto T983;} |
2292 |
|
goto T982; |
2293 |
|
goto T983; |
2294 |
|
T983:; |
2295 |
|
princ_char(44,VV[26]); |
2296 |
|
V356= (VFUN_NARGS=3,(*(LnkLI323))(VV[159],(V356),VV[161])); |
2297 |
goto T982; |
goto T982; |
2298 |
T982:; |
T982:; |
2299 |
princ_str("object ",VV[26]); |
V357= CMPcdr((V357)); |
2300 |
(void)((*(LnkLI275))(car((V338)))); |
goto T972;} |
2301 |
V337= (VFUN_NARGS=3,(*(LnkLI320))(VV[159],(V337),VV[160])); |
goto T968; |
2302 |
if(!((cdr((V338)))==Cnil)){ |
T968:; |
2303 |
goto T992;} |
if(((V350))==Cnil){ |
2304 |
goto T991; |
goto T991;} |
2305 |
goto T992; |
if(((V343))==Cnil){ |
2306 |
T992:; |
goto T994;} |
2307 |
princ_char(44,VV[26]); |
princ_char(44,VV[26]); |
2308 |
V337= (VFUN_NARGS=3,(*(LnkLI320))(VV[159],(V337),VV[161])); |
V356= (VFUN_NARGS=3,(*(LnkLI323))(VV[159],(V356),VV[162])); |
2309 |
|
goto T994; |
2310 |
|
T994:; |
2311 |
|
princ_str("object first,...",VV[26]); |
2312 |
|
V356= (VFUN_NARGS=3,(*(LnkLI323))(VV[159],(V356),VV[163])); |
2313 |
goto T991; |
goto T991; |
2314 |
T991:; |
T991:; |
|
V338= cdr((V338)); |
|
|
goto T981;} |
|
|
goto T977; |
|
|
T977:; |
|
|
if(((V331))==Cnil){ |
|
|
goto T1000;} |
|
|
if(((V324))==Cnil){ |
|
|
goto T1003;} |
|
|
princ_char(44,VV[26]); |
|
|
V337= (VFUN_NARGS=3,(*(LnkLI320))(VV[159],(V337),VV[162])); |
|
|
goto T1003; |
|
|
T1003:; |
|
|
princ_str("object first,...",VV[26]); |
|
|
V337= (VFUN_NARGS=3,(*(LnkLI320))(VV[159],(V337),VV[163])); |
|
|
goto T1000; |
|
|
T1000:; |
|
2315 |
princ_char(41,VV[26]); |
princ_char(41,VV[26]); |
2316 |
princ_str("\nstatic object LI",VV[32]); |
princ_str("\nstatic object LI",VV[32]); |
2317 |
(void)((*(LnkLI278))((V321))); |
(void)((*(LnkLI278))((V340))); |
2318 |
princ_char(40,VV[32]); |
princ_char(40,VV[32]); |
2319 |
(void)((*(LnkLI278))((V337))); |
(void)((*(LnkLI278))((V356))); |
2320 |
princ_str(");",VV[32]);} |
princ_str(");",VV[32]);} |
2321 |
{object V339; |
{object V358; |
2322 |
V339= symbol_value(VV[137]); |
V358= (VV[137]->s.s_dbind); |
2323 |
if(symbol_value(VV[148])==Cnil){ |
if((VV[148]->s.s_dbind)==Cnil){ |
2324 |
base[5]= Cnil; |
base[5]= Cnil; |
2325 |
goto T1020;} |
goto T1011;} |
2326 |
if((caddr((V329)))==Cnil){ |
if((CMPcaddr((V348)))==Cnil){ |
2327 |
goto T1021;} |
goto T1012;} |
2328 |
base[5]= Cnil; |
base[5]= Cnil; |
2329 |
|
goto T1011; |
2330 |
|
goto T1012; |
2331 |
|
T1012:; |
2332 |
|
{object V359; |
2333 |
|
object V360; |
2334 |
|
V359= CMPcar((V348)); |
2335 |
|
V360= CMPcar((V359)); |
2336 |
|
goto T1019; |
2337 |
|
T1019:; |
2338 |
|
if(!(((V359))==Cnil)){ |
2339 |
|
goto T1020;} |
2340 |
|
goto T1014; |
2341 |
goto T1020; |
goto T1020; |
2342 |
goto T1021; |
T1020:; |
2343 |
T1021:; |
if((STREF(object,(V360),12))==Cnil){ |
2344 |
{object V340; |
goto T1024;} |
2345 |
object V341; |
goto T1015; |
|
V340= car((V329)); |
|
|
V341= car((V340)); |
|
|
goto T1028; |
|
|
T1028:; |
|
|
if(!(endp_prop((V340)))){ |
|
|
goto T1029;} |
|
|
goto T1023; |
|
|
goto T1029; |
|
|
T1029:; |
|
|
if((structure_ref((V341),VV[70],3))==Cnil){ |
|
|
goto T1033;} |
|
|
goto T1024; |
|
|
goto T1033; |
|
|
T1033:; |
|
|
V340= cdr((V340)); |
|
|
V341= car((V340)); |
|
|
goto T1028;} |
|
2346 |
goto T1024; |
goto T1024; |
2347 |
T1024:; |
T1024:; |
2348 |
|
V359= CMPcdr((V359)); |
2349 |
|
V360= CMPcar((V359)); |
2350 |
|
goto T1019;} |
2351 |
|
goto T1015; |
2352 |
|
T1015:; |
2353 |
base[5]= Cnil; |
base[5]= Cnil; |
2354 |
goto T1020; |
goto T1011; |
2355 |
goto T1023; |
goto T1014; |
2356 |
T1023:; |
T1014:; |
2357 |
if((cadr((V329)))==Cnil){ |
if((CMPcadr((V348)))==Cnil){ |
2358 |
goto T1041;} |
goto T1032;} |
2359 |
base[5]= Cnil; |
base[5]= Cnil; |
2360 |
goto T1020; |
goto T1011; |
2361 |
goto T1041; |
goto T1032; |
2362 |
T1041:; |
T1032:; |
2363 |
if((car(cddddr((V329))))==Cnil){ |
if((CMPcar(CMPcddddr((V348))))==Cnil){ |
2364 |
goto T1043;} |
goto T1034;} |
2365 |
base[5]= Cnil; |
base[5]= Cnil; |
2366 |
goto T1020; |
goto T1011; |
2367 |
goto T1043; |
goto T1034; |
2368 |
T1043:; |
T1034:; |
2369 |
base[5]= make_cons((V320),car((V329))); |
base[5]= make_cons((V339),CMPcar((V348))); |
2370 |
goto T1020; |
goto T1011; |
2371 |
T1020:; |
T1011:; |
2372 |
bds_bind(VV[147],base[5]); |
bds_bind(VV[147],base[5]); |
2373 |
bds_bind(VV[135],symbol_value(VV[135])); |
bds_bind(VV[135],(VV[135]->s.s_dbind)); |
2374 |
princ_str("\n{ ",VV[26]); |
princ_str("\n{ ",VV[26]); |
2375 |
if(((V331))==Cnil){ |
if(((V350))==Cnil){ |
2376 |
goto T1047;} |
goto T1038;} |
2377 |
princ_str("\n va_list ap;",VV[26]); |
princ_str("\n va_list ap;",VV[26]); |
2378 |
goto T1047; |
goto T1038; |
2379 |
T1047:; |
T1038:; |
2380 |
princ_str("\n int narg = VFUN_NARGS;",VV[26]); |
princ_str("\n int narg = VFUN_NARGS;",VV[26]); |
2381 |
V342= structure_ref(cadr((V322)),VV[63],1); |
(void)((*(LnkLI318))(STREF(object,CMPcadr((V341)),4),(V340),VV[149])); |
|
(void)((*(LnkLI315))(/* INLINE-ARGS */V342,(V321),VV[149])); |
|
2382 |
princ_str(" VMB",VV[26]); |
princ_str(" VMB",VV[26]); |
2383 |
(void)((*(LnkLI275))((V339))); |
(void)((*(LnkLI275))((V358))); |
2384 |
princ_str(" VMS",VV[26]); |
princ_str(" VMS",VV[26]); |
2385 |
(void)((*(LnkLI275))((V339))); |
(void)((*(LnkLI275))((V358))); |
2386 |
princ_str(" VMV",VV[26]); |
princ_str(" VMV",VV[26]); |
2387 |
(void)((*(LnkLI275))((V339))); |
(void)((*(LnkLI275))((V358))); |
2388 |
if(((V323))==Cnil){ |
if(((V342))==Cnil){ |
2389 |
goto T1061;} |
goto T1052;} |
2390 |
princ_str("\n bds_check;",VV[26]); |
princ_str("\n bds_check;",VV[26]); |
2391 |
goto T1061; |
goto T1052; |
2392 |
T1061:; |
T1052:; |
2393 |
if((symbol_value(VV[150]))==Cnil){ |
if(((VV[150]->s.s_dbind))==Cnil){ |
2394 |
goto T1065;} |
goto T1056;} |
2395 |
princ_str("\n ihs_check;",VV[26]); |
princ_str("\n ihs_check;",VV[26]); |
2396 |
goto T1065; |
goto T1056; |
2397 |
T1065:; |
T1056:; |
2398 |
if((V331)!=Cnil){ |
if((V350)!=Cnil){ |
2399 |
goto T1069;} |
goto T1060;} |
2400 |
princ_str("\n if ( narg!= ",VV[26]); |
princ_str("\n if ( narg!= ",VV[26]); |
2401 |
V343 = make_fixnum((long)length((V324))); |
V361 = CMPmake_fixnum((long)length((V343))); |
2402 |
(void)((*(LnkLI275))(V343)); |
(void)((*(LnkLI275))(V361)); |
2403 |
princ_str(") vfun_wrong_number_of_args(small_fixnum(",VV[26]); |
princ_str(") vfun_wrong_number_of_args(small_fixnum(",VV[26]); |
2404 |
V344 = make_fixnum((long)length((V324))); |
V362 = CMPmake_fixnum((long)length((V343))); |
2405 |
(void)((*(LnkLI275))(V344)); |
(void)((*(LnkLI275))(V362)); |
2406 |
princ_str("));",VV[26]); |
princ_str("));",VV[26]); |
2407 |
goto T1069; |
goto T1060; |
2408 |
T1069:; |
T1060:; |
2409 |
{object V345; |
{object V363; |
2410 |
object V346; |
object V364; |
2411 |
V345= car((V329)); |
V363= CMPcar((V348)); |
2412 |
V346= car((V345)); |
V364= CMPcar((V363)); |
2413 |
goto T1080; |
goto T1071; |
2414 |
T1080:; |
T1071:; |
2415 |
if(!(endp_prop((V345)))){ |
if(!(((V363))==Cnil)){ |
2416 |
goto T1081;} |
goto T1072;} |
2417 |
goto T1076; |
goto T1067; |
2418 |
goto T1081; |
goto T1072; |
2419 |
T1081:; |
T1072:; |
2420 |
base[9]= (V346); |
base[9]= (V364); |
2421 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2422 |
L26(base); |
L26(base); |
2423 |
vs_top=sup; |
vs_top=sup; |
2424 |
V345= cdr((V345)); |
V363= CMPcdr((V363)); |
2425 |
V346= car((V345)); |
V364= CMPcar((V363)); |
2426 |
goto T1080;} |
goto T1071;} |
2427 |
goto T1076; |
goto T1067; |
2428 |
T1076:; |
T1067:; |
2429 |
{object V347; |
{object V365; |
2430 |
object V348; |
object V366; |
2431 |
V347= cadr((V329)); |
V365= CMPcadr((V348)); |
2432 |
V348= car((V347)); |
V366= CMPcar((V365)); |
2433 |
goto T1096; |
goto T1087; |
2434 |
T1096:; |
T1087:; |
2435 |
if(!(endp_prop((V347)))){ |
if(!(((V365))==Cnil)){ |
2436 |
goto T1097;} |
goto T1088;} |
2437 |
goto T1092; |
goto T1083; |
2438 |
goto T1097; |
goto T1088; |
2439 |
T1097:; |
T1088:; |
2440 |
base[9]= car((V348)); |
base[9]= CMPcar((V366)); |
2441 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2442 |
L26(base); |
L26(base); |
2443 |
vs_top=sup; |
vs_top=sup; |
2444 |
if((caddr((V348)))==Cnil){ |
if((CMPcaddr((V366)))==Cnil){ |
2445 |
goto T1103;} |
goto T1094;} |
2446 |
base[9]= caddr((V348)); |
base[9]= CMPcaddr((V366)); |
2447 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2448 |
L26(base); |
L26(base); |
2449 |
vs_top=sup; |
vs_top=sup; |
2450 |
goto T1103; |
goto T1094; |
2451 |
T1103:; |
T1094:; |
2452 |
V347= cdr((V347)); |
V365= CMPcdr((V365)); |
2453 |
V348= car((V347)); |
V366= CMPcar((V365)); |
2454 |
goto T1096;} |
goto T1087;} |
2455 |
goto T1092; |
goto T1083; |
2456 |
T1092:; |
T1083:; |
2457 |
if((caddr((V329)))==Cnil){ |
if((CMPcaddr((V348)))==Cnil){ |
2458 |
goto T1112;} |
goto T1103;} |
2459 |
base[7]= caddr((V329)); |
base[7]= CMPcaddr((V348)); |
2460 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
2461 |
L26(base); |
L26(base); |
2462 |
vs_top=sup; |
vs_top=sup; |
2463 |
goto T1112; |
goto T1103; |
2464 |
T1112:; |
T1103:; |
2465 |
{object V349; |
{object V367; |
2466 |
object V350; |
object V368; |
2467 |
V349= car(cddddr((V329))); |
V367= CMPcar(CMPcddddr((V348))); |
2468 |
V350= car((V349)); |
V368= CMPcar((V367)); |
2469 |
goto T1119; |
goto T1110; |
2470 |
T1119:; |
T1110:; |
2471 |
if(!(endp_prop((V349)))){ |
if(!(((V367))==Cnil)){ |
2472 |
goto T1120;} |
goto T1111;} |
2473 |
goto T1075; |
goto T1066; |
2474 |
goto T1120; |
goto T1111; |
2475 |
T1120:; |
T1111:; |
2476 |
base[9]= cadr((V350)); |
base[9]= CMPcadr((V368)); |
2477 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2478 |
L26(base); |
L26(base); |
2479 |
vs_top=sup; |
vs_top=sup; |
2480 |
if((cadddr((V350)))==Cnil){ |
if((CMPcadddr((V368)))==Cnil){ |
2481 |
goto T1126;} |
goto T1117;} |
2482 |
base[9]= cadddr((V350)); |
base[9]= CMPcadddr((V368)); |
2483 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2484 |
L26(base); |
L26(base); |
2485 |
vs_top=sup; |
vs_top=sup; |
2486 |
|
goto T1117; |
2487 |
|
T1117:; |
2488 |
|
V367= CMPcdr((V367)); |
2489 |
|
V368= CMPcar((V367)); |
2490 |
|
goto T1110;} |
2491 |
|
goto T1066; |
2492 |
|
T1066:; |
2493 |
|
if((CMPcadr((V348)))!=Cnil){ |
2494 |
|
goto T1127;} |
2495 |
|
if((CMPcaddr((V348)))!=Cnil){ |
2496 |
|
goto T1127;} |
2497 |
|
if((CMPcadddr((V348)))==Cnil){ |
2498 |
|
goto T1126;} |
2499 |
|
goto T1127; |
2500 |
|
T1127:; |
2501 |
|
if(((V349))!=Cnil){ |
2502 |
|
goto T1126;} |
2503 |
|
V349= Ct; |
2504 |
|
princ_str("\n va_start(ap,first);",VV[26]); |
2505 |
goto T1126; |
goto T1126; |
2506 |
T1126:; |
T1126:; |
2507 |
V349= cdr((V349)); |
if(((VV[164]->s.s_dbind))!=Cnil){ |
2508 |
V350= car((V349)); |
goto T1140;} |
2509 |
goto T1119;} |
if(((VV[165]->s.s_dbind))==Cnil){ |
2510 |
goto T1075; |
goto T1138;} |
2511 |
T1075:; |
goto T1140; |
2512 |
if((cadr((V329)))!=Cnil){ |
T1140:; |
2513 |
goto T1136;} |
if((CMPcar((V348)))==Cnil){ |
2514 |
if((caddr((V329)))!=Cnil){ |
goto T1138;} |
|
goto T1136;} |
|
|
if((cadddr((V329)))==Cnil){ |
|
|
goto T1135;} |
|
|
goto T1136; |
|
|
T1136:; |
|
|
if(((V330))!=Cnil){ |
|
|
goto T1135;} |
|
|
V330= Ct; |
|
|
princ_str("\n va_start(ap,first);",VV[26]); |
|
|
goto T1135; |
|
|
T1135:; |
|
|
if((symbol_value(VV[164]))!=Cnil){ |
|
|
goto T1149;} |
|
|
if((symbol_value(VV[165]))==Cnil){ |
|
|
goto T1147;} |
|
|
goto T1149; |
|
|
T1149:; |
|
|
if((car((V329)))==Cnil){ |
|
|
goto T1147;} |
|
2515 |
princ_str("\n if(narg <",VV[26]); |
princ_str("\n if(narg <",VV[26]); |
2516 |
V351 = make_fixnum((long)length(car((V329)))); |
V369 = CMPmake_fixnum((long)length(CMPcar((V348)))); |
2517 |
(void)((*(LnkLI275))(V351)); |
(void)((*(LnkLI275))(V369)); |
2518 |
princ_str(") too_few_arguments();",VV[26]); |
princ_str(") too_few_arguments();",VV[26]); |
2519 |
goto T1147; |
goto T1138; |
2520 |
T1147:; |
T1138:; |
2521 |
{object V352; |
{object V370; |
2522 |
object V353; |
object V371; |
2523 |
V352= car((V329)); |
V370= CMPcar((V348)); |
2524 |
V353= car((V352)); |
V371= CMPcar((V370)); |
2525 |
goto T1161; |
goto T1152; |
2526 |
T1161:; |
T1152:; |
2527 |
if(!(endp_prop((V352)))){ |
if(!(((V370))==Cnil)){ |
2528 |
goto T1162;} |
goto T1153;} |
2529 |
goto T1157; |
goto T1148; |
2530 |
goto T1162; |
goto T1153; |
2531 |
T1162:; |
T1153:; |
2532 |
(void)((*(LnkLI321))((V353))); |
(void)((*(LnkLI324))((V371))); |
2533 |
V352= cdr((V352)); |
V370= CMPcdr((V370)); |
2534 |
V353= car((V352)); |
V371= CMPcar((V370)); |
2535 |
goto T1161;} |
goto T1152;} |
2536 |
goto T1157; |
goto T1148; |
2537 |
T1157:; |
T1148:; |
2538 |
{object V354; |
{object V372; |
2539 |
object V355; |
object V373; |
2540 |
V354= cadr((V329)); |
V372= CMPcadr((V348)); |
2541 |
V355= car((V354)); |
V373= CMPcar((V372)); |
2542 |
goto T1176; |
goto T1167; |
2543 |
T1176:; |
T1167:; |
2544 |
if(!(endp_prop((V354)))){ |
if(!(((V372))==Cnil)){ |
2545 |
goto T1177;} |
goto T1168;} |
2546 |
goto T1172; |
goto T1163; |
2547 |
goto T1177; |
goto T1168; |
2548 |
T1177:; |
T1168:; |
2549 |
(void)((*(LnkLI321))(car((V355)))); |
(void)((*(LnkLI324))(CMPcar((V373)))); |
2550 |
V354= cdr((V354)); |
V372= CMPcdr((V372)); |
2551 |
V355= car((V354)); |
V373= CMPcar((V372)); |
2552 |
goto T1176;} |
goto T1167;} |
2553 |
goto T1172; |
goto T1163; |
2554 |
T1172:; |
T1163:; |
2555 |
if((caddr((V329)))==Cnil){ |
if((CMPcaddr((V348)))==Cnil){ |
2556 |
goto T1187;} |
goto T1178;} |
2557 |
(void)((*(LnkLI321))(caddr((V329)))); |
(void)((*(LnkLI324))(CMPcaddr((V348)))); |
2558 |
goto T1187; |
goto T1178; |
2559 |
T1187:; |
T1178:; |
2560 |
if(((VV[154]->s.s_dbind))==Cnil){ |
if(((VV[154]->s.s_dbind))==Cnil){ |
2561 |
goto T1193;} |
goto T1184;} |
2562 |
V327= symbol_value(VV[130]); |
V346= (VV[130]->s.s_dbind); |
2563 |
goto T1191; |
goto T1182; |
2564 |
goto T1193; |
goto T1184; |
2565 |
T1193:; |
T1184:; |
2566 |
V327= symbol_value(VV[142]); |
V346= (VV[142]->s.s_dbind); |
2567 |
|
goto T1182; |
2568 |
|
T1182:; |
2569 |
|
{object V374; |
2570 |
|
object V375; |
2571 |
|
V374= CMPcar(CMPcddddr((V348))); |
2572 |
|
V375= CMPcar((V374)); |
2573 |
|
goto T1190; |
2574 |
|
T1190:; |
2575 |
|
if(!(((V374))==Cnil)){ |
2576 |
|
goto T1191;} |
2577 |
|
goto T1186; |
2578 |
goto T1191; |
goto T1191; |
2579 |
T1191:; |
T1191:; |
2580 |
{object V356; |
(void)((*(LnkLI324))(CMPcadr((V375)))); |
2581 |
object V357; |
V374= CMPcdr((V374)); |
2582 |
V356= car(cddddr((V329))); |
V375= CMPcar((V374)); |
2583 |
V357= car((V356)); |
goto T1190;} |
2584 |
goto T1199; |
goto T1186; |
2585 |
T1199:; |
T1186:; |
2586 |
if(!(endp_prop((V356)))){ |
{object V376; |
2587 |
goto T1200;} |
object V377; |
2588 |
goto T1195; |
V376= CMPcar(CMPcddddr((V348))); |
2589 |
goto T1200; |
V377= CMPcar((V376)); |
2590 |
T1200:; |
goto T1205; |
2591 |
(void)((*(LnkLI321))(cadr((V357)))); |
T1205:; |
2592 |
V356= cdr((V356)); |
if(!(((V376))==Cnil)){ |
2593 |
V357= car((V356)); |
goto T1206;} |
2594 |
goto T1199;} |
goto T1201; |
2595 |
goto T1195; |
goto T1206; |
2596 |
T1195:; |
T1206:; |
2597 |
{object V358; |
(void)((*(LnkLI324))(CMPcadddr((V377)))); |
2598 |
object V359; |
V376= CMPcdr((V376)); |
2599 |
V358= car(cddddr((V329))); |
V377= CMPcar((V376)); |
2600 |
V359= car((V358)); |
goto T1205;} |
2601 |
goto T1214; |
goto T1201; |
2602 |
T1214:; |
T1201:; |
2603 |
if(!(endp_prop((V358)))){ |
{object V378; |
2604 |
goto T1215;} |
object V379; |
2605 |
goto T1210; |
V379= CMPcar((V348)); |
2606 |
goto T1215; |
V378= (V343); |
2607 |
T1215:; |
goto T1219; |
2608 |
(void)((*(LnkLI321))(cadddr((V359)))); |
T1219:; |
2609 |
V358= cdr((V358)); |
if(((V378))!=Cnil){ |
2610 |
V359= car((V358)); |
goto T1220;} |
2611 |
goto T1214;} |
goto T1216; |
2612 |
goto T1210; |
goto T1220; |
2613 |
T1210:; |
T1220:; |
2614 |
{object V360; |
(void)((*(LnkLI325))(CMPcar((V379)),CMPcar((V378)))); |
2615 |
object V361; |
V378= CMPcdr((V378)); |
2616 |
V361= car((V329)); |
V379= CMPcdr((V379)); |
2617 |
V360= (V324); |
goto T1219;} |
2618 |
goto T1228; |
goto T1216; |
2619 |
T1228:; |
T1216:; |
2620 |
if(((V360))!=Cnil){ |
if((CMPcadr((V348)))==Cnil){ |
2621 |
goto T1229;} |
goto T1229;} |
2622 |
goto T1225; |
bds_bind(VV[134],(VV[134]->s.s_dbind)); |
|
goto T1229; |
|
|
T1229:; |
|
|
(void)((*(LnkLI322))(car((V361)),car((V360)))); |
|
|
V360= cdr((V360)); |
|
|
V361= cdr((V361)); |
|
|
goto T1228;} |
|
|
goto T1225; |
|
|
T1225:; |
|
|
if((cadr((V329)))==Cnil){ |
|
|
goto T1238;} |
|
|
bds_bind(VV[134],symbol_value(VV[134])); |
|
2623 |
bds_bind(VV[135],(VV[135]->s.s_dbind)); |
bds_bind(VV[135],(VV[135]->s.s_dbind)); |
2624 |
bds_bind(VV[133],symbol_value(VV[133])); |
bds_bind(VV[133],(VV[133]->s.s_dbind)); |
2625 |
princ_str("\n narg = narg - ",VV[26]); |
princ_str("\n narg = narg - ",VV[26]); |
2626 |
V362 = make_fixnum((long)length((V324))); |
V380 = CMPmake_fixnum((long)length((V343))); |
2627 |
(void)((*(LnkLI275))(V362)); |
(void)((*(LnkLI275))(V380)); |
2628 |
princ_char(59,VV[26]); |
princ_char(59,VV[26]); |
2629 |
{object V363; |
{object V381; |
2630 |
V363= Ct; |
V381= Ct; |
2631 |
{object V364; |
{object V382; |
2632 |
object V365; |
object V383; |
2633 |
V364= cadr((V329)); |
V382= CMPcadr((V348)); |
2634 |
V365= car((V364)); |
V383= CMPcar((V382)); |
2635 |
goto T1249; |
goto T1240; |
2636 |
T1249:; |
T1240:; |
2637 |
if(!(endp_prop((V364)))){ |
if(!(((V382))==Cnil)){ |
2638 |
goto T1250;} |
goto T1241;} |
2639 |
bds_unwind1; |
bds_unwind1; |
2640 |
bds_unwind1; |
bds_unwind1; |
2641 |
bds_unwind1; |
bds_unwind1; |
2642 |
|
goto T1232; |
2643 |
goto T1241; |
goto T1241; |
2644 |
goto T1250; |
T1241:; |
2645 |
T1250:; |
{object V384; |
2646 |
{object V366; |
(VV[166]->s.s_dbind)= number_plus((VV[166]->s.s_dbind),small_fixnum(1)); |
2647 |
setq(VV[166],number_plus(symbol_value(VV[166]),small_fixnum(1))); |
V384= make_cons((VV[166]->s.s_dbind),Cnil); |
2648 |
V366= make_cons(symbol_value(VV[166]),Cnil); |
V344= make_cons((V384),(V344));} |
|
V325= make_cons((V366),(V325));} |
|
2649 |
princ_str("\n if (",VV[26]); |
princ_str("\n if (",VV[26]); |
2650 |
if((cdr((V325)))==Cnil){ |
if((CMPcdr((V344)))==Cnil){ |
2651 |
goto T1263;} |
goto T1254;} |
2652 |
V367= VV[167]; |
V385= VV[167]; |
2653 |
goto T1261; |
goto T1252; |
2654 |
goto T1263; |
goto T1254; |
2655 |
T1263:; |
T1254:; |
2656 |
V367= VV[168]; |
V385= VV[168]; |
2657 |
goto T1261; |
goto T1252; |
2658 |
T1261:; |
T1252:; |
2659 |
(void)((*(LnkLI275))(V367)); |
(void)((*(LnkLI275))(V385)); |
2660 |
princ_str("narg <= 0) ",VV[26]); |
princ_str("narg <= 0) ",VV[26]); |
2661 |
if(type_of(car((V325)))!=t_cons)FEwrong_type_argument(Scons,car((V325))); |
(CMPcar((V344)))->c.c_cdr = Ct; |
2662 |
(car((V325)))->c.c_cdr = Ct; |
(void)(CMPcar((V344))); |
|
(void)(car((V325))); |
|
2663 |
princ_str("goto T",VV[26]); |
princ_str("goto T",VV[26]); |
2664 |
(void)((*(LnkLI275))(car(car((V325))))); |
(void)((*(LnkLI275))(CMPcar(CMPcar((V344))))); |
2665 |
princ_char(59,VV[26]); |
princ_char(59,VV[26]); |
2666 |
princ_str("\n else {",VV[26]); |
princ_str("\n else {",VV[26]); |
2667 |
if(((V330))!=Cnil){ |
if(((V349))!=Cnil){ |
2668 |
goto T1273;} |
goto T1264;} |
2669 |
V330= Ct; |
V349= Ct; |
2670 |
princ_str("\n va_start(ap,first);",VV[26]); |
princ_str("\n va_start(ap,first);",VV[26]); |
2671 |
|
goto T1264; |
2672 |
|
T1264:; |
2673 |
|
V386= CMPcar((V383)); |
2674 |
|
if(((V381))==Cnil){ |
2675 |
|
goto T1273;} |
2676 |
|
V387= make_cons(VV[169],Cnil); |
2677 |
|
goto T1271; |
2678 |
goto T1273; |
goto T1273; |
2679 |
T1273:; |
T1273:; |
2680 |
V368= car((V365)); |
V387= make_cons(VV[170],Cnil); |
2681 |
if(((V363))==Cnil){ |
goto T1271; |
2682 |
goto T1282;} |
T1271:; |
2683 |
V369= make_cons(VV[169],Cnil); |
(void)((*(LnkLI325))(/* INLINE-ARGS */V386,V387)); |
2684 |
goto T1280; |
V381= Cnil; |
|
goto T1282; |
|
|
T1282:; |
|
|
V369= make_cons(VV[170],Cnil); |
|
|
goto T1280; |
|
|
T1280:; |
|
|
(void)((*(LnkLI322))(/* INLINE-ARGS */V368,V369)); |
|
|
V363= Cnil; |
|
2685 |
princ_char(125,VV[26]); |
princ_char(125,VV[26]); |
2686 |
if((caddr((V365)))==Cnil){ |
if((CMPcaddr((V383)))==Cnil){ |
2687 |
goto T1288;} |
goto T1279;} |
2688 |
(void)((*(LnkLI322))(caddr((V365)),Ct)); |
(void)((*(LnkLI325))(CMPcaddr((V383)),Ct)); |
2689 |
goto T1288; |
goto T1279; |
2690 |
T1288:; |
T1279:; |
2691 |
V364= cdr((V364)); |
V382= CMPcdr((V382)); |
2692 |
V365= car((V364)); |
V383= CMPcar((V382)); |
2693 |
goto T1249;}} |
goto T1240;}} |
2694 |
goto T1241; |
goto T1232; |
2695 |
T1241:; |
T1232:; |
2696 |
V325= nreverse((V325)); |
V344= nreverse((V344)); |
2697 |
{object V370; |
{object V388; |
2698 |
setq(VV[166],number_plus(symbol_value(VV[166]),small_fixnum(1))); |
(VV[166]->s.s_dbind)= number_plus((VV[166]->s.s_dbind),small_fixnum(1)); |
2699 |
V370= make_cons(symbol_value(VV[166]),Cnil); |
V388= make_cons((VV[166]->s.s_dbind),Cnil); |
2700 |
princ_str("\n --narg; ",VV[26]); |
princ_str("\n --narg; ",VV[26]); |
2701 |
if(type_of((V370))!=t_cons)FEwrong_type_argument(Scons,(V370)); |
((V388))->c.c_cdr = Ct; |
|
((V370))->c.c_cdr = Ct; |
|
2702 |
princ_str("goto T",VV[26]); |
princ_str("goto T",VV[26]); |
2703 |
(void)((*(LnkLI275))(car((V370)))); |
(void)((*(LnkLI275))(CMPcar((V388)))); |
2704 |
princ_char(59,VV[26]); |
princ_char(59,VV[26]); |
2705 |
{object V371; |
{object V389; |
2706 |
object V372; |
object V390; |
2707 |
V371= cadr((V329)); |
V389= CMPcadr((V348)); |
2708 |
V372= car((V371)); |
V390= CMPcar((V389)); |
2709 |
goto T1311; |
goto T1302; |
2710 |
T1311:; |
T1302:; |
2711 |
if(!(endp_prop((V371)))){ |
if(!(((V389))==Cnil)){ |
2712 |
goto T1312;} |
goto T1303;} |
2713 |
goto T1307; |
goto T1298; |
2714 |
goto T1312; |
goto T1303; |
2715 |
T1312:; |
T1303:; |
2716 |
if((cdr(car((V325))))==Cnil){ |
if((CMPcdr(CMPcar((V344))))==Cnil){ |
2717 |
goto T1316;} |
goto T1307;} |
2718 |
princ_str("\n goto T",VV[26]); |
princ_str("\n goto T",VV[26]); |
2719 |
(void)((*(LnkLI275))(car(car((V325))))); |
(void)((*(LnkLI275))(CMPcar(CMPcar((V344))))); |
2720 |
princ_char(59,VV[26]); |
princ_char(59,VV[26]); |
2721 |
princ_str("\nT",VV[26]); |
princ_str("\nT",VV[26]); |
2722 |
(void)((*(LnkLI275))(car(car((V325))))); |
(void)((*(LnkLI275))(CMPcar(CMPcar((V344))))); |
2723 |
princ_str(":;",VV[26]); |
princ_str(":;",VV[26]); |
|
goto T1316; |
|
|
T1316:; |
|
|
{object V373; |
|
|
V373= car((V325)); |
|
|
V325= cdr((V325));} |
|
|
(void)((*(LnkLI323))(car((V372)),cadr((V372)))); |
|
|
if((caddr((V372)))==Cnil){ |
|
|
goto T1331;} |
|
|
(void)((*(LnkLI322))(caddr((V372)),Cnil)); |
|
|
goto T1331; |
|
|
T1331:; |
|
|
V371= cdr((V371)); |
|
|
V372= car((V371)); |
|
|
goto T1311;} |
|
2724 |
goto T1307; |
goto T1307; |
2725 |
T1307:; |
T1307:; |
2726 |
if((cdr((V370)))==Cnil){ |
{object V391; |
2727 |
goto T1238;} |
V391= CMPcar((V344)); |
2728 |
|
V344= CMPcdr((V344));} |
2729 |
|
(void)((*(LnkLI326))(CMPcar((V390)),CMPcadr((V390)))); |
2730 |
|
if((CMPcaddr((V390)))==Cnil){ |
2731 |
|
goto T1322;} |
2732 |
|
(void)((*(LnkLI325))(CMPcaddr((V390)),Cnil)); |
2733 |
|
goto T1322; |
2734 |
|
T1322:; |
2735 |
|
V389= CMPcdr((V389)); |
2736 |
|
V390= CMPcar((V389)); |
2737 |
|
goto T1302;} |
2738 |
|
goto T1298; |
2739 |
|
T1298:; |
2740 |
|
if((CMPcdr((V388)))==Cnil){ |
2741 |
|
goto T1229;} |
2742 |
princ_str("\n goto T",VV[26]); |
princ_str("\n goto T",VV[26]); |
2743 |
(void)((*(LnkLI275))(car((V370)))); |
(void)((*(LnkLI275))(CMPcar((V388)))); |
2744 |
princ_char(59,VV[26]); |
princ_char(59,VV[26]); |
2745 |
princ_str("\nT",VV[26]); |
princ_str("\nT",VV[26]); |
2746 |
(void)((*(LnkLI275))(car((V370)))); |
(void)((*(LnkLI275))(CMPcar((V388)))); |
2747 |
princ_str(":;",VV[26]);} |
princ_str(":;",VV[26]);} |
2748 |
goto T1238; |
goto T1229; |
2749 |
T1238:; |
T1229:; |
2750 |
if((caddr((V329)))==Cnil){ |
if((CMPcaddr((V348)))==Cnil){ |
2751 |
goto T1348;} |
goto T1339;} |
2752 |
V328= (VFUN_NARGS=0,(*(LnkLI324))()); |
V347= (VFUN_NARGS=0,(*(LnkLI327))()); |
2753 |
{object V374; |
{object V392; |
2754 |
V374= cadr((V329)); |
V392= CMPcadr((V348)); |
2755 |
if(((V374))==Cnil){ |
if(((V392))==Cnil){ |
2756 |
goto T1356;} |
goto T1347;} |
2757 |
goto T1353; |
goto T1344; |
2758 |
goto T1356; |
goto T1347; |
2759 |
T1356:; |
T1347:; |
2760 |
princ_str("\n narg= narg - ",VV[26]); |
princ_str("\n narg= narg - ",VV[26]); |
2761 |
V375 = make_fixnum((long)length(car((V329)))); |
V393 = CMPmake_fixnum((long)length(CMPcar((V348)))); |
2762 |
(void)((*(LnkLI275))(V375)); |
(void)((*(LnkLI275))(V393)); |
2763 |
princ_char(59,VV[26]);} |
princ_char(59,VV[26]);} |
2764 |
goto T1353; |
goto T1344; |
2765 |
T1353:; |
T1344:; |
2766 |
if(((V330))!=Cnil){ |
if(((V349))!=Cnil){ |
2767 |
goto T1361;} |
goto T1352;} |
2768 |
V330= Ct; |
V349= Ct; |
2769 |
princ_str("\n va_start(ap,first);",VV[26]); |
princ_str("\n va_start(ap,first);",VV[26]); |
2770 |
goto T1361; |
goto T1352; |
2771 |
T1361:; |
T1352:; |
2772 |
princ_str("\n V",VV[26]); |
princ_str("\n V",VV[26]); |
2773 |
(void)((*(LnkLI275))((V328))); |
(void)((*(LnkLI275))((V347))); |
2774 |
princ_str(" = ",VV[26]); |
princ_str(" = ",VV[26]); |
2775 |
V376= structure_ref(caddr((V329)),VV[70],5); |
if(!((STREF(object,CMPcaddr((V348)),20))==(VV[172]))){ |
2776 |
if(!((/* INLINE-ARGS */V376)==(VV[172]))){ |
goto T1363;} |
|
goto T1372;} |
|
2777 |
base[7]= Ct; |
base[7]= Ct; |
2778 |
goto T1371; |
goto T1362; |
2779 |
goto T1372; |
goto T1363; |
2780 |
T1372:; |
T1363:; |
2781 |
base[7]= symbol_value(VV[171]); |
base[7]= (VV[171]->s.s_dbind); |
2782 |
goto T1371; |
goto T1362; |
2783 |
T1371:; |
T1362:; |
2784 |
bds_bind(VV[171],base[7]); |
bds_bind(VV[171],base[7]); |
2785 |
if((cadddr((V329)))==Cnil){ |
if((CMPcadddr((V348)))==Cnil){ |
2786 |
goto T1376;} |
goto T1367;} |
2787 |
if(((VV[171]->s.s_dbind))==Cnil){ |
if(((VV[171]->s.s_dbind))==Cnil){ |
2788 |
goto T1379;} |
goto T1370;} |
2789 |
princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[26]); |
princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[26]); |
2790 |
goto T1374; |
goto T1365; |
2791 |
goto T1379; |
goto T1370; |
2792 |
T1379:; |
T1370:; |
2793 |
princ_str("make_list(narg);",VV[26]); |
princ_str("make_list(narg);",VV[26]); |
2794 |
goto T1374; |
goto T1365; |
2795 |
goto T1376; |
goto T1367; |
2796 |
T1376:; |
T1367:; |
2797 |
if(((VV[171]->s.s_dbind))==Cnil){ |
if(((VV[171]->s.s_dbind))==Cnil){ |
2798 |
goto T1384;} |
goto T1375;} |
2799 |
princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));",VV[26]); |
princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));",VV[26]); |
2800 |
goto T1374; |
goto T1365; |
2801 |
goto T1384; |
goto T1375; |
2802 |
T1384:; |
T1375:; |
2803 |
princ_str("list_vector_new(narg,first,ap);",VV[26]); |
princ_str("list_vector_new(narg,first,ap);",VV[26]); |
2804 |
goto T1374; |
goto T1365; |
2805 |
T1374:; |
T1365:; |
2806 |
V377= caddr((V329)); |
V394= CMPcaddr((V348)); |
2807 |
V378= list(2,VV[156],(V328)); |
V395= list(2,VV[156],(V347)); |
2808 |
V379= (*(LnkLI322))(/* INLINE-ARGS */V377,/* INLINE-ARGS */V378); |
V396= (*(LnkLI325))(/* INLINE-ARGS */V394,/* INLINE-ARGS */V395); |
2809 |
bds_unwind1; |
bds_unwind1; |
2810 |
goto T1348; |
goto T1339; |
2811 |
T1348:; |
T1339:; |
2812 |
if((cadddr((V329)))==Cnil){ |
if((CMPcadddr((V348)))==Cnil){ |
2813 |
goto T1388;} |
goto T1379;} |
2814 |
{object V380; |
{object V397; |
2815 |
V380= caddr((V329)); |
V397= CMPcaddr((V348)); |
2816 |
if(((V380))==Cnil){ |
if(((V397))==Cnil){ |
2817 |
goto T1394;} |
goto T1385;} |
2818 |
goto T1391; |
goto T1382; |
2819 |
goto T1394; |
goto T1385; |
2820 |
T1394:; |
T1385:; |
2821 |
{object V381; |
{object V398; |
2822 |
V381= cadr((V329)); |
V398= CMPcadr((V348)); |
2823 |
if(((V381))==Cnil){ |
if(((V398))==Cnil){ |
2824 |
goto T1398;} |
goto T1389;} |
2825 |
goto T1391; |
goto T1382; |
2826 |
goto T1398; |
goto T1389; |
2827 |
T1398:; |
T1389:; |
2828 |
princ_str("\n narg= narg - ",VV[26]); |
princ_str("\n narg= narg - ",VV[26]); |
2829 |
V382 = make_fixnum((long)length(car((V329)))); |
V399 = CMPmake_fixnum((long)length(CMPcar((V348)))); |
2830 |
(void)((*(LnkLI275))(V382)); |
(void)((*(LnkLI275))(V399)); |
2831 |
princ_char(59,VV[26]);}} |
princ_char(59,VV[26]);}} |
2832 |
goto T1391; |
goto T1382; |
2833 |
T1391:; |
T1382:; |
2834 |
if(((V330))!=Cnil){ |
if(((V349))!=Cnil){ |
2835 |
goto T1403;} |
goto T1394;} |
2836 |
V330= Ct; |
V349= Ct; |
2837 |
princ_str("\n va_start(ap,first);",VV[26]); |
princ_str("\n va_start(ap,first);",VV[26]); |
2838 |
goto T1403; |
goto T1394; |
2839 |
T1403:; |
T1394:; |
2840 |
{object V383; |
{object V400; |
2841 |
object V384= car(cddddr((V329))); |
object V401= CMPcar(CMPcddddr((V348))); |
2842 |
if(endp(V384)){ |
if(V401==Cnil){ |
2843 |
V326= Cnil; |
V345= Cnil; |
2844 |
goto T1410;} |
goto T1401;} |
2845 |
base[7]=V383=MMcons(Cnil,Cnil); |
base[7]=V400=MMcons(Cnil,Cnil); |
2846 |
goto T1411; |
goto T1402; |
2847 |
T1411:; |
T1402:; |
2848 |
(V383->c.c_car)= caddr((V384->c.c_car)); |
(V400->c.c_car)= CMPcaddr((V401->c.c_car)); |
2849 |
V384=MMcdr(V384); |
if((V401=MMcdr(V401))==Cnil){ |
2850 |
if(endp(V384)){ |
V345= base[7]; |
2851 |
V326= base[7]; |
goto T1401;} |
2852 |
goto T1410;} |
V400=MMcdr(V400)=MMcons(Cnil,Cnil); |
2853 |
V383=MMcdr(V383)=MMcons(Cnil,Cnil); |
goto T1402;} |
2854 |
goto T1411;} |
goto T1401; |
2855 |
|
T1401:; |
2856 |
|
{object V402; |
2857 |
|
object V403; |
2858 |
|
V403= CMPmake_fixnum((long)length(CMPcar(CMPcddddr((V348))))); |
2859 |
|
V402= Cnil; |
2860 |
|
{register object V404; |
2861 |
|
object V405; |
2862 |
|
object V406; |
2863 |
|
V404= (V345); |
2864 |
|
V405= CMPcar(CMPcddddr((V348))); |
2865 |
|
V406= CMPcar((V405)); |
2866 |
goto T1410; |
goto T1410; |
2867 |
T1410:; |
T1410:; |
2868 |
{object V385; |
if(((V404))!=Cnil){ |
2869 |
object V386; |
goto T1411;} |
2870 |
V386= make_fixnum((long)length(car(cddddr((V329))))); |
goto T1405; |
2871 |
V385= Cnil; |
goto T1411; |
2872 |
{register object V387; |
T1411:; |
2873 |
object V388; |
if(!((CMPcaar((V404)))==(VV[173]))){ |
2874 |
object V389; |
goto T1416;} |
2875 |
V387= (V326); |
if((CMPcaddr(CMPcar((V404))))==(Cnil)){ |
2876 |
V388= car(cddddr((V329))); |
goto T1415;} |
2877 |
V389= car((V388)); |
goto T1416; |
2878 |
goto T1419; |
T1416:; |
2879 |
T1419:; |
V402= Ct; |
2880 |
if(((V387))!=Cnil){ |
goto T1415; |
2881 |
goto T1420;} |
T1415:; |
2882 |
goto T1414; |
if(!((CMPcaar((V404)))==(VV[173]))){ |
2883 |
goto T1420; |
goto T1422;} |
2884 |
T1420:; |
{object V407; |
2885 |
if(!((caar((V387)))==(VV[173]))){ |
V407= CMPcaddr(CMPcar((V404))); |
2886 |
goto T1425;} |
if(!(((V407))==(Cnil))){ |
2887 |
if((caddr(car((V387))))==(Cnil)){ |
goto T1428;} |
2888 |
goto T1424;} |
goto T1426; |
2889 |
goto T1425; |
goto T1428; |
2890 |
T1425:; |
T1428:; |
2891 |
V385= Ct; |
if(type_of((V407))==t_cons){ |
|
goto T1424; |
|
|
T1424:; |
|
|
if(!((caar((V387)))==(VV[173]))){ |
|
|
goto T1431;} |
|
|
{object V390; |
|
|
V390= caddr(car((V387))); |
|
|
if(!(((V390))==(Cnil))){ |
|
|
goto T1437;} |
|
|
goto T1435; |
|
|
goto T1437; |
|
|
T1437:; |
|
|
if(type_of((V390))==t_cons){ |
|
|
goto T1439;} |
|
|
goto T1431; |
|
|
goto T1439; |
|
|
T1439:; |
|
|
{register object x= car((V390)),V391= VV[174]; |
|
|
while(!endp(V391)) |
|
|
if(eql(x,V391->c.c_car)){ |
|
|
goto T1435; |
|
|
}else V391=V391->c.c_cdr; |
|
|
goto T1431;}} |
|
|
goto T1435; |
|
|
T1435:; |
|
|
V392= structure_ref(cadddr((V389)),VV[70],1); |
|
|
if((/* INLINE-ARGS */V392)==(VV[175])){ |
|
2892 |
goto T1430;} |
goto T1430;} |
2893 |
goto T1431; |
goto T1422; |
|
T1431:; |
|
|
V385= Ct; |
|
|
if(type_of(V387)!=t_cons)FEwrong_type_argument(Scons,V387); |
|
|
(V387)->c.c_car = small_fixnum(0); |
|
2894 |
goto T1430; |
goto T1430; |
2895 |
T1430:; |
T1430:; |
2896 |
V387= cdr((V387)); |
{register object x= CMPcar((V407)),V408= VV[174]; |
2897 |
V388= cdr((V388)); |
while(V408!=Cnil) |
2898 |
V389= car((V388)); |
if(eql(x,V408->c.c_car)){ |
2899 |
goto T1419;} |
goto T1426; |
2900 |
goto T1414; |
}else V408=V408->c.c_cdr; |
2901 |
T1414:; |
goto T1422;}} |
2902 |
if(!(((long)length((V326)))>(15))){ |
goto T1426; |
2903 |
goto T1452;} |
T1426:; |
2904 |
V385= Ct; |
if((STREF(object,CMPcadddr((V406)),4))==(VV[175])){ |
2905 |
goto T1452; |
goto T1421;} |
2906 |
T1452:; |
goto T1422; |
2907 |
|
T1422:; |
2908 |
|
V402= Ct; |
2909 |
|
(V404)->c.c_car = small_fixnum(0); |
2910 |
|
goto T1421; |
2911 |
|
T1421:; |
2912 |
|
V404= CMPcdr((V404)); |
2913 |
|
V405= CMPcdr((V405)); |
2914 |
|
V406= CMPcar((V405)); |
2915 |
|
goto T1410;} |
2916 |
|
goto T1405; |
2917 |
|
T1405:; |
2918 |
|
if(!(((long)length((V345)))>(15))){ |
2919 |
|
goto T1443;} |
2920 |
|
V402= Ct; |
2921 |
|
goto T1443; |
2922 |
|
T1443:; |
2923 |
princ_str("\n {",VV[26]); |
princ_str("\n {",VV[26]); |
2924 |
vs_base=vs_top; |
(void)((*(LnkLI328))()); |
2925 |
(void) (*Lnk325)(); |
bds_bind(VV[26],(VV[32]->s.s_dbind)); |
2926 |
vs_top=sup; |
if(((V402))==Cnil){ |
2927 |
bds_bind(VV[26],symbol_value(VV[32])); |
goto T1451;} |
|
if(((V385))==Cnil){ |
|
|
goto T1460;} |
|
2928 |
princ_char(10,VV[32]); |
princ_char(10,VV[32]); |
2929 |
princ_str("static object VK",VV[26]); |
princ_str("static object VK",VV[26]); |
2930 |
(void)((*(LnkLI275))((V321))); |
(void)((*(LnkLI275))((V340))); |
2931 |
princ_str("defaults[",VV[26]); |
princ_str("defaults[",VV[26]); |
2932 |
V395 = make_fixnum((long)length((V326))); |
V411 = CMPmake_fixnum((long)length((V345))); |
2933 |
(void)((*(LnkLI275))(V395)); |
(void)((*(LnkLI275))(V411)); |
2934 |
princ_str("]={",VV[26]); |
princ_str("]={",VV[26]); |
2935 |
{object V396; |
{object V412; |
2936 |
register object V397; |
register object V413; |
2937 |
V396= (V326); |
V412= (V345); |
2938 |
V397= Cnil; |
V413= Cnil; |
2939 |
|
goto T1463; |
2940 |
|
T1463:; |
2941 |
|
if(((V412))!=Cnil){ |
2942 |
|
goto T1464;} |
2943 |
|
goto T1461; |
2944 |
|
goto T1464; |
2945 |
|
T1464:; |
2946 |
|
princ_str("(void *)",VV[26]); |
2947 |
|
if(!(eql(CMPcar((V412)),small_fixnum(0)))){ |
2948 |
|
goto T1472;} |
2949 |
|
princ_str("-1",VV[26]); |
2950 |
|
goto T1470; |
2951 |
goto T1472; |
goto T1472; |
2952 |
T1472:; |
T1472:; |
2953 |
if(((V396))!=Cnil){ |
V413= CMPcaddr(CMPcar((V412))); |
2954 |
goto T1473;} |
if(!(((V413))==(Cnil))){ |
2955 |
|
goto T1476;} |
2956 |
|
princ_str("-2",VV[26]); |
2957 |
goto T1470; |
goto T1470; |
2958 |
goto T1473; |
goto T1476; |
2959 |
T1473:; |
T1476:; |
2960 |
princ_str("(void *)",VV[26]); |
if(!(type_of((V413))==t_cons)){ |
|
if(!(eql(car((V396)),small_fixnum(0)))){ |
|
2961 |
goto T1481;} |
goto T1481;} |
2962 |
princ_str("-1",VV[26]); |
if(!((CMPcar((V413)))==(VV[176]))){ |
2963 |
goto T1479; |
goto T1481;} |
2964 |
|
(void)((*(LnkLI275))(CMPcadr((V413)))); |
2965 |
|
goto T1470; |
2966 |
goto T1481; |
goto T1481; |
2967 |
T1481:; |
T1481:; |
2968 |
V397= caddr(car((V396))); |
if(!(type_of((V413))==t_cons)){ |
2969 |
if(!(((V397))==(Cnil))){ |
goto T1487;} |
2970 |
goto T1485;} |
if(!((CMPcar((V413)))==(VV[177]))){ |
2971 |
princ_str("-2",VV[26]); |
goto T1487;} |
2972 |
goto T1479; |
V414= (*(LnkLI329))(CMPcaddr((V413))); |
2973 |
goto T1485; |
(void)((*(LnkLI275))(/* INLINE-ARGS */V414)); |
2974 |
T1485:; |
goto T1470; |
2975 |
if(!(type_of((V397))==t_cons)){ |
goto T1487; |
2976 |
goto T1490;} |
T1487:; |
2977 |
if(!((car((V397)))==(VV[176]))){ |
(void)((*(LnkLI330))()); |
|
goto T1490;} |
|
|
(void)((*(LnkLI275))(cadr((V397)))); |
|
|
goto T1479; |
|
|
goto T1490; |
|
|
T1490:; |
|
|
if(!(type_of((V397))==t_cons)){ |
|
|
goto T1496;} |
|
|
if(!((car((V397)))==(VV[177]))){ |
|
|
goto T1496;} |
|
|
V398= (*(LnkLI326))(caddr((V397))); |
|
|
(void)((*(LnkLI275))(/* INLINE-ARGS */V398)); |
|
|
goto T1479; |
|
|
goto T1496; |
|
|
T1496:; |
|
|
(void)((*(LnkLI327))()); |
|
|
goto T1479; |
|
|
T1479:; |
|
|
if((cdr((V396)))==Cnil){ |
|
|
goto T1501;} |
|
|
princ_char(44,VV[26]); |
|
|
goto T1501; |
|
|
T1501:; |
|
|
V396= cdr((V396)); |
|
|
goto T1472;} |
|
2978 |
goto T1470; |
goto T1470; |
2979 |
T1470:; |
T1470:; |
2980 |
|
if((CMPcdr((V412)))==Cnil){ |
2981 |
|
goto T1492;} |
2982 |
|
princ_char(44,VV[26]); |
2983 |
|
goto T1492; |
2984 |
|
T1492:; |
2985 |
|
V412= CMPcdr((V412)); |
2986 |
|
goto T1463;} |
2987 |
|
goto T1461; |
2988 |
|
T1461:; |
2989 |
princ_str("};",VV[26]); |
princ_str("};",VV[26]); |
2990 |
goto T1460; |
goto T1451; |
2991 |
T1460:; |
T1451:; |
2992 |
princ_char(10,VV[32]); |
princ_char(10,VV[32]); |
2993 |
princ_str("static struct { short n,allow_other_keys;",VV[26]); |
princ_str("static struct { short n,allow_other_keys;",VV[26]); |
2994 |
princ_str("object *defaults;",VV[26]); |
princ_str("object *defaults;",VV[26]); |
2995 |
princ_str("\n KEYTYPE keys[",VV[26]); |
princ_str("\n KEYTYPE keys[",VV[26]); |
2996 |
(void)((*(LnkLI275))((number_compare((V386),small_fixnum(1))>=0?((V386)):small_fixnum(1)))); |
(void)((*(LnkLI275))((number_compare((V403),small_fixnum(1))>=0?((V403)):small_fixnum(1)))); |
2997 |
princ_str("];",VV[26]); |
princ_str("];",VV[26]); |
2998 |
princ_str("} LI",VV[26]); |
princ_str("} LI",VV[26]); |
2999 |
(void)((*(LnkLI275))((V321))); |
(void)((*(LnkLI275))((V340))); |
3000 |
princ_str("key=",VV[26]); |
princ_str("key=",VV[26]); |
3001 |
princ_char(123,VV[26]); |
princ_char(123,VV[26]); |
3002 |
V399 = make_fixnum((long)length(car(cddddr((V329))))); |
V415 = CMPmake_fixnum((long)length(CMPcar(CMPcddddr((V348))))); |
3003 |
(void)((*(LnkLI275))(V399)); |
(void)((*(LnkLI275))(V415)); |
3004 |
princ_char(44,VV[26]); |
princ_char(44,VV[26]); |
3005 |
if((cadr(cddddr((V329))))==Cnil){ |
if((CMPcadr(CMPcddddr((V348))))==Cnil){ |
3006 |
goto T1528;} |
goto T1519;} |
3007 |
V400= small_fixnum(1); |
V416= small_fixnum(1); |
3008 |
goto T1526; |
goto T1517; |
3009 |
goto T1528; |
goto T1519; |
3010 |
T1528:; |
T1519:; |
3011 |
V400= small_fixnum(0); |
V416= small_fixnum(0); |
3012 |
goto T1526; |
goto T1517; |
3013 |
T1526:; |
T1517:; |
3014 |
(void)((*(LnkLI275))(V400)); |
(void)((*(LnkLI275))(V416)); |
3015 |
princ_char(44,VV[26]); |
princ_char(44,VV[26]); |
3016 |
if(((V385))==Cnil){ |
if(((V402))==Cnil){ |
3017 |
goto T1533;} |
goto T1524;} |
3018 |
princ_str("VK",VV[26]); |
princ_str("VK",VV[26]); |
3019 |
(void)((*(LnkLI275))((V321))); |
(void)((*(LnkLI275))((V340))); |
3020 |
princ_str("defaults",VV[26]); |
princ_str("defaults",VV[26]); |
3021 |
goto T1531; |
goto T1522; |
3022 |
goto T1533; |
goto T1524; |
3023 |
T1533:; |
T1524:; |
3024 |
princ_str("Cstd_key_defaults",VV[26]); |
princ_str("Cstd_key_defaults",VV[26]); |
3025 |
goto T1531; |
goto T1522; |
3026 |
T1531:; |
T1522:; |
3027 |
if((car(cddddr((V329))))==Cnil){ |
if((CMPcar(CMPcddddr((V348))))==Cnil){ |
3028 |
goto T1539;} |
goto T1530;} |
3029 |
princ_str(",{",VV[26]); |
princ_str(",{",VV[26]); |
3030 |
{object V401; |
{object V417; |
3031 |
V401= reverse(car(cddddr((V329)))); |
V417= reverse(CMPcar(CMPcddddr((V348)))); |
3032 |
goto T1547; |
goto T1538; |
3033 |
T1547:; |
T1538:; |
3034 |
if(((V401))!=Cnil){ |
if(((V417))!=Cnil){ |
3035 |
goto T1548;} |
goto T1539;} |
3036 |
goto T1544; |
goto T1535; |
3037 |
goto T1548; |
goto T1539; |
3038 |
T1548:; |
T1539:; |
3039 |
princ_str("(void *)",VV[26]); |
princ_str("(void *)",VV[26]); |
3040 |
V402= (*(LnkLI328))(caar((V401))); |
V418= (*(LnkLI331))(CMPcaar((V417))); |
3041 |
(void)((*(LnkLI275))(/* INLINE-ARGS */V402)); |
(void)((*(LnkLI275))(/* INLINE-ARGS */V418)); |
3042 |
if((cdr((V401)))==Cnil){ |
if((CMPcdr((V417)))==Cnil){ |
|
goto T1556;} |
|
|
princ_char(44,VV[26]); |
|
|
goto T1556; |
|
|
T1556:; |
|
|
V401= cdr((V401)); |
|
3043 |
goto T1547;} |
goto T1547;} |
3044 |
goto T1544; |
princ_char(44,VV[26]); |
3045 |
T1544:; |
goto T1547; |
3046 |
|
T1547:; |
3047 |
|
V417= CMPcdr((V417)); |
3048 |
|
goto T1538;} |
3049 |
|
goto T1535; |
3050 |
|
T1535:; |
3051 |
princ_char(125,VV[26]); |
princ_char(125,VV[26]); |
3052 |
goto T1539; |
goto T1530; |
3053 |
T1539:; |
T1530:; |
3054 |
princ_str("};",VV[26]); |
princ_str("};",VV[26]); |
3055 |
bds_unwind1; |
bds_unwind1; |
3056 |
if((caddr((V329)))==Cnil){ |
if((CMPcaddr((V348)))==Cnil){ |
3057 |
goto T1567;} |
goto T1558;} |
3058 |
princ_str("\n parse_key_rest_new(",VV[26]); |
princ_str("\n parse_key_rest_new(",VV[26]); |
3059 |
V403= list(2,VV[156],(V328)); |
V419= list(2,VV[156],(V347)); |
3060 |
(void)((*(LnkLI275))(/* INLINE-ARGS */V403)); |
(void)((*(LnkLI275))(/* INLINE-ARGS */V419)); |
3061 |
princ_char(44,VV[26]); |
princ_char(44,VV[26]); |
3062 |
goto T1565; |
goto T1556; |
3063 |
goto T1567; |
goto T1558; |
3064 |
T1567:; |
T1558:; |
3065 |
princ_str("\n parse_key_new_new(",VV[26]); |
princ_str("\n parse_key_new_new(",VV[26]); |
3066 |
goto T1565; |
goto T1556; |
3067 |
T1565:; |
T1556:; |
3068 |
if(!(eql(small_fixnum(0),symbol_value(VV[142])))){ |
if(!(eql(small_fixnum(0),(VV[142]->s.s_dbind)))){ |
3069 |
goto T1573;} |
goto T1564;} |
3070 |
setq(VV[142],small_fixnum(1)); |
(VV[142]->s.s_dbind)= small_fixnum(1); |
3071 |
goto T1573; |
goto T1564; |
3072 |
T1573:; |
T1564:; |
3073 |
princ_str("narg,",VV[26]); |
princ_str("narg,",VV[26]); |
3074 |
if(((VV[154]->s.s_dbind))==Cnil){ |
if(((VV[154]->s.s_dbind))==Cnil){ |
3075 |
goto T1581;} |
goto T1572;} |
3076 |
V404= VV[178]; |
V420= VV[178]; |
3077 |
goto T1579; |
goto T1570; |
3078 |
goto T1581; |
goto T1572; |
3079 |
T1581:; |
T1572:; |
3080 |
setq(VV[17],Ct); |
(VV[17]->s.s_dbind)= Ct; |
3081 |
V404= VV[179]; |
V420= VV[179]; |
3082 |
goto T1579; |
goto T1570; |
3083 |
T1579:; |
T1570:; |
3084 |
(void)((*(LnkLI275))(V404)); |
(void)((*(LnkLI275))(V420)); |
3085 |
princ_char(43,VV[26]); |
princ_char(43,VV[26]); |
3086 |
(void)((*(LnkLI275))((V327))); |
(void)((*(LnkLI275))((V346))); |
3087 |
princ_str(",(struct key *)(void *)&LI",VV[26]); |
princ_str(",(struct key *)(void *)&LI",VV[26]); |
3088 |
(void)((*(LnkLI275))((V321))); |
(void)((*(LnkLI275))((V340))); |
3089 |
princ_str("key,first,ap);",VV[26]);} |
princ_str("key,first,ap);",VV[26]);} |
3090 |
goto T1388; |
goto T1379; |
3091 |
T1388:; |
T1379:; |
3092 |
{object V405; |
{object V421; |
3093 |
register object V406; |
register object V422; |
3094 |
V405= car(cddddr((V329))); |
V421= CMPcar(CMPcddddr((V348))); |
3095 |
V406= car((V405)); |
V422= CMPcar((V421)); |
3096 |
goto T1594; |
goto T1585; |
3097 |
T1594:; |
T1585:; |
3098 |
if(!(endp_prop((V405)))){ |
if(!(((V421))==Cnil)){ |
3099 |
goto T1595;} |
goto T1586;} |
3100 |
|
goto T1581; |
3101 |
|
goto T1586; |
3102 |
|
T1586:; |
3103 |
|
{object V424; |
3104 |
|
V424= CMPcar((V345)); |
3105 |
|
V345= CMPcdr((V345)); |
3106 |
|
V423= (V424);} |
3107 |
|
if(eql(small_fixnum(0),V423)){ |
3108 |
|
goto T1592;} |
3109 |
|
(void)((*(LnkLI332))(CMPcadr((V422)))); |
3110 |
goto T1590; |
goto T1590; |
3111 |
goto T1595; |
goto T1592; |
3112 |
T1595:; |
T1592:; |
|
{object V408; |
|
|
V408= car((V326)); |
|
|
V326= cdr((V326)); |
|
|
V407= (V408);} |
|
|
if(eql(small_fixnum(0),V407)){ |
|
|
goto T1601;} |
|
|
(void)((*(LnkLI329))(cadr((V406)))); |
|
|
goto T1599; |
|
|
goto T1601; |
|
|
T1601:; |
|
3113 |
princ_str("\n if(",VV[26]); |
princ_str("\n if(",VV[26]); |
3114 |
V409= structure_ref(cadr((V406)),VV[70],2); |
(void)((*(LnkLI333))(STREF(object,CMPcadr((V422)),8))); |
|
(void)((*(LnkLI330))(/* INLINE-ARGS */V409)); |
|
3115 |
princ_str("==0){",VV[26]); |
princ_str("==0){",VV[26]); |
3116 |
bds_bind(VV[134],symbol_value(VV[134])); |
bds_bind(VV[134],(VV[134]->s.s_dbind)); |
3117 |
bds_bind(VV[135],(VV[135]->s.s_dbind)); |
bds_bind(VV[135],(VV[135]->s.s_dbind)); |
3118 |
bds_bind(VV[133],symbol_value(VV[133])); |
bds_bind(VV[133],(VV[133]->s.s_dbind)); |
3119 |
V410= (*(LnkLI323))(cadr((V406)),caddr((V406))); |
V425= (*(LnkLI326))(CMPcadr((V422)),CMPcaddr((V422))); |
3120 |
bds_unwind1; |
bds_unwind1; |
3121 |
bds_unwind1; |
bds_unwind1; |
3122 |
bds_unwind1; |
bds_unwind1; |
3123 |
V411= structure_ref(cadddr((V406)),VV[70],1); |
if((STREF(object,CMPcadddr((V422)),4))==(VV[175])){ |
3124 |
if((/* INLINE-ARGS */V411)==(VV[175])){ |
goto T1604;} |
3125 |
goto T1613;} |
(void)((*(LnkLI325))(CMPcadddr((V422)),Cnil)); |
3126 |
(void)((*(LnkLI322))(cadddr((V406)),Cnil)); |
goto T1604; |
3127 |
goto T1613; |
T1604:; |
|
T1613:; |
|
3128 |
princ_str("\n }else{",VV[26]); |
princ_str("\n }else{",VV[26]); |
3129 |
(void)((*(LnkLI329))(cadr((V406)))); |
(void)((*(LnkLI332))(CMPcadr((V422)))); |
3130 |
V412= structure_ref(cadddr((V406)),VV[70],1); |
if((STREF(object,CMPcadddr((V422)),4))==(VV[175])){ |
3131 |
if((/* INLINE-ARGS */V412)==(VV[175])){ |
goto T1610;} |
3132 |
goto T1619;} |
(void)((*(LnkLI325))(CMPcadddr((V422)),Ct)); |
3133 |
(void)((*(LnkLI322))(cadddr((V406)),Ct)); |
goto T1610; |
3134 |
goto T1619; |
T1610:; |
|
T1619:; |
|
3135 |
princ_char(125,VV[26]); |
princ_char(125,VV[26]); |
|
goto T1599; |
|
|
T1599:; |
|
|
V405= cdr((V405)); |
|
|
V406= car((V405)); |
|
|
goto T1594;} |
|
3136 |
goto T1590; |
goto T1590; |
3137 |
T1590:; |
T1590:; |
3138 |
|
V421= CMPcdr((V421)); |
3139 |
|
V422= CMPcar((V421)); |
3140 |
|
goto T1585;} |
3141 |
|
goto T1581; |
3142 |
|
T1581:; |
3143 |
if(((VV[147]->s.s_dbind))==Cnil){ |
if(((VV[147]->s.s_dbind))==Cnil){ |
3144 |
goto T1628;} |
goto T1619;} |
3145 |
(VV[135]->s.s_dbind)= make_cons(VV[151],(VV[135]->s.s_dbind)); |
(VV[135]->s.s_dbind)= make_cons(VV[151],(VV[135]->s.s_dbind)); |
3146 |
princ_str("\n goto TTL;",VV[26]); |
princ_str("\n goto TTL;",VV[26]); |
3147 |
princ_str("\nTTL:;",VV[26]); |
princ_str("\nTTL:;",VV[26]); |
3148 |
goto T1628; |
goto T1619; |
3149 |
T1628:; |
T1619:; |
3150 |
base[7]= caddr(cddr((V322))); |
base[7]= CMPcaddr(CMPcddr((V341))); |
3151 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
3152 |
(void) (*Lnk316)(); |
(void) (*Lnk319)(); |
3153 |
vs_top=sup; |
vs_top=sup; |
3154 |
if(((V330))==Cnil){ |
if(((V349))==Cnil){ |
3155 |
goto T1638;} |
goto T1629;} |
3156 |
V330= Cnil; |
V349= Cnil; |
3157 |
princ_str("\n va_end(ap);",VV[26]); |
princ_str("\n va_end(ap);",VV[26]); |
3158 |
goto T1638; |
goto T1629; |
3159 |
T1638:; |
T1629:; |
3160 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[131]))==0)){ |
if(!(number_compare(small_fixnum(0),(VV[131]->s.s_dbind))==0)){ |
3161 |
goto T1646;} |
goto T1637;} |
3162 |
if((symbol_value(VV[139]))!=Cnil){ |
if(((VV[139]->s.s_dbind))!=Cnil){ |
3163 |
goto T1646;} |
goto T1637;} |
3164 |
if((symbol_value(VV[141]))!=Cnil){ |
if(((VV[141]->s.s_dbind))!=Cnil){ |
3165 |
goto T1646;} |
goto T1637;} |
3166 |
goto T1644; |
goto T1635; |
3167 |
goto T1646; |
goto T1637; |
3168 |
T1646:; |
T1637:; |
3169 |
princ_str("\n base[0]=base[0];",VV[26]); |
princ_str("\n base[0]=base[0];",VV[26]); |
3170 |
goto T1644; |
goto T1635; |
3171 |
T1644:; |
T1635:; |
3172 |
princ_str("\n return Cnil;",VV[26]); |
princ_str("\n return Cnil;",VV[26]); |
3173 |
princ_char(125,VV[26]); |
princ_char(125,VV[26]); |
3174 |
if((base[1])==Cnil){ |
if((base[1])==Cnil){ |
3175 |
goto T1657;} |
goto T1648;} |
3176 |
princ_str("\n }",VV[26]); |
princ_str("\n }",VV[26]); |
3177 |
goto T1657; |
goto T1648; |
3178 |
T1657:; |
T1648:; |
3179 |
(void)((*(LnkLI331))()); |
(void)((*(LnkLI334))()); |
3180 |
V414= get((V320),VV[78],Cnil); |
{object V428 =((V339))->s.s_plist; |
3181 |
{object V415 = (*(LnkLI317))((V339),V414); |
object ind= VV[78]; |
3182 |
|
while(V428!=Cnil){ |
3183 |
|
if(V428->c.c_car==ind){ |
3184 |
|
V427= (V428->c.c_cdr->c.c_car); |
3185 |
|
goto T1653; |
3186 |
|
}else V428=V428->c.c_cdr->c.c_cdr;} |
3187 |
|
V427= Cnil;} |
3188 |
|
goto T1653; |
3189 |
|
T1653:; |
3190 |
|
{object V429 = (*(LnkLI320))((V358),V427); |
3191 |
bds_unwind1; |
bds_unwind1; |
3192 |
bds_unwind1; |
bds_unwind1; |
3193 |
bds_unwind1; |
bds_unwind1; |
3194 |
bds_unwind1; |
bds_unwind1; |
3195 |
VMR25(V415)}}} |
VMR25(V429)}}} |
3196 |
base[0]=base[0]; |
base[0]=base[0]; |
3197 |
return Cnil; |
return Cnil; |
3198 |
} |
} |
3199 |
/* local entry for function T3DEFUN-NORMAL */ |
/* local entry for function T3DEFUN-NORMAL */ |
3200 |
|
|
3201 |
static object LI27(V420,V421,V422,V423) |
static object LI27(V434,V435,V436,V437) |
3202 |
|
|
3203 |
object V420;register object V421;object V422;object V423; |
object V434;register object V435;object V436;object V437; |
3204 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
3205 |
goto TTL; |
goto TTL; |
3206 |
TTL:; |
TTL:; |
3207 |
(void)((VFUN_NARGS=2,(*(LnkLI313))(VV[180],(V420)))); |
(void)((VFUN_NARGS=2,(*(LnkLI316))(VV[180],(V434)))); |
3208 |
if(!(type_of((V421))==t_fixnum|| |
if(!(type_of((V435))==t_fixnum|| |
3209 |
type_of((V421))==t_bignum|| |
type_of((V435))==t_bignum|| |
3210 |
type_of((V421))==t_ratio|| |
type_of((V435))==t_ratio|| |
3211 |
type_of((V421))==t_shortfloat|| |
type_of((V435))==t_shortfloat|| |
3212 |
type_of((V421))==t_longfloat|| |
type_of((V435))==t_longfloat|| |
3213 |
type_of((V421))==t_complex)){ |
type_of((V435))==t_complex)){ |
3214 |
goto T1666;} |
goto T1657;} |
3215 |
princ_str("\nstatic void L",VV[26]); |
princ_str("\nstatic void L",VV[26]); |
3216 |
(void)((*(LnkLI275))((V421))); |
(void)((*(LnkLI275))((V435))); |
3217 |
princ_str("()",VV[26]); |
princ_str("()",VV[26]); |
3218 |
goto T1664; |
goto T1655; |
3219 |
goto T1666; |
goto T1657; |
3220 |
T1666:; |
T1657:; |
3221 |
princ_char(10,VV[26]); |
princ_char(10,VV[26]); |
3222 |
(void)((*(LnkLI275))((V421))); |
(void)((*(LnkLI275))((V435))); |
3223 |
princ_str("()",VV[26]); |
princ_str("()",VV[26]); |
3224 |
goto T1664; |
goto T1655; |
3225 |
T1664:; |
T1655:; |
3226 |
princ_str("\n{",VV[26]); |
princ_str("\n{",VV[26]); |
3227 |
princ_str("register object *",VV[26]); |
princ_str("register object *",VV[26]); |
3228 |
(void)((*(LnkLI275))(symbol_value(VV[21]))); |
(void)((*(LnkLI275))((VV[21]->s.s_dbind))); |
3229 |
princ_str("base=vs_base;",VV[26]); |
princ_str("base=vs_base;",VV[26]); |
3230 |
V424= structure_ref(cadr((V422)),VV[63],1); |
(void)((*(LnkLI318))(STREF(object,CMPcadr((V436)),4),(V435),VV[149])); |
|
(void)((*(LnkLI315))(/* INLINE-ARGS */V424,(V421),VV[149])); |
|
3231 |
princ_str("\n register object *",VV[26]); |
princ_str("\n register object *",VV[26]); |
3232 |
(void)((*(LnkLI275))(symbol_value(VV[21]))); |
(void)((*(LnkLI275))((VV[21]->s.s_dbind))); |
3233 |
princ_str("sup=base+VM",VV[26]); |
princ_str("sup=base+VM",VV[26]); |
3234 |
(void)((*(LnkLI275))(symbol_value(VV[137]))); |
(void)((*(LnkLI275))((VV[137]->s.s_dbind))); |
3235 |
princ_char(59,VV[26]); |
princ_char(59,VV[26]); |
3236 |
princ_str(" VC",VV[26]); |
princ_str(" VC",VV[26]); |
3237 |
(void)((*(LnkLI275))(symbol_value(VV[137]))); |
(void)((*(LnkLI275))((VV[137]->s.s_dbind))); |
3238 |
if((symbol_value(VV[164]))==Cnil){ |
if(((VV[164]->s.s_dbind))==Cnil){ |
3239 |
goto T1691;} |
goto T1682;} |
3240 |
princ_str("\n vs_reserve(VM",VV[26]); |
princ_str("\n vs_reserve(VM",VV[26]); |
3241 |
(void)((*(LnkLI275))(symbol_value(VV[137]))); |
(void)((*(LnkLI275))((VV[137]->s.s_dbind))); |
3242 |
princ_str(");",VV[26]); |
princ_str(");",VV[26]); |
3243 |
goto T1689; |
goto T1680; |
3244 |
goto T1691; |
goto T1682; |
3245 |
T1691:; |
T1682:; |
3246 |
princ_str("\n vs_check;",VV[26]); |
princ_str("\n vs_check;",VV[26]); |
3247 |
goto T1689; |
goto T1680; |
3248 |
T1689:; |
T1680:; |
3249 |
if(((V423))==Cnil){ |
if(((V437))==Cnil){ |
3250 |
goto T1697;} |
goto T1688;} |
3251 |
princ_str("\n bds_check;",VV[26]); |
princ_str("\n bds_check;",VV[26]); |
3252 |
goto T1697; |
goto T1688; |
3253 |
T1697:; |
T1688:; |
3254 |
if((symbol_value(VV[150]))==Cnil){ |
if(((VV[150]->s.s_dbind))==Cnil){ |
3255 |
goto T1701;} |
goto T1692;} |
3256 |
princ_str("\n ihs_check;",VV[26]); |
princ_str("\n ihs_check;",VV[26]); |
3257 |
goto T1701; |
goto T1692; |
3258 |
T1701:; |
T1692:; |
3259 |
(void)((VFUN_NARGS=3,(*(LnkLI332))(caddr((V422)),caddr(cddr((V422))),(V420)))); |
(void)((VFUN_NARGS=3,(*(LnkLI335))(CMPcaddr((V436)),CMPcaddr(CMPcddr((V436))),(V434)))); |
3260 |
princ_str("\n}",VV[26]); |
princ_str("\n}",VV[26]); |
3261 |
{object V425; |
{object V438; |
3262 |
V425= make_cons(symbol_value(VV[137]),symbol_value(VV[131])); |
V438= make_cons((VV[137]->s.s_dbind),(VV[131]->s.s_dbind)); |
3263 |
setq(VV[34],make_cons((V425),symbol_value(VV[34])));} |
(VV[34]->s.s_dbind)= make_cons((V438),(VV[34]->s.s_dbind));} |
3264 |
princ_str("\n#define VC",VV[32]); |
princ_str("\n#define VC",VV[32]); |
3265 |
(void)((*(LnkLI278))(symbol_value(VV[137]))); |
(void)((*(LnkLI278))((VV[137]->s.s_dbind))); |
3266 |
{object V426 = (*(LnkLI333))(); |
{object V439 = (*(LnkLI336))(); |
3267 |
VMR26(V426)} |
VMR26(V439)} |
3268 |
base[0]=base[0]; |
base[0]=base[0]; |
3269 |
return Cnil; |
return Cnil; |
3270 |
} |
} |
3271 |
/* local entry for function WT-V*-MACROS */ |
/* local entry for function WT-V*-MACROS */ |
3272 |
|
|
3273 |
static object LI28(V429,V430) |
static object LI28(V442,V443) |
3274 |
|
|
3275 |
register object V429;object V430; |
register object V442;object V443; |
3276 |
{ VMB27 VMS27 VMV27 |
{ VMB27 VMS27 VMV27 |
3277 |
goto TTL; |
goto TTL; |
3278 |
TTL:; |
TTL:; |
3279 |
{object V431; |
{object V444; |
3280 |
V431= make_cons((V429),symbol_value(VV[131])); |
V444= make_cons((V442),(VV[131]->s.s_dbind)); |
3281 |
setq(VV[34],make_cons((V431),symbol_value(VV[34])));} |
(VV[34]->s.s_dbind)= make_cons((V444),(VV[34]->s.s_dbind));} |
3282 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[131]))==0)){ |
if(!(number_compare(small_fixnum(0),(VV[131]->s.s_dbind))==0)){ |
3283 |
goto T1719;} |
goto T1710;} |
3284 |
if((symbol_value(VV[139]))!=Cnil){ |
if(((VV[139]->s.s_dbind))!=Cnil){ |
3285 |
goto T1719;} |
goto T1710;} |
3286 |
if((symbol_value(VV[141]))!=Cnil){ |
if(((VV[141]->s.s_dbind))!=Cnil){ |
3287 |
goto T1719;} |
goto T1710;} |
3288 |
princ_str("\n#define VMB",VV[32]); |
princ_str("\n#define VMB",VV[32]); |
3289 |
(void)((*(LnkLI278))((V429))); |
(void)((*(LnkLI278))((V442))); |
3290 |
goto T1717; |
goto T1708; |
3291 |
goto T1719; |
goto T1710; |
3292 |
T1719:; |
T1710:; |
3293 |
princ_str("\n#define VMB",VV[32]); |
princ_str("\n#define VMB",VV[32]); |
3294 |
(void)((*(LnkLI278))((V429))); |
(void)((*(LnkLI278))((V442))); |
3295 |
princ_char(32,VV[32]); |
princ_char(32,VV[32]); |
3296 |
princ_str("register object *",VV[32]); |
princ_str("register object *",VV[32]); |
3297 |
(void)((*(LnkLI278))(symbol_value(VV[21]))); |
(void)((*(LnkLI278))((VV[21]->s.s_dbind))); |
3298 |
princ_str("base=vs_top;",VV[32]); |
princ_str("base=vs_top;",VV[32]); |
3299 |
goto T1717; |
goto T1708; |
3300 |
T1717:; |
T1708:; |
3301 |
(void)((*(LnkLI333))()); |
(void)((*(LnkLI336))()); |
3302 |
if((symbol_value(VV[139]))==Cnil){ |
if(((VV[139]->s.s_dbind))==Cnil){ |
3303 |
goto T1736;} |
goto T1727;} |
3304 |
princ_str("\n#define VMS",VV[32]); |
princ_str("\n#define VMS",VV[32]); |
3305 |
(void)((*(LnkLI278))((V429))); |
(void)((*(LnkLI278))((V442))); |
3306 |
princ_char(32,VV[32]); |
princ_char(32,VV[32]); |
3307 |
princ_str(" register object *",VV[32]); |
princ_str(" register object *",VV[32]); |
3308 |
(void)((*(LnkLI278))(symbol_value(VV[21]))); |
(void)((*(LnkLI278))((VV[21]->s.s_dbind))); |
3309 |
princ_str("sup=vs_top+",VV[32]); |
princ_str("sup=vs_top+",VV[32]); |
3310 |
(void)((*(LnkLI278))(symbol_value(VV[131]))); |
(void)((*(LnkLI278))((VV[131]->s.s_dbind))); |
3311 |
princ_str(";vs_top=sup;",VV[32]); |
princ_str(";vs_top=sup;",VV[32]); |
3312 |
goto T1734; |
goto T1725; |
3313 |
goto T1736; |
goto T1727; |
3314 |
T1736:; |
T1727:; |
3315 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[131]))==0)){ |
if(!(number_compare(small_fixnum(0),(VV[131]->s.s_dbind))==0)){ |
3316 |
goto T1747;} |
goto T1738;} |
3317 |
princ_str("\n#define VMS",VV[32]); |
princ_str("\n#define VMS",VV[32]); |
3318 |
(void)((*(LnkLI278))((V429))); |
(void)((*(LnkLI278))((V442))); |
3319 |
goto T1734; |
goto T1725; |
3320 |
goto T1747; |
goto T1738; |
3321 |
T1747:; |
T1738:; |
3322 |
princ_str("\n#define VMS",VV[32]); |
princ_str("\n#define VMS",VV[32]); |
3323 |
(void)((*(LnkLI278))((V429))); |
(void)((*(LnkLI278))((V442))); |
3324 |
princ_str(" vs_top += ",VV[32]); |
princ_str(" vs_top += ",VV[32]); |
3325 |
(void)((*(LnkLI278))(symbol_value(VV[131]))); |
(void)((*(LnkLI278))((VV[131]->s.s_dbind))); |
3326 |
princ_char(59,VV[32]); |
princ_char(59,VV[32]); |
3327 |
goto T1734; |
goto T1725; |
3328 |
T1734:; |
T1725:; |
3329 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[131]))==0)){ |
if(!(number_compare(small_fixnum(0),(VV[131]->s.s_dbind))==0)){ |
3330 |
goto T1758;} |
goto T1749;} |
3331 |
princ_str("\n#define VMV",VV[32]); |
princ_str("\n#define VMV",VV[32]); |
3332 |
(void)((*(LnkLI278))((V429))); |
(void)((*(LnkLI278))((V442))); |
3333 |
goto T1756; |
goto T1747; |
3334 |
goto T1758; |
goto T1749; |
3335 |
T1758:; |
T1749:; |
3336 |
if((symbol_value(VV[164]))==Cnil){ |
if(((VV[164]->s.s_dbind))==Cnil){ |
3337 |
goto T1763;} |
goto T1754;} |
3338 |
princ_str("\n#define VMV",VV[32]); |
princ_str("\n#define VMV",VV[32]); |
3339 |
(void)((*(LnkLI278))((V429))); |
(void)((*(LnkLI278))((V442))); |
3340 |
princ_str(" vs_reserve(",VV[32]); |
princ_str(" vs_reserve(",VV[32]); |
3341 |
(void)((*(LnkLI278))(symbol_value(VV[131]))); |
(void)((*(LnkLI278))((VV[131]->s.s_dbind))); |
3342 |
princ_str(");",VV[32]); |
princ_str(");",VV[32]); |
3343 |
goto T1756; |
goto T1747; |
3344 |
goto T1763; |
goto T1754; |
3345 |
T1763:; |
T1754:; |
3346 |
princ_str("\n#define VMV",VV[32]); |
princ_str("\n#define VMV",VV[32]); |
3347 |
(void)((*(LnkLI278))((V429))); |
(void)((*(LnkLI278))((V442))); |
3348 |
princ_str(" vs_check;",VV[32]); |
princ_str(" vs_check;",VV[32]); |
3349 |
goto T1756; |
goto T1747; |
3350 |
T1756:; |
T1747:; |
3351 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[131]))==0)){ |
if(!(number_compare(small_fixnum(0),(VV[131]->s.s_dbind))==0)){ |
3352 |
goto T1774;} |
goto T1765;} |
3353 |
princ_str("\n#define VMR",VV[32]); |
princ_str("\n#define VMR",VV[32]); |
3354 |
(void)((*(LnkLI278))((V429))); |
(void)((*(LnkLI278))((V442))); |
3355 |
princ_str("(VMT",VV[32]); |
princ_str("(VMT",VV[32]); |
3356 |
(void)((*(LnkLI278))((V429))); |
(void)((*(LnkLI278))((V442))); |
3357 |
princ_str(") return(VMT",VV[32]); |
princ_str(") return(VMT",VV[32]); |
3358 |
(void)((*(LnkLI278))((V429))); |
(void)((*(LnkLI278))((V442))); |
3359 |
princ_str(");",VV[32]); |
princ_str(");",VV[32]); |
3360 |
{object V432 = Cnil; |
{object V445 = Cnil; |
3361 |
VMR27(V432)} |
VMR27(V445)} |
3362 |
goto T1774; |
goto T1765; |
3363 |
T1774:; |
T1765:; |
3364 |
princ_str("\n#define VMR",VV[32]); |
princ_str("\n#define VMR",VV[32]); |
3365 |
(void)((*(LnkLI278))((V429))); |
(void)((*(LnkLI278))((V442))); |
3366 |
princ_str("(VMT",VV[32]); |
princ_str("(VMT",VV[32]); |
3367 |
(void)((*(LnkLI278))((V429))); |
(void)((*(LnkLI278))((V442))); |
3368 |
princ_str(") vs_top=base ; return(VMT",VV[32]); |
princ_str(") vs_top=base ; return(VMT",VV[32]); |
3369 |
(void)((*(LnkLI278))((V429))); |
(void)((*(LnkLI278))((V442))); |
3370 |
princ_str(");",VV[32]); |
princ_str(");",VV[32]); |
3371 |
{object V433 = Cnil; |
{object V446 = Cnil; |
3372 |
VMR27(V433)} |
VMR27(V446)} |
3373 |
base[0]=base[0]; |
base[0]=base[0]; |
3374 |
return Cnil; |
return Cnil; |
3375 |
} |
} |
3376 |
/* local entry for function WT-REQUIREDS */ |
/* local entry for function WT-REQUIREDS */ |
3377 |
|
|
3378 |
static object LI29(V436,V437) |
static object LI29(V449,V450) |
3379 |
|
|
3380 |
object V436;object V437; |
object V449;object V450; |
3381 |
{ VMB28 VMS28 VMV28 |
{ VMB28 VMS28 VMV28 |
3382 |
goto TTL; |
goto TTL; |
3383 |
TTL:; |
TTL:; |
3384 |
{register object V438; |
{register object V451; |
3385 |
V438= (V436); |
V451= (V449); |
3386 |
goto T1792; |
goto T1783; |
3387 |
T1792:; |
T1783:; |
3388 |
if(!(endp_prop((V438)))){ |
if(!(((V451))==Cnil)){ |
3389 |
goto T1793;} |
goto T1784;} |
3390 |
goto T1790; |
goto T1781; |
3391 |
goto T1793; |
goto T1784; |
3392 |
T1793:; |
T1784:; |
3393 |
{register object V439; |
{register object V452; |
3394 |
setq(VV[89],number_plus(symbol_value(VV[89]),small_fixnum(1))); |
(VV[89]->s.s_dbind)= number_plus((VV[89]->s.s_dbind),small_fixnum(1)); |
3395 |
V439= symbol_value(VV[89]); |
V452= (VV[89]->s.s_dbind); |
3396 |
(void)(structure_set(car((V438)),VV[70],4,(V439))); |
V453= CMPcar((V451)); |
3397 |
|
V454= Ct; |
3398 |
|
STSET(object,/* INLINE-ARGS */V453,16, (V452)); |
3399 |
|
(void)((V452)); |
3400 |
princ_char(86,VV[26]); |
princ_char(86,VV[26]); |
3401 |
(void)((*(LnkLI275))((V439)));} |
(void)((*(LnkLI275))((V452)));} |
3402 |
if(endp_prop(cdr((V438)))){ |
if((CMPcdr((V451)))==Cnil){ |
3403 |
goto T1803;} |
goto T1794;} |
3404 |
princ_char(44,VV[26]); |
princ_char(44,VV[26]); |
3405 |
goto T1803; |
goto T1794; |
3406 |
T1803:; |
T1794:; |
3407 |
V438= cdr((V438)); |
V451= CMPcdr((V451)); |
3408 |
goto T1792;} |
goto T1783;} |
3409 |
goto T1790; |
goto T1781; |
3410 |
T1790:; |
T1781:; |
3411 |
princ_str(")\n",VV[26]); |
princ_str(")\n",VV[26]); |
3412 |
if(((V436))==Cnil){ |
if(((V449))==Cnil){ |
3413 |
goto T1813;} |
goto T1804;} |
3414 |
princ_char(10,VV[26]); |
princ_char(10,VV[26]); |
3415 |
{register object V440; |
{register object V455; |
3416 |
register object V441; |
register object V456; |
3417 |
register object V442; |
register object V457; |
3418 |
V440= (V436); |
V455= (V449); |
3419 |
V441= (V437); |
V456= (V450); |
3420 |
V442= Cnil; |
V457= Cnil; |
3421 |
goto T1817; |
goto T1808; |
3422 |
T1817:; |
T1808:; |
3423 |
if(!(endp_prop((V440)))){ |
if(!(((V455))==Cnil)){ |
3424 |
goto T1818;} |
goto T1809;} |
3425 |
princ_char(59,VV[26]); |
princ_char(59,VV[26]); |
3426 |
{object V443 = Cnil; |
{object V458 = Cnil; |
3427 |
VMR28(V443)} |
VMR28(V458)} |
3428 |
goto T1818; |
goto T1809; |
3429 |
T1818:; |
T1809:; |
3430 |
if(((V442))==Cnil){ |
if(((V457))==Cnil){ |
3431 |
goto T1823;} |
goto T1814;} |
3432 |
princ_char(59,VV[26]); |
princ_char(59,VV[26]); |
3433 |
goto T1823; |
goto T1814; |
3434 |
T1823:; |
T1814:; |
3435 |
(void)((*(LnkLI275))(symbol_value(VV[21]))); |
(void)((*(LnkLI275))((VV[21]->s.s_dbind))); |
3436 |
V444= (*(LnkLI334))(car((V440))); |
V459= (*(LnkLI337))(CMPcar((V455))); |
3437 |
(void)((*(LnkLI275))(/* INLINE-ARGS */V444)); |
(void)((*(LnkLI275))(/* INLINE-ARGS */V459)); |
3438 |
V445= (*(LnkLI281))(car((V441))); |
V460= (*(LnkLI281))(CMPcar((V456))); |
3439 |
(void)((*(LnkLI275))(/* INLINE-ARGS */V445)); |
(void)((*(LnkLI275))(/* INLINE-ARGS */V460)); |
3440 |
V442= car((V441)); |
V457= CMPcar((V456)); |
3441 |
princ_char(86,VV[26]); |
princ_char(86,VV[26]); |
3442 |
V446= structure_ref(car((V440)),VV[70],4); |
(void)((*(LnkLI275))(STREF(object,CMPcar((V455)),16))); |
3443 |
(void)((*(LnkLI275))(/* INLINE-ARGS */V446)); |
V455= CMPcdr((V455)); |
3444 |
V440= cdr((V440)); |
V456= CMPcdr((V456)); |
3445 |
V441= cdr((V441)); |
goto T1808;} |
3446 |
goto T1817;} |
goto T1804; |
3447 |
goto T1813; |
T1804:; |
3448 |
T1813:; |
{object V461 = Cnil; |
3449 |
{object V447 = Cnil; |
VMR28(V461)} |
|
VMR28(V447)} |
|
3450 |
return Cnil; |
return Cnil; |
3451 |
} |
} |
3452 |
/* local entry for function ADD-DEBUG-INFO */ |
/* local entry for function ADD-DEBUG-INFO */ |
3453 |
|
|
3454 |
static object LI30(V450,V451) |
static object LI30(V464,V465) |
3455 |
|
|
3456 |
object V450;object V451; |
object V464;object V465; |
3457 |
{ VMB29 VMS29 VMV29 |
{ VMB29 VMS29 VMV29 |
3458 |
goto TTL; |
goto TTL; |
3459 |
TTL:; |
TTL:; |
3460 |
{object V452; |
{object V466; |
3461 |
V452= Cnil; |
V466= Cnil; |
3462 |
{object V453; |
{object V467; |
3463 |
V453= (number_compare(symbol_value(VV[115]),small_fixnum(2))>=0?Ct:Cnil); |
V467= (number_compare((VV[115]->s.s_dbind),small_fixnum(2))>=0?Ct:Cnil); |
3464 |
if(((V453))==Cnil){ |
if(((V467))==Cnil){ |
3465 |
goto T1843;} |
goto T1834;} |
3466 |
{object V454 = (V453); |
{object V468 = (V467); |
3467 |
VMR29(V454)} |
VMR29(V468)} |
3468 |
goto T1843; |
goto T1834; |
3469 |
T1843:; |
T1834:; |
3470 |
if((get((V450),VV[116],Cnil))!=Cnil){ |
{object V469 =((V464))->s.s_plist; |
3471 |
goto T1846;} |
object ind= VV[116]; |
3472 |
{object V455 = (VFUN_NARGS=2,(*(LnkLI335))(VV[181],(V450))); |
while(V469!=Cnil){ |
3473 |
VMR29(V455)} |
if(V469->c.c_car==ind){ |
3474 |
goto T1846; |
if(((V469->c.c_cdr->c.c_car))!=Cnil){ |
3475 |
T1846:; |
goto T1837;} |
3476 |
(void)(remprop((V450),VV[116])); |
goto T1838; |
3477 |
{register object V456; |
}else V469=V469->c.c_cdr->c.c_cdr;}} |
3478 |
V456= small_fixnum(0); |
goto T1838; |
3479 |
{register object V457; |
T1838:; |
3480 |
register object V458; |
{object V470 = (VFUN_NARGS=2,(*(LnkLI338))(VV[181],(V464))); |
3481 |
V457= structure_ref(cadr((V451)),VV[63],1); |
VMR29(V470)} |
3482 |
V458= car((V457)); |
goto T1837; |
3483 |
goto T1853; |
T1837:; |
3484 |
T1853:; |
(void)(remprop((V464),VV[116])); |
3485 |
if(!(endp_prop((V457)))){ |
{register object V471; |
3486 |
goto T1854;} |
V471= small_fixnum(0); |
3487 |
goto T1849; |
{register object V472; |
3488 |
goto T1854; |
register object V473; |
3489 |
T1854:; |
V472= STREF(object,CMPcadr((V465)),4); |
3490 |
V459= structure_ref((V458),VV[70],2); |
V473= CMPcar((V472)); |
3491 |
if(!(type_of(/* INLINE-ARGS */V459)==t_cons)){ |
goto T1844; |
3492 |
goto T1858;} |
T1844:; |
3493 |
V460= structure_ref((V458),VV[70],2); |
if(!(((V472))==Cnil)){ |
3494 |
if(!(type_of(cdr(/* INLINE-ARGS */V460))==t_fixnum)){ |
goto T1845;} |
3495 |
goto T1858;} |
goto T1840; |
3496 |
V461= structure_ref((V458),VV[70],2); |
goto T1845; |
3497 |
{object V462= cdr(/* INLINE-ARGS */V461); |
T1845:; |
3498 |
V456= (number_compare((V456),V462)>=0?((V456)):V462);} |
if(!(type_of(STREF(object,(V473),8))==t_cons)){ |
3499 |
goto T1858; |
goto T1849;} |
3500 |
T1858:; |
if(!(type_of(CMPcdr(STREF(object,(V473),8)))==t_fixnum)){ |
3501 |
V457= cdr((V457)); |
goto T1849;} |
3502 |
V458= car((V457)); |
{object V474= CMPcdr(STREF(object,(V473),8)); |
3503 |
goto T1853;} |
V471= (number_compare((V471),V474)>=0?((V471)):V474);} |
3504 |
goto T1849; |
goto T1849; |
3505 |
T1849:; |
T1849:; |
3506 |
base[0]= one_plus((V456)); |
V472= CMPcdr((V472)); |
3507 |
|
V473= CMPcar((V472)); |
3508 |
|
goto T1844;} |
3509 |
|
goto T1840; |
3510 |
|
T1840:; |
3511 |
|
base[0]= one_plus((V471)); |
3512 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3513 |
Lmake_list(); |
Lmake_list(); |
3514 |
vs_top=sup; |
vs_top=sup; |
3515 |
V452= vs_base[0]; |
V466= vs_base[0]; |
3516 |
{register object V463; |
{register object V475; |
3517 |
register object V464; |
register object V476; |
3518 |
V463= structure_ref(cadr((V451)),VV[63],1); |
V475= STREF(object,CMPcadr((V465)),4); |
3519 |
V464= car((V463)); |
V476= CMPcar((V475)); |
3520 |
goto T1876; |
goto T1867; |
3521 |
T1876:; |
T1867:; |
3522 |
if(!(endp_prop((V463)))){ |
if(!(((V475))==Cnil)){ |
3523 |
goto T1877;} |
goto T1868;} |
3524 |
goto T1872; |
goto T1863; |
3525 |
goto T1877; |
goto T1868; |
3526 |
T1877:; |
T1868:; |
3527 |
V465= structure_ref((V464),VV[70],2); |
if(!(type_of(STREF(object,(V476),8))==t_cons)){ |
3528 |
if(!(type_of(/* INLINE-ARGS */V465)==t_cons)){ |
goto T1872;} |
3529 |
goto T1881;} |
if(!(type_of(CMPcdr(STREF(object,(V476),8)))==t_fixnum)){ |
3530 |
V466= structure_ref((V464),VV[70],2); |
goto T1872;} |
3531 |
if(!(type_of(cdr(/* INLINE-ARGS */V466))==t_fixnum)){ |
{object V477; |
3532 |
goto T1881;} |
register object V479; |
3533 |
{object V467; |
V477= CMPcdr(STREF(object,(V476),8)); |
3534 |
register object V469; |
V479= STREF(object,(V476),0); |
3535 |
V470= structure_ref((V464),VV[70],2); |
(nthcdr(fix((V477)),V466))->c.c_car = (V479); |
3536 |
V467= cdr(/* INLINE-ARGS */V470); |
(void)(nthcdr(fix((V477)),V466));} |
|
V469= structure_ref((V464),VV[70],0); |
|
|
if(type_of(nthcdr(fixint((V467)),V452))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V467)),V452)); |
|
|
(nthcdr(fixint((V467)),V452))->c.c_car = (V469); |
|
|
(void)(nthcdr(fixint((V467)),V452));} |
|
|
goto T1881; |
|
|
T1881:; |
|
|
V463= cdr((V463)); |
|
|
V464= car((V463)); |
|
|
goto T1876;} |
|
3537 |
goto T1872; |
goto T1872; |
3538 |
T1872:; |
T1872:; |
3539 |
(void)(sputprop((V450),VV[117],(V452))); |
V475= CMPcdr((V475)); |
3540 |
{object V471; |
V476= CMPcar((V475)); |
3541 |
V471= get((V450),VV[117],Cnil); |
goto T1867;} |
3542 |
if(((V471))==Cnil){ |
goto T1863; |
3543 |
goto T1897;} |
T1863:; |
3544 |
if((cdr((V471)))!=Cnil){ |
(void)(sputprop((V464),VV[117],(V466))); |
3545 |
goto T1896;} |
{object V480; |
3546 |
if((car((V471)))==Cnil){ |
{object V481 =((V464))->s.s_plist; |
3547 |
goto T1897;} |
object ind= VV[117]; |
3548 |
goto T1896; |
while(V481!=Cnil){ |
3549 |
T1896:; |
if(V481->c.c_car==ind){ |
3550 |
V472= list(2,VV[92],(V450)); |
V480= (V481->c.c_cdr->c.c_car); |
3551 |
V473= list(3,VV[117],/* INLINE-ARGS */V472,list(2,VV[92],(V471))); |
goto T1886; |
3552 |
{object V474 = (VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V473)); |
}else V481=V481->c.c_cdr->c.c_cdr;} |
3553 |
VMR29(V474)} |
V480= Cnil;} |
3554 |
goto T1897; |
goto T1886; |
3555 |
T1897:; |
T1886:; |
3556 |
{object V475 = Cnil; |
if(((V480))==Cnil){ |
3557 |
VMR29(V475)}}}}} |
goto T1888;} |
3558 |
|
if((CMPcdr((V480)))!=Cnil){ |
3559 |
|
goto T1887;} |
3560 |
|
if((CMPcar((V480)))==Cnil){ |
3561 |
|
goto T1888;} |
3562 |
|
goto T1887; |
3563 |
|
T1887:; |
3564 |
|
V482= list(2,VV[92],(V464)); |
3565 |
|
V483= list(3,VV[117],/* INLINE-ARGS */V482,list(2,VV[92],(V480))); |
3566 |
|
{object V484 = (VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V483)); |
3567 |
|
VMR29(V484)} |
3568 |
|
goto T1888; |
3569 |
|
T1888:; |
3570 |
|
{object V485 = Cnil; |
3571 |
|
VMR29(V485)}}}}} |
3572 |
base[0]=base[0]; |
base[0]=base[0]; |
3573 |
return Cnil; |
return Cnil; |
3574 |
} |
} |
3575 |
/* local entry for function ANALYZE-REGS */ |
/* local entry for function ANALYZE-REGS */ |
3576 |
|
|
3577 |
static object LI31(V478,V479) |
static object LI31(V488,V489) |
3578 |
|
|
3579 |
object V478;object V479; |
object V488;object V489; |
3580 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
3581 |
goto TTL; |
goto TTL; |
3582 |
TTL:; |
TTL:; |
3583 |
{object V480; |
{object V490; |
3584 |
V480= number_minus(symbol_value(VV[182]),(V479)); |
V490= number_minus((VV[182]->s.s_dbind),(V489)); |
3585 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[183]))==0)){ |
if(!(number_compare(small_fixnum(0),(VV[183]->s.s_dbind))==0)){ |
3586 |
goto T1905;} |
goto T1896;} |
3587 |
V481= (VFUN_NARGS=1,(*(LnkLI337))((V478))); |
V491= (VFUN_NARGS=1,(*(LnkLI340))((V488))); |
3588 |
{long V482 = (long)(*(LnkLI336))(/* INLINE-ARGS */V481,(V480)); |
{long V492 = (long)(*(LnkLI339))(/* INLINE-ARGS */V491,(V490)); |
3589 |
VMR30((object)V482)} |
VMR30((object)V492)} |
3590 |
goto T1905; |
goto T1896; |
3591 |
T1905:; |
T1896:; |
3592 |
{register object V483; |
{register object V493; |
3593 |
register object V484; |
register object V494; |
3594 |
V483= Cnil; |
V493= Cnil; |
3595 |
V484= Cnil; |
V494= Cnil; |
3596 |
{register object V485; |
{register object V495; |
3597 |
register object V486; |
register object V496; |
3598 |
V485= (V478); |
V495= (V488); |
3599 |
V486= car((V485)); |
V496= CMPcar((V495)); |
3600 |
goto T1911; |
goto T1902; |
3601 |
T1911:; |
T1902:; |
3602 |
if(!(endp_prop((V485)))){ |
if(!(((V495))==Cnil)){ |
3603 |
goto T1912;} |
goto T1903;} |
3604 |
goto T1907; |
goto T1898; |
3605 |
|
goto T1903; |
3606 |
|
T1903:; |
3607 |
|
{register object x= STREF(object,(V496),20),V497= VV[184]; |
3608 |
|
while(V497!=Cnil) |
3609 |
|
if(x==(V497->c.c_car)){ |
3610 |
|
goto T1910; |
3611 |
|
}else V497=V497->c.c_cdr; |
3612 |
|
goto T1909;} |
3613 |
|
goto T1910; |
3614 |
|
T1910:;{object V498; |
3615 |
|
{register object x= (V496),V499= (V494); |
3616 |
|
while(V499!=Cnil) |
3617 |
|
if(eql(x,V499->c.c_car)){ |
3618 |
|
V498= V499; |
3619 |
|
goto T1912; |
3620 |
|
}else V499=V499->c.c_cdr; |
3621 |
|
V498= Cnil;} |
3622 |
goto T1912; |
goto T1912; |
3623 |
T1912:; |
T1912:; |
3624 |
V488= structure_ref((V486),VV[70],5); |
if(V498==Cnil)goto T1911; |
3625 |
{register object x= /* INLINE-ARGS */V488,V487= VV[184]; |
goto T1907; |
3626 |
while(!endp(V487)) |
goto T1911; |
3627 |
if(x==(V487->c.c_car)){ |
T1911:;} |
3628 |
goto T1919; |
{register object V500; |
3629 |
}else V487=V487->c.c_cdr; |
V500= (V496); |
3630 |
goto T1918;} |
V494= make_cons((V500),(V494)); |
3631 |
goto T1919; |
goto T1907;} |
3632 |
T1919:;{object V489; |
goto T1909; |
3633 |
{register object x= (V486),V490= (V484); |
T1909:;{object V501; |
3634 |
while(!endp(V490)) |
{register object x= (V496),V502= (V493); |
3635 |
if(eql(x,V490->c.c_car)){ |
while(V502!=Cnil) |
3636 |
V489= V490; |
if(x==(V502->c.c_car)){ |
3637 |
goto T1921; |
V501= V502; |
|
}else V490=V490->c.c_cdr; |
|
|
V489= Cnil;} |
|
|
goto T1921; |
|
|
T1921:; |
|
|
if(V489==Cnil)goto T1920; |
|
|
goto T1916; |
|
|
goto T1920; |
|
|
T1920:;} |
|
|
{register object V491; |
|
|
V491= (V486); |
|
|
V484= make_cons((V491),(V484)); |
|
|
goto T1916;} |
|
|
goto T1918; |
|
|
T1918:;{object V492; |
|
|
{register object x= (V486),V493= (V483); |
|
|
while(!endp(V493)) |
|
|
if(x==(V493->c.c_car)){ |
|
|
V492= V493; |
|
|
goto T1925; |
|
|
}else V493=V493->c.c_cdr; |
|
|
V492= Cnil;} |
|
|
goto T1925; |
|
|
T1925:; |
|
|
if(V492==Cnil)goto T1924; |
|
3638 |
goto T1916; |
goto T1916; |
3639 |
goto T1924; |
}else V502=V502->c.c_cdr; |
3640 |
T1924:;} |
V501= Cnil;} |
|
{register object V494; |
|
|
V494= (V486); |
|
|
V484= make_cons((V494),(V484));} |
|
3641 |
goto T1916; |
goto T1916; |
3642 |
T1916:; |
T1916:; |
3643 |
V485= cdr((V485)); |
if(V501==Cnil)goto T1915; |
3644 |
V486= car((V485)); |
goto T1907; |
3645 |
goto T1911;} |
goto T1915; |
3646 |
|
T1915:;} |
3647 |
|
{register object V503; |
3648 |
|
V503= (V496); |
3649 |
|
V494= make_cons((V503),(V494));} |
3650 |
goto T1907; |
goto T1907; |
3651 |
T1907:; |
T1907:; |
3652 |
(void)((*(LnkLI336))((V483),(V480))); |
V495= CMPcdr((V495)); |
3653 |
{long V495 = (long)(*(LnkLI336))((V484),symbol_value(VV[183])); |
V496= CMPcar((V495)); |
3654 |
VMR30((object)V495)}}} |
goto T1902;} |
3655 |
|
goto T1898; |
3656 |
|
T1898:; |
3657 |
|
(void)((*(LnkLI339))((V493),(V490))); |
3658 |
|
{long V504 = (long)(*(LnkLI339))((V494),(VV[183]->s.s_dbind)); |
3659 |
|
VMR30((object)V504)}}} |
3660 |
base[0]=base[0]; |
base[0]=base[0]; |
3661 |
} |
} |
3662 |
/* local entry for function ANALYZE-REGS1 */ |
/* local entry for function ANALYZE-REGS1 */ |
3663 |
|
|
3664 |
static object LI32(V498,V499) |
static object LI32(V507,V508) |
3665 |
|
|
3666 |
object V498;object V499; |
object V507;object V508; |
3667 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
3668 |
goto TTL; |
goto TTL; |
3669 |
TTL:; |
TTL:; |
3670 |
{register long V500; |
{register long V509; |
3671 |
register long V501; |
register long V510; |
3672 |
long V502; |
long V511; |
3673 |
long V503; |
long V512; |
3674 |
register long V504; |
register long V513; |
3675 |
V500= 0; |
V509= 0; |
3676 |
V501= 3; |
V510= 3; |
3677 |
V502= 100000; |
V511= 100000; |
3678 |
V503= fix((V499)); |
V512= fix((V508)); |
3679 |
V504= 0; |
V513= 0; |
3680 |
V498= (VFUN_NARGS=1,(*(LnkLI337))((V498))); |
V507= (VFUN_NARGS=1,(*(LnkLI340))((V507))); |
3681 |
goto T1942; |
goto T1933; |
3682 |
T1942:; |
T1933:; |
3683 |
{register object V505; |
{register object V514; |
3684 |
object V506; |
object V515; |
3685 |
V505= (V498); |
V514= (V507); |
3686 |
V506= car((V505)); |
V515= CMPcar((V514)); |
3687 |
goto T1948; |
goto T1939; |
3688 |
T1948:; |
T1939:; |
3689 |
if(!(endp_prop((V505)))){ |
if(!(((V514))==Cnil)){ |
3690 |
goto T1949;} |
goto T1940;} |
3691 |
goto T1944; |
goto T1935; |
3692 |
goto T1949; |
goto T1940; |
3693 |
T1949:; |
T1940:; |
3694 |
V500= fix(structure_ref((V506),VV[70],6)); |
V509= fix(STREF(object,(V515),24)); |
3695 |
if(!((V500)>=(V501))){ |
if(!((V509)>=(V510))){ |
3696 |
goto T1955;} |
goto T1946;} |
3697 |
V504= (long)(V504)+(1); |
V513= (long)(V513)+(1); |
3698 |
if(!((V500)<(V502))){ |
if(!((V509)<(V511))){ |
3699 |
goto T1960;} |
goto T1951;} |
3700 |
V502= V500; |
V511= V509; |
3701 |
goto T1960; |
goto T1951; |
3702 |
T1960:; |
T1951:; |
3703 |
if(!((V504)>(V503))){ |
if(!((V513)>(V512))){ |
3704 |
goto T1955;} |
goto T1946;} |
3705 |
goto T1943; |
goto T1934; |
3706 |
goto T1955; |
goto T1946; |
3707 |
T1955:; |
T1946:; |
3708 |
V505= cdr((V505)); |
V514= CMPcdr((V514)); |
3709 |
V506= car((V505)); |
V515= CMPcar((V514)); |
3710 |
goto T1948;} |
goto T1939;} |
3711 |
goto T1944; |
goto T1935; |
3712 |
T1944:; |
T1935:; |
3713 |
if(!((V504)<(V503))){ |
if(!((V513)<(V512))){ |
3714 |
|
goto T1962;} |
3715 |
|
V510= (long)(V510)-(1); |
3716 |
|
goto T1962; |
3717 |
|
T1962:; |
3718 |
|
{register object V516; |
3719 |
|
register object V517; |
3720 |
|
V516= (V507); |
3721 |
|
V517= CMPcar((V516)); |
3722 |
|
goto T1970; |
3723 |
|
T1970:; |
3724 |
|
if(!(((V516))==Cnil)){ |
3725 |
goto T1971;} |
goto T1971;} |
3726 |
V501= (long)(V501)-(1); |
goto T1966; |
3727 |
goto T1971; |
goto T1971; |
3728 |
T1971:; |
T1971:; |
3729 |
{register object V507; |
if(!((fix(STREF(object,(V517),24)))<(V510))){ |
3730 |
register object V508; |
goto T1975;} |
3731 |
V507= (V498); |
V518= Ct; |
3732 |
V508= car((V507)); |
STSET(object,(V517),24, small_fixnum(0)); |
3733 |
goto T1979; |
(void)(small_fixnum(0)); |
|
T1979:; |
|
|
if(!(endp_prop((V507)))){ |
|
|
goto T1980;} |
|
|
goto T1975; |
|
|
goto T1980; |
|
|
T1980:; |
|
|
{long V509= fix(structure_ref((V508),VV[70],6)); |
|
|
if(!((/* INLINE-ARGS */V509)<(V501))){ |
|
|
goto T1984;}} |
|
|
(void)(structure_set((V508),VV[70],6,small_fixnum(0))); |
|
|
goto T1984; |
|
|
T1984:; |
|
|
V507= cdr((V507)); |
|
|
V508= car((V507)); |
|
|
goto T1979;} |
|
3734 |
goto T1975; |
goto T1975; |
3735 |
T1975:; |
T1975:; |
3736 |
{long V510 = V501; |
V516= CMPcdr((V516)); |
3737 |
VMR31((object)V510)} |
V517= CMPcar((V516)); |
3738 |
goto T1943; |
goto T1970;} |
3739 |
T1943:; |
goto T1966; |
3740 |
V504= 0; |
T1966:; |
3741 |
V501= (long)(V502)+(1); |
{long V519 = V510; |
3742 |
V502= 1000000; |
VMR31((object)V519)} |
3743 |
goto T1942;} |
goto T1934; |
3744 |
|
T1934:; |
3745 |
|
V513= 0; |
3746 |
|
V510= (long)(V511)+(1); |
3747 |
|
V511= 1000000; |
3748 |
|
goto T1933;} |
3749 |
base[0]=base[0]; |
base[0]=base[0]; |
3750 |
} |
} |
3751 |
/* local entry for function WT-GLOBAL-ENTRY */ |
/* local entry for function WT-GLOBAL-ENTRY */ |
3752 |
|
|
3753 |
static object LI33(V515,V516,V517,V518) |
static object LI33(V524,V525,V526,V527) |
3754 |
|
|
3755 |
object V515;object V516;object V517;object V518; |
object V524;object V525;object V526;object V527; |
3756 |
{ VMB32 VMS32 VMV32 |
{ VMB32 VMS32 VMV32 |
3757 |
goto TTL; |
goto TTL; |
3758 |
TTL:; |
TTL:; |
3759 |
if((get((V515),VV[103],Cnil))==Cnil){ |
{object V528 =((V524))->s.s_plist; |
3760 |
goto T1999;} |
object ind= VV[103]; |
3761 |
{object V519 = Cnil; |
while(V528!=Cnil){ |
3762 |
VMR32(V519)} |
if(V528->c.c_car==ind){ |
3763 |
goto T1999; |
if(((V528->c.c_cdr->c.c_car))==Cnil){ |
3764 |
T1999:; |
goto T1990;} |
3765 |
(void)((VFUN_NARGS=2,(*(LnkLI313))(VV[187],(V515)))); |
goto T1992; |
3766 |
|
}else V528=V528->c.c_cdr->c.c_cdr;} |
3767 |
|
goto T1990;} |
3768 |
|
goto T1992; |
3769 |
|
T1992:; |
3770 |
|
{object V529 = Cnil; |
3771 |
|
VMR32(V529)} |
3772 |
|
goto T1990; |
3773 |
|
T1990:; |
3774 |
|
(void)((VFUN_NARGS=2,(*(LnkLI316))(VV[187],(V524)))); |
3775 |
princ_str("\nstatic void L",VV[26]); |
princ_str("\nstatic void L",VV[26]); |
3776 |
(void)((*(LnkLI275))((V516))); |
(void)((*(LnkLI275))((V525))); |
3777 |
princ_str("()",VV[26]); |
princ_str("()",VV[26]); |
3778 |
princ_str("\n{ register object *base=vs_base;",VV[26]); |
princ_str("\n{ register object *base=vs_base;",VV[26]); |
3779 |
if((symbol_value(VV[164]))!=Cnil){ |
if(((VV[164]->s.s_dbind))!=Cnil){ |
3780 |
goto T2010;} |
goto T2001;} |
3781 |
if((symbol_value(VV[165]))==Cnil){ |
if(((VV[165]->s.s_dbind))==Cnil){ |
3782 |
goto T2009;} |
goto T2000;} |
3783 |
goto T2010; |
goto T2001; |
3784 |
T2010:; |
T2001:; |
3785 |
princ_str("\n check_arg(",VV[26]); |
princ_str("\n check_arg(",VV[26]); |
3786 |
V520 = make_fixnum((long)length((V517))); |
V530 = CMPmake_fixnum((long)length((V526))); |
3787 |
(void)((*(LnkLI275))(V520)); |
(void)((*(LnkLI275))(V530)); |
3788 |
princ_str(");",VV[26]); |
princ_str(");",VV[26]); |
3789 |
goto T2009; |
goto T2000; |
3790 |
T2009:; |
T2000:; |
3791 |
princ_str("\n base[0]=",VV[26]); |
princ_str("\n base[0]=",VV[26]); |
3792 |
{object V522= (V518); |
{object V532= (V527); |
3793 |
if((V522!= VV[90]))goto T2021; |
if((V532!= VV[90]))goto T2012; |
3794 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[115]))==0)){ |
if(!(number_compare(small_fixnum(0),(VV[115]->s.s_dbind))==0)){ |
3795 |
goto T2023;} |
goto T2014;} |
3796 |
V521= VV[188]; |
V531= VV[188]; |
3797 |
goto T2020; |
goto T2011; |
3798 |
goto T2023; |
goto T2014; |
3799 |
T2023:; |
T2014:; |
3800 |
V521= VV[189]; |
V531= VV[189]; |
3801 |
goto T2020; |
goto T2011; |
3802 |
goto T2021; |
goto T2012; |
3803 |
T2021:; |
T2012:; |
3804 |
if((V522!= VV[143]))goto T2025; |
if((V532!= VV[143]))goto T2016; |
3805 |
V521= VV[190]; |
V531= VV[190]; |
3806 |
goto T2020; |
goto T2011; |
3807 |
|
goto T2016; |
3808 |
|
T2016:; |
3809 |
|
if((V532!= VV[144]))goto T2017; |
3810 |
|
V531= VV[191]; |
3811 |
|
goto T2011; |
3812 |
|
goto T2017; |
3813 |
|
T2017:; |
3814 |
|
if((V532!= VV[145]))goto T2018; |
3815 |
|
V531= VV[192]; |
3816 |
|
goto T2011; |
3817 |
|
goto T2018; |
3818 |
|
T2018:; |
3819 |
|
V531= VV[193];} |
3820 |
|
goto T2011; |
3821 |
|
T2011:; |
3822 |
|
(void)((*(LnkLI275))(V531)); |
3823 |
|
princ_str("(LI",VV[26]); |
3824 |
|
(void)((*(LnkLI275))((V525))); |
3825 |
|
princ_char(40,VV[26]); |
3826 |
|
{register object V533; |
3827 |
|
register long V534; |
3828 |
|
V534= 0; |
3829 |
|
V533= (V526); |
3830 |
goto T2025; |
goto T2025; |
3831 |
T2025:; |
T2025:; |
3832 |
if((V522!= VV[144]))goto T2026; |
if(!(((V533))==Cnil)){ |
3833 |
V521= VV[191]; |
goto T2026;} |
3834 |
goto T2020; |
goto T2022; |
3835 |
goto T2026; |
goto T2026; |
3836 |
T2026:; |
T2026:; |
3837 |
if((V522!= VV[145]))goto T2027; |
{object V536= CMPcar((V533)); |
3838 |
V521= VV[192]; |
if((V536!= VV[90]))goto T2033; |
3839 |
goto T2020; |
V535= VV[194]; |
3840 |
goto T2027; |
goto T2032; |
3841 |
T2027:; |
goto T2033; |
3842 |
V521= VV[193];} |
T2033:; |
3843 |
goto T2020; |
if((V536!= VV[143]))goto T2034; |
3844 |
T2020:; |
V535= VV[195]; |
3845 |
(void)((*(LnkLI275))(V521)); |
goto T2032; |
|
princ_str("(LI",VV[26]); |
|
|
(void)((*(LnkLI275))((V516))); |
|
|
princ_char(40,VV[26]); |
|
|
{register object V523; |
|
|
register long V524; |
|
|
V524= 0; |
|
|
V523= (V517); |
|
3846 |
goto T2034; |
goto T2034; |
3847 |
T2034:; |
T2034:; |
3848 |
if(!(endp_prop((V523)))){ |
if((V536!= VV[144]))goto T2035; |
3849 |
goto T2035;} |
V535= VV[196]; |
3850 |
goto T2031; |
goto T2032; |
3851 |
goto T2035; |
goto T2035; |
3852 |
T2035:; |
T2035:; |
3853 |
{object V526= car((V523)); |
if((V536!= VV[145]))goto T2036; |
3854 |
if((V526!= VV[90]))goto T2042; |
V535= VV[197]; |
3855 |
V525= VV[194]; |
goto T2032; |
3856 |
goto T2041; |
goto T2036; |
3857 |
goto T2042; |
T2036:; |
3858 |
T2042:; |
V535= VV[198];} |
3859 |
if((V526!= VV[143]))goto T2043; |
goto T2032; |
3860 |
V525= VV[195]; |
T2032:; |
3861 |
goto T2041; |
(void)((*(LnkLI275))(V535)); |
|
goto T2043; |
|
|
T2043:; |
|
|
if((V526!= VV[144]))goto T2044; |
|
|
V525= VV[196]; |
|
|
goto T2041; |
|
|
goto T2044; |
|
|
T2044:; |
|
|
if((V526!= VV[145]))goto T2045; |
|
|
V525= VV[197]; |
|
|
goto T2041; |
|
|
goto T2045; |
|
|
T2045:; |
|
|
V525= VV[198];} |
|
|
goto T2041; |
|
|
T2041:; |
|
|
(void)((*(LnkLI275))(V525)); |
|
3862 |
princ_str("(base[",VV[26]); |
princ_str("(base[",VV[26]); |
3863 |
V527 = make_fixnum(V524); |
V537 = CMPmake_fixnum(V534); |
3864 |
(void)((*(LnkLI275))(V527)); |
(void)((*(LnkLI275))(V537)); |
3865 |
princ_str("])",VV[26]); |
princ_str("])",VV[26]); |
3866 |
if(endp_prop(cdr((V523)))){ |
if((CMPcdr((V533)))==Cnil){ |
3867 |
goto T2049;} |
goto T2040;} |
3868 |
princ_char(44,VV[26]); |
princ_char(44,VV[26]); |
3869 |
goto T2049; |
goto T2040; |
3870 |
T2049:; |
T2040:; |
3871 |
V523= cdr((V523)); |
V533= CMPcdr((V533)); |
3872 |
V524= (long)(V524)+1; |
V534= (long)(V534)+1; |
3873 |
goto T2034;} |
goto T2025;} |
3874 |
goto T2031; |
goto T2022; |
3875 |
T2031:; |
T2022:; |
3876 |
princ_str("));",VV[26]); |
princ_str("));",VV[26]); |
3877 |
princ_str("\n vs_top=(vs_base=base)+1;",VV[26]); |
princ_str("\n vs_top=(vs_base=base)+1;",VV[26]); |
3878 |
princ_str("\n}",VV[26]); |
princ_str("\n}",VV[26]); |
3879 |
{object V528 = Cnil; |
{object V538 = Cnil; |
3880 |
VMR32(V528)} |
VMR32(V538)} |
3881 |
return Cnil; |
return Cnil; |
3882 |
} |
} |
3883 |
/* local entry for function REP-TYPE */ |
/* local entry for function REP-TYPE */ |
3884 |
|
|
3885 |
static object LI34(V530) |
static object LI34(V540) |
3886 |
|
|
3887 |
object V530; |
object V540; |
3888 |
{ VMB33 VMS33 VMV33 |
{ VMB33 VMS33 VMV33 |
3889 |
goto TTL; |
goto TTL; |
3890 |
TTL:; |
TTL:; |
3891 |
{object V531= (V530); |
{object V541= (V540); |
3892 |
if((V531!= VV[90]))goto T2062; |
if((V541!= VV[90]))goto T2053; |
3893 |
{object V532 = VV[199]; |
{object V542 = VV[199]; |
3894 |
VMR33(V532)} |
VMR33(V542)} |
3895 |
goto T2062; |
goto T2053; |
3896 |
T2062:; |
T2053:; |
3897 |
if((V531!= VV[262]))goto T2063; |
if((V541!= VV[262]))goto T2054; |
3898 |
{object V533 = VV[200]; |
{object V543 = VV[200]; |
3899 |
VMR33(V533)} |
VMR33(V543)} |
3900 |
goto T2063; |
goto T2054; |
3901 |
T2063:; |
T2054:; |
3902 |
if((V531!= VV[143]))goto T2064; |
if((V541!= VV[143]))goto T2055; |
3903 |
{object V534 = VV[201]; |
{object V544 = VV[201]; |
3904 |
VMR33(V534)} |
VMR33(V544)} |
3905 |
goto T2064; |
goto T2055; |
3906 |
T2064:; |
T2055:; |
3907 |
if((V531!= VV[145]))goto T2065; |
if((V541!= VV[145]))goto T2056; |
3908 |
{object V535 = VV[202]; |
{object V545 = VV[202]; |
3909 |
VMR33(V535)} |
VMR33(V545)} |
3910 |
goto T2065; |
goto T2056; |
3911 |
T2065:; |
T2056:; |
3912 |
if((V531!= VV[144]))goto T2066; |
if((V541!= VV[144]))goto T2057; |
3913 |
{object V536 = VV[203]; |
{object V546 = VV[203]; |
3914 |
VMR33(V536)} |
VMR33(V546)} |
3915 |
goto T2066; |
goto T2057; |
3916 |
T2066:; |
T2057:; |
3917 |
{object V537 = VV[204]; |
{object V547 = VV[204]; |
3918 |
VMR33(V537)}} |
VMR33(V547)}} |
3919 |
return Cnil; |
return Cnil; |
3920 |
} |
} |
3921 |
/* local entry for function T1DEFMACRO */ |
/* local entry for function T1DEFMACRO */ |
3922 |
|
|
3923 |
static object LI35(V539) |
static object LI35(V549) |
3924 |
|
|
3925 |
register object V539; |
register object V549; |
3926 |
{ VMB34 VMS34 VMV34 |
{ VMB34 VMS34 VMV34 |
3927 |
bds_check; |
bds_check; |
3928 |
goto TTL; |
goto TTL; |
3929 |
TTL:; |
TTL:; |
3930 |
if(endp_prop((V539))){ |
if(((V549))==Cnil){ |
3931 |
goto T2068;} |
goto T2059;} |
3932 |
if(!(endp_prop(cdr((V539))))){ |
if(!((CMPcdr((V549)))==Cnil)){ |
3933 |
goto T2067;} |
goto T2058;} |
3934 |
goto T2068; |
goto T2059; |
3935 |
T2068:; |
T2059:; |
3936 |
V540 = make_fixnum((long)length((V539))); |
V550 = CMPmake_fixnum((long)length((V549))); |
3937 |
(void)((*(LnkLI284))(VV[205],small_fixnum(2),V540)); |
(void)((*(LnkLI284))(VV[205],small_fixnum(2),V550)); |
3938 |
goto T2067; |
goto T2058; |
3939 |
T2067:; |
T2058:; |
3940 |
if(type_of(car((V539)))==t_symbol){ |
if(type_of(CMPcar((V549)))==t_symbol){ |
3941 |
goto T2072;} |
goto T2063;} |
3942 |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[206],car((V539))))); |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[206],CMPcar((V549))))); |
3943 |
goto T2072; |
goto T2063; |
3944 |
T2072:; |
T2063:; |
3945 |
V541= make_cons(VV[205],(V539)); |
V551= make_cons(VV[205],(V549)); |
3946 |
(void)((*(LnkLI269))(Ct,/* INLINE-ARGS */V541)); |
(void)((*(LnkLI269))(Ct,/* INLINE-ARGS */V551)); |
3947 |
setq(VV[6],Ct); |
(VV[6]->s.s_dbind)= Ct; |
3948 |
{register object V542; |
{register object V552; |
3949 |
object V543; |
object V553; |
3950 |
setq(VV[62],number_plus(symbol_value(VV[62]),small_fixnum(1))); |
(VV[62]->s.s_dbind)= number_plus((VV[62]->s.s_dbind),small_fixnum(1)); |
3951 |
V543= symbol_value(VV[62]); |
V553= (VV[62]->s.s_dbind); |
3952 |
bds_bind(VV[56],Cnil); |
bds_bind(VV[56],Cnil); |
3953 |
bds_bind(VV[57],Cnil); |
bds_bind(VV[57],Cnil); |
3954 |
bds_bind(VV[58],Cnil); |
bds_bind(VV[58],Cnil); |
3955 |
bds_bind(VV[59],Cnil); |
bds_bind(VV[59],Cnil); |
3956 |
bds_bind(VV[53],Cnil); |
bds_bind(VV[53],Cnil); |
3957 |
bds_bind(VV[60],Cnil); |
bds_bind(VV[60],Cnil); |
3958 |
V542= Cnil; |
V552= Cnil; |
3959 |
V542= (*(LnkLI338))(car((V539)),cadr((V539)),cddr((V539))); |
V552= (*(LnkLI341))(CMPcar((V549)),CMPcadr((V549)),CMPcddr((V549))); |
3960 |
(void)((*(LnkLI294))()); |
(void)((*(LnkLI297))()); |
3961 |
{object V544; |
{object V554; |
3962 |
V544= list(7,VV[205],car((V539)),(V543),cddr((V542)),car((V542)),cadr((V542)),(VV[60]->s.s_dbind)); |
V554= list(7,VV[205],CMPcar((V549)),(V553),CMPcddr((V552)),CMPcar((V552)),CMPcadr((V552)),(VV[60]->s.s_dbind)); |
3963 |
setq(VV[25],make_cons((V544),symbol_value(VV[25]))); |
(VV[25]->s.s_dbind)= make_cons((V554),(VV[25]->s.s_dbind)); |
3964 |
{object V545 = symbol_value(VV[25]); |
{object V555 = (VV[25]->s.s_dbind); |
3965 |
bds_unwind1; |
bds_unwind1; |
3966 |
bds_unwind1; |
bds_unwind1; |
3967 |
bds_unwind1; |
bds_unwind1; |
3968 |
bds_unwind1; |
bds_unwind1; |
3969 |
bds_unwind1; |
bds_unwind1; |
3970 |
bds_unwind1; |
bds_unwind1; |
3971 |
VMR34(V545)}}} |
VMR34(V555)}}} |
3972 |
base[0]=base[0]; |
base[0]=base[0]; |
3973 |
return Cnil; |
return Cnil; |
3974 |
} |
} |
3975 |
/* local entry for function T2DEFMACRO */ |
/* local entry for function T2DEFMACRO */ |
3976 |
|
|
3977 |
static object LI36(V552,V553,V554,V555,V556,V557) |
static object LI36(V562,V563,V564,V565,V566,V567) |
3978 |
|
|
3979 |
object V552;object V553;object V554;object V555;object V556;object V557; |
object V562;object V563;object V564;object V565;object V566;object V567; |
3980 |
{ VMB35 VMS35 VMV35 |
{ VMB35 VMS35 VMV35 |
3981 |
goto TTL; |
goto TTL; |
3982 |
TTL:; |
TTL:; |
3983 |
if(((V555))==Cnil){ |
if(((V565))==Cnil){ |
3984 |
goto T2085;} |
goto T2076;} |
3985 |
V558= list(4,VV[104],list(2,VV[92],(V552)),(V555),VV[207]); |
V568= list(4,VV[104],list(2,VV[92],(V562)),(V565),VV[207]); |
3986 |
(void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V558))); |
(void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V568))); |
3987 |
goto T2085; |
goto T2076; |
3988 |
T2085:; |
T2076:; |
3989 |
if(((V556))==Cnil){ |
if(((V566))==Cnil){ |
3990 |
goto T2088;} |
goto T2079;} |
3991 |
V559= list(2,VV[92],(V552)); |
V569= list(2,VV[92],(V562)); |
3992 |
V560= list(4,VV[104],/* INLINE-ARGS */V559,list(2,VV[92],(V556)),VV[208]); |
V570= list(4,VV[104],/* INLINE-ARGS */V569,list(2,VV[92],(V566)),VV[208]); |
3993 |
(void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V560))); |
(void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V570))); |
3994 |
goto T2088; |
goto T2079; |
3995 |
T2088:; |
T2079:; |
3996 |
princ_str("\nstatic void L",VV[32]); |
princ_str("\nstatic void L",VV[32]); |
3997 |
(void)((*(LnkLI278))((V553))); |
(void)((*(LnkLI278))((V563))); |
3998 |
princ_str("();",VV[32]); |
princ_str("();",VV[32]); |
3999 |
V561= list(2,VV[92],(V552)); |
V571= list(2,VV[92],(V562)); |
4000 |
V562= list(3,VV[209],/* INLINE-ARGS */V561,(*(LnkLI302))(VV[210],(V553))); |
V572= list(3,VV[209],/* INLINE-ARGS */V571,(*(LnkLI305))(VV[210],(V563))); |
4001 |
{object V563 = (VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V562)); |
{object V573 = (VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V572)); |
4002 |
VMR35(V563)} |
VMR35(V573)} |
4003 |
return Cnil; |
return Cnil; |
4004 |
} |
} |
4005 |
/* local entry for function T3DEFMACRO */ |
/* local entry for function T3DEFMACRO */ |
4006 |
|
|
4007 |
static object LI37(V570,V571,V572,V573,V574,V575) |
static object LI37(V580,V581,V582,V583,V584,V585) |
4008 |
|
|
4009 |
object V570;object V571;register object V572;object V573;object V574;object V575; |
object V580;object V581;register object V582;object V583;object V584;object V585; |
4010 |
{ VMB36 VMS36 VMV36 |
{ VMB36 VMS36 VMV36 |
4011 |
bds_check; |
bds_check; |
4012 |
goto TTL; |
goto TTL; |
4013 |
TTL:; |
TTL:; |
4014 |
if((get((V570),VV[211],Cnil))==Cnil){ |
{object V586 =((V580))->s.s_plist; |
4015 |
goto T2097;} |
object ind= VV[211]; |
4016 |
|
while(V586!=Cnil){ |
4017 |
|
if(V586->c.c_car==ind){ |
4018 |
|
if(((V586->c.c_cdr->c.c_car))==Cnil){ |
4019 |
|
goto T2088;} |
4020 |
|
goto T2089; |
4021 |
|
}else V586=V586->c.c_cdr->c.c_cdr;} |
4022 |
|
goto T2088;} |
4023 |
|
goto T2089; |
4024 |
|
T2089:; |
4025 |
bds_bind(VV[21],VV[212]); |
bds_bind(VV[21],VV[212]); |
4026 |
goto T2095; |
goto T2086; |
4027 |
goto T2097; |
goto T2088; |
4028 |
T2097:; |
T2088:; |
4029 |
bds_bind(VV[21],VV[213]); |
bds_bind(VV[21],VV[213]); |
4030 |
goto T2095; |
goto T2086; |
4031 |
T2095:; |
T2086:; |
4032 |
bds_bind(VV[129],VV[128]); |
bds_bind(VV[129],VV[128]); |
4033 |
bds_bind(VV[19],Cnil); |
bds_bind(VV[19],Cnil); |
4034 |
bds_bind(VV[130],small_fixnum(0)); |
bds_bind(VV[130],small_fixnum(0)); |
4038 |
bds_bind(VV[134],Cnil); |
bds_bind(VV[134],Cnil); |
4039 |
bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil)); |
bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil)); |
4040 |
bds_bind(VV[136],(VV[129]->s.s_dbind)); |
bds_bind(VV[136],(VV[129]->s.s_dbind)); |
4041 |
setq(VV[138],number_plus(symbol_value(VV[138]),small_fixnum(1))); |
(VV[138]->s.s_dbind)= number_plus((VV[138]->s.s_dbind),small_fixnum(1)); |
4042 |
bds_bind(VV[137],symbol_value(VV[138])); |
bds_bind(VV[137],(VV[138]->s.s_dbind)); |
4043 |
bds_bind(VV[139],Cnil); |
bds_bind(VV[139],Cnil); |
4044 |
bds_bind(VV[140],Cnil); |
bds_bind(VV[140],Cnil); |
4045 |
bds_bind(VV[141],Cnil); |
bds_bind(VV[141],Cnil); |
4046 |
bds_bind(VV[142],small_fixnum(0)); |
bds_bind(VV[142],small_fixnum(0)); |
4047 |
(void)((VFUN_NARGS=2,(*(LnkLI313))(VV[214],(V570)))); |
(void)((VFUN_NARGS=2,(*(LnkLI316))(VV[214],(V580)))); |
4048 |
princ_str("\nstatic void L",VV[26]); |
princ_str("\nstatic void L",VV[26]); |
4049 |
(void)((*(LnkLI275))((V571))); |
(void)((*(LnkLI275))((V581))); |
4050 |
princ_str("()",VV[26]); |
princ_str("()",VV[26]); |
4051 |
princ_str("\n{register object *",VV[26]); |
princ_str("\n{register object *",VV[26]); |
4052 |
(void)((*(LnkLI275))((VV[21]->s.s_dbind))); |
(void)((*(LnkLI275))((VV[21]->s.s_dbind))); |
4053 |
princ_str("base=vs_base;",VV[26]); |
princ_str("base=vs_base;",VV[26]); |
4054 |
V576= structure_ref(car(cddddr((V572))),VV[63],1); |
(void)((*(LnkLI318))(STREF(object,CMPcar(CMPcddddr((V582))),4),(V581),VV[149])); |
|
(void)((*(LnkLI315))(/* INLINE-ARGS */V576,(V571),VV[149])); |
|
4055 |
princ_str("\n register object *",VV[26]); |
princ_str("\n register object *",VV[26]); |
4056 |
(void)((*(LnkLI275))((VV[21]->s.s_dbind))); |
(void)((*(LnkLI275))((VV[21]->s.s_dbind))); |
4057 |
princ_str("sup=base+VM",VV[26]); |
princ_str("sup=base+VM",VV[26]); |
4059 |
princ_char(59,VV[26]); |
princ_char(59,VV[26]); |
4060 |
princ_str(" VC",VV[26]); |
princ_str(" VC",VV[26]); |
4061 |
(void)((*(LnkLI275))((VV[137]->s.s_dbind))); |
(void)((*(LnkLI275))((VV[137]->s.s_dbind))); |
4062 |
if((symbol_value(VV[164]))==Cnil){ |
if(((VV[164]->s.s_dbind))==Cnil){ |
4063 |
goto T2123;} |
goto T2114;} |
4064 |
princ_str("\n vs_reserve(VM",VV[26]); |
princ_str("\n vs_reserve(VM",VV[26]); |
4065 |
(void)((*(LnkLI275))((VV[137]->s.s_dbind))); |
(void)((*(LnkLI275))((VV[137]->s.s_dbind))); |
4066 |
princ_str(");",VV[26]); |
princ_str(");",VV[26]); |
4067 |
goto T2121; |
goto T2112; |
4068 |
goto T2123; |
goto T2114; |
4069 |
T2123:; |
T2114:; |
4070 |
princ_str("\n vs_check;",VV[26]); |
princ_str("\n vs_check;",VV[26]); |
4071 |
goto T2121; |
goto T2112; |
4072 |
T2121:; |
T2112:; |
4073 |
if(((V575))==Cnil){ |
if(((V585))==Cnil){ |
4074 |
goto T2129;} |
goto T2120;} |
4075 |
princ_str("\n bds_check;",VV[26]); |
princ_str("\n bds_check;",VV[26]); |
4076 |
goto T2129; |
goto T2120; |
4077 |
T2129:; |
T2120:; |
4078 |
if((symbol_value(VV[150]))==Cnil){ |
if(((VV[150]->s.s_dbind))==Cnil){ |
4079 |
goto T2133;} |
goto T2124;} |
4080 |
princ_str("\n ihs_check;",VV[26]); |
princ_str("\n ihs_check;",VV[26]); |
4081 |
goto T2133; |
goto T2124; |
4082 |
T2133:; |
T2124:; |
4083 |
base[15]= car((V572)); |
base[15]= CMPcar((V582)); |
4084 |
base[16]= cadr((V572)); |
base[16]= CMPcadr((V582)); |
4085 |
base[17]= caddr((V572)); |
base[17]= CMPcaddr((V582)); |
4086 |
base[18]= cadddr((V572)); |
base[18]= CMPcadddr((V582)); |
4087 |
vs_top=(vs_base=base+15)+4; |
vs_top=(vs_base=base+15)+4; |
4088 |
(void) (*Lnk339)(); |
(void) (*Lnk342)(); |
4089 |
vs_top=sup; |
vs_top=sup; |
4090 |
princ_str("\n}",VV[26]); |
princ_str("\n}",VV[26]); |
4091 |
{object V577; |
{object V587; |
4092 |
V577= make_cons((VV[137]->s.s_dbind),(VV[131]->s.s_dbind)); |
V587= make_cons((VV[137]->s.s_dbind),(VV[131]->s.s_dbind)); |
4093 |
setq(VV[34],make_cons((V577),symbol_value(VV[34])));} |
(VV[34]->s.s_dbind)= make_cons((V587),(VV[34]->s.s_dbind));} |
4094 |
princ_str("\n#define VC",VV[32]); |
princ_str("\n#define VC",VV[32]); |
4095 |
(void)((*(LnkLI278))((VV[137]->s.s_dbind))); |
(void)((*(LnkLI278))((VV[137]->s.s_dbind))); |
4096 |
{object V578 = (*(LnkLI333))(); |
{object V588 = (*(LnkLI336))(); |
4097 |
bds_unwind1; |
bds_unwind1; |
4098 |
bds_unwind1; |
bds_unwind1; |
4099 |
bds_unwind1; |
bds_unwind1; |
4109 |
bds_unwind1; |
bds_unwind1; |
4110 |
bds_unwind1; |
bds_unwind1; |
4111 |
bds_unwind1; |
bds_unwind1; |
4112 |
VMR36(V578)} |
VMR36(V588)} |
4113 |
base[0]=base[0]; |
base[0]=base[0]; |
4114 |
return Cnil; |
return Cnil; |
4115 |
} |
} |
4116 |
/* local entry for function T1ORDINARY */ |
/* local entry for function T1ORDINARY */ |
4117 |
|
|
4118 |
static object LI38(V580) |
static object LI38(V590) |
4119 |
|
|
4120 |
register object V580; |
register object V590; |
4121 |
{ VMB37 VMS37 VMV37 |
{ VMB37 VMS37 VMV37 |
4122 |
bds_check; |
bds_check; |
4123 |
goto TTL; |
goto TTL; |
4124 |
TTL:; |
TTL:; |
4125 |
{register object V581; |
{register object V591; |
4126 |
V581= Cnil; |
V591= Cnil; |
4127 |
setq(VV[6],Ct); |
(VV[6]->s.s_dbind)= Ct; |
4128 |
if((symbol_value(VV[49]))==Cnil){ |
if(((VV[49]->s.s_dbind))==Cnil){ |
4129 |
goto T2154;} |
goto T2145;} |
4130 |
(void)((*(LnkLI269))(Cnil,(V580))); |
(void)((*(LnkLI269))(Cnil,(V590))); |
4131 |
{object V582; |
{object V592; |
4132 |
base[0]= VV[215]; |
base[0]= VV[215]; |
4133 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4134 |
Lgensym(); |
Lgensym(); |
4135 |
vs_top=sup; |
vs_top=sup; |
4136 |
V582= vs_base[0]; |
V592= vs_base[0]; |
4137 |
V583= listA(3,VV[65],(V582),VV[216]); |
V593= listA(3,VV[65],(V592),VV[216]); |
4138 |
(void)((*(LnkLI290))(/* INLINE-ARGS */V583)); |
(void)((*(LnkLI293))(/* INLINE-ARGS */V593)); |
4139 |
base[0]= list(5,VV[52],(V582),Cnil,(V580),Cnil); |
base[0]= list(5,VV[52],(V592),Cnil,(V590),Cnil); |
4140 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4141 |
(void) (*Lnk273)(); |
(void) (*Lnk273)(); |
4142 |
vs_top=sup; |
vs_top=sup; |
4143 |
{object V584; |
{object V594; |
4144 |
V584= list(2,VV[217],make_cons((V582),Cnil)); |
V594= list(2,VV[217],make_cons((V592),Cnil)); |
4145 |
setq(VV[25],make_cons((V584),symbol_value(VV[25]))); |
(VV[25]->s.s_dbind)= make_cons((V594),(VV[25]->s.s_dbind)); |
4146 |
{object V585 = symbol_value(VV[25]); |
{object V595 = (VV[25]->s.s_dbind); |
4147 |
VMR37(V585)}}} |
VMR37(V595)}}} |
4148 |
goto T2154; |
goto T2145; |
4149 |
T2154:; |
T2145:; |
4150 |
{object V586; |
{object V596; |
4151 |
if(type_of((V580))==t_cons){ |
if(type_of((V590))==t_cons){ |
4152 |
goto T2165;} |
goto T2156;} |
4153 |
V586= Cnil; |
V596= Cnil; |
4154 |
goto T2164; |
goto T2155; |
4155 |
goto T2165; |
goto T2156; |
4156 |
T2165:; |
T2156:; |
4157 |
if(type_of(car((V580)))==t_symbol){ |
if(type_of(CMPcar((V590)))==t_symbol){ |
4158 |
goto T2167;} |
goto T2158;} |
4159 |
V586= Cnil; |
V596= Cnil; |
4160 |
goto T2164; |
goto T2155; |
4161 |
goto T2167; |
goto T2158; |
4162 |
T2167:; |
T2158:; |
4163 |
if(!((car((V580)))==(VV[218]))){ |
if(!((CMPcar((V590)))==(VV[218]))){ |
4164 |
goto T2171;} |
goto T2162;} |
4165 |
goto T2169; |
goto T2160; |
4166 |
goto T2171; |
goto T2162; |
4167 |
T2171:; |
T2162:; |
4168 |
base[0]= car((V580)); |
base[0]= CMPcar((V590)); |
4169 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4170 |
Lspecial_form_p(); |
Lspecial_form_p(); |
4171 |
vs_top=sup; |
vs_top=sup; |
4172 |
V587= vs_base[0]; |
V597= vs_base[0]; |
4173 |
if((V587)==Cnil){ |
if((V597)==Cnil){ |
4174 |
goto T2169;} |
goto T2160;} |
4175 |
V586= Cnil; |
V596= Cnil; |
4176 |
goto T2164; |
goto T2155; |
4177 |
|
goto T2160; |
4178 |
|
T2160:; |
4179 |
|
{register object V598; |
4180 |
|
register long V599; |
4181 |
|
V598= CMPcdr((V590)); |
4182 |
|
V599= 1; |
4183 |
goto T2169; |
goto T2169; |
4184 |
T2169:; |
T2169:; |
4185 |
{register object V588; |
if((V599)>=(1000)){ |
4186 |
register long V589; |
goto T2171;} |
4187 |
V588= cdr((V580)); |
if(type_of((V598))==t_cons){ |
4188 |
V589= 1; |
goto T2170;} |
4189 |
goto T2178; |
goto T2171; |
4190 |
T2178:; |
T2171:; |
4191 |
if((V589)>=(1000)){ |
V596= Cnil; |
4192 |
goto T2180;} |
goto T2155; |
4193 |
if(type_of((V588))==t_cons){ |
goto T2170; |
4194 |
goto T2179;} |
T2170:; |
4195 |
goto T2180; |
if(!(type_of(CMPcar((V598)))==t_cons)){ |
4196 |
T2180:; |
goto T2176;} |
4197 |
V586= Cnil; |
if(!((CMPcaar((V598)))==(VV[65]))){ |
4198 |
goto T2164; |
goto T2176;} |
4199 |
goto T2179; |
V591= CMPcadr(CMPcar((V598))); |
4200 |
T2179:; |
if(!(type_of((V591))==t_cons)){ |
4201 |
if(!(type_of(car((V588)))==t_cons)){ |
goto T2176;} |
4202 |
goto T2185;} |
if(!((CMPcar((V591)))==(VV[219]))){ |
4203 |
if(!((caar((V588)))==(VV[65]))){ |
goto T2176;} |
4204 |
goto T2185;} |
{register object V600; |
|
V581= cadr(car((V588))); |
|
|
if(!(type_of((V581))==t_cons)){ |
|
|
goto T2185;} |
|
|
if(!((car((V581)))==(VV[219]))){ |
|
|
goto T2185;} |
|
|
{register object V590; |
|
4205 |
vs_base=vs_top; |
vs_base=vs_top; |
4206 |
Lgensym(); |
Lgensym(); |
4207 |
vs_top=sup; |
vs_top=sup; |
4208 |
V590= vs_base[0]; |
V600= vs_base[0]; |
4209 |
base[0]= listA(3,VV[52],(V590),cdr((V581))); |
base[0]= listA(3,VV[52],(V600),CMPcdr((V591))); |
4210 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4211 |
(void) (*Lnk273)(); |
(void) (*Lnk273)(); |
4212 |
vs_top=sup; |
vs_top=sup; |
4213 |
base[1]= (V580); |
base[1]= (V590); |
4214 |
base[2]= small_fixnum(0); |
base[2]= small_fixnum(0); |
4215 |
base[3]= make_fixnum(V589); |
base[3]= CMPmake_fixnum(V599); |
4216 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
4217 |
Lsubseq(); |
Lsubseq(); |
4218 |
vs_top=sup; |
vs_top=sup; |
4219 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
4220 |
V591= list(2,VV[220],list(2,VV[92],(V590))); |
V601= list(2,VV[220],list(2,VV[92],(V600))); |
4221 |
base[1]= make_cons(/* INLINE-ARGS */V591,Cnil); |
base[1]= make_cons(/* INLINE-ARGS */V601,Cnil); |
4222 |
V592 = make_fixnum(V589); |
V602 = CMPmake_fixnum(V599); |
4223 |
V593= number_plus(small_fixnum(1),V592); |
V603= number_plus(small_fixnum(1),V602); |
4224 |
base[2]= nthcdr(fixint(/* INLINE-ARGS */V593),(V580)); |
base[2]= nthcdr(fix(/* INLINE-ARGS */V603),(V590)); |
4225 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
4226 |
Lappend(); |
Lappend(); |
4227 |
vs_top=sup; |
vs_top=sup; |
4228 |
V580= vs_base[0]; |
V590= vs_base[0]; |
4229 |
goto TTL;} |
goto TTL;} |
4230 |
goto T2185; |
goto T2176; |
4231 |
T2185:; |
T2176:; |
4232 |
if(type_of((V588))==t_cons){ |
if(type_of((V598))==t_cons){ |
4233 |
goto T2208;} |
goto T2199;} |
4234 |
V588= Cnil; |
V598= Cnil; |
4235 |
goto T2207; |
goto T2198; |
4236 |
goto T2208; |
goto T2199; |
4237 |
T2208:; |
T2199:; |
4238 |
V588= cdr((V588)); |
V598= CMPcdr((V598)); |
4239 |
goto T2207; |
goto T2198; |
4240 |
T2207:; |
T2198:; |
4241 |
V589= (long)(1)+(V589); |
V599= (long)(1)+(V599); |
4242 |
goto T2178;} |
goto T2169;} |
4243 |
goto T2164; |
goto T2155; |
4244 |
T2164:; |
T2155:; |
4245 |
if(((V586))==Cnil){ |
if(((V596))==Cnil){ |
4246 |
goto T2213;} |
goto T2204;} |
4247 |
{object V594 = (V586); |
{object V604 = (V596); |
4248 |
VMR37(V594)} |
VMR37(V604)} |
4249 |
goto T2213; |
goto T2204; |
4250 |
T2213:; |
T2204:; |
4251 |
(void)((*(LnkLI269))(Cnil,(V580))); |
(void)((*(LnkLI269))(Cnil,(V590))); |
4252 |
bds_bind(VV[56],Cnil); |
bds_bind(VV[56],Cnil); |
4253 |
bds_bind(VV[57],Cnil); |
bds_bind(VV[57],Cnil); |
4254 |
bds_bind(VV[58],Cnil); |
bds_bind(VV[58],Cnil); |
4255 |
bds_bind(VV[59],Cnil); |
bds_bind(VV[59],Cnil); |
4256 |
bds_bind(VV[53],Cnil); |
bds_bind(VV[53],Cnil); |
4257 |
{object V595; |
{object V605; |
4258 |
V595= list(2,VV[217],(V580)); |
V605= list(2,VV[217],(V590)); |
4259 |
setq(VV[25],make_cons((V595),symbol_value(VV[25])));} |
(VV[25]->s.s_dbind)= make_cons((V605),(VV[25]->s.s_dbind));} |
4260 |
{object V596 = Cnil; |
{object V606 = Cnil; |
4261 |
bds_unwind1; |
bds_unwind1; |
4262 |
bds_unwind1; |
bds_unwind1; |
4263 |
bds_unwind1; |
bds_unwind1; |
4264 |
bds_unwind1; |
bds_unwind1; |
4265 |
bds_unwind1; |
bds_unwind1; |
4266 |
VMR37(V596)}}} |
VMR37(V606)}}} |
4267 |
base[0]=base[0]; |
base[0]=base[0]; |
4268 |
return Cnil; |
return Cnil; |
4269 |
} |
} |
4270 |
/* local entry for function T2ORDINARY */ |
/* local entry for function T2ORDINARY */ |
4271 |
|
|
4272 |
static object LI39(V598) |
static object LI39(V608) |
4273 |
|
|
4274 |
object V598; |
object V608; |
4275 |
{ VMB38 VMS38 VMV38 |
{ VMB38 VMS38 VMV38 |
4276 |
goto TTL; |
goto TTL; |
4277 |
TTL:; |
TTL:; |
4278 |
{object V599; |
{object V609; |
4279 |
V599= (type_of((V598))!=t_cons?Ct:Cnil); |
V609= (type_of((V608))!=t_cons?Ct:Cnil); |
4280 |
if(((V599))==Cnil){ |
if(((V609))==Cnil){ |
4281 |
goto T2221;} |
goto T2212;} |
4282 |
{object V600 = (V599); |
{object V610 = (V609); |
4283 |
VMR38(V600)} |
VMR38(V610)} |
4284 |
goto T2221; |
goto T2212; |
4285 |
T2221:; |
T2212:; |
4286 |
{object V601; |
{object V611; |
4287 |
base[0]= (V598); |
base[0]= (V608); |
4288 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4289 |
Lconstantp(); |
Lconstantp(); |
4290 |
vs_top=sup; |
vs_top=sup; |
4291 |
V601= vs_base[0]; |
V611= vs_base[0]; |
4292 |
if(((V601))==Cnil){ |
if(((V611))==Cnil){ |
4293 |
goto T2226;} |
goto T2217;} |
4294 |
{object V602 = (V601); |
{object V612 = (V611); |
4295 |
VMR38(V602)} |
VMR38(V612)} |
4296 |
goto T2226; |
goto T2217; |
4297 |
T2226:; |
T2217:; |
4298 |
{object V603 = (VFUN_NARGS=1,(*(LnkLI301))((V598))); |
{object V613 = (VFUN_NARGS=1,(*(LnkLI304))((V608))); |
4299 |
VMR38(V603)}}} |
VMR38(V613)}}} |
4300 |
base[0]=base[0]; |
base[0]=base[0]; |
4301 |
return Cnil; |
return Cnil; |
4302 |
} |
} |
4307 |
{ VMB39 VMS39 VMV39 |
{ VMB39 VMS39 VMV39 |
4308 |
goto TTL; |
goto TTL; |
4309 |
TTL:; |
TTL:; |
4310 |
{register object V604; |
{register object V614; |
4311 |
register object V605; |
register object V615; |
4312 |
V604= reverse(symbol_value(VV[53])); |
V614= reverse((VV[53]->s.s_dbind)); |
4313 |
V605= car((V604)); |
V615= CMPcar((V614)); |
4314 |
goto T2231; |
goto T2222; |
4315 |
T2231:; |
T2222:; |
4316 |
if(!(endp_prop((V604)))){ |
if(!(((V614))==Cnil)){ |
4317 |
goto T2232;} |
goto T2223;} |
4318 |
{object V606 = Cnil; |
{object V616 = Cnil; |
4319 |
VMR39(V606)} |
VMR39(V616)} |
4320 |
goto T2232; |
goto T2223; |
4321 |
T2232:; |
T2223:; |
4322 |
if(!(type_of((V605))!=t_cons)){ |
if(!(type_of((V615))!=t_cons)){ |
4323 |
goto T2236;} |
goto T2227;} |
4324 |
(void)((*(LnkLI340))()); |
(void)((*(LnkLI343))()); |
4325 |
goto T2236; |
goto T2227; |
4326 |
T2236:; |
T2227:; |
4327 |
{register object V607; |
{register object V617; |
4328 |
V607= make_cons(VV[221],(V605)); |
V617= make_cons(VV[221],(V615)); |
4329 |
setq(VV[25],make_cons((V607),symbol_value(VV[25])));} |
(VV[25]->s.s_dbind)= make_cons((V617),(VV[25]->s.s_dbind));} |
4330 |
V604= cdr((V604)); |
V614= CMPcdr((V614)); |
4331 |
V605= car((V604)); |
V615= CMPcar((V614)); |
4332 |
goto T2231;} |
goto T2222;} |
4333 |
base[0]=base[0]; |
base[0]=base[0]; |
4334 |
return Cnil; |
return Cnil; |
4335 |
} |
} |
4336 |
/* local entry for function T2SHARP-COMMA */ |
/* local entry for function T2SHARP-COMMA */ |
4337 |
|
|
4338 |
static object LI41(V610,V611) |
static object LI41(V620,V621) |
4339 |
|
|
4340 |
object V610;object V611; |
object V620;object V621; |
4341 |
{ VMB40 VMS40 VMV40 |
{ VMB40 VMS40 VMV40 |
4342 |
goto TTL; |
goto TTL; |
4343 |
TTL:; |
TTL:; |
4344 |
V612= list(3,VV[222],(V610),(V611)); |
V622= list(3,VV[222],(V620),(V621)); |
4345 |
{object V613 = (VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V612)); |
{object V623 = (VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V622)); |
4346 |
VMR40(V613)} |
VMR40(V623)} |
4347 |
return Cnil; |
return Cnil; |
4348 |
} |
} |
4349 |
/* local entry for function T2DECLARE */ |
/* local entry for function T2DECLARE */ |
4350 |
|
|
4351 |
static object LI42(V615) |
static object LI42(V625) |
4352 |
|
|
4353 |
object V615; |
object V625; |
4354 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
4355 |
goto TTL; |
goto TTL; |
4356 |
TTL:; |
TTL:; |
4357 |
{object V616 = (*(LnkLI340))(); |
{object V626 = (*(LnkLI343))(); |
4358 |
VMR41(V616)} |
VMR41(V626)} |
4359 |
return Cnil; |
return Cnil; |
4360 |
} |
} |
4361 |
/* local entry for function T1DEFINE-STRUCTURE */ |
/* local entry for function T1DEFINE-STRUCTURE */ |
4362 |
|
|
4363 |
static object LI43(V618) |
static object LI43(V628) |
4364 |
|
|
4365 |
object V618; |
object V628; |
4366 |
{ VMB42 VMS42 VMV42 |
{ VMB42 VMS42 VMV42 |
4367 |
goto TTL; |
goto TTL; |
4368 |
TTL:; |
TTL:; |
4369 |
V619= (*(LnkLI269))(Cnil,Cnil); |
V629= (*(LnkLI269))(Cnil,Cnil); |
4370 |
V620= make_cons(((/* INLINE-ARGS */V619)==Cnil?Ct:Cnil),Cnil); |
V630= make_cons(((/* INLINE-ARGS */V629)==Cnil?Ct:Cnil),Cnil); |
4371 |
V621= append((V618),/* INLINE-ARGS */V620); |
V631= append((V628),/* INLINE-ARGS */V630); |
4372 |
V622= make_cons(VV[223],/* INLINE-ARGS */V621); |
V632= make_cons(VV[223],/* INLINE-ARGS */V631); |
4373 |
(void)((*(LnkLI269))(Ct,/* INLINE-ARGS */V622)); |
(void)((*(LnkLI269))(Ct,/* INLINE-ARGS */V632)); |
4374 |
V623= make_cons(VV[223],(V618)); |
V633= make_cons(VV[223],(V628)); |
4375 |
{object V624 = (*(LnkLI274))(/* INLINE-ARGS */V623); |
{object V634 = (*(LnkLI274))(/* INLINE-ARGS */V633); |
4376 |
VMR42(V624)} |
VMR42(V634)} |
4377 |
return Cnil; |
return Cnil; |
4378 |
} |
} |
4379 |
/* local entry for function SET-DBIND */ |
/* local entry for function SET-DBIND */ |
4380 |
|
|
4381 |
static object LI44(V627,V628) |
static object LI44(V637,V638) |
4382 |
|
|
4383 |
object V627;object V628; |
object V637;object V638; |
4384 |
{ VMB43 VMS43 VMV43 |
{ VMB43 VMS43 VMV43 |
4385 |
goto TTL; |
goto TTL; |
4386 |
TTL:; |
TTL:; |
4387 |
princ_str("\n VV[",VV[26]); |
princ_str("\n VV[",VV[26]); |
4388 |
(void)((*(LnkLI275))((V628))); |
(void)((*(LnkLI275))((V638))); |
4389 |
princ_str("]->s.s_dbind = ",VV[26]); |
princ_str("]->s.s_dbind = ",VV[26]); |
4390 |
(void)((*(LnkLI275))((V627))); |
(void)((*(LnkLI275))((V637))); |
4391 |
princ_char(59,VV[26]); |
princ_char(59,VV[26]); |
4392 |
{object V629 = Cnil; |
{object V639 = Cnil; |
4393 |
VMR43(V629)} |
VMR43(V639)} |
4394 |
return Cnil; |
return Cnil; |
4395 |
} |
} |
4396 |
/* local entry for function T1CLINES */ |
/* local entry for function T1CLINES */ |
4397 |
|
|
4398 |
static object LI45(V631) |
static object LI45(V641) |
4399 |
|
|
4400 |
object V631; |
object V641; |
4401 |
{ VMB44 VMS44 VMV44 |
{ VMB44 VMS44 VMV44 |
4402 |
goto TTL; |
goto TTL; |
4403 |
TTL:; |
TTL:; |
4404 |
{register object V632; |
{register object V642; |
4405 |
register object V633; |
register object V643; |
4406 |
V632= (V631); |
V642= (V641); |
4407 |
V633= car((V632)); |
V643= CMPcar((V642)); |
4408 |
goto T2258; |
goto T2249; |
4409 |
T2258:; |
T2249:; |
4410 |
if(!(endp_prop((V632)))){ |
if(!(((V642))==Cnil)){ |
4411 |
goto T2259;} |
goto T2250;} |
4412 |
goto T2254; |
goto T2245; |
4413 |
goto T2259; |
goto T2250; |
4414 |
T2259:; |
T2250:; |
4415 |
if(type_of((V633))==t_string){ |
if(type_of((V643))==t_string){ |
4416 |
goto T2263;} |
goto T2254;} |
4417 |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[224],(V633)))); |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[224],(V643)))); |
|
goto T2263; |
|
|
T2263:; |
|
|
V632= cdr((V632)); |
|
|
V633= car((V632)); |
|
|
goto T2258;} |
|
4418 |
goto T2254; |
goto T2254; |
4419 |
T2254:; |
T2254:; |
4420 |
{object V634; |
V642= CMPcdr((V642)); |
4421 |
V634= list(2,VV[225],(V631)); |
V643= CMPcar((V642)); |
4422 |
setq(VV[25],make_cons((V634),symbol_value(VV[25]))); |
goto T2249;} |
4423 |
{object V635 = symbol_value(VV[25]); |
goto T2245; |
4424 |
VMR44(V635)}} |
T2245:; |
4425 |
|
{object V644; |
4426 |
|
V644= list(2,VV[225],(V641)); |
4427 |
|
(VV[25]->s.s_dbind)= make_cons((V644),(VV[25]->s.s_dbind)); |
4428 |
|
{object V645 = (VV[25]->s.s_dbind); |
4429 |
|
VMR44(V645)}} |
4430 |
base[0]=base[0]; |
base[0]=base[0]; |
4431 |
return Cnil; |
return Cnil; |
4432 |
} |
} |
4433 |
/* local entry for function T3CLINES */ |
/* local entry for function T3CLINES */ |
4434 |
|
|
4435 |
static object LI46(V637) |
static object LI46(V647) |
4436 |
|
|
4437 |
object V637; |
object V647; |
4438 |
{ VMB45 VMS45 VMV45 |
{ VMB45 VMS45 VMV45 |
4439 |
goto TTL; |
goto TTL; |
4440 |
TTL:; |
TTL:; |
4441 |
{register object V638; |
{register object V648; |
4442 |
register object V639; |
register object V649; |
4443 |
V638= (V637); |
V648= (V647); |
4444 |
V639= car((V638)); |
V649= CMPcar((V648)); |
4445 |
goto T2276; |
goto T2267; |
4446 |
T2276:; |
T2267:; |
4447 |
if(!(endp_prop((V638)))){ |
if(!(((V648))==Cnil)){ |
4448 |
goto T2277;} |
goto T2268;} |
4449 |
{object V640 = Cnil; |
{object V650 = Cnil; |
4450 |
VMR45(V640)} |
VMR45(V650)} |
4451 |
goto T2277; |
goto T2268; |
4452 |
T2277:; |
T2268:; |
4453 |
princ_char(10,VV[26]); |
princ_char(10,VV[26]); |
4454 |
(void)((*(LnkLI275))((V639))); |
(void)((*(LnkLI275))((V649))); |
4455 |
V638= cdr((V638)); |
V648= CMPcdr((V648)); |
4456 |
V639= car((V638)); |
V649= CMPcar((V648)); |
4457 |
goto T2276;} |
goto T2267;} |
4458 |
base[0]=base[0]; |
base[0]=base[0]; |
4459 |
return Cnil; |
return Cnil; |
4460 |
} |
} |
4461 |
/* local entry for function T1DEFCFUN */ |
/* local entry for function T1DEFCFUN */ |
4462 |
|
|
4463 |
static object LI47(V642) |
static object LI47(V652) |
4464 |
|
|
4465 |
object V642; |
object V652; |
4466 |
{ VMB46 VMS46 VMV46 |
{ VMB46 VMS46 VMV46 |
4467 |
goto TTL; |
goto TTL; |
4468 |
TTL:; |
TTL:; |
4469 |
{register object V643; |
{register object V653; |
4470 |
V643= Cnil; |
V653= Cnil; |
4471 |
if(endp_prop((V642))){ |
if(((V652))==Cnil){ |
4472 |
goto T2291;} |
goto T2282;} |
4473 |
if(!(endp_prop(cdr((V642))))){ |
if(!((CMPcdr((V652)))==Cnil)){ |
4474 |
goto T2290;} |
goto T2281;} |
4475 |
goto T2291; |
goto T2282; |
4476 |
T2291:; |
T2282:; |
4477 |
V644 = make_fixnum((long)length((V642))); |
V654 = CMPmake_fixnum((long)length((V652))); |
4478 |
(void)((*(LnkLI284))(VV[226],small_fixnum(2),V644)); |
(void)((*(LnkLI284))(VV[226],small_fixnum(2),V654)); |
4479 |
goto T2290; |
goto T2281; |
4480 |
T2290:; |
T2281:; |
4481 |
if(type_of(car((V642)))==t_string){ |
if(type_of(CMPcar((V652)))==t_string){ |
4482 |
goto T2295;} |
goto T2286;} |
4483 |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[227],car((V642))))); |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[227],CMPcar((V652))))); |
4484 |
goto T2295; |
goto T2286; |
4485 |
T2295:; |
T2286:; |
4486 |
{object V645= cadr((V642)); |
{object V655= CMPcadr((V652)); |
4487 |
if(type_of(V645)==t_fixnum|| |
if(type_of(V655)==t_fixnum|| |
4488 |
type_of(V645)==t_bignum|| |
type_of(V655)==t_bignum|| |
4489 |
type_of(V645)==t_ratio|| |
type_of(V655)==t_ratio|| |
4490 |
type_of(V645)==t_shortfloat|| |
type_of(V655)==t_shortfloat|| |
4491 |
type_of(V645)==t_longfloat|| |
type_of(V655)==t_longfloat|| |
4492 |
type_of(V645)==t_complex){ |
type_of(V655)==t_complex){ |
4493 |
goto T2298;}} |
goto T2289;}} |
4494 |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[228],cadr((V642))))); |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[228],CMPcadr((V652))))); |
4495 |
goto T2298; |
goto T2289; |
4496 |
T2298:; |
T2289:; |
4497 |
{register object V646; |
{register object V656; |
4498 |
register object V647; |
register object V657; |
4499 |
V646= cddr((V642)); |
V656= CMPcddr((V652)); |
4500 |
V647= car((V646)); |
V657= CMPcar((V656)); |
4501 |
goto T2305; |
goto T2296; |
4502 |
T2305:; |
T2296:; |
4503 |
if(!(endp_prop((V646)))){ |
if(!(((V656))==Cnil)){ |
4504 |
goto T2306;} |
goto T2297;} |
4505 |
goto T2301; |
goto T2292; |
4506 |
goto T2306; |
goto T2297; |
4507 |
T2306:; |
T2297:; |
4508 |
if(!(type_of((V647))==t_string)){ |
if(!(type_of((V657))==t_string)){ |
4509 |
goto T2312;} |
goto T2303;} |
4510 |
{register object V648; |
{register object V658; |
4511 |
V648= (V647); |
V658= (V657); |
4512 |
V643= make_cons((V648),(V643)); |
V653= make_cons((V658),(V653)); |
4513 |
goto T2310;} |
goto T2301;} |
4514 |
goto T2312; |
goto T2303; |
4515 |
T2312:; |
T2303:; |
4516 |
if(!(type_of((V647))==t_cons)){ |
if(!(type_of((V657))==t_cons)){ |
4517 |
goto T2317;} |
goto T2308;} |
4518 |
if(!(type_of(car((V647)))==t_symbol)){ |
if(!(type_of(CMPcar((V657)))==t_symbol)){ |
4519 |
goto T2320;} |
goto T2311;} |
4520 |
base[2]= car((V647)); |
base[2]= CMPcar((V657)); |
4521 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4522 |
Lspecial_form_p(); |
Lspecial_form_p(); |
4523 |
vs_top=sup; |
vs_top=sup; |
4524 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4525 |
goto T2322;} |
goto T2313;} |
4526 |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[229],car((V647))))); |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[229],CMPcar((V657))))); |
4527 |
goto T2322; |
goto T2313; |
4528 |
T2322:; |
T2313:; |
4529 |
{register object V649; |
{register object V659; |
4530 |
V650= car((V647)); |
V660= CMPcar((V657)); |
4531 |
V651= (*(LnkLI341))(cdr((V647))); |
V661= (*(LnkLI344))(CMPcdr((V657))); |
4532 |
V652= make_cons(/* INLINE-ARGS */V650,/* INLINE-ARGS */V651); |
V662= make_cons(/* INLINE-ARGS */V660,/* INLINE-ARGS */V661); |
4533 |
V649= make_cons(/* INLINE-ARGS */V652,Cnil); |
V659= make_cons(/* INLINE-ARGS */V662,Cnil); |
4534 |
V643= make_cons((V649),(V643)); |
V653= make_cons((V659),(V653)); |
4535 |
goto T2310;} |
goto T2301;} |
4536 |
goto T2320; |
goto T2311; |
4537 |
T2320:; |
T2311:; |
4538 |
if(!(type_of(car((V647)))==t_cons)){ |
if(!(type_of(CMPcar((V657)))==t_cons)){ |
4539 |
goto T2329;} |
goto T2320;} |
4540 |
if(!(type_of(caar((V647)))==t_symbol)){ |
if(!(type_of(CMPcaar((V657)))==t_symbol)){ |
4541 |
|
goto T2320;} |
4542 |
|
if(!((CMPcaar((V657)))==(VV[92]))){ |
4543 |
|
goto T2327;} |
4544 |
|
if(!((CMPcdar((V657)))==Cnil)){ |
4545 |
goto T2329;} |
goto T2329;} |
4546 |
if(!((caar((V647)))==(VV[92]))){ |
goto T2320; |
|
goto T2336;} |
|
|
if(!(endp_prop(cdar((V647))))){ |
|
|
goto T2338;} |
|
|
goto T2329; |
|
|
goto T2338; |
|
|
T2338:; |
|
|
if(!(((endp_prop(cddar((V647)))?Ct:Cnil))==Cnil)){ |
|
|
goto T2340;} |
|
|
goto T2329; |
|
|
goto T2340; |
|
|
T2340:; |
|
|
if(!(endp_prop(cdr((V647))))){ |
|
|
goto T2342;} |
|
4547 |
goto T2329; |
goto T2329; |
4548 |
goto T2342; |
T2329:; |
4549 |
T2342:; |
if(!((((CMPcddar((V657)))==Cnil?Ct:Cnil))==Cnil)){ |
4550 |
if(((endp_prop(cddr((V647)))?Ct:Cnil))==Cnil){ |
goto T2331;} |
4551 |
goto T2329;} |
goto T2320; |
4552 |
goto T2334; |
goto T2331; |
4553 |
goto T2336; |
T2331:; |
4554 |
T2336:; |
if(!((CMPcdr((V657)))==Cnil)){ |
4555 |
base[2]= caar((V647)); |
goto T2333;} |
4556 |
|
goto T2320; |
4557 |
|
goto T2333; |
4558 |
|
T2333:; |
4559 |
|
if((((CMPcddr((V657)))==Cnil?Ct:Cnil))==Cnil){ |
4560 |
|
goto T2320;} |
4561 |
|
goto T2325; |
4562 |
|
goto T2327; |
4563 |
|
T2327:; |
4564 |
|
base[2]= CMPcaar((V657)); |
4565 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4566 |
Lspecial_form_p(); |
Lspecial_form_p(); |
4567 |
vs_top=sup; |
vs_top=sup; |
4568 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
4569 |
goto T2329;} |
goto T2320;} |
4570 |
goto T2334; |
goto T2325; |
4571 |
T2334:; |
T2325:; |
4572 |
{register object V653; |
{register object V663; |
4573 |
V654= caar((V647)); |
V664= CMPcaar((V657)); |
4574 |
if(!((caar((V647)))==(VV[92]))){ |
if(!((CMPcaar((V657)))==(VV[92]))){ |
4575 |
goto T2348;} |
goto T2339;} |
4576 |
V656= (*(LnkLI326))(cadar((V647))); |
V666= (*(LnkLI329))(CMPcadar((V657))); |
4577 |
V655= make_cons(/* INLINE-ARGS */V656,Cnil); |
V665= make_cons(/* INLINE-ARGS */V666,Cnil); |
4578 |
goto T2346; |
goto T2337; |
4579 |
goto T2348; |
goto T2339; |
4580 |
T2348:; |
T2339:; |
4581 |
V655= (*(LnkLI341))(cdar((V647))); |
V665= (*(LnkLI344))(CMPcdar((V657))); |
4582 |
goto T2346; |
goto T2337; |
4583 |
T2346:; |
T2337:; |
4584 |
V657= make_cons(/* INLINE-ARGS */V654,V655); |
V667= make_cons(/* INLINE-ARGS */V664,V665); |
4585 |
V658= (*(LnkLI341))(cdr((V647))); |
V668= (*(LnkLI344))(CMPcdr((V657))); |
4586 |
V653= make_cons(/* INLINE-ARGS */V657,/* INLINE-ARGS */V658); |
V663= make_cons(/* INLINE-ARGS */V667,/* INLINE-ARGS */V668); |
4587 |
V643= make_cons((V653),(V643)); |
V653= make_cons((V663),(V653)); |
4588 |
goto T2310;} |
goto T2301;} |
4589 |
goto T2329; |
goto T2320; |
4590 |
T2329:; |
T2320:; |
4591 |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[230],(V647)))); |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[230],(V657)))); |
4592 |
goto T2310; |
goto T2301; |
4593 |
goto T2317; |
goto T2308; |
4594 |
T2317:; |
T2308:; |
4595 |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[231],(V647)))); |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[231],(V657)))); |
|
goto T2310; |
|
|
T2310:; |
|
|
V646= cdr((V646)); |
|
|
V647= car((V646)); |
|
|
goto T2305;} |
|
4596 |
goto T2301; |
goto T2301; |
4597 |
T2301:; |
T2301:; |
4598 |
{object V659; |
V656= CMPcdr((V656)); |
4599 |
V660= car((V642)); |
V657= CMPcar((V656)); |
4600 |
V661= cadr((V642)); |
goto T2296;} |
4601 |
V659= list(4,VV[226],/* INLINE-ARGS */V660,/* INLINE-ARGS */V661,reverse((V643))); |
goto T2292; |
4602 |
setq(VV[25],make_cons((V659),symbol_value(VV[25]))); |
T2292:; |
4603 |
{object V662 = symbol_value(VV[25]); |
{object V669; |
4604 |
VMR46(V662)}}} |
V670= CMPcar((V652)); |
4605 |
|
V671= CMPcadr((V652)); |
4606 |
|
V669= list(4,VV[226],/* INLINE-ARGS */V670,/* INLINE-ARGS */V671,reverse((V653))); |
4607 |
|
(VV[25]->s.s_dbind)= make_cons((V669),(VV[25]->s.s_dbind)); |
4608 |
|
{object V672 = (VV[25]->s.s_dbind); |
4609 |
|
VMR46(V672)}}} |
4610 |
base[0]=base[0]; |
base[0]=base[0]; |
4611 |
return Cnil; |
return Cnil; |
4612 |
} |
} |
4613 |
/* local entry for function T3DEFCFUN */ |
/* local entry for function T3DEFCFUN */ |
4614 |
|
|
4615 |
static object LI48(V666,V667,V668) |
static object LI48(V676,V677,V678) |
4616 |
|
|
4617 |
object V666;object V667;object V668; |
object V676;object V677;object V678; |
4618 |
{ VMB47 VMS47 VMV47 |
{ VMB47 VMS47 VMV47 |
4619 |
goto TTL; |
goto TTL; |
4620 |
TTL:; |
TTL:; |
4621 |
{object V669; |
{object V679; |
4622 |
V669= Cnil; |
V679= Cnil; |
4623 |
(void)((VFUN_NARGS=2,(*(LnkLI313))(VV[232],VV[226]))); |
(void)((VFUN_NARGS=2,(*(LnkLI316))(VV[232],VV[226]))); |
4624 |
princ_char(10,VV[26]); |
princ_char(10,VV[26]); |
4625 |
(void)((*(LnkLI275))((V666))); |
(void)((*(LnkLI275))((V676))); |
4626 |
princ_str("\n{",VV[26]); |
princ_str("\n{",VV[26]); |
4627 |
princ_str("\nobject *vs=vs_top;",VV[26]); |
princ_str("\nobject *vs=vs_top;",VV[26]); |
4628 |
princ_str("\nobject *old_top=vs_top+",VV[26]); |
princ_str("\nobject *old_top=vs_top+",VV[26]); |
4629 |
(void)((*(LnkLI275))((V667))); |
(void)((*(LnkLI275))((V677))); |
4630 |
princ_char(59,VV[26]); |
princ_char(59,VV[26]); |
4631 |
if(!(number_compare((V667),small_fixnum(0))>0)){ |
if(!(number_compare((V677),small_fixnum(0))>0)){ |
4632 |
goto T2371;} |
goto T2362;} |
4633 |
princ_str("\n vs_top=old_top;",VV[26]); |
princ_str("\n vs_top=old_top;",VV[26]); |
4634 |
goto T2371; |
goto T2362; |
4635 |
T2371:; |
T2362:; |
4636 |
princ_str("\n{",VV[26]); |
princ_str("\n{",VV[26]); |
4637 |
{object V670; |
{object V680; |
4638 |
register object V671; |
register object V681; |
4639 |
V670= (V668); |
V680= (V678); |
4640 |
V671= car((V670)); |
V681= CMPcar((V680)); |
4641 |
goto T2381; |
goto T2372; |
4642 |
T2381:; |
T2372:; |
4643 |
if(!(endp_prop((V670)))){ |
if(!(((V680))==Cnil)){ |
4644 |
goto T2382;} |
goto T2373;} |
4645 |
goto T2377; |
goto T2368; |
4646 |
goto T2382; |
goto T2373; |
4647 |
T2382:; |
T2373:; |
4648 |
if(!(type_of((V671))==t_string)){ |
if(!(type_of((V681))==t_string)){ |
4649 |
goto T2388;} |
goto T2379;} |
4650 |
princ_char(10,VV[26]); |
princ_char(10,VV[26]); |
4651 |
(void)((*(LnkLI275))((V671))); |
(void)((*(LnkLI275))((V681))); |
4652 |
goto T2386; |
goto T2377; |
4653 |
goto T2388; |
goto T2379; |
4654 |
T2388:; |
T2379:; |
4655 |
if(!((caar((V671)))==(VV[92]))){ |
if(!((CMPcaar((V681)))==(VV[92]))){ |
4656 |
goto T2393;} |
goto T2384;} |
4657 |
princ_char(10,VV[26]); |
princ_char(10,VV[26]); |
4658 |
(void)((*(LnkLI275))(cadadr((V671)))); |
(void)((*(LnkLI275))(CMPcadadr((V681)))); |
4659 |
{object V672= caadr((V671)); |
{object V682= CMPcaadr((V681)); |
4660 |
if((V672!= VV[75]))goto T2398; |
if((V682!= VV[75]))goto T2389; |
4661 |
princ_str("=VV[",VV[26]); |
princ_str("=VV[",VV[26]); |
4662 |
(void)((*(LnkLI275))(cadar((V671)))); |
(void)((*(LnkLI275))(CMPcadar((V681)))); |
4663 |
princ_str("];",VV[26]); |
princ_str("];",VV[26]); |
4664 |
goto T2386; |
goto T2377; |
4665 |
goto T2398; |
goto T2389; |
4666 |
T2398:; |
T2389:; |
4667 |
princ_str("=object_to_",VV[26]); |
princ_str("=object_to_",VV[26]); |
4668 |
base[1]= symbol_name(caadr((V671))); |
base[1]= symbol_name(CMPcaadr((V681))); |
4669 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4670 |
Lstring_downcase(); |
Lstring_downcase(); |
4671 |
vs_top=sup; |
vs_top=sup; |
4672 |
V673= vs_base[0]; |
V683= vs_base[0]; |
4673 |
(void)((*(LnkLI275))(V673)); |
(void)((*(LnkLI275))(V683)); |
4674 |
princ_str("(VV[",VV[26]); |
princ_str("(VV[",VV[26]); |
4675 |
(void)((*(LnkLI275))(cadar((V671)))); |
(void)((*(LnkLI275))(CMPcadar((V681)))); |
4676 |
princ_str("]);",VV[26]); |
princ_str("]);",VV[26]); |
4677 |
goto T2386;} |
goto T2377;} |
4678 |
goto T2393; |
goto T2384; |
4679 |
T2393:; |
T2384:; |
4680 |
princ_str("\n{vs_base=vs_top=old_top;",VV[26]); |
princ_str("\n{vs_base=vs_top=old_top;",VV[26]); |
4681 |
{register object V674; |
{register object V684; |
4682 |
register object V675; |
register object V685; |
4683 |
V674= cdar((V671)); |
V684= CMPcdar((V681)); |
4684 |
V675= car((V674)); |
V685= CMPcar((V684)); |
4685 |
goto T2415; |
goto T2406; |
4686 |
T2415:; |
T2406:; |
4687 |
if(!(endp_prop((V674)))){ |
if(!(((V684))==Cnil)){ |
4688 |
goto T2416;} |
goto T2407;} |
4689 |
goto T2411; |
goto T2402; |
4690 |
goto T2416; |
goto T2407; |
4691 |
T2416:; |
T2407:; |
4692 |
princ_str("\nvs_push(",VV[26]); |
princ_str("\nvs_push(",VV[26]); |
4693 |
{object V676= car((V675)); |
{object V686= CMPcar((V685)); |
4694 |
if((V676!= VV[75]))goto T2423; |
if((V686!= VV[75]))goto T2414; |
4695 |
(void)((*(LnkLI275))(cadr((V675)))); |
(void)((*(LnkLI275))(CMPcadr((V685)))); |
4696 |
goto T2422; |
goto T2413; |
4697 |
goto T2423; |
goto T2414; |
4698 |
T2423:; |
T2414:; |
4699 |
if((V676!= VV[342]))goto T2425; |
if((V686!= VV[345]))goto T2416; |
4700 |
princ_str("code_char((long)",VV[26]); |
princ_str("code_char((long)",VV[26]); |
4701 |
(void)((*(LnkLI275))(cadr((V675)))); |
(void)((*(LnkLI275))(CMPcadr((V685)))); |
4702 |
princ_char(41,VV[26]); |
princ_char(41,VV[26]); |
4703 |
goto T2422; |
goto T2413; |
4704 |
goto T2425; |
goto T2416; |
4705 |
T2425:; |
T2416:; |
4706 |
if((V676!= VV[343]))goto T2429; |
if((V686!= VV[346]))goto T2420; |
4707 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[115]))==0)){ |
if(!(number_compare(small_fixnum(0),(VV[115]->s.s_dbind))==0)){ |
4708 |
goto T2430;} |
goto T2421;} |
4709 |
princ_str("CMP",VV[26]); |
princ_str("CMP",VV[26]); |
4710 |
goto T2430; |
goto T2421; |
4711 |
T2430:; |
T2421:; |
4712 |
princ_str("make_fixnum((long)",VV[26]); |
princ_str("make_fixnum((long)",VV[26]); |
4713 |
(void)((*(LnkLI275))(cadr((V675)))); |
(void)((*(LnkLI275))(CMPcadr((V685)))); |
4714 |
princ_char(41,VV[26]); |
princ_char(41,VV[26]); |
4715 |
goto T2422; |
goto T2413; |
4716 |
goto T2429; |
goto T2420; |
4717 |
T2429:; |
T2420:; |
4718 |
if((V676!= VV[344]))goto T2437; |
if((V686!= VV[347]))goto T2428; |
4719 |
princ_str("make_shortfloat((double)",VV[26]); |
princ_str("make_shortfloat((double)",VV[26]); |
4720 |
(void)((*(LnkLI275))(cadr((V675)))); |
(void)((*(LnkLI275))(CMPcadr((V685)))); |
4721 |
princ_char(41,VV[26]); |
princ_char(41,VV[26]); |
4722 |
goto T2422; |
goto T2413; |
4723 |
goto T2437; |
goto T2428; |
4724 |
T2437:; |
T2428:; |
4725 |
if((V676!= VV[345]))goto T2441; |
if((V686!= VV[348]))goto T2432; |
4726 |
princ_str("make_longfloat((double)",VV[26]); |
princ_str("make_longfloat((double)",VV[26]); |
4727 |
(void)((*(LnkLI275))(cadr((V675)))); |
(void)((*(LnkLI275))(CMPcadr((V685)))); |
4728 |
princ_char(41,VV[26]); |
princ_char(41,VV[26]); |
4729 |
goto T2422; |
goto T2413; |
4730 |
goto T2441; |
goto T2432; |
4731 |
T2441:;} |
T2432:;} |
4732 |
goto T2422; |
goto T2413; |
4733 |
T2422:; |
T2413:; |
4734 |
princ_str(");",VV[26]); |
princ_str(");",VV[26]); |
4735 |
V674= cdr((V674)); |
V684= CMPcdr((V684)); |
4736 |
V675= car((V674)); |
V685= CMPcar((V684)); |
4737 |
goto T2415;} |
goto T2406;} |
4738 |
goto T2411; |
goto T2402; |
4739 |
T2411:; |
T2402:; |
4740 |
{register object x= caar((V671)),V677= symbol_value(VV[80]); |
{register object x= CMPcaar((V681)),V687= (VV[80]->s.s_dbind); |
4741 |
while(!endp(V677)) |
while(V687!=Cnil) |
4742 |
if(type_of(V677->c.c_car)==t_cons &&eql(x,V677->c.c_car->c.c_car)){ |
if(eql(x,V687->c.c_car->c.c_car) &&V687->c.c_car != Cnil){ |
4743 |
V669= (V677->c.c_car); |
V679= (V687->c.c_car); |
4744 |
goto T2456; |
goto T2447; |
4745 |
}else V677=V677->c.c_cdr; |
}else V687=V687->c.c_cdr; |
4746 |
V669= Cnil;} |
V679= Cnil;} |
4747 |
goto T2456; |
goto T2447; |
4748 |
T2456:; |
T2447:; |
4749 |
if(((V669))==Cnil){ |
if(((V679))==Cnil){ |
4750 |
goto T2454;} |
goto T2445;} |
4751 |
if((symbol_value(VV[150]))==Cnil){ |
if(((VV[150]->s.s_dbind))==Cnil){ |
4752 |
goto T2458;} |
goto T2449;} |
4753 |
princ_str("\nihs_push(VV[",VV[26]); |
princ_str("\nihs_push(VV[",VV[26]); |
4754 |
V678= (*(LnkLI328))(caar((V671))); |
V688= (*(LnkLI331))(CMPcaar((V681))); |
4755 |
(void)((*(LnkLI275))(/* INLINE-ARGS */V678)); |
(void)((*(LnkLI275))(/* INLINE-ARGS */V688)); |
4756 |
princ_str("]);",VV[26]); |
princ_str("]);",VV[26]); |
4757 |
princ_str("\nL",VV[26]); |
princ_str("\nL",VV[26]); |
4758 |
(void)((*(LnkLI275))(cdr((V669)))); |
(void)((*(LnkLI275))(CMPcdr((V679)))); |
4759 |
princ_str("();",VV[26]); |
princ_str("();",VV[26]); |
4760 |
princ_str("\nihs_pop();",VV[26]); |
princ_str("\nihs_pop();",VV[26]); |
4761 |
goto T2452; |
goto T2443; |
4762 |
goto T2458; |
goto T2449; |
4763 |
T2458:; |
T2449:; |
4764 |
princ_str("\nL",VV[26]); |
princ_str("\nL",VV[26]); |
4765 |
(void)((*(LnkLI275))(cdr((V669)))); |
(void)((*(LnkLI275))(CMPcdr((V679)))); |
4766 |
princ_str("();",VV[26]); |
princ_str("();",VV[26]); |
4767 |
goto T2452; |
goto T2443; |
4768 |
goto T2454; |
goto T2445; |
4769 |
T2454:; |
T2445:; |
4770 |
if((symbol_value(VV[150]))==Cnil){ |
if(((VV[150]->s.s_dbind))==Cnil){ |
4771 |
goto T2473;} |
goto T2464;} |
4772 |
princ_str("\nsuper_funcall(VV[",VV[26]); |
princ_str("\nsuper_funcall(VV[",VV[26]); |
4773 |
V679= (*(LnkLI328))(caar((V671))); |
V689= (*(LnkLI331))(CMPcaar((V681))); |
4774 |
(void)((*(LnkLI275))(/* INLINE-ARGS */V679)); |
(void)((*(LnkLI275))(/* INLINE-ARGS */V689)); |
4775 |
princ_str("]);",VV[26]); |
princ_str("]);",VV[26]); |
4776 |
goto T2452; |
goto T2443; |
4777 |
goto T2473; |
goto T2464; |
4778 |
T2473:; |
T2464:; |
4779 |
if((symbol_value(VV[164]))==Cnil){ |
if(((VV[164]->s.s_dbind))==Cnil){ |
4780 |
goto T2479;} |
goto T2470;} |
4781 |
princ_str("\nsuper_funcall_no_event(VV[",VV[26]); |
princ_str("\nsuper_funcall_no_event(VV[",VV[26]); |
4782 |
V680= (*(LnkLI328))(caar((V671))); |
V690= (*(LnkLI331))(CMPcaar((V681))); |
4783 |
(void)((*(LnkLI275))(/* INLINE-ARGS */V680)); |
(void)((*(LnkLI275))(/* INLINE-ARGS */V690)); |
4784 |
princ_str("]);",VV[26]); |
princ_str("]);",VV[26]); |
4785 |
goto T2452; |
goto T2443; |
4786 |
goto T2479; |
goto T2470; |
4787 |
T2479:; |
T2470:; |
4788 |
princ_str("\nCMPfuncall(VV[",VV[26]); |
princ_str("\nCMPfuncall(VV[",VV[26]); |
4789 |
V681= (*(LnkLI328))(caar((V671))); |
V691= (*(LnkLI331))(CMPcaar((V681))); |
4790 |
(void)((*(LnkLI275))(/* INLINE-ARGS */V681)); |
(void)((*(LnkLI275))(/* INLINE-ARGS */V691)); |
4791 |
princ_str("]->s.s_gfdef);",VV[26]); |
princ_str("]->s.s_gfdef);",VV[26]); |
4792 |
goto T2452; |
goto T2443; |
4793 |
T2452:; |
T2443:; |
4794 |
if(endp_prop(cdr((V671)))){ |
if((CMPcdr((V681)))==Cnil){ |
4795 |
goto T2487;} |
goto T2478;} |
4796 |
princ_char(10,VV[26]); |
princ_char(10,VV[26]); |
4797 |
(void)((*(LnkLI275))(cadadr((V671)))); |
(void)((*(LnkLI275))(CMPcadadr((V681)))); |
4798 |
{object V682= caadr((V671)); |
{object V692= CMPcaadr((V681)); |
4799 |
if((V682!= VV[75]))goto T2494; |
if((V692!= VV[75]))goto T2485; |
4800 |
princ_str("=vs_base[0];",VV[26]); |
princ_str("=vs_base[0];",VV[26]); |
4801 |
goto T2493; |
goto T2484; |
4802 |
goto T2494; |
goto T2485; |
4803 |
T2494:; |
T2485:; |
4804 |
princ_str("=object_to_",VV[26]); |
princ_str("=object_to_",VV[26]); |
4805 |
base[1]= symbol_name(caadr((V671))); |
base[1]= symbol_name(CMPcaadr((V681))); |
4806 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4807 |
Lstring_downcase(); |
Lstring_downcase(); |
4808 |
vs_top=sup; |
vs_top=sup; |
4809 |
V683= vs_base[0]; |
V693= vs_base[0]; |
4810 |
(void)((*(LnkLI275))(V683)); |
(void)((*(LnkLI275))(V693)); |
4811 |
princ_str("(vs_base[0]);",VV[26]);} |
princ_str("(vs_base[0]);",VV[26]);} |
4812 |
goto T2493; |
goto T2484; |
4813 |
T2493:; |
T2484:; |
4814 |
{register object V684; |
{register object V694; |
4815 |
register object V685; |
register object V695; |
4816 |
V684= cddr((V671)); |
V694= CMPcddr((V681)); |
4817 |
V685= car((V684)); |
V695= CMPcar((V694)); |
4818 |
goto T2504; |
goto T2495; |
4819 |
T2504:; |
T2495:; |
4820 |
if(!(endp_prop((V684)))){ |
if(!(((V694))==Cnil)){ |
4821 |
goto T2505;} |
goto T2496;} |
4822 |
goto T2487; |
goto T2478; |
4823 |
goto T2505; |
goto T2496; |
4824 |
T2505:; |
T2496:; |
4825 |
princ_str("\nvs_base++;",VV[26]); |
princ_str("\nvs_base++;",VV[26]); |
4826 |
princ_char(10,VV[26]); |
princ_char(10,VV[26]); |
4827 |
(void)((*(LnkLI275))(cadr((V685)))); |
(void)((*(LnkLI275))(CMPcadr((V695)))); |
4828 |
{object V686= car((V685)); |
{object V696= CMPcar((V695)); |
4829 |
if((V686!= VV[75]))goto T2515; |
if((V696!= VV[75]))goto T2506; |
4830 |
princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[26]); |
princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[26]); |
4831 |
goto T2514; |
goto T2505; |
4832 |
goto T2515; |
goto T2506; |
4833 |
T2515:; |
T2506:; |
4834 |
princ_str("=object_to_",VV[26]); |
princ_str("=object_to_",VV[26]); |
4835 |
base[3]= symbol_name(car((V685))); |
base[3]= symbol_name(CMPcar((V695))); |
4836 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4837 |
Lstring_downcase(); |
Lstring_downcase(); |
4838 |
vs_top=sup; |
vs_top=sup; |
4839 |
V687= vs_base[0]; |
V697= vs_base[0]; |
4840 |
(void)((*(LnkLI275))(V687)); |
(void)((*(LnkLI275))(V697)); |
4841 |
princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[26]);} |
princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[26]);} |
4842 |
goto T2514; |
goto T2505; |
4843 |
T2514:; |
T2505:; |
4844 |
V684= cdr((V684)); |
V694= CMPcdr((V694)); |
4845 |
V685= car((V684)); |
V695= CMPcar((V694)); |
4846 |
goto T2504;} |
goto T2495;} |
4847 |
goto T2487; |
goto T2478; |
4848 |
T2487:; |
T2478:; |
4849 |
princ_str("\n}",VV[26]); |
princ_str("\n}",VV[26]); |
|
goto T2386; |
|
|
T2386:; |
|
|
V670= cdr((V670)); |
|
|
V671= car((V670)); |
|
|
goto T2381;} |
|
4850 |
goto T2377; |
goto T2377; |
4851 |
T2377:; |
T2377:; |
4852 |
|
V680= CMPcdr((V680)); |
4853 |
|
V681= CMPcar((V680)); |
4854 |
|
goto T2372;} |
4855 |
|
goto T2368; |
4856 |
|
T2368:; |
4857 |
princ_str("\n}",VV[26]); |
princ_str("\n}",VV[26]); |
4858 |
princ_str("\nvs_top=vs;",VV[26]); |
princ_str("\nvs_top=vs;",VV[26]); |
4859 |
princ_str("\n}",VV[26]); |
princ_str("\n}",VV[26]); |
4860 |
{object V688 = Cnil; |
{object V698 = Cnil; |
4861 |
VMR47(V688)}} |
VMR47(V698)}} |
4862 |
base[0]=base[0]; |
base[0]=base[0]; |
4863 |
return Cnil; |
return Cnil; |
4864 |
} |
} |
4865 |
/* local entry for function T1DEFENTRY */ |
/* local entry for function T1DEFENTRY */ |
4866 |
|
|
4867 |
static object LI49(V690) |
static object LI49(V700) |
4868 |
|
|
4869 |
register object V690; |
register object V700; |
4870 |
{ VMB48 VMS48 VMV48 |
{ VMB48 VMS48 VMV48 |
4871 |
goto TTL; |
goto TTL; |
4872 |
TTL:; |
TTL:; |
4873 |
{register object V691; |
{register object V701; |
4874 |
register object V692; |
register object V702; |
4875 |
object V693; |
object V703; |
4876 |
register object V694; |
register object V704; |
4877 |
V691= Cnil; |
V701= Cnil; |
4878 |
V692= Cnil; |
V702= Cnil; |
4879 |
setq(VV[62],number_plus(symbol_value(VV[62]),small_fixnum(1))); |
(VV[62]->s.s_dbind)= number_plus((VV[62]->s.s_dbind),small_fixnum(1)); |
4880 |
V693= symbol_value(VV[62]); |
V703= (VV[62]->s.s_dbind); |
4881 |
V694= Cnil; |
V704= Cnil; |
4882 |
if(endp_prop((V690))){ |
if(((V700))==Cnil){ |
4883 |
goto T2544;} |
goto T2535;} |
4884 |
if(endp_prop(cdr((V690)))){ |
if((CMPcdr((V700)))==Cnil){ |
4885 |
goto T2544;} |
goto T2535;} |
4886 |
if(!(endp_prop(cddr((V690))))){ |
if(!((CMPcddr((V700)))==Cnil)){ |
4887 |
goto T2543;} |
goto T2534;} |
4888 |
|
goto T2535; |
4889 |
|
T2535:; |
4890 |
|
V705 = CMPmake_fixnum((long)length((V700))); |
4891 |
|
(void)((*(LnkLI284))(VV[233],small_fixnum(3),V705)); |
4892 |
|
goto T2534; |
4893 |
|
T2534:; |
4894 |
|
if(type_of(CMPcar((V700)))==t_symbol){ |
4895 |
|
goto T2541;} |
4896 |
|
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[234],CMPcar((V700))))); |
4897 |
|
goto T2541; |
4898 |
|
T2541:; |
4899 |
|
{register object V706; |
4900 |
|
register object V707; |
4901 |
|
V706= CMPcadr((V700)); |
4902 |
|
V707= CMPcar((V706)); |
4903 |
|
goto T2548; |
4904 |
|
T2548:; |
4905 |
|
if(!(((V706))==Cnil)){ |
4906 |
|
goto T2549;} |
4907 |
goto T2544; |
goto T2544; |
4908 |
T2544:; |
goto T2549; |
4909 |
V695 = make_fixnum((long)length((V690))); |
T2549:; |
4910 |
(void)((*(LnkLI284))(VV[233],small_fixnum(3),V695)); |
{register object x= (V707),V708= VV[235]; |
4911 |
goto T2543; |
while(V708!=Cnil) |
4912 |
T2543:; |
if(eql(x,V708->c.c_car)){ |
|
if(type_of(car((V690)))==t_symbol){ |
|
|
goto T2550;} |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[234],car((V690))))); |
|
|
goto T2550; |
|
|
T2550:; |
|
|
{register object V696; |
|
|
register object V697; |
|
|
V696= cadr((V690)); |
|
|
V697= car((V696)); |
|
|
goto T2557; |
|
|
T2557:; |
|
|
if(!(endp_prop((V696)))){ |
|
|
goto T2558;} |
|
4913 |
goto T2553; |
goto T2553; |
4914 |
goto T2558; |
}else V708=V708->c.c_cdr;} |
4915 |
T2558:; |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[236],(V707)))); |
|
{register object x= (V697),V698= VV[235]; |
|
|
while(!endp(V698)) |
|
|
if(eql(x,V698->c.c_car)){ |
|
|
goto T2562; |
|
|
}else V698=V698->c.c_cdr;} |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[236],(V697)))); |
|
|
goto T2562; |
|
|
T2562:; |
|
|
V696= cdr((V696)); |
|
|
V697= car((V696)); |
|
|
goto T2557;} |
|
4916 |
goto T2553; |
goto T2553; |
4917 |
T2553:; |
T2553:; |
4918 |
V694= caddr((V690)); |
V706= CMPcdr((V706)); |
4919 |
if(!(type_of((V694))==t_symbol)){ |
V707= CMPcar((V706)); |
4920 |
goto T2574;} |
goto T2548;} |
4921 |
V691= VV[75]; |
goto T2544; |
4922 |
base[1]= symbol_name((V694)); |
T2544:; |
4923 |
|
V704= CMPcaddr((V700)); |
4924 |
|
if(!(type_of((V704))==t_symbol)){ |
4925 |
|
goto T2565;} |
4926 |
|
V701= VV[75]; |
4927 |
|
base[1]= symbol_name((V704)); |
4928 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4929 |
Lstring_downcase(); |
Lstring_downcase(); |
4930 |
vs_top=sup; |
vs_top=sup; |
4931 |
V692= vs_base[0]; |
V702= vs_base[0]; |
4932 |
goto T2572; |
goto T2563; |
4933 |
goto T2574; |
goto T2565; |
4934 |
T2574:; |
T2565:; |
4935 |
if(!(type_of((V694))==t_string)){ |
if(!(type_of((V704))==t_string)){ |
4936 |
goto T2581;} |
goto T2572;} |
4937 |
V691= VV[75]; |
V701= VV[75]; |
4938 |
V692= (V694); |
V702= (V704); |
4939 |
|
goto T2563; |
4940 |
goto T2572; |
goto T2572; |
4941 |
goto T2581; |
T2572:; |
4942 |
T2581:; |
if(!(type_of((V704))==t_cons)){ |
4943 |
if(!(type_of((V694))==t_cons)){ |
goto T2578;} |
4944 |
goto T2587;} |
{register object x= CMPcar((V704)),V709= VV[237]; |
4945 |
{register object x= car((V694)),V699= VV[237]; |
while(V709!=Cnil) |
4946 |
while(!endp(V699)) |
if(eql(x,V709->c.c_car)){ |
4947 |
if(eql(x,V699->c.c_car)){ |
goto T2582; |
4948 |
goto T2591; |
}else V709=V709->c.c_cdr; |
4949 |
}else V699=V699->c.c_cdr; |
goto T2578;} |
4950 |
goto T2587;} |
goto T2582; |
4951 |
goto T2591; |
T2582:; |
4952 |
T2591:; |
if(!(type_of(CMPcdr((V704)))==t_cons)){ |
4953 |
if(!(type_of(cdr((V694)))==t_cons)){ |
goto T2578;} |
4954 |
goto T2587;} |
if(type_of(CMPcadr((V704)))==t_symbol){ |
4955 |
if(type_of(cadr((V694)))==t_symbol){ |
goto T2585;} |
4956 |
goto T2594;} |
if(!(type_of(CMPcadr((V704)))==t_string)){ |
4957 |
if(!(type_of(cadr((V694)))==t_string)){ |
goto T2578;} |
4958 |
goto T2587;} |
goto T2585; |
4959 |
goto T2594; |
T2585:; |
4960 |
T2594:; |
if(!((CMPcddr((V704)))==Cnil)){ |
4961 |
if(!(endp_prop(cddr((V694))))){ |
goto T2578;} |
4962 |
goto T2587;} |
if(!(type_of(CMPcadr((V704)))==t_symbol)){ |
4963 |
if(!(type_of(cadr((V694)))==t_symbol)){ |
goto T2593;} |
4964 |
goto T2602;} |
base[1]= symbol_name(CMPcadr((V704))); |
|
base[1]= symbol_name(cadr((V694))); |
|
4965 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4966 |
Lstring_downcase(); |
Lstring_downcase(); |
4967 |
vs_top=sup; |
vs_top=sup; |
4968 |
V692= vs_base[0]; |
V702= vs_base[0]; |
4969 |
goto T2600; |
goto T2591; |
4970 |
goto T2602; |
goto T2593; |
4971 |
T2602:; |
T2593:; |
4972 |
V692= cadr((V694)); |
V702= CMPcadr((V704)); |
4973 |
goto T2600; |
goto T2591; |
4974 |
T2600:; |
T2591:; |
4975 |
V691= car((V694)); |
V701= CMPcar((V704)); |
4976 |
goto T2572; |
goto T2563; |
4977 |
goto T2587; |
goto T2578; |
4978 |
T2587:; |
T2578:; |
4979 |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[238],(V694)))); |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[238],(V704)))); |
4980 |
goto T2572; |
goto T2563; |
4981 |
T2572:; |
T2563:; |
4982 |
{object V700; |
{object V710; |
4983 |
V700= list(6,VV[233],car((V690)),(V693),cadr((V690)),(V691),(V692)); |
V710= list(6,VV[233],CMPcar((V700)),(V703),CMPcadr((V700)),(V701),(V702)); |
4984 |
setq(VV[25],make_cons((V700),symbol_value(VV[25])));} |
(VV[25]->s.s_dbind)= make_cons((V710),(VV[25]->s.s_dbind));} |
4985 |
{object V701; |
{object V711; |
4986 |
V701= make_cons(car((V690)),(V693)); |
V711= make_cons(CMPcar((V700)),(V703)); |
4987 |
setq(VV[80],make_cons((V701),symbol_value(VV[80]))); |
(VV[80]->s.s_dbind)= make_cons((V711),(VV[80]->s.s_dbind)); |
4988 |
{object V702 = symbol_value(VV[80]); |
{object V712 = (VV[80]->s.s_dbind); |
4989 |
VMR48(V702)}}} |
VMR48(V712)}}} |
4990 |
base[0]=base[0]; |
base[0]=base[0]; |
4991 |
return Cnil; |
return Cnil; |
4992 |
} |
} |
4993 |
/* local entry for function T2DEFENTRY */ |
/* local entry for function T2DEFENTRY */ |
4994 |
|
|
4995 |
static object LI50(V708,V709,V710,V711,V712) |
static object LI50(V718,V719,V720,V721,V722) |
4996 |
|
|
4997 |
object V708;object V709;object V710;object V711;object V712; |
object V718;object V719;object V720;object V721;object V722; |
4998 |
{ VMB49 VMS49 VMV49 |
{ VMB49 VMS49 VMV49 |
4999 |
goto TTL; |
goto TTL; |
5000 |
TTL:; |
TTL:; |
5001 |
princ_str("\nstatic void L",VV[32]); |
princ_str("\nstatic void L",VV[32]); |
5002 |
(void)((*(LnkLI278))((V709))); |
(void)((*(LnkLI278))((V719))); |
5003 |
princ_str("();",VV[32]); |
princ_str("();",VV[32]); |
5004 |
V713= list(2,VV[92],(V708)); |
V723= list(2,VV[92],(V718)); |
5005 |
V714= list(3,VV[112],/* INLINE-ARGS */V713,(*(LnkLI302))(VV[239],(V709))); |
V724= list(3,VV[112],/* INLINE-ARGS */V723,(*(LnkLI305))(VV[239],(V719))); |
5006 |
{object V715 = (VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V714)); |
{object V725 = (VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V724)); |
5007 |
VMR49(V715)} |
VMR49(V725)} |
5008 |
return Cnil; |
return Cnil; |
5009 |
} |
} |
5010 |
/* local entry for function T3DEFENTRY */ |
/* local entry for function T3DEFENTRY */ |
5011 |
|
|
5012 |
static object LI51(V721,V722,V723,V724,V725) |
static object LI51(V731,V732,V733,V734,V735) |
5013 |
|
|
5014 |
object V721;object V722;object V723;register object V724;object V725; |
object V731;object V732;object V733;register object V734;object V735; |
5015 |
{ VMB50 VMS50 VMV50 |
{ VMB50 VMS50 VMV50 |
5016 |
goto TTL; |
goto TTL; |
5017 |
TTL:; |
TTL:; |
5018 |
(void)((VFUN_NARGS=2,(*(LnkLI313))(VV[240],(V721)))); |
(void)((VFUN_NARGS=2,(*(LnkLI316))(VV[240],(V731)))); |
5019 |
princ_str("\nstatic void L",VV[26]); |
princ_str("\nstatic void L",VV[26]); |
5020 |
(void)((*(LnkLI275))((V722))); |
(void)((*(LnkLI275))((V732))); |
5021 |
princ_str("()",VV[26]); |
princ_str("()",VV[26]); |
5022 |
princ_str("\n{ object *old_base=vs_base;",VV[26]); |
princ_str("\n{ object *old_base=vs_base;",VV[26]); |
5023 |
{object V726= (V724); |
{object V736= (V734); |
5024 |
if((V726!= VV[241]))goto T2623; |
if((V736!= VV[241]))goto T2614; |
5025 |
goto T2622; |
goto T2613; |
5026 |
goto T2623; |
goto T2614; |
5027 |
T2623:; |
T2614:; |
5028 |
if((V726!= VV[159]))goto T2624; |
if((V736!= VV[159]))goto T2615; |
5029 |
princ_str("\n char *x;",VV[26]); |
princ_str("\n char *x;",VV[26]); |
5030 |
goto T2622; |
goto T2613; |
5031 |
goto T2624; |
goto T2615; |
5032 |
T2624:; |
T2615:; |
5033 |
princ_str("\n ",VV[26]); |
princ_str("\n ",VV[26]); |
5034 |
base[0]= symbol_name((V724)); |
base[0]= symbol_name((V734)); |
5035 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5036 |
Lstring_downcase(); |
Lstring_downcase(); |
5037 |
vs_top=sup; |
vs_top=sup; |
5038 |
V727= vs_base[0]; |
V737= vs_base[0]; |
5039 |
(void)((*(LnkLI275))(V727)); |
(void)((*(LnkLI275))(V737)); |
5040 |
princ_str(" x;",VV[26]);} |
princ_str(" x;",VV[26]);} |
5041 |
goto T2622; |
goto T2613; |
5042 |
T2622:; |
T2613:; |
5043 |
if((symbol_value(VV[164]))==Cnil){ |
if(((VV[164]->s.s_dbind))==Cnil){ |
5044 |
goto T2631;} |
goto T2622;} |
5045 |
princ_str("\n check_arg(",VV[26]); |
princ_str("\n check_arg(",VV[26]); |
5046 |
V728 = make_fixnum((long)length((V723))); |
V738 = CMPmake_fixnum((long)length((V733))); |
5047 |
(void)((*(LnkLI275))(V728)); |
(void)((*(LnkLI275))(V738)); |
5048 |
princ_str(");",VV[26]); |
princ_str(");",VV[26]); |
5049 |
goto T2631; |
goto T2622; |
5050 |
T2631:; |
T2622:; |
5051 |
if(((V724))==(VV[241])){ |
if(((V734))==(VV[241])){ |
5052 |
goto T2637;} |
goto T2628;} |
5053 |
princ_str("\n x=",VV[26]); |
princ_str("\n x=",VV[26]); |
5054 |
goto T2637; |
goto T2628; |
5055 |
T2637:; |
T2628:; |
5056 |
princ_str("\n ",VV[26]); |
princ_str("\n ",VV[26]); |
5057 |
(void)((*(LnkLI275))((V725))); |
(void)((*(LnkLI275))((V735))); |
5058 |
princ_char(40,VV[26]); |
princ_char(40,VV[26]); |
5059 |
if(endp_prop((V723))){ |
if(((V733))==Cnil){ |
5060 |
goto T2645;} |
goto T2636;} |
5061 |
{register object V729; |
{register object V739; |
5062 |
register long V730; |
register long V740; |
5063 |
V730= 0; |
V740= 0; |
5064 |
V729= (V723); |
V739= (V733); |
5065 |
goto T2650; |
goto T2641; |
5066 |
T2650:; |
T2641:; |
5067 |
{object V731= car((V729)); |
{object V741= CMPcar((V739)); |
5068 |
if((V731!= VV[75]))goto T2654; |
if((V741!= VV[75]))goto T2645; |
5069 |
princ_str("\n vs_base[",VV[26]); |
princ_str("\n vs_base[",VV[26]); |
5070 |
V732 = make_fixnum(V730); |
V742 = CMPmake_fixnum(V740); |
5071 |
(void)((*(LnkLI275))(V732)); |
(void)((*(LnkLI275))(V742)); |
5072 |
princ_char(93,VV[26]); |
princ_char(93,VV[26]); |
5073 |
goto T2653; |
goto T2644; |
5074 |
goto T2654; |
goto T2645; |
5075 |
T2654:; |
T2645:; |
5076 |
princ_str("\n object_to_",VV[26]); |
princ_str("\n object_to_",VV[26]); |
5077 |
base[0]= symbol_name(car((V729))); |
base[0]= symbol_name(CMPcar((V739))); |
5078 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5079 |
Lstring_downcase(); |
Lstring_downcase(); |
5080 |
vs_top=sup; |
vs_top=sup; |
5081 |
V733= vs_base[0]; |
V743= vs_base[0]; |
5082 |
(void)((*(LnkLI275))(V733)); |
(void)((*(LnkLI275))(V743)); |
5083 |
princ_str("(vs_base[",VV[26]); |
princ_str("(vs_base[",VV[26]); |
5084 |
V734 = make_fixnum(V730); |
V744 = CMPmake_fixnum(V740); |
5085 |
(void)((*(LnkLI275))(V734)); |
(void)((*(LnkLI275))(V744)); |
5086 |
princ_str("])",VV[26]);} |
princ_str("])",VV[26]);} |
5087 |
goto T2653; |
goto T2644; |
5088 |
T2653:; |
T2644:; |
5089 |
if(!(endp_prop(cdr((V729))))){ |
if(!((CMPcdr((V739)))==Cnil)){ |
5090 |
goto T2665;} |
goto T2656;} |
5091 |
goto T2645; |
goto T2636; |
5092 |
goto T2665; |
goto T2656; |
5093 |
T2665:; |
T2656:; |
5094 |
princ_char(44,VV[26]); |
princ_char(44,VV[26]); |
5095 |
V729= cdr((V729)); |
V739= CMPcdr((V739)); |
5096 |
V730= (long)(V730)+1; |
V740= (long)(V740)+1; |
5097 |
goto T2650;} |
goto T2641;} |
5098 |
goto T2645; |
goto T2636; |
5099 |
T2645:; |
T2636:; |
5100 |
princ_str(");",VV[26]); |
princ_str(");",VV[26]); |
5101 |
princ_str("\n vs_top=(vs_base=old_base)+1;",VV[26]); |
princ_str("\n vs_top=(vs_base=old_base)+1;",VV[26]); |
5102 |
princ_str("\n vs_base[0]=",VV[26]); |
princ_str("\n vs_base[0]=",VV[26]); |
5103 |
{object V735= (V724); |
{object V745= (V734); |
5104 |
if((V735!= VV[241]))goto T2681; |
if((V745!= VV[241]))goto T2672; |
5105 |
princ_str("Cnil",VV[26]); |
princ_str("Cnil",VV[26]); |
5106 |
goto T2680; |
goto T2671; |
5107 |
goto T2681; |
goto T2672; |
5108 |
T2681:; |
T2672:; |
5109 |
if((V735!= VV[75]))goto T2683; |
if((V745!= VV[75]))goto T2674; |
5110 |
princ_char(120,VV[26]); |
princ_char(120,VV[26]); |
5111 |
goto T2680; |
goto T2671; |
5112 |
goto T2683; |
goto T2674; |
5113 |
T2683:; |
T2674:; |
5114 |
if((V735!= VV[342]))goto T2685; |
if((V745!= VV[345]))goto T2676; |
5115 |
princ_str("code_char(x)",VV[26]); |
princ_str("code_char(x)",VV[26]); |
5116 |
goto T2680; |
goto T2671; |
5117 |
goto T2685; |
goto T2676; |
5118 |
T2685:; |
T2676:; |
5119 |
if((V735!= VV[343]))goto T2687; |
if((V745!= VV[346]))goto T2678; |
5120 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[115]))==0)){ |
if(!(number_compare(small_fixnum(0),(VV[115]->s.s_dbind))==0)){ |
5121 |
goto T2688;} |
goto T2679;} |
5122 |
princ_str("CMP",VV[26]); |
princ_str("CMP",VV[26]); |
5123 |
goto T2688; |
goto T2679; |
5124 |
T2688:; |
T2679:; |
5125 |
princ_str("make_fixnum(x)",VV[26]); |
princ_str("make_fixnum(x)",VV[26]); |
5126 |
goto T2680; |
goto T2671; |
5127 |
goto T2687; |
goto T2678; |
5128 |
T2687:; |
T2678:; |
5129 |
if((V735!= VV[159]))goto T2693; |
if((V745!= VV[159]))goto T2684; |
5130 |
princ_str("make_simple_string(x)",VV[26]); |
princ_str("make_simple_string(x)",VV[26]); |
5131 |
goto T2680; |
goto T2671; |
5132 |
goto T2693; |
goto T2684; |
5133 |
T2693:; |
T2684:; |
5134 |
if((V735!= VV[344]))goto T2695; |
if((V745!= VV[347]))goto T2686; |
5135 |
princ_str("make_shortfloat(x)",VV[26]); |
princ_str("make_shortfloat(x)",VV[26]); |
5136 |
goto T2680; |
goto T2671; |
5137 |
goto T2695; |
goto T2686; |
5138 |
T2695:; |
T2686:; |
5139 |
if((V735!= VV[345]))goto T2697; |
if((V745!= VV[348]))goto T2688; |
5140 |
princ_str("make_longfloat(x)",VV[26]); |
princ_str("make_longfloat(x)",VV[26]); |
5141 |
goto T2680; |
goto T2671; |
5142 |
goto T2697; |
goto T2688; |
5143 |
T2697:;} |
T2688:;} |
5144 |
goto T2680; |
goto T2671; |
5145 |
T2680:; |
T2671:; |
5146 |
princ_char(59,VV[26]); |
princ_char(59,VV[26]); |
5147 |
princ_str("\n}",VV[26]); |
princ_str("\n}",VV[26]); |
5148 |
{object V736 = Cnil; |
{object V746 = Cnil; |
5149 |
VMR50(V736)} |
VMR50(V746)} |
5150 |
base[0]=base[0]; |
base[0]=base[0]; |
5151 |
return Cnil; |
return Cnil; |
5152 |
} |
} |
5153 |
/* local entry for function T1DEFLA */ |
/* local entry for function T1DEFLA */ |
5154 |
|
|
5155 |
static object LI52(V738) |
static object LI52(V748) |
5156 |
|
|
5157 |
object V738; |
object V748; |
5158 |
{ VMB51 VMS51 VMV51 |
{ VMB51 VMS51 VMV51 |
5159 |
goto TTL; |
goto TTL; |
5160 |
TTL:; |
TTL:; |
5161 |
{object V739 = Cnil; |
{object V749 = Cnil; |
5162 |
VMR51(V739)} |
VMR51(V749)} |
5163 |
return Cnil; |
return Cnil; |
5164 |
} |
} |
5165 |
/* local entry for function PARSE-CVSPECS */ |
/* local entry for function PARSE-CVSPECS */ |
5166 |
|
|
5167 |
static object LI53(V741) |
static object LI53(V751) |
5168 |
|
|
5169 |
object V741; |
object V751; |
5170 |
{ VMB52 VMS52 VMV52 |
{ VMB52 VMS52 VMV52 |
5171 |
goto TTL; |
goto TTL; |
5172 |
TTL:; |
TTL:; |
5173 |
{register object V742; |
{register object V752; |
5174 |
V742= Cnil; |
V752= Cnil; |
5175 |
{register object V743; |
{register object V753; |
5176 |
register object V744; |
register object V754; |
5177 |
V743= (V741); |
V753= (V751); |
5178 |
V744= car((V743)); |
V754= CMPcar((V753)); |
5179 |
goto T2706; |
goto T2697; |
5180 |
T2706:; |
T2697:; |
5181 |
if(!(endp_prop((V743)))){ |
if(!(((V753))==Cnil)){ |
5182 |
goto T2707;} |
goto T2698;} |
5183 |
{object V745 = reverse((V742)); |
{object V755 = reverse((V752)); |
5184 |
VMR52(V745)} |
VMR52(V755)} |
5185 |
goto T2707; |
goto T2698; |
5186 |
T2707:; |
T2698:; |
5187 |
if(!(type_of((V744))==t_symbol)){ |
if(!(type_of((V754))==t_symbol)){ |
5188 |
goto T2713;} |
goto T2704;} |
5189 |
{object V746; |
{object V756; |
5190 |
base[2]= symbol_name((V744)); |
base[2]= symbol_name((V754)); |
5191 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5192 |
Lstring_downcase(); |
Lstring_downcase(); |
5193 |
vs_top=sup; |
vs_top=sup; |
5194 |
V747= vs_base[0]; |
V757= vs_base[0]; |
5195 |
V746= list(2,VV[75],V747); |
V756= list(2,VV[75],V757); |
5196 |
V742= make_cons((V746),(V742)); |
V752= make_cons((V756),(V752)); |
5197 |
goto T2711;} |
goto T2702;} |
5198 |
goto T2713; |
goto T2704; |
5199 |
T2713:; |
T2704:; |
5200 |
if(!(type_of((V744))==t_string)){ |
if(!(type_of((V754))==t_string)){ |
|
goto T2720;} |
|
|
{object V748; |
|
|
V748= list(2,VV[75],(V744)); |
|
|
V742= make_cons((V748),(V742)); |
|
5201 |
goto T2711;} |
goto T2711;} |
5202 |
goto T2720; |
{object V758; |
5203 |
T2720:; |
V758= list(2,VV[75],(V754)); |
5204 |
if(!(type_of((V744))==t_cons)){ |
V752= make_cons((V758),(V752)); |
5205 |
goto T2725;} |
goto T2702;} |
|
{register object x= car((V744)),V749= VV[242]; |
|
|
while(!endp(V749)) |
|
|
if(eql(x,V749->c.c_car)){ |
|
|
goto T2728; |
|
|
}else V749=V749->c.c_cdr; |
|
|
goto T2725;} |
|
|
goto T2728; |
|
|
T2728:; |
|
|
{register object V750; |
|
|
register object V751; |
|
|
V750= cdr((V744)); |
|
|
V751= car((V750)); |
|
|
goto T2732; |
|
|
T2732:; |
|
|
if(!(endp_prop((V750)))){ |
|
|
goto T2733;} |
|
5206 |
goto T2711; |
goto T2711; |
5207 |
goto T2733; |
T2711:; |
5208 |
T2733:; |
if(!(type_of((V754))==t_cons)){ |
5209 |
{register object V752; |
goto T2716;} |
5210 |
V753= car((V744)); |
{register object x= CMPcar((V754)),V759= VV[242]; |
5211 |
if(!(type_of((V751))==t_symbol)){ |
while(V759!=Cnil) |
5212 |
goto T2741;} |
if(eql(x,V759->c.c_car)){ |
5213 |
base[4]= symbol_name((V751)); |
goto T2719; |
5214 |
|
}else V759=V759->c.c_cdr; |
5215 |
|
goto T2716;} |
5216 |
|
goto T2719; |
5217 |
|
T2719:; |
5218 |
|
{register object V760; |
5219 |
|
register object V761; |
5220 |
|
V760= CMPcdr((V754)); |
5221 |
|
V761= CMPcar((V760)); |
5222 |
|
goto T2723; |
5223 |
|
T2723:; |
5224 |
|
if(!(((V760))==Cnil)){ |
5225 |
|
goto T2724;} |
5226 |
|
goto T2702; |
5227 |
|
goto T2724; |
5228 |
|
T2724:; |
5229 |
|
{register object V762; |
5230 |
|
V763= CMPcar((V754)); |
5231 |
|
if(!(type_of((V761))==t_symbol)){ |
5232 |
|
goto T2732;} |
5233 |
|
base[4]= symbol_name((V761)); |
5234 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5235 |
Lstring_downcase(); |
Lstring_downcase(); |
5236 |
vs_top=sup; |
vs_top=sup; |
5237 |
V754= vs_base[0]; |
V764= vs_base[0]; |
5238 |
goto T2739; |
goto T2730; |
5239 |
goto T2741; |
goto T2732; |
5240 |
T2741:; |
T2732:; |
5241 |
if(!(type_of((V751))==t_string)){ |
if(!(type_of((V761))==t_string)){ |
5242 |
goto T2745;} |
goto T2736;} |
5243 |
V754= (V751); |
V764= (V761); |
5244 |
goto T2739; |
goto T2730; |
5245 |
goto T2745; |
goto T2736; |
5246 |
T2745:; |
T2736:; |
5247 |
V754= (VFUN_NARGS=2,(*(LnkLI266))(VV[243],(V751))); |
V764= (VFUN_NARGS=2,(*(LnkLI266))(VV[243],(V761))); |
5248 |
goto T2739; |
goto T2730; |
5249 |
T2739:; |
T2730:; |
5250 |
V752= list(2,/* INLINE-ARGS */V753,V754); |
V762= list(2,/* INLINE-ARGS */V763,V764); |
5251 |
V742= make_cons((V752),(V742));} |
V752= make_cons((V762),(V752));} |
5252 |
V750= cdr((V750)); |
V760= CMPcdr((V760)); |
5253 |
V751= car((V750)); |
V761= CMPcar((V760)); |
5254 |
goto T2732;} |
goto T2723;} |
5255 |
goto T2725; |
goto T2716; |
5256 |
T2725:; |
T2716:; |
5257 |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[244],(V744)))); |
(void)((VFUN_NARGS=2,(*(LnkLI266))(VV[244],(V754)))); |
5258 |
goto T2711; |
goto T2702; |
5259 |
T2711:; |
T2702:; |
5260 |
V743= cdr((V743)); |
V753= CMPcdr((V753)); |
5261 |
V744= car((V743)); |
V754= CMPcar((V753)); |
5262 |
goto T2706;}} |
goto T2697;}} |
5263 |
base[0]=base[0]; |
base[0]=base[0]; |
5264 |
return Cnil; |
return Cnil; |
5265 |
} |
} |
5266 |
/* local entry for function T3LOCAL-DCFUN */ |
/* local entry for function T3LOCAL-DCFUN */ |
5267 |
|
|
5268 |
static object LI54(V760,V761,V762,V763,V764) |
static object LI54(V770,V771,V772,V773,V774) |
5269 |
|
|
5270 |
object V760;object V761;object V762;register object V763;register object V764; |
object V770;object V771;object V772;register object V773;register object V774; |
5271 |
{ VMB53 VMS53 VMV53 |
{ VMB53 VMS53 VMV53 |
5272 |
bds_check; |
bds_check; |
5273 |
goto TTL; |
goto TTL; |
5274 |
TTL:; |
TTL:; |
5275 |
{object V765; |
{object V775; |
5276 |
register object V766; |
register object V776; |
5277 |
object V767; |
object V777; |
5278 |
if(((V760))==Cnil){ |
if(((V770))==Cnil){ |
5279 |
goto T2760;} |
goto T2751;} |
5280 |
V765= small_fixnum(0); |
V775= small_fixnum(0); |
5281 |
goto T2758; |
goto T2749; |
5282 |
goto T2760; |
goto T2751; |
5283 |
T2760:; |
T2751:; |
5284 |
V765= structure_ref((V763),VV[33],4); |
V775= STREF(object,(V773),16); |
5285 |
goto T2758; |
goto T2749; |
5286 |
T2758:; |
T2749:; |
5287 |
V766= Cnil; |
V776= Cnil; |
5288 |
bds_bind(VV[21],(*(LnkLI307))(cadr((V764)))); |
bds_bind(VV[21],(*(LnkLI310))(CMPcadr((V774)))); |
5289 |
bds_bind(VV[118],Cnil); |
bds_bind(VV[118],Cnil); |
5290 |
V767= caaddr((V764)); |
V777= CMPcaaddr((V774)); |
5291 |
if((structure_ref((V763),VV[33],0))==Cnil){ |
if((STREF(object,(V773),0))==Cnil){ |
5292 |
goto T2768;} |
goto T2759;} |
5293 |
V768= structure_ref((V763),VV[33],0); |
V778= STREF(object,(V773),0); |
5294 |
goto T2766; |
goto T2757; |
5295 |
goto T2768; |
goto T2759; |
5296 |
T2768:; |
T2759:; |
5297 |
V768= Cnil; |
V778= Cnil; |
5298 |
|
goto T2757; |
5299 |
|
T2757:; |
5300 |
|
(void)((VFUN_NARGS=2,(*(LnkLI316))(VV[245],V778))); |
5301 |
|
princ_str("\nstatic void ",VV[26]); |
5302 |
|
if(((V770))==Cnil){ |
5303 |
|
goto T2766;} |
5304 |
|
V779= VV[246]; |
5305 |
|
goto T2764; |
5306 |
goto T2766; |
goto T2766; |
5307 |
T2766:; |
T2766:; |
5308 |
(void)((VFUN_NARGS=2,(*(LnkLI313))(VV[245],V768))); |
V779= VV[247]; |
5309 |
princ_str("\nstatic void ",VV[26]); |
goto T2764; |
5310 |
if(((V760))==Cnil){ |
T2764:; |
5311 |
|
(void)((*(LnkLI275))(V779)); |
5312 |
|
(void)((*(LnkLI275))(STREF(object,(V773),12))); |
5313 |
|
princ_char(40,VV[26]); |
5314 |
|
princ_str("base0",VV[26]); |
5315 |
|
if(((V777))==Cnil){ |
5316 |
goto T2775;} |
goto T2775;} |
5317 |
V769= VV[246]; |
V780= VV[248]; |
5318 |
goto T2773; |
goto T2773; |
5319 |
goto T2775; |
goto T2775; |
5320 |
T2775:; |
T2775:; |
5321 |
V769= VV[247]; |
V780= VV[249]; |
5322 |
goto T2773; |
goto T2773; |
5323 |
T2773:; |
T2773:; |
5324 |
(void)((*(LnkLI275))(V769)); |
(void)((*(LnkLI275))(V780)); |
5325 |
V770= structure_ref((V763),VV[33],3); |
(void)((*(LnkLI312))(STREF(object,CMPcadr((V774)),4),small_fixnum(2))); |
5326 |
(void)((*(LnkLI275))(/* INLINE-ARGS */V770)); |
(void)((*(LnkLI317))(CMPcaaddr((V774)),Cnil)); |
|
princ_char(40,VV[26]); |
|
|
princ_str("base0",VV[26]); |
|
|
if(((V767))==Cnil){ |
|
|
goto T2784;} |
|
|
V771= VV[248]; |
|
|
goto T2782; |
|
|
goto T2784; |
|
|
T2784:; |
|
|
V771= VV[249]; |
|
|
goto T2782; |
|
|
T2782:; |
|
|
(void)((*(LnkLI275))(V771)); |
|
|
V772= structure_ref(cadr((V764)),VV[63],1); |
|
|
(void)((*(LnkLI309))(/* INLINE-ARGS */V772,small_fixnum(2))); |
|
|
(void)((*(LnkLI314))(caaddr((V764)),Cnil)); |
|
5327 |
princ_str("register object *",VV[26]); |
princ_str("register object *",VV[26]); |
5328 |
(void)((*(LnkLI275))((VV[21]->s.s_dbind))); |
(void)((*(LnkLI275))((VV[21]->s.s_dbind))); |
5329 |
princ_str("base0;",VV[26]); |
princ_str("base0;",VV[26]); |
5330 |
bds_bind(VV[250],(V762)); |
bds_bind(VV[250],(V772)); |
5331 |
bds_bind(VV[129],VV[125]); |
bds_bind(VV[129],VV[125]); |
5332 |
bds_bind(VV[19],Cnil); |
bds_bind(VV[19],Cnil); |
5333 |
bds_bind(VV[130],small_fixnum(0)); |
bds_bind(VV[130],small_fixnum(0)); |
5334 |
bds_bind(VV[131],small_fixnum(0)); |
bds_bind(VV[131],small_fixnum(0)); |
5335 |
bds_bind(VV[132],one_plus((V765))); |
bds_bind(VV[132],one_plus((V775))); |
5336 |
bds_bind(VV[133],(V762)); |
bds_bind(VV[133],(V772)); |
5337 |
bds_bind(VV[134],(V761)); |
bds_bind(VV[134],(V771)); |
5338 |
bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil)); |
bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil)); |
5339 |
bds_bind(VV[136],(VV[129]->s.s_dbind)); |
bds_bind(VV[136],(VV[129]->s.s_dbind)); |
5340 |
setq(VV[138],number_plus(symbol_value(VV[138]),small_fixnum(1))); |
(VV[138]->s.s_dbind)= number_plus((VV[138]->s.s_dbind),small_fixnum(1)); |
5341 |
bds_bind(VV[137],symbol_value(VV[138])); |
bds_bind(VV[137],(VV[138]->s.s_dbind)); |
5342 |
bds_bind(VV[139],Cnil); |
bds_bind(VV[139],Cnil); |
5343 |
bds_bind(VV[140],Cnil); |
bds_bind(VV[140],Cnil); |
5344 |
bds_bind(VV[141],Cnil); |
bds_bind(VV[141],Cnil); |
5345 |
bds_bind(VV[142],small_fixnum(0)); |
bds_bind(VV[142],small_fixnum(0)); |
5346 |
V766= (VV[137]->s.s_dbind); |
V776= (VV[137]->s.s_dbind); |
5347 |
princ_str("\n{",VV[26]); |
princ_str("\n{",VV[26]); |
5348 |
V773= structure_ref(cadr((V764)),VV[63],1); |
(void)((*(LnkLI318))(STREF(object,CMPcadr((V774)),4),STREF(object,(V773),12),VV[251])); |
|
V774= structure_ref((V763),VV[33],3); |
|
|
(void)((*(LnkLI315))(/* INLINE-ARGS */V773,/* INLINE-ARGS */V774,VV[251])); |
|
5349 |
princ_str("\n VMB",VV[26]); |
princ_str("\n VMB",VV[26]); |
5350 |
(void)((*(LnkLI275))((V766))); |
(void)((*(LnkLI275))((V776))); |
5351 |
princ_str(" VMS",VV[26]); |
princ_str(" VMS",VV[26]); |
5352 |
(void)((*(LnkLI275))((V766))); |
(void)((*(LnkLI275))((V776))); |
5353 |
princ_str(" VMV",VV[26]); |
princ_str(" VMV",VV[26]); |
5354 |
(void)((*(LnkLI275))((V766))); |
(void)((*(LnkLI275))((V776))); |
5355 |
if((symbol_value(VV[150]))==Cnil){ |
if(((VV[150]->s.s_dbind))==Cnil){ |
5356 |
goto T2808;} |
goto T2799;} |
5357 |
princ_str("\n ihs_check;",VV[26]); |
princ_str("\n ihs_check;",VV[26]); |
5358 |
goto T2808; |
goto T2799; |
5359 |
T2808:; |
T2799:; |
5360 |
base[19]= caddr(cddr((V764))); |
base[19]= CMPcaddr(CMPcddr((V774))); |
5361 |
vs_top=(vs_base=base+19)+1; |
vs_top=(vs_base=base+19)+1; |
5362 |
(void) (*Lnk316)(); |
(void) (*Lnk319)(); |
5363 |
vs_top=sup; |
vs_top=sup; |
5364 |
if(!(number_compare(small_fixnum(0),(VV[131]->s.s_dbind))==0)){ |
if(!(number_compare(small_fixnum(0),(VV[131]->s.s_dbind))==0)){ |
5365 |
goto T2816;} |
goto T2807;} |
5366 |
if(((VV[139]->s.s_dbind))!=Cnil){ |
if(((VV[139]->s.s_dbind))!=Cnil){ |
5367 |
goto T2816;} |
goto T2807;} |
5368 |
if(((VV[141]->s.s_dbind))!=Cnil){ |
if(((VV[141]->s.s_dbind))!=Cnil){ |
5369 |
goto T2816;} |
goto T2807;} |
5370 |
goto T2814; |
goto T2805; |
5371 |
goto T2816; |
goto T2807; |
5372 |
T2816:; |
T2807:; |
5373 |
princ_str("\n base[0]=base[0];",VV[26]); |
princ_str("\n base[0]=base[0];",VV[26]); |
5374 |
goto T2814; |
goto T2805; |
5375 |
T2814:; |
T2805:; |
5376 |
princ_str("\n}",VV[26]); |
princ_str("\n}",VV[26]); |
5377 |
(void)((*(LnkLI317))((V766),Ct)); |
(void)((*(LnkLI320))((V776),Ct)); |
5378 |
V775= structure_ref((V763),VV[33],3); |
{object V781 = (*(LnkLI314))(STREF(object,(V773),12)); |
|
{object V776 = (*(LnkLI311))(/* INLINE-ARGS */V775); |
|
5379 |
bds_unwind1; |
bds_unwind1; |
5380 |
bds_unwind1; |
bds_unwind1; |
5381 |
bds_unwind1; |
bds_unwind1; |
5393 |
bds_unwind1; |
bds_unwind1; |
5394 |
bds_unwind1; |
bds_unwind1; |
5395 |
bds_unwind1; |
bds_unwind1; |
5396 |
VMR53(V776)}} |
VMR53(V781)}} |
5397 |
base[0]=base[0]; |
base[0]=base[0]; |
5398 |
return Cnil; |
return Cnil; |
5399 |
} |
} |
5400 |
/* local entry for function T3LOCAL-FUN */ |
/* local entry for function T3LOCAL-FUN */ |
5401 |
|
|
5402 |
static object LI55(V782,V783,V784,V785,V786) |
static object LI55(V787,V788,V789,V790,V791) |
5403 |
|
|
5404 |
object V782;object V783;object V784;object V785;object V786; |
object V787;object V788;object V789;object V790;object V791; |
5405 |
{ VMB54 VMS54 VMV54 |
{ VMB54 VMS54 VMV54 |
5406 |
bds_check; |
bds_check; |
5407 |
goto TTL; |
goto TTL; |
5408 |
TTL:; |
TTL:; |
5409 |
{long V787; |
{long V792; |
5410 |
if(((V782))==Cnil){ |
if(((V787))==Cnil){ |
5411 |
|
goto T2819;} |
5412 |
|
V792= 0; |
5413 |
|
goto T2817; |
5414 |
|
goto T2819; |
5415 |
|
T2819:; |
5416 |
|
V792= fix(STREF(object,(V790),16)); |
5417 |
|
goto T2817; |
5418 |
|
T2817:; |
5419 |
|
bds_bind(VV[21],(*(LnkLI310))(CMPcadr((V791)))); |
5420 |
|
bds_bind(VV[118],Cnil); |
5421 |
|
if(!(((V787))==(VV[252]))){ |
5422 |
|
goto T2822;} |
5423 |
|
{object V793 = (*(LnkLI251))((V787),(V788),(V789),(V790),(V791)); |
5424 |
|
bds_unwind1; |
5425 |
|
bds_unwind1; |
5426 |
|
VMR54(V793)} |
5427 |
|
goto T2822; |
5428 |
|
T2822:; |
5429 |
|
if((STREF(object,(V790),0))==Cnil){ |
5430 |
goto T2828;} |
goto T2828;} |
5431 |
V787= 0; |
V794= STREF(object,(V790),0); |
5432 |
goto T2826; |
goto T2826; |
5433 |
goto T2828; |
goto T2828; |
5434 |
T2828:; |
T2828:; |
5435 |
V787= fix(structure_ref((V785),VV[33],4)); |
V794= Cnil; |
5436 |
goto T2826; |
goto T2826; |
5437 |
T2826:; |
T2826:; |
5438 |
bds_bind(VV[21],(*(LnkLI307))(cadr((V786)))); |
(void)((VFUN_NARGS=2,(*(LnkLI316))(VV[253],V794))); |
5439 |
bds_bind(VV[118],Cnil); |
princ_str("\nstatic void ",VV[32]); |
5440 |
if(!(((V782))==(VV[252]))){ |
if(((V787))==Cnil){ |
5441 |
goto T2831;} |
goto T2835;} |
5442 |
{object V788 = (*(LnkLI251))((V782),(V783),(V784),(V785),(V786)); |
V795= VV[254]; |
5443 |
bds_unwind1; |
goto T2833; |
|
bds_unwind1; |
|
|
VMR54(V788)} |
|
|
goto T2831; |
|
|
T2831:; |
|
|
if((structure_ref((V785),VV[33],0))==Cnil){ |
|
|
goto T2837;} |
|
|
V789= structure_ref((V785),VV[33],0); |
|
|
goto T2835; |
|
|
goto T2837; |
|
|
T2837:; |
|
|
V789= Cnil; |
|
5444 |
goto T2835; |
goto T2835; |
5445 |
T2835:; |
T2835:; |
5446 |
(void)((VFUN_NARGS=2,(*(LnkLI313))(VV[253],V789))); |
V795= VV[255]; |
5447 |
princ_str("\nstatic void ",VV[32]); |
goto T2833; |
5448 |
if(((V782))==Cnil){ |
T2833:; |
5449 |
|
(void)((*(LnkLI278))(V795)); |
5450 |
|
(void)((*(LnkLI278))(STREF(object,(V790),12))); |
5451 |
|
princ_str("();",VV[32]); |
5452 |
|
princ_str("\nstatic void ",VV[26]); |
5453 |
|
if(((V787))==Cnil){ |
5454 |
goto T2844;} |
goto T2844;} |
5455 |
V790= VV[254]; |
V796= VV[256]; |
5456 |
goto T2842; |
goto T2842; |
5457 |
goto T2844; |
goto T2844; |
5458 |
T2844:; |
T2844:; |
5459 |
V790= VV[255]; |
V796= VV[257]; |
5460 |
goto T2842; |
goto T2842; |
5461 |
T2842:; |
T2842:; |
5462 |
(void)((*(LnkLI278))(V790)); |
(void)((*(LnkLI275))(V796)); |
5463 |
V791= structure_ref((V785),VV[33],3); |
(void)((*(LnkLI275))(STREF(object,(V790),12))); |
|
(void)((*(LnkLI278))(/* INLINE-ARGS */V791)); |
|
|
princ_str("();",VV[32]); |
|
|
princ_str("\nstatic void ",VV[26]); |
|
|
if(((V782))==Cnil){ |
|
|
goto T2853;} |
|
|
V792= VV[256]; |
|
|
goto T2851; |
|
|
goto T2853; |
|
|
T2853:; |
|
|
V792= VV[257]; |
|
|
goto T2851; |
|
|
T2851:; |
|
|
(void)((*(LnkLI275))(V792)); |
|
|
V793= structure_ref((V785),VV[33],3); |
|
|
(void)((*(LnkLI275))(/* INLINE-ARGS */V793)); |
|
5464 |
princ_char(40,VV[26]); |
princ_char(40,VV[26]); |
5465 |
{register object V794; |
{register object V797; |
5466 |
register long V795; |
register long V798; |
5467 |
V794= make_fixnum(V787); |
V797= CMPmake_fixnum(V792); |
5468 |
V795= 0; |
V798= 0; |
5469 |
goto T2861; |
goto T2852; |
5470 |
T2861:; |
T2852:; |
5471 |
V796 = make_fixnum(V795); |
V799 = CMPmake_fixnum(V798); |
5472 |
if(!(number_compare(V796,(V794))>=0)){ |
if(!(number_compare(V799,(V797))>=0)){ |
5473 |
goto T2862;} |
goto T2853;} |
5474 |
princ_str("base",VV[26]); |
princ_str("base",VV[26]); |
5475 |
V797 = make_fixnum(V795); |
V800 = CMPmake_fixnum(V798); |
5476 |
(void)((*(LnkLI275))(V797)); |
(void)((*(LnkLI275))(V800)); |
5477 |
princ_char(41,VV[26]); |
princ_char(41,VV[26]); |
5478 |
goto T2857; |
goto T2848; |
5479 |
goto T2862; |
goto T2853; |
5480 |
T2862:; |
T2853:; |
5481 |
princ_str("base",VV[26]); |
princ_str("base",VV[26]); |
5482 |
V798 = make_fixnum(V795); |
V801 = CMPmake_fixnum(V798); |
5483 |
(void)((*(LnkLI275))(V798)); |
(void)((*(LnkLI275))(V801)); |
5484 |
princ_char(44,VV[26]); |
princ_char(44,VV[26]); |
5485 |
V795= (long)(V795)+1; |
V798= (long)(V798)+1; |
5486 |
goto T2861;} |
goto T2852;} |
5487 |
goto T2857; |
goto T2848; |
5488 |
T2857:; |
T2848:; |
5489 |
princ_str("\nregister object ",VV[26]); |
princ_str("\nregister object ",VV[26]); |
5490 |
{register object V799; |
{register object V802; |
5491 |
register long V800; |
register long V803; |
5492 |
V799= make_fixnum(V787); |
V802= CMPmake_fixnum(V792); |
5493 |
V800= 0; |
V803= 0; |
5494 |
goto T2882; |
goto T2873; |
5495 |
T2882:; |
T2873:; |
5496 |
V801 = make_fixnum(V800); |
V804 = CMPmake_fixnum(V803); |
5497 |
if(!(number_compare(V801,(V799))>=0)){ |
if(!(number_compare(V804,(V802))>=0)){ |
5498 |
goto T2883;} |
goto T2874;} |
5499 |
princ_char(42,VV[26]); |
princ_char(42,VV[26]); |
5500 |
(void)((*(LnkLI275))((VV[21]->s.s_dbind))); |
(void)((*(LnkLI275))((VV[21]->s.s_dbind))); |
5501 |
princ_str("base",VV[26]); |
princ_str("base",VV[26]); |
5502 |
V802 = make_fixnum(V800); |
V805 = CMPmake_fixnum(V803); |
5503 |
(void)((*(LnkLI275))(V802)); |
(void)((*(LnkLI275))(V805)); |
5504 |
princ_char(59,VV[26]); |
princ_char(59,VV[26]); |
5505 |
goto T2878; |
goto T2869; |
5506 |
goto T2883; |
goto T2874; |
5507 |
T2883:; |
T2874:; |
5508 |
princ_char(42,VV[26]); |
princ_char(42,VV[26]); |
5509 |
(void)((*(LnkLI275))((VV[21]->s.s_dbind))); |
(void)((*(LnkLI275))((VV[21]->s.s_dbind))); |
5510 |
princ_str("base",VV[26]); |
princ_str("base",VV[26]); |
5511 |
V803 = make_fixnum(V800); |
V806 = CMPmake_fixnum(V803); |
5512 |
(void)((*(LnkLI275))(V803)); |
(void)((*(LnkLI275))(V806)); |
5513 |
princ_char(44,VV[26]); |
princ_char(44,VV[26]); |
5514 |
V800= (long)(V800)+1; |
V803= (long)(V803)+1; |
5515 |
goto T2882;} |
goto T2873;} |
5516 |
goto T2878; |
goto T2869; |
5517 |
T2878:; |
T2869:; |
5518 |
V804= structure_ref(cadr((V786)),VV[63],1); |
(void)((*(LnkLI312))(STREF(object,CMPcadr((V791)),4),small_fixnum(2))); |
|
(void)((*(LnkLI309))(/* INLINE-ARGS */V804,small_fixnum(2))); |
|
5519 |
bds_bind(VV[129],VV[128]); |
bds_bind(VV[129],VV[128]); |
5520 |
bds_bind(VV[250],(V784)); |
bds_bind(VV[250],(V789)); |
5521 |
bds_bind(VV[19],Cnil); |
bds_bind(VV[19],Cnil); |
5522 |
bds_bind(VV[130],small_fixnum(0)); |
bds_bind(VV[130],small_fixnum(0)); |
5523 |
bds_bind(VV[131],small_fixnum(0)); |
bds_bind(VV[131],small_fixnum(0)); |
5524 |
V805 = make_fixnum(V787); |
V807 = CMPmake_fixnum(V792); |
5525 |
bds_bind(VV[132],one_plus(V805)); |
bds_bind(VV[132],one_plus(V807)); |
5526 |
bds_bind(VV[133],(V784)); |
bds_bind(VV[133],(V789)); |
5527 |
bds_bind(VV[134],(V783)); |
bds_bind(VV[134],(V788)); |
5528 |
bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil)); |
bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil)); |
5529 |
bds_bind(VV[136],(VV[129]->s.s_dbind)); |
bds_bind(VV[136],(VV[129]->s.s_dbind)); |
5530 |
setq(VV[138],number_plus(symbol_value(VV[138]),small_fixnum(1))); |
(VV[138]->s.s_dbind)= number_plus((VV[138]->s.s_dbind),small_fixnum(1)); |
5531 |
bds_bind(VV[137],symbol_value(VV[138])); |
bds_bind(VV[137],(VV[138]->s.s_dbind)); |
5532 |
bds_bind(VV[139],Cnil); |
bds_bind(VV[139],Cnil); |
5533 |
bds_bind(VV[140],Cnil); |
bds_bind(VV[140],Cnil); |
5534 |
bds_bind(VV[141],Cnil); |
bds_bind(VV[141],Cnil); |
5541 |
princ_str("sup=base+VM",VV[26]); |
princ_str("sup=base+VM",VV[26]); |
5542 |
(void)((*(LnkLI275))((VV[137]->s.s_dbind))); |
(void)((*(LnkLI275))((VV[137]->s.s_dbind))); |
5543 |
princ_char(59,VV[26]); |
princ_char(59,VV[26]); |
5544 |
V806= structure_ref(cadr((V786)),VV[63],1); |
(void)((*(LnkLI318))(STREF(object,CMPcadr((V791)),4),STREF(object,(V790),12),VV[258])); |
|
V807= structure_ref((V785),VV[33],3); |
|
|
(void)((*(LnkLI315))(/* INLINE-ARGS */V806,/* INLINE-ARGS */V807,VV[258])); |
|
5545 |
princ_str(" VC",VV[26]); |
princ_str(" VC",VV[26]); |
5546 |
(void)((*(LnkLI275))((VV[137]->s.s_dbind))); |
(void)((*(LnkLI275))((VV[137]->s.s_dbind))); |
5547 |
if((symbol_value(VV[164]))==Cnil){ |
if(((VV[164]->s.s_dbind))==Cnil){ |
5548 |
goto T2923;} |
goto T2914;} |
5549 |
princ_str("\n vs_reserve(VM",VV[26]); |
princ_str("\n vs_reserve(VM",VV[26]); |
5550 |
(void)((*(LnkLI275))((VV[137]->s.s_dbind))); |
(void)((*(LnkLI275))((VV[137]->s.s_dbind))); |
5551 |
princ_str(");",VV[26]); |
princ_str(");",VV[26]); |
5552 |
goto T2921; |
goto T2912; |
5553 |
goto T2923; |
goto T2914; |
5554 |
T2923:; |
T2914:; |
5555 |
princ_str("\n vs_check;",VV[26]); |
princ_str("\n vs_check;",VV[26]); |
5556 |
goto T2921; |
goto T2912; |
5557 |
T2921:; |
T2912:; |
5558 |
if((symbol_value(VV[150]))==Cnil){ |
if(((VV[150]->s.s_dbind))==Cnil){ |
5559 |
goto T2929;} |
goto T2920;} |
5560 |
princ_str("\n ihs_check;",VV[26]); |
princ_str("\n ihs_check;",VV[26]); |
5561 |
goto T2929; |
goto T2920; |
5562 |
T2929:; |
T2920:; |
5563 |
if(((V782))==Cnil){ |
if(((V787))==Cnil){ |
5564 |
goto T2935;} |
goto T2926;} |
5565 |
(void)((VFUN_NARGS=2,(*(LnkLI332))(caddr((V786)),caddr(cddr((V786)))))); |
(void)((VFUN_NARGS=2,(*(LnkLI335))(CMPcaddr((V791)),CMPcaddr(CMPcddr((V791)))))); |
5566 |
goto T2933; |
goto T2924; |
5567 |
goto T2935; |
goto T2926; |
5568 |
T2935:; |
T2926:; |
5569 |
(void)((VFUN_NARGS=3,(*(LnkLI332))(caddr((V786)),caddr(cddr((V786))),(V785)))); |
(void)((VFUN_NARGS=3,(*(LnkLI335))(CMPcaddr((V791)),CMPcaddr(CMPcddr((V791))),(V790)))); |
5570 |
goto T2933; |
goto T2924; |
5571 |
T2933:; |
T2924:; |
5572 |
princ_str("\n}",VV[26]); |
princ_str("\n}",VV[26]); |
5573 |
{object V808; |
{object V808; |
5574 |
V808= make_cons((VV[137]->s.s_dbind),(VV[131]->s.s_dbind)); |
V808= make_cons((VV[137]->s.s_dbind),(VV[131]->s.s_dbind)); |
5575 |
setq(VV[34],make_cons((V808),symbol_value(VV[34])));} |
(VV[34]->s.s_dbind)= make_cons((V808),(VV[34]->s.s_dbind));} |
5576 |
princ_str("\n#define VC",VV[32]); |
princ_str("\n#define VC",VV[32]); |
5577 |
(void)((*(LnkLI278))((VV[137]->s.s_dbind))); |
(void)((*(LnkLI278))((VV[137]->s.s_dbind))); |
5578 |
V809= (*(LnkLI333))(); |
V809= (*(LnkLI336))(); |
5579 |
bds_unwind1; |
bds_unwind1; |
5580 |
bds_unwind1; |
bds_unwind1; |
5581 |
bds_unwind1; |
bds_unwind1; |
5591 |
bds_unwind1; |
bds_unwind1; |
5592 |
bds_unwind1; |
bds_unwind1; |
5593 |
bds_unwind1; |
bds_unwind1; |
5594 |
V810= structure_ref((V785),VV[33],3); |
{object V810 = (*(LnkLI314))(STREF(object,(V790),12)); |
|
{object V811 = (*(LnkLI311))(/* INLINE-ARGS */V810); |
|
5595 |
bds_unwind1; |
bds_unwind1; |
5596 |
bds_unwind1; |
bds_unwind1; |
5597 |
VMR54(V811)}} |
VMR54(V810)}} |
5598 |
base[0]=base[0]; |
base[0]=base[0]; |
5599 |
return Cnil; |
return Cnil; |
5600 |
} |
} |
5605 |
{ VMB55 VMS55 VMV55 |
{ VMB55 VMS55 VMV55 |
5606 |
goto TTL; |
goto TTL; |
5607 |
TTL:; |
TTL:; |
5608 |
|
{register object V811; |
5609 |
|
V811= Cnil; |
5610 |
{register object V812; |
{register object V812; |
5611 |
V812= Cnil; |
register object V813; |
5612 |
{register object V813; |
V812= (VV[19]->s.s_dbind); |
5613 |
register object V814; |
V813= CMPcar((V812)); |
5614 |
V813= symbol_value(VV[19]); |
goto T2941; |
5615 |
V814= car((V813)); |
T2941:; |
5616 |
goto T2950; |
if(!(((V812))==Cnil)){ |
5617 |
T2950:; |
goto T2942;} |
5618 |
if(!(endp_prop((V813)))){ |
goto T2937; |
5619 |
goto T2951;} |
goto T2942; |
5620 |
goto T2946; |
T2942:; |
5621 |
goto T2951; |
{register object V814; |
5622 |
T2951:; |
if(!(type_of((V813))==t_cons)){ |
5623 |
|
goto T2949;} |
5624 |
{register object V815; |
{register object V815; |
5625 |
if(!(type_of((V814))==t_cons)){ |
V815= CMPcar((V813)); |
5626 |
goto T2958;} |
V813= CMPcdr((V813)); |
5627 |
{register object V816; |
V814= (V815); |
5628 |
V816= car((V814)); |
goto T2947;} |
5629 |
V814= cdr((V814)); |
goto T2949; |
5630 |
V815= (V816); |
T2949:; |
5631 |
|
V814= Ct; |
5632 |
|
goto T2947; |
5633 |
|
T2947:; |
5634 |
|
if(!(((V811))==((V814)))){ |
5635 |
goto T2956;} |
goto T2956;} |
5636 |
goto T2958; |
base[1]= (VV[32]->s.s_dbind); |
|
T2958:; |
|
|
V815= Ct; |
|
|
goto T2956; |
|
|
T2956:; |
|
|
if(!(((V812))==((V815)))){ |
|
|
goto T2965;} |
|
|
base[1]= symbol_value(VV[32]); |
|
5637 |
base[2]= VV[259]; |
base[2]= VV[259]; |
5638 |
base[3]= (V814); |
base[3]= (V813); |
5639 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
5640 |
Lformat(); |
Lformat(); |
5641 |
vs_top=sup; |
vs_top=sup; |
5642 |
goto T2963; |
goto T2954; |
5643 |
goto T2965; |
goto T2956; |
5644 |
T2965:; |
T2956:; |
5645 |
if(!(((V812))==Cnil)){ |
if(!(((V811))==Cnil)){ |
5646 |
goto T2971;} |
goto T2962;} |
5647 |
goto T2970; |
goto T2961; |
5648 |
goto T2971; |
goto T2962; |
5649 |
T2971:; |
T2962:; |
5650 |
base[1]= symbol_value(VV[32]); |
base[1]= (VV[32]->s.s_dbind); |
5651 |
base[2]= VV[260]; |
base[2]= VV[260]; |
5652 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5653 |
Lformat(); |
Lformat(); |
5654 |
vs_top=sup; |
vs_top=sup; |
5655 |
goto T2970; |
goto T2961; |
5656 |
T2970:; |
T2961:; |
5657 |
V812= (V815); |
V811= (V814); |
5658 |
base[1]= symbol_value(VV[32]); |
base[1]= (VV[32]->s.s_dbind); |
5659 |
base[2]= VV[261]; |
base[2]= VV[261]; |
5660 |
base[3]= (*(LnkLI281))((V812)); |
base[3]= (*(LnkLI281))((V811)); |
5661 |
base[4]= (V814); |
base[4]= (V813); |
5662 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
5663 |
Lformat(); |
Lformat(); |
5664 |
vs_top=sup; |
vs_top=sup; |
5665 |
goto T2963; |
goto T2954; |
5666 |
T2963:; |
T2954:; |
5667 |
if(!(((V812))==(VV[262]))){ |
if(!(((V811))==(VV[262]))){ |
5668 |
goto T2955;} |
goto T2946;} |
5669 |
base[1]= symbol_value(VV[32]); |
base[1]= (VV[32]->s.s_dbind); |
5670 |
base[2]= VV[263]; |
base[2]= VV[263]; |
5671 |
base[3]= (V814); |
base[3]= (V813); |
5672 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
5673 |
Lformat(); |
Lformat(); |
5674 |
vs_top=sup;} |
vs_top=sup;} |
|
goto T2955; |
|
|
T2955:; |
|
|
V813= cdr((V813)); |
|
|
V814= car((V813)); |
|
|
goto T2950;} |
|
5675 |
goto T2946; |
goto T2946; |
5676 |
T2946:; |
T2946:; |
5677 |
if(symbol_value(VV[19])==Cnil){ |
V812= CMPcdr((V812)); |
5678 |
goto T2991;} |
V813= CMPcar((V812)); |
5679 |
base[0]= symbol_value(VV[32]); |
goto T2941;} |
5680 |
|
goto T2937; |
5681 |
|
T2937:; |
5682 |
|
if((VV[19]->s.s_dbind)==Cnil){ |
5683 |
|
goto T2982;} |
5684 |
|
base[0]= (VV[32]->s.s_dbind); |
5685 |
base[1]= VV[264]; |
base[1]= VV[264]; |
5686 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5687 |
Lformat(); |
Lformat(); |
5688 |
vs_top=sup; |
vs_top=sup; |
5689 |
goto T2991; |
goto T2982; |
5690 |
T2991:; |
T2982:; |
5691 |
if((symbol_value(VV[17]))==Cnil){ |
if(((VV[17]->s.s_dbind))==Cnil){ |
5692 |
goto T2995;} |
goto T2986;} |
5693 |
if(eql(symbol_value(VV[142]),small_fixnum(0))){ |
if(eql((VV[142]->s.s_dbind),small_fixnum(0))){ |
5694 |
goto T2995;} |
goto T2986;} |
5695 |
base[0]= symbol_value(VV[32]); |
base[0]= (VV[32]->s.s_dbind); |
5696 |
base[1]= VV[265]; |
base[1]= VV[265]; |
5697 |
base[2]= symbol_value(VV[142]); |
base[2]= (VV[142]->s.s_dbind); |
5698 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
5699 |
Lformat(); |
Lformat(); |
5700 |
vs_top=sup; |
vs_top=sup; |
5701 |
{object V817 = vs_base[0]; |
{object V816 = vs_base[0]; |
5702 |
VMR55(V817)} |
VMR55(V816)} |
5703 |
goto T2995; |
goto T2986; |
5704 |
T2995:; |
T2986:; |
5705 |
{object V818 = Cnil; |
{object V817 = Cnil; |
5706 |
VMR55(V818)}} |
VMR55(V817)}} |
5707 |
base[0]=base[0]; |
base[0]=base[0]; |
5708 |
return Cnil; |
return Cnil; |
5709 |
} |
} |
5713 |
register object *base0; |
register object *base0; |
5714 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
5715 |
register object *sup=base+VM56; VC56 |
register object *sup=base+VM56; VC56 |
5716 |
vs_reserve(VM56); |
vs_check; |
5717 |
{object V819; |
{object V818; |
5718 |
check_arg(1); |
V818=(base[0]); |
|
V819=(base[0]); |
|
5719 |
vs_top=sup; |
vs_top=sup; |
5720 |
goto TTL; |
goto TTL; |
5721 |
TTL:; |
TTL:; |
5722 |
V820= structure_ref((V819),VV[70],4); |
if(eql(STREF(object,(V818),16),VV[73])){ |
5723 |
if(eql(/* INLINE-ARGS */V820,VV[73])){ |
goto T2994;} |
5724 |
goto T3003;} |
goto T2993; |
5725 |
goto T3002; |
goto T2994; |
5726 |
goto T3003; |
T2994:; |
|
T3003:; |
|
5727 |
(VV[154]->s.s_dbind)= Ct; |
(VV[154]->s.s_dbind)= Ct; |
5728 |
goto T3002; |
goto T2993; |
5729 |
T3002:; |
T2993:; |
5730 |
{object V821; |
{object V819; |
5731 |
V821= (*(LnkLI346))((V819)); |
V819= (*(LnkLI349))((V818)); |
5732 |
if(((V821))==Cnil){ |
if(((V819))==Cnil){ |
5733 |
goto T3008;} |
goto T2999;} |
5734 |
{object V822; |
{object V820; |
5735 |
setq(VV[89],number_plus(symbol_value(VV[89]),small_fixnum(1))); |
(VV[89]->s.s_dbind)= number_plus((VV[89]->s.s_dbind),small_fixnum(1)); |
5736 |
V822= symbol_value(VV[89]); |
V820= (VV[89]->s.s_dbind); |
5737 |
(void)(structure_set((V819),VV[70],1,(V821))); |
V821= Ct; |
5738 |
(void)(structure_set((V819),VV[70],4,(V822))); |
STSET(object,(V818),4, (V819)); |
5739 |
|
(void)((V819)); |
5740 |
|
V822= Ct; |
5741 |
|
STSET(object,(V818),16, (V820)); |
5742 |
|
(void)((V820)); |
5743 |
princ_str("\n ",VV[26]); |
princ_str("\n ",VV[26]); |
5744 |
if((base0[1])!=Cnil){ |
if((base0[1])!=Cnil){ |
5745 |
goto T3015;} |
goto T3006;} |
5746 |
princ_char(123,VV[26]); |
princ_char(123,VV[26]); |
5747 |
base0[1]= Ct; |
base0[1]= Ct; |
5748 |
goto T3015; |
goto T3006; |
5749 |
T3015:; |
T3006:; |
5750 |
base[1]= (V819); |
base[1]= (*(LnkLI350))((V818)); |
5751 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
|
(void) (*Lnk347)(); |
|
5752 |
return;} |
return;} |
5753 |
goto T3008; |
goto T2999; |
5754 |
T3008:; |
T2999:; |
5755 |
base[1]= Cnil; |
base[1]= Cnil; |
5756 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5757 |
return;} |
return;} |
5758 |
} |
} |
5759 |
} |
} |
5760 |
static void LnkT347(){ call_or_link(VV[347],(void **)(void *)&Lnk347);} /* WT-VAR-DECL */ |
static object LnkTLI350(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[350],(void **)(void *)&LnkLI350,1,first,ap);va_end(ap);return V1;} /* WT-VAR-DECL */ |
5761 |
static object LnkTLI346(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[346],(void **)(void *)&LnkLI346,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */ |
static object LnkTLI349(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[349],(void **)(void *)&LnkLI349,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */ |
5762 |
static object LnkTLI251(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[251],(void **)(void *)&LnkLI251,5,first,ap);va_end(ap);return V1;} /* T3LOCAL-DCFUN */ |
static object LnkTLI251(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[251],(void **)(void *)&LnkLI251,5,first,ap);va_end(ap);return V1;} /* T3LOCAL-DCFUN */ |
5763 |
static object LnkTLI341(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[341],(void **)(void *)&LnkLI341,1,first,ap);va_end(ap);return V1;} /* PARSE-CVSPECS */ |
static object LnkTLI344(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[344],(void **)(void *)&LnkLI344,1,first,ap);va_end(ap);return V1;} /* PARSE-CVSPECS */ |
5764 |
static object LnkTLI340(){return call_proc0(VV[340],(void **)(void *)&LnkLI340);} /* WFS-ERROR */ |
static object LnkTLI343(){return call_proc0(VV[343],(void **)(void *)&LnkLI343);} /* WFS-ERROR */ |
5765 |
static void LnkT339(){ call_or_link(VV[339],(void **)(void *)&Lnk339);} /* C2DM */ |
static void LnkT342(){ call_or_link(VV[342],(void **)(void *)&Lnk342);} /* C2DM */ |
5766 |
static object LnkTLI338(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[338],(void **)(void *)&LnkLI338,3,first,ap);va_end(ap);return V1;} /* C1DM */ |
static object LnkTLI341(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[341],(void **)(void *)&LnkLI341,3,first,ap);va_end(ap);return V1;} /* C1DM */ |
5767 |
static object LnkTLI337(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[337],(void **)(void *)&LnkLI337,first,ap);va_end(ap);return V1;} /* REMOVE-DUPLICATES */ |
static object LnkTLI340(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[340],(void **)(void *)&LnkLI340,first,ap);va_end(ap);return V1;} /* REMOVE-DUPLICATES */ |
5768 |
static object LnkTLI336(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[336],(void **)(void *)&LnkLI336,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS1 */ |
static object LnkTLI339(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[339],(void **)(void *)&LnkLI339,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS1 */ |
5769 |
static object LnkTLI335(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[335],(void **)(void *)&LnkLI335,first,ap);va_end(ap);return V1;} /* WARN */ |
static object LnkTLI338(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[338],(void **)(void *)&LnkLI338,first,ap);va_end(ap);return V1;} /* WARN */ |
5770 |
static object LnkTLI334(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[334],(void **)(void *)&LnkLI334,1,first,ap);va_end(ap);return V1;} /* REGISTER */ |
static object LnkTLI337(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[337],(void **)(void *)&LnkLI337,1,first,ap);va_end(ap);return V1;} /* REGISTER */ |
5771 |
static object LnkTLI333(){return call_proc0(VV[333],(void **)(void *)&LnkLI333);} /* WT-CVARS */ |
static object LnkTLI336(){return call_proc0(VV[336],(void **)(void *)&LnkLI336);} /* WT-CVARS */ |
5772 |
static object LnkTLI332(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[332],(void **)(void *)&LnkLI332,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */ |
static object LnkTLI335(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[335],(void **)(void *)&LnkLI335,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */ |
5773 |
static object LnkTLI331(){return call_proc0(VV[331],(void **)(void *)&LnkLI331);} /* CLOSE-INLINE-BLOCKS */ |
static object LnkTLI334(){return call_proc0(VV[334],(void **)(void *)&LnkLI334);} /* CLOSE-INLINE-BLOCKS */ |
5774 |
static object LnkTLI330(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[330],(void **)(void *)&LnkLI330,1,first,ap);va_end(ap);return V1;} /* WT-VS */ |
static object LnkTLI333(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[333],(void **)(void *)&LnkLI333,1,first,ap);va_end(ap);return V1;} /* WT-VS */ |
5775 |
static object LnkTLI329(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[329],(void **)(void *)&LnkLI329,1,first,ap);va_end(ap);return V1;} /* C2BIND */ |
static object LnkTLI332(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[332],(void **)(void *)&LnkLI332,1,first,ap);va_end(ap);return V1;} /* C2BIND */ |
5776 |
static object LnkTLI328(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[328],(void **)(void *)&LnkLI328,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */ |
static object LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[331],(void **)(void *)&LnkLI331,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */ |
5777 |
static object LnkTLI327(){return call_proc0(VV[327],(void **)(void *)&LnkLI327);} /* BABOON */ |
static object LnkTLI330(){return call_proc0(VV[330],(void **)(void *)&LnkLI330);} /* BABOON */ |
5778 |
static object LnkTLI326(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[326],(void **)(void *)&LnkLI326,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */ |
static object LnkTLI329(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[329],(void **)(void *)&LnkLI329,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */ |
5779 |
static void LnkT325(){ call_or_link(VV[325],(void **)(void *)&Lnk325);} /* INC-INLINE-BLOCKS */ |
static object LnkTLI328(){return call_proc0(VV[328],(void **)(void *)&LnkLI328);} /* INC-INLINE-BLOCKS */ |
5780 |
static object LnkTLI324(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[324],(void **)(void *)&LnkLI324,first,ap);va_end(ap);return V1;} /* CS-PUSH */ |
static object LnkTLI327(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[327],(void **)(void *)&LnkLI327,first,ap);va_end(ap);return V1;} /* CS-PUSH */ |
5781 |
static object LnkTLI323(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[323],(void **)(void *)&LnkLI323,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */ |
static object LnkTLI326(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[326],(void **)(void *)&LnkLI326,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */ |
5782 |
static object LnkTLI322(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[322],(void **)(void *)&LnkLI322,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */ |
static object LnkTLI325(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[325],(void **)(void *)&LnkLI325,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */ |
5783 |
static object LnkTLI321(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[321],(void **)(void *)&LnkLI321,1,first,ap);va_end(ap);return V1;} /* SET-UP-VAR-CVS */ |
static object LnkTLI324(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[324],(void **)(void *)&LnkLI324,1,first,ap);va_end(ap);return V1;} /* SET-UP-VAR-CVS */ |
5784 |
static object LnkTLI320(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[320],(void **)(void *)&LnkLI320,first,ap);va_end(ap);return V1;} /* CONCATENATE */ |
static object LnkTLI323(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[323],(void **)(void *)&LnkLI323,first,ap);va_end(ap);return V1;} /* CONCATENATE */ |
5785 |
static object LnkTLI319(){return call_proc0(VV[319],(void **)(void *)&LnkLI319);} /* CVS-PUSH */ |
static object LnkTLI322(){return call_proc0(VV[322],(void **)(void *)&LnkLI322);} /* CVS-PUSH */ |
5786 |
static object LnkTLI318(){return call_proc0(VV[318],(void **)(void *)&LnkLI318);} /* VS-PUSH */ |
static object LnkTLI321(){return call_proc0(VV[321],(void **)(void *)&LnkLI321);} /* VS-PUSH */ |
5787 |
static object LnkTLI317(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[317],(void **)(void *)&LnkLI317,2,first,ap);va_end(ap);return V1;} /* WT-V*-MACROS */ |
static object LnkTLI320(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[320],(void **)(void *)&LnkLI320,2,first,ap);va_end(ap);return V1;} /* WT-V*-MACROS */ |
5788 |
static void LnkT316(){ call_or_link(VV[316],(void **)(void *)&Lnk316);} /* C2EXPR */ |
static void LnkT319(){ call_or_link(VV[319],(void **)(void *)&Lnk319);} /* C2EXPR */ |
5789 |
static object LnkTLI315(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[315],(void **)(void *)&LnkLI315,3,first,ap);va_end(ap);return V1;} /* ASSIGN-DOWN-VARS */ |
static object LnkTLI318(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[318],(void **)(void *)&LnkLI318,3,first,ap);va_end(ap);return V1;} /* ASSIGN-DOWN-VARS */ |
5790 |
static object LnkTLI314(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[314],(void **)(void *)&LnkLI314,2,first,ap);va_end(ap);return V1;} /* WT-REQUIREDS */ |
static object LnkTLI317(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[317],(void **)(void *)&LnkLI317,2,first,ap);va_end(ap);return V1;} /* WT-REQUIREDS */ |
5791 |
static object LnkTLI313(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[313],(void **)(void *)&LnkLI313,first,ap);va_end(ap);return V1;} /* WT-COMMENT */ |
static object LnkTLI316(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[316],(void **)(void *)&LnkLI316,first,ap);va_end(ap);return V1;} /* WT-COMMENT */ |
5792 |
static object LnkTLI312(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[312],(void **)(void *)&LnkLI312,2,first,ap);va_end(ap);return V1;} /* ADD-DEBUG-INFO */ |
static object LnkTLI315(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[315],(void **)(void *)&LnkLI315,2,first,ap);va_end(ap);return V1;} /* ADD-DEBUG-INFO */ |
5793 |
static object LnkTLI311(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[311],(void **)(void *)&LnkLI311,1,first,ap);va_end(ap);return V1;} /* WT-DOWNWARD-CLOSURE-MACRO */ |
static object LnkTLI314(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[314],(void **)(void *)&LnkLI314,1,first,ap);va_end(ap);return V1;} /* WT-DOWNWARD-CLOSURE-MACRO */ |
5794 |
static void LnkT310(){ call_or_link(VV[310],(void **)(void *)&Lnk310);} /* T3DEFUN-AUX */ |
static void LnkT313(){ call_or_link(VV[313],(void **)(void *)&Lnk313);} /* T3DEFUN-AUX */ |
5795 |
static object LnkTLI309(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[309],(void **)(void *)&LnkLI309,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS */ |
static object LnkTLI312(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[312],(void **)(void *)&LnkLI312,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS */ |
5796 |
static void LnkT308(){ call_or_link(VV[308],(void **)(void *)&Lnk308);} /* FIXNUMP */ |
static void LnkT311(){ call_or_link(VV[311],(void **)(void *)&Lnk311);} /* FIXNUMP */ |
5797 |
static object LnkTLI307(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[307],(void **)(void *)&LnkLI307,1,first,ap);va_end(ap);return V1;} /* VOLATILE */ |
static object LnkTLI310(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[310],(void **)(void *)&LnkLI310,1,first,ap);va_end(ap);return V1;} /* VOLATILE */ |
5798 |
static object LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)(void *)&LnkLI306,1,first,ap);va_end(ap);return V1;} /* MAXARGS */ |
static object LnkTLI309(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[309],(void **)(void *)&LnkLI309,1,first,ap);va_end(ap);return V1;} /* MAXARGS */ |
5799 |
static object LnkTLI305(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[305],(void **)(void *)&LnkLI305,1,first,ap);va_end(ap);return V1;} /* VARARG-P */ |
static object LnkTLI308(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[308],(void **)(void *)&LnkLI308,1,first,ap);va_end(ap);return V1;} /* VARARG-P */ |
5800 |
static object LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[304],(void **)(void *)&LnkLI304,3,first,ap);va_end(ap);return V1;} /* WT-IF-PROCLAIMED */ |
static object LnkTLI307(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[307],(void **)(void *)&LnkLI307,3,first,ap);va_end(ap);return V1;} /* WT-IF-PROCLAIMED */ |
5801 |
static object LnkTLI303(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[303],(void **)(void *)&LnkLI303,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */ |
static object LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)(void *)&LnkLI306,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */ |
5802 |
static object LnkTLI302(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[302],(void **)(void *)&LnkLI302,2,first,ap);va_end(ap);return V1;} /* ADD-ADDRESS */ |
static object LnkTLI305(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[305],(void **)(void *)&LnkLI305,2,first,ap);va_end(ap);return V1;} /* ADD-ADDRESS */ |
5803 |
static object LnkTLI301(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[301],(void **)(void *)&LnkLI301,first,ap);va_end(ap);return V1;} /* ADD-INIT */ |
static object LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[304],(void **)(void *)&LnkLI304,first,ap);va_end(ap);return V1;} /* ADD-INIT */ |
5804 |
static object LnkTLI300(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[300],(void **)(void *)&LnkLI300,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */ |
static object LnkTLI303(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[303],(void **)(void *)&LnkLI303,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */ |
5805 |
static object LnkTLI299(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[299],(void **)(void *)&LnkLI299,2,first,ap);va_end(ap);return V1;} /* SHIFT<< */ |
static object LnkTLI302(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[302],(void **)(void *)&LnkLI302,2,first,ap);va_end(ap);return V1;} /* SHIFT<< */ |
5806 |
static object LnkTLI298(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[298],(void **)(void *)&LnkLI298,257,first,ap);va_end(ap);return V1;} /* F-TYPE */ |
static object LnkTLI301(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[301],(void **)(void *)&LnkLI301,257,first,ap);va_end(ap);return V1;} /* F-TYPE */ |
5807 |
static void LnkT297(){ call_or_link(VV[297],(void **)(void *)&Lnk297);} /* SUBTYPEP */ |
static void LnkT300(){ call_or_link(VV[300],(void **)(void *)&Lnk300);} /* SUBTYPEP */ |
5808 |
static void LnkT296(){ call_or_link(VV[296],(void **)(void *)&Lnk296);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT299(){ call_or_link(VV[299],(void **)(void *)&Lnk299);} /* STRUCTURE-SUBTYPE-P */ |
5809 |
static object LnkTLI295(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[295],(void **)(void *)&LnkLI295,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */ |
static object LnkTLI298(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[298],(void **)(void *)&LnkLI298,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */ |
5810 |
static object LnkTLI294(){return call_proc0(VV[294],(void **)(void *)&LnkLI294);} /* ADD-LOAD-TIME-SHARP-COMMA */ |
static object LnkTLI297(){return call_proc0(VV[297],(void **)(void *)&LnkLI297);} /* ADD-LOAD-TIME-SHARP-COMMA */ |
5811 |
static object LnkTLI293(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[293],(void **)(void *)&LnkLI293,2,first,ap);va_end(ap);return V1;} /* MAKE-INLINE-STRING */ |
static object LnkTLI296(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[296],(void **)(void *)&LnkLI296,2,first,ap);va_end(ap);return V1;} /* MAKE-INLINE-STRING */ |
5812 |
static object LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)(void *)&LnkLI292,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */ |
static object LnkTLI295(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[295],(void **)(void *)&LnkLI295,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */ |
5813 |
static object LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[291],(void **)(void *)&LnkLI291,2,first,ap);va_end(ap);return V1;} /* CMPFIX-ARGS */ |
static object LnkTLI294(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[294],(void **)(void *)&LnkLI294,2,first,ap);va_end(ap);return V1;} /* CMPFIX-ARGS */ |
5814 |
static object LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[290],(void **)(void *)&LnkLI290,1,first,ap);va_end(ap);return V1;} /* PROCLAIM */ |
static object LnkTLI293(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[293],(void **)(void *)&LnkLI293,1,first,ap);va_end(ap);return V1;} /* PROCLAIM */ |
5815 |
static object LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[289],(void **)(void *)&LnkLI289,1,first,ap);va_end(ap);return V1;} /* CHECK-DOWNWARD */ |
static object LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)(void *)&LnkLI292,1,first,ap);va_end(ap);return V1;} /* CHECK-DOWNWARD */ |
5816 |
static object LnkTLI288(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[288],(void **)(void *)&LnkLI288,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */ |
static object LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[291],(void **)(void *)&LnkLI291,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */ |
5817 |
static object LnkTLI287(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[287],(void **)(void *)&LnkLI287,1,first,ap);va_end(ap);return V1;} /* T1PROGN */ |
static object LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[290],(void **)(void *)&LnkLI290,1,first,ap);va_end(ap);return V1;} /* T1PROGN */ |
5818 |
static object LnkTLI284(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[284],(void **)(void *)&LnkLI284,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */ |
static object LnkTLI284(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[284],(void **)(void *)&LnkLI284,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */ |
5819 |
static void LnkT283(){ call_or_link(VV[283],(void **)(void *)&Lnk283);} /* CMP-EVAL */ |
static void LnkT283(){ call_or_link(VV[283],(void **)(void *)&Lnk283);} /* CMP-EVAL */ |
5820 |
static void LnkT282(){ call_or_link(VV[282],(void **)(void *)&Lnk282);} /* DECLARATION-TYPE */ |
static object LnkTLI282(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[282],(void **)(void *)&LnkLI282,1,first,ap);va_end(ap);return V1;} /* DECLARATION-TYPE */ |
5821 |
static object LnkTLI281(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[281],(void **)(void *)&LnkLI281,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */ |
static object LnkTLI281(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[281],(void **)(void *)&LnkLI281,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */ |
5822 |
static void LnkT280(){ call_or_link(VV[280],(void **)(void *)&Lnk280);} /* WT-DATA-FILE */ |
static void LnkT280(){ call_or_link(VV[280],(void **)(void *)&Lnk280);} /* WT-DATA-FILE */ |
5823 |
static object LnkTLI279(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[279],(void **)(void *)&LnkLI279,1,first,ap);va_end(ap);return V1;} /* PUSH-DATA-INCF */ |
static object LnkTLI279(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[279],(void **)(void *)&LnkLI279,1,first,ap);va_end(ap);return V1;} /* PUSH-DATA-INCF */ |