59 |
|
|
60 |
register object V5; |
register object V5; |
61 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
62 |
goto TTL; |
goto TTL; |
63 |
TTL:; |
TTL:; |
64 |
{register object V6; |
{register object V6; |
65 |
object V7; |
object V7; |
78 |
register object V10; |
register object V10; |
79 |
V9= structure_ref((V7),VV[5],1); |
V9= structure_ref((V7),VV[5],1); |
80 |
V10= car((V9)); |
V10= car((V9)); |
81 |
goto T16; |
goto T16; |
82 |
T16:; |
T16:; |
83 |
if(!(endp_prop((V9)))){ |
if(!(endp_prop((V9)))){ |
84 |
goto T17;} |
goto T17;} |
85 |
goto T12; |
goto T12; |
86 |
goto T17; |
goto T17; |
87 |
T17:; |
T17:; |
88 |
V11= structure_ref((V10),VV[6],1); |
V11= structure_ref((V10),VV[6],1); |
89 |
if(!((/* INLINE-ARGS */V11)==(VV[7]))){ |
if(!((/* INLINE-ARGS */V11)==(VV[7]))){ |
91 |
if((structure_ref((V10),VV[6],3))==Cnil){ |
if((structure_ref((V10),VV[6],3))==Cnil){ |
92 |
goto T21;} |
goto T21;} |
93 |
(void)(structure_set((V10),VV[6],1,VV[8])); |
(void)(structure_set((V10),VV[6],1,VV[8])); |
94 |
goto T21; |
goto T21; |
95 |
T21:; |
T21:; |
96 |
V9= cdr((V9)); |
V9= cdr((V9)); |
97 |
V10= car((V9)); |
V10= car((V9)); |
98 |
goto T16;} |
goto T16;} |
99 |
goto T12; |
goto T12; |
100 |
T12:; |
T12:; |
101 |
if(type_of(V6)!=t_cons)FEwrong_type_argument(Scons,V6); |
if(type_of(V6)!=t_cons)FEwrong_type_argument(Scons,V6); |
102 |
(V6)->c.c_car = VV[9]; |
(V6)->c.c_car = VV[9]; |
103 |
{object V14 = (V6); |
{object V14 = (V6); |
104 |
VMR4(V14)} |
VMR4(V14)} |
105 |
goto T4; |
goto T4; |
106 |
T4:; |
T4:; |
107 |
{object V15 = (V6); |
{object V15 = (V6); |
108 |
VMR4(V15)}} |
VMR4(V15)}} |
115 |
|
|
116 |
register object V18;object V19; |
register object V18;object V19; |
117 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
118 |
goto TTL; |
goto TTL; |
119 |
TTL:; |
TTL:; |
120 |
princ_str("\n (DownClose",VV[10]); |
princ_str("\n (DownClose",VV[10]); |
121 |
(void)((*(LnkLI80))((V18))); |
(void)((*(LnkLI80))((V18))); |
138 |
static object LI6() |
static object LI6() |
139 |
|
|
140 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
141 |
goto TTL; |
goto TTL; |
142 |
TTL:; |
TTL:; |
143 |
base[0]= VV[11]; |
base[0]= VV[11]; |
144 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
155 |
|
|
156 |
object V23; |
object V23; |
157 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
158 |
goto TTL; |
goto TTL; |
159 |
TTL:; |
TTL:; |
160 |
if((symbol_value(VV[12]))==Cnil){ |
if((symbol_value(VV[12]))==Cnil){ |
161 |
goto T49;} |
goto T49;} |
168 |
(void)((*(LnkLI81))(VV[15])); |
(void)((*(LnkLI81))(VV[15])); |
169 |
{register object V24; |
{register object V24; |
170 |
V24= symbol_value(VV[12]); |
V24= symbol_value(VV[12]); |
171 |
goto T63; |
goto T63; |
172 |
T63:; |
T63:; |
173 |
if(((V24))!=Cnil){ |
if(((V24))!=Cnil){ |
174 |
goto T64;} |
goto T64;} |
175 |
goto T61; |
goto T61; |
176 |
goto T64; |
goto T64; |
177 |
T64:; |
T64:; |
178 |
(void)((*(LnkLI81))(VV[16])); |
(void)((*(LnkLI81))(VV[16])); |
179 |
(void)((*(LnkLI81))(car((V24)))); |
(void)((*(LnkLI81))(car((V24)))); |
180 |
if((cdr((V24)))==Cnil){ |
if((cdr((V24)))==Cnil){ |
181 |
goto T70;} |
goto T70;} |
182 |
(void)((*(LnkLI81))(VV[17])); |
(void)((*(LnkLI81))(VV[17])); |
183 |
goto T70; |
goto T70; |
184 |
T70:; |
T70:; |
185 |
V24= cdr((V24)); |
V24= cdr((V24)); |
186 |
goto T63;} |
goto T63;} |
187 |
goto T61; |
goto T61; |
188 |
T61:; |
T61:; |
189 |
{object V25 = (*(LnkLI81))(VV[18]); |
{object V25 = (*(LnkLI81))(VV[18]); |
190 |
VMR7(V25)} |
VMR7(V25)} |
191 |
goto T58; |
goto T58; |
192 |
T58:; |
T58:; |
193 |
{object V26 = Cnil; |
{object V26 = Cnil; |
194 |
VMR7(V26)} |
VMR7(V26)} |
195 |
goto T49; |
goto T49; |
196 |
T49:; |
T49:; |
197 |
{object V27 = Cnil; |
{object V27 = Cnil; |
198 |
VMR7(V27)} |
VMR7(V27)} |
204 |
|
|
205 |
object V29; |
object V29; |
206 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
207 |
goto TTL; |
goto TTL; |
208 |
TTL:; |
TTL:; |
209 |
{register object V30; |
{register object V30; |
210 |
setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1))); |
setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1))); |
214 |
goto T82;} |
goto T82;} |
215 |
V32= Cnil; |
V32= Cnil; |
216 |
goto T80; |
goto T80; |
217 |
goto T82; |
goto T82; |
218 |
T82:; |
T82:; |
219 |
V32= make_cons(small_fixnum(0),small_fixnum(0)); |
V32= make_cons(small_fixnum(0),small_fixnum(0)); |
220 |
goto T80; |
goto T80; |
221 |
T80:; |
T80:; |
222 |
V31= list(5,VV[23],V32,symbol_value(VV[25]),(V30),(V29)); |
V31= list(5,VV[23],V32,symbol_value(VV[25]),(V30),(V29)); |
223 |
setq(VV[26],make_cons((V31),symbol_value(VV[26])));} |
setq(VV[26],make_cons((V31),symbol_value(VV[26])));} |
251 |
V39= first;} |
V39= first;} |
252 |
V40= Ct; |
V40= Ct; |
253 |
--narg; goto T91; |
--narg; goto T91; |
254 |
goto T90; |
goto T90; |
255 |
T90:; |
T90:; |
256 |
V39= Cnil; |
V39= Cnil; |
257 |
V40= Cnil; |
V40= Cnil; |
258 |
goto T91; |
goto T91; |
259 |
T91:; |
T91:; |
260 |
{object V41; |
{object V41; |
261 |
object V42; |
object V42; |
304 |
goto T114;} |
goto T114;} |
305 |
V62= make_cons(VV[4],(V38)); |
V62= make_cons(VV[4],(V38)); |
306 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[32],/* INLINE-ARGS */V62))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[32],/* INLINE-ARGS */V62))); |
307 |
goto T114; |
goto T114; |
308 |
T114:; |
T114:; |
309 |
base[2]= cdr((V38)); |
base[2]= cdr((V38)); |
310 |
base[3]= Ct; |
base[3]= Ct; |
344 |
goto T121;} |
goto T121;} |
345 |
V63= listA(3,VV[33],(V39),(V53)); |
V63= listA(3,VV[33],(V39),(V53)); |
346 |
V53= make_cons(/* INLINE-ARGS */V63,Cnil); |
V53= make_cons(/* INLINE-ARGS */V63,Cnil); |
347 |
goto T121; |
goto T121; |
348 |
T121:; |
T121:; |
349 |
(void)((*(LnkLI88))((V54))); |
(void)((*(LnkLI88))((V54))); |
350 |
V51= car((V38)); |
V51= car((V38)); |
351 |
goto T130; |
goto T130; |
352 |
T130:; |
T130:; |
353 |
if(((V51))!=Cnil){ |
if(((V51))!=Cnil){ |
354 |
goto T136;} |
goto T136;} |
355 |
goto T128; |
goto T128; |
356 |
goto T136; |
goto T136; |
357 |
T136:; |
T136:; |
358 |
if(type_of((V51))==t_cons){ |
if(type_of((V51))==t_cons){ |
359 |
goto T139;} |
goto T139;} |
360 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51)))); |
361 |
goto T139; |
goto T139; |
362 |
T139:; |
T139:; |
363 |
{object V65; |
{object V65; |
364 |
V65= car((V51)); |
V65= car((V51)); |
367 |
{object V64= (V52); |
{object V64= (V52); |
368 |
if((V64!= VV[69]))goto T147; |
if((V64!= VV[69]))goto T147; |
369 |
goto T131; |
goto T131; |
370 |
goto T147; |
goto T147; |
371 |
T147:; |
T147:; |
372 |
if((V64!= VV[68]))goto T148; |
if((V64!= VV[68]))goto T148; |
373 |
goto T132; |
goto T132; |
374 |
goto T148; |
goto T148; |
375 |
T148:; |
T148:; |
376 |
if((V64!= VV[71]))goto T149; |
if((V64!= VV[71]))goto T149; |
377 |
goto T133; |
goto T133; |
378 |
goto T149; |
goto T149; |
379 |
T149:; |
T149:; |
380 |
if((V64!= VV[73]))goto T150; |
if((V64!= VV[73]))goto T150; |
381 |
goto T134; |
goto T134; |
382 |
goto T150; |
goto T150; |
383 |
T150:;} |
T150:;} |
384 |
{object V66; |
{object V66; |
385 |
V66= (*(LnkLI89))((V52),(V54),(V55),(V56)); |
V66= (*(LnkLI89))((V52),(V54),(V55),(V56)); |
387 |
(VV[30]->s.s_dbind)= make_cons(V66,(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons(V66,(VV[30]->s.s_dbind)); |
388 |
V41= make_cons(V66,(V41));} |
V41= make_cons(V66,(V41));} |
389 |
goto T130; |
goto T130; |
390 |
goto T131; |
goto T131; |
391 |
T131:; |
T131:; |
392 |
if(((V51))!=Cnil){ |
if(((V51))!=Cnil){ |
393 |
goto T158;} |
goto T158;} |
394 |
goto T128; |
goto T128; |
395 |
goto T158; |
goto T158; |
396 |
T158:; |
T158:; |
397 |
if(type_of((V51))==t_cons){ |
if(type_of((V51))==t_cons){ |
398 |
goto T161;} |
goto T161;} |
399 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51)))); |
400 |
goto T161; |
goto T161; |
401 |
T161:; |
T161:; |
402 |
{object V71; |
{object V71; |
403 |
V71= car((V51)); |
V71= car((V51)); |
406 |
{object V70= (V52); |
{object V70= (V52); |
407 |
if((V70!= VV[68]))goto T169; |
if((V70!= VV[68]))goto T169; |
408 |
goto T132; |
goto T132; |
409 |
goto T169; |
goto T169; |
410 |
T169:; |
T169:; |
411 |
if((V70!= VV[71]))goto T170; |
if((V70!= VV[71]))goto T170; |
412 |
goto T133; |
goto T133; |
413 |
goto T170; |
goto T170; |
414 |
T170:; |
T170:; |
415 |
if((V70!= VV[73]))goto T171; |
if((V70!= VV[73]))goto T171; |
416 |
goto T134; |
goto T134; |
417 |
goto T171; |
goto T171; |
418 |
T171:;} |
T171:;} |
419 |
if(type_of((V52))==t_cons){ |
if(type_of((V52))==t_cons){ |
420 |
goto T174;} |
goto T174;} |
428 |
V42= make_cons((V74),(V42));} |
V42= make_cons((V74),(V42));} |
429 |
(VV[30]->s.s_dbind)= make_cons(V72,(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons(V72,(VV[30]->s.s_dbind)); |
430 |
goto T172;} |
goto T172;} |
431 |
goto T174; |
goto T174; |
432 |
T174:; |
T174:; |
433 |
if(type_of(cdr((V52)))==t_cons){ |
if(type_of(cdr((V52)))==t_cons){ |
434 |
goto T184;} |
goto T184;} |
435 |
if((cdr((V52)))==Cnil){ |
if((cdr((V52)))==Cnil){ |
436 |
goto T186;} |
goto T186;} |
437 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
438 |
goto T186; |
goto T186; |
439 |
T186:; |
T186:; |
440 |
{object V78; |
{object V78; |
441 |
V78= (*(LnkLI89))(car((V52)),(V54),(V55),(V56)); |
V78= (*(LnkLI89))(car((V52)),(V54),(V55),(V56)); |
449 |
V42= make_cons((V80),(V42));} |
V42= make_cons((V80),(V42));} |
450 |
(VV[30]->s.s_dbind)= make_cons(V78,(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons(V78,(VV[30]->s.s_dbind)); |
451 |
goto T172;} |
goto T172;} |
452 |
goto T184; |
goto T184; |
453 |
T184:; |
T184:; |
454 |
if(type_of(cddr((V52)))==t_cons){ |
if(type_of(cddr((V52)))==t_cons){ |
455 |
goto T198;} |
goto T198;} |
456 |
if((cddr((V52)))==Cnil){ |
if((cddr((V52)))==Cnil){ |
457 |
goto T200;} |
goto T200;} |
458 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
459 |
goto T200; |
goto T200; |
460 |
T200:; |
T200:; |
461 |
{object V84; |
{object V84; |
462 |
object V85; |
object V85; |
472 |
V42= make_cons((V87),(V42));} |
V42= make_cons((V87),(V42));} |
473 |
(VV[30]->s.s_dbind)= make_cons(V85,(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons(V85,(VV[30]->s.s_dbind)); |
474 |
goto T172;} |
goto T172;} |
475 |
goto T198; |
goto T198; |
476 |
T198:; |
T198:; |
477 |
if((cdddr((V52)))==Cnil){ |
if((cdddr((V52)))==Cnil){ |
478 |
goto T212;} |
goto T212;} |
479 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
480 |
goto T212; |
goto T212; |
481 |
T212:; |
T212:; |
482 |
{object V91; |
{object V91; |
483 |
object V92; |
object V92; |
498 |
V42= make_cons((V96),(V42));} |
V42= make_cons((V96),(V42));} |
499 |
(VV[30]->s.s_dbind)= make_cons(V92,(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons(V92,(VV[30]->s.s_dbind)); |
500 |
(VV[30]->s.s_dbind)= make_cons(V93,(VV[30]->s.s_dbind));} |
(VV[30]->s.s_dbind)= make_cons(V93,(VV[30]->s.s_dbind));} |
501 |
goto T172; |
goto T172; |
502 |
T172:; |
T172:; |
503 |
goto T131; |
goto T131; |
504 |
goto T132; |
goto T132; |
505 |
T132:; |
T132:; |
506 |
if(type_of((V51))==t_cons){ |
if(type_of((V51))==t_cons){ |
507 |
goto T230;} |
goto T230;} |
508 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51)))); |
509 |
goto T230; |
goto T230; |
510 |
T230:; |
T230:; |
511 |
{object V101; |
{object V101; |
512 |
V101= car((V51)); |
V101= car((V51)); |
520 |
if(((V51))!=Cnil){ |
if(((V51))!=Cnil){ |
521 |
goto T244;} |
goto T244;} |
522 |
goto T128; |
goto T128; |
523 |
goto T244; |
goto T244; |
524 |
T244:; |
T244:; |
525 |
if(type_of((V51))==t_cons){ |
if(type_of((V51))==t_cons){ |
526 |
goto T247;} |
goto T247;} |
527 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51)))); |
528 |
goto T247; |
goto T247; |
529 |
T247:; |
T247:; |
530 |
{object V106; |
{object V106; |
531 |
V106= car((V51)); |
V106= car((V51)); |
534 |
{object V105= (V52); |
{object V105= (V52); |
535 |
if((V105!= VV[71]))goto T255; |
if((V105!= VV[71]))goto T255; |
536 |
goto T133; |
goto T133; |
537 |
goto T255; |
goto T255; |
538 |
T255:; |
T255:; |
539 |
if((V105!= VV[73]))goto T256; |
if((V105!= VV[73]))goto T256; |
540 |
goto T134; |
goto T134; |
541 |
goto T256; |
goto T256; |
542 |
T256:;} |
T256:;} |
543 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[36],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[36],(V52)))); |
544 |
goto T133; |
goto T133; |
545 |
T133:; |
T133:; |
546 |
V45= Ct; |
V45= Ct; |
547 |
if(((V51))!=Cnil){ |
if(((V51))!=Cnil){ |
548 |
goto T259;} |
goto T259;} |
549 |
goto T128; |
goto T128; |
550 |
goto T259; |
goto T259; |
551 |
T259:; |
T259:; |
552 |
if(type_of((V51))==t_cons){ |
if(type_of((V51))==t_cons){ |
553 |
goto T262;} |
goto T262;} |
554 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51)))); |
555 |
goto T262; |
goto T262; |
556 |
T262:; |
T262:; |
557 |
{object V108; |
{object V108; |
558 |
V108= car((V51)); |
V108= car((V51)); |
561 |
{object V107= (V52); |
{object V107= (V52); |
562 |
if((V107!= VV[73]))goto T270; |
if((V107!= VV[73]))goto T270; |
563 |
goto T134; |
goto T134; |
564 |
goto T270; |
goto T270; |
565 |
T270:; |
T270:; |
566 |
if((V107!= VV[72]))goto T271; |
if((V107!= VV[72]))goto T271; |
567 |
V47= Ct; |
V47= Ct; |
568 |
if(((V51))!=Cnil){ |
if(((V51))!=Cnil){ |
569 |
goto T274;} |
goto T274;} |
570 |
goto T128; |
goto T128; |
571 |
goto T274; |
goto T274; |
572 |
T274:; |
T274:; |
573 |
if(type_of((V51))==t_cons){ |
if(type_of((V51))==t_cons){ |
574 |
goto T277;} |
goto T277;} |
575 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51)))); |
576 |
goto T277; |
goto T277; |
577 |
T277:; |
T277:; |
578 |
{object V110; |
{object V110; |
579 |
V110= car((V51)); |
V110= car((V51)); |
582 |
{object V109= (V52); |
{object V109= (V52); |
583 |
if((V109!= VV[73]))goto T285; |
if((V109!= VV[73]))goto T285; |
584 |
goto T134; |
goto T134; |
585 |
goto T285; |
goto T285; |
586 |
T285:;} |
T285:;} |
587 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[37],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[37],(V52)))); |
588 |
goto T265; |
goto T265; |
589 |
goto T271; |
goto T271; |
590 |
T271:;} |
T271:;} |
591 |
goto T265; |
goto T265; |
592 |
T265:; |
T265:; |
593 |
if(type_of((V52))==t_cons){ |
if(type_of((V52))==t_cons){ |
594 |
goto T286;} |
goto T286;} |
595 |
V52= make_cons((V52),Cnil); |
V52= make_cons((V52),Cnil); |
596 |
goto T286; |
goto T286; |
597 |
T286:; |
T286:; |
598 |
if(!(type_of(car((V52)))==t_cons)){ |
if(!(type_of(car((V52)))==t_cons)){ |
599 |
goto T292;} |
goto T292;} |
604 |
goto T295;} |
goto T295;} |
605 |
if((cddar((V52)))==Cnil){ |
if((cddar((V52)))==Cnil){ |
606 |
goto T294;} |
goto T294;} |
607 |
goto T295; |
goto T295; |
608 |
T295:; |
T295:; |
609 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
610 |
goto T294; |
goto T294; |
611 |
T294:; |
T294:; |
612 |
V52= listA(3,caar((V52)),cadar((V52)),cdr((V52))); |
V52= listA(3,caar((V52)),cadar((V52)),cdr((V52))); |
613 |
goto T290; |
goto T290; |
614 |
goto T292; |
goto T292; |
615 |
T292:; |
T292:; |
616 |
if(type_of(car((V52)))==t_symbol){ |
if(type_of(car((V52)))==t_symbol){ |
617 |
goto T302;} |
goto T302;} |
618 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
619 |
goto T302; |
goto T302; |
620 |
T302:; |
T302:; |
621 |
base[2]= coerce_to_string(car((V52))); |
base[2]= coerce_to_string(car((V52))); |
622 |
base[3]= VV[38]; |
base[3]= VV[38]; |
625 |
vs_top=sup; |
vs_top=sup; |
626 |
V112= vs_base[0]; |
V112= vs_base[0]; |
627 |
V52= listA(3,V112,car((V52)),cdr((V52))); |
V52= listA(3,V112,car((V52)),cdr((V52))); |
628 |
goto T290; |
goto T290; |
629 |
T290:; |
T290:; |
630 |
if(type_of(cddr((V52)))==t_cons){ |
if(type_of(cddr((V52)))==t_cons){ |
631 |
goto T311;} |
goto T311;} |
632 |
if((cddr((V52)))==Cnil){ |
if((cddr((V52)))==Cnil){ |
633 |
goto T313;} |
goto T313;} |
634 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
635 |
goto T313; |
goto T313; |
636 |
T313:; |
T313:; |
637 |
{object V113; |
{object V113; |
638 |
V113= (*(LnkLI89))(cadr((V52)),(V54),(V55),(V56)); |
V113= (*(LnkLI89))(cadr((V52)),(V54),(V55),(V56)); |
647 |
V44= make_cons((V115),(V44));} |
V44= make_cons((V115),(V44));} |
648 |
(VV[30]->s.s_dbind)= make_cons(V113,(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons(V113,(VV[30]->s.s_dbind)); |
649 |
goto T309;} |
goto T309;} |
650 |
goto T311; |
goto T311; |
651 |
T311:; |
T311:; |
652 |
if(type_of(cdddr((V52)))==t_cons){ |
if(type_of(cdddr((V52)))==t_cons){ |
653 |
goto T325;} |
goto T325;} |
654 |
if((cdddr((V52)))==Cnil){ |
if((cdddr((V52)))==Cnil){ |
655 |
goto T327;} |
goto T327;} |
656 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
657 |
goto T327; |
goto T327; |
658 |
T327:; |
T327:; |
659 |
{object V120; |
{object V120; |
660 |
object V121; |
object V121; |
671 |
V44= make_cons((V123),(V44));} |
V44= make_cons((V123),(V44));} |
672 |
(VV[30]->s.s_dbind)= make_cons(V121,(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons(V121,(VV[30]->s.s_dbind)); |
673 |
goto T309;} |
goto T309;} |
674 |
goto T325; |
goto T325; |
675 |
T325:; |
T325:; |
676 |
if((cddddr((V52)))==Cnil){ |
if((cddddr((V52)))==Cnil){ |
677 |
goto T339;} |
goto T339;} |
678 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
679 |
goto T339; |
goto T339; |
680 |
T339:; |
T339:; |
681 |
{object V128; |
{object V128; |
682 |
object V129; |
object V129; |
698 |
V44= make_cons((V133),(V44));} |
V44= make_cons((V133),(V44));} |
699 |
(VV[30]->s.s_dbind)= make_cons(V129,(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons(V129,(VV[30]->s.s_dbind)); |
700 |
(VV[30]->s.s_dbind)= make_cons(V130,(VV[30]->s.s_dbind));} |
(VV[30]->s.s_dbind)= make_cons(V130,(VV[30]->s.s_dbind));} |
701 |
goto T309; |
goto T309; |
702 |
T309:; |
T309:; |
703 |
goto T133; |
goto T133; |
704 |
goto T134; |
goto T134; |
705 |
T134:; |
T134:; |
706 |
V60= (VFUN_NARGS=0,(*(LnkLI85))()); |
V60= (VFUN_NARGS=0,(*(LnkLI85))()); |
707 |
goto T135; |
goto T135; |
708 |
T135:; |
T135:; |
709 |
if(((V51))!=Cnil){ |
if(((V51))!=Cnil){ |
710 |
goto T358;} |
goto T358;} |
711 |
(void)((*(LnkLI94))((V59),(V60))); |
(void)((*(LnkLI94))((V59),(V60))); |
712 |
goto T128; |
goto T128; |
713 |
goto T358; |
goto T358; |
714 |
T358:; |
T358:; |
715 |
if(type_of((V51))==t_cons){ |
if(type_of((V51))==t_cons){ |
716 |
goto T362;} |
goto T362;} |
717 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51)))); |
718 |
goto T362; |
goto T362; |
719 |
T362:; |
T362:; |
720 |
{object V139; |
{object V139; |
721 |
V139= car((V51)); |
V139= car((V51)); |
728 |
if((cdr((V52)))==Cnil){ |
if((cdr((V52)))==Cnil){ |
729 |
goto T377;} |
goto T377;} |
730 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
731 |
goto T377; |
goto T377; |
732 |
T377:; |
T377:; |
733 |
{object V140; |
{object V140; |
734 |
V140= (*(LnkLI89))(car((V52)),(V54),(V55),(V56)); |
V140= (*(LnkLI89))(car((V52)),(V54),(V55),(V56)); |
742 |
V48= make_cons(V140,(V48)); |
V48= make_cons(V140,(V48)); |
743 |
(VV[30]->s.s_dbind)= make_cons(V140,(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons(V140,(VV[30]->s.s_dbind)); |
744 |
goto T370;} |
goto T370;} |
745 |
goto T375; |
goto T375; |
746 |
T375:; |
T375:; |
747 |
if((cddr((V52)))==Cnil){ |
if((cddr((V52)))==Cnil){ |
748 |
goto T390;} |
goto T390;} |
749 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52)))); |
750 |
goto T390; |
goto T390; |
751 |
T390:; |
T390:; |
752 |
{object V146; |
{object V146; |
753 |
object V147; |
object V147; |
763 |
V48= make_cons(V147,(V48)); |
V48= make_cons(V147,(V48)); |
764 |
(VV[30]->s.s_dbind)= make_cons(V147,(VV[30]->s.s_dbind)); |
(VV[30]->s.s_dbind)= make_cons(V147,(VV[30]->s.s_dbind)); |
765 |
goto T370;} |
goto T370;} |
766 |
goto T372; |
goto T372; |
767 |
T372:; |
T372:; |
768 |
{object V153; |
{object V153; |
769 |
V153= (*(LnkLI89))((V52),(V54),(V55),(V56)); |
V153= (*(LnkLI89))((V52),(V54),(V55),(V56)); |
774 |
V49= make_cons((V155),(V49));} |
V49= make_cons((V155),(V49));} |
775 |
V48= make_cons(V153,(V48)); |
V48= make_cons(V153,(V48)); |
776 |
(VV[30]->s.s_dbind)= make_cons(V153,(VV[30]->s.s_dbind));} |
(VV[30]->s.s_dbind)= make_cons(V153,(VV[30]->s.s_dbind));} |
777 |
goto T370; |
goto T370; |
778 |
T370:; |
T370:; |
779 |
goto T135; |
goto T135; |
780 |
goto T128; |
goto T128; |
781 |
T128:; |
T128:; |
782 |
V41= reverse((V41)); |
V41= reverse((V41)); |
783 |
V42= reverse((V42)); |
V42= reverse((V42)); |
791 |
object V160; |
object V160; |
792 |
V159= (V41); |
V159= (V41); |
793 |
V160= car((V159)); |
V160= car((V159)); |
794 |
goto T432; |
goto T432; |
795 |
T432:; |
T432:; |
796 |
if(!(endp_prop((V159)))){ |
if(!(endp_prop((V159)))){ |
797 |
goto T433;} |
goto T433;} |
798 |
goto T428; |
goto T428; |
799 |
goto T433; |
goto T433; |
800 |
T433:; |
T433:; |
801 |
(void)((*(LnkLI97))((V160))); |
(void)((*(LnkLI97))((V160))); |
802 |
V159= cdr((V159)); |
V159= cdr((V159)); |
803 |
V160= car((V159)); |
V160= car((V159)); |
804 |
goto T432;} |
goto T432;} |
805 |
goto T428; |
goto T428; |
806 |
T428:; |
T428:; |
807 |
{object V161; |
{object V161; |
808 |
object V162; |
object V162; |
809 |
V161= (V42); |
V161= (V42); |
810 |
V162= car((V161)); |
V162= car((V161)); |
811 |
goto T447; |
goto T447; |
812 |
T447:; |
T447:; |
813 |
if(!(endp_prop((V161)))){ |
if(!(endp_prop((V161)))){ |
814 |
goto T448;} |
goto T448;} |
815 |
goto T443; |
goto T443; |
816 |
goto T448; |
goto T448; |
817 |
T448:; |
T448:; |
818 |
(void)((*(LnkLI97))(car((V162)))); |
(void)((*(LnkLI97))(car((V162)))); |
819 |
if((caddr((V162)))==Cnil){ |
if((caddr((V162)))==Cnil){ |
820 |
goto T453;} |
goto T453;} |
821 |
(void)((*(LnkLI97))(caddr((V162)))); |
(void)((*(LnkLI97))(caddr((V162)))); |
822 |
goto T453; |
goto T453; |
823 |
T453:; |
T453:; |
824 |
V161= cdr((V161)); |
V161= cdr((V161)); |
825 |
V162= car((V161)); |
V162= car((V161)); |
826 |
goto T447;} |
goto T447;} |
827 |
goto T443; |
goto T443; |
828 |
T443:; |
T443:; |
829 |
if(((V43))==Cnil){ |
if(((V43))==Cnil){ |
830 |
goto T461;} |
goto T461;} |
831 |
(void)((*(LnkLI97))((V43))); |
(void)((*(LnkLI97))((V43))); |
832 |
goto T461; |
goto T461; |
833 |
T461:; |
T461:; |
834 |
{object V163; |
{object V163; |
835 |
object V164; |
object V164; |
836 |
V163= (V44); |
V163= (V44); |
837 |
V164= car((V163)); |
V164= car((V163)); |
838 |
goto T468; |
goto T468; |
839 |
T468:; |
T468:; |
840 |
if(!(endp_prop((V163)))){ |
if(!(endp_prop((V163)))){ |
841 |
goto T469;} |
goto T469;} |
842 |
goto T464; |
goto T464; |
843 |
goto T469; |
goto T469; |
844 |
T469:; |
T469:; |
845 |
(void)((*(LnkLI97))(cadr((V164)))); |
(void)((*(LnkLI97))(cadr((V164)))); |
846 |
if((cadddr((V164)))==Cnil){ |
if((cadddr((V164)))==Cnil){ |
847 |
goto T474;} |
goto T474;} |
848 |
(void)((*(LnkLI97))(cadddr((V164)))); |
(void)((*(LnkLI97))(cadddr((V164)))); |
849 |
goto T474; |
goto T474; |
850 |
T474:; |
T474:; |
851 |
V163= cdr((V163)); |
V163= cdr((V163)); |
852 |
V164= car((V163)); |
V164= car((V163)); |
853 |
goto T468;} |
goto T468;} |
854 |
goto T464; |
goto T464; |
855 |
T464:; |
T464:; |
856 |
{object V165; |
{object V165; |
857 |
object V166; |
object V166; |
858 |
V165= (V48); |
V165= (V48); |
859 |
V166= car((V165)); |
V166= car((V165)); |
860 |
goto T486; |
goto T486; |
861 |
T486:; |
T486:; |
862 |
if(!(endp_prop((V165)))){ |
if(!(endp_prop((V165)))){ |
863 |
goto T487;} |
goto T487;} |
864 |
goto T482; |
goto T482; |
865 |
goto T487; |
goto T487; |
866 |
T487:; |
T487:; |
867 |
(void)((*(LnkLI97))((V166))); |
(void)((*(LnkLI97))((V166))); |
868 |
V165= cdr((V165)); |
V165= cdr((V165)); |
869 |
V166= car((V165)); |
V166= car((V165)); |
870 |
goto T486;} |
goto T486;} |
871 |
goto T482; |
goto T482; |
872 |
T482:; |
T482:; |
873 |
if(((V48))==Cnil){ |
if(((V48))==Cnil){ |
874 |
goto T497;} |
goto T497;} |
877 |
if(!(eql((V61),symbol_value(VV[31])))){ |
if(!(eql((V61),symbol_value(VV[31])))){ |
878 |
goto T503;} |
goto T503;} |
879 |
goto T497; |
goto T497; |
880 |
goto T503; |
goto T503; |
881 |
T503:; |
T503:; |
882 |
(void)(structure_set((V60),VV[5],4,Ct)); |
(void)(structure_set((V60),VV[5],4,Ct)); |
883 |
goto T497; |
goto T497; |
884 |
T497:; |
T497:; |
885 |
V53= (*(LnkLI98))((V41),(V53),(V39)); |
V53= (*(LnkLI98))((V41),(V53),(V39)); |
886 |
V46= list(6,(V41),(V42),(V43),(V45),(V44),(V47)); |
V46= list(6,(V41),(V42),(V43),(V45),(V44),(V47)); |
887 |
if(symbol_value(VV[42])==Cnil){ |
if(symbol_value(VV[42])==Cnil){ |
888 |
goto T509;} |
goto T509;} |
889 |
(void)((*(LnkLI99))((V46))); |
(void)((*(LnkLI99))((V46))); |
890 |
goto T509; |
goto T509; |
891 |
T509:; |
T509:; |
892 |
{object V167 = list(5,VV[4],(V59),(V46),(V50),(V53)); |
{object V167 = list(5,VV[4],(V59),(V46),(V50),(V53)); |
893 |
bds_unwind1; |
bds_unwind1; |
902 |
|
|
903 |
object V171;object V172;object V173; |
object V171;object V172;object V173; |
904 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
905 |
goto TTL; |
goto TTL; |
906 |
TTL:; |
TTL:; |
907 |
{object V174; |
{object V174; |
908 |
object V175; |
object V175; |
920 |
register object V181; |
register object V181; |
921 |
V180= (V171); |
V180= (V171); |
922 |
V181= (V178); |
V181= (V178); |
923 |
goto T518; |
goto T518; |
924 |
T518:; |
T518:; |
925 |
if(((V180))!=Cnil){ |
if(((V180))!=Cnil){ |
926 |
goto T519;} |
goto T519;} |
927 |
goto T516; |
goto T516; |
928 |
goto T519; |
goto T519; |
929 |
T519:; |
T519:; |
930 |
V177= car((V180)); |
V177= car((V180)); |
931 |
if(((V179))!=Cnil){ |
if(((V179))!=Cnil){ |
934 |
goto T527;} |
goto T527;} |
935 |
{object V182 = (V172); |
{object V182 = (V172); |
936 |
VMR10(V182)} |
VMR10(V182)} |
937 |
goto T527; |
goto T527; |
938 |
T527:; |
T527:; |
939 |
V183= structure_ref((V177),VV[6],1); |
V183= structure_ref((V177),VV[6],1); |
940 |
if(!((/* INLINE-ARGS */V183)==(VV[8]))){ |
if(!((/* INLINE-ARGS */V183)==(VV[8]))){ |
951 |
goto T537;} |
goto T537;} |
952 |
V176= (VFUN_NARGS=0,(*(LnkLI85))()); |
V176= (VFUN_NARGS=0,(*(LnkLI85))()); |
953 |
V188= (V176); |
V188= (V176); |
954 |
goto T537; |
goto T537; |
955 |
T537:; |
T537:; |
956 |
V186= list(3,VV[6],V188,list(2,(V185),Cnil)); |
V186= list(3,VV[6],V188,list(2,(V185),Cnil)); |
957 |
V174= make_cons(V177,(V174)); |
V174= make_cons(V177,(V174)); |
966 |
V194= make_cons(V185,/* INLINE-ARGS */V195); |
V194= make_cons(V185,/* INLINE-ARGS */V195); |
967 |
(void)(structure_set((V193),VV[5],1,(V194)));} |
(void)(structure_set((V193),VV[5],1,(V194)));} |
968 |
V175= make_cons(V186,(V175));} |
V175= make_cons(V186,(V175));} |
969 |
goto T525; |
goto T525; |
970 |
T525:; |
T525:; |
971 |
V180= cdr((V180)); |
V180= cdr((V180)); |
972 |
V181= cdr((V181)); |
V181= cdr((V181)); |
973 |
goto T518;} |
goto T518;} |
974 |
goto T516; |
goto T516; |
975 |
T516:; |
T516:; |
976 |
if(((V174))==Cnil){ |
if(((V174))==Cnil){ |
977 |
goto T553;} |
goto T553;} |
978 |
{object V197 = list(5,VV[41],(V176),(V174),(V175),(V172)); |
{object V197 = list(5,VV[41],(V176),(V174),(V175),(V172)); |
979 |
VMR10(V197)} |
VMR10(V197)} |
980 |
goto T553; |
goto T553; |
981 |
T553:; |
T553:; |
982 |
{object V198 = (V172); |
{object V198 = (V172); |
983 |
VMR10(V198)}}} |
VMR10(V198)}}} |
990 |
|
|
991 |
register object V200; |
register object V200; |
992 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
993 |
goto TTL; |
goto TTL; |
994 |
TTL:; |
TTL:; |
995 |
if(type_of((V200))==t_symbol){ |
if(type_of((V200))==t_symbol){ |
996 |
goto T555;} |
goto T555;} |
997 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[46],(V200)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[46],(V200)))); |
998 |
goto T555; |
goto T555; |
999 |
T555:; |
T555:; |
1000 |
base[0]= (V200); |
base[0]= (V200); |
1001 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1004 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1005 |
goto T558;} |
goto T558;} |
1006 |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[47],(V200)))); |
(void)((VFUN_NARGS=2,(*(LnkLI86))(VV[47],(V200)))); |
1007 |
goto T558; |
goto T558; |
1008 |
T558:; |
T558:; |
1009 |
{object V201 = (V200); |
{object V201 = (V200); |
1010 |
VMR11(V201)} |
VMR11(V201)} |
1033 |
V206= first;} |
V206= first;} |
1034 |
V207= Ct; |
V207= Ct; |
1035 |
--narg; goto T563; |
--narg; goto T563; |
1036 |
goto T562; |
goto T562; |
1037 |
T562:; |
T562:; |
1038 |
V206= Cnil; |
V206= Cnil; |
1039 |
V207= Cnil; |
V207= Cnil; |
1040 |
goto T563; |
goto T563; |
1041 |
T563:; |
T563:; |
1042 |
if((symbol_value(VV[49]))==Cnil){ |
if((symbol_value(VV[49]))==Cnil){ |
1043 |
goto T567;} |
goto T567;} |
1047 |
register object V209; |
register object V209; |
1048 |
V208= car((V204)); |
V208= car((V204)); |
1049 |
V209= car((V208)); |
V209= car((V208)); |
1050 |
goto T577; |
goto T577; |
1051 |
T577:; |
T577:; |
1052 |
if(!(endp_prop((V208)))){ |
if(!(endp_prop((V208)))){ |
1053 |
goto T578;} |
goto T578;} |
1054 |
goto T573; |
goto T573; |
1055 |
goto T578; |
goto T578; |
1056 |
T578:; |
T578:; |
1057 |
if((structure_ref((V209),VV[6],3))==Cnil){ |
if((structure_ref((V209),VV[6],3))==Cnil){ |
1058 |
goto T582;} |
goto T582;} |
1059 |
goto T567; |
goto T567; |
1060 |
goto T582; |
goto T582; |
1061 |
T582:; |
T582:; |
1062 |
V208= cdr((V208)); |
V208= cdr((V208)); |
1063 |
V209= car((V208)); |
V209= car((V208)); |
1064 |
goto T577;} |
goto T577;} |
1065 |
goto T573; |
goto T573; |
1066 |
T573:; |
T573:; |
1067 |
if((cadr((V204)))!=Cnil){ |
if((cadr((V204)))!=Cnil){ |
1068 |
goto T567;} |
goto T567;} |
1072 |
goto T567;} |
goto T567;} |
1073 |
base[0]= make_cons((V206),car((V204))); |
base[0]= make_cons((V206),car((V204))); |
1074 |
goto T565; |
goto T565; |
1075 |
goto T567; |
goto T567; |
1076 |
T567:; |
T567:; |
1077 |
base[0]= Cnil; |
base[0]= Cnil; |
1078 |
goto T565; |
goto T565; |
1079 |
T565:; |
T565:; |
1080 |
bds_bind(VV[48],base[0]); |
bds_bind(VV[48],base[0]); |
1081 |
if((caddr((V204)))==Cnil){ |
if((caddr((V204)))==Cnil){ |
1085 |
goto T597;} |
goto T597;} |
1086 |
base[1]= Ct; |
base[1]= Ct; |
1087 |
goto T595; |
goto T595; |
1088 |
goto T597; |
goto T597; |
1089 |
T597:; |
T597:; |
1090 |
base[1]= symbol_value(VV[50]); |
base[1]= symbol_value(VV[50]); |
1091 |
goto T595; |
goto T595; |
1092 |
T595:; |
T595:; |
1093 |
bds_bind(VV[50],base[1]); |
bds_bind(VV[50],base[1]); |
1094 |
if((cadddr((V204)))==Cnil){ |
if((cadddr((V204)))==Cnil){ |
1097 |
bds_unwind1; |
bds_unwind1; |
1098 |
bds_unwind1; |
bds_unwind1; |
1099 |
VMR12(V211)} |
VMR12(V211)} |
1100 |
goto T602; |
goto T602; |
1101 |
T602:; |
T602:; |
1102 |
{object V212 = (*(LnkLI101))((V204),(V205)); |
{object V212 = (*(LnkLI101))((V204),(V205)); |
1103 |
bds_unwind1; |
bds_unwind1; |
1114 |
object V215;object V216; |
object V215;object V216; |
1115 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
1116 |
bds_check; |
bds_check; |
1117 |
goto TTL; |
goto TTL; |
1118 |
TTL:; |
TTL:; |
1119 |
{object V217; |
{object V217; |
1120 |
object V218; |
object V218; |
1133 |
object V222; |
object V222; |
1134 |
V221= (V217); |
V221= (V217); |
1135 |
V222= car((V221)); |
V222= car((V221)); |
1136 |
goto T613; |
goto T613; |
1137 |
T613:; |
T613:; |
1138 |
if(!(endp_prop((V221)))){ |
if(!(endp_prop((V221)))){ |
1139 |
goto T614;} |
goto T614;} |
1140 |
goto T609; |
goto T609; |
1141 |
goto T614; |
goto T614; |
1142 |
T614:; |
T614:; |
1143 |
base[9]= (V222); |
base[9]= (V222); |
1144 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
1147 |
V221= cdr((V221)); |
V221= cdr((V221)); |
1148 |
V222= car((V221)); |
V222= car((V221)); |
1149 |
goto T613;} |
goto T613;} |
1150 |
goto T609; |
goto T609; |
1151 |
T609:; |
T609:; |
1152 |
{register object V223; |
{register object V223; |
1153 |
object V224; |
object V224; |
1154 |
V223= (V218); |
V223= (V218); |
1155 |
V224= car((V223)); |
V224= car((V223)); |
1156 |
goto T629; |
goto T629; |
1157 |
T629:; |
T629:; |
1158 |
if(!(endp_prop((V223)))){ |
if(!(endp_prop((V223)))){ |
1159 |
goto T630;} |
goto T630;} |
1160 |
goto T625; |
goto T625; |
1161 |
goto T630; |
goto T630; |
1162 |
T630:; |
T630:; |
1163 |
base[9]= car((V224)); |
base[9]= car((V224)); |
1164 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
1170 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
1171 |
L14(base); |
L14(base); |
1172 |
vs_top=sup; |
vs_top=sup; |
1173 |
goto T636; |
goto T636; |
1174 |
T636:; |
T636:; |
1175 |
V223= cdr((V223)); |
V223= cdr((V223)); |
1176 |
V224= car((V223)); |
V224= car((V223)); |
1177 |
goto T629;} |
goto T629;} |
1178 |
goto T625; |
goto T625; |
1179 |
T625:; |
T625:; |
1180 |
if(((V219))==Cnil){ |
if(((V219))==Cnil){ |
1181 |
goto T608;} |
goto T608;} |
1183 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1184 |
L14(base); |
L14(base); |
1185 |
vs_top=sup; |
vs_top=sup; |
1186 |
goto T608; |
goto T608; |
1187 |
T608:; |
T608:; |
1188 |
if((symbol_value(VV[55]))!=Cnil){ |
if((symbol_value(VV[55]))!=Cnil){ |
1189 |
goto T649;} |
goto T649;} |
1190 |
if((symbol_value(VV[56]))==Cnil){ |
if((symbol_value(VV[56]))==Cnil){ |
1191 |
goto T648;} |
goto T648;} |
1192 |
goto T649; |
goto T649; |
1193 |
T649:; |
T649:; |
1194 |
if(((V219))!=Cnil){ |
if(((V219))!=Cnil){ |
1195 |
goto T653;} |
goto T653;} |
1196 |
if(((V218))==Cnil){ |
if(((V218))==Cnil){ |
1197 |
goto T654;} |
goto T654;} |
1198 |
goto T653; |
goto T653; |
1199 |
T653:; |
T653:; |
1200 |
if(((V217))==Cnil){ |
if(((V217))==Cnil){ |
1201 |
goto T658;} |
goto T658;} |
1203 |
V225 = make_fixnum((long)length((V217))); |
V225 = make_fixnum((long)length((V217))); |
1204 |
(void)((*(LnkLI80))(V225)); |
(void)((*(LnkLI80))(V225)); |
1205 |
princ_str(") too_few_arguments();",VV[10]); |
princ_str(") too_few_arguments();",VV[10]); |
1206 |
goto T658; |
goto T658; |
1207 |
T658:; |
T658:; |
1208 |
if(((V219))!=Cnil){ |
if(((V219))!=Cnil){ |
1209 |
goto T648;} |
goto T648;} |
1214 |
(void)((*(LnkLI80))(/* INLINE-ARGS */V228)); |
(void)((*(LnkLI80))(/* INLINE-ARGS */V228)); |
1215 |
princ_str(") too_many_arguments();",VV[10]); |
princ_str(") too_many_arguments();",VV[10]); |
1216 |
goto T648; |
goto T648; |
1217 |
goto T654; |
goto T654; |
1218 |
T654:; |
T654:; |
1219 |
princ_str("\n check_arg(",VV[10]); |
princ_str("\n check_arg(",VV[10]); |
1220 |
V229 = make_fixnum((long)length((V217))); |
V229 = make_fixnum((long)length((V217))); |
1221 |
(void)((*(LnkLI80))(V229)); |
(void)((*(LnkLI80))(V229)); |
1222 |
princ_str(");",VV[10]); |
princ_str(");",VV[10]); |
1223 |
goto T648; |
goto T648; |
1224 |
T648:; |
T648:; |
1225 |
{register object V230; |
{register object V230; |
1226 |
object V231; |
object V231; |
1227 |
V230= (V217); |
V230= (V217); |
1228 |
V231= car((V230)); |
V231= car((V230)); |
1229 |
goto T676; |
goto T676; |
1230 |
T676:; |
T676:; |
1231 |
if(!(endp_prop((V230)))){ |
if(!(endp_prop((V230)))){ |
1232 |
goto T677;} |
goto T677;} |
1233 |
goto T672; |
goto T672; |
1234 |
goto T677; |
goto T677; |
1235 |
T677:; |
T677:; |
1236 |
V232= (*(LnkLI102))(); |
V232= (*(LnkLI102))(); |
1237 |
(void)(structure_set((V231),VV[6],2,/* INLINE-ARGS */V232)); |
(void)(structure_set((V231),VV[6],2,/* INLINE-ARGS */V232)); |
1238 |
V230= cdr((V230)); |
V230= cdr((V230)); |
1239 |
V231= car((V230)); |
V231= car((V230)); |
1240 |
goto T676;} |
goto T676;} |
1241 |
goto T672; |
goto T672; |
1242 |
T672:; |
T672:; |
1243 |
{register object V233; |
{register object V233; |
1244 |
object V234; |
object V234; |
1245 |
V233= (V218); |
V233= (V218); |
1246 |
V234= car((V233)); |
V234= car((V233)); |
1247 |
goto T691; |
goto T691; |
1248 |
T691:; |
T691:; |
1249 |
if(!(endp_prop((V233)))){ |
if(!(endp_prop((V233)))){ |
1250 |
goto T692;} |
goto T692;} |
1251 |
goto T687; |
goto T687; |
1252 |
goto T692; |
goto T692; |
1253 |
T692:; |
T692:; |
1254 |
V235= car((V234)); |
V235= car((V234)); |
1255 |
V236= (*(LnkLI102))(); |
V236= (*(LnkLI102))(); |
1257 |
V233= cdr((V233)); |
V233= cdr((V233)); |
1258 |
V234= car((V233)); |
V234= car((V233)); |
1259 |
goto T691;} |
goto T691;} |
1260 |
goto T687; |
goto T687; |
1261 |
T687:; |
T687:; |
1262 |
if(((V219))==Cnil){ |
if(((V219))==Cnil){ |
1263 |
goto T702;} |
goto T702;} |
1264 |
V237= (*(LnkLI102))(); |
V237= (*(LnkLI102))(); |
1265 |
(void)(structure_set((V219),VV[6],2,/* INLINE-ARGS */V237)); |
(void)(structure_set((V219),VV[6],2,/* INLINE-ARGS */V237)); |
1266 |
goto T702; |
goto T702; |
1267 |
T702:; |
T702:; |
1268 |
{register object V238; |
{register object V238; |
1269 |
object V239; |
object V239; |
1270 |
V238= (V218); |
V238= (V218); |
1271 |
V239= car((V238)); |
V239= car((V238)); |
1272 |
goto T709; |
goto T709; |
1273 |
T709:; |
T709:; |
1274 |
if(!(endp_prop((V238)))){ |
if(!(endp_prop((V238)))){ |
1275 |
goto T710;} |
goto T710;} |
1276 |
goto T705; |
goto T705; |
1277 |
goto T710; |
goto T710; |
1278 |
T710:; |
T710:; |
1279 |
if((caddr((V239)))==Cnil){ |
if((caddr((V239)))==Cnil){ |
1280 |
goto T714;} |
goto T714;} |
1281 |
V240= caddr((V239)); |
V240= caddr((V239)); |
1282 |
V241= (*(LnkLI102))(); |
V241= (*(LnkLI102))(); |
1283 |
(void)(structure_set(/* INLINE-ARGS */V240,VV[6],2,/* INLINE-ARGS */V241)); |
(void)(structure_set(/* INLINE-ARGS */V240,VV[6],2,/* INLINE-ARGS */V241)); |
1284 |
goto T714; |
goto T714; |
1285 |
T714:; |
T714:; |
1286 |
V238= cdr((V238)); |
V238= cdr((V238)); |
1287 |
V239= car((V238)); |
V239= car((V238)); |
1288 |
goto T709;} |
goto T709;} |
1289 |
goto T705; |
goto T705; |
1290 |
T705:; |
T705:; |
1291 |
{register object V242; |
{register object V242; |
1292 |
object V243; |
object V243; |
1293 |
V242= (V217); |
V242= (V217); |
1294 |
V243= car((V242)); |
V243= car((V242)); |
1295 |
goto T726; |
goto T726; |
1296 |
T726:; |
T726:; |
1297 |
if(!(endp_prop((V242)))){ |
if(!(endp_prop((V242)))){ |
1298 |
goto T727;} |
goto T727;} |
1299 |
goto T722; |
goto T722; |
1300 |
goto T727; |
goto T727; |
1301 |
T727:; |
T727:; |
1302 |
(void)((*(LnkLI103))((V243))); |
(void)((*(LnkLI103))((V243))); |
1303 |
V242= cdr((V242)); |
V242= cdr((V242)); |
1304 |
V243= car((V242)); |
V243= car((V242)); |
1305 |
goto T726;} |
goto T726;} |
1306 |
goto T722; |
goto T722; |
1307 |
T722:; |
T722:; |
1308 |
if(((V218))!=Cnil){ |
if(((V218))!=Cnil){ |
1309 |
goto T739;} |
goto T739;} |
1310 |
if(((V219))==Cnil){ |
if(((V219))==Cnil){ |
1311 |
goto T737;} |
goto T737;} |
1312 |
goto T739; |
goto T739; |
1313 |
T739:; |
T739:; |
1314 |
if(((V217))==Cnil){ |
if(((V217))==Cnil){ |
1315 |
goto T737;} |
goto T737;} |
1317 |
V244 = make_fixnum((long)length((V217))); |
V244 = make_fixnum((long)length((V217))); |
1318 |
(void)((*(LnkLI80))(V244)); |
(void)((*(LnkLI80))(V244)); |
1319 |
princ_char(59,VV[10]); |
princ_char(59,VV[10]); |
1320 |
goto T737; |
goto T737; |
1321 |
T737:; |
T737:; |
1322 |
if(((V218))==Cnil){ |
if(((V218))==Cnil){ |
1323 |
goto T749;} |
goto T749;} |
1332 |
(void)((*(LnkLI80))(V245)); |
(void)((*(LnkLI80))(V245)); |
1333 |
princ_char(59,VV[10]); |
princ_char(59,VV[10]); |
1334 |
princ_str("\n for(;p>q;p--)p[-1]=MMcons(p[-1],p[0]);}",VV[10]); |
princ_str("\n for(;p>q;p--)p[-1]=MMcons(p[-1],p[0]);}",VV[10]); |
1335 |
goto T752; |
goto T752; |
1336 |
T752:; |
T752:; |
1337 |
{register object V246; |
{register object V246; |
1338 |
V246= (V218); |
V246= (V218); |
1339 |
goto T764; |
goto T764; |
1340 |
T764:; |
T764:; |
1341 |
if(!(endp_prop((V246)))){ |
if(!(endp_prop((V246)))){ |
1342 |
goto T765;} |
goto T765;} |
1343 |
goto T762; |
goto T762; |
1344 |
goto T765; |
goto T765; |
1345 |
T765:; |
T765:; |
1346 |
{object V247; |
{object V247; |
1347 |
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1))); |
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1))); |
1360 |
if((caddar((V246)))==Cnil){ |
if((caddar((V246)))==Cnil){ |
1361 |
goto T784;} |
goto T784;} |
1362 |
(void)((*(LnkLI105))(caddar((V246)),Ct)); |
(void)((*(LnkLI105))(caddar((V246)),Ct)); |
1363 |
goto T784; |
goto T784; |
1364 |
T784:; |
T784:; |
1365 |
if((cdr((V246)))==Cnil){ |
if((cdr((V246)))==Cnil){ |
1366 |
goto T787;} |
goto T787;} |
1367 |
princ_str("\n vs_base++;",VV[10]); |
princ_str("\n vs_base++;",VV[10]); |
1368 |
goto T787; |
goto T787; |
1369 |
T787:; |
T787:; |
1370 |
V246= cdr((V246)); |
V246= cdr((V246)); |
1371 |
goto T764;} |
goto T764;} |
1372 |
goto T762; |
goto T762; |
1373 |
T762:; |
T762:; |
1374 |
if(((V219))==Cnil){ |
if(((V219))==Cnil){ |
1375 |
bds_unwind1; |
bds_unwind1; |
1380 |
bds_unwind1; |
bds_unwind1; |
1381 |
bds_unwind1; |
bds_unwind1; |
1382 |
bds_unwind1; |
bds_unwind1; |
1383 |
goto T751; |
goto T751; |
1384 |
T751:; |
T751:; |
1385 |
princ_str("\n ",VV[10]); |
princ_str("\n ",VV[10]); |
1386 |
(void)((*(LnkLI104))()); |
(void)((*(LnkLI104))()); |
1398 |
register object V251; |
register object V251; |
1399 |
V250= (V218); |
V250= (V218); |
1400 |
V251= car((V250)); |
V251= car((V250)); |
1401 |
goto T812; |
goto T812; |
1402 |
T812:; |
T812:; |
1403 |
if(!(endp_prop((V250)))){ |
if(!(endp_prop((V250)))){ |
1404 |
goto T813;} |
goto T813;} |
1405 |
goto T808; |
goto T808; |
1406 |
goto T813; |
goto T813; |
1407 |
T813:; |
T813:; |
1408 |
if((cdr(car((V220))))==Cnil){ |
if((cdr(car((V220))))==Cnil){ |
1409 |
goto T817;} |
goto T817;} |
1410 |
princ_str("\ngoto T",VV[10]); |
princ_str("\n goto T",VV[10]); |
1411 |
(void)((*(LnkLI80))(car(car((V220))))); |
(void)((*(LnkLI80))(car(car((V220))))); |
1412 |
princ_char(59,VV[10]); |
princ_char(59,VV[10]); |
1413 |
princ_str("\nT",VV[10]); |
princ_str("\nT",VV[10]); |
1414 |
(void)((*(LnkLI80))(car(car((V220))))); |
(void)((*(LnkLI80))(car(car((V220))))); |
1415 |
princ_str(":;",VV[10]); |
princ_str(":;",VV[10]); |
1416 |
goto T817; |
goto T817; |
1417 |
T817:; |
T817:; |
1418 |
{object V252; |
{object V252; |
1419 |
V252= car((V220)); |
V252= car((V220)); |
1422 |
if((caddr((V251)))==Cnil){ |
if((caddr((V251)))==Cnil){ |
1423 |
goto T832;} |
goto T832;} |
1424 |
(void)((*(LnkLI105))(caddr((V251)),Cnil)); |
(void)((*(LnkLI105))(caddr((V251)),Cnil)); |
1425 |
goto T832; |
goto T832; |
1426 |
T832:; |
T832:; |
1427 |
V250= cdr((V250)); |
V250= cdr((V250)); |
1428 |
V251= car((V250)); |
V251= car((V250)); |
1429 |
goto T812;} |
goto T812;} |
1430 |
goto T808; |
goto T808; |
1431 |
T808:; |
T808:; |
1432 |
if(((V219))==Cnil){ |
if(((V219))==Cnil){ |
1433 |
goto T840;} |
goto T840;} |
1434 |
(void)((*(LnkLI105))((V219),Cnil)); |
(void)((*(LnkLI105))((V219),Cnil)); |
1435 |
goto T840; |
goto T840; |
1436 |
T840:; |
T840:; |
1437 |
if((cdr((V249)))==Cnil){ |
if((cdr((V249)))==Cnil){ |
1438 |
goto T747;} |
goto T747;} |
1439 |
princ_str("\ngoto T",VV[10]); |
princ_str("\n goto T",VV[10]); |
1440 |
(void)((*(LnkLI80))(car((V249)))); |
(void)((*(LnkLI80))(car((V249)))); |
1441 |
princ_char(59,VV[10]); |
princ_char(59,VV[10]); |
1442 |
princ_str("\nT",VV[10]); |
princ_str("\nT",VV[10]); |
1443 |
(void)((*(LnkLI80))(car((V249)))); |
(void)((*(LnkLI80))(car((V249)))); |
1444 |
princ_str(":;",VV[10]); |
princ_str(":;",VV[10]); |
1445 |
goto T747;} |
goto T747;} |
1446 |
goto T749; |
goto T749; |
1447 |
T749:; |
T749:; |
1448 |
if(((V219))==Cnil){ |
if(((V219))==Cnil){ |
1449 |
goto T853;} |
goto T853;} |
1454 |
goto T864;} |
goto T864;} |
1455 |
V253= VV[58]; |
V253= VV[58]; |
1456 |
goto T862; |
goto T862; |
1457 |
goto T864; |
goto T864; |
1458 |
T864:; |
T864:; |
1459 |
V253= VV[59]; |
V253= VV[59]; |
1460 |
goto T862; |
goto T862; |
1461 |
T862:; |
T862:; |
1462 |
(void)((*(LnkLI80))(V253)); |
(void)((*(LnkLI80))(V253)); |
1463 |
princ_str("(p[-1],p[0]);}",VV[10]); |
princ_str("(p[-1],p[0]);}",VV[10]); |
1465 |
princ_str("\n ",VV[10]); |
princ_str("\n ",VV[10]); |
1466 |
(void)((*(LnkLI104))()); |
(void)((*(LnkLI104))()); |
1467 |
goto T747; |
goto T747; |
1468 |
goto T853; |
goto T853; |
1469 |
T853:; |
T853:; |
1470 |
princ_str("\n ",VV[10]); |
princ_str("\n ",VV[10]); |
1471 |
(void)((*(LnkLI104))()); |
(void)((*(LnkLI104))()); |
1472 |
goto T747; |
goto T747; |
1473 |
T747:; |
T747:; |
1474 |
if((symbol_value(VV[48]))==Cnil){ |
if((symbol_value(VV[48]))==Cnil){ |
1475 |
goto T870;} |
goto T870;} |
1476 |
(VV[52]->s.s_dbind)= make_cons(VV[60],(VV[52]->s.s_dbind)); |
(VV[52]->s.s_dbind)= make_cons(VV[60],(VV[52]->s.s_dbind)); |
1477 |
princ_str("\ngoto TTL;",VV[10]); |
princ_str("\n goto TTL;",VV[10]); |
1478 |
princ_str("\nTTL:;",VV[10]); |
princ_str("\nTTL:;",VV[10]); |
1479 |
goto T870; |
goto T870; |
1480 |
T870:; |
T870:; |
1481 |
base[8]= (V216); |
base[8]= (V216); |
1482 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1491 |
bds_unwind1; |
bds_unwind1; |
1492 |
bds_unwind1; |
bds_unwind1; |
1493 |
VMR13(V255)} |
VMR13(V255)} |
1494 |
goto T881; |
goto T881; |
1495 |
T881:; |
T881:; |
1496 |
{object V256 = Cnil; |
{object V256 = Cnil; |
1497 |
bds_unwind1; |
bds_unwind1; |
1509 |
object V259;object V260; |
object V259;object V260; |
1510 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1511 |
bds_check; |
bds_check; |
1512 |
goto TTL; |
goto TTL; |
1513 |
TTL:; |
TTL:; |
1514 |
{object V261; |
{object V261; |
1515 |
object V262; |
object V262; |
1532 |
object V268; |
object V268; |
1533 |
V267= (V261); |
V267= (V261); |
1534 |
V268= car((V267)); |
V268= car((V267)); |
1535 |
goto T895; |
goto T895; |
1536 |
T895:; |
T895:; |
1537 |
if(!(endp_prop((V267)))){ |
if(!(endp_prop((V267)))){ |
1538 |
goto T896;} |
goto T896;} |
1539 |
goto T891; |
goto T891; |
1540 |
goto T896; |
goto T896; |
1541 |
T896:; |
T896:; |
1542 |
base[11]= (V268); |
base[11]= (V268); |
1543 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
1546 |
V267= cdr((V267)); |
V267= cdr((V267)); |
1547 |
V268= car((V267)); |
V268= car((V267)); |
1548 |
goto T895;} |
goto T895;} |
1549 |
goto T891; |
goto T891; |
1550 |
T891:; |
T891:; |
1551 |
{register object V269; |
{register object V269; |
1552 |
object V270; |
object V270; |
1553 |
V269= (V262); |
V269= (V262); |
1554 |
V270= car((V269)); |
V270= car((V269)); |
1555 |
goto T911; |
goto T911; |
1556 |
T911:; |
T911:; |
1557 |
if(!(endp_prop((V269)))){ |
if(!(endp_prop((V269)))){ |
1558 |
goto T912;} |
goto T912;} |
1559 |
goto T907; |
goto T907; |
1560 |
goto T912; |
goto T912; |
1561 |
T912:; |
T912:; |
1562 |
base[11]= car((V270)); |
base[11]= car((V270)); |
1563 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
1569 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
1570 |
L16(base); |
L16(base); |
1571 |
vs_top=sup; |
vs_top=sup; |
1572 |
goto T918; |
goto T918; |
1573 |
T918:; |
T918:; |
1574 |
V269= cdr((V269)); |
V269= cdr((V269)); |
1575 |
V270= car((V269)); |
V270= car((V269)); |
1576 |
goto T911;} |
goto T911;} |
1577 |
goto T907; |
goto T907; |
1578 |
T907:; |
T907:; |
1579 |
if(((V263))==Cnil){ |
if(((V263))==Cnil){ |
1580 |
goto T927;} |
goto T927;} |
1582 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
1583 |
L16(base); |
L16(base); |
1584 |
vs_top=sup; |
vs_top=sup; |
1585 |
goto T927; |
goto T927; |
1586 |
T927:; |
T927:; |
1587 |
{register object V271; |
{register object V271; |
1588 |
object V272; |
object V272; |
1589 |
V271= (V264); |
V271= (V264); |
1590 |
V272= car((V271)); |
V272= car((V271)); |
1591 |
goto T934; |
goto T934; |
1592 |
T934:; |
T934:; |
1593 |
if(!(endp_prop((V271)))){ |
if(!(endp_prop((V271)))){ |
1594 |
goto T935;} |
goto T935;} |
1595 |
goto T890; |
goto T890; |
1596 |
goto T935; |
goto T935; |
1597 |
T935:; |
T935:; |
1598 |
base[11]= cadr((V272)); |
base[11]= cadr((V272)); |
1599 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
1605 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
1606 |
L16(base); |
L16(base); |
1607 |
vs_top=sup; |
vs_top=sup; |
1608 |
goto T941; |
goto T941; |
1609 |
T941:; |
T941:; |
1610 |
V271= cdr((V271)); |
V271= cdr((V271)); |
1611 |
V272= car((V271)); |
V272= car((V271)); |
1612 |
goto T934;} |
goto T934;} |
1613 |
goto T890; |
goto T890; |
1614 |
T890:; |
T890:; |
1615 |
if((symbol_value(VV[55]))!=Cnil){ |
if((symbol_value(VV[55]))!=Cnil){ |
1616 |
goto T952;} |
goto T952;} |
1617 |
if((symbol_value(VV[56]))==Cnil){ |
if((symbol_value(VV[56]))==Cnil){ |
1618 |
goto T950;} |
goto T950;} |
1619 |
goto T952; |
goto T952; |
1620 |
T952:; |
T952:; |
1621 |
if(((V261))==Cnil){ |
if(((V261))==Cnil){ |
1622 |
goto T950;} |
goto T950;} |
1626 |
V273 = make_fixnum((long)length((V261))); |
V273 = make_fixnum((long)length((V261))); |
1627 |
(void)((*(LnkLI80))(V273)); |
(void)((*(LnkLI80))(V273)); |
1628 |
princ_str(") too_few_arguments();",VV[10]); |
princ_str(") too_few_arguments();",VV[10]); |
1629 |
goto T950; |
goto T950; |
1630 |
T950:; |
T950:; |
1631 |
{register object V274; |
{register object V274; |
1632 |
object V275; |
object V275; |
1633 |
V274= (V261); |
V274= (V261); |
1634 |
V275= car((V274)); |
V275= car((V274)); |
1635 |
goto T966; |
goto T966; |
1636 |
T966:; |
T966:; |
1637 |
if(!(endp_prop((V274)))){ |
if(!(endp_prop((V274)))){ |
1638 |
goto T967;} |
goto T967;} |
1639 |
goto T962; |
goto T962; |
1640 |
goto T967; |
goto T967; |
1641 |
T967:; |
T967:; |
1642 |
V276= (*(LnkLI102))(); |
V276= (*(LnkLI102))(); |
1643 |
(void)(structure_set((V275),VV[6],2,/* INLINE-ARGS */V276)); |
(void)(structure_set((V275),VV[6],2,/* INLINE-ARGS */V276)); |
1644 |
V274= cdr((V274)); |
V274= cdr((V274)); |
1645 |
V275= car((V274)); |
V275= car((V274)); |
1646 |
goto T966;} |
goto T966;} |
1647 |
goto T962; |
goto T962; |
1648 |
T962:; |
T962:; |
1649 |
{register object V277; |
{register object V277; |
1650 |
object V278; |
object V278; |
1651 |
V277= (V262); |
V277= (V262); |
1652 |
V278= car((V277)); |
V278= car((V277)); |
1653 |
goto T981; |
goto T981; |
1654 |
T981:; |
T981:; |
1655 |
if(!(endp_prop((V277)))){ |
if(!(endp_prop((V277)))){ |
1656 |
goto T982;} |
goto T982;} |
1657 |
goto T977; |
goto T977; |
1658 |
goto T982; |
goto T982; |
1659 |
T982:; |
T982:; |
1660 |
V279= car((V278)); |
V279= car((V278)); |
1661 |
V280= (*(LnkLI102))(); |
V280= (*(LnkLI102))(); |
1663 |
V277= cdr((V277)); |
V277= cdr((V277)); |
1664 |
V278= car((V277)); |
V278= car((V277)); |
1665 |
goto T981;} |
goto T981;} |
1666 |
goto T977; |
goto T977; |
1667 |
T977:; |
T977:; |
1668 |
if(((V263))==Cnil){ |
if(((V263))==Cnil){ |
1669 |
goto T992;} |
goto T992;} |
1670 |
V281= (*(LnkLI102))(); |
V281= (*(LnkLI102))(); |
1671 |
(void)(structure_set((V263),VV[6],2,/* INLINE-ARGS */V281)); |
(void)(structure_set((V263),VV[6],2,/* INLINE-ARGS */V281)); |
1672 |
goto T992; |
goto T992; |
1673 |
T992:; |
T992:; |
1674 |
{register object V282; |
{register object V282; |
1675 |
object V283; |
object V283; |
1676 |
V282= (V264); |
V282= (V264); |
1677 |
V283= car((V282)); |
V283= car((V282)); |
1678 |
goto T999; |
goto T999; |
1679 |
T999:; |
T999:; |
1680 |
if(!(endp_prop((V282)))){ |
if(!(endp_prop((V282)))){ |
1681 |
goto T1000;} |
goto T1000;} |
1682 |
goto T995; |
goto T995; |
1683 |
goto T1000; |
goto T1000; |
1684 |
T1000:; |
T1000:; |
1685 |
V284= cadr((V283)); |
V284= cadr((V283)); |
1686 |
V285= (*(LnkLI102))(); |
V285= (*(LnkLI102))(); |
1688 |
V282= cdr((V282)); |
V282= cdr((V282)); |
1689 |
V283= car((V282)); |
V283= car((V282)); |
1690 |
goto T999;} |
goto T999;} |
1691 |
goto T995; |
goto T995; |
1692 |
T995:; |
T995:; |
1693 |
{register object V286; |
{register object V286; |
1694 |
object V287; |
object V287; |
1695 |
V286= (V264); |
V286= (V264); |
1696 |
V287= car((V286)); |
V287= car((V286)); |
1697 |
goto T1014; |
goto T1014; |
1698 |
T1014:; |
T1014:; |
1699 |
if(!(endp_prop((V286)))){ |
if(!(endp_prop((V286)))){ |
1700 |
goto T1015;} |
goto T1015;} |
1701 |
goto T1010; |
goto T1010; |
1702 |
goto T1015; |
goto T1015; |
1703 |
T1015:; |
T1015:; |
1704 |
V288= cadddr((V287)); |
V288= cadddr((V287)); |
1705 |
V289= (*(LnkLI102))(); |
V289= (*(LnkLI102))(); |
1707 |
V286= cdr((V286)); |
V286= cdr((V286)); |
1708 |
V287= car((V286)); |
V287= car((V286)); |
1709 |
goto T1014;} |
goto T1014;} |
1710 |
goto T1010; |
goto T1010; |
1711 |
T1010:; |
T1010:; |
1712 |
{register object V290; |
{register object V290; |
1713 |
object V291; |
object V291; |
1714 |
V290= (V262); |
V290= (V262); |
1715 |
V291= car((V290)); |
V291= car((V290)); |
1716 |
goto T1029; |
goto T1029; |
1717 |
T1029:; |
T1029:; |
1718 |
if(!(endp_prop((V290)))){ |
if(!(endp_prop((V290)))){ |
1719 |
goto T1030;} |
goto T1030;} |
1720 |
goto T1025; |
goto T1025; |
1721 |
goto T1030; |
goto T1030; |
1722 |
T1030:; |
T1030:; |
1723 |
if((caddr((V291)))==Cnil){ |
if((caddr((V291)))==Cnil){ |
1724 |
goto T1034;} |
goto T1034;} |
1725 |
V292= caddr((V291)); |
V292= caddr((V291)); |
1726 |
V293= (*(LnkLI102))(); |
V293= (*(LnkLI102))(); |
1727 |
(void)(structure_set(/* INLINE-ARGS */V292,VV[6],2,/* INLINE-ARGS */V293)); |
(void)(structure_set(/* INLINE-ARGS */V292,VV[6],2,/* INLINE-ARGS */V293)); |
1728 |
goto T1034; |
goto T1034; |
1729 |
T1034:; |
T1034:; |
1730 |
V290= cdr((V290)); |
V290= cdr((V290)); |
1731 |
V291= car((V290)); |
V291= car((V290)); |
1732 |
goto T1029;} |
goto T1029;} |
1733 |
goto T1025; |
goto T1025; |
1734 |
T1025:; |
T1025:; |
1735 |
princ_str("\n parse_key(vs_base",VV[10]); |
princ_str("\n parse_key(vs_base",VV[10]); |
1736 |
if(((V261))!=Cnil){ |
if(((V261))!=Cnil){ |
1737 |
goto T1045;} |
goto T1045;} |
1738 |
if(((V262))==Cnil){ |
if(((V262))==Cnil){ |
1739 |
goto T1044;} |
goto T1044;} |
1740 |
goto T1045; |
goto T1045; |
1741 |
T1045:; |
T1045:; |
1742 |
princ_char(43,VV[10]); |
princ_char(43,VV[10]); |
1743 |
V294 = make_fixnum((long)length((V261))); |
V294 = make_fixnum((long)length((V261))); |
1744 |
V295 = make_fixnum((long)length((V262))); |
V295 = make_fixnum((long)length((V262))); |
1745 |
V296= number_plus(V294,V295); |
V296= number_plus(V294,V295); |
1746 |
(void)((*(LnkLI80))(/* INLINE-ARGS */V296)); |
(void)((*(LnkLI80))(/* INLINE-ARGS */V296)); |
1747 |
goto T1044; |
goto T1044; |
1748 |
T1044:; |
T1044:; |
1749 |
if(((V263))==Cnil){ |
if(((V263))==Cnil){ |
1750 |
goto T1053;} |
goto T1053;} |
1751 |
princ_str(",TRUE,",VV[10]); |
princ_str(",TRUE,",VV[10]); |
1752 |
goto T1051; |
goto T1051; |
1753 |
goto T1053; |
goto T1053; |
1754 |
T1053:; |
T1053:; |
1755 |
princ_str(",FALSE,",VV[10]); |
princ_str(",FALSE,",VV[10]); |
1756 |
goto T1051; |
goto T1051; |
1757 |
T1051:; |
T1051:; |
1758 |
if(((V265))==Cnil){ |
if(((V265))==Cnil){ |
1759 |
goto T1059;} |
goto T1059;} |
1760 |
princ_str("TRUE,",VV[10]); |
princ_str("TRUE,",VV[10]); |
1761 |
goto T1057; |
goto T1057; |
1762 |
goto T1059; |
goto T1059; |
1763 |
T1059:; |
T1059:; |
1764 |
princ_str("FALSE,",VV[10]); |
princ_str("FALSE,",VV[10]); |
1765 |
goto T1057; |
goto T1057; |
1766 |
T1057:; |
T1057:; |
1767 |
V297 = make_fixnum((long)length((V264))); |
V297 = make_fixnum((long)length((V264))); |
1768 |
(void)((*(LnkLI80))(V297)); |
(void)((*(LnkLI80))(V297)); |
1770 |
object V299; |
object V299; |
1771 |
V298= (V264); |
V298= (V264); |
1772 |
V299= car((V298)); |
V299= car((V298)); |
1773 |
goto T1069; |
goto T1069; |
1774 |
T1069:; |
T1069:; |
1775 |
if(!(endp_prop((V298)))){ |
if(!(endp_prop((V298)))){ |
1776 |
goto T1070;} |
goto T1070;} |
1777 |
goto T1065; |
goto T1065; |
1778 |
goto T1070; |
goto T1070; |
1779 |
T1070:; |
T1070:; |
1780 |
princ_str(",VV[",VV[10]); |
princ_str(",VV[",VV[10]); |
1781 |
V300= (*(LnkLI108))(car((V299))); |
V300= (*(LnkLI108))(car((V299))); |
1784 |
V298= cdr((V298)); |
V298= cdr((V298)); |
1785 |
V299= car((V298)); |
V299= car((V298)); |
1786 |
goto T1069;} |
goto T1069;} |
1787 |
goto T1065; |
goto T1065; |
1788 |
T1065:; |
T1065:; |
1789 |
princ_str(");",VV[10]); |
princ_str(");",VV[10]); |
1790 |
{register object V301; |
{register object V301; |
1791 |
object V302; |
object V302; |
1792 |
V301= (V261); |
V301= (V261); |
1793 |
V302= car((V301)); |
V302= car((V301)); |
1794 |
goto T1089; |
goto T1089; |
1795 |
T1089:; |
T1089:; |
1796 |
if(!(endp_prop((V301)))){ |
if(!(endp_prop((V301)))){ |
1797 |
goto T1090;} |
goto T1090;} |
1798 |
goto T1085; |
goto T1085; |
1799 |
goto T1090; |
goto T1090; |
1800 |
T1090:; |
T1090:; |
1801 |
(void)((*(LnkLI103))((V302))); |
(void)((*(LnkLI103))((V302))); |
1802 |
V301= cdr((V301)); |
V301= cdr((V301)); |
1803 |
V302= car((V301)); |
V302= car((V301)); |
1804 |
goto T1089;} |
goto T1089;} |
1805 |
goto T1085; |
goto T1085; |
1806 |
T1085:; |
T1085:; |
1807 |
if(((V262))==Cnil){ |
if(((V262))==Cnil){ |
1808 |
goto T1100;} |
goto T1100;} |
1812 |
V303 = make_fixnum((long)length((V261))); |
V303 = make_fixnum((long)length((V261))); |
1813 |
(void)((*(LnkLI80))(V303)); |
(void)((*(LnkLI80))(V303)); |
1814 |
princ_char(59,VV[10]); |
princ_char(59,VV[10]); |
1815 |
goto T1103; |
goto T1103; |
1816 |
T1103:; |
T1103:; |
1817 |
bds_bind(VV[24],(VV[24]->s.s_dbind)); |
bds_bind(VV[24],(VV[24]->s.s_dbind)); |
1818 |
bds_bind(VV[52],(VV[52]->s.s_dbind)); |
bds_bind(VV[52],(VV[52]->s.s_dbind)); |
1819 |
bds_bind(VV[25],(VV[25]->s.s_dbind)); |
bds_bind(VV[25],(VV[25]->s.s_dbind)); |
1820 |
{register object V304; |
{register object V304; |
1821 |
V304= (V262); |
V304= (V262); |
1822 |
goto T1111; |
goto T1111; |
1823 |
T1111:; |
T1111:; |
1824 |
if(!(endp_prop((V304)))){ |
if(!(endp_prop((V304)))){ |
1825 |
goto T1112;} |
goto T1112;} |
1827 |
bds_unwind1; |
bds_unwind1; |
1828 |
bds_unwind1; |
bds_unwind1; |
1829 |
goto T1109; |
goto T1109; |
1830 |
goto T1112; |
goto T1112; |
1831 |
T1112:; |
T1112:; |
1832 |
{object V305; |
{object V305; |
1833 |
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1))); |
setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1))); |
1845 |
if((caddar((V304)))==Cnil){ |
if((caddar((V304)))==Cnil){ |
1846 |
goto T1130;} |
goto T1130;} |
1847 |
(void)((*(LnkLI105))(caddar((V304)),Ct)); |
(void)((*(LnkLI105))(caddar((V304)),Ct)); |
1848 |
goto T1130; |
goto T1130; |
1849 |
T1130:; |
T1130:; |
1850 |
if((cdr((V304)))==Cnil){ |
if((cdr((V304)))==Cnil){ |
1851 |
goto T1133;} |
goto T1133;} |
1852 |
princ_str("\n vs_base++;",VV[10]); |
princ_str("\n vs_base++;",VV[10]); |
1853 |
goto T1133; |
goto T1133; |
1854 |
T1133:; |
T1133:; |
1855 |
V304= cdr((V304)); |
V304= cdr((V304)); |
1856 |
goto T1111;} |
goto T1111;} |
1857 |
goto T1109; |
goto T1109; |
1858 |
T1109:; |
T1109:; |
1859 |
V266= reverse((V266)); |
V266= reverse((V266)); |
1860 |
goto T1100; |
goto T1100; |
1861 |
T1100:; |
T1100:; |
1862 |
princ_str("\n vs_top=sup;",VV[10]); |
princ_str("\n vs_top=sup;",VV[10]); |
1863 |
if(((V262))==Cnil){ |
if(((V262))==Cnil){ |
1874 |
register object V308; |
register object V308; |
1875 |
V307= (V262); |
V307= (V262); |
1876 |
V308= car((V307)); |
V308= car((V307)); |
1877 |
goto T1157; |
goto T1157; |
1878 |
T1157:; |
T1157:; |
1879 |
if(!(endp_prop((V307)))){ |
if(!(endp_prop((V307)))){ |
1880 |
goto T1158;} |
goto T1158;} |
1881 |
goto T1153; |
goto T1153; |
1882 |
goto T1158; |
goto T1158; |
1883 |
T1158:; |
T1158:; |
1884 |
if((cdr(car((V266))))==Cnil){ |
if((cdr(car((V266))))==Cnil){ |
1885 |
goto T1162;} |
goto T1162;} |
1886 |
princ_str("\ngoto T",VV[10]); |
princ_str("\n goto T",VV[10]); |
1887 |
(void)((*(LnkLI80))(car(car((V266))))); |
(void)((*(LnkLI80))(car(car((V266))))); |
1888 |
princ_char(59,VV[10]); |
princ_char(59,VV[10]); |
1889 |
princ_str("\nT",VV[10]); |
princ_str("\nT",VV[10]); |
1890 |
(void)((*(LnkLI80))(car(car((V266))))); |
(void)((*(LnkLI80))(car(car((V266))))); |
1891 |
princ_str(":;",VV[10]); |
princ_str(":;",VV[10]); |
1892 |
goto T1162; |
goto T1162; |
1893 |
T1162:; |
T1162:; |
1894 |
{object V309; |
{object V309; |
1895 |
V309= car((V266)); |
V309= car((V266)); |
1898 |
if((caddr((V308)))==Cnil){ |
if((caddr((V308)))==Cnil){ |
1899 |
goto T1177;} |
goto T1177;} |
1900 |
(void)((*(LnkLI105))(caddr((V308)),Cnil)); |
(void)((*(LnkLI105))(caddr((V308)),Cnil)); |
1901 |
goto T1177; |
goto T1177; |
1902 |
T1177:; |
T1177:; |
1903 |
V307= cdr((V307)); |
V307= cdr((V307)); |
1904 |
V308= car((V307)); |
V308= car((V307)); |
1905 |
goto T1157;} |
goto T1157;} |
1906 |
goto T1153; |
goto T1153; |
1907 |
T1153:; |
T1153:; |
1908 |
if((cdr((V306)))==Cnil){ |
if((cdr((V306)))==Cnil){ |
1909 |
goto T1143;} |
goto T1143;} |
1910 |
princ_str("\ngoto T",VV[10]); |
princ_str("\n goto T",VV[10]); |
1911 |
(void)((*(LnkLI80))(car((V306)))); |
(void)((*(LnkLI80))(car((V306)))); |
1912 |
princ_char(59,VV[10]); |
princ_char(59,VV[10]); |
1913 |
princ_str("\nT",VV[10]); |
princ_str("\nT",VV[10]); |
1914 |
(void)((*(LnkLI80))(car((V306)))); |
(void)((*(LnkLI80))(car((V306)))); |
1915 |
princ_str(":;",VV[10]);} |
princ_str(":;",VV[10]);} |
1916 |
goto T1143; |
goto T1143; |
1917 |
T1143:; |
T1143:; |
1918 |
if(((V263))==Cnil){ |
if(((V263))==Cnil){ |
1919 |
goto T1194;} |
goto T1194;} |
1920 |
(void)((*(LnkLI103))((V263))); |
(void)((*(LnkLI103))((V263))); |
1921 |
goto T1194; |
goto T1194; |
1922 |
T1194:; |
T1194:; |
1923 |
{register object V310; |
{register object V310; |
1924 |
register object V311; |
register object V311; |
1925 |
V310= (V264); |
V310= (V264); |
1926 |
V311= car((V310)); |
V311= car((V310)); |
1927 |
goto T1201; |
goto T1201; |
1928 |
T1201:; |
T1201:; |
1929 |
if(!(endp_prop((V310)))){ |
if(!(endp_prop((V310)))){ |
1930 |
goto T1202;} |
goto T1202;} |
1931 |
goto T1197; |
goto T1197; |
1932 |
goto T1202; |
goto T1202; |
1933 |
T1202:; |
T1202:; |
1934 |
if(!((caaddr((V311)))==(VV[61]))){ |
if(!((caaddr((V311)))==(VV[61]))){ |
1935 |
goto T1208;} |
goto T1208;} |
1937 |
goto T1208;} |
goto T1208;} |
1938 |
(void)((*(LnkLI103))(cadr((V311)))); |
(void)((*(LnkLI103))(cadr((V311)))); |
1939 |
goto T1206; |
goto T1206; |
1940 |
goto T1208; |
goto T1208; |
1941 |
T1208:; |
T1208:; |
1942 |
princ_str("\n if(",VV[10]); |
princ_str("\n if(",VV[10]); |
1943 |
V312= structure_ref(cadddr((V311)),VV[6],2); |
V312= structure_ref(cadddr((V311)),VV[6],2); |
1953 |
princ_str("\n }else{",VV[10]); |
princ_str("\n }else{",VV[10]); |
1954 |
(void)((*(LnkLI103))(cadr((V311)))); |
(void)((*(LnkLI103))(cadr((V311)))); |
1955 |
princ_char(125,VV[10]); |
princ_char(125,VV[10]); |
1956 |
goto T1206; |
goto T1206; |
1957 |
T1206:; |
T1206:; |
1958 |
V314= structure_ref(cadddr((V311)),VV[6],1); |
V314= structure_ref(cadddr((V311)),VV[6],1); |
1959 |
if((/* INLINE-ARGS */V314)==(VV[40])){ |
if((/* INLINE-ARGS */V314)==(VV[40])){ |
1960 |
goto T1222;} |
goto T1222;} |
1961 |
(void)((*(LnkLI103))(cadddr((V311)))); |
(void)((*(LnkLI103))(cadddr((V311)))); |
1962 |
goto T1222; |
goto T1222; |
1963 |
T1222:; |
T1222:; |
1964 |
V310= cdr((V310)); |
V310= cdr((V310)); |
1965 |
V311= car((V310)); |
V311= car((V310)); |
1966 |
goto T1201;} |
goto T1201;} |
1967 |
goto T1197; |
goto T1197; |
1968 |
T1197:; |
T1197:; |
1969 |
base[10]= (V260); |
base[10]= (V260); |
1970 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
1979 |
bds_unwind1; |
bds_unwind1; |
1980 |
bds_unwind1; |
bds_unwind1; |
1981 |
VMR14(V315)} |
VMR14(V315)} |
1982 |
goto T1233; |
goto T1233; |
1983 |
T1233:; |
T1233:; |
1984 |
{object V316 = Cnil; |
{object V316 = Cnil; |
1985 |
bds_unwind1; |
bds_unwind1; |
1996 |
|
|
1997 |
object V318; |
object V318; |
1998 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
1999 |
goto TTL; |
goto TTL; |
2000 |
TTL:; |
TTL:; |
2001 |
if(symbol_value(VV[55])!=Cnil){ |
if(symbol_value(VV[55])!=Cnil){ |
2002 |
{object V319 = symbol_value(VV[55]); |
{object V319 = symbol_value(VV[55]); |
2008 |
if(V321==Cnil)goto T1236; |
if(V321==Cnil)goto T1236; |
2009 |
{object V322 = V321; |
{object V322 = V321; |
2010 |
VMR15(V322)} |
VMR15(V322)} |
2011 |
goto T1236; |
goto T1236; |
2012 |
T1236:;}{object V323; |
T1236:;}{object V323; |
2013 |
V323= caddr((V318)); |
V323= caddr((V318)); |
2014 |
if(V323==Cnil)goto T1238; |
if(V323==Cnil)goto T1238; |
2015 |
{object V324 = V323; |
{object V324 = V323; |
2016 |
VMR15(V324)} |
VMR15(V324)} |
2017 |
goto T1238; |
goto T1238; |
2018 |
T1238:;} |
T1238:;} |
2019 |
{object V325 = cadddr((V318)); |
{object V325 = cadddr((V318)); |
2020 |
VMR15(V325)} |
VMR15(V325)} |
2027 |
object V329;register object V330;register object V331; |
object V329;register object V330;register object V331; |
2028 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
2029 |
bds_check; |
bds_check; |
2030 |
goto TTL; |
goto TTL; |
2031 |
TTL:; |
TTL:; |
2032 |
{object V332; |
{object V332; |
2033 |
object V333; |
object V333; |
2099 |
(VV[64]->s.s_dbind)= make_cons(V332,(VV[64]->s.s_dbind)); |
(VV[64]->s.s_dbind)= make_cons(V332,(VV[64]->s.s_dbind)); |
2100 |
setq(VV[30],make_cons(V332,symbol_value(VV[30]))); |
setq(VV[30],make_cons(V332,symbol_value(VV[30]))); |
2101 |
V330= cddr((V330)); |
V330= cddr((V330)); |
2102 |
goto T1257; |
goto T1257; |
2103 |
T1257:; |
T1257:; |
2104 |
{register object V345; |
{register object V345; |
2105 |
if(type_of((V330))==t_cons||((V330))==Cnil){ |
if(type_of((V330))==t_cons||((V330))==Cnil){ |
2106 |
goto T1274;} |
goto T1274;} |
2107 |
V345= Cnil; |
V345= Cnil; |
2108 |
goto T1273; |
goto T1273; |
2109 |
goto T1274; |
goto T1274; |
2110 |
T1274:; |
T1274:; |
2111 |
{register object V346; |
{register object V346; |
2112 |
V346= (V330); |
V346= (V330); |
2113 |
goto T1277; |
goto T1277; |
2114 |
T1277:; |
T1277:; |
2115 |
if(type_of((V346))==t_cons){ |
if(type_of((V346))==t_cons){ |
2116 |
goto T1278;} |
goto T1278;} |
2117 |
V345= Cnil; |
V345= Cnil; |
2118 |
goto T1273; |
goto T1273; |
2119 |
goto T1278; |
goto T1278; |
2120 |
T1278:; |
T1278:; |
2121 |
if(!((VV[66])==(car((V346))))){ |
if(!((VV[66])==(car((V346))))){ |
2122 |
goto T1282;} |
goto T1282;} |
2123 |
V345= (V346); |
V345= (V346); |
2124 |
goto T1273; |
goto T1273; |
2125 |
goto T1282; |
goto T1282; |
2126 |
T1282:; |
T1282:; |
2127 |
V346= cdr((V346)); |
V346= cdr((V346)); |
2128 |
goto T1277;} |
goto T1277;} |
2129 |
goto T1273; |
goto T1273; |
2130 |
T1273:; |
T1273:; |
2131 |
if(((V345))==Cnil){ |
if(((V345))==Cnil){ |
2132 |
goto T1272;} |
goto T1272;} |
2143 |
vs_top=sup; |
vs_top=sup; |
2144 |
V350= vs_base[0]; |
V350= vs_base[0]; |
2145 |
V330= append(V350,cddr((V345)));} |
V330= append(V350,cddr((V345)));} |
2146 |
goto T1272; |
goto T1272; |
2147 |
T1272:; |
T1272:; |
2148 |
base[4]= (V330); |
base[4]= (V330); |
2149 |
base[5]= (V336); |
base[5]= (V336); |
2170 |
if(((V352))==Cnil){ |
if(((V352))==Cnil){ |
2171 |
goto T1316;} |
goto T1316;} |
2172 |
goto T1313; |
goto T1313; |
2173 |
goto T1316; |
goto T1316; |
2174 |
T1316:; |
T1316:; |
2175 |
(void)(structure_set((VV[63]->s.s_dbind),VV[5],4,Ct)); |
(void)(structure_set((VV[63]->s.s_dbind),VV[5],4,Ct)); |
2176 |
(void)(sputprop((V329),VV[67],Ct));} |
(void)(sputprop((V329),VV[67],Ct));} |
2177 |
goto T1313; |
goto T1313; |
2178 |
T1313:; |
T1313:; |
2179 |
{register object V353; |
{register object V353; |
2180 |
register object V354; |
register object V354; |
2181 |
V353= (VV[64]->s.s_dbind); |
V353= (VV[64]->s.s_dbind); |
2182 |
V354= car((V353)); |
V354= car((V353)); |
2183 |
goto T1323; |
goto T1323; |
2184 |
T1323:; |
T1323:; |
2185 |
if(!(endp_prop((V353)))){ |
if(!(endp_prop((V353)))){ |
2186 |
goto T1324;} |
goto T1324;} |
2187 |
goto T1319; |
goto T1319; |
2188 |
goto T1324; |
goto T1324; |
2189 |
T1324:; |
T1324:; |
2190 |
(void)((*(LnkLI97))((V354))); |
(void)((*(LnkLI97))((V354))); |
2191 |
V353= cdr((V353)); |
V353= cdr((V353)); |
2192 |
V354= car((V353)); |
V354= car((V353)); |
2193 |
goto T1323;} |
goto T1323;} |
2194 |
goto T1319; |
goto T1319; |
2195 |
T1319:; |
T1319:; |
2196 |
{object V355 = list(7,(V335),(V340),(V332),(V333),(V330),(V331),(VV[63]->s.s_dbind)); |
{object V355 = list(7,(V335),(V340),(V332),(V333),(V330),(V331),(VV[63]->s.s_dbind)); |
2197 |
bds_unwind1; |
bds_unwind1; |
2218 |
V358=(base[2]); |
V358=(base[2]); |
2219 |
V359=(base[3]); |
V359=(base[3]); |
2220 |
vs_top=sup; |
vs_top=sup; |
2221 |
goto TTL; |
goto TTL; |
2222 |
TTL:; |
TTL:; |
2223 |
{register object V360; |
{register object V360; |
2224 |
object V361; |
object V361; |
2248 |
V371= Cnil; |
V371= Cnil; |
2249 |
V372= small_fixnum(0); |
V372= small_fixnum(0); |
2250 |
V373= Cnil; |
V373= Cnil; |
2251 |
goto T1335; |
goto T1335; |
2252 |
T1335:; |
T1335:; |
2253 |
if(type_of((V356))==t_cons){ |
if(type_of((V356))==t_cons){ |
2254 |
goto T1336;} |
goto T1336;} |
2260 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2261 |
(void) (*Lnk111)(); |
(void) (*Lnk111)(); |
2262 |
vs_top=sup; |
vs_top=sup; |
2263 |
goto T1342; |
goto T1342; |
2264 |
T1342:; |
T1342:; |
2265 |
base[4]= (V356); |
base[4]= (V356); |
2266 |
base[5]= (V357); |
base[5]= (V357); |
2270 |
(void) (*Lnk112)(); |
(void) (*Lnk112)(); |
2271 |
vs_top=sup; |
vs_top=sup; |
2272 |
V367= vs_base[0]; |
V367= vs_base[0]; |
2273 |
goto T1339; |
goto T1339; |
2274 |
T1339:; |
T1339:; |
2275 |
V374= reverse((V365)); |
V374= reverse((V365)); |
2276 |
V375= reverse((V366)); |
V375= reverse((V366)); |
2279 |
base[5]= (V373); |
base[5]= (V373); |
2280 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2281 |
return; |
return; |
2282 |
goto T1336; |
goto T1336; |
2283 |
T1336:; |
T1336:; |
2284 |
{register object V377; |
{register object V377; |
2285 |
V377= car((V356)); |
V377= car((V356)); |
2291 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2292 |
(void) (*Lnk111)(); |
(void) (*Lnk111)(); |
2293 |
vs_top=sup; |
vs_top=sup; |
2294 |
goto T1359; |
goto T1359; |
2295 |
T1359:; |
T1359:; |
2296 |
V360= Ct; |
V360= Ct; |
2297 |
{object V378; |
{object V378; |
2298 |
V378= car((V356)); |
V378= car((V356)); |
2299 |
V356= cdr((V356)); |
V356= cdr((V356)); |
2300 |
goto T1354;} |
goto T1354;} |
2301 |
goto T1357; |
goto T1357; |
2302 |
T1357:; |
T1357:; |
2303 |
if(((V377))==(VV[68])){ |
if(((V377))==(VV[68])){ |
2304 |
goto T1368;} |
goto T1368;} |
2305 |
if(!(((V377))==(VV[70]))){ |
if(!(((V377))==(VV[70]))){ |
2306 |
goto T1369;} |
goto T1369;} |
2307 |
goto T1368; |
goto T1368; |
2308 |
T1368:; |
T1368:; |
2309 |
if(((V361))==Cnil){ |
if(((V361))==Cnil){ |
2310 |
goto T1373;} |
goto T1373;} |
2312 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2313 |
(void) (*Lnk111)(); |
(void) (*Lnk111)(); |
2314 |
vs_top=sup; |
vs_top=sup; |
2315 |
goto T1373; |
goto T1373; |
2316 |
T1373:; |
T1373:; |
2317 |
base[4]= cadr((V356)); |
base[4]= cadr((V356)); |
2318 |
base[5]= (V357); |
base[5]= (V357); |
2329 |
goto T1354;} |
goto T1354;} |
2330 |
V373= (V372); |
V373= (V372); |
2331 |
goto T1354; |
goto T1354; |
2332 |
goto T1369; |
goto T1369; |
2333 |
T1369:; |
T1369:; |
2334 |
if(!(((V377))==(VV[71]))){ |
if(!(((V377))==(VV[71]))){ |
2335 |
goto T1393;} |
goto T1393;} |
2339 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2340 |
(void) (*Lnk111)(); |
(void) (*Lnk111)(); |
2341 |
vs_top=sup; |
vs_top=sup; |
2342 |
goto T1395; |
goto T1395; |
2343 |
T1395:; |
T1395:; |
2344 |
V362= Ct; |
V362= Ct; |
2345 |
V361= Ct; |
V361= Ct; |
2349 |
V379= car((V356)); |
V379= car((V356)); |
2350 |
V356= cdr((V356)); |
V356= cdr((V356)); |
2351 |
goto T1354;} |
goto T1354;} |
2352 |
goto T1393; |
goto T1393; |
2353 |
T1393:; |
T1393:; |
2354 |
if(!(((V377))==(VV[72]))){ |
if(!(((V377))==(VV[72]))){ |
2355 |
goto T1411;} |
goto T1411;} |
2357 |
goto T1414;} |
goto T1414;} |
2358 |
if(((V363))==Cnil){ |
if(((V363))==Cnil){ |
2359 |
goto T1413;} |
goto T1413;} |
2360 |
goto T1414; |
goto T1414; |
2361 |
T1414:; |
T1414:; |
2362 |
base[4]= VV[72]; |
base[4]= VV[72]; |
2363 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2364 |
(void) (*Lnk111)(); |
(void) (*Lnk111)(); |
2365 |
vs_top=sup; |
vs_top=sup; |
2366 |
goto T1413; |
goto T1413; |
2367 |
T1413:; |
T1413:; |
2368 |
V363= Ct; |
V363= Ct; |
2369 |
V371= Ct; |
V371= Ct; |
2371 |
V380= car((V356)); |
V380= car((V356)); |
2372 |
V356= cdr((V356)); |
V356= cdr((V356)); |
2373 |
goto T1354;} |
goto T1354;} |
2374 |
goto T1411; |
goto T1411; |
2375 |
T1411:; |
T1411:; |
2376 |
if(!(((V377))==(VV[73]))){ |
if(!(((V377))==(VV[73]))){ |
2377 |
goto T1427;} |
goto T1427;} |
2381 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2382 |
(void) (*Lnk111)(); |
(void) (*Lnk111)(); |
2383 |
vs_top=sup; |
vs_top=sup; |
2384 |
goto T1429; |
goto T1429; |
2385 |
T1429:; |
T1429:; |
2386 |
V364= Ct; |
V364= Ct; |
2387 |
V363= Ct; |
V363= Ct; |
2392 |
V381= car((V356)); |
V381= car((V356)); |
2393 |
V356= cdr((V356)); |
V356= cdr((V356)); |
2394 |
goto T1354;} |
goto T1354;} |
2395 |
goto T1427; |
goto T1427; |
2396 |
T1427:; |
T1427:; |
2397 |
if(((V364))==Cnil){ |
if(((V364))==Cnil){ |
2398 |
goto T1447;} |
goto T1447;} |
2405 |
V382= (V377); |
V382= (V377); |
2406 |
V383= (*(LnkLI113))(); |
V383= (*(LnkLI113))(); |
2407 |
goto T1450; |
goto T1450; |
2408 |
goto T1452; |
goto T1452; |
2409 |
T1452:; |
T1452:; |
2410 |
V382= car((V377)); |
V382= car((V377)); |
2411 |
if(!(endp_prop(cdr((V377))))){ |
if(!(endp_prop(cdr((V377))))){ |
2412 |
goto T1460;} |
goto T1460;} |
2413 |
V383= (*(LnkLI113))(); |
V383= (*(LnkLI113))(); |
2414 |
goto T1450; |
goto T1450; |
2415 |
goto T1460; |
goto T1460; |
2416 |
T1460:; |
T1460:; |
2417 |
V383= (*(LnkLI91))(cadr((V377)),symbol_value(VV[63])); |
V383= (*(LnkLI91))(cadr((V377)),symbol_value(VV[63])); |
2418 |
goto T1450; |
goto T1450; |
2419 |
T1450:; |
T1450:; |
2420 |
{object V384; |
{object V384; |
2421 |
base[5]= (V382); |
base[5]= (V382); |
2432 |
V386= car((V356)); |
V386= car((V356)); |
2433 |
V356= cdr((V356)); |
V356= cdr((V356)); |
2434 |
goto T1354;} |
goto T1354;} |
2435 |
goto T1447; |
goto T1447; |
2436 |
T1447:; |
T1447:; |
2437 |
if(((V362))==Cnil){ |
if(((V362))==Cnil){ |
2438 |
goto T1475;} |
goto T1475;} |
2455 |
V388= vs_base[0]; |
V388= vs_base[0]; |
2456 |
V389= (*(LnkLI113))(); |
V389= (*(LnkLI113))(); |
2457 |
goto T1478; |
goto T1478; |
2458 |
goto T1480; |
goto T1480; |
2459 |
T1480:; |
T1480:; |
2460 |
if(!(type_of(car((V377)))==t_symbol)){ |
if(!(type_of(car((V377)))==t_symbol)){ |
2461 |
goto T1491;} |
goto T1491;} |
2467 |
vs_top=sup; |
vs_top=sup; |
2468 |
V388= vs_base[0]; |
V388= vs_base[0]; |
2469 |
goto T1489; |
goto T1489; |
2470 |
goto T1491; |
goto T1491; |
2471 |
T1491:; |
T1491:; |
2472 |
V387= cadar((V377)); |
V387= cadar((V377)); |
2473 |
V388= caar((V377)); |
V388= caar((V377)); |
2474 |
goto T1489; |
goto T1489; |
2475 |
T1489:; |
T1489:; |
2476 |
if(!(endp_prop(cdr((V377))))){ |
if(!(endp_prop(cdr((V377))))){ |
2477 |
goto T1502;} |
goto T1502;} |
2478 |
V389= (*(LnkLI113))(); |
V389= (*(LnkLI113))(); |
2479 |
goto T1478; |
goto T1478; |
2480 |
goto T1502; |
goto T1502; |
2481 |
T1502:; |
T1502:; |
2482 |
V389= (*(LnkLI91))(cadr((V377)),symbol_value(VV[63])); |
V389= (*(LnkLI91))(cadr((V377)),symbol_value(VV[63])); |
2483 |
if(endp_prop(cddr((V377)))){ |
if(endp_prop(cddr((V377)))){ |
2484 |
goto T1478;} |
goto T1478;} |
2485 |
V390= caddr((V377)); |
V390= caddr((V377)); |
2486 |
goto T1478; |
goto T1478; |
2487 |
T1478:; |
T1478:; |
2488 |
{object V391; |
{object V391; |
2489 |
base[5]= (V387); |
base[5]= (V387); |
2505 |
vs_top=sup; |
vs_top=sup; |
2506 |
V393= vs_base[0]; |
V393= vs_base[0]; |
2507 |
goto T1516; |
goto T1516; |
2508 |
goto T1518; |
goto T1518; |
2509 |
T1518:; |
T1518:; |
2510 |
V393= Cnil; |
V393= Cnil; |
2511 |
goto T1516; |
goto T1516; |
2512 |
T1516:; |
T1516:; |
2513 |
V391= list(4,(V388),V392,(V389),V393); |
V391= list(4,(V388),V392,(V389),V393); |
2514 |
V369= make_cons((V391),(V369));}} |
V369= make_cons((V391),(V369));}} |
2516 |
V394= car((V356)); |
V394= car((V356)); |
2517 |
V356= cdr((V356)); |
V356= cdr((V356)); |
2518 |
goto T1354;} |
goto T1354;} |
2519 |
goto T1475; |
goto T1475; |
2520 |
T1475:; |
T1475:; |
2521 |
if(((V360))==Cnil){ |
if(((V360))==Cnil){ |
2522 |
goto T1529;} |
goto T1529;} |
2531 |
V395= (V377); |
V395= (V377); |
2532 |
V396= (*(LnkLI113))(); |
V396= (*(LnkLI113))(); |
2533 |
goto T1532; |
goto T1532; |
2534 |
goto T1534; |
goto T1534; |
2535 |
T1534:; |
T1534:; |
2536 |
V395= car((V377)); |
V395= car((V377)); |
2537 |
if(!(endp_prop(cdr((V377))))){ |
if(!(endp_prop(cdr((V377))))){ |
2538 |
goto T1542;} |
goto T1542;} |
2539 |
V396= (*(LnkLI113))(); |
V396= (*(LnkLI113))(); |
2540 |
goto T1532; |
goto T1532; |
2541 |
goto T1542; |
goto T1542; |
2542 |
T1542:; |
T1542:; |
2543 |
V396= (*(LnkLI91))(cadr((V377)),symbol_value(VV[63])); |
V396= (*(LnkLI91))(cadr((V377)),symbol_value(VV[63])); |
2544 |
if(endp_prop(cddr((V377)))){ |
if(endp_prop(cddr((V377)))){ |
2545 |
goto T1532;} |
goto T1532;} |
2546 |
V397= caddr((V377)); |
V397= caddr((V377)); |
2547 |
goto T1532; |
goto T1532; |
2548 |
T1532:; |
T1532:; |
2549 |
{object V398; |
{object V398; |
2550 |
base[5]= (V395); |
base[5]= (V395); |
2566 |
vs_top=sup; |
vs_top=sup; |
2567 |
V400= vs_base[0]; |
V400= vs_base[0]; |
2568 |
goto T1556; |
goto T1556; |
2569 |
goto T1558; |
goto T1558; |
2570 |
T1558:; |
T1558:; |
2571 |
V400= Cnil; |
V400= Cnil; |
2572 |
goto T1556; |
goto T1556; |
2573 |
T1556:; |
T1556:; |
2574 |
V398= list(3,V399,(V396),V400); |
V398= list(3,V399,(V396),V400); |
2575 |
V366= make_cons((V398),(V366));}} |
V366= make_cons((V398),(V366));}} |
2578 |
V356= cdr((V356));} |
V356= cdr((V356));} |
2579 |
V372= number_plus((V372),small_fixnum(1)); |
V372= number_plus((V372),small_fixnum(1)); |
2580 |
goto T1354; |
goto T1354; |
2581 |
goto T1529; |
goto T1529; |
2582 |
T1529:; |
T1529:; |
2583 |
{object V402; |
{object V402; |
2584 |
base[5]= (V377); |
base[5]= (V377); |
2594 |
V403= car((V356)); |
V403= car((V356)); |
2595 |
V356= cdr((V356));} |
V356= cdr((V356));} |
2596 |
V372= number_plus((V372),small_fixnum(1));} |
V372= number_plus((V372),small_fixnum(1));} |
2597 |
goto T1354; |
goto T1354; |
2598 |
T1354:; |
T1354:; |
2599 |
goto T1335;} |
goto T1335;} |
2600 |
} |
} |
2615 |
V406=(base[2]); |
V406=(base[2]); |
2616 |
V407=(base[3]); |
V407=(base[3]); |
2617 |
vs_top=sup; |
vs_top=sup; |
2618 |
goto TTL; |
goto TTL; |
2619 |
TTL:; |
TTL:; |
2620 |
if(!(type_of((V404))==t_symbol)){ |
if(!(type_of((V404))==t_symbol)){ |
2621 |
goto T1585;} |
goto T1585;} |
2626 |
base[4]= (V404); |
base[4]= (V404); |
2627 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2628 |
return; |
return; |
2629 |
goto T1585; |
goto T1585; |
2630 |
T1585:; |
T1585:; |
2631 |
base[4]= (V404); |
base[4]= (V404); |
2632 |
base[5]= (V405); |
base[5]= (V405); |
2643 |
|
|
2644 |
object V412; |
object V412; |
2645 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
2646 |
goto TTL; |
goto TTL; |
2647 |
TTL:; |
TTL:; |
2648 |
{object V413 = (VFUN_NARGS=2,(*(LnkLI86))(VV[74],(V412))); |
{object V413 = (VFUN_NARGS=2,(*(LnkLI86))(VV[74],(V412))); |
2649 |
VMR19(V413)} |
VMR19(V413)} |
2665 |
V416=(base[2]); |
V416=(base[2]); |
2666 |
V417=(base[3]); |
V417=(base[3]); |
2667 |
vs_top=sup; |
vs_top=sup; |
2668 |
goto TTL; |
goto TTL; |
2669 |
TTL:; |
TTL:; |
2670 |
{object V418; |
{object V418; |
2671 |
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1))); |
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1))); |
2674 |
goto T1602;} |
goto T1602;} |
2675 |
if((symbol_value(VV[56]))==Cnil){ |
if((symbol_value(VV[56]))==Cnil){ |
2676 |
goto T1601;} |
goto T1601;} |
2677 |
goto T1602; |
goto T1602; |
2678 |
T1602:; |
T1602:; |
2679 |
princ_str("\n check_arg(2);",VV[10]); |
princ_str("\n check_arg(2);",VV[10]); |
2680 |
goto T1601; |
goto T1601; |
2681 |
T1601:; |
T1601:; |
2682 |
if(((V414))==Cnil){ |
if(((V414))==Cnil){ |
2683 |
goto T1609;} |
goto T1609;} |
2684 |
V419= (*(LnkLI102))(); |
V419= (*(LnkLI102))(); |
2685 |
(void)(structure_set((V414),VV[6],2,/* INLINE-ARGS */V419)); |
(void)(structure_set((V414),VV[6],2,/* INLINE-ARGS */V419)); |
2686 |
goto T1607; |
goto T1607; |
2687 |
goto T1609; |
goto T1609; |
2688 |
T1609:; |
T1609:; |
2689 |
(void)((*(LnkLI102))()); |
(void)((*(LnkLI102))()); |
2690 |
goto T1607; |
goto T1607; |
2691 |
T1607:; |
T1607:; |
2692 |
if(((V415))==Cnil){ |
if(((V415))==Cnil){ |
2693 |
goto T1613;} |
goto T1613;} |
2694 |
V420= (*(LnkLI102))(); |
V420= (*(LnkLI102))(); |
2695 |
(void)(structure_set((V415),VV[6],2,/* INLINE-ARGS */V420)); |
(void)(structure_set((V415),VV[6],2,/* INLINE-ARGS */V420)); |
2696 |
goto T1611; |
goto T1611; |
2697 |
goto T1613; |
goto T1613; |
2698 |
T1613:; |
T1613:; |
2699 |
(void)((*(LnkLI102))()); |
(void)((*(LnkLI102))()); |
2700 |
goto T1611; |
goto T1611; |
2701 |
T1611:; |
T1611:; |
2702 |
(void)((*(LnkLI114))((V416))); |
(void)((*(LnkLI114))((V416))); |
2703 |
princ_str("\n vs_top=sup;",VV[10]); |
princ_str("\n vs_top=sup;",VV[10]); |
2704 |
if(((V414))==Cnil){ |
if(((V414))==Cnil){ |
2705 |
goto T1618;} |
goto T1618;} |
2706 |
(void)((*(LnkLI103))((V414))); |
(void)((*(LnkLI103))((V414))); |
2707 |
goto T1618; |
goto T1618; |
2708 |
T1618:; |
T1618:; |
2709 |
if(((V415))==Cnil){ |
if(((V415))==Cnil){ |
2710 |
goto T1621;} |
goto T1621;} |
2711 |
(void)((*(LnkLI103))((V415))); |
(void)((*(LnkLI103))((V415))); |
2712 |
goto T1621; |
goto T1621; |
2713 |
T1621:; |
T1621:; |
2714 |
princ_str("\n {object V",VV[10]); |
princ_str("\n {object V",VV[10]); |
2715 |
(void)((*(LnkLI80))((V418))); |
(void)((*(LnkLI80))((V418))); |
2728 |
|
|
2729 |
object V422; |
object V422; |
2730 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
2731 |
goto TTL; |
goto TTL; |
2732 |
TTL:; |
TTL:; |
2733 |
{register object V423; |
{register object V423; |
2734 |
object V424; |
object V424; |
2735 |
V423= car((V422)); |
V423= car((V422)); |
2736 |
V424= car((V423)); |
V424= car((V423)); |
2737 |
goto T1636; |
goto T1636; |
2738 |
T1636:; |
T1636:; |
2739 |
if(!(endp_prop((V423)))){ |
if(!(endp_prop((V423)))){ |
2740 |
goto T1637;} |
goto T1637;} |
2741 |
goto T1632; |
goto T1632; |
2742 |
goto T1637; |
goto T1637; |
2743 |
T1637:; |
T1637:; |
2744 |
(void)((*(LnkLI116))((V424))); |
(void)((*(LnkLI116))((V424))); |
2745 |
V423= cdr((V423)); |
V423= cdr((V423)); |
2746 |
V424= car((V423)); |
V424= car((V423)); |
2747 |
goto T1636;} |
goto T1636;} |
2748 |
goto T1632; |
goto T1632; |
2749 |
T1632:; |
T1632:; |
2750 |
{register object V425; |
{register object V425; |
2751 |
register object V426; |
register object V426; |
2752 |
V425= cadr((V422)); |
V425= cadr((V422)); |
2753 |
V426= car((V425)); |
V426= car((V425)); |
2754 |
goto T1651; |
goto T1651; |
2755 |
T1651:; |
T1651:; |
2756 |
if(!(endp_prop((V425)))){ |
if(!(endp_prop((V425)))){ |
2757 |
goto T1652;} |
goto T1652;} |
2758 |
goto T1647; |
goto T1647; |
2759 |
goto T1652; |
goto T1652; |
2760 |
T1652:; |
T1652:; |
2761 |
(void)((*(LnkLI116))(car((V426)))); |
(void)((*(LnkLI116))(car((V426)))); |
2762 |
if((caddr((V426)))==Cnil){ |
if((caddr((V426)))==Cnil){ |
2763 |
goto T1657;} |
goto T1657;} |
2764 |
(void)((*(LnkLI116))(caddr((V426)))); |
(void)((*(LnkLI116))(caddr((V426)))); |
2765 |
goto T1657; |
goto T1657; |
2766 |
T1657:; |
T1657:; |
2767 |
V425= cdr((V425)); |
V425= cdr((V425)); |
2768 |
V426= car((V425)); |
V426= car((V425)); |
2769 |
goto T1651;} |
goto T1651;} |
2770 |
goto T1647; |
goto T1647; |
2771 |
T1647:; |
T1647:; |
2772 |
if((caddr((V422)))==Cnil){ |
if((caddr((V422)))==Cnil){ |
2773 |
goto T1665;} |
goto T1665;} |
2774 |
(void)((*(LnkLI116))(caddr((V422)))); |
(void)((*(LnkLI116))(caddr((V422)))); |
2775 |
goto T1665; |
goto T1665; |
2776 |
T1665:; |
T1665:; |
2777 |
{register object V427; |
{register object V427; |
2778 |
register object V428; |
register object V428; |
2779 |
V427= car(cddddr((V422))); |
V427= car(cddddr((V422))); |
2780 |
V428= car((V427)); |
V428= car((V427)); |
2781 |
goto T1672; |
goto T1672; |
2782 |
T1672:; |
T1672:; |
2783 |
if(!(endp_prop((V427)))){ |
if(!(endp_prop((V427)))){ |
2784 |
goto T1673;} |
goto T1673;} |
2785 |
goto T1668; |
goto T1668; |
2786 |
goto T1673; |
goto T1673; |
2787 |
T1673:; |
T1673:; |
2788 |
(void)((*(LnkLI116))(cadr((V428)))); |
(void)((*(LnkLI116))(cadr((V428)))); |
2789 |
if((cadddr((V428)))==Cnil){ |
if((cadddr((V428)))==Cnil){ |
2790 |
goto T1678;} |
goto T1678;} |
2791 |
(void)((*(LnkLI116))(cadddr((V428)))); |
(void)((*(LnkLI116))(cadddr((V428)))); |
2792 |
goto T1678; |
goto T1678; |
2793 |
T1678:; |
T1678:; |
2794 |
V427= cdr((V427)); |
V427= cdr((V427)); |
2795 |
V428= car((V427)); |
V428= car((V427)); |
2796 |
goto T1672;} |
goto T1672;} |
2797 |
goto T1668; |
goto T1668; |
2798 |
T1668:; |
T1668:; |
2799 |
{register object V429; |
{register object V429; |
2800 |
object V430; |
object V430; |
2801 |
V429= caddr(cddddr((V422))); |
V429= caddr(cddddr((V422))); |
2802 |
V430= car((V429)); |
V430= car((V429)); |
2803 |
goto T1689; |
goto T1689; |
2804 |
T1689:; |
T1689:; |
2805 |
if(!(endp_prop((V429)))){ |
if(!(endp_prop((V429)))){ |
2806 |
goto T1690;} |
goto T1690;} |
2807 |
{object V431 = Cnil; |
{object V431 = Cnil; |
2808 |
VMR21(V431)} |
VMR21(V431)} |
2809 |
goto T1690; |
goto T1690; |
2810 |
T1690:; |
T1690:; |
2811 |
(void)((*(LnkLI116))(car((V430)))); |
(void)((*(LnkLI116))(car((V430)))); |
2812 |
V429= cdr((V429)); |
V429= cdr((V429)); |
2821 |
|
|
2822 |
object V433; |
object V433; |
2823 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
2824 |
goto TTL; |
goto TTL; |
2825 |
TTL:; |
TTL:; |
2826 |
if(!(type_of((V433))==t_cons)){ |
if(!(type_of((V433))==t_cons)){ |
2827 |
goto T1701;} |
goto T1701;} |
2828 |
{object V434 = (*(LnkLI114))((V433)); |
{object V434 = (*(LnkLI114))((V433)); |
2829 |
VMR22(V434)} |
VMR22(V434)} |
2830 |
goto T1701; |
goto T1701; |
2831 |
T1701:; |
T1701:; |
2832 |
V435= (*(LnkLI102))(); |
V435= (*(LnkLI102))(); |
2833 |
{object V436 = structure_set((V433),VV[6],2,/* INLINE-ARGS */V435); |
{object V436 = structure_set((V433),VV[6],2,/* INLINE-ARGS */V435); |
2841 |
object V439;register object V440; |
object V439;register object V440; |
2842 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
2843 |
bds_check; |
bds_check; |
2844 |
goto TTL; |
goto TTL; |
2845 |
TTL:; |
TTL:; |
2846 |
{object V441; |
{object V441; |
2847 |
object V442; |
object V442; |
2859 |
V447= caddr(cddddr((V439))); |
V447= caddr(cddddr((V439))); |
2860 |
{register object V448; |
{register object V448; |
2861 |
V448= (V441); |
V448= (V441); |
2862 |
goto T1712; |
goto T1712; |
2863 |
T1712:; |
T1712:; |
2864 |
if(!(endp_prop((V448)))){ |
if(!(endp_prop((V448)))){ |
2865 |
goto T1713;} |
goto T1713;} |
2866 |
goto T1710; |
goto T1710; |
2867 |
goto T1713; |
goto T1713; |
2868 |
T1713:; |
T1713:; |
2869 |
if((symbol_value(VV[55]))!=Cnil){ |
if((symbol_value(VV[55]))!=Cnil){ |
2870 |
goto T1718;} |
goto T1718;} |
2871 |
if((symbol_value(VV[56]))==Cnil){ |
if((symbol_value(VV[56]))==Cnil){ |
2872 |
goto T1717;} |
goto T1717;} |
2873 |
goto T1718; |
goto T1718; |
2874 |
T1718:; |
T1718:; |
2875 |
princ_str("\n if(endp(V",VV[10]); |
princ_str("\n if(endp(V",VV[10]); |
2876 |
(void)((*(LnkLI80))((V440))); |
(void)((*(LnkLI80))((V440))); |
2877 |
princ_str("))invalid_macro_call();",VV[10]); |
princ_str("))invalid_macro_call();",VV[10]); |
2878 |
goto T1717; |
goto T1717; |
2879 |
T1717:; |
T1717:; |
2880 |
V449= car((V448)); |
V449= car((V448)); |
2881 |
V450= list(2,VV[75],(V440)); |
V450= list(2,VV[75],(V440)); |
2892 |
goto T1727;} |
goto T1727;} |
2893 |
if((symbol_value(VV[56]))==Cnil){ |
if((symbol_value(VV[56]))==Cnil){ |
2894 |
goto T1726;} |
goto T1726;} |
2895 |
goto T1727; |
goto T1727; |
2896 |
T1727:; |
T1727:; |
2897 |
princ_str("\n V",VV[10]); |
princ_str("\n V",VV[10]); |
2898 |
(void)((*(LnkLI80))((V440))); |
(void)((*(LnkLI80))((V440))); |
2899 |
princ_str("=V",VV[10]); |
princ_str("=V",VV[10]); |
2900 |
(void)((*(LnkLI80))((V440))); |
(void)((*(LnkLI80))((V440))); |
2901 |
princ_str("->c.c_cdr;",VV[10]); |
princ_str("->c.c_cdr;",VV[10]); |
2902 |
goto T1726; |
goto T1726; |
2903 |
T1726:; |
T1726:; |
2904 |
V448= cdr((V448)); |
V448= cdr((V448)); |
2905 |
goto T1712;} |
goto T1712;} |
2906 |
goto T1710; |
goto T1710; |
2907 |
T1710:; |
T1710:; |
2908 |
{register object V451; |
{register object V451; |
2909 |
V451= (V442); |
V451= (V442); |
2910 |
goto T1749; |
goto T1749; |
2911 |
T1749:; |
T1749:; |
2912 |
if(!(endp_prop((V451)))){ |
if(!(endp_prop((V451)))){ |
2913 |
goto T1750;} |
goto T1750;} |
2914 |
goto T1747; |
goto T1747; |
2915 |
goto T1750; |
goto T1750; |
2916 |
T1750:; |
T1750:; |
2917 |
{register object V452; |
{register object V452; |
2918 |
V452= car((V451)); |
V452= car((V451)); |
2932 |
bds_unwind1; |
bds_unwind1; |
2933 |
bds_unwind1; |
bds_unwind1; |
2934 |
bds_unwind1; |
bds_unwind1; |
2935 |
goto T1760; |
goto T1760; |
2936 |
T1760:; |
T1760:; |
2937 |
princ_str("\n } else {",VV[10]); |
princ_str("\n } else {",VV[10]); |
2938 |
V454= car((V452)); |
V454= car((V452)); |
2941 |
if((caddr((V452)))==Cnil){ |
if((caddr((V452)))==Cnil){ |
2942 |
goto T1754;} |
goto T1754;} |
2943 |
(void)((*(LnkLI117))(caddr((V452)),Ct));} |
(void)((*(LnkLI117))(caddr((V452)),Ct));} |
2944 |
goto T1754; |
goto T1754; |
2945 |
T1754:; |
T1754:; |
2946 |
if((cdr((V451)))!=Cnil){ |
if((cdr((V451)))!=Cnil){ |
2947 |
goto T1770;} |
goto T1770;} |
2953 |
goto T1770;} |
goto T1770;} |
2954 |
if((symbol_value(VV[56]))==Cnil){ |
if((symbol_value(VV[56]))==Cnil){ |
2955 |
goto T1769;} |
goto T1769;} |
2956 |
goto T1770; |
goto T1770; |
2957 |
T1770:; |
T1770:; |
2958 |
princ_str("\n V",VV[10]); |
princ_str("\n V",VV[10]); |
2959 |
(void)((*(LnkLI80))((V440))); |
(void)((*(LnkLI80))((V440))); |
2960 |
princ_str("=V",VV[10]); |
princ_str("=V",VV[10]); |
2961 |
(void)((*(LnkLI80))((V440))); |
(void)((*(LnkLI80))((V440))); |
2962 |
princ_str("->c.c_cdr;",VV[10]); |
princ_str("->c.c_cdr;",VV[10]); |
2963 |
goto T1769; |
goto T1769; |
2964 |
T1769:; |
T1769:; |
2965 |
princ_char(125,VV[10]); |
princ_char(125,VV[10]); |
2966 |
V451= cdr((V451)); |
V451= cdr((V451)); |
2967 |
goto T1749;} |
goto T1749;} |
2968 |
goto T1747; |
goto T1747; |
2969 |
T1747:; |
T1747:; |
2970 |
if(((V443))==Cnil){ |
if(((V443))==Cnil){ |
2971 |
goto T1790;} |
goto T1790;} |
2972 |
V456= list(2,VV[76],(V440)); |
V456= list(2,VV[76],(V440)); |
2973 |
(void)((*(LnkLI117))((V443),/* INLINE-ARGS */V456)); |
(void)((*(LnkLI117))((V443),/* INLINE-ARGS */V456)); |
2974 |
goto T1790; |
goto T1790; |
2975 |
T1790:; |
T1790:; |
2976 |
{object V457; |
{object V457; |
2977 |
register object V458; |
register object V458; |
2978 |
V457= (V445); |
V457= (V445); |
2979 |
V458= car((V457)); |
V458= car((V457)); |
2980 |
goto T1797; |
goto T1797; |
2981 |
T1797:; |
T1797:; |
2982 |
if(!(endp_prop((V457)))){ |
if(!(endp_prop((V457)))){ |
2983 |
goto T1798;} |
goto T1798;} |
2984 |
goto T1793; |
goto T1793; |
2985 |
goto T1798; |
goto T1798; |
2986 |
T1798:; |
T1798:; |
2987 |
{object V459; |
{object V459; |
2988 |
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1))); |
setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1))); |
3005 |
if((cadddr((V458)))==Cnil){ |
if((cadddr((V458)))==Cnil){ |
3006 |
goto T1819;} |
goto T1819;} |
3007 |
(void)((*(LnkLI117))(cadddr((V458)),Cnil)); |
(void)((*(LnkLI117))(cadddr((V458)),Cnil)); |
3008 |
goto T1819; |
goto T1819; |
3009 |
T1819:; |
T1819:; |
3010 |
princ_str("\n } else {",VV[10]); |
princ_str("\n } else {",VV[10]); |
3011 |
bds_unwind1; |
bds_unwind1; |
3017 |
if((cadddr((V458)))==Cnil){ |
if((cadddr((V458)))==Cnil){ |
3018 |
goto T1824;} |
goto T1824;} |
3019 |
(void)((*(LnkLI117))(cadddr((V458)),Ct)); |
(void)((*(LnkLI117))(cadddr((V458)),Ct)); |
3020 |
goto T1824; |
goto T1824; |
3021 |
T1824:; |
T1824:; |
3022 |
princ_str("}}",VV[10]);} |
princ_str("}}",VV[10]);} |
3023 |
V457= cdr((V457)); |
V457= cdr((V457)); |
3024 |
V458= car((V457)); |
V458= car((V457)); |
3025 |
goto T1797;} |
goto T1797;} |
3026 |
goto T1793; |
goto T1793; |
3027 |
T1793:; |
T1793:; |
3028 |
if((symbol_value(VV[55]))!=Cnil){ |
if((symbol_value(VV[55]))!=Cnil){ |
3029 |
goto T1835;} |
goto T1835;} |
3030 |
if((symbol_value(VV[56]))==Cnil){ |
if((symbol_value(VV[56]))==Cnil){ |
3031 |
goto T1833;} |
goto T1833;} |
3032 |
goto T1835; |
goto T1835; |
3033 |
T1835:; |
T1835:; |
3034 |
if(((V443))!=Cnil){ |
if(((V443))!=Cnil){ |
3035 |
goto T1833;} |
goto T1833;} |
3038 |
princ_str("\n if(!endp(V",VV[10]); |
princ_str("\n if(!endp(V",VV[10]); |
3039 |
(void)((*(LnkLI80))((V440))); |
(void)((*(LnkLI80))((V440))); |
3040 |
princ_str("))invalid_macro_call();",VV[10]); |
princ_str("))invalid_macro_call();",VV[10]); |
3041 |
goto T1833; |
goto T1833; |
3042 |
T1833:; |
T1833:; |
3043 |
if((symbol_value(VV[55]))!=Cnil){ |
if((symbol_value(VV[55]))!=Cnil){ |
3044 |
goto T1847;} |
goto T1847;} |
3045 |
if((symbol_value(VV[56]))==Cnil){ |
if((symbol_value(VV[56]))==Cnil){ |
3046 |
goto T1845;} |
goto T1845;} |
3047 |
goto T1847; |
goto T1847; |
3048 |
T1847:; |
T1847:; |
3049 |
if(((V444))==Cnil){ |
if(((V444))==Cnil){ |
3050 |
goto T1845;} |
goto T1845;} |
3059 |
object V465; |
object V465; |
3060 |
V464= (V445); |
V464= (V445); |
3061 |
V465= car((V464)); |
V465= car((V464)); |
3062 |
goto T1863; |
goto T1863; |
3063 |
T1863:; |
T1863:; |
3064 |
if(!(endp_prop((V464)))){ |
if(!(endp_prop((V464)))){ |
3065 |
goto T1864;} |
goto T1864;} |
3066 |
goto T1859; |
goto T1859; |
3067 |
goto T1864; |
goto T1864; |
3068 |
T1864:; |
T1864:; |
3069 |
princ_str(",VV[",VV[10]); |
princ_str(",VV[",VV[10]); |
3070 |
V466= (*(LnkLI108))(car((V465))); |
V466= (*(LnkLI108))(car((V465))); |
3073 |
V464= cdr((V464)); |
V464= cdr((V464)); |
3074 |
V465= car((V464)); |
V465= car((V464)); |
3075 |
goto T1863;} |
goto T1863;} |
3076 |
goto T1859; |
goto T1859; |
3077 |
T1859:; |
T1859:; |
3078 |
princ_str(");",VV[10]); |
princ_str(");",VV[10]); |
3079 |
goto T1845; |
goto T1845; |
3080 |
T1845:; |
T1845:; |
3081 |
{object V467; |
{object V467; |
3082 |
object V468; |
object V468; |
3083 |
V467= (V447); |
V467= (V447); |
3084 |
V468= car((V467)); |
V468= car((V467)); |
3085 |
goto T1881; |
goto T1881; |
3086 |
T1881:; |
T1881:; |
3087 |
if(!(endp_prop((V467)))){ |
if(!(endp_prop((V467)))){ |
3088 |
goto T1882;} |
goto T1882;} |
3089 |
{object V469 = Cnil; |
{object V469 = Cnil; |
3090 |
VMR23(V469)} |
VMR23(V469)} |
3091 |
goto T1882; |
goto T1882; |
3092 |
T1882:; |
T1882:; |
3093 |
(void)((*(LnkLI118))(car((V468)),cadr((V468)))); |
(void)((*(LnkLI118))(car((V468)),cadr((V468)))); |
3094 |
V467= cdr((V467)); |
V467= cdr((V467)); |
3103 |
|
|
3104 |
object V472;object V473; |
object V472;object V473; |
3105 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
3106 |
goto TTL; |
goto TTL; |
3107 |
TTL:; |
TTL:; |
3108 |
if(!(type_of((V472))==t_cons)){ |
if(!(type_of((V472))==t_cons)){ |
3109 |
goto T1893;} |
goto T1893;} |
3119 |
princ_char(125,VV[10]); |
princ_char(125,VV[10]); |
3120 |
{object V475 = Cnil; |
{object V475 = Cnil; |
3121 |
VMR24(V475)}} |
VMR24(V475)}} |
3122 |
goto T1893; |
goto T1893; |
3123 |
T1893:; |
T1893:; |
3124 |
{object V476 = (*(LnkLI105))((V472),(V473)); |
{object V476 = (*(LnkLI105))((V472),(V473)); |
3125 |
VMR24(V476)} |
VMR24(V476)} |
3132 |
object V479;object V480; |
object V479;object V480; |
3133 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
3134 |
bds_check; |
bds_check; |
3135 |
goto TTL; |
goto TTL; |
3136 |
TTL:; |
TTL:; |
3137 |
if(!(type_of((V479))==t_cons)){ |
if(!(type_of((V479))==t_cons)){ |
3138 |
goto T1906;} |
goto T1906;} |
3156 |
bds_unwind1; |
bds_unwind1; |
3157 |
bds_unwind1; |
bds_unwind1; |
3158 |
VMR25(V485)}} |
VMR25(V485)}} |
3159 |
goto T1906; |
goto T1906; |
3160 |
T1906:; |
T1906:; |
3161 |
{object V486 = (*(LnkLI106))((V479),(V480)); |
{object V486 = (*(LnkLI106))((V479),(V480)); |
3162 |
VMR25(V486)} |
VMR25(V486)} |
3174 |
check_arg(1); |
check_arg(1); |
3175 |
V487=(base[0]); |
V487=(base[0]); |
3176 |
vs_top=sup; |
vs_top=sup; |
3177 |
goto TTL; |
goto TTL; |
3178 |
TTL:; |
TTL:; |
3179 |
{object V488; |
{object V488; |
3180 |
V488= (*(LnkLI121))((V487)); |
V488= (*(LnkLI121))((V487)); |
3190 |
goto T1929;} |
goto T1929;} |
3191 |
princ_char(123,VV[10]); |
princ_char(123,VV[10]); |
3192 |
base0[9]= Ct; |
base0[9]= Ct; |
3193 |
goto T1929; |
goto T1929; |
3194 |
T1929:; |
T1929:; |
3195 |
base[1]= (V487); |
base[1]= (V487); |
3196 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3197 |
(void) (*Lnk122)(); |
(void) (*Lnk122)(); |
3198 |
return;} |
return;} |
3199 |
goto T1922; |
goto T1922; |
3200 |
T1922:; |
T1922:; |
3201 |
base[1]= Cnil; |
base[1]= Cnil; |
3202 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3214 |
check_arg(1); |
check_arg(1); |
3215 |
V490=(base[0]); |
V490=(base[0]); |
3216 |
vs_top=sup; |
vs_top=sup; |
3217 |
goto TTL; |
goto TTL; |
3218 |
TTL:; |
TTL:; |
3219 |
{object V491; |
{object V491; |
3220 |
V491= (*(LnkLI121))((V490)); |
V491= (*(LnkLI121))((V490)); |
3230 |
goto T1945;} |
goto T1945;} |
3231 |
princ_char(123,VV[10]); |
princ_char(123,VV[10]); |
3232 |
base0[7]= Ct; |
base0[7]= Ct; |
3233 |
goto T1945; |
goto T1945; |
3234 |
T1945:; |
T1945:; |
3235 |
base[1]= (V490); |
base[1]= (V490); |
3236 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3237 |
(void) (*Lnk122)(); |
(void) (*Lnk122)(); |
3238 |
return;} |
return;} |
3239 |
goto T1938; |
goto T1938; |
3240 |
T1938:; |
T1938:; |
3241 |
base[1]= Cnil; |
base[1]= Cnil; |
3242 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |