11 |
goto TTL; |
goto TTL; |
12 |
TTL:; |
TTL:; |
13 |
V3= (*(LnkLI123))((V3)); |
V3= (*(LnkLI123))((V3)); |
14 |
(void)((*(LnkLI124))((V4),cadr((V3)))); |
(void)((*(LnkLI124))((V4),CMPcadr((V3)))); |
15 |
{object V5 = (V3); |
{object V5 = (V3); |
16 |
VMR1(V5)} |
VMR1(V5)} |
17 |
return Cnil; |
return Cnil; |
95 |
if(!(type_of((V7))==t_cons)){ |
if(!(type_of((V7))==t_cons)){ |
96 |
goto T28;} |
goto T28;} |
97 |
{register object V19; |
{register object V19; |
98 |
V19= car((V7)); |
V19= CMPcar((V7)); |
99 |
if(!(type_of((V19))==t_symbol)){ |
if(!(type_of((V19))==t_symbol)){ |
100 |
goto T32;} |
goto T32;} |
101 |
base[0]= (V19); |
base[0]= (V19); |
102 |
base[1]= cdr((V7)); |
base[1]= CMPcdr((V7)); |
103 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
104 |
(void) (*Lnk133)(); |
(void) (*Lnk133)(); |
105 |
vs_top=sup; |
vs_top=sup; |
110 |
T32:; |
T32:; |
111 |
if(!(type_of((V19))==t_cons)){ |
if(!(type_of((V19))==t_cons)){ |
112 |
goto T37;} |
goto T37;} |
113 |
if(!((car((V19)))==(VV[4]))){ |
if(!((CMPcar((V19)))==(VV[4]))){ |
114 |
goto T37;} |
goto T37;} |
115 |
V20= (*(LnkLI134))(cdr((V19)),cdr((V7))); |
V20= (*(LnkLI134))(CMPcdr((V19)),CMPcdr((V7))); |
116 |
frs_pop(); |
frs_pop(); |
117 |
V7= V20; |
V7= V20; |
118 |
goto T5; |
goto T5; |
120 |
T37:; |
T37:; |
121 |
if(!(type_of((V19))==t_cons)){ |
if(!(type_of((V19))==t_cons)){ |
122 |
goto T42;} |
goto T42;} |
123 |
if(!((car((V19)))==(VV[5]))){ |
if(!((CMPcar((V19)))==(VV[5]))){ |
124 |
goto T42;} |
goto T42;} |
125 |
V21= (VFUN_NARGS=1,(*(LnkLI135))(VV[6])); |
V21= (VFUN_NARGS=1,(*(LnkLI135))(VV[6])); |
126 |
frs_pop(); |
frs_pop(); |
193 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
194 |
goto TTL; |
goto TTL; |
195 |
TTL:; |
TTL:; |
196 |
{object V34 = symbol_value(VV[11]); |
{object V34 = (VV[11]->s.s_dbind); |
197 |
VMR5(V34)} |
VMR5(V34)} |
198 |
return Cnil; |
return Cnil; |
199 |
} |
} |
204 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
205 |
goto TTL; |
goto TTL; |
206 |
TTL:; |
TTL:; |
207 |
{object V35 = symbol_value(VV[12]); |
{object V35 = (VV[12]->s.s_dbind); |
208 |
VMR6(V35)} |
VMR6(V35)} |
209 |
return Cnil; |
return Cnil; |
210 |
} |
} |
211 |
/* function definition for FLAGS-POS */ |
/* local entry for function FLAGS-POS */ |
212 |
|
|
213 |
static void L7() |
static object LI7(V37) |
214 |
{register object *base=vs_base; |
|
215 |
register object *sup=base+VM7; VC7 |
register object V37; |
216 |
vs_reserve(VM7); |
{ VMB7 VMS7 VMV7 |
|
{register object V36; |
|
|
check_arg(1); |
|
|
V36=(base[0]); |
|
|
vs_top=sup; |
|
217 |
goto TTL; |
goto TTL; |
218 |
TTL:; |
TTL:; |
219 |
{register long V37; |
{register long V38; |
220 |
V37= 0; |
V38= 0; |
221 |
{register object V38; |
{register object V39; |
222 |
register object V39; |
register object V40; |
223 |
V38= VV[13]; |
V39= VV[13]; |
224 |
V39= car((V38)); |
V40= CMPcar((V39)); |
225 |
goto T58; |
goto T58; |
226 |
T58:; |
T58:; |
227 |
if(!(endp_prop((V38)))){ |
if(!(((V39))==Cnil)){ |
228 |
goto T59;} |
goto T59;} |
229 |
goto T54; |
goto T54; |
230 |
goto T59; |
goto T59; |
231 |
T59:; |
T59:; |
232 |
{register object x= (V36),V40= (V39); |
{register object x= (V37),V41= (V40); |
233 |
while(!endp(V40)) |
while(V41!=Cnil) |
234 |
if(x==(V40->c.c_car)){ |
if(x==(V41->c.c_car)){ |
235 |
goto T65; |
goto T65; |
236 |
}else V40=V40->c.c_cdr; |
}else V41=V41->c.c_cdr; |
237 |
goto T63;} |
goto T63;} |
238 |
goto T65; |
goto T65; |
239 |
T65:; |
T65:; |
240 |
base[2]= make_fixnum(V37); |
{object V42 = CMPmake_fixnum(V38); |
241 |
vs_top=(vs_base=base+2)+1; |
VMR7(V42)} |
|
return; |
|
242 |
goto T63; |
goto T63; |
243 |
T63:; |
T63:; |
244 |
V37= (long)(V37)+(1); |
V38= (long)(V38)+(1); |
245 |
V38= cdr((V38)); |
V39= CMPcdr((V39)); |
246 |
V39= car((V38)); |
V40= CMPcar((V39)); |
247 |
goto T58;} |
goto T58;} |
248 |
goto T54; |
goto T54; |
249 |
T54:; |
T54:; |
250 |
base[1]= VV[14]; |
base[0]= VV[14]; |
251 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+0)+1; |
252 |
Lerror(); |
Lerror(); |
253 |
return;} |
vs_top=sup; |
254 |
} |
{object V43 = vs_base[0]; |
255 |
|
VMR7(V43)}} |
256 |
|
base[0]=base[0]; |
257 |
|
return Cnil; |
258 |
} |
} |
259 |
/* macro definition for FLAG-P */ |
/* macro definition for FLAG-P */ |
260 |
|
|
261 |
static void L8() |
static void L8() |
262 |
{register object *base=vs_base; |
{register object *base=vs_base; |
263 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
264 |
vs_reserve(VM8); |
vs_check; |
|
check_arg(2); |
|
265 |
vs_top=sup; |
vs_top=sup; |
266 |
{object V41=base[0]->c.c_cdr; |
{object V44=base[0]->c.c_cdr; |
267 |
if(endp(V41))invalid_macro_call(); |
base[2]= (V44->c.c_car); |
268 |
base[2]= (V41->c.c_car); |
V44=V44->c.c_cdr; |
269 |
V41=V41->c.c_cdr; |
base[3]= (V44->c.c_car);} |
270 |
if(endp(V41))invalid_macro_call(); |
V45= (*(LnkLI137))(base[3]); |
271 |
base[3]= (V41->c.c_car); |
base[4]= list(3,VV[15],/* INLINE-ARGS */V45,base[2]); |
|
V41=V41->c.c_cdr; |
|
|
if(!endp(V41))invalid_macro_call();} |
|
|
base[4]= base[3]; |
|
|
vs_top=(vs_base=base+4)+1; |
|
|
(void) (*Lnk137)(); |
|
|
vs_top=sup; |
|
|
V42= vs_base[0]; |
|
|
base[4]= list(3,VV[15],V42,base[2]); |
|
272 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
273 |
return; |
return; |
274 |
} |
} |
275 |
/* function definition for FIX-OPT */ |
/* local entry for function FIX-OPT */ |
276 |
|
|
277 |
static void L9() |
static object LI9(V47) |
278 |
{register object *base=vs_base; |
|
279 |
register object *sup=base+VM9; VC9 |
register object V47; |
280 |
vs_reserve(VM9); |
{ VMB9 VMS9 VMV9 |
|
{register object V43; |
|
|
check_arg(1); |
|
|
V43=(base[0]); |
|
|
vs_top=sup; |
|
281 |
goto TTL; |
goto TTL; |
282 |
TTL:; |
TTL:; |
283 |
{register object V44; |
{register object V48; |
284 |
V44= cddr((V43)); |
V48= CMPcddr((V47)); |
285 |
if(type_of(car((V44)))==t_fixnum){ |
if(type_of(CMPcar((V48)))==t_fixnum){ |
286 |
goto T77;} |
goto T75;} |
287 |
if((symbol_value(VV[16]))==Cnil){ |
if(((VV[16]->s.s_dbind))==Cnil){ |
288 |
goto T80;} |
goto T78;} |
289 |
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[17],(V43)))); |
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[17],(V47)))); |
290 |
goto T80; |
goto T78; |
291 |
T80:; |
T78:; |
292 |
{object V46; |
{object V50; |
293 |
if((car((V44)))==Cnil){ |
if((CMPcar((V48)))==Cnil){ |
294 |
goto T87;} |
goto T85;} |
295 |
base[2]= small_fixnum(2); |
base[1]= small_fixnum(2); |
296 |
goto T85; |
goto T83; |
|
goto T87; |
|
|
T87:; |
|
|
base[2]= small_fixnum(0); |
|
297 |
goto T85; |
goto T85; |
298 |
T85:; |
T85:; |
299 |
if((cadr((V44)))==Cnil){ |
base[1]= small_fixnum(0); |
300 |
goto T91;} |
goto T83; |
301 |
base[3]= small_fixnum(1); |
T83:; |
302 |
goto T89; |
if((CMPcadr((V48)))==Cnil){ |
303 |
goto T91; |
goto T89;} |
304 |
T91:; |
base[2]= small_fixnum(1); |
305 |
base[3]= small_fixnum(0); |
goto T87; |
306 |
goto T89; |
goto T89; |
307 |
T89:; |
T89:; |
308 |
vs_top=(vs_base=base+2)+2; |
base[2]= small_fixnum(0); |
309 |
|
goto T87; |
310 |
|
T87:; |
311 |
|
vs_top=(vs_base=base+1)+2; |
312 |
Llogior(); |
Llogior(); |
313 |
vs_top=sup; |
vs_top=sup; |
314 |
V47= vs_base[0]; |
V51= vs_base[0]; |
315 |
V46= make_cons(V47,cddr((V44))); |
V50= make_cons(V51,CMPcddr((V48))); |
316 |
if(type_of(cdr(V43))!=t_cons)FEwrong_type_argument(Scons,cdr(V43)); |
(CMPcdr(V47))->c.c_cdr = (V50); |
317 |
(cdr(V43))->c.c_cdr = (V46); |
(void)(CMPcdr(V47));} |
318 |
(void)(cdr(V43));} |
goto T75; |
319 |
goto T77; |
T75:; |
320 |
T77:; |
{object V52 = (V47); |
321 |
base[1]= (V43); |
VMR9(V52)}} |
322 |
vs_top=(vs_base=base+1)+1; |
base[0]=base[0]; |
323 |
return;} |
return Cnil; |
|
} |
|
324 |
} |
} |
325 |
/* function definition for RESULT-TYPE-FROM-ARGS */ |
/* local entry for function RESULT-TYPE-FROM-ARGS */ |
326 |
|
|
327 |
static void L10() |
static object LI10(V55,V56) |
328 |
{register object *base=vs_base; |
|
329 |
register object *sup=base+VM10; VC10 |
object V55;register object V56; |
330 |
vs_reserve(VM10); |
{ VMB10 VMS10 VMV10 |
|
{object V48; |
|
|
register object V49; |
|
|
check_arg(2); |
|
|
V48=(base[0]); |
|
|
V49=(base[1]); |
|
|
vs_top=sup; |
|
331 |
goto TTL; |
goto TTL; |
332 |
TTL:; |
TTL:; |
333 |
{object V50; |
{object V57; |
334 |
V50= Cnil; |
V57= Cnil; |
335 |
V50= get((V48),VV[18],Cnil); |
{object V58 =((V55))->s.s_plist; |
336 |
if(((V50))==Cnil){ |
object ind= VV[18]; |
337 |
goto T96;} |
while(V58!=Cnil){ |
338 |
if(((V50))==(VV[19])){ |
if(V58->c.c_car==ind){ |
339 |
goto T96;} |
V57= (V58->c.c_cdr->c.c_car); |
340 |
if(type_of((V50))==t_cons){ |
goto T97; |
341 |
goto T96;} |
}else V58=V58->c.c_cdr->c.c_cdr;} |
342 |
{register object V51; |
V57= Cnil;} |
343 |
object V52; |
goto T97; |
344 |
V51= VV[20]; |
T97:; |
345 |
V52= car((V51)); |
if(((V57))==Cnil){ |
346 |
goto T106; |
goto T94;} |
347 |
T106:; |
if(((V57))==(VV[19])){ |
348 |
if(!(endp_prop((V51)))){ |
goto T94;} |
349 |
goto T107;} |
if(type_of((V57))==t_cons){ |
350 |
base[3]= Cnil; |
goto T94;} |
351 |
vs_top=(vs_base=base+3)+1; |
{register object V59; |
352 |
return; |
object V60; |
353 |
goto T107; |
V59= VV[20]; |
354 |
T107:; |
V60= CMPcar((V59)); |
355 |
{register object V53; |
goto T104; |
356 |
register object V54; |
T104:; |
357 |
V53= get((V48),(V52),Cnil); |
if(!(((V59))==Cnil)){ |
358 |
V54= car((V53)); |
goto T105;} |
359 |
goto T115; |
{object V61 = Cnil; |
360 |
T115:; |
VMR10(V61)} |
361 |
if(!(endp_prop((V53)))){ |
goto T105; |
362 |
goto T116;} |
T105:; |
363 |
goto T111; |
{register object V62; |
364 |
goto T116; |
register object V63; |
365 |
T116:; |
{object V64 =((V55))->s.s_plist; |
366 |
base[5]= (V54); |
object ind= (V60); |
367 |
vs_top=(vs_base=base+5)+1; |
while(V64!=Cnil){ |
368 |
(void) (*Lnk139)(); |
if(V64->c.c_car==ind){ |
369 |
vs_top=sup; |
V62= (V64->c.c_cdr->c.c_car); |
370 |
base[5]= small_fixnum(3); |
goto T110; |
371 |
base[6]= caddr((V54)); |
}else V64=V64->c.c_cdr->c.c_cdr;} |
372 |
vs_top=(vs_base=base+5)+2; |
V62= Cnil;} |
373 |
|
goto T110; |
374 |
|
T110:; |
375 |
|
V63= CMPcar((V62)); |
376 |
|
goto T113; |
377 |
|
T113:; |
378 |
|
if(!(((V62))==Cnil)){ |
379 |
|
goto T114;} |
380 |
|
goto T109; |
381 |
|
goto T114; |
382 |
|
T114:; |
383 |
|
(void)((*(LnkLI139))((V63))); |
384 |
|
base[3]= small_fixnum(3); |
385 |
|
base[4]= CMPcaddr((V63)); |
386 |
|
vs_top=(vs_base=base+3)+2; |
387 |
Llogbitp(); |
Llogbitp(); |
388 |
vs_top=sup; |
vs_top=sup; |
389 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
390 |
goto T122;} |
goto T119;} |
391 |
if(!(((long)length((V49)))==((long)length(car((V54)))))){ |
if(!(((long)length((V56)))==((long)length(CMPcar((V63)))))){ |
392 |
goto T122;} |
goto T119;} |
393 |
{register object V55; |
{register object V65; |
394 |
register object V56; |
register object V66; |
395 |
V56= car((V54)); |
V66= CMPcar((V63)); |
396 |
V55= (V49); |
V65= (V56); |
|
goto T133; |
|
|
T133:; |
|
|
if(((V55))!=Cnil){ |
|
|
goto T134;} |
|
|
goto T130; |
|
|
goto T134; |
|
|
T134:; |
|
|
if((car((V55)))==(car((V56)))){ |
|
|
goto T138;} |
|
|
if(((*(LnkLI140))(car((V56)),car((V55))))!=Cnil){ |
|
|
goto T138;} |
|
|
goto T122; |
|
|
goto T138; |
|
|
T138:; |
|
|
V55= cdr((V55)); |
|
|
V56= cdr((V56)); |
|
|
goto T133;} |
|
397 |
goto T130; |
goto T130; |
398 |
T130:; |
T130:; |
399 |
base[5]= cadr((V54)); |
if(((V65))!=Cnil){ |
400 |
vs_top=(vs_base=base+5)+1; |
goto T131;} |
401 |
return; |
goto T127; |
402 |
goto T122; |
goto T131; |
403 |
T122:; |
T131:; |
404 |
V53= cdr((V53)); |
if((CMPcar((V65)))==(CMPcar((V66)))){ |
405 |
V54= car((V53)); |
goto T135;} |
406 |
goto T115;} |
if(((*(LnkLI140))(CMPcar((V66)),CMPcar((V65))))!=Cnil){ |
407 |
goto T111; |
goto T135;} |
408 |
T111:; |
goto T119; |
409 |
V51= cdr((V51)); |
goto T135; |
410 |
V52= car((V51)); |
T135:; |
411 |
goto T106;} |
V65= CMPcdr((V65)); |
412 |
goto T96; |
V66= CMPcdr((V66)); |
413 |
T96:; |
goto T130;} |
414 |
base[2]= Cnil; |
goto T127; |
415 |
vs_top=(vs_base=base+2)+1; |
T127:; |
416 |
return;} |
{object V67 = CMPcadr((V63)); |
417 |
} |
VMR10(V67)} |
418 |
|
goto T119; |
419 |
|
T119:; |
420 |
|
V62= CMPcdr((V62)); |
421 |
|
V63= CMPcar((V62)); |
422 |
|
goto T113;} |
423 |
|
goto T109; |
424 |
|
T109:; |
425 |
|
V59= CMPcdr((V59)); |
426 |
|
V60= CMPcar((V59)); |
427 |
|
goto T104;} |
428 |
|
goto T94; |
429 |
|
T94:; |
430 |
|
{object V68 = Cnil; |
431 |
|
VMR10(V68)}} |
432 |
|
base[0]=base[0]; |
433 |
|
return Cnil; |
434 |
} |
} |
435 |
/* macro definition for FLAGS */ |
/* macro definition for FLAGS */ |
436 |
|
|
437 |
static void L11() |
static void L11() |
438 |
{register object *base=vs_base; |
{register object *base=vs_base; |
439 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
440 |
vs_reserve(VM11); |
vs_check; |
|
check_arg(2); |
|
441 |
vs_top=sup; |
vs_top=sup; |
442 |
{object V57=base[0]->c.c_cdr; |
{object V69=base[0]->c.c_cdr; |
443 |
base[2]= V57; |
base[2]= V69; |
444 |
base[3]= small_fixnum(0);} |
base[3]= small_fixnum(0);} |
445 |
{register object V58; |
{register object V70; |
446 |
register object V59; |
register object V71; |
447 |
V58= base[2]; |
V70= base[2]; |
448 |
V59= car((V58)); |
V71= CMPcar((V70)); |
449 |
goto T162; |
goto T159; |
450 |
T162:; |
T159:; |
451 |
if(!(endp_prop((V58)))){ |
if(!(((V70))==Cnil)){ |
452 |
goto T163;} |
goto T160;} |
453 |
goto T158; |
goto T155; |
454 |
goto T163; |
goto T160; |
455 |
T163:; |
T160:; |
456 |
base[5]= base[3]; |
base[5]= base[3]; |
457 |
base[7]= small_fixnum(1); |
base[7]= small_fixnum(1); |
458 |
base[9]= (V59); |
base[8]= (*(LnkLI137))((V71)); |
|
vs_top=(vs_base=base+9)+1; |
|
|
(void) (*Lnk137)(); |
|
|
vs_top=sup; |
|
|
base[8]= vs_base[0]; |
|
459 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
460 |
Lash(); |
Lash(); |
461 |
vs_top=sup; |
vs_top=sup; |
464 |
Llogior(); |
Llogior(); |
465 |
vs_top=sup; |
vs_top=sup; |
466 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
467 |
V58= cdr((V58)); |
V70= CMPcdr((V70)); |
468 |
V59= car((V58)); |
V71= CMPcar((V70)); |
469 |
goto T162;} |
goto T159;} |
470 |
goto T158; |
goto T155; |
471 |
T158:; |
T155:; |
472 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
473 |
return; |
return; |
474 |
} |
} |
477 |
static void L12() |
static void L12() |
478 |
{register object *base=vs_base; |
{register object *base=vs_base; |
479 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
480 |
vs_reserve(VM12); |
vs_check; |
481 |
{object V60; |
{object V72; |
482 |
register object V61; |
register object V73; |
483 |
check_arg(2); |
V72=(base[0]); |
484 |
V60=(base[0]); |
V73=(base[1]); |
|
V61=(base[1]); |
|
485 |
vs_top=sup; |
vs_top=sup; |
486 |
goto TTL; |
goto TTL; |
487 |
TTL:; |
TTL:; |
488 |
{object V62; |
{object V74; |
489 |
V62= Cnil; |
V74= Cnil; |
490 |
V62= get((V60),VV[21],Cnil); |
{object V75 =((V72))->s.s_plist; |
491 |
if(((V62))==Cnil){ |
object ind= VV[21]; |
492 |
goto T181;} |
while(V75!=Cnil){ |
493 |
base[2]= (V61); |
if(V75->c.c_car==ind){ |
494 |
|
V74= (V75->c.c_cdr->c.c_car); |
495 |
|
goto T179; |
496 |
|
}else V75=V75->c.c_cdr->c.c_cdr;} |
497 |
|
V74= Cnil;} |
498 |
|
goto T179; |
499 |
|
T179:; |
500 |
|
if(((V74))==Cnil){ |
501 |
|
goto T177;} |
502 |
|
base[2]= (V73); |
503 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
504 |
super_funcall_no_event((V62)); |
super_funcall_no_event((V74)); |
505 |
return; |
return; |
506 |
|
goto T177; |
507 |
|
T177:; |
508 |
|
{object V76; |
509 |
|
{object V77 =((V72))->s.s_plist; |
510 |
|
object ind= VV[22]; |
511 |
|
while(V77!=Cnil){ |
512 |
|
if(V77->c.c_car==ind){ |
513 |
|
V74= (V77->c.c_cdr->c.c_car); |
514 |
|
goto T184; |
515 |
|
}else V77=V77->c.c_cdr->c.c_cdr;} |
516 |
|
V74= Cnil;} |
517 |
|
goto T184; |
518 |
|
T184:; |
519 |
|
if(((V74))!=Cnil){ |
520 |
|
goto T182;} |
521 |
|
V76= Cnil; |
522 |
|
goto T181; |
523 |
|
goto T182; |
524 |
|
T182:; |
525 |
|
V76= ( |
526 |
|
(type_of((V74)) == t_sfun ?(*(((V74))->sfn.sfn_self)): |
527 |
|
(fcall.argd=2,type_of((V74))==t_vfun) ? |
528 |
|
(*(((V74))->sfn.sfn_self)): |
529 |
|
(fcall.fun=((V74)),fcalln))((V72),(V73))); |
530 |
goto T181; |
goto T181; |
531 |
T181:; |
T181:; |
532 |
{object V63; |
if(((V76))==Cnil){ |
|
V62= get((V60),VV[22],Cnil); |
|
|
if(((V62))!=Cnil){ |
|
533 |
goto T186;} |
goto T186;} |
534 |
V63= Cnil; |
base[2]= (V76); |
|
goto T185; |
|
|
goto T186; |
|
|
T186:; |
|
|
V63= ( |
|
|
(type_of((V62)) == t_sfun ?(*(((V62))->sfn.sfn_self)): |
|
|
(fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61))); |
|
|
goto T185; |
|
|
T185:; |
|
|
if(((V63))==Cnil){ |
|
|
goto T190;} |
|
|
base[2]= (V63); |
|
535 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
536 |
return; |
return; |
537 |
goto T190; |
goto T186; |
538 |
T190:; |
T186:; |
539 |
V62= (*(LnkLI141))((V60)); |
V74= (*(LnkLI141))((V72)); |
540 |
if(((V62))==Cnil){ |
if(((V74))==Cnil){ |
541 |
|
goto T189;} |
542 |
|
if(!((CMPcar((V74)))==(VV[23]))){ |
543 |
goto T193;} |
goto T193;} |
544 |
if(!((car((V62)))==(VV[23]))){ |
{object V78; |
545 |
|
object V79; |
546 |
|
V78= (VFUN_NARGS=2,(*(LnkLI127))(VV[24],Ct)); |
547 |
|
V79= (*(LnkLI142))((V73),(V78)); |
548 |
|
{object V80; |
549 |
|
V80= (*(LnkLI143))(CMPcaddr((V74))); |
550 |
|
if(((V80))==Cnil){ |
551 |
goto T197;} |
goto T197;} |
552 |
{object V64; |
V81= Ct; |
553 |
object V65; |
STSET(object,(V78),8, (V80)); |
554 |
V64= (VFUN_NARGS=2,(*(LnkLI127))(VV[24],Ct)); |
(void)((V80));} |
555 |
V65= (*(LnkLI142))((V61),(V64)); |
goto T197; |
556 |
{object V66; |
T197:; |
557 |
V66= (*(LnkLI143))(caddr((V62))); |
{register object V82; |
558 |
if(((V66))==Cnil){ |
V82= (*(LnkLI144))(CMPcaddr((V74))); |
559 |
|
if(((V82))==Cnil){ |
560 |
goto T201;} |
goto T201;} |
561 |
(void)(structure_set((V64),VV[25],2,(V66)));} |
{object V83; |
562 |
goto T201; |
V83= Cnil; |
563 |
T201:; |
{object V84; |
564 |
{register object V67; |
object V85; |
565 |
V67= (*(LnkLI144))(caddr((V62))); |
V84= (V79); |
566 |
if(((V67))==Cnil){ |
V85= CMPcar((V84)); |
|
goto T205;} |
|
|
{object V68; |
|
|
V68= Cnil; |
|
|
{object V69; |
|
|
object V70; |
|
|
V69= (V65); |
|
|
V70= car((V69)); |
|
|
goto T213; |
|
|
T213:; |
|
|
if(!(endp_prop((V69)))){ |
|
|
goto T214;} |
|
567 |
goto T209; |
goto T209; |
568 |
|
T209:; |
569 |
|
if(!(((V84))==Cnil)){ |
570 |
|
goto T210;} |
571 |
|
goto T205; |
572 |
|
goto T210; |
573 |
|
T210:; |
574 |
|
if(!(((V82))==Cnil)){ |
575 |
|
goto T216;} |
576 |
|
V83= make_cons(V85,(V83)); |
577 |
|
goto T214; |
578 |
|
goto T216; |
579 |
|
T216:; |
580 |
|
{object V87; |
581 |
|
V87= (*(LnkLI145))(CMPcar((V82)),(V85),CMPcar((V73))); |
582 |
|
V83= make_cons((V87),(V83));} |
583 |
|
{object V88; |
584 |
|
V88= CMPcar((V82)); |
585 |
|
V82= CMPcdr((V82));} |
586 |
|
{object V89; |
587 |
|
V89= CMPcar((V73)); |
588 |
|
V73= CMPcdr((V73));} |
589 |
goto T214; |
goto T214; |
590 |
T214:; |
T214:; |
591 |
if(!(endp_prop((V67)))){ |
V84= CMPcdr((V84)); |
592 |
goto T220;} |
V85= CMPcar((V84)); |
593 |
V68= make_cons(V70,(V68)); |
goto T209;} |
|
goto T218; |
|
|
goto T220; |
|
|
T220:; |
|
|
{object V72; |
|
|
V72= (*(LnkLI145))(car((V67)),(V70),car((V61))); |
|
|
V68= make_cons((V72),(V68));} |
|
|
{object V73; |
|
|
V73= car((V67)); |
|
|
V67= cdr((V67));} |
|
|
{object V74; |
|
|
V74= car((V61)); |
|
|
V61= cdr((V61));} |
|
|
goto T218; |
|
|
T218:; |
|
|
V69= cdr((V69)); |
|
|
V70= car((V69)); |
|
|
goto T213;} |
|
|
goto T209; |
|
|
T209:; |
|
|
V65= reverse((V68));}} |
|
594 |
goto T205; |
goto T205; |
595 |
T205:; |
T205:; |
596 |
base[4]= list(4,VV[23],(V64),cddr((V62)),(V65)); |
V79= reverse((V83));}} |
597 |
|
goto T201; |
598 |
|
T201:; |
599 |
|
base[4]= list(4,VV[23],(V78),CMPcddr((V74)),(V79)); |
600 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
601 |
return;} |
return;} |
|
goto T197; |
|
|
T197:; |
|
|
V75= (*(LnkLI146))((V62),(V60),(V61)); |
|
|
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V75); |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
return; |
|
602 |
goto T193; |
goto T193; |
603 |
T193:; |
T193:; |
604 |
{object V76; |
V90= (*(LnkLI146))((V74),(V72),(V73)); |
605 |
V62= get((V60),VV[26],Cnil); |
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V90); |
606 |
if(((V62))!=Cnil){ |
vs_top=(vs_base=base+2)+1; |
607 |
goto T240;} |
return; |
608 |
V76= Cnil; |
goto T189; |
609 |
goto T239; |
T189:; |
610 |
goto T240; |
{object V91; |
611 |
T240:; |
{object V92 =((V72))->s.s_plist; |
612 |
if(((*(LnkLI147))((V60)))!=Cnil){ |
object ind= VV[26]; |
613 |
goto T243;} |
while(V92!=Cnil){ |
614 |
V76= Cnil; |
if(V92->c.c_car==ind){ |
615 |
goto T239; |
V74= (V92->c.c_cdr->c.c_car); |
616 |
goto T243; |
goto T238; |
617 |
T243:; |
}else V92=V92->c.c_cdr->c.c_cdr;} |
618 |
V76= ( |
V74= Cnil;} |
619 |
(type_of((V62)) == t_sfun ?(*(((V62))->sfn.sfn_self)): |
goto T238; |
620 |
(fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61))); |
T238:; |
621 |
|
if(((V74))!=Cnil){ |
622 |
|
goto T236;} |
623 |
|
V91= Cnil; |
624 |
|
goto T235; |
625 |
|
goto T236; |
626 |
|
T236:; |
627 |
|
if(((*(LnkLI147))((V72)))!=Cnil){ |
628 |
|
goto T239;} |
629 |
|
V91= Cnil; |
630 |
|
goto T235; |
631 |
goto T239; |
goto T239; |
632 |
T239:; |
T239:; |
633 |
if(((V76))==Cnil){ |
V91= ( |
634 |
goto T246;} |
(type_of((V74)) == t_sfun ?(*(((V74))->sfn.sfn_self)): |
635 |
base[2]= (V76); |
(fcall.argd=2,type_of((V74))==t_vfun) ? |
636 |
|
(*(((V74))->sfn.sfn_self)): |
637 |
|
(fcall.fun=((V74)),fcalln))((V72),(V73))); |
638 |
|
goto T235; |
639 |
|
T235:; |
640 |
|
if(((V91))==Cnil){ |
641 |
|
goto T242;} |
642 |
|
base[2]= (V91); |
643 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
644 |
return; |
return; |
645 |
goto T246; |
goto T242; |
646 |
T246:; |
T242:; |
647 |
V62= get((V60),VV[27],Cnil); |
{object V93 =((V72))->s.s_plist; |
648 |
if(((V62))==Cnil){ |
object ind= VV[27]; |
649 |
goto T249;} |
while(V93!=Cnil){ |
650 |
if(((*(LnkLI147))((V60)))==Cnil){ |
if(V93->c.c_car==ind){ |
651 |
goto T249;} |
V74= (V93->c.c_cdr->c.c_car); |
652 |
base[2]= (V61); |
goto T248; |
653 |
|
}else V93=V93->c.c_cdr->c.c_cdr;} |
654 |
|
V74= Cnil;} |
655 |
|
goto T248; |
656 |
|
T248:; |
657 |
|
if(((V74))==Cnil){ |
658 |
|
goto T245;} |
659 |
|
if(((*(LnkLI147))((V72)))==Cnil){ |
660 |
|
goto T245;} |
661 |
|
base[2]= (V73); |
662 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
663 |
super_funcall_no_event((V62)); |
super_funcall_no_event((V74)); |
664 |
return; |
return; |
665 |
goto T249; |
goto T245; |
666 |
T249:; |
T245:; |
667 |
V62= get((V60),VV[28],Cnil); |
{object V94 =((V72))->s.s_plist; |
668 |
if(((V62))==Cnil){ |
object ind= VV[28]; |
669 |
goto T256;} |
while(V94!=Cnil){ |
670 |
if(((*(LnkLI147))((V60)))==Cnil){ |
if(V94->c.c_car==ind){ |
671 |
goto T256;} |
V74= (V94->c.c_cdr->c.c_car); |
672 |
base[2]= car((V62)); |
goto T255; |
673 |
base[3]= (V61); |
}else V94=V94->c.c_cdr->c.c_cdr;} |
674 |
|
V74= Cnil;} |
675 |
|
goto T255; |
676 |
|
T255:; |
677 |
|
if(((V74))==Cnil){ |
678 |
|
goto T252;} |
679 |
|
if(((*(LnkLI147))((V72)))==Cnil){ |
680 |
|
goto T252;} |
681 |
|
base[2]= CMPcar((V74)); |
682 |
|
base[3]= (V73); |
683 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
684 |
super_funcall_no_event(base[2]); |
super_funcall_no_event(base[2]); |
685 |
vs_top=sup; |
vs_top=sup; |
686 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
687 |
goto T256;} |
goto T252;} |
688 |
base[2]= cdr((V62)); |
base[2]= CMPcdr((V74)); |
689 |
base[3]= (V61); |
base[3]= (V73); |
690 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
691 |
super_funcall_no_event(base[2]); |
super_funcall_no_event(base[2]); |
692 |
return; |
return; |
693 |
goto T256; |
goto T252; |
694 |
T256:; |
T252:; |
695 |
{object V77; |
{object V95; |
696 |
base[2]= (V60); |
base[2]= (V72); |
697 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
698 |
Lsymbol_package(); |
Lsymbol_package(); |
699 |
vs_top=sup; |
vs_top=sup; |
700 |
V78= vs_base[0]; |
V96= vs_base[0]; |
701 |
base[2]= VV[29]; |
base[2]= VV[29]; |
702 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
703 |
Lsymbol_package(); |
Lsymbol_package(); |
704 |
vs_top=sup; |
vs_top=sup; |
705 |
V79= vs_base[0]; |
V97= vs_base[0]; |
706 |
if((V78)==(V79)){ |
if((V96)==(V97)){ |
707 |
goto T269;} |
goto T265;} |
708 |
goto T268; |
goto T264; |
709 |
goto T269; |
goto T265; |
710 |
T269:; |
T265:; |
711 |
base[2]= (V60); |
base[2]= (V72); |
712 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
713 |
Lfboundp(); |
Lfboundp(); |
714 |
vs_top=sup; |
vs_top=sup; |
715 |
V80= vs_base[0]; |
V98= vs_base[0]; |
716 |
if((V80)==Cnil){ |
if((V98)==Cnil){ |
717 |
|
goto T271;} |
718 |
|
goto T264; |
719 |
|
goto T271; |
720 |
|
T271:; |
721 |
|
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[30],(V72)))); |
722 |
|
goto T264; |
723 |
|
T264:; |
724 |
|
if((VV[31]->s.s_dbind)==Cnil){ |
725 |
goto T275;} |
goto T275;} |
726 |
goto T268; |
base[2]= VV[32]; |
727 |
|
base[3]= (V72); |
728 |
|
vs_top=(vs_base=base+2)+2; |
729 |
|
(void) (*Lnk32)(); |
730 |
|
vs_top=sup; |
731 |
goto T275; |
goto T275; |
732 |
T275:; |
T275:; |
733 |
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[30],(V60)))); |
V95= Cnil; |
734 |
goto T268; |
if(((V95))==Cnil){ |
|
T268:; |
|
|
if(symbol_value(VV[31])==Cnil){ |
|
735 |
goto T279;} |
goto T279;} |
736 |
(void)((*(LnkLI32))(VV[32],(V60))); |
base[2]= (V95); |
|
goto T279; |
|
|
T279:; |
|
|
V77= Cnil; |
|
|
if(((V77))==Cnil){ |
|
|
goto T281;} |
|
|
base[2]= (V77); |
|
737 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
738 |
return; |
return; |
739 |
goto T281; |
goto T279; |
740 |
T281:; |
T279:; |
741 |
base[2]= (V60); |
base[2]= (V72); |
742 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
743 |
Lmacro_function(); |
Lmacro_function(); |
744 |
vs_top=sup; |
vs_top=sup; |
745 |
V62= vs_base[0]; |
V74= vs_base[0]; |
746 |
if(((V62))==Cnil){ |
if(((V74))==Cnil){ |
747 |
goto T284;} |
goto T282;} |
748 |
V81= (*(LnkLI146))((V62),(V60),(V61)); |
V99= (*(LnkLI146))((V74),(V72),(V73)); |
749 |
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V81); |
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V99); |
750 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
751 |
return; |
return; |
752 |
goto T284; |
goto T282; |
753 |
T284:; |
T282:; |
754 |
V62= get((V60),VV[33],Cnil); |
{object V100 =((V72))->s.s_plist; |
755 |
if(((V62))==Cnil){ |
object ind= VV[33]; |
756 |
goto T289;} |
while(V100!=Cnil){ |
757 |
V83= list(2,VV[35],(V62)); |
if(V100->c.c_car==ind){ |
758 |
base[2]= list(4,VV[34],/* INLINE-ARGS */V83,list(2,VV[35],make_cons((V60),(V61))),Cnil); |
V74= (V100->c.c_cdr->c.c_car); |
759 |
|
goto T289; |
760 |
|
}else V100=V100->c.c_cdr->c.c_cdr;} |
761 |
|
V74= Cnil;} |
762 |
|
goto T289; |
763 |
|
T289:; |
764 |
|
if(((V74))==Cnil){ |
765 |
|
goto T287;} |
766 |
|
V102= list(2,VV[35],(V74)); |
767 |
|
base[2]= list(4,VV[34],/* INLINE-ARGS */V102,list(2,VV[35],make_cons((V72),(V73))),Cnil); |
768 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
769 |
(void) (*Lnk148)(); |
(void) (*Lnk148)(); |
770 |
vs_top=sup; |
vs_top=sup; |
771 |
V82= vs_base[0]; |
V101= vs_base[0]; |
772 |
base[2]= (*(LnkLI123))(V82); |
base[2]= (*(LnkLI123))(V101); |
773 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
774 |
return; |
return; |
775 |
goto T289; |
goto T287; |
776 |
T289:; |
T287:; |
777 |
V62= get((V60),VV[36],Cnil); |
{object V103 =((V72))->s.s_plist; |
778 |
if(((V62))==Cnil){ |
object ind= VV[36]; |
779 |
goto T295;} |
while(V103!=Cnil){ |
780 |
if(((*(LnkLI147))((V60)))==Cnil){ |
if(V103->c.c_car==ind){ |
781 |
goto T295;} |
V74= (V103->c.c_cdr->c.c_car); |
782 |
if(!(type_of((V62))==t_cons)){ |
goto T296; |
783 |
goto T295;} |
}else V103=V103->c.c_cdr->c.c_cdr;} |
784 |
if(!(type_of(cdr((V62)))==t_fixnum)){ |
V74= Cnil;} |
785 |
goto T295;} |
goto T296; |
786 |
if(endp_prop((V61))){ |
T296:; |
787 |
goto T295;} |
if(((V74))==Cnil){ |
788 |
if(!(endp_prop(cdr((V61))))){ |
goto T293;} |
789 |
goto T295;} |
if(((*(LnkLI147))((V72)))==Cnil){ |
790 |
{object V84= car((V62)); |
goto T293;} |
791 |
if((V84!= VV[46]))goto T308; |
if(!(type_of((V74))==t_cons)){ |
792 |
V85= list(3,VV[37],car((V61)),cdr((V62))); |
goto T293;} |
793 |
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V85); |
if(!(type_of(CMPcdr((V74)))==t_fixnum)){ |
794 |
|
goto T293;} |
795 |
|
if(((V73))==Cnil){ |
796 |
|
goto T293;} |
797 |
|
if(!((CMPcdr((V73)))==Cnil)){ |
798 |
|
goto T293;} |
799 |
|
{object V104= CMPcar((V74)); |
800 |
|
if((V104!= VV[46]))goto T306; |
801 |
|
V105= list(3,VV[37],CMPcar((V73)),CMPcdr((V74))); |
802 |
|
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V105); |
803 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
804 |
return; |
return; |
805 |
goto T308; |
goto T306; |
806 |
T308:; |
T306:; |
807 |
if((V84!= VV[113]))goto T309; |
if((V104!= VV[113]))goto T307; |
808 |
V86= list(3,VV[38],cdr((V62)),car((V61))); |
V106= list(3,VV[38],CMPcdr((V74)),CMPcar((V73))); |
809 |
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V86); |
base[2]= (*(LnkLI123))(/* INLINE-ARGS */V106); |
810 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
811 |
return; |
return; |
812 |
goto T309; |
goto T307; |
813 |
T309:; |
T307:; |
814 |
base[2]= (*(LnkLI149))(car((V61)),car((V62)),cdr((V62))); |
base[2]= (*(LnkLI149))(CMPcar((V73)),CMPcar((V74)),CMPcdr((V74))); |
815 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
816 |
return;} |
return;} |
817 |
goto T295; |
goto T293; |
818 |
T295:; |
T293:; |
819 |
if(!(((V60))==(VV[5]))){ |
if(!(((V72))==(VV[5]))){ |
820 |
goto T311;} |
goto T309;} |
821 |
base[2]= (VFUN_NARGS=1,(*(LnkLI135))(VV[39])); |
base[2]= (VFUN_NARGS=1,(*(LnkLI135))(VV[39])); |
822 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
823 |
return; |
return; |
824 |
goto T311; |
goto T309; |
825 |
T311:; |
T309:; |
826 |
{object V87; |
{object V107; |
827 |
object V88; |
object V108; |
828 |
V89= get((V60),VV[40],Cnil); |
{object V110 =((V72))->s.s_plist; |
829 |
V87= (VFUN_NARGS=2,(*(LnkLI127))(VV[24],((V89)==Cnil?Ct:Cnil))); |
object ind= VV[40]; |
830 |
V88= (*(LnkLI142))((V61),(V87)); |
while(V110!=Cnil){ |
831 |
{object V90; |
if(V110->c.c_car==ind){ |
832 |
V90= (*(LnkLI150))((V60)); |
V109= (V110->c.c_cdr->c.c_car); |
833 |
if(((V90))==Cnil){ |
goto T312; |
834 |
goto T316;} |
}else V110=V110->c.c_cdr->c.c_cdr;} |
835 |
if(!(equal((V90),VV[41]))){ |
V109= Cnil;} |
836 |
goto T321;} |
goto T312; |
837 |
V90= Cnil; |
T312:; |
838 |
goto T316; |
V107= (VFUN_NARGS=2,(*(LnkLI127))(VV[24],((V109)==Cnil?Ct:Cnil))); |
839 |
goto T321; |
V108= (*(LnkLI142))((V73),(V107)); |
840 |
T321:; |
{object V111; |
841 |
(void)(structure_set((V87),VV[25],2,(V90)));} |
V111= (*(LnkLI150))((V72)); |
842 |
goto T316; |
if(((V111))==Cnil){ |
843 |
T316:; |
goto T314;} |
844 |
{register object V91; |
if(!(equal((V111),VV[41]))){ |
845 |
V91= (*(LnkLI151))((V60)); |
goto T319;} |
846 |
if(((V91))==Cnil){ |
V111= Cnil; |
847 |
goto T324;} |
goto T314; |
848 |
{register object V92; |
goto T319; |
849 |
register object V93; |
T319:; |
850 |
object V94; |
V112= Ct; |
851 |
V92= (V88); |
STSET(object,(V107),8, (V111)); |
852 |
V93= Cnil; |
(void)((V111));} |
853 |
V94= (V61); |
goto T314; |
854 |
goto T329; |
T314:; |
855 |
T329:; |
{register object V113; |
856 |
if(!(endp_prop((V92)))){ |
V113= (*(LnkLI151))((V72)); |
857 |
goto T330;} |
if(((V113))==Cnil){ |
858 |
V88= reverse((V93)); |
goto T322;} |
859 |
goto T324; |
{register object V114; |
860 |
goto T330; |
register object V115; |
861 |
T330:; |
object V116; |
862 |
if(!(endp_prop((V91)))){ |
V114= (V108); |
863 |
goto T337;} |
V115= Cnil; |
864 |
{object V95; |
V116= (V73); |
865 |
V95= car((V92)); |
goto T327; |
866 |
V93= make_cons((V95),(V93)); |
T327:; |
867 |
|
if(!(((V114))==Cnil)){ |
868 |
|
goto T328;} |
869 |
|
V108= reverse((V115)); |
870 |
|
goto T322; |
871 |
|
goto T328; |
872 |
|
T328:; |
873 |
|
if(!(((V113))==Cnil)){ |
874 |
goto T335;} |
goto T335;} |
875 |
goto T337; |
{object V117; |
876 |
T337:; |
V117= CMPcar((V114)); |
877 |
{object V96; |
V115= make_cons((V117),(V115)); |
878 |
V96= (*(LnkLI145))(car((V91)),car((V92)),car((V94))); |
goto T333;} |
|
V93= make_cons((V96),(V93));} |
|
|
{object V97; |
|
|
V97= car((V91)); |
|
|
V91= cdr((V91));} |
|
879 |
goto T335; |
goto T335; |
880 |
T335:; |
T335:; |
881 |
V92= cdr((V92)); |
{object V118; |
882 |
V94= cdr((V94)); |
V118= (*(LnkLI145))(CMPcar((V113)),CMPcar((V114)),CMPcar((V116))); |
883 |
goto T329;}} |
V115= make_cons((V118),(V115));} |
884 |
goto T324; |
{object V119; |
885 |
T324:; |
V119= CMPcar((V113)); |
886 |
{register object V98; |
V113= CMPcdr((V113));} |
887 |
V98= get((V60),VV[42],Cnil); |
goto T333; |
888 |
if(((V98))==Cnil){ |
T333:; |
889 |
goto T351;} |
V114= CMPcdr((V114)); |
890 |
{object V99; |
V116= CMPcdr((V116)); |
891 |
object V100; |
goto T327;}} |
892 |
V99= (V88); |
goto T322; |
893 |
V100= (V61); |
T322:; |
894 |
|
{register object V120; |
895 |
|
{object V121 =((V72))->s.s_plist; |
896 |
|
object ind= VV[42]; |
897 |
|
while(V121!=Cnil){ |
898 |
|
if(V121->c.c_car==ind){ |
899 |
|
V120= (V121->c.c_cdr->c.c_car); |
900 |
|
goto T350; |
901 |
|
}else V121=V121->c.c_cdr->c.c_cdr;} |
902 |
|
V120= Cnil;} |
903 |
|
goto T350; |
904 |
|
T350:; |
905 |
|
if(((V120))==Cnil){ |
906 |
|
goto T349;} |
907 |
|
{object V122; |
908 |
|
object V123; |
909 |
|
V122= (V108); |
910 |
|
V123= (V73); |
911 |
|
goto T354; |
912 |
|
T354:; |
913 |
|
if(((V120))==Cnil){ |
914 |
|
goto T356;} |
915 |
|
if(!(((V122))==Cnil)){ |
916 |
|
goto T355;} |
917 |
goto T356; |
goto T356; |
918 |
T356:; |
T356:; |
919 |
if(endp_prop((V98))){ |
goto T349; |
920 |
goto T358;} |
goto T355; |
921 |
if(!(endp_prop((V99)))){ |
T355:; |
922 |
goto T357;} |
(void)((*(LnkLI152))(CMPcar((V120)),CMPcar((V122)),CMPcar((V123)))); |
923 |
goto T358; |
{object V124; |
924 |
T358:; |
V124= CMPcar((V120)); |
925 |
goto T351; |
V120= CMPcdr((V120));} |
926 |
goto T357; |
V122= CMPcdr((V122)); |
927 |
T357:; |
V123= CMPcdr((V123)); |
928 |
(void)((*(LnkLI152))(car((V98)),car((V99)),car((V100)))); |
goto T354;}} |
929 |
{object V101; |
goto T349; |
930 |
V101= car((V98)); |
T349:; |
931 |
V98= cdr((V98));} |
{object V125= (V72); |
932 |
V99= cdr((V99)); |
if((V125!= VV[153]))goto T371; |
933 |
V100= cdr((V100)); |
{object V126; |
934 |
goto T356;}} |
V126= STREF(object,CMPcadar((V108)),8); |
935 |
goto T351; |
if(!(((V126))==(VV[43]))){ |
936 |
T351:; |
goto T374;} |
937 |
{object V102= (V60); |
V126= VV[44]; |
|
if((V102!= VV[153]))goto T373; |
|
|
{object V103; |
|
|
V103= structure_ref(cadar((V88)),VV[25],2); |
|
|
if(!(((V103))==(VV[43]))){ |
|
|
goto T376;} |
|
|
V103= VV[44]; |
|
938 |
if((VV[44])!=Cnil){ |
if((VV[44])!=Cnil){ |
939 |
goto T375;} |
goto T373;} |
940 |
goto T376; |
goto T374; |
941 |
T376:; |
T374:; |
942 |
if(!(type_of((V103))==t_cons)){ |
if(!(type_of((V126))==t_cons)){ |
943 |
goto T372;} |
goto T370;} |
944 |
if((car((V103)))==(VV[45])){ |
if((CMPcar((V126)))==(VV[45])){ |
945 |
goto T383;} |
goto T381;} |
946 |
if(!((car((V103)))==(VV[46]))){ |
if(!((CMPcar((V126)))==(VV[46]))){ |
947 |
goto T372;} |
goto T370;} |
948 |
goto T383; |
goto T381; |
949 |
T383:; |
T381:; |
950 |
V103= cadr((V103)); |
V126= CMPcadr((V126)); |
951 |
if(((V103))==Cnil){ |
if(((V126))==Cnil){ |
952 |
goto T372;} |
goto T370;} |
|
goto T375; |
|
|
T375:; |
|
|
V104= structure_ref((V87),VV[25],2); |
|
|
V103= (*(LnkLI154))(/* INLINE-ARGS */V104,(V103)); |
|
|
if(((V103))!=Cnil){ |
|
|
goto T391;} |
|
|
V105= make_cons((V60),(V61)); |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[47],/* INLINE-ARGS */V105))); |
|
|
goto T391; |
|
|
T391:; |
|
|
(void)(structure_set((V87),VV[25],2,(V103))); |
|
|
goto T372;} |
|
953 |
goto T373; |
goto T373; |
954 |
T373:; |
T373:; |
955 |
if((V102!= VV[155]))goto T394; |
V126= (*(LnkLI154))(STREF(object,(V107),8),(V126)); |
956 |
{object V106; |
if(((V126))!=Cnil){ |
957 |
V106= structure_ref(cadar((V88)),VV[25],2); |
goto T389;} |
958 |
if(!(((V106))==(VV[43]))){ |
V127= make_cons((V72),(V73)); |
959 |
goto T397;} |
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[47],/* INLINE-ARGS */V127))); |
960 |
V106= VV[44]; |
goto T389; |
961 |
|
T389:; |
962 |
|
V128= Ct; |
963 |
|
STSET(object,(V107),8, (V126)); |
964 |
|
(void)((V126)); |
965 |
|
goto T370;} |
966 |
|
goto T371; |
967 |
|
T371:; |
968 |
|
if((V125!= VV[155]))goto T392; |
969 |
|
{object V129; |
970 |
|
V129= STREF(object,CMPcadar((V108)),8); |
971 |
|
if(!(((V129))==(VV[43]))){ |
972 |
|
goto T395;} |
973 |
|
V129= VV[44]; |
974 |
if((VV[44])!=Cnil){ |
if((VV[44])!=Cnil){ |
975 |
goto T396;} |
goto T394;} |
976 |
goto T397; |
goto T395; |
977 |
T397:; |
T395:; |
978 |
if(!(type_of((V106))==t_cons)){ |
if(!(type_of((V129))==t_cons)){ |
979 |
goto T372;} |
goto T370;} |
980 |
if((car((V106)))==(VV[45])){ |
if((CMPcar((V129)))==(VV[45])){ |
981 |
goto T404;} |
goto T402;} |
982 |
if(!((car((V106)))==(VV[46]))){ |
if(!((CMPcar((V129)))==(VV[46]))){ |
983 |
goto T372;} |
goto T370;} |
984 |
goto T404; |
goto T402; |
985 |
T404:; |
T402:; |
986 |
V106= cadr((V106)); |
V129= CMPcadr((V129)); |
987 |
if(((V106))==Cnil){ |
if(((V129))==Cnil){ |
988 |
goto T372;} |
goto T370;} |
989 |
goto T396; |
goto T394; |
990 |
T396:; |
T394:; |
991 |
V107= structure_ref((V87),VV[25],2); |
base[4]= (V108); |
|
base[4]= (V88); |
|
992 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
993 |
Llast(); |
Llast(); |
994 |
vs_top=sup; |
vs_top=sup; |
995 |
V108= vs_base[0]; |
V130= vs_base[0]; |
996 |
V109= structure_ref(cadar(V108),VV[25],2); |
V131= (*(LnkLI154))(STREF(object,CMPcadar(V130),8),(V129)); |
997 |
V110= (*(LnkLI154))(/* INLINE-ARGS */V109,(V106)); |
V129= (*(LnkLI154))(STREF(object,(V107),8),/* INLINE-ARGS */V131); |
998 |
V106= (*(LnkLI154))(/* INLINE-ARGS */V107,/* INLINE-ARGS */V110); |
if(((V129))!=Cnil){ |
999 |
if(((V106))!=Cnil){ |
goto T412;} |
1000 |
goto T414;} |
V132= make_cons((V72),(V73)); |
1001 |
V111= make_cons((V60),(V61)); |
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[48],/* INLINE-ARGS */V132))); |
1002 |
(void)((VFUN_NARGS=2,(*(LnkLI138))(VV[48],/* INLINE-ARGS */V111))); |
goto T412; |
1003 |
goto T414; |
T412:; |
1004 |
T414:; |
V133= Ct; |
1005 |
(void)(structure_set((V87),VV[25],2,(V106))); |
STSET(object,(V107),8, (V129)); |
1006 |
base[4]= (V88); |
(void)((V129)); |
1007 |
|
base[4]= (V108); |
1008 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1009 |
Llast(); |
Llast(); |
1010 |
vs_top=sup; |
vs_top=sup; |
1011 |
V112= vs_base[0]; |
V134= vs_base[0]; |
1012 |
(void)(structure_set(cadar(V112),VV[25],2,(V106))); |
V135= CMPcadar(V134); |
1013 |
goto T372;} |
V136= Ct; |
1014 |
goto T394; |
STSET(object,/* INLINE-ARGS */V135,8, (V129)); |
1015 |
T394:;} |
(void)((V129)); |
1016 |
goto T372; |
goto T370;} |
1017 |
T372:; |
goto T392; |
1018 |
{object V113; |
T392:;} |
1019 |
base[4]= (V60); |
goto T370; |
1020 |
{object V114; |
T370:; |
1021 |
object V115= (V88); |
{object V137; |
1022 |
if(endp(V115)){ |
{object V139; |
1023 |
base[5]= Cnil; |
object V140= (V108); |
1024 |
goto T423;} |
if(V140==Cnil){ |
1025 |
base[6]=V114=MMcons(Cnil,Cnil); |
V138= Cnil; |
1026 |
goto T424; |
goto T420;} |
1027 |
T424:; |
base[4]=V139=MMcons(Cnil,Cnil); |
1028 |
(V114->c.c_car)= structure_ref(cadr((V115->c.c_car)),VV[25],2); |
goto T421; |
1029 |
V115=MMcdr(V115); |
T421:; |
1030 |
if(endp(V115)){ |
(V139->c.c_car)= STREF(object,CMPcadr((V140->c.c_car)),8); |
1031 |
base[5]= base[6]; |
if((V140=MMcdr(V140))==Cnil){ |
1032 |
goto T423;} |
V138= base[4]; |
|
V114=MMcdr(V114)=MMcons(Cnil,Cnil); |
|
|
goto T424;} |
|
|
goto T423; |
|
|
T423:; |
|
|
vs_top=(vs_base=base+4)+2; |
|
|
(void) (*Lnk156)(); |
|
|
vs_top=sup; |
|
|
V113= vs_base[0]; |
|
|
if(((V113))==Cnil){ |
|
1033 |
goto T420;} |
goto T420;} |
1034 |
V117= structure_ref((V87),VV[25],2); |
V139=MMcdr(V139)=MMcons(Cnil,Cnil); |
1035 |
V113= (*(LnkLI154))((V113),/* INLINE-ARGS */V117); |
goto T421;} |
|
(void)(structure_set((V87),VV[25],2,(V113)));} |
|
1036 |
goto T420; |
goto T420; |
1037 |
T420:; |
T420:; |
1038 |
base[4]= list(4,VV[49],(V87),(V60),(V88)); |
V137= (*(LnkLI156))((V72),V138); |
1039 |
|
if(((V137))==Cnil){ |
1040 |
|
goto T418;} |
1041 |
|
V137= (*(LnkLI154))((V137),STREF(object,(V107),8)); |
1042 |
|
V142= Ct; |
1043 |
|
STSET(object,(V107),8, (V137)); |
1044 |
|
(void)((V137));} |
1045 |
|
goto T418; |
1046 |
|
T418:; |
1047 |
|
base[4]= list(4,VV[49],(V107),(V72),(V108)); |
1048 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1049 |
return;}}}}} |
return;}}}}} |
1050 |
} |
} |
1051 |
} |
} |
1052 |
/* local entry for function REPLACE-CONSTANT */ |
/* local entry for function REPLACE-CONSTANT */ |
1053 |
|
|
1054 |
static object LI13(V119) |
static object LI13(V144) |
1055 |
|
|
1056 |
object V119; |
object V144; |
1057 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
1058 |
goto TTL; |
goto TTL; |
1059 |
TTL:; |
TTL:; |
1060 |
{register object V120; |
{register object V145; |
1061 |
register object V121; |
register object V146; |
1062 |
V120= Cnil; |
V145= Cnil; |
1063 |
V121= Cnil; |
V146= Cnil; |
1064 |
{register object V122; |
{register object V147; |
1065 |
V122= (V119); |
V147= (V144); |
1066 |
goto T433; |
goto T430; |
1067 |
T433:; |
T430:; |
1068 |
if(((V122))!=Cnil){ |
if(((V147))!=Cnil){ |
1069 |
goto T434;} |
goto T431;} |
1070 |
{object V123 = (V120); |
{object V148 = (V145); |
1071 |
VMR13(V123)} |
VMR13(V148)} |
1072 |
goto T434; |
goto T431; |
1073 |
T434:; |
T431:; |
1074 |
base[0]= car((V122)); |
base[0]= CMPcar((V147)); |
1075 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1076 |
Lconstantp(); |
Lconstantp(); |
1077 |
vs_top=sup; |
vs_top=sup; |
1078 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1079 |
goto T438;} |
goto T435;} |
1080 |
base[0]= car((V122)); |
base[0]= CMPcar((V147)); |
1081 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1082 |
Leval(); |
Leval(); |
1083 |
vs_top=sup; |
vs_top=sup; |
1084 |
V121= vs_base[0]; |
V146= vs_base[0]; |
1085 |
if(type_of((V121))==t_fixnum|| |
if(type_of((V146))==t_fixnum|| |
1086 |
type_of((V121))==t_bignum|| |
type_of((V146))==t_bignum|| |
1087 |
type_of((V121))==t_ratio|| |
type_of((V146))==t_ratio|| |
1088 |
type_of((V121))==t_shortfloat|| |
type_of((V146))==t_shortfloat|| |
1089 |
type_of((V121))==t_longfloat|| |
type_of((V146))==t_longfloat|| |
1090 |
type_of((V121))==t_complex){ |
type_of((V146))==t_complex){ |
1091 |
goto T439;} |
goto T436;} |
1092 |
if(!(type_of((V121))==t_character)){ |
if(!(type_of((V146))==t_character)){ |
1093 |
goto T438;} |
goto T435;} |
1094 |
goto T439; |
goto T436; |
1095 |
T439:; |
T436:; |
1096 |
V120= Ct; |
V145= Ct; |
1097 |
{register object V124; |
{register object V149; |
1098 |
register object V125; |
register object V150; |
1099 |
V124= (V122); |
V149= (V147); |
1100 |
V125= (V121); |
V150= (V146); |
1101 |
if(type_of((V124))!=t_cons)FEwrong_type_argument(Scons,(V124)); |
((V149))->c.c_car = (V150);} |
1102 |
((V124))->c.c_car = (V125);} |
goto T435; |
1103 |
goto T438; |
T435:; |
1104 |
T438:; |
V147= CMPcdr((V147)); |
1105 |
V122= cdr((V122)); |
goto T430;}} |
|
goto T433;}} |
|
1106 |
base[0]=base[0]; |
base[0]=base[0]; |
1107 |
return Cnil; |
return Cnil; |
1108 |
} |
} |
1109 |
/* local entry for function C1LAMBDA-FUN */ |
/* local entry for function C1LAMBDA-FUN */ |
1110 |
|
|
1111 |
static object LI14(V128,V129) |
static object LI14(V153,V154) |
1112 |
|
|
1113 |
register object V128;object V129; |
register object V153;object V154; |
1114 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1115 |
goto TTL; |
goto TTL; |
1116 |
TTL:; |
TTL:; |
1117 |
{object V130; |
{object V155; |
1118 |
V130= (VFUN_NARGS=2,(*(LnkLI127))(VV[24],Ct)); |
V155= (VFUN_NARGS=2,(*(LnkLI127))(VV[24],Ct)); |
1119 |
V129= (*(LnkLI142))((V129),(V130)); |
V154= (*(LnkLI142))((V154),(V155)); |
1120 |
V128= (VFUN_NARGS=1,(*(LnkLI157))((V128))); |
V153= (VFUN_NARGS=1,(*(LnkLI157))((V153))); |
1121 |
(void)((*(LnkLI124))((V130),cadr((V128)))); |
(void)((*(LnkLI124))((V155),CMPcadr((V153)))); |
1122 |
{object V131 = list(4,VV[50],(V130),(V128),(V129)); |
{object V156 = list(4,VV[50],(V155),(V153),(V154)); |
1123 |
VMR14(V131)}} |
VMR14(V156)}} |
1124 |
base[0]=base[0]; |
base[0]=base[0]; |
1125 |
return Cnil; |
return Cnil; |
1126 |
} |
} |
1129 |
static void L15() |
static void L15() |
1130 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1131 |
register object *sup=base+VM15; VC15 |
register object *sup=base+VM15; VC15 |
1132 |
vs_reserve(VM15); |
vs_check; |
1133 |
bds_check; |
bds_check; |
1134 |
{register object V132; |
{register object V157; |
1135 |
check_arg(1); |
V157=(base[0]); |
|
V132=(base[0]); |
|
1136 |
vs_top=sup; |
vs_top=sup; |
1137 |
goto TTL; |
goto TTL; |
1138 |
TTL:; |
TTL:; |
1139 |
if(!((car((V132)))==(VV[49]))){ |
if(!((CMPcar((V157)))==(VV[49]))){ |
1140 |
goto T463;} |
goto T460;} |
1141 |
V133= caddr((V132)); |
base[1]= (*(LnkLI158))(CMPcaddr((V157)),CMPcadddr((V157)),Cnil,STREF(object,CMPcadr((V157)),8)); |
|
V134= cadddr((V132)); |
|
|
V135= structure_ref(cadr((V132)),VV[25],2); |
|
|
base[1]= (*(LnkLI158))(/* INLINE-ARGS */V133,/* INLINE-ARGS */V134,Cnil,/* INLINE-ARGS */V135); |
|
1142 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1143 |
return; |
return; |
1144 |
goto T463; |
goto T460; |
1145 |
T463:; |
T460:; |
1146 |
if((car((V132)))==(VV[51])){ |
if((CMPcar((V157)))==(VV[51])){ |
1147 |
goto T465;} |
goto T462;} |
1148 |
if(!((car((V132)))==(VV[52]))){ |
if(!((CMPcar((V157)))==(VV[52]))){ |
1149 |
goto T466;} |
goto T463;} |
1150 |
goto T465; |
goto T462; |
1151 |
T465:; |
T462:; |
1152 |
base[1]= (*(LnkLI159))(cadr((V132))); |
base[1]= (*(LnkLI159))(CMPcadr((V157))); |
1153 |
bds_bind(VV[53],base[1]); |
bds_bind(VV[53],base[1]); |
1154 |
base[2]= get(car((V132)),VV[54],Cnil); |
{object V158 =(CMPcar((V157)))->s.s_plist; |
1155 |
{object V136; |
object ind= VV[54]; |
1156 |
V136= cddr((V132)); |
while(V158!=Cnil){ |
1157 |
|
if(V158->c.c_car==ind){ |
1158 |
|
base[2]= (V158->c.c_cdr->c.c_car); |
1159 |
|
goto T468; |
1160 |
|
}else V158=V158->c.c_cdr->c.c_cdr;} |
1161 |
|
base[2]= Cnil;} |
1162 |
|
goto T468; |
1163 |
|
T468:; |
1164 |
|
{object V159; |
1165 |
|
V159= CMPcddr((V157)); |
1166 |
vs_top=base+3; |
vs_top=base+3; |
1167 |
while(!endp(V136)) |
while(V159!=Cnil) |
1168 |
{vs_push(car(V136));V136=cdr(V136);} |
{vs_push((V159)->c.c_car);V159=(V159)->c.c_cdr;} |
1169 |
vs_base=base+3;} |
vs_base=base+3;} |
1170 |
super_funcall_no_event(base[2]); |
super_funcall_no_event(base[2]); |
1171 |
bds_unwind1; |
bds_unwind1; |
1172 |
return; |
return; |
1173 |
goto T466; |
goto T463; |
1174 |
T466:; |
T463:; |
1175 |
{register object V137; |
{register object V160; |
1176 |
V137= get(car((V132)),VV[54],Cnil); |
{object V161 =(CMPcar((V157)))->s.s_plist; |
1177 |
if(((V137))==Cnil){ |
object ind= VV[54]; |
1178 |
goto T475;} |
while(V161!=Cnil){ |
1179 |
base[1]= (V137); |
if(V161->c.c_car==ind){ |
1180 |
{object V138; |
V160= (V161->c.c_cdr->c.c_car); |
1181 |
V138= cddr((V132)); |
goto T470; |
1182 |
|
}else V161=V161->c.c_cdr->c.c_cdr;} |
1183 |
|
V160= Cnil;} |
1184 |
|
goto T470; |
1185 |
|
T470:; |
1186 |
|
if(((V160))==Cnil){ |
1187 |
|
goto T472;} |
1188 |
|
base[1]= (V160); |
1189 |
|
{object V162; |
1190 |
|
V162= CMPcddr((V157)); |
1191 |
vs_top=base+2; |
vs_top=base+2; |
1192 |
while(!endp(V138)) |
while(V162!=Cnil) |
1193 |
{vs_push(car(V138));V138=cdr(V138);} |
{vs_push((V162)->c.c_car);V162=(V162)->c.c_cdr;} |
1194 |
vs_base=base+2;} |
vs_base=base+2;} |
1195 |
super_funcall_no_event(base[1]); |
super_funcall_no_event(base[1]); |
1196 |
return; |
return; |
1197 |
goto T475; |
goto T472; |
1198 |
T475:; |
T472:; |
1199 |
V137= get(car((V132)),VV[55],Cnil); |
{object V163 =(CMPcar((V157)))->s.s_plist; |
1200 |
if(((V137))==Cnil){ |
object ind= VV[55]; |
1201 |
goto T480;} |
while(V163!=Cnil){ |
1202 |
base[1]= (V132); |
if(V163->c.c_car==ind){ |
1203 |
|
V160= (V163->c.c_cdr->c.c_car); |
1204 |
|
goto T479; |
1205 |
|
}else V163=V163->c.c_cdr->c.c_cdr;} |
1206 |
|
V160= Cnil;} |
1207 |
|
goto T479; |
1208 |
|
T479:; |
1209 |
|
if(((V160))==Cnil){ |
1210 |
|
goto T477;} |
1211 |
|
base[1]= (V157); |
1212 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1213 |
super_funcall_no_event((V137)); |
super_funcall_no_event((V160)); |
1214 |
return; |
return; |
1215 |
goto T480; |
goto T477; |
1216 |
T480:; |
T477:; |
1217 |
base[1]= (*(LnkLI160))(); |
base[1]= (*(LnkLI160))(); |
1218 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1219 |
return;} |
return;} |
1221 |
} |
} |
1222 |
/* local entry for function C2FUNCALL-SFUN */ |
/* local entry for function C2FUNCALL-SFUN */ |
1223 |
|
|
1224 |
static object LI16(V142,V143,V144) |
static object LI16(V167,V168,V169) |
1225 |
|
|
1226 |
object V142;object V143;object V144; |
object V167;object V168;object V169; |
1227 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
1228 |
bds_check; |
bds_check; |
1229 |
goto TTL; |
goto TTL; |
1230 |
TTL:; |
TTL:; |
1231 |
{object V145; |
{object V170; |
1232 |
object V146; |
object V171; |
1233 |
V145= Cnil; |
V170= Cnil; |
1234 |
V146= make_cons((V142),(V143)); |
V171= make_cons((V167),(V168)); |
1235 |
bds_bind(VV[56],small_fixnum(0)); |
bds_bind(VV[56],small_fixnum(0)); |
1236 |
base[2]= make_fixnum((long)length((V146))); |
base[2]= CMPmake_fixnum((long)length((V171))); |
1237 |
base[3]= VV[57]; |
base[3]= VV[57]; |
1238 |
base[4]= Ct; |
base[4]= Ct; |
1239 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1240 |
Lmake_list(); |
Lmake_list(); |
1241 |
vs_top=sup; |
vs_top=sup; |
1242 |
V147= vs_base[0]; |
V172= vs_base[0]; |
1243 |
V148= list(4,V147,Ct,small_fixnum(3),VV[58]); |
V173= list(4,V172,Ct,small_fixnum(3),VV[58]); |
1244 |
V145= (*(LnkLI161))(/* INLINE-ARGS */V148,(V146)); |
V170= (*(LnkLI161))(/* INLINE-ARGS */V173,(V171)); |
1245 |
(void)((VFUN_NARGS=1,(*(LnkLI162))((V145)))); |
(void)((VFUN_NARGS=1,(*(LnkLI162))((V170)))); |
1246 |
{object V149 = (*(LnkLI163))(); |
{object V174 = (*(LnkLI163))(); |
1247 |
bds_unwind1; |
bds_unwind1; |
1248 |
VMR16(V149)}} |
VMR16(V174)}} |
1249 |
base[0]=base[0]; |
base[0]=base[0]; |
1250 |
return Cnil; |
return Cnil; |
1251 |
} |
} |
1252 |
/* local entry for function C2EXPR* */ |
/* local entry for function C2EXPR* */ |
1253 |
|
|
1254 |
static object LI17(V151) |
static object LI17(V176) |
1255 |
|
|
1256 |
object V151; |
object V176; |
1257 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
1258 |
bds_check; |
bds_check; |
1259 |
goto TTL; |
goto TTL; |
1260 |
TTL:; |
TTL:; |
1261 |
setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1))); |
(VV[60]->s.s_dbind)= number_plus((VV[60]->s.s_dbind),small_fixnum(1)); |
1262 |
bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil)); |
bds_bind(VV[59],make_cons((VV[60]->s.s_dbind),Cnil)); |
1263 |
bds_bind(VV[61],make_cons((VV[59]->s.s_dbind),symbol_value(VV[61]))); |
bds_bind(VV[61],make_cons((VV[59]->s.s_dbind),(VV[61]->s.s_dbind))); |
1264 |
base[2]= (V151); |
base[2]= (V176); |
1265 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1266 |
(void) (*Lnk164)(); |
(void) (*Lnk164)(); |
1267 |
vs_top=sup; |
vs_top=sup; |
1268 |
if((cdr((VV[59]->s.s_dbind)))==Cnil){ |
if((CMPcdr((VV[59]->s.s_dbind)))==Cnil){ |
1269 |
goto T500;} |
goto T497;} |
1270 |
princ_str("\n goto T",VV[62]); |
princ_str("\n goto T",VV[62]); |
1271 |
(void)((*(LnkLI165))(car((VV[59]->s.s_dbind)))); |
(void)((*(LnkLI165))(CMPcar((VV[59]->s.s_dbind)))); |
1272 |
princ_char(59,VV[62]); |
princ_char(59,VV[62]); |
1273 |
princ_str("\nT",VV[62]); |
princ_str("\nT",VV[62]); |
1274 |
(void)((*(LnkLI165))(car((VV[59]->s.s_dbind)))); |
(void)((*(LnkLI165))(CMPcar((VV[59]->s.s_dbind)))); |
1275 |
princ_str(":;",VV[62]); |
princ_str(":;",VV[62]); |
1276 |
{object V152 = Cnil; |
{object V177 = Cnil; |
1277 |
bds_unwind1; |
bds_unwind1; |
1278 |
bds_unwind1; |
bds_unwind1; |
1279 |
VMR17(V152)} |
VMR17(V177)} |
1280 |
goto T500; |
goto T497; |
1281 |
T500:; |
T497:; |
1282 |
{object V153 = Cnil; |
{object V178 = Cnil; |
1283 |
bds_unwind1; |
bds_unwind1; |
1284 |
bds_unwind1; |
bds_unwind1; |
1285 |
VMR17(V153)} |
VMR17(V178)} |
1286 |
base[0]=base[0]; |
base[0]=base[0]; |
1287 |
return Cnil; |
return Cnil; |
1288 |
} |
} |
1289 |
/* local entry for function C2EXPR-TOP */ |
/* local entry for function C2EXPR-TOP */ |
1290 |
|
|
1291 |
static object LI18(V156,V157) |
static object LI18(V181,V182) |
1292 |
|
|
1293 |
object V156;object V157; |
object V181;object V182; |
1294 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1295 |
bds_check; |
bds_check; |
1296 |
goto TTL; |
goto TTL; |
1297 |
TTL:; |
TTL:; |
1298 |
bds_bind(VV[63],small_fixnum(0)); |
bds_bind(VV[63],small_fixnum(0)); |
1299 |
bds_bind(VV[64],small_fixnum(0)); |
bds_bind(VV[64],small_fixnum(0)); |
1300 |
bds_bind(VV[65],one_plus(symbol_value(VV[65]))); |
bds_bind(VV[65],one_plus((VV[65]->s.s_dbind))); |
1301 |
setq(VV[66],number_plus(symbol_value(VV[66]),small_fixnum(1))); |
(VV[66]->s.s_dbind)= number_plus((VV[66]->s.s_dbind),small_fixnum(1)); |
1302 |
bds_bind(VV[67],symbol_value(VV[66])); |
bds_bind(VV[67],(VV[66]->s.s_dbind)); |
1303 |
princ_str("\n {register object *base",VV[62]); |
princ_str("\n {register object *base",VV[62]); |
1304 |
V158= one_minus((VV[65]->s.s_dbind)); |
V183= one_minus((VV[65]->s.s_dbind)); |
1305 |
(void)((*(LnkLI165))(/* INLINE-ARGS */V158)); |
(void)((*(LnkLI165))(/* INLINE-ARGS */V183)); |
1306 |
princ_str("=base;",VV[62]); |
princ_str("=base;",VV[62]); |
1307 |
setq(VV[68],Ct); |
(VV[68]->s.s_dbind)= Ct; |
1308 |
princ_str("\n {register object *base=V",VV[62]); |
princ_str("\n {register object *base=V",VV[62]); |
1309 |
(void)((*(LnkLI165))((V157))); |
(void)((*(LnkLI165))((V182))); |
1310 |
princ_char(59,VV[62]); |
princ_char(59,VV[62]); |
1311 |
princ_str("\n register object *sup=vs_base+VM",VV[62]); |
princ_str("\n register object *sup=vs_base+VM",VV[62]); |
1312 |
(void)((*(LnkLI165))((VV[67]->s.s_dbind))); |
(void)((*(LnkLI165))((VV[67]->s.s_dbind))); |
1313 |
princ_char(59,VV[62]); |
princ_char(59,VV[62]); |
1314 |
princ_str("\n base",VV[62]); |
princ_str("\n base",VV[62]); |
1315 |
V159= one_minus((VV[65]->s.s_dbind)); |
V184= one_minus((VV[65]->s.s_dbind)); |
1316 |
(void)((*(LnkLI165))(/* INLINE-ARGS */V159)); |
(void)((*(LnkLI165))(/* INLINE-ARGS */V184)); |
1317 |
princ_str("[0]=base",VV[62]); |
princ_str("[0]=base",VV[62]); |
1318 |
V160= one_minus((VV[65]->s.s_dbind)); |
V185= one_minus((VV[65]->s.s_dbind)); |
1319 |
(void)((*(LnkLI165))(/* INLINE-ARGS */V160)); |
(void)((*(LnkLI165))(/* INLINE-ARGS */V185)); |
1320 |
princ_str("[0];",VV[62]); |
princ_str("[0];",VV[62]); |
1321 |
princ_str("\n base[0]=base[0];",VV[62]); |
princ_str("\n base[0]=base[0];",VV[62]); |
1322 |
if((symbol_value(VV[69]))==Cnil){ |
if(((VV[69]->s.s_dbind))==Cnil){ |
1323 |
goto T536;} |
goto T533;} |
1324 |
princ_str("\n vs_reserve(VM",VV[62]); |
princ_str("\n vs_reserve(VM",VV[62]); |
1325 |
(void)((*(LnkLI165))((VV[67]->s.s_dbind))); |
(void)((*(LnkLI165))((VV[67]->s.s_dbind))); |
1326 |
princ_str(");",VV[62]); |
princ_str(");",VV[62]); |
1327 |
goto T534; |
goto T531; |
1328 |
goto T536; |
goto T533; |
1329 |
T536:; |
T533:; |
1330 |
princ_str("\n vs_check;",VV[62]); |
princ_str("\n vs_check;",VV[62]); |
1331 |
goto T534; |
goto T531; |
1332 |
T534:; |
T531:; |
1333 |
princ_str("\n ",VV[62]); |
princ_str("\n ",VV[62]); |
1334 |
(void)((*(LnkLI166))()); |
(void)((*(LnkLI166))()); |
1335 |
base[4]= (V156); |
base[4]= (V181); |
1336 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1337 |
(void) (*Lnk164)(); |
(void) (*Lnk164)(); |
1338 |
vs_top=sup; |
vs_top=sup; |
1339 |
{object V161; |
{object V186; |
1340 |
V161= make_cons((VV[67]->s.s_dbind),(VV[64]->s.s_dbind)); |
V186= make_cons((VV[67]->s.s_dbind),(VV[64]->s.s_dbind)); |
1341 |
setq(VV[70],make_cons((V161),symbol_value(VV[70])));} |
(VV[70]->s.s_dbind)= make_cons((V186),(VV[70]->s.s_dbind));} |
1342 |
princ_str("\n }}",VV[62]); |
princ_str("\n }}",VV[62]); |
1343 |
{object V162 = Cnil; |
{object V187 = Cnil; |
1344 |
bds_unwind1; |
bds_unwind1; |
1345 |
bds_unwind1; |
bds_unwind1; |
1346 |
bds_unwind1; |
bds_unwind1; |
1347 |
bds_unwind1; |
bds_unwind1; |
1348 |
VMR18(V162)} |
VMR18(V187)} |
1349 |
base[0]=base[0]; |
base[0]=base[0]; |
1350 |
return Cnil; |
return Cnil; |
1351 |
} |
} |
1352 |
/* local entry for function C2EXPR-TOP* */ |
/* local entry for function C2EXPR-TOP* */ |
1353 |
|
|
1354 |
static object LI19(V165,V166) |
static object LI19(V190,V191) |
1355 |
|
|
1356 |
object V165;object V166; |
object V190;object V191; |
1357 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
1358 |
bds_check; |
bds_check; |
1359 |
goto TTL; |
goto TTL; |
1360 |
TTL:; |
TTL:; |
1361 |
setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1))); |
(VV[60]->s.s_dbind)= number_plus((VV[60]->s.s_dbind),small_fixnum(1)); |
1362 |
bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil)); |
bds_bind(VV[59],make_cons((VV[60]->s.s_dbind),Cnil)); |
1363 |
bds_bind(VV[61],make_cons((VV[59]->s.s_dbind),symbol_value(VV[61]))); |
bds_bind(VV[61],make_cons((VV[59]->s.s_dbind),(VV[61]->s.s_dbind))); |
1364 |
(void)((*(LnkLI167))((V165),(V166))); |
(void)((*(LnkLI167))((V190),(V191))); |
1365 |
if((cdr((VV[59]->s.s_dbind)))==Cnil){ |
if((CMPcdr((VV[59]->s.s_dbind)))==Cnil){ |
1366 |
goto T555;} |
goto T552;} |
1367 |
princ_str("\n goto T",VV[62]); |
princ_str("\n goto T",VV[62]); |
1368 |
(void)((*(LnkLI165))(car((VV[59]->s.s_dbind)))); |
(void)((*(LnkLI165))(CMPcar((VV[59]->s.s_dbind)))); |
1369 |
princ_char(59,VV[62]); |
princ_char(59,VV[62]); |
1370 |
princ_str("\nT",VV[62]); |
princ_str("\nT",VV[62]); |
1371 |
(void)((*(LnkLI165))(car((VV[59]->s.s_dbind)))); |
(void)((*(LnkLI165))(CMPcar((VV[59]->s.s_dbind)))); |
1372 |
princ_str(":;",VV[62]); |
princ_str(":;",VV[62]); |
1373 |
{object V167 = Cnil; |
{object V192 = Cnil; |
1374 |
bds_unwind1; |
bds_unwind1; |
1375 |
bds_unwind1; |
bds_unwind1; |
1376 |
VMR19(V167)} |
VMR19(V192)} |
1377 |
goto T555; |
goto T552; |
1378 |
T555:; |
T552:; |
1379 |
{object V168 = Cnil; |
{object V193 = Cnil; |
1380 |
bds_unwind1; |
bds_unwind1; |
1381 |
bds_unwind1; |
bds_unwind1; |
1382 |
VMR19(V168)} |
VMR19(V193)} |
1383 |
base[0]=base[0]; |
base[0]=base[0]; |
1384 |
return Cnil; |
return Cnil; |
1385 |
} |
} |
1386 |
/* local entry for function C1PROGN */ |
/* local entry for function C1PROGN */ |
1387 |
|
|
1388 |
static object LI20(V170) |
static object LI20(V195) |
1389 |
|
|
1390 |
register object V170; |
register object V195; |
1391 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
1392 |
goto TTL; |
goto TTL; |
1393 |
TTL:; |
TTL:; |
1394 |
{register object V171; |
{register object V196; |
1395 |
V171= Cnil; |
V196= Cnil; |
1396 |
if(!(endp_prop((V170)))){ |
if(!(((V195))==Cnil)){ |
1397 |
|
goto T563;} |
1398 |
|
{object V197 = (*(LnkLI125))(); |
1399 |
|
VMR20(V197)} |
1400 |
|
goto T563; |
1401 |
|
T563:; |
1402 |
|
if(!((CMPcdr((V195)))==Cnil)){ |
1403 |
goto T566;} |
goto T566;} |
1404 |
{object V172 = (*(LnkLI125))(); |
{object V198 = (*(LnkLI123))(CMPcar((V195))); |
1405 |
VMR20(V172)} |
VMR20(V198)} |
1406 |
goto T566; |
goto T566; |
1407 |
T566:; |
T566:; |
1408 |
if(!(endp_prop(cdr((V170))))){ |
{register object V199; |
1409 |
goto T569;} |
V199= (VFUN_NARGS=0,(*(LnkLI127))()); |
1410 |
{object V173 = (*(LnkLI123))(car((V170))); |
{register object V200; |
1411 |
VMR20(V173)} |
register object V201; |
1412 |
|
V200= (V195); |
1413 |
|
V201= CMPcar((V200)); |
1414 |
|
goto T573; |
1415 |
|
T573:; |
1416 |
|
if(!(((V200))==Cnil)){ |
1417 |
|
goto T574;} |
1418 |
|
goto T569; |
1419 |
|
goto T574; |
1420 |
|
T574:; |
1421 |
|
V201= (*(LnkLI123))((V201)); |
1422 |
|
{register object V202; |
1423 |
|
V202= (V201); |
1424 |
|
V196= make_cons((V202),(V196));} |
1425 |
|
(void)((*(LnkLI124))((V199),CMPcadr((V201)))); |
1426 |
|
V200= CMPcdr((V200)); |
1427 |
|
V201= CMPcar((V200)); |
1428 |
|
goto T573;} |
1429 |
goto T569; |
goto T569; |
1430 |
T569:; |
T569:; |
1431 |
{register object V174; |
V203= Ct; |
1432 |
V174= (VFUN_NARGS=0,(*(LnkLI127))()); |
STSET(object,(V199),8, STREF(object,CMPcadar((V196)),8)); |
1433 |
{register object V175; |
(void)(STREF(object,CMPcadar((V196)),8)); |
1434 |
register object V176; |
{object V204 = list(3,VV[71],(V199),reverse((V196))); |
1435 |
V175= (V170); |
VMR20(V204)}}} |
|
V176= car((V175)); |
|
|
goto T576; |
|
|
T576:; |
|
|
if(!(endp_prop((V175)))){ |
|
|
goto T577;} |
|
|
goto T572; |
|
|
goto T577; |
|
|
T577:; |
|
|
V176= (*(LnkLI123))((V176)); |
|
|
{register object V177; |
|
|
V177= (V176); |
|
|
V171= make_cons((V177),(V171));} |
|
|
(void)((*(LnkLI124))((V174),cadr((V176)))); |
|
|
V175= cdr((V175)); |
|
|
V176= car((V175)); |
|
|
goto T576;} |
|
|
goto T572; |
|
|
T572:; |
|
|
V178= structure_ref(cadar((V171)),VV[25],2); |
|
|
(void)(structure_set((V174),VV[25],2,/* INLINE-ARGS */V178)); |
|
|
{object V179 = list(3,VV[71],(V174),reverse((V171))); |
|
|
VMR20(V179)}}} |
|
1436 |
base[0]=base[0]; |
base[0]=base[0]; |
1437 |
return Cnil; |
return Cnil; |
1438 |
} |
} |
1439 |
/* local entry for function C1PROGN* */ |
/* local entry for function C1PROGN* */ |
1440 |
|
|
1441 |
static object LI21(V182,V183) |
static object LI21(V207,V208) |
1442 |
|
|
1443 |
register object V182;object V183; |
register object V207;object V208; |
1444 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
1445 |
goto TTL; |
goto TTL; |
1446 |
TTL:; |
TTL:; |
1447 |
V182= (*(LnkLI168))((V182)); |
V207= (*(LnkLI168))((V207)); |
1448 |
(void)((*(LnkLI124))((V183),cadr((V182)))); |
(void)((*(LnkLI124))((V208),CMPcadr((V207)))); |
1449 |
{object V184 = (V182); |
{object V209 = (V207); |
1450 |
VMR21(V184)} |
VMR21(V209)} |
1451 |
return Cnil; |
return Cnil; |
1452 |
} |
} |
1453 |
/* function definition for C2PROGN */ |
/* function definition for C2PROGN */ |
1455 |
static void L22() |
static void L22() |
1456 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1457 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM22; VC22 |
1458 |
vs_reserve(VM22); |
vs_check; |
1459 |
bds_check; |
bds_check; |
1460 |
{object V185; |
{object V210; |
1461 |
check_arg(1); |
V210=(base[0]); |
|
V185=(base[0]); |
|
1462 |
vs_top=sup; |
vs_top=sup; |
1463 |
goto TTL; |
goto TTL; |
1464 |
TTL:; |
TTL:; |
1465 |
{register object V186; |
{register object V211; |
1466 |
V186= (V185); |
V211= (V210); |
1467 |
goto T597; |
goto T594; |
1468 |
T597:; |
T594:; |
1469 |
if(!(endp_prop(cdr((V186))))){ |
if(!((CMPcdr((V211)))==Cnil)){ |
1470 |
goto T598;} |
goto T595;} |
1471 |
base[1]= car((V186)); |
base[1]= CMPcar((V211)); |
1472 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1473 |
(void) (*Lnk164)(); |
(void) (*Lnk164)(); |
1474 |
return; |
return; |
1475 |
goto T598; |
goto T595; |
1476 |
T598:; |
T595:; |
1477 |
bds_bind(VV[72],VV[73]); |
bds_bind(VV[72],VV[73]); |
1478 |
setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1))); |
(VV[60]->s.s_dbind)= number_plus((VV[60]->s.s_dbind),small_fixnum(1)); |
1479 |
bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil)); |
bds_bind(VV[59],make_cons((VV[60]->s.s_dbind),Cnil)); |
1480 |
bds_bind(VV[61],make_cons((VV[59]->s.s_dbind),symbol_value(VV[61]))); |
bds_bind(VV[61],make_cons((VV[59]->s.s_dbind),(VV[61]->s.s_dbind))); |
1481 |
base[4]= car((V186)); |
base[4]= CMPcar((V211)); |
1482 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1483 |
(void) (*Lnk164)(); |
(void) (*Lnk164)(); |
1484 |
vs_top=sup; |
vs_top=sup; |
1485 |
if((cdr((VV[59]->s.s_dbind)))==Cnil){ |
if((CMPcdr((VV[59]->s.s_dbind)))==Cnil){ |
1486 |
bds_unwind1; |
bds_unwind1; |
1487 |
bds_unwind1; |
bds_unwind1; |
1488 |
bds_unwind1; |
bds_unwind1; |
1489 |
goto T603;} |
goto T600;} |
1490 |
princ_str("\n goto T",VV[62]); |
princ_str("\n goto T",VV[62]); |
1491 |
(void)((*(LnkLI165))(car((VV[59]->s.s_dbind)))); |
(void)((*(LnkLI165))(CMPcar((VV[59]->s.s_dbind)))); |
1492 |
princ_char(59,VV[62]); |
princ_char(59,VV[62]); |
1493 |
princ_str("\nT",VV[62]); |
princ_str("\nT",VV[62]); |
1494 |
(void)((*(LnkLI165))(car((VV[59]->s.s_dbind)))); |
(void)((*(LnkLI165))(CMPcar((VV[59]->s.s_dbind)))); |
1495 |
princ_str(":;",VV[62]); |
princ_str(":;",VV[62]); |
1496 |
bds_unwind1; |
bds_unwind1; |
1497 |
bds_unwind1; |
bds_unwind1; |
1498 |
bds_unwind1; |
bds_unwind1; |
1499 |
goto T603; |
goto T600; |
1500 |
T603:; |
T600:; |
1501 |
V186= cdr((V186)); |
V211= CMPcdr((V211)); |
1502 |
goto T597;} |
goto T594;} |
1503 |
} |
} |
1504 |
} |
} |
1505 |
/* local entry for function C1ARGS */ |
/* local entry for function C1ARGS */ |
1506 |
|
|
1507 |
static object LI23(V189,V190) |
static object LI23(V214,V215) |
1508 |
|
|
1509 |
object V189;object V190; |
object V214;object V215; |
1510 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
1511 |
goto TTL; |
goto TTL; |
1512 |
TTL:; |
TTL:; |
1513 |
{object V191; |
{object V216; |
1514 |
object V192= (V189); |
object V217= (V214); |
1515 |
if(endp(V192)){ |
if(V217==Cnil){ |
1516 |
{object V193 = Cnil; |
{object V218 = Cnil; |
1517 |
VMR23(V193)}} |
VMR23(V218)}} |
1518 |
base[0]=V191=MMcons(Cnil,Cnil); |
base[0]=V216=MMcons(Cnil,Cnil); |
1519 |
goto T621; |
goto T618; |
1520 |
T621:; |
T618:; |
1521 |
(V191->c.c_car)= (*(LnkLI169))((V192->c.c_car),(V190)); |
(V216->c.c_car)= (*(LnkLI169))((V217->c.c_car),(V215)); |
1522 |
V192=MMcdr(V192); |
if((V217=MMcdr(V217))==Cnil){ |
1523 |
if(endp(V192)){ |
{object V220 = base[0]; |
1524 |
{object V195 = base[0]; |
VMR23(V220)}} |
1525 |
VMR23(V195)}} |
V216=MMcdr(V216)=MMcons(Cnil,Cnil); |
1526 |
V191=MMcdr(V191)=MMcons(Cnil,Cnil); |
goto T618;} |
|
goto T621;} |
|
1527 |
base[0]=base[0]; |
base[0]=base[0]; |
1528 |
return Cnil; |
return Cnil; |
1529 |
} |
} |
1530 |
/* local entry for function C1STRUCTURE-REF */ |
/* local entry for function C1STRUCTURE-REF */ |
1531 |
|
|
1532 |
static object LI24(V197) |
static object LI24(V222) |
1533 |
|
|
1534 |
register object V197; |
register object V222; |
1535 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
1536 |
goto TTL; |
goto TTL; |
1537 |
TTL:; |
TTL:; |
1538 |
if((symbol_value(VV[69]))!=Cnil){ |
if(((VV[69]->s.s_dbind))!=Cnil){ |
1539 |
goto T624;} |
goto T621;} |
1540 |
if(endp_prop((V197))){ |
if(((V222))==Cnil){ |
1541 |
goto T624;} |
goto T621;} |
1542 |
if(endp_prop(cdr((V197)))){ |
if((CMPcdr((V222)))==Cnil){ |
1543 |
goto T624;} |
goto T621;} |
1544 |
if(!(type_of(cadr((V197)))==t_cons)){ |
if(!(type_of(CMPcadr((V222)))==t_cons)){ |
1545 |
goto T624;} |
goto T621;} |
1546 |
if(!((caadr((V197)))==(VV[35]))){ |
if(!((CMPcaadr((V222)))==(VV[35]))){ |
1547 |
goto T624;} |
goto T621;} |
1548 |
if(endp_prop(cdadr((V197)))){ |
if((CMPcdadr((V222)))==Cnil){ |
1549 |
goto T624;} |
goto T621;} |
1550 |
if(!(type_of(cadadr((V197)))==t_symbol)){ |
if(!(type_of(CMPcadadr((V222)))==t_symbol)){ |
1551 |
goto T624;} |
goto T621;} |
1552 |
if(!(endp_prop(cddadr((V197))))){ |
if(!((CMPcddadr((V222)))==Cnil)){ |
1553 |
goto T624;} |
goto T621;} |
1554 |
if(endp_prop(cddr((V197)))){ |
if((CMPcddr((V222)))==Cnil){ |
1555 |
goto T624;} |
goto T621;} |
1556 |
if(!(type_of(caddr((V197)))==t_fixnum)){ |
if(!(type_of(CMPcaddr((V222)))==t_fixnum)){ |
1557 |
goto T624;} |
goto T621;} |
1558 |
if(!(endp_prop(cdddr((V197))))){ |
if(!((CMPcdddr((V222)))==Cnil)){ |
1559 |
goto T624;} |
goto T621;} |
1560 |
{object V198 = (*(LnkLI149))(car((V197)),cadadr((V197)),caddr((V197))); |
{object V223 = (*(LnkLI149))(CMPcar((V222)),CMPcadadr((V222)),CMPcaddr((V222))); |
1561 |
VMR24(V198)} |
VMR24(V223)} |
1562 |
goto T624; |
goto T621; |
1563 |
T624:; |
T621:; |
1564 |
{object V199; |
{object V224; |
1565 |
V199= (VFUN_NARGS=0,(*(LnkLI127))()); |
V224= (VFUN_NARGS=0,(*(LnkLI127))()); |
1566 |
{object V200 = list(4,VV[49],(V199),VV[74],(*(LnkLI142))((V197),(V199))); |
{object V225 = list(4,VV[49],(V224),VV[74],(*(LnkLI142))((V222),(V224))); |
1567 |
VMR24(V200)}} |
VMR24(V225)}} |
1568 |
return Cnil; |
return Cnil; |
1569 |
} |
} |
1570 |
/* local entry for function C1STRUCTURE-REF1 */ |
/* local entry for function C1STRUCTURE-REF1 */ |
1571 |
|
|
1572 |
static object LI25(V204,V205,V206) |
static object LI25(V229,V230,V231) |
1573 |
|
|
1574 |
object V204;object V205;object V206; |
object V229;object V230;object V231; |
1575 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
1576 |
goto TTL; |
goto TTL; |
1577 |
TTL:; |
TTL:; |
1578 |
{object V207; |
{object V232; |
1579 |
V207= (VFUN_NARGS=0,(*(LnkLI127))()); |
V232= (VFUN_NARGS=0,(*(LnkLI127))()); |
1580 |
if((symbol_value(VV[69]))==Cnil){ |
if(((VV[69]->s.s_dbind))==Cnil){ |
1581 |
goto T649;} |
goto T646;} |
1582 |
V208= list(4,VV[74],(V204),list(2,VV[35],(V205)),(V206)); |
V233= list(4,VV[74],(V229),list(2,VV[35],(V230)),(V231)); |
1583 |
{object V209 = (*(LnkLI123))(/* INLINE-ARGS */V208); |
{object V234 = (*(LnkLI123))(/* INLINE-ARGS */V233); |
1584 |
VMR25(V209)} |
VMR25(V234)} |
1585 |
goto T649; |
goto T646; |
1586 |
T649:; |
T646:; |
1587 |
{object V210; |
{object V235; |
1588 |
object V211; |
object V236; |
1589 |
V210= get((V205),VV[76],Cnil); |
{object V237 =((V230))->s.s_plist; |
1590 |
V212= structure_ref((V210),VV[76],2); |
object ind= VV[76]; |
1591 |
V211= aref1(/* INLINE-ARGS */V212,fixint((V206))); |
while(V237!=Cnil){ |
1592 |
V213= aref1(symbol_value(VV[75]),fixint((V211))); |
if(V237->c.c_car==ind){ |
1593 |
V214= (*(LnkLI170))(/* INLINE-ARGS */V213); |
V235= (V237->c.c_cdr->c.c_car); |
1594 |
(void)(structure_set((V207),VV[25],2,/* INLINE-ARGS */V214)); |
goto T648; |
1595 |
V215= (*(LnkLI169))((V204),(V207)); |
}else V237=V237->c.c_cdr->c.c_cdr;} |
1596 |
V216= (*(LnkLI171))((V205)); |
V235= Cnil;} |
1597 |
{object V217 = list(6,VV[77],(V207),/* INLINE-ARGS */V215,/* INLINE-ARGS */V216,(V206),(V210)); |
goto T648; |
1598 |
VMR25(V217)}}} |
T648:; |
1599 |
|
V236= aref1(STREF(object,(V235),8),fix((V231))); |
1600 |
|
V238= aref1((VV[75]->s.s_dbind),fix((V236))); |
1601 |
|
V239= (*(LnkLI170))(/* INLINE-ARGS */V238); |
1602 |
|
V240= Ct; |
1603 |
|
STSET(object,(V232),8, /* INLINE-ARGS */V239); |
1604 |
|
(void)(/* INLINE-ARGS */V239); |
1605 |
|
V241= (*(LnkLI169))((V229),(V232)); |
1606 |
|
V242= (*(LnkLI171))((V230)); |
1607 |
|
{object V243 = list(6,VV[77],(V232),/* INLINE-ARGS */V241,/* INLINE-ARGS */V242,(V231),(V235)); |
1608 |
|
VMR25(V243)}}} |
1609 |
base[0]=base[0]; |
base[0]=base[0]; |
1610 |
return Cnil; |
return Cnil; |
1611 |
} |
} |
1612 |
/* local entry for function COERCE-LOC-STRUCTURE-REF */ |
/* local entry for function COERCE-LOC-STRUCTURE-REF */ |
1613 |
|
|
1614 |
static object LI26(V220,V221) |
static object LI26(V246,V247) |
1615 |
|
|
1616 |
object V220;object V221; |
object V246;object V247; |
1617 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
1618 |
goto TTL; |
goto TTL; |
1619 |
TTL:; |
TTL:; |
1620 |
{object V222; |
{object V248; |
1621 |
V222= cdr((V220)); |
V248= CMPcdr((V246)); |
1622 |
{object V223; |
{object V249; |
1623 |
object V224; |
object V250; |
1624 |
V223= cadddr((V222)); |
V249= CMPcadddr((V248)); |
1625 |
V224= caddr((V222)); |
V250= CMPcaddr((V248)); |
1626 |
if(((V223))==Cnil){ |
if(((V249))==Cnil){ |
1627 |
goto T658;} |
goto T655;} |
1628 |
{object V225; |
{object V251; |
1629 |
register object V226; |
register object V252; |
1630 |
V227= structure_ref((V223),VV[76],2); |
V251= aref1(STREF(object,(V249),8),fix((V250))); |
1631 |
V225= aref1(/* INLINE-ARGS */V227,fixint((V224))); |
V252= aref1((VV[75]->s.s_dbind),fix((V251))); |
1632 |
V226= aref1(symbol_value(VV[75]),fixint((V225))); |
V253= (*(LnkLI170))((V252)); |
1633 |
V228= (*(LnkLI170))((V226)); |
V254= (*(LnkLI172))(/* INLINE-ARGS */V253); |
1634 |
V229= (*(LnkLI172))(/* INLINE-ARGS */V228); |
if(!((/* INLINE-ARGS */V254)==(VV[78]))){ |
1635 |
if(!((/* INLINE-ARGS */V229)==(VV[78]))){ |
goto T659;} |
1636 |
|
if(!(eql((V251),small_fixnum(0)))){ |
1637 |
goto T662;} |
goto T662;} |
1638 |
if(!(eql((V225),small_fixnum(0)))){ |
goto T659; |
|
goto T665;} |
|
1639 |
goto T662; |
goto T662; |
1640 |
goto T665; |
T662:; |
|
T665:; |
|
1641 |
base[5]= VV[79]; |
base[5]= VV[79]; |
1642 |
base[6]= (V226); |
base[6]= (V252); |
1643 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1644 |
Lerror(); |
Lerror(); |
1645 |
vs_top=sup; |
vs_top=sup; |
1646 |
goto T662; |
goto T659; |
1647 |
T662:; |
T659:; |
1648 |
V230= car((V220)); |
V255= CMPcar((V246)); |
1649 |
V231= (*(LnkLI170))((V226)); |
V256= (*(LnkLI170))((V252)); |
1650 |
(void)(structure_set(/* INLINE-ARGS */V230,VV[25],2,/* INLINE-ARGS */V231)); |
V257= Ct; |
1651 |
V232= (*(LnkLI170))((V226)); |
STSET(object,/* INLINE-ARGS */V255,8, /* INLINE-ARGS */V256); |
1652 |
V233= (*(LnkLI172))(/* INLINE-ARGS */V232); |
(void)(/* INLINE-ARGS */V256); |
1653 |
V234= make_cons(car((V222)),Cnil); |
V258= (*(LnkLI170))((V252)); |
1654 |
V235= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V234,VV[81])); |
V259= (*(LnkLI172))(/* INLINE-ARGS */V258); |
1655 |
V236= list(4,/* INLINE-ARGS */V233,small_fixnum(0),VV[80],list(4,car(/* INLINE-ARGS */V235),VV[82],(V224),(V223))); |
V260= make_cons(CMPcar((V248)),Cnil); |
1656 |
V237= (*(LnkLI170))((V221)); |
V261= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V260,VV[81])); |
1657 |
{object V238 = (*(LnkLI173))(/* INLINE-ARGS */V236,/* INLINE-ARGS */V237); |
V262= list(4,/* INLINE-ARGS */V259,small_fixnum(0),VV[80],list(4,CMPcar(/* INLINE-ARGS */V261),VV[82],(V250),(V249))); |
1658 |
VMR26(V238)}} |
V263= (*(LnkLI170))((V247)); |
1659 |
goto T658; |
{object V264 = (*(LnkLI173))(/* INLINE-ARGS */V262,/* INLINE-ARGS */V263); |
1660 |
T658:; |
VMR26(V264)}} |
1661 |
{object V239 = (*(LnkLI175))(); |
goto T655; |
1662 |
VMR26(V239)}}} |
T655:; |
1663 |
|
{object V265 = (*(LnkLI175))(); |
1664 |
|
VMR26(V265)}}} |
1665 |
base[0]=base[0]; |
base[0]=base[0]; |
1666 |
return Cnil; |
return Cnil; |
1667 |
} |
} |
1668 |
/* local entry for function C2STRUCTURE-REF */ |
/* local entry for function C2STRUCTURE-REF */ |
1669 |
|
|
1670 |
static object LI27(V244,V245,V246,V247) |
static object LI27(V270,V271,V272,V273) |
1671 |
|
|
1672 |
object V244;object V245;object V246;object V247; |
object V270;object V271;object V272;object V273; |
1673 |
{ VMB27 VMS27 VMV27 |
{ VMB27 VMS27 VMV27 |
1674 |
bds_check; |
bds_check; |
1675 |
goto TTL; |
goto TTL; |
1676 |
TTL:; |
TTL:; |
1677 |
bds_bind(VV[63],symbol_value(VV[63])); |
bds_bind(VV[63],(VV[63]->s.s_dbind)); |
1678 |
bds_bind(VV[56],small_fixnum(0)); |
bds_bind(VV[56],small_fixnum(0)); |
1679 |
{object V248; |
{object V274; |
1680 |
object V249; |
object V275; |
1681 |
V250= make_cons((V244),Cnil); |
V276= make_cons((V270),Cnil); |
1682 |
V251= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V250,VV[83])); |
V277= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V276,VV[83])); |
1683 |
V248= car(/* INLINE-ARGS */V251);{object V252; |
V274= CMPcar(/* INLINE-ARGS */V277);{object V278; |
1684 |
V252= symbol_value(VV[75]); |
V278= (VV[75]->s.s_dbind); |
1685 |
V253= structure_ref((V247),VV[76],2); |
V279= aref1(STREF(object,(V273),8),fix((V272))); |
1686 |
V254= aref1(/* INLINE-ARGS */V253,fixint((V246))); |
V275= aref1(V278,fix(/* INLINE-ARGS */V279));} |
1687 |
V249= aref1(V252,fixint(/* INLINE-ARGS */V254));} |
V280= (*(LnkLI170))((V275)); |
1688 |
V255= (*(LnkLI170))((V249)); |
V281= (*(LnkLI172))(/* INLINE-ARGS */V280); |
1689 |
V256= (*(LnkLI172))(/* INLINE-ARGS */V255); |
V282= list(4,/* INLINE-ARGS */V281,small_fixnum(0),VV[80],list(4,(V274),(V271),(V272),(V273))); |
1690 |
V257= list(4,/* INLINE-ARGS */V256,small_fixnum(0),VV[80],list(4,(V248),(V245),(V246),(V247))); |
(void)((VFUN_NARGS=1,(*(LnkLI162))(/* INLINE-ARGS */V282)));} |
1691 |
(void)((VFUN_NARGS=1,(*(LnkLI162))(/* INLINE-ARGS */V257)));} |
{object V283 = (*(LnkLI163))(); |
|
{object V258 = (*(LnkLI163))(); |
|
1692 |
bds_unwind1; |
bds_unwind1; |
1693 |
bds_unwind1; |
bds_unwind1; |
1694 |
VMR27(V258)} |
VMR27(V283)} |
1695 |
base[0]=base[0]; |
base[0]=base[0]; |
1696 |
return Cnil; |
return Cnil; |
1697 |
} |
} |
1698 |
/* local entry for function MY-CALL */ |
/* local entry for function MY-CALL */ |
1699 |
|
|
1700 |
static object LI28(V263,V264,V265,V266) |
static object LI28(V288,V289,V290,V291) |
1701 |
|
|
1702 |
object V263;object V264;object V265;object V266; |
object V288;object V289;object V290;object V291; |
1703 |
{ VMB28 VMS28 VMV28 |
{ VMB28 VMS28 VMV28 |
1704 |
goto TTL; |
goto TTL; |
1705 |
TTL:; |
TTL:; |
1706 |
{object V267; |
{object V292; |
1707 |
object V268; |
object V293; |
1708 |
V267= structure_ref((V266),VV[76],2); |
V292= STREF(object,(V291),8); |
1709 |
V268= structure_ref((V266),VV[76],8); |
V293= STREF(object,(V291),32); |
1710 |
if((symbol_value(VV[69]))==Cnil){ |
if(((VV[69]->s.s_dbind))==Cnil){ |
1711 |
goto T677;} |
goto T674;} |
1712 |
{object V269 = (*(LnkLI175))(); |
{object V294 = (*(LnkLI175))(); |
1713 |
VMR28(V269)} |
VMR28(V294)} |
1714 |
goto T677; |
goto T674; |
1715 |
T677:; |
T674:; |
1716 |
princ_str("STREF(",VV[62]);{object V270; |
princ_str("STREF(",VV[62]);{object V295; |
1717 |
V270= symbol_value(VV[75]); |
V295= (VV[75]->s.s_dbind); |
1718 |
V271= aref1((V267),fixint((V265))); |
V296= aref1((V292),fix((V290))); |
1719 |
V272= aref1(V270,fixint(/* INLINE-ARGS */V271)); |
V297= aref1(V295,fix(/* INLINE-ARGS */V296)); |
1720 |
V273= (*(LnkLI176))(/* INLINE-ARGS */V272); |
V298= (*(LnkLI176))(/* INLINE-ARGS */V297); |
1721 |
(void)((*(LnkLI165))(/* INLINE-ARGS */V273));} |
(void)((*(LnkLI165))(/* INLINE-ARGS */V298));} |
1722 |
princ_char(44,VV[62]); |
princ_char(44,VV[62]); |
1723 |
(void)((*(LnkLI165))((V263))); |
(void)((*(LnkLI165))((V288))); |
1724 |
princ_char(44,VV[62]); |
princ_char(44,VV[62]); |
1725 |
V274= aref1((V268),fixint((V265))); |
V299= aref1((V293),fix((V290))); |
1726 |
(void)((*(LnkLI165))(/* INLINE-ARGS */V274)); |
(void)((*(LnkLI165))(/* INLINE-ARGS */V299)); |
1727 |
princ_char(41,VV[62]); |
princ_char(41,VV[62]); |
1728 |
{object V275 = Cnil; |
{object V300 = Cnil; |
1729 |
VMR28(V275)}} |
VMR28(V300)}} |
1730 |
base[0]=base[0]; |
base[0]=base[0]; |
1731 |
return Cnil; |
return Cnil; |
1732 |
} |
} |
1733 |
/* local entry for function C1STRUCTURE-SET */ |
/* local entry for function C1STRUCTURE-SET */ |
1734 |
|
|
1735 |
static object LI29(V277) |
static object LI29(V302) |
1736 |
|
|
1737 |
register object V277; |
register object V302; |
1738 |
{ VMB29 VMS29 VMV29 |
{ VMB29 VMS29 VMV29 |
1739 |
goto TTL; |
goto TTL; |
1740 |
TTL:; |
TTL:; |
1741 |
{register object V278; |
{register object V303; |
1742 |
V278= (VFUN_NARGS=0,(*(LnkLI127))()); |
V303= (VFUN_NARGS=0,(*(LnkLI127))()); |
1743 |
if(endp_prop((V277))){ |
if(((V302))==Cnil){ |
1744 |
goto T688;} |
goto T685;} |
1745 |
if((symbol_value(VV[69]))!=Cnil){ |
if(((VV[69]->s.s_dbind))!=Cnil){ |
1746 |
goto T688;} |
goto T685;} |
1747 |
if(endp_prop(cdr((V277)))){ |
if((CMPcdr((V302)))==Cnil){ |
1748 |
goto T688;} |
goto T685;} |
1749 |
if(!(type_of(cadr((V277)))==t_cons)){ |
if(!(type_of(CMPcadr((V302)))==t_cons)){ |
1750 |
goto T688;} |
goto T685;} |
1751 |
if(!((caadr((V277)))==(VV[35]))){ |
if(!((CMPcaadr((V302)))==(VV[35]))){ |
1752 |
goto T688;} |
goto T685;} |
1753 |
if(endp_prop(cdadr((V277)))){ |
if((CMPcdadr((V302)))==Cnil){ |
1754 |
goto T688;} |
goto T685;} |
1755 |
if(!(type_of(cadadr((V277)))==t_symbol)){ |
if(!(type_of(CMPcadadr((V302)))==t_symbol)){ |
1756 |
goto T688;} |
goto T685;} |
1757 |
if(!(endp_prop(cddadr((V277))))){ |
if(!((CMPcddadr((V302)))==Cnil)){ |
1758 |
goto T688;} |
goto T685;} |
1759 |
if(endp_prop(cddr((V277)))){ |
if((CMPcddr((V302)))==Cnil){ |
1760 |
goto T688;} |
goto T685;} |
1761 |
if(!(type_of(caddr((V277)))==t_fixnum)){ |
if(!(type_of(CMPcaddr((V302)))==t_fixnum)){ |
1762 |
goto T688;} |
goto T685;} |
1763 |
if(endp_prop(cdddr((V277)))){ |
if((CMPcdddr((V302)))==Cnil){ |
1764 |
goto T688;} |
goto T685;} |
1765 |
if(!(endp_prop(cddddr((V277))))){ |
if(!((CMPcddddr((V302)))==Cnil)){ |
1766 |
goto T688;} |
goto T685;} |
1767 |
{object V279; |
{object V304; |
1768 |
object V280; |
object V305; |
1769 |
V279= (*(LnkLI123))(car((V277))); |
V304= (*(LnkLI123))(CMPcar((V302))); |
1770 |
V280= (*(LnkLI123))(cadddr((V277))); |
V305= (*(LnkLI123))(CMPcadddr((V302))); |
1771 |
(void)((*(LnkLI124))((V278),cadr((V279)))); |
(void)((*(LnkLI124))((V303),CMPcadr((V304)))); |
1772 |
(void)((*(LnkLI124))((V278),cadr((V280)))); |
(void)((*(LnkLI124))((V303),CMPcadr((V305)))); |
1773 |
V281= structure_ref(cadr((V280)),VV[25],2); |
V306= Ct; |
1774 |
(void)(structure_set((V278),VV[25],2,/* INLINE-ARGS */V281)); |
STSET(object,(V303),8, STREF(object,CMPcadr((V305)),8)); |
1775 |
V282= (*(LnkLI171))(cadadr((V277))); |
(void)(STREF(object,CMPcadr((V305)),8)); |
1776 |
V283= caddr((V277)); |
V307= (*(LnkLI171))(CMPcadadr((V302))); |
1777 |
V284= get(cadadr((V277)),VV[76],Cnil); |
V308= CMPcaddr((V302)); |
1778 |
{object V285 = list(7,VV[84],(V278),(V279),/* INLINE-ARGS */V282,/* INLINE-ARGS */V283,(V280),V284); |
{object V310 =(CMPcadadr((V302)))->s.s_plist; |
1779 |
VMR29(V285)}} |
object ind= VV[76]; |
1780 |
goto T688; |
while(V310!=Cnil){ |
1781 |
T688:; |
if(V310->c.c_car==ind){ |
1782 |
{object V286 = list(4,VV[49],(V278),VV[85],(*(LnkLI142))((V277),(V278))); |
V309= (V310->c.c_cdr->c.c_car); |
1783 |
VMR29(V286)}} |
goto T714; |
1784 |
|
}else V310=V310->c.c_cdr->c.c_cdr;} |
1785 |
|
V309= Cnil;} |
1786 |
|
goto T714; |
1787 |
|
T714:; |
1788 |
|
{object V311 = list(7,VV[84],(V303),(V304),/* INLINE-ARGS */V307,/* INLINE-ARGS */V308,(V305),V309); |
1789 |
|
VMR29(V311)}} |
1790 |
|
goto T685; |
1791 |
|
T685:; |
1792 |
|
{object V312 = list(4,VV[49],(V303),VV[85],(*(LnkLI142))((V302),(V303))); |
1793 |
|
VMR29(V312)}} |
1794 |
base[0]=base[0]; |
base[0]=base[0]; |
1795 |
return Cnil; |
return Cnil; |
1796 |
} |
} |
1797 |
/* local entry for function C2STRUCTURE-SET */ |
/* local entry for function C2STRUCTURE-SET */ |
1798 |
|
|
1799 |
static object LI30(V292,V293,V294,V295,V296) |
static object LI30(V318,V319,V320,V321,V322) |
1800 |
|
|
1801 |
object V292;object V293;object V294;object V295;object V296; |
object V318;object V319;object V320;object V321;object V322; |
1802 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
1803 |
bds_check; |
bds_check; |
1804 |
goto TTL; |
goto TTL; |
1805 |
TTL:; |
TTL:; |
1806 |
{object V297; |
{object V323; |
1807 |
V297= Cnil; |
V323= Cnil; |
1808 |
bds_bind(VV[63],symbol_value(VV[63])); |
bds_bind(VV[63],(VV[63]->s.s_dbind)); |
1809 |
bds_bind(VV[56],small_fixnum(0)); |
bds_bind(VV[56],small_fixnum(0)); |
1810 |
{object V298; |
{object V324; |
1811 |
object V299; |
object V325; |
1812 |
object V300; |
object V326; |
1813 |
object V301; |
object V327; |
1814 |
object V302; |
object V328; |
1815 |
object V303; |
object V329; |
1816 |
V298= structure_ref((V296),VV[76],2);{object V304; |
V324= STREF(object,(V322),8);{object V330; |
1817 |
V304= symbol_value(VV[75]); |
V330= (VV[75]->s.s_dbind); |
1818 |
V305= aref1((V298),fixint((V294))); |
V331= aref1((V324),fix((V320))); |
1819 |
V299= aref1(V304,fixint(/* INLINE-ARGS */V305));} |
V325= aref1(V330,fix(/* INLINE-ARGS */V331));} |
1820 |
V300= structure_ref((V296),VV[76],8); |
V326= STREF(object,(V322),32); |
1821 |
V301= (*(LnkLI170))((V299)); |
V327= (*(LnkLI170))((V325)); |
1822 |
V302= Cnil; |
V328= Cnil; |
1823 |
V303= Cnil; |
V329= Cnil; |
1824 |
V306= (VFUN_NARGS=0,(*(LnkLI127))()); |
V332= (VFUN_NARGS=0,(*(LnkLI127))()); |
1825 |
V307= list(3,(V292),(V295),list(4,VV[49],/* INLINE-ARGS */V306,VV[86],Cnil)); |
V333= list(3,(V318),(V321),list(4,VV[49],/* INLINE-ARGS */V332,VV[86],Cnil)); |
1826 |
if(!(((V299))==(Ct))){ |
if(!(((V325))==(Ct))){ |
1827 |
goto T730;} |
goto T727;} |
1828 |
V308= VV[87]; |
V334= VV[87]; |
1829 |
goto T728; |
goto T725; |
1830 |
goto T730; |
goto T727; |
1831 |
T730:; |
T727:; |
1832 |
V308= list(3,Ct,(V301),Ct); |
V334= list(3,Ct,(V327),Ct); |
1833 |
goto T728; |
goto T725; |
1834 |
T728:; |
T725:; |
1835 |
V297= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V307,V308)); |
V323= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V333,V334)); |
1836 |
V302= car((V297)); |
V328= CMPcar((V323)); |
1837 |
V303= cadr((V297)); |
V329= CMPcadr((V323)); |
1838 |
if((symbol_value(VV[69]))==Cnil){ |
if(((VV[69]->s.s_dbind))==Cnil){ |
1839 |
goto T736;} |
goto T733;} |
1840 |
(void)((*(LnkLI175))()); |
(void)((*(LnkLI175))()); |
1841 |
goto T736; |
goto T733; |
1842 |
T736:; |
T733:; |
1843 |
princ_str("\n STSET(",VV[62]); |
princ_str("\n STSET(",VV[62]); |
1844 |
V309= (*(LnkLI176))((V299)); |
V335= (*(LnkLI176))((V325)); |
1845 |
(void)((*(LnkLI165))(/* INLINE-ARGS */V309)); |
(void)((*(LnkLI165))(/* INLINE-ARGS */V335)); |
1846 |
princ_char(44,VV[62]); |
princ_char(44,VV[62]); |
1847 |
(void)((*(LnkLI165))((V302))); |
(void)((*(LnkLI165))((V328))); |
1848 |
princ_char(44,VV[62]); |
princ_char(44,VV[62]); |
1849 |
V310= aref1((V300),fixint((V294))); |
V336= aref1((V326),fix((V320))); |
1850 |
(void)((*(LnkLI165))(/* INLINE-ARGS */V310)); |
(void)((*(LnkLI165))(/* INLINE-ARGS */V336)); |
1851 |
princ_str(", ",VV[62]); |
princ_str(", ",VV[62]); |
1852 |
(void)((*(LnkLI165))((V303))); |
(void)((*(LnkLI165))((V329))); |
1853 |
princ_str(");",VV[62]); |
princ_str(");",VV[62]); |
1854 |
V311= (*(LnkLI172))((V301)); |
V337= (*(LnkLI172))((V327)); |
1855 |
V312= list(4,/* INLINE-ARGS */V311,small_fixnum(0),VV[88],make_cons((V303),Cnil)); |
V338= list(4,/* INLINE-ARGS */V337,small_fixnum(0),VV[88],make_cons((V329),Cnil)); |
1856 |
(void)((VFUN_NARGS=1,(*(LnkLI162))(/* INLINE-ARGS */V312))); |
(void)((VFUN_NARGS=1,(*(LnkLI162))(/* INLINE-ARGS */V338))); |
1857 |
{object V313 = (*(LnkLI163))(); |
{object V339 = (*(LnkLI163))(); |
1858 |
bds_unwind1; |
bds_unwind1; |
1859 |
bds_unwind1; |
bds_unwind1; |
1860 |
VMR30(V313)}}} |
VMR30(V339)}}} |
1861 |
base[0]=base[0]; |
base[0]=base[0]; |
1862 |
return Cnil; |
return Cnil; |
1863 |
} |
} |
1864 |
/* local entry for function C1CONSTANT-VALUE */ |
/* local entry for function C1CONSTANT-VALUE */ |
1865 |
|
|
1866 |
static object LI31(V316,V317) |
static object LI31(V342,V343) |
1867 |
|
|
1868 |
register object V316;object V317; |
register object V342;object V343; |
1869 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
1870 |
goto TTL; |
goto TTL; |
1871 |
TTL:; |
TTL:; |
1872 |
if(!(((V316))==(Cnil))){ |
if(!(((V342))==(Cnil))){ |
1873 |
|
goto T748;} |
1874 |
|
{object V344 = (*(LnkLI125))(); |
1875 |
|
VMR31(V344)} |
1876 |
|
goto T748; |
1877 |
|
T748:; |
1878 |
|
if(!(((V342))==(Ct))){ |
1879 |
goto T751;} |
goto T751;} |
1880 |
{object V318 = (*(LnkLI125))(); |
{object V345 = (*(LnkLI126))(); |
1881 |
VMR31(V318)} |
VMR31(V345)} |
1882 |
goto T751; |
goto T751; |
1883 |
T751:; |
T751:; |
1884 |
if(!(((V316))==(Ct))){ |
if(!(type_of((V342))==t_fixnum)){ |
1885 |
goto T754;} |
goto T754;} |
1886 |
{object V319 = (*(LnkLI126))(); |
V346= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[89])); |
1887 |
VMR31(V319)} |
V348= (*(LnkLI177))((V342)); |
1888 |
goto T754; |
if(number_compare(/* INLINE-ARGS */V348,VV[91])>=0){ |
|
T754:; |
|
|
if(!(type_of((V316))==t_fixnum)){ |
|
1889 |
goto T757;} |
goto T757;} |
1890 |
V320= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[89])); |
V347= Cnil; |
1891 |
V322= (*(LnkLI177))((V316)); |
goto T756; |
|
if(number_compare(/* INLINE-ARGS */V322,VV[91])>=0){ |
|
|
goto T760;} |
|
|
V321= Cnil; |
|
|
goto T759; |
|
|
goto T760; |
|
|
T760:; |
|
|
V321= (*(LnkLI129))((V316)); |
|
|
goto T759; |
|
|
T759:; |
|
|
{object V323 = list(3,VV[1],/* INLINE-ARGS */V320,list(3,VV[90],V321,(V316))); |
|
|
VMR31(V323)} |
|
1892 |
goto T757; |
goto T757; |
1893 |
T757:; |
T757:; |
1894 |
if(!(type_of((V316))==t_character)){ |
V347= (*(LnkLI129))((V342)); |
1895 |
goto T763;} |
goto T756; |
1896 |
V324= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[44])); |
T756:; |
1897 |
V325= (*(LnkLI129))((V316)); |
{object V349 = list(3,VV[1],/* INLINE-ARGS */V346,list(3,VV[90],V347,(V342))); |
1898 |
base[0]= (V316); |
VMR31(V349)} |
1899 |
|
goto T754; |
1900 |
|
T754:; |
1901 |
|
if(!(type_of((V342))==t_character)){ |
1902 |
|
goto T760;} |
1903 |
|
V350= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[44])); |
1904 |
|
V351= (*(LnkLI129))((V342)); |
1905 |
|
base[0]= (V342); |
1906 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1907 |
Lchar_code(); |
Lchar_code(); |
1908 |
vs_top=sup; |
vs_top=sup; |
1909 |
V326= vs_base[0]; |
V352= vs_base[0]; |
1910 |
{object V327 = list(3,VV[1],/* INLINE-ARGS */V324,list(3,VV[92],/* INLINE-ARGS */V325,V326)); |
{object V353 = list(3,VV[1],/* INLINE-ARGS */V350,list(3,VV[92],/* INLINE-ARGS */V351,V352)); |
1911 |
VMR31(V327)} |
VMR31(V353)} |
1912 |
goto T763; |
goto T760; |
1913 |
T763:; |
T760:; |
1914 |
if(!(type_of((V316))==t_longfloat)){ |
if(!(type_of((V342))==t_longfloat)){ |
1915 |
goto T768;} |
goto T765;} |
1916 |
{object V328; |
{object V354; |
1917 |
object V329; |
object V355; |
1918 |
V328= Cnil; |
V354= Cnil; |
1919 |
V329= Cnil; |
V355= Cnil; |
1920 |
{register object x= (V316),V331= symbol_value(VV[93]); |
{register object x= (V342),V357= (VV[93]->s.s_dbind); |
1921 |
while(!endp(V331)) |
while(V357!=Cnil) |
1922 |
if(type_of(V331->c.c_car)==t_cons &&eql(x,V331->c.c_car->c.c_car)){ |
if(eql(x,V357->c.c_car->c.c_car) &&V357->c.c_car != Cnil){ |
1923 |
V330= (V331->c.c_car); |
V356= (V357->c.c_car); |
1924 |
goto T774; |
goto T771; |
1925 |
}else V331=V331->c.c_cdr; |
}else V357=V357->c.c_cdr; |
1926 |
V330= Cnil;} |
V356= Cnil;} |
1927 |
goto T774; |
goto T771; |
1928 |
T774:; |
T771:; |
1929 |
V328= cadr(V330); |
V354= CMPcadr(V356); |
1930 |
if(((V328))!=Cnil){ |
if(((V354))!=Cnil){ |
1931 |
goto T770;} |
goto T767;} |
1932 |
V329= (*(LnkLI177))((V316)); |
V355= (*(LnkLI177))((V342)); |
1933 |
base[0]= VV[94]; |
base[0]= VV[94]; |
1934 |
base[1]= small_fixnum(2); |
base[1]= small_fixnum(2); |
1935 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1936 |
Ldivide(); |
Ldivide(); |
1937 |
vs_top=sup; |
vs_top=sup; |
1938 |
V332= vs_base[0]; |
V358= vs_base[0]; |
1939 |
if(!(number_compare((V329),V332)>0)){ |
if(!(number_compare((V355),V358)>0)){ |
1940 |
goto T776;} |
goto T773;} |
1941 |
base[0]= (V316); |
base[0]= (V342); |
1942 |
base[1]= VV[94]; |
base[1]= VV[94]; |
1943 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1944 |
Ldivide(); |
Ldivide(); |
1945 |
vs_top=sup; |
vs_top=sup; |
1946 |
V333= vs_base[0]; |
V359= vs_base[0]; |
1947 |
V334= list(4,VV[5],VV[19],V333,VV[95]); |
V360= list(4,VV[5],VV[19],V359,VV[95]); |
1948 |
if(((*(LnkLI123))(/* INLINE-ARGS */V334))!=Cnil){ |
if(((*(LnkLI123))(/* INLINE-ARGS */V360))!=Cnil){ |
1949 |
goto T775;} |
goto T772;} |
1950 |
goto T776; |
goto T773; |
1951 |
T776:; |
T773:; |
1952 |
V335 = make_longfloat((double)(4.94065645841246540e-324)*(double)(1.0000000e+20)); |
V361 = make_longfloat((double)(4.94065645841246540e-324)*(double)(1.0000000e+20)); |
1953 |
if(!(number_compare((V329),V335)<0)){ |
if(!(number_compare((V355),V361)<0)){ |
1954 |
goto T770;} |
goto T767;} |
1955 |
base[0]= (V316); |
base[0]= (V342); |
1956 |
base[1]= VV[96]; |
base[1]= VV[96]; |
1957 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1958 |
Ldivide(); |
Ldivide(); |
1959 |
vs_top=sup; |
vs_top=sup; |
1960 |
V336= vs_base[0]; |
V362= vs_base[0]; |
1961 |
V337= list(4,VV[5],VV[19],V336,VV[98]); |
V363= list(4,VV[5],VV[19],V362,VV[98]); |
1962 |
if(((*(LnkLI123))(/* INLINE-ARGS */V337))==Cnil){ |
if(((*(LnkLI123))(/* INLINE-ARGS */V363))==Cnil){ |
1963 |
goto T770;} |
goto T767;} |
1964 |
goto T775; |
goto T772; |
1965 |
T775:; |
T772:; |
1966 |
{object V338; |
{object V364; |
1967 |
V328= symbol_value(VV[99]); |
V354= (VV[99]->s.s_dbind); |
1968 |
V338= list(2,(V316),(V328)); |
V364= list(2,(V342),(V354)); |
1969 |
setq(VV[93],make_cons((V338),symbol_value(VV[93])));} |
(VV[93]->s.s_dbind)= make_cons((V364),(VV[93]->s.s_dbind));} |
1970 |
goto T770; |
goto T767; |
1971 |
T770:; |
T767:; |
1972 |
V339= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[100])); |
V365= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[100])); |
1973 |
if((V328)!=Cnil){ |
if((V354)!=Cnil){ |
1974 |
V340= (V328); |
V366= (V354); |
1975 |
goto T796;} |
goto T793;} |
1976 |
V340= (*(LnkLI129))((V316)); |
V366= (*(LnkLI129))((V342)); |
1977 |
goto T796; |
goto T793; |
1978 |
T796:; |
T793:; |
1979 |
{object V341 = list(3,VV[1],/* INLINE-ARGS */V339,list(3,VV[101],V340,(V316))); |
{object V367 = list(3,VV[1],/* INLINE-ARGS */V365,list(3,VV[101],V366,(V342))); |
1980 |
VMR31(V341)}} |
VMR31(V367)}} |
1981 |
goto T768; |
goto T765; |
1982 |
T768:; |
T765:; |
1983 |
if(!(type_of((V316))==t_shortfloat)){ |
if(!(type_of((V342))==t_shortfloat)){ |
1984 |
|
goto T795;} |
1985 |
|
V368= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[102])); |
1986 |
|
V369= (*(LnkLI129))((V342)); |
1987 |
|
{object V370 = list(3,VV[1],/* INLINE-ARGS */V368,list(3,VV[103],/* INLINE-ARGS */V369,(V342))); |
1988 |
|
VMR31(V370)} |
1989 |
|
goto T795; |
1990 |
|
T795:; |
1991 |
|
if(((V343))==Cnil){ |
1992 |
goto T798;} |
goto T798;} |
1993 |
V342= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[102])); |
V371= (*(LnkLI128))((V342)); |
1994 |
V343= (*(LnkLI129))((V316)); |
V372= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],/* INLINE-ARGS */V371)); |
1995 |
{object V344 = list(3,VV[1],/* INLINE-ARGS */V342,list(3,VV[103],/* INLINE-ARGS */V343,(V316))); |
{object V373 = list(3,VV[1],/* INLINE-ARGS */V372,list(2,VV[3],(*(LnkLI129))((V342)))); |
1996 |
VMR31(V344)} |
VMR31(V373)} |
1997 |
goto T798; |
goto T798; |
1998 |
T798:; |
T798:; |
1999 |
if(((V317))==Cnil){ |
{object V374 = Cnil; |
2000 |
goto T801;} |
VMR31(V374)} |
|
V345= (*(LnkLI128))((V316)); |
|
|
V346= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],/* INLINE-ARGS */V345)); |
|
|
{object V347 = list(3,VV[1],/* INLINE-ARGS */V346,list(2,VV[3],(*(LnkLI129))((V316)))); |
|
|
VMR31(V347)} |
|
|
goto T801; |
|
|
T801:; |
|
|
{object V348 = Cnil; |
|
|
VMR31(V348)} |
|
2001 |
base[0]=base[0]; |
base[0]=base[0]; |
2002 |
return Cnil; |
return Cnil; |
2003 |
} |
} |
2006 |
static void L32() |
static void L32() |
2007 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2008 |
register object *sup=base+VM32; VC32 |
register object *sup=base+VM32; VC32 |
2009 |
vs_reserve(VM32); |
vs_check; |
|
check_arg(2); |
|
2010 |
vs_top=sup; |
vs_top=sup; |
2011 |
{object V349=base[0]->c.c_cdr; |
{object V375=base[0]->c.c_cdr; |
2012 |
if(endp(V349))invalid_macro_call(); |
base[2]= (V375->c.c_car); |
2013 |
base[2]= (V349->c.c_car); |
V375=V375->c.c_cdr; |
2014 |
V349=V349->c.c_cdr; |
base[3]= (V375->c.c_car); |
2015 |
if(endp(V349))invalid_macro_call(); |
V375=V375->c.c_cdr; |
2016 |
base[3]= (V349->c.c_car); |
base[4]= V375;} |
2017 |
V349=V349->c.c_cdr; |
V376= list(2,VV[35],base[2]); |
2018 |
base[4]= V349;} |
V377= list(2,VV[35],base[2]); |
2019 |
V350= list(2,VV[35],base[2]); |
V378= list(2,VV[35],base[3]); |
2020 |
V351= list(2,VV[35],base[2]); |
V379= list(4,VV[104],/* INLINE-ARGS */V376,list(2,VV[105],list(4,VV[106],/* INLINE-ARGS */V377,/* INLINE-ARGS */V378,list(2,VV[35],base[4]))),VV[107]); |
2021 |
V352= list(2,VV[35],base[3]); |
base[5]= list(3,VV[71],/* INLINE-ARGS */V379,list(2,VV[35],base[2])); |
|
V353= list(4,VV[104],/* INLINE-ARGS */V350,list(2,VV[105],list(4,VV[106],/* INLINE-ARGS */V351,/* INLINE-ARGS */V352,list(2,VV[35],base[4]))),VV[107]); |
|
|
base[5]= list(3,VV[71],/* INLINE-ARGS */V353,list(2,VV[35],base[2])); |
|
2022 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2023 |
return; |
return; |
2024 |
} |
} |
2025 |
/* local entry for function UNDEF-COMPILER-MACRO */ |
/* local entry for function UNDEF-COMPILER-MACRO */ |
2026 |
|
|
2027 |
static object LI33(V355) |
static object LI33(V381) |
2028 |
|
|
2029 |
object V355; |
object V381; |
2030 |
{ VMB33 VMS33 VMV33 |
{ VMB33 VMS33 VMV33 |
2031 |
goto TTL; |
goto TTL; |
2032 |
TTL:; |
TTL:; |
2033 |
{object V356 = remprop((V355),VV[33]); |
{object V382 = remprop((V381),VV[33]); |
2034 |
VMR33(V356)} |
VMR33(V382)} |
2035 |
return Cnil; |
return Cnil; |
2036 |
} |
} |
2037 |
/* macro definition for DEFINE-INLINE-FUNCTION */ |
/* macro definition for DEFINE-INLINE-FUNCTION */ |
2039 |
static void L34() |
static void L34() |
2040 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2041 |
register object *sup=base+VM34; VC34 |
register object *sup=base+VM34; VC34 |
2042 |
vs_reserve(VM34); |
vs_check; |
2043 |
bds_check; |
bds_check; |
|
check_arg(2); |
|
2044 |
vs_top=sup; |
vs_top=sup; |
2045 |
{object V357=base[0]->c.c_cdr; |
{object V383=base[0]->c.c_cdr; |
2046 |
if(endp(V357))invalid_macro_call(); |
base[2]= (V383->c.c_car); |
2047 |
base[2]= (V357->c.c_car); |
V383=V383->c.c_cdr; |
2048 |
V357=V357->c.c_cdr; |
base[3]= (V383->c.c_car); |
2049 |
if(endp(V357))invalid_macro_call(); |
V383=V383->c.c_cdr; |
2050 |
base[3]= (V357->c.c_car); |
base[4]= V383;} |
2051 |
V357=V357->c.c_cdr; |
{register object V384; |
2052 |
base[4]= V357;} |
V384= Cnil; |
2053 |
{register object V358; |
bds_bind(VV[108],(VV[108]->s.s_dbind)); |
2054 |
V358= Cnil; |
{register object V385; |
2055 |
bds_bind(VV[108],symbol_value(VV[108])); |
register object V386; |
2056 |
{register object V359; |
V385= base[3]; |
2057 |
register object V360; |
V386= CMPcar((V385)); |
2058 |
V359= base[3]; |
goto T804; |
2059 |
V360= car((V359)); |
T804:; |
2060 |
goto T807; |
if(!(((V385))==Cnil)){ |
2061 |
T807:; |
goto T805;} |
2062 |
if(!(endp_prop((V359)))){ |
goto T800; |
2063 |
goto T808;} |
goto T805; |
2064 |
goto T803; |
T805:; |
2065 |
goto T808; |
if(!(type_of((V386))==t_symbol)){ |
2066 |
T808:; |
goto T811;} |
2067 |
if(!(type_of((V360))==t_symbol)){ |
{register object x= (V386),V387= VV[109]; |
2068 |
goto T814;} |
while(V387!=Cnil) |
2069 |
{register object x= (V360),V361= VV[109]; |
if(x==(V387->c.c_car)){ |
2070 |
while(!endp(V361)) |
goto T811; |
2071 |
if(x==(V361->c.c_car)){ |
}else V387=V387->c.c_cdr;} |
2072 |
goto T814; |
{register object V388;{object V389; |
2073 |
}else V361=V361->c.c_cdr;} |
{register object V390; |
2074 |
{register object V362;{object V363; |
V390= CMPcar((VV[108]->s.s_dbind)); |
2075 |
{register object V364; |
(VV[108]->s.s_dbind)= CMPcdr((VV[108]->s.s_dbind)); |
2076 |
V364= car((VV[108]->s.s_dbind)); |
V389= (V390);} |
2077 |
(VV[108]->s.s_dbind)= cdr((VV[108]->s.s_dbind)); |
if(V389==Cnil)goto T816; |
2078 |
V363= (V364);} |
V388= V389; |
2079 |
if(V363==Cnil)goto T819; |
goto T815; |
2080 |
V362= V363; |
goto T816; |
2081 |
goto T818; |
T816:;} |
|
goto T819; |
|
|
T819:;} |
|
2082 |
base[8]= VV[110]; |
base[8]= VV[110]; |
2083 |
base[10]= VV[111]; |
base[10]= VV[111]; |
2084 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
2088 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
2089 |
Lgentemp(); |
Lgentemp(); |
2090 |
vs_top=sup; |
vs_top=sup; |
2091 |
V362= vs_base[0]; |
V388= vs_base[0]; |
2092 |
goto T818; |
goto T815; |
2093 |
T818:; |
T815:; |
2094 |
V358= make_cons((V362),(V358)); |
V384= make_cons((V388),(V384)); |
2095 |
goto T812;} |
goto T809;} |
2096 |
goto T814; |
goto T811; |
2097 |
T814:; |
T811:; |
2098 |
base[7]= VV[112]; |
base[7]= VV[112]; |
2099 |
base[8]= (V360); |
base[8]= (V386); |
2100 |
base[9]= base[2]; |
base[9]= base[2]; |
2101 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
2102 |
Lerror(); |
Lerror(); |
2103 |
vs_top=sup; |
vs_top=sup; |
2104 |
goto T812; |
goto T809; |
2105 |
T812:; |
T809:; |
2106 |
V359= cdr((V359)); |
V385= CMPcdr((V385)); |
2107 |
V360= car((V359)); |
V386= CMPcar((V385)); |
2108 |
goto T807;} |
goto T804;} |
2109 |
goto T803; |
goto T800; |
2110 |
T803:; |
T800:; |
2111 |
{object V365; |
{object V391; |
2112 |
{object V367; |
{object V393; |
2113 |
object V368= base[3]; |
object V394= base[3]; |
2114 |
object V369= (V358); |
object V395= (V384); |
2115 |
if(endp(V368)||endp(V369)){ |
if(V394==Cnil||V395==Cnil){ |
2116 |
V366= Cnil; |
V392= Cnil; |
2117 |
goto T837;} |
goto T834;} |
2118 |
base[6]=V367=MMcons(Cnil,Cnil); |
base[6]=V393=MMcons(Cnil,Cnil); |
2119 |
goto T838; |
goto T835; |
2120 |
T838:; |
T835:; |
2121 |
(V367->c.c_car)= list(3,VV[113],list(2,VV[35],(V368->c.c_car)),(V369->c.c_car)); |
(V393->c.c_car)= list(3,VV[113],list(2,VV[35],(V394->c.c_car)),(V395->c.c_car)); |
2122 |
V368=MMcdr(V368); |
if((V394=MMcdr(V394))==Cnil||(V395=MMcdr(V395))==Cnil){ |
2123 |
V369=MMcdr(V369); |
V392= base[6]; |
2124 |
if(endp(V368)||endp(V369)){ |
goto T834;} |
2125 |
V366= base[6]; |
V393=MMcdr(V393)=MMcons(Cnil,Cnil); |
2126 |
goto T837;} |
goto T835;} |
2127 |
V367=MMcdr(V367)=MMcons(Cnil,Cnil); |
goto T834; |
2128 |
goto T838;} |
T834:; |
2129 |
goto T837; |
V391= make_cons(VV[113],V392); |
2130 |
T837:; |
V398= listA(4,VV[114],base[2],base[3],base[4]); |
2131 |
V365= make_cons(VV[113],V366); |
base[6]= list(3,VV[71],/* INLINE-ARGS */V398,list(4,VV[115],base[2],(V384),list(4,VV[116],VV[117],(V391),list(2,VV[35],base[4])))); |
|
V372= listA(4,VV[114],base[2],base[3],base[4]); |
|
|
base[6]= list(3,VV[71],/* INLINE-ARGS */V372,list(4,VV[115],base[2],(V358),list(4,VV[116],VV[117],(V365),list(2,VV[35],base[4])))); |
|
2132 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
2133 |
bds_unwind1; |
bds_unwind1; |
2134 |
return;}} |
return;}} |
2135 |
} |
} |
2136 |
/* local entry for function NAME-TO-SD */ |
/* local entry for function NAME-TO-SD */ |
2137 |
|
|
2138 |
static object LI35(V374) |
static object LI35(V400) |
2139 |
|
|
2140 |
object V374; |
object V400; |
2141 |
{ VMB35 VMS35 VMV35 |
{ VMB35 VMS35 VMV35 |
2142 |
goto TTL; |
goto TTL; |
2143 |
TTL:; |
TTL:; |
2144 |
{object V375; |
{object V401; |
2145 |
V375= Cnil;{object V376; |
V401= Cnil;{object V402; |
2146 |
if(type_of((V374))==t_symbol){ |
if(type_of((V400))==t_symbol){ |
2147 |
goto T844;} |
goto T841;} |
2148 |
V376= Cnil; |
V402= Cnil; |
2149 |
|
goto T840; |
2150 |
|
goto T841; |
2151 |
|
T841:; |
2152 |
|
{object V403 =((V400))->s.s_plist; |
2153 |
|
object ind= VV[76]; |
2154 |
|
while(V403!=Cnil){ |
2155 |
|
if(V403->c.c_car==ind){ |
2156 |
|
V401= (V403->c.c_cdr->c.c_car); |
2157 |
goto T843; |
goto T843; |
2158 |
goto T844; |
}else V403=V403->c.c_cdr->c.c_cdr;} |
2159 |
T844:; |
V401= Cnil;} |
|
V375= get((V374),VV[76],Cnil); |
|
|
V376= (V375); |
|
2160 |
goto T843; |
goto T843; |
2161 |
T843:; |
T843:; |
2162 |
if(V376==Cnil)goto T842; |
V402= (V401); |
2163 |
goto T841; |
goto T840; |
2164 |
goto T842; |
T840:; |
2165 |
T842:;} |
if(V402==Cnil)goto T839; |
2166 |
|
goto T838; |
2167 |
|
goto T839; |
2168 |
|
T839:;} |
2169 |
base[0]= VV[118]; |
base[0]= VV[118]; |
2170 |
base[1]= (V374); |
base[1]= (V400); |
2171 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2172 |
Lerror(); |
Lerror(); |
2173 |
vs_top=sup; |
vs_top=sup; |
2174 |
goto T841; |
goto T838; |
2175 |
T841:; |
T838:; |
2176 |
{object V377 = (V375); |
{object V404 = (V401); |
2177 |
VMR35(V377)}} |
VMR35(V404)}} |
2178 |
base[0]=base[0]; |
base[0]=base[0]; |
2179 |
return Cnil; |
return Cnil; |
2180 |
} |
} |
2181 |
/* local entry for function NAME-SD1 */ |
/* local entry for function NAME-SD1 */ |
2182 |
|
|
2183 |
static object LI36(V379) |
static object LI36(V406) |
2184 |
|
|
2185 |
object V379; |
object V406; |
2186 |
{ VMB36 VMS36 VMV36 |
{ VMB36 VMS36 VMV36 |
2187 |
goto TTL; |
goto TTL; |
2188 |
TTL:;{object V380; |
TTL:;{object V407; |
2189 |
V380= get((V379),VV[119],Cnil); |
{object V408 =((V406))->s.s_plist; |
2190 |
if(V380==Cnil)goto T849; |
object ind= VV[119]; |
2191 |
{object V381 = V380; |
while(V408!=Cnil){ |
2192 |
VMR36(V381)} |
if(V408->c.c_car==ind){ |
2193 |
goto T849; |
V407= (V408->c.c_cdr->c.c_car); |
2194 |
T849:;} |
goto T847; |
2195 |
V382= list(3,VV[5],VV[119],list(2,VV[35],(V379))); |
}else V408=V408->c.c_cdr->c.c_cdr;} |
2196 |
{object V383 = sputprop((V379),VV[120],/* INLINE-ARGS */V382); |
V407= Cnil;} |
2197 |
VMR36(V383)} |
goto T847; |
2198 |
|
T847:; |
2199 |
|
if(V407==Cnil)goto T846; |
2200 |
|
{object V409 = V407; |
2201 |
|
VMR36(V409)} |
2202 |
|
goto T846; |
2203 |
|
T846:;} |
2204 |
|
V410= list(3,VV[5],VV[119],list(2,VV[35],(V406))); |
2205 |
|
{object V411 = sputprop((V406),VV[120],/* INLINE-ARGS */V410); |
2206 |
|
VMR36(V411)} |
2207 |
return Cnil; |
return Cnil; |
2208 |
} |
} |
2209 |
/* local entry for function CO1STRUCTURE-PREDICATE */ |
/* local entry for function CO1STRUCTURE-PREDICATE */ |
2210 |
|
|
2211 |
static object LI37(V386,V387) |
static object LI37(V414,V415) |
2212 |
|
|
2213 |
object V386;object V387; |
object V414;object V415; |
2214 |
{ VMB37 VMS37 VMV37 |
{ VMB37 VMS37 VMV37 |
2215 |
goto TTL; |
goto TTL; |
2216 |
TTL:; |
TTL:; |
2217 |
{object V388; |
{object V416; |
2218 |
V388= Cnil; |
V416= Cnil; |
2219 |
if(!(type_of((V386))==t_symbol)){ |
if(!(type_of((V414))==t_symbol)){ |
2220 |
goto T853;} |
goto T850;} |
2221 |
V388= get((V386),VV[121],Cnil); |
{object V417 =((V414))->s.s_plist; |
2222 |
if(((V388))==Cnil){ |
object ind= VV[121]; |
2223 |
goto T853;} |
while(V417!=Cnil){ |
2224 |
V389= car((V387)); |
if(V417->c.c_car==ind){ |
2225 |
V390= list(3,VV[122],/* INLINE-ARGS */V389,list(2,VV[35],(V388))); |
V416= (V417->c.c_cdr->c.c_car); |
2226 |
{object V391 = (*(LnkLI123))(/* INLINE-ARGS */V390); |
goto T854; |
2227 |
VMR37(V391)} |
}else V417=V417->c.c_cdr->c.c_cdr;} |
2228 |
goto T853; |
V416= Cnil;} |
2229 |
T853:; |
goto T854; |
2230 |
{object V392 = Cnil; |
T854:; |
2231 |
VMR37(V392)}} |
if(((V416))==Cnil){ |
2232 |
|
goto T850;} |
2233 |
|
V418= CMPcar((V415)); |
2234 |
|
V419= list(3,VV[122],/* INLINE-ARGS */V418,list(2,VV[35],(V416))); |
2235 |
|
{object V420 = (*(LnkLI123))(/* INLINE-ARGS */V419); |
2236 |
|
VMR37(V420)} |
2237 |
|
goto T850; |
2238 |
|
T850:; |
2239 |
|
{object V421 = Cnil; |
2240 |
|
VMR37(V421)}} |
2241 |
return Cnil; |
return Cnil; |
2242 |
} |
} |
2243 |
static object LnkTLI177(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[177],(void **)(void *)&LnkLI177,1,first,ap);va_end(ap);return V1;} /* ABS */ |
static object LnkTLI177(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[177],(void **)(void *)&LnkLI177,1,first,ap);va_end(ap);return V1;} /* ABS */ |
2261 |
static object LnkTLI159(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[159],(void **)(void *)&LnkLI159,1,first,ap);va_end(ap);return V1;} /* VOLATILE */ |
static object LnkTLI159(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[159],(void **)(void *)&LnkLI159,1,first,ap);va_end(ap);return V1;} /* VOLATILE */ |
2262 |
static object LnkTLI158(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[158],(void **)(void *)&LnkLI158,4,first,ap);va_end(ap);return V1;} /* C2CALL-GLOBAL */ |
static object LnkTLI158(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[158],(void **)(void *)&LnkLI158,4,first,ap);va_end(ap);return V1;} /* C2CALL-GLOBAL */ |
2263 |
static object LnkTLI157(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[157],(void **)(void *)&LnkLI157,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */ |
static object LnkTLI157(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[157],(void **)(void *)&LnkLI157,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */ |
2264 |
static void LnkT156(){ call_or_link(VV[156],(void **)(void *)&Lnk156);} /* RESULT-TYPE-FROM-ARGS */ |
static object LnkTLI156(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[156],(void **)(void *)&LnkLI156,2,first,ap);va_end(ap);return V1;} /* RESULT-TYPE-FROM-ARGS */ |
2265 |
static object LnkTLI154(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[154],(void **)(void *)&LnkLI154,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */ |
static object LnkTLI154(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[154],(void **)(void *)&LnkLI154,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */ |
2266 |
static object LnkTLI152(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[152],(void **)(void *)&LnkLI152,3,first,ap);va_end(ap);return V1;} /* CHECK-FORM-TYPE */ |
static object LnkTLI152(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[152],(void **)(void *)&LnkLI152,3,first,ap);va_end(ap);return V1;} /* CHECK-FORM-TYPE */ |
2267 |
static object LnkTLI151(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[151],(void **)(void *)&LnkLI151,1,first,ap);va_end(ap);return V1;} /* GET-ARG-TYPES */ |
static object LnkTLI151(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[151],(void **)(void *)&LnkLI151,1,first,ap);va_end(ap);return V1;} /* GET-ARG-TYPES */ |
2268 |
static object LnkTLI150(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[150],(void **)(void *)&LnkLI150,1,first,ap);va_end(ap);return V1;} /* GET-RETURN-TYPE */ |
static object LnkTLI150(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[150],(void **)(void *)&LnkLI150,1,first,ap);va_end(ap);return V1;} /* GET-RETURN-TYPE */ |
2269 |
static object LnkTLI149(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[149],(void **)(void *)&LnkLI149,3,first,ap);va_end(ap);return V1;} /* C1STRUCTURE-REF1 */ |
static object LnkTLI149(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[149],(void **)(void *)&LnkLI149,3,first,ap);va_end(ap);return V1;} /* C1STRUCTURE-REF1 */ |
2270 |
static void LnkT148(){ call_or_link(VV[148],(void **)(void *)&Lnk148);} /* CMP-EVAL */ |
static void LnkT148(){ call_or_link(VV[148],(void **)(void *)&Lnk148);} /* CMP-EVAL */ |
2271 |
static object LnkTLI32(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[32],(void **)(void *)&LnkLI32,2,first,ap);va_end(ap);return V1;} /* RECORD-CALL-INFO */ |
static void LnkT32(){ call_or_link(VV[32],(void **)(void *)&Lnk32);} /* RECORD-CALL-INFO */ |
2272 |
static object LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[147],(void **)(void *)&LnkLI147,1,first,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */ |
static object LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[147],(void **)(void *)&LnkLI147,1,first,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */ |
2273 |
static object LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[146],(void **)(void *)&LnkLI146,3,first,ap);va_end(ap);return V1;} /* CMP-EXPAND-MACRO */ |
static object LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[146],(void **)(void *)&LnkLI146,3,first,ap);va_end(ap);return V1;} /* CMP-EXPAND-MACRO */ |
2274 |
static object LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[145],(void **)(void *)&LnkLI145,3,first,ap);va_end(ap);return V1;} /* AND-FORM-TYPE */ |
static object LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[145],(void **)(void *)&LnkLI145,3,first,ap);va_end(ap);return V1;} /* AND-FORM-TYPE */ |
2277 |
static object LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)(void *)&LnkLI142,2,first,ap);va_end(ap);return V1;} /* C1ARGS */ |
static object LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)(void *)&LnkLI142,2,first,ap);va_end(ap);return V1;} /* C1ARGS */ |
2278 |
static object LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)(void *)&LnkLI141,1,first,ap);va_end(ap);return V1;} /* C1LOCAL-FUN */ |
static object LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)(void *)&LnkLI141,1,first,ap);va_end(ap);return V1;} /* C1LOCAL-FUN */ |
2279 |
static object LnkTLI140(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[140],(void **)(void *)&LnkLI140,2,first,ap);va_end(ap);return V1;} /* TYPE>= */ |
static object LnkTLI140(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[140],(void **)(void *)&LnkLI140,2,first,ap);va_end(ap);return V1;} /* TYPE>= */ |
2280 |
static void LnkT139(){ call_or_link(VV[139],(void **)(void *)&Lnk139);} /* FIX-OPT */ |
static object LnkTLI139(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[139],(void **)(void *)&LnkLI139,1,first,ap);va_end(ap);return V1;} /* FIX-OPT */ |
2281 |
static object LnkTLI138(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[138],(void **)(void *)&LnkLI138,first,ap);va_end(ap);return V1;} /* CMPWARN */ |
static object LnkTLI138(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[138],(void **)(void *)&LnkLI138,first,ap);va_end(ap);return V1;} /* CMPWARN */ |
2282 |
static void LnkT137(){ call_or_link(VV[137],(void **)(void *)&Lnk137);} /* FLAGS-POS */ |
static object LnkTLI137(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[137],(void **)(void *)&LnkLI137,1,first,ap);va_end(ap);return V1;} /* FLAGS-POS */ |
2283 |
static object LnkTLI136(){return call_proc0(VV[136],(void **)(void *)&LnkLI136);} /* ADD-LOAD-TIME-SHARP-COMMA */ |
static object LnkTLI136(){return call_proc0(VV[136],(void **)(void *)&LnkLI136);} /* ADD-LOAD-TIME-SHARP-COMMA */ |
2284 |
static object LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[135],(void **)(void *)&LnkLI135,first,ap);va_end(ap);return V1;} /* CMPERR */ |
static object LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[135],(void **)(void *)&LnkLI135,first,ap);va_end(ap);return V1;} /* CMPERR */ |
2285 |
static object LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[134],(void **)(void *)&LnkLI134,2,first,ap);va_end(ap);return V1;} /* C1LAMBDA-FUN */ |
static object LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[134],(void **)(void *)&LnkLI134,2,first,ap);va_end(ap);return V1;} /* C1LAMBDA-FUN */ |