1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "sloop.h" |
#include "sloop.h" |
4 |
init_sloop(){do_init(VV);} |
void init_sloop(){do_init(VV);} |
5 |
/* macro definition for LCASE */ |
/* macro definition for LCASE */ |
6 |
|
|
7 |
static 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_reserve(VM1); |
25 |
register object V6; |
register object V6; |
26 |
V5= base[3]; |
V5= base[3]; |
27 |
V6= Cnil; |
V6= Cnil; |
28 |
|
goto T3; |
29 |
T3:; |
T3:; |
30 |
if(((V3))!=Cnil){ |
if(((V3))!=Cnil){ |
31 |
goto T5;} |
goto T5;} |
32 |
if(((V5))!=Cnil){ |
if(((V5))!=Cnil){ |
33 |
goto T4;} |
goto T4;} |
34 |
|
goto T5; |
35 |
T5:; |
T5:; |
36 |
goto T1; |
goto T1; |
37 |
|
goto T4; |
38 |
T4:; |
T4:; |
39 |
V6= car((V5)); |
V6= car((V5)); |
40 |
if(!(eql(car((V6)),Ct))){ |
if(!(eql(car((V6)),Ct))){ |
42 |
V3= Ct; |
V3= Ct; |
43 |
V7= (V6); |
V7= (V6); |
44 |
goto T14; |
goto T14; |
45 |
|
goto T16; |
46 |
T16:; |
T16:; |
47 |
if(!(eql(car((V6)),VV[0]))){ |
if(!(eql(car((V6)),VV[0]))){ |
48 |
goto T21;} |
goto T21;} |
49 |
V7= make_cons(VV[1],cdr((V6))); |
V7= make_cons(VV[1],cdr((V6))); |
50 |
goto T14; |
goto T14; |
51 |
|
goto T21; |
52 |
T21:; |
T21:; |
53 |
if(!(eql(car((V6)),VV[2]))){ |
if(!(eql(car((V6)),VV[2]))){ |
54 |
goto T24;} |
goto T24;} |
55 |
V7= make_cons(VV[3],cdr((V6))); |
V7= make_cons(VV[3],cdr((V6))); |
56 |
goto T14; |
goto T14; |
57 |
|
goto T24; |
58 |
T24:; |
T24:; |
59 |
{register object x= car((V6)),V8= VV[4]; |
{register object x= car((V6)),V8= VV[4]; |
60 |
while(!endp(V8)) |
while(!endp(V8)) |
63 |
goto T29; |
goto T29; |
64 |
}else V8=V8->c.c_cdr; |
}else V8=V8->c.c_cdr; |
65 |
V4= Cnil;} |
V4= Cnil;} |
66 |
|
goto T29; |
67 |
T29:; |
T29:; |
68 |
if(((V4))==Cnil){ |
if(((V4))==Cnil){ |
69 |
goto T27;} |
goto T27;} |
70 |
V9= list(3,VV[5],VV[6],list(3,VV[7],VV[8],car((V4)))); |
V9= list(3,VV[5],VV[6],list(3,VV[7],VV[8],car((V4)))); |
71 |
V7= make_cons(/* INLINE-ARGS */V9,cdr((V6))); |
V7= make_cons(/* INLINE-ARGS */V9,cdr((V6))); |
72 |
goto T14; |
goto T14; |
73 |
|
goto T27; |
74 |
T27:; |
T27:; |
75 |
V10= list(3,VV[9],VV[8],list(2,VV[10],car((V6)))); |
V10= list(3,VV[9],VV[8],list(2,VV[10],car((V6)))); |
76 |
V7= make_cons(/* INLINE-ARGS */V10,cdr((V6))); |
V7= make_cons(/* INLINE-ARGS */V10,cdr((V6))); |
77 |
|
goto T14; |
78 |
T14:; |
T14:; |
79 |
V2= make_cons(V7,(V2)); |
V2= make_cons(V7,(V2)); |
80 |
V5= cdr((V5)); |
V5= cdr((V5)); |
81 |
goto T3;} |
goto T3;} |
82 |
|
goto T1; |
83 |
T1:; |
T1:; |
84 |
if((V3)!=Cnil){ |
if((V3)!=Cnil){ |
85 |
goto T33;} |
goto T33;} |
86 |
V2= make_cons(VV[11],(V2)); |
V2= make_cons(VV[11],(V2)); |
87 |
|
goto T33; |
88 |
T33:; |
T33:; |
89 |
V11= list(2,VV[8],list(2,VV[13],base[2])); |
V11= list(2,VV[8],list(2,VV[13],base[2])); |
90 |
V12= make_cons(/* INLINE-ARGS */V11,Cnil); |
V12= make_cons(/* INLINE-ARGS */V11,Cnil); |
99 |
|
|
100 |
register object V16;register object V17; |
register object V16;register object V17; |
101 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
102 |
|
goto TTL; |
103 |
TTL:; |
TTL:; |
104 |
if(!(type_of((V16))==t_symbol)){ |
if(!(type_of((V16))==t_symbol)){ |
105 |
goto T36;} |
goto T36;} |
108 |
VMR2(V18)}} |
VMR2(V18)}} |
109 |
{object V19 = list(3,VV[15],(V16),(V17)); |
{object V19 = list(3,VV[15],(V16),(V17)); |
110 |
VMR2(V19)} |
VMR2(V19)} |
111 |
|
goto T36; |
112 |
T36:; |
T36:; |
113 |
if(!(type_of((V16))==t_cons)){ |
if(!(type_of((V16))==t_cons)){ |
114 |
goto T39;} |
goto T39;} |
122 |
V26= (*(LnkLI246))(/* INLINE-ARGS */V24,/* INLINE-ARGS */V25); |
V26= (*(LnkLI246))(/* INLINE-ARGS */V24,/* INLINE-ARGS */V25); |
123 |
V23= make_cons(/* INLINE-ARGS */V26,Cnil); |
V23= make_cons(/* INLINE-ARGS */V26,Cnil); |
124 |
goto T41; |
goto T41; |
125 |
|
goto T43; |
126 |
T43:; |
T43:; |
127 |
if((cdr((V16)))!=Cnil){ |
if((cdr((V16)))!=Cnil){ |
128 |
goto T45;} |
goto T45;} |
129 |
V23= Cnil; |
V23= Cnil; |
130 |
goto T41; |
goto T41; |
131 |
|
goto T45; |
132 |
T45:; |
T45:; |
133 |
V27= cdr((V16)); |
V27= cdr((V16)); |
134 |
V28= list(3,VV[15],/* INLINE-ARGS */V27,list(2,VV[18],(V17))); |
V28= list(3,VV[15],/* INLINE-ARGS */V27,list(2,VV[18],(V17))); |
135 |
V23= make_cons(/* INLINE-ARGS */V28,Cnil); |
V23= make_cons(/* INLINE-ARGS */V28,Cnil); |
136 |
|
goto T41; |
137 |
T41:; |
T41:; |
138 |
{object V29 = listA(3,VV[16],/* INLINE-ARGS */V22,V23); |
{object V29 = listA(3,VV[16],/* INLINE-ARGS */V22,V23); |
139 |
VMR2(V29)} |
VMR2(V29)} |
140 |
|
goto T39; |
141 |
T39:; |
T39:; |
142 |
base[0]= VV[19]; |
base[0]= VV[19]; |
143 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
145 |
vs_top=sup; |
vs_top=sup; |
146 |
{object V30 = vs_base[0]; |
{object V30 = vs_base[0]; |
147 |
VMR2(V30)} |
VMR2(V30)} |
148 |
|
base[0]=base[0]; |
149 |
|
return Cnil; |
150 |
} |
} |
151 |
/* macro definition for DESETQ */ |
/* macro definition for DESETQ */ |
152 |
|
|
153 |
static L3() |
static void L3() |
154 |
{register object *base=vs_base; |
{register object *base=vs_base; |
155 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
156 |
vs_reserve(VM3); |
vs_reserve(VM3); |
169 |
base[4]= (*(LnkLI246))(base[2],base[3]); |
base[4]= (*(LnkLI246))(base[2],base[3]); |
170 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
171 |
return; |
return; |
172 |
|
goto T49; |
173 |
T49:; |
T49:; |
174 |
{object V32; |
{object V32; |
175 |
vs_base=vs_top; |
vs_base=vs_top; |
184 |
} |
} |
185 |
/* macro definition for LOOP-RETURN */ |
/* macro definition for LOOP-RETURN */ |
186 |
|
|
187 |
static L4() |
static void L4() |
188 |
{register object *base=vs_base; |
{register object *base=vs_base; |
189 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
190 |
vs_reserve(VM4); |
vs_reserve(VM4); |
197 |
base[3]= make_cons(VV[20],base[2]); |
base[3]= make_cons(VV[20],base[2]); |
198 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
199 |
return; |
return; |
200 |
|
goto T53; |
201 |
T53:; |
T53:; |
202 |
base[3]= list(2,VV[20],make_cons(VV[21],base[2])); |
base[3]= list(2,VV[20],make_cons(VV[21],base[2])); |
203 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
205 |
} |
} |
206 |
/* macro definition for LOOP-FINISH */ |
/* macro definition for LOOP-FINISH */ |
207 |
|
|
208 |
static L5() |
static void L5() |
209 |
{register object *base=vs_base; |
{register object *base=vs_base; |
210 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
211 |
vs_reserve(VM5); |
vs_reserve(VM5); |
219 |
} |
} |
220 |
/* macro definition for LOCAL-FINISH */ |
/* macro definition for LOCAL-FINISH */ |
221 |
|
|
222 |
static L6() |
static void L6() |
223 |
{register object *base=vs_base; |
{register object *base=vs_base; |
224 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM6; VC6 |
225 |
vs_reserve(VM6); |
vs_reserve(VM6); |
233 |
} |
} |
234 |
/* macro definition for SLOOP */ |
/* macro definition for SLOOP */ |
235 |
|
|
236 |
static L7() |
static void L7() |
237 |
{register object *base=vs_base; |
{register object *base=vs_base; |
238 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM7; VC7 |
239 |
vs_reserve(VM7); |
vs_reserve(VM7); |
247 |
} |
} |
248 |
/* macro definition for DEF-LOOP-MAP */ |
/* macro definition for DEF-LOOP-MAP */ |
249 |
|
|
250 |
static L8() |
static void L8() |
251 |
{register object *base=vs_base; |
{register object *base=vs_base; |
252 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
253 |
vs_reserve(VM8); |
vs_reserve(VM8); |
267 |
} |
} |
268 |
/* macro definition for DEF-LOOP-FOR */ |
/* macro definition for DEF-LOOP-FOR */ |
269 |
|
|
270 |
static L9() |
static void L9() |
271 |
{register object *base=vs_base; |
{register object *base=vs_base; |
272 |
register object *sup=base+VM9; VC9 |
register object *sup=base+VM9; VC9 |
273 |
vs_reserve(VM9); |
vs_reserve(VM9); |
287 |
} |
} |
288 |
/* macro definition for DEF-LOOP-MACRO */ |
/* macro definition for DEF-LOOP-MACRO */ |
289 |
|
|
290 |
static L10() |
static void L10() |
291 |
{register object *base=vs_base; |
{register object *base=vs_base; |
292 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
293 |
vs_reserve(VM10); |
vs_reserve(VM10); |
307 |
} |
} |
308 |
/* macro definition for DEF-LOOP-COLLECT */ |
/* macro definition for DEF-LOOP-COLLECT */ |
309 |
|
|
310 |
static L11() |
static void L11() |
311 |
{register object *base=vs_base; |
{register object *base=vs_base; |
312 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
313 |
vs_reserve(VM11); |
vs_reserve(VM11); |
327 |
} |
} |
328 |
/* macro definition for SLOOP-SWAP */ |
/* macro definition for SLOOP-SWAP */ |
329 |
|
|
330 |
static L12() |
static void L12() |
331 |
{register object *base=vs_base; |
{register object *base=vs_base; |
332 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
333 |
vs_reserve(VM12); |
vs_reserve(VM12); |
345 |
|
|
346 |
object V46;register object V47; |
object V46;register object V47; |
347 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
348 |
|
goto TTL; |
349 |
TTL:; |
TTL:; |
350 |
if(type_of((V46))==t_symbol){ |
if(type_of((V46))==t_symbol){ |
351 |
goto T55;} |
goto T55;} |
352 |
{object V48 = Cnil; |
{object V48 = Cnil; |
353 |
VMR13(V48)} |
VMR13(V48)} |
354 |
|
goto T55; |
355 |
T55:; |
T55:; |
356 |
if(!(type_of((V47))==t_symbol)){ |
if(!(type_of((V47))==t_symbol)){ |
357 |
goto T58;} |
goto T58;} |
359 |
V50= symbol_name((V47)); |
V50= symbol_name((V47)); |
360 |
{object V51 = (equal(/* INLINE-ARGS */V49,/* INLINE-ARGS */V50)?Ct:Cnil); |
{object V51 = (equal(/* INLINE-ARGS */V49,/* INLINE-ARGS */V50)?Ct:Cnil); |
361 |
VMR13(V51)} |
VMR13(V51)} |
362 |
|
goto T58; |
363 |
T58:; |
T58:; |
364 |
if(!(type_of((V47))==t_cons||((V47))==Cnil)){ |
if(!(type_of((V47))==t_cons||((V47))==Cnil)){ |
365 |
goto T61;} |
goto T61;} |
372 |
vs_top=sup; |
vs_top=sup; |
373 |
{object V52 = vs_base[0]; |
{object V52 = vs_base[0]; |
374 |
VMR13(V52)} |
VMR13(V52)} |
375 |
|
goto T61; |
376 |
T61:; |
T61:; |
377 |
{object V53 = Cnil; |
{object V53 = Cnil; |
378 |
VMR13(V53)} |
VMR13(V53)} |
379 |
|
base[0]=base[0]; |
380 |
|
return Cnil; |
381 |
} |
} |
382 |
/* local entry for function LOOP-COLLECT-KEYWORD-P */ |
/* local entry for function LOOP-COLLECT-KEYWORD-P */ |
383 |
|
|
385 |
|
|
386 |
object V55; |
object V55; |
387 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
388 |
|
goto TTL; |
389 |
TTL:;{object V56; |
TTL:;{object V56; |
390 |
base[0]= (V55); |
base[0]= (V55); |
391 |
base[1]= VV[31]; |
base[1]= VV[31]; |
398 |
if(V56==Cnil)goto T67; |
if(V56==Cnil)goto T67; |
399 |
{object V57 = V56; |
{object V57 = V56; |
400 |
VMR14(V57)} |
VMR14(V57)} |
401 |
|
goto T67; |
402 |
T67:;} |
T67:;} |
403 |
{object V58 = (VFUN_NARGS=4,(*(LnkLI249))((V55),symbol_value(VV[28]),VV[30],VV[9])); |
{object V58 = (VFUN_NARGS=4,(*(LnkLI249))((V55),symbol_value(VV[28]),VV[30],VV[9])); |
404 |
VMR14(V58)} |
VMR14(V58)} |
405 |
|
base[0]=base[0]; |
406 |
|
return Cnil; |
407 |
} |
} |
408 |
/* local entry for function TRANSLATE-NAME */ |
/* local entry for function TRANSLATE-NAME */ |
409 |
|
|
411 |
|
|
412 |
object V60; |
object V60; |
413 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
414 |
|
goto TTL; |
415 |
TTL:; |
TTL:; |
416 |
{object V61; |
{object V61; |
417 |
if(type_of((V60))==t_symbol){ |
if(type_of((V60))==t_symbol){ |
418 |
goto T74;} |
goto T74;} |
419 |
V61= Cnil; |
V61= Cnil; |
420 |
goto T73; |
goto T73; |
421 |
|
goto T74; |
422 |
T74:; |
T74:; |
423 |
base[0]= (V60); |
base[0]= (V60); |
424 |
base[1]= symbol_value(VV[32]); |
base[1]= symbol_value(VV[32]); |
431 |
vs_top=sup; |
vs_top=sup; |
432 |
V62= vs_base[0]; |
V62= vs_base[0]; |
433 |
V61= cdar(V62); |
V61= cdar(V62); |
434 |
|
goto T73; |
435 |
T73:; |
T73:; |
436 |
if(((V61))==Cnil){ |
if(((V61))==Cnil){ |
437 |
goto T84;} |
goto T84;} |
438 |
{object V63 = (V61); |
{object V63 = (V61); |
439 |
VMR15(V63)} |
VMR15(V63)} |
440 |
|
goto T84; |
441 |
T84:; |
T84:; |
442 |
{object V64 = (V60); |
{object V64 = (V60); |
443 |
VMR15(V64)}} |
VMR15(V64)}} |
444 |
|
base[0]=base[0]; |
445 |
|
return Cnil; |
446 |
} |
} |
447 |
/* local entry for function LOOP-POP */ |
/* local entry for function LOOP-POP */ |
448 |
|
|
449 |
static object LI16() |
static object LI16() |
450 |
|
|
451 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
452 |
|
goto TTL; |
453 |
TTL:; |
TTL:; |
454 |
if((symbol_value(VV[34]))==Cnil){ |
if((symbol_value(VV[34]))==Cnil){ |
455 |
goto T87;} |
goto T87;} |
459 |
setq(VV[35],(V65));} |
setq(VV[35],(V65));} |
460 |
{object V66 = symbol_value(VV[35]); |
{object V66 = symbol_value(VV[35]); |
461 |
VMR16(V66)} |
VMR16(V66)} |
462 |
|
goto T87; |
463 |
T87:; |
T87:; |
464 |
setq(VV[35],VV[36]); |
setq(VV[35],VV[36]); |
465 |
{object V67 = Cnil; |
{object V67 = Cnil; |
466 |
VMR16(V67)} |
VMR16(V67)} |
467 |
|
return Cnil; |
468 |
} |
} |
469 |
/* local entry for function LOOP-UN-POP */ |
/* local entry for function LOOP-UN-POP */ |
470 |
|
|
471 |
static object LI17() |
static object LI17() |
472 |
|
|
473 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
474 |
|
goto TTL; |
475 |
TTL:; |
TTL:; |
476 |
{object V68= symbol_value(VV[35]); |
{object V68= symbol_value(VV[35]); |
477 |
if((V68!= VV[36]))goto T95; |
if((V68!= VV[36]))goto T95; |
478 |
{object V69 = Cnil; |
{object V69 = Cnil; |
479 |
VMR17(V69)} |
VMR17(V69)} |
480 |
|
goto T95; |
481 |
T95:; |
T95:; |
482 |
if((V68!= VV[250]))goto T96; |
if((V68!= VV[250]))goto T96; |
483 |
base[0]= VV[37]; |
base[0]= VV[37]; |
486 |
vs_top=sup; |
vs_top=sup; |
487 |
{object V70 = vs_base[0]; |
{object V70 = vs_base[0]; |
488 |
VMR17(V70)} |
VMR17(V70)} |
489 |
|
goto T96; |
490 |
T96:; |
T96:; |
491 |
setq(VV[34],make_cons(symbol_value(VV[35]),symbol_value(VV[34]))); |
setq(VV[34],make_cons(symbol_value(VV[35]),symbol_value(VV[34]))); |
492 |
setq(VV[35],VV[38]); |
setq(VV[35],VV[38]); |
493 |
{object V71 = VV[38]; |
{object V71 = VV[38]; |
494 |
VMR17(V71)}} |
VMR17(V71)}} |
495 |
|
base[0]=base[0]; |
496 |
|
return Cnil; |
497 |
} |
} |
498 |
/* local entry for function LOOP-PEEK */ |
/* local entry for function LOOP-PEEK */ |
499 |
|
|
500 |
static object LI18() |
static object LI18() |
501 |
|
|
502 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
503 |
|
goto TTL; |
504 |
TTL:; |
TTL:; |
505 |
{object V72 = car(symbol_value(VV[34])); |
{object V72 = car(symbol_value(VV[34])); |
506 |
VMR18(V72)} |
VMR18(V72)} |
507 |
|
return Cnil; |
508 |
} |
} |
509 |
/* local entry for function LOOP-LET-BINDINGS */ |
/* local entry for function LOOP-LET-BINDINGS */ |
510 |
|
|
512 |
|
|
513 |
register object V74; |
register object V74; |
514 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
515 |
|
goto TTL; |
516 |
TTL:; |
TTL:; |
517 |
{register object V75; |
{register object V75; |
518 |
V75= car((V74)); |
V75= car((V74)); |
519 |
|
goto T103; |
520 |
T103:; |
T103:; |
521 |
if(((V75))!=Cnil){ |
if(((V75))!=Cnil){ |
522 |
goto T104;} |
goto T104;} |
523 |
{object V76 = nreverse(car((V74))); |
{object V76 = nreverse(car((V74))); |
524 |
VMR19(V76)} |
VMR19(V76)} |
525 |
|
goto T104; |
526 |
T104:;{object V77; |
T104:;{object V77; |
527 |
V77= cdar((V75)); |
V77= cdar((V75)); |
528 |
if(V77==Cnil)goto T109; |
if(V77==Cnil)goto T109; |
529 |
goto T108; |
goto T108; |
530 |
|
goto T109; |
531 |
T109:;} |
T109:;} |
532 |
{register object V78; |
{register object V78; |
533 |
register object V79; |
register object V79; |
535 |
V79= caar((V75)); |
V79= caar((V75)); |
536 |
if(type_of((V78))!=t_cons)FEwrong_type_argument(Scons,(V78)); |
if(type_of((V78))!=t_cons)FEwrong_type_argument(Scons,(V78)); |
537 |
((V78))->c.c_car = (V79);} |
((V78))->c.c_car = (V79);} |
538 |
|
goto T108; |
539 |
T108:; |
T108:; |
540 |
V75= cdr((V75)); |
V75= cdr((V75)); |
541 |
goto T103;} |
goto T103;} |
542 |
|
base[0]=base[0]; |
543 |
|
return Cnil; |
544 |
} |
} |
545 |
/* local entry for function PARSE-LOOP */ |
/* local entry for function PARSE-LOOP */ |
546 |
|
|
549 |
object V81; |
object V81; |
550 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
551 |
bds_check; |
bds_check; |
552 |
|
goto TTL; |
553 |
TTL:; |
TTL:; |
554 |
{register object V82; |
{register object V82; |
555 |
V82= Cnil; |
V82= Cnil; |
579 |
goto T119;} |
goto T119;} |
580 |
if((car((VV[34]->s.s_dbind)))!=Cnil){ |
if((car((VV[34]->s.s_dbind)))!=Cnil){ |
581 |
goto T118;} |
goto T118;} |
582 |
|
goto T119; |
583 |
T119:; |
T119:; |
584 |
(VV[34]->s.s_dbind)= make_cons(VV[56],(VV[34]->s.s_dbind)); |
(VV[34]->s.s_dbind)= make_cons(VV[56],(VV[34]->s.s_dbind)); |
585 |
|
goto T118; |
586 |
T118:; |
T118:; |
587 |
(void)((*(LnkLI251))()); |
(void)((*(LnkLI251))()); |
588 |
if(((VV[53]->s.s_dbind))!=Cnil){ |
if(((VV[53]->s.s_dbind))!=Cnil){ |
589 |
goto T126;} |
goto T126;} |
590 |
if(((VV[40]->s.s_dbind))==Cnil){ |
if(((VV[40]->s.s_dbind))==Cnil){ |
591 |
goto T125;} |
goto T125;} |
592 |
|
goto T126; |
593 |
T126:; |
T126:; |
594 |
if((VV[51]->s.s_dbind)!=Cnil){ |
if((VV[51]->s.s_dbind)!=Cnil){ |
595 |
goto T130;} |
goto T130;} |
598 |
Lgensym(); |
Lgensym(); |
599 |
vs_top=sup; |
vs_top=sup; |
600 |
(VV[51]->s.s_dbind)= vs_base[0]; |
(VV[51]->s.s_dbind)= vs_base[0]; |
601 |
|
goto T130; |
602 |
T130:; |
T130:; |
603 |
if(eql(VV[55],(V84))){ |
if(eql(VV[55],(V84))){ |
604 |
goto T133;} |
goto T133;} |
605 |
goto T125; |
goto T125; |
606 |
|
goto T133; |
607 |
T133:; |
T133:; |
608 |
base[18]= VV[58]; |
base[18]= VV[58]; |
609 |
vs_top=(vs_base=base+18)+1; |
vs_top=(vs_base=base+18)+1; |
610 |
Lgensym(); |
Lgensym(); |
611 |
vs_top=sup; |
vs_top=sup; |
612 |
V84= vs_base[0]; |
V84= vs_base[0]; |
613 |
|
goto T125; |
614 |
T125:; |
T125:; |
615 |
V85= list(3,VV[59],VV[60],list(4,VV[61],VV[62],list(2,VV[10],(VV[51]->s.s_dbind)),VV[63])); |
V85= list(3,VV[59],VV[60],list(4,VV[61],VV[62],list(2,VV[10],(VV[51]->s.s_dbind)),VV[63])); |
616 |
V83= make_cons(/* INLINE-ARGS */V85,(V83)); |
V83= make_cons(/* INLINE-ARGS */V85,(V83)); |
622 |
goto T143;} |
goto T143;} |
623 |
V88= list(3,VV[68],(VV[51]->s.s_dbind),(VV[45]->s.s_dbind)); |
V88= list(3,VV[68],(VV[51]->s.s_dbind),(VV[45]->s.s_dbind)); |
624 |
(VV[43]->s.s_dbind)= make_cons(/* INLINE-ARGS */V88,(VV[43]->s.s_dbind)); |
(VV[43]->s.s_dbind)= make_cons(/* INLINE-ARGS */V88,(VV[43]->s.s_dbind)); |
625 |
|
goto T143; |
626 |
T143:; |
T143:; |
627 |
base[18]= (VV[41]->s.s_dbind); |
base[18]= (VV[41]->s.s_dbind); |
628 |
base[19]= nreverse((VV[49]->s.s_dbind)); |
base[19]= nreverse((VV[49]->s.s_dbind)); |
635 |
goto T152;} |
goto T152;} |
636 |
V82= (*(LnkLI252))((V82)); |
V82= (*(LnkLI252))((V82)); |
637 |
goto T150; |
goto T150; |
638 |
|
goto T152; |
639 |
T152:; |
T152:; |
640 |
V89= append((V82),VV[70]); |
V89= append((V82),VV[70]); |
641 |
V82= make_cons(VV[69],/* INLINE-ARGS */V89); |
V82= make_cons(VV[69],/* INLINE-ARGS */V89); |
642 |
|
goto T150; |
643 |
T150:; |
T150:; |
644 |
{register object V90;{object V91; |
{register object V90;{object V91; |
645 |
V91= (VV[51]->s.s_dbind); |
V91= (VV[51]->s.s_dbind); |
660 |
Lcopy_tree(); |
Lcopy_tree(); |
661 |
vs_top=sup; |
vs_top=sup; |
662 |
V90= vs_base[0]; |
V90= vs_base[0]; |
663 |
|
goto T163; |
664 |
T163:; |
T163:; |
665 |
{register object V93; |
{register object V93; |
666 |
register object V94; |
register object V94; |
667 |
V93= (VV[46]->s.s_dbind); |
V93= (VV[46]->s.s_dbind); |
668 |
V94= car((V93)); |
V94= car((V93)); |
669 |
|
goto T172; |
670 |
T172:; |
T172:; |
671 |
if(!(endp((V93)))){ |
if(!(endp((V93)))){ |
672 |
goto T173;} |
goto T173;} |
673 |
goto T168; |
goto T168; |
674 |
|
goto T173; |
675 |
T173:; |
T173:; |
676 |
V95= (*(LnkLI253))((V94)); |
V95= (*(LnkLI253))((V94)); |
677 |
if((cdr((V94)))!=Cnil){ |
if((cdr((V94)))!=Cnil){ |
678 |
goto T180;} |
goto T180;} |
679 |
V96= Cnil; |
V96= Cnil; |
680 |
goto T179; |
goto T179; |
681 |
|
goto T180; |
682 |
T180:; |
T180:; |
683 |
V97= make_cons(VV[77],cdr((V94))); |
V97= make_cons(VV[77],cdr((V94))); |
684 |
V96= make_cons(/* INLINE-ARGS */V97,Cnil); |
V96= make_cons(/* INLINE-ARGS */V97,Cnil); |
685 |
|
goto T179; |
686 |
T179:; |
T179:; |
687 |
V98= make_cons((V90),Cnil); |
V98= make_cons((V90),Cnil); |
688 |
V90= listA(3,VV[12],/* INLINE-ARGS */V95,append(V96,/* INLINE-ARGS */V98)); |
V90= listA(3,VV[12],/* INLINE-ARGS */V95,append(V96,/* INLINE-ARGS */V98)); |
689 |
V93= cdr((V93)); |
V93= cdr((V93)); |
690 |
V94= car((V93)); |
V94= car((V93)); |
691 |
goto T172;} |
goto T172;} |
692 |
|
goto T168; |
693 |
T168:; |
T168:; |
694 |
{object V99 = (V90); |
{object V99 = (V90); |
695 |
bds_unwind1; |
bds_unwind1; |
711 |
bds_unwind1; |
bds_unwind1; |
712 |
bds_unwind1; |
bds_unwind1; |
713 |
VMR20(V99)}}}} |
VMR20(V99)}}}} |
714 |
|
base[0]=base[0]; |
715 |
|
return Cnil; |
716 |
} |
} |
717 |
/* local entry for function PARSE-LOOP1 */ |
/* local entry for function PARSE-LOOP1 */ |
718 |
|
|
719 |
static object LI21() |
static object LI21() |
720 |
|
|
721 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
722 |
|
goto TTL; |
723 |
TTL:; |
TTL:; |
724 |
{object V100; |
{object V100; |
725 |
V101= (*(LnkLI254))(); |
V101= (*(LnkLI254))(); |
728 |
goto T187;} |
goto T187;} |
729 |
(void)((*(LnkLI255))()); |
(void)((*(LnkLI255))()); |
730 |
setq(VV[51],(*(LnkLI255))());} |
setq(VV[51],(*(LnkLI255))());} |
731 |
|
goto T187; |
732 |
T187:; |
T187:; |
733 |
{register object V102; |
{register object V102; |
734 |
V102= (*(LnkLI255))(); |
V102= (*(LnkLI255))(); |
735 |
|
goto T195; |
736 |
T195:; |
T195:; |
737 |
if(((V102))!=Cnil){ |
if(((V102))!=Cnil){ |
738 |
goto T196;} |
goto T196;} |
740 |
goto T196;} |
goto T196;} |
741 |
{object V103 = Cnil; |
{object V103 = Cnil; |
742 |
VMR21(V103)} |
VMR21(V103)} |
743 |
|
goto T196; |
744 |
T196:; |
T196:; |
745 |
{register object V104; |
{register object V104; |
746 |
V104= (*(LnkLI13))((V102)); |
V104= (*(LnkLI13))((V102)); |
749 |
if(((V105))==Cnil){ |
if(((V105))==Cnil){ |
750 |
goto T206;} |
goto T206;} |
751 |
goto T202; |
goto T202; |
752 |
|
goto T206; |
753 |
T206:; |
T206:; |
754 |
if(((*(LnkLI9))((V104),VV[25]))==Cnil){ |
if(((*(LnkLI9))((V104),VV[25]))==Cnil){ |
755 |
goto T209;} |
goto T209;} |
756 |
(void)((*(LnkLI257))()); |
(void)((*(LnkLI257))()); |
757 |
goto T202; |
goto T202; |
758 |
|
goto T209; |
759 |
T209:; |
T209:; |
760 |
if(((*(LnkLI9))((V104),VV[79]))==Cnil){ |
if(((*(LnkLI9))((V104),VV[79]))==Cnil){ |
761 |
goto T212;} |
goto T212;} |
763 |
V107= list(3,VV[80],/* INLINE-ARGS */V106,VV[81]); |
V107= list(3,VV[80],/* INLINE-ARGS */V106,VV[81]); |
764 |
setq(VV[49],make_cons(/* INLINE-ARGS */V107,symbol_value(VV[49]))); |
setq(VV[49],make_cons(/* INLINE-ARGS */V107,symbol_value(VV[49]))); |
765 |
goto T202; |
goto T202; |
766 |
|
goto T212; |
767 |
T212:; |
T212:; |
768 |
if(((*(LnkLI9))((V104),VV[82]))==Cnil){ |
if(((*(LnkLI9))((V104),VV[82]))==Cnil){ |
769 |
goto T216;} |
goto T216;} |
771 |
V109= list(3,VV[5],/* INLINE-ARGS */V108,VV[83]); |
V109= list(3,VV[5],/* INLINE-ARGS */V108,VV[83]); |
772 |
setq(VV[49],make_cons(/* INLINE-ARGS */V109,symbol_value(VV[49]))); |
setq(VV[49],make_cons(/* INLINE-ARGS */V109,symbol_value(VV[49]))); |
773 |
goto T202; |
goto T202; |
774 |
|
goto T216; |
775 |
T216:; |
T216:; |
776 |
if(((*(LnkLI9))((V104),VV[56]))==Cnil){ |
if(((*(LnkLI9))((V104),VV[56]))==Cnil){ |
777 |
goto T220;} |
goto T220;} |
778 |
V110= (*(LnkLI258))(); |
V110= (*(LnkLI258))(); |
779 |
setq(VV[49],append(/* INLINE-ARGS */V110,symbol_value(VV[49]))); |
setq(VV[49],append(/* INLINE-ARGS */V110,symbol_value(VV[49]))); |
780 |
goto T202; |
goto T202; |
781 |
|
goto T220; |
782 |
T220:; |
T220:; |
783 |
if(((*(LnkLI9))((V104),VV[84]))==Cnil){ |
if(((*(LnkLI9))((V104),VV[84]))==Cnil){ |
784 |
goto T224;} |
goto T224;} |
785 |
V111= (*(LnkLI259))(); |
V111= (*(LnkLI259))(); |
786 |
setq(VV[49],append(/* INLINE-ARGS */V111,symbol_value(VV[49]))); |
setq(VV[49],append(/* INLINE-ARGS */V111,symbol_value(VV[49]))); |
787 |
goto T202; |
goto T202; |
788 |
|
goto T224; |
789 |
T224:; |
T224:; |
790 |
if(((*(LnkLI260))((V104)))==Cnil){ |
if(((*(LnkLI260))((V104)))==Cnil){ |
791 |
goto T228;} |
goto T228;} |
792 |
V112= (*(LnkLI261))(); |
V112= (*(LnkLI261))(); |
793 |
setq(VV[49],append(/* INLINE-ARGS */V112,symbol_value(VV[49]))); |
setq(VV[49],append(/* INLINE-ARGS */V112,symbol_value(VV[49]))); |
794 |
goto T202; |
goto T202; |
795 |
|
goto T228; |
796 |
T228:; |
T228:; |
797 |
base[0]= VV[85]; |
base[0]= VV[85]; |
798 |
base[1]= (V104); |
base[1]= (V104); |
799 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
800 |
Lerror(); |
Lerror(); |
801 |
vs_top=sup;}} |
vs_top=sup;}} |
802 |
|
goto T202; |
803 |
T202:; |
T202:; |
804 |
V102= (*(LnkLI255))(); |
V102= (*(LnkLI255))(); |
805 |
goto T195;} |
goto T195;} |
806 |
|
base[0]=base[0]; |
807 |
|
return Cnil; |
808 |
} |
} |
809 |
/* local entry for function PARSE-NO-BODY */ |
/* local entry for function PARSE-NO-BODY */ |
810 |
|
|
812 |
|
|
813 |
object V114; |
object V114; |
814 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
815 |
|
goto TTL; |
816 |
TTL:; |
TTL:; |
817 |
{register object V115; |
{register object V115; |
818 |
register object V116; |
register object V116; |
820 |
V116= Ct; |
V116= Ct; |
821 |
{register object V117; |
{register object V117; |
822 |
V117= (V114); |
V117= (V114); |
823 |
|
goto T240; |
824 |
T240:; |
T240:; |
825 |
if(((V116))!=Cnil){ |
if(((V116))!=Cnil){ |
826 |
goto T241;} |
goto T241;} |
827 |
if((symbol_value(VV[34]))!=Cnil){ |
if((symbol_value(VV[34]))!=Cnil){ |
828 |
goto T241;} |
goto T241;} |
829 |
goto T238; |
goto T238; |
830 |
|
goto T241; |
831 |
T241:; |
T241:; |
832 |
{register object V118; |
{register object V118; |
833 |
V118= (*(LnkLI13))((V117)); |
V118= (*(LnkLI13))((V117)); |
835 |
goto T250;} |
goto T250;} |
836 |
(void)((*(LnkLI262))((V117))); |
(void)((*(LnkLI262))((V117))); |
837 |
goto T247; |
goto T247; |
838 |
|
goto T250; |
839 |
T250:; |
T250:; |
840 |
if(((*(LnkLI9))((V118),Cnil))==Cnil){ |
if(((*(LnkLI9))((V118),Cnil))==Cnil){ |
841 |
goto T253;} |
goto T253;} |
842 |
goto T247; |
goto T247; |
843 |
|
goto T253; |
844 |
T253:; |
T253:; |
845 |
if(((*(LnkLI9))((V118),VV[87]))==Cnil){ |
if(((*(LnkLI9))((V118),VV[87]))==Cnil){ |
846 |
goto T256;} |
goto T256;} |
847 |
(void)((VFUN_NARGS=0,(*(LnkLI263))())); |
(void)((VFUN_NARGS=0,(*(LnkLI263))())); |
848 |
goto T247; |
goto T247; |
849 |
|
goto T256; |
850 |
T256:; |
T256:; |
851 |
if(((*(LnkLI9))((V118),VV[77]))==Cnil){ |
if(((*(LnkLI9))((V118),VV[77]))==Cnil){ |
852 |
goto T259;} |
goto T259;} |
853 |
V119= (*(LnkLI255))(); |
V119= (*(LnkLI255))(); |
854 |
(void)((VFUN_NARGS=2,(*(LnkLI264))(/* INLINE-ARGS */V119,Ct))); |
(void)((VFUN_NARGS=2,(*(LnkLI264))(/* INLINE-ARGS */V119,Ct))); |
855 |
goto T247; |
goto T247; |
856 |
|
goto T259; |
857 |
T259:; |
T259:; |
858 |
if(((*(LnkLI9))((V118),VV[88]))==Cnil){ |
if(((*(LnkLI9))((V118),VV[88]))==Cnil){ |
859 |
goto T262;} |
goto T262;} |
860 |
setq(VV[47],(*(LnkLI255))()); |
setq(VV[47],(*(LnkLI255))()); |
861 |
goto T247; |
goto T247; |
862 |
|
goto T262; |
863 |
T262:; |
T262:; |
864 |
if(((*(LnkLI9))((V118),VV[89]))==Cnil){ |
if(((*(LnkLI9))((V118),VV[89]))==Cnil){ |
865 |
goto T266;} |
goto T266;} |
866 |
V120= (*(LnkLI258))(); |
V120= (*(LnkLI258))(); |
867 |
setq(VV[42],append(/* INLINE-ARGS */V120,symbol_value(VV[42]))); |
setq(VV[42],append(/* INLINE-ARGS */V120,symbol_value(VV[42]))); |
868 |
goto T247; |
goto T247; |
869 |
|
goto T266; |
870 |
T266:; |
T266:; |
871 |
if(((*(LnkLI9))((V118),VV[90]))==Cnil){ |
if(((*(LnkLI9))((V118),VV[90]))==Cnil){ |
872 |
goto T270;} |
goto T270;} |
873 |
V121= (*(LnkLI258))(); |
V121= (*(LnkLI258))(); |
874 |
setq(VV[41],append(/* INLINE-ARGS */V121,symbol_value(VV[41]))); |
setq(VV[41],append(/* INLINE-ARGS */V121,symbol_value(VV[41]))); |
875 |
goto T247; |
goto T247; |
876 |
|
goto T270; |
877 |
T270:; |
T270:; |
878 |
if(((*(LnkLI9))((V118),VV[91]))==Cnil){ |
if(((*(LnkLI9))((V118),VV[91]))==Cnil){ |
879 |
goto T274;} |
goto T274;} |
880 |
(void)((VFUN_NARGS=2,(*(LnkLI263))(Cnil,Ct))); |
(void)((VFUN_NARGS=2,(*(LnkLI263))(Cnil,Ct))); |
881 |
goto T247; |
goto T247; |
882 |
|
goto T274; |
883 |
T274:; |
T274:; |
884 |
if(!(type_of((V118))==t_symbol)){ |
if(!(type_of((V118))==t_symbol)){ |
885 |
goto T277;} |
goto T277;} |
887 |
goto T277;} |
goto T277;} |
888 |
(void)((VFUN_NARGS=2,(*(LnkLI265))((V117),VV[92]))); |
(void)((VFUN_NARGS=2,(*(LnkLI265))((V117),VV[92]))); |
889 |
goto T247; |
goto T247; |
890 |
|
goto T277; |
891 |
T277:; |
T277:; |
892 |
if(((V116))==Cnil){ |
if(((V116))==Cnil){ |
893 |
goto T283;} |
goto T283;} |
894 |
V115= Cnil; |
V115= Cnil; |
895 |
goto T281; |
goto T281; |
896 |
|
goto T283; |
897 |
T283:; |
T283:; |
898 |
(void)((*(LnkLI266))()); |
(void)((*(LnkLI266))()); |
899 |
|
goto T281; |
900 |
T281:; |
T281:; |
901 |
goto T238;} |
goto T238;} |
902 |
|
goto T247; |
903 |
T247:; |
T247:; |
904 |
V116= Cnil; |
V116= Cnil; |
905 |
V117= (*(LnkLI255))(); |
V117= (*(LnkLI255))(); |
906 |
goto T240;} |
goto T240;} |
907 |
|
goto T238; |
908 |
T238:; |
T238:; |
909 |
{object V122 = (V115); |
{object V122 = (V115); |
910 |
VMR22(V122)}} |
VMR22(V122)}} |
911 |
|
return Cnil; |
912 |
} |
} |
913 |
/* local entry for function PARSE-LOOP-WITH */ |
/* local entry for function PARSE-LOOP-WITH */ |
914 |
|
|
919 |
int narg = VFUN_NARGS; VMB23 VMS23 VMV23 |
int narg = VFUN_NARGS; VMB23 VMS23 VMV23 |
920 |
{object V123; |
{object V123; |
921 |
object V124; |
object V124; |
922 |
|
Vcs[0]=Vcs[0]; |
923 |
|
va_start(ap); |
924 |
narg = narg - 0; |
narg = narg - 0; |
925 |
if (narg <= 0) goto T291; |
if (narg <= 0) goto T291; |
926 |
else { |
else { |
|
va_start(ap); |
|
927 |
V123= va_arg(ap,object);} |
V123= va_arg(ap,object);} |
928 |
if (--narg <= 0) goto T292; |
if (--narg <= 0) goto T292; |
929 |
else { |
else { |
930 |
V124= va_arg(ap,object);} |
V124= va_arg(ap,object);} |
931 |
--narg; goto T293; |
--narg; goto T293; |
932 |
|
goto T291; |
933 |
T291:; |
T291:; |
934 |
V123= Cnil; |
V123= Cnil; |
935 |
|
goto T292; |
936 |
T292:; |
T292:; |
937 |
V124= Cnil; |
V124= Cnil; |
938 |
|
goto T293; |
939 |
T293:; |
T293:; |
940 |
{register object V125; |
{register object V125; |
941 |
V125= (*(LnkLI255))(); |
V125= (*(LnkLI255))(); |
948 |
if(!(type_of((V125))==t_symbol)){ |
if(!(type_of((V125))==t_symbol)){ |
949 |
goto T304;} |
goto T304;} |
950 |
goto T303; |
goto T303; |
951 |
|
goto T304; |
952 |
T304:; |
T304:; |
953 |
base[0]= VV[95]; |
base[0]= VV[95]; |
954 |
base[1]= (V125); |
base[1]= (V125); |
955 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
956 |
Lerror(); |
Lerror(); |
957 |
vs_top=sup; |
vs_top=sup; |
958 |
|
goto T303; |
959 |
T303:; |
T303:; |
960 |
V128= (*(LnkLI255))(); |
V128= (*(LnkLI255))(); |
961 |
(void)((VFUN_NARGS=7,(*(LnkLI267))((V125),/* INLINE-ARGS */V128,(((V123))==Cnil?Ct:Cnil),Cnil,Cnil,Ct,(V124)))); |
(void)((VFUN_NARGS=7,(*(LnkLI267))((V125),/* INLINE-ARGS */V128,(((V123))==Cnil?Ct:Cnil),Cnil,Cnil,Ct,(V124)))); |
962 |
goto T297; |
goto T297; |
963 |
|
goto T300; |
964 |
T300:; |
T300:; |
965 |
(void)((VFUN_NARGS=5,(*(LnkLI268))((V125),Cnil,Cnil,(((V123))==Cnil?Ct:Cnil),(V124))));} |
(void)((VFUN_NARGS=5,(*(LnkLI268))((V125),Cnil,Cnil,(((V123))==Cnil?Ct:Cnil),(V124))));} |
966 |
|
goto T297; |
967 |
T297:; |
T297:; |
968 |
{object V129; |
{object V129; |
969 |
V130= (*(LnkLI254))(); |
V130= (*(LnkLI254))(); |
978 |
goto T315;} |
goto T315;} |
979 |
{object V133 = (VFUN_NARGS=1,(*(LnkLI263))(Ct)); |
{object V133 = (VFUN_NARGS=1,(*(LnkLI263))(Ct)); |
980 |
VMR23(V133)} |
VMR23(V133)} |
981 |
|
goto T315; |
982 |
T315:; |
T315:; |
983 |
if(((*(LnkLI9))((V131),VV[91]))==Cnil){ |
if(((*(LnkLI9))((V131),VV[91]))==Cnil){ |
984 |
goto T318;} |
goto T318;} |
985 |
{object V134 = (VFUN_NARGS=2,(*(LnkLI263))(Ct,Ct)); |
{object V134 = (VFUN_NARGS=2,(*(LnkLI263))(Ct,Ct)); |
986 |
VMR23(V134)} |
VMR23(V134)} |
987 |
|
goto T318; |
988 |
T318:; |
T318:; |
989 |
(void)((*(LnkLI266))()); |
(void)((*(LnkLI266))()); |
990 |
{object V135 = (VFUN_NARGS=1,(*(LnkLI263))(Ct)); |
{object V135 = (VFUN_NARGS=1,(*(LnkLI263))(Ct)); |
991 |
VMR23(V135)}} |
VMR23(V135)}} |
992 |
|
goto T310; |
993 |
T310:; |
T310:; |
994 |
{object V136 = Cnil; |
{object V136 = Cnil; |
995 |
VMR23(V136)}}}} |
VMR23(V136)}}} |
996 |
|
va_end(ap); |
997 |
|
base[0]=base[0]; |
998 |
|
return Cnil;} |
999 |
} |
} |
1000 |
/* local entry for function PARSE-LOOP-DO */ |
/* local entry for function PARSE-LOOP-DO */ |
1001 |
|
|
1002 |
static object LI24() |
static object LI24() |
1003 |
|
|
1004 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
1005 |
|
goto TTL; |
1006 |
TTL:; |
TTL:; |
1007 |
{register object V137; |
{register object V137; |
1008 |
V137= Cnil; |
V137= Cnil; |
1009 |
{register object V138; |
{register object V138; |
1010 |
V138= (*(LnkLI255))(); |
V138= (*(LnkLI255))(); |
1011 |
|
goto T325; |
1012 |
T325:; |
T325:; |
1013 |
if(!(type_of((V138))==t_cons||((V138))==Cnil)){ |
if(!(type_of((V138))==t_cons||((V138))==Cnil)){ |
1014 |
goto T330;} |
goto T330;} |
1016 |
if(symbol_value(VV[34])!=Cnil){ |
if(symbol_value(VV[34])!=Cnil){ |
1017 |
goto T328;} |
goto T328;} |
1018 |
goto T322; |
goto T322; |
1019 |
|
goto T330; |
1020 |
T330:; |
T330:; |
1021 |
(void)((*(LnkLI266))()); |
(void)((*(LnkLI266))()); |
1022 |
goto T322; |
goto T322; |
1023 |
|
goto T328; |
1024 |
T328:; |
T328:; |
1025 |
V138= (*(LnkLI255))(); |
V138= (*(LnkLI255))(); |
1026 |
goto T325;} |
goto T325;} |
1027 |
|
goto T322; |
1028 |
T322:; |
T322:; |
1029 |
if((V137)!=Cnil){ |
if((V137)!=Cnil){ |
1030 |
goto T338;} |
goto T338;} |
1032 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1033 |
Lerror(); |
Lerror(); |
1034 |
vs_top=sup; |
vs_top=sup; |
1035 |
|
goto T338; |
1036 |
T338:; |
T338:; |
1037 |
{object V139 = (V137); |
{object V139 = (V137); |
1038 |
VMR24(V139)}} |
VMR24(V139)}} |
1039 |
|
base[0]=base[0]; |
1040 |
|
return Cnil; |
1041 |
} |
} |
1042 |
/* local entry for function PARSE-LOOP-INITIALLY */ |
/* local entry for function PARSE-LOOP-INITIALLY */ |
1043 |
|
|
1045 |
|
|
1046 |
object V141; |
object V141; |
1047 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
1048 |
|
goto TTL; |
1049 |
TTL:; |
TTL:; |
1050 |
{object V142; |
{object V142; |
1051 |
V142= (*(LnkLI13))((V141)); |
V142= (*(LnkLI13))((V141)); |
1057 |
register object V145; |
register object V145; |
1058 |
V144= nreverse((V143)); |
V144= nreverse((V143)); |
1059 |
V145= car((V144)); |
V145= car((V144)); |
1060 |
|
goto T348; |
1061 |
T348:; |
T348:; |
1062 |
if(!(endp((V144)))){ |
if(!(endp((V144)))){ |
1063 |
goto T349;} |
goto T349;} |
1064 |
{object V146 = Cnil; |
{object V146 = Cnil; |
1065 |
VMR25(V146)} |
VMR25(V146)} |
1066 |
|
goto T349; |
1067 |
T349:; |
T349:; |
1068 |
{register object V147; |
{register object V147; |
1069 |
if(type_of((V145))==t_cons||((V145))==Cnil){ |
if(type_of((V145))==t_cons||((V145))==Cnil){ |
1070 |
goto T355;} |
goto T355;} |
1071 |
V147= Cnil; |
V147= Cnil; |
1072 |
goto T354; |
goto T354; |
1073 |
|
goto T355; |
1074 |
T355:; |
T355:; |
1075 |
{register object x= car((V145)),V148= VV[98]; |
{register object x= car((V145)),V148= VV[98]; |
1076 |
while(!endp(V148)) |
while(!endp(V148)) |
1079 |
}else V148=V148->c.c_cdr;} |
}else V148=V148->c.c_cdr;} |
1080 |
V147= Cnil; |
V147= Cnil; |
1081 |
goto T354; |
goto T354; |
1082 |
|
goto T357; |
1083 |
T357:; |
T357:; |
1084 |
if((length((V145)))==(3)){ |
if((length((V145)))==(3)){ |
1085 |
goto T359;} |
goto T359;} |
1086 |
V147= Cnil; |
V147= Cnil; |
1087 |
goto T354; |
goto T354; |
1088 |
|
goto T359; |
1089 |
T359:; |
T359:; |
1090 |
if(type_of(cadr((V145)))==t_symbol){ |
if(type_of(cadr((V145)))==t_symbol){ |
1091 |
goto T361;} |
goto T361;} |
1092 |
V147= Cnil; |
V147= Cnil; |
1093 |
goto T354; |
goto T354; |
1094 |
|
goto T361; |
1095 |
T361:; |
T361:; |
1096 |
base[2]= caddr((V145)); |
base[2]= caddr((V145)); |
1097 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1101 |
goto T363;} |
goto T363;} |
1102 |
V147= Cnil; |
V147= Cnil; |
1103 |
goto T354; |
goto T354; |
1104 |
|
goto T363; |
1105 |
T363:; |
T363:; |
1106 |
{register object x= cadr((V145)),V149= caar(symbol_value(VV[46])); |
{register object x= cadr((V145)),V149= caar(symbol_value(VV[46])); |
1107 |
while(!endp(V149)) |
while(!endp(V149)) |
1110 |
}else V149=V149->c.c_cdr;} |
}else V149=V149->c.c_cdr;} |
1111 |
V147= Cnil; |
V147= Cnil; |
1112 |
goto T354; |
goto T354; |
1113 |
|
goto T366; |
1114 |
T366:; |
T366:; |
1115 |
V147= (VFUN_NARGS=7,(*(LnkLI267))(cadr((V145)),caddr((V145)),Cnil,Cnil,Cnil,Ct,Ct)); |
V147= (VFUN_NARGS=7,(*(LnkLI267))(cadr((V145)),caddr((V145)),Cnil,Cnil,Cnil,Ct,Ct)); |
1116 |
|
goto T354; |
1117 |
T354:; |
T354:; |
1118 |
if(((V147))==Cnil){ |
if(((V147))==Cnil){ |
1119 |
goto T369;} |
goto T369;} |
1120 |
goto T353; |
goto T353; |
1121 |
|
goto T369; |
1122 |
T369:; |
T369:; |
1123 |
setq(VV[48],make_cons((V145),symbol_value(VV[48])));} |
setq(VV[48],make_cons((V145),symbol_value(VV[48])));} |
1124 |
|
goto T353; |
1125 |
T353:; |
T353:; |
1126 |
V144= cdr((V144)); |
V144= cdr((V144)); |
1127 |
V145= car((V144)); |
V145= car((V144)); |
1128 |
goto T348;}} |
goto T348;}} |
1129 |
|
goto T342; |
1130 |
T342:; |
T342:; |
1131 |
if(((*(LnkLI9))((V142),VV[99]))==Cnil){ |
if(((*(LnkLI9))((V142),VV[99]))==Cnil){ |
1132 |
goto T378;} |
goto T378;} |
1134 |
setq(VV[43],append(/* INLINE-ARGS */V150,symbol_value(VV[43]))); |
setq(VV[43],append(/* INLINE-ARGS */V150,symbol_value(VV[43]))); |
1135 |
{object V151 = symbol_value(VV[43]); |
{object V151 = symbol_value(VV[43]); |
1136 |
VMR25(V151)} |
VMR25(V151)} |
1137 |
|
goto T378; |
1138 |
T378:; |
T378:; |
1139 |
base[0]= VV[85]; |
base[0]= VV[85]; |
1140 |
base[1]= (V142); |
base[1]= (V142); |
1143 |
vs_top=sup; |
vs_top=sup; |
1144 |
{object V152 = vs_base[0]; |
{object V152 = vs_base[0]; |
1145 |
VMR25(V152)}} |
VMR25(V152)}} |
1146 |
|
base[0]=base[0]; |
1147 |
|
return Cnil; |
1148 |
} |
} |
1149 |
/* local entry for function PARSE-ONE-WHEN-CLAUSE */ |
/* local entry for function PARSE-ONE-WHEN-CLAUSE */ |
1150 |
|
|
1151 |
static object LI26() |
static object LI26() |
1152 |
|
|
1153 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
1154 |
|
goto TTL; |
1155 |
TTL:; |
TTL:; |
1156 |
{register object V153; |
{register object V153; |
1157 |
register object V154; |
register object V154; |
1159 |
V153= Cnil; |
V153= Cnil; |
1160 |
V154= VV[100]; |
V154= VV[100]; |
1161 |
V155= Cnil; |
V155= Cnil; |
1162 |
|
goto T388; |
1163 |
T388:; |
T388:; |
1164 |
if((symbol_value(VV[34]))==Cnil){ |
if((symbol_value(VV[34]))==Cnil){ |
1165 |
goto T391;} |
goto T391;} |
1166 |
goto T390; |
goto T390; |
1167 |
|
goto T391; |
1168 |
T391:; |
T391:; |
1169 |
goto T386; |
goto T386; |
1170 |
|
goto T390; |
1171 |
T390:; |
T390:; |
1172 |
V155= (*(LnkLI255))(); |
V155= (*(LnkLI255))(); |
1173 |
{register object V156; |
{register object V156; |
1177 |
if(((V157))==Cnil){ |
if(((V157))==Cnil){ |
1178 |
goto T399;} |
goto T399;} |
1179 |
goto T395; |
goto T395; |
1180 |
|
goto T399; |
1181 |
T399:; |
T399:; |
1182 |
if(((*(LnkLI260))((V156)))==Cnil){ |
if(((*(LnkLI260))((V156)))==Cnil){ |
1183 |
goto T402;} |
goto T402;} |
1184 |
if(!(eql(VV[100],(V154)))){ |
if(!(eql(VV[100],(V154)))){ |
1185 |
goto T405;} |
goto T405;} |
1186 |
goto T404; |
goto T404; |
1187 |
|
goto T405; |
1188 |
T405:; |
T405:; |
1189 |
goto T389; |
goto T389; |
1190 |
|
goto T404; |
1191 |
T404:; |
T404:; |
1192 |
V158= (*(LnkLI261))(); |
V158= (*(LnkLI261))(); |
1193 |
V153= append(/* INLINE-ARGS */V158,(V153)); |
V153= append(/* INLINE-ARGS */V158,(V153)); |
1194 |
V154= VV[5]; |
V154= VV[5]; |
1195 |
goto T395; |
goto T395; |
1196 |
|
goto T402; |
1197 |
T402:; |
T402:; |
1198 |
if(((*(LnkLI9))((V156),VV[101]))==Cnil){ |
if(((*(LnkLI9))((V156),VV[101]))==Cnil){ |
1199 |
goto T411;} |
goto T411;} |
1200 |
if(!(eql(VV[100],(V154)))){ |
if(!(eql(VV[100],(V154)))){ |
1201 |
goto T414;} |
goto T414;} |
1202 |
goto T413; |
goto T413; |
1203 |
|
goto T414; |
1204 |
T414:; |
T414:; |
1205 |
goto T389; |
goto T389; |
1206 |
|
goto T413; |
1207 |
T413:; |
T413:; |
1208 |
V159= (*(LnkLI259))(); |
V159= (*(LnkLI259))(); |
1209 |
V153= append(/* INLINE-ARGS */V159,(V153)); |
V153= append(/* INLINE-ARGS */V159,(V153)); |
1210 |
V154= VV[5]; |
V154= VV[5]; |
1211 |
goto T395; |
goto T395; |
1212 |
|
goto T411; |
1213 |
T411:; |
T411:; |
1214 |
if(((*(LnkLI9))((V156),VV[56]))==Cnil){ |
if(((*(LnkLI9))((V156),VV[56]))==Cnil){ |
1215 |
goto T420;} |
goto T420;} |
1216 |
if(!(eql(VV[100],(V154)))){ |
if(!(eql(VV[100],(V154)))){ |
1217 |
goto T423;} |
goto T423;} |
1218 |
goto T422; |
goto T422; |
1219 |
|
goto T423; |
1220 |
T423:; |
T423:; |
1221 |
goto T389; |
goto T389; |
1222 |
|
goto T422; |
1223 |
T422:; |
T422:; |
1224 |
V160= (*(LnkLI258))(); |
V160= (*(LnkLI258))(); |
1225 |
V153= append(/* INLINE-ARGS */V160,(V153)); |
V153= append(/* INLINE-ARGS */V160,(V153)); |
1226 |
V154= VV[5]; |
V154= VV[5]; |
1227 |
goto T395; |
goto T395; |
1228 |
|
goto T420; |
1229 |
T420:; |
T420:; |
1230 |
if(((*(LnkLI9))((V156),VV[5]))==Cnil){ |
if(((*(LnkLI9))((V156),VV[5]))==Cnil){ |
1231 |
goto T429;} |
goto T429;} |
1232 |
if(!(eql(VV[5],(V154)))){ |
if(!(eql(VV[5],(V154)))){ |
1233 |
goto T432;} |
goto T432;} |
1234 |
goto T431; |
goto T431; |
1235 |
|
goto T432; |
1236 |
T432:; |
T432:; |
1237 |
base[0]= VV[102]; |
base[0]= VV[102]; |
1238 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1239 |
Lerror(); |
Lerror(); |
1240 |
vs_top=sup; |
vs_top=sup; |
1241 |
|
goto T431; |
1242 |
T431:; |
T431:; |
1243 |
V154= VV[100]; |
V154= VV[100]; |
1244 |
goto T395; |
goto T395; |
1245 |
|
goto T429; |
1246 |
T429:; |
T429:; |
1247 |
(void)((*(LnkLI266))()); |
(void)((*(LnkLI266))()); |
1248 |
goto T386;}} |
goto T386;}} |
1249 |
|
goto T395; |
1250 |
T395:; |
T395:; |
1251 |
goto T388; |
goto T388; |
1252 |
|
goto T389; |
1253 |
T389:; |
T389:; |
1254 |
(void)((*(LnkLI266))()); |
(void)((*(LnkLI266))()); |
1255 |
goto T386; |
goto T386; |
1256 |
|
goto T386; |
1257 |
T386:; |
T386:; |
1258 |
if((V153)!=Cnil){ |
if((V153)!=Cnil){ |
1259 |
goto T438;} |
goto T438;} |
1261 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1262 |
Lerror(); |
Lerror(); |
1263 |
vs_top=sup; |
vs_top=sup; |
1264 |
|
goto T438; |
1265 |
T438:; |
T438:; |
1266 |
{object V161 = (V153); |
{object V161 = (V153); |
1267 |
VMR26(V161)}} |
VMR26(V161)}} |
1268 |
|
base[0]=base[0]; |
1269 |
|
return Cnil; |
1270 |
} |
} |
1271 |
/* local entry for function PARSE-LOOP-WHEN */ |
/* local entry for function PARSE-LOOP-WHEN */ |
1272 |
|
|
1273 |
static object LI27() |
static object LI27() |
1274 |
|
|
1275 |
{ VMB27 VMS27 VMV27 |
{ VMB27 VMS27 VMV27 |
1276 |
|
goto TTL; |
1277 |
TTL:; |
TTL:; |
1278 |
{object V162; |
{object V162; |
1279 |
object V163; |
object V163; |
1286 |
goto T445;} |
goto T445;} |
1287 |
V165= list(2,VV[105],(*(LnkLI255))()); |
V165= list(2,VV[105],(*(LnkLI255))()); |
1288 |
goto T443; |
goto T443; |
1289 |
|
goto T445; |
1290 |
T445:; |
T445:; |
1291 |
V165= (*(LnkLI255))(); |
V165= (*(LnkLI255))(); |
1292 |
|
goto T443; |
1293 |
T443:; |
T443:; |
1294 |
V162= (*(LnkLI269))(); |
V162= (*(LnkLI269))(); |
1295 |
{object V166; |
{object V166; |
1300 |
(void)((*(LnkLI255))()); |
(void)((*(LnkLI255))()); |
1301 |
V163= Ct; |
V163= Ct; |
1302 |
V164= (*(LnkLI269))();} |
V164= (*(LnkLI269))();} |
1303 |
|
goto T449; |
1304 |
T449:; |
T449:; |
1305 |
V168= nreverse((V162)); |
V168= nreverse((V162)); |
1306 |
V169= make_cons((V165),/* INLINE-ARGS */V168); |
V169= make_cons((V165),/* INLINE-ARGS */V168); |
1310 |
V171= nreverse((V164)); |
V171= nreverse((V164)); |
1311 |
V172= make_cons(Ct,/* INLINE-ARGS */V171); |
V172= make_cons(Ct,/* INLINE-ARGS */V171); |
1312 |
V170= make_cons(/* INLINE-ARGS */V172,Cnil); |
V170= make_cons(/* INLINE-ARGS */V172,Cnil); |
1313 |
|
goto T457; |
1314 |
T457:; |
T457:; |
1315 |
V173= listA(3,VV[14],/* INLINE-ARGS */V169,V170); |
V173= listA(3,VV[14],/* INLINE-ARGS */V169,V170); |
1316 |
{object V174 = make_cons(/* INLINE-ARGS */V173,Cnil); |
{object V174 = make_cons(/* INLINE-ARGS */V173,Cnil); |
1317 |
VMR27(V174)}}} |
VMR27(V174)}}} |
1318 |
|
return Cnil; |
1319 |
} |
} |
1320 |
/* local entry for function POINTER-FOR-COLLECT */ |
/* local entry for function POINTER-FOR-COLLECT */ |
1321 |
|
|
1323 |
|
|
1324 |
object V176; |
object V176; |
1325 |
{ VMB28 VMS28 VMV28 |
{ VMB28 VMS28 VMV28 |
1326 |
|
goto TTL; |
1327 |
TTL:;{object V177; |
TTL:;{object V177; |
1328 |
{register object x= (V176),V179= symbol_value(VV[52]); |
{register object x= (V176),V179= symbol_value(VV[52]); |
1329 |
while(!endp(V179)) |
while(!endp(V179)) |
1332 |
goto T460; |
goto T460; |
1333 |
}else V179=V179->c.c_cdr; |
}else V179=V179->c.c_cdr; |
1334 |
V178= Cnil;} |
V178= Cnil;} |
1335 |
|
goto T460; |
1336 |
T460:; |
T460:; |
1337 |
V177= cdr(V178); |
V177= cdr(V178); |
1338 |
if(V177==Cnil)goto T458; |
if(V177==Cnil)goto T458; |
1339 |
{object V180 = V177; |
{object V180 = V177; |
1340 |
VMR28(V180)} |
VMR28(V180)} |
1341 |
|
goto T458; |
1342 |
T458:;} |
T458:;} |
1343 |
{object V181; |
{object V181; |
1344 |
base[0]= VV[107]; |
base[0]= VV[107]; |
1351 |
setq(VV[52],make_cons(/* INLINE-ARGS */V183,symbol_value(VV[52]))); |
setq(VV[52],make_cons(/* INLINE-ARGS */V183,symbol_value(VV[52]))); |
1352 |
{object V184 = (V181); |
{object V184 = (V181); |
1353 |
VMR28(V184)}} |
VMR28(V184)}} |
1354 |
|
base[0]=base[0]; |
1355 |
|
return Cnil; |
1356 |
} |
} |
1357 |
/* local entry for function PARSE-LOOP-COLLECT */ |
/* local entry for function PARSE-LOOP-COLLECT */ |
1358 |
|
|
1359 |
static object LI29() |
static object LI29() |
1360 |
|
|
1361 |
{ VMB29 VMS29 VMV29 |
{ VMB29 VMS29 VMV29 |
1362 |
|
goto TTL; |
1363 |
TTL:; |
TTL:; |
1364 |
{register object V185; |
{register object V185; |
1365 |
register object V186; |
register object V186; |
1375 |
base[0]= Cnil; |
base[0]= Cnil; |
1376 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1377 |
unwind(fr,VV[27]);} |
unwind(fr,VV[27]);} |
1378 |
|
goto T469; |
1379 |
T469:; |
T469:; |
1380 |
{register object V188; |
{register object V188; |
1381 |
register object V189; |
register object V189; |
1389 |
V185= (*(LnkLI255))(); |
V185= (*(LnkLI255))(); |
1390 |
(void)((VFUN_NARGS=6,(*(LnkLI267))((V185),Cnil,Cnil,Ct,Cnil,Ct))); |
(void)((VFUN_NARGS=6,(*(LnkLI267))((V185),Cnil,Cnil,Ct,Cnil,Ct))); |
1391 |
goto T473; |
goto T473; |
1392 |
|
goto T476; |
1393 |
T476:; |
T476:; |
1394 |
(void)((*(LnkLI266))()); |
(void)((*(LnkLI266))()); |
1395 |
if((symbol_value(VV[45]))==Cnil){ |
if((symbol_value(VV[45]))==Cnil){ |
1396 |
goto T481;} |
goto T481;} |
1397 |
V185= symbol_value(VV[45]); |
V185= symbol_value(VV[45]); |
1398 |
goto T473; |
goto T473; |
1399 |
|
goto T481; |
1400 |
T481:; |
T481:; |
1401 |
base[0]= VV[109]; |
base[0]= VV[109]; |
1402 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1405 |
V192= vs_base[0]; |
V192= vs_base[0]; |
1406 |
setq(VV[45],(VFUN_NARGS=2,(*(LnkLI267))(V192,Cnil))); |
setq(VV[45],(VFUN_NARGS=2,(*(LnkLI267))(V192,Cnil))); |
1407 |
V185= symbol_value(VV[45]);} |
V185= symbol_value(VV[45]);} |
1408 |
|
goto T473; |
1409 |
T473:; |
T473:; |
1410 |
{object V193; |
{object V193; |
1411 |
V193= (*(LnkLI13))((V188)); |
V193= (*(LnkLI13))((V188)); |
1422 |
Ladjoin(); |
Ladjoin(); |
1423 |
vs_top=sup; |
vs_top=sup; |
1424 |
setq(VV[48],vs_base[0]); |
setq(VV[48],vs_base[0]); |
1425 |
|
goto T494; |
1426 |
T494:; |
T494:; |
1427 |
{object V194; |
{object V194; |
1428 |
V194= (*(LnkLI13))((V188)); |
V194= (*(LnkLI13))((V188)); |
1432 |
goto T505;} |
goto T505;} |
1433 |
if(eql(car((V189)),VV[61])){ |
if(eql(car((V189)),VV[61])){ |
1434 |
goto T488;} |
goto T488;} |
1435 |
|
goto T505; |
1436 |
T505:; |
T505:; |
1437 |
V189= list(2,VV[115],(V189));}} |
V189= list(2,VV[115],(V189));}} |
1438 |
|
goto T488; |
1439 |
T488:; |
T488:; |
1440 |
if(!(type_of((V189))==t_cons||((V189))==Cnil)){ |
if(!(type_of((V189))==t_cons||((V189))==Cnil)){ |
1441 |
goto T512;} |
goto T512;} |
1448 |
V195= vs_base[0]; |
V195= vs_base[0]; |
1449 |
V187= (VFUN_NARGS=3,(*(LnkLI267))(V195,Cnil,Cnil)); |
V187= (VFUN_NARGS=3,(*(LnkLI267))(V195,Cnil,Cnil)); |
1450 |
goto T510; |
goto T510; |
1451 |
|
goto T512; |
1452 |
T512:; |
T512:; |
1453 |
V187= (V189); |
V187= (V189); |
1454 |
|
goto T510; |
1455 |
T510:; |
T510:; |
1456 |
{object V196; |
{object V196; |
1457 |
{object V197; |
{object V197; |
1465 |
goto T527;} |
goto T527;} |
1466 |
V196= make_cons((V198),Cnil); |
V196= make_cons((V198),Cnil); |
1467 |
goto T520; |
goto T520; |
1468 |
|
goto T527; |
1469 |
T527:; |
T527:; |
1470 |
V200= list(2,(V186),(V198)); |
V200= list(2,(V186),(V198)); |
1471 |
V201= list(3,VV[14],/* INLINE-ARGS */V200,list(2,Ct,list(3,VV[15],(V186),list(2,VV[118],list(3,VV[15],(V185),(V187)))))); |
V201= list(3,VV[14],/* INLINE-ARGS */V200,list(2,Ct,list(3,VV[15],(V186),list(2,VV[118],list(3,VV[15],(V185),(V187)))))); |
1472 |
V196= make_cons(/* INLINE-ARGS */V201,Cnil); |
V196= make_cons(/* INLINE-ARGS */V201,Cnil); |
1473 |
goto T520;} |
goto T520;} |
1474 |
|
goto T523; |
1475 |
T523:; |
T523:; |
1476 |
if(((*(LnkLI9))((V197),VV[27]))==Cnil){ |
if(((*(LnkLI9))((V197),VV[27]))==Cnil){ |
1477 |
goto T530;} |
goto T530;} |
1481 |
V203= list(3,VV[15],/* INLINE-ARGS */V202,list(3,VV[15],(V186),list(3,VV[119],(V187),Cnil))); |
V203= list(3,VV[15],/* INLINE-ARGS */V202,list(3,VV[15],(V186),list(3,VV[119],(V187),Cnil))); |
1482 |
V196= make_cons(/* INLINE-ARGS */V203,Cnil); |
V196= make_cons(/* INLINE-ARGS */V203,Cnil); |
1483 |
goto T520; |
goto T520; |
1484 |
|
goto T533; |
1485 |
T533:; |
T533:; |
1486 |
V204= list(2,VV[18],(V186)); |
V204= list(2,VV[18],(V186)); |
1487 |
V205= list(2,(V186),list(3,VV[15],/* INLINE-ARGS */V204,list(3,VV[15],(V186),list(3,VV[119],(V187),Cnil)))); |
V205= list(2,(V186),list(3,VV[15],/* INLINE-ARGS */V204,list(3,VV[15],(V186),list(3,VV[119],(V187),Cnil)))); |
1488 |
V206= list(3,VV[14],/* INLINE-ARGS */V205,list(2,Ct,list(3,VV[15],(V185),list(3,VV[15],(V186),list(3,VV[119],(V187),Cnil))))); |
V206= list(3,VV[14],/* INLINE-ARGS */V205,list(2,Ct,list(3,VV[15],(V185),list(3,VV[15],(V186),list(3,VV[119],(V187),Cnil))))); |
1489 |
V196= make_cons(/* INLINE-ARGS */V206,Cnil); |
V196= make_cons(/* INLINE-ARGS */V206,Cnil); |
1490 |
goto T520; |
goto T520; |
1491 |
|
goto T530; |
1492 |
T530:; |
T530:; |
1493 |
V188= (*(LnkLI13))((V188)); |
V188= (*(LnkLI13))((V188)); |
1494 |
if(((VFUN_NARGS=4,(*(LnkLI249))((V188),symbol_value(VV[28]),VV[30],VV[9])))==Cnil){ |
if(((VFUN_NARGS=4,(*(LnkLI249))((V188),symbol_value(VV[28]),VV[30],VV[9])))==Cnil){ |
1495 |
goto T538;} |
goto T538;} |
1496 |
V196= (*(LnkLI271))((V188),(V185),(V187)); |
V196= (*(LnkLI271))((V188),(V185),(V187)); |
1497 |
goto T520; |
goto T520; |
1498 |
|
goto T538; |
1499 |
T538:; |
T538:; |
1500 |
base[0]= VV[120]; |
base[0]= VV[120]; |
1501 |
base[1]= (V188); |
base[1]= (V188); |
1503 |
Lerror(); |
Lerror(); |
1504 |
vs_top=sup; |
vs_top=sup; |
1505 |
V196= vs_base[0];} |
V196= vs_base[0];} |
1506 |
|
goto T520; |
1507 |
T520:; |
T520:; |
1508 |
if(!(eql((V187),(V189)))){ |
if(!(eql((V187),(V189)))){ |
1509 |
goto T543;} |
goto T543;} |
1510 |
{object V207 = (V196); |
{object V207 = (V196); |
1511 |
VMR29(V207)} |
VMR29(V207)} |
1512 |
|
goto T543; |
1513 |
T543:; |
T543:; |
1514 |
V208= list(3,VV[15],(V187),(V189)); |
V208= list(3,VV[15],(V187),(V189)); |
1515 |
V209= make_cons(/* INLINE-ARGS */V208,Cnil); |
V209= make_cons(/* INLINE-ARGS */V208,Cnil); |
1516 |
{object V210 = nconc((V196),/* INLINE-ARGS */V209); |
{object V210 = nconc((V196),/* INLINE-ARGS */V209); |
1517 |
VMR29(V210)}}}} |
VMR29(V210)}}}} |
1518 |
|
base[0]=base[0]; |
1519 |
|
return Cnil; |
1520 |
} |
} |
1521 |
/* local entry for function LOOP-PARSE-ADDITIONAL-COLLECTIONS */ |
/* local entry for function LOOP-PARSE-ADDITIONAL-COLLECTIONS */ |
1522 |
|
|
1525 |
object V214;object V215;object V216; |
object V214;object V215;object V216; |
1526 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
1527 |
bds_check; |
bds_check; |
1528 |
|
goto TTL; |
1529 |
TTL:; |
TTL:; |
1530 |
{register object V217; |
{register object V217; |
1531 |
V217= Cnil; |
V217= Cnil; |
1541 |
bds_bind(VV[35],Cnil); |
bds_bind(VV[35],Cnil); |
1542 |
{register object V221; |
{register object V221; |
1543 |
V221= (*(LnkLI255))(); |
V221= (*(LnkLI255))(); |
1544 |
|
goto T552; |
1545 |
T552:; |
T552:; |
1546 |
if(((VV[34]->s.s_dbind))!=Cnil){ |
if(((VV[34]->s.s_dbind))!=Cnil){ |
1547 |
goto T553;} |
goto T553;} |
1548 |
goto T549; |
goto T549; |
1549 |
|
goto T553; |
1550 |
T553:; |
T553:; |
1551 |
{register object V222; |
{register object V222; |
1552 |
V222= (*(LnkLI13))((V221)); |
V222= (*(LnkLI13))((V221)); |
1555 |
if(((V223))==Cnil){ |
if(((V223))==Cnil){ |
1556 |
goto T561;} |
goto T561;} |
1557 |
goto T557; |
goto T557; |
1558 |
|
goto T561; |
1559 |
T561:; |
T561:; |
1560 |
if(((*(LnkLI9))((V222),VV[56]))==Cnil){ |
if(((*(LnkLI9))((V222),VV[56]))==Cnil){ |
1561 |
goto T564;} |
goto T564;} |
1562 |
V217= (*(LnkLI258))(); |
V217= (*(LnkLI258))(); |
1563 |
goto T557; |
goto T557; |
1564 |
|
goto T564; |
1565 |
T564:; |
T564:; |
1566 |
base[4]= VV[85]; |
base[4]= VV[85]; |
1567 |
base[5]= (V222); |
base[5]= (V222); |
1568 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1569 |
Lerror(); |
Lerror(); |
1570 |
vs_top=sup;}} |
vs_top=sup;}} |
1571 |
|
goto T557; |
1572 |
T557:; |
T557:; |
1573 |
V221= (*(LnkLI255))(); |
V221= (*(LnkLI255))(); |
1574 |
goto T552;} |
goto T552;} |
1575 |
|
goto T549; |
1576 |
T549:; |
T549:; |
1577 |
{object V224 = (V217); |
{object V224 = (V217); |
1578 |
bds_unwind1; |
bds_unwind1; |
1579 |
bds_unwind1; |
bds_unwind1; |
1580 |
VMR30(V224)}}}} |
VMR30(V224)}}}} |
1581 |
|
base[0]=base[0]; |
1582 |
|
return Cnil; |
1583 |
} |
} |
1584 |
/* local entry for function THE-TYPE */ |
/* local entry for function THE-TYPE */ |
1585 |
|
|
1587 |
|
|
1588 |
object V227;register object V228; |
object V227;register object V228; |
1589 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
1590 |
|
goto TTL; |
1591 |
TTL:; |
TTL:; |
1592 |
if(symbol_value(VV[47])==Cnil){ |
if(symbol_value(VV[47])==Cnil){ |
1593 |
goto T572;} |
goto T572;} |
1594 |
V228= Cnil; |
V228= Cnil; |
1595 |
|
goto T572; |
1596 |
T572:; |
T572:; |
1597 |
if((V228)==Cnil){ |
if((V228)==Cnil){ |
1598 |
goto T574;}{object V229; |
goto T574;}{object V229; |
1605 |
if(V229==Cnil)goto T576; |
if(V229==Cnil)goto T576; |
1606 |
V228= V229; |
V228= V229; |
1607 |
goto T575; |
goto T575; |
1608 |
|
goto T576; |
1609 |
T576:;} |
T576:;} |
1610 |
if((((type_of((V228))==t_symbol&&((V228))->s.s_hpack==keyword_package)?Ct:Cnil))==Cnil){ |
if((((type_of((V228))==t_symbol&&((V228))->s.s_hpack==keyword_package)?Ct:Cnil))==Cnil){ |
1611 |
goto T580;} |
goto T580;} |
1612 |
V228= Cnil; |
V228= Cnil; |
1613 |
goto T575; |
goto T575; |
1614 |
|
goto T580; |
1615 |
T580:; |
T580:; |
1616 |
|
goto T575; |
1617 |
T575:; |
T575:; |
1618 |
|
goto T574; |
1619 |
T574:; |
T574:; |
1620 |
if(type_of((V228))==t_cons){ |
if(type_of((V228))==t_cons){ |
1621 |
goto T583;} |
goto T583;} |
1622 |
goto T582; |
goto T582; |
1623 |
|
goto T583; |
1624 |
T583:; |
T583:; |
1625 |
if((car((V228)))==(VV[122])){ |
if((car((V228)))==(VV[122])){ |
1626 |
goto T585;} |
goto T585;} |
1627 |
goto T582; |
goto T582; |
1628 |
|
goto T585; |
1629 |
T585:; |
T585:; |
1630 |
V228= cadr((V228)); |
V228= cadr((V228)); |
1631 |
|
goto T582; |
1632 |
T582:; |
T582:; |
1633 |
if(((V228))==Cnil){ |
if(((V228))==Cnil){ |
1634 |
goto T589;} |
goto T589;} |
1635 |
{object V230 = list(3,VV[123],(V228),(V227)); |
{object V230 = list(3,VV[123],(V228),(V227)); |
1636 |
VMR31(V230)} |
VMR31(V230)} |
1637 |
|
goto T589; |
1638 |
T589:; |
T589:; |
1639 |
{object V231 = (V227); |
{object V231 = (V227); |
1640 |
VMR31(V231)} |
VMR31(V231)} |
1641 |
|
base[0]=base[0]; |
1642 |
|
return Cnil; |
1643 |
} |
} |
1644 |
/* local entry for function TYPE-ERROR */ |
/* local entry for function TYPE-ERROR */ |
1645 |
|
|
1646 |
static object LI32() |
static object LI32() |
1647 |
|
|
1648 |
{ VMB32 VMS32 VMV32 |
{ VMB32 VMS32 VMV32 |
1649 |
|
goto TTL; |
1650 |
TTL:; |
TTL:; |
1651 |
base[0]= VV[124]; |
base[0]= VV[124]; |
1652 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1654 |
vs_top=sup; |
vs_top=sup; |
1655 |
{object V232 = vs_base[0]; |
{object V232 = vs_base[0]; |
1656 |
VMR32(V232)} |
VMR32(V232)} |
1657 |
|
base[0]=base[0]; |
1658 |
|
return Cnil; |
1659 |
} |
} |
1660 |
/* local entry for function MAKE-VALUE */ |
/* local entry for function MAKE-VALUE */ |
1661 |
|
|
1663 |
|
|
1664 |
register object V235;object V236; |
register object V235;object V236; |
1665 |
{ VMB33 VMS33 VMV33 |
{ VMB33 VMS33 VMV33 |
1666 |
|
goto TTL; |
1667 |
TTL:; |
TTL:; |
1668 |
{register object V237; |
{register object V237; |
1669 |
V237= Cnil; |
V237= Cnil; |
1687 |
goto T608;} |
goto T608;} |
1688 |
V237= cadr((V237)); |
V237= cadr((V237)); |
1689 |
goto T606; |
goto T606; |
1690 |
|
goto T608; |
1691 |
T608:; |
T608:; |
1692 |
|
goto T606; |
1693 |
T606:; |
T606:; |
1694 |
base[0]= (V235); |
base[0]= (V235); |
1695 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1712 |
vs_top=sup; |
vs_top=sup; |
1713 |
V238= vs_base[0]; |
V238= vs_base[0]; |
1714 |
goto T616; |
goto T616; |
1715 |
|
goto T618; |
1716 |
T618:; |
T618:; |
1717 |
base[0]= (V235); |
base[0]= (V235); |
1718 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1719 |
Leval(); |
Leval(); |
1720 |
vs_top=sup; |
vs_top=sup; |
1721 |
V238= vs_base[0]; |
V238= vs_base[0]; |
1722 |
|
goto T616; |
1723 |
T616:;{object V239; |
T616:;{object V239; |
1724 |
base[0]= (V238); |
base[0]= (V238); |
1725 |
base[1]= (V237); |
base[1]= (V237); |
1729 |
V239= vs_base[0]; |
V239= vs_base[0]; |
1730 |
if(V239==Cnil)goto T626; |
if(V239==Cnil)goto T626; |
1731 |
goto T625; |
goto T625; |
1732 |
|
goto T626; |
1733 |
T626:;} |
T626:;} |
1734 |
base[0]= VV[128]; |
base[0]= VV[128]; |
1735 |
base[1]= (V235); |
base[1]= (V235); |
1737 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1738 |
Lerror(); |
Lerror(); |
1739 |
vs_top=sup; |
vs_top=sup; |
1740 |
|
goto T625; |
1741 |
T625:; |
T625:; |
1742 |
{object V240 = make_cons((V235),Cnil); |
{object V240 = make_cons((V235),Cnil); |
1743 |
VMR33(V240)}} |
VMR33(V240)}} |
1744 |
|
goto T613; |
1745 |
T613:; |
T613:; |
1746 |
{register object V241; |
{register object V241; |
1747 |
V241= Cnil; |
V241= Cnil; |
1749 |
goto T635;} |
goto T635;} |
1750 |
V242= Cnil; |
V242= Cnil; |
1751 |
goto T633; |
goto T633; |
1752 |
|
goto T635; |
1753 |
T635:; |
T635:; |
1754 |
vs_base=vs_top; |
vs_base=vs_top; |
1755 |
Lgensym(); |
Lgensym(); |
1757 |
V241= vs_base[0]; |
V241= vs_base[0]; |
1758 |
V243= list(2,(V241),(V235)); |
V243= list(2,(V241),(V235)); |
1759 |
V242= make_cons(/* INLINE-ARGS */V243,Cnil); |
V242= make_cons(/* INLINE-ARGS */V243,Cnil); |
1760 |
|
goto T633; |
1761 |
T633:; |
T633:; |
1762 |
if((symbol_value(VV[39]))==Cnil){ |
if((symbol_value(VV[39]))==Cnil){ |
1763 |
goto T640;} |
goto T640;} |
1765 |
base[0]= (V241); |
base[0]= (V241); |
1766 |
goto T642;} |
goto T642;} |
1767 |
base[0]= (V235); |
base[0]= (V235); |
1768 |
|
goto T642; |
1769 |
T642:; |
T642:; |
1770 |
base[1]= VV[127]; |
base[1]= VV[127]; |
1771 |
base[2]= symbol_value(VV[39]); |
base[2]= symbol_value(VV[39]); |
1774 |
vs_top=sup; |
vs_top=sup; |
1775 |
V244= vs_base[0]; |
V244= vs_base[0]; |
1776 |
goto T638; |
goto T638; |
1777 |
|
goto T640; |
1778 |
T640:; |
T640:; |
1779 |
if((V241)!=Cnil){ |
if((V241)!=Cnil){ |
1780 |
V244= (V241); |
V244= (V241); |
1781 |
goto T638;} |
goto T638;} |
1782 |
V244= (V235); |
V244= (V235); |
1783 |
|
goto T638; |
1784 |
T638:; |
T638:; |
1785 |
V245= list(3,VV[80],list(3,VV[129],V244,list(2,VV[10],(V237))),VV[130]); |
V245= list(3,VV[80],list(3,VV[129],V244,list(2,VV[10],(V237))),VV[130]); |
1786 |
if((V241)!=Cnil){ |
if((V241)!=Cnil){ |
1787 |
V246= (V241); |
V246= (V241); |
1788 |
goto T645;} |
goto T645;} |
1789 |
V246= (V235); |
V246= (V235); |
1790 |
|
goto T645; |
1791 |
T645:; |
T645:; |
1792 |
V247= list(4,VV[12],V242,/* INLINE-ARGS */V245,V246); |
V247= list(4,VV[12],V242,/* INLINE-ARGS */V245,V246); |
1793 |
{object V248 = make_cons(/* INLINE-ARGS */V247,Cnil); |
{object V248 = make_cons(/* INLINE-ARGS */V247,Cnil); |
1794 |
VMR33(V248)}} |
VMR33(V248)}} |
1795 |
|
goto T594; |
1796 |
T594:; |
T594:; |
1797 |
{object V249 = make_cons((V235),Cnil); |
{object V249 = make_cons((V235),Cnil); |
1798 |
VMR33(V249)}} |
VMR33(V249)}} |
1799 |
|
base[0]=base[0]; |
1800 |
|
return Cnil; |
1801 |
} |
} |
1802 |
/* local entry for function LOOP-ADD-BINDING */ |
/* local entry for function LOOP-ADD-BINDING */ |
1803 |
|
|
1814 |
object V256; |
object V256; |
1815 |
object V257; |
object V257; |
1816 |
object V258; |
object V258; |
1817 |
|
Vcs[0]=Vcs[0]; |
1818 |
|
va_start(ap); |
1819 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
1820 |
V252= V251; |
V252= V251; |
1821 |
V253= V250; |
V253= V250; |
1822 |
narg = narg - 2; |
narg = narg - 2; |
1823 |
if (narg <= 0) goto T646; |
if (narg <= 0) goto T646; |
1824 |
else { |
else { |
|
va_start(ap); |
|
1825 |
V254= va_arg(ap,object);} |
V254= va_arg(ap,object);} |
1826 |
if (--narg <= 0) goto T647; |
if (--narg <= 0) goto T647; |
1827 |
else { |
else { |
1836 |
else { |
else { |
1837 |
V258= va_arg(ap,object);} |
V258= va_arg(ap,object);} |
1838 |
--narg; goto T651; |
--narg; goto T651; |
1839 |
|
goto T646; |
1840 |
T646:; |
T646:; |
1841 |
V254= Ct; |
V254= Ct; |
1842 |
|
goto T647; |
1843 |
T647:; |
T647:; |
1844 |
V255= Cnil; |
V255= Cnil; |
1845 |
|
goto T648; |
1846 |
T648:; |
T648:; |
1847 |
V256= Cnil; |
V256= Cnil; |
1848 |
|
goto T649; |
1849 |
T649:; |
T649:; |
1850 |
V257= Ct; |
V257= Ct; |
1851 |
|
goto T650; |
1852 |
T650:; |
T650:; |
1853 |
V258= Cnil; |
V258= Cnil; |
1854 |
|
goto T651; |
1855 |
T651:; |
T651:; |
1856 |
{register object V259; |
{register object V259; |
1857 |
V259= Cnil; |
V259= Cnil; |
1859 |
goto T659;} |
goto T659;} |
1860 |
if((symbol_value(VV[46]))!=Cnil){ |
if((symbol_value(VV[46]))!=Cnil){ |
1861 |
goto T658;} |
goto T658;} |
1862 |
|
goto T659; |
1863 |
T659:; |
T659:; |
1864 |
V260= make_cons(Cnil,Cnil); |
V260= make_cons(Cnil,Cnil); |
1865 |
setq(VV[46],make_cons(/* INLINE-ARGS */V260,symbol_value(VV[46]))); |
setq(VV[46],make_cons(/* INLINE-ARGS */V260,symbol_value(VV[46]))); |
1866 |
|
goto T658; |
1867 |
T658:; |
T658:; |
1868 |
{register object x= (V252),V261= caar(symbol_value(VV[46])); |
{register object x= (V252),V261= caar(symbol_value(VV[46])); |
1869 |
while(!endp(V261)) |
while(!endp(V261)) |
1872 |
goto T668; |
goto T668; |
1873 |
}else V261=V261->c.c_cdr; |
}else V261=V261->c.c_cdr; |
1874 |
V259= Cnil;} |
V259= Cnil;} |
1875 |
|
goto T668; |
1876 |
T668:; |
T668:; |
1877 |
if(((V259))==Cnil){ |
if(((V259))==Cnil){ |
1878 |
goto T666;} |
goto T666;} |
1883 |
V263= Cnil; |
V263= Cnil; |
1884 |
goto T669;} |
goto T669;} |
1885 |
V263= (*(LnkLI272))((V253),(V255)); |
V263= (*(LnkLI272))((V253),(V255)); |
1886 |
|
goto T669; |
1887 |
T669:; |
T669:; |
1888 |
if(type_of(V259)!=t_cons)FEwrong_type_argument(Scons,V259); |
if(type_of(V259)!=t_cons)FEwrong_type_argument(Scons,V259); |
1889 |
(V259)->c.c_cdr = (V263); |
(V259)->c.c_cdr = (V263); |
1890 |
goto T664;} |
goto T664;} |
1891 |
|
goto T666; |
1892 |
T666:; |
T666:; |
1893 |
{object V264; |
{object V264; |
1894 |
if((V258)!=Cnil){ |
if((V258)!=Cnil){ |
1903 |
if((V265)==Cnil){ |
if((V265)==Cnil){ |
1904 |
goto T674;} |
goto T674;} |
1905 |
goto T673; |
goto T673; |
1906 |
|
goto T674; |
1907 |
T674:; |
T674:; |
1908 |
base[0]= (V253); |
base[0]= (V253); |
1909 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1911 |
vs_top=sup; |
vs_top=sup; |
1912 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1913 |
goto T672;} |
goto T672;} |
1914 |
|
goto T673; |
1915 |
T673:; |
T673:; |
1916 |
V264= Cnil; |
V264= Cnil; |
1917 |
goto T671; |
goto T671; |
1918 |
|
goto T672; |
1919 |
T672:; |
T672:; |
1920 |
{register object V266; |
{register object V266; |
1921 |
register object V267; |
register object V267; |
1922 |
V266= cdr(symbol_value(VV[46])); |
V266= cdr(symbol_value(VV[46])); |
1923 |
V267= car((V266)); |
V267= car((V266)); |
1924 |
|
goto T682; |
1925 |
T682:; |
T682:; |
1926 |
if(!(endp((V266)))){ |
if(!(endp((V266)))){ |
1927 |
goto T683;} |
goto T683;} |
1928 |
V264= Cnil; |
V264= Cnil; |
1929 |
goto T671; |
goto T671; |
1930 |
|
goto T683; |
1931 |
T683:; |
T683:; |
1932 |
{register object x= (V252),V268= car((V267)); |
{register object x= (V252),V268= car((V267)); |
1933 |
while(!endp(V268)) |
while(!endp(V268)) |
1936 |
goto T690; |
goto T690; |
1937 |
}else V268=V268->c.c_cdr; |
}else V268=V268->c.c_cdr; |
1938 |
V259= Cnil;} |
V259= Cnil;} |
1939 |
|
goto T690; |
1940 |
T690:; |
T690:; |
1941 |
if(((V259))==Cnil){ |
if(((V259))==Cnil){ |
1942 |
goto T687;} |
goto T687;} |
1949 |
V270= Cnil; |
V270= Cnil; |
1950 |
goto T693;} |
goto T693;} |
1951 |
V270= (*(LnkLI272))((V253),(V255)); |
V270= (*(LnkLI272))((V253),(V255)); |
1952 |
|
goto T693; |
1953 |
T693:; |
T693:; |
1954 |
if(type_of((V269))!=t_cons)FEwrong_type_argument(Scons,(V269)); |
if(type_of((V269))!=t_cons)FEwrong_type_argument(Scons,(V269)); |
1955 |
((V269))->c.c_cdr = (V270);} |
((V269))->c.c_cdr = (V270);} |
1956 |
|
goto T691; |
1957 |
T691:; |
T691:; |
1958 |
V264= Ct; |
V264= Ct; |
1959 |
goto T671; |
goto T671; |
1960 |
|
goto T687; |
1961 |
T687:; |
T687:; |
1962 |
V266= cdr((V266)); |
V266= cdr((V266)); |
1963 |
V267= car((V266)); |
V267= car((V266)); |
1964 |
goto T682;} |
goto T682;} |
1965 |
|
goto T671; |
1966 |
T671:; |
T671:; |
1967 |
if(((V264))==Cnil){ |
if(((V264))==Cnil){ |
1968 |
goto T701;} |
goto T701;} |
1969 |
goto T664; |
goto T664; |
1970 |
|
goto T701; |
1971 |
T701:; |
T701:; |
1972 |
{object V271; |
{object V271; |
1973 |
object V272; |
object V272; |
1976 |
V273= Cnil; |
V273= Cnil; |
1977 |
goto T705;} |
goto T705;} |
1978 |
V273= (*(LnkLI272))((V253),(V255)); |
V273= (*(LnkLI272))((V253),(V255)); |
1979 |
|
goto T705; |
1980 |
T705:; |
T705:; |
1981 |
V274= make_cons((V252),V273); |
V274= make_cons((V252),V273); |
1982 |
V272= make_cons(/* INLINE-ARGS */V274,caar((V271))); |
V272= make_cons(/* INLINE-ARGS */V274,caar((V271))); |
1983 |
if(type_of(car((V271)))!=t_cons)FEwrong_type_argument(Scons,car((V271))); |
if(type_of(car((V271)))!=t_cons)FEwrong_type_argument(Scons,car((V271))); |
1984 |
(car((V271)))->c.c_car = (V272); |
(car((V271)))->c.c_car = (V272); |
1985 |
(void)(car((V271)));}} |
(void)(car((V271)));}} |
1986 |
|
goto T664; |
1987 |
T664:; |
T664:; |
1988 |
if((V255)==Cnil){ |
if((V255)==Cnil){ |
1989 |
goto T707;} |
goto T707;} |
1990 |
(void)((VFUN_NARGS=3,(*(LnkLI273))((V252),(V255),(V256)))); |
(void)((VFUN_NARGS=3,(*(LnkLI273))((V252),(V255),(V256)))); |
1991 |
|
goto T707; |
1992 |
T707:; |
T707:; |
1993 |
{object V275 = (V252); |
{object V275 = (V252); |
1994 |
VMR34(V275)}}} |
VMR34(V275)}} |
1995 |
|
va_end(ap); |
1996 |
|
base[0]=base[0]; |
1997 |
|
return Cnil;} |
1998 |
} |
} |
1999 |
/* local entry for function LOOP-DECLARE-BINDING */ |
/* local entry for function LOOP-DECLARE-BINDING */ |
2000 |
|
|
2008 |
register object V280; |
register object V280; |
2009 |
object V281; |
object V281; |
2010 |
object V282; |
object V282; |
2011 |
|
Vcs[0]=Vcs[0]; |
2012 |
|
va_start(ap); |
2013 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
2014 |
V279= V278; |
V279= V278; |
2015 |
V280= V277; |
V280= V277; |
2017 |
narg = narg - 3; |
narg = narg - 3; |
2018 |
if (narg <= 0) goto T708; |
if (narg <= 0) goto T708; |
2019 |
else { |
else { |
|
va_start(ap); |
|
2020 |
V282= va_arg(ap,object);} |
V282= va_arg(ap,object);} |
2021 |
--narg; goto T709; |
--narg; goto T709; |
2022 |
|
goto T708; |
2023 |
T708:; |
T708:; |
2024 |
V282= Cnil; |
V282= Cnil; |
2025 |
|
goto T709; |
2026 |
T709:; |
T709:; |
2027 |
{object V283; |
{object V283; |
2028 |
V283= Cnil; |
V283= Cnil; |
2034 |
goto T714; |
goto T714; |
2035 |
}else V284=V284->c.c_cdr;} |
}else V284=V284->c.c_cdr;} |
2036 |
goto T713; |
goto T713; |
2037 |
|
goto T714; |
2038 |
T714:; |
T714:; |
2039 |
base[0]= symbol_value(VV[54]); |
base[0]= symbol_value(VV[54]); |
2040 |
base[1]= (V280); |
base[1]= (V280); |
2045 |
if(((V280))!=Cnil){ |
if(((V280))!=Cnil){ |
2046 |
goto T716;} |
goto T716;} |
2047 |
goto T713; |
goto T713; |
2048 |
|
goto T716; |
2049 |
T716:; |
T716:; |
2050 |
if(symbol_value(VV[132])==Cnil){ |
if(symbol_value(VV[132])==Cnil){ |
2051 |
goto T713;} |
goto T713;} |
2052 |
(void)((VFUN_NARGS=3,(*(LnkLI273))((V279),VV[133],(V281)))); |
(void)((VFUN_NARGS=3,(*(LnkLI273))((V279),VV[133],(V281)))); |
2053 |
|
goto T713; |
2054 |
T713:; |
T713:; |
2055 |
if(((V280))==Cnil){ |
if(((V280))==Cnil){ |
2056 |
goto T721;} |
goto T721;} |
2058 |
goto T722;} |
goto T722;} |
2059 |
if((symbol_value(VV[47]))!=Cnil){ |
if((symbol_value(VV[47]))!=Cnil){ |
2060 |
goto T721;} |
goto T721;} |
2061 |
|
goto T722; |
2062 |
T722:; |
T722:; |
2063 |
{register object V285; |
{register object V285; |
2064 |
register object V286; |
register object V286; |
2065 |
V285= symbol_value(VV[46]); |
V285= symbol_value(VV[46]); |
2066 |
V286= car((V285)); |
V286= car((V285)); |
2067 |
|
goto T732; |
2068 |
T732:; |
T732:; |
2069 |
if(!(endp((V285)))){ |
if(!(endp((V285)))){ |
2070 |
goto T733;} |
goto T733;} |
2071 |
goto T728; |
goto T728; |
2072 |
|
goto T733; |
2073 |
T733:; |
T733:; |
2074 |
{register object x= (V279),V287= car((V286)); |
{register object x= (V279),V287= car((V286)); |
2075 |
while(!endp(V287)) |
while(!endp(V287)) |
2077 |
goto T739; |
goto T739; |
2078 |
}else V287=V287->c.c_cdr; |
}else V287=V287->c.c_cdr; |
2079 |
goto T737;} |
goto T737;} |
2080 |
|
goto T739; |
2081 |
T739:; |
T739:; |
2082 |
V283= Ct; |
V283= Ct; |
2083 |
{register object V288; |
{register object V288; |
2089 |
goto T747;} |
goto T747;} |
2090 |
base[2]= list(3,VV[122],cadr((V280)),(V279)); |
base[2]= list(3,VV[122],cadr((V280)),(V279)); |
2091 |
goto T745; |
goto T745; |
2092 |
|
goto T747; |
2093 |
T747:; |
T747:; |
2094 |
if(((V282))==Cnil){ |
if(((V282))==Cnil){ |
2095 |
goto T752;} |
goto T752;} |
2096 |
base[2]= list(3,VV[122],(V280),(V279)); |
base[2]= list(3,VV[122],(V280),(V279)); |
2097 |
goto T745; |
goto T745; |
2098 |
|
goto T752; |
2099 |
T752:; |
T752:; |
2100 |
base[2]= list(2,(V280),(V279)); |
base[2]= list(2,(V280),(V279)); |
2101 |
|
goto T745; |
2102 |
T745:; |
T745:; |
2103 |
base[3]= cdr((V288)); |
base[3]= cdr((V288)); |
2104 |
base[4]= VV[30]; |
base[4]= VV[30]; |
2110 |
if(type_of((V288))!=t_cons)FEwrong_type_argument(Scons,(V288)); |
if(type_of((V288))!=t_cons)FEwrong_type_argument(Scons,(V288)); |
2111 |
((V288))->c.c_cdr = (V289);} |
((V288))->c.c_cdr = (V289);} |
2112 |
goto T728; |
goto T728; |
2113 |
|
goto T737; |
2114 |
T737:; |
T737:; |
2115 |
V285= cdr((V285)); |
V285= cdr((V285)); |
2116 |
V286= car((V285)); |
V286= car((V285)); |
2117 |
goto T732;} |
goto T732;} |
2118 |
|
goto T728; |
2119 |
T728:; |
T728:; |
2120 |
if((V283)!=Cnil){ |
if((V283)!=Cnil){ |
2121 |
goto T721;} |
goto T721;} |
2126 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2127 |
Lerror(); |
Lerror(); |
2128 |
vs_top=sup; |
vs_top=sup; |
2129 |
|
goto T721; |
2130 |
T721:; |
T721:; |
2131 |
{object V290 = (V279); |
{object V290 = (V279); |
2132 |
VMR35(V290)}}} |
VMR35(V290)}} |
2133 |
|
va_end(ap); |
2134 |
|
base[0]=base[0]; |
2135 |
|
return Cnil;} |
2136 |
} |
} |
2137 |
/* local entry for function PARSE-LOOP-DECLARE */ |
/* local entry for function PARSE-LOOP-DECLARE */ |
2138 |
|
|
2143 |
int narg = VFUN_NARGS; VMB36 VMS36 VMV36 |
int narg = VFUN_NARGS; VMB36 VMS36 VMV36 |
2144 |
{register object V291; |
{register object V291; |
2145 |
register object V292; |
register object V292; |
2146 |
|
Vcs[0]=Vcs[0]; |
2147 |
|
va_start(ap); |
2148 |
narg = narg - 0; |
narg = narg - 0; |
2149 |
if (narg <= 0) goto T765; |
if (narg <= 0) goto T765; |
2150 |
else { |
else { |
|
va_start(ap); |
|
2151 |
V291= va_arg(ap,object);} |
V291= va_arg(ap,object);} |
2152 |
if (--narg <= 0) goto T766; |
if (--narg <= 0) goto T766; |
2153 |
else { |
else { |
2154 |
V292= va_arg(ap,object);} |
V292= va_arg(ap,object);} |
2155 |
--narg; goto T767; |
--narg; goto T767; |
2156 |
|
goto T765; |
2157 |
T765:; |
T765:; |
2158 |
V291= (*(LnkLI255))(); |
V291= (*(LnkLI255))(); |
2159 |
|
goto T766; |
2160 |
T766:; |
T766:; |
2161 |
V292= Ct; |
V292= Ct; |
2162 |
|
goto T767; |
2163 |
T767:; |
T767:; |
2164 |
{object V293; |
{object V293; |
2165 |
register object V294; |
register object V294; |
2170 |
V291= cdr((V291)); |
V291= cdr((V291)); |
2171 |
V293= car((V291)); |
V293= car((V291)); |
2172 |
V294= Ct; |
V294= Ct; |
2173 |
|
goto T771; |
2174 |
T771:; |
T771:; |
2175 |
{register object V295; |
{register object V295; |
2176 |
register object V296; |
register object V296; |
2177 |
V295= cdr((V291)); |
V295= cdr((V291)); |
2178 |
V296= car((V295)); |
V296= car((V295)); |
2179 |
|
goto T782; |
2180 |
T782:; |
T782:; |
2181 |
if(!(endp((V295)))){ |
if(!(endp((V295)))){ |
2182 |
goto T783;} |
goto T783;} |
2183 |
{object V297 = Cnil; |
{object V297 = Cnil; |
2184 |
VMR36(V297)} |
VMR36(V297)} |
2185 |
|
goto T783; |
2186 |
T783:; |
T783:; |
2187 |
(void)((VFUN_NARGS=4,(*(LnkLI273))((V296),car((V291)),(V292),(V294)))); |
(void)((VFUN_NARGS=4,(*(LnkLI273))((V296),car((V291)),(V292),(V294)))); |
2188 |
V295= cdr((V295)); |
V295= cdr((V295)); |
2189 |
V296= car((V295)); |
V296= car((V295)); |
2190 |
goto T782;}}} |
goto T782;}} |
2191 |
|
va_end(ap); |
2192 |
|
base[0]=base[0]; |
2193 |
|
return Cnil;} |
2194 |
} |
} |
2195 |
/* local entry for function LOOP-ADD-TEMPS */ |
/* local entry for function LOOP-ADD-TEMPS */ |
2196 |
|
|
2205 |
object V301; |
object V301; |
2206 |
object V302; |
object V302; |
2207 |
object V303; |
object V303; |
2208 |
|
Vcs[0]=Vcs[0]; |
2209 |
|
va_start(ap); |
2210 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
2211 |
V299= V298; |
V299= V298; |
2212 |
narg = narg - 1; |
narg = narg - 1; |
2213 |
if (narg <= 0) goto T793; |
if (narg <= 0) goto T793; |
2214 |
else { |
else { |
|
va_start(ap); |
|
2215 |
V300= va_arg(ap,object);} |
V300= va_arg(ap,object);} |
2216 |
if (--narg <= 0) goto T794; |
if (--narg <= 0) goto T794; |
2217 |
else { |
else { |
2223 |
else { |
else { |
2224 |
V303= va_arg(ap,object);} |
V303= va_arg(ap,object);} |
2225 |
--narg; goto T797; |
--narg; goto T797; |
2226 |
|
goto T793; |
2227 |
T793:; |
T793:; |
2228 |
V300= Cnil; |
V300= Cnil; |
2229 |
|
goto T794; |
2230 |
T794:; |
T794:; |
2231 |
V301= Cnil; |
V301= Cnil; |
2232 |
|
goto T795; |
2233 |
T795:; |
T795:; |
2234 |
V302= Cnil; |
V302= Cnil; |
2235 |
|
goto T796; |
2236 |
T796:; |
T796:; |
2237 |
V303= Cnil; |
V303= Cnil; |
2238 |
|
goto T797; |
2239 |
T797:; |
T797:; |
2240 |
{object V304; |
{object V304; |
2241 |
V304= (((V299))==Cnil?Ct:Cnil); |
V304= (((V299))==Cnil?Ct:Cnil); |
2243 |
goto T804;} |
goto T804;} |
2244 |
{object V305 = (V304); |
{object V305 = (V304); |
2245 |
VMR37(V305)} |
VMR37(V305)} |
2246 |
|
goto T804; |
2247 |
T804:; |
T804:; |
2248 |
if(!(type_of((V299))==t_symbol)){ |
if(!(type_of((V299))==t_symbol)){ |
2249 |
goto T807;} |
goto T807;} |
2250 |
{object V306 = (VFUN_NARGS=7,(*(LnkLI267))((V299),(V300),(V302),(V301),Cnil,Ct,(V303))); |
{object V306 = (VFUN_NARGS=7,(*(LnkLI267))((V299),(V300),(V302),(V301),Cnil,Ct,(V303))); |
2251 |
VMR37(V306)} |
VMR37(V306)} |
2252 |
|
goto T807; |
2253 |
T807:; |
T807:; |
2254 |
if(!(type_of((V299))==t_cons||((V299))==Cnil)){ |
if(!(type_of((V299))==t_cons||((V299))==Cnil)){ |
2255 |
goto T810;} |
goto T810;} |
2256 |
(void)((VFUN_NARGS=1,(*(LnkLI268))(car((V299))))); |
(void)((VFUN_NARGS=1,(*(LnkLI268))(car((V299))))); |
2257 |
{object V307 = (VFUN_NARGS=1,(*(LnkLI268))(cdr((V299)))); |
{object V307 = (VFUN_NARGS=1,(*(LnkLI268))(cdr((V299)))); |
2258 |
VMR37(V307)} |
VMR37(V307)} |
2259 |
|
goto T810; |
2260 |
T810:; |
T810:; |
2261 |
{object V308 = Cnil; |
{object V308 = Cnil; |
2262 |
VMR37(V308)}}} |
VMR37(V308)}} |
2263 |
|
va_end(ap); |
2264 |
|
return Cnil;} |
2265 |
} |
} |
2266 |
/* local entry for function ADD-FROM-DATA */ |
/* local entry for function ADD-FROM-DATA */ |
2267 |
|
|
2273 |
int narg = VFUN_NARGS; VMB38 VMS38 VMV38 |
int narg = VFUN_NARGS; VMB38 VMS38 VMV38 |
2274 |
{register object V310; |
{register object V310; |
2275 |
object V311; |
object V311; |
2276 |
|
Vcs[0]=Vcs[0]; |
2277 |
|
va_start(ap); |
2278 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
2279 |
V310= V309; |
V310= V309; |
2280 |
narg= narg - 1; |
narg= narg - 1; |
|
va_start(ap); |
|
2281 |
V312 = list_vector(narg,ap); |
V312 = list_vector(narg,ap); |
2282 |
V311= V312; |
V311= V312; |
2283 |
if((V310)!=Cnil){ |
if((V310)!=Cnil){ |
2287 |
Lcopy_list(); |
Lcopy_list(); |
2288 |
vs_top=sup; |
vs_top=sup; |
2289 |
V310= vs_base[0]; |
V310= vs_base[0]; |
2290 |
|
goto T813; |
2291 |
T813:; |
T813:; |
2292 |
{register object V313; |
{register object V313; |
2293 |
register object V314; |
register object V314; |
2294 |
V313= (V310); |
V313= (V310); |
2295 |
V314= (V311); |
V314= (V311); |
2296 |
|
goto T818; |
2297 |
T818:; |
T818:; |
2298 |
if(((V314))!=Cnil){ |
if(((V314))!=Cnil){ |
2299 |
goto T819;} |
goto T819;} |
2300 |
goto T816; |
goto T816; |
2301 |
|
goto T819; |
2302 |
T819:; |
T819:; |
2303 |
if((car((V314)))!=Cnil){ |
if((car((V314)))!=Cnil){ |
2304 |
goto T824;} |
goto T824;} |
2305 |
goto T823; |
goto T823; |
2306 |
|
goto T824; |
2307 |
T824:; |
T824:; |
2308 |
{register object V315; |
{register object V315; |
2309 |
register object V316; |
register object V316; |
2311 |
V316= car((V314)); |
V316= car((V314)); |
2312 |
if(type_of((V315))!=t_cons)FEwrong_type_argument(Scons,(V315)); |
if(type_of((V315))!=t_cons)FEwrong_type_argument(Scons,(V315)); |
2313 |
((V315))->c.c_car = (V316);} |
((V315))->c.c_car = (V316);} |
2314 |
|
goto T823; |
2315 |
T823:; |
T823:; |
2316 |
V313= cdr((V313)); |
V313= cdr((V313)); |
2317 |
V314= cdr((V314)); |
V314= cdr((V314)); |
2318 |
goto T818;} |
goto T818;} |
2319 |
|
goto T816; |
2320 |
T816:; |
T816:; |
2321 |
{object V317 = (V310); |
{object V317 = (V310); |
2322 |
VMR38(V317)}} |
VMR38(V317)} |
2323 |
|
va_end(ap); |
2324 |
|
base[0]=base[0]; |
2325 |
|
return Cnil;} |
2326 |
} |
} |
2327 |
/* local entry for function PARSE-LOOP-FOR */ |
/* local entry for function PARSE-LOOP-FOR */ |
2328 |
|
|
2330 |
|
|
2331 |
{ VMB39 VMS39 VMV39 |
{ VMB39 VMS39 VMV39 |
2332 |
bds_check; |
bds_check; |
2333 |
|
goto TTL; |
2334 |
TTL:; |
TTL:; |
2335 |
{register object V318; |
{register object V318; |
2336 |
register object V319; |
register object V319; |
2344 |
V322= Cnil; |
V322= Cnil; |
2345 |
{object V323; |
{object V323; |
2346 |
V323= (*(LnkLI255))(); |
V323= (*(LnkLI255))(); |
2347 |
|
goto T841; |
2348 |
T841:; |
T841:; |
2349 |
{register object V324; |
{register object V324; |
2350 |
V324= (*(LnkLI13))((V323)); |
V324= (*(LnkLI13))((V323)); |
2364 |
V322= list(3,VV[15],(V325),list(2,VV[18],(V325))); |
V322= list(3,VV[15],(V325),list(2,VV[18],(V325))); |
2365 |
V321= list(2,VV[140],(V325)); |
V321= list(2,VV[140],(V325)); |
2366 |
goto T844;} |
goto T844;} |
2367 |
|
goto T847; |
2368 |
T847:; |
T847:; |
2369 |
if(((*(LnkLI9))((V324),VV[141]))==Cnil){ |
if(((*(LnkLI9))((V324),VV[141]))==Cnil){ |
2370 |
goto T859;} |
goto T859;} |
2373 |
goto T863;} |
goto T863;} |
2374 |
V328= (V320); |
V328= (V320); |
2375 |
goto T861; |
goto T861; |
2376 |
|
goto T863; |
2377 |
T863:; |
T863:; |
2378 |
base[1]= VV[142]; |
base[1]= VV[142]; |
2379 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2380 |
Lgensym(); |
Lgensym(); |
2381 |
vs_top=sup; |
vs_top=sup; |
2382 |
V328= vs_base[0]; |
V328= vs_base[0]; |
2383 |
|
goto T861; |
2384 |
T861:; |
T861:; |
2385 |
(void)((VFUN_NARGS=4,(*(LnkLI268))((V320),Cnil,VV[138],Ct))); |
(void)((VFUN_NARGS=4,(*(LnkLI268))((V320),Cnil,VV[138],Ct))); |
2386 |
V329= (*(LnkLI255))(); |
V329= (*(LnkLI255))(); |
2390 |
goto T870;} |
goto T870;} |
2391 |
V330= list(3,VV[139],(V320),(V328)); |
V330= list(3,VV[139],(V320),(V328)); |
2392 |
setq(VV[49],make_cons(/* INLINE-ARGS */V330,symbol_value(VV[49]))); |
setq(VV[49],make_cons(/* INLINE-ARGS */V330,symbol_value(VV[49]))); |
2393 |
|
goto T870; |
2394 |
T870:; |
T870:; |
2395 |
V321= list(2,VV[140],(V328)); |
V321= list(2,VV[140],(V328)); |
2396 |
goto T844;} |
goto T844;} |
2397 |
|
goto T859; |
2398 |
T859:; |
T859:; |
2399 |
if(((*(LnkLI9))((V324),VV[143]))==Cnil){ |
if(((*(LnkLI9))((V324),VV[143]))==Cnil){ |
2400 |
goto T876;} |
goto T876;} |
2401 |
V331= (*(LnkLI255))(); |
V331= (*(LnkLI255))(); |
2402 |
V319= (VFUN_NARGS=6,(*(LnkLI274))((V319),(V320),/* INLINE-ARGS */V331,Cnil,Cnil,VV[144])); |
V319= (VFUN_NARGS=6,(*(LnkLI274))((V319),(V320),/* INLINE-ARGS */V331,Cnil,Cnil,VV[144])); |
2403 |
goto T844; |
goto T844; |
2404 |
|
goto T876; |
2405 |
T876:; |
T876:; |
2406 |
if(((*(LnkLI9))((V324),VV[145]))==Cnil){ |
if(((*(LnkLI9))((V324),VV[145]))==Cnil){ |
2407 |
goto T880;} |
goto T880;} |
2408 |
V332= (*(LnkLI255))(); |
V332= (*(LnkLI255))(); |
2409 |
V319= (VFUN_NARGS=6,(*(LnkLI274))((V319),(V320),/* INLINE-ARGS */V332,Cnil,Cnil,VV[146])); |
V319= (VFUN_NARGS=6,(*(LnkLI274))((V319),(V320),/* INLINE-ARGS */V332,Cnil,Cnil,VV[146])); |
2410 |
goto T844; |
goto T844; |
2411 |
|
goto T880; |
2412 |
T880:; |
T880:; |
2413 |
if(((*(LnkLI9))((V324),VV[147]))==Cnil){ |
if(((*(LnkLI9))((V324),VV[147]))==Cnil){ |
2414 |
goto T884;} |
goto T884;} |
2417 |
goto T889;} |
goto T889;} |
2418 |
V319= (VFUN_NARGS=5,(*(LnkLI274))((V319),Cnil,Cnil,Cnil,(V318))); |
V319= (VFUN_NARGS=5,(*(LnkLI274))((V319),Cnil,Cnil,Cnil,(V318))); |
2419 |
goto T844; |
goto T844; |
2420 |
|
goto T889; |
2421 |
T889:; |
T889:; |
2422 |
bds_bind(VV[148],small_fixnum(4)); |
bds_bind(VV[148],small_fixnum(4)); |
2423 |
bds_bind(VV[149],small_fixnum(4)); |
bds_bind(VV[149],small_fixnum(4)); |
2424 |
|
goto T894; |
2425 |
T894:; |
T894:; |
2426 |
if(!((car(caddr((V322))))==(VV[18]))){ |
if(!((car(caddr((V322))))==(VV[18]))){ |
2427 |
goto T895;} |
goto T895;} |
2428 |
bds_unwind1; |
bds_unwind1; |
2429 |
bds_unwind1; |
bds_unwind1; |
2430 |
goto T892; |
goto T892; |
2431 |
|
goto T895; |
2432 |
T895:; |
T895:; |
2433 |
base[3]= VV[150]; |
base[3]= VV[150]; |
2434 |
base[4]= VV[151]; |
base[4]= VV[151]; |
2442 |
Lformat(); |
Lformat(); |
2443 |
vs_top=sup; |
vs_top=sup; |
2444 |
goto T894; |
goto T894; |
2445 |
|
goto T892; |
2446 |
T892:; |
T892:; |
2447 |
V333= cadr((V322)); |
V333= cadr((V322)); |
2448 |
if(!(type_of((V318))==t_cons)){ |
if(!(type_of((V318))==t_cons)){ |
2453 |
goto T914; |
goto T914; |
2454 |
}else V335=V335->c.c_cdr; |
}else V335=V335->c.c_cdr; |
2455 |
goto T911;} |
goto T911;} |
2456 |
|
goto T914; |
2457 |
T914:; |
T914:; |
2458 |
V334= list(2,cadr((V318)),cadr((V322))); |
V334= list(2,cadr((V318)),cadr((V322))); |
2459 |
goto T909; |
goto T909; |
2460 |
|
goto T911; |
2461 |
T911:; |
T911:; |
2462 |
V334= list(3,VV[156],(V318),cadr((V322))); |
V334= list(3,VV[156],(V318),cadr((V322))); |
2463 |
|
goto T909; |
2464 |
T909:; |
T909:; |
2465 |
V322= list(3,VV[15],/* INLINE-ARGS */V333,V334); |
V322= list(3,VV[15],/* INLINE-ARGS */V333,V334); |
2466 |
goto T844; |
goto T844; |
2467 |
|
goto T884; |
2468 |
T884:; |
T884:; |
2469 |
if(((*(LnkLI9))((V324),VV[157]))==Cnil){ |
if(((*(LnkLI9))((V324),VV[157]))==Cnil){ |
2470 |
goto T916;} |
goto T916;} |
2471 |
V336= (*(LnkLI255))(); |
V336= (*(LnkLI255))(); |
2472 |
V319= (VFUN_NARGS=6,(*(LnkLI274))((V319),(V320),Cnil,/* INLINE-ARGS */V336,Cnil,VV[144])); |
V319= (VFUN_NARGS=6,(*(LnkLI274))((V319),(V320),Cnil,/* INLINE-ARGS */V336,Cnil,VV[144])); |
2473 |
goto T844; |
goto T844; |
2474 |
|
goto T916; |
2475 |
T916:; |
T916:; |
2476 |
if(((*(LnkLI9))((V324),VV[158]))==Cnil){ |
if(((*(LnkLI9))((V324),VV[158]))==Cnil){ |
2477 |
goto T920;} |
goto T920;} |
2478 |
V337= (*(LnkLI255))(); |
V337= (*(LnkLI255))(); |
2479 |
V319= (VFUN_NARGS=6,(*(LnkLI274))((V319),(V320),Cnil,/* INLINE-ARGS */V337,Cnil,VV[146])); |
V319= (VFUN_NARGS=6,(*(LnkLI274))((V319),(V320),Cnil,/* INLINE-ARGS */V337,Cnil,VV[146])); |
2480 |
goto T844; |
goto T844; |
2481 |
|
goto T920; |
2482 |
T920:; |
T920:; |
2483 |
if(((*(LnkLI9))((V324),VV[159]))==Cnil){ |
if(((*(LnkLI9))((V324),VV[159]))==Cnil){ |
2484 |
goto T924;} |
goto T924;} |
2485 |
V338= (*(LnkLI255))(); |
V338= (*(LnkLI255))(); |
2486 |
V319= (VFUN_NARGS=7,(*(LnkLI274))((V319),(V320),Cnil,/* INLINE-ARGS */V338,Cnil,Cnil,Ct)); |
V319= (VFUN_NARGS=7,(*(LnkLI274))((V319),(V320),Cnil,/* INLINE-ARGS */V338,Cnil,Cnil,Ct)); |
2487 |
goto T844; |
goto T844; |
2488 |
|
goto T924; |
2489 |
T924:; |
T924:; |
2490 |
if(!(type_of((V324))==t_symbol)){ |
if(!(type_of((V324))==t_symbol)){ |
2491 |
goto T928;} |
goto T928;} |
2494 |
V339= (*(LnkLI13))((V323)); |
V339= (*(LnkLI13))((V323)); |
2495 |
(void)((VFUN_NARGS=3,(*(LnkLI265))(/* INLINE-ARGS */V339,VV[160],(V320)))); |
(void)((VFUN_NARGS=3,(*(LnkLI265))(/* INLINE-ARGS */V339,VV[160],(V320)))); |
2496 |
goto T838; |
goto T838; |
2497 |
|
goto T928; |
2498 |
T928:; |
T928:; |
2499 |
if(!(type_of((V324))==t_symbol)){ |
if(!(type_of((V324))==t_symbol)){ |
2500 |
goto T934;} |
goto T934;} |
2503 |
V340= (*(LnkLI13))((V323)); |
V340= (*(LnkLI13))((V323)); |
2504 |
(void)((*(LnkLI275))(/* INLINE-ARGS */V340,(V320))); |
(void)((*(LnkLI275))(/* INLINE-ARGS */V340,(V320))); |
2505 |
goto T838; |
goto T838; |
2506 |
|
goto T934; |
2507 |
T934:; |
T934:; |
2508 |
(void)((*(LnkLI266))()); |
(void)((*(LnkLI266))()); |
2509 |
goto T838;} |
goto T838;} |
2510 |
|
goto T844; |
2511 |
T844:; |
T844:; |
2512 |
V323= (*(LnkLI255))(); |
V323= (*(LnkLI255))(); |
2513 |
goto T841;} |
goto T841;} |
2514 |
|
goto T838; |
2515 |
T838:; |
T838:; |
2516 |
if(((V319))==Cnil){ |
if(((V319))==Cnil){ |
2517 |
goto T943;} |
goto T943;} |
2535 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2536 |
goto T953;} |
goto T953;} |
2537 |
goto T952; |
goto T952; |
2538 |
|
goto T953; |
2539 |
T953:; |
T953:; |
2540 |
setq(VV[47],Ct); |
setq(VV[47],Ct); |
2541 |
|
goto T952; |
2542 |
T952:; |
T952:; |
2543 |
V347= list(3,(V341),(V343),(V345)); |
V347= list(3,(V341),(V343),(V345)); |
2544 |
V322= list(3,VV[15],(V343),(*(LnkLI276))(/* INLINE-ARGS */V347,VV[126])); |
V322= list(3,VV[15],(V343),(*(LnkLI276))(/* INLINE-ARGS */V347,VV[126])); |
2556 |
goto T966;} |
goto T966;} |
2557 |
base[1]= Cnil; |
base[1]= Cnil; |
2558 |
goto T964; |
goto T964; |
2559 |
|
goto T966; |
2560 |
T966:; |
T966:; |
2561 |
base[1]= list(3,(V341),VV[127],(V345)); |
base[1]= list(3,(V341),VV[127],(V345)); |
2562 |
|
goto T964; |
2563 |
T964:; |
T964:; |
2564 |
bds_bind(VV[39],base[1]); |
bds_bind(VV[39],base[1]); |
2565 |
(void)((VFUN_NARGS=6,(*(LnkLI267))((V348),(V344),Cnil,VV[126],Cnil,Cnil))); |
(void)((VFUN_NARGS=6,(*(LnkLI267))((V348),(V344),Cnil,VV[126],Cnil,Cnil))); |
2569 |
goto T977;} |
goto T977;} |
2570 |
V349= VV[163]; |
V349= VV[163]; |
2571 |
goto T972; |
goto T972; |
2572 |
|
goto T977; |
2573 |
T977:; |
T977:; |
2574 |
V349= VV[164]; |
V349= VV[164]; |
2575 |
goto T972; |
goto T972; |
2576 |
|
goto T974; |
2577 |
T974:; |
T974:; |
2578 |
if(!(((V341))==(VV[144]))){ |
if(!(((V341))==(VV[144]))){ |
2579 |
goto T980;} |
goto T980;} |
2580 |
V349= VV[165]; |
V349= VV[165]; |
2581 |
goto T972; |
goto T972; |
2582 |
|
goto T980; |
2583 |
T980:; |
T980:; |
2584 |
V349= VV[166]; |
V349= VV[166]; |
2585 |
|
goto T972; |
2586 |
T972:; |
T972:; |
2587 |
V321= list(3,V349,(V343),(V348)); |
V321= list(3,V349,(V343),(V348)); |
2588 |
bds_unwind1; |
bds_unwind1; |
2589 |
goto T943;} |
goto T943;} |
2590 |
|
goto T960; |
2591 |
T960:; |
T960:; |
2592 |
if((symbol_value(VV[47]))!=Cnil){ |
if((symbol_value(VV[47]))!=Cnil){ |
2593 |
goto T943;} |
goto T943;} |
2606 |
if(!((car((V346)))==(VV[122]))){ |
if(!((car((V346)))==(VV[122]))){ |
2607 |
goto T993;} |
goto T993;} |
2608 |
V346= cadr((V346)); |
V346= cadr((V346)); |
2609 |
|
goto T993; |
2610 |
T993:; |
T993:; |
2611 |
base[1]= (V346); |
base[1]= (V346); |
2612 |
base[2]= VV[167]; |
base[2]= VV[167]; |
2622 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2623 |
goto T1002;} |
goto T1002;} |
2624 |
goto T1001; |
goto T1001; |
2625 |
|
goto T1002; |
2626 |
T1002:; |
T1002:; |
2627 |
base[1]= VV[168]; |
base[1]= VV[168]; |
2628 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2629 |
Lerror(); |
Lerror(); |
2630 |
vs_top=sup; |
vs_top=sup; |
2631 |
|
goto T1001; |
2632 |
T1001:; |
T1001:; |
2633 |
if(!(((V341))==(VV[144]))){ |
if(!(((V341))==(VV[144]))){ |
2634 |
goto T1009;} |
goto T1009;} |
2636 |
V351= (V345); |
V351= (V345); |
2637 |
goto T1011;} |
goto T1011;} |
2638 |
V351= small_fixnum(1); |
V351= small_fixnum(1); |
2639 |
|
goto T1011; |
2640 |
T1011:; |
T1011:; |
2641 |
V350= list(3,VV[164],(V343),number_minus(VV[169],V351)); |
V350= list(3,VV[164],(V343),number_minus(VV[169],V351)); |
2642 |
goto T1007; |
goto T1007; |
2643 |
|
goto T1009; |
2644 |
T1009:; |
T1009:; |
2645 |
if((V345)!=Cnil){ |
if((V345)!=Cnil){ |
2646 |
V352= (V345); |
V352= (V345); |
2647 |
goto T1012;} |
goto T1012;} |
2648 |
V352= small_fixnum(1); |
V352= small_fixnum(1); |
2649 |
|
goto T1012; |
2650 |
T1012:; |
T1012:; |
2651 |
V350= list(3,VV[163],(V343),number_plus(VV[170],V352)); |
V350= list(3,VV[163],(V343),number_plus(VV[170],V352)); |
2652 |
|
goto T1007; |
2653 |
T1007:; |
T1007:; |
2654 |
V353= list(3,VV[80],V350,VV[171]); |
V353= list(3,VV[80],V350,VV[171]); |
2655 |
setq(VV[42],make_cons(/* INLINE-ARGS */V353,symbol_value(VV[42])));} |
setq(VV[42],make_cons(/* INLINE-ARGS */V353,symbol_value(VV[42])));} |
2656 |
|
goto T943; |
2657 |
T943:; |
T943:; |
2658 |
if((V321)==Cnil){ |
if((V321)==Cnil){ |
2659 |
goto T1013;} |
goto T1013;} |
2663 |
vs_top=sup; |
vs_top=sup; |
2664 |
V354= vs_base[0]; |
V354= vs_base[0]; |
2665 |
setq(VV[41],make_cons(V354,symbol_value(VV[41]))); |
setq(VV[41],make_cons(V354,symbol_value(VV[41]))); |
2666 |
|
goto T1013; |
2667 |
T1013:; |
T1013:; |
2668 |
if((V322)==Cnil){ |
if((V322)==Cnil){ |
2669 |
{object V355 = Cnil; |
{object V355 = Cnil; |
2671 |
setq(VV[42],make_cons((V322),symbol_value(VV[42]))); |
setq(VV[42],make_cons((V322),symbol_value(VV[42]))); |
2672 |
{object V356 = symbol_value(VV[42]); |
{object V356 = symbol_value(VV[42]); |
2673 |
VMR39(V356)}}} |
VMR39(V356)}}} |
2674 |
|
base[0]=base[0]; |
2675 |
|
return Cnil; |
2676 |
} |
} |
2677 |
/* local entry for function PARSE-LOOP-MACRO */ |
/* local entry for function PARSE-LOOP-MACRO */ |
2678 |
|
|
2685 |
{object V359; |
{object V359; |
2686 |
object V360; |
object V360; |
2687 |
object V361; |
object V361; |
2688 |
|
Vcs[0]=Vcs[0]; |
2689 |
|
va_start(ap); |
2690 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
2691 |
V359= V358; |
V359= V358; |
2692 |
V360= V357; |
V360= V357; |
2693 |
narg = narg - 2; |
narg = narg - 2; |
2694 |
if (narg <= 0) goto T1018; |
if (narg <= 0) goto T1018; |
2695 |
else { |
else { |
|
va_start(ap); |
|
2696 |
V361= va_arg(ap,object);} |
V361= va_arg(ap,object);} |
2697 |
--narg; goto T1019; |
--narg; goto T1019; |
2698 |
|
goto T1018; |
2699 |
T1018:; |
T1018:; |
2700 |
V361= Cnil; |
V361= Cnil; |
2701 |
|
goto T1019; |
2702 |
T1019:; |
T1019:; |
2703 |
{register object V362; |
{register object V362; |
2704 |
V362= Cnil; |
V362= Cnil; |
2713 |
V367= cdr((V366)); |
V367= cdr((V366)); |
2714 |
if(V367==Cnil)goto T1028; |
if(V367==Cnil)goto T1028; |
2715 |
goto T1027; |
goto T1027; |
2716 |
|
goto T1028; |
2717 |
T1028:;} |
T1028:;} |
2718 |
base[0]= VV[174]; |
base[0]= VV[174]; |
2719 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2720 |
Lerror(); |
Lerror(); |
2721 |
vs_top=sup; |
vs_top=sup; |
2722 |
|
goto T1027; |
2723 |
T1027:; |
T1027:; |
2724 |
V364= cdr((V366)); |
V364= cdr((V366)); |
2725 |
goto T1024;} |
goto T1024;} |
2726 |
|
goto T1025; |
2727 |
T1025:; |
T1025:; |
2728 |
if((V365!= VV[92]))goto T1031; |
if((V365!= VV[92]))goto T1031; |
2729 |
V364= get((V359),VV[175],Cnil); |
V364= get((V359),VV[175],Cnil); |
2730 |
goto T1024; |
goto T1024; |
2731 |
|
goto T1031; |
2732 |
T1031:; |
T1031:; |
2733 |
FEerror("The ECASE key value ~s is illegal.",1,V365);} |
FEerror("The ECASE key value ~s is illegal.",1,V365); |
2734 |
|
{object V366; |
2735 |
|
V366= get((V359),VV[173],Cnil);{object V368; |
2736 |
|
V368= cdr((V366)); |
2737 |
|
if(V368==Cnil)goto T1034; |
2738 |
|
goto T1033; |
2739 |
|
goto T1034; |
2740 |
|
T1034:;} |
2741 |
|
base[1]= VV[174]; |
2742 |
|
vs_top=(vs_base=base+1)+1; |
2743 |
|
Lerror(); |
2744 |
|
vs_top=sup; |
2745 |
|
goto T1033; |
2746 |
|
T1033:; |
2747 |
|
V364= cdr((V366));}} |
2748 |
|
goto T1024; |
2749 |
T1024:; |
T1024:; |
2750 |
{object V368; |
{object V369; |
2751 |
{register object x= VV[176],V369= (V364); |
{register object x= VV[176],V370= (V364); |
2752 |
while(!endp(V369)) |
while(!endp(V370)) |
2753 |
if(eql(x,V369->c.c_car)){ |
if(eql(x,V370->c.c_car)){ |
2754 |
goto T1035; |
goto T1040; |
2755 |
}else V369=V369->c.c_cdr; |
}else V370=V370->c.c_cdr; |
2756 |
goto T1034;} |
goto T1039;} |
2757 |
T1035:; |
goto T1040; |
2758 |
{object V370; |
T1040:; |
2759 |
V370= symbol_value(VV[34]); |
{object V371; |
2760 |
|
V371= symbol_value(VV[34]); |
2761 |
setq(VV[34],Cnil); |
setq(VV[34],Cnil); |
2762 |
V368= (V370); |
V369= (V371); |
2763 |
goto T1032;} |
goto T1037;} |
2764 |
T1034:; |
goto T1039; |
2765 |
{register object V371; |
T1039:; |
2766 |
register object V372; |
{register object V372; |
2767 |
V371= make_fixnum(length((V364))); |
register object V373; |
2768 |
V372= small_fixnum(0); |
V372= make_fixnum(length((V364))); |
2769 |
T1041:; |
V373= small_fixnum(0); |
2770 |
if(!(number_compare((V372),(V371))>=0)){ |
goto T1046; |
2771 |
goto T1042;} |
T1046:; |
2772 |
V368= nreverse((V362)); |
if(!(number_compare((V373),(V372))>=0)){ |
2773 |
goto T1032; |
goto T1047;} |
2774 |
T1042:; |
V369= nreverse((V362)); |
2775 |
|
goto T1037; |
2776 |
|
goto T1047; |
2777 |
|
T1047:; |
2778 |
V362= make_cons(car(symbol_value(VV[34])),(V362)); |
V362= make_cons(car(symbol_value(VV[34])),(V362)); |
2779 |
setq(VV[34],cdr(symbol_value(VV[34]))); |
setq(VV[34],cdr(symbol_value(VV[34]))); |
2780 |
V372= one_plus((V372)); |
V373= one_plus((V373)); |
2781 |
goto T1041;} |
goto T1046;} |
2782 |
T1032:; |
goto T1037; |
2783 |
{object V374= (V360); |
T1037:; |
2784 |
if((V374!= VV[160]))goto T1055; |
{object V375= (V360); |
2785 |
|
if((V375!= VV[160]))goto T1060; |
2786 |
base[0]= (V363); |
base[0]= (V363); |
2787 |
base[1]= (V361); |
base[1]= (V361); |
2788 |
{object V375; |
{object V376; |
2789 |
V375= (V368); |
V376= (V369); |
2790 |
vs_top=base+2; |
vs_top=base+2; |
2791 |
while(!endp(V375)) |
while(!endp(V376)) |
2792 |
{vs_push(car(V375));V375=cdr(V375);} |
{vs_push(car(V376));V376=cdr(V376);} |
2793 |
vs_base=base+1;} |
vs_base=base+1;} |
2794 |
super_funcall_no_event(base[0]); |
super_funcall_no_event(base[0]); |
2795 |
vs_top=sup; |
vs_top=sup; |
2796 |
V373= vs_base[0]; |
V374= vs_base[0]; |
2797 |
goto T1054; |
goto T1059; |
2798 |
T1055:; |
goto T1060; |
2799 |
if((V374!= VV[92]))goto T1059; |
T1060:; |
2800 |
|
if((V375!= VV[92]))goto T1064; |
2801 |
base[0]= (V363); |
base[0]= (V363); |
2802 |
{object V376; |
{object V377; |
2803 |
V376= (V368); |
V377= (V369); |
2804 |
vs_top=base+1; |
vs_top=base+1; |
2805 |
while(!endp(V376)) |
while(!endp(V377)) |
2806 |
{vs_push(car(V376));V376=cdr(V376);} |
{vs_push(car(V377));V377=cdr(V377);} |
2807 |
vs_base=base+1;} |
vs_base=base+1;} |
2808 |
super_funcall_no_event(base[0]); |
super_funcall_no_event(base[0]); |
2809 |
vs_top=sup; |
vs_top=sup; |
2810 |
V373= vs_base[0]; |
V374= vs_base[0]; |
2811 |
goto T1054; |
goto T1059; |
2812 |
|
goto T1064; |
2813 |
|
T1064:; |
2814 |
|
V374= Cnil;} |
2815 |
|
goto T1059; |
2816 |
T1059:; |
T1059:; |
2817 |
V373= Cnil;} |
setq(VV[34],append(V374,symbol_value(VV[34]))); |
2818 |
T1054:; |
{object V378 = symbol_value(VV[34]); |
2819 |
setq(VV[34],append(V373,symbol_value(VV[34]))); |
VMR40(V378)}}}} |
2820 |
{object V377 = symbol_value(VV[34]); |
va_end(ap); |
2821 |
VMR40(V377)}}}}} |
base[0]=base[0]; |
2822 |
|
return Cnil;} |
2823 |
} |
} |
2824 |
/* local entry for function PARSE-LOOP-MAP */ |
/* local entry for function PARSE-LOOP-MAP */ |
2825 |
|
|
2826 |
static object LI41(V380,V381) |
static object LI41(V381,V382) |
2827 |
|
|
2828 |
object V380;object V381; |
object V381;object V382; |
2829 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
2830 |
|
goto TTL; |
2831 |
TTL:; |
TTL:; |
2832 |
if(symbol_value(VV[53])==Cnil){ |
if(symbol_value(VV[53])==Cnil){ |
2833 |
goto T1062;} |
goto T1067;} |
2834 |
base[0]= VV[177]; |
base[0]= VV[177]; |
2835 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2836 |
Lerror(); |
Lerror(); |
2837 |
vs_top=sup; |
vs_top=sup; |
2838 |
T1062:; |
goto T1067; |
2839 |
{object V382; |
T1067:; |
2840 |
object V383; |
{object V383; |
2841 |
V382= get((V380),VV[161],Cnil); |
object V384; |
2842 |
V383= get((V380),VV[178],Cnil); |
V383= get((V381),VV[161],Cnil); |
2843 |
if((V383)!=Cnil){ |
V384= get((V381),VV[178],Cnil); |
2844 |
goto T1066;} |
if((V384)!=Cnil){ |
2845 |
|
goto T1071;} |
2846 |
base[0]= VV[179]; |
base[0]= VV[179]; |
2847 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2848 |
Lerror(); |
Lerror(); |
2849 |
vs_top=sup; |
vs_top=sup; |
2850 |
T1066:; |
goto T1071; |
2851 |
{register object x= VV[176],V384= (V383); |
T1071:; |
2852 |
while(!endp(V384)) |
{register object x= VV[176],V385= (V384); |
2853 |
if(eql(x,V384->c.c_car)){ |
while(!endp(V385)) |
2854 |
goto T1070; |
if(eql(x,V385->c.c_car)){ |
2855 |
}else V384=V384->c.c_cdr; |
goto T1075; |
2856 |
goto T1068;} |
}else V385=V385->c.c_cdr; |
2857 |
T1070:; |
goto T1073;} |
2858 |
|
goto T1075; |
2859 |
|
T1075:; |
2860 |
base[0]= VV[180]; |
base[0]= VV[180]; |
2861 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2862 |
Lerror(); |
Lerror(); |
2863 |
vs_top=sup; |
vs_top=sup; |
2864 |
T1068:; |
goto T1073; |
|
{register object V385; |
|
|
object V386; |
|
|
V385= Cnil; |
|
|
{register object V387; |
|
|
register object V388; |
|
|
V389 = make_fixnum(length((V383))); |
|
|
V387= one_minus(V389); |
|
|
V388= small_fixnum(0); |
|
|
T1077:; |
|
|
if(!(number_compare((V388),(V387))>=0)){ |
|
|
goto T1078;} |
|
|
V386= nreverse((V385)); |
|
|
goto T1073; |
|
|
T1078:; |
|
|
V385= make_cons(car(symbol_value(VV[34])),(V385)); |
|
|
setq(VV[34],cdr(symbol_value(VV[34]))); |
|
|
V388= one_plus((V388)); |
|
|
goto T1077;} |
|
2865 |
T1073:; |
T1073:; |
2866 |
{register object V390; |
{register object V386; |
2867 |
register object V391; |
object V387; |
2868 |
V390= (*(LnkLI255))(); |
V386= Cnil; |
2869 |
V391= Cnil; |
{register object V388; |
2870 |
T1093:; |
register object V389; |
2871 |
if(((*(LnkLI9))((V390),VV[77]))!=Cnil){ |
V390 = make_fixnum(length((V384))); |
2872 |
goto T1094;} |
V388= one_minus(V390); |
2873 |
|
V389= small_fixnum(0); |
2874 |
|
goto T1082; |
2875 |
|
T1082:; |
2876 |
|
if(!(number_compare((V389),(V388))>=0)){ |
2877 |
|
goto T1083;} |
2878 |
|
V387= nreverse((V386)); |
2879 |
|
goto T1078; |
2880 |
|
goto T1083; |
2881 |
|
T1083:; |
2882 |
|
V386= make_cons(car(symbol_value(VV[34])),(V386)); |
2883 |
|
setq(VV[34],cdr(symbol_value(VV[34]))); |
2884 |
|
V389= one_plus((V389)); |
2885 |
|
goto T1082;} |
2886 |
|
goto T1078; |
2887 |
|
T1078:; |
2888 |
|
{register object V391; |
2889 |
|
register object V392; |
2890 |
|
V391= (*(LnkLI255))(); |
2891 |
|
V392= Cnil; |
2892 |
|
goto T1098; |
2893 |
|
T1098:; |
2894 |
|
if(((*(LnkLI9))((V391),VV[77]))!=Cnil){ |
2895 |
|
goto T1099;} |
2896 |
(void)((*(LnkLI266))()); |
(void)((*(LnkLI266))()); |
2897 |
if((V391)==Cnil){ |
if((V392)==Cnil){ |
2898 |
setq(VV[44],Cnil); |
setq(VV[44],Cnil); |
2899 |
goto T1090;} |
goto T1095;} |
2900 |
setq(VV[44],make_cons(VV[77],(V391))); |
setq(VV[44],make_cons(VV[77],(V392))); |
2901 |
goto T1090; |
goto T1095; |
2902 |
T1094:; |
goto T1099; |
2903 |
V392= (*(LnkLI255))(); |
T1099:; |
2904 |
V391= make_cons(/* INLINE-ARGS */V392,(V391)); |
V393= (*(LnkLI255))(); |
2905 |
V390= (*(LnkLI255))(); |
V392= make_cons(/* INLINE-ARGS */V393,(V392)); |
2906 |
goto T1093;} |
V391= (*(LnkLI255))(); |
2907 |
T1090:; |
goto T1098;} |
2908 |
base[1]= (V382); |
goto T1095; |
2909 |
base[2]= (V381); |
T1095:; |
2910 |
{object V393; |
base[1]= (V383); |
2911 |
V393= (V386); |
base[2]= (V382); |
2912 |
|
{object V394; |
2913 |
|
V394= (V387); |
2914 |
vs_top=base+3; |
vs_top=base+3; |
2915 |
while(!endp(V393)) |
while(!endp(V394)) |
2916 |
{vs_push(car(V393));V393=cdr(V393);} |
{vs_push(car(V394));V394=cdr(V394);} |
2917 |
vs_base=base+2;} |
vs_base=base+2;} |
2918 |
super_funcall_no_event(base[1]); |
super_funcall_no_event(base[1]); |
2919 |
vs_top=sup; |
vs_top=sup; |
2920 |
setq(VV[53],vs_base[0]); |
setq(VV[53],vs_base[0]); |
2921 |
{object V394 = Cnil; |
{object V395 = Cnil; |
2922 |
VMR41(V394)}}} |
VMR41(V395)}}} |
2923 |
|
base[0]=base[0]; |
2924 |
|
return Cnil; |
2925 |
} |
} |
2926 |
/* local entry for function SUBSTITUTE-SLOOP-BODY */ |
/* local entry for function SUBSTITUTE-SLOOP-BODY */ |
2927 |
|
|
2928 |
static object LI42(V396) |
static object LI42(V397) |
2929 |
|
|
2930 |
register object V396; |
register object V397; |
2931 |
{ VMB42 VMS42 VMV42 |
{ VMB42 VMS42 VMV42 |
2932 |
|
goto TTL; |
2933 |
TTL:; |
TTL:; |
2934 |
if((symbol_value(VV[53]))==Cnil){ |
if((symbol_value(VV[53]))==Cnil){ |
2935 |
goto T1109;} |
goto T1114;} |
2936 |
base[0]= make_cons(VV[16],(V396)); |
base[0]= make_cons(VV[16],(V397)); |
2937 |
base[1]= VV[181]; |
base[1]= VV[181]; |
2938 |
base[2]= symbol_value(VV[53]); |
base[2]= symbol_value(VV[53]); |
2939 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2940 |
Lsubst(); |
Lsubst(); |
2941 |
vs_top=sup; |
vs_top=sup; |
2942 |
V397= vs_base[0]; |
V398= vs_base[0]; |
2943 |
V396= make_cons(V397,Cnil); |
V397= make_cons(V398,Cnil); |
2944 |
if(symbol_value(VV[44])==Cnil){ |
if(symbol_value(VV[44])==Cnil){ |
2945 |
goto T1109;} |
goto T1114;} |
2946 |
base[0]= symbol_value(VV[44]); |
base[0]= symbol_value(VV[44]); |
2947 |
base[1]= VV[182]; |
base[1]= VV[182]; |
2948 |
base[2]= (V396); |
base[2]= (V397); |
2949 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2950 |
Lsubst(); |
Lsubst(); |
2951 |
vs_top=sup; |
vs_top=sup; |
2952 |
V396= vs_base[0]; |
V397= vs_base[0]; |
2953 |
T1109:; |
goto T1114; |
2954 |
{object V398 = (V396); |
T1114:; |
2955 |
VMR42(V398)} |
{object V399 = (V397); |
2956 |
|
VMR42(V399)} |
2957 |
|
base[0]=base[0]; |
2958 |
|
return Cnil; |
2959 |
} |
} |
2960 |
/* local entry for function DEF-LOOP-INTERNAL */ |
/* local entry for function DEF-LOOP-INTERNAL */ |
2961 |
|
|
2962 |
static object LI43(V402,V401,V400,V399,va_alist) |
static object LI43(V403,V402,V401,V400,va_alist) |
2963 |
object V402,V401,V400,V399; |
object V403,V402,V401,V400; |
2964 |
va_dcl |
va_dcl |
2965 |
{ |
{ |
2966 |
va_list ap; |
va_list ap; |
2967 |
int narg = VFUN_NARGS; VMB43 VMS43 VMV43 |
int narg = VFUN_NARGS; VMB43 VMS43 VMV43 |
2968 |
bds_check; |
bds_check; |
2969 |
{register object V403; |
{register object V404; |
2970 |
register object V404; |
register object V405; |
|
object V405; |
|
2971 |
object V406; |
object V406; |
2972 |
object V407; |
object V407; |
2973 |
object V408; |
object V408; |
2974 |
object V409; |
object V409; |
2975 |
|
object V410; |
2976 |
|
Vcs[0]=Vcs[0]; |
2977 |
|
va_start(ap); |
2978 |
if(narg <4) too_few_arguments(); |
if(narg <4) too_few_arguments(); |
2979 |
V403= V402; |
V404= V403; |
2980 |
V404= V401; |
V405= V402; |
2981 |
V405= V400; |
V406= V401; |
2982 |
V406= V399; |
V407= V400; |
2983 |
narg = narg - 4; |
narg = narg - 4; |
2984 |
if (narg <= 0) goto T1122; |
if (narg <= 0) goto T1127; |
|
else { |
|
|
va_start(ap); |
|
|
V407= va_arg(ap,object);} |
|
|
if (--narg <= 0) goto T1123; |
|
2985 |
else { |
else { |
2986 |
V408= va_arg(ap,object);} |
V408= va_arg(ap,object);} |
2987 |
if (--narg <= 0) goto T1124; |
if (--narg <= 0) goto T1128; |
2988 |
else { |
else { |
2989 |
V409= va_arg(ap,object);} |
V409= va_arg(ap,object);} |
2990 |
--narg; goto T1125; |
if (--narg <= 0) goto T1129; |
2991 |
T1122:; |
else { |
2992 |
V407= Cnil; |
V410= va_arg(ap,object);} |
2993 |
T1123:; |
--narg; goto T1130; |
2994 |
|
goto T1127; |
2995 |
|
T1127:; |
2996 |
V408= Cnil; |
V408= Cnil; |
2997 |
T1124:; |
goto T1128; |
2998 |
|
T1128:; |
2999 |
V409= Cnil; |
V409= Cnil; |
3000 |
T1125:; |
goto T1129; |
3001 |
{object V410; |
T1129:; |
3002 |
|
V410= Cnil; |
3003 |
|
goto T1130; |
3004 |
|
T1130:; |
3005 |
|
{object V411; |
3006 |
bds_bind(VV[184],VV[183]); |
bds_bind(VV[184],VV[183]); |
3007 |
base[3]= Cnil; |
base[3]= Cnil; |
3008 |
base[4]= VV[185]; |
base[4]= VV[185]; |
3009 |
base[5]= (V403); |
base[5]= (V404); |
3010 |
base[6]= (V406); |
base[6]= (V407); |
3011 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
3012 |
Lformat(); |
Lformat(); |
3013 |
vs_top=sup; |
vs_top=sup; |
3015 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3016 |
Lintern(); |
Lintern(); |
3017 |
vs_top=sup; |
vs_top=sup; |
3018 |
V410= vs_base[0]; |
V411= vs_base[0]; |
3019 |
if((V408)==Cnil){ |
if((V409)==Cnil){ |
3020 |
goto T1135;} |
goto T1140;} |
3021 |
V411 = make_fixnum(length((V404))); |
V412 = make_fixnum(length((V405))); |
3022 |
if(!(number_compare(V411,(V408))>=0)){ |
if(!(number_compare(V412,(V409))>=0)){ |
3023 |
goto T1136;} |
goto T1141;} |
3024 |
goto T1135; |
goto T1140; |
3025 |
T1136:; |
goto T1141; |
3026 |
|
T1141:; |
3027 |
base[2]= VV[186]; |
base[2]= VV[186]; |
3028 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3029 |
Lerror(); |
Lerror(); |
3030 |
vs_top=sup; |
vs_top=sup; |
3031 |
T1135:; |
goto T1140; |
|
if((V409)==Cnil){ |
|
|
goto T1139;} |
|
|
V412 = make_fixnum(length((V404))); |
|
|
if(!(number_compare(V412,(V409))<=0)){ |
|
|
goto T1140;} |
|
|
goto T1139; |
|
3032 |
T1140:; |
T1140:; |
3033 |
|
if((V410)==Cnil){ |
3034 |
|
goto T1144;} |
3035 |
|
V413 = make_fixnum(length((V405))); |
3036 |
|
if(!(number_compare(V413,(V410))<=0)){ |
3037 |
|
goto T1145;} |
3038 |
|
goto T1144; |
3039 |
|
goto T1145; |
3040 |
|
T1145:; |
3041 |
base[2]= VV[187]; |
base[2]= VV[187]; |
3042 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3043 |
Lerror(); |
Lerror(); |
3044 |
vs_top=sup; |
vs_top=sup; |
3045 |
T1139:; |
goto T1144; |
3046 |
V413= listA(4,VV[190],(V410),(V404),(V405)); |
T1144:; |
3047 |
if((V407)==Cnil){ |
V414= listA(4,VV[190],(V411),(V405),(V406)); |
3048 |
V414= Cnil; |
if((V408)==Cnil){ |
3049 |
goto T1143;} |
V415= Cnil; |
3050 |
V415= list(3,VV[191],list(2,VV[10],(V403)),(V407)); |
goto T1148;} |
3051 |
V414= make_cons(/* INLINE-ARGS */V415,Cnil); |
V416= list(3,VV[191],list(2,VV[10],(V404)),(V408)); |
3052 |
T1143:; |
V415= make_cons(/* INLINE-ARGS */V416,Cnil); |
3053 |
V416= list(2,VV[10],(V403)); |
goto T1148; |
3054 |
|
T1148:; |
3055 |
|
V417= list(2,VV[10],(V404)); |
3056 |
base[3]= Cnil; |
base[3]= Cnil; |
3057 |
base[4]= VV[192]; |
base[4]= VV[192]; |
3058 |
base[5]= (V406); |
base[5]= (V407); |
3059 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
3060 |
Lformat(); |
Lformat(); |
3061 |
vs_top=sup; |
vs_top=sup; |
3068 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3069 |
Lintern(); |
Lintern(); |
3070 |
vs_top=sup; |
vs_top=sup; |
3071 |
V417= vs_base[0]; |
V418= vs_base[0]; |
3072 |
V418= list(3,VV[7],/* INLINE-ARGS */V416,V417); |
V419= list(3,VV[7],/* INLINE-ARGS */V417,V418); |
3073 |
V419= list(3,VV[15],/* INLINE-ARGS */V418,list(2,VV[10],(V410))); |
V420= list(3,VV[15],/* INLINE-ARGS */V419,list(2,VV[10],(V411))); |
3074 |
V420= list(2,VV[10],(V403)); |
V421= list(2,VV[10],(V404)); |
3075 |
base[3]= Cnil; |
base[3]= Cnil; |
3076 |
base[4]= VV[194]; |
base[4]= VV[194]; |
3077 |
base[5]= (V406); |
base[5]= (V407); |
3078 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
3079 |
Lformat(); |
Lformat(); |
3080 |
vs_top=sup; |
vs_top=sup; |
3087 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3088 |
Lintern(); |
Lintern(); |
3089 |
vs_top=sup; |
vs_top=sup; |
3090 |
V421= vs_base[0]; |
V422= vs_base[0]; |
3091 |
V422= list(3,VV[7],/* INLINE-ARGS */V420,V421); |
V423= list(3,VV[7],/* INLINE-ARGS */V421,V422); |
3092 |
V423= list(2,/* INLINE-ARGS */V419,list(3,VV[15],/* INLINE-ARGS */V422,list(2,VV[10],(V404)))); |
V424= list(2,/* INLINE-ARGS */V420,list(3,VV[15],/* INLINE-ARGS */V423,list(2,VV[10],(V405)))); |
3093 |
{object V424 = listA(4,VV[188],VV[189],/* INLINE-ARGS */V413,append(V414,/* INLINE-ARGS */V423)); |
{object V425 = listA(4,VV[188],VV[189],/* INLINE-ARGS */V414,append(V415,/* INLINE-ARGS */V424)); |
3094 |
bds_unwind1; |
bds_unwind1; |
3095 |
VMR43(V424)}}} |
VMR43(V425)}} |
3096 |
|
va_end(ap); |
3097 |
|
base[0]=base[0]; |
3098 |
|
return Cnil;} |
3099 |
} |
} |
3100 |
/* local entry for function SUM-SLOOP-COLLECT */ |
/* local entry for function SUM-SLOOP-COLLECT */ |
3101 |
|
|
3102 |
static object LI44(V427,V428) |
static object LI44(V428,V429) |
3103 |
|
|
3104 |
object V427;object V428; |
object V428;object V429; |
3105 |
{ VMB44 VMS44 VMV44 |
{ VMB44 VMS44 VMV44 |
3106 |
|
goto TTL; |
3107 |
TTL:; |
TTL:; |
3108 |
V429= list(3,VV[195],(V427),small_fixnum(0)); |
V430= list(3,VV[195],(V428),small_fixnum(0)); |
3109 |
{object V430 = list(4,VV[97],/* INLINE-ARGS */V429,VV[56],list(3,VV[195],(V427),list(3,VV[144],(V427),(V428)))); |
{object V431 = list(4,VV[97],/* INLINE-ARGS */V430,VV[56],list(3,VV[195],(V428),list(3,VV[144],(V428),(V429)))); |
3110 |
VMR44(V430)} |
VMR44(V431)} |
3111 |
|
return Cnil; |
3112 |
} |
} |
3113 |
/* local entry for function LOGXOR-SLOOP-COLLECT */ |
/* local entry for function LOGXOR-SLOOP-COLLECT */ |
3114 |
|
|
3115 |
static object LI45(V433,V434) |
static object LI45(V434,V435) |
3116 |
|
|
3117 |
register object V433;object V434; |
register object V434;object V435; |
3118 |
{ VMB45 VMS45 VMV45 |
{ VMB45 VMS45 VMV45 |
3119 |
|
goto TTL; |
3120 |
TTL:; |
TTL:; |
3121 |
V435= list(3,VV[15],(V433),small_fixnum(0)); |
V436= list(3,VV[15],(V434),small_fixnum(0)); |
3122 |
V436= list(3,VV[15],(V433),list(3,VV[196],(V433),(V434))); |
V437= list(3,VV[15],(V434),list(3,VV[196],(V434),(V435))); |
3123 |
{object V437 = list(6,VV[97],/* INLINE-ARGS */V435,VV[56],/* INLINE-ARGS */V436,VV[77],list(3,VV[167],(V433),(V434))); |
{object V438 = list(6,VV[97],/* INLINE-ARGS */V436,VV[56],/* INLINE-ARGS */V437,VV[77],list(3,VV[167],(V434),(V435))); |
3124 |
VMR45(V437)} |
VMR45(V438)} |
3125 |
|
return Cnil; |
3126 |
} |
} |
3127 |
/* local entry for function MAXIMIZE-SLOOP-COLLECT */ |
/* local entry for function MAXIMIZE-SLOOP-COLLECT */ |
3128 |
|
|
3129 |
static object LI46(V440,V441) |
static object LI46(V441,V442) |
3130 |
|
|
3131 |
register object V440;object V441; |
register object V441;object V442; |
3132 |
{ VMB46 VMS46 VMV46 |
{ VMB46 VMS46 VMV46 |
3133 |
|
goto TTL; |
3134 |
TTL:; |
TTL:; |
3135 |
V442= list(3,VV[195],(V440),Cnil); |
V443= list(3,VV[195],(V441),Cnil); |
3136 |
V443= list(3,VV[15],(V440),list(3,VV[198],(V440),(V441))); |
V444= list(3,VV[15],(V441),list(3,VV[198],(V441),(V442))); |
3137 |
{object V444 = list(4,VV[97],/* INLINE-ARGS */V442,VV[56],list(4,VV[197],(V440),/* INLINE-ARGS */V443,list(3,VV[15],(V440),(V441)))); |
{object V445 = list(4,VV[97],/* INLINE-ARGS */V443,VV[56],list(4,VV[197],(V441),/* INLINE-ARGS */V444,list(3,VV[15],(V441),(V442)))); |
3138 |
VMR46(V444)} |
VMR46(V445)} |
3139 |
|
return Cnil; |
3140 |
} |
} |
3141 |
/* local entry for function MINIMIZE-SLOOP-COLLECT */ |
/* local entry for function MINIMIZE-SLOOP-COLLECT */ |
3142 |
|
|
3143 |
static object LI47(V447,V448) |
static object LI47(V448,V449) |
3144 |
|
|
3145 |
register object V447;object V448; |
register object V448;object V449; |
3146 |
{ VMB47 VMS47 VMV47 |
{ VMB47 VMS47 VMV47 |
3147 |
|
goto TTL; |
3148 |
TTL:; |
TTL:; |
3149 |
V449= list(3,VV[195],(V447),Cnil); |
V450= list(3,VV[195],(V448),Cnil); |
3150 |
V450= list(3,VV[15],(V447),list(3,VV[199],(V447),(V448))); |
V451= list(3,VV[15],(V448),list(3,VV[199],(V448),(V449))); |
3151 |
{object V451 = list(4,VV[97],/* INLINE-ARGS */V449,VV[56],list(4,VV[197],(V447),/* INLINE-ARGS */V450,list(3,VV[15],(V447),(V448)))); |
{object V452 = list(4,VV[97],/* INLINE-ARGS */V450,VV[56],list(4,VV[197],(V448),/* INLINE-ARGS */V451,list(3,VV[15],(V448),(V449)))); |
3152 |
VMR47(V451)} |
VMR47(V452)} |
3153 |
|
return Cnil; |
3154 |
} |
} |
3155 |
/* local entry for function COUNT-SLOOP-COLLECT */ |
/* local entry for function COUNT-SLOOP-COLLECT */ |
3156 |
|
|
3157 |
static object LI48(V454,V455) |
static object LI48(V455,V456) |
3158 |
|
|
3159 |
object V454;object V455; |
object V455;object V456; |
3160 |
{ VMB48 VMS48 VMV48 |
{ VMB48 VMS48 VMV48 |
3161 |
|
goto TTL; |
3162 |
TTL:; |
TTL:; |
3163 |
V456= list(3,VV[195],(V454),small_fixnum(0)); |
V457= list(3,VV[195],(V455),small_fixnum(0)); |
3164 |
{object V457 = list(4,VV[97],/* INLINE-ARGS */V456,VV[56],list(3,VV[5],(V455),list(3,VV[15],(V454),list(2,VV[200],(V454))))); |
{object V458 = list(4,VV[97],/* INLINE-ARGS */V457,VV[56],list(3,VV[5],(V456),list(3,VV[15],(V455),list(2,VV[200],(V455))))); |
3165 |
VMR48(V457)} |
VMR48(V458)} |
3166 |
|
return Cnil; |
3167 |
} |
} |
3168 |
/* local entry for function THEREIS-SLOOP-COLLECT */ |
/* local entry for function THEREIS-SLOOP-COLLECT */ |
3169 |
|
|
3170 |
static object LI49(V460,V461) |
static object LI49(V461,V462) |
3171 |
|
|
3172 |
object V460;object V461; |
object V461;object V462; |
3173 |
{ VMB49 VMS49 VMV49 |
{ VMB49 VMS49 VMV49 |
3174 |
|
goto TTL; |
3175 |
TTL:; |
TTL:; |
3176 |
{object V462 = list(2,VV[56],list(3,VV[197],(V461),list(2,VV[59],(V461)))); |
{object V463 = list(2,VV[56],list(3,VV[197],(V462),list(2,VV[59],(V462)))); |
3177 |
VMR49(V462)} |
VMR49(V463)} |
3178 |
|
return Cnil; |
3179 |
} |
} |
3180 |
/* local entry for function ALWAYS-SLOOP-COLLECT */ |
/* local entry for function ALWAYS-SLOOP-COLLECT */ |
3181 |
|
|
3182 |
static object LI50(V465,V466) |
static object LI50(V466,V467) |
3183 |
|
|
3184 |
object V465;object V466; |
object V466;object V467; |
3185 |
{ VMB50 VMS50 VMV50 |
{ VMB50 VMS50 VMV50 |
3186 |
|
goto TTL; |
3187 |
TTL:; |
TTL:; |
3188 |
V467= list(3,VV[195],(V465),Ct); |
V468= list(3,VV[195],(V466),Ct); |
3189 |
{object V468 = list(4,VV[97],/* INLINE-ARGS */V467,VV[56],list(3,VV[5],list(2,VV[140],(V466)),VV[201])); |
{object V469 = list(4,VV[97],/* INLINE-ARGS */V468,VV[56],list(3,VV[5],list(2,VV[140],(V467)),VV[201])); |
3190 |
VMR50(V468)} |
VMR50(V469)} |
3191 |
|
return Cnil; |
3192 |
} |
} |
3193 |
/* local entry for function NEVER-SLOOP-COLLECT */ |
/* local entry for function NEVER-SLOOP-COLLECT */ |
3194 |
|
|
3195 |
static object LI51(V471,V472) |
static object LI51(V472,V473) |
3196 |
|
|
3197 |
object V471;object V472; |
object V472;object V473; |
3198 |
{ VMB51 VMS51 VMV51 |
{ VMB51 VMS51 VMV51 |
3199 |
|
goto TTL; |
3200 |
TTL:; |
TTL:; |
3201 |
V473= list(3,VV[195],(V471),Ct); |
V474= list(3,VV[195],(V472),Ct); |
3202 |
{object V474 = list(4,VV[97],/* INLINE-ARGS */V473,VV[56],list(3,VV[5],(V472),VV[202])); |
{object V475 = list(4,VV[97],/* INLINE-ARGS */V474,VV[56],list(3,VV[5],(V473),VV[202])); |
3203 |
VMR51(V474)} |
VMR51(V475)} |
3204 |
|
return Cnil; |
3205 |
} |
} |
3206 |
/* local entry for function AVERAGING-SLOOP-MACRO */ |
/* local entry for function AVERAGING-SLOOP-MACRO */ |
3207 |
|
|
3208 |
static object LI52(V476) |
static object LI52(V477) |
3209 |
|
|
3210 |
object V476; |
object V477; |
3211 |
{ VMB52 VMS52 VMV52 |
{ VMB52 VMS52 VMV52 |
3212 |
|
goto TTL; |
3213 |
TTL:; |
TTL:; |
3214 |
base[0]= VV[91]; |
base[0]= VV[91]; |
3215 |
base[1]= VV[203]; |
base[1]= VV[203]; |
3225 |
base[11]= VV[77]; |
base[11]= VV[77]; |
3226 |
base[12]= VV[207]; |
base[12]= VV[207]; |
3227 |
base[13]= VV[56]; |
base[13]= VV[56]; |
3228 |
base[14]= list(3,VV[15],VV[203],list(3,VV[208],list(3,VV[144],VV[209],(V476)),VV[210])); |
base[14]= list(3,VV[15],VV[203],list(3,VV[208],list(3,VV[144],VV[209],(V477)),VV[210])); |
3229 |
base[15]= VV[211]; |
base[15]= VV[211]; |
3230 |
vs_top=(vs_base=base+0)+16; |
vs_top=(vs_base=base+0)+16; |
3231 |
LlistA(); |
LlistA(); |
3232 |
vs_top=sup; |
vs_top=sup; |
3233 |
{object V477 = vs_base[0]; |
{object V478 = vs_base[0]; |
3234 |
VMR52(V477)} |
VMR52(V478)} |
3235 |
|
base[0]=base[0]; |
3236 |
|
return Cnil; |
3237 |
} |
} |
3238 |
/* local entry for function REPEAT-SLOOP-MACRO */ |
/* local entry for function REPEAT-SLOOP-MACRO */ |
3239 |
|
|
3240 |
static object LI53(V479) |
static object LI53(V480) |
3241 |
|
|
3242 |
object V479; |
object V480; |
3243 |
{ VMB53 VMS53 VMV53 |
{ VMB53 VMS53 VMV53 |
3244 |
|
goto TTL; |
3245 |
TTL:; |
TTL:; |
3246 |
{object V480; |
{object V481; |
3247 |
vs_base=vs_top; |
vs_base=vs_top; |
3248 |
Lgensym(); |
Lgensym(); |
3249 |
vs_top=sup; |
vs_top=sup; |
3250 |
V480= vs_base[0]; |
V481= vs_base[0]; |
3251 |
{object V481 = list(4,VV[25],(V480),VV[157],(V479)); |
{object V482 = list(4,VV[25],(V481),VV[157],(V480)); |
3252 |
VMR53(V481)}} |
VMR53(V482)}} |
3253 |
|
base[0]=base[0]; |
3254 |
|
return Cnil; |
3255 |
} |
} |
3256 |
/* local entry for function RETURN-SLOOP-MACRO */ |
/* local entry for function RETURN-SLOOP-MACRO */ |
3257 |
|
|
3258 |
static object LI54(V483) |
static object LI54(V484) |
3259 |
|
|
3260 |
register object V483; |
register object V484; |
3261 |
{ VMB54 VMS54 VMV54 |
{ VMB54 VMS54 VMV54 |
3262 |
|
goto TTL; |
3263 |
TTL:; |
TTL:; |
3264 |
if(!(type_of((V483))==t_cons)){ |
if(!(type_of((V484))==t_cons)){ |
3265 |
goto T1177;} |
goto T1182;} |
3266 |
if(!((car((V483)))==(VV[21]))){ |
if(!((car((V484)))==(VV[21]))){ |
3267 |
goto T1177;} |
goto T1182;} |
3268 |
V484= cdr((V483)); |
V485= cdr((V484)); |
3269 |
goto T1175; |
goto T1180; |
3270 |
T1177:; |
goto T1182; |
3271 |
V484= make_cons((V483),Cnil); |
T1182:; |
3272 |
T1175:; |
V485= make_cons((V484),Cnil); |
3273 |
{object V485 = list(2,VV[56],make_cons(VV[59],V484)); |
goto T1180; |
3274 |
VMR54(V485)} |
T1180:; |
3275 |
|
{object V486 = list(2,VV[56],make_cons(VV[59],V485)); |
3276 |
|
VMR54(V486)} |
3277 |
|
return Cnil; |
3278 |
} |
} |
3279 |
/* local entry for function IN-TABLE-SLOOP-MAP */ |
/* local entry for function IN-TABLE-SLOOP-MAP */ |
3280 |
|
|
3281 |
static object LI55(V488,V489) |
static object LI55(V489,V490) |
3282 |
|
|
3283 |
object V488;object V489; |
object V489;object V490; |
3284 |
{ VMB55 VMS55 VMV55 |
{ VMB55 VMS55 VMV55 |
3285 |
|
goto TTL; |
3286 |
TTL:; |
TTL:; |
3287 |
{object V490 = list(3,VV[212],list(2,VV[213],listA(3,VV[214],(V488),VV[215])),(V489)); |
{object V491 = list(3,VV[212],list(2,VV[213],listA(3,VV[214],(V489),VV[215])),(V490)); |
3288 |
VMR55(V490)} |
VMR55(V491)} |
3289 |
|
return Cnil; |
3290 |
} |
} |
3291 |
/* local entry for function IN-PACKAGE-SLOOP-MAP */ |
/* local entry for function IN-PACKAGE-SLOOP-MAP */ |
3292 |
|
|
3293 |
static object LI56(V493,V494) |
static object LI56(V494,V495) |
3294 |
|
|
3295 |
object V493;object V494; |
object V494;object V495; |
3296 |
{ VMB56 VMS56 VMV56 |
{ VMB56 VMS56 VMV56 |
3297 |
|
goto TTL; |
3298 |
TTL:; |
TTL:; |
3299 |
{object V495 = list(3,VV[216],list(2,(V493),list(2,VV[217],(V494))),VV[181]); |
{object V496 = list(3,VV[216],list(2,(V494),list(2,VV[217],(V495))),VV[181]); |
3300 |
VMR56(V495)} |
VMR56(V496)} |
3301 |
|
return Cnil; |
3302 |
} |
} |
3303 |
/* local entry for function IN-ARRAY-SLOOP-FOR */ |
/* local entry for function IN-ARRAY-SLOOP-FOR */ |
3304 |
|
|
3305 |
static object LI57(V497,V496,va_alist) |
static object LI57(V498,V497,va_alist) |
3306 |
object V497,V496; |
object V498,V497; |
3307 |
va_dcl |
va_dcl |
3308 |
{ |
{ |
3309 |
va_list ap; |
va_list ap; |
3310 |
int narg = VFUN_NARGS; VMB57 VMS57 VMV57 |
int narg = VFUN_NARGS; VMB57 VMS57 VMV57 |
3311 |
{object V498; |
{object V499; |
3312 |
object V499; |
object V500; |
3313 |
register object V500; |
register object V501; |
3314 |
|
Vcs[0]=Vcs[0]; |
3315 |
|
va_start(ap); |
3316 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
3317 |
V498= V497; |
V499= V498; |
3318 |
V499= V496; |
V500= V497; |
3319 |
narg= narg - 2; |
narg= narg - 2; |
3320 |
va_start(ap); |
V502 = list_vector(narg,ap); |
3321 |
V501 = list_vector(narg,ap); |
V501= V502; |
3322 |
V500= V501; |
{object V503; |
|
{object V502; |
|
|
object V503; |
|
3323 |
object V504; |
object V504; |
3324 |
V502= Cnil; |
object V505; |
3325 |
V503= Cnil; |
V503= Cnil; |
3326 |
V504= Cnil; |
V504= Cnil; |
3327 |
if(!(type_of((V498))==t_cons||((V498))==Cnil)){ |
V505= Cnil; |
3328 |
goto T1183;} |
if(!(type_of((V499))==t_cons||((V499))==Cnil)){ |
3329 |
V502= car((V498)); |
goto T1188;} |
3330 |
V503= cadr((V498)); |
V503= car((V499)); |
3331 |
goto T1181; |
V504= cadr((V499)); |
3332 |
T1183:; |
goto T1186; |
3333 |
V502= (V498); |
goto T1188; |
3334 |
|
T1188:; |
3335 |
|
V503= (V499); |
3336 |
base[0]= VV[218]; |
base[0]= VV[218]; |
3337 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3338 |
Lgensym(); |
Lgensym(); |
3339 |
vs_top=sup; |
vs_top=sup; |
3340 |
V503= vs_base[0]; |
V504= vs_base[0]; |
3341 |
T1181:; |
goto T1186; |
3342 |
{object V505; |
T1186:; |
3343 |
{register object V506; |
{object V506; |
3344 |
register object V507; |
{register object V507; |
3345 |
V506= (V500); |
register object V508; |
3346 |
V507= Cnil; |
V507= (V501); |
3347 |
T1194:; |
V508= Cnil; |
3348 |
{register object V508; |
goto T1199; |
3349 |
V508= (*(LnkLI13))(car((V506))); |
T1199:; |
3350 |
{register object V509; |
{register object V509; |
3351 |
V509= (*(LnkLI9))((V508),VV[219]); |
V509= (*(LnkLI13))(car((V507))); |
|
if(((V509))==Cnil){ |
|
|
goto T1201;} |
|
|
goto T1197; |
|
|
T1201:; |
|
|
if(((*(LnkLI9))((V508),VV[220]))==Cnil){ |
|
|
goto T1204;} |
|
|
V504= Ct; |
|
|
goto T1197; |
|
|
T1204:; |
|
3352 |
{register object V510; |
{register object V510; |
3353 |
V510= (*(LnkLI9))((V508),VV[147]); |
V510= (*(LnkLI9))((V509),VV[219]); |
3354 |
if(((V510))==Cnil){ |
if(((V510))==Cnil){ |
3355 |
|
goto T1206;} |
3356 |
|
goto T1202; |
3357 |
|
goto T1206; |
3358 |
|
T1206:; |
3359 |
|
if(((*(LnkLI9))((V509),VV[220]))==Cnil){ |
3360 |
goto T1209;} |
goto T1209;} |
3361 |
goto T1197; |
V505= Ct; |
3362 |
|
goto T1202; |
3363 |
|
goto T1209; |
3364 |
T1209:; |
T1209:; |
3365 |
base[0]= (V506); |
{register object V511; |
3366 |
|
V511= (*(LnkLI9))((V509),VV[147]); |
3367 |
|
if(((V511))==Cnil){ |
3368 |
|
goto T1214;} |
3369 |
|
goto T1202; |
3370 |
|
goto T1214; |
3371 |
|
T1214:; |
3372 |
|
base[0]= (V507); |
3373 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3374 |
Lcopy_list(); |
Lcopy_list(); |
3375 |
vs_top=sup; |
vs_top=sup; |
3376 |
V500= vs_base[0]; |
V501= vs_base[0]; |
3377 |
V505= nreverse((V507)); |
V506= nreverse((V508)); |
3378 |
goto T1192;}}} |
goto T1197;}}} |
3379 |
|
goto T1202; |
3380 |
|
T1202:; |
3381 |
|
V508= make_cons(car((V507)),(V508)); |
3382 |
|
V508= make_cons(cadr((V507)),(V508)); |
3383 |
|
V507= cddr((V507)); |
3384 |
|
goto T1199;} |
3385 |
|
goto T1197; |
3386 |
T1197:; |
T1197:; |
3387 |
V507= make_cons(car((V506)),(V507)); |
if((V505)!=Cnil){ |
3388 |
V507= make_cons(cadr((V506)),(V507)); |
goto T1226;} |
3389 |
V506= cddr((V506)); |
V512= list(2,VV[157],list(2,VV[221],(V500))); |
3390 |
goto T1194;} |
V506= nconc(/* INLINE-ARGS */V512,(V506)); |
3391 |
T1192:; |
goto T1226; |
3392 |
if((V504)!=Cnil){ |
T1226:; |
3393 |
goto T1221;} |
V513= listA(5,VV[87],(V503),VV[56],list(3,VV[15],(V503),list(3,VV[222],(V500),(V504))),(V501)); |
3394 |
V511= list(2,VV[157],list(2,VV[221],(V499))); |
{object V514 = listA(3,VV[25],(V504),append((V506),/* INLINE-ARGS */V513)); |
3395 |
V505= nconc(/* INLINE-ARGS */V511,(V505)); |
VMR57(V514)}}} |
3396 |
T1221:; |
va_end(ap); |
3397 |
V512= listA(5,VV[87],(V502),VV[56],list(3,VV[15],(V502),list(3,VV[222],(V499),(V503))),(V500)); |
base[0]=base[0]; |
3398 |
{object V513 = listA(3,VV[25],(V503),append((V505),/* INLINE-ARGS */V512)); |
return Cnil;} |
|
VMR57(V513)}}}} |
|
3399 |
} |
} |
3400 |
/* local entry for function =-SLOOP-FOR */ |
/* local entry for function =-SLOOP-FOR */ |
3401 |
|
|
3402 |
static object LI58(V516,V517) |
static object LI58(V517,V518) |
3403 |
|
|
3404 |
register object V516;object V517; |
register object V517;object V518; |
3405 |
{ VMB58 VMS58 VMV58 |
{ VMB58 VMS58 VMV58 |
3406 |
|
goto TTL; |
3407 |
TTL:; |
TTL:; |
3408 |
{object V518; |
{object V519; |
3409 |
V519= (*(LnkLI254))(); |
V520= (*(LnkLI254))(); |
3410 |
V518= (*(LnkLI13))(/* INLINE-ARGS */V519); |
V519= (*(LnkLI13))(/* INLINE-ARGS */V520); |
3411 |
if(((*(LnkLI9))((V518),VV[223]))==Cnil){ |
if(((*(LnkLI9))((V519),VV[223]))==Cnil){ |
3412 |
goto T1225;} |
goto T1230;} |
3413 |
(void)((*(LnkLI255))()); |
(void)((*(LnkLI255))()); |
3414 |
V520= list(3,VV[139],(V516),(V517)); |
V521= list(3,VV[139],(V517),(V518)); |
3415 |
{object V521 = list(6,VV[87],(V516),VV[97],/* INLINE-ARGS */V520,VV[89],list(3,VV[139],(V516),(*(LnkLI255))())); |
{object V522 = list(6,VV[87],(V517),VV[97],/* INLINE-ARGS */V521,VV[89],list(3,VV[139],(V517),(*(LnkLI255))())); |
3416 |
VMR58(V521)} |
VMR58(V522)} |
3417 |
T1225:; |
goto T1230; |
3418 |
{object V522 = list(4,VV[87],(V516),VV[56],list(3,VV[139],(V516),(V517))); |
T1230:; |
3419 |
VMR58(V522)}} |
{object V523 = list(4,VV[87],(V517),VV[56],list(3,VV[139],(V517),(V518))); |
3420 |
|
VMR58(V523)}} |
3421 |
|
return Cnil; |
3422 |
} |
} |
3423 |
/* local entry for function SLOOP-SLOOP-MACRO */ |
/* local entry for function SLOOP-SLOOP-MACRO */ |
3424 |
|
|
3425 |
static object LI59(V524) |
static object LI59(V525) |
3426 |
|
|
3427 |
VOL object V524; |
VOL object V525; |
3428 |
{ VMB59 VMS59 VMV59 |
{ VMB59 VMS59 VMV59 |
3429 |
bds_check; |
bds_check; |
3430 |
|
goto TTL; |
3431 |
TTL:; |
TTL:; |
|
{object V525; |
|
|
V525= (*(LnkLI13))(car((V524))); |
|
3432 |
{object V526; |
{object V526; |
3433 |
V526= (*(LnkLI9))((V525),VV[25]); |
V526= (*(LnkLI13))(car((V525))); |
3434 |
if(((V526))==Cnil){ |
{object V527; |
3435 |
goto T1232;} |
V527= (*(LnkLI9))((V526),VV[25]); |
3436 |
goto T1228; |
if(((V527))==Cnil){ |
3437 |
T1232:; |
goto T1237;} |
3438 |
|
goto T1233; |
3439 |
|
goto T1237; |
3440 |
|
T1237:; |
3441 |
base[0]= VV[85]; |
base[0]= VV[85]; |
3442 |
base[1]= (V525); |
base[1]= (V526); |
3443 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3444 |
Lerror(); |
Lerror(); |
3445 |
vs_top=sup;}} |
vs_top=sup;}} |
3446 |
T1228:; |
goto T1233; |
3447 |
{VOL object V527; |
T1233:; |
3448 |
VOL object V528; |
{VOL object V528; |
3449 |
VOL object V529; |
VOL object V529; |
3450 |
VOL object V530; |
VOL object V530; |
3451 |
VOL object V531; |
VOL object V531; |
3452 |
VOL object V532; |
VOL object V532; |
3453 |
VOL object V533; |
VOL object V533; |
3454 |
|
VOL object V534; |
3455 |
base[4]= VV[224]; |
base[4]= VV[224]; |
3456 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3457 |
Lgensym(); |
Lgensym(); |
3458 |
vs_top=sup; |
vs_top=sup; |
3459 |
V528= vs_base[0]; |
V529= vs_base[0]; |
3460 |
bds_bind(VV[50],Cnil); |
bds_bind(VV[50],Cnil); |
3461 |
bds_bind(VV[49],Cnil); |
bds_bind(VV[49],Cnil); |
3462 |
bds_bind(VV[53],Cnil); |
bds_bind(VV[53],Cnil); |
3463 |
V527= Cnil; |
V528= Cnil; |
|
V529= Cnil; |
|
3464 |
V530= Cnil; |
V530= Cnil; |
3465 |
V531= Cnil; |
V531= Cnil; |
3466 |
V532= Cnil; |
V532= Cnil; |
3467 |
V533= Cnil; |
V533= Cnil; |
3468 |
bds_bind(VV[34],(V524)); |
V534= Cnil; |
3469 |
|
bds_bind(VV[34],(V525)); |
3470 |
setq(VV[40],Ct); |
setq(VV[40],Ct); |
3471 |
(void)((*(LnkLI255))()); |
(void)((*(LnkLI255))()); |
3472 |
{object V534; |
{object V535; |
3473 |
object V535; |
object V536; |
3474 |
V534= symbol_value(VV[46]); |
V535= symbol_value(VV[46]); |
3475 |
V535= (V529); |
V536= (V530); |
3476 |
V529= (V534); |
V530= (V535); |
3477 |
setq(VV[46],(V535));} |
setq(VV[46],(V536));} |
3478 |
{object V536; |
{object V537; |
3479 |
object V537; |
object V538; |
3480 |
V536= symbol_value(VV[48]); |
V537= symbol_value(VV[48]); |
3481 |
V537= (V530); |
V538= (V531); |
3482 |
V530= (V536); |
V531= (V537); |
3483 |
setq(VV[48],(V537));} |
setq(VV[48],(V538));} |
3484 |
{object V538; |
{object V539; |
3485 |
object V539; |
object V540; |
3486 |
V538= symbol_value(VV[43]); |
V539= symbol_value(VV[43]); |
3487 |
V539= (V531); |
V540= (V532); |
3488 |
V531= (V538); |
V532= (V539); |
3489 |
setq(VV[43],(V539));} |
setq(VV[43],(V540));} |
3490 |
{object V540; |
{object V541; |
3491 |
object V541; |
object V542; |
3492 |
V540= symbol_value(VV[41]); |
V541= symbol_value(VV[41]); |
3493 |
V541= (V532); |
V542= (V533); |
3494 |
V532= (V540); |
V533= (V541); |
3495 |
setq(VV[41],(V541));} |
setq(VV[41],(V542));} |
3496 |
{object V542; |
{object V543; |
3497 |
object V543; |
object V544; |
3498 |
V542= symbol_value(VV[42]); |
V543= symbol_value(VV[42]); |
3499 |
V543= (V533); |
V544= (V534); |
3500 |
V533= (V542); |
V534= (V543); |
3501 |
setq(VV[42],(V543));} |
setq(VV[42],(V544));} |
3502 |
(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); |
3503 |
(void)((*(LnkLI257))()); |
(void)((*(LnkLI257))()); |
3504 |
{object V544; |
{object V545; |
3505 |
object V545; |
object V546; |
3506 |
V544= symbol_value(VV[46]); |
V545= symbol_value(VV[46]); |
3507 |
V545= (V529); |
V546= (V530); |
3508 |
V529= (V544); |
V530= (V545); |
3509 |
setq(VV[46],(V545));} |
setq(VV[46],(V546));} |
3510 |
{object V546; |
{object V547; |
3511 |
object V547; |
object V548; |
3512 |
V546= symbol_value(VV[48]); |
V547= symbol_value(VV[48]); |
3513 |
V547= (V530); |
V548= (V531); |
3514 |
V530= (V546); |
V531= (V547); |
3515 |
setq(VV[48],(V547));} |
setq(VV[48],(V548));} |
3516 |
{object V548; |
{object V549; |
3517 |
object V549; |
object V550; |
3518 |
V548= symbol_value(VV[43]); |
V549= symbol_value(VV[43]); |
3519 |
V549= (V531); |
V550= (V532); |
3520 |
V531= (V548); |
V532= (V549); |
3521 |
setq(VV[43],(V549));} |
setq(VV[43],(V550));} |
3522 |
{object V550; |
{object V551; |
3523 |
object V551; |
object V552; |
3524 |
V550= symbol_value(VV[41]); |
V551= symbol_value(VV[41]); |
3525 |
V551= (V532); |
V552= (V533); |
3526 |
V532= (V550); |
V533= (V551); |
3527 |
setq(VV[41],(V551));} |
setq(VV[41],(V552));} |
3528 |
{object V552; |
{object V553; |
3529 |
object V553; |
object V554; |
3530 |
V552= symbol_value(VV[42]); |
V553= symbol_value(VV[42]); |
3531 |
V553= (V533); |
V554= (V534); |
3532 |
V533= (V552); |
V534= (V553); |
3533 |
setq(VV[42],(V553));} |
setq(VV[42],(V554));} |
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 |
T1318:; |
goto T1323; |
3536 |
|
T1323:; |
3537 |
if(((VV[34]->s.s_dbind))!=Cnil){ |
if(((VV[34]->s.s_dbind))!=Cnil){ |
3538 |
goto T1319;} |
goto T1324;} |
3539 |
goto T1316; |
goto T1321; |
3540 |
T1319:; |
goto T1324; |
3541 |
{VOL object V554; |
T1324:; |
3542 |
|
{VOL object V555; |
3543 |
frs_push(FRS_CATCH,VV[27]); |
frs_push(FRS_CATCH,VV[27]); |
3544 |
if(nlj_active) |
if(nlj_active) |
3545 |
{nlj_active=FALSE;frs_pop(); |
{nlj_active=FALSE;frs_pop(); |
3546 |
vs_top=sup; |
vs_top=sup; |
3547 |
V554= vs_base[0]; |
V555= vs_base[0]; |
3548 |
goto T1324;} |
goto T1329;} |
3549 |
else{ |
else{ |
3550 |
V555= (*(LnkLI251))(); |
V556= (*(LnkLI251))(); |
3551 |
frs_pop(); |
frs_pop(); |
3552 |
V554= V555;} |
V555= V556;} |
3553 |
T1324:; |
goto T1329; |
3554 |
if(((V554))==Cnil){ |
T1329:; |
3555 |
goto T1327;} |
if(((V555))==Cnil){ |
3556 |
goto T1323; |
goto T1332;} |
3557 |
T1327:; |
goto T1328; |
3558 |
|
goto T1332; |
3559 |
|
T1332:; |
3560 |
if(((VV[34]->s.s_dbind))!=Cnil){ |
if(((VV[34]->s.s_dbind))!=Cnil){ |
3561 |
goto T1330;} |
goto T1335;} |
3562 |
goto T1316; |
goto T1321; |
3563 |
T1330:; |
goto T1335; |
3564 |
|
T1335:; |
3565 |
(void)(print((VV[34]->s.s_dbind),Cnil)); |
(void)(print((VV[34]->s.s_dbind),Cnil)); |
3566 |
{object V556; |
{object V557; |
3567 |
object V557; |
object V558; |
3568 |
V556= symbol_value(VV[46]); |
V557= symbol_value(VV[46]); |
3569 |
V557= (V529); |
V558= (V530); |
3570 |
V529= (V556); |
V530= (V557); |
3571 |
setq(VV[46],(V557));} |
setq(VV[46],(V558));} |
3572 |
{object V558; |
{object V559; |
3573 |
object V559; |
object V560; |
3574 |
V558= symbol_value(VV[48]); |
V559= symbol_value(VV[48]); |
3575 |
V559= (V530); |
V560= (V531); |
3576 |
V530= (V558); |
V531= (V559); |
3577 |
setq(VV[48],(V559));} |
setq(VV[48],(V560));} |
3578 |
{object V560; |
{object V561; |
3579 |
object V561; |
object V562; |
3580 |
V560= symbol_value(VV[43]); |
V561= symbol_value(VV[43]); |
3581 |
V561= (V531); |
V562= (V532); |
3582 |
V531= (V560); |
V532= (V561); |
3583 |
setq(VV[43],(V561));} |
setq(VV[43],(V562));} |
3584 |
{object V562; |
{object V563; |
3585 |
object V563; |
object V564; |
3586 |
V562= symbol_value(VV[41]); |
V563= symbol_value(VV[41]); |
3587 |
V563= (V532); |
V564= (V533); |
3588 |
V532= (V562); |
V533= (V563); |
3589 |
setq(VV[41],(V563));} |
setq(VV[41],(V564));} |
3590 |
{object V564; |
{object V565; |
3591 |
object V565; |
object V566; |
3592 |
V564= symbol_value(VV[42]); |
V565= symbol_value(VV[42]); |
3593 |
V565= (V533); |
V566= (V534); |
3594 |
V533= (V564); |
V534= (V565); |
3595 |
setq(VV[42],(V565));} |
setq(VV[42],(V566));} |
3596 |
(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); |
3597 |
(void)((*(LnkLI261))()); |
(void)((*(LnkLI261))()); |
3598 |
{object V566; |
{object V567; |
3599 |
object V567; |
object V568; |
3600 |
V566= symbol_value(VV[46]); |
V567= symbol_value(VV[46]); |
3601 |
V567= (V529); |
V568= (V530); |
3602 |
V529= (V566); |
V530= (V567); |
3603 |
setq(VV[46],(V567));} |
setq(VV[46],(V568));} |
3604 |
{object V568; |
{object V569; |
3605 |
object V569; |
object V570; |
3606 |
V568= symbol_value(VV[48]); |
V569= symbol_value(VV[48]); |
3607 |
V569= (V530); |
V570= (V531); |
3608 |
V530= (V568); |
V531= (V569); |
3609 |
setq(VV[48],(V569));} |
setq(VV[48],(V570));} |
3610 |
{object V570; |
{object V571; |
3611 |
object V571; |
object V572; |
3612 |
V570= symbol_value(VV[43]); |
V571= symbol_value(VV[43]); |
3613 |
V571= (V531); |
V572= (V532); |
3614 |
V531= (V570); |
V532= (V571); |
3615 |
setq(VV[43],(V571));} |
setq(VV[43],(V572));} |
3616 |
{object V572; |
{object V573; |
3617 |
object V573; |
object V574; |
3618 |
V572= symbol_value(VV[41]); |
V573= symbol_value(VV[41]); |
3619 |
V573= (V532); |
V574= (V533); |
3620 |
V532= (V572); |
V533= (V573); |
3621 |
setq(VV[41],(V573));} |
setq(VV[41],(V574));} |
3622 |
{object V574; |
{object V575; |
3623 |
object V575; |
object V576; |
3624 |
V574= symbol_value(VV[42]); |
V575= symbol_value(VV[42]); |
3625 |
V575= (V533); |
V576= (V534); |
3626 |
V533= (V574); |
V534= (V575); |
3627 |
setq(VV[42],(V575));} |
setq(VV[42],(V576));} |
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)(print((VV[34]->s.s_dbind),Cnil));} |
(void)(print((VV[34]->s.s_dbind),Cnil));} |
3630 |
T1323:; |
goto T1328; |
3631 |
goto T1318; |
T1328:; |
3632 |
T1316:; |
goto T1323; |
3633 |
{object V576; |
goto T1321; |
3634 |
object V577; |
T1321:; |
3635 |
V576= symbol_value(VV[46]); |
{object V577; |
3636 |
V577= (V529); |
object V578; |
3637 |
V529= (V576); |
V577= symbol_value(VV[46]); |
3638 |
setq(VV[46],(V577));} |
V578= (V530); |
3639 |
{object V578; |
V530= (V577); |
3640 |
object V579; |
setq(VV[46],(V578));} |
3641 |
V578= symbol_value(VV[48]); |
{object V579; |
3642 |
V579= (V530); |
object V580; |
3643 |
V530= (V578); |
V579= symbol_value(VV[48]); |
3644 |
setq(VV[48],(V579));} |
V580= (V531); |
3645 |
{object V580; |
V531= (V579); |
3646 |
object V581; |
setq(VV[48],(V580));} |
3647 |
V580= symbol_value(VV[43]); |
{object V581; |
3648 |
V581= (V531); |
object V582; |
3649 |
V531= (V580); |
V581= symbol_value(VV[43]); |
3650 |
setq(VV[43],(V581));} |
V582= (V532); |
3651 |
{object V582; |
V532= (V581); |
3652 |
object V583; |
setq(VV[43],(V582));} |
3653 |
V582= symbol_value(VV[41]); |
{object V583; |
3654 |
V583= (V532); |
object V584; |
3655 |
V532= (V582); |
V583= symbol_value(VV[41]); |
3656 |
setq(VV[41],(V583));} |
V584= (V533); |
3657 |
{object V584; |
V533= (V583); |
3658 |
object V585; |
setq(VV[41],(V584));} |
3659 |
V584= symbol_value(VV[42]); |
{object V585; |
3660 |
V585= (V533); |
object V586; |
3661 |
V533= (V584); |
V585= symbol_value(VV[42]); |
3662 |
setq(VV[42],(V585));} |
V586= (V534); |
3663 |
|
V534= (V585); |
3664 |
|
setq(VV[42],(V586));} |
3665 |
(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); |
3666 |
V527= nreverse((VV[49]->s.s_dbind)); |
V528= nreverse((VV[49]->s.s_dbind)); |
3667 |
if((VV[53]->s.s_dbind)==Cnil){ |
if((VV[53]->s.s_dbind)==Cnil){ |
3668 |
goto T1449;} |
goto T1454;} |
3669 |
V527= (*(LnkLI252))((V527)); |
V528= (*(LnkLI252))((V528)); |
3670 |
T1449:; |
goto T1454; |
3671 |
{object V586; |
T1454:; |
3672 |
V587= list(3,VV[66],Cnil,list(3,VV[61],VV[225],list(2,VV[10],(V528)))); |
{object V587; |
3673 |
V588= make_cons(/* INLINE-ARGS */V587,Cnil); |
V588= list(3,VV[66],Cnil,list(3,VV[61],VV[225],list(2,VV[10],(V529)))); |
3674 |
|
V589= make_cons(/* INLINE-ARGS */V588,Cnil); |
3675 |
base[4]= nreverse(symbol_value(VV[48])); |
base[4]= nreverse(symbol_value(VV[48])); |
3676 |
if(((VV[53]->s.s_dbind))==Cnil){ |
if(((VV[53]->s.s_dbind))==Cnil){ |
3677 |
goto T1455;} |
goto T1460;} |
3678 |
base[5]= Cnil; |
base[5]= Cnil; |
3679 |
goto T1454; |
goto T1459; |
3680 |
T1455:; |
goto T1460; |
3681 |
|
T1460:; |
3682 |
base[5]= VV[226]; |
base[5]= VV[226]; |
3683 |
T1454:; |
goto T1459; |
3684 |
|
T1459:; |
3685 |
base[6]= nreverse(symbol_value(VV[41])); |
base[6]= nreverse(symbol_value(VV[41])); |
3686 |
base[7]= (V527); |
base[7]= (V528); |
3687 |
base[8]= nreverse(symbol_value(VV[42])); |
base[8]= nreverse(symbol_value(VV[42])); |
3688 |
if(((VV[53]->s.s_dbind))==Cnil){ |
if(((VV[53]->s.s_dbind))==Cnil){ |
3689 |
goto T1461;} |
goto T1466;} |
3690 |
base[9]= Cnil; |
base[9]= Cnil; |
3691 |
goto T1460; |
goto T1465; |
3692 |
T1461:; |
goto T1466; |
3693 |
|
T1466:; |
3694 |
base[9]= VV[227]; |
base[9]= VV[227]; |
3695 |
T1460:; |
goto T1465; |
3696 |
V590= nreverse(symbol_value(VV[43])); |
T1465:; |
3697 |
base[10]= make_cons((V528),/* INLINE-ARGS */V590); |
V591= nreverse(symbol_value(VV[43])); |
3698 |
|
base[10]= make_cons((V529),/* INLINE-ARGS */V591); |
3699 |
vs_top=(vs_base=base+4)+7; |
vs_top=(vs_base=base+4)+7; |
3700 |
Lappend(); |
Lappend(); |
3701 |
vs_top=sup; |
vs_top=sup; |
3702 |
V589= vs_base[0]; |
V590= vs_base[0]; |
3703 |
V586= list(3,VV[71],/* INLINE-ARGS */V588,make_cons(VV[73],V589)); |
V587= list(3,VV[71],/* INLINE-ARGS */V589,make_cons(VV[73],V590)); |
3704 |
{object V591; |
{object V592; |
3705 |
object V592; |
object V593; |
3706 |
V591= symbol_value(VV[46]); |
V592= symbol_value(VV[46]); |
3707 |
V592= car((V591)); |
V593= car((V592)); |
3708 |
T1468:; |
goto T1473; |
3709 |
if(!(endp((V591)))){ |
T1473:; |
3710 |
goto T1469;} |
if(!(endp((V592)))){ |
3711 |
goto T1464; |
goto T1474;} |
3712 |
|
goto T1469; |
3713 |
|
goto T1474; |
3714 |
|
T1474:; |
3715 |
|
V594= (*(LnkLI253))((V593)); |
3716 |
|
if((cdr((V593)))!=Cnil){ |
3717 |
|
goto T1481;} |
3718 |
|
V595= Cnil; |
3719 |
|
goto T1480; |
3720 |
|
goto T1481; |
3721 |
|
T1481:; |
3722 |
|
V596= make_cons(VV[77],cdr((V593))); |
3723 |
|
V595= make_cons(/* INLINE-ARGS */V596,Cnil); |
3724 |
|
goto T1480; |
3725 |
|
T1480:; |
3726 |
|
V597= make_cons((V587),Cnil); |
3727 |
|
V587= listA(3,VV[12],/* INLINE-ARGS */V594,append(V595,/* INLINE-ARGS */V597)); |
3728 |
|
V592= cdr((V592)); |
3729 |
|
V593= car((V592)); |
3730 |
|
goto T1473;} |
3731 |
|
goto T1469; |
3732 |
T1469:; |
T1469:; |
3733 |
V593= (*(LnkLI253))((V592)); |
{object V598; |
3734 |
if((cdr((V592)))!=Cnil){ |
object V599; |
3735 |
goto T1476;} |
V598= symbol_value(VV[46]); |
3736 |
V594= Cnil; |
V599= (V530); |
3737 |
goto T1475; |
V530= (V598); |
3738 |
T1476:; |
setq(VV[46],(V599));} |
3739 |
V595= make_cons(VV[77],cdr((V592))); |
{object V600; |
3740 |
V594= make_cons(/* INLINE-ARGS */V595,Cnil); |
object V601; |
3741 |
T1475:; |
V600= symbol_value(VV[48]); |
3742 |
V596= make_cons((V586),Cnil); |
V601= (V531); |
3743 |
V586= listA(3,VV[12],/* INLINE-ARGS */V593,append(V594,/* INLINE-ARGS */V596)); |
V531= (V600); |
3744 |
V591= cdr((V591)); |
setq(VV[48],(V601));} |
3745 |
V592= car((V591)); |
{object V602; |
3746 |
goto T1468;} |
object V603; |
3747 |
T1464:; |
V602= symbol_value(VV[43]); |
3748 |
{object V597; |
V603= (V532); |
3749 |
object V598; |
V532= (V602); |
3750 |
V597= symbol_value(VV[46]); |
setq(VV[43],(V603));} |
3751 |
V598= (V529); |
{object V604; |
3752 |
V529= (V597); |
object V605; |
3753 |
setq(VV[46],(V598));} |
V604= symbol_value(VV[41]); |
3754 |
{object V599; |
V605= (V533); |
3755 |
object V600; |
V533= (V604); |
3756 |
V599= symbol_value(VV[48]); |
setq(VV[41],(V605));} |
3757 |
V600= (V530); |
{object V606; |
3758 |
V530= (V599); |
object V607; |
3759 |
setq(VV[48],(V600));} |
V606= symbol_value(VV[42]); |
3760 |
{object V601; |
V607= (V534); |
3761 |
object V602; |
V534= (V606); |
3762 |
V601= symbol_value(VV[43]); |
setq(VV[42],(V607));} |
|
V602= (V531); |
|
|
V531= (V601); |
|
|
setq(VV[43],(V602));} |
|
|
{object V603; |
|
|
object V604; |
|
|
V603= symbol_value(VV[41]); |
|
|
V604= (V532); |
|
|
V532= (V603); |
|
|
setq(VV[41],(V604));} |
|
|
{object V605; |
|
|
object V606; |
|
|
V605= symbol_value(VV[42]); |
|
|
V606= (V533); |
|
|
V533= (V605); |
|
|
setq(VV[42],(V606));} |
|
3763 |
(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); |
3764 |
{object V607 = list(2,VV[56],(V586)); |
{object V608 = list(2,VV[56],(V587)); |
3765 |
bds_unwind1; |
bds_unwind1; |
3766 |
bds_unwind1; |
bds_unwind1; |
3767 |
bds_unwind1; |
bds_unwind1; |
3768 |
bds_unwind1; |
bds_unwind1; |
3769 |
VMR59(V607)}}} |
VMR59(V608)}}} |
3770 |
|
base[0]=base[0]; |
3771 |
|
return Cnil; |
3772 |
} |
} |
3773 |
/* local entry for function IN-CAREFULLY-SLOOP-FOR */ |
/* local entry for function IN-CAREFULLY-SLOOP-FOR */ |
3774 |
|
|
3775 |
static object LI60(V610,V611) |
static object LI60(V611,V612) |
3776 |
|
|
3777 |
object V610;object V611; |
object V611;object V612; |
3778 |
{ VMB60 VMS60 VMV60 |
{ VMB60 VMS60 VMV60 |
3779 |
|
goto TTL; |
3780 |
TTL:; |
TTL:; |
3781 |
{register object V612; |
{register object V613; |
3782 |
base[0]= VV[228]; |
base[0]= VV[228]; |
3783 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3784 |
Lgensym(); |
Lgensym(); |
3785 |
vs_top=sup; |
vs_top=sup; |
3786 |
V612= vs_base[0]; |
V613= vs_base[0]; |
3787 |
base[0]= VV[87]; |
base[0]= VV[87]; |
3788 |
base[1]= (V612); |
base[1]= (V613); |
3789 |
base[2]= VV[5]; |
base[2]= VV[5]; |
3790 |
base[3]= VV[87]; |
base[3]= VV[87]; |
3791 |
base[4]= (V610); |
base[4]= (V611); |
3792 |
base[5]= VV[97]; |
base[5]= VV[97]; |
3793 |
base[6]= list(3,VV[15],(V612),(V611)); |
base[6]= list(3,VV[15],(V613),(V612)); |
3794 |
base[7]= VV[56]; |
base[7]= VV[56]; |
3795 |
base[8]= list(3,VV[139],(V610),list(2,VV[17],(V612))); |
base[8]= list(3,VV[139],(V611),list(2,VV[17],(V613))); |
3796 |
base[9]= VV[90]; |
base[9]= VV[90]; |
3797 |
base[10]= list(3,VV[5],list(2,VV[229],(V612)),VV[230]); |
base[10]= list(3,VV[5],list(2,VV[229],(V613)),VV[230]); |
3798 |
base[11]= VV[89]; |
base[11]= VV[89]; |
3799 |
base[12]= list(3,VV[15],(V612),list(2,VV[18],(V612))); |
base[12]= list(3,VV[15],(V613),list(2,VV[18],(V613))); |
3800 |
vs_top=(vs_base=base+0)+13; |
vs_top=(vs_base=base+0)+13; |
3801 |
Llist(); |
Llist(); |
3802 |
vs_top=sup; |
vs_top=sup; |
3803 |
{object V613 = vs_base[0]; |
{object V614 = vs_base[0]; |
3804 |
VMR60(V613)}} |
VMR60(V614)}} |
3805 |
|
base[0]=base[0]; |
3806 |
|
return Cnil; |
3807 |
} |
} |
3808 |
/* local entry for function FIRST-USE-SLOOP-FOR */ |
/* local entry for function FIRST-USE-SLOOP-FOR */ |
3809 |
|
|
3810 |
static object LI61(V618,V619,V620,V621) |
static object LI61(V619,V620,V621,V622) |
3811 |
|
|
3812 |
object V618;object V619;object V620;object V621; |
object V619;object V620;object V621;object V622; |
3813 |
{ VMB61 VMS61 VMV61 |
{ VMB61 VMS61 VMV61 |
3814 |
TTL:;{object V622; |
goto TTL; |
3815 |
V622= (*(LnkLI9))((V620),VV[223]); |
TTL:;{object V623; |
3816 |
if(V622==Cnil)goto T1536; |
V623= (*(LnkLI9))((V621),VV[223]); |
3817 |
goto T1535; |
if(V623==Cnil)goto T1541; |
3818 |
T1536:;} |
goto T1540; |
3819 |
|
goto T1541; |
3820 |
|
T1541:;} |
3821 |
base[0]= VV[231]; |
base[0]= VV[231]; |
3822 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3823 |
Lerror(); |
Lerror(); |
3824 |
vs_top=sup; |
vs_top=sup; |
3825 |
T1535:; |
goto T1540; |
3826 |
V623= list(3,VV[139],(V618),(V619)); |
T1540:; |
3827 |
{object V624 = list(6,VV[87],(V618),VV[97],/* INLINE-ARGS */V623,VV[89],list(3,VV[139],(V618),(V621))); |
V624= list(3,VV[139],(V619),(V620)); |
3828 |
VMR61(V624)} |
{object V625 = list(6,VV[87],(V619),VV[97],/* INLINE-ARGS */V624,VV[89],list(3,VV[139],(V619),(V622))); |
3829 |
|
VMR61(V625)} |
3830 |
|
base[0]=base[0]; |
3831 |
|
return Cnil; |
3832 |
} |
} |
3833 |
/* local entry for function FIRST-SLOOP-FOR */ |
/* local entry for function FIRST-SLOOP-FOR */ |
3834 |
|
|
3835 |
static object LI62(V629,V630,V631,V632) |
static object LI62(V630,V631,V632,V633) |
3836 |
|
|
3837 |
register object V629;object V630;object V631;object V632; |
register object V630;object V631;object V632;object V633; |
3838 |
{ VMB62 VMS62 VMV62 |
{ VMB62 VMS62 VMV62 |
3839 |
TTL:;{object V633; |
goto TTL; |
3840 |
V633= (*(LnkLI9))((V631),VV[223]); |
TTL:;{object V634; |
3841 |
if(V633==Cnil)goto T1540; |
V634= (*(LnkLI9))((V632),VV[223]); |
3842 |
goto T1539; |
if(V634==Cnil)goto T1545; |
3843 |
T1540:;} |
goto T1544; |
3844 |
|
goto T1545; |
3845 |
|
T1545:;} |
3846 |
base[0]= VV[232]; |
base[0]= VV[232]; |
3847 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3848 |
Lerror(); |
Lerror(); |
3849 |
vs_top=sup; |
vs_top=sup; |
3850 |
T1539:; |
goto T1544; |
|
if((symbol_value(VV[42]))!=Cnil){ |
|
|
goto T1544;} |
|
|
V634= list(3,VV[139],(V629),(V630)); |
|
|
{object V635 = list(6,VV[87],(V629),VV[97],/* INLINE-ARGS */V634,VV[89],list(3,VV[139],(V629),(V632))); |
|
|
VMR62(V635)} |
|
3851 |
T1544:; |
T1544:; |
3852 |
{object V636; |
if((symbol_value(VV[42]))!=Cnil){ |
3853 |
|
goto T1549;} |
3854 |
|
V635= list(3,VV[139],(V630),(V631)); |
3855 |
|
{object V636 = list(6,VV[87],(V630),VV[97],/* INLINE-ARGS */V635,VV[89],list(3,VV[139],(V630),(V633))); |
3856 |
|
VMR62(V636)} |
3857 |
|
goto T1549; |
3858 |
|
T1549:; |
3859 |
|
{object V637; |
3860 |
vs_base=vs_top; |
vs_base=vs_top; |
3861 |
Lgensym(); |
Lgensym(); |
3862 |
vs_top=sup; |
vs_top=sup; |
3863 |
V636= vs_base[0]; |
V637= vs_base[0]; |
3864 |
V637= list(2,(V636),list(3,VV[139],(V629),(V632))); |
V638= list(2,(V637),list(3,VV[139],(V630),(V633))); |
3865 |
V638= list(3,VV[14],/* INLINE-ARGS */V637,list(2,Ct,list(3,VV[139],(V629),(V630)))); |
V639= list(3,VV[14],/* INLINE-ARGS */V638,list(2,Ct,list(3,VV[139],(V630),(V631)))); |
3866 |
{object V639 = list(8,VV[87],(V629),VV[87],(V636),VV[56],/* INLINE-ARGS */V638,VV[89],list(3,VV[139],(V636),Ct)); |
{object V640 = list(8,VV[87],(V630),VV[87],(V637),VV[56],/* INLINE-ARGS */V639,VV[89],list(3,VV[139],(V637),Ct)); |
3867 |
VMR62(V639)}} |
VMR62(V640)}} |
3868 |
|
base[0]=base[0]; |
3869 |
|
return Cnil; |
3870 |
} |
} |
3871 |
/* function definition for FIND-IN-ORDERED-LIST */ |
/* function definition for FIND-IN-ORDERED-LIST */ |
3872 |
|
|
3873 |
static L63() |
static void L63() |
3874 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3875 |
register object *sup=base+VM63; VC63 |
register object *sup=base+VM63; VC63 |
3876 |
vs_reserve(VM63); |
vs_reserve(VM63); |
3877 |
{register object V640; |
{register object V641; |
3878 |
object V641; |
object V642; |
3879 |
register object V642; |
register object V643; |
3880 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
3881 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
3882 |
V640=(base[0]); |
V641=(base[0]); |
3883 |
V641=(base[1]); |
V642=(base[1]); |
3884 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
3885 |
if(vs_base>=vs_top){vs_top=sup;goto T1547;} |
if(vs_base>=vs_top){vs_top=sup;goto T1552;} |
3886 |
V642=(base[2]); |
V643=(base[2]); |
3887 |
vs_top=sup; |
vs_top=sup; |
3888 |
goto T1548; |
goto T1553; |
3889 |
T1547:; |
goto T1552; |
|
V642= symbol_value(VV[233]); |
|
|
T1548:; |
|
|
{register object V643; |
|
|
V643= Cnil; |
|
|
{register object V644; |
|
|
V644= (V641); |
|
3890 |
T1552:; |
T1552:; |
3891 |
if(((V644))!=Cnil){ |
V643= symbol_value(VV[233]); |
3892 |
goto T1553;} |
goto T1553; |
3893 |
base[3]= (V643); |
T1553:; |
3894 |
|
{register object V644; |
3895 |
|
V644= Cnil; |
3896 |
|
{register object V645; |
3897 |
|
V645= (V642); |
3898 |
|
goto T1557; |
3899 |
|
T1557:; |
3900 |
|
if(((V645))!=Cnil){ |
3901 |
|
goto T1558;} |
3902 |
|
base[3]= (V644); |
3903 |
base[4]= Cnil; |
base[4]= Cnil; |
3904 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3905 |
return; |
return; |
3906 |
T1553:; |
goto T1558; |
3907 |
if(!(eql(car((V644)),(V640)))){ |
T1558:; |
3908 |
goto T1561;} |
if(!(eql(car((V645)),(V641)))){ |
3909 |
base[3]= (V644); |
goto T1566;} |
3910 |
|
base[3]= (V645); |
3911 |
base[4]= Ct; |
base[4]= Ct; |
3912 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3913 |
return; |
return; |
3914 |
T1561:; |
goto T1566; |
3915 |
base[3]= (V640); |
T1566:; |
3916 |
base[4]= car((V644)); |
base[3]= (V641); |
3917 |
|
base[4]= car((V645)); |
3918 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3919 |
super_funcall_no_event((V642)); |
super_funcall_no_event((V643)); |
3920 |
vs_top=sup; |
vs_top=sup; |
3921 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3922 |
goto T1559;} |
goto T1564;} |
3923 |
base[3]= (V643); |
base[3]= (V644); |
3924 |
base[4]= Cnil; |
base[4]= Cnil; |
3925 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3926 |
return; |
return; |
3927 |
T1559:; |
goto T1564; |
3928 |
V643= (V644); |
T1564:; |
3929 |
V644= cdr((V644)); |
V644= (V645); |
3930 |
goto T1552;}} |
V645= cdr((V645)); |
3931 |
|
goto T1557;}} |
3932 |
} |
} |
3933 |
} |
} |
3934 |
/* local entry for function COLLATE-SLOOP-COLLECT */ |
/* local entry for function COLLATE-SLOOP-COLLECT */ |
3935 |
|
|
3936 |
static object LI64(V647,V648) |
static object LI64(V648,V649) |
3937 |
|
|
3938 |
object V647;object V648; |
object V648;object V649; |
3939 |
{ VMB64 VMS64 VMV64 |
{ VMB64 VMS64 VMV64 |
3940 |
|
goto TTL; |
3941 |
TTL:; |
TTL:; |
3942 |
V649= list(3,VV[236],(V648),(V647)); |
V650= list(3,VV[236],(V649),(V648)); |
3943 |
V650= list(2,VV[238],list(3,VV[15],VV[239],list(3,VV[119],(V648),VV[240]))); |
V651= list(2,VV[238],list(3,VV[15],VV[239],list(3,VV[119],(V649),VV[240]))); |
3944 |
{object V651 = list(2,VV[56],list(4,VV[234],VV[235],/* INLINE-ARGS */V649,list(3,VV[104],VV[237],list(3,VV[14],/* INLINE-ARGS */V650,list(2,Ct,list(3,VV[15],(V647),list(3,VV[119],(V648),(V647)))))))); |
{object V652 = list(2,VV[56],list(4,VV[234],VV[235],/* INLINE-ARGS */V650,list(3,VV[104],VV[237],list(3,VV[14],/* INLINE-ARGS */V651,list(2,Ct,list(3,VV[15],(V648),list(3,VV[119],(V649),(V648)))))))); |
3945 |
VMR64(V651)} |
VMR64(V652)} |
3946 |
|
return Cnil; |
3947 |
} |
} |
3948 |
/* local entry for function IN-FRINGE-SLOOP-MAP */ |
/* local entry for function IN-FRINGE-SLOOP-MAP */ |
3949 |
|
|
3950 |
static object LI65(V654,V655) |
static object LI65(V655,V656) |
3951 |
|
|
3952 |
register object V654;object V655; |
register object V655;object V656; |
3953 |
{ VMB65 VMS65 VMV65 |
{ VMB65 VMS65 VMV65 |
3954 |
|
goto TTL; |
3955 |
TTL:; |
TTL:; |
3956 |
{register object V656; |
{register object V657; |
3957 |
vs_base=vs_top; |
vs_base=vs_top; |
3958 |
Lgensym(); |
Lgensym(); |
3959 |
vs_top=sup; |
vs_top=sup; |
3960 |
V656= vs_base[0]; |
V657= vs_base[0]; |
3961 |
V657= make_cons((V654),Cnil); |
V658= make_cons((V655),Cnil); |
3962 |
V658= list(2,(V656),VV[244]); |
V659= list(2,(V657),VV[244]); |
3963 |
V659= make_cons(/* INLINE-ARGS */V658,Cnil); |
V660= make_cons(/* INLINE-ARGS */V659,Cnil); |
3964 |
V660= list(2,VV[140],(V656)); |
V661= list(2,VV[140],(V657)); |
3965 |
V661= make_cons(/* INLINE-ARGS */V660,Cnil); |
V662= make_cons(/* INLINE-ARGS */V661,Cnil); |
3966 |
V662= list(2,VV[229],(V656)); |
V663= list(2,VV[229],(V657)); |
3967 |
V663= list(3,VV[15],(V654),(V656)); |
V664= list(3,VV[15],(V655),(V657)); |
3968 |
V664= list(3,/* INLINE-ARGS */V662,/* INLINE-ARGS */V663,list(3,VV[15],(V656),Cnil)); |
V665= list(3,/* INLINE-ARGS */V663,/* INLINE-ARGS */V664,list(3,VV[15],(V657),Cnil)); |
3969 |
V665= list(3,VV[15],(V654),list(2,VV[17],(V656))); |
V666= list(3,VV[15],(V655),list(2,VV[17],(V657))); |
3970 |
V666= list(3,VV[14],/* INLINE-ARGS */V664,list(3,Ct,/* INLINE-ARGS */V665,list(3,VV[15],(V656),list(2,VV[18],(V656))))); |
V667= list(3,VV[14],/* INLINE-ARGS */V665,list(3,Ct,/* INLINE-ARGS */V666,list(3,VV[15],(V657),list(2,VV[18],(V657))))); |
3971 |
V667= list(2,VV[140],(V654)); |
V668= list(2,VV[140],(V655)); |
3972 |
V668= make_cons(/* INLINE-ARGS */V667,Cnil); |
V669= make_cons(/* INLINE-ARGS */V668,Cnil); |
3973 |
V669= list(2,VV[229],(V654)); |
V670= list(2,VV[229],(V655)); |
3974 |
V670= make_cons(/* INLINE-ARGS */V669,VV[245]); |
V671= make_cons(/* INLINE-ARGS */V670,VV[245]); |
3975 |
V671= list(3,VV[242],VV[243],list(5,VV[56],/* INLINE-ARGS */V659,/* INLINE-ARGS */V661,/* INLINE-ARGS */V666,list(4,VV[14],/* INLINE-ARGS */V668,/* INLINE-ARGS */V670,list(2,Ct,list(2,VV[242],(V654)))))); |
V672= list(3,VV[242],VV[243],list(5,VV[56],/* INLINE-ARGS */V660,/* INLINE-ARGS */V662,/* INLINE-ARGS */V667,list(4,VV[14],/* INLINE-ARGS */V669,/* INLINE-ARGS */V671,list(2,Ct,list(2,VV[242],(V655)))))); |
3976 |
V672= make_cons(/* INLINE-ARGS */V671,Cnil); |
V673= make_cons(/* INLINE-ARGS */V672,Cnil); |
3977 |
{object V673 = list(3,VV[12],/* INLINE-ARGS */V657,list(3,VV[241],/* INLINE-ARGS */V672,list(2,VV[242],(V655)))); |
{object V674 = list(3,VV[12],/* INLINE-ARGS */V658,list(3,VV[241],/* INLINE-ARGS */V673,list(2,VV[242],(V656)))); |
3978 |
VMR65(V673)}} |
VMR65(V674)}} |
3979 |
} |
base[0]=base[0]; |
3980 |
static LnkT277(){ call_or_link(VV[277],&Lnk277);} /* SUBTYPEP */ |
return Cnil; |
3981 |
static object LnkTLI276(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[276],&LnkLI276,2,ap);} /* THE-TYPE */ |
} |
3982 |
static object LnkTLI275(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[275],&LnkLI275,2,ap);} /* PARSE-LOOP-MAP */ |
static void LnkT277(){ call_or_link(VV[277],(void **)&Lnk277);} /* SUBTYPEP */ |
3983 |
static object LnkTLI274(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[274],&LnkLI274,ap);} /* ADD-FROM-DATA */ |
static object LnkTLI276(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[276],(void **)&LnkLI276,2,ap);} /* THE-TYPE */ |
3984 |
static object LnkTLI273(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[273],&LnkLI273,ap);} /* LOOP-DECLARE-BINDING */ |
static object LnkTLI275(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[275],(void **)&LnkLI275,2,ap);} /* PARSE-LOOP-MAP */ |
3985 |
static object LnkTLI272(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[272],&LnkLI272,2,ap);} /* MAKE-VALUE */ |
static object LnkTLI274(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[274],(void **)&LnkLI274,ap);} /* ADD-FROM-DATA */ |
3986 |
static LnkT129(){ call_or_link(VV[129],&Lnk129);} /* TYPEP */ |
static object LnkTLI273(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[273],(void **)&LnkLI273,ap);} /* LOOP-DECLARE-BINDING */ |
3987 |
static object LnkTLI271(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[271],&LnkLI271,3,ap);} /* LOOP-PARSE-ADDITIONAL-COLLECTIONS */ |
static object LnkTLI272(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[272],(void **)&LnkLI272,2,ap);} /* MAKE-VALUE */ |
3988 |
static object LnkTLI270(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[270],&LnkLI270,1,ap);} /* POINTER-FOR-COLLECT */ |
static void LnkT129(){ call_or_link(VV[129],(void **)&Lnk129);} /* TYPEP */ |
3989 |
static object LnkTLI269(){return call_proc0(VV[269],&LnkLI269);} /* PARSE-ONE-WHEN-CLAUSE */ |
static object LnkTLI271(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[271],(void **)&LnkLI271,3,ap);} /* LOOP-PARSE-ADDITIONAL-COLLECTIONS */ |
3990 |
static object LnkTLI268(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[268],&LnkLI268,ap);} /* LOOP-ADD-TEMPS */ |
static object LnkTLI270(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[270],(void **)&LnkLI270,1,ap);} /* POINTER-FOR-COLLECT */ |
3991 |
static object LnkTLI267(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[267],&LnkLI267,ap);} /* LOOP-ADD-BINDING */ |
static object LnkTLI269(){return call_proc0(VV[269],(void **)&LnkLI269);} /* PARSE-ONE-WHEN-CLAUSE */ |
3992 |
static object LnkTLI266(){return call_proc0(VV[266],&LnkLI266);} /* LOOP-UN-POP */ |
static object LnkTLI268(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[268],(void **)&LnkLI268,ap);} /* LOOP-ADD-TEMPS */ |
3993 |
static object LnkTLI265(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[265],&LnkLI265,ap);} /* PARSE-LOOP-MACRO */ |
static object LnkTLI267(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[267],(void **)&LnkLI267,ap);} /* LOOP-ADD-BINDING */ |
3994 |
static object LnkTLI264(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[264],&LnkLI264,ap);} /* PARSE-LOOP-DECLARE */ |
static object LnkTLI266(){return call_proc0(VV[266],(void **)&LnkLI266);} /* LOOP-UN-POP */ |
3995 |
static object LnkTLI263(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[263],&LnkLI263,ap);} /* PARSE-LOOP-WITH */ |
static object LnkTLI265(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[265],(void **)&LnkLI265,ap);} /* PARSE-LOOP-MACRO */ |
3996 |
static object LnkTLI262(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[262],&LnkLI262,1,ap);} /* PARSE-LOOP-INITIALLY */ |
static object LnkTLI264(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[264],(void **)&LnkLI264,ap);} /* PARSE-LOOP-DECLARE */ |
3997 |
static object LnkTLI261(){return call_proc0(VV[261],&LnkLI261);} /* PARSE-LOOP-COLLECT */ |
static object LnkTLI263(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[263],(void **)&LnkLI263,ap);} /* PARSE-LOOP-WITH */ |
3998 |
static object LnkTLI260(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[260],&LnkLI260,1,ap);} /* LOOP-COLLECT-KEYWORD-P */ |
static object LnkTLI262(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[262],(void **)&LnkLI262,1,ap);} /* PARSE-LOOP-INITIALLY */ |
3999 |
static object LnkTLI259(){return call_proc0(VV[259],&LnkLI259);} /* PARSE-LOOP-WHEN */ |
static object LnkTLI261(){return call_proc0(VV[261],(void **)&LnkLI261);} /* PARSE-LOOP-COLLECT */ |
4000 |
static object LnkTLI258(){return call_proc0(VV[258],&LnkLI258);} /* PARSE-LOOP-DO */ |
static object LnkTLI260(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[260],(void **)&LnkLI260,1,ap);} /* LOOP-COLLECT-KEYWORD-P */ |
4001 |
static object LnkTLI257(){return call_proc0(VV[257],&LnkLI257);} /* PARSE-LOOP-FOR */ |
static object LnkTLI259(){return call_proc0(VV[259],(void **)&LnkLI259);} /* PARSE-LOOP-WHEN */ |
4002 |
static object LnkTLI256(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[256],&LnkLI256,1,ap);} /* PARSE-NO-BODY */ |
static object LnkTLI258(){return call_proc0(VV[258],(void **)&LnkLI258);} /* PARSE-LOOP-DO */ |
4003 |
static object LnkTLI255(){return call_proc0(VV[255],&LnkLI255);} /* LOOP-POP */ |
static object LnkTLI257(){return call_proc0(VV[257],(void **)&LnkLI257);} /* PARSE-LOOP-FOR */ |
4004 |
static object LnkTLI9(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[9],&LnkLI9,2,ap);} /* L-EQUAL */ |
static object LnkTLI256(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[256],(void **)&LnkLI256,1,ap);} /* PARSE-NO-BODY */ |
4005 |
static object LnkTLI254(){return call_proc0(VV[254],&LnkLI254);} /* LOOP-PEEK */ |
static object LnkTLI255(){return call_proc0(VV[255],(void **)&LnkLI255);} /* LOOP-POP */ |
4006 |
static object LnkTLI13(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[13],&LnkLI13,1,ap);} /* TRANSLATE-NAME */ |
static object LnkTLI9(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[9],(void **)&LnkLI9,2,ap);} /* L-EQUAL */ |
4007 |
static object LnkTLI253(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[253],&LnkLI253,1,ap);} /* LOOP-LET-BINDINGS */ |
static object LnkTLI254(){return call_proc0(VV[254],(void **)&LnkLI254);} /* LOOP-PEEK */ |
4008 |
static object LnkTLI252(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[252],&LnkLI252,1,ap);} /* SUBSTITUTE-SLOOP-BODY */ |
static object LnkTLI13(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[13],(void **)&LnkLI13,1,ap);} /* TRANSLATE-NAME */ |
4009 |
static object LnkTLI251(){return call_proc0(VV[251],&LnkLI251);} /* PARSE-LOOP1 */ |
static object LnkTLI253(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[253],(void **)&LnkLI253,1,ap);} /* LOOP-LET-BINDINGS */ |
4010 |
static object LnkTLI249(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[249],&LnkLI249,ap);} /* FIND */ |
static object LnkTLI252(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[252],(void **)&LnkLI252,1,ap);} /* SUBSTITUTE-SLOOP-BODY */ |
4011 |
static object LnkTLI248(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[248],&LnkLI248,ap);} /* DEF-LOOP-INTERNAL */ |
static object LnkTLI251(){return call_proc0(VV[251],(void **)&LnkLI251);} /* PARSE-LOOP1 */ |
4012 |
static object LnkTLI247(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[247],&LnkLI247,1,ap);} /* PARSE-LOOP */ |
static object LnkTLI249(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[249],(void **)&LnkLI249,ap);} /* FIND */ |
4013 |
static object LnkTLI246(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[246],&LnkLI246,2,ap);} /* DESETQ1 */ |
static object LnkTLI248(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[248],(void **)&LnkLI248,ap);} /* DEF-LOOP-INTERNAL */ |
4014 |
|
static object LnkTLI247(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[247],(void **)&LnkLI247,1,ap);} /* PARSE-LOOP */ |
4015 |
|
static object LnkTLI246(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[246],(void **)&LnkLI246,2,ap);} /* DESETQ1 */ |
4016 |
|
|
4017 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
4018 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |