/[gcl]/gcl/cmpnew/cmpmap.c
ViewVC logotype

Diff of /gcl/cmpnew/cmpmap.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by camm, Fri Aug 2 22:23:58 2002 UTC revision 1.6 by camm, Tue Sep 24 19:01:45 2002 UTC
# Line 86  TTL:; Line 86  TTL:;
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:;
# Line 138  goto T19; Line 138  goto T19;
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);
# Line 165  T18:; Line 166  T18:;
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;
# Line 194  T34:; Line 195  T34:;
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;
# Line 220  T60:; Line 221  T60:;
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;
# Line 269  goto T137; Line 270  goto T137;
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);
# Line 285  T135:; Line 287  T135:;
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);
# Line 311  goto T127; Line 314  goto T127;
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;
# Line 346  T152:; Line 371  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:;
# Line 384  T150:; Line 409  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]);
# Line 582  T335:; Line 610  T335:;
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]);
# Line 861  T541:; Line 914  T541:;
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  }  }

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26