86 |
object V26; |
object V26; |
87 |
V25= Cnil; |
V25= Cnil; |
88 |
V26= Cnil; |
V26= Cnil; |
89 |
if(endp((V24))){ |
if(endp_prop((V24))){ |
90 |
goto T4;} |
goto T4;} |
91 |
if(!(endp(cdr((V24))))){ |
if(!(endp_prop(cdr((V24))))){ |
92 |
goto T3;} |
goto T3;} |
93 |
goto T4; |
goto T4; |
94 |
T4:; |
T4:; |
138 |
T19:; |
T19:; |
139 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
140 |
(V40->c.c_car)= list(2,VV[8],symbol_value(VV[9])); |
(V40->c.c_car)= list(2,VV[8],symbol_value(VV[9])); |
141 |
if(endp(V41=MMcdr(V41))){ |
V41=MMcdr(V41); |
142 |
|
if(endp(V41)){ |
143 |
V38= base[2]; |
V38= base[2]; |
144 |
goto T18;} |
goto T18;} |
145 |
V40=MMcdr(V40)=MMcons(Cnil,Cnil); |
V40=MMcdr(V40)=MMcons(Cnil,Cnil); |
166 |
V46= car((V45)); |
V46= car((V45)); |
167 |
goto T38; |
goto T38; |
168 |
T38:; |
T38:; |
169 |
if(!(endp((V45)))){ |
if(!(endp_prop((V45)))){ |
170 |
goto T39;} |
goto T39;} |
171 |
goto T34; |
goto T34; |
172 |
goto T39; |
goto T39; |
195 |
V49= car((V48)); |
V49= car((V48)); |
196 |
goto T70; |
goto T70; |
197 |
T70:; |
T70:; |
198 |
if(!(endp((V48)))){ |
if(!(endp_prop((V48)))){ |
199 |
goto T71;} |
goto T71;} |
200 |
goto T66; |
goto T66; |
201 |
goto T71; |
goto T71; |
221 |
V51= car((V50)); |
V51= car((V50)); |
222 |
goto T93; |
goto T93; |
223 |
T93:; |
T93:; |
224 |
if(!(endp((V50)))){ |
if(!(endp_prop((V50)))){ |
225 |
goto T94;} |
goto T94;} |
226 |
goto T89; |
goto T89; |
227 |
goto T94; |
goto T94; |
270 |
T137:;{object V56; |
T137:;{object V56; |
271 |
V56= symbol_value(VV[19]); |
V56= symbol_value(VV[19]); |
272 |
(V53->c.c_car)= list(3,VV[18],V56,list(2,VV[15],cadr((V54->c.c_car))));} |
(V53->c.c_car)= list(3,VV[18],V56,list(2,VV[15],cadr((V54->c.c_car))));} |
273 |
if(endp(V54=MMcdr(V54))){ |
V54=MMcdr(V54); |
274 |
|
if(endp(V54)){ |
275 |
V52= base[5]; |
V52= base[5]; |
276 |
goto T133;} |
goto T133;} |
277 |
V53=MMcdr(V53)=MMcons(Cnil,Cnil); |
V53=MMcdr(V53)=MMcons(Cnil,Cnil); |
287 |
goto T139; |
goto T139; |
288 |
T139:; |
T139:; |
289 |
(V57->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V58->c.c_car)); |
(V57->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V58->c.c_car)); |
290 |
if(endp(V58=MMcdr(V58))){ |
V58=MMcdr(V58); |
291 |
|
if(endp(V58)){ |
292 |
V52= base[5]; |
V52= base[5]; |
293 |
goto T133;} |
goto T133;} |
294 |
V57=MMcdr(V57)=MMcons(Cnil,Cnil); |
V57=MMcdr(V57)=MMcons(Cnil,Cnil); |
314 |
T127:; |
T127:; |
315 |
if((symbol_value(VV[12]))==Cnil){ |
if((symbol_value(VV[12]))==Cnil){ |
316 |
goto T152;} |
goto T152;} |
317 |
princ_str("\n if(endp(",VV[11]); |
princ_str("\n ",VV[11]); |
318 |
(void)((*(LnkLI32))(car((V38)))); |
(void)((*(LnkLI32))(car((V38)))); |
319 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
320 |
(void)((*(LnkLI32))(car((V38)))); |
(void)((*(LnkLI32))(car((V38)))); |
321 |
princ_str("))",VV[11]); |
princ_str(");",VV[11]); |
322 |
{register object V60; |
{register object V60; |
323 |
object V61; |
object V61; |
324 |
V60= cdr((V38)); |
V60= cdr((V38)); |
325 |
V61= car((V60)); |
V61= car((V60)); |
326 |
goto T164; |
goto T164; |
327 |
T164:; |
T164:; |
328 |
if(!(endp((V60)))){ |
if(!(endp_prop((V60)))){ |
329 |
goto T165;} |
goto T165;} |
330 |
goto T160; |
goto T160; |
331 |
goto T165; |
goto T165; |
332 |
T165:; |
T165:; |
333 |
princ_str("||endp(",VV[11]); |
princ_str("\n ",VV[11]); |
334 |
(void)((*(LnkLI32))((V61))); |
(void)((*(LnkLI32))((V61))); |
335 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
336 |
(void)((*(LnkLI32))((V61))); |
(void)((*(LnkLI32))((V61))); |
337 |
princ_str("))",VV[11]); |
princ_str(");",VV[11]); |
338 |
V60= cdr((V60)); |
V60= cdr((V60)); |
339 |
V61= car((V60)); |
V61= car((V60)); |
340 |
goto T164;} |
goto T164;} |
341 |
goto T160; |
goto T160; |
342 |
T160:; |
T160:; |
343 |
|
princ_str("\n if(endp(",VV[11]); |
344 |
|
(void)((*(LnkLI32))(car((V38)))); |
345 |
|
princ_char(41,VV[11]); |
346 |
|
{register object V62; |
347 |
|
object V63; |
348 |
|
V62= cdr((V38)); |
349 |
|
V63= car((V62)); |
350 |
|
goto T188; |
351 |
|
T188:; |
352 |
|
if(!(endp_prop((V62)))){ |
353 |
|
goto T189;} |
354 |
|
goto T184; |
355 |
|
goto T189; |
356 |
|
T189:; |
357 |
|
princ_str("||endp(",VV[11]); |
358 |
|
(void)((*(LnkLI32))((V63))); |
359 |
|
princ_char(41,VV[11]); |
360 |
|
V62= cdr((V62)); |
361 |
|
V63= car((V62)); |
362 |
|
goto T188;} |
363 |
|
goto T184; |
364 |
|
T184:; |
365 |
princ_str("){",VV[11]); |
princ_str("){",VV[11]); |
366 |
goto T150; |
goto T150; |
367 |
goto T152; |
goto T152; |
371 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
372 |
(void)((*(LnkLI32))(car((V38)))); |
(void)((*(LnkLI32))(car((V38)))); |
373 |
princ_str("))==Cnil",VV[11]); |
princ_str("))==Cnil",VV[11]); |
374 |
{register object V62; |
{register object V64; |
375 |
object V63; |
object V65; |
376 |
V62= cdr((V38)); |
V64= cdr((V38)); |
377 |
V63= car((V62)); |
V65= car((V64)); |
378 |
goto T191; |
goto T213; |
379 |
T191:; |
T213:; |
380 |
if(!(endp((V62)))){ |
if(!(endp_prop((V64)))){ |
381 |
goto T192;} |
goto T214;} |
382 |
goto T187; |
goto T209; |
383 |
goto T192; |
goto T214; |
384 |
T192:; |
T214:; |
385 |
princ_str("||(",VV[11]); |
princ_str("||(",VV[11]); |
386 |
(void)((*(LnkLI32))((V63))); |
(void)((*(LnkLI32))((V65))); |
387 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
388 |
(void)((*(LnkLI32))((V63))); |
(void)((*(LnkLI32))((V65))); |
389 |
princ_str("))==Cnil",VV[11]); |
princ_str("))==Cnil",VV[11]); |
390 |
V62= cdr((V62)); |
V64= cdr((V64)); |
391 |
V63= car((V62)); |
V65= car((V64)); |
392 |
goto T191;} |
goto T213;} |
393 |
goto T187; |
goto T209; |
394 |
T187:; |
T209:; |
395 |
princ_str("){",VV[11]); |
princ_str("){",VV[11]); |
396 |
goto T150; |
goto T150; |
397 |
T150:; |
T150:; |
409 |
(void)((*(LnkLI32))(car((V35)))); |
(void)((*(LnkLI32))(car((V35)))); |
410 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
411 |
princ_char(125,VV[11]); |
princ_char(125,VV[11]); |
412 |
{object V64 = (*(LnkLI35))(); |
{object V66 = (*(LnkLI35))(); |
413 |
bds_unwind1; |
bds_unwind1; |
414 |
bds_unwind1; |
bds_unwind1; |
415 |
VMR8(V64)}} |
VMR8(V66)}} |
416 |
base[0]=base[0]; |
base[0]=base[0]; |
417 |
return Cnil; |
return Cnil; |
418 |
} |
} |
419 |
/* local entry for function C2MAPC */ |
/* local entry for function C2MAPC */ |
420 |
|
|
421 |
static object LI9(V68,V69,V70) |
static object LI9(V70,V71,V72) |
422 |
|
|
423 |
object V68;object V69;register object V70; |
object V70;object V71;register object V72; |
424 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
425 |
bds_check; |
bds_check; |
426 |
goto TTL; |
goto TTL; |
427 |
TTL:; |
TTL:; |
428 |
bds_bind(VV[4],symbol_value(VV[4])); |
bds_bind(VV[4],symbol_value(VV[4])); |
429 |
bds_bind(VV[5],small_fixnum(0)); |
bds_bind(VV[5],small_fixnum(0)); |
430 |
{object V71; |
{object V73; |
|
object V72; |
|
|
object V73; |
|
431 |
object V74; |
object V74; |
432 |
|
object V75; |
433 |
|
object V76; |
434 |
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
435 |
V71= make_cons(symbol_value(VV[6]),Ct); |
V73= make_cons(symbol_value(VV[6]),Ct); |
436 |
{object V75; |
{object V77; |
437 |
object V76= (V70); |
object V78= (V72); |
438 |
if(endp(V76)){ |
if(endp(V78)){ |
439 |
V73= Cnil; |
V75= Cnil; |
440 |
goto T227;} |
goto T249;} |
441 |
base[2]=V75=MMcons(Cnil,Cnil); |
base[2]=V77=MMcons(Cnil,Cnil); |
442 |
goto T228; |
goto T250; |
443 |
T228:; |
T250:; |
444 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
445 |
(V75->c.c_car)= list(2,VV[8],symbol_value(VV[9])); |
(V77->c.c_car)= list(2,VV[8],symbol_value(VV[9])); |
446 |
if(endp(V76=MMcdr(V76))){ |
V78=MMcdr(V78); |
447 |
V73= base[2]; |
if(endp(V78)){ |
448 |
goto T227;} |
V75= base[2]; |
449 |
V75=MMcdr(V75)=MMcons(Cnil,Cnil); |
goto T249;} |
450 |
goto T228;} |
V77=MMcdr(V77)=MMcons(Cnil,Cnil); |
451 |
goto T227; |
goto T250;} |
452 |
T227:; |
goto T249; |
453 |
V72= Cnil; |
T249:; |
454 |
V74= Cnil; |
V74= Cnil; |
455 |
V74= (*(LnkLI29))((V68)); |
V76= Cnil; |
456 |
base[2]= make_fixnum((long)length((V70))); |
V76= (*(LnkLI29))((V70)); |
457 |
|
base[2]= make_fixnum((long)length((V72))); |
458 |
base[3]= VV[10]; |
base[3]= VV[10]; |
459 |
base[4]= Ct; |
base[4]= Ct; |
460 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
461 |
Lmake_list(); |
Lmake_list(); |
462 |
vs_top=sup; |
vs_top=sup; |
463 |
V78= vs_base[0]; |
V80= vs_base[0]; |
464 |
V79= (VFUN_NARGS=2,(*(LnkLI31))((V70),V78)); |
V81= (VFUN_NARGS=2,(*(LnkLI31))((V72),V80)); |
465 |
V70= (*(LnkLI30))(/* INLINE-ARGS */V79,(V68)); |
V72= (*(LnkLI30))(/* INLINE-ARGS */V81,(V70)); |
466 |
V72= car((V70)); |
V74= car((V72)); |
467 |
princ_str("\n {",VV[11]); |
princ_str("\n {",VV[11]); |
468 |
{register object V80; |
{register object V82; |
469 |
object V81; |
object V83; |
470 |
V80= (V73); |
V82= (V75); |
471 |
V81= car((V80)); |
V83= car((V82)); |
472 |
goto T247; |
goto T269; |
473 |
T247:; |
T269:; |
474 |
if(!(endp((V80)))){ |
if(!(endp_prop((V82)))){ |
475 |
goto T248;} |
goto T270;} |
476 |
goto T243; |
goto T265; |
477 |
goto T248; |
goto T270; |
478 |
T248:; |
T270:; |
479 |
princ_str("\n object ",VV[11]); |
princ_str("\n object ",VV[11]); |
480 |
(void)((*(LnkLI32))((V81))); |
(void)((*(LnkLI32))((V83))); |
481 |
princ_str("= ",VV[11]); |
princ_str("= ",VV[11]); |
482 |
(void)((*(LnkLI32))(car((V70)))); |
(void)((*(LnkLI32))(car((V72)))); |
483 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
484 |
{object V82; |
{object V84; |
485 |
V82= car((V70)); |
V84= car((V72)); |
486 |
V70= cdr((V70));} |
V72= cdr((V72));} |
487 |
V80= cdr((V80)); |
V82= cdr((V82)); |
488 |
V81= car((V80)); |
V83= car((V82)); |
|
goto T247;} |
|
|
goto T243; |
|
|
T243:; |
|
|
if((symbol_value(VV[12]))==Cnil){ |
|
489 |
goto T269;} |
goto T269;} |
490 |
|
goto T265; |
491 |
|
T265:; |
492 |
|
if((symbol_value(VV[12]))==Cnil){ |
493 |
|
goto T291;} |
494 |
princ_str("\n if(endp(",VV[11]); |
princ_str("\n if(endp(",VV[11]); |
495 |
(void)((*(LnkLI32))(car((V73)))); |
(void)((*(LnkLI32))(car((V75)))); |
496 |
princ_char(41,VV[11]); |
princ_char(41,VV[11]); |
|
{register object V83; |
|
|
object V84; |
|
|
V83= cdr((V73)); |
|
|
V84= car((V83)); |
|
|
goto T279; |
|
|
T279:; |
|
|
if(!(endp((V83)))){ |
|
|
goto T280;} |
|
|
goto T275; |
|
|
goto T280; |
|
|
T280:; |
|
|
princ_str("||endp(",VV[11]); |
|
|
(void)((*(LnkLI32))((V84))); |
|
|
princ_char(41,VV[11]); |
|
|
V83= cdr((V83)); |
|
|
V84= car((V83)); |
|
|
goto T279;} |
|
|
goto T275; |
|
|
T275:; |
|
|
princ_str("){",VV[11]); |
|
|
goto T267; |
|
|
goto T269; |
|
|
T269:; |
|
|
princ_str("\n if(",VV[11]); |
|
|
(void)((*(LnkLI32))(car((V73)))); |
|
|
princ_str("==Cnil",VV[11]); |
|
497 |
{register object V85; |
{register object V85; |
498 |
object V86; |
object V86; |
499 |
V85= cdr((V73)); |
V85= cdr((V75)); |
500 |
V86= car((V85)); |
V86= car((V85)); |
501 |
|
goto T301; |
502 |
|
T301:; |
503 |
|
if(!(endp_prop((V85)))){ |
504 |
|
goto T302;} |
505 |
|
goto T297; |
506 |
goto T302; |
goto T302; |
507 |
T302:; |
T302:; |
508 |
if(!(endp((V85)))){ |
princ_str("||endp(",VV[11]); |
|
goto T303;} |
|
|
goto T298; |
|
|
goto T303; |
|
|
T303:; |
|
|
princ_str("||",VV[11]); |
|
509 |
(void)((*(LnkLI32))((V86))); |
(void)((*(LnkLI32))((V86))); |
510 |
princ_str("==Cnil",VV[11]); |
princ_char(41,VV[11]); |
511 |
V85= cdr((V85)); |
V85= cdr((V85)); |
512 |
V86= car((V85)); |
V86= car((V85)); |
513 |
goto T302;} |
goto T301;} |
514 |
goto T298; |
goto T297; |
515 |
T298:; |
T297:; |
516 |
|
princ_str("){",VV[11]); |
517 |
|
goto T289; |
518 |
|
goto T291; |
519 |
|
T291:; |
520 |
|
princ_str("\n if(",VV[11]); |
521 |
|
(void)((*(LnkLI32))(car((V75)))); |
522 |
|
princ_str("==Cnil",VV[11]); |
523 |
|
{register object V87; |
524 |
|
object V88; |
525 |
|
V87= cdr((V75)); |
526 |
|
V88= car((V87)); |
527 |
|
goto T324; |
528 |
|
T324:; |
529 |
|
if(!(endp_prop((V87)))){ |
530 |
|
goto T325;} |
531 |
|
goto T320; |
532 |
|
goto T325; |
533 |
|
T325:; |
534 |
|
princ_str("||",VV[11]); |
535 |
|
(void)((*(LnkLI32))((V88))); |
536 |
|
princ_str("==Cnil",VV[11]); |
537 |
|
V87= cdr((V87)); |
538 |
|
V88= car((V87)); |
539 |
|
goto T324;} |
540 |
|
goto T320; |
541 |
|
T320:; |
542 |
princ_str("){",VV[11]); |
princ_str("){",VV[11]); |
543 |
goto T267; |
goto T289; |
544 |
T267:; |
T289:; |
545 |
(void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13]))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13]))); |
546 |
princ_char(125,VV[11]); |
princ_char(125,VV[11]); |
547 |
if((cdr((V71)))==Cnil){ |
if((cdr((V73)))==Cnil){ |
548 |
goto T320;} |
goto T342;} |
549 |
princ_str("\ngoto T",VV[11]); |
princ_str("\ngoto T",VV[11]); |
550 |
(void)((*(LnkLI32))(car((V71)))); |
(void)((*(LnkLI32))(car((V73)))); |
551 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
552 |
princ_str("\nT",VV[11]); |
princ_str("\nT",VV[11]); |
553 |
(void)((*(LnkLI32))(car((V71)))); |
(void)((*(LnkLI32))(car((V73)))); |
554 |
princ_str(":;",VV[11]); |
princ_str(":;",VV[11]); |
555 |
goto T320; |
goto T342; |
556 |
T320:; |
T342:; |
557 |
bds_bind(VV[14],VV[20]); |
bds_bind(VV[14],VV[20]); |
558 |
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
559 |
bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil)); |
bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil)); |
560 |
bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17]))); |
bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17]))); |
561 |
if(((V69))==Cnil){ |
if(((V71))==Cnil){ |
562 |
goto T337;} |
goto T359;} |
563 |
{object V88; |
{object V90; |
564 |
object V89= (V73); |
object V91= (V75); |
565 |
if(endp(V89)){ |
if(endp(V91)){ |
566 |
V87= Cnil; |
V89= Cnil; |
567 |
goto T335;} |
goto T357;} |
568 |
base[5]=V88=MMcons(Cnil,Cnil); |
base[5]=V90=MMcons(Cnil,Cnil); |
569 |
goto T339; |
goto T361; |
570 |
T339:;{object V91; |
T361:;{object V93; |
571 |
V91= symbol_value(VV[19]); |
V93= symbol_value(VV[19]); |
572 |
(V88->c.c_car)= list(3,VV[18],V91,list(2,VV[15],cadr((V89->c.c_car))));} |
(V90->c.c_car)= list(3,VV[18],V93,list(2,VV[15],cadr((V91->c.c_car))));} |
573 |
if(endp(V89=MMcdr(V89))){ |
V91=MMcdr(V91); |
574 |
V87= base[5]; |
if(endp(V91)){ |
575 |
goto T335;} |
V89= base[5]; |
576 |
V88=MMcdr(V88)=MMcons(Cnil,Cnil); |
goto T357;} |
577 |
goto T339;} |
V90=MMcdr(V90)=MMcons(Cnil,Cnil); |
578 |
goto T337; |
goto T361;} |
579 |
T337:; |
goto T359; |
580 |
{object V92; |
T359:; |
581 |
object V93= (V73); |
{object V94; |
582 |
if(endp(V93)){ |
object V95= (V75); |
583 |
V87= Cnil; |
if(endp(V95)){ |
584 |
goto T335;} |
V89= Cnil; |
585 |
base[5]=V92=MMcons(Cnil,Cnil); |
goto T357;} |
586 |
goto T341; |
base[5]=V94=MMcons(Cnil,Cnil); |
587 |
T341:; |
goto T363; |
588 |
(V92->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V93->c.c_car)); |
T363:; |
589 |
if(endp(V93=MMcdr(V93))){ |
(V94->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V95->c.c_car)); |
590 |
V87= base[5]; |
V95=MMcdr(V95); |
591 |
goto T335;} |
if(endp(V95)){ |
592 |
V92=MMcdr(V92)=MMcons(Cnil,Cnil); |
V89= base[5]; |
593 |
goto T341;} |
goto T357;} |
594 |
goto T335; |
V94=MMcdr(V94)=MMcons(Cnil,Cnil); |
595 |
T335:; |
goto T363;} |
596 |
(void)((VFUN_NARGS=3,(*(LnkLI34))((V68),V87,(V74)))); |
goto T357; |
597 |
|
T357:; |
598 |
|
(void)((VFUN_NARGS=3,(*(LnkLI34))((V70),V89,(V76)))); |
599 |
if((cdr((VV[16]->s.s_dbind)))==Cnil){ |
if((cdr((VV[16]->s.s_dbind)))==Cnil){ |
600 |
bds_unwind1; |
bds_unwind1; |
601 |
bds_unwind1; |
bds_unwind1; |
602 |
bds_unwind1; |
bds_unwind1; |
603 |
goto T330;} |
goto T352;} |
604 |
princ_str("\ngoto T",VV[11]); |
princ_str("\ngoto T",VV[11]); |
605 |
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
606 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
610 |
bds_unwind1; |
bds_unwind1; |
611 |
bds_unwind1; |
bds_unwind1; |
612 |
bds_unwind1; |
bds_unwind1; |
613 |
goto T330; |
goto T352; |
614 |
T330:; |
T352:; |
615 |
if((symbol_value(VV[12]))==Cnil){ |
if((symbol_value(VV[12]))==Cnil){ |
616 |
goto T354;} |
goto T376;} |
617 |
princ_str("\n if(endp(",VV[11]); |
princ_str("\n ",VV[11]); |
618 |
(void)((*(LnkLI32))(car((V73)))); |
(void)((*(LnkLI32))(car((V75)))); |
|
princ_str("=MMcdr(",VV[11]); |
|
|
(void)((*(LnkLI32))(car((V73)))); |
|
|
princ_str("))",VV[11]); |
|
|
{register object V95; |
|
|
object V96; |
|
|
V95= cdr((V73)); |
|
|
V96= car((V95)); |
|
|
goto T366; |
|
|
T366:; |
|
|
if(!(endp((V95)))){ |
|
|
goto T367;} |
|
|
goto T362; |
|
|
goto T367; |
|
|
T367:; |
|
|
princ_str("||endp(",VV[11]); |
|
|
(void)((*(LnkLI32))((V96))); |
|
|
princ_str("=MMcdr(",VV[11]); |
|
|
(void)((*(LnkLI32))((V96))); |
|
|
princ_str("))",VV[11]); |
|
|
V95= cdr((V95)); |
|
|
V96= car((V95)); |
|
|
goto T366;} |
|
|
goto T362; |
|
|
T362:; |
|
|
princ_str("){",VV[11]); |
|
|
goto T352; |
|
|
goto T354; |
|
|
T354:; |
|
|
princ_str("\n if((",VV[11]); |
|
|
(void)((*(LnkLI32))(car((V73)))); |
|
619 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
620 |
(void)((*(LnkLI32))(car((V73)))); |
(void)((*(LnkLI32))(car((V75)))); |
621 |
princ_str("))==Cnil",VV[11]); |
princ_str(");",VV[11]); |
622 |
{register object V97; |
{register object V97; |
623 |
object V98; |
object V98; |
624 |
V97= cdr((V73)); |
V97= cdr((V75)); |
625 |
V98= car((V97)); |
V98= car((V97)); |
626 |
goto T393; |
goto T388; |
627 |
T393:; |
T388:; |
628 |
if(!(endp((V97)))){ |
if(!(endp_prop((V97)))){ |
629 |
goto T394;} |
goto T389;} |
630 |
goto T389; |
goto T384; |
631 |
goto T394; |
goto T389; |
632 |
T394:; |
T389:; |
633 |
princ_str("||(",VV[11]); |
princ_str("\n ",VV[11]); |
634 |
(void)((*(LnkLI32))((V98))); |
(void)((*(LnkLI32))((V98))); |
635 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
636 |
(void)((*(LnkLI32))((V98))); |
(void)((*(LnkLI32))((V98))); |
637 |
princ_str("))==Cnil",VV[11]); |
princ_str(");",VV[11]); |
638 |
V97= cdr((V97)); |
V97= cdr((V97)); |
639 |
V98= car((V97)); |
V98= car((V97)); |
640 |
goto T393;} |
goto T388;} |
641 |
goto T389; |
goto T384; |
642 |
T389:; |
T384:; |
643 |
princ_str("){",VV[11]); |
princ_str("\n if(endp(",VV[11]); |
644 |
goto T352; |
(void)((*(LnkLI32))(car((V75)))); |
645 |
T352:; |
princ_char(41,VV[11]); |
646 |
(void)((VFUN_NARGS=2,(*(LnkLI33))((V72),VV[13]))); |
{register object V99; |
647 |
|
object V100; |
648 |
|
V99= cdr((V75)); |
649 |
|
V100= car((V99)); |
650 |
|
goto T412; |
651 |
|
T412:; |
652 |
|
if(!(endp_prop((V99)))){ |
653 |
|
goto T413;} |
654 |
|
goto T408; |
655 |
|
goto T413; |
656 |
|
T413:; |
657 |
|
princ_str("||endp(",VV[11]); |
658 |
|
(void)((*(LnkLI32))((V100))); |
659 |
|
princ_char(41,VV[11]); |
660 |
|
V99= cdr((V99)); |
661 |
|
V100= car((V99)); |
662 |
|
goto T412;} |
663 |
|
goto T408; |
664 |
|
T408:; |
665 |
|
princ_str("){",VV[11]); |
666 |
|
goto T374; |
667 |
|
goto T376; |
668 |
|
T376:; |
669 |
|
princ_str("\n if((",VV[11]); |
670 |
|
(void)((*(LnkLI32))(car((V75)))); |
671 |
|
princ_str("=MMcdr(",VV[11]); |
672 |
|
(void)((*(LnkLI32))(car((V75)))); |
673 |
|
princ_str("))==Cnil",VV[11]); |
674 |
|
{register object V101; |
675 |
|
object V102; |
676 |
|
V101= cdr((V75)); |
677 |
|
V102= car((V101)); |
678 |
|
goto T437; |
679 |
|
T437:; |
680 |
|
if(!(endp_prop((V101)))){ |
681 |
|
goto T438;} |
682 |
|
goto T433; |
683 |
|
goto T438; |
684 |
|
T438:; |
685 |
|
princ_str("||(",VV[11]); |
686 |
|
(void)((*(LnkLI32))((V102))); |
687 |
|
princ_str("=MMcdr(",VV[11]); |
688 |
|
(void)((*(LnkLI32))((V102))); |
689 |
|
princ_str("))==Cnil",VV[11]); |
690 |
|
V101= cdr((V101)); |
691 |
|
V102= car((V101)); |
692 |
|
goto T437;} |
693 |
|
goto T433; |
694 |
|
T433:; |
695 |
|
princ_str("){",VV[11]); |
696 |
|
goto T374; |
697 |
|
T374:; |
698 |
|
(void)((VFUN_NARGS=2,(*(LnkLI33))((V74),VV[13]))); |
699 |
princ_char(125,VV[11]); |
princ_char(125,VV[11]); |
700 |
princ_str("\n ",VV[11]); |
princ_str("\n ",VV[11]); |
701 |
if(type_of((V71))!=t_cons)FEwrong_type_argument(Scons,(V71)); |
if(type_of((V73))!=t_cons)FEwrong_type_argument(Scons,(V73)); |
702 |
((V71))->c.c_cdr = Ct; |
((V73))->c.c_cdr = Ct; |
703 |
princ_str("goto T",VV[11]); |
princ_str("goto T",VV[11]); |
704 |
(void)((*(LnkLI32))(car((V71)))); |
(void)((*(LnkLI32))(car((V73)))); |
705 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
706 |
princ_char(125,VV[11]); |
princ_char(125,VV[11]); |
707 |
{object V99 = (*(LnkLI35))(); |
{object V103 = (*(LnkLI35))(); |
708 |
bds_unwind1; |
bds_unwind1; |
709 |
bds_unwind1; |
bds_unwind1; |
710 |
VMR9(V99)}} |
VMR9(V103)}} |
711 |
base[0]=base[0]; |
base[0]=base[0]; |
712 |
return Cnil; |
return Cnil; |
713 |
} |
} |
714 |
/* local entry for function C2MAPCAN */ |
/* local entry for function C2MAPCAN */ |
715 |
|
|
716 |
static object LI10(V103,V104,V105) |
static object LI10(V107,V108,V109) |
717 |
|
|
718 |
object V103;object V104;register object V105; |
object V107;object V108;register object V109; |
719 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
720 |
bds_check; |
bds_check; |
721 |
goto TTL; |
goto TTL; |
722 |
TTL:; |
TTL:; |
723 |
bds_bind(VV[4],symbol_value(VV[4])); |
bds_bind(VV[4],symbol_value(VV[4])); |
724 |
bds_bind(VV[5],small_fixnum(0)); |
bds_bind(VV[5],small_fixnum(0)); |
725 |
{object V106; |
{object V110; |
726 |
object V107; |
object V111; |
727 |
object V108; |
object V112; |
728 |
object V109; |
object V113; |
729 |
object V110; |
object V114; |
730 |
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
731 |
V106= make_cons(symbol_value(VV[6]),Ct); |
V110= make_cons(symbol_value(VV[6]),Ct); |
732 |
V107= list(2,VV[7],(*(LnkLI28))()); |
V111= list(2,VV[7],(*(LnkLI28))()); |
733 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
734 |
V108= list(2,VV[8],symbol_value(VV[9])); |
V112= list(2,VV[8],symbol_value(VV[9])); |
735 |
{object V111; |
{object V115; |
736 |
object V112= (V105); |
object V116= (V109); |
737 |
if(endp(V112)){ |
if(endp(V116)){ |
738 |
V109= Cnil; |
V113= Cnil; |
739 |
goto T426;} |
goto T470;} |
740 |
base[2]=V111=MMcons(Cnil,Cnil); |
base[2]=V115=MMcons(Cnil,Cnil); |
741 |
goto T427; |
goto T471; |
742 |
T427:; |
T471:; |
743 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
744 |
(V111->c.c_car)= list(2,VV[8],symbol_value(VV[9])); |
(V115->c.c_car)= list(2,VV[8],symbol_value(VV[9])); |
745 |
if(endp(V112=MMcdr(V112))){ |
V116=MMcdr(V116); |
746 |
V109= base[2]; |
if(endp(V116)){ |
747 |
goto T426;} |
V113= base[2]; |
748 |
V111=MMcdr(V111)=MMcons(Cnil,Cnil); |
goto T470;} |
749 |
goto T427;} |
V115=MMcdr(V115)=MMcons(Cnil,Cnil); |
750 |
goto T426; |
goto T471;} |
751 |
T426:; |
goto T470; |
752 |
V110= Cnil; |
T470:; |
753 |
V110= (*(LnkLI29))((V103)); |
V114= Cnil; |
754 |
base[2]= make_fixnum((long)length((V105))); |
V114= (*(LnkLI29))((V107)); |
755 |
|
base[2]= make_fixnum((long)length((V109))); |
756 |
base[3]= VV[10]; |
base[3]= VV[10]; |
757 |
base[4]= Ct; |
base[4]= Ct; |
758 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
759 |
Lmake_list(); |
Lmake_list(); |
760 |
vs_top=sup; |
vs_top=sup; |
761 |
V114= vs_base[0]; |
V118= vs_base[0]; |
762 |
V115= (VFUN_NARGS=2,(*(LnkLI31))((V105),V114)); |
V119= (VFUN_NARGS=2,(*(LnkLI31))((V109),V118)); |
763 |
V105= (*(LnkLI30))(/* INLINE-ARGS */V115,(V103)); |
V109= (*(LnkLI30))(/* INLINE-ARGS */V119,(V107)); |
764 |
princ_str("\n {object ",VV[11]); |
princ_str("\n {object ",VV[11]); |
765 |
(void)((*(LnkLI32))((V108))); |
(void)((*(LnkLI32))((V112))); |
766 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
767 |
{register object V116; |
{register object V120; |
768 |
object V117; |
object V121; |
769 |
V116= (V109); |
V120= (V113); |
770 |
V117= car((V116)); |
V121= car((V120)); |
771 |
goto T446; |
goto T490; |
772 |
T446:; |
T490:; |
773 |
if(!(endp((V116)))){ |
if(!(endp_prop((V120)))){ |
774 |
goto T447;} |
goto T491;} |
775 |
goto T442; |
goto T486; |
776 |
goto T447; |
goto T491; |
777 |
T447:; |
T491:; |
778 |
princ_str("\n object ",VV[11]); |
princ_str("\n object ",VV[11]); |
779 |
(void)((*(LnkLI32))((V117))); |
(void)((*(LnkLI32))((V121))); |
780 |
princ_str("= ",VV[11]); |
princ_str("= ",VV[11]); |
781 |
(void)((*(LnkLI32))(car((V105)))); |
(void)((*(LnkLI32))(car((V109)))); |
782 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
783 |
{object V118; |
{object V122; |
784 |
V118= car((V105)); |
V122= car((V109)); |
785 |
V105= cdr((V105));} |
V109= cdr((V109));} |
786 |
V116= cdr((V116)); |
V120= cdr((V120)); |
787 |
V117= car((V116)); |
V121= car((V120)); |
788 |
goto T446;} |
goto T490;} |
789 |
goto T442; |
goto T486; |
790 |
T442:; |
T486:; |
791 |
if((symbol_value(VV[12]))==Cnil){ |
if((symbol_value(VV[12]))==Cnil){ |
792 |
goto T468;} |
goto T512;} |
793 |
princ_str("\n if(endp(",VV[11]); |
princ_str("\n if(endp(",VV[11]); |
794 |
(void)((*(LnkLI32))(car((V109)))); |
(void)((*(LnkLI32))(car((V113)))); |
795 |
princ_char(41,VV[11]); |
princ_char(41,VV[11]); |
796 |
{register object V119; |
{register object V123; |
797 |
object V120; |
object V124; |
798 |
V119= cdr((V109)); |
V123= cdr((V113)); |
799 |
V120= car((V119)); |
V124= car((V123)); |
800 |
goto T478; |
goto T522; |
801 |
T478:; |
T522:; |
802 |
if(!(endp((V119)))){ |
if(!(endp_prop((V123)))){ |
803 |
goto T479;} |
goto T523;} |
804 |
goto T474; |
goto T518; |
805 |
goto T479; |
goto T523; |
806 |
T479:; |
T523:; |
807 |
princ_str("||endp(",VV[11]); |
princ_str("||endp(",VV[11]); |
808 |
(void)((*(LnkLI32))((V120))); |
(void)((*(LnkLI32))((V124))); |
809 |
princ_char(41,VV[11]); |
princ_char(41,VV[11]); |
810 |
V119= cdr((V119)); |
V123= cdr((V123)); |
811 |
V120= car((V119)); |
V124= car((V123)); |
812 |
goto T478;} |
goto T522;} |
813 |
goto T474; |
goto T518; |
814 |
T474:; |
T518:; |
815 |
princ_str("){",VV[11]); |
princ_str("){",VV[11]); |
816 |
goto T466; |
goto T510; |
817 |
goto T468; |
goto T512; |
818 |
T468:; |
T512:; |
819 |
princ_str("\n if(",VV[11]); |
princ_str("\n if(",VV[11]); |
820 |
(void)((*(LnkLI32))(car((V109)))); |
(void)((*(LnkLI32))(car((V113)))); |
821 |
princ_str("==Cnil",VV[11]); |
princ_str("==Cnil",VV[11]); |
822 |
{register object V121; |
{register object V125; |
823 |
object V122; |
object V126; |
824 |
V121= cdr((V109)); |
V125= cdr((V113)); |
825 |
V122= car((V121)); |
V126= car((V125)); |
826 |
goto T501; |
goto T545; |
827 |
T501:; |
T545:; |
828 |
if(!(endp((V121)))){ |
if(!(endp_prop((V125)))){ |
829 |
goto T502;} |
goto T546;} |
830 |
goto T497; |
goto T541; |
831 |
goto T502; |
goto T546; |
832 |
T502:; |
T546:; |
833 |
princ_str("||",VV[11]); |
princ_str("||",VV[11]); |
834 |
(void)((*(LnkLI32))((V122))); |
(void)((*(LnkLI32))((V126))); |
835 |
princ_str("==Cnil",VV[11]); |
princ_str("==Cnil",VV[11]); |
836 |
V121= cdr((V121)); |
V125= cdr((V125)); |
837 |
V122= car((V121)); |
V126= car((V125)); |
838 |
goto T501;} |
goto T545;} |
839 |
goto T497; |
goto T541; |
840 |
T497:; |
T541:; |
841 |
princ_str("){",VV[11]); |
princ_str("){",VV[11]); |
842 |
goto T466; |
goto T510; |
843 |
T466:; |
T510:; |
844 |
(void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13]))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13]))); |
845 |
princ_char(125,VV[11]); |
princ_char(125,VV[11]); |
846 |
princ_str("\n ",VV[11]); |
princ_str("\n ",VV[11]); |
847 |
(void)((*(LnkLI32))((V107))); |
(void)((*(LnkLI32))((V111))); |
848 |
princ_char(61,VV[11]); |
princ_char(61,VV[11]); |
849 |
(void)((*(LnkLI32))((V108))); |
(void)((*(LnkLI32))((V112))); |
850 |
princ_str("=MMcons(Cnil,Cnil);",VV[11]); |
princ_str("=MMcons(Cnil,Cnil);",VV[11]); |
851 |
if((cdr((V106)))==Cnil){ |
if((cdr((V110)))==Cnil){ |
852 |
goto T525;} |
goto T569;} |
853 |
princ_str("\ngoto T",VV[11]); |
princ_str("\ngoto T",VV[11]); |
854 |
(void)((*(LnkLI32))(car((V106)))); |
(void)((*(LnkLI32))(car((V110)))); |
855 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
856 |
princ_str("\nT",VV[11]); |
princ_str("\nT",VV[11]); |
857 |
(void)((*(LnkLI32))(car((V106)))); |
(void)((*(LnkLI32))(car((V110)))); |
858 |
princ_str(":;",VV[11]); |
princ_str(":;",VV[11]); |
859 |
goto T525; |
goto T569; |
860 |
T525:; |
T569:; |
861 |
bds_bind(VV[14],list(2,VV[21],cadr((V108)))); |
bds_bind(VV[14],list(2,VV[21],cadr((V112)))); |
862 |
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
863 |
bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil)); |
bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil)); |
864 |
bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17]))); |
bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17]))); |
865 |
if(((V104))==Cnil){ |
if(((V108))==Cnil){ |
866 |
goto T543;} |
goto T587;} |
|
{object V124; |
|
|
object V125= (V109); |
|
|
if(endp(V125)){ |
|
|
V123= Cnil; |
|
|
goto T541;} |
|
|
base[5]=V124=MMcons(Cnil,Cnil); |
|
|
goto T545; |
|
|
T545:;{object V127; |
|
|
V127= symbol_value(VV[19]); |
|
|
(V124->c.c_car)= list(3,VV[18],V127,list(2,VV[15],cadr((V125->c.c_car))));} |
|
|
if(endp(V125=MMcdr(V125))){ |
|
|
V123= base[5]; |
|
|
goto T541;} |
|
|
V124=MMcdr(V124)=MMcons(Cnil,Cnil); |
|
|
goto T545;} |
|
|
goto T543; |
|
|
T543:; |
|
867 |
{object V128; |
{object V128; |
868 |
object V129= (V109); |
object V129= (V113); |
869 |
if(endp(V129)){ |
if(endp(V129)){ |
870 |
V123= Cnil; |
V127= Cnil; |
871 |
goto T541;} |
goto T585;} |
872 |
base[5]=V128=MMcons(Cnil,Cnil); |
base[5]=V128=MMcons(Cnil,Cnil); |
873 |
goto T547; |
goto T589; |
874 |
T547:; |
T589:;{object V131; |
875 |
(V128->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V129->c.c_car)); |
V131= symbol_value(VV[19]); |
876 |
if(endp(V129=MMcdr(V129))){ |
(V128->c.c_car)= list(3,VV[18],V131,list(2,VV[15],cadr((V129->c.c_car))));} |
877 |
V123= base[5]; |
V129=MMcdr(V129); |
878 |
goto T541;} |
if(endp(V129)){ |
879 |
|
V127= base[5]; |
880 |
|
goto T585;} |
881 |
V128=MMcdr(V128)=MMcons(Cnil,Cnil); |
V128=MMcdr(V128)=MMcons(Cnil,Cnil); |
882 |
goto T547;} |
goto T589;} |
883 |
goto T541; |
goto T587; |
884 |
T541:; |
T587:; |
885 |
(void)((VFUN_NARGS=3,(*(LnkLI34))((V103),V123,(V110)))); |
{object V132; |
886 |
|
object V133= (V113); |
887 |
|
if(endp(V133)){ |
888 |
|
V127= Cnil; |
889 |
|
goto T585;} |
890 |
|
base[5]=V132=MMcons(Cnil,Cnil); |
891 |
|
goto T591; |
892 |
|
T591:; |
893 |
|
(V132->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V133->c.c_car)); |
894 |
|
V133=MMcdr(V133); |
895 |
|
if(endp(V133)){ |
896 |
|
V127= base[5]; |
897 |
|
goto T585;} |
898 |
|
V132=MMcdr(V132)=MMcons(Cnil,Cnil); |
899 |
|
goto T591;} |
900 |
|
goto T585; |
901 |
|
T585:; |
902 |
|
(void)((VFUN_NARGS=3,(*(LnkLI34))((V107),V127,(V114)))); |
903 |
if((cdr((VV[16]->s.s_dbind)))==Cnil){ |
if((cdr((VV[16]->s.s_dbind)))==Cnil){ |
904 |
bds_unwind1; |
bds_unwind1; |
905 |
bds_unwind1; |
bds_unwind1; |
906 |
bds_unwind1; |
bds_unwind1; |
907 |
goto T535;} |
goto T579;} |
908 |
princ_str("\ngoto T",VV[11]); |
princ_str("\ngoto T",VV[11]); |
909 |
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
910 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
914 |
bds_unwind1; |
bds_unwind1; |
915 |
bds_unwind1; |
bds_unwind1; |
916 |
bds_unwind1; |
bds_unwind1; |
917 |
goto T535; |
goto T579; |
918 |
T535:; |
T579:; |
919 |
if((symbol_value(VV[12]))==Cnil){ |
if((symbol_value(VV[12]))==Cnil){ |
920 |
goto T560;} |
goto T604;} |
921 |
princ_str("\n while(!endp(MMcdr(",VV[11]); |
princ_str("\n {object cdr_",VV[11]); |
922 |
(void)((*(LnkLI32))((V108))); |
(void)((*(LnkLI32))((V112))); |
923 |
princ_str(")))",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
924 |
(void)((*(LnkLI32))((V108))); |
(void)((*(LnkLI32))((V112))); |
925 |
|
princ_str(");while(!endp(cdr_",VV[11]); |
926 |
|
(void)((*(LnkLI32))((V112))); |
927 |
|
princ_str(")) {cdr_",VV[11]); |
928 |
|
(void)((*(LnkLI32))((V112))); |
929 |
|
princ_str("=MMcdr(cdr_",VV[11]); |
930 |
|
(void)((*(LnkLI32))((V112))); |
931 |
|
princ_str(");",VV[11]); |
932 |
|
(void)((*(LnkLI32))((V112))); |
933 |
|
princ_str("=MMcdr(",VV[11]); |
934 |
|
(void)((*(LnkLI32))((V112))); |
935 |
|
princ_str(");}}",VV[11]); |
936 |
|
princ_str("\n ",VV[11]); |
937 |
|
(void)((*(LnkLI32))(car((V113)))); |
938 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
939 |
(void)((*(LnkLI32))((V108))); |
(void)((*(LnkLI32))(car((V113)))); |
940 |
princ_str(");",VV[11]); |
princ_str(");",VV[11]); |
941 |
princ_str("\n if(endp(",VV[11]); |
{register object V135; |
942 |
(void)((*(LnkLI32))(car((V109)))); |
object V136; |
943 |
|
V135= cdr((V113)); |
944 |
|
V136= car((V135)); |
945 |
|
goto T632; |
946 |
|
T632:; |
947 |
|
if(!(endp_prop((V135)))){ |
948 |
|
goto T633;} |
949 |
|
goto T628; |
950 |
|
goto T633; |
951 |
|
T633:; |
952 |
|
princ_str("\n ",VV[11]); |
953 |
|
(void)((*(LnkLI32))((V136))); |
954 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
955 |
(void)((*(LnkLI32))(car((V109)))); |
(void)((*(LnkLI32))((V136))); |
956 |
princ_str("))",VV[11]); |
princ_str(");",VV[11]); |
957 |
{register object V131; |
V135= cdr((V135)); |
958 |
object V132; |
V136= car((V135)); |
959 |
V131= cdr((V109)); |
goto T632;} |
960 |
V132= car((V131)); |
goto T628; |
961 |
goto T580; |
T628:; |
962 |
T580:; |
princ_str("\n if(endp(",VV[11]); |
963 |
if(!(endp((V131)))){ |
(void)((*(LnkLI32))(car((V113)))); |
964 |
goto T581;} |
princ_char(41,VV[11]); |
965 |
goto T576; |
{register object V137; |
966 |
goto T581; |
object V138; |
967 |
T581:; |
V137= cdr((V113)); |
968 |
|
V138= car((V137)); |
969 |
|
goto T656; |
970 |
|
T656:; |
971 |
|
if(!(endp_prop((V137)))){ |
972 |
|
goto T657;} |
973 |
|
goto T652; |
974 |
|
goto T657; |
975 |
|
T657:; |
976 |
princ_str("||endp(",VV[11]); |
princ_str("||endp(",VV[11]); |
977 |
(void)((*(LnkLI32))((V132))); |
(void)((*(LnkLI32))((V138))); |
978 |
princ_str("=MMcdr(",VV[11]); |
princ_char(41,VV[11]); |
979 |
(void)((*(LnkLI32))((V132))); |
V137= cdr((V137)); |
980 |
princ_str("))",VV[11]); |
V138= car((V137)); |
981 |
V131= cdr((V131)); |
goto T656;} |
982 |
V132= car((V131)); |
goto T652; |
983 |
goto T580;} |
T652:; |
984 |
goto T576; |
princ_str("){",VV[11]); |
985 |
T576:; |
goto T602; |
986 |
princ_str("){",VV[11]); |
goto T604; |
987 |
goto T558; |
T604:; |
|
goto T560; |
|
|
T560:; |
|
988 |
princ_str("\n while(MMcdr(",VV[11]); |
princ_str("\n while(MMcdr(",VV[11]); |
989 |
(void)((*(LnkLI32))((V108))); |
(void)((*(LnkLI32))((V112))); |
990 |
princ_str(")!=Cnil)",VV[11]); |
princ_str(")!=Cnil)",VV[11]); |
991 |
(void)((*(LnkLI32))((V108))); |
(void)((*(LnkLI32))((V112))); |
992 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
993 |
(void)((*(LnkLI32))((V108))); |
(void)((*(LnkLI32))((V112))); |
994 |
princ_str(");",VV[11]); |
princ_str(");",VV[11]); |
995 |
princ_str("\n if((",VV[11]); |
princ_str("\n if((",VV[11]); |
996 |
(void)((*(LnkLI32))(car((V109)))); |
(void)((*(LnkLI32))(car((V113)))); |
997 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
998 |
(void)((*(LnkLI32))(car((V109)))); |
(void)((*(LnkLI32))(car((V113)))); |
999 |
princ_str("))==Cnil",VV[11]); |
princ_str("))==Cnil",VV[11]); |
1000 |
{register object V133; |
{register object V139; |
1001 |
object V134; |
object V140; |
1002 |
V133= cdr((V109)); |
V139= cdr((V113)); |
1003 |
V134= car((V133)); |
V140= car((V139)); |
1004 |
goto T615; |
goto T689; |
1005 |
T615:; |
T689:; |
1006 |
if(!(endp((V133)))){ |
if(!(endp_prop((V139)))){ |
1007 |
goto T616;} |
goto T690;} |
1008 |
goto T611; |
goto T685; |
1009 |
goto T616; |
goto T690; |
1010 |
T616:; |
T690:; |
1011 |
princ_str("||(",VV[11]); |
princ_str("||(",VV[11]); |
1012 |
(void)((*(LnkLI32))((V134))); |
(void)((*(LnkLI32))((V140))); |
1013 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
1014 |
(void)((*(LnkLI32))((V134))); |
(void)((*(LnkLI32))((V140))); |
1015 |
princ_str("))==Cnil",VV[11]); |
princ_str("))==Cnil",VV[11]); |
1016 |
V133= cdr((V133)); |
V139= cdr((V139)); |
1017 |
V134= car((V133)); |
V140= car((V139)); |
1018 |
goto T615;} |
goto T689;} |
1019 |
goto T611; |
goto T685; |
1020 |
T611:; |
T685:; |
1021 |
princ_str("){",VV[11]); |
princ_str("){",VV[11]); |
1022 |
goto T558; |
goto T602; |
1023 |
T558:; |
T602:; |
1024 |
princ_str("\n ",VV[11]); |
princ_str("\n ",VV[11]); |
1025 |
(void)((*(LnkLI32))((V107))); |
(void)((*(LnkLI32))((V111))); |
1026 |
princ_char(61,VV[11]); |
princ_char(61,VV[11]); |
1027 |
(void)((*(LnkLI32))((V107))); |
(void)((*(LnkLI32))((V111))); |
1028 |
princ_str("->c.c_cdr;",VV[11]); |
princ_str("->c.c_cdr;",VV[11]); |
1029 |
(void)((VFUN_NARGS=2,(*(LnkLI33))((V107),VV[13]))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))((V111),VV[13]))); |
1030 |
princ_char(125,VV[11]); |
princ_char(125,VV[11]); |
1031 |
princ_str("\n ",VV[11]); |
princ_str("\n ",VV[11]); |
1032 |
if(type_of((V106))!=t_cons)FEwrong_type_argument(Scons,(V106)); |
if(type_of((V110))!=t_cons)FEwrong_type_argument(Scons,(V110)); |
1033 |
((V106))->c.c_cdr = Ct; |
((V110))->c.c_cdr = Ct; |
1034 |
princ_str("goto T",VV[11]); |
princ_str("goto T",VV[11]); |
1035 |
(void)((*(LnkLI32))(car((V106)))); |
(void)((*(LnkLI32))(car((V110)))); |
1036 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
1037 |
princ_char(125,VV[11]); |
princ_char(125,VV[11]); |
1038 |
{object V135 = (*(LnkLI35))(); |
{object V141 = (*(LnkLI35))(); |
1039 |
bds_unwind1; |
bds_unwind1; |
1040 |
bds_unwind1; |
bds_unwind1; |
1041 |
VMR10(V135)}} |
VMR10(V141)}} |
1042 |
base[0]=base[0]; |
base[0]=base[0]; |
1043 |
return Cnil; |
return Cnil; |
1044 |
} |
} |
1045 |
/* local entry for function PUSH-CHANGED-VARS */ |
/* local entry for function PUSH-CHANGED-VARS */ |
1046 |
|
|
1047 |
static object LI11(V138,V139) |
static object LI11(V144,V145) |
1048 |
|
|
1049 |
object V138;object V139; |
object V144;object V145; |
1050 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
1051 |
goto TTL; |
goto TTL; |
1052 |
TTL:; |
TTL:; |
1053 |
{register object V140; |
{register object V146; |
1054 |
register object V141; |
register object V147; |
1055 |
V140= Cnil; |
V146= Cnil; |
1056 |
V141= make_cons((V139),Cnil); |
V147= make_cons((V145),Cnil); |
1057 |
{register object V142; |
{register object V148; |
1058 |
register object V143; |
register object V149; |
1059 |
V142= (V138); |
V148= (V144); |
1060 |
V143= car((V142)); |
V149= car((V148)); |
1061 |
goto T654; |
goto T728; |
1062 |
T654:; |
T728:; |
1063 |
if(!(endp((V142)))){ |
if(!(endp_prop((V148)))){ |
1064 |
goto T655;} |
goto T729;} |
1065 |
{object V144 = reverse((V140)); |
{object V150 = reverse((V146)); |
1066 |
VMR11(V144)} |
VMR11(V150)} |
1067 |
goto T655; |
goto T729; |
1068 |
T655:; |
T729:; |
1069 |
if(!(type_of((V143))==t_cons)){ |
if(!(type_of((V149))==t_cons)){ |
1070 |
goto T661;} |
goto T735;} |
1071 |
if(!((car((V143)))==(VV[22]))){ |
if(!((car((V149)))==(VV[22]))){ |
1072 |
goto T661;} |
goto T735;} |
1073 |
if(((*(LnkLI36))(cadr((V143)),(V141)))==Cnil){ |
if(((*(LnkLI36))(cadr((V149)),(V147)))==Cnil){ |
1074 |
goto T661;} |
goto T735;} |
1075 |
{register object V145; |
{register object V151; |
1076 |
V145= list(2,VV[7],(*(LnkLI28))()); |
V151= list(2,VV[7],(*(LnkLI28))()); |
1077 |
princ_str("\n ",VV[11]); |
princ_str("\n ",VV[11]); |
1078 |
(void)((*(LnkLI32))((V145))); |
(void)((*(LnkLI32))((V151))); |
1079 |
princ_str("= ",VV[11]); |
princ_str("= ",VV[11]); |
1080 |
(void)((*(LnkLI32))((V143))); |
(void)((*(LnkLI32))((V149))); |
1081 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
1082 |
V140= make_cons((V145),(V140)); |
V146= make_cons((V151),(V146)); |
1083 |
goto T659;} |
goto T733;} |
1084 |
goto T661; |
goto T735; |
1085 |
T661:; |
T735:; |
1086 |
V140= make_cons((V143),(V140)); |
V146= make_cons((V149),(V146)); |
1087 |
goto T659; |
goto T733; |
1088 |
T659:; |
T733:; |
1089 |
V142= cdr((V142)); |
V148= cdr((V148)); |
1090 |
V143= car((V142)); |
V149= car((V148)); |
1091 |
goto T654;}} |
goto T728;}} |
1092 |
base[0]=base[0]; |
base[0]=base[0]; |
1093 |
return Cnil; |
return Cnil; |
1094 |
} |
} |