83 |
if(((V10))==Cnil){ |
if(((V10))==Cnil){ |
84 |
goto T5;} |
goto T5;} |
85 |
princ_str("\n bds_unwind(V",VV[16]); |
princ_str("\n bds_unwind(V",VV[16]); |
86 |
(void)((*(LnkLI42))((V10))); |
(void)((*(LnkLI45))((V10))); |
87 |
princ_str(");",VV[16]); |
princ_str(");",VV[16]); |
88 |
goto T5; |
goto T5; |
89 |
T5:; |
T5:; |
101 |
goto T15; |
goto T15; |
102 |
T15:; |
T15:; |
103 |
princ_str("\n bds_unwind1;",VV[16]); |
princ_str("\n bds_unwind1;",VV[16]); |
104 |
V13= (V13)+1; |
V13= (long)(V13)+1; |
105 |
goto T14;} |
goto T14;} |
106 |
return Cnil; |
return Cnil; |
107 |
} |
} |
146 |
V22= Cnil; |
V22= Cnil; |
147 |
if(symbol_value(VV[18])==Cnil){ |
if(symbol_value(VV[18])==Cnil){ |
148 |
goto T32;} |
goto T32;} |
149 |
(void)((*(LnkLI43))((V17),(V19))); |
(void)((*(LnkLI46))((V17),(V19))); |
150 |
goto T32; |
goto T32; |
151 |
T32:; |
T32:; |
152 |
if(!(((V17))==(VV[19]))){ |
if(!(((V17))==(VV[19]))){ |
156 |
if((symbol_value(VV[20]))==(VV[22])){ |
if((symbol_value(VV[20]))==(VV[22])){ |
157 |
goto T33;} |
goto T33;} |
158 |
princ_str("\n ",VV[16]); |
princ_str("\n ",VV[16]); |
159 |
(void)((*(LnkLI44))()); |
(void)((*(LnkLI47))()); |
160 |
goto T33; |
goto T33; |
161 |
T33:; |
T33:; |
162 |
if(!(type_of(symbol_value(VV[20]))==t_cons)){ |
if(!(type_of(symbol_value(VV[20]))==t_cons)){ |
163 |
goto T43;} |
goto T43;} |
164 |
if(!((car(symbol_value(VV[20])))==(VV[23]))){ |
if(!((car(symbol_value(VV[20])))==(VV[23]))){ |
165 |
goto T43;} |
goto T43;} |
166 |
(void)((*(LnkLI45))((V17),cadr(symbol_value(VV[20])))); |
(void)((*(LnkLI48))((V17),cadr(symbol_value(VV[20])))); |
167 |
if(!(((V17))==(Ct))){ |
if(!(((V17))==(Ct))){ |
168 |
goto T41;} |
goto T41;} |
169 |
{object V23 = Cnil; |
{object V23 = Cnil; |
175 |
goto T41;} |
goto T41;} |
176 |
if(!((car(symbol_value(VV[20])))==(VV[24]))){ |
if(!((car(symbol_value(VV[20])))==(VV[24]))){ |
177 |
goto T41;} |
goto T41;} |
178 |
(void)((*(LnkLI46))((V17),cadr(symbol_value(VV[20])))); |
(void)((*(LnkLI49))((V17),cadr(symbol_value(VV[20])))); |
179 |
if(((V17))!=Cnil){ |
if(((V17))!=Cnil){ |
180 |
goto T41;} |
goto T41;} |
181 |
{object V24 = Cnil; |
{object V24 = Cnil; |
191 |
T60:; |
T60:; |
192 |
if(!(endp((V25)))){ |
if(!(endp((V25)))){ |
193 |
goto T61;} |
goto T61;} |
194 |
{object V27 = (*(LnkLI47))(); |
{object V27 = (*(LnkLI50))(); |
195 |
bds_unwind1; |
bds_unwind1; |
196 |
VMR6(V27)} |
VMR6(V27)} |
197 |
goto T61; |
goto T61; |
209 |
goto T73; |
goto T73; |
210 |
T73:; |
T73:; |
211 |
V28 = make_fixnum(V21); |
V28 = make_fixnum(V21); |
212 |
(void)((*(LnkLI48))((V20),V28)); |
(void)((*(LnkLI51))((V20),V28)); |
213 |
goto T72; |
goto T72; |
214 |
goto T74; |
goto T74; |
215 |
T74:; |
T74:; |
247 |
goto T95;} |
goto T95;} |
248 |
base[2]= (V17); |
base[2]= (V17); |
249 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
250 |
(void) (*Lnk49)(); |
(void) (*Lnk52)(); |
251 |
vs_top=sup; |
vs_top=sup; |
252 |
V32 = make_fixnum(V21); |
V32 = make_fixnum(V21); |
253 |
(void)((*(LnkLI48))((V20),V32)); |
(void)((*(LnkLI51))((V20),V32)); |
254 |
goto T72; |
goto T72; |
255 |
goto T95; |
goto T95; |
256 |
T95:; |
T95:; |
257 |
{object V33; |
{object V33; |
258 |
V33= list(2,VV[31],(VFUN_NARGS=0,(*(LnkLI50))())); |
V33= list(2,VV[31],(VFUN_NARGS=0,(*(LnkLI53))())); |
259 |
bds_bind(VV[20],(V33)); |
bds_bind(VV[20],(V33)); |
260 |
base[3]= (V17); |
base[3]= (V17); |
261 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
262 |
(void) (*Lnk49)(); |
(void) (*Lnk52)(); |
263 |
vs_top=sup; |
vs_top=sup; |
264 |
bds_unwind1; |
bds_unwind1; |
265 |
V34 = make_fixnum(V21); |
V34 = make_fixnum(V21); |
266 |
(void)((*(LnkLI48))((V20),V34)); |
(void)((*(LnkLI51))((V20),V34)); |
267 |
base[2]= (V33); |
base[2]= (V33); |
268 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
269 |
(void) (*Lnk49)(); |
(void) (*Lnk52)(); |
270 |
vs_top=sup; |
vs_top=sup; |
271 |
goto T72;} |
goto T72;} |
272 |
goto T86; |
goto T86; |
273 |
T86:; |
T86:; |
274 |
V35 = make_fixnum(V21); |
V35 = make_fixnum(V21); |
275 |
(void)((*(LnkLI48))((V20),V35)); |
(void)((*(LnkLI51))((V20),V35)); |
276 |
base[2]= (V17); |
base[2]= (V17); |
277 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
278 |
(void) (*Lnk49)(); |
(void) (*Lnk52)(); |
279 |
vs_top=sup; |
vs_top=sup; |
280 |
goto T72; |
goto T72; |
281 |
goto T81; |
goto T81; |
282 |
T81:; |
T81:; |
283 |
base[2]= (V17); |
base[2]= (V17); |
284 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
285 |
(void) (*Lnk49)(); |
(void) (*Lnk52)(); |
286 |
vs_top=sup; |
vs_top=sup; |
287 |
goto T72; |
goto T72; |
288 |
T72:; |
T72:; |
297 |
if(type_of(symbol_value(VV[26]))!=t_cons)FEwrong_type_argument(Scons,symbol_value(VV[26])); |
if(type_of(symbol_value(VV[26]))!=t_cons)FEwrong_type_argument(Scons,symbol_value(VV[26])); |
298 |
(symbol_value(VV[26]))->c.c_cdr = Ct; |
(symbol_value(VV[26]))->c.c_cdr = Ct; |
299 |
princ_str("goto T",VV[16]); |
princ_str("goto T",VV[16]); |
300 |
(void)((*(LnkLI42))(car(symbol_value(VV[26])))); |
(void)((*(LnkLI45))(car(symbol_value(VV[26])))); |
301 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
302 |
goto T109; |
goto T109; |
303 |
T109:; |
T109:; |
324 |
T123:; |
T123:; |
325 |
if(!(((V26))==(VV[32]))){ |
if(!(((V26))==(VV[32]))){ |
326 |
goto T129;} |
goto T129;} |
327 |
V21= (V21)+(1); |
V21= (long)(V21)+(1); |
328 |
goto T65; |
goto T65; |
329 |
goto T129; |
goto T129; |
330 |
T129:; |
T129:; |
334 |
goto T65;} |
goto T65;} |
335 |
base[2]= (V17); |
base[2]= (V17); |
336 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
337 |
(void) (*Lnk49)(); |
(void) (*Lnk52)(); |
338 |
vs_top=sup; |
vs_top=sup; |
339 |
V37 = make_fixnum(V21); |
V37 = make_fixnum(V21); |
340 |
(void)((*(LnkLI48))((V20),V37)); |
(void)((*(LnkLI51))((V20),V37)); |
341 |
princ_str("\n return;",VV[16]); |
princ_str("\n return;",VV[16]); |
342 |
{object V38 = Cnil; |
{object V38 = Cnil; |
343 |
bds_unwind1; |
bds_unwind1; |
362 |
goto T151;} |
goto T151;} |
363 |
base[2]= (V17); |
base[2]= (V17); |
364 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
365 |
(void) (*Lnk49)(); |
(void) (*Lnk52)(); |
366 |
vs_top=sup; |
vs_top=sup; |
367 |
V17= symbol_value(VV[20]); |
V17= symbol_value(VV[20]); |
368 |
goto T145; |
goto T145; |
370 |
T151:; |
T151:; |
371 |
if((symbol_value(VV[35]))==Cnil){ |
if((symbol_value(VV[35]))==Cnil){ |
372 |
goto T160;} |
goto T160;} |
373 |
base[2]= list(2,VV[31],(VFUN_NARGS=0,(*(LnkLI50))())); |
base[2]= list(2,VV[31],(VFUN_NARGS=0,(*(LnkLI53))())); |
374 |
goto T158; |
goto T158; |
375 |
goto T160; |
goto T160; |
376 |
T160:; |
T160:; |
377 |
base[2]= list(2,VV[30],(*(LnkLI51))()); |
base[2]= list(2,VV[30],(*(LnkLI54))()); |
378 |
goto T158; |
goto T158; |
379 |
T158:; |
T158:; |
380 |
bds_bind(VV[20],base[2]); |
bds_bind(VV[20],base[2]); |
381 |
base[3]= (V17); |
base[3]= (V17); |
382 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
383 |
(void) (*Lnk49)(); |
(void) (*Lnk52)(); |
384 |
vs_top=sup; |
vs_top=sup; |
385 |
V17= (VV[20]->s.s_dbind); |
V17= (VV[20]->s.s_dbind); |
386 |
bds_unwind1; |
bds_unwind1; |
423 |
goto T180; |
goto T180; |
424 |
goto T181; |
goto T181; |
425 |
T181:; |
T181:; |
426 |
(void)((*(LnkLI52))()); |
(void)((*(LnkLI55))()); |
427 |
goto T180; |
goto T180; |
428 |
T180:; |
T180:; |
429 |
V22= cdr((V22)); |
V22= cdr((V22)); |
430 |
princ_str("\n {",VV[16]); |
princ_str("\n {",VV[16]); |
431 |
V44= (*(LnkLI53))(car((V22))); |
V44= (*(LnkLI56))(car((V22))); |
432 |
(void)((*(LnkLI42))(/* INLINE-ARGS */V44)); |
(void)((*(LnkLI45))(/* INLINE-ARGS */V44)); |
433 |
princ_char(86,VV[16]); |
princ_char(86,VV[16]); |
434 |
(void)((*(LnkLI42))((V42))); |
(void)((*(LnkLI45))((V42))); |
435 |
princ_str(" = ",VV[16]); |
princ_str(" = ",VV[16]); |
436 |
(void)(( |
(void)(( |
437 |
V45 = cdr((V22)), |
V45 = cdr((V22)), |
438 |
(type_of(V45) == t_sfun ?(*(object (*)())((V45)->sfn.sfn_self)): |
(type_of(V45) == t_sfun ?(*((V45)->sfn.sfn_self)): |
439 |
(fcall.fun=(V45),fcall.argd=1,fcalln))((V17)))); |
(fcall.fun=(V45),fcall.argd=1,fcalln))((V17)))); |
440 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
441 |
V46 = make_fixnum(V21); |
V46 = make_fixnum(V21); |
442 |
(void)((*(LnkLI48))((V20),V46)); |
(void)((*(LnkLI51))((V20),V46)); |
443 |
princ_str("\n VMR",VV[16]); |
princ_str("\n VMR",VV[16]); |
444 |
(void)((*(LnkLI42))(symbol_value(VV[40]))); |
(void)((*(LnkLI45))(symbol_value(VV[40]))); |
445 |
princ_str("(V",VV[16]); |
princ_char(40,VV[16]); |
446 |
(void)((*(LnkLI42))((V42))); |
V48= (*(LnkLI56))(car((V22))); |
447 |
|
if(!(equal(/* INLINE-ARGS */V48,VV[41]))){ |
448 |
|
goto T202;} |
449 |
|
V47= VV[42]; |
450 |
|
goto T200; |
451 |
|
goto T202; |
452 |
|
T202:; |
453 |
|
V47= VV[43]; |
454 |
|
goto T200; |
455 |
|
T200:; |
456 |
|
(void)((*(LnkLI45))(V47)); |
457 |
|
princ_char(86,VV[16]); |
458 |
|
(void)((*(LnkLI45))((V42))); |
459 |
princ_str(")}",VV[16]); |
princ_str(")}",VV[16]); |
460 |
{object V47 = Cnil; |
{object V49 = Cnil; |
461 |
bds_unwind1; |
bds_unwind1; |
462 |
VMR6(V47)}} |
VMR6(V49)}} |
463 |
goto T175; |
goto T175; |
464 |
T175:; |
T175:; |
465 |
(void)((*(LnkLI47))());} |
(void)((*(LnkLI50))());} |
466 |
goto T65; |
goto T65; |
467 |
T65:; |
T65:; |
468 |
V25= cdr((V25)); |
V25= cdr((V25)); |
474 |
} |
} |
475 |
/* local entry for function UNWIND-NO-EXIT */ |
/* local entry for function UNWIND-NO-EXIT */ |
476 |
|
|
477 |
static object LI7(V49) |
static object LI7(V51) |
478 |
|
|
479 |
register object V49; |
register object V51; |
480 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
481 |
goto TTL; |
goto TTL; |
482 |
TTL:; |
TTL:; |
|
{register object V50; |
|
|
register long V51; |
|
|
V50= Cnil; |
|
|
V51= 0; |
|
483 |
{register object V52; |
{register object V52; |
484 |
register object V53; |
register long V53; |
485 |
V52= symbol_value(VV[25]); |
V52= Cnil; |
486 |
V53= car((V52)); |
V53= 0; |
487 |
goto T211; |
{register object V54; |
488 |
T211:; |
register object V55; |
489 |
if(!(endp((V52)))){ |
V54= symbol_value(VV[25]); |
490 |
goto T212;} |
V55= car((V54)); |
491 |
{object V54 = (*(LnkLI47))(); |
goto T217; |
492 |
VMR7(V54)} |
T217:; |
493 |
goto T212; |
if(!(endp((V54)))){ |
|
T212:; |
|
|
if(!(type_of((V53))==t_cons)){ |
|
494 |
goto T218;} |
goto T218;} |
495 |
if(!(((V53))==((V49)))){ |
{object V56 = (*(LnkLI50))(); |
|
goto T216;} |
|
|
V55 = make_fixnum(V51); |
|
|
(void)((*(LnkLI48))((V50),V55)); |
|
|
{object V56 = Cnil; |
|
496 |
VMR7(V56)} |
VMR7(V56)} |
497 |
goto T218; |
goto T218; |
498 |
T218:; |
T218:; |
499 |
if(!(type_of((V53))==t_fixnum|| |
if(!(type_of((V55))==t_cons)){ |
|
type_of((V53))==t_bignum|| |
|
|
type_of((V53))==t_ratio|| |
|
|
type_of((V53))==t_shortfloat|| |
|
|
type_of((V53))==t_longfloat|| |
|
|
type_of((V53))==t_complex)){ |
|
500 |
goto T224;} |
goto T224;} |
501 |
V50= (V53); |
if(!(((V55))==((V51)))){ |
502 |
V51= 0; |
goto T222;} |
503 |
goto T216; |
V57 = make_fixnum(V53); |
504 |
|
(void)((*(LnkLI51))((V52),V57)); |
505 |
|
{object V58 = Cnil; |
506 |
|
VMR7(V58)} |
507 |
goto T224; |
goto T224; |
508 |
T224:; |
T224:; |
509 |
if(!(((V53))==(VV[32]))){ |
if(!(type_of((V55))==t_fixnum|| |
510 |
|
type_of((V55))==t_bignum|| |
511 |
|
type_of((V55))==t_ratio|| |
512 |
|
type_of((V55))==t_shortfloat|| |
513 |
|
type_of((V55))==t_longfloat|| |
514 |
|
type_of((V55))==t_complex)){ |
515 |
goto T230;} |
goto T230;} |
516 |
V51= (V51)+(1); |
V52= (V55); |
517 |
goto T216; |
V53= 0; |
518 |
|
goto T222; |
519 |
goto T230; |
goto T230; |
520 |
T230:; |
T230:; |
521 |
{register object x= (V53),V57= VV[41]; |
if(!(((V55))==(VV[32]))){ |
522 |
while(!endp(V57)) |
goto T236;} |
523 |
if(eql(x,V57->c.c_car)){ |
V53= (long)(V53)+(1); |
524 |
goto T235; |
goto T222; |
525 |
}else V57=V57->c.c_cdr; |
goto T236; |
526 |
goto T234;} |
T236:; |
527 |
goto T235; |
{register object x= (V55),V59= VV[44]; |
528 |
T235:; |
while(!endp(V59)) |
529 |
if(!(((V49))==((V53)))){ |
if(eql(x,V59->c.c_car)){ |
530 |
goto T237;} |
goto T241; |
531 |
V58 = make_fixnum(V51); |
}else V59=V59->c.c_cdr; |
532 |
(void)((*(LnkLI48))((V50),V58)); |
goto T240;} |
|
{object V59 = Cnil; |
|
|
VMR7(V59)} |
|
|
goto T237; |
|
|
T237:; |
|
|
(void)((*(LnkLI47))()); |
|
|
goto T216; |
|
|
goto T234; |
|
|
T234:; |
|
|
if(!(((V53))==(VV[33]))){ |
|
|
goto T241;} |
|
|
princ_str("\n frs_pop();",VV[16]); |
|
|
goto T216; |
|
533 |
goto T241; |
goto T241; |
534 |
T241:; |
T241:; |
535 |
if(!(((V53))==(VV[36]))){ |
if(!(((V51))==((V55)))){ |
536 |
goto T245;} |
goto T243;} |
537 |
if(!(((V49))==(VV[36]))){ |
V60 = make_fixnum(V53); |
538 |
goto T248;} |
(void)((*(LnkLI51))((V52),V60)); |
|
V60 = make_fixnum(V51); |
|
|
(void)((*(LnkLI48))((V50),V60)); |
|
539 |
{object V61 = Cnil; |
{object V61 = Cnil; |
540 |
VMR7(V61)} |
VMR7(V61)} |
541 |
goto T248; |
goto T243; |
542 |
T248:; |
T243:; |
543 |
(void)((*(LnkLI47))()); |
(void)((*(LnkLI50))()); |
544 |
goto T216; |
goto T222; |
545 |
goto T245; |
goto T240; |
546 |
T245:; |
T240:; |
547 |
{object V62; |
if(!(((V55))==(VV[33]))){ |
548 |
V62= (((V53))==(VV[37])?Ct:Cnil); |
goto T247;} |
549 |
if(((V62))==Cnil){ |
princ_str("\n frs_pop();",VV[16]); |
550 |
goto T253;} |
goto T222; |
551 |
goto T216; |
goto T247; |
552 |
goto T253; |
T247:; |
553 |
T253:; |
if(!(((V55))==(VV[36]))){ |
554 |
(void)((*(LnkLI47))());} |
goto T251;} |
555 |
goto T216; |
if(!(((V51))==(VV[36]))){ |
556 |
T216:; |
goto T254;} |
557 |
V52= cdr((V52)); |
V62 = make_fixnum(V53); |
558 |
V53= car((V52)); |
(void)((*(LnkLI51))((V52),V62)); |
559 |
goto T211;}} |
{object V63 = Cnil; |
560 |
|
VMR7(V63)} |
561 |
|
goto T254; |
562 |
|
T254:; |
563 |
|
(void)((*(LnkLI50))()); |
564 |
|
goto T222; |
565 |
|
goto T251; |
566 |
|
T251:; |
567 |
|
{object V64; |
568 |
|
V64= (((V55))==(VV[37])?Ct:Cnil); |
569 |
|
if(((V64))==Cnil){ |
570 |
|
goto T259;} |
571 |
|
goto T222; |
572 |
|
goto T259; |
573 |
|
T259:; |
574 |
|
(void)((*(LnkLI50))());} |
575 |
|
goto T222; |
576 |
|
T222:; |
577 |
|
V54= cdr((V54)); |
578 |
|
V55= car((V54)); |
579 |
|
goto T217;}} |
580 |
base[0]=base[0]; |
base[0]=base[0]; |
581 |
return Cnil; |
return Cnil; |
582 |
} |
} |
587 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
588 |
goto TTL; |
goto TTL; |
589 |
TTL:; |
TTL:; |
590 |
{register object V63; |
{register object V65; |
591 |
register object V64; |
register object V66; |
592 |
V63= symbol_value(VV[25]); |
V65= symbol_value(VV[25]); |
593 |
V64= car((V63)); |
V66= car((V65)); |
594 |
goto T263; |
goto T269; |
595 |
T263:; |
T269:; |
596 |
if(!(endp((V63)))){ |
if(!(endp((V65)))){ |
|
goto T264;} |
|
|
{object V65 = (*(LnkLI47))(); |
|
|
VMR8(V65)} |
|
|
goto T264; |
|
|
T264:; |
|
|
if(!(((V64))==(VV[36]))){ |
|
597 |
goto T270;} |
goto T270;} |
598 |
{object V66 = Ct; |
{object V67 = (*(LnkLI50))(); |
599 |
VMR8(V66)} |
VMR8(V67)} |
600 |
goto T270; |
goto T270; |
601 |
T270:; |
T270:; |
602 |
if(type_of((V64))==t_fixnum|| |
if(!(((V66))==(VV[36]))){ |
603 |
type_of((V64))==t_bignum|| |
goto T276;} |
604 |
type_of((V64))==t_ratio|| |
{object V68 = Ct; |
605 |
type_of((V64))==t_shortfloat|| |
VMR8(V68)} |
606 |
type_of((V64))==t_longfloat|| |
goto T276; |
607 |
type_of((V64))==t_complex){ |
T276:; |
608 |
goto T272;} |
if(type_of((V66))==t_fixnum|| |
609 |
if(((V64))==(VV[32])){ |
type_of((V66))==t_bignum|| |
610 |
goto T272;} |
type_of((V66))==t_ratio|| |
611 |
if(!(((V64))==(VV[33]))){ |
type_of((V66))==t_shortfloat|| |
612 |
goto T273;} |
type_of((V66))==t_longfloat|| |
613 |
goto T272; |
type_of((V66))==t_complex){ |
614 |
T272:; |
goto T278;} |
615 |
{object V67 = Cnil; |
if(((V66))==(VV[32])){ |
616 |
VMR8(V67)} |
goto T278;} |
617 |
goto T273; |
if(!(((V66))==(VV[33]))){ |
618 |
T273:; |
goto T279;} |
619 |
{register object V68; |
goto T278; |
620 |
if(!(type_of((V64))==t_cons)){ |
T278:; |
621 |
goto T280;} |
{object V69 = Cnil; |
622 |
V68= Ct; |
VMR8(V69)} |
|
goto T279; |
|
|
goto T280; |
|
|
T280:; |
|
|
V68= (((V64))==(VV[37])?Ct:Cnil); |
|
623 |
goto T279; |
goto T279; |
624 |
T279:; |
T279:; |
625 |
if(((V68))==Cnil){ |
{register object V70; |
626 |
goto T283;} |
if(!(type_of((V66))==t_cons)){ |
627 |
goto T268; |
goto T286;} |
628 |
goto T283; |
V70= Ct; |
629 |
T283:; |
goto T285; |
630 |
(void)((*(LnkLI47))());} |
goto T286; |
631 |
goto T268; |
T286:; |
632 |
T268:; |
V70= (((V66))==(VV[37])?Ct:Cnil); |
633 |
V63= cdr((V63)); |
goto T285; |
634 |
V64= car((V63)); |
T285:; |
635 |
goto T263;} |
if(((V70))==Cnil){ |
636 |
|
goto T289;} |
637 |
|
goto T274; |
638 |
|
goto T289; |
639 |
|
T289:; |
640 |
|
(void)((*(LnkLI50))());} |
641 |
|
goto T274; |
642 |
|
T274:; |
643 |
|
V65= cdr((V65)); |
644 |
|
V66= car((V65)); |
645 |
|
goto T269;} |
646 |
base[0]=base[0]; |
base[0]=base[0]; |
647 |
return Cnil; |
return Cnil; |
648 |
} |
} |
649 |
static object LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],(void **)&LnkLI53,1,ap);} /* REP-TYPE */ |
static object LnkTLI56(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[56],(void **)&LnkLI56,1,ap);va_end(ap);return V1;} /* REP-TYPE */ |
650 |
static object LnkTLI52(){return call_proc0(VV[52],(void **)&LnkLI52);} /* WFS-ERROR */ |
static object LnkTLI55(){return call_proc0(VV[55],(void **)&LnkLI55);} /* WFS-ERROR */ |
651 |
static object LnkTLI51(){return call_proc0(VV[51],(void **)&LnkLI51);} /* VS-PUSH */ |
static object LnkTLI54(){return call_proc0(VV[54],(void **)&LnkLI54);} /* VS-PUSH */ |
652 |
static object LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[50],(void **)&LnkLI50,ap);} /* CS-PUSH */ |
static object LnkTLI53(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[53],(void **)&LnkLI53,ap);va_end(ap);return V1;} /* CS-PUSH */ |
653 |
static void LnkT49(){ call_or_link(VV[49],(void **)&Lnk49);} /* SET-LOC */ |
static void LnkT52(){ call_or_link(VV[52],(void **)&Lnk52);} /* SET-LOC */ |
654 |
static object LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[48],(void **)&LnkLI48,2,ap);} /* UNWIND-BDS */ |
static object LnkTLI51(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[51],(void **)&LnkLI51,2,ap);va_end(ap);return V1;} /* UNWIND-BDS */ |
655 |
static object LnkTLI47(){return call_proc0(VV[47],(void **)&LnkLI47);} /* BABOON */ |
static object LnkTLI50(){return call_proc0(VV[50],(void **)&LnkLI50);} /* BABOON */ |
656 |
static object LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],(void **)&LnkLI46,2,ap);} /* SET-JUMP-FALSE */ |
static object LnkTLI49(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[49],(void **)&LnkLI49,2,ap);va_end(ap);return V1;} /* SET-JUMP-FALSE */ |
657 |
static object LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[45],(void **)&LnkLI45,2,ap);} /* SET-JUMP-TRUE */ |
static object LnkTLI48(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[48],(void **)&LnkLI48,2,ap);va_end(ap);return V1;} /* SET-JUMP-TRUE */ |
658 |
static object LnkTLI44(){return call_proc0(VV[44],(void **)&LnkLI44);} /* RESET-TOP */ |
static object LnkTLI47(){return call_proc0(VV[47],(void **)&LnkLI47);} /* RESET-TOP */ |
659 |
static object LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[43],(void **)&LnkLI43,2,ap);} /* RECORD-CALL-INFO */ |
static object LnkTLI46(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[46],(void **)&LnkLI46,2,ap);va_end(ap);return V1;} /* RECORD-CALL-INFO */ |
660 |
static object LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[42],(void **)&LnkLI42,1,ap);} /* WT1 */ |
static object LnkTLI45(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[45],(void **)&LnkLI45,1,ap);va_end(ap);return V1;} /* WT1 */ |
661 |
|
|
662 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
663 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |