7 |
static void L1() |
static void L1() |
8 |
{register object *base=vs_base; |
{register object *base=vs_base; |
9 |
register object *sup=base+VM1; VC1 |
register object *sup=base+VM1; VC1 |
10 |
vs_reserve(VM1); |
vs_check; |
|
check_arg(2); |
|
11 |
vs_top=sup; |
vs_top=sup; |
12 |
{object V1=base[0]->c.c_cdr; |
{object V1=base[0]->c.c_cdr; |
|
if(endp(V1))invalid_macro_call(); |
|
13 |
base[2]= (V1->c.c_car); |
base[2]= (V1->c.c_car); |
14 |
V1=V1->c.c_cdr; |
V1=V1->c.c_cdr; |
15 |
base[3]= V1;} |
base[3]= V1;} |
34 |
goto T1; |
goto T1; |
35 |
goto T4; |
goto T4; |
36 |
T4:; |
T4:; |
37 |
V6= car((V5)); |
V6= CMPcar((V5)); |
38 |
{register object V7; |
{register object V7; |
39 |
if(!(eql(car((V6)),Ct))){ |
if(!(eql(CMPcar((V6)),Ct))){ |
40 |
goto T15;} |
goto T15;} |
41 |
V3= Ct; |
V3= Ct; |
42 |
V7= (V6); |
V7= (V6); |
43 |
goto T13; |
goto T13; |
44 |
goto T15; |
goto T15; |
45 |
T15:; |
T15:; |
46 |
if(!(eql(car((V6)),VV[0]))){ |
if(!(eql(CMPcar((V6)),VV[0]))){ |
47 |
goto T20;} |
goto T20;} |
48 |
V7= make_cons(VV[1],cdr((V6))); |
V7= make_cons(VV[1],CMPcdr((V6))); |
49 |
goto T13; |
goto T13; |
50 |
goto T20; |
goto T20; |
51 |
T20:; |
T20:; |
52 |
if(!(eql(car((V6)),VV[2]))){ |
if(!(eql(CMPcar((V6)),VV[2]))){ |
53 |
goto T23;} |
goto T23;} |
54 |
V7= make_cons(VV[3],cdr((V6))); |
V7= make_cons(VV[3],CMPcdr((V6))); |
55 |
goto T13; |
goto T13; |
56 |
goto T23; |
goto T23; |
57 |
T23:; |
T23:; |
58 |
{register object x= car((V6)),V8= VV[4]; |
{register object x= CMPcar((V6)),V8= VV[4]; |
59 |
while(!endp(V8)) |
while(V8!=Cnil) |
60 |
if(eql(x,V8->c.c_car)){ |
if(eql(x,V8->c.c_car)){ |
61 |
V4= V8; |
V4= V8; |
62 |
goto T28; |
goto T28; |
66 |
T28:; |
T28:; |
67 |
if(((V4))==Cnil){ |
if(((V4))==Cnil){ |
68 |
goto T26;} |
goto T26;} |
69 |
V9= list(3,VV[5],VV[6],list(3,VV[7],VV[8],list(2,VV[9],car((V4))))); |
V9= list(3,VV[5],VV[6],list(3,VV[7],VV[8],list(2,VV[9],CMPcar((V4))))); |
70 |
V7= make_cons(/* INLINE-ARGS */V9,cdr((V6))); |
V7= make_cons(/* INLINE-ARGS */V9,CMPcdr((V6))); |
71 |
goto T13; |
goto T13; |
72 |
goto T26; |
goto T26; |
73 |
T26:; |
T26:; |
74 |
V10= list(3,VV[10],VV[8],list(2,VV[9],car((V6)))); |
V10= list(3,VV[10],VV[8],list(2,VV[9],CMPcar((V6)))); |
75 |
V7= make_cons(/* INLINE-ARGS */V10,cdr((V6))); |
V7= make_cons(/* INLINE-ARGS */V10,CMPcdr((V6))); |
76 |
goto T13; |
goto T13; |
77 |
T13:; |
T13:; |
78 |
V2= make_cons((V7),(V2));} |
V2= make_cons((V7),(V2));} |
79 |
V5= cdr((V5)); |
V5= CMPcdr((V5)); |
80 |
goto T3;} |
goto T3;} |
81 |
goto T1; |
goto T1; |
82 |
T1:; |
T1:; |
111 |
T36:; |
T36:; |
112 |
if(!(type_of((V17))==t_cons)){ |
if(!(type_of((V17))==t_cons)){ |
113 |
goto T39;} |
goto T39;} |
114 |
V21= car((V17)); |
V21= CMPcar((V17)); |
115 |
V22= list(2,VV[17],(V18)); |
V22= list(2,VV[17],(V18)); |
116 |
V23= (*(LnkLI246))(/* INLINE-ARGS */V21,/* INLINE-ARGS */V22); |
V23= (*(LnkLI246))(/* INLINE-ARGS */V21,/* INLINE-ARGS */V22); |
117 |
if(!(type_of(cdr((V17)))==t_cons)){ |
if(!(type_of(CMPcdr((V17)))==t_cons)){ |
118 |
goto T43;} |
goto T43;} |
119 |
V25= cdr((V17)); |
V25= CMPcdr((V17)); |
120 |
V26= list(2,VV[18],(V18)); |
V26= list(2,VV[18],(V18)); |
121 |
V27= (*(LnkLI246))(/* INLINE-ARGS */V25,/* INLINE-ARGS */V26); |
V27= (*(LnkLI246))(/* INLINE-ARGS */V25,/* INLINE-ARGS */V26); |
122 |
V24= make_cons(/* INLINE-ARGS */V27,Cnil); |
V24= make_cons(/* INLINE-ARGS */V27,Cnil); |
123 |
goto T41; |
goto T41; |
124 |
goto T43; |
goto T43; |
125 |
T43:; |
T43:; |
126 |
if((cdr((V17)))!=Cnil){ |
if((CMPcdr((V17)))!=Cnil){ |
127 |
goto T45;} |
goto T45;} |
128 |
V24= Cnil; |
V24= Cnil; |
129 |
goto T41; |
goto T41; |
130 |
goto T45; |
goto T45; |
131 |
T45:; |
T45:; |
132 |
V28= cdr((V17)); |
V28= CMPcdr((V17)); |
133 |
V29= list(3,VV[15],/* INLINE-ARGS */V28,list(2,VV[18],(V18))); |
V29= list(3,VV[15],/* INLINE-ARGS */V28,list(2,VV[18],(V18))); |
134 |
V24= make_cons(/* INLINE-ARGS */V29,Cnil); |
V24= make_cons(/* INLINE-ARGS */V29,Cnil); |
135 |
goto T41; |
goto T41; |
152 |
static void L3() |
static void L3() |
153 |
{register object *base=vs_base; |
{register object *base=vs_base; |
154 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
155 |
vs_reserve(VM3); |
vs_check; |
|
check_arg(2); |
|
156 |
vs_top=sup; |
vs_top=sup; |
157 |
{object V32=base[0]->c.c_cdr; |
{object V32=base[0]->c.c_cdr; |
|
if(endp(V32))invalid_macro_call(); |
|
158 |
base[2]= (V32->c.c_car); |
base[2]= (V32->c.c_car); |
159 |
V32=V32->c.c_cdr; |
V32=V32->c.c_cdr; |
160 |
if(endp(V32))invalid_macro_call(); |
base[3]= (V32->c.c_car);} |
|
base[3]= (V32->c.c_car); |
|
|
V32=V32->c.c_cdr; |
|
|
if(!endp(V32))invalid_macro_call();} |
|
161 |
if(!(type_of(base[3])!=t_cons)){ |
if(!(type_of(base[3])!=t_cons)){ |
162 |
goto T49;} |
goto T49;} |
163 |
base[4]= (*(LnkLI246))(base[2],base[3]); |
base[4]= (*(LnkLI246))(base[2],base[3]); |
181 |
static void L4() |
static void L4() |
182 |
{register object *base=vs_base; |
{register object *base=vs_base; |
183 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
184 |
vs_reserve(VM4); |
vs_check; |
|
check_arg(2); |
|
185 |
vs_top=sup; |
vs_top=sup; |
186 |
{object V36=base[0]->c.c_cdr; |
{object V36=base[0]->c.c_cdr; |
187 |
base[2]= V36;} |
base[2]= V36;} |
201 |
static void L5() |
static void L5() |
202 |
{register object *base=vs_base; |
{register object *base=vs_base; |
203 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
204 |
vs_reserve(VM5); |
vs_check; |
|
check_arg(2); |
|
205 |
vs_top=sup; |
vs_top=sup; |
|
{object V37=base[0]->c.c_cdr; |
|
|
if(!endp(V37))invalid_macro_call();} |
|
206 |
base[2]= VV[22]; |
base[2]= VV[22]; |
207 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
208 |
return; |
return; |
212 |
static void L6() |
static void L6() |
213 |
{register object *base=vs_base; |
{register object *base=vs_base; |
214 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM6; VC6 |
215 |
vs_reserve(VM6); |
vs_check; |
|
check_arg(2); |
|
216 |
vs_top=sup; |
vs_top=sup; |
|
{object V38=base[0]->c.c_cdr; |
|
|
if(!endp(V38))invalid_macro_call();} |
|
217 |
base[2]= VV[23]; |
base[2]= VV[23]; |
218 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
219 |
return; |
return; |
223 |
static void L7() |
static void L7() |
224 |
{register object *base=vs_base; |
{register object *base=vs_base; |
225 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM7; VC7 |
226 |
vs_reserve(VM7); |
vs_check; |
|
check_arg(2); |
|
227 |
vs_top=sup; |
vs_top=sup; |
228 |
{object V39=base[0]->c.c_cdr; |
{object V39=base[0]->c.c_cdr; |
229 |
base[2]= V39;} |
base[2]= V39;} |
236 |
static void L8() |
static void L8() |
237 |
{register object *base=vs_base; |
{register object *base=vs_base; |
238 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
239 |
vs_reserve(VM8); |
vs_check; |
|
check_arg(2); |
|
240 |
vs_top=sup; |
vs_top=sup; |
241 |
{object V40=base[0]->c.c_cdr; |
{object V40=base[0]->c.c_cdr; |
|
if(endp(V40))invalid_macro_call(); |
|
242 |
base[2]= (V40->c.c_car); |
base[2]= (V40->c.c_car); |
243 |
V40=V40->c.c_cdr; |
V40=V40->c.c_cdr; |
|
if(endp(V40))invalid_macro_call(); |
|
244 |
base[3]= (V40->c.c_car); |
base[3]= (V40->c.c_car); |
245 |
V40=V40->c.c_cdr; |
V40=V40->c.c_cdr; |
246 |
base[4]= V40;} |
base[4]= V40;} |
253 |
static void L9() |
static void L9() |
254 |
{register object *base=vs_base; |
{register object *base=vs_base; |
255 |
register object *sup=base+VM9; VC9 |
register object *sup=base+VM9; VC9 |
256 |
vs_reserve(VM9); |
vs_check; |
|
check_arg(2); |
|
257 |
vs_top=sup; |
vs_top=sup; |
258 |
{object V41=base[0]->c.c_cdr; |
{object V41=base[0]->c.c_cdr; |
|
if(endp(V41))invalid_macro_call(); |
|
259 |
base[2]= (V41->c.c_car); |
base[2]= (V41->c.c_car); |
260 |
V41=V41->c.c_cdr; |
V41=V41->c.c_cdr; |
|
if(endp(V41))invalid_macro_call(); |
|
261 |
base[3]= (V41->c.c_car); |
base[3]= (V41->c.c_car); |
262 |
V41=V41->c.c_cdr; |
V41=V41->c.c_cdr; |
263 |
base[4]= V41;} |
base[4]= V41;} |
270 |
static void L10() |
static void L10() |
271 |
{register object *base=vs_base; |
{register object *base=vs_base; |
272 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
273 |
vs_reserve(VM10); |
vs_check; |
|
check_arg(2); |
|
274 |
vs_top=sup; |
vs_top=sup; |
275 |
{object V42=base[0]->c.c_cdr; |
{object V42=base[0]->c.c_cdr; |
|
if(endp(V42))invalid_macro_call(); |
|
276 |
base[2]= (V42->c.c_car); |
base[2]= (V42->c.c_car); |
277 |
V42=V42->c.c_cdr; |
V42=V42->c.c_cdr; |
|
if(endp(V42))invalid_macro_call(); |
|
278 |
base[3]= (V42->c.c_car); |
base[3]= (V42->c.c_car); |
279 |
V42=V42->c.c_cdr; |
V42=V42->c.c_cdr; |
280 |
base[4]= V42;} |
base[4]= V42;} |
287 |
static void L11() |
static void L11() |
288 |
{register object *base=vs_base; |
{register object *base=vs_base; |
289 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
290 |
vs_reserve(VM11); |
vs_check; |
|
check_arg(2); |
|
291 |
vs_top=sup; |
vs_top=sup; |
292 |
{object V43=base[0]->c.c_cdr; |
{object V43=base[0]->c.c_cdr; |
|
if(endp(V43))invalid_macro_call(); |
|
293 |
base[2]= (V43->c.c_car); |
base[2]= (V43->c.c_car); |
294 |
V43=V43->c.c_cdr; |
V43=V43->c.c_cdr; |
|
if(endp(V43))invalid_macro_call(); |
|
295 |
base[3]= (V43->c.c_car); |
base[3]= (V43->c.c_car); |
296 |
V43=V43->c.c_cdr; |
V43=V43->c.c_cdr; |
297 |
base[4]= V43;} |
base[4]= V43;} |
304 |
static void L12() |
static void L12() |
305 |
{register object *base=vs_base; |
{register object *base=vs_base; |
306 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
307 |
vs_reserve(VM12); |
vs_check; |
|
check_arg(2); |
|
308 |
vs_top=sup; |
vs_top=sup; |
|
{object V44=base[0]->c.c_cdr; |
|
|
if(!endp(V44))invalid_macro_call();} |
|
309 |
base[2]= VV[29]; |
base[2]= VV[29]; |
310 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
311 |
return; |
return; |
371 |
VMR14(V58)} |
VMR14(V58)} |
372 |
goto T67; |
goto T67; |
373 |
T67:;} |
T67:;} |
374 |
{object V59 = (VFUN_NARGS=4,(*(LnkLI249))((V56),symbol_value(VV[28]),VV[30],VV[10])); |
{object V59 = (VFUN_NARGS=4,(*(LnkLI249))((V56),(VV[28]->s.s_dbind),VV[30],VV[10])); |
375 |
VMR14(V59)} |
VMR14(V59)} |
376 |
base[0]=base[0]; |
base[0]=base[0]; |
377 |
return Cnil; |
return Cnil; |
392 |
goto T74; |
goto T74; |
393 |
T74:; |
T74:; |
394 |
base[0]= (V61); |
base[0]= (V61); |
395 |
base[1]= symbol_value(VV[32]); |
base[1]= (VV[32]->s.s_dbind); |
396 |
base[2]= VV[30]; |
base[2]= VV[30]; |
397 |
base[3]= VV[10]; |
base[3]= VV[10]; |
398 |
base[4]= VV[33]; |
base[4]= VV[33]; |
401 |
Lmember(); |
Lmember(); |
402 |
vs_top=sup; |
vs_top=sup; |
403 |
V63= vs_base[0]; |
V63= vs_base[0]; |
404 |
V62= cdar(V63); |
V62= CMPcdar(V63); |
405 |
goto T73; |
goto T73; |
406 |
T73:; |
T73:; |
407 |
if(((V62))==Cnil){ |
if(((V62))==Cnil){ |
422 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
423 |
goto TTL; |
goto TTL; |
424 |
TTL:; |
TTL:; |
425 |
if((symbol_value(VV[34]))==Cnil){ |
if(((VV[34]->s.s_dbind))==Cnil){ |
426 |
goto T87;} |
goto T87;} |
427 |
{object V66; |
{object V66; |
428 |
V66= car(symbol_value(VV[34])); |
V66= CMPcar((VV[34]->s.s_dbind)); |
429 |
setq(VV[34],cdr(symbol_value(VV[34]))); |
(VV[34]->s.s_dbind)= CMPcdr((VV[34]->s.s_dbind)); |
430 |
setq(VV[35],(V66));} |
(VV[35]->s.s_dbind)= (V66);} |
431 |
{object V67 = symbol_value(VV[35]); |
{object V67 = (VV[35]->s.s_dbind); |
432 |
VMR16(V67)} |
VMR16(V67)} |
433 |
goto T87; |
goto T87; |
434 |
T87:; |
T87:; |
435 |
setq(VV[35],VV[36]); |
(VV[35]->s.s_dbind)= VV[36]; |
436 |
{object V68 = Cnil; |
{object V68 = Cnil; |
437 |
VMR16(V68)} |
VMR16(V68)} |
438 |
return Cnil; |
return Cnil; |
444 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
445 |
goto TTL; |
goto TTL; |
446 |
TTL:; |
TTL:; |
447 |
{object V69= symbol_value(VV[35]); |
{object V69= (VV[35]->s.s_dbind); |
448 |
if((V69!= VV[36]))goto T95; |
if((V69!= VV[36]))goto T95; |
449 |
{object V70 = Cnil; |
{object V70 = Cnil; |
450 |
VMR17(V70)} |
VMR17(V70)} |
460 |
goto T96; |
goto T96; |
461 |
T96:; |
T96:; |
462 |
{object V72; |
{object V72; |
463 |
V72= symbol_value(VV[35]); |
V72= (VV[35]->s.s_dbind); |
464 |
setq(VV[34],make_cons((V72),symbol_value(VV[34])));} |
(VV[34]->s.s_dbind)= make_cons((V72),(VV[34]->s.s_dbind));} |
465 |
setq(VV[35],VV[38]); |
(VV[35]->s.s_dbind)= VV[38]; |
466 |
{object V73 = VV[38]; |
{object V73 = VV[38]; |
467 |
VMR17(V73)}} |
VMR17(V73)}} |
468 |
base[0]=base[0]; |
base[0]=base[0]; |
475 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
476 |
goto TTL; |
goto TTL; |
477 |
TTL:; |
TTL:; |
478 |
{object V74 = car(symbol_value(VV[34])); |
{object V74 = CMPcar((VV[34]->s.s_dbind)); |
479 |
VMR18(V74)} |
VMR18(V74)} |
480 |
return Cnil; |
return Cnil; |
481 |
} |
} |
488 |
goto TTL; |
goto TTL; |
489 |
TTL:; |
TTL:; |
490 |
{register object V77; |
{register object V77; |
491 |
V77= car((V76)); |
V77= CMPcar((V76)); |
492 |
goto T104; |
goto T104; |
493 |
T104:; |
T104:; |
494 |
if(((V77))!=Cnil){ |
if(((V77))!=Cnil){ |
495 |
goto T105;} |
goto T105;} |
496 |
{object V78 = nreverse(car((V76))); |
{object V78 = nreverse(CMPcar((V76))); |
497 |
VMR19(V78)} |
VMR19(V78)} |
498 |
goto T105; |
goto T105; |
499 |
T105:;{object V79; |
T105:;{object V79; |
500 |
V79= cdar((V77)); |
V79= CMPcdar((V77)); |
501 |
if(V79==Cnil)goto T110; |
if(V79==Cnil)goto T110; |
502 |
goto T109; |
goto T109; |
503 |
goto T110; |
goto T110; |
505 |
{register object V80; |
{register object V80; |
506 |
register object V81; |
register object V81; |
507 |
V80= (V77); |
V80= (V77); |
508 |
V81= caar((V77)); |
V81= CMPcaar((V77)); |
|
if(type_of((V80))!=t_cons)FEwrong_type_argument(Scons,(V80)); |
|
509 |
((V80))->c.c_car = (V81);} |
((V80))->c.c_car = (V81);} |
510 |
goto T109; |
goto T109; |
511 |
T109:; |
T109:; |
512 |
V77= cdr((V77)); |
V77= CMPcdr((V77)); |
513 |
goto T104;} |
goto T104;} |
514 |
base[0]=base[0]; |
base[0]=base[0]; |
515 |
return Cnil; |
return Cnil; |
528 |
{register object V85; |
{register object V85; |
529 |
register object V86; |
register object V86; |
530 |
bds_bind(VV[34],(V83)); |
bds_bind(VV[34],(V83)); |
531 |
bds_bind(VV[54],symbol_value(VV[54])); |
bds_bind(VV[54],(VV[54]->s.s_dbind)); |
532 |
bds_bind(VV[35],Cnil); |
bds_bind(VV[35],Cnil); |
533 |
bds_bind(VV[53],Cnil); |
bds_bind(VV[53],Cnil); |
534 |
bds_bind(VV[49],Cnil); |
bds_bind(VV[49],Cnil); |
547 |
bds_bind(VV[39],Cnil); |
bds_bind(VV[39],Cnil); |
548 |
V85= Cnil; |
V85= Cnil; |
549 |
V86= VV[55]; |
V86= VV[55]; |
550 |
if(!(type_of(car((VV[34]->s.s_dbind)))==t_symbol)){ |
if(!(type_of(CMPcar((VV[34]->s.s_dbind)))==t_symbol)){ |
551 |
goto T120;} |
goto T120;} |
552 |
if((car((VV[34]->s.s_dbind)))!=Cnil){ |
if((CMPcar((VV[34]->s.s_dbind)))!=Cnil){ |
553 |
goto T119;} |
goto T119;} |
554 |
goto T120; |
goto T120; |
555 |
T120:; |
T120:; |
629 |
vs_top=sup; |
vs_top=sup; |
630 |
V95= vs_base[0]; |
V95= vs_base[0]; |
631 |
V93= list(3,VV[71],(V85),list(3,VV[72],V94,make_cons(VV[73],V95)));} |
V93= list(3,VV[71],(V85),list(3,VV[72],V94,make_cons(VV[73],V95)));} |
632 |
if(eql(symbol_value(VV[75]),symbol_value(VV[76]))){ |
if(eql((VV[75]->s.s_dbind),(VV[76]->s.s_dbind))){ |
633 |
goto T168;} |
goto T168;} |
634 |
base[18]= (V93); |
base[18]= (V93); |
635 |
vs_top=(vs_base=base+18)+1; |
vs_top=(vs_base=base+18)+1; |
641 |
{register object V96; |
{register object V96; |
642 |
register object V97; |
register object V97; |
643 |
V96= (VV[46]->s.s_dbind); |
V96= (VV[46]->s.s_dbind); |
644 |
V97= car((V96)); |
V97= CMPcar((V96)); |
645 |
goto T177; |
goto T177; |
646 |
T177:; |
T177:; |
647 |
if(!(endp_prop((V96)))){ |
if(!(((V96))==Cnil)){ |
648 |
goto T178;} |
goto T178;} |
649 |
goto T173; |
goto T173; |
650 |
goto T178; |
goto T178; |
651 |
T178:; |
T178:; |
652 |
V98= (*(LnkLI253))((V97)); |
V98= (*(LnkLI253))((V97)); |
653 |
if((cdr((V97)))!=Cnil){ |
if((CMPcdr((V97)))!=Cnil){ |
654 |
goto T185;} |
goto T185;} |
655 |
V99= Cnil; |
V99= Cnil; |
656 |
goto T184; |
goto T184; |
657 |
goto T185; |
goto T185; |
658 |
T185:; |
T185:; |
659 |
V100= make_cons(VV[77],cdr((V97))); |
V100= make_cons(VV[77],CMPcdr((V97))); |
660 |
V99= make_cons(/* INLINE-ARGS */V100,Cnil); |
V99= make_cons(/* INLINE-ARGS */V100,Cnil); |
661 |
goto T184; |
goto T184; |
662 |
T184:; |
T184:; |
663 |
V101= make_cons((V93),Cnil); |
V101= make_cons((V93),Cnil); |
664 |
V93= listA(3,VV[12],/* INLINE-ARGS */V98,append(V99,/* INLINE-ARGS */V101)); |
V93= listA(3,VV[12],/* INLINE-ARGS */V98,append(V99,/* INLINE-ARGS */V101)); |
665 |
V96= cdr((V96)); |
V96= CMPcdr((V96)); |
666 |
V97= car((V96)); |
V97= CMPcar((V96)); |
667 |
goto T177;} |
goto T177;} |
668 |
goto T173; |
goto T173; |
669 |
T173:; |
T173:; |
703 |
if(((*(LnkLI10))((V103),VV[78]))==Cnil){ |
if(((*(LnkLI10))((V103),VV[78]))==Cnil){ |
704 |
goto T192;} |
goto T192;} |
705 |
(void)((*(LnkLI255))()); |
(void)((*(LnkLI255))()); |
706 |
setq(VV[51],(*(LnkLI255))());} |
(VV[51]->s.s_dbind)= (*(LnkLI255))();} |
707 |
goto T192; |
goto T192; |
708 |
T192:; |
T192:; |
709 |
{register object V105; |
{register object V105; |
712 |
T200:; |
T200:; |
713 |
if(((V105))!=Cnil){ |
if(((V105))!=Cnil){ |
714 |
goto T201;} |
goto T201;} |
715 |
if((symbol_value(VV[34]))!=Cnil){ |
if(((VV[34]->s.s_dbind))!=Cnil){ |
716 |
goto T201;} |
goto T201;} |
717 |
{object V106 = Cnil; |
{object V106 = Cnil; |
718 |
VMR21(V106)} |
VMR21(V106)} |
738 |
{register object V109; |
{register object V109; |
739 |
V110= (*(LnkLI255))(); |
V110= (*(LnkLI255))(); |
740 |
V109= list(3,VV[80],/* INLINE-ARGS */V110,VV[81]); |
V109= list(3,VV[80],/* INLINE-ARGS */V110,VV[81]); |
741 |
setq(VV[49],make_cons((V109),symbol_value(VV[49]))); |
(VV[49]->s.s_dbind)= make_cons((V109),(VV[49]->s.s_dbind)); |
742 |
goto T207;} |
goto T207;} |
743 |
goto T217; |
goto T217; |
744 |
T217:; |
T217:; |
747 |
{register object V111; |
{register object V111; |
748 |
V112= (*(LnkLI255))(); |
V112= (*(LnkLI255))(); |
749 |
V111= list(3,VV[5],/* INLINE-ARGS */V112,VV[83]); |
V111= list(3,VV[5],/* INLINE-ARGS */V112,VV[83]); |
750 |
setq(VV[49],make_cons((V111),symbol_value(VV[49]))); |
(VV[49]->s.s_dbind)= make_cons((V111),(VV[49]->s.s_dbind)); |
751 |
goto T207;} |
goto T207;} |
752 |
goto T222; |
goto T222; |
753 |
T222:; |
T222:; |
754 |
if(((*(LnkLI10))((V107),VV[56]))==Cnil){ |
if(((*(LnkLI10))((V107),VV[56]))==Cnil){ |
755 |
goto T227;} |
goto T227;} |
756 |
V113= (*(LnkLI258))(); |
V113= (*(LnkLI258))(); |
757 |
setq(VV[49],append(/* INLINE-ARGS */V113,symbol_value(VV[49]))); |
(VV[49]->s.s_dbind)= append(/* INLINE-ARGS */V113,(VV[49]->s.s_dbind)); |
758 |
goto T207; |
goto T207; |
759 |
goto T227; |
goto T227; |
760 |
T227:; |
T227:; |
761 |
if(((*(LnkLI10))((V107),VV[84]))==Cnil){ |
if(((*(LnkLI10))((V107),VV[84]))==Cnil){ |
762 |
goto T231;} |
goto T231;} |
763 |
V114= (*(LnkLI259))(); |
V114= (*(LnkLI259))(); |
764 |
setq(VV[49],append(/* INLINE-ARGS */V114,symbol_value(VV[49]))); |
(VV[49]->s.s_dbind)= append(/* INLINE-ARGS */V114,(VV[49]->s.s_dbind)); |
765 |
goto T207; |
goto T207; |
766 |
goto T231; |
goto T231; |
767 |
T231:; |
T231:; |
768 |
if(((*(LnkLI260))((V107)))==Cnil){ |
if(((*(LnkLI260))((V107)))==Cnil){ |
769 |
goto T235;} |
goto T235;} |
770 |
V115= (*(LnkLI261))(); |
V115= (*(LnkLI261))(); |
771 |
setq(VV[49],append(/* INLINE-ARGS */V115,symbol_value(VV[49]))); |
(VV[49]->s.s_dbind)= append(/* INLINE-ARGS */V115,(VV[49]->s.s_dbind)); |
772 |
goto T207; |
goto T207; |
773 |
goto T235; |
goto T235; |
774 |
T235:; |
T235:; |
802 |
T247:; |
T247:; |
803 |
if(((V119))!=Cnil){ |
if(((V119))!=Cnil){ |
804 |
goto T248;} |
goto T248;} |
805 |
if((symbol_value(VV[34]))!=Cnil){ |
if(((VV[34]->s.s_dbind))!=Cnil){ |
806 |
goto T248;} |
goto T248;} |
807 |
goto T245; |
goto T245; |
808 |
goto T248; |
goto T248; |
835 |
T266:; |
T266:; |
836 |
if(((*(LnkLI10))((V121),VV[88]))==Cnil){ |
if(((*(LnkLI10))((V121),VV[88]))==Cnil){ |
837 |
goto T269;} |
goto T269;} |
838 |
setq(VV[47],(*(LnkLI255))()); |
(VV[47]->s.s_dbind)= (*(LnkLI255))(); |
839 |
goto T254; |
goto T254; |
840 |
goto T269; |
goto T269; |
841 |
T269:; |
T269:; |
842 |
if(((*(LnkLI10))((V121),VV[89]))==Cnil){ |
if(((*(LnkLI10))((V121),VV[89]))==Cnil){ |
843 |
goto T273;} |
goto T273;} |
844 |
V123= (*(LnkLI258))(); |
V123= (*(LnkLI258))(); |
845 |
setq(VV[42],append(/* INLINE-ARGS */V123,symbol_value(VV[42]))); |
(VV[42]->s.s_dbind)= append(/* INLINE-ARGS */V123,(VV[42]->s.s_dbind)); |
846 |
goto T254; |
goto T254; |
847 |
goto T273; |
goto T273; |
848 |
T273:; |
T273:; |
849 |
if(((*(LnkLI10))((V121),VV[90]))==Cnil){ |
if(((*(LnkLI10))((V121),VV[90]))==Cnil){ |
850 |
goto T277;} |
goto T277;} |
851 |
V124= (*(LnkLI258))(); |
V124= (*(LnkLI258))(); |
852 |
setq(VV[41],append(/* INLINE-ARGS */V124,symbol_value(VV[41]))); |
(VV[41]->s.s_dbind)= append(/* INLINE-ARGS */V124,(VV[41]->s.s_dbind)); |
853 |
goto T254; |
goto T254; |
854 |
goto T277; |
goto T277; |
855 |
T277:; |
T277:; |
861 |
T281:; |
T281:; |
862 |
if(!(type_of((V121))==t_symbol)){ |
if(!(type_of((V121))==t_symbol)){ |
863 |
goto T284;} |
goto T284;} |
864 |
if((get((V121),VV[92],Cnil))==Cnil){ |
{object V125 =((V121))->s.s_plist; |
865 |
|
object ind= VV[92]; |
866 |
|
while(V125!=Cnil){ |
867 |
|
if(V125->c.c_car==ind){ |
868 |
|
if(((V125->c.c_cdr->c.c_car))==Cnil){ |
869 |
|
goto T284;} |
870 |
|
goto T287; |
871 |
|
}else V125=V125->c.c_cdr->c.c_cdr;} |
872 |
goto T284;} |
goto T284;} |
873 |
|
goto T287; |
874 |
|
T287:; |
875 |
(void)((VFUN_NARGS=2,(*(LnkLI265))((V120),VV[92]))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))((V120),VV[92]))); |
876 |
goto T254; |
goto T254; |
877 |
goto T284; |
goto T284; |
893 |
goto T247;} |
goto T247;} |
894 |
goto T245; |
goto T245; |
895 |
T245:; |
T245:; |
896 |
{object V125 = (V118); |
{object V126 = (V118); |
897 |
VMR22(V125)}} |
VMR22(V126)}} |
898 |
return Cnil; |
return Cnil; |
899 |
} |
} |
900 |
/* local entry for function PARSE-LOOP-WITH */ |
/* local entry for function PARSE-LOOP-WITH */ |
903 |
{ |
{ |
904 |
va_list ap; |
va_list ap; |
905 |
int narg = VFUN_NARGS; VMB23 VMS23 VMV23 |
int narg = VFUN_NARGS; VMB23 VMS23 VMV23 |
906 |
{object V126; |
{object V127; |
907 |
object V127; |
object V128; |
908 |
va_start(ap,first); |
va_start(ap,first); |
909 |
narg = narg - 0; |
narg = narg - 0; |
910 |
if (narg <= 0) goto T298; |
if (narg <= 0) goto T298; |
911 |
else { |
else { |
912 |
V126= first;} |
V127= first;} |
913 |
if (--narg <= 0) goto T299; |
if (--narg <= 0) goto T299; |
914 |
else { |
else { |
915 |
V127= va_arg(ap,object);} |
V128= va_arg(ap,object);} |
916 |
--narg; goto T300; |
--narg; goto T300; |
917 |
goto T298; |
goto T298; |
918 |
T298:; |
T298:; |
919 |
V126= Cnil; |
V127= Cnil; |
920 |
goto T299; |
goto T299; |
921 |
T299:; |
T299:; |
922 |
V127= Cnil; |
V128= Cnil; |
923 |
goto T300; |
goto T300; |
924 |
T300:; |
T300:; |
925 |
{register object V128; |
{register object V129; |
926 |
V128= (*(LnkLI255))(); |
V129= (*(LnkLI255))(); |
927 |
{object V129; |
{object V130; |
928 |
V130= (*(LnkLI254))(); |
V131= (*(LnkLI254))(); |
929 |
V129= (*(LnkLI13))(/* INLINE-ARGS */V130); |
V130= (*(LnkLI13))(/* INLINE-ARGS */V131); |
930 |
if(((*(LnkLI10))((V129),VV[94]))==Cnil){ |
if(((*(LnkLI10))((V130),VV[94]))==Cnil){ |
931 |
goto T307;} |
goto T307;} |
932 |
(void)((*(LnkLI255))()); |
(void)((*(LnkLI255))()); |
933 |
if(!(type_of((V128))==t_symbol)){ |
if(!(type_of((V129))==t_symbol)){ |
934 |
goto T311;} |
goto T311;} |
935 |
goto T310; |
goto T310; |
936 |
goto T311; |
goto T311; |
937 |
T311:; |
T311:; |
938 |
base[0]= VV[95]; |
base[0]= VV[95]; |
939 |
base[1]= (V128); |
base[1]= (V129); |
940 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
941 |
Lerror(); |
Lerror(); |
942 |
vs_top=sup; |
vs_top=sup; |
943 |
goto T310; |
goto T310; |
944 |
T310:; |
T310:; |
945 |
V131= (*(LnkLI255))(); |
V132= (*(LnkLI255))(); |
946 |
(void)((VFUN_NARGS=7,(*(LnkLI267))((V128),/* INLINE-ARGS */V131,(((V126))==Cnil?Ct:Cnil),Cnil,Cnil,Ct,(V127)))); |
(void)((VFUN_NARGS=7,(*(LnkLI267))((V129),/* INLINE-ARGS */V132,(((V127))==Cnil?Ct:Cnil),Cnil,Cnil,Ct,(V128)))); |
947 |
goto T304; |
goto T304; |
948 |
goto T307; |
goto T307; |
949 |
T307:; |
T307:; |
950 |
(void)((VFUN_NARGS=5,(*(LnkLI268))((V128),Cnil,Cnil,(((V126))==Cnil?Ct:Cnil),(V127))));} |
(void)((VFUN_NARGS=5,(*(LnkLI268))((V129),Cnil,Cnil,(((V127))==Cnil?Ct:Cnil),(V128))));} |
951 |
goto T304; |
goto T304; |
952 |
T304:; |
T304:; |
953 |
{object V132; |
{object V133; |
954 |
V133= (*(LnkLI254))(); |
V134= (*(LnkLI254))(); |
955 |
V132= (*(LnkLI13))(/* INLINE-ARGS */V133); |
V133= (*(LnkLI13))(/* INLINE-ARGS */V134); |
956 |
if(((*(LnkLI10))((V132),VV[5]))==Cnil){ |
if(((*(LnkLI10))((V133),VV[5]))==Cnil){ |
957 |
goto T317;} |
goto T317;} |
958 |
(void)((*(LnkLI255))()); |
(void)((*(LnkLI255))()); |
959 |
{object V134; |
{object V135; |
960 |
V135= (*(LnkLI255))(); |
V136= (*(LnkLI255))(); |
961 |
V134= (*(LnkLI13))(/* INLINE-ARGS */V135); |
V135= (*(LnkLI13))(/* INLINE-ARGS */V136); |
962 |
if(((*(LnkLI10))((V134),VV[87]))==Cnil){ |
if(((*(LnkLI10))((V135),VV[87]))==Cnil){ |
963 |
goto T322;} |
goto T322;} |
964 |
{object V136 = (VFUN_NARGS=1,(*(LnkLI263))(Ct)); |
{object V137 = (VFUN_NARGS=1,(*(LnkLI263))(Ct)); |
965 |
VMR23(V136)} |
VMR23(V137)} |
966 |
goto T322; |
goto T322; |
967 |
T322:; |
T322:; |
968 |
if(((*(LnkLI10))((V134),VV[91]))==Cnil){ |
if(((*(LnkLI10))((V135),VV[91]))==Cnil){ |
969 |
goto T325;} |
goto T325;} |
970 |
{object V137 = (VFUN_NARGS=2,(*(LnkLI263))(Ct,Ct)); |
{object V138 = (VFUN_NARGS=2,(*(LnkLI263))(Ct,Ct)); |
971 |
VMR23(V137)} |
VMR23(V138)} |
972 |
goto T325; |
goto T325; |
973 |
T325:; |
T325:; |
974 |
(void)((*(LnkLI266))()); |
(void)((*(LnkLI266))()); |
975 |
{object V138 = (VFUN_NARGS=1,(*(LnkLI263))(Ct)); |
{object V139 = (VFUN_NARGS=1,(*(LnkLI263))(Ct)); |
976 |
VMR23(V138)}} |
VMR23(V139)}} |
977 |
goto T317; |
goto T317; |
978 |
T317:; |
T317:; |
979 |
{object V139 = Cnil; |
{object V140 = Cnil; |
980 |
VMR23(V139)}}} |
VMR23(V140)}}} |
981 |
va_end(ap); |
va_end(ap); |
982 |
base[0]=base[0]; |
base[0]=base[0]; |
983 |
return Cnil;} |
return Cnil;} |
989 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
990 |
goto TTL; |
goto TTL; |
991 |
TTL:; |
TTL:; |
|
{register object V140; |
|
|
V140= Cnil; |
|
992 |
{register object V141; |
{register object V141; |
993 |
V141= (*(LnkLI255))(); |
V141= Cnil; |
994 |
|
{register object V142; |
995 |
|
V142= (*(LnkLI255))(); |
996 |
goto T332; |
goto T332; |
997 |
T332:; |
T332:; |
998 |
if(!(type_of((V141))==t_cons||((V141))==Cnil)){ |
if(!(type_of((V142))==t_cons||((V142))==Cnil)){ |
999 |
goto T337;} |
goto T337;} |
1000 |
{register object V142; |
{register object V143; |
1001 |
V142= (V141); |
V143= (V142); |
1002 |
V140= make_cons((V142),(V140));} |
V141= make_cons((V143),(V141));} |
1003 |
if(symbol_value(VV[34])!=Cnil){ |
if((VV[34]->s.s_dbind)!=Cnil){ |
1004 |
goto T335;} |
goto T335;} |
1005 |
goto T329; |
goto T329; |
1006 |
goto T337; |
goto T337; |
1009 |
goto T329; |
goto T329; |
1010 |
goto T335; |
goto T335; |
1011 |
T335:; |
T335:; |
1012 |
V141= (*(LnkLI255))(); |
V142= (*(LnkLI255))(); |
1013 |
goto T332;} |
goto T332;} |
1014 |
goto T329; |
goto T329; |
1015 |
T329:; |
T329:; |
1016 |
if((V140)!=Cnil){ |
if((V141)!=Cnil){ |
1017 |
goto T346;} |
goto T346;} |
1018 |
base[0]= VV[96]; |
base[0]= VV[96]; |
1019 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1021 |
vs_top=sup; |
vs_top=sup; |
1022 |
goto T346; |
goto T346; |
1023 |
T346:; |
T346:; |
1024 |
{object V143 = (V140); |
{object V144 = (V141); |
1025 |
VMR24(V143)}} |
VMR24(V144)}} |
1026 |
base[0]=base[0]; |
base[0]=base[0]; |
1027 |
return Cnil; |
return Cnil; |
1028 |
} |
} |
1029 |
/* local entry for function PARSE-LOOP-INITIALLY */ |
/* local entry for function PARSE-LOOP-INITIALLY */ |
1030 |
|
|
1031 |
static object LI25(V145) |
static object LI25(V146) |
1032 |
|
|
1033 |
object V145; |
object V146; |
1034 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
1035 |
goto TTL; |
goto TTL; |
1036 |
TTL:; |
TTL:; |
|
{object V146; |
|
|
V146= (*(LnkLI13))((V145)); |
|
|
if(((*(LnkLI10))((V146),VV[97]))==Cnil){ |
|
|
goto T350;} |
|
1037 |
{object V147; |
{object V147; |
1038 |
V147= (*(LnkLI258))(); |
V147= (*(LnkLI13))((V146)); |
1039 |
{register object V148; |
if(((*(LnkLI10))((V147),VV[97]))==Cnil){ |
1040 |
register object V149; |
goto T350;} |
1041 |
V148= nreverse((V147)); |
{object V148; |
1042 |
V149= car((V148)); |
V148= (*(LnkLI258))(); |
1043 |
|
{register object V149; |
1044 |
|
register object V150; |
1045 |
|
V149= nreverse((V148)); |
1046 |
|
V150= CMPcar((V149)); |
1047 |
goto T356; |
goto T356; |
1048 |
T356:; |
T356:; |
1049 |
if(!(endp_prop((V148)))){ |
if(!(((V149))==Cnil)){ |
1050 |
goto T357;} |
goto T357;} |
1051 |
{object V150 = Cnil; |
{object V151 = Cnil; |
1052 |
VMR25(V150)} |
VMR25(V151)} |
1053 |
goto T357; |
goto T357; |
1054 |
T357:; |
T357:; |
1055 |
{register object V151; |
{register object V152; |
1056 |
if(type_of((V149))==t_cons||((V149))==Cnil){ |
if(type_of((V150))==t_cons||((V150))==Cnil){ |
1057 |
goto T363;} |
goto T363;} |
1058 |
V151= Cnil; |
V152= Cnil; |
1059 |
goto T362; |
goto T362; |
1060 |
goto T363; |
goto T363; |
1061 |
T363:; |
T363:; |
1062 |
{register object x= car((V149)),V152= VV[98]; |
{register object x= CMPcar((V150)),V153= VV[98]; |
1063 |
while(!endp(V152)) |
while(V153!=Cnil) |
1064 |
if(eql(x,V152->c.c_car)){ |
if(eql(x,V153->c.c_car)){ |
1065 |
goto T365; |
goto T365; |
1066 |
}else V152=V152->c.c_cdr;} |
}else V153=V153->c.c_cdr;} |
1067 |
V151= Cnil; |
V152= Cnil; |
1068 |
goto T362; |
goto T362; |
1069 |
goto T365; |
goto T365; |
1070 |
T365:; |
T365:; |
1071 |
if(((long)length((V149)))==(3)){ |
if(((long)length((V150)))==(3)){ |
1072 |
goto T367;} |
goto T367;} |
1073 |
V151= Cnil; |
V152= Cnil; |
1074 |
goto T362; |
goto T362; |
1075 |
goto T367; |
goto T367; |
1076 |
T367:; |
T367:; |
1077 |
if(type_of(cadr((V149)))==t_symbol){ |
if(type_of(CMPcadr((V150)))==t_symbol){ |
1078 |
goto T369;} |
goto T369;} |
1079 |
V151= Cnil; |
V152= Cnil; |
1080 |
goto T362; |
goto T362; |
1081 |
goto T369; |
goto T369; |
1082 |
T369:; |
T369:; |
1083 |
base[2]= caddr((V149)); |
base[2]= CMPcaddr((V150)); |
1084 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1085 |
Lconstantp(); |
Lconstantp(); |
1086 |
vs_top=sup; |
vs_top=sup; |
1087 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1088 |
goto T371;} |
goto T371;} |
1089 |
V151= Cnil; |
V152= Cnil; |
1090 |
goto T362; |
goto T362; |
1091 |
goto T371; |
goto T371; |
1092 |
T371:; |
T371:; |
1093 |
{register object x= cadr((V149)),V153= caar(symbol_value(VV[46])); |
{register object x= CMPcadr((V150)),V154= CMPcaar((VV[46]->s.s_dbind)); |
1094 |
while(!endp(V153)) |
while(V154!=Cnil) |
1095 |
if(type_of(V153->c.c_car)==t_cons &&eql(x,V153->c.c_car->c.c_car)){ |
if(eql(x,V154->c.c_car->c.c_car) &&V154->c.c_car != Cnil){ |
1096 |
goto T374; |
goto T374; |
1097 |
}else V153=V153->c.c_cdr;} |
}else V154=V154->c.c_cdr;} |
1098 |
V151= Cnil; |
V152= Cnil; |
1099 |
goto T362; |
goto T362; |
1100 |
goto T374; |
goto T374; |
1101 |
T374:; |
T374:; |
1102 |
V151= (VFUN_NARGS=7,(*(LnkLI267))(cadr((V149)),caddr((V149)),Cnil,Cnil,Cnil,Ct,Ct)); |
V152= (VFUN_NARGS=7,(*(LnkLI267))(CMPcadr((V150)),CMPcaddr((V150)),Cnil,Cnil,Cnil,Ct,Ct)); |
1103 |
goto T362; |
goto T362; |
1104 |
T362:; |
T362:; |
1105 |
if(((V151))==Cnil){ |
if(((V152))==Cnil){ |
1106 |
goto T377;} |
goto T377;} |
1107 |
goto T361; |
goto T361; |
1108 |
goto T377; |
goto T377; |
1109 |
T377:; |
T377:; |
1110 |
setq(VV[48],make_cons((V149),symbol_value(VV[48])));} |
(VV[48]->s.s_dbind)= make_cons((V150),(VV[48]->s.s_dbind));} |
1111 |
goto T361; |
goto T361; |
1112 |
T361:; |
T361:; |
1113 |
V148= cdr((V148)); |
V149= CMPcdr((V149)); |
1114 |
V149= car((V148)); |
V150= CMPcar((V149)); |
1115 |
goto T356;}} |
goto T356;}} |
1116 |
goto T350; |
goto T350; |
1117 |
T350:; |
T350:; |
1118 |
if(((*(LnkLI10))((V146),VV[99]))==Cnil){ |
if(((*(LnkLI10))((V147),VV[99]))==Cnil){ |
1119 |
goto T386;} |
goto T386;} |
1120 |
V154= (*(LnkLI258))(); |
V155= (*(LnkLI258))(); |
1121 |
setq(VV[43],append(/* INLINE-ARGS */V154,symbol_value(VV[43]))); |
(VV[43]->s.s_dbind)= append(/* INLINE-ARGS */V155,(VV[43]->s.s_dbind)); |
1122 |
{object V155 = symbol_value(VV[43]); |
{object V156 = (VV[43]->s.s_dbind); |
1123 |
VMR25(V155)} |
VMR25(V156)} |
1124 |
goto T386; |
goto T386; |
1125 |
T386:; |
T386:; |
1126 |
base[0]= VV[85]; |
base[0]= VV[85]; |
1127 |
base[1]= (V146); |
base[1]= (V147); |
1128 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1129 |
Lerror(); |
Lerror(); |
1130 |
vs_top=sup; |
vs_top=sup; |
1131 |
{object V156 = vs_base[0]; |
{object V157 = vs_base[0]; |
1132 |
VMR25(V156)}} |
VMR25(V157)}} |
1133 |
base[0]=base[0]; |
base[0]=base[0]; |
1134 |
return Cnil; |
return Cnil; |
1135 |
} |
} |
1140 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
1141 |
goto TTL; |
goto TTL; |
1142 |
TTL:; |
TTL:; |
1143 |
{register object V157; |
{register object V158; |
|
register object V158; |
|
1144 |
register object V159; |
register object V159; |
1145 |
V157= Cnil; |
register object V160; |
1146 |
V158= VV[100]; |
V158= Cnil; |
1147 |
V159= Cnil; |
V159= VV[100]; |
1148 |
|
V160= Cnil; |
1149 |
goto T396; |
goto T396; |
1150 |
T396:; |
T396:; |
1151 |
if((symbol_value(VV[34]))==Cnil){ |
if(((VV[34]->s.s_dbind))==Cnil){ |
1152 |
goto T399;} |
goto T399;} |
1153 |
goto T398; |
goto T398; |
1154 |
goto T399; |
goto T399; |
1156 |
goto T394; |
goto T394; |
1157 |
goto T398; |
goto T398; |
1158 |
T398:; |
T398:; |
1159 |
V159= (*(LnkLI255))(); |
V160= (*(LnkLI255))(); |
|
{register object V160; |
|
|
V160= (*(LnkLI13))((V159)); |
|
1160 |
{register object V161; |
{register object V161; |
1161 |
V161= (*(LnkLI256))((V160)); |
V161= (*(LnkLI13))((V160)); |
1162 |
if(((V161))==Cnil){ |
{register object V162; |
1163 |
|
V162= (*(LnkLI256))((V161)); |
1164 |
|
if(((V162))==Cnil){ |
1165 |
goto T407;} |
goto T407;} |
1166 |
goto T403; |
goto T403; |
1167 |
goto T407; |
goto T407; |
1168 |
T407:; |
T407:; |
1169 |
if(((*(LnkLI260))((V160)))==Cnil){ |
if(((*(LnkLI260))((V161)))==Cnil){ |
1170 |
goto T410;} |
goto T410;} |
1171 |
if(!(eql(VV[100],(V158)))){ |
if(!(eql(VV[100],(V159)))){ |
1172 |
goto T413;} |
goto T413;} |
1173 |
goto T412; |
goto T412; |
1174 |
goto T413; |
goto T413; |
1176 |
goto T397; |
goto T397; |
1177 |
goto T412; |
goto T412; |
1178 |
T412:; |
T412:; |
1179 |
V162= (*(LnkLI261))(); |
V163= (*(LnkLI261))(); |
1180 |
V157= append(/* INLINE-ARGS */V162,(V157)); |
V158= append(/* INLINE-ARGS */V163,(V158)); |
1181 |
V158= VV[5]; |
V159= VV[5]; |
1182 |
goto T403; |
goto T403; |
1183 |
goto T410; |
goto T410; |
1184 |
T410:; |
T410:; |
1185 |
if(((*(LnkLI10))((V160),VV[101]))==Cnil){ |
if(((*(LnkLI10))((V161),VV[101]))==Cnil){ |
1186 |
goto T419;} |
goto T419;} |
1187 |
if(!(eql(VV[100],(V158)))){ |
if(!(eql(VV[100],(V159)))){ |
1188 |
goto T422;} |
goto T422;} |
1189 |
goto T421; |
goto T421; |
1190 |
goto T422; |
goto T422; |
1192 |
goto T397; |
goto T397; |
1193 |
goto T421; |
goto T421; |
1194 |
T421:; |
T421:; |
1195 |
V163= (*(LnkLI259))(); |
V164= (*(LnkLI259))(); |
1196 |
V157= append(/* INLINE-ARGS */V163,(V157)); |
V158= append(/* INLINE-ARGS */V164,(V158)); |
1197 |
V158= VV[5]; |
V159= VV[5]; |
1198 |
goto T403; |
goto T403; |
1199 |
goto T419; |
goto T419; |
1200 |
T419:; |
T419:; |
1201 |
if(((*(LnkLI10))((V160),VV[56]))==Cnil){ |
if(((*(LnkLI10))((V161),VV[56]))==Cnil){ |
1202 |
goto T428;} |
goto T428;} |
1203 |
if(!(eql(VV[100],(V158)))){ |
if(!(eql(VV[100],(V159)))){ |
1204 |
goto T431;} |
goto T431;} |
1205 |
goto T430; |
goto T430; |
1206 |
goto T431; |
goto T431; |
1208 |
goto T397; |
goto T397; |
1209 |
goto T430; |
goto T430; |
1210 |
T430:; |
T430:; |
1211 |
V164= (*(LnkLI258))(); |
V165= (*(LnkLI258))(); |
1212 |
V157= append(/* INLINE-ARGS */V164,(V157)); |
V158= append(/* INLINE-ARGS */V165,(V158)); |
1213 |
V158= VV[5]; |
V159= VV[5]; |
1214 |
goto T403; |
goto T403; |
1215 |
goto T428; |
goto T428; |
1216 |
T428:; |
T428:; |
1217 |
if(((*(LnkLI10))((V160),VV[5]))==Cnil){ |
if(((*(LnkLI10))((V161),VV[5]))==Cnil){ |
1218 |
goto T437;} |
goto T437;} |
1219 |
if(!(eql(VV[5],(V158)))){ |
if(!(eql(VV[5],(V159)))){ |
1220 |
goto T440;} |
goto T440;} |
1221 |
goto T439; |
goto T439; |
1222 |
goto T440; |
goto T440; |
1227 |
vs_top=sup; |
vs_top=sup; |
1228 |
goto T439; |
goto T439; |
1229 |
T439:; |
T439:; |
1230 |
V158= VV[100]; |
V159= VV[100]; |
1231 |
goto T403; |
goto T403; |
1232 |
goto T437; |
goto T437; |
1233 |
T437:; |
T437:; |
1242 |
goto T394; |
goto T394; |
1243 |
goto T394; |
goto T394; |
1244 |
T394:; |
T394:; |
1245 |
if((V157)!=Cnil){ |
if((V158)!=Cnil){ |
1246 |
goto T446;} |
goto T446;} |
1247 |
base[0]= VV[103]; |
base[0]= VV[103]; |
1248 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1250 |
vs_top=sup; |
vs_top=sup; |
1251 |
goto T446; |
goto T446; |
1252 |
T446:; |
T446:; |
1253 |
{object V165 = (V157); |
{object V166 = (V158); |
1254 |
VMR26(V165)}} |
VMR26(V166)}} |
1255 |
base[0]=base[0]; |
base[0]=base[0]; |
1256 |
return Cnil; |
return Cnil; |
1257 |
} |
} |
1262 |
{ VMB27 VMS27 VMV27 |
{ VMB27 VMS27 VMV27 |
1263 |
goto TTL; |
goto TTL; |
1264 |
TTL:; |
TTL:; |
1265 |
{object V166; |
{object V167; |
|
object V167; |
|
1266 |
object V168; |
object V168; |
1267 |
V166= Cnil; |
object V169; |
1268 |
V167= Cnil; |
V167= Cnil; |
1269 |
V168= Cnil; |
V168= Cnil; |
1270 |
{object V169; |
V169= Cnil; |
1271 |
if(((*(LnkLI10))(symbol_value(VV[35]),VV[104]))==Cnil){ |
{object V170; |
1272 |
|
if(((*(LnkLI10))((VV[35]->s.s_dbind),VV[104]))==Cnil){ |
1273 |
goto T453;} |
goto T453;} |
1274 |
V169= list(2,VV[105],(*(LnkLI255))()); |
V170= list(2,VV[105],(*(LnkLI255))()); |
1275 |
goto T451; |
goto T451; |
1276 |
goto T453; |
goto T453; |
1277 |
T453:; |
T453:; |
1278 |
V169= (*(LnkLI255))(); |
V170= (*(LnkLI255))(); |
1279 |
goto T451; |
goto T451; |
1280 |
T451:; |
T451:; |
1281 |
V166= (*(LnkLI269))(); |
V167= (*(LnkLI269))(); |
1282 |
{object V170; |
{object V171; |
1283 |
V171= (*(LnkLI254))(); |
V172= (*(LnkLI254))(); |
1284 |
V170= (*(LnkLI13))(/* INLINE-ARGS */V171); |
V171= (*(LnkLI13))(/* INLINE-ARGS */V172); |
1285 |
if(((*(LnkLI10))((V170),VV[106]))==Cnil){ |
if(((*(LnkLI10))((V171),VV[106]))==Cnil){ |
1286 |
goto T457;} |
goto T457;} |
1287 |
(void)((*(LnkLI255))()); |
(void)((*(LnkLI255))()); |
1288 |
V167= Ct; |
V168= Ct; |
1289 |
V168= (*(LnkLI269))();} |
V169= (*(LnkLI269))();} |
1290 |
goto T457; |
goto T457; |
1291 |
T457:; |
T457:; |
1292 |
V172= nreverse((V166)); |
V173= nreverse((V167)); |
1293 |
V173= make_cons((V169),/* INLINE-ARGS */V172); |
V174= make_cons((V170),/* INLINE-ARGS */V173); |
1294 |
if((V167)==Cnil){ |
if((V168)==Cnil){ |
1295 |
V174= Cnil; |
V175= Cnil; |
1296 |
goto T465;} |
goto T465;} |
1297 |
V175= nreverse((V168)); |
V176= nreverse((V169)); |
1298 |
V176= make_cons(Ct,/* INLINE-ARGS */V175); |
V177= make_cons(Ct,/* INLINE-ARGS */V176); |
1299 |
V174= make_cons(/* INLINE-ARGS */V176,Cnil); |
V175= make_cons(/* INLINE-ARGS */V177,Cnil); |
1300 |
goto T465; |
goto T465; |
1301 |
T465:; |
T465:; |
1302 |
V177= listA(3,VV[14],/* INLINE-ARGS */V173,V174); |
V178= listA(3,VV[14],/* INLINE-ARGS */V174,V175); |
1303 |
{object V178 = make_cons(/* INLINE-ARGS */V177,Cnil); |
{object V179 = make_cons(/* INLINE-ARGS */V178,Cnil); |
1304 |
VMR27(V178)}}} |
VMR27(V179)}}} |
1305 |
return Cnil; |
return Cnil; |
1306 |
} |
} |
1307 |
/* local entry for function POINTER-FOR-COLLECT */ |
/* local entry for function POINTER-FOR-COLLECT */ |
1308 |
|
|
1309 |
static object LI28(V180) |
static object LI28(V181) |
1310 |
|
|
1311 |
object V180; |
object V181; |
1312 |
{ VMB28 VMS28 VMV28 |
{ VMB28 VMS28 VMV28 |
1313 |
goto TTL; |
goto TTL; |
1314 |
TTL:;{object V181; |
TTL:;{object V182; |
1315 |
{register object x= (V180),V183= symbol_value(VV[52]); |
{register object x= (V181),V184= (VV[52]->s.s_dbind); |
1316 |
while(!endp(V183)) |
while(V184!=Cnil) |
1317 |
if(type_of(V183->c.c_car)==t_cons &&eql(x,V183->c.c_car->c.c_car)){ |
if(eql(x,V184->c.c_car->c.c_car) &&V184->c.c_car != Cnil){ |
1318 |
V182= (V183->c.c_car); |
V183= (V184->c.c_car); |
1319 |
goto T468; |
goto T468; |
1320 |
}else V183=V183->c.c_cdr; |
}else V184=V184->c.c_cdr; |
1321 |
V182= Cnil;} |
V183= Cnil;} |
1322 |
goto T468; |
goto T468; |
1323 |
T468:; |
T468:; |
1324 |
V181= cdr(V182); |
V182= CMPcdr(V183); |
1325 |
if(V181==Cnil)goto T466; |
if(V182==Cnil)goto T466; |
1326 |
{object V184 = V181; |
{object V185 = V182; |
1327 |
VMR28(V184)} |
VMR28(V185)} |
1328 |
goto T466; |
goto T466; |
1329 |
T466:;} |
T466:;} |
1330 |
{object V185; |
{object V186; |
1331 |
base[0]= VV[107]; |
base[0]= VV[107]; |
1332 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1333 |
Lgensym(); |
Lgensym(); |
1334 |
vs_top=sup; |
vs_top=sup; |
1335 |
V186= vs_base[0]; |
V187= vs_base[0]; |
1336 |
V185= (VFUN_NARGS=4,(*(LnkLI267))(V186,Cnil,Cnil,VV[0])); |
V186= (VFUN_NARGS=4,(*(LnkLI267))(V187,Cnil,Cnil,VV[0])); |
1337 |
{object V187; |
{object V188; |
1338 |
V187= make_cons((V180),(V185)); |
V188= make_cons((V181),(V186)); |
1339 |
setq(VV[52],make_cons((V187),symbol_value(VV[52])));} |
(VV[52]->s.s_dbind)= make_cons((V188),(VV[52]->s.s_dbind));} |
1340 |
{object V188 = (V185); |
{object V189 = (V186); |
1341 |
VMR28(V188)}} |
VMR28(V189)}} |
1342 |
base[0]=base[0]; |
base[0]=base[0]; |
1343 |
return Cnil; |
return Cnil; |
1344 |
} |
} |
1349 |
{ VMB29 VMS29 VMV29 |
{ VMB29 VMS29 VMV29 |
1350 |
goto TTL; |
goto TTL; |
1351 |
TTL:; |
TTL:; |
1352 |
{register object V189; |
{register object V190; |
|
register object V190; |
|
1353 |
register object V191; |
register object V191; |
1354 |
V189= Cnil; |
register object V192; |
1355 |
V190= Cnil; |
V190= Cnil; |
1356 |
V191= Cnil; |
V191= Cnil; |
1357 |
if(symbol_value(VV[50])==Cnil){ |
V192= Cnil; |
1358 |
|
if((VV[50]->s.s_dbind)==Cnil){ |
1359 |
goto T478;} |
goto T478;} |
1360 |
{frame_ptr fr; |
{frame_ptr fr; |
1361 |
fr=frs_sch_catch(VV[27]); |
fr=frs_sch_catch(VV[27]); |
1365 |
unwind(fr,VV[27]);} |
unwind(fr,VV[27]);} |
1366 |
goto T478; |
goto T478; |
1367 |
T478:; |
T478:; |
1368 |
{register object V192; |
{register object V193; |
1369 |
register object V193; |
register object V194; |
1370 |
V192= symbol_value(VV[35]); |
V193= (VV[35]->s.s_dbind); |
1371 |
V193= (*(LnkLI255))(); |
V194= (*(LnkLI255))(); |
1372 |
{object V194; |
{object V195; |
1373 |
V195= (*(LnkLI255))(); |
V196= (*(LnkLI255))(); |
1374 |
V194= (*(LnkLI13))(/* INLINE-ARGS */V195); |
V195= (*(LnkLI13))(/* INLINE-ARGS */V196); |
1375 |
if(((*(LnkLI10))((V194),VV[108]))==Cnil){ |
if(((*(LnkLI10))((V195),VV[108]))==Cnil){ |
1376 |
goto T485;} |
goto T485;} |
1377 |
V189= (*(LnkLI255))(); |
V190= (*(LnkLI255))(); |
1378 |
(void)((VFUN_NARGS=6,(*(LnkLI267))((V189),Cnil,Cnil,Ct,Cnil,Ct))); |
(void)((VFUN_NARGS=6,(*(LnkLI267))((V190),Cnil,Cnil,Ct,Cnil,Ct))); |
1379 |
goto T482; |
goto T482; |
1380 |
goto T485; |
goto T485; |
1381 |
T485:; |
T485:; |
1382 |
(void)((*(LnkLI266))()); |
(void)((*(LnkLI266))()); |
1383 |
if((symbol_value(VV[45]))==Cnil){ |
if(((VV[45]->s.s_dbind))==Cnil){ |
1384 |
goto T490;} |
goto T490;} |
1385 |
V189= symbol_value(VV[45]); |
V190= (VV[45]->s.s_dbind); |
1386 |
goto T482; |
goto T482; |
1387 |
goto T490; |
goto T490; |
1388 |
T490:; |
T490:; |
1390 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1391 |
Lgensym(); |
Lgensym(); |
1392 |
vs_top=sup; |
vs_top=sup; |
1393 |
V196= vs_base[0]; |
V197= vs_base[0]; |
1394 |
setq(VV[45],(VFUN_NARGS=2,(*(LnkLI267))(V196,Cnil))); |
(VV[45]->s.s_dbind)= (VFUN_NARGS=2,(*(LnkLI267))(V197,Cnil)); |
1395 |
V189= symbol_value(VV[45]);} |
V190= (VV[45]->s.s_dbind);} |
1396 |
goto T482; |
goto T482; |
1397 |
T482:; |
T482:; |
1398 |
{object V197; |
{object V198; |
1399 |
V197= (*(LnkLI13))((V192)); |
V198= (*(LnkLI13))((V193)); |
1400 |
if(((*(LnkLI10))((V197),VV[110]))==Cnil){ |
if(((*(LnkLI10))((V198),VV[110]))==Cnil){ |
1401 |
goto T497;} |
goto T497;} |
1402 |
V190= (*(LnkLI270))((V189)); |
V191= (*(LnkLI270))((V190)); |
1403 |
if((symbol_value(VV[111]))==Cnil){ |
if(((VV[111]->s.s_dbind))==Cnil){ |
1404 |
goto T503;} |
goto T503;} |
1405 |
{object V198; |
{object V199; |
1406 |
V198= list(3,VV[15],(V190),list(2,VV[112],(V189))); |
V199= list(3,VV[15],(V191),list(2,VV[112],(V190))); |
1407 |
base[1]= (V198); |
base[1]= (V199); |
1408 |
base[2]= symbol_value(VV[48]); |
base[2]= (VV[48]->s.s_dbind); |
1409 |
base[3]= VV[30]; |
base[3]= VV[30]; |
1410 |
base[4]= VV[113]; |
base[4]= VV[113]; |
1411 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
1412 |
Ladjoin(); |
Ladjoin(); |
1413 |
vs_top=sup; |
vs_top=sup; |
1414 |
setq(VV[48],vs_base[0]);} |
(VV[48]->s.s_dbind)= vs_base[0];} |
1415 |
goto T503; |
goto T503; |
1416 |
T503:; |
T503:; |
1417 |
{object V199; |
{object V200; |
1418 |
V199= (*(LnkLI13))((V192)); |
V200= (*(LnkLI13))((V193)); |
1419 |
if(((*(LnkLI10))((V199),VV[114]))==Cnil){ |
if(((*(LnkLI10))((V200),VV[114]))==Cnil){ |
1420 |
goto T497;} |
goto T497;} |
1421 |
if(!(type_of((V193))==t_cons||((V193))==Cnil)){ |
if(!(type_of((V194))==t_cons||((V194))==Cnil)){ |
1422 |
goto T515;} |
goto T515;} |
1423 |
if(eql(car((V193)),VV[61])){ |
if(eql(CMPcar((V194)),VV[61])){ |
1424 |
goto T497;} |
goto T497;} |
1425 |
goto T515; |
goto T515; |
1426 |
T515:; |
T515:; |
1427 |
V193= list(2,VV[115],(V193));}} |
V194= list(2,VV[115],(V194));}} |
1428 |
goto T497; |
goto T497; |
1429 |
T497:; |
T497:; |
1430 |
if(!(type_of((V193))==t_cons||((V193))==Cnil)){ |
if(!(type_of((V194))==t_cons||((V194))==Cnil)){ |
1431 |
goto T522;} |
goto T522;} |
1432 |
if((symbol_value(VV[111]))!=Cnil){ |
if(((VV[111]->s.s_dbind))!=Cnil){ |
1433 |
goto T522;} |
goto T522;} |
1434 |
base[0]= VV[116]; |
base[0]= VV[116]; |
1435 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1436 |
Lgensym(); |
Lgensym(); |
1437 |
vs_top=sup; |
vs_top=sup; |
1438 |
V200= vs_base[0]; |
V201= vs_base[0]; |
1439 |
V191= (VFUN_NARGS=3,(*(LnkLI267))(V200,Cnil,Cnil)); |
V192= (VFUN_NARGS=3,(*(LnkLI267))(V201,Cnil,Cnil)); |
1440 |
goto T520; |
goto T520; |
1441 |
goto T522; |
goto T522; |
1442 |
T522:; |
T522:; |
1443 |
V191= (V193); |
V192= (V194); |
1444 |
goto T520; |
goto T520; |
1445 |
T520:; |
T520:; |
|
{object V201; |
|
1446 |
{object V202; |
{object V202; |
|
V202= (*(LnkLI13))((V192)); |
|
|
if(((*(LnkLI10))((V202),VV[117]))==Cnil){ |
|
|
goto T533;} |
|
1447 |
{object V203; |
{object V203; |
1448 |
V204= list(3,VV[15],list(2,VV[18],(V190)),(V191)); |
V203= (*(LnkLI13))((V193)); |
1449 |
V203= list(3,VV[5],/* INLINE-ARGS */V204,list(3,VV[15],(V190),list(2,VV[118],list(2,VV[18],(V190))))); |
if(((*(LnkLI10))((V203),VV[117]))==Cnil){ |
1450 |
if((symbol_value(VV[111]))==Cnil){ |
goto T533;} |
1451 |
|
{object V204; |
1452 |
|
V205= list(3,VV[15],list(2,VV[18],(V191)),(V192)); |
1453 |
|
V204= list(3,VV[5],/* INLINE-ARGS */V205,list(3,VV[15],(V191),list(2,VV[118],list(2,VV[18],(V191))))); |
1454 |
|
if(((VV[111]->s.s_dbind))==Cnil){ |
1455 |
goto T537;} |
goto T537;} |
1456 |
V201= make_cons((V203),Cnil); |
V202= make_cons((V204),Cnil); |
1457 |
goto T530; |
goto T530; |
1458 |
goto T537; |
goto T537; |
1459 |
T537:; |
T537:; |
1460 |
V205= list(2,(V190),(V203)); |
V206= list(2,(V191),(V204)); |
1461 |
V206= list(3,VV[14],/* INLINE-ARGS */V205,list(2,Ct,list(3,VV[15],(V190),list(2,VV[118],list(3,VV[15],(V189),(V191)))))); |
V207= list(3,VV[14],/* INLINE-ARGS */V206,list(2,Ct,list(3,VV[15],(V191),list(2,VV[118],list(3,VV[15],(V190),(V192)))))); |
1462 |
V201= make_cons(/* INLINE-ARGS */V206,Cnil); |
V202= make_cons(/* INLINE-ARGS */V207,Cnil); |
1463 |
goto T530;} |
goto T530;} |
1464 |
goto T533; |
goto T533; |
1465 |
T533:; |
T533:; |
1466 |
if(((*(LnkLI10))((V202),VV[27]))==Cnil){ |
if(((*(LnkLI10))((V203),VV[27]))==Cnil){ |
1467 |
goto T540;} |
goto T540;} |
1468 |
if((symbol_value(VV[111]))==Cnil){ |
if(((VV[111]->s.s_dbind))==Cnil){ |
1469 |
goto T543;} |
goto T543;} |
1470 |
V207= list(2,VV[18],(V190)); |
V208= list(2,VV[18],(V191)); |
1471 |
V208= list(3,VV[15],/* INLINE-ARGS */V207,list(3,VV[15],(V190),list(3,VV[119],(V191),Cnil))); |
V209= list(3,VV[15],/* INLINE-ARGS */V208,list(3,VV[15],(V191),list(3,VV[119],(V192),Cnil))); |
1472 |
V201= make_cons(/* INLINE-ARGS */V208,Cnil); |
V202= make_cons(/* INLINE-ARGS */V209,Cnil); |
1473 |
goto T530; |
goto T530; |
1474 |
goto T543; |
goto T543; |
1475 |
T543:; |
T543:; |
1476 |
V209= list(2,VV[18],(V190)); |
V210= list(2,VV[18],(V191)); |
1477 |
V210= list(2,(V190),list(3,VV[15],/* INLINE-ARGS */V209,list(3,VV[15],(V190),list(3,VV[119],(V191),Cnil)))); |
V211= list(2,(V191),list(3,VV[15],/* INLINE-ARGS */V210,list(3,VV[15],(V191),list(3,VV[119],(V192),Cnil)))); |
1478 |
V211= list(3,VV[14],/* INLINE-ARGS */V210,list(2,Ct,list(3,VV[15],(V189),list(3,VV[15],(V190),list(3,VV[119],(V191),Cnil))))); |
V212= list(3,VV[14],/* INLINE-ARGS */V211,list(2,Ct,list(3,VV[15],(V190),list(3,VV[15],(V191),list(3,VV[119],(V192),Cnil))))); |
1479 |
V201= make_cons(/* INLINE-ARGS */V211,Cnil); |
V202= make_cons(/* INLINE-ARGS */V212,Cnil); |
1480 |
goto T530; |
goto T530; |
1481 |
goto T540; |
goto T540; |
1482 |
T540:; |
T540:; |
1483 |
V192= (*(LnkLI13))((V192)); |
V193= (*(LnkLI13))((V193)); |
1484 |
if(((VFUN_NARGS=4,(*(LnkLI249))((V192),symbol_value(VV[28]),VV[30],VV[10])))==Cnil){ |
if(((VFUN_NARGS=4,(*(LnkLI249))((V193),(VV[28]->s.s_dbind),VV[30],VV[10])))==Cnil){ |
1485 |
goto T548;} |
goto T548;} |
1486 |
V201= (*(LnkLI271))((V192),(V189),(V191)); |
V202= (*(LnkLI271))((V193),(V190),(V192)); |
1487 |
goto T530; |
goto T530; |
1488 |
goto T548; |
goto T548; |
1489 |
T548:; |
T548:; |
1490 |
base[0]= VV[120]; |
base[0]= VV[120]; |
1491 |
base[1]= (V192); |
base[1]= (V193); |
1492 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1493 |
Lerror(); |
Lerror(); |
1494 |
vs_top=sup; |
vs_top=sup; |
1495 |
V201= vs_base[0];} |
V202= vs_base[0];} |
1496 |
goto T530; |
goto T530; |
1497 |
T530:; |
T530:; |
1498 |
if(!(eql((V191),(V193)))){ |
if(!(eql((V192),(V194)))){ |
1499 |
goto T553;} |
goto T553;} |
1500 |
{object V212 = (V201); |
{object V213 = (V202); |
1501 |
VMR29(V212)} |
VMR29(V213)} |
1502 |
goto T553; |
goto T553; |
1503 |
T553:; |
T553:; |
1504 |
V213= list(3,VV[15],(V191),(V193)); |
V214= list(3,VV[15],(V192),(V194)); |
1505 |
V214= make_cons(/* INLINE-ARGS */V213,Cnil); |
V215= make_cons(/* INLINE-ARGS */V214,Cnil); |
1506 |
{object V215 = nconc((V201),/* INLINE-ARGS */V214); |
{object V216 = nconc((V202),/* INLINE-ARGS */V215); |
1507 |
VMR29(V215)}}}} |
VMR29(V216)}}}} |
1508 |
base[0]=base[0]; |
base[0]=base[0]; |
1509 |
return Cnil; |
return Cnil; |
1510 |
} |
} |
1511 |
/* local entry for function LOOP-PARSE-ADDITIONAL-COLLECTIONS */ |
/* local entry for function LOOP-PARSE-ADDITIONAL-COLLECTIONS */ |
1512 |
|
|
1513 |
static object LI30(V219,V220,V221) |
static object LI30(V220,V221,V222) |
1514 |
|
|
1515 |
object V219;object V220;object V221; |
object V220;object V221;object V222; |
1516 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
1517 |
bds_check; |
bds_check; |
1518 |
goto TTL; |
goto TTL; |
1519 |
TTL:; |
TTL:; |
1520 |
{register object V222; |
{register object V223; |
1521 |
V222= Cnil; |
V223= Cnil; |
1522 |
{object V223; |
{object V224; |
1523 |
object V224; |
object V225; |
1524 |
V223= (VFUN_NARGS=4,(*(LnkLI249))((V219),symbol_value(VV[28]),VV[30],VV[10])); |
V224= (VFUN_NARGS=4,(*(LnkLI249))((V220),(VV[28]->s.s_dbind),VV[30],VV[10])); |
1525 |
V224= get((V223),VV[121],Cnil); |
{object V226 =((V224))->s.s_plist; |
1526 |
{object V225; |
object ind= VV[121]; |
1527 |
V225= ( |
while(V226!=Cnil){ |
1528 |
(type_of((V224)) == t_sfun ?(*(((V224))->sfn.sfn_self)): |
if(V226->c.c_car==ind){ |
1529 |
(fcall.fun=((V224)),fcall.argd=2,fcalln))((V220),(V221))); |
V225= (V226->c.c_cdr->c.c_car); |
1530 |
bds_bind(VV[34],(V225)); |
goto T557; |
1531 |
|
}else V226=V226->c.c_cdr->c.c_cdr;} |
1532 |
|
V225= Cnil;} |
1533 |
|
goto T557; |
1534 |
|
T557:; |
1535 |
|
{object V227; |
1536 |
|
V227= ( |
1537 |
|
(type_of((V225)) == t_sfun ?(*(((V225))->sfn.sfn_self)): |
1538 |
|
(fcall.argd=2,type_of((V225))==t_vfun) ? |
1539 |
|
(*(((V225))->sfn.sfn_self)): |
1540 |
|
(fcall.fun=((V225)),fcalln))((V221),(V222))); |
1541 |
|
bds_bind(VV[34],(V227)); |
1542 |
bds_bind(VV[35],Cnil); |
bds_bind(VV[35],Cnil); |
1543 |
{register object V226; |
{register object V228; |
1544 |
V226= (*(LnkLI255))(); |
V228= (*(LnkLI255))(); |
1545 |
goto T562; |
goto T562; |
1546 |
T562:; |
T562:; |
1547 |
if(((VV[34]->s.s_dbind))!=Cnil){ |
if(((VV[34]->s.s_dbind))!=Cnil){ |
1549 |
goto T559; |
goto T559; |
1550 |
goto T563; |
goto T563; |
1551 |
T563:; |
T563:; |
1552 |
{register object V227; |
{register object V229; |
1553 |
V227= (*(LnkLI13))((V226)); |
V229= (*(LnkLI13))((V228)); |
1554 |
{register object V228; |
{register object V230; |
1555 |
V228= (*(LnkLI256))((V227)); |
V230= (*(LnkLI256))((V229)); |
1556 |
if(((V228))==Cnil){ |
if(((V230))==Cnil){ |
1557 |
goto T571;} |
goto T571;} |
1558 |
goto T567; |
goto T567; |
1559 |
goto T571; |
goto T571; |
1560 |
T571:; |
T571:; |
1561 |
if(((*(LnkLI10))((V227),VV[56]))==Cnil){ |
if(((*(LnkLI10))((V229),VV[56]))==Cnil){ |
1562 |
goto T574;} |
goto T574;} |
1563 |
V222= (*(LnkLI258))(); |
V223= (*(LnkLI258))(); |
1564 |
goto T567; |
goto T567; |
1565 |
goto T574; |
goto T574; |
1566 |
T574:; |
T574:; |
1567 |
base[4]= VV[85]; |
base[4]= VV[85]; |
1568 |
base[5]= (V227); |
base[5]= (V229); |
1569 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1570 |
Lerror(); |
Lerror(); |
1571 |
vs_top=sup;}} |
vs_top=sup;}} |
1572 |
goto T567; |
goto T567; |
1573 |
T567:; |
T567:; |
1574 |
V226= (*(LnkLI255))(); |
V228= (*(LnkLI255))(); |
1575 |
goto T562;} |
goto T562;} |
1576 |
goto T559; |
goto T559; |
1577 |
T559:; |
T559:; |
1578 |
{object V229 = (V222); |
{object V231 = (V223); |
1579 |
bds_unwind1; |
bds_unwind1; |
1580 |
bds_unwind1; |
bds_unwind1; |
1581 |
VMR30(V229)}}}} |
VMR30(V231)}}}} |
1582 |
base[0]=base[0]; |
base[0]=base[0]; |
1583 |
return Cnil; |
return Cnil; |
1584 |
} |
} |
1585 |
/* local entry for function THE-TYPE */ |
/* local entry for function THE-TYPE */ |
1586 |
|
|
1587 |
static object LI31(V232,V233) |
static object LI31(V234,V235) |
1588 |
|
|
1589 |
object V232;register object V233; |
object V234;register object V235; |
1590 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
1591 |
goto TTL; |
goto TTL; |
1592 |
TTL:; |
TTL:; |
1593 |
if(symbol_value(VV[47])==Cnil){ |
if((VV[47]->s.s_dbind)==Cnil){ |
1594 |
goto T582;} |
goto T582;} |
1595 |
V233= Cnil; |
V235= Cnil; |
1596 |
goto T582; |
goto T582; |
1597 |
T582:; |
T582:; |
1598 |
if((V233)==Cnil){ |
if((V235)==Cnil){ |
1599 |
goto T584;}{object V234; |
goto T584;}{object V236; |
1600 |
base[0]= symbol_value(VV[54]); |
base[0]= (VV[54]->s.s_dbind); |
1601 |
base[1]= (V233); |
base[1]= (V235); |
1602 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1603 |
Lgetf(); |
Lgetf(); |
1604 |
vs_top=sup; |
vs_top=sup; |
1605 |
V234= vs_base[0]; |
V236= vs_base[0]; |
1606 |
if(V234==Cnil)goto T586; |
if(V236==Cnil)goto T586; |
1607 |
V233= V234; |
V235= V236; |
1608 |
goto T585; |
goto T585; |
1609 |
goto T586; |
goto T586; |
1610 |
T586:;} |
T586:;} |
1611 |
if((((type_of((V233))==t_symbol&&((V233))->s.s_hpack==keyword_package)?Ct:Cnil))==Cnil){ |
if((((type_of((V235))==t_symbol&&((V235))->s.s_hpack==keyword_package)?Ct:Cnil))==Cnil){ |
1612 |
goto T590;} |
goto T590;} |
1613 |
V233= Cnil; |
V235= Cnil; |
1614 |
goto T585; |
goto T585; |
1615 |
goto T590; |
goto T590; |
1616 |
T590:; |
T590:; |
1618 |
T585:; |
T585:; |
1619 |
goto T584; |
goto T584; |
1620 |
T584:; |
T584:; |
1621 |
if(type_of((V233))==t_cons){ |
if(type_of((V235))==t_cons){ |
1622 |
goto T593;} |
goto T593;} |
1623 |
goto T592; |
goto T592; |
1624 |
goto T593; |
goto T593; |
1625 |
T593:; |
T593:; |
1626 |
if((car((V233)))==(VV[122])){ |
if((CMPcar((V235)))==(VV[122])){ |
1627 |
goto T595;} |
goto T595;} |
1628 |
goto T592; |
goto T592; |
1629 |
goto T595; |
goto T595; |
1630 |
T595:; |
T595:; |
1631 |
V233= cadr((V233)); |
V235= CMPcadr((V235)); |
1632 |
goto T592; |
goto T592; |
1633 |
T592:; |
T592:; |
1634 |
if(((V233))==Cnil){ |
if(((V235))==Cnil){ |
1635 |
goto T599;} |
goto T599;} |
1636 |
{object V235 = list(3,VV[123],(V233),(V232)); |
{object V237 = list(3,VV[123],(V235),(V234)); |
1637 |
VMR31(V235)} |
VMR31(V237)} |
1638 |
goto T599; |
goto T599; |
1639 |
T599:; |
T599:; |
1640 |
{object V236 = (V232); |
{object V238 = (V234); |
1641 |
VMR31(V236)} |
VMR31(V238)} |
1642 |
base[0]=base[0]; |
base[0]=base[0]; |
1643 |
return Cnil; |
return Cnil; |
1644 |
} |
} |
1653 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1654 |
Lerror(); |
Lerror(); |
1655 |
vs_top=sup; |
vs_top=sup; |
1656 |
{object V237 = vs_base[0]; |
{object V239 = vs_base[0]; |
1657 |
VMR32(V237)} |
VMR32(V239)} |
1658 |
base[0]=base[0]; |
base[0]=base[0]; |
1659 |
return Cnil; |
return Cnil; |
1660 |
} |
} |
1661 |
/* local entry for function MAKE-VALUE */ |
/* local entry for function MAKE-VALUE */ |
1662 |
|
|
1663 |
static object LI33(V240,V241) |
static object LI33(V242,V243) |
1664 |
|
|
1665 |
register object V240;object V241; |
register object V242;object V243; |
1666 |
{ VMB33 VMS33 VMV33 |
{ VMB33 VMS33 VMV33 |
1667 |
goto TTL; |
goto TTL; |
1668 |
TTL:; |
TTL:; |
1669 |
{register object V242; |
{register object V244; |
1670 |
V242= Cnil; |
V244= Cnil; |
1671 |
if((symbol_value(VV[47]))!=Cnil){ |
if(((VV[47]->s.s_dbind))!=Cnil){ |
1672 |
goto T604;} |
goto T604;} |
1673 |
if((symbol_value(VV[125]))==Cnil){ |
if(((VV[125]->s.s_dbind))==Cnil){ |
1674 |
goto T604;} |
goto T604;} |
1675 |
if(!(((V241))==(VV[126]))){ |
if(!(((V243))==(VV[126]))){ |
1676 |
goto T604;} |
goto T604;} |
1677 |
base[0]= symbol_value(VV[54]); |
base[0]= (VV[54]->s.s_dbind); |
1678 |
base[1]= (V241); |
base[1]= (V243); |
1679 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1680 |
Lgetf(); |
Lgetf(); |
1681 |
vs_top=sup; |
vs_top=sup; |
1682 |
V242= vs_base[0]; |
V244= vs_base[0]; |
1683 |
if(((V242))==Cnil){ |
if(((V244))==Cnil){ |
1684 |
goto T604;} |
goto T604;} |
1685 |
if(!(type_of((V242))==t_cons)){ |
if(!(type_of((V244))==t_cons)){ |
1686 |
goto T618;} |
goto T618;} |
1687 |
if(!((car((V242)))==(VV[122]))){ |
if(!((CMPcar((V244)))==(VV[122]))){ |
1688 |
goto T618;} |
goto T618;} |
1689 |
V242= cadr((V242)); |
V244= CMPcadr((V244)); |
1690 |
goto T616; |
goto T616; |
1691 |
goto T618; |
goto T618; |
1692 |
T618:; |
T618:; |
1693 |
goto T616; |
goto T616; |
1694 |
T616:; |
T616:; |
1695 |
base[0]= (V240); |
base[0]= (V242); |
1696 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1697 |
Lconstantp(); |
Lconstantp(); |
1698 |
vs_top=sup; |
vs_top=sup; |
1699 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1700 |
goto T623;} |
goto T623;} |
1701 |
{object V243; |
{object V245; |
1702 |
if((symbol_value(VV[39]))==Cnil){ |
if(((VV[39]->s.s_dbind))==Cnil){ |
1703 |
goto T628;} |
goto T628;} |
1704 |
base[1]= (V240); |
base[1]= (V242); |
1705 |
base[2]= VV[127]; |
base[2]= VV[127]; |
1706 |
base[3]= symbol_value(VV[39]); |
base[3]= (VV[39]->s.s_dbind); |
1707 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1708 |
Lsubst(); |
Lsubst(); |
1709 |
vs_top=sup; |
vs_top=sup; |
1711 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1712 |
Leval(); |
Leval(); |
1713 |
vs_top=sup; |
vs_top=sup; |
1714 |
V243= vs_base[0]; |
V245= vs_base[0]; |
1715 |
goto T626; |
goto T626; |
1716 |
goto T628; |
goto T628; |
1717 |
T628:; |
T628:; |
1718 |
base[0]= (V240); |
base[0]= (V242); |
1719 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1720 |
Leval(); |
Leval(); |
1721 |
vs_top=sup; |
vs_top=sup; |
1722 |
V243= vs_base[0]; |
V245= vs_base[0]; |
1723 |
goto T626; |
goto T626; |
1724 |
T626:;{object V244; |
T626:;{object V246; |
1725 |
base[0]= (V243); |
base[0]= (V245); |
1726 |
base[1]= (V242); |
base[1]= (V244); |
1727 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1728 |
(void) (*Lnk129)(); |
(void) (*Lnk129)(); |
1729 |
vs_top=sup; |
vs_top=sup; |
1730 |
V244= vs_base[0]; |
V246= vs_base[0]; |
1731 |
if(V244==Cnil)goto T636; |
if(V246==Cnil)goto T636; |
1732 |
goto T635; |
goto T635; |
1733 |
goto T636; |
goto T636; |
1734 |
T636:;} |
T636:;} |
1735 |
base[0]= VV[128]; |
base[0]= VV[128]; |
1736 |
base[1]= (V240); |
base[1]= (V242); |
1737 |
base[2]= (V242); |
base[2]= (V244); |
1738 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1739 |
Lerror(); |
Lerror(); |
1740 |
vs_top=sup; |
vs_top=sup; |
1741 |
goto T635; |
goto T635; |
1742 |
T635:; |
T635:; |
1743 |
{object V245 = make_cons((V240),Cnil); |
{object V247 = make_cons((V242),Cnil); |
1744 |
VMR33(V245)}} |
VMR33(V247)}} |
1745 |
goto T623; |
goto T623; |
1746 |
T623:; |
T623:; |
1747 |
{register object V246; |
{register object V248; |
1748 |
V246= Cnil; |
V248= Cnil; |
1749 |
if(!(type_of((V240))!=t_cons)){ |
if(!(type_of((V242))!=t_cons)){ |
1750 |
goto T645;} |
goto T645;} |
1751 |
V247= Cnil; |
V249= Cnil; |
1752 |
goto T643; |
goto T643; |
1753 |
goto T645; |
goto T645; |
1754 |
T645:; |
T645:; |
1755 |
vs_base=vs_top; |
vs_base=vs_top; |
1756 |
Lgensym(); |
Lgensym(); |
1757 |
vs_top=sup; |
vs_top=sup; |
1758 |
V246= vs_base[0]; |
V248= vs_base[0]; |
1759 |
V248= list(2,(V246),(V240)); |
V250= list(2,(V248),(V242)); |
1760 |
V247= make_cons(/* INLINE-ARGS */V248,Cnil); |
V249= make_cons(/* INLINE-ARGS */V250,Cnil); |
1761 |
goto T643; |
goto T643; |
1762 |
T643:; |
T643:; |
1763 |
if((symbol_value(VV[39]))==Cnil){ |
if(((VV[39]->s.s_dbind))==Cnil){ |
1764 |
goto T650;} |
goto T650;} |
1765 |
if((V246)!=Cnil){ |
if((V248)!=Cnil){ |
1766 |
base[0]= (V246); |
base[0]= (V248); |
1767 |
goto T652;} |
goto T652;} |
1768 |
base[0]= (V240); |
base[0]= (V242); |
1769 |
goto T652; |
goto T652; |
1770 |
T652:; |
T652:; |
1771 |
base[1]= VV[127]; |
base[1]= VV[127]; |
1772 |
base[2]= symbol_value(VV[39]); |
base[2]= (VV[39]->s.s_dbind); |
1773 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1774 |
Lsubst(); |
Lsubst(); |
1775 |
vs_top=sup; |
vs_top=sup; |
1776 |
V249= vs_base[0]; |
V251= vs_base[0]; |
1777 |
goto T648; |
goto T648; |
1778 |
goto T650; |
goto T650; |
1779 |
T650:; |
T650:; |
1780 |
if((V246)!=Cnil){ |
if((V248)!=Cnil){ |
1781 |
V249= (V246); |
V251= (V248); |
1782 |
goto T648;} |
goto T648;} |
1783 |
V249= (V240); |
V251= (V242); |
1784 |
goto T648; |
goto T648; |
1785 |
T648:; |
T648:; |
1786 |
V250= list(3,VV[80],list(3,VV[129],V249,list(2,VV[9],(V242))),VV[130]); |
V252= list(3,VV[80],list(3,VV[129],V251,list(2,VV[9],(V244))),VV[130]); |
1787 |
if((V246)!=Cnil){ |
if((V248)!=Cnil){ |
1788 |
V251= (V246); |
V253= (V248); |
1789 |
goto T655;} |
goto T655;} |
1790 |
V251= (V240); |
V253= (V242); |
1791 |
goto T655; |
goto T655; |
1792 |
T655:; |
T655:; |
1793 |
V252= list(4,VV[12],V247,/* INLINE-ARGS */V250,V251); |
V254= list(4,VV[12],V249,/* INLINE-ARGS */V252,V253); |
1794 |
{object V253 = make_cons(/* INLINE-ARGS */V252,Cnil); |
{object V255 = make_cons(/* INLINE-ARGS */V254,Cnil); |
1795 |
VMR33(V253)}} |
VMR33(V255)}} |
1796 |
goto T604; |
goto T604; |
1797 |
T604:; |
T604:; |
1798 |
{object V254 = make_cons((V240),Cnil); |
{object V256 = make_cons((V242),Cnil); |
1799 |
VMR33(V254)}} |
VMR33(V256)}} |
1800 |
base[0]=base[0]; |
base[0]=base[0]; |
1801 |
return Cnil; |
return Cnil; |
1802 |
} |
} |
1803 |
/* local entry for function LOOP-ADD-BINDING */ |
/* local entry for function LOOP-ADD-BINDING */ |
1804 |
|
|
1805 |
static object LI34(object V256,object V255,object first,...) |
static object LI34(object V258,object V257,object first,...) |
1806 |
{ |
{ |
1807 |
va_list ap; |
va_list ap; |
1808 |
int narg = VFUN_NARGS; VMB34 VMS34 VMV34 |
int narg = VFUN_NARGS; VMB34 VMS34 VMV34 |
1809 |
{object V257; |
{object V259; |
1810 |
register object V258; |
register object V260; |
|
object V259; |
|
|
object V260; |
|
1811 |
object V261; |
object V261; |
1812 |
object V262; |
object V262; |
1813 |
object V263; |
object V263; |
1814 |
|
object V264; |
1815 |
|
object V265; |
1816 |
va_start(ap,first); |
va_start(ap,first); |
1817 |
if(narg <2) too_few_arguments(); |
V259= V258; |
1818 |
V257= V256; |
V260= V257; |
|
V258= V255; |
|
1819 |
narg = narg - 2; |
narg = narg - 2; |
1820 |
if (narg <= 0) goto T656; |
if (narg <= 0) goto T656; |
1821 |
else { |
else { |
1822 |
V259= first;} |
V261= first;} |
1823 |
if (--narg <= 0) goto T657; |
if (--narg <= 0) goto T657; |
1824 |
else { |
else { |
1825 |
V260= va_arg(ap,object);} |
V262= va_arg(ap,object);} |
1826 |
if (--narg <= 0) goto T658; |
if (--narg <= 0) goto T658; |
1827 |
else { |
else { |
1828 |
V261= va_arg(ap,object);} |
V263= va_arg(ap,object);} |
1829 |
if (--narg <= 0) goto T659; |
if (--narg <= 0) goto T659; |
1830 |
else { |
else { |
1831 |
V262= va_arg(ap,object);} |
V264= va_arg(ap,object);} |
1832 |
if (--narg <= 0) goto T660; |
if (--narg <= 0) goto T660; |
1833 |
else { |
else { |
1834 |
V263= va_arg(ap,object);} |
V265= va_arg(ap,object);} |
1835 |
--narg; goto T661; |
--narg; goto T661; |
1836 |
goto T656; |
goto T656; |
1837 |
T656:; |
T656:; |
1838 |
V259= Ct; |
V261= Ct; |
1839 |
goto T657; |
goto T657; |
1840 |
T657:; |
T657:; |
1841 |
V260= Cnil; |
V262= Cnil; |
1842 |
goto T658; |
goto T658; |
1843 |
T658:; |
T658:; |
1844 |
V261= Cnil; |
V263= Cnil; |
1845 |
goto T659; |
goto T659; |
1846 |
T659:; |
T659:; |
1847 |
V262= Ct; |
V264= Ct; |
1848 |
goto T660; |
goto T660; |
1849 |
T660:; |
T660:; |
1850 |
V263= Cnil; |
V265= Cnil; |
1851 |
goto T661; |
goto T661; |
1852 |
T661:; |
T661:; |
1853 |
{register object V264; |
{register object V266; |
1854 |
V264= Cnil; |
V266= Cnil; |
1855 |
if(((V259))!=Cnil){ |
if(((V261))!=Cnil){ |
1856 |
goto T669;} |
goto T669;} |
1857 |
if((symbol_value(VV[46]))!=Cnil){ |
if(((VV[46]->s.s_dbind))!=Cnil){ |
1858 |
goto T668;} |
goto T668;} |
1859 |
goto T669; |
goto T669; |
1860 |
T669:; |
T669:; |
1861 |
{object V265; |
{object V267; |
1862 |
V265= make_cons(Cnil,Cnil); |
V267= make_cons(Cnil,Cnil); |
1863 |
setq(VV[46],make_cons((V265),symbol_value(VV[46])));} |
(VV[46]->s.s_dbind)= make_cons((V267),(VV[46]->s.s_dbind));} |
1864 |
goto T668; |
goto T668; |
1865 |
T668:; |
T668:; |
1866 |
{register object x= (V257),V266= caar(symbol_value(VV[46])); |
{register object x= (V259),V268= CMPcaar((VV[46]->s.s_dbind)); |
1867 |
while(!endp(V266)) |
while(V268!=Cnil) |
1868 |
if(type_of(V266->c.c_car)==t_cons &&eql(x,V266->c.c_car->c.c_car)){ |
if(eql(x,V268->c.c_car->c.c_car) &&V268->c.c_car != Cnil){ |
1869 |
V264= (V266->c.c_car); |
V266= (V268->c.c_car); |
1870 |
goto T679; |
goto T679; |
1871 |
}else V266=V266->c.c_cdr; |
}else V268=V268->c.c_cdr; |
1872 |
V264= Cnil;} |
V266= Cnil;} |
1873 |
goto T679; |
goto T679; |
1874 |
T679:; |
T679:; |
1875 |
if(((V264))==Cnil){ |
if(((V266))==Cnil){ |
1876 |
goto T677;} |
goto T677;} |
1877 |
if((V262)==Cnil){ |
if((V264)==Cnil){ |
1878 |
goto T675;} |
goto T675;} |
1879 |
{object V268; |
{object V270; |
1880 |
if((V258)==Cnil){ |
if((V260)==Cnil){ |
1881 |
V268= Cnil; |
V270= Cnil; |
1882 |
goto T680;} |
goto T680;} |
1883 |
V268= (*(LnkLI272))((V258),(V260)); |
V270= (*(LnkLI272))((V260),(V262)); |
1884 |
goto T680; |
goto T680; |
1885 |
T680:; |
T680:; |
1886 |
if(type_of(V264)!=t_cons)FEwrong_type_argument(Scons,V264); |
(V266)->c.c_cdr = (V270); |
|
(V264)->c.c_cdr = (V268); |
|
1887 |
goto T675;} |
goto T675;} |
1888 |
goto T677; |
goto T677; |
1889 |
T677:; |
T677:; |
1890 |
{object V269; |
{object V271; |
1891 |
if((V263)!=Cnil){ |
if((V265)!=Cnil){ |
1892 |
if(((V263))!=Cnil){ |
if(((V265))!=Cnil){ |
1893 |
goto T683;} |
goto T683;} |
1894 |
goto T684;} |
goto T684;} |
1895 |
base[0]= (V257); |
base[0]= (V259); |
1896 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1897 |
Lsymbol_package(); |
Lsymbol_package(); |
1898 |
vs_top=sup; |
vs_top=sup; |
1899 |
V270= vs_base[0]; |
V272= vs_base[0]; |
1900 |
if((V270)==Cnil){ |
if((V272)==Cnil){ |
1901 |
goto T685;} |
goto T685;} |
1902 |
goto T684; |
goto T684; |
1903 |
goto T685; |
goto T685; |
1904 |
T685:; |
T685:; |
1905 |
base[0]= (V258); |
base[0]= (V260); |
1906 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1907 |
Lconstantp(); |
Lconstantp(); |
1908 |
vs_top=sup; |
vs_top=sup; |
1910 |
goto T683;} |
goto T683;} |
1911 |
goto T684; |
goto T684; |
1912 |
T684:; |
T684:; |
1913 |
V269= Cnil; |
V271= Cnil; |
1914 |
goto T682; |
goto T682; |
1915 |
goto T683; |
goto T683; |
1916 |
T683:; |
T683:; |
1917 |
{register object V271; |
{register object V273; |
1918 |
register object V272; |
register object V274; |
1919 |
V271= cdr(symbol_value(VV[46])); |
V273= CMPcdr((VV[46]->s.s_dbind)); |
1920 |
V272= car((V271)); |
V274= CMPcar((V273)); |
1921 |
goto T693; |
goto T693; |
1922 |
T693:; |
T693:; |
1923 |
if(!(endp_prop((V271)))){ |
if(!(((V273))==Cnil)){ |
1924 |
goto T694;} |
goto T694;} |
1925 |
V269= Cnil; |
V271= Cnil; |
1926 |
goto T682; |
goto T682; |
1927 |
goto T694; |
goto T694; |
1928 |
T694:; |
T694:; |
1929 |
{register object x= (V257),V273= car((V272)); |
{register object x= (V259),V275= CMPcar((V274)); |
1930 |
while(!endp(V273)) |
while(V275!=Cnil) |
1931 |
if(type_of(V273->c.c_car)==t_cons &&eql(x,V273->c.c_car->c.c_car)){ |
if(eql(x,V275->c.c_car->c.c_car) &&V275->c.c_car != Cnil){ |
1932 |
V264= (V273->c.c_car); |
V266= (V275->c.c_car); |
1933 |
goto T701; |
goto T701; |
1934 |
}else V273=V273->c.c_cdr; |
}else V275=V275->c.c_cdr; |
1935 |
V264= Cnil;} |
V266= Cnil;} |
1936 |
goto T701; |
goto T701; |
1937 |
T701:; |
T701:; |
1938 |
if(((V264))==Cnil){ |
if(((V266))==Cnil){ |
1939 |
goto T698;} |
goto T698;} |
1940 |
if((V262)==Cnil){ |
if((V264)==Cnil){ |
1941 |
goto T702;} |
goto T702;} |
1942 |
{register object V274; |
{register object V276; |
1943 |
register object V275; |
register object V277; |
1944 |
V274= (V264); |
V276= (V266); |
1945 |
if((V258)==Cnil){ |
if((V260)==Cnil){ |
1946 |
V275= Cnil; |
V277= Cnil; |
1947 |
goto T704;} |
goto T704;} |
1948 |
V275= (*(LnkLI272))((V258),(V260)); |
V277= (*(LnkLI272))((V260),(V262)); |
1949 |
goto T704; |
goto T704; |
1950 |
T704:; |
T704:; |
1951 |
if(type_of((V274))!=t_cons)FEwrong_type_argument(Scons,(V274)); |
((V276))->c.c_cdr = (V277);} |
|
((V274))->c.c_cdr = (V275);} |
|
1952 |
goto T702; |
goto T702; |
1953 |
T702:; |
T702:; |
1954 |
V269= Ct; |
V271= Ct; |
1955 |
goto T682; |
goto T682; |
1956 |
goto T698; |
goto T698; |
1957 |
T698:; |
T698:; |
1958 |
V271= cdr((V271)); |
V273= CMPcdr((V273)); |
1959 |
V272= car((V271)); |
V274= CMPcar((V273)); |
1960 |
goto T693;} |
goto T693;} |
1961 |
goto T682; |
goto T682; |
1962 |
T682:; |
T682:; |
1963 |
if(((V269))==Cnil){ |
if(((V271))==Cnil){ |
1964 |
goto T712;} |
goto T712;} |
1965 |
goto T675; |
goto T675; |
1966 |
goto T712; |
goto T712; |
1967 |
T712:; |
T712:; |
1968 |
{object V276; |
{object V278; |
1969 |
object V277; |
object V279; |
1970 |
object V278; |
object V280; |
1971 |
if((V258)==Cnil){ |
if((V260)==Cnil){ |
1972 |
V279= Cnil; |
V281= Cnil; |
1973 |
goto T715;} |
goto T715;} |
1974 |
V279= (*(LnkLI272))((V258),(V260)); |
V281= (*(LnkLI272))((V260),(V262)); |
1975 |
goto T715; |
goto T715; |
1976 |
T715:; |
T715:; |
1977 |
V276= make_cons((V257),V279); |
V278= make_cons((V259),V281); |
1978 |
V277= symbol_value(VV[46]); |
V279= (VV[46]->s.s_dbind); |
1979 |
V278= make_cons((V276),caar((V277))); |
V280= make_cons((V278),CMPcaar((V279))); |
1980 |
if(type_of(car((V277)))!=t_cons)FEwrong_type_argument(Scons,car((V277))); |
(CMPcar((V279)))->c.c_car = (V280); |
1981 |
(car((V277)))->c.c_car = (V278); |
(void)(CMPcar((V279)));}} |
|
(void)(car((V277)));}} |
|
1982 |
goto T675; |
goto T675; |
1983 |
T675:; |
T675:; |
1984 |
if((V260)==Cnil){ |
if((V262)==Cnil){ |
1985 |
goto T719;} |
goto T719;} |
1986 |
(void)((VFUN_NARGS=3,(*(LnkLI273))((V257),(V260),(V261)))); |
(void)((VFUN_NARGS=3,(*(LnkLI273))((V259),(V262),(V263)))); |
1987 |
goto T719; |
goto T719; |
1988 |
T719:; |
T719:; |
1989 |
{object V280 = (V257); |
{object V282 = (V259); |
1990 |
VMR34(V280)}} |
VMR34(V282)}} |
1991 |
va_end(ap); |
va_end(ap); |
1992 |
base[0]=base[0]; |
base[0]=base[0]; |
1993 |
return Cnil;} |
return Cnil;} |
1994 |
} |
} |
1995 |
/* local entry for function LOOP-DECLARE-BINDING */ |
/* local entry for function LOOP-DECLARE-BINDING */ |
1996 |
|
|
1997 |
static object LI35(object V283,object V282,object V281,object first,...) |
static object LI35(object V285,object V284,object V283,object first,...) |
1998 |
{ |
{ |
1999 |
va_list ap; |
va_list ap; |
2000 |
int narg = VFUN_NARGS; VMB35 VMS35 VMV35 |
int narg = VFUN_NARGS; VMB35 VMS35 VMV35 |
2001 |
{register object V284; |
{register object V286; |
2002 |
register object V285; |
register object V287; |
2003 |
object V286; |
object V288; |
2004 |
object V287; |
object V289; |
2005 |
va_start(ap,first); |
va_start(ap,first); |
2006 |
if(narg <3) too_few_arguments(); |
V286= V285; |
2007 |
V284= V283; |
V287= V284; |
2008 |
V285= V282; |
V288= V283; |
|
V286= V281; |
|
2009 |
narg = narg - 3; |
narg = narg - 3; |
2010 |
if (narg <= 0) goto T720; |
if (narg <= 0) goto T720; |
2011 |
else { |
else { |
2012 |
V287= first;} |
V289= first;} |
2013 |
--narg; goto T721; |
--narg; goto T721; |
2014 |
goto T720; |
goto T720; |
2015 |
T720:; |
T720:; |
2016 |
V287= Cnil; |
V289= Cnil; |
2017 |
goto T721; |
goto T721; |
2018 |
T721:; |
T721:; |
2019 |
{object V288; |
{object V290; |
2020 |
V288= Cnil; |
V290= Cnil; |
2021 |
if((V285)==Cnil){ |
if((V287)==Cnil){ |
2022 |
goto T725;} |
goto T725;} |
2023 |
{register object x= (V285),V289= symbol_value(VV[131]); |
{register object x= (V287),V291= (VV[131]->s.s_dbind); |
2024 |
while(!endp(V289)) |
while(V291!=Cnil) |
2025 |
if(eql(x,V289->c.c_car)){ |
if(eql(x,V291->c.c_car)){ |
2026 |
goto T726; |
goto T726; |
2027 |
}else V289=V289->c.c_cdr;} |
}else V291=V291->c.c_cdr;} |
2028 |
goto T725; |
goto T725; |
2029 |
goto T726; |
goto T726; |
2030 |
T726:; |
T726:; |
2031 |
base[0]= symbol_value(VV[54]); |
base[0]= (VV[54]->s.s_dbind); |
2032 |
base[1]= (V285); |
base[1]= (V287); |
2033 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2034 |
Lgetf(); |
Lgetf(); |
2035 |
vs_top=sup; |
vs_top=sup; |
2036 |
V285= vs_base[0]; |
V287= vs_base[0]; |
2037 |
if(((V285))!=Cnil){ |
if(((V287))!=Cnil){ |
2038 |
goto T728;} |
goto T728;} |
2039 |
goto T725; |
goto T725; |
2040 |
goto T728; |
goto T728; |
2041 |
T728:; |
T728:; |
2042 |
if(symbol_value(VV[132])==Cnil){ |
if((VV[132]->s.s_dbind)==Cnil){ |
2043 |
goto T725;} |
goto T725;} |
2044 |
(void)((VFUN_NARGS=3,(*(LnkLI273))((V284),VV[133],(V286)))); |
(void)((VFUN_NARGS=3,(*(LnkLI273))((V286),VV[133],(V288)))); |
2045 |
goto T725; |
goto T725; |
2046 |
T725:; |
T725:; |
2047 |
if(((V285))==Cnil){ |
if(((V287))==Cnil){ |
2048 |
goto T733;} |
goto T733;} |
2049 |
if(((V286))!=Cnil){ |
if(((V288))!=Cnil){ |
2050 |
goto T734;} |
goto T734;} |
2051 |
if((symbol_value(VV[47]))!=Cnil){ |
if(((VV[47]->s.s_dbind))!=Cnil){ |
2052 |
goto T733;} |
goto T733;} |
2053 |
goto T734; |
goto T734; |
2054 |
T734:; |
T734:; |
2055 |
{register object V290; |
{register object V292; |
2056 |
register object V291; |
register object V293; |
2057 |
V290= symbol_value(VV[46]); |
V292= (VV[46]->s.s_dbind); |
2058 |
V291= car((V290)); |
V293= CMPcar((V292)); |
2059 |
goto T744; |
goto T744; |
2060 |
T744:; |
T744:; |
2061 |
if(!(endp_prop((V290)))){ |
if(!(((V292))==Cnil)){ |
2062 |
goto T745;} |
goto T745;} |
2063 |
goto T740; |
goto T740; |
2064 |
goto T745; |
goto T745; |
2065 |
T745:; |
T745:; |
2066 |
{register object x= (V284),V292= car((V291)); |
{register object x= (V286),V294= CMPcar((V293)); |
2067 |
while(!endp(V292)) |
while(V294!=Cnil) |
2068 |
if(type_of(V292->c.c_car)==t_cons &&eql(x,V292->c.c_car->c.c_car)){ |
if(eql(x,V294->c.c_car->c.c_car) &&V294->c.c_car != Cnil){ |
2069 |
goto T751; |
goto T751; |
2070 |
}else V292=V292->c.c_cdr; |
}else V294=V294->c.c_cdr; |
2071 |
goto T749;} |
goto T749;} |
2072 |
goto T751; |
goto T751; |
2073 |
T751:; |
T751:; |
2074 |
V288= Ct; |
V290= Ct; |
2075 |
{object V293; |
{object V295; |
2076 |
register object V294; |
register object V296; |
2077 |
register object V295; |
register object V297; |
2078 |
if(!(type_of((V285))==t_cons)){ |
if(!(type_of((V287))==t_cons)){ |
2079 |
goto T757;} |
goto T757;} |
2080 |
if(!((car((V285)))==(VV[122]))){ |
if(!((CMPcar((V287)))==(VV[122]))){ |
2081 |
goto T757;} |
goto T757;} |
2082 |
V293= list(3,VV[122],cadr((V285)),(V284)); |
V295= list(3,VV[122],CMPcadr((V287)),(V286)); |
2083 |
goto T755; |
goto T755; |
2084 |
goto T757; |
goto T757; |
2085 |
T757:; |
T757:; |
2086 |
if(((V287))==Cnil){ |
if(((V289))==Cnil){ |
2087 |
goto T762;} |
goto T762;} |
2088 |
V293= list(3,VV[122],(V285),(V284)); |
V295= list(3,VV[122],(V287),(V286)); |
2089 |
goto T755; |
goto T755; |
2090 |
goto T762; |
goto T762; |
2091 |
T762:; |
T762:; |
2092 |
V293= list(2,(V285),(V284)); |
V295= list(2,(V287),(V286)); |
2093 |
goto T755; |
goto T755; |
2094 |
T755:; |
T755:; |
2095 |
V294= (V291); |
V296= (V293); |
2096 |
base[3]= (V293); |
base[3]= (V295); |
2097 |
base[4]= cdr((V294)); |
base[4]= CMPcdr((V296)); |
2098 |
base[5]= VV[30]; |
base[5]= VV[30]; |
2099 |
base[6]= VV[113]; |
base[6]= VV[113]; |
2100 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
2101 |
Ladjoin(); |
Ladjoin(); |
2102 |
vs_top=sup; |
vs_top=sup; |
2103 |
V295= vs_base[0]; |
V297= vs_base[0]; |
2104 |
if(type_of((V294))!=t_cons)FEwrong_type_argument(Scons,(V294)); |
((V296))->c.c_cdr = (V297);} |
|
((V294))->c.c_cdr = (V295);} |
|
2105 |
goto T740; |
goto T740; |
2106 |
goto T749; |
goto T749; |
2107 |
T749:; |
T749:; |
2108 |
V290= cdr((V290)); |
V292= CMPcdr((V292)); |
2109 |
V291= car((V290)); |
V293= CMPcar((V292)); |
2110 |
goto T744;} |
goto T744;} |
2111 |
goto T740; |
goto T740; |
2112 |
T740:; |
T740:; |
2113 |
if((V288)!=Cnil){ |
if((V290)!=Cnil){ |
2114 |
goto T733;} |
goto T733;} |
2115 |
if(symbol_value(VV[53])!=Cnil){ |
if((VV[53]->s.s_dbind)!=Cnil){ |
2116 |
goto T733;} |
goto T733;} |
2117 |
base[0]= VV[134]; |
base[0]= VV[134]; |
2118 |
base[1]= (V284); |
base[1]= (V286); |
2119 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2120 |
Lerror(); |
Lerror(); |
2121 |
vs_top=sup; |
vs_top=sup; |
2122 |
goto T733; |
goto T733; |
2123 |
T733:; |
T733:; |
2124 |
{object V296 = (V284); |
{object V298 = (V286); |
2125 |
VMR35(V296)}} |
VMR35(V298)}} |
2126 |
va_end(ap); |
va_end(ap); |
2127 |
base[0]=base[0]; |
base[0]=base[0]; |
2128 |
return Cnil;} |
return Cnil;} |
2133 |
{ |
{ |
2134 |
va_list ap; |
va_list ap; |
2135 |
int narg = VFUN_NARGS; VMB36 VMS36 VMV36 |
int narg = VFUN_NARGS; VMB36 VMS36 VMV36 |
2136 |
{register object V297; |
{register object V299; |
2137 |
register object V298; |
register object V300; |
2138 |
va_start(ap,first); |
va_start(ap,first); |
2139 |
narg = narg - 0; |
narg = narg - 0; |
2140 |
if (narg <= 0) goto T778; |
if (narg <= 0) goto T778; |
2141 |
else { |
else { |
2142 |
V297= first;} |
V299= first;} |
2143 |
if (--narg <= 0) goto T779; |
if (--narg <= 0) goto T779; |
2144 |
else { |
else { |
2145 |
V298= va_arg(ap,object);} |
V300= va_arg(ap,object);} |
2146 |
--narg; goto T780; |
--narg; goto T780; |
2147 |
goto T778; |
goto T778; |
2148 |
T778:; |
T778:; |
2149 |
V297= (*(LnkLI255))(); |
V299= (*(LnkLI255))(); |
2150 |
goto T779; |
goto T779; |
2151 |
T779:; |
T779:; |
2152 |
V298= Ct; |
V300= Ct; |
2153 |
goto T780; |
goto T780; |
2154 |
T780:; |
T780:; |
2155 |
{object V299; |
{object V301; |
2156 |
register object V300; |
register object V302; |
2157 |
V299= car((V297)); |
V301= CMPcar((V299)); |
2158 |
V300= Cnil; |
V302= Cnil; |
2159 |
if(!(((V299))==(VV[122]))){ |
if(!(((V301))==(VV[122]))){ |
2160 |
goto T784;} |
goto T784;} |
2161 |
V297= cdr((V297)); |
V299= CMPcdr((V299)); |
2162 |
V299= car((V297)); |
V301= CMPcar((V299)); |
2163 |
V300= Ct; |
V302= Ct; |
2164 |
goto T784; |
goto T784; |
2165 |
T784:; |
T784:; |
2166 |
{register object V301; |
{register object V303; |
2167 |
register object V302; |
register object V304; |
2168 |
V301= cdr((V297)); |
V303= CMPcdr((V299)); |
2169 |
V302= car((V301)); |
V304= CMPcar((V303)); |
2170 |
goto T795; |
goto T795; |
2171 |
T795:; |
T795:; |
2172 |
if(!(endp_prop((V301)))){ |
if(!(((V303))==Cnil)){ |
2173 |
goto T796;} |
goto T796;} |
2174 |
{object V303 = Cnil; |
{object V305 = Cnil; |
2175 |
VMR36(V303)} |
VMR36(V305)} |
2176 |
goto T796; |
goto T796; |
2177 |
T796:; |
T796:; |
2178 |
(void)((VFUN_NARGS=4,(*(LnkLI273))((V302),car((V297)),(V298),(V300)))); |
(void)((VFUN_NARGS=4,(*(LnkLI273))((V304),CMPcar((V299)),(V300),(V302)))); |
2179 |
V301= cdr((V301)); |
V303= CMPcdr((V303)); |
2180 |
V302= car((V301)); |
V304= CMPcar((V303)); |
2181 |
goto T795;}} |
goto T795;}} |
2182 |
va_end(ap); |
va_end(ap); |
2183 |
base[0]=base[0]; |
base[0]=base[0]; |
2185 |
} |
} |
2186 |
/* local entry for function LOOP-ADD-TEMPS */ |
/* local entry for function LOOP-ADD-TEMPS */ |
2187 |
|
|
2188 |
static object LI37(object V304,object first,...) |
static object LI37(object V306,object first,...) |
2189 |
{ |
{ |
2190 |
va_list ap; |
va_list ap; |
2191 |
int narg = VFUN_NARGS; VMB37 VMS37 VMV37 |
int narg = VFUN_NARGS; VMB37 VMS37 VMV37 |
2192 |
{register object V305; |
{register object V307; |
|
object V306; |
|
|
object V307; |
|
2193 |
object V308; |
object V308; |
2194 |
object V309; |
object V309; |
2195 |
|
object V310; |
2196 |
|
object V311; |
2197 |
va_start(ap,first); |
va_start(ap,first); |
2198 |
if(narg <1) too_few_arguments(); |
V307= V306; |
|
V305= V304; |
|
2199 |
narg = narg - 1; |
narg = narg - 1; |
2200 |
if (narg <= 0) goto T806; |
if (narg <= 0) goto T806; |
2201 |
else { |
else { |
2202 |
V306= first;} |
V308= first;} |
2203 |
if (--narg <= 0) goto T807; |
if (--narg <= 0) goto T807; |
2204 |
else { |
else { |
2205 |
V307= va_arg(ap,object);} |
V309= va_arg(ap,object);} |
2206 |
if (--narg <= 0) goto T808; |
if (--narg <= 0) goto T808; |
2207 |
else { |
else { |
2208 |
V308= va_arg(ap,object);} |
V310= va_arg(ap,object);} |
2209 |
if (--narg <= 0) goto T809; |
if (--narg <= 0) goto T809; |
2210 |
else { |
else { |
2211 |
V309= va_arg(ap,object);} |
V311= va_arg(ap,object);} |
2212 |
--narg; goto T810; |
--narg; goto T810; |
2213 |
goto T806; |
goto T806; |
2214 |
T806:; |
T806:; |
2215 |
V306= Cnil; |
V308= Cnil; |
2216 |
goto T807; |
goto T807; |
2217 |
T807:; |
T807:; |
2218 |
V307= Cnil; |
V309= Cnil; |
2219 |
goto T808; |
goto T808; |
2220 |
T808:; |
T808:; |
2221 |
V308= Cnil; |
V310= Cnil; |
2222 |
goto T809; |
goto T809; |
2223 |
T809:; |
T809:; |
2224 |
V309= Cnil; |
V311= Cnil; |
2225 |
goto T810; |
goto T810; |
2226 |
T810:; |
T810:; |
2227 |
{object V310; |
{object V312; |
2228 |
V310= (((V305))==Cnil?Ct:Cnil); |
V312= (((V307))==Cnil?Ct:Cnil); |
2229 |
if(((V310))==Cnil){ |
if(((V312))==Cnil){ |
2230 |
goto T817;} |
goto T817;} |
2231 |
{object V311 = (V310); |
{object V313 = (V312); |
2232 |
VMR37(V311)} |
VMR37(V313)} |
2233 |
goto T817; |
goto T817; |
2234 |
T817:; |
T817:; |
2235 |
if(!(type_of((V305))==t_symbol)){ |
if(!(type_of((V307))==t_symbol)){ |
2236 |
goto T820;} |
goto T820;} |
2237 |
{object V312 = (VFUN_NARGS=7,(*(LnkLI267))((V305),(V306),(V308),(V307),Cnil,Ct,(V309))); |
{object V314 = (VFUN_NARGS=7,(*(LnkLI267))((V307),(V308),(V310),(V309),Cnil,Ct,(V311))); |
2238 |
VMR37(V312)} |
VMR37(V314)} |
2239 |
goto T820; |
goto T820; |
2240 |
T820:; |
T820:; |
2241 |
if(!(type_of((V305))==t_cons||((V305))==Cnil)){ |
if(!(type_of((V307))==t_cons||((V307))==Cnil)){ |
2242 |
goto T823;} |
goto T823;} |
2243 |
(void)((VFUN_NARGS=1,(*(LnkLI268))(car((V305))))); |
(void)((VFUN_NARGS=1,(*(LnkLI268))(CMPcar((V307))))); |
2244 |
{object V313 = (VFUN_NARGS=1,(*(LnkLI268))(cdr((V305)))); |
{object V315 = (VFUN_NARGS=1,(*(LnkLI268))(CMPcdr((V307)))); |
2245 |
VMR37(V313)} |
VMR37(V315)} |
2246 |
goto T823; |
goto T823; |
2247 |
T823:; |
T823:; |
2248 |
{object V314 = Cnil; |
{object V316 = Cnil; |
2249 |
VMR37(V314)}} |
VMR37(V316)}} |
2250 |
va_end(ap); |
va_end(ap); |
2251 |
return Cnil;} |
return Cnil;} |
2252 |
} |
} |
2253 |
/* local entry for function ADD-FROM-DATA */ |
/* local entry for function ADD-FROM-DATA */ |
2254 |
|
|
2255 |
static object LI38(object V315,object first,...) |
static object LI38(object V317,object first,...) |
2256 |
{ |
{ |
2257 |
va_list ap; |
va_list ap; |
2258 |
int narg = VFUN_NARGS; VMB38 VMS38 VMV38 |
int narg = VFUN_NARGS; VMB38 VMS38 VMV38 |
2259 |
{register object V316; |
{register object V318; |
2260 |
object V317; |
object V319; |
2261 |
va_start(ap,first); |
va_start(ap,first); |
2262 |
if(narg <1) too_few_arguments(); |
V318= V317; |
|
V316= V315; |
|
2263 |
narg= narg - 1; |
narg= narg - 1; |
2264 |
V318 = list_vector_new(narg,first,ap); |
V320 = list_vector_new(narg,first,ap); |
2265 |
V317= V318; |
V319= V320; |
2266 |
if((V316)!=Cnil){ |
if((V318)!=Cnil){ |
2267 |
goto T826;} |
goto T826;} |
2268 |
base[0]= VV[135]; |
base[0]= VV[135]; |
2269 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2270 |
Lcopy_list(); |
Lcopy_list(); |
2271 |
vs_top=sup; |
vs_top=sup; |
2272 |
V316= vs_base[0]; |
V318= vs_base[0]; |
2273 |
goto T826; |
goto T826; |
2274 |
T826:; |
T826:; |
2275 |
{register object V319; |
{register object V321; |
2276 |
register object V320; |
register object V322; |
2277 |
V319= (V316); |
V321= (V318); |
2278 |
V320= (V317); |
V322= (V319); |
2279 |
goto T831; |
goto T831; |
2280 |
T831:; |
T831:; |
2281 |
if(((V320))!=Cnil){ |
if(((V322))!=Cnil){ |
2282 |
goto T832;} |
goto T832;} |
2283 |
goto T829; |
goto T829; |
2284 |
goto T832; |
goto T832; |
2285 |
T832:; |
T832:; |
2286 |
if((car((V320)))!=Cnil){ |
if((CMPcar((V322)))!=Cnil){ |
2287 |
goto T837;} |
goto T837;} |
2288 |
goto T836; |
goto T836; |
2289 |
goto T837; |
goto T837; |
2290 |
T837:; |
T837:; |
2291 |
{register object V321; |
{register object V323; |
2292 |
register object V322; |
register object V324; |
2293 |
V321= (V319); |
V323= (V321); |
2294 |
V322= car((V320)); |
V324= CMPcar((V322)); |
2295 |
if(type_of((V321))!=t_cons)FEwrong_type_argument(Scons,(V321)); |
((V323))->c.c_car = (V324);} |
|
((V321))->c.c_car = (V322);} |
|
2296 |
goto T836; |
goto T836; |
2297 |
T836:; |
T836:; |
2298 |
V319= cdr((V319)); |
V321= CMPcdr((V321)); |
2299 |
V320= cdr((V320)); |
V322= CMPcdr((V322)); |
2300 |
goto T831;} |
goto T831;} |
2301 |
goto T829; |
goto T829; |
2302 |
T829:; |
T829:; |
2303 |
{object V323 = (V316); |
{object V325 = (V318); |
2304 |
VMR38(V323)} |
VMR38(V325)} |
2305 |
va_end(ap); |
va_end(ap); |
2306 |
base[0]=base[0]; |
base[0]=base[0]; |
2307 |
return Cnil;} |
return Cnil;} |
2314 |
bds_check; |
bds_check; |
2315 |
goto TTL; |
goto TTL; |
2316 |
TTL:; |
TTL:; |
|
{register object V324; |
|
|
register object V325; |
|
|
V324= Cnil; |
|
|
V325= Cnil; |
|
2317 |
{register object V326; |
{register object V326; |
2318 |
object V327; |
register object V327; |
2319 |
register object V328; |
V326= Cnil; |
|
V326= (*(LnkLI255))(); |
|
2320 |
V327= Cnil; |
V327= Cnil; |
2321 |
V328= Cnil; |
{register object V328; |
2322 |
{object V329; |
object V329; |
2323 |
V329= (*(LnkLI255))(); |
register object V330; |
2324 |
|
V328= (*(LnkLI255))(); |
2325 |
|
V329= Cnil; |
2326 |
|
V330= Cnil; |
2327 |
|
{object V331; |
2328 |
|
V331= (*(LnkLI255))(); |
2329 |
goto T854; |
goto T854; |
2330 |
T854:; |
T854:; |
2331 |
{register object V330; |
{register object V332; |
2332 |
V330= (*(LnkLI13))((V329)); |
V332= (*(LnkLI13))((V331)); |
2333 |
if(((*(LnkLI10))((V330),VV[136]))==Cnil){ |
if(((*(LnkLI10))((V332),VV[136]))==Cnil){ |
2334 |
goto T860;} |
goto T860;} |
2335 |
{object V331; |
{object V333; |
2336 |
base[1]= VV[137]; |
base[1]= VV[137]; |
2337 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2338 |
Lgensym(); |
Lgensym(); |
2339 |
vs_top=sup; |
vs_top=sup; |
2340 |
V331= vs_base[0]; |
V333= vs_base[0]; |
2341 |
(void)((VFUN_NARGS=4,(*(LnkLI268))((V326),Cnil,VV[138],Ct))); |
(void)((VFUN_NARGS=4,(*(LnkLI268))((V328),Cnil,VV[138],Ct))); |
2342 |
V332= (*(LnkLI255))(); |
V334= (*(LnkLI255))(); |
2343 |
(void)((VFUN_NARGS=3,(*(LnkLI267))((V331),/* INLINE-ARGS */V332,Cnil))); |
(void)((VFUN_NARGS=3,(*(LnkLI267))((V333),/* INLINE-ARGS */V334,Cnil))); |
2344 |
{object V333; |
{object V335; |
2345 |
V333= list(3,VV[139],(V326),list(2,VV[17],(V331))); |
V335= list(3,VV[139],(V328),list(2,VV[17],(V333))); |
2346 |
setq(VV[49],make_cons((V333),symbol_value(VV[49])));} |
(VV[49]->s.s_dbind)= make_cons((V335),(VV[49]->s.s_dbind));} |
2347 |
V328= list(3,VV[15],(V331),list(2,VV[18],(V331))); |
V330= list(3,VV[15],(V333),list(2,VV[18],(V333))); |
2348 |
V327= list(2,VV[140],(V331)); |
V329= list(2,VV[140],(V333)); |
2349 |
goto T857;} |
goto T857;} |
2350 |
goto T860; |
goto T860; |
2351 |
T860:; |
T860:; |
2352 |
if(((*(LnkLI10))((V330),VV[141]))==Cnil){ |
if(((*(LnkLI10))((V332),VV[141]))==Cnil){ |
2353 |
goto T873;} |
goto T873;} |
2354 |
{register object V334; |
{register object V336; |
2355 |
if(!(type_of((V326))==t_symbol)){ |
if(!(type_of((V328))==t_symbol)){ |
2356 |
goto T877;} |
goto T877;} |
2357 |
V334= (V326); |
V336= (V328); |
2358 |
goto T875; |
goto T875; |
2359 |
goto T877; |
goto T877; |
2360 |
T877:; |
T877:; |
2362 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2363 |
Lgensym(); |
Lgensym(); |
2364 |
vs_top=sup; |
vs_top=sup; |
2365 |
V334= vs_base[0]; |
V336= vs_base[0]; |
2366 |
goto T875; |
goto T875; |
2367 |
T875:; |
T875:; |
2368 |
(void)((VFUN_NARGS=4,(*(LnkLI268))((V326),Cnil,VV[138],Ct))); |
(void)((VFUN_NARGS=4,(*(LnkLI268))((V328),Cnil,VV[138],Ct))); |
2369 |
V335= (*(LnkLI255))(); |
V337= (*(LnkLI255))(); |
2370 |
(void)((VFUN_NARGS=3,(*(LnkLI267))((V334),/* INLINE-ARGS */V335,Cnil))); |
(void)((VFUN_NARGS=3,(*(LnkLI267))((V336),/* INLINE-ARGS */V337,Cnil))); |
2371 |
V328= list(3,VV[15],(V334),list(2,VV[18],(V334))); |
V330= list(3,VV[15],(V336),list(2,VV[18],(V336))); |
2372 |
if(eql((V334),(V326))){ |
if(eql((V336),(V328))){ |
2373 |
goto T884;} |
goto T884;} |
2374 |
{object V336; |
{object V338; |
2375 |
V336= list(3,VV[139],(V326),(V334)); |
V338= list(3,VV[139],(V328),(V336)); |
2376 |
setq(VV[49],make_cons((V336),symbol_value(VV[49])));} |
(VV[49]->s.s_dbind)= make_cons((V338),(VV[49]->s.s_dbind));} |
2377 |
goto T884; |
goto T884; |
2378 |
T884:; |
T884:; |
2379 |
V327= list(2,VV[140],(V334)); |
V329= list(2,VV[140],(V336)); |
2380 |
goto T857;} |
goto T857;} |
2381 |
goto T873; |
goto T873; |
2382 |
T873:; |
T873:; |
2383 |
if(((*(LnkLI10))((V330),VV[143]))==Cnil){ |
if(((*(LnkLI10))((V332),VV[143]))==Cnil){ |
2384 |
goto T891;} |
goto T891;} |
2385 |
V337= (*(LnkLI255))(); |
V339= (*(LnkLI255))(); |
2386 |
V325= (VFUN_NARGS=6,(*(LnkLI274))((V325),(V326),/* INLINE-ARGS */V337,Cnil,Cnil,VV[144])); |
V327= (VFUN_NARGS=6,(*(LnkLI274))((V327),(V328),/* INLINE-ARGS */V339,Cnil,Cnil,VV[144])); |
2387 |
goto T857; |
goto T857; |
2388 |
goto T891; |
goto T891; |
2389 |
T891:; |
T891:; |
2390 |
if(((*(LnkLI10))((V330),VV[145]))==Cnil){ |
if(((*(LnkLI10))((V332),VV[145]))==Cnil){ |
2391 |
goto T895;} |
goto T895;} |
2392 |
V338= (*(LnkLI255))(); |
V340= (*(LnkLI255))(); |
2393 |
V325= (VFUN_NARGS=6,(*(LnkLI274))((V325),(V326),/* INLINE-ARGS */V338,Cnil,Cnil,VV[146])); |
V327= (VFUN_NARGS=6,(*(LnkLI274))((V327),(V328),/* INLINE-ARGS */V340,Cnil,Cnil,VV[146])); |
2394 |
goto T857; |
goto T857; |
2395 |
goto T895; |
goto T895; |
2396 |
T895:; |
T895:; |
2397 |
if(((*(LnkLI10))((V330),VV[147]))==Cnil){ |
if(((*(LnkLI10))((V332),VV[147]))==Cnil){ |
2398 |
goto T899;} |
goto T899;} |
2399 |
V324= (*(LnkLI255))(); |
V326= (*(LnkLI255))(); |
2400 |
if(((V325))==Cnil){ |
if(((V327))==Cnil){ |
2401 |
goto T904;} |
goto T904;} |
2402 |
V325= (VFUN_NARGS=5,(*(LnkLI274))((V325),Cnil,Cnil,Cnil,(V324))); |
V327= (VFUN_NARGS=5,(*(LnkLI274))((V327),Cnil,Cnil,Cnil,(V326))); |
2403 |
goto T857; |
goto T857; |
2404 |
goto T904; |
goto T904; |
2405 |
T904:; |
T904:; |
2407 |
bds_bind(VV[149],small_fixnum(4)); |
bds_bind(VV[149],small_fixnum(4)); |
2408 |
goto T909; |
goto T909; |
2409 |
T909:; |
T909:; |
2410 |
if(!((car(caddr((V328))))==(VV[18]))){ |
if(!((CMPcar(CMPcaddr((V330))))==(VV[18]))){ |
2411 |
goto T910;} |
goto T910;} |
2412 |
bds_unwind1; |
bds_unwind1; |
2413 |
bds_unwind1; |
bds_unwind1; |
2420 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
2421 |
Lcerror(); |
Lcerror(); |
2422 |
vs_top=sup; |
vs_top=sup; |
2423 |
base[3]= symbol_value(VV[153]); |
base[3]= (VV[153]->s.s_dbind); |
2424 |
base[4]= VV[154]; |
base[4]= VV[154]; |
2425 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2426 |
Lformat(); |
Lformat(); |
2428 |
goto T909; |
goto T909; |
2429 |
goto T907; |
goto T907; |
2430 |
T907:; |
T907:; |
2431 |
V339= cadr((V328)); |
V341= CMPcadr((V330)); |
2432 |
if(!(type_of((V324))==t_cons)){ |
if(!(type_of((V326))==t_cons)){ |
2433 |
goto T926;} |
goto T926;} |
2434 |
{register object x= car((V324)),V341= VV[155]; |
{register object x= CMPcar((V326)),V343= VV[155]; |
2435 |
while(!endp(V341)) |
while(V343!=Cnil) |
2436 |
if(eql(x,V341->c.c_car)){ |
if(eql(x,V343->c.c_car)){ |
2437 |
goto T929; |
goto T929; |
2438 |
}else V341=V341->c.c_cdr; |
}else V343=V343->c.c_cdr; |
2439 |
goto T926;} |
goto T926;} |
2440 |
goto T929; |
goto T929; |
2441 |
T929:; |
T929:; |
2442 |
V340= list(2,cadr((V324)),cadr((V328))); |
V342= list(2,CMPcadr((V326)),CMPcadr((V330))); |
2443 |
goto T924; |
goto T924; |
2444 |
goto T926; |
goto T926; |
2445 |
T926:; |
T926:; |
2446 |
V340= list(3,VV[156],(V324),cadr((V328))); |
V342= list(3,VV[156],(V326),CMPcadr((V330))); |
2447 |
goto T924; |
goto T924; |
2448 |
T924:; |
T924:; |
2449 |
V328= list(3,VV[15],/* INLINE-ARGS */V339,V340); |
V330= list(3,VV[15],/* INLINE-ARGS */V341,V342); |
2450 |
goto T857; |
goto T857; |
2451 |
goto T899; |
goto T899; |
2452 |
T899:; |
T899:; |
2453 |
if(((*(LnkLI10))((V330),VV[157]))==Cnil){ |
if(((*(LnkLI10))((V332),VV[157]))==Cnil){ |
2454 |
goto T931;} |
goto T931;} |
2455 |
V342= (*(LnkLI255))(); |
V344= (*(LnkLI255))(); |
2456 |
V325= (VFUN_NARGS=6,(*(LnkLI274))((V325),(V326),Cnil,/* INLINE-ARGS */V342,Cnil,VV[144])); |
V327= (VFUN_NARGS=6,(*(LnkLI274))((V327),(V328),Cnil,/* INLINE-ARGS */V344,Cnil,VV[144])); |
2457 |
goto T857; |
goto T857; |
2458 |
goto T931; |
goto T931; |
2459 |
T931:; |
T931:; |
2460 |
if(((*(LnkLI10))((V330),VV[158]))==Cnil){ |
if(((*(LnkLI10))((V332),VV[158]))==Cnil){ |
2461 |
goto T935;} |
goto T935;} |
2462 |
V343= (*(LnkLI255))(); |
V345= (*(LnkLI255))(); |
2463 |
V325= (VFUN_NARGS=6,(*(LnkLI274))((V325),(V326),Cnil,/* INLINE-ARGS */V343,Cnil,VV[146])); |
V327= (VFUN_NARGS=6,(*(LnkLI274))((V327),(V328),Cnil,/* INLINE-ARGS */V345,Cnil,VV[146])); |
2464 |
goto T857; |
goto T857; |
2465 |
goto T935; |
goto T935; |
2466 |
T935:; |
T935:; |
2467 |
if(((*(LnkLI10))((V330),VV[159]))==Cnil){ |
if(((*(LnkLI10))((V332),VV[159]))==Cnil){ |
2468 |
goto T939;} |
goto T939;} |
2469 |
V344= (*(LnkLI255))(); |
V346= (*(LnkLI255))(); |
2470 |
V325= (VFUN_NARGS=7,(*(LnkLI274))((V325),(V326),Cnil,/* INLINE-ARGS */V344,Cnil,Cnil,Ct)); |
V327= (VFUN_NARGS=7,(*(LnkLI274))((V327),(V328),Cnil,/* INLINE-ARGS */V346,Cnil,Cnil,Ct)); |
2471 |
goto T857; |
goto T857; |
2472 |
goto T939; |
goto T939; |
2473 |
T939:; |
T939:; |
2474 |
if(!(type_of((V330))==t_symbol)){ |
if(!(type_of((V332))==t_symbol)){ |
2475 |
|
goto T943;} |
2476 |
|
{object V347 =((V332))->s.s_plist; |
2477 |
|
object ind= VV[160]; |
2478 |
|
while(V347!=Cnil){ |
2479 |
|
if(V347->c.c_car==ind){ |
2480 |
|
if(((V347->c.c_cdr->c.c_car))==Cnil){ |
2481 |
goto T943;} |
goto T943;} |
2482 |
if((get((V330),VV[160],Cnil))==Cnil){ |
goto T946; |
2483 |
|
}else V347=V347->c.c_cdr->c.c_cdr;} |
2484 |
goto T943;} |
goto T943;} |
2485 |
V345= (*(LnkLI13))((V329)); |
goto T946; |
2486 |
(void)((VFUN_NARGS=3,(*(LnkLI265))(/* INLINE-ARGS */V345,VV[160],(V326)))); |
T946:; |
2487 |
|
V348= (*(LnkLI13))((V331)); |
2488 |
|
(void)((VFUN_NARGS=3,(*(LnkLI265))(/* INLINE-ARGS */V348,VV[160],(V328)))); |
2489 |
goto T851; |
goto T851; |
2490 |
goto T943; |
goto T943; |
2491 |
T943:; |
T943:; |
2492 |
if(!(type_of((V330))==t_symbol)){ |
if(!(type_of((V332))==t_symbol)){ |
2493 |
|
goto T949;} |
2494 |
|
{object V349 =((V332))->s.s_plist; |
2495 |
|
object ind= VV[161]; |
2496 |
|
while(V349!=Cnil){ |
2497 |
|
if(V349->c.c_car==ind){ |
2498 |
|
if(((V349->c.c_cdr->c.c_car))==Cnil){ |
2499 |
goto T949;} |
goto T949;} |
2500 |
if((get((V330),VV[161],Cnil))==Cnil){ |
goto T952; |
2501 |
|
}else V349=V349->c.c_cdr->c.c_cdr;} |
2502 |
goto T949;} |
goto T949;} |
2503 |
V346= (*(LnkLI13))((V329)); |
goto T952; |
2504 |
(void)((*(LnkLI275))(/* INLINE-ARGS */V346,(V326))); |
T952:; |
2505 |
|
V350= (*(LnkLI13))((V331)); |
2506 |
|
(void)((*(LnkLI275))(/* INLINE-ARGS */V350,(V328))); |
2507 |
goto T851; |
goto T851; |
2508 |
goto T949; |
goto T949; |
2509 |
T949:; |
T949:; |
2511 |
goto T851;} |
goto T851;} |
2512 |
goto T857; |
goto T857; |
2513 |
T857:; |
T857:; |
2514 |
V329= (*(LnkLI255))(); |
V331= (*(LnkLI255))(); |
2515 |
goto T854;} |
goto T854;} |
2516 |
goto T851; |
goto T851; |
2517 |
T851:; |
T851:; |
2518 |
if(((V325))==Cnil){ |
if(((V327))==Cnil){ |
2519 |
goto T958;} |
goto T958;} |
2520 |
{object V347; |
{object V351; |
|
object V348; |
|
|
object V349; |
|
|
object V350; |
|
|
object V351; |
|
2521 |
object V352; |
object V352; |
2522 |
V347= car(cddddr((V325))); |
object V353; |
2523 |
V348= cadr(cddddr((V325))); |
object V354; |
2524 |
V349= car((V325)); |
object V355; |
2525 |
V350= caddr((V325)); |
object V356; |
2526 |
V351= cadddr((V325)); |
V351= CMPcar(CMPcddddr((V327))); |
2527 |
V352= Cnil; |
V352= CMPcadr(CMPcddddr((V327))); |
2528 |
(void)((VFUN_NARGS=4,(*(LnkLI267))((V349),cadr((V325)),Ct,VV[126]))); |
V353= CMPcar((V327)); |
2529 |
base[1]= (V351); |
V354= CMPcaddr((V327)); |
2530 |
|
V355= CMPcadddr((V327)); |
2531 |
|
V356= Cnil; |
2532 |
|
(void)((VFUN_NARGS=4,(*(LnkLI267))((V353),CMPcadr((V327)),Ct,VV[126]))); |
2533 |
|
base[1]= (V355); |
2534 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2535 |
Lconstantp(); |
Lconstantp(); |
2536 |
vs_top=sup; |
vs_top=sup; |
2539 |
goto T967; |
goto T967; |
2540 |
goto T968; |
goto T968; |
2541 |
T968:; |
T968:; |
2542 |
setq(VV[47],Ct); |
(VV[47]->s.s_dbind)= Ct; |
2543 |
goto T967; |
goto T967; |
2544 |
T967:; |
T967:; |
2545 |
V353= list(3,(V347),(V349),(V351)); |
V357= list(3,(V351),(V353),(V355)); |
2546 |
V328= list(3,VV[15],(V349),(*(LnkLI276))(/* INLINE-ARGS */V353,VV[126])); |
V330= list(3,VV[15],(V353),(*(LnkLI276))(/* INLINE-ARGS */V357,VV[126])); |
2547 |
if(((V350))==Cnil){ |
if(((V354))==Cnil){ |
2548 |
goto T975;} |
goto T975;} |
2549 |
{object V354; |
{object V358; |
2550 |
base[2]= VV[162]; |
base[2]= VV[162]; |
2551 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2552 |
Lgensym(); |
Lgensym(); |
2553 |
vs_top=sup; |
vs_top=sup; |
2554 |
V354= vs_base[0]; |
V358= vs_base[0]; |
2555 |
if(!(eql((V351),small_fixnum(1)))){ |
if(!(eql((V355),small_fixnum(1)))){ |
2556 |
goto T981;} |
goto T981;} |
2557 |
if((cadr(cddddr((V325))))!=Cnil){ |
if((CMPcadr(CMPcddddr((V327))))!=Cnil){ |
2558 |
goto T981;} |
goto T981;} |
2559 |
base[1]= Cnil; |
base[1]= Cnil; |
2560 |
goto T979; |
goto T979; |
2561 |
goto T981; |
goto T981; |
2562 |
T981:; |
T981:; |
2563 |
base[1]= list(3,(V347),VV[127],(V351)); |
base[1]= list(3,(V351),VV[127],(V355)); |
2564 |
goto T979; |
goto T979; |
2565 |
T979:; |
T979:; |
2566 |
bds_bind(VV[39],base[1]); |
bds_bind(VV[39],base[1]); |
2567 |
(void)((VFUN_NARGS=6,(*(LnkLI267))((V354),(V350),Cnil,VV[126],Cnil,Cnil))); |
(void)((VFUN_NARGS=6,(*(LnkLI267))((V358),(V354),Cnil,VV[126],Cnil,Cnil))); |
2568 |
if(((V348))==Cnil){ |
if(((V352))==Cnil){ |
2569 |
goto T989;} |
goto T989;} |
2570 |
if(!(((V347))==(VV[144]))){ |
if(!(((V351))==(VV[144]))){ |
2571 |
goto T992;} |
goto T992;} |
2572 |
V355= VV[163]; |
V359= VV[163]; |
2573 |
goto T987; |
goto T987; |
2574 |
goto T992; |
goto T992; |
2575 |
T992:; |
T992:; |
2576 |
V355= VV[164]; |
V359= VV[164]; |
2577 |
goto T987; |
goto T987; |
2578 |
goto T989; |
goto T989; |
2579 |
T989:; |
T989:; |
2580 |
if(!(((V347))==(VV[144]))){ |
if(!(((V351))==(VV[144]))){ |
2581 |
goto T995;} |
goto T995;} |
2582 |
V355= VV[165]; |
V359= VV[165]; |
2583 |
goto T987; |
goto T987; |
2584 |
goto T995; |
goto T995; |
2585 |
T995:; |
T995:; |
2586 |
V355= VV[166]; |
V359= VV[166]; |
2587 |
goto T987; |
goto T987; |
2588 |
T987:; |
T987:; |
2589 |
V327= list(3,V355,(V349),(V354)); |
V329= list(3,V359,(V353),(V358)); |
2590 |
bds_unwind1; |
bds_unwind1; |
2591 |
goto T958;} |
goto T958;} |
2592 |
goto T975; |
goto T975; |
2593 |
T975:; |
T975:; |
2594 |
if((symbol_value(VV[47]))!=Cnil){ |
if(((VV[47]->s.s_dbind))!=Cnil){ |
2595 |
goto T958;} |
goto T958;} |
2596 |
if((symbol_value(VV[125]))==Cnil){ |
if(((VV[125]->s.s_dbind))==Cnil){ |
2597 |
goto T958;} |
goto T958;} |
2598 |
base[1]= symbol_value(VV[54]); |
base[1]= (VV[54]->s.s_dbind); |
2599 |
base[2]= VV[126]; |
base[2]= VV[126]; |
2600 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2601 |
Lgetf(); |
Lgetf(); |
2602 |
vs_top=sup; |
vs_top=sup; |
2603 |
V352= vs_base[0]; |
V356= vs_base[0]; |
2604 |
if(((V352))==Cnil){ |
if(((V356))==Cnil){ |
2605 |
goto T958;} |
goto T958;} |
2606 |
if(!(type_of((V352))==t_cons)){ |
if(!(type_of((V356))==t_cons)){ |
2607 |
goto T1008;} |
goto T1008;} |
2608 |
if(!((car((V352)))==(VV[122]))){ |
if(!((CMPcar((V356)))==(VV[122]))){ |
2609 |
goto T1008;} |
goto T1008;} |
2610 |
V352= cadr((V352)); |
V356= CMPcadr((V356)); |
2611 |
goto T1008; |
goto T1008; |
2612 |
T1008:; |
T1008:; |
2613 |
base[1]= (V352); |
base[1]= (V356); |
2614 |
base[2]= VV[167]; |
base[2]= VV[167]; |
2615 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2616 |
(void) (*Lnk277)(); |
(void) (*Lnk277)(); |
2617 |
vs_top=sup; |
vs_top=sup; |
2618 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2619 |
goto T958;} |
goto T958;} |
2620 |
base[1]= (V351); |
base[1]= (V355); |
2621 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2622 |
Lconstantp(); |
Lconstantp(); |
2623 |
vs_top=sup; |
vs_top=sup; |
2632 |
vs_top=sup; |
vs_top=sup; |
2633 |
goto T1016; |
goto T1016; |
2634 |
T1016:; |
T1016:; |
2635 |
{object V356; |
{object V360; |
2636 |
if(!(((V347))==(VV[144]))){ |
if(!(((V351))==(VV[144]))){ |
2637 |
goto T1024;} |
goto T1024;} |
2638 |
if((V351)!=Cnil){ |
if((V355)!=Cnil){ |
2639 |
V358= (V351); |
V362= (V355); |
2640 |
goto T1026;} |
goto T1026;} |
2641 |
V358= small_fixnum(1); |
V362= small_fixnum(1); |
2642 |
goto T1026; |
goto T1026; |
2643 |
T1026:; |
T1026:; |
2644 |
V357= list(3,VV[164],(V349),number_minus(VV[169],V358)); |
V361= list(3,VV[164],(V353),number_minus(VV[169],V362)); |
2645 |
goto T1022; |
goto T1022; |
2646 |
goto T1024; |
goto T1024; |
2647 |
T1024:; |
T1024:; |
2648 |
if((V351)!=Cnil){ |
if((V355)!=Cnil){ |
2649 |
V359= (V351); |
V363= (V355); |
2650 |
goto T1027;} |
goto T1027;} |
2651 |
V359= small_fixnum(1); |
V363= small_fixnum(1); |
2652 |
goto T1027; |
goto T1027; |
2653 |
T1027:; |
T1027:; |
2654 |
V357= list(3,VV[163],(V349),number_plus(VV[170],V359)); |
V361= list(3,VV[163],(V353),number_plus(VV[170],V363)); |
2655 |
goto T1022; |
goto T1022; |
2656 |
T1022:; |
T1022:; |
2657 |
V356= list(3,VV[80],V357,VV[171]); |
V360= list(3,VV[80],V361,VV[171]); |
2658 |
setq(VV[42],make_cons((V356),symbol_value(VV[42])));}} |
(VV[42]->s.s_dbind)= make_cons((V360),(VV[42]->s.s_dbind));}} |
2659 |
goto T958; |
goto T958; |
2660 |
T958:; |
T958:; |
2661 |
if((V327)==Cnil){ |
if((V329)==Cnil){ |
2662 |
goto T1029;} |
goto T1029;} |
2663 |
{object V360; |
{object V364; |
2664 |
base[2]= list(3,VV[5],(V327),VV[172]); |
base[2]= list(3,VV[5],(V329),VV[172]); |
2665 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2666 |
Lcopy_tree(); |
Lcopy_tree(); |
2667 |
vs_top=sup; |
vs_top=sup; |
2668 |
V360= vs_base[0]; |
V364= vs_base[0]; |
2669 |
setq(VV[41],make_cons((V360),symbol_value(VV[41])));} |
(VV[41]->s.s_dbind)= make_cons((V364),(VV[41]->s.s_dbind));} |
2670 |
goto T1029; |
goto T1029; |
2671 |
T1029:; |
T1029:; |
2672 |
if((V328)==Cnil){ |
if((V330)==Cnil){ |
2673 |
{object V361 = Cnil; |
{object V365 = Cnil; |
2674 |
VMR39(V361)}} |
VMR39(V365)}} |
2675 |
setq(VV[42],make_cons(V328,symbol_value(VV[42]))); |
(VV[42]->s.s_dbind)= make_cons(V330,(VV[42]->s.s_dbind)); |
2676 |
{object V363 = symbol_value(VV[42]); |
{object V367 = (VV[42]->s.s_dbind); |
2677 |
VMR39(V363)}}} |
VMR39(V367)}}} |
2678 |
base[0]=base[0]; |
base[0]=base[0]; |
2679 |
return Cnil; |
return Cnil; |
2680 |
} |
} |
2681 |
/* local entry for function PARSE-LOOP-MACRO */ |
/* local entry for function PARSE-LOOP-MACRO */ |
2682 |
|
|
2683 |
static object LI40(object V365,object V364,object first,...) |
static object LI40(object V369,object V368,object first,...) |
2684 |
{ |
{ |
2685 |
va_list ap; |
va_list ap; |
2686 |
int narg = VFUN_NARGS; VMB40 VMS40 VMV40 |
int narg = VFUN_NARGS; VMB40 VMS40 VMV40 |
2687 |
{object V366; |
{object V370; |
2688 |
object V367; |
object V371; |
2689 |
object V368; |
object V372; |
2690 |
va_start(ap,first); |
va_start(ap,first); |
2691 |
if(narg <2) too_few_arguments(); |
V370= V369; |
2692 |
V366= V365; |
V371= V368; |
|
V367= V364; |
|
2693 |
narg = narg - 2; |
narg = narg - 2; |
2694 |
if (narg <= 0) goto T1034; |
if (narg <= 0) goto T1034; |
2695 |
else { |
else { |
2696 |
V368= first;} |
V372= first;} |
2697 |
--narg; goto T1035; |
--narg; goto T1035; |
2698 |
goto T1034; |
goto T1034; |
2699 |
T1034:; |
T1034:; |
2700 |
V368= Cnil; |
V372= Cnil; |
2701 |
goto T1035; |
goto T1035; |
2702 |
T1035:; |
T1035:; |
2703 |
{register object V369; |
{register object V373; |
2704 |
V369= Cnil; |
V373= Cnil; |
2705 |
{object V370; |
{object V374; |
2706 |
object V371; |
object V375; |
2707 |
V370= get((V366),(V367),Cnil); |
{object V376 =((V370))->s.s_plist; |
2708 |
V371= Cnil; |
object ind= (V371); |
2709 |
{object V372= (V367); |
while(V376!=Cnil){ |
2710 |
if((V372!= VV[160]))goto T1041; |
if(V376->c.c_car==ind){ |
2711 |
{object V373; |
V374= (V376->c.c_cdr->c.c_car); |
2712 |
V373= get((V366),VV[173],Cnil);{object V374; |
goto T1038; |
2713 |
V374= cdr((V373)); |
}else V376=V376->c.c_cdr->c.c_cdr;} |
2714 |
if(V374==Cnil)goto T1044; |
V374= Cnil;} |
2715 |
|
goto T1038; |
2716 |
|
T1038:; |
2717 |
|
V375= Cnil; |
2718 |
|
{object V377= (V371); |
2719 |
|
if((V377!= VV[160]))goto T1041; |
2720 |
|
{object V378; |
2721 |
|
{object V379 =((V370))->s.s_plist; |
2722 |
|
object ind= VV[173]; |
2723 |
|
while(V379!=Cnil){ |
2724 |
|
if(V379->c.c_car==ind){ |
2725 |
|
V378= (V379->c.c_cdr->c.c_car); |
2726 |
|
goto T1042; |
2727 |
|
}else V379=V379->c.c_cdr->c.c_cdr;} |
2728 |
|
V378= Cnil;} |
2729 |
|
goto T1042; |
2730 |
|
T1042:;{object V380; |
2731 |
|
V380= CMPcdr((V378)); |
2732 |
|
if(V380==Cnil)goto T1044; |
2733 |
goto T1043; |
goto T1043; |
2734 |
goto T1044; |
goto T1044; |
2735 |
T1044:;} |
T1044:;} |
2739 |
vs_top=sup; |
vs_top=sup; |
2740 |
goto T1043; |
goto T1043; |
2741 |
T1043:; |
T1043:; |
2742 |
V371= cdr((V373)); |
V375= CMPcdr((V378)); |
2743 |
goto T1040;} |
goto T1040;} |
2744 |
goto T1041; |
goto T1041; |
2745 |
T1041:; |
T1041:; |
2746 |
if((V372!= VV[92]))goto T1047; |
if((V377!= VV[92]))goto T1047; |
2747 |
V371= get((V366),VV[175],Cnil); |
{object V381 =((V370))->s.s_plist; |
2748 |
|
object ind= VV[175]; |
2749 |
|
while(V381!=Cnil){ |
2750 |
|
if(V381->c.c_car==ind){ |
2751 |
|
V375= (V381->c.c_cdr->c.c_car); |
2752 |
goto T1040; |
goto T1040; |
2753 |
|
}else V381=V381->c.c_cdr->c.c_cdr;} |
2754 |
|
V375= Cnil; |
2755 |
|
goto T1040;} |
2756 |
goto T1047; |
goto T1047; |
2757 |
T1047:; |
T1047:; |
2758 |
FEerror("The ECASE key value ~s is illegal.",1,V372); |
FEerror("The ECASE key value ~s is illegal.",1,V377); |
2759 |
V371= Cnil; |
V375= Cnil; |
2760 |
goto T1040;} |
goto T1040;} |
2761 |
goto T1040; |
goto T1040; |
2762 |
T1040:; |
T1040:; |
2763 |
{object V375; |
{object V382; |
2764 |
{register object x= VV[176],V376= (V371); |
{register object x= VV[176],V383= (V375); |
2765 |
while(!endp(V376)) |
while(V383!=Cnil) |
2766 |
if(eql(x,V376->c.c_car)){ |
if(eql(x,V383->c.c_car)){ |
2767 |
goto T1051; |
goto T1051; |
2768 |
}else V376=V376->c.c_cdr; |
}else V383=V383->c.c_cdr; |
2769 |
goto T1050;} |
goto T1050;} |
2770 |
goto T1051; |
goto T1051; |
2771 |
T1051:; |
T1051:; |
2772 |
{object V377; |
{object V384; |
2773 |
V377= symbol_value(VV[34]); |
V384= (VV[34]->s.s_dbind); |
2774 |
setq(VV[34],Cnil); |
(VV[34]->s.s_dbind)= Cnil; |
2775 |
V375= (V377); |
V382= (V384); |
2776 |
goto T1048;} |
goto T1048;} |
2777 |
goto T1050; |
goto T1050; |
2778 |
T1050:; |
T1050:; |
2779 |
{register object V378; |
{register object V385; |
2780 |
register object V379; |
register object V386; |
2781 |
V378= make_fixnum((long)length((V371))); |
V385= CMPmake_fixnum((long)length((V375))); |
2782 |
V379= small_fixnum(0); |
V386= small_fixnum(0); |
2783 |
goto T1057; |
goto T1057; |
2784 |
T1057:; |
T1057:; |
2785 |
if(!(number_compare((V379),(V378))>=0)){ |
if(!(number_compare((V386),(V385))>=0)){ |
2786 |
goto T1058;} |
goto T1058;} |
2787 |
V375= nreverse((V369)); |
V382= nreverse((V373)); |
2788 |
goto T1048; |
goto T1048; |
2789 |
goto T1058; |
goto T1058; |
2790 |
T1058:; |
T1058:; |
2791 |
{register object V380; |
{register object V387; |
2792 |
V380= car(symbol_value(VV[34])); |
V387= CMPcar((VV[34]->s.s_dbind)); |
2793 |
V369= make_cons((V380),(V369));} |
V373= make_cons((V387),(V373));} |
2794 |
setq(VV[34],cdr(symbol_value(VV[34]))); |
(VV[34]->s.s_dbind)= CMPcdr((VV[34]->s.s_dbind)); |
2795 |
V379= one_plus((V379)); |
V386= one_plus((V386)); |
2796 |
goto T1057;} |
goto T1057;} |
2797 |
goto T1048; |
goto T1048; |
2798 |
T1048:; |
T1048:; |
2799 |
{object V382= (V367); |
{object V389= (V371); |
2800 |
if((V382!= VV[160]))goto T1072; |
if((V389!= VV[160]))goto T1072; |
2801 |
base[0]= (V370); |
base[0]= (V374); |
2802 |
base[1]= (V368); |
base[1]= (V372); |
2803 |
{object V383; |
{object V390; |
2804 |
V383= (V375); |
V390= (V382); |
2805 |
vs_top=base+2; |
vs_top=base+2; |
2806 |
while(!endp(V383)) |
while(V390!=Cnil) |
2807 |
{vs_push(car(V383));V383=cdr(V383);} |
{vs_push((V390)->c.c_car);V390=(V390)->c.c_cdr;} |
2808 |
vs_base=base+1;} |
vs_base=base+1;} |
2809 |
super_funcall_no_event(base[0]); |
super_funcall_no_event(base[0]); |
2810 |
vs_top=sup; |
vs_top=sup; |
2811 |
V381= vs_base[0]; |
V388= vs_base[0]; |
2812 |
goto T1071; |
goto T1071; |
2813 |
goto T1072; |
goto T1072; |
2814 |
T1072:; |
T1072:; |
2815 |
if((V382!= VV[92]))goto T1076; |
if((V389!= VV[92]))goto T1076; |
2816 |
base[0]= (V370); |
base[0]= (V374); |
2817 |
{object V384; |
{object V391; |
2818 |
V384= (V375); |
V391= (V382); |
2819 |
vs_top=base+1; |
vs_top=base+1; |
2820 |
while(!endp(V384)) |
while(V391!=Cnil) |
2821 |
{vs_push(car(V384));V384=cdr(V384);} |
{vs_push((V391)->c.c_car);V391=(V391)->c.c_cdr;} |
2822 |
vs_base=base+1;} |
vs_base=base+1;} |
2823 |
super_funcall_no_event(base[0]); |
super_funcall_no_event(base[0]); |
2824 |
vs_top=sup; |
vs_top=sup; |
2825 |
V381= vs_base[0]; |
V388= vs_base[0]; |
2826 |
goto T1071; |
goto T1071; |
2827 |
goto T1076; |
goto T1076; |
2828 |
T1076:; |
T1076:; |
2829 |
V381= Cnil;} |
V388= Cnil;} |
2830 |
goto T1071; |
goto T1071; |
2831 |
T1071:; |
T1071:; |
2832 |
setq(VV[34],append(V381,symbol_value(VV[34]))); |
(VV[34]->s.s_dbind)= append(V388,(VV[34]->s.s_dbind)); |
2833 |
{object V385 = symbol_value(VV[34]); |
{object V392 = (VV[34]->s.s_dbind); |
2834 |
VMR40(V385)}}}} |
VMR40(V392)}}}} |
2835 |
va_end(ap); |
va_end(ap); |
2836 |
base[0]=base[0]; |
base[0]=base[0]; |
2837 |
return Cnil;} |
return Cnil;} |
2838 |
} |
} |
2839 |
/* local entry for function PARSE-LOOP-MAP */ |
/* local entry for function PARSE-LOOP-MAP */ |
2840 |
|
|
2841 |
static object LI41(V388,V389) |
static object LI41(V395,V396) |
2842 |
|
|
2843 |
object V388;object V389; |
object V395;object V396; |
2844 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
2845 |
goto TTL; |
goto TTL; |
2846 |
TTL:; |
TTL:; |
2847 |
if(symbol_value(VV[53])==Cnil){ |
if((VV[53]->s.s_dbind)==Cnil){ |
2848 |
goto T1079;} |
goto T1079;} |
2849 |
base[0]= VV[177]; |
base[0]= VV[177]; |
2850 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2852 |
vs_top=sup; |
vs_top=sup; |
2853 |
goto T1079; |
goto T1079; |
2854 |
T1079:; |
T1079:; |
2855 |
{object V390; |
{object V397; |
2856 |
object V391; |
object V398; |
2857 |
V390= get((V388),VV[161],Cnil); |
{object V399 =((V395))->s.s_plist; |
2858 |
V391= get((V388),VV[178],Cnil); |
object ind= VV[161]; |
2859 |
if((V391)!=Cnil){ |
while(V399!=Cnil){ |
2860 |
|
if(V399->c.c_car==ind){ |
2861 |
|
V397= (V399->c.c_cdr->c.c_car); |
2862 |
|
goto T1081; |
2863 |
|
}else V399=V399->c.c_cdr->c.c_cdr;} |
2864 |
|
V397= Cnil;} |
2865 |
|
goto T1081; |
2866 |
|
T1081:; |
2867 |
|
{object V400 =((V395))->s.s_plist; |
2868 |
|
object ind= VV[178]; |
2869 |
|
while(V400!=Cnil){ |
2870 |
|
if(V400->c.c_car==ind){ |
2871 |
|
V398= (V400->c.c_cdr->c.c_car); |
2872 |
|
goto T1082; |
2873 |
|
}else V400=V400->c.c_cdr->c.c_cdr;} |
2874 |
|
V398= Cnil;} |
2875 |
|
goto T1082; |
2876 |
|
T1082:; |
2877 |
|
if((V398)!=Cnil){ |
2878 |
goto T1083;} |
goto T1083;} |
2879 |
base[0]= VV[179]; |
base[0]= VV[179]; |
2880 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2882 |
vs_top=sup; |
vs_top=sup; |
2883 |
goto T1083; |
goto T1083; |
2884 |
T1083:; |
T1083:; |
2885 |
{register object x= VV[176],V392= (V391); |
{register object x= VV[176],V401= (V398); |
2886 |
while(!endp(V392)) |
while(V401!=Cnil) |
2887 |
if(eql(x,V392->c.c_car)){ |
if(eql(x,V401->c.c_car)){ |
2888 |
goto T1087; |
goto T1087; |
2889 |
}else V392=V392->c.c_cdr; |
}else V401=V401->c.c_cdr; |
2890 |
goto T1085;} |
goto T1085;} |
2891 |
goto T1087; |
goto T1087; |
2892 |
T1087:; |
T1087:; |
2896 |
vs_top=sup; |
vs_top=sup; |
2897 |
goto T1085; |
goto T1085; |
2898 |
T1085:; |
T1085:; |
2899 |
{register object V393; |
{register object V402; |
2900 |
object V394; |
object V403; |
2901 |
V393= Cnil; |
V402= Cnil; |
2902 |
{object V395; |
{object V404; |
2903 |
register object V396; |
register object V405; |
2904 |
V397 = make_fixnum((long)length((V391))); |
V406 = CMPmake_fixnum((long)length((V398))); |
2905 |
V395= one_minus(V397); |
V404= one_minus(V406); |
2906 |
V396= small_fixnum(0); |
V405= small_fixnum(0); |
2907 |
goto T1094; |
goto T1094; |
2908 |
T1094:; |
T1094:; |
2909 |
if(!(number_compare((V396),(V395))>=0)){ |
if(!(number_compare((V405),(V404))>=0)){ |
2910 |
goto T1095;} |
goto T1095;} |
2911 |
V394= nreverse((V393)); |
V403= nreverse((V402)); |
2912 |
goto T1090; |
goto T1090; |
2913 |
goto T1095; |
goto T1095; |
2914 |
T1095:; |
T1095:; |
2915 |
{register object V398; |
{register object V407; |
2916 |
V398= car(symbol_value(VV[34])); |
V407= CMPcar((VV[34]->s.s_dbind)); |
2917 |
V393= make_cons((V398),(V393));} |
V402= make_cons((V407),(V402));} |
2918 |
setq(VV[34],cdr(symbol_value(VV[34]))); |
(VV[34]->s.s_dbind)= CMPcdr((VV[34]->s.s_dbind)); |
2919 |
V396= one_plus((V396)); |
V405= one_plus((V405)); |
2920 |
goto T1094;} |
goto T1094;} |
2921 |
goto T1090; |
goto T1090; |
2922 |
T1090:; |
T1090:; |
2923 |
{register object V399; |
{register object V408; |
2924 |
register object V400; |
register object V409; |
2925 |
V399= (*(LnkLI255))(); |
V408= (*(LnkLI255))(); |
2926 |
V400= Cnil; |
V409= Cnil; |
2927 |
goto T1111; |
goto T1111; |
2928 |
T1111:; |
T1111:; |
2929 |
if(((*(LnkLI10))((V399),VV[77]))!=Cnil){ |
if(((*(LnkLI10))((V408),VV[77]))!=Cnil){ |
2930 |
goto T1112;} |
goto T1112;} |
2931 |
(void)((*(LnkLI266))()); |
(void)((*(LnkLI266))()); |
2932 |
if((V400)==Cnil){ |
if((V409)==Cnil){ |
2933 |
setq(VV[44],Cnil); |
(VV[44]->s.s_dbind)= Cnil; |
2934 |
goto T1108;} |
goto T1108;} |
2935 |
setq(VV[44],make_cons(VV[77],(V400))); |
(VV[44]->s.s_dbind)= make_cons(VV[77],(V409)); |
2936 |
goto T1108; |
goto T1108; |
2937 |
goto T1112; |
goto T1112; |
2938 |
T1112:; |
T1112:; |
2939 |
{register object V401; |
{register object V410; |
2940 |
V401= (*(LnkLI255))(); |
V410= (*(LnkLI255))(); |
2941 |
V400= make_cons((V401),(V400));} |
V409= make_cons((V410),(V409));} |
2942 |
V399= (*(LnkLI255))(); |
V408= (*(LnkLI255))(); |
2943 |
goto T1111;} |
goto T1111;} |
2944 |
goto T1108; |
goto T1108; |
2945 |
T1108:; |
T1108:; |
2946 |
base[1]= (V390); |
base[1]= (V397); |
2947 |
base[2]= (V389); |
base[2]= (V396); |
2948 |
{object V402; |
{object V411; |
2949 |
V402= (V394); |
V411= (V403); |
2950 |
vs_top=base+3; |
vs_top=base+3; |
2951 |
while(!endp(V402)) |
while(V411!=Cnil) |
2952 |
{vs_push(car(V402));V402=cdr(V402);} |
{vs_push((V411)->c.c_car);V411=(V411)->c.c_cdr;} |
2953 |
vs_base=base+2;} |
vs_base=base+2;} |
2954 |
super_funcall_no_event(base[1]); |
super_funcall_no_event(base[1]); |
2955 |
vs_top=sup; |
vs_top=sup; |
2956 |
setq(VV[53],vs_base[0]); |
(VV[53]->s.s_dbind)= vs_base[0]; |
2957 |
{object V403 = Cnil; |
{object V412 = Cnil; |
2958 |
VMR41(V403)}}} |
VMR41(V412)}}} |
2959 |
base[0]=base[0]; |
base[0]=base[0]; |
2960 |
return Cnil; |
return Cnil; |
2961 |
} |
} |
2962 |
/* local entry for function SUBSTITUTE-SLOOP-BODY */ |
/* local entry for function SUBSTITUTE-SLOOP-BODY */ |
2963 |
|
|
2964 |
static object LI42(V405) |
static object LI42(V414) |
2965 |
|
|
2966 |
register object V405; |
register object V414; |
2967 |
{ VMB42 VMS42 VMV42 |
{ VMB42 VMS42 VMV42 |
2968 |
goto TTL; |
goto TTL; |
2969 |
TTL:; |
TTL:; |
2970 |
if((symbol_value(VV[53]))==Cnil){ |
if(((VV[53]->s.s_dbind))==Cnil){ |
2971 |
goto T1128;} |
goto T1128;} |
2972 |
base[0]= make_cons(VV[16],(V405)); |
base[0]= make_cons(VV[16],(V414)); |
2973 |
base[1]= VV[181]; |
base[1]= VV[181]; |
2974 |
base[2]= symbol_value(VV[53]); |
base[2]= (VV[53]->s.s_dbind); |
2975 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2976 |
Lsubst(); |
Lsubst(); |
2977 |
vs_top=sup; |
vs_top=sup; |
2978 |
V406= vs_base[0]; |
V415= vs_base[0]; |
2979 |
V405= make_cons(V406,Cnil); |
V414= make_cons(V415,Cnil); |
2980 |
if(symbol_value(VV[44])==Cnil){ |
if((VV[44]->s.s_dbind)==Cnil){ |
2981 |
goto T1128;} |
goto T1128;} |
2982 |
base[0]= symbol_value(VV[44]); |
base[0]= (VV[44]->s.s_dbind); |
2983 |
base[1]= VV[182]; |
base[1]= VV[182]; |
2984 |
base[2]= (V405); |
base[2]= (V414); |
2985 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2986 |
Lsubst(); |
Lsubst(); |
2987 |
vs_top=sup; |
vs_top=sup; |
2988 |
V405= vs_base[0]; |
V414= vs_base[0]; |
2989 |
goto T1128; |
goto T1128; |
2990 |
T1128:; |
T1128:; |
2991 |
{object V407 = (V405); |
{object V416 = (V414); |
2992 |
VMR42(V407)} |
VMR42(V416)} |
2993 |
base[0]=base[0]; |
base[0]=base[0]; |
2994 |
return Cnil; |
return Cnil; |
2995 |
} |
} |
2996 |
/* local entry for function DEF-LOOP-INTERNAL */ |
/* local entry for function DEF-LOOP-INTERNAL */ |
2997 |
|
|
2998 |
static object LI43(object V411,object V410,object V409,object V408,object first,...) |
static object LI43(object V420,object V419,object V418,object V417,object first,...) |
2999 |
{ |
{ |
3000 |
va_list ap; |
va_list ap; |
3001 |
int narg = VFUN_NARGS; VMB43 VMS43 VMV43 |
int narg = VFUN_NARGS; VMB43 VMS43 VMV43 |
3002 |
bds_check; |
bds_check; |
3003 |
{register object V412; |
{register object V421; |
3004 |
register object V413; |
register object V422; |
3005 |
object V414; |
object V423; |
3006 |
object V415; |
object V424; |
3007 |
object V416; |
object V425; |
3008 |
object V417; |
object V426; |
3009 |
object V418; |
object V427; |
3010 |
va_start(ap,first); |
va_start(ap,first); |
3011 |
if(narg <4) too_few_arguments(); |
V421= V420; |
3012 |
V412= V411; |
V422= V419; |
3013 |
V413= V410; |
V423= V418; |
3014 |
V414= V409; |
V424= V417; |
|
V415= V408; |
|
3015 |
narg = narg - 4; |
narg = narg - 4; |
3016 |
if (narg <= 0) goto T1141; |
if (narg <= 0) goto T1141; |
3017 |
else { |
else { |
3018 |
V416= first;} |
V425= first;} |
3019 |
if (--narg <= 0) goto T1142; |
if (--narg <= 0) goto T1142; |
3020 |
else { |
else { |
3021 |
V417= va_arg(ap,object);} |
V426= va_arg(ap,object);} |
3022 |
if (--narg <= 0) goto T1143; |
if (--narg <= 0) goto T1143; |
3023 |
else { |
else { |
3024 |
V418= va_arg(ap,object);} |
V427= va_arg(ap,object);} |
3025 |
--narg; goto T1144; |
--narg; goto T1144; |
3026 |
goto T1141; |
goto T1141; |
3027 |
T1141:; |
T1141:; |
3028 |
V416= Cnil; |
V425= Cnil; |
3029 |
goto T1142; |
goto T1142; |
3030 |
T1142:; |
T1142:; |
3031 |
V417= Cnil; |
V426= Cnil; |
3032 |
goto T1143; |
goto T1143; |
3033 |
T1143:; |
T1143:; |
3034 |
V418= Cnil; |
V427= Cnil; |
3035 |
goto T1144; |
goto T1144; |
3036 |
T1144:; |
T1144:; |
3037 |
{object V419; |
{object V428; |
3038 |
bds_bind(VV[184],VV[183]); |
bds_bind(VV[184],VV[183]); |
3039 |
base[3]= Cnil; |
base[3]= Cnil; |
3040 |
base[4]= VV[185]; |
base[4]= VV[185]; |
3041 |
base[5]= (V412); |
base[5]= (V421); |
3042 |
base[6]= (V415); |
base[6]= (V424); |
3043 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
3044 |
Lformat(); |
Lformat(); |
3045 |
vs_top=sup; |
vs_top=sup; |
3047 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3048 |
Lintern(); |
Lintern(); |
3049 |
vs_top=sup; |
vs_top=sup; |
3050 |
V419= vs_base[0]; |
V428= vs_base[0]; |
3051 |
if((V417)==Cnil){ |
if((V426)==Cnil){ |
3052 |
goto T1154;} |
goto T1154;} |
3053 |
V420 = make_fixnum((long)length((V413))); |
V429 = CMPmake_fixnum((long)length((V422))); |
3054 |
if(!(number_compare(V420,(V417))>=0)){ |
if(!(number_compare(V429,(V426))>=0)){ |
3055 |
goto T1155;} |
goto T1155;} |
3056 |
goto T1154; |
goto T1154; |
3057 |
goto T1155; |
goto T1155; |
3062 |
vs_top=sup; |
vs_top=sup; |
3063 |
goto T1154; |
goto T1154; |
3064 |
T1154:; |
T1154:; |
3065 |
if((V418)==Cnil){ |
if((V427)==Cnil){ |
3066 |
goto T1158;} |
goto T1158;} |
3067 |
V421 = make_fixnum((long)length((V413))); |
V430 = CMPmake_fixnum((long)length((V422))); |
3068 |
if(!(number_compare(V421,(V418))<=0)){ |
if(!(number_compare(V430,(V427))<=0)){ |
3069 |
goto T1159;} |
goto T1159;} |
3070 |
goto T1158; |
goto T1158; |
3071 |
goto T1159; |
goto T1159; |
3076 |
vs_top=sup; |
vs_top=sup; |
3077 |
goto T1158; |
goto T1158; |
3078 |
T1158:; |
T1158:; |
3079 |
V422= listA(4,VV[190],(V419),(V413),(V414)); |
V431= listA(4,VV[190],(V428),(V422),(V423)); |
3080 |
if((V416)==Cnil){ |
if((V425)==Cnil){ |
3081 |
V423= Cnil; |
V432= Cnil; |
3082 |
goto T1162;} |
goto T1162;} |
3083 |
V424= list(3,VV[191],list(2,VV[9],(V412)),(V416)); |
V433= list(3,VV[191],list(2,VV[9],(V421)),(V425)); |
3084 |
V423= make_cons(/* INLINE-ARGS */V424,Cnil); |
V432= make_cons(/* INLINE-ARGS */V433,Cnil); |
3085 |
goto T1162; |
goto T1162; |
3086 |
T1162:; |
T1162:; |
3087 |
V425= list(2,VV[9],(V412)); |
V434= list(2,VV[9],(V421)); |
3088 |
base[3]= Cnil; |
base[3]= Cnil; |
3089 |
base[4]= VV[192]; |
base[4]= VV[192]; |
3090 |
base[5]= (V415); |
base[5]= (V424); |
3091 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
3092 |
Lformat(); |
Lformat(); |
3093 |
vs_top=sup; |
vs_top=sup; |
3100 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3101 |
Lintern(); |
Lintern(); |
3102 |
vs_top=sup; |
vs_top=sup; |
3103 |
V426= vs_base[0]; |
V435= vs_base[0]; |
3104 |
V427= list(3,VV[7],/* INLINE-ARGS */V425,list(2,VV[9],V426)); |
V436= list(3,VV[7],/* INLINE-ARGS */V434,list(2,VV[9],V435)); |
3105 |
V428= list(3,VV[15],/* INLINE-ARGS */V427,list(2,VV[9],(V419))); |
V437= list(3,VV[15],/* INLINE-ARGS */V436,list(2,VV[9],(V428))); |
3106 |
V429= list(2,VV[9],(V412)); |
V438= list(2,VV[9],(V421)); |
3107 |
base[3]= Cnil; |
base[3]= Cnil; |
3108 |
base[4]= VV[194]; |
base[4]= VV[194]; |
3109 |
base[5]= (V415); |
base[5]= (V424); |
3110 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
3111 |
Lformat(); |
Lformat(); |
3112 |
vs_top=sup; |
vs_top=sup; |
3119 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3120 |
Lintern(); |
Lintern(); |
3121 |
vs_top=sup; |
vs_top=sup; |
3122 |
V430= vs_base[0]; |
V439= vs_base[0]; |
3123 |
V431= list(3,VV[7],/* INLINE-ARGS */V429,list(2,VV[9],V430)); |
V440= list(3,VV[7],/* INLINE-ARGS */V438,list(2,VV[9],V439)); |
3124 |
V432= list(2,/* INLINE-ARGS */V428,list(3,VV[15],/* INLINE-ARGS */V431,list(2,VV[9],(V413)))); |
V441= list(2,/* INLINE-ARGS */V437,list(3,VV[15],/* INLINE-ARGS */V440,list(2,VV[9],(V422)))); |
3125 |
{object V433 = listA(4,VV[188],VV[189],/* INLINE-ARGS */V422,append(V423,/* INLINE-ARGS */V432)); |
{object V442 = listA(4,VV[188],VV[189],/* INLINE-ARGS */V431,append(V432,/* INLINE-ARGS */V441)); |
3126 |
bds_unwind1; |
bds_unwind1; |
3127 |
VMR43(V433)}} |
VMR43(V442)}} |
3128 |
va_end(ap); |
va_end(ap); |
3129 |
base[0]=base[0]; |
base[0]=base[0]; |
3130 |
return Cnil;} |
return Cnil;} |
3131 |
} |
} |
3132 |
/* local entry for function SUM-SLOOP-COLLECT */ |
/* local entry for function SUM-SLOOP-COLLECT */ |
3133 |
|
|
3134 |
static object LI44(V436,V437) |
static object LI44(V445,V446) |
3135 |
|
|
3136 |
object V436;object V437; |
object V445;object V446; |
3137 |
{ VMB44 VMS44 VMV44 |
{ VMB44 VMS44 VMV44 |
3138 |
goto TTL; |
goto TTL; |
3139 |
TTL:; |
TTL:; |
3140 |
V438= list(3,VV[195],(V436),small_fixnum(0)); |
V447= list(3,VV[195],(V445),small_fixnum(0)); |
3141 |
{object V439 = list(4,VV[97],/* INLINE-ARGS */V438,VV[56],list(3,VV[195],(V436),list(3,VV[144],(V436),(V437)))); |
{object V448 = list(4,VV[97],/* INLINE-ARGS */V447,VV[56],list(3,VV[195],(V445),list(3,VV[144],(V445),(V446)))); |
3142 |
VMR44(V439)} |
VMR44(V448)} |
3143 |
return Cnil; |
return Cnil; |
3144 |
} |
} |
3145 |
/* local entry for function LOGXOR-SLOOP-COLLECT */ |
/* local entry for function LOGXOR-SLOOP-COLLECT */ |
3146 |
|
|
3147 |
static object LI45(V442,V443) |
static object LI45(V451,V452) |
3148 |
|
|
3149 |
register object V442;object V443; |
register object V451;object V452; |
3150 |
{ VMB45 VMS45 VMV45 |
{ VMB45 VMS45 VMV45 |
3151 |
goto TTL; |
goto TTL; |
3152 |
TTL:; |
TTL:; |
3153 |
V444= list(3,VV[15],(V442),small_fixnum(0)); |
V453= list(3,VV[15],(V451),small_fixnum(0)); |
3154 |
V445= list(3,VV[15],(V442),list(3,VV[196],(V442),(V443))); |
V454= list(3,VV[15],(V451),list(3,VV[196],(V451),(V452))); |
3155 |
{object V446 = list(6,VV[97],/* INLINE-ARGS */V444,VV[56],/* INLINE-ARGS */V445,VV[77],list(3,VV[167],(V442),(V443))); |
{object V455 = list(6,VV[97],/* INLINE-ARGS */V453,VV[56],/* INLINE-ARGS */V454,VV[77],list(3,VV[167],(V451),(V452))); |
3156 |
VMR45(V446)} |
VMR45(V455)} |
3157 |
return Cnil; |
return Cnil; |
3158 |
} |
} |
3159 |
/* local entry for function MAXIMIZE-SLOOP-COLLECT */ |
/* local entry for function MAXIMIZE-SLOOP-COLLECT */ |
3160 |
|
|
3161 |
static object LI46(V449,V450) |
static object LI46(V458,V459) |
3162 |
|
|
3163 |
register object V449;object V450; |
register object V458;object V459; |
3164 |
{ VMB46 VMS46 VMV46 |
{ VMB46 VMS46 VMV46 |
3165 |
goto TTL; |
goto TTL; |
3166 |
TTL:; |
TTL:; |
3167 |
V451= list(3,VV[195],(V449),Cnil); |
V460= list(3,VV[195],(V458),Cnil); |
3168 |
V452= list(3,VV[15],(V449),list(3,VV[198],(V449),(V450))); |
V461= list(3,VV[15],(V458),list(3,VV[198],(V458),(V459))); |
3169 |
{object V453 = list(4,VV[97],/* INLINE-ARGS */V451,VV[56],list(4,VV[197],(V449),/* INLINE-ARGS */V452,list(3,VV[15],(V449),(V450)))); |
{object V462 = list(4,VV[97],/* INLINE-ARGS */V460,VV[56],list(4,VV[197],(V458),/* INLINE-ARGS */V461,list(3,VV[15],(V458),(V459)))); |
3170 |
VMR46(V453)} |
VMR46(V462)} |
3171 |
return Cnil; |
return Cnil; |
3172 |
} |
} |
3173 |
/* local entry for function MINIMIZE-SLOOP-COLLECT */ |
/* local entry for function MINIMIZE-SLOOP-COLLECT */ |
3174 |
|
|
3175 |
static object LI47(V456,V457) |
static object LI47(V465,V466) |
3176 |
|
|
3177 |
register object V456;object V457; |
register object V465;object V466; |
3178 |
{ VMB47 VMS47 VMV47 |
{ VMB47 VMS47 VMV47 |
3179 |
goto TTL; |
goto TTL; |
3180 |
TTL:; |
TTL:; |
3181 |
V458= list(3,VV[195],(V456),Cnil); |
V467= list(3,VV[195],(V465),Cnil); |
3182 |
V459= list(3,VV[15],(V456),list(3,VV[199],(V456),(V457))); |
V468= list(3,VV[15],(V465),list(3,VV[199],(V465),(V466))); |
3183 |
{object V460 = list(4,VV[97],/* INLINE-ARGS */V458,VV[56],list(4,VV[197],(V456),/* INLINE-ARGS */V459,list(3,VV[15],(V456),(V457)))); |
{object V469 = list(4,VV[97],/* INLINE-ARGS */V467,VV[56],list(4,VV[197],(V465),/* INLINE-ARGS */V468,list(3,VV[15],(V465),(V466)))); |
3184 |
VMR47(V460)} |
VMR47(V469)} |
3185 |
return Cnil; |
return Cnil; |
3186 |
} |
} |
3187 |
/* local entry for function COUNT-SLOOP-COLLECT */ |
/* local entry for function COUNT-SLOOP-COLLECT */ |
3188 |
|
|
3189 |
static object LI48(V463,V464) |
static object LI48(V472,V473) |
3190 |
|
|
3191 |
object V463;object V464; |
object V472;object V473; |
3192 |
{ VMB48 VMS48 VMV48 |
{ VMB48 VMS48 VMV48 |
3193 |
goto TTL; |
goto TTL; |
3194 |
TTL:; |
TTL:; |
3195 |
V465= list(3,VV[195],(V463),small_fixnum(0)); |
V474= list(3,VV[195],(V472),small_fixnum(0)); |
3196 |
{object V466 = list(4,VV[97],/* INLINE-ARGS */V465,VV[56],list(3,VV[5],(V464),list(3,VV[15],(V463),list(2,VV[200],(V463))))); |
{object V475 = list(4,VV[97],/* INLINE-ARGS */V474,VV[56],list(3,VV[5],(V473),list(3,VV[15],(V472),list(2,VV[200],(V472))))); |
3197 |
VMR48(V466)} |
VMR48(V475)} |
3198 |
return Cnil; |
return Cnil; |
3199 |
} |
} |
3200 |
/* local entry for function THEREIS-SLOOP-COLLECT */ |
/* local entry for function THEREIS-SLOOP-COLLECT */ |
3201 |
|
|
3202 |
static object LI49(V469,V470) |
static object LI49(V478,V479) |
3203 |
|
|
3204 |
object V469;object V470; |
object V478;object V479; |
3205 |
{ VMB49 VMS49 VMV49 |
{ VMB49 VMS49 VMV49 |
3206 |
goto TTL; |
goto TTL; |
3207 |
TTL:; |
TTL:; |
3208 |
{object V471 = list(2,VV[56],list(3,VV[197],(V470),list(2,VV[59],(V470)))); |
{object V480 = list(2,VV[56],list(3,VV[197],(V479),list(2,VV[59],(V479)))); |
3209 |
VMR49(V471)} |
VMR49(V480)} |
3210 |
return Cnil; |
return Cnil; |
3211 |
} |
} |
3212 |
/* local entry for function ALWAYS-SLOOP-COLLECT */ |
/* local entry for function ALWAYS-SLOOP-COLLECT */ |
3213 |
|
|
3214 |
static object LI50(V474,V475) |
static object LI50(V483,V484) |
3215 |
|
|
3216 |
object V474;object V475; |
object V483;object V484; |
3217 |
{ VMB50 VMS50 VMV50 |
{ VMB50 VMS50 VMV50 |
3218 |
goto TTL; |
goto TTL; |
3219 |
TTL:; |
TTL:; |
3220 |
V476= list(3,VV[195],(V474),Ct); |
V485= list(3,VV[195],(V483),Ct); |
3221 |
{object V477 = list(4,VV[97],/* INLINE-ARGS */V476,VV[56],list(3,VV[5],list(2,VV[140],(V475)),VV[201])); |
{object V486 = list(4,VV[97],/* INLINE-ARGS */V485,VV[56],list(3,VV[5],list(2,VV[140],(V484)),VV[201])); |
3222 |
VMR50(V477)} |
VMR50(V486)} |
3223 |
return Cnil; |
return Cnil; |
3224 |
} |
} |
3225 |
/* local entry for function NEVER-SLOOP-COLLECT */ |
/* local entry for function NEVER-SLOOP-COLLECT */ |
3226 |
|
|
3227 |
static object LI51(V480,V481) |
static object LI51(V489,V490) |
3228 |
|
|
3229 |
object V480;object V481; |
object V489;object V490; |
3230 |
{ VMB51 VMS51 VMV51 |
{ VMB51 VMS51 VMV51 |
3231 |
goto TTL; |
goto TTL; |
3232 |
TTL:; |
TTL:; |
3233 |
V482= list(3,VV[195],(V480),Ct); |
V491= list(3,VV[195],(V489),Ct); |
3234 |
{object V483 = list(4,VV[97],/* INLINE-ARGS */V482,VV[56],list(3,VV[5],(V481),VV[202])); |
{object V492 = list(4,VV[97],/* INLINE-ARGS */V491,VV[56],list(3,VV[5],(V490),VV[202])); |
3235 |
VMR51(V483)} |
VMR51(V492)} |
3236 |
return Cnil; |
return Cnil; |
3237 |
} |
} |
3238 |
/* local entry for function AVERAGING-SLOOP-MACRO */ |
/* local entry for function AVERAGING-SLOOP-MACRO */ |
3239 |
|
|
3240 |
static object LI52(V485) |
static object LI52(V494) |
3241 |
|
|
3242 |
object V485; |
object V494; |
3243 |
{ VMB52 VMS52 VMV52 |
{ VMB52 VMS52 VMV52 |
3244 |
goto TTL; |
goto TTL; |
3245 |
TTL:; |
TTL:; |
3257 |
base[11]= VV[77]; |
base[11]= VV[77]; |
3258 |
base[12]= VV[207]; |
base[12]= VV[207]; |
3259 |
base[13]= VV[56]; |
base[13]= VV[56]; |
3260 |
base[14]= list(3,VV[15],VV[203],list(3,VV[208],list(3,VV[144],VV[209],(V485)),VV[210])); |
base[14]= list(3,VV[15],VV[203],list(3,VV[208],list(3,VV[144],VV[209],(V494)),VV[210])); |
3261 |
base[15]= VV[211]; |
base[15]= VV[211]; |
3262 |
vs_top=(vs_base=base+0)+16; |
vs_top=(vs_base=base+0)+16; |
3263 |
LlistA(); |
LlistA(); |
3264 |
vs_top=sup; |
vs_top=sup; |
3265 |
{object V486 = vs_base[0]; |
{object V495 = vs_base[0]; |
3266 |
VMR52(V486)} |
VMR52(V495)} |
3267 |
base[0]=base[0]; |
base[0]=base[0]; |
3268 |
return Cnil; |
return Cnil; |
3269 |
} |
} |
3270 |
/* local entry for function REPEAT-SLOOP-MACRO */ |
/* local entry for function REPEAT-SLOOP-MACRO */ |
3271 |
|
|
3272 |
static object LI53(V488) |
static object LI53(V497) |
3273 |
|
|
3274 |
object V488; |
object V497; |
3275 |
{ VMB53 VMS53 VMV53 |
{ VMB53 VMS53 VMV53 |
3276 |
goto TTL; |
goto TTL; |
3277 |
TTL:; |
TTL:; |
3278 |
{object V489; |
{object V498; |
3279 |
vs_base=vs_top; |
vs_base=vs_top; |
3280 |
Lgensym(); |
Lgensym(); |
3281 |
vs_top=sup; |
vs_top=sup; |
3282 |
V489= vs_base[0]; |
V498= vs_base[0]; |
3283 |
{object V490 = list(4,VV[25],(V489),VV[157],(V488)); |
{object V499 = list(4,VV[25],(V498),VV[157],(V497)); |
3284 |
VMR53(V490)}} |
VMR53(V499)}} |
3285 |
base[0]=base[0]; |
base[0]=base[0]; |
3286 |
return Cnil; |
return Cnil; |
3287 |
} |
} |
3288 |
/* local entry for function RETURN-SLOOP-MACRO */ |
/* local entry for function RETURN-SLOOP-MACRO */ |
3289 |
|
|
3290 |
static object LI54(V492) |
static object LI54(V501) |
3291 |
|
|
3292 |
register object V492; |
register object V501; |
3293 |
{ VMB54 VMS54 VMV54 |
{ VMB54 VMS54 VMV54 |
3294 |
goto TTL; |
goto TTL; |
3295 |
TTL:; |
TTL:; |
3296 |
if(!(type_of((V492))==t_cons)){ |
if(!(type_of((V501))==t_cons)){ |
3297 |
goto T1196;} |
goto T1196;} |
3298 |
if(!((car((V492)))==(VV[21]))){ |
if(!((CMPcar((V501)))==(VV[21]))){ |
3299 |
goto T1196;} |
goto T1196;} |
3300 |
V493= cdr((V492)); |
V502= CMPcdr((V501)); |
3301 |
goto T1194; |
goto T1194; |
3302 |
goto T1196; |
goto T1196; |
3303 |
T1196:; |
T1196:; |
3304 |
V493= make_cons((V492),Cnil); |
V502= make_cons((V501),Cnil); |
3305 |
goto T1194; |
goto T1194; |
3306 |
T1194:; |
T1194:; |
3307 |
{object V494 = list(2,VV[56],make_cons(VV[59],V493)); |
{object V503 = list(2,VV[56],make_cons(VV[59],V502)); |
3308 |
VMR54(V494)} |
VMR54(V503)} |
3309 |
return Cnil; |
return Cnil; |
3310 |
} |
} |
3311 |
/* local entry for function IN-TABLE-SLOOP-MAP */ |
/* local entry for function IN-TABLE-SLOOP-MAP */ |
3312 |
|
|
3313 |
static object LI55(V497,V498) |
static object LI55(V506,V507) |
3314 |
|
|
3315 |
object V497;object V498; |
object V506;object V507; |
3316 |
{ VMB55 VMS55 VMV55 |
{ VMB55 VMS55 VMV55 |
3317 |
goto TTL; |
goto TTL; |
3318 |
TTL:; |
TTL:; |
3319 |
{object V499 = list(3,VV[212],list(2,VV[213],listA(3,VV[214],(V497),VV[215])),(V498)); |
{object V508 = list(3,VV[212],list(2,VV[213],listA(3,VV[214],(V506),VV[215])),(V507)); |
3320 |
VMR55(V499)} |
VMR55(V508)} |
3321 |
return Cnil; |
return Cnil; |
3322 |
} |
} |
3323 |
/* local entry for function IN-PACKAGE-SLOOP-MAP */ |
/* local entry for function IN-PACKAGE-SLOOP-MAP */ |
3324 |
|
|
3325 |
static object LI56(V502,V503) |
static object LI56(V511,V512) |
3326 |
|
|
3327 |
object V502;object V503; |
object V511;object V512; |
3328 |
{ VMB56 VMS56 VMV56 |
{ VMB56 VMS56 VMV56 |
3329 |
goto TTL; |
goto TTL; |
3330 |
TTL:; |
TTL:; |
3331 |
{object V504 = list(3,VV[216],list(2,(V502),list(2,VV[217],(V503))),VV[181]); |
{object V513 = list(3,VV[216],list(2,(V511),list(2,VV[217],(V512))),VV[181]); |
3332 |
VMR56(V504)} |
VMR56(V513)} |
3333 |
return Cnil; |
return Cnil; |
3334 |
} |
} |
3335 |
/* local entry for function IN-ARRAY-SLOOP-FOR */ |
/* local entry for function IN-ARRAY-SLOOP-FOR */ |
3336 |
|
|
3337 |
static object LI57(object V506,object V505,object first,...) |
static object LI57(object V515,object V514,object first,...) |
3338 |
{ |
{ |
3339 |
va_list ap; |
va_list ap; |
3340 |
int narg = VFUN_NARGS; VMB57 VMS57 VMV57 |
int narg = VFUN_NARGS; VMB57 VMS57 VMV57 |
3341 |
{object V507; |
{object V516; |
3342 |
object V508; |
object V517; |
3343 |
object V509; |
object V518; |
3344 |
va_start(ap,first); |
va_start(ap,first); |
3345 |
if(narg <2) too_few_arguments(); |
V516= V515; |
3346 |
V507= V506; |
V517= V514; |
|
V508= V505; |
|
3347 |
narg= narg - 2; |
narg= narg - 2; |
3348 |
V510 = list_vector_new(narg,first,ap); |
V519 = list_vector_new(narg,first,ap); |
3349 |
V509= V510; |
V518= V519; |
3350 |
{object V511; |
{object V520; |
3351 |
object V512; |
object V521; |
3352 |
object V513; |
object V522; |
3353 |
V511= Cnil; |
V520= Cnil; |
3354 |
V512= Cnil; |
V521= Cnil; |
3355 |
V513= Cnil; |
V522= Cnil; |
3356 |
if(!(type_of((V507))==t_cons||((V507))==Cnil)){ |
if(!(type_of((V516))==t_cons||((V516))==Cnil)){ |
3357 |
goto T1202;} |
goto T1202;} |
3358 |
V511= car((V507)); |
V520= CMPcar((V516)); |
3359 |
V512= cadr((V507)); |
V521= CMPcadr((V516)); |
3360 |
goto T1200; |
goto T1200; |
3361 |
goto T1202; |
goto T1202; |
3362 |
T1202:; |
T1202:; |
3363 |
V511= (V507); |
V520= (V516); |
3364 |
base[0]= VV[218]; |
base[0]= VV[218]; |
3365 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3366 |
Lgensym(); |
Lgensym(); |
3367 |
vs_top=sup; |
vs_top=sup; |
3368 |
V512= vs_base[0]; |
V521= vs_base[0]; |
3369 |
goto T1200; |
goto T1200; |
3370 |
T1200:; |
T1200:; |
3371 |
{object V514; |
{object V523; |
3372 |
{register object V515; |
{register object V524; |
3373 |
register object V516; |
register object V525; |
3374 |
V515= (V509); |
V524= (V518); |
3375 |
V516= Cnil; |
V525= Cnil; |
3376 |
goto T1213; |
goto T1213; |
3377 |
T1213:; |
T1213:; |
3378 |
{register object V517; |
{register object V526; |
3379 |
V517= (*(LnkLI13))(car((V515))); |
V526= (*(LnkLI13))(CMPcar((V524))); |
3380 |
{register object V518; |
{register object V527; |
3381 |
V518= (*(LnkLI10))((V517),VV[219]); |
V527= (*(LnkLI10))((V526),VV[219]); |
3382 |
if(((V518))==Cnil){ |
if(((V527))==Cnil){ |
3383 |
goto T1220;} |
goto T1220;} |
3384 |
goto T1216; |
goto T1216; |
3385 |
goto T1220; |
goto T1220; |
3386 |
T1220:; |
T1220:; |
3387 |
if(((*(LnkLI10))((V517),VV[220]))==Cnil){ |
if(((*(LnkLI10))((V526),VV[220]))==Cnil){ |
3388 |
goto T1223;} |
goto T1223;} |
3389 |
V513= Ct; |
V522= Ct; |
3390 |
goto T1216; |
goto T1216; |
3391 |
goto T1223; |
goto T1223; |
3392 |
T1223:; |
T1223:; |
3393 |
{register object V519; |
{register object V528; |
3394 |
V519= (*(LnkLI10))((V517),VV[147]); |
V528= (*(LnkLI10))((V526),VV[147]); |
3395 |
if(((V519))==Cnil){ |
if(((V528))==Cnil){ |
3396 |
goto T1228;} |
goto T1228;} |
3397 |
goto T1216; |
goto T1216; |
3398 |
goto T1228; |
goto T1228; |
3399 |
T1228:; |
T1228:; |
3400 |
base[0]= (V515); |
base[0]= (V524); |
3401 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3402 |
Lcopy_list(); |
Lcopy_list(); |
3403 |
vs_top=sup; |
vs_top=sup; |
3404 |
V509= vs_base[0]; |
V518= vs_base[0]; |
3405 |
V514= nreverse((V516)); |
V523= nreverse((V525)); |
3406 |
goto T1211;}}} |
goto T1211;}}} |
3407 |
goto T1216; |
goto T1216; |
3408 |
T1216:; |
T1216:; |
3409 |
{register object V520; |
{register object V529; |
3410 |
V520= car((V515)); |
V529= CMPcar((V524)); |
3411 |
V516= make_cons((V520),(V516));} |
V525= make_cons((V529),(V525));} |
3412 |
{register object V521; |
{register object V530; |
3413 |
V521= cadr((V515)); |
V530= CMPcadr((V524)); |
3414 |
V516= make_cons((V521),(V516));} |
V525= make_cons((V530),(V525));} |
3415 |
V515= cddr((V515)); |
V524= CMPcddr((V524)); |
3416 |
goto T1213;} |
goto T1213;} |
3417 |
goto T1211; |
goto T1211; |
3418 |
T1211:; |
T1211:; |
3419 |
if((V513)!=Cnil){ |
if((V522)!=Cnil){ |
3420 |
goto T1242;} |
goto T1242;} |
3421 |
V522= list(2,VV[157],list(2,VV[221],(V508))); |
V531= list(2,VV[157],list(2,VV[221],(V517))); |
3422 |
V514= nconc(/* INLINE-ARGS */V522,(V514)); |
V523= nconc(/* INLINE-ARGS */V531,(V523)); |
3423 |
goto T1242; |
goto T1242; |
3424 |
T1242:; |
T1242:; |
3425 |
V523= listA(5,VV[87],(V511),VV[56],list(3,VV[15],(V511),list(3,VV[222],(V508),(V512))),(V509)); |
V532= listA(5,VV[87],(V520),VV[56],list(3,VV[15],(V520),list(3,VV[222],(V517),(V521))),(V518)); |
3426 |
{object V524 = listA(3,VV[25],(V512),append((V514),/* INLINE-ARGS */V523)); |
{object V533 = listA(3,VV[25],(V521),append((V523),/* INLINE-ARGS */V532)); |
3427 |
VMR57(V524)}}} |
VMR57(V533)}}} |
3428 |
va_end(ap); |
va_end(ap); |
3429 |
base[0]=base[0]; |
base[0]=base[0]; |
3430 |
return Cnil;} |
return Cnil;} |
3431 |
} |
} |
3432 |
/* local entry for function =-SLOOP-FOR */ |
/* local entry for function =-SLOOP-FOR */ |
3433 |
|
|
3434 |
static object LI58(V527,V528) |
static object LI58(V536,V537) |
3435 |
|
|
3436 |
register object V527;object V528; |
register object V536;object V537; |
3437 |
{ VMB58 VMS58 VMV58 |
{ VMB58 VMS58 VMV58 |
3438 |
goto TTL; |
goto TTL; |
3439 |
TTL:; |
TTL:; |
3440 |
{object V529; |
{object V538; |
3441 |
V530= (*(LnkLI254))(); |
V539= (*(LnkLI254))(); |
3442 |
V529= (*(LnkLI13))(/* INLINE-ARGS */V530); |
V538= (*(LnkLI13))(/* INLINE-ARGS */V539); |
3443 |
if(((*(LnkLI10))((V529),VV[223]))==Cnil){ |
if(((*(LnkLI10))((V538),VV[223]))==Cnil){ |
3444 |
goto T1246;} |
goto T1246;} |
3445 |
(void)((*(LnkLI255))()); |
(void)((*(LnkLI255))()); |
3446 |
V531= list(3,VV[139],(V527),(V528)); |
V540= list(3,VV[139],(V536),(V537)); |
3447 |
{object V532 = list(6,VV[87],(V527),VV[97],/* INLINE-ARGS */V531,VV[89],list(3,VV[139],(V527),(*(LnkLI255))())); |
{object V541 = list(6,VV[87],(V536),VV[97],/* INLINE-ARGS */V540,VV[89],list(3,VV[139],(V536),(*(LnkLI255))())); |
3448 |
VMR58(V532)} |
VMR58(V541)} |
3449 |
goto T1246; |
goto T1246; |
3450 |
T1246:; |
T1246:; |
3451 |
{object V533 = list(4,VV[87],(V527),VV[56],list(3,VV[139],(V527),(V528))); |
{object V542 = list(4,VV[87],(V536),VV[56],list(3,VV[139],(V536),(V537))); |
3452 |
VMR58(V533)}} |
VMR58(V542)}} |
3453 |
return Cnil; |
return Cnil; |
3454 |
} |
} |
3455 |
/* local entry for function SLOOP-SLOOP-MACRO */ |
/* local entry for function SLOOP-SLOOP-MACRO */ |
3456 |
|
|
3457 |
static object LI59(V535) |
static object LI59(V544) |
3458 |
|
|
3459 |
VOL object V535; |
VOL object V544; |
3460 |
{ VMB59 VMS59 VMV59 |
{ VMB59 VMS59 VMV59 |
3461 |
bds_check; |
bds_check; |
3462 |
goto TTL; |
goto TTL; |
3463 |
TTL:; |
TTL:; |
3464 |
{object V536; |
{object V545; |
3465 |
V536= (*(LnkLI13))(car((V535))); |
V545= (*(LnkLI13))(CMPcar((V544))); |
3466 |
{object V537; |
{object V546; |
3467 |
V537= (*(LnkLI10))((V536),VV[25]); |
V546= (*(LnkLI10))((V545),VV[25]); |
3468 |
if(((V537))==Cnil){ |
if(((V546))==Cnil){ |
3469 |
goto T1253;} |
goto T1253;} |
3470 |
goto T1249; |
goto T1249; |
3471 |
goto T1253; |
goto T1253; |
3472 |
T1253:; |
T1253:; |
3473 |
base[0]= VV[85]; |
base[0]= VV[85]; |
3474 |
base[1]= (V536); |
base[1]= (V545); |
3475 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3476 |
Lerror(); |
Lerror(); |
3477 |
vs_top=sup;}} |
vs_top=sup;}} |
3478 |
goto T1249; |
goto T1249; |
3479 |
T1249:; |
T1249:; |
3480 |
{VOL object V538; |
{VOL object V547; |
3481 |
VOL object V539; |
VOL object V548; |
3482 |
VOL object V540; |
VOL object V549; |
3483 |
VOL object V541; |
VOL object V550; |
3484 |
VOL object V542; |
VOL object V551; |
3485 |
VOL object V543; |
VOL object V552; |
3486 |
VOL object V544; |
VOL object V553; |
3487 |
base[4]= VV[224]; |
base[4]= VV[224]; |
3488 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3489 |
Lgensym(); |
Lgensym(); |
3490 |
vs_top=sup; |
vs_top=sup; |
3491 |
V539= vs_base[0]; |
V548= vs_base[0]; |
3492 |
bds_bind(VV[50],Cnil); |
bds_bind(VV[50],Cnil); |
3493 |
bds_bind(VV[49],Cnil); |
bds_bind(VV[49],Cnil); |
3494 |
bds_bind(VV[53],Cnil); |
bds_bind(VV[53],Cnil); |
3495 |
V538= Cnil; |
V547= Cnil; |
3496 |
V540= Cnil; |
V549= Cnil; |
3497 |
V541= Cnil; |
V550= Cnil; |
3498 |
V542= Cnil; |
V551= Cnil; |
3499 |
V543= Cnil; |
V552= Cnil; |
3500 |
V544= Cnil; |
V553= Cnil; |
3501 |
bds_bind(VV[34],(V535)); |
bds_bind(VV[34],(V544)); |
3502 |
setq(VV[40],Ct); |
(VV[40]->s.s_dbind)= Ct; |
3503 |
(void)((*(LnkLI255))()); |
(void)((*(LnkLI255))()); |
3504 |
{object V545; |
{object V554; |
3505 |
object V546; |
object V555; |
3506 |
V545= symbol_value(VV[46]); |
V554= (VV[46]->s.s_dbind); |
3507 |
V546= (V540); |
V555= (V549); |
3508 |
V540= (V545); |
V549= (V554); |
3509 |
setq(VV[46],(V546));} |
(VV[46]->s.s_dbind)= (V555);} |
3510 |
{object V547; |
{object V556; |
3511 |
object V548; |
object V557; |
3512 |
V547= symbol_value(VV[48]); |
V556= (VV[48]->s.s_dbind); |
3513 |
V548= (V541); |
V557= (V550); |
3514 |
V541= (V547); |
V550= (V556); |
3515 |
setq(VV[48],(V548));} |
(VV[48]->s.s_dbind)= (V557);} |
3516 |
{object V549; |
{object V558; |
3517 |
object V550; |
object V559; |
3518 |
V549= symbol_value(VV[43]); |
V558= (VV[43]->s.s_dbind); |
3519 |
V550= (V542); |
V559= (V551); |
3520 |
V542= (V549); |
V551= (V558); |
3521 |
setq(VV[43],(V550));} |
(VV[43]->s.s_dbind)= (V559);} |
3522 |
{object V551; |
{object V560; |
3523 |
object V552; |
object V561; |
3524 |
V551= symbol_value(VV[41]); |
V560= (VV[41]->s.s_dbind); |
3525 |
V552= (V543); |
V561= (V552); |
3526 |
V543= (V551); |
V552= (V560); |
3527 |
setq(VV[41],(V552));} |
(VV[41]->s.s_dbind)= (V561);} |
3528 |
{object V553; |
{object V562; |
3529 |
object V554; |
object V563; |
3530 |
V553= symbol_value(VV[42]); |
V562= (VV[42]->s.s_dbind); |
3531 |
V554= (V544); |
V563= (V553); |
3532 |
V544= (V553); |
V553= (V562); |
3533 |
setq(VV[42],(V554));} |
(VV[42]->s.s_dbind)= (V563);} |
3534 |
(VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil); |
(VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil); |
3535 |
(void)((*(LnkLI257))()); |
(void)((*(LnkLI257))()); |
3536 |
{object V555; |
{object V564; |
3537 |
object V556; |
object V565; |
3538 |
V555= symbol_value(VV[46]); |
V564= (VV[46]->s.s_dbind); |
3539 |
V556= (V540); |
V565= (V549); |
3540 |
V540= (V555); |
V549= (V564); |
3541 |
setq(VV[46],(V556));} |
(VV[46]->s.s_dbind)= (V565);} |
3542 |
{object V557; |
{object V566; |
3543 |
object V558; |
object V567; |
3544 |
V557= symbol_value(VV[48]); |
V566= (VV[48]->s.s_dbind); |
3545 |
V558= (V541); |
V567= (V550); |
3546 |
V541= (V557); |
V550= (V566); |
3547 |
setq(VV[48],(V558));} |
(VV[48]->s.s_dbind)= (V567);} |
3548 |
{object V559; |
{object V568; |
3549 |
object V560; |
object V569; |
3550 |
V559= symbol_value(VV[43]); |
V568= (VV[43]->s.s_dbind); |
3551 |
V560= (V542); |
V569= (V551); |
3552 |
V542= (V559); |
V551= (V568); |
3553 |
setq(VV[43],(V560));} |
(VV[43]->s.s_dbind)= (V569);} |
3554 |
{object V561; |
{object V570; |
3555 |
object V562; |
object V571; |
3556 |
V561= symbol_value(VV[41]); |
V570= (VV[41]->s.s_dbind); |
3557 |
V562= (V543); |
V571= (V552); |
3558 |
V543= (V561); |
V552= (V570); |
3559 |
setq(VV[41],(V562));} |
(VV[41]->s.s_dbind)= (V571);} |
3560 |
{object V563; |
{object V572; |
3561 |
object V564; |
object V573; |
3562 |
V563= symbol_value(VV[42]); |
V572= (VV[42]->s.s_dbind); |
3563 |
V564= (V544); |
V573= (V553); |
3564 |
V544= (V563); |
V553= (V572); |
3565 |
setq(VV[42],(V564));} |
(VV[42]->s.s_dbind)= (V573);} |
3566 |
(VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil); |
(VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil); |
3567 |
goto T1339; |
goto T1339; |
3568 |
T1339:; |
T1339:; |
3571 |
goto T1337; |
goto T1337; |
3572 |
goto T1340; |
goto T1340; |
3573 |
T1340:; |
T1340:; |
3574 |
{VOL object V565; |
{VOL object V574; |
3575 |
frs_push(FRS_CATCH,VV[27]); |
frs_push(FRS_CATCH,VV[27]); |
3576 |
if(nlj_active) |
if(nlj_active) |
3577 |
{nlj_active=FALSE;frs_pop(); |
{nlj_active=FALSE;frs_pop(); |
3578 |
vs_top=sup; |
vs_top=sup; |
3579 |
V565= vs_base[0]; |
V574= vs_base[0]; |
3580 |
goto T1345;} |
goto T1345;} |
3581 |
else{ |
else{ |
3582 |
V566= (*(LnkLI251))(); |
V575= (*(LnkLI251))(); |
3583 |
frs_pop(); |
frs_pop(); |
3584 |
V565= V566;} |
V574= V575;} |
3585 |
goto T1345; |
goto T1345; |
3586 |
T1345:; |
T1345:; |
3587 |
if(((V565))==Cnil){ |
if(((V574))==Cnil){ |
3588 |
goto T1348;} |
goto T1348;} |
3589 |
goto T1344; |
goto T1344; |
3590 |
goto T1348; |
goto T1348; |
3595 |
goto T1351; |
goto T1351; |
3596 |
T1351:; |
T1351:; |
3597 |
(void)(print((VV[34]->s.s_dbind),Cnil)); |
(void)(print((VV[34]->s.s_dbind),Cnil)); |
3598 |
{object V567; |
{object V576; |
3599 |
object V568; |
object V577; |
3600 |
V567= symbol_value(VV[46]); |
V576= (VV[46]->s.s_dbind); |
3601 |
V568= (V540); |
V577= (V549); |
3602 |
V540= (V567); |
V549= (V576); |
3603 |
setq(VV[46],(V568));} |
(VV[46]->s.s_dbind)= (V577);} |
3604 |
{object V569; |
{object V578; |
3605 |
object V570; |
object V579; |
3606 |
V569= symbol_value(VV[48]); |
V578= (VV[48]->s.s_dbind); |
3607 |
V570= (V541); |
V579= (V550); |
3608 |
V541= (V569); |
V550= (V578); |
3609 |
setq(VV[48],(V570));} |
(VV[48]->s.s_dbind)= (V579);} |
3610 |
{object V571; |
{object V580; |
3611 |
object V572; |
object V581; |
3612 |
V571= symbol_value(VV[43]); |
V580= (VV[43]->s.s_dbind); |
3613 |
V572= (V542); |
V581= (V551); |
3614 |
V542= (V571); |
V551= (V580); |
3615 |
setq(VV[43],(V572));} |
(VV[43]->s.s_dbind)= (V581);} |
3616 |
{object V573; |
{object V582; |
3617 |
object V574; |
object V583; |
3618 |
V573= symbol_value(VV[41]); |
V582= (VV[41]->s.s_dbind); |
3619 |
V574= (V543); |
V583= (V552); |
3620 |
V543= (V573); |
V552= (V582); |
3621 |
setq(VV[41],(V574));} |
(VV[41]->s.s_dbind)= (V583);} |
3622 |
{object V575; |
{object V584; |
3623 |
object V576; |
object V585; |
3624 |
V575= symbol_value(VV[42]); |
V584= (VV[42]->s.s_dbind); |
3625 |
V576= (V544); |
V585= (V553); |
3626 |
V544= (V575); |
V553= (V584); |
3627 |
setq(VV[42],(V576));} |
(VV[42]->s.s_dbind)= (V585);} |
3628 |
(VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil); |
(VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil); |
3629 |
(void)((*(LnkLI261))()); |
(void)((*(LnkLI261))()); |
3630 |
{object V577; |
{object V586; |
3631 |
object V578; |
object V587; |
3632 |
V577= symbol_value(VV[46]); |
V586= (VV[46]->s.s_dbind); |
3633 |
V578= (V540); |
V587= (V549); |
3634 |
V540= (V577); |
V549= (V586); |
3635 |
setq(VV[46],(V578));} |
(VV[46]->s.s_dbind)= (V587);} |
3636 |
{object V579; |
{object V588; |
3637 |
object V580; |
object V589; |
3638 |
V579= symbol_value(VV[48]); |
V588= (VV[48]->s.s_dbind); |
3639 |
V580= (V541); |
V589= (V550); |
3640 |
V541= (V579); |
V550= (V588); |
3641 |
setq(VV[48],(V580));} |
(VV[48]->s.s_dbind)= (V589);} |
3642 |
{object V581; |
{object V590; |
3643 |
object V582; |
object V591; |
3644 |
V581= symbol_value(VV[43]); |
V590= (VV[43]->s.s_dbind); |
3645 |
V582= (V542); |
V591= (V551); |
3646 |
V542= (V581); |
V551= (V590); |
3647 |
setq(VV[43],(V582));} |
(VV[43]->s.s_dbind)= (V591);} |
3648 |
{object V583; |
{object V592; |
3649 |
object V584; |
object V593; |
3650 |
V583= symbol_value(VV[41]); |
V592= (VV[41]->s.s_dbind); |
3651 |
V584= (V543); |
V593= (V552); |
3652 |
V543= (V583); |
V552= (V592); |
3653 |
setq(VV[41],(V584));} |
(VV[41]->s.s_dbind)= (V593);} |
3654 |
{object V585; |
{object V594; |
3655 |
object V586; |
object V595; |
3656 |
V585= symbol_value(VV[42]); |
V594= (VV[42]->s.s_dbind); |
3657 |
V586= (V544); |
V595= (V553); |
3658 |
V544= (V585); |
V553= (V594); |
3659 |
setq(VV[42],(V586));} |
(VV[42]->s.s_dbind)= (V595);} |
3660 |
(VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil); |
(VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil); |
3661 |
(void)(print((VV[34]->s.s_dbind),Cnil));} |
(void)(print((VV[34]->s.s_dbind),Cnil));} |
3662 |
goto T1344; |
goto T1344; |
3664 |
goto T1339; |
goto T1339; |
3665 |
goto T1337; |
goto T1337; |
3666 |
T1337:; |
T1337:; |
3667 |
{object V587; |
{object V596; |
3668 |
object V588; |
object V597; |
3669 |
V587= symbol_value(VV[46]); |
V596= (VV[46]->s.s_dbind); |
3670 |
V588= (V540); |
V597= (V549); |
3671 |
V540= (V587); |
V549= (V596); |
3672 |
setq(VV[46],(V588));} |
(VV[46]->s.s_dbind)= (V597);} |
3673 |
{object V589; |
{object V598; |
3674 |
object V590; |
object V599; |
3675 |
V589= symbol_value(VV[48]); |
V598= (VV[48]->s.s_dbind); |
3676 |
V590= (V541); |
V599= (V550); |
3677 |
V541= (V589); |
V550= (V598); |
3678 |
setq(VV[48],(V590));} |
(VV[48]->s.s_dbind)= (V599);} |
3679 |
{object V591; |
{object V600; |
3680 |
object V592; |
object V601; |
3681 |
V591= symbol_value(VV[43]); |
V600= (VV[43]->s.s_dbind); |
3682 |
V592= (V542); |
V601= (V551); |
3683 |
V542= (V591); |
V551= (V600); |
3684 |
setq(VV[43],(V592));} |
(VV[43]->s.s_dbind)= (V601);} |
3685 |
{object V593; |
{object V602; |
3686 |
object V594; |
object V603; |
3687 |
V593= symbol_value(VV[41]); |
V602= (VV[41]->s.s_dbind); |
3688 |
V594= (V543); |
V603= (V552); |
3689 |
V543= (V593); |
V552= (V602); |
3690 |
setq(VV[41],(V594));} |
(VV[41]->s.s_dbind)= (V603);} |
3691 |
{object V595; |
{object V604; |
3692 |
object V596; |
object V605; |
3693 |
V595= symbol_value(VV[42]); |
V604= (VV[42]->s.s_dbind); |
3694 |
V596= (V544); |
V605= (V553); |
3695 |
V544= (V595); |
V553= (V604); |
3696 |
setq(VV[42],(V596));} |
(VV[42]->s.s_dbind)= (V605);} |
3697 |
(VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil); |
(VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil); |
3698 |
V538= nreverse((VV[49]->s.s_dbind)); |
V547= nreverse((VV[49]->s.s_dbind)); |
3699 |
if((VV[53]->s.s_dbind)==Cnil){ |
if((VV[53]->s.s_dbind)==Cnil){ |
3700 |
goto T1470;} |
goto T1470;} |
3701 |
V538= (*(LnkLI252))((V538)); |
V547= (*(LnkLI252))((V547)); |
3702 |
goto T1470; |
goto T1470; |
3703 |
T1470:; |
T1470:; |
3704 |
{object V597; |
{object V606; |
3705 |
V598= list(3,VV[66],Cnil,list(3,VV[61],VV[225],list(2,VV[9],(V539)))); |
V607= list(3,VV[66],Cnil,list(3,VV[61],VV[225],list(2,VV[9],(V548)))); |
3706 |
V599= make_cons(/* INLINE-ARGS */V598,Cnil); |
V608= make_cons(/* INLINE-ARGS */V607,Cnil); |
3707 |
base[4]= nreverse(symbol_value(VV[48])); |
base[4]= nreverse((VV[48]->s.s_dbind)); |
3708 |
if(((VV[53]->s.s_dbind))==Cnil){ |
if(((VV[53]->s.s_dbind))==Cnil){ |
3709 |
goto T1476;} |
goto T1476;} |
3710 |
base[5]= Cnil; |
base[5]= Cnil; |
3714 |
base[5]= VV[226]; |
base[5]= VV[226]; |
3715 |
goto T1475; |
goto T1475; |
3716 |
T1475:; |
T1475:; |
3717 |
base[6]= nreverse(symbol_value(VV[41])); |
base[6]= nreverse((VV[41]->s.s_dbind)); |
3718 |
base[7]= (V538); |
base[7]= (V547); |
3719 |
base[8]= nreverse(symbol_value(VV[42])); |
base[8]= nreverse((VV[42]->s.s_dbind)); |
3720 |
if(((VV[53]->s.s_dbind))==Cnil){ |
if(((VV[53]->s.s_dbind))==Cnil){ |
3721 |
goto T1482;} |
goto T1482;} |
3722 |
base[9]= Cnil; |
base[9]= Cnil; |
3726 |
base[9]= VV[227]; |
base[9]= VV[227]; |
3727 |
goto T1481; |
goto T1481; |
3728 |
T1481:; |
T1481:; |
3729 |
V601= nreverse(symbol_value(VV[43])); |
V610= nreverse((VV[43]->s.s_dbind)); |
3730 |
base[10]= make_cons((V539),/* INLINE-ARGS */V601); |
base[10]= make_cons((V548),/* INLINE-ARGS */V610); |
3731 |
vs_top=(vs_base=base+4)+7; |
vs_top=(vs_base=base+4)+7; |
3732 |
Lappend(); |
Lappend(); |
3733 |
vs_top=sup; |
vs_top=sup; |
3734 |
V600= vs_base[0]; |
V609= vs_base[0]; |
3735 |
V597= list(3,VV[71],/* INLINE-ARGS */V599,make_cons(VV[73],V600)); |
V606= list(3,VV[71],/* INLINE-ARGS */V608,make_cons(VV[73],V609)); |
3736 |
{object V602; |
{object V611; |
3737 |
object V603; |
object V612; |
3738 |
V602= symbol_value(VV[46]); |
V611= (VV[46]->s.s_dbind); |
3739 |
V603= car((V602)); |
V612= CMPcar((V611)); |
3740 |
goto T1489; |
goto T1489; |
3741 |
T1489:; |
T1489:; |
3742 |
if(!(endp_prop((V602)))){ |
if(!(((V611))==Cnil)){ |
3743 |
goto T1490;} |
goto T1490;} |
3744 |
goto T1485; |
goto T1485; |
3745 |
goto T1490; |
goto T1490; |
3746 |
T1490:; |
T1490:; |
3747 |
V604= (*(LnkLI253))((V603)); |
V613= (*(LnkLI253))((V612)); |
3748 |
if((cdr((V603)))!=Cnil){ |
if((CMPcdr((V612)))!=Cnil){ |
3749 |
goto T1497;} |
goto T1497;} |
3750 |
V605= Cnil; |
V614= Cnil; |
3751 |
goto T1496; |
goto T1496; |
3752 |
goto T1497; |
goto T1497; |
3753 |
T1497:; |
T1497:; |
3754 |
V606= make_cons(VV[77],cdr((V603))); |
V615= make_cons(VV[77],CMPcdr((V612))); |
3755 |
V605= make_cons(/* INLINE-ARGS */V606,Cnil); |
V614= make_cons(/* INLINE-ARGS */V615,Cnil); |
3756 |
goto T1496; |
goto T1496; |
3757 |
T1496:; |
T1496:; |
3758 |
V607= make_cons((V597),Cnil); |
V616= make_cons((V606),Cnil); |
3759 |
V597= listA(3,VV[12],/* INLINE-ARGS */V604,append(V605,/* INLINE-ARGS */V607)); |
V606= listA(3,VV[12],/* INLINE-ARGS */V613,append(V614,/* INLINE-ARGS */V616)); |
3760 |
V602= cdr((V602)); |
V611= CMPcdr((V611)); |
3761 |
V603= car((V602)); |
V612= CMPcar((V611)); |
3762 |
goto T1489;} |
goto T1489;} |
3763 |
goto T1485; |
goto T1485; |
3764 |
T1485:; |
T1485:; |
3765 |
{object V608; |
{object V617; |
3766 |
object V609; |
object V618; |
3767 |
V608= symbol_value(VV[46]); |
V617= (VV[46]->s.s_dbind); |
3768 |
V609= (V540); |
V618= (V549); |
3769 |
V540= (V608); |
V549= (V617); |
3770 |
setq(VV[46],(V609));} |
(VV[46]->s.s_dbind)= (V618);} |
3771 |
{object V610; |
{object V619; |
3772 |
object V611; |
object V620; |
3773 |
V610= symbol_value(VV[48]); |
V619= (VV[48]->s.s_dbind); |
3774 |
V611= (V541); |
V620= (V550); |
3775 |
V541= (V610); |
V550= (V619); |
3776 |
setq(VV[48],(V611));} |
(VV[48]->s.s_dbind)= (V620);} |
3777 |
{object V612; |
{object V621; |
3778 |
object V613; |
object V622; |
3779 |
V612= symbol_value(VV[43]); |
V621= (VV[43]->s.s_dbind); |
3780 |
V613= (V542); |
V622= (V551); |
3781 |
V542= (V612); |
V551= (V621); |
3782 |
setq(VV[43],(V613));} |
(VV[43]->s.s_dbind)= (V622);} |
3783 |
{object V614; |
{object V623; |
3784 |
object V615; |
object V624; |
3785 |
V614= symbol_value(VV[41]); |
V623= (VV[41]->s.s_dbind); |
3786 |
V615= (V543); |
V624= (V552); |
3787 |
V543= (V614); |
V552= (V623); |
3788 |
setq(VV[41],(V615));} |
(VV[41]->s.s_dbind)= (V624);} |
3789 |
{object V616; |
{object V625; |
3790 |
object V617; |
object V626; |
3791 |
V616= symbol_value(VV[42]); |
V625= (VV[42]->s.s_dbind); |
3792 |
V617= (V544); |
V626= (V553); |
3793 |
V544= (V616); |
V553= (V625); |
3794 |
setq(VV[42],(V617));} |
(VV[42]->s.s_dbind)= (V626);} |
3795 |
(VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil); |
(VV[50]->s.s_dbind)= (((VV[50]->s.s_dbind))==Cnil?Ct:Cnil); |
3796 |
{object V618 = list(2,VV[56],(V597)); |
{object V627 = list(2,VV[56],(V606)); |
3797 |
bds_unwind1; |
bds_unwind1; |
3798 |
bds_unwind1; |
bds_unwind1; |
3799 |
bds_unwind1; |
bds_unwind1; |
3800 |
bds_unwind1; |
bds_unwind1; |
3801 |
VMR59(V618)}}} |
VMR59(V627)}}} |
3802 |
base[0]=base[0]; |
base[0]=base[0]; |
3803 |
return Cnil; |
return Cnil; |
3804 |
} |
} |
3805 |
/* local entry for function IN-CAREFULLY-SLOOP-FOR */ |
/* local entry for function IN-CAREFULLY-SLOOP-FOR */ |
3806 |
|
|
3807 |
static object LI60(V621,V622) |
static object LI60(V630,V631) |
3808 |
|
|
3809 |
object V621;object V622; |
object V630;object V631; |
3810 |
{ VMB60 VMS60 VMV60 |
{ VMB60 VMS60 VMV60 |
3811 |
goto TTL; |
goto TTL; |
3812 |
TTL:; |
TTL:; |
3813 |
{register object V623; |
{register object V632; |
3814 |
base[0]= VV[228]; |
base[0]= VV[228]; |
3815 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3816 |
Lgensym(); |
Lgensym(); |
3817 |
vs_top=sup; |
vs_top=sup; |
3818 |
V623= vs_base[0]; |
V632= vs_base[0]; |
3819 |
base[0]= VV[87]; |
base[0]= VV[87]; |
3820 |
base[1]= (V623); |
base[1]= (V632); |
3821 |
base[2]= VV[5]; |
base[2]= VV[5]; |
3822 |
base[3]= VV[87]; |
base[3]= VV[87]; |
3823 |
base[4]= (V621); |
base[4]= (V630); |
3824 |
base[5]= VV[97]; |
base[5]= VV[97]; |
3825 |
base[6]= list(3,VV[15],(V623),(V622)); |
base[6]= list(3,VV[15],(V632),(V631)); |
3826 |
base[7]= VV[56]; |
base[7]= VV[56]; |
3827 |
base[8]= list(3,VV[139],(V621),list(2,VV[17],(V623))); |
base[8]= list(3,VV[139],(V630),list(2,VV[17],(V632))); |
3828 |
base[9]= VV[90]; |
base[9]= VV[90]; |
3829 |
base[10]= list(3,VV[5],list(2,VV[229],(V623)),VV[230]); |
base[10]= list(3,VV[5],list(2,VV[229],(V632)),VV[230]); |
3830 |
base[11]= VV[89]; |
base[11]= VV[89]; |
3831 |
base[12]= list(3,VV[15],(V623),list(2,VV[18],(V623))); |
base[12]= list(3,VV[15],(V632),list(2,VV[18],(V632))); |
3832 |
vs_top=(vs_base=base+0)+13; |
vs_top=(vs_base=base+0)+13; |
3833 |
Llist(); |
Llist(); |
3834 |
vs_top=sup; |
vs_top=sup; |
3835 |
{object V624 = vs_base[0]; |
{object V633 = vs_base[0]; |
3836 |
VMR60(V624)}} |
VMR60(V633)}} |
3837 |
base[0]=base[0]; |
base[0]=base[0]; |
3838 |
return Cnil; |
return Cnil; |
3839 |
} |
} |
3840 |
/* local entry for function FIRST-USE-SLOOP-FOR */ |
/* local entry for function FIRST-USE-SLOOP-FOR */ |
3841 |
|
|
3842 |
static object LI61(V629,V630,V631,V632) |
static object LI61(V638,V639,V640,V641) |
3843 |
|
|
3844 |
object V629;object V630;object V631;object V632; |
object V638;object V639;object V640;object V641; |
3845 |
{ VMB61 VMS61 VMV61 |
{ VMB61 VMS61 VMV61 |
3846 |
goto TTL; |
goto TTL; |
3847 |
TTL:;{object V633; |
TTL:;{object V642; |
3848 |
V633= (*(LnkLI10))((V631),VV[223]); |
V642= (*(LnkLI10))((V640),VV[223]); |
3849 |
if(V633==Cnil)goto T1557; |
if(V642==Cnil)goto T1557; |
3850 |
goto T1556; |
goto T1556; |
3851 |
goto T1557; |
goto T1557; |
3852 |
T1557:;} |
T1557:;} |
3856 |
vs_top=sup; |
vs_top=sup; |
3857 |
goto T1556; |
goto T1556; |
3858 |
T1556:; |
T1556:; |
3859 |
V634= list(3,VV[139],(V629),(V630)); |
V643= list(3,VV[139],(V638),(V639)); |
3860 |
{object V635 = list(6,VV[87],(V629),VV[97],/* INLINE-ARGS */V634,VV[89],list(3,VV[139],(V629),(V632))); |
{object V644 = list(6,VV[87],(V638),VV[97],/* INLINE-ARGS */V643,VV[89],list(3,VV[139],(V638),(V641))); |
3861 |
VMR61(V635)} |
VMR61(V644)} |
3862 |
base[0]=base[0]; |
base[0]=base[0]; |
3863 |
return Cnil; |
return Cnil; |
3864 |
} |
} |
3865 |
/* local entry for function FIRST-SLOOP-FOR */ |
/* local entry for function FIRST-SLOOP-FOR */ |
3866 |
|
|
3867 |
static object LI62(V640,V641,V642,V643) |
static object LI62(V649,V650,V651,V652) |
3868 |
|
|
3869 |
register object V640;object V641;object V642;object V643; |
register object V649;object V650;object V651;object V652; |
3870 |
{ VMB62 VMS62 VMV62 |
{ VMB62 VMS62 VMV62 |
3871 |
goto TTL; |
goto TTL; |
3872 |
TTL:;{object V644; |
TTL:;{object V653; |
3873 |
V644= (*(LnkLI10))((V642),VV[223]); |
V653= (*(LnkLI10))((V651),VV[223]); |
3874 |
if(V644==Cnil)goto T1561; |
if(V653==Cnil)goto T1561; |
3875 |
goto T1560; |
goto T1560; |
3876 |
goto T1561; |
goto T1561; |
3877 |
T1561:;} |
T1561:;} |
3881 |
vs_top=sup; |
vs_top=sup; |
3882 |
goto T1560; |
goto T1560; |
3883 |
T1560:; |
T1560:; |
3884 |
if((symbol_value(VV[42]))!=Cnil){ |
if(((VV[42]->s.s_dbind))!=Cnil){ |
3885 |
goto T1565;} |
goto T1565;} |
3886 |
V645= list(3,VV[139],(V640),(V641)); |
V654= list(3,VV[139],(V649),(V650)); |
3887 |
{object V646 = list(6,VV[87],(V640),VV[97],/* INLINE-ARGS */V645,VV[89],list(3,VV[139],(V640),(V643))); |
{object V655 = list(6,VV[87],(V649),VV[97],/* INLINE-ARGS */V654,VV[89],list(3,VV[139],(V649),(V652))); |
3888 |
VMR62(V646)} |
VMR62(V655)} |
3889 |
goto T1565; |
goto T1565; |
3890 |
T1565:; |
T1565:; |
3891 |
{object V647; |
{object V656; |
3892 |
vs_base=vs_top; |
vs_base=vs_top; |
3893 |
Lgensym(); |
Lgensym(); |
3894 |
vs_top=sup; |
vs_top=sup; |
3895 |
V647= vs_base[0]; |
V656= vs_base[0]; |
3896 |
V648= list(2,(V647),list(3,VV[139],(V640),(V643))); |
V657= list(2,(V656),list(3,VV[139],(V649),(V652))); |
3897 |
V649= list(3,VV[14],/* INLINE-ARGS */V648,list(2,Ct,list(3,VV[139],(V640),(V641)))); |
V658= list(3,VV[14],/* INLINE-ARGS */V657,list(2,Ct,list(3,VV[139],(V649),(V650)))); |
3898 |
{object V650 = list(8,VV[87],(V640),VV[87],(V647),VV[56],/* INLINE-ARGS */V649,VV[89],list(3,VV[139],(V647),Ct)); |
{object V659 = list(8,VV[87],(V649),VV[87],(V656),VV[56],/* INLINE-ARGS */V658,VV[89],list(3,VV[139],(V656),Ct)); |
3899 |
VMR62(V650)}} |
VMR62(V659)}} |
3900 |
base[0]=base[0]; |
base[0]=base[0]; |
3901 |
return Cnil; |
return Cnil; |
3902 |
} |
} |
3905 |
static void L63() |
static void L63() |
3906 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3907 |
register object *sup=base+VM63; VC63 |
register object *sup=base+VM63; VC63 |
3908 |
vs_reserve(VM63); |
vs_check; |
3909 |
{register object V651; |
{register object V660; |
3910 |
object V652; |
object V661; |
3911 |
register object V653; |
register object V662; |
3912 |
if(vs_top-vs_base<2) too_few_arguments(); |
V660=(base[0]); |
3913 |
if(vs_top-vs_base>3) too_many_arguments(); |
V661=(base[1]); |
|
V651=(base[0]); |
|
|
V652=(base[1]); |
|
3914 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
3915 |
if(vs_base>=vs_top){vs_top=sup;goto T1568;} |
if(vs_base>=vs_top){vs_top=sup;goto T1568;} |
3916 |
V653=(base[2]); |
V662=(base[2]); |
3917 |
vs_top=sup; |
vs_top=sup; |
3918 |
goto T1569; |
goto T1569; |
3919 |
goto T1568; |
goto T1568; |
3920 |
T1568:; |
T1568:; |
3921 |
V653= symbol_value(VV[233]); |
V662= (VV[233]->s.s_dbind); |
3922 |
goto T1569; |
goto T1569; |
3923 |
T1569:; |
T1569:; |
3924 |
{register object V654; |
{register object V663; |
3925 |
V654= Cnil; |
V663= Cnil; |
3926 |
{register object V655; |
{register object V664; |
3927 |
V655= (V652); |
V664= (V661); |
3928 |
goto T1573; |
goto T1573; |
3929 |
T1573:; |
T1573:; |
3930 |
if(((V655))!=Cnil){ |
if(((V664))!=Cnil){ |
3931 |
goto T1574;} |
goto T1574;} |
3932 |
base[3]= (V654); |
base[3]= (V663); |
3933 |
base[4]= Cnil; |
base[4]= Cnil; |
3934 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3935 |
return; |
return; |
3936 |
goto T1574; |
goto T1574; |
3937 |
T1574:; |
T1574:; |
3938 |
if(!(eql(car((V655)),(V651)))){ |
if(!(eql(CMPcar((V664)),(V660)))){ |
3939 |
goto T1582;} |
goto T1582;} |
3940 |
base[3]= (V655); |
base[3]= (V664); |
3941 |
base[4]= Ct; |
base[4]= Ct; |
3942 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3943 |
return; |
return; |
3944 |
goto T1582; |
goto T1582; |
3945 |
T1582:; |
T1582:; |
3946 |
base[3]= (V651); |
base[3]= (V660); |
3947 |
base[4]= car((V655)); |
base[4]= CMPcar((V664)); |
3948 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3949 |
super_funcall_no_event((V653)); |
super_funcall_no_event((V662)); |
3950 |
vs_top=sup; |
vs_top=sup; |
3951 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3952 |
goto T1580;} |
goto T1580;} |
3953 |
base[3]= (V654); |
base[3]= (V663); |
3954 |
base[4]= Cnil; |
base[4]= Cnil; |
3955 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3956 |
return; |
return; |
3957 |
goto T1580; |
goto T1580; |
3958 |
T1580:; |
T1580:; |
3959 |
V654= (V655); |
V663= (V664); |
3960 |
V655= cdr((V655)); |
V664= CMPcdr((V664)); |
3961 |
goto T1573;}} |
goto T1573;}} |
3962 |
} |
} |
3963 |
} |
} |
3964 |
/* local entry for function COLLATE-SLOOP-COLLECT */ |
/* local entry for function COLLATE-SLOOP-COLLECT */ |
3965 |
|
|
3966 |
static object LI64(V658,V659) |
static object LI64(V667,V668) |
3967 |
|
|
3968 |
object V658;object V659; |
object V667;object V668; |
3969 |
{ VMB64 VMS64 VMV64 |
{ VMB64 VMS64 VMV64 |
3970 |
goto TTL; |
goto TTL; |
3971 |
TTL:; |
TTL:; |
3972 |
V660= list(3,VV[236],(V659),(V658)); |
V669= list(3,VV[236],(V668),(V667)); |
3973 |
V661= list(2,VV[238],list(3,VV[15],VV[239],list(3,VV[119],(V659),VV[240]))); |
V670= list(2,VV[238],list(3,VV[15],VV[239],list(3,VV[119],(V668),VV[240]))); |
3974 |
{object V662 = list(2,VV[56],list(4,VV[234],VV[235],/* INLINE-ARGS */V660,list(3,VV[104],VV[237],list(3,VV[14],/* INLINE-ARGS */V661,list(2,Ct,list(3,VV[15],(V658),list(3,VV[119],(V659),(V658)))))))); |
{object V671 = list(2,VV[56],list(4,VV[234],VV[235],/* INLINE-ARGS */V669,list(3,VV[104],VV[237],list(3,VV[14],/* INLINE-ARGS */V670,list(2,Ct,list(3,VV[15],(V667),list(3,VV[119],(V668),(V667)))))))); |
3975 |
VMR64(V662)} |
VMR64(V671)} |
3976 |
return Cnil; |
return Cnil; |
3977 |
} |
} |
3978 |
/* local entry for function IN-FRINGE-SLOOP-MAP */ |
/* local entry for function IN-FRINGE-SLOOP-MAP */ |
3979 |
|
|
3980 |
static object LI65(V665,V666) |
static object LI65(V674,V675) |
3981 |
|
|
3982 |
register object V665;object V666; |
register object V674;object V675; |
3983 |
{ VMB65 VMS65 VMV65 |
{ VMB65 VMS65 VMV65 |
3984 |
goto TTL; |
goto TTL; |
3985 |
TTL:; |
TTL:; |
3986 |
{register object V667; |
{register object V676; |
3987 |
vs_base=vs_top; |
vs_base=vs_top; |
3988 |
Lgensym(); |
Lgensym(); |
3989 |
vs_top=sup; |
vs_top=sup; |
3990 |
V667= vs_base[0]; |
V676= vs_base[0]; |
3991 |
V668= make_cons((V665),Cnil); |
V677= make_cons((V674),Cnil); |
3992 |
V669= list(2,(V667),VV[244]); |
V678= list(2,(V676),VV[244]); |
|
V670= make_cons(/* INLINE-ARGS */V669,Cnil); |
|
|
V671= list(2,VV[140],(V667)); |
|
|
V672= make_cons(/* INLINE-ARGS */V671,Cnil); |
|
|
V673= list(2,VV[229],(V667)); |
|
|
V674= list(3,VV[15],(V665),(V667)); |
|
|
V675= list(3,/* INLINE-ARGS */V673,/* INLINE-ARGS */V674,list(3,VV[15],(V667),Cnil)); |
|
|
V676= list(3,VV[15],(V665),list(2,VV[17],(V667))); |
|
|
V677= list(3,VV[14],/* INLINE-ARGS */V675,list(3,Ct,/* INLINE-ARGS */V676,list(3,VV[15],(V667),list(2,VV[18],(V667))))); |
|
|
V678= list(2,VV[140],(V665)); |
|
3993 |
V679= make_cons(/* INLINE-ARGS */V678,Cnil); |
V679= make_cons(/* INLINE-ARGS */V678,Cnil); |
3994 |
V680= list(2,VV[229],(V665)); |
V680= list(2,VV[140],(V676)); |
3995 |
V681= make_cons(/* INLINE-ARGS */V680,VV[245]); |
V681= make_cons(/* INLINE-ARGS */V680,Cnil); |
3996 |
V682= list(3,VV[242],VV[243],list(5,VV[56],/* INLINE-ARGS */V670,/* INLINE-ARGS */V672,/* INLINE-ARGS */V677,list(4,VV[14],/* INLINE-ARGS */V679,/* INLINE-ARGS */V681,list(2,Ct,list(2,VV[242],(V665)))))); |
V682= list(2,VV[229],(V676)); |
3997 |
V683= make_cons(/* INLINE-ARGS */V682,Cnil); |
V683= list(3,VV[15],(V674),(V676)); |
3998 |
{object V684 = list(3,VV[12],/* INLINE-ARGS */V668,list(3,VV[241],/* INLINE-ARGS */V683,list(2,VV[242],(V666)))); |
V684= list(3,/* INLINE-ARGS */V682,/* INLINE-ARGS */V683,list(3,VV[15],(V676),Cnil)); |
3999 |
VMR65(V684)}} |
V685= list(3,VV[15],(V674),list(2,VV[17],(V676))); |
4000 |
|
V686= list(3,VV[14],/* INLINE-ARGS */V684,list(3,Ct,/* INLINE-ARGS */V685,list(3,VV[15],(V676),list(2,VV[18],(V676))))); |
4001 |
|
V687= list(2,VV[140],(V674)); |
4002 |
|
V688= make_cons(/* INLINE-ARGS */V687,Cnil); |
4003 |
|
V689= list(2,VV[229],(V674)); |
4004 |
|
V690= make_cons(/* INLINE-ARGS */V689,VV[245]); |
4005 |
|
V691= list(3,VV[242],VV[243],list(5,VV[56],/* INLINE-ARGS */V679,/* INLINE-ARGS */V681,/* INLINE-ARGS */V686,list(4,VV[14],/* INLINE-ARGS */V688,/* INLINE-ARGS */V690,list(2,Ct,list(2,VV[242],(V674)))))); |
4006 |
|
V692= make_cons(/* INLINE-ARGS */V691,Cnil); |
4007 |
|
{object V693 = list(3,VV[12],/* INLINE-ARGS */V677,list(3,VV[241],/* INLINE-ARGS */V692,list(2,VV[242],(V675)))); |
4008 |
|
VMR65(V693)}} |
4009 |
base[0]=base[0]; |
base[0]=base[0]; |
4010 |
return Cnil; |
return Cnil; |
4011 |
} |
} |