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

Diff of /gcl/cmpnew/cmptag.c

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

revision 1.6 by camm, Tue Sep 24 19:01:45 2002 UTC revision 1.7 by camm, Mon Oct 14 05:24:42 2002 UTC
# Line 235  goto T87; Line 235  goto T87;
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;
# Line 251  T86:; Line 251  T86:;
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:;
# Line 314  T119:; Line 314  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;
# Line 507  T194:; Line 515  T194:;
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]);
# Line 517  T194:; Line 525  T194:;
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]);
# Line 608  T260:; Line 616  T260:;
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  }  }
# Line 1176  static void L19() Line 1184  static void L19()
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  }  }
# Line 1241  static void L20() Line 1250  static void L20()
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;

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

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