235 |
T87:; |
T87:; |
236 |
{object V42; |
{object V42; |
237 |
V42= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V40->c.c_car),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil)); |
V42= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V40->c.c_car),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil)); |
238 |
(VV[4]->s.s_dbind)= make_cons((V42),(VV[4]->s.s_dbind)); |
(VV[4]->s.s_dbind)= make_cons(V42,(VV[4]->s.s_dbind)); |
239 |
(V39->c.c_car)= (V42); |
(V39->c.c_car)= (V42); |
240 |
goto T86;} |
goto T86;} |
241 |
goto T88; |
goto T88; |
251 |
goto T85;} |
goto T85;} |
252 |
goto T84; |
goto T84; |
253 |
T84:; |
T84:; |
254 |
{object V43; |
{object V44; |
255 |
object V44= (V37); |
object V45= (V37); |
256 |
if(endp(V44)){ |
if(endp(V45)){ |
257 |
V37= Cnil; |
V37= Cnil; |
258 |
goto T96;} |
goto T96;} |
259 |
base[2]=V43=MMcons(Cnil,Cnil); |
base[2]=V44=MMcons(Cnil,Cnil); |
260 |
goto T97; |
goto T97; |
261 |
T97:; |
T97:; |
262 |
base[3]= (V44->c.c_car); |
base[3]= (V45->c.c_car); |
263 |
base[4]= VV[0]; |
base[4]= VV[0]; |
264 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
265 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
266 |
vs_top=sup; |
vs_top=sup; |
267 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
268 |
goto T100;} |
goto T100;} |
269 |
(V43->c.c_car)= (V44->c.c_car); |
(V44->c.c_car)= (V45->c.c_car); |
270 |
goto T98; |
goto T98; |
271 |
goto T100; |
goto T100; |
272 |
T100:; |
T100:; |
273 |
(V43->c.c_car)= (*(LnkLI50))((V44->c.c_car),(V38)); |
(V44->c.c_car)= (*(LnkLI50))((V45->c.c_car),(V38)); |
274 |
goto T98; |
goto T98; |
275 |
T98:; |
T98:; |
276 |
V44=MMcdr(V44); |
V45=MMcdr(V45); |
277 |
if(endp(V44)){ |
if(endp(V45)){ |
278 |
V37= base[2]; |
V37= base[2]; |
279 |
goto T96;} |
goto T96;} |
280 |
V43=MMcdr(V43)=MMcons(Cnil,Cnil); |
V44=MMcdr(V44)=MMcons(Cnil,Cnil); |
281 |
goto T97;} |
goto T97;} |
282 |
goto T96; |
goto T96; |
283 |
T96:; |
T96:; |
284 |
{register object V46; |
{register object V47; |
|
register object V47; |
|
285 |
register object V48; |
register object V48; |
286 |
register object V49; |
register object V49; |
287 |
register object V50; |
register object V50; |
288 |
V46= (V37); |
register object V51; |
289 |
V47= Cnil; |
V47= (V37); |
290 |
V48= Cnil; |
V48= Cnil; |
291 |
V49= Cnil; |
V49= Cnil; |
292 |
V50= Cnil; |
V50= Cnil; |
293 |
|
V51= Cnil; |
294 |
goto T105; |
goto T105; |
295 |
T105:; |
T105:; |
296 |
if(!(endp_prop((V46)))){ |
if(!(endp_prop((V47)))){ |
297 |
goto T106;} |
goto T106;} |
298 |
if(((V50))!=Cnil){ |
if(((V51))!=Cnil){ |
299 |
goto T109;} |
goto T109;} |
300 |
if(((V49))!=Cnil){ |
if(((V50))!=Cnil){ |
301 |
goto T109;} |
goto T109;} |
302 |
if(((V48))==Cnil){ |
if(((V49))==Cnil){ |
303 |
goto T110;} |
goto T110;} |
304 |
goto T109; |
goto T109; |
305 |
T109:; |
T109:; |
306 |
V47= reverse((V47)); |
V48= reverse((V48)); |
307 |
if(((V49))!=Cnil){ |
if(((V50))!=Cnil){ |
308 |
goto T119;} |
goto T119;} |
309 |
if(((V50))==Cnil){ |
if(((V51))==Cnil){ |
310 |
goto T120;} |
goto T120;} |
311 |
goto T119; |
goto T119; |
312 |
T119:; |
T119:; |
314 |
goto T118; |
goto T118; |
315 |
goto T120; |
goto T120; |
316 |
T120:; |
T120:; |
317 |
(void)((*(LnkLI51))((V47))); |
(void)((*(LnkLI51))((V48))); |
318 |
goto T118; |
goto T118; |
319 |
T118:; |
T118:; |
320 |
{object V51 = list(5,VV[10],(V38),(V49),(V50),(V47)); |
{object V52 = list(5,VV[10],(V38),(V50),(V51),(V48)); |
321 |
bds_unwind1; |
bds_unwind1; |
322 |
VMR5(V51)} |
VMR5(V52)} |
323 |
goto T110; |
goto T110; |
324 |
T110:; |
T110:; |
325 |
V52= (*(LnkLI52))(); |
V53= (*(LnkLI52))(); |
326 |
V53= make_cons(/* INLINE-ARGS */V52,(V47)); |
V54= make_cons(/* INLINE-ARGS */V53,(V48)); |
327 |
{object V54 = list(3,VV[11],(V38),reverse(/* INLINE-ARGS */V53)); |
{object V55 = list(3,VV[11],(V38),reverse(/* INLINE-ARGS */V54)); |
328 |
bds_unwind1; |
bds_unwind1; |
329 |
VMR5(V54)} |
VMR5(V55)} |
330 |
goto T106; |
goto T106; |
331 |
T106:; |
T106:; |
332 |
base[2]= car((V46)); |
base[2]= car((V47)); |
333 |
base[3]= VV[0]; |
base[3]= VV[0]; |
334 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
335 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
336 |
vs_top=sup; |
vs_top=sup; |
337 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
338 |
goto T128;} |
goto T128;} |
339 |
if((structure_ref(car((V46)),VV[0],3))==Cnil){ |
if((structure_ref(car((V47)),VV[0],3))==Cnil){ |
340 |
goto T133;} |
goto T133;} |
341 |
V47= make_cons(car((V46)),(V47)); |
{object V56; |
342 |
V55= car((V46)); |
V56= car((V47)); |
343 |
V56= structure_ref(car((V46)),VV[0],0); |
V48= make_cons((V56),(V48));} |
344 |
V57= (*(LnkLI53))(/* INLINE-ARGS */V56); |
V57= car((V47)); |
345 |
(void)(structure_set(/* INLINE-ARGS */V55,VV[0],6,/* INLINE-ARGS */V57)); |
V58= structure_ref(car((V47)),VV[0],0); |
346 |
V50= Ct; |
V59= (*(LnkLI53))(/* INLINE-ARGS */V58); |
347 |
|
(void)(structure_set(/* INLINE-ARGS */V57,VV[0],6,/* INLINE-ARGS */V59)); |
348 |
|
V51= Ct; |
349 |
goto T126; |
goto T126; |
350 |
goto T133; |
goto T133; |
351 |
T133:; |
T133:; |
352 |
if((structure_ref(car((V46)),VV[0],2))==Cnil){ |
if((structure_ref(car((V47)),VV[0],2))==Cnil){ |
353 |
goto T140;} |
goto T141;} |
354 |
V47= make_cons(car((V46)),(V47)); |
{object V60; |
355 |
V58= car((V46)); |
V60= car((V47)); |
356 |
V59= structure_ref(car((V46)),VV[0],0); |
V48= make_cons((V60),(V48));} |
357 |
V60= (*(LnkLI53))(/* INLINE-ARGS */V59); |
V61= car((V47)); |
358 |
(void)(structure_set(/* INLINE-ARGS */V58,VV[0],6,/* INLINE-ARGS */V60)); |
V62= structure_ref(car((V47)),VV[0],0); |
359 |
V49= Ct; |
V63= (*(LnkLI53))(/* INLINE-ARGS */V62); |
360 |
|
(void)(structure_set(/* INLINE-ARGS */V61,VV[0],6,/* INLINE-ARGS */V63)); |
361 |
|
V50= Ct; |
362 |
goto T126; |
goto T126; |
363 |
goto T140; |
goto T141; |
364 |
T140:; |
T141:; |
365 |
if((structure_ref(car((V46)),VV[0],1))==Cnil){ |
if((structure_ref(car((V47)),VV[0],1))==Cnil){ |
366 |
goto T126;} |
goto T126;} |
367 |
V47= make_cons(car((V46)),(V47)); |
{object V64; |
368 |
V48= Ct; |
V64= car((V47)); |
369 |
|
V48= make_cons((V64),(V48));} |
370 |
|
V49= Ct; |
371 |
goto T126; |
goto T126; |
372 |
goto T128; |
goto T128; |
373 |
T128:; |
T128:; |
374 |
V47= make_cons(car((V46)),(V47)); |
{object V65; |
375 |
|
V65= car((V47)); |
376 |
|
V48= make_cons((V65),(V48));} |
377 |
goto T126; |
goto T126; |
378 |
T126:; |
T126:; |
379 |
V46= cdr((V46)); |
V47= cdr((V47)); |
380 |
goto T105;}} |
goto T105;}} |
381 |
base[0]=base[0]; |
base[0]=base[0]; |
382 |
return Cnil; |
return Cnil; |
383 |
} |
} |
384 |
/* local entry for function C2TAGBODY */ |
/* local entry for function C2TAGBODY */ |
385 |
|
|
386 |
static object LI6(V64,V65,V66) |
static object LI6(V69,V70,V71) |
387 |
|
|
388 |
object V64;object V65;object V66; |
object V69;object V70;object V71; |
389 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
390 |
goto TTL; |
goto TTL; |
391 |
TTL:; |
TTL:; |
392 |
if(((V65))==Cnil){ |
if(((V70))==Cnil){ |
393 |
goto T156;} |
goto T160;} |
394 |
{object V67 = (*(LnkLI54))((V66)); |
{object V72 = (*(LnkLI54))((V71)); |
395 |
VMR6(V67)} |
VMR6(V72)} |
396 |
goto T156; |
goto T160; |
397 |
T156:; |
T160:; |
398 |
if(((V64))==Cnil){ |
if(((V69))==Cnil){ |
399 |
goto T159;} |
goto T163;} |
400 |
{object V68 = (*(LnkLI55))((V66)); |
{object V73 = (*(LnkLI55))((V71)); |
401 |
VMR6(V68)} |
VMR6(V73)} |
402 |
goto T159; |
goto T163; |
403 |
T159:; |
T163:; |
404 |
{object V69 = (*(LnkLI56))((V66)); |
{object V74 = (*(LnkLI56))((V71)); |
405 |
VMR6(V69)} |
VMR6(V74)} |
406 |
return Cnil; |
return Cnil; |
407 |
} |
} |
408 |
/* local entry for function C2TAGBODY-LOCAL */ |
/* local entry for function C2TAGBODY-LOCAL */ |
409 |
|
|
410 |
static object LI7(V71) |
static object LI7(V76) |
411 |
|
|
412 |
object V71; |
object V76; |
413 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
414 |
bds_check; |
bds_check; |
415 |
goto TTL; |
goto TTL; |
416 |
TTL:; |
TTL:; |
417 |
{register object V72; |
{register object V77; |
418 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
419 |
V72= make_cons(symbol_value(VV[12]),Cnil); |
V77= make_cons(symbol_value(VV[12]),Cnil); |
420 |
{register object V73; |
{register object V78; |
421 |
register object V74; |
register object V79; |
422 |
V73= (V71); |
V78= (V76); |
423 |
V74= car((V73)); |
V79= car((V78)); |
424 |
goto T167; |
goto T171; |
425 |
T167:; |
T171:; |
426 |
if(!(endp_prop((V73)))){ |
if(!(endp_prop((V78)))){ |
427 |
goto T168;} |
goto T172;} |
428 |
goto T163; |
goto T167; |
429 |
goto T168; |
goto T172; |
430 |
T168:; |
T172:; |
431 |
base[2]= (V74); |
base[2]= (V79); |
432 |
base[3]= VV[0]; |
base[3]= VV[0]; |
433 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
434 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
435 |
vs_top=sup; |
vs_top=sup; |
436 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
437 |
goto T172;} |
goto T176;} |
438 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
439 |
V75= make_cons(symbol_value(VV[12]),Ct); |
V80= make_cons(symbol_value(VV[12]),Ct); |
440 |
(void)(structure_set((V74),VV[0],4,/* INLINE-ARGS */V75)); |
(void)(structure_set((V79),VV[0],4,/* INLINE-ARGS */V80)); |
441 |
(void)(structure_set((V74),VV[0],5,(V72))); |
(void)(structure_set((V79),VV[0],5,(V77))); |
442 |
goto T172; |
goto T176; |
443 |
T172:; |
T176:; |
444 |
V73= cdr((V73)); |
V78= cdr((V78)); |
445 |
V74= car((V73)); |
V79= car((V78)); |
446 |
goto T167;} |
goto T171;} |
447 |
goto T163; |
goto T167; |
448 |
T163:; |
T167:; |
449 |
base[1]= make_cons((V72),symbol_value(VV[13])); |
base[1]= make_cons((V77),symbol_value(VV[13])); |
450 |
bds_bind(VV[13],base[1]); |
bds_bind(VV[13],base[1]); |
451 |
{object V76 = (*(LnkLI57))((V71)); |
{object V81 = (*(LnkLI57))((V76)); |
452 |
bds_unwind1; |
bds_unwind1; |
453 |
VMR7(V76)}} |
VMR7(V81)}} |
454 |
base[0]=base[0]; |
base[0]=base[0]; |
455 |
return Cnil; |
return Cnil; |
456 |
} |
} |
457 |
/* local entry for function C2TAGBODY-BODY */ |
/* local entry for function C2TAGBODY-BODY */ |
458 |
|
|
459 |
static object LI8(V78) |
static object LI8(V83) |
460 |
|
|
461 |
object V78; |
object V83; |
462 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
463 |
bds_check; |
bds_check; |
464 |
goto TTL; |
goto TTL; |
465 |
TTL:; |
TTL:; |
466 |
{register object V79; |
{register object V84; |
467 |
register object V80; |
register object V85; |
468 |
V79= (V78); |
V84= (V83); |
469 |
V80= Cnil; |
V85= Cnil; |
470 |
goto T186; |
goto T190; |
471 |
T186:; |
T190:; |
472 |
if(!(endp_prop(cdr((V79))))){ |
if(!(endp_prop(cdr((V84))))){ |
|
goto T187;} |
|
|
if(((V80))==Cnil){ |
|
473 |
goto T191;} |
goto T191;} |
474 |
{object V81 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
if(((V85))==Cnil){ |
475 |
VMR8(V81)} |
goto T195;} |
476 |
goto T191; |
{object V86 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
477 |
T191:; |
VMR8(V86)} |
478 |
base[0]= car((V79)); |
goto T195; |
479 |
|
T195:; |
480 |
|
base[0]= car((V84)); |
481 |
base[1]= VV[0]; |
base[1]= VV[0]; |
482 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
483 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
484 |
vs_top=sup; |
vs_top=sup; |
485 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
486 |
goto T194;} |
goto T198;} |
487 |
V82= structure_ref(car((V79)),VV[0],7); |
V87= structure_ref(car((V84)),VV[0],7); |
488 |
(void)((*(LnkLI59))(/* INLINE-ARGS */V82)); |
(void)((*(LnkLI59))(/* INLINE-ARGS */V87)); |
489 |
V83= structure_ref(car((V79)),VV[0],4); |
V88= structure_ref(car((V84)),VV[0],4); |
490 |
if((cdr(/* INLINE-ARGS */V83))==Cnil){ |
if((cdr(/* INLINE-ARGS */V88))==Cnil){ |
491 |
goto T199;} |
goto T203;} |
492 |
princ_str("\ngoto T",VV[14]); |
princ_str("\ngoto T",VV[14]); |
493 |
V84= structure_ref(car((V79)),VV[0],4); |
V89= structure_ref(car((V84)),VV[0],4); |
494 |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V84))); |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V89))); |
495 |
princ_char(59,VV[14]); |
princ_char(59,VV[14]); |
496 |
princ_str("\nT",VV[14]); |
princ_str("\nT",VV[14]); |
497 |
V85= structure_ref(car((V79)),VV[0],4); |
V90= structure_ref(car((V84)),VV[0],4); |
498 |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V85))); |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V90))); |
499 |
princ_str(":;",VV[14]); |
princ_str(":;",VV[14]); |
500 |
goto T199; |
goto T203; |
501 |
T199:; |
T203:; |
502 |
{object V86 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
{object V91 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
503 |
VMR8(V86)} |
VMR8(V91)} |
504 |
goto T194; |
goto T198; |
505 |
T194:; |
T198:; |
506 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
507 |
bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil)); |
bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil)); |
508 |
bds_bind(VV[13],make_cons((VV[15]->s.s_dbind),symbol_value(VV[13]))); |
bds_bind(VV[13],make_cons((VV[15]->s.s_dbind),symbol_value(VV[13]))); |
509 |
bds_bind(VV[16],VV[17]); |
bds_bind(VV[16],VV[17]); |
510 |
base[3]= car((V79)); |
base[3]= car((V84)); |
511 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
512 |
(void) (*Lnk61)(); |
(void) (*Lnk61)(); |
513 |
vs_top=sup; |
vs_top=sup; |
515 |
bds_unwind1; |
bds_unwind1; |
516 |
bds_unwind1; |
bds_unwind1; |
517 |
bds_unwind1; |
bds_unwind1; |
518 |
goto T209;} |
goto T213;} |
519 |
princ_str("\ngoto T",VV[14]); |
princ_str("\ngoto T",VV[14]); |
520 |
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind)))); |
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind)))); |
521 |
princ_char(59,VV[14]); |
princ_char(59,VV[14]); |
525 |
bds_unwind1; |
bds_unwind1; |
526 |
bds_unwind1; |
bds_unwind1; |
527 |
bds_unwind1; |
bds_unwind1; |
528 |
goto T209; |
goto T213; |
529 |
T209:; |
T213:; |
530 |
if((caar((V79)))==(VV[1])){ |
if((caar((V84)))==(VV[1])){ |
531 |
goto T225;} |
goto T229;} |
532 |
{object V87 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
{object V92 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
533 |
VMR8(V87)} |
VMR8(V92)} |
534 |
goto T225; |
goto T229; |
535 |
T225:; |
T229:; |
536 |
{object V88 = Cnil; |
{object V93 = Cnil; |
537 |
VMR8(V88)} |
VMR8(V93)} |
538 |
goto T187; |
goto T191; |
539 |
T187:; |
T191:; |
540 |
if(((V80))==Cnil){ |
if(((V85))==Cnil){ |
541 |
goto T230;} |
goto T234;} |
542 |
V80= Cnil; |
V85= Cnil; |
543 |
goto T228; |
goto T232; |
544 |
goto T230; |
goto T234; |
545 |
T230:; |
T234:; |
546 |
base[0]= car((V79)); |
base[0]= car((V84)); |
547 |
base[1]= VV[0]; |
base[1]= VV[0]; |
548 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
549 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
550 |
vs_top=sup; |
vs_top=sup; |
551 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
552 |
goto T234;} |
goto T238;} |
553 |
V89= structure_ref(car((V79)),VV[0],7); |
V94= structure_ref(car((V84)),VV[0],7); |
554 |
(void)((*(LnkLI59))(/* INLINE-ARGS */V89)); |
(void)((*(LnkLI59))(/* INLINE-ARGS */V94)); |
555 |
V90= structure_ref(car((V79)),VV[0],4); |
V95= structure_ref(car((V84)),VV[0],4); |
556 |
if((cdr(/* INLINE-ARGS */V90))==Cnil){ |
if((cdr(/* INLINE-ARGS */V95))==Cnil){ |
557 |
goto T228;} |
goto T232;} |
558 |
princ_str("\ngoto T",VV[14]); |
princ_str("\ngoto T",VV[14]); |
559 |
V91= structure_ref(car((V79)),VV[0],4); |
V96= structure_ref(car((V84)),VV[0],4); |
560 |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V91))); |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V96))); |
561 |
princ_char(59,VV[14]); |
princ_char(59,VV[14]); |
562 |
princ_str("\nT",VV[14]); |
princ_str("\nT",VV[14]); |
563 |
V92= structure_ref(car((V79)),VV[0],4); |
V97= structure_ref(car((V84)),VV[0],4); |
564 |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V92))); |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V97))); |
565 |
princ_str(":;",VV[14]); |
princ_str(":;",VV[14]); |
566 |
goto T228; |
goto T232; |
567 |
goto T234; |
goto T238; |
568 |
T234:; |
T238:; |
569 |
base[3]= cadr((V79)); |
base[3]= cadr((V84)); |
570 |
base[4]= VV[0]; |
base[4]= VV[0]; |
571 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
572 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
573 |
vs_top=sup; |
vs_top=sup; |
574 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
575 |
goto T250;} |
goto T254;} |
576 |
V80= Ct; |
V85= Ct; |
577 |
bds_bind(VV[15],structure_ref(cadr((V79)),VV[0],4)); |
bds_bind(VV[15],structure_ref(cadr((V84)),VV[0],4)); |
578 |
goto T248; |
goto T252; |
579 |
goto T250; |
goto T254; |
580 |
T250:; |
T254:; |
581 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
582 |
bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil)); |
bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil)); |
583 |
goto T248; |
goto T252; |
584 |
T248:; |
T252:; |
585 |
bds_bind(VV[13],make_cons((VV[15]->s.s_dbind),symbol_value(VV[13]))); |
bds_bind(VV[13],make_cons((VV[15]->s.s_dbind),symbol_value(VV[13]))); |
586 |
bds_bind(VV[16],VV[17]); |
bds_bind(VV[16],VV[17]); |
587 |
base[3]= car((V79)); |
base[3]= car((V84)); |
588 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
589 |
(void) (*Lnk61)(); |
(void) (*Lnk61)(); |
590 |
vs_top=sup; |
vs_top=sup; |
591 |
base[3]= cadr((V79)); |
base[3]= cadr((V84)); |
592 |
base[4]= VV[0]; |
base[4]= VV[0]; |
593 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
594 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
595 |
vs_top=sup; |
vs_top=sup; |
596 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
597 |
goto T261;} |
goto T265;} |
598 |
goto T260; |
goto T264; |
599 |
goto T261; |
goto T265; |
600 |
T261:; |
T265:; |
601 |
V93= structure_ref(cadr((V79)),VV[0],7); |
V98= structure_ref(cadr((V84)),VV[0],7); |
602 |
(void)((*(LnkLI59))(/* INLINE-ARGS */V93)); |
(void)((*(LnkLI59))(/* INLINE-ARGS */V98)); |
603 |
goto T260; |
goto T264; |
604 |
T260:; |
T264:; |
605 |
if((cdr((VV[15]->s.s_dbind)))==Cnil){ |
if((cdr((VV[15]->s.s_dbind)))==Cnil){ |
606 |
bds_unwind1; |
bds_unwind1; |
607 |
bds_unwind1; |
bds_unwind1; |
608 |
bds_unwind1; |
bds_unwind1; |
609 |
goto T228;} |
goto T232;} |
610 |
princ_str("\ngoto T",VV[14]); |
princ_str("\ngoto T",VV[14]); |
611 |
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind)))); |
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind)))); |
612 |
princ_char(59,VV[14]); |
princ_char(59,VV[14]); |
616 |
bds_unwind1; |
bds_unwind1; |
617 |
bds_unwind1; |
bds_unwind1; |
618 |
bds_unwind1; |
bds_unwind1; |
619 |
goto T228; |
goto T232; |
620 |
T228:; |
T232:; |
621 |
V79= cdr((V79)); |
V84= cdr((V84)); |
622 |
goto T186;} |
goto T190;} |
623 |
base[0]=base[0]; |
base[0]=base[0]; |
624 |
return Cnil; |
return Cnil; |
625 |
} |
} |
626 |
/* local entry for function C2TAGBODY-CLB */ |
/* local entry for function C2TAGBODY-CLB */ |
627 |
|
|
628 |
static object LI9(V95) |
static object LI9(V100) |
629 |
|
|
630 |
object V95; |
object V100; |
631 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
632 |
bds_check; |
bds_check; |
633 |
goto TTL; |
goto TTL; |
634 |
TTL:; |
TTL:; |
635 |
{register object V96; |
{register object V101; |
636 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
637 |
V96= make_cons(symbol_value(VV[12]),Cnil); |
V101= make_cons(symbol_value(VV[12]),Cnil); |
638 |
bds_bind(VV[18],symbol_value(VV[18])); |
bds_bind(VV[18],symbol_value(VV[18])); |
639 |
{register object V97; |
{register object V102; |
640 |
base[2]= make_cons(VV[19],symbol_value(VV[13])); |
base[2]= make_cons(VV[19],symbol_value(VV[13])); |
641 |
V97= (*(LnkLI62))(); |
V102= (*(LnkLI62))(); |
642 |
bds_bind(VV[13],base[2]); |
bds_bind(VV[13],base[2]); |
643 |
princ_str("\n ",VV[14]); |
princ_str("\n ",VV[14]); |
644 |
(void)((*(LnkLI63))((V97))); |
(void)((*(LnkLI63))((V102))); |
645 |
princ_str("=alloc_frame_id();",VV[14]); |
princ_str("=alloc_frame_id();",VV[14]); |
646 |
princ_str("\n frs_push(FRS_CATCH,",VV[14]); |
princ_str("\n frs_push(FRS_CATCH,",VV[14]); |
647 |
(void)((*(LnkLI63))((V97))); |
(void)((*(LnkLI63))((V102))); |
648 |
princ_str(");",VV[14]); |
princ_str(");",VV[14]); |
649 |
princ_str("\n if(nlj_active){",VV[14]); |
princ_str("\n if(nlj_active){",VV[14]); |
650 |
princ_str("\n nlj_active=FALSE;",VV[14]); |
princ_str("\n nlj_active=FALSE;",VV[14]); |
651 |
{register object V98; |
{register object V103; |
652 |
register object V99; |
register object V104; |
653 |
V98= (V95); |
V103= (V100); |
654 |
V99= car((V98)); |
V104= car((V103)); |
655 |
goto T298; |
goto T302; |
656 |
T298:; |
T302:; |
657 |
if(!(endp_prop((V98)))){ |
if(!(endp_prop((V103)))){ |
658 |
goto T299;} |
goto T303;} |
659 |
goto T294; |
goto T298; |
660 |
goto T299; |
goto T303; |
661 |
T299:; |
T303:; |
662 |
base[4]= (V99); |
base[4]= (V104); |
663 |
base[5]= VV[0]; |
base[5]= VV[0]; |
664 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
665 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
666 |
vs_top=sup; |
vs_top=sup; |
667 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
668 |
goto T303;} |
goto T307;} |
669 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
670 |
V100= make_cons(symbol_value(VV[12]),Ct); |
V105= make_cons(symbol_value(VV[12]),Ct); |
671 |
(void)(structure_set((V99),VV[0],4,/* INLINE-ARGS */V100)); |
(void)(structure_set((V104),VV[0],4,/* INLINE-ARGS */V105)); |
672 |
(void)(structure_set((V99),VV[0],5,(V96))); |
(void)(structure_set((V104),VV[0],5,(V101))); |
673 |
if((structure_ref((V99),VV[0],2))==Cnil){ |
if((structure_ref((V104),VV[0],2))==Cnil){ |
674 |
goto T303;} |
goto T307;} |
675 |
(void)(structure_set((V99),VV[0],2,(V97))); |
(void)(structure_set((V104),VV[0],2,(V102))); |
676 |
princ_str("\n if(eql(nlj_tag,VV[",VV[14]); |
princ_str("\n if(eql(nlj_tag,VV[",VV[14]); |
677 |
V101= structure_ref((V99),VV[0],6); |
V106= structure_ref((V104),VV[0],6); |
678 |
(void)((*(LnkLI60))(/* INLINE-ARGS */V101)); |
(void)((*(LnkLI60))(/* INLINE-ARGS */V106)); |
679 |
princ_str("]))",VV[14]); |
princ_str("]))",VV[14]); |
680 |
V102= structure_ref((V99),VV[0],4); |
V107= structure_ref((V104),VV[0],4); |
681 |
if(type_of(/* INLINE-ARGS */V102)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V102); |
if(type_of(/* INLINE-ARGS */V107)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V107); |
682 |
(/* INLINE-ARGS */V102)->c.c_cdr = Ct; |
(/* INLINE-ARGS */V107)->c.c_cdr = Ct; |
683 |
princ_str("goto T",VV[14]); |
princ_str("goto T",VV[14]); |
684 |
V103= structure_ref((V99),VV[0],4); |
V108= structure_ref((V104),VV[0],4); |
685 |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V103))); |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V108))); |
686 |
princ_char(59,VV[14]); |
princ_char(59,VV[14]); |
687 |
goto T303; |
goto T307; |
688 |
T303:; |
T307:; |
689 |
V98= cdr((V98)); |
V103= cdr((V103)); |
690 |
V99= car((V98)); |
V104= car((V103)); |
691 |
goto T298;} |
goto T302;} |
692 |
goto T294; |
goto T298; |
693 |
T294:; |
T298:; |
694 |
princ_str("\n FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]); |
princ_str("\n FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]); |
695 |
princ_str("\n }",VV[14]); |
princ_str("\n }",VV[14]); |
696 |
base[3]= make_cons((V96),(VV[13]->s.s_dbind)); |
base[3]= make_cons((V101),(VV[13]->s.s_dbind)); |
697 |
bds_bind(VV[13],base[3]); |
bds_bind(VV[13],base[3]); |
698 |
{object V104 = (*(LnkLI57))((V95)); |
{object V109 = (*(LnkLI57))((V100)); |
699 |
bds_unwind1; |
bds_unwind1; |
700 |
bds_unwind1; |
bds_unwind1; |
701 |
bds_unwind1; |
bds_unwind1; |
702 |
VMR9(V104)}}} |
VMR9(V109)}}} |
703 |
base[0]=base[0]; |
base[0]=base[0]; |
704 |
return Cnil; |
return Cnil; |
705 |
} |
} |
706 |
/* local entry for function C2TAGBODY-CCB */ |
/* local entry for function C2TAGBODY-CCB */ |
707 |
|
|
708 |
static object LI10(V106) |
static object LI10(V111) |
709 |
|
|
710 |
object V106; |
object V111; |
711 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
712 |
bds_check; |
bds_check; |
713 |
goto TTL; |
goto TTL; |
714 |
TTL:; |
TTL:; |
715 |
{register object V107; |
{register object V112; |
716 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
717 |
V107= make_cons(symbol_value(VV[12]),Cnil); |
V112= make_cons(symbol_value(VV[12]),Cnil); |
718 |
bds_bind(VV[18],symbol_value(VV[18])); |
bds_bind(VV[18],symbol_value(VV[18])); |
719 |
bds_bind(VV[20],symbol_value(VV[20])); |
bds_bind(VV[20],symbol_value(VV[20])); |
720 |
bds_bind(VV[21],symbol_value(VV[21])); |
bds_bind(VV[21],symbol_value(VV[21])); |
721 |
{register object V108; |
{register object V113; |
722 |
register object V109; |
register object V114; |
723 |
base[4]= make_cons(VV[19],symbol_value(VV[13])); |
base[4]= make_cons(VV[19],symbol_value(VV[13])); |
724 |
V108= (*(LnkLI62))(); |
V113= (*(LnkLI62))(); |
725 |
bds_bind(VV[13],base[4]); |
bds_bind(VV[13],base[4]); |
726 |
V109= Cnil; |
V114= Cnil; |
727 |
princ_str("\n ",VV[14]); |
princ_str("\n ",VV[14]); |
728 |
(void)((*(LnkLI63))((V108))); |
(void)((*(LnkLI63))((V113))); |
729 |
princ_str("=alloc_frame_id();",VV[14]); |
princ_str("=alloc_frame_id();",VV[14]); |
730 |
princ_str("\n ",VV[14]); |
princ_str("\n ",VV[14]); |
731 |
(void)((*(LnkLI63))((V108))); |
(void)((*(LnkLI63))((V113))); |
732 |
princ_str("=MMcons(",VV[14]); |
princ_str("=MMcons(",VV[14]); |
733 |
(void)((*(LnkLI63))((V108))); |
(void)((*(LnkLI63))((V113))); |
734 |
princ_char(44,VV[14]); |
princ_char(44,VV[14]); |
735 |
(void)((VFUN_NARGS=0,(*(LnkLI64))())); |
(void)((VFUN_NARGS=0,(*(LnkLI64))())); |
736 |
princ_str(");",VV[14]); |
princ_str(");",VV[14]); |
737 |
(void)((*(LnkLI65))((V108))); |
(void)((*(LnkLI65))((V113))); |
738 |
V109= (*(LnkLI66))(); |
V114= (*(LnkLI66))(); |
739 |
princ_str("\n frs_push(FRS_CATCH,",VV[14]); |
princ_str("\n frs_push(FRS_CATCH,",VV[14]); |
740 |
(void)((*(LnkLI67))((V108))); |
(void)((*(LnkLI67))((V113))); |
741 |
princ_str(");",VV[14]); |
princ_str(");",VV[14]); |
742 |
princ_str("\n if(nlj_active){",VV[14]); |
princ_str("\n if(nlj_active){",VV[14]); |
743 |
princ_str("\n nlj_active=FALSE;",VV[14]); |
princ_str("\n nlj_active=FALSE;",VV[14]); |
744 |
{register object V110; |
{register object V115; |
745 |
register object V111; |
register object V116; |
746 |
V110= (V106); |
V115= (V111); |
747 |
V111= car((V110)); |
V116= car((V115)); |
748 |
goto T366; |
goto T370; |
749 |
T366:; |
T370:; |
750 |
if(!(endp_prop((V110)))){ |
if(!(endp_prop((V115)))){ |
751 |
goto T367;} |
goto T371;} |
752 |
goto T362; |
goto T366; |
753 |
goto T367; |
goto T371; |
754 |
T367:; |
T371:; |
755 |
base[6]= (V111); |
base[6]= (V116); |
756 |
base[7]= VV[0]; |
base[7]= VV[0]; |
757 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
758 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
759 |
vs_top=sup; |
vs_top=sup; |
760 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
761 |
goto T371;} |
goto T375;} |
762 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
763 |
V112= make_cons(symbol_value(VV[12]),Ct); |
V117= make_cons(symbol_value(VV[12]),Ct); |
764 |
(void)(structure_set((V111),VV[0],4,/* INLINE-ARGS */V112)); |
(void)(structure_set((V116),VV[0],4,/* INLINE-ARGS */V117)); |
765 |
(void)(structure_set((V111),VV[0],5,(V107))); |
(void)(structure_set((V116),VV[0],5,(V112))); |
766 |
if((structure_ref((V111),VV[0],2))!=Cnil){ |
if((structure_ref((V116),VV[0],2))!=Cnil){ |
767 |
goto T379;} |
goto T383;} |
768 |
if((structure_ref((V111),VV[0],3))==Cnil){ |
if((structure_ref((V116),VV[0],3))==Cnil){ |
769 |
goto T371;} |
goto T375;} |
770 |
goto T379; |
goto T383; |
771 |
T379:; |
T383:; |
772 |
(void)(structure_set((V111),VV[0],2,(V108))); |
(void)(structure_set((V116),VV[0],2,(V113))); |
773 |
if((structure_ref((V111),VV[0],3))==Cnil){ |
if((structure_ref((V116),VV[0],3))==Cnil){ |
774 |
goto T384;} |
goto T388;} |
775 |
(void)(structure_set((V111),VV[0],3,(V109))); |
(void)(structure_set((V116),VV[0],3,(V114))); |
776 |
goto T384; |
goto T388; |
777 |
T384:; |
T388:; |
778 |
princ_str("\n if(eql(nlj_tag,VV[",VV[14]); |
princ_str("\n if(eql(nlj_tag,VV[",VV[14]); |
779 |
V113= structure_ref((V111),VV[0],6); |
V118= structure_ref((V116),VV[0],6); |
780 |
(void)((*(LnkLI60))(/* INLINE-ARGS */V113)); |
(void)((*(LnkLI60))(/* INLINE-ARGS */V118)); |
781 |
princ_str("]))",VV[14]); |
princ_str("]))",VV[14]); |
782 |
V114= structure_ref((V111),VV[0],4); |
V119= structure_ref((V116),VV[0],4); |
783 |
if(type_of(/* INLINE-ARGS */V114)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V114); |
if(type_of(/* INLINE-ARGS */V119)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V119); |
784 |
(/* INLINE-ARGS */V114)->c.c_cdr = Ct; |
(/* INLINE-ARGS */V119)->c.c_cdr = Ct; |
785 |
princ_str("goto T",VV[14]); |
princ_str("goto T",VV[14]); |
786 |
V115= structure_ref((V111),VV[0],4); |
V120= structure_ref((V116),VV[0],4); |
787 |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V115))); |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V120))); |
788 |
princ_char(59,VV[14]); |
princ_char(59,VV[14]); |
789 |
goto T371; |
goto T375; |
790 |
T371:; |
T375:; |
791 |
V110= cdr((V110)); |
V115= cdr((V115)); |
792 |
V111= car((V110)); |
V116= car((V115)); |
793 |
goto T366;} |
goto T370;} |
794 |
goto T362; |
goto T366; |
795 |
T362:; |
T366:; |
796 |
princ_str("\n FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]); |
princ_str("\n FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]); |
797 |
princ_str("\n }",VV[14]); |
princ_str("\n }",VV[14]); |
798 |
base[5]= make_cons((V107),(VV[13]->s.s_dbind)); |
base[5]= make_cons((V112),(VV[13]->s.s_dbind)); |
799 |
bds_bind(VV[13],base[5]); |
bds_bind(VV[13],base[5]); |
800 |
{object V116 = (*(LnkLI57))((V106)); |
{object V121 = (*(LnkLI57))((V111)); |
801 |
bds_unwind1; |
bds_unwind1; |
802 |
bds_unwind1; |
bds_unwind1; |
803 |
bds_unwind1; |
bds_unwind1; |
804 |
bds_unwind1; |
bds_unwind1; |
805 |
bds_unwind1; |
bds_unwind1; |
806 |
VMR10(V116)}}} |
VMR10(V121)}}} |
807 |
base[0]=base[0]; |
base[0]=base[0]; |
808 |
return Cnil; |
return Cnil; |
809 |
} |
} |
810 |
/* local entry for function C1GO */ |
/* local entry for function C1GO */ |
811 |
|
|
812 |
static object LI11(V118) |
static object LI11(V123) |
813 |
|
|
814 |
object V118; |
object V123; |
815 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
816 |
goto TTL; |
goto TTL; |
817 |
TTL:; |
TTL:; |
818 |
if(!(endp_prop((V118)))){ |
if(!(endp_prop((V123)))){ |
819 |
goto T407;} |
goto T411;} |
820 |
(void)((*(LnkLI68))(VV[1],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI68))(VV[1],small_fixnum(1),small_fixnum(0))); |
821 |
goto T405; |
goto T409; |
822 |
goto T407; |
goto T411; |
823 |
T407:; |
T411:; |
824 |
if(endp_prop(cdr((V118)))){ |
if(endp_prop(cdr((V123)))){ |
825 |
goto T410;} |
goto T414;} |
826 |
V119 = make_fixnum((long)length((V118))); |
V124 = make_fixnum((long)length((V123))); |
827 |
(void)((*(LnkLI69))(VV[1],small_fixnum(1),V119)); |
(void)((*(LnkLI69))(VV[1],small_fixnum(1),V124)); |
828 |
goto T405; |
goto T409; |
829 |
goto T410; |
goto T414; |
830 |
T410:; |
T414:; |
831 |
if(type_of(car((V118)))==t_symbol){ |
if(type_of(car((V123)))==t_symbol){ |
832 |
goto T405;} |
goto T409;} |
833 |
{object V120= car((V118)); |
{object V125= car((V123)); |
834 |
if(type_of(V120)==t_fixnum||type_of(V120)==t_bignum){ |
if(type_of(V125)==t_fixnum||type_of(V125)==t_bignum){ |
835 |
goto T405;}} |
goto T409;}} |
836 |
(void)(car((V118))); |
(void)(car((V123))); |
837 |
goto T405; |
goto T409; |
838 |
T405:; |
T409:; |
839 |
{register object V121; |
{register object V126; |
840 |
register object V122; |
register object V127; |
841 |
register object V123; |
register object V128; |
842 |
register object V124; |
register object V129; |
843 |
V121= symbol_value(VV[4]); |
V126= symbol_value(VV[4]); |
844 |
V122= car((V118)); |
V127= car((V123)); |
845 |
V123= Cnil; |
V128= Cnil; |
846 |
V124= Cnil; |
V129= Cnil; |
847 |
goto T420; |
goto T424; |
848 |
T420:; |
T424:; |
849 |
if(!(endp_prop((V121)))){ |
if(!(endp_prop((V126)))){ |
|
goto T421;} |
|
|
{object V125 = (VFUN_NARGS=2,(*(LnkLI70))(VV[23],(V122))); |
|
|
VMR11(V125)} |
|
|
goto T421; |
|
|
T421:; |
|
|
{object V126= car((V121)); |
|
|
if((V126!= VV[71]))goto T426; |
|
|
V123= Ct; |
|
|
goto T425; |
|
|
goto T426; |
|
|
T426:; |
|
|
if((V126!= VV[72]))goto T428; |
|
|
V124= Ct; |
|
|
goto T425; |
|
|
goto T428; |
|
|
T428:; |
|
|
V127= structure_ref(car((V121)),VV[0],0); |
|
|
if(!((/* INLINE-ARGS */V127)==((V122)))){ |
|
850 |
goto T425;} |
goto T425;} |
851 |
{register object V128; |
{object V130 = (VFUN_NARGS=2,(*(LnkLI70))(VV[23],(V127))); |
852 |
V128= car((V121)); |
VMR11(V130)} |
|
if(((V123))==Cnil){ |
|
|
goto T435;} |
|
|
(void)(structure_set((V128),VV[0],3,Ct)); |
|
|
goto T433; |
|
|
goto T435; |
|
|
T435:; |
|
|
if(((V124))==Cnil){ |
|
|
goto T438;} |
|
|
(void)(structure_set((V128),VV[0],2,Ct)); |
|
|
goto T433; |
|
|
goto T438; |
|
|
T438:; |
|
|
(void)(structure_set((V128),VV[0],1,Ct)); |
|
|
goto T433; |
|
|
T433:; |
|
|
{object V129 = list(5,VV[1],symbol_value(VV[24]),(V124),(V123),(V128)); |
|
|
VMR11(V129)}}} |
|
853 |
goto T425; |
goto T425; |
854 |
T425:; |
T425:; |
855 |
V121= cdr((V121)); |
{object V131= car((V126)); |
856 |
goto T420;} |
if((V131!= VV[71]))goto T430; |
857 |
|
V128= Ct; |
858 |
|
goto T429; |
859 |
|
goto T430; |
860 |
|
T430:; |
861 |
|
if((V131!= VV[72]))goto T432; |
862 |
|
V129= Ct; |
863 |
|
goto T429; |
864 |
|
goto T432; |
865 |
|
T432:; |
866 |
|
V132= structure_ref(car((V126)),VV[0],0); |
867 |
|
if(!((/* INLINE-ARGS */V132)==((V127)))){ |
868 |
|
goto T429;} |
869 |
|
{register object V133; |
870 |
|
V133= car((V126)); |
871 |
|
if(((V128))==Cnil){ |
872 |
|
goto T439;} |
873 |
|
(void)(structure_set((V133),VV[0],3,Ct)); |
874 |
|
goto T437; |
875 |
|
goto T439; |
876 |
|
T439:; |
877 |
|
if(((V129))==Cnil){ |
878 |
|
goto T442;} |
879 |
|
(void)(structure_set((V133),VV[0],2,Ct)); |
880 |
|
goto T437; |
881 |
|
goto T442; |
882 |
|
T442:; |
883 |
|
(void)(structure_set((V133),VV[0],1,Ct)); |
884 |
|
goto T437; |
885 |
|
T437:; |
886 |
|
{object V134 = list(5,VV[1],symbol_value(VV[24]),(V129),(V128),(V133)); |
887 |
|
VMR11(V134)}}} |
888 |
|
goto T429; |
889 |
|
T429:; |
890 |
|
V126= cdr((V126)); |
891 |
|
goto T424;} |
892 |
return Cnil; |
return Cnil; |
893 |
} |
} |
894 |
/* local entry for function C2GO */ |
/* local entry for function C2GO */ |
895 |
|
|
896 |
static object LI12(V133,V134,V135) |
static object LI12(V138,V139,V140) |
897 |
|
|
898 |
object V133;object V134;object V135; |
object V138;object V139;object V140; |
899 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
900 |
goto TTL; |
goto TTL; |
901 |
TTL:; |
TTL:; |
902 |
if(((V134))==Cnil){ |
if(((V139))==Cnil){ |
903 |
goto T444;} |
goto T448;} |
904 |
{object V136 = (*(LnkLI73))((V135)); |
{object V141 = (*(LnkLI73))((V140)); |
905 |
VMR12(V136)} |
VMR12(V141)} |
906 |
goto T444; |
goto T448; |
907 |
T444:; |
T448:; |
908 |
if(((V133))==Cnil){ |
if(((V138))==Cnil){ |
909 |
goto T447;} |
goto T451;} |
910 |
{object V137 = (*(LnkLI74))((V135)); |
{object V142 = (*(LnkLI74))((V140)); |
911 |
VMR12(V137)} |
VMR12(V142)} |
912 |
goto T447; |
goto T451; |
913 |
T447:; |
T451:; |
914 |
{object V138 = (*(LnkLI75))((V135)); |
{object V143 = (*(LnkLI75))((V140)); |
915 |
VMR12(V138)} |
VMR12(V143)} |
916 |
return Cnil; |
return Cnil; |
917 |
} |
} |
918 |
/* local entry for function C2GO-LOCAL */ |
/* local entry for function C2GO-LOCAL */ |
919 |
|
|
920 |
static object LI13(V140) |
static object LI13(V145) |
921 |
|
|
922 |
object V140; |
object V145; |
923 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
924 |
goto TTL; |
goto TTL; |
925 |
TTL:; |
TTL:; |
926 |
V141= structure_ref((V140),VV[0],5); |
V146= structure_ref((V145),VV[0],5); |
927 |
(void)((*(LnkLI76))(/* INLINE-ARGS */V141)); |
(void)((*(LnkLI76))(/* INLINE-ARGS */V146)); |
928 |
princ_str("\n ",VV[14]); |
princ_str("\n ",VV[14]); |
929 |
V142= structure_ref((V140),VV[0],4); |
V147= structure_ref((V145),VV[0],4); |
930 |
if(type_of(/* INLINE-ARGS */V142)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V142); |
if(type_of(/* INLINE-ARGS */V147)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V147); |
931 |
(/* INLINE-ARGS */V142)->c.c_cdr = Ct; |
(/* INLINE-ARGS */V147)->c.c_cdr = Ct; |
932 |
princ_str("goto T",VV[14]); |
princ_str("goto T",VV[14]); |
933 |
V143= structure_ref((V140),VV[0],4); |
V148= structure_ref((V145),VV[0],4); |
934 |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V143))); |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V148))); |
935 |
princ_char(59,VV[14]); |
princ_char(59,VV[14]); |
936 |
{object V144 = Cnil; |
{object V149 = Cnil; |
937 |
VMR13(V144)} |
VMR13(V149)} |
938 |
return Cnil; |
return Cnil; |
939 |
} |
} |
940 |
/* local entry for function C2GO-CLB */ |
/* local entry for function C2GO-CLB */ |
941 |
|
|
942 |
static object LI14(V146) |
static object LI14(V151) |
943 |
|
|
944 |
register object V146; |
register object V151; |
945 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
946 |
goto TTL; |
goto TTL; |
947 |
TTL:; |
TTL:; |
948 |
princ_str("\n vs_base=vs_top;",VV[14]); |
princ_str("\n vs_base=vs_top;",VV[14]); |
949 |
princ_str("\n unwind(frs_sch(",VV[14]); |
princ_str("\n unwind(frs_sch(",VV[14]); |
950 |
if((structure_ref((V146),VV[0],3))==Cnil){ |
if((structure_ref((V151),VV[0],3))==Cnil){ |
951 |
goto T461;} |
goto T465;} |
952 |
V147= structure_ref((V146),VV[0],2); |
V152= structure_ref((V151),VV[0],2); |
953 |
(void)((*(LnkLI67))(/* INLINE-ARGS */V147)); |
(void)((*(LnkLI67))(/* INLINE-ARGS */V152)); |
954 |
goto T459; |
goto T463; |
955 |
goto T461; |
goto T465; |
956 |
T461:; |
T465:; |
957 |
V148= structure_ref((V146),VV[0],2); |
V153= structure_ref((V151),VV[0],2); |
958 |
(void)((*(LnkLI63))(/* INLINE-ARGS */V148)); |
(void)((*(LnkLI63))(/* INLINE-ARGS */V153)); |
959 |
goto T459; |
goto T463; |
960 |
T459:; |
T463:; |
961 |
princ_str("),VV[",VV[14]); |
princ_str("),VV[",VV[14]); |
962 |
V149= structure_ref((V146),VV[0],6); |
V154= structure_ref((V151),VV[0],6); |
963 |
(void)((*(LnkLI60))(/* INLINE-ARGS */V149)); |
(void)((*(LnkLI60))(/* INLINE-ARGS */V154)); |
964 |
princ_str("]);",VV[14]); |
princ_str("]);",VV[14]); |
965 |
{object V150 = Cnil; |
{object V155 = Cnil; |
966 |
VMR14(V150)} |
VMR14(V155)} |
967 |
return Cnil; |
return Cnil; |
968 |
} |
} |
969 |
/* local entry for function C2GO-CCB */ |
/* local entry for function C2GO-CCB */ |
970 |
|
|
971 |
static object LI15(V152) |
static object LI15(V157) |
972 |
|
|
973 |
object V152; |
object V157; |
974 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
975 |
goto TTL; |
goto TTL; |
976 |
TTL:; |
TTL:; |
977 |
princ_str("\n {frame_ptr fr;",VV[14]); |
princ_str("\n {frame_ptr fr;",VV[14]); |
978 |
princ_str("\n fr=frs_sch(",VV[14]); |
princ_str("\n fr=frs_sch(",VV[14]); |
979 |
V153= structure_ref((V152),VV[0],3); |
V158= structure_ref((V157),VV[0],3); |
980 |
(void)((*(LnkLI77))(/* INLINE-ARGS */V153)); |
(void)((*(LnkLI77))(/* INLINE-ARGS */V158)); |
981 |
princ_str(");",VV[14]); |
princ_str(");",VV[14]); |
982 |
princ_str("\n if(fr==NULL)FEerror(\"The GO tag ~s is missing.\",1,VV[",VV[14]); |
princ_str("\n if(fr==NULL)FEerror(\"The GO tag ~s is missing.\",1,VV[",VV[14]); |
983 |
V154= structure_ref((V152),VV[0],6); |
V159= structure_ref((V157),VV[0],6); |
984 |
(void)((*(LnkLI60))(/* INLINE-ARGS */V154)); |
(void)((*(LnkLI60))(/* INLINE-ARGS */V159)); |
985 |
princ_str("]);",VV[14]); |
princ_str("]);",VV[14]); |
986 |
princ_str("\n vs_base=vs_top;",VV[14]); |
princ_str("\n vs_base=vs_top;",VV[14]); |
987 |
princ_str("\n unwind(fr,VV[",VV[14]); |
princ_str("\n unwind(fr,VV[",VV[14]); |
988 |
V155= structure_ref((V152),VV[0],6); |
V160= structure_ref((V157),VV[0],6); |
989 |
(void)((*(LnkLI60))(/* INLINE-ARGS */V155)); |
(void)((*(LnkLI60))(/* INLINE-ARGS */V160)); |
990 |
princ_str("]);}",VV[14]); |
princ_str("]);}",VV[14]); |
991 |
{object V156 = Cnil; |
{object V161 = Cnil; |
992 |
VMR15(V156)} |
VMR15(V161)} |
993 |
return Cnil; |
return Cnil; |
994 |
} |
} |
995 |
/* local entry for function WT-SWITCH-CASE */ |
/* local entry for function WT-SWITCH-CASE */ |
996 |
|
|
997 |
static object LI16(V158) |
static object LI16(V163) |
998 |
|
|
999 |
register object V158; |
register object V163; |
1000 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
1001 |
goto TTL; |
goto TTL; |
1002 |
TTL:; |
TTL:; |
1003 |
if(((V158))==Cnil){ |
if(((V163))==Cnil){ |
1004 |
goto T483;} |
goto T487;} |
1005 |
princ_str("\n ",VV[14]); |
princ_str("\n ",VV[14]); |
1006 |
if(!(type_of((V158))==t_fixnum)){ |
if(!(type_of((V163))==t_fixnum)){ |
1007 |
goto T489;} |
goto T493;} |
1008 |
V159= VV[25]; |
V164= VV[25]; |
1009 |
goto T487; |
goto T491; |
1010 |
goto T489; |
goto T493; |
1011 |
T489:; |
T493:; |
1012 |
V159= VV[26]; |
V164= VV[26]; |
1013 |
|
goto T491; |
1014 |
|
T491:; |
1015 |
|
(void)((*(LnkLI60))(V164)); |
1016 |
|
(void)((*(LnkLI60))((V163))); |
1017 |
|
princ_char(58,VV[14]); |
1018 |
|
{object V165 = Cnil; |
1019 |
|
VMR16(V165)} |
1020 |
goto T487; |
goto T487; |
1021 |
T487:; |
T487:; |
1022 |
(void)((*(LnkLI60))(V159)); |
{object V166 = Cnil; |
1023 |
(void)((*(LnkLI60))((V158))); |
VMR16(V166)} |
|
princ_char(58,VV[14]); |
|
|
{object V160 = Cnil; |
|
|
VMR16(V160)} |
|
|
goto T483; |
|
|
T483:; |
|
|
{object V161 = Cnil; |
|
|
VMR16(V161)} |
|
1024 |
return Cnil; |
return Cnil; |
1025 |
} |
} |
1026 |
/* local entry for function C1SWITCH */ |
/* local entry for function C1SWITCH */ |
1027 |
|
|
1028 |
static object LI17(V163) |
static object LI17(V168) |
1029 |
|
|
1030 |
object V163; |
object V168; |
1031 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
1032 |
bds_check; |
bds_check; |
1033 |
goto TTL; |
goto TTL; |
1034 |
TTL:; |
TTL:; |
1035 |
bds_bind(VV[4],symbol_value(VV[4])); |
bds_bind(VV[4],symbol_value(VV[4])); |
1036 |
{object V164; |
{object V169; |
1037 |
register object V165; |
register object V170; |
1038 |
object V166; |
object V171; |
1039 |
V164= car((V163)); |
V169= car((V168)); |
1040 |
V165= cdr((V163)); |
V170= cdr((V168)); |
1041 |
V166= (*(LnkLI78))((V164)); |
V171= (*(LnkLI78))((V169)); |
1042 |
base[4]= cadr((V166)); |
base[4]= cadr((V171)); |
1043 |
base[5]= VV[27]; |
base[5]= VV[27]; |
1044 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1045 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
1046 |
vs_top=sup; |
vs_top=sup; |
1047 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1048 |
goto T497;} |
goto T501;} |
1049 |
base[4]= structure_ref(cadr((V166)),VV[27],2); |
base[4]= structure_ref(cadr((V171)),VV[27],2); |
1050 |
base[5]= VV[28]; |
base[5]= VV[28]; |
1051 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1052 |
(void) (*Lnk79)(); |
(void) (*Lnk79)(); |
1053 |
vs_top=sup; |
vs_top=sup; |
1054 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1055 |
goto T497;}{object V167; |
goto T501;}{object V172; |
1056 |
{register object x= Ct,V168= (V165); |
{register object x= Ct,V173= (V170); |
1057 |
while(!endp(V168)) |
while(!endp(V173)) |
1058 |
if(eql(x,V168->c.c_car)){ |
if(eql(x,V173->c.c_car)){ |
1059 |
V167= V168; |
V172= V173; |
1060 |
goto T507; |
goto T511; |
1061 |
}else V168=V168->c.c_cdr; |
}else V173=V173->c.c_cdr; |
1062 |
V167= Cnil;} |
V172= Cnil;} |
|
goto T507; |
|
|
T507:; |
|
|
if(V167==Cnil)goto T506; |
|
|
goto T505; |
|
|
goto T506; |
|
|
T506:;} |
|
|
V169= make_cons(Ct,Cnil); |
|
|
V165= append((V165),/* INLINE-ARGS */V169); |
|
|
goto T505; |
|
|
T505:; |
|
|
{object V170; |
|
|
object V171= (V165); |
|
|
if(endp(V171)){ |
|
|
V165= Cnil; |
|
|
goto T510;} |
|
|
base[4]=V170=MMcons(Cnil,Cnil); |
|
1063 |
goto T511; |
goto T511; |
1064 |
T511:; |
T511:; |
1065 |
{register object V172; |
if(V172==Cnil)goto T510; |
1066 |
V172= (V171->c.c_car); |
goto T509; |
1067 |
if(type_of((V172))==t_symbol){ |
goto T510; |
1068 |
goto T513;} |
T510:;} |
1069 |
if(!(type_of((V172))==t_fixnum||type_of((V172))==t_bignum)){ |
V174= make_cons(Ct,Cnil); |
1070 |
|
V170= append((V170),/* INLINE-ARGS */V174); |
1071 |
|
goto T509; |
1072 |
|
T509:; |
1073 |
|
{object V175; |
1074 |
|
object V176= (V170); |
1075 |
|
if(endp(V176)){ |
1076 |
|
V170= Cnil; |
1077 |
goto T514;} |
goto T514;} |
1078 |
goto T513; |
base[4]=V175=MMcons(Cnil,Cnil); |
1079 |
T513:; |
goto T515; |
1080 |
{register object V173; |
T515:; |
1081 |
V173= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V172),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil)); |
{register object V177; |
1082 |
if(!(type_of((V172))==t_fixnum)){ |
V177= (V176->c.c_car); |
1083 |
goto T521;} |
if(type_of((V177))==t_symbol){ |
1084 |
(void)(structure_set((V173),VV[0],1,Ct)); |
goto T517;} |
1085 |
(void)(structure_set((V173),VV[0],7,(V172))); |
if(!(type_of((V177))==t_fixnum||type_of((V177))==t_bignum)){ |
1086 |
goto T519; |
goto T518;} |
1087 |
goto T521; |
goto T517; |
1088 |
T521:; |
T517:; |
1089 |
if(!((Ct)==((V172)))){ |
{register object V178; |
1090 |
goto T519;} |
V178= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V177),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil)); |
1091 |
(void)(structure_set((V173),VV[0],1,Ct)); |
if(!(type_of((V177))==t_fixnum)){ |
1092 |
(void)(structure_set((V173),VV[0],7,VV[29])); |
goto T525;} |
1093 |
goto T519; |
(void)(structure_set((V178),VV[0],1,Ct)); |
1094 |
T519:; |
(void)(structure_set((V178),VV[0],7,(V177))); |
1095 |
(V170->c.c_car)= (V173); |
goto T523; |
1096 |
goto T512;} |
goto T525; |
1097 |
|
T525:; |
1098 |
|
if(!((Ct)==((V177)))){ |
1099 |
|
goto T523;} |
1100 |
|
(void)(structure_set((V178),VV[0],1,Ct)); |
1101 |
|
(void)(structure_set((V178),VV[0],7,VV[29])); |
1102 |
|
goto T523; |
1103 |
|
T523:; |
1104 |
|
(V175->c.c_car)= (V178); |
1105 |
|
goto T516;} |
1106 |
|
goto T518; |
1107 |
|
T518:; |
1108 |
|
(V175->c.c_car)= (V177);} |
1109 |
|
goto T516; |
1110 |
|
T516:; |
1111 |
|
V176=MMcdr(V176); |
1112 |
|
if(endp(V176)){ |
1113 |
|
V170= base[4]; |
1114 |
|
goto T514;} |
1115 |
|
V175=MMcdr(V175)=MMcons(Cnil,Cnil); |
1116 |
|
goto T515;} |
1117 |
goto T514; |
goto T514; |
1118 |
T514:; |
T514:; |
1119 |
(V170->c.c_car)= (V172);} |
{object V179; |
1120 |
goto T512; |
V180= append((V170),VV[30]); |
1121 |
T512:; |
V179= (*(LnkLI80))(/* INLINE-ARGS */V180); |
1122 |
V171=MMcdr(V171); |
V181= list(3,VV[31],cadr((V179)),(V171)); |
1123 |
if(endp(V171)){ |
{object V182 = nconc(/* INLINE-ARGS */V181,cddr((V179))); |
1124 |
V165= base[4]; |
bds_unwind1; |
1125 |
goto T510;} |
VMR17(V182)}} |
1126 |
V170=MMcdr(V170)=MMcons(Cnil,Cnil); |
goto T501; |
1127 |
goto T511;} |
T501:; |
1128 |
goto T510; |
V183= make_cons(VV[31],(V168)); |
1129 |
T510:; |
V184= (*(LnkLI81))(/* INLINE-ARGS */V183); |
1130 |
{object V174; |
{object V185 = (*(LnkLI78))(/* INLINE-ARGS */V184); |
|
V175= append((V165),VV[30]); |
|
|
V174= (*(LnkLI80))(/* INLINE-ARGS */V175); |
|
|
V176= list(3,VV[31],cadr((V174)),(V166)); |
|
|
{object V177 = nconc(/* INLINE-ARGS */V176,cddr((V174))); |
|
|
bds_unwind1; |
|
|
VMR17(V177)}} |
|
|
goto T497; |
|
|
T497:; |
|
|
V178= make_cons(VV[31],(V163)); |
|
|
V179= (*(LnkLI81))(/* INLINE-ARGS */V178); |
|
|
{object V180 = (*(LnkLI78))(/* INLINE-ARGS */V179); |
|
1131 |
bds_unwind1; |
bds_unwind1; |
1132 |
VMR17(V180)}} |
VMR17(V185)}} |
1133 |
base[0]=base[0]; |
base[0]=base[0]; |
1134 |
return Cnil; |
return Cnil; |
1135 |
} |
} |
1136 |
/* local entry for function C2SWITCH */ |
/* local entry for function C2SWITCH */ |
1137 |
|
|
1138 |
static object LI18(V185,V186,V187,V188) |
static object LI18(V190,V191,V192,V193) |
1139 |
|
|
1140 |
object V185;object V186;object V187;object V188; |
object V190;object V191;object V192;object V193; |
1141 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1142 |
bds_check; |
bds_check; |
1143 |
goto TTL; |
goto TTL; |
1144 |
TTL:; |
TTL:; |
1145 |
bds_bind(VV[32],small_fixnum(0)); |
bds_bind(VV[32],small_fixnum(0)); |
1146 |
bds_bind(VV[18],symbol_value(VV[18])); |
bds_bind(VV[18],symbol_value(VV[18])); |
1147 |
{object V189; |
{object V194; |
1148 |
V190= make_cons((V185),Cnil); |
V195= make_cons((V190),Cnil); |
1149 |
V189= (VFUN_NARGS=2,(*(LnkLI82))(/* INLINE-ARGS */V190,VV[33])); |
V194= (VFUN_NARGS=2,(*(LnkLI82))(/* INLINE-ARGS */V195,VV[33])); |
1150 |
base[2]= VV[34]; |
base[2]= VV[34]; |
1151 |
base[3]= (V189); |
base[3]= (V194); |
1152 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1153 |
(void) (*Lnk83)(); |
(void) (*Lnk83)(); |
1154 |
vs_top=sup; |
vs_top=sup; |
1155 |
if(((V187))==Cnil){ |
if(((V192))==Cnil){ |
1156 |
goto T534;} |
goto T538;} |
1157 |
(void)((*(LnkLI54))((V188))); |
(void)((*(LnkLI54))((V193))); |
1158 |
goto T532; |
goto T536; |
1159 |
goto T534; |
goto T538; |
1160 |
T534:; |
T538:; |
1161 |
if(((V186))==Cnil){ |
if(((V191))==Cnil){ |
1162 |
goto T537;} |
goto T541;} |
1163 |
(void)((*(LnkLI55))((V188))); |
(void)((*(LnkLI55))((V193))); |
1164 |
goto T532; |
goto T536; |
1165 |
goto T537; |
goto T541; |
1166 |
T537:; |
T541:; |
1167 |
(void)((*(LnkLI56))((V188))); |
(void)((*(LnkLI56))((V193))); |
1168 |
goto T532; |
goto T536; |
1169 |
T532:; |
T536:; |
1170 |
princ_char(125,VV[14]); |
princ_char(125,VV[14]); |
1171 |
(void)((VFUN_NARGS=1,(*(LnkLI58))(Cnil))); |
(void)((VFUN_NARGS=1,(*(LnkLI58))(Cnil))); |
1172 |
{object V191 = (*(LnkLI84))(); |
{object V196 = (*(LnkLI84))(); |
1173 |
bds_unwind1; |
bds_unwind1; |
1174 |
bds_unwind1; |
bds_unwind1; |
1175 |
VMR18(V191)}} |
VMR18(V196)}} |
1176 |
base[0]=base[0]; |
base[0]=base[0]; |
1177 |
return Cnil; |
return Cnil; |
1178 |
} |
} |
1184 |
vs_reserve(VM19); |
vs_reserve(VM19); |
1185 |
check_arg(2); |
check_arg(2); |
1186 |
vs_top=sup; |
vs_top=sup; |
1187 |
{object V192=base[0]->c.c_cdr; |
{object V197=base[0]->c.c_cdr; |
1188 |
if(endp(V192))invalid_macro_call(); |
if(endp(V197))invalid_macro_call(); |
1189 |
base[2]= (V192->c.c_car); |
base[2]= (V197->c.c_car); |
1190 |
V192=V192->c.c_cdr; |
V197=V197->c.c_cdr; |
1191 |
base[3]= V192; |
base[3]= V197; |
1192 |
base[4]= Cnil;} |
base[4]= Cnil;} |
1193 |
{register object V193; |
{register object V198; |
1194 |
register object V194; |
register object V199; |
1195 |
V193= base[3]; |
V198= base[3]; |
1196 |
V194= car((V193)); |
V199= car((V198)); |
1197 |
goto T547; |
goto T551; |
1198 |
T547:; |
T551:; |
1199 |
if(!(endp_prop((V193)))){ |
if(!(endp_prop((V198)))){ |
|
goto T548;} |
|
|
goto T543; |
|
|
goto T548; |
|
|
T548:; |
|
|
if(!(type_of((V194))==t_fixnum||type_of((V194))==t_bignum)){ |
|
1200 |
goto T552;} |
goto T552;} |
1201 |
V195= list(3,VV[36],(V194),base[2]); |
goto T547; |
|
V196= list(4,VV[35],/* INLINE-ARGS */V195,list(2,VV[1],(V194)),Cnil); |
|
|
base[4]= make_cons(/* INLINE-ARGS */V196,base[4]); |
|
1202 |
goto T552; |
goto T552; |
1203 |
T552:; |
T552:; |
1204 |
V193= cdr((V193)); |
if(!(type_of((V199))==t_fixnum||type_of((V199))==t_bignum)){ |
1205 |
V194= car((V193)); |
goto T556;} |
1206 |
goto T547;} |
{register object V200; |
1207 |
goto T543; |
V201= list(3,VV[36],(V199),base[2]); |
1208 |
T543:; |
V200= list(4,VV[35],/* INLINE-ARGS */V201,list(2,VV[1],(V199)),Cnil); |
1209 |
V197= nreverse(base[4]); |
base[4]= make_cons((V200),base[4]);} |
1210 |
|
goto T556; |
1211 |
|
T556:; |
1212 |
|
V198= cdr((V198)); |
1213 |
|
V199= car((V198)); |
1214 |
|
goto T551;} |
1215 |
|
goto T547; |
1216 |
|
T547:; |
1217 |
|
V202= nreverse(base[4]); |
1218 |
base[5]= base[3]; |
base[5]= base[3]; |
1219 |
{register object x= Ct,V199= base[3]; |
{register object x= Ct,V204= base[3]; |
1220 |
while(!endp(V199)) |
while(!endp(V204)) |
1221 |
if(eql(x,V199->c.c_car)){ |
if(eql(x,V204->c.c_car)){ |
1222 |
goto T566; |
goto T571; |
1223 |
}else V199=V199->c.c_cdr; |
}else V204=V204->c.c_cdr; |
1224 |
goto T565;} |
goto T570;} |
1225 |
goto T566; |
goto T571; |
1226 |
T566:; |
T571:; |
1227 |
base[6]= Cnil; |
base[6]= Cnil; |
1228 |
goto T563; |
goto T568; |
1229 |
goto T565; |
goto T570; |
1230 |
T565:; |
T570:; |
1231 |
base[6]= VV[38]; |
base[6]= VV[38]; |
1232 |
goto T563; |
goto T568; |
1233 |
T563:; |
T568:; |
1234 |
base[7]= VV[39]; |
base[7]= VV[39]; |
1235 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
1236 |
Lappend(); |
Lappend(); |
1237 |
vs_top=sup; |
vs_top=sup; |
1238 |
V198= vs_base[0]; |
V203= vs_base[0]; |
1239 |
V200= make_cons(VV[37],V198); |
V205= make_cons(VV[37],V203); |
1240 |
V201= append(/* INLINE-ARGS */V197,/* INLINE-ARGS */V200); |
V206= append(/* INLINE-ARGS */V202,/* INLINE-ARGS */V205); |
1241 |
base[5]= make_cons(VV[10],/* INLINE-ARGS */V201); |
base[5]= make_cons(VV[10],/* INLINE-ARGS */V206); |
1242 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1243 |
return; |
return; |
1244 |
} |
} |
1250 |
vs_reserve(VM20); |
vs_reserve(VM20); |
1251 |
check_arg(2); |
check_arg(2); |
1252 |
vs_top=sup; |
vs_top=sup; |
1253 |
{object V202=base[0]->c.c_cdr; |
{object V207=base[0]->c.c_cdr; |
1254 |
if(!endp(V202))invalid_macro_call();} |
if(!endp(V207))invalid_macro_call();} |
1255 |
base[2]= VV[40]; |
base[2]= VV[40]; |
1256 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1257 |
return; |
return; |