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

Diff of /gcl/cmpnew/gcl_cmptag.c

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

revision 1.2 by camm, Sun Sep 14 02:43:01 2003 UTC revision 1.3 by camm, Tue Sep 23 21:48:28 2003 UTC
# Line 63  TTL:; Line 63  TTL:;
63          goto T12;          goto T12;
64  T12:;  T12:;
65          {object V16;          {object V16;
66          if((car((V12)))==(VV[1])){          if((CMPcar((V12)))==(VV[1])){
67          goto T15;}          goto T15;}
68          V16= Cnil;          V16= Cnil;
69          goto T14;          goto T14;
70          goto T15;          goto T15;
71  T15:;  T15:;
72          V14= cadddr(cdr((V12)));          V14= CMPcadddr(CMPcdr((V12)));
73          base[0]= (V14);          base[0]= (V14);
74          base[1]= VV[0];          base[1]= VV[0];
75          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
# Line 81  T15:; Line 81  T15:;
81          goto T14;          goto T14;
82          goto T17;          goto T17;
83  T17:;  T17:;
84          V17= structure_ref((V14),VV[0],0);          V16= ((STREF(object,(V14),0))==((V13))?Ct:Cnil);
         V16= ((/* INLINE-ARGS */V17)==((V13))?Ct:Cnil);  
85          goto T14;          goto T14;
86  T14:;  T14:;
87          if(((V16))==Cnil){          if(((V16))==Cnil){
88          goto T23;}          goto T23;}
89          {object V18 = (V16);          {object V17 = (V16);
90          VMR2(V18)}          VMR2(V17)}
91          goto T23;          goto T23;
92  T23:;{object V19;  T23:;{object V18;
93          V19= (*(LnkLI46))(car((V12)),(V13));          V18= (*(LnkLI46))(CMPcar((V12)),(V13));
94          if(V19==Cnil)goto T25;          if(V18==Cnil)goto T25;
95          {object V20 = V19;          {object V19 = V18;
96          VMR2(V20)}          VMR2(V19)}
97          goto T25;          goto T25;
98  T25:;}  T25:;}
99          V12= cdr((V12));          V12= CMPcdr((V12));
100          goto TTL;}}          goto TTL;}}
101          base[0]=base[0];          base[0]=base[0];
102          return Cnil;          return Cnil;
103  }  }
104  /*      local entry for function ADD-REG1       */  /*      local entry for function ADD-REG1       */
105    
106  static object LI3(V22)  static object LI3(V21)
107    
108  register object V22;  register object V21;
109  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
110          goto TTL;          goto TTL;
111  TTL:;  TTL:;
112          if(!(type_of((V22))!=t_cons)){          if(!(type_of((V21))!=t_cons)){
113          goto T31;}          goto T31;}
114          base[0]= (V22);          base[0]= (V21);
115          base[1]= VV[2];          base[1]= VV[2];
116          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
117          (void) (*Lnk45)();          (void) (*Lnk45)();
118          vs_top=sup;          vs_top=sup;
119          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
120          goto T34;}          goto T34;}
121          {long V23= fix(structure_ref((V22),VV[2],6));          V22 = CMPmake_fixnum((long)(fix(STREF(object,(V21),24)))+(fix((VV[3]->s.s_dbind))));
122          V24 = make_fixnum((long)(/* INLINE-ARGS */V23)+(fix(symbol_value(VV[3]))));          V23= Ct;
123          {object V25 = structure_set((V22),VV[2],6,V24);          STSET(object,(V21),24, V22);
124          VMR3(V25)}}          {object V24 = V22;
125            VMR3(V24)}
126          goto T34;          goto T34;
127  T34:;  T34:;
128          {object V26 = Cnil;          {object V25 = Cnil;
129          VMR3(V26)}          VMR3(V25)}
130          goto T31;          goto T31;
131  T31:;  T31:;
132          (void)((*(LnkLI47))(car((V22))));          (void)((*(LnkLI47))(CMPcar((V21))));
133          V22= cdr((V22));          V21= CMPcdr((V21));
134          goto TTL;          goto TTL;
135          base[0]=base[0];          base[0]=base[0];
136          return Cnil;          return Cnil;
137  }  }
138  /*      local entry for function ADD-LOOP-REGISTERS     */  /*      local entry for function ADD-LOOP-REGISTERS     */
139    
140  static object LI4(V28)  static object LI4(V27)
141    
142  object V28;  object V27;
143  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
144          goto TTL;          goto TTL;
145  TTL:;  TTL:;
146          {register object V29;          {register object V28;
147            register object V29;
148          register object V30;          register object V30;
149          register object V31;          V28= (V27);
150          V29= (V28);          V29= Cnil;
151          V30= Cnil;          V30= Cnil;
         V31= Cnil;  
152          goto T42;          goto T42;
153  T42:;  T42:;
154          if(((V29))!=Cnil){          if(((V28))!=Cnil){
155          goto T43;}          goto T43;}
156          {register object V32;          {register object V31;
157          V32= (V31);          V31= (V30);
158          goto T47;          goto T47;
159  T47:;  T47:;
160          if(!(((V32))==((V30)))){          if(!(((V31))==((V29)))){
161          goto T48;}          goto T48;}
162          {object V33 = (*(LnkLI47))(car((V32)));          {object V32 = (*(LnkLI47))(CMPcar((V31)));
163          VMR4(V33)}          VMR4(V32)}
164          goto T48;          goto T48;
165  T48:;  T48:;
166          (void)((*(LnkLI47))(car((V32))));          (void)((*(LnkLI47))(CMPcar((V31))));
167          V32= cdr((V32));          V31= CMPcdr((V31));
168          goto T47;}          goto T47;}
169          goto T43;          goto T43;
170  T43:;  T43:;
171          base[0]= car((V29));          base[0]= CMPcar((V28));
172          base[1]= VV[0];          base[1]= VV[0];
173          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
174          (void) (*Lnk45)();          (void) (*Lnk45)();
175          vs_top=sup;          vs_top=sup;
176          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
177          goto T57;}          goto T57;}
178          if((V31)!=Cnil){          if((V30)!=Cnil){
179          goto T62;}          goto T62;}
180          V31= (V29);          V30= (V28);
181          goto T62;          goto T62;
182  T62:;  T62:;
183          {register object V34;          {register object V33;
184          register object V35;          register object V34;
185          V34= cdr((V29));          V33= CMPcdr((V28));
186          V35= structure_ref(car((V29)),VV[0],0);          V34= STREF(object,CMPcar((V28)),0);
187          goto T67;          goto T67;
188  T67:;  T67:;
189          if(((V34))!=Cnil){          if(((V33))!=Cnil){
190          goto T68;}          goto T68;}
191          goto T57;          goto T57;
192          goto T68;          goto T68;
193  T68:;  T68:;
194          if(((*(LnkLI46))(car((V34)),(V35)))==Cnil){          if(((*(LnkLI46))(CMPcar((V33)),(V34)))==Cnil){
195          goto T72;}          goto T72;}
196          V30= (V34);          V29= (V33);
197          goto T72;          goto T72;
198  T72:;  T72:;
199          V34= cdr((V34));          V33= CMPcdr((V33));
200          goto T67;}          goto T67;}
201          goto T57;          goto T57;
202  T57:;  T57:;
203          V29= cdr((V29));          V28= CMPcdr((V28));
204          goto T42;}          goto T42;}
205          base[0]=base[0];          base[0]=base[0];
206          return Cnil;          return Cnil;
207  }  }
208  /*      local entry for function C1TAGBODY      */  /*      local entry for function C1TAGBODY      */
209    
210  static object LI5(V37)  static object LI5(V36)
211    
212  object V37;  object V36;
213  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
214          bds_check;          bds_check;
215          goto TTL;          goto TTL;
216  TTL:;  TTL:;
217          {register object V38;          {register object V37;
218          bds_bind(VV[4],symbol_value(VV[4]));          bds_bind(VV[4],(VV[4]->s.s_dbind));
219          V38= (VFUN_NARGS=0,(*(LnkLI48))());          V37= (VFUN_NARGS=0,(*(LnkLI48))());
220          {object V39;          {object V38;
221          object V40= (V37);          object V39= (V36);
222          if(endp(V40)){          if(V39==Cnil){
223          V37= Cnil;          V36= Cnil;
224          goto T84;}          goto T84;}
225          base[2]=V39=MMcons(Cnil,Cnil);          base[2]=V38=MMcons(Cnil,Cnil);
226          goto T85;          goto T85;
227  T85:;  T85:;
228          if(type_of((V40->c.c_car))==t_symbol){          if(type_of((V39->c.c_car))==t_symbol){
229          goto T87;}          goto T87;}
230          if(!(type_of((V40->c.c_car))==t_fixnum||type_of((V40->c.c_car))==t_bignum)){          if(!(type_of((V39->c.c_car))==t_fixnum||type_of((V39->c.c_car))==t_bignum)){
231          goto T88;}          goto T88;}
232          goto T87;          goto T87;
233  T87:;  T87:;
234          {object V42;          {object V41;
235          V42= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V40->c.c_car),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil));          V41= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V39->c.c_car),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil));
236          (VV[4]->s.s_dbind)= make_cons(V42,(VV[4]->s.s_dbind));          (VV[4]->s.s_dbind)= make_cons(V41,(VV[4]->s.s_dbind));
237          (V39->c.c_car)= (V42);          (V38->c.c_car)= (V41);
238          goto T86;}          goto T86;}
239          goto T88;          goto T88;
240  T88:;  T88:;
241          (V39->c.c_car)= (V40->c.c_car);          (V38->c.c_car)= (V39->c.c_car);
242          goto T86;          goto T86;
243  T86:;  T86:;
244          V40=MMcdr(V40);          if((V39=MMcdr(V39))==Cnil){
245          if(endp(V40)){          V36= base[2];
         V37= base[2];  
246          goto T84;}          goto T84;}
247          V39=MMcdr(V39)=MMcons(Cnil,Cnil);          V38=MMcdr(V38)=MMcons(Cnil,Cnil);
248          goto T85;}          goto T85;}
249          goto T84;          goto T84;
250  T84:;  T84:;
251          {object V44;          {object V43;
252          object V45= (V37);          object V44= (V36);
253          if(endp(V45)){          if(V44==Cnil){
254          V37= Cnil;          V36= Cnil;
255          goto T96;}          goto T96;}
256          base[2]=V44=MMcons(Cnil,Cnil);          base[2]=V43=MMcons(Cnil,Cnil);
257          goto T97;          goto T97;
258  T97:;  T97:;
259          base[3]= (V45->c.c_car);          base[3]= (V44->c.c_car);
260          base[4]= VV[0];          base[4]= VV[0];
261          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
262          (void) (*Lnk45)();          (void) (*Lnk45)();
263          vs_top=sup;          vs_top=sup;
264          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
265          goto T100;}          goto T100;}
266          (V44->c.c_car)= (V45->c.c_car);          (V43->c.c_car)= (V44->c.c_car);
267          goto T98;          goto T98;
268          goto T100;          goto T100;
269  T100:;  T100:;
270          (V44->c.c_car)= (*(LnkLI50))((V45->c.c_car),(V38));          (V43->c.c_car)= (*(LnkLI50))((V44->c.c_car),(V37));
271          goto T98;          goto T98;
272  T98:;  T98:;
273          V45=MMcdr(V45);          if((V44=MMcdr(V44))==Cnil){
274          if(endp(V45)){          V36= base[2];
         V37= base[2];  
275          goto T96;}          goto T96;}
276          V44=MMcdr(V44)=MMcons(Cnil,Cnil);          V43=MMcdr(V43)=MMcons(Cnil,Cnil);
277          goto T97;}          goto T97;}
278          goto T96;          goto T96;
279  T96:;  T96:;
280          {register object V47;          {register object V46;
281            register object V47;
282          register object V48;          register object V48;
283          register object V49;          register object V49;
284          register object V50;          register object V50;
285          register object V51;          V46= (V36);
286          V47= (V37);          V47= Cnil;
287          V48= Cnil;          V48= Cnil;
288          V49= Cnil;          V49= Cnil;
289          V50= Cnil;          V50= Cnil;
         V51= Cnil;  
290          goto T105;          goto T105;
291  T105:;  T105:;
292          if(!(endp_prop((V47)))){          if(!(((V46))==Cnil)){
293          goto T106;}          goto T106;}
         if(((V51))!=Cnil){  
         goto T109;}  
294          if(((V50))!=Cnil){          if(((V50))!=Cnil){
295          goto T109;}          goto T109;}
296          if(((V49))==Cnil){          if(((V49))!=Cnil){
297            goto T109;}
298            if(((V48))==Cnil){
299          goto T110;}          goto T110;}
300          goto T109;          goto T109;
301  T109:;  T109:;
302          V48= reverse((V48));          V47= reverse((V47));
303          if(((V50))!=Cnil){          if(((V49))!=Cnil){
304          goto T119;}          goto T119;}
305          if(((V51))==Cnil){          if(((V50))==Cnil){
306          goto T120;}          goto T120;}
307          goto T119;          goto T119;
308  T119:;  T119:;
309          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          (VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1));
310          goto T118;          goto T118;
311          goto T120;          goto T120;
312  T120:;  T120:;
313          (void)((*(LnkLI51))((V48)));          (void)((*(LnkLI51))((V47)));
314          goto T118;          goto T118;
315  T118:;  T118:;
316          {object V52 = list(5,VV[10],(V38),(V50),(V51),(V48));          {object V51 = list(5,VV[10],(V37),(V49),(V50),(V47));
317          bds_unwind1;          bds_unwind1;
318          VMR5(V52)}          VMR5(V51)}
319          goto T110;          goto T110;
320  T110:;  T110:;
321          V53= (*(LnkLI52))();          V52= (*(LnkLI52))();
322          V54= make_cons(/* INLINE-ARGS */V53,(V48));          V53= make_cons(/* INLINE-ARGS */V52,(V47));
323          {object V55 = list(3,VV[11],(V38),reverse(/* INLINE-ARGS */V54));          {object V54 = list(3,VV[11],(V37),reverse(/* INLINE-ARGS */V53));
324          bds_unwind1;          bds_unwind1;
325          VMR5(V55)}          VMR5(V54)}
326          goto T106;          goto T106;
327  T106:;  T106:;
328          base[2]= car((V47));          base[2]= CMPcar((V46));
329          base[3]= VV[0];          base[3]= VV[0];
330          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
331          (void) (*Lnk45)();          (void) (*Lnk45)();
332          vs_top=sup;          vs_top=sup;
333          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
334          goto T128;}          goto T128;}
335          if((structure_ref(car((V47)),VV[0],3))==Cnil){          if((STREF(object,CMPcar((V46)),12))==Cnil){
336          goto T133;}          goto T133;}
337          {object V56;          {object V55;
338          V56= car((V47));          V55= CMPcar((V46));
339          V48= make_cons((V56),(V48));}          V47= make_cons((V55),(V47));}
340          V57= car((V47));          V56= CMPcar((V46));
341          V58= structure_ref(car((V47)),VV[0],0);          V57= (*(LnkLI53))(STREF(object,CMPcar((V46)),0));
342          V59= (*(LnkLI53))(/* INLINE-ARGS */V58);          V58= Ct;
343          (void)(structure_set(/* INLINE-ARGS */V57,VV[0],6,/* INLINE-ARGS */V59));          STSET(object,/* INLINE-ARGS */V56,24, /* INLINE-ARGS */V57);
344          V51= Ct;          (void)(/* INLINE-ARGS */V57);
345            V50= Ct;
346          goto T126;          goto T126;
347          goto T133;          goto T133;
348  T133:;  T133:;
349          if((structure_ref(car((V47)),VV[0],2))==Cnil){          if((STREF(object,CMPcar((V46)),8))==Cnil){
350          goto T141;}          goto T141;}
351          {object V60;          {object V59;
352          V60= car((V47));          V59= CMPcar((V46));
353          V48= make_cons((V60),(V48));}          V47= make_cons((V59),(V47));}
354          V61= car((V47));          V60= CMPcar((V46));
355          V62= structure_ref(car((V47)),VV[0],0);          V61= (*(LnkLI53))(STREF(object,CMPcar((V46)),0));
356          V63= (*(LnkLI53))(/* INLINE-ARGS */V62);          V62= Ct;
357          (void)(structure_set(/* INLINE-ARGS */V61,VV[0],6,/* INLINE-ARGS */V63));          STSET(object,/* INLINE-ARGS */V60,24, /* INLINE-ARGS */V61);
358          V50= Ct;          (void)(/* INLINE-ARGS */V61);
359            V49= Ct;
360          goto T126;          goto T126;
361          goto T141;          goto T141;
362  T141:;  T141:;
363          if((structure_ref(car((V47)),VV[0],1))==Cnil){          if((STREF(object,CMPcar((V46)),4))==Cnil){
364          goto T126;}          goto T126;}
365          {object V64;          {object V63;
366          V64= car((V47));          V63= CMPcar((V46));
367          V48= make_cons((V64),(V48));}          V47= make_cons((V63),(V47));}
368          V49= Ct;          V48= Ct;
369          goto T126;          goto T126;
370          goto T128;          goto T128;
371  T128:;  T128:;
372          {object V65;          {object V64;
373          V65= car((V47));          V64= CMPcar((V46));
374          V48= make_cons((V65),(V48));}          V47= make_cons((V64),(V47));}
375          goto T126;          goto T126;
376  T126:;  T126:;
377          V47= cdr((V47));          V46= CMPcdr((V46));
378          goto T105;}}          goto T105;}}
379          base[0]=base[0];          base[0]=base[0];
380          return Cnil;          return Cnil;
381  }  }
382  /*      local entry for function C2TAGBODY      */  /*      local entry for function C2TAGBODY      */
383    
384  static object LI6(V69,V70,V71)  static object LI6(V68,V69,V70)
385    
386  object V69;object V70;object V71;  object V68;object V69;object V70;
387  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
388          goto TTL;          goto TTL;
389  TTL:;  TTL:;
390          if(((V70))==Cnil){          if(((V69))==Cnil){
391          goto T160;}          goto T160;}
392          {object V72 = (*(LnkLI54))((V71));          {object V71 = (*(LnkLI54))((V70));
393          VMR6(V72)}          VMR6(V71)}
394          goto T160;          goto T160;
395  T160:;  T160:;
396          if(((V69))==Cnil){          if(((V68))==Cnil){
397          goto T163;}          goto T163;}
398          {object V73 = (*(LnkLI55))((V71));          {object V72 = (*(LnkLI55))((V70));
399          VMR6(V73)}          VMR6(V72)}
400          goto T163;          goto T163;
401  T163:;  T163:;
402          {object V74 = (*(LnkLI56))((V71));          {object V73 = (*(LnkLI56))((V70));
403          VMR6(V74)}          VMR6(V73)}
404          return Cnil;          return Cnil;
405  }  }
406  /*      local entry for function C2TAGBODY-LOCAL        */  /*      local entry for function C2TAGBODY-LOCAL        */
407    
408  static object LI7(V76)  static object LI7(V75)
409    
410  object V76;  object V75;
411  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
412          bds_check;          bds_check;
413          goto TTL;          goto TTL;
414  TTL:;  TTL:;
415            {register object V76;
416            (VV[12]->s.s_dbind)= number_plus((VV[12]->s.s_dbind),small_fixnum(1));
417            V76= make_cons((VV[12]->s.s_dbind),Cnil);
418          {register object V77;          {register object V77;
419          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          register object V78;
420          V77= make_cons(symbol_value(VV[12]),Cnil);          V77= (V75);
421          {register object V78;          V78= CMPcar((V77));
         register object V79;  
         V78= (V76);  
         V79= car((V78));  
422          goto T171;          goto T171;
423  T171:;  T171:;
424          if(!(endp_prop((V78)))){          if(!(((V77))==Cnil)){
425          goto T172;}          goto T172;}
426          goto T167;          goto T167;
427          goto T172;          goto T172;
428  T172:;  T172:;
429          base[2]= (V79);          base[2]= (V78);
430          base[3]= VV[0];          base[3]= VV[0];
431          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
432          (void) (*Lnk45)();          (void) (*Lnk45)();
433          vs_top=sup;          vs_top=sup;
434          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
435          goto T176;}          goto T176;}
436          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          (VV[12]->s.s_dbind)= number_plus((VV[12]->s.s_dbind),small_fixnum(1));
437          V80= make_cons(symbol_value(VV[12]),Ct);          V79= make_cons((VV[12]->s.s_dbind),Ct);
438          (void)(structure_set((V79),VV[0],4,/* INLINE-ARGS */V80));          V80= Ct;
439          (void)(structure_set((V79),VV[0],5,(V77)));          STSET(object,(V78),16, /* INLINE-ARGS */V79);
440            (void)(/* INLINE-ARGS */V79);
441            V81= Ct;
442            STSET(object,(V78),20, (V76));
443            (void)((V76));
444          goto T176;          goto T176;
445  T176:;  T176:;
446          V78= cdr((V78));          V77= CMPcdr((V77));
447          V79= car((V78));          V78= CMPcar((V77));
448          goto T171;}          goto T171;}
449          goto T167;          goto T167;
450  T167:;  T167:;
451          base[1]= make_cons((V77),symbol_value(VV[13]));          base[1]= make_cons((V76),(VV[13]->s.s_dbind));
452          bds_bind(VV[13],base[1]);          bds_bind(VV[13],base[1]);
453          {object V81 = (*(LnkLI57))((V76));          {object V82 = (*(LnkLI57))((V75));
454          bds_unwind1;          bds_unwind1;
455          VMR7(V81)}}          VMR7(V82)}}
456          base[0]=base[0];          base[0]=base[0];
457          return Cnil;          return Cnil;
458  }  }
459  /*      local entry for function C2TAGBODY-BODY */  /*      local entry for function C2TAGBODY-BODY */
460    
461  static object LI8(V83)  static object LI8(V84)
462    
463  object V83;  object V84;
464  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
465          bds_check;          bds_check;
466          goto TTL;          goto TTL;
467  TTL:;  TTL:;
468          {register object V84;          {register object V85;
469          register object V85;          register object V86;
470          V84= (V83);          V85= (V84);
471          V85= Cnil;          V86= Cnil;
472          goto T190;          goto T190;
473  T190:;  T190:;
474          if(!(endp_prop(cdr((V84))))){          if(!((CMPcdr((V85)))==Cnil)){
475          goto T191;}          goto T191;}
476          if(((V85))==Cnil){          if(((V86))==Cnil){
477          goto T195;}          goto T195;}
478          {object V86 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));          {object V87 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));
479          VMR8(V86)}          VMR8(V87)}
480          goto T195;          goto T195;
481  T195:;  T195:;
482          base[0]= car((V84));          base[0]= CMPcar((V85));
483          base[1]= VV[0];          base[1]= VV[0];
484          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
485          (void) (*Lnk45)();          (void) (*Lnk45)();
486          vs_top=sup;          vs_top=sup;
487          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
488          goto T198;}          goto T198;}
489          V87= structure_ref(car((V84)),VV[0],7);          (void)((*(LnkLI59))(STREF(object,CMPcar((V85)),28)));
490          (void)((*(LnkLI59))(/* INLINE-ARGS */V87));          if((CMPcdr(STREF(object,CMPcar((V85)),16)))==Cnil){
         V88= structure_ref(car((V84)),VV[0],4);  
         if((cdr(/* INLINE-ARGS */V88))==Cnil){  
491          goto T203;}          goto T203;}
492          princ_str("\n   goto T",VV[14]);          princ_str("\n   goto T",VV[14]);
493          V89= structure_ref(car((V84)),VV[0],4);          (void)((*(LnkLI60))(CMPcar(STREF(object,CMPcar((V85)),16))));
         (void)((*(LnkLI60))(car(/* INLINE-ARGS */V89)));  
494          princ_char(59,VV[14]);          princ_char(59,VV[14]);
495          princ_str("\nT",VV[14]);          princ_str("\nT",VV[14]);
496          V90= structure_ref(car((V84)),VV[0],4);          (void)((*(LnkLI60))(CMPcar(STREF(object,CMPcar((V85)),16))));
         (void)((*(LnkLI60))(car(/* INLINE-ARGS */V90)));  
497          princ_str(":;",VV[14]);          princ_str(":;",VV[14]);
498          goto T203;          goto T203;
499  T203:;  T203:;
500          {object V91 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));          {object V88 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));
501          VMR8(V91)}          VMR8(V88)}
502          goto T198;          goto T198;
503  T198:;  T198:;
504          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          (VV[12]->s.s_dbind)= number_plus((VV[12]->s.s_dbind),small_fixnum(1));
505          bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil));          bds_bind(VV[15],make_cons((VV[12]->s.s_dbind),Cnil));
506          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),(VV[13]->s.s_dbind)));
507          bds_bind(VV[16],VV[17]);          bds_bind(VV[16],VV[17]);
508          base[3]= car((V84));          base[3]= CMPcar((V85));
509          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
510          (void) (*Lnk61)();          (void) (*Lnk61)();
511          vs_top=sup;          vs_top=sup;
512          if((cdr((VV[15]->s.s_dbind)))==Cnil){          if((CMPcdr((VV[15]->s.s_dbind)))==Cnil){
513          bds_unwind1;          bds_unwind1;
514          bds_unwind1;          bds_unwind1;
515          bds_unwind1;          bds_unwind1;
516          goto T213;}          goto T213;}
517          princ_str("\n   goto T",VV[14]);          princ_str("\n   goto T",VV[14]);
518          (void)((*(LnkLI60))(car((VV[15]->s.s_dbind))));          (void)((*(LnkLI60))(CMPcar((VV[15]->s.s_dbind))));
519          princ_char(59,VV[14]);          princ_char(59,VV[14]);
520          princ_str("\nT",VV[14]);          princ_str("\nT",VV[14]);
521          (void)((*(LnkLI60))(car((VV[15]->s.s_dbind))));          (void)((*(LnkLI60))(CMPcar((VV[15]->s.s_dbind))));
522          princ_str(":;",VV[14]);          princ_str(":;",VV[14]);
523          bds_unwind1;          bds_unwind1;
524          bds_unwind1;          bds_unwind1;
525          bds_unwind1;          bds_unwind1;
526          goto T213;          goto T213;
527  T213:;  T213:;
528          if((caar((V84)))==(VV[1])){          if((CMPcaar((V85)))==(VV[1])){
529          goto T229;}          goto T229;}
530          {object V92 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));          {object V89 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));
531          VMR8(V92)}          VMR8(V89)}
532          goto T229;          goto T229;
533  T229:;  T229:;
534          {object V93 = Cnil;          {object V90 = Cnil;
535          VMR8(V93)}          VMR8(V90)}
536          goto T191;          goto T191;
537  T191:;  T191:;
538          if(((V85))==Cnil){          if(((V86))==Cnil){
539          goto T234;}          goto T234;}
540          V85= Cnil;          V86= Cnil;
541          goto T232;          goto T232;
542          goto T234;          goto T234;
543  T234:;  T234:;
544          base[0]= car((V84));          base[0]= CMPcar((V85));
545          base[1]= VV[0];          base[1]= VV[0];
546          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
547          (void) (*Lnk45)();          (void) (*Lnk45)();
548          vs_top=sup;          vs_top=sup;
549          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
550          goto T238;}          goto T238;}
551          V94= structure_ref(car((V84)),VV[0],7);          (void)((*(LnkLI59))(STREF(object,CMPcar((V85)),28)));
552          (void)((*(LnkLI59))(/* INLINE-ARGS */V94));          if((CMPcdr(STREF(object,CMPcar((V85)),16)))==Cnil){
         V95= structure_ref(car((V84)),VV[0],4);  
         if((cdr(/* INLINE-ARGS */V95))==Cnil){  
553          goto T232;}          goto T232;}
554          princ_str("\n   goto T",VV[14]);          princ_str("\n   goto T",VV[14]);
555          V96= structure_ref(car((V84)),VV[0],4);          (void)((*(LnkLI60))(CMPcar(STREF(object,CMPcar((V85)),16))));
         (void)((*(LnkLI60))(car(/* INLINE-ARGS */V96)));  
556          princ_char(59,VV[14]);          princ_char(59,VV[14]);
557          princ_str("\nT",VV[14]);          princ_str("\nT",VV[14]);
558          V97= structure_ref(car((V84)),VV[0],4);          (void)((*(LnkLI60))(CMPcar(STREF(object,CMPcar((V85)),16))));
         (void)((*(LnkLI60))(car(/* INLINE-ARGS */V97)));  
559          princ_str(":;",VV[14]);          princ_str(":;",VV[14]);
560          goto T232;          goto T232;
561          goto T238;          goto T238;
562  T238:;  T238:;
563          base[3]= cadr((V84));          base[3]= CMPcadr((V85));
564          base[4]= VV[0];          base[4]= VV[0];
565          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
566          (void) (*Lnk45)();          (void) (*Lnk45)();
567          vs_top=sup;          vs_top=sup;
568          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
569          goto T254;}          goto T254;}
570          V85= Ct;          V86= Ct;
571          bds_bind(VV[15],structure_ref(cadr((V84)),VV[0],4));          bds_bind(VV[15],STREF(object,CMPcadr((V85)),16));
572          goto T252;          goto T252;
573          goto T254;          goto T254;
574  T254:;  T254:;
575          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          (VV[12]->s.s_dbind)= number_plus((VV[12]->s.s_dbind),small_fixnum(1));
576          bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil));          bds_bind(VV[15],make_cons((VV[12]->s.s_dbind),Cnil));
577          goto T252;          goto T252;
578  T252:;  T252:;
579          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),(VV[13]->s.s_dbind)));
580          bds_bind(VV[16],VV[17]);          bds_bind(VV[16],VV[17]);
581          base[3]= car((V84));          base[3]= CMPcar((V85));
582          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
583          (void) (*Lnk61)();          (void) (*Lnk61)();
584          vs_top=sup;          vs_top=sup;
585          base[3]= cadr((V84));          base[3]= CMPcadr((V85));
586          base[4]= VV[0];          base[4]= VV[0];
587          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
588          (void) (*Lnk45)();          (void) (*Lnk45)();
# Line 596  T252:; Line 592  T252:;
592          goto T264;          goto T264;
593          goto T265;          goto T265;
594  T265:;  T265:;
595          V98= structure_ref(cadr((V84)),VV[0],7);          (void)((*(LnkLI59))(STREF(object,CMPcadr((V85)),28)));
         (void)((*(LnkLI59))(/* INLINE-ARGS */V98));  
596          goto T264;          goto T264;
597  T264:;  T264:;
598          if((cdr((VV[15]->s.s_dbind)))==Cnil){          if((CMPcdr((VV[15]->s.s_dbind)))==Cnil){
599          bds_unwind1;          bds_unwind1;
600          bds_unwind1;          bds_unwind1;
601          bds_unwind1;          bds_unwind1;
602          goto T232;}          goto T232;}
603          princ_str("\n   goto T",VV[14]);          princ_str("\n   goto T",VV[14]);
604          (void)((*(LnkLI60))(car((VV[15]->s.s_dbind))));          (void)((*(LnkLI60))(CMPcar((VV[15]->s.s_dbind))));
605          princ_char(59,VV[14]);          princ_char(59,VV[14]);
606          princ_str("\nT",VV[14]);          princ_str("\nT",VV[14]);
607          (void)((*(LnkLI60))(car((VV[15]->s.s_dbind))));          (void)((*(LnkLI60))(CMPcar((VV[15]->s.s_dbind))));
608          princ_str(":;",VV[14]);          princ_str(":;",VV[14]);
609          bds_unwind1;          bds_unwind1;
610          bds_unwind1;          bds_unwind1;
611          bds_unwind1;          bds_unwind1;
612          goto T232;          goto T232;
613  T232:;  T232:;
614          V84= cdr((V84));          V85= CMPcdr((V85));
615          goto T190;}          goto T190;}
616          base[0]=base[0];          base[0]=base[0];
617          return Cnil;          return Cnil;
618  }  }
619  /*      local entry for function C2TAGBODY-CLB  */  /*      local entry for function C2TAGBODY-CLB  */
620    
621  static object LI9(V100)  static object LI9(V92)
622    
623  object V100;  object V92;
624  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
625          bds_check;          bds_check;
626          goto TTL;          goto TTL;
627  TTL:;  TTL:;
628          {register object V101;          {register object V93;
629          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          (VV[12]->s.s_dbind)= number_plus((VV[12]->s.s_dbind),small_fixnum(1));
630          V101= make_cons(symbol_value(VV[12]),Cnil);          V93= make_cons((VV[12]->s.s_dbind),Cnil);
631          bds_bind(VV[18],symbol_value(VV[18]));          bds_bind(VV[18],(VV[18]->s.s_dbind));
632          {register object V102;          {register object V94;
633          base[2]= make_cons(VV[19],symbol_value(VV[13]));          base[2]= make_cons(VV[19],(VV[13]->s.s_dbind));
634          V102= (*(LnkLI62))();          V94= (*(LnkLI62))();
635          bds_bind(VV[13],base[2]);          bds_bind(VV[13],base[2]);
636          princ_str("\n   ",VV[14]);          princ_str("\n   ",VV[14]);
637          (void)((*(LnkLI63))((V102)));          (void)((*(LnkLI63))((V94)));
638          princ_str("=alloc_frame_id();",VV[14]);          princ_str("=alloc_frame_id();",VV[14]);
639          princ_str("\n   frs_push(FRS_CATCH,",VV[14]);          princ_str("\n   frs_push(FRS_CATCH,",VV[14]);
640          (void)((*(LnkLI63))((V102)));          (void)((*(LnkLI63))((V94)));
641          princ_str(");",VV[14]);          princ_str(");",VV[14]);
642          princ_str("\n   if(nlj_active){",VV[14]);          princ_str("\n   if(nlj_active){",VV[14]);
643          princ_str("\n   nlj_active=FALSE;",VV[14]);          princ_str("\n   nlj_active=FALSE;",VV[14]);
644          {register object V103;          {register object V95;
645          register object V104;          register object V96;
646          V103= (V100);          V95= (V92);
647          V104= car((V103));          V96= CMPcar((V95));
648          goto T302;          goto T302;
649  T302:;  T302:;
650          if(!(endp_prop((V103)))){          if(!(((V95))==Cnil)){
651          goto T303;}          goto T303;}
652          goto T298;          goto T298;
653          goto T303;          goto T303;
654  T303:;  T303:;
655          base[4]= (V104);          base[4]= (V96);
656          base[5]= VV[0];          base[5]= VV[0];
657          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
658          (void) (*Lnk45)();          (void) (*Lnk45)();
659          vs_top=sup;          vs_top=sup;
660          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
661          goto T307;}          goto T307;}
662          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          (VV[12]->s.s_dbind)= number_plus((VV[12]->s.s_dbind),small_fixnum(1));
663          V105= make_cons(symbol_value(VV[12]),Ct);          V97= make_cons((VV[12]->s.s_dbind),Ct);
664          (void)(structure_set((V104),VV[0],4,/* INLINE-ARGS */V105));          V98= Ct;
665          (void)(structure_set((V104),VV[0],5,(V101)));          STSET(object,(V96),16, /* INLINE-ARGS */V97);
666          if((structure_ref((V104),VV[0],2))==Cnil){          (void)(/* INLINE-ARGS */V97);
667            V99= Ct;
668            STSET(object,(V96),20, (V93));
669            (void)((V93));
670            if((STREF(object,(V96),8))==Cnil){
671          goto T307;}          goto T307;}
672          (void)(structure_set((V104),VV[0],2,(V102)));          V100= Ct;
673            STSET(object,(V96),8, (V94));
674            (void)((V94));
675          princ_str("\n   if(eql(nlj_tag,VV[",VV[14]);          princ_str("\n   if(eql(nlj_tag,VV[",VV[14]);
676          V106= structure_ref((V104),VV[0],6);          (void)((*(LnkLI60))(STREF(object,(V96),24)));
         (void)((*(LnkLI60))(/* INLINE-ARGS */V106));  
677          princ_str("]))",VV[14]);          princ_str("]))",VV[14]);
678          V107= structure_ref((V104),VV[0],4);          (STREF(object,(V96),16))->c.c_cdr = Ct;
679          if(type_of(/* INLINE-ARGS */V107)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V107);          (void)(STREF(object,(V96),16));
         (/* INLINE-ARGS */V107)->c.c_cdr = Ct;  
680          princ_str("goto T",VV[14]);          princ_str("goto T",VV[14]);
681          V108= structure_ref((V104),VV[0],4);          (void)((*(LnkLI60))(CMPcar(STREF(object,(V96),16))));
         (void)((*(LnkLI60))(car(/* INLINE-ARGS */V108)));  
682          princ_char(59,VV[14]);          princ_char(59,VV[14]);
683          goto T307;          goto T307;
684  T307:;  T307:;
685          V103= cdr((V103));          V95= CMPcdr((V95));
686          V104= car((V103));          V96= CMPcar((V95));
687          goto T302;}          goto T302;}
688          goto T298;          goto T298;
689  T298:;  T298:;
690          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]);
691          princ_str("\n   }",VV[14]);          princ_str("\n   }",VV[14]);
692          base[3]= make_cons((V101),(VV[13]->s.s_dbind));          base[3]= make_cons((V93),(VV[13]->s.s_dbind));
693          bds_bind(VV[13],base[3]);          bds_bind(VV[13],base[3]);
694          {object V109 = (*(LnkLI57))((V100));          {object V101 = (*(LnkLI57))((V92));
695          bds_unwind1;          bds_unwind1;
696          bds_unwind1;          bds_unwind1;
697          bds_unwind1;          bds_unwind1;
698          VMR9(V109)}}}          VMR9(V101)}}}
699          base[0]=base[0];          base[0]=base[0];
700          return Cnil;          return Cnil;
701  }  }
702  /*      local entry for function C2TAGBODY-CCB  */  /*      local entry for function C2TAGBODY-CCB  */
703    
704  static object LI10(V111)  static object LI10(V103)
705    
706  object V111;  object V103;
707  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
708          bds_check;          bds_check;
709          goto TTL;          goto TTL;
710  TTL:;  TTL:;
711          {register object V112;          {register object V104;
712          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          (VV[12]->s.s_dbind)= number_plus((VV[12]->s.s_dbind),small_fixnum(1));
713          V112= make_cons(symbol_value(VV[12]),Cnil);          V104= make_cons((VV[12]->s.s_dbind),Cnil);
714          bds_bind(VV[18],symbol_value(VV[18]));          bds_bind(VV[18],(VV[18]->s.s_dbind));
715          bds_bind(VV[20],symbol_value(VV[20]));          bds_bind(VV[20],(VV[20]->s.s_dbind));
716          bds_bind(VV[21],symbol_value(VV[21]));          bds_bind(VV[21],(VV[21]->s.s_dbind));
717          {register object V113;          {register object V105;
718          register object V114;          register object V106;
719          base[4]= make_cons(VV[19],symbol_value(VV[13]));          base[4]= make_cons(VV[19],(VV[13]->s.s_dbind));
720          V113= (*(LnkLI62))();          V105= (*(LnkLI62))();
721          bds_bind(VV[13],base[4]);          bds_bind(VV[13],base[4]);
722          V114= Cnil;          V106= Cnil;
723          princ_str("\n   ",VV[14]);          princ_str("\n   ",VV[14]);
724          (void)((*(LnkLI63))((V113)));          (void)((*(LnkLI63))((V105)));
725          princ_str("=alloc_frame_id();",VV[14]);          princ_str("=alloc_frame_id();",VV[14]);
726          princ_str("\n   ",VV[14]);          princ_str("\n   ",VV[14]);
727          (void)((*(LnkLI63))((V113)));          (void)((*(LnkLI63))((V105)));
728          princ_str("=MMcons(",VV[14]);          princ_str("=MMcons(",VV[14]);
729          (void)((*(LnkLI63))((V113)));          (void)((*(LnkLI63))((V105)));
730          princ_char(44,VV[14]);          princ_char(44,VV[14]);
731          (void)((VFUN_NARGS=0,(*(LnkLI64))()));          (void)((VFUN_NARGS=0,(*(LnkLI64))()));
732          princ_str(");",VV[14]);          princ_str(");",VV[14]);
733          (void)((*(LnkLI65))((V113)));          (void)((*(LnkLI65))((V105)));
734          V114= (*(LnkLI66))();          V106= (*(LnkLI66))();
735          princ_str("\n   frs_push(FRS_CATCH,",VV[14]);          princ_str("\n   frs_push(FRS_CATCH,",VV[14]);
736          (void)((*(LnkLI67))((V113)));          (void)((*(LnkLI67))((V105)));
737          princ_str(");",VV[14]);          princ_str(");",VV[14]);
738          princ_str("\n   if(nlj_active){",VV[14]);          princ_str("\n   if(nlj_active){",VV[14]);
739          princ_str("\n   nlj_active=FALSE;",VV[14]);          princ_str("\n   nlj_active=FALSE;",VV[14]);
740          {register object V115;          {register object V107;
741          register object V116;          register object V108;
742          V115= (V111);          V107= (V103);
743          V116= car((V115));          V108= CMPcar((V107));
744          goto T370;          goto T370;
745  T370:;  T370:;
746          if(!(endp_prop((V115)))){          if(!(((V107))==Cnil)){
747          goto T371;}          goto T371;}
748          goto T366;          goto T366;
749          goto T371;          goto T371;
750  T371:;  T371:;
751          base[6]= (V116);          base[6]= (V108);
752          base[7]= VV[0];          base[7]= VV[0];
753          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
754          (void) (*Lnk45)();          (void) (*Lnk45)();
755          vs_top=sup;          vs_top=sup;
756          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
757          goto T375;}          goto T375;}
758          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          (VV[12]->s.s_dbind)= number_plus((VV[12]->s.s_dbind),small_fixnum(1));
759          V117= make_cons(symbol_value(VV[12]),Ct);          V109= make_cons((VV[12]->s.s_dbind),Ct);
760          (void)(structure_set((V116),VV[0],4,/* INLINE-ARGS */V117));          V110= Ct;
761          (void)(structure_set((V116),VV[0],5,(V112)));          STSET(object,(V108),16, /* INLINE-ARGS */V109);
762          if((structure_ref((V116),VV[0],2))!=Cnil){          (void)(/* INLINE-ARGS */V109);
763            V111= Ct;
764            STSET(object,(V108),20, (V104));
765            (void)((V104));
766            if((STREF(object,(V108),8))!=Cnil){
767          goto T383;}          goto T383;}
768          if((structure_ref((V116),VV[0],3))==Cnil){          if((STREF(object,(V108),12))==Cnil){
769          goto T375;}          goto T375;}
770          goto T383;          goto T383;
771  T383:;  T383:;
772          (void)(structure_set((V116),VV[0],2,(V113)));          V112= Ct;
773          if((structure_ref((V116),VV[0],3))==Cnil){          STSET(object,(V108),8, (V105));
774            (void)((V105));
775            if((STREF(object,(V108),12))==Cnil){
776          goto T388;}          goto T388;}
777          (void)(structure_set((V116),VV[0],3,(V114)));          V113= Ct;
778            STSET(object,(V108),12, (V106));
779            (void)((V106));
780          goto T388;          goto T388;
781  T388:;  T388:;
782          princ_str("\n   if(eql(nlj_tag,VV[",VV[14]);          princ_str("\n   if(eql(nlj_tag,VV[",VV[14]);
783          V118= structure_ref((V116),VV[0],6);          (void)((*(LnkLI60))(STREF(object,(V108),24)));
         (void)((*(LnkLI60))(/* INLINE-ARGS */V118));  
784          princ_str("]))",VV[14]);          princ_str("]))",VV[14]);
785          V119= structure_ref((V116),VV[0],4);          (STREF(object,(V108),16))->c.c_cdr = Ct;
786          if(type_of(/* INLINE-ARGS */V119)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V119);          (void)(STREF(object,(V108),16));
         (/* INLINE-ARGS */V119)->c.c_cdr = Ct;  
787          princ_str("goto T",VV[14]);          princ_str("goto T",VV[14]);
788          V120= structure_ref((V116),VV[0],4);          (void)((*(LnkLI60))(CMPcar(STREF(object,(V108),16))));
         (void)((*(LnkLI60))(car(/* INLINE-ARGS */V120)));  
789          princ_char(59,VV[14]);          princ_char(59,VV[14]);
790          goto T375;          goto T375;
791  T375:;  T375:;
792          V115= cdr((V115));          V107= CMPcdr((V107));
793          V116= car((V115));          V108= CMPcar((V107));
794          goto T370;}          goto T370;}
795          goto T366;          goto T366;
796  T366:;  T366:;
797          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]);
798          princ_str("\n   }",VV[14]);          princ_str("\n   }",VV[14]);
799          base[5]= make_cons((V112),(VV[13]->s.s_dbind));          base[5]= make_cons((V104),(VV[13]->s.s_dbind));
800          bds_bind(VV[13],base[5]);          bds_bind(VV[13],base[5]);
801          {object V121 = (*(LnkLI57))((V111));          {object V114 = (*(LnkLI57))((V103));
802          bds_unwind1;          bds_unwind1;
803          bds_unwind1;          bds_unwind1;
804          bds_unwind1;          bds_unwind1;
805          bds_unwind1;          bds_unwind1;
806          bds_unwind1;          bds_unwind1;
807          VMR10(V121)}}}          VMR10(V114)}}}
808          base[0]=base[0];          base[0]=base[0];
809          return Cnil;          return Cnil;
810  }  }
811  /*      local entry for function C1GO   */  /*      local entry for function C1GO   */
812    
813  static object LI11(V123)  static object LI11(V116)
814    
815  object V123;  object V116;
816  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
817          goto TTL;          goto TTL;
818  TTL:;  TTL:;
819          if(!(endp_prop((V123)))){          if(!(((V116))==Cnil)){
820          goto T411;}          goto T411;}
821          (void)((*(LnkLI68))(VV[1],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI68))(VV[1],small_fixnum(1),small_fixnum(0)));
822          goto T409;          goto T409;
823          goto T411;          goto T411;
824  T411:;  T411:;
825          if(endp_prop(cdr((V123)))){          if((CMPcdr((V116)))==Cnil){
826          goto T414;}          goto T414;}
827          V124 = make_fixnum((long)length((V123)));          V117 = CMPmake_fixnum((long)length((V116)));
828          (void)((*(LnkLI69))(VV[1],small_fixnum(1),V124));          (void)((*(LnkLI69))(VV[1],small_fixnum(1),V117));
829          goto T409;          goto T409;
830          goto T414;          goto T414;
831  T414:;  T414:;
832          if(type_of(car((V123)))==t_symbol){          if(type_of(CMPcar((V116)))==t_symbol){
833          goto T409;}          goto T409;}
834          {object V125= car((V123));          {object V118= CMPcar((V116));
835          if(type_of(V125)==t_fixnum||type_of(V125)==t_bignum){          if(type_of(V118)==t_fixnum||type_of(V118)==t_bignum){
836          goto T409;}}          goto T409;}}
837          (void)(car((V123)));          (void)(CMPcar((V116)));
838          goto T409;          goto T409;
839  T409:;  T409:;
840          {register object V126;          {register object V119;
841          register object V127;          register object V120;
842          register object V128;          register object V121;
843          register object V129;          register object V122;
844          V126= symbol_value(VV[4]);          V119= (VV[4]->s.s_dbind);
845          V127= car((V123));          V120= CMPcar((V116));
846          V128= Cnil;          V121= Cnil;
847          V129= Cnil;          V122= Cnil;
848          goto T424;          goto T424;
849  T424:;  T424:;
850          if(!(endp_prop((V126)))){          if(!(((V119))==Cnil)){
851          goto T425;}          goto T425;}
852          {object V130 = (VFUN_NARGS=2,(*(LnkLI70))(VV[23],(V127)));          {object V123 = (VFUN_NARGS=2,(*(LnkLI70))(VV[23],(V120)));
853          VMR11(V130)}          VMR11(V123)}
854          goto T425;          goto T425;
855  T425:;  T425:;
856          {object V131= car((V126));          {object V124= CMPcar((V119));
857          if((V131!= VV[71]))goto T430;          if((V124!= VV[71]))goto T430;
858          V128= Ct;          V121= Ct;
859          goto T429;          goto T429;
860          goto T430;          goto T430;
861  T430:;  T430:;
862          if((V131!= VV[72]))goto T432;          if((V124!= VV[72]))goto T432;
863          V129= Ct;          V122= Ct;
864          goto T429;          goto T429;
865          goto T432;          goto T432;
866  T432:;  T432:;
867          V132= structure_ref(car((V126)),VV[0],0);          if(!((STREF(object,CMPcar((V119)),0))==((V120)))){
         if(!((/* INLINE-ARGS */V132)==((V127)))){  
868          goto T429;}          goto T429;}
869          {register object V133;          {register object V125;
870          V133= car((V126));          V125= CMPcar((V119));
871          if(((V128))==Cnil){          if(((V121))==Cnil){
872          goto T439;}          goto T439;}
873          (void)(structure_set((V133),VV[0],3,Ct));          V126= Ct;
874            STSET(object,(V125),12, Ct);
875            (void)(Ct);
876          goto T437;          goto T437;
877          goto T439;          goto T439;
878  T439:;  T439:;
879          if(((V129))==Cnil){          if(((V122))==Cnil){
880          goto T442;}          goto T442;}
881          (void)(structure_set((V133),VV[0],2,Ct));          V127= Ct;
882            STSET(object,(V125),8, Ct);
883            (void)(Ct);
884          goto T437;          goto T437;
885          goto T442;          goto T442;
886  T442:;  T442:;
887          (void)(structure_set((V133),VV[0],1,Ct));          V128= Ct;
888            STSET(object,(V125),4, Ct);
889            (void)(Ct);
890          goto T437;          goto T437;
891  T437:;  T437:;
892          {object V134 = list(5,VV[1],symbol_value(VV[24]),(V129),(V128),(V133));          {object V129 = list(5,VV[1],(VV[24]->s.s_dbind),(V122),(V121),(V125));
893          VMR11(V134)}}}          VMR11(V129)}}}
894          goto T429;          goto T429;
895  T429:;  T429:;
896          V126= cdr((V126));          V119= CMPcdr((V119));
897          goto T424;}          goto T424;}
898          return Cnil;          return Cnil;
899  }  }
900  /*      local entry for function C2GO   */  /*      local entry for function C2GO   */
901    
902  static object LI12(V138,V139,V140)  static object LI12(V133,V134,V135)
903    
904  object V138;object V139;object V140;  object V133;object V134;object V135;
905  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
906          goto TTL;          goto TTL;
907  TTL:;  TTL:;
908          if(((V139))==Cnil){          if(((V134))==Cnil){
909          goto T448;}          goto T448;}
910          {object V141 = (*(LnkLI73))((V140));          {object V136 = (*(LnkLI73))((V135));
911          VMR12(V141)}          VMR12(V136)}
912          goto T448;          goto T448;
913  T448:;  T448:;
914          if(((V138))==Cnil){          if(((V133))==Cnil){
915          goto T451;}          goto T451;}
916          {object V142 = (*(LnkLI74))((V140));          {object V137 = (*(LnkLI74))((V135));
917          VMR12(V142)}          VMR12(V137)}
918          goto T451;          goto T451;
919  T451:;  T451:;
920          {object V143 = (*(LnkLI75))((V140));          {object V138 = (*(LnkLI75))((V135));
921          VMR12(V143)}          VMR12(V138)}
922          return Cnil;          return Cnil;
923  }  }
924  /*      local entry for function C2GO-LOCAL     */  /*      local entry for function C2GO-LOCAL     */
925    
926  static object LI13(V145)  static object LI13(V140)
927    
928  object V145;  object V140;
929  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
930          goto TTL;          goto TTL;
931  TTL:;  TTL:;
932          V146= structure_ref((V145),VV[0],5);          (void)((*(LnkLI76))(STREF(object,(V140),20)));
         (void)((*(LnkLI76))(/* INLINE-ARGS */V146));  
933          princ_str("\n   ",VV[14]);          princ_str("\n   ",VV[14]);
934          V147= structure_ref((V145),VV[0],4);          (STREF(object,(V140),16))->c.c_cdr = Ct;
935          if(type_of(/* INLINE-ARGS */V147)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V147);          (void)(STREF(object,(V140),16));
         (/* INLINE-ARGS */V147)->c.c_cdr = Ct;  
936          princ_str("goto T",VV[14]);          princ_str("goto T",VV[14]);
937          V148= structure_ref((V145),VV[0],4);          (void)((*(LnkLI60))(CMPcar(STREF(object,(V140),16))));
         (void)((*(LnkLI60))(car(/* INLINE-ARGS */V148)));  
938          princ_char(59,VV[14]);          princ_char(59,VV[14]);
939          {object V149 = Cnil;          {object V141 = Cnil;
940          VMR13(V149)}          VMR13(V141)}
941          return Cnil;          return Cnil;
942  }  }
943  /*      local entry for function C2GO-CLB       */  /*      local entry for function C2GO-CLB       */
944    
945  static object LI14(V151)  static object LI14(V143)
946    
947  register object V151;  register object V143;
948  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
949          goto TTL;          goto TTL;
950  TTL:;  TTL:;
951          princ_str("\n   vs_base=vs_top;",VV[14]);          princ_str("\n   vs_base=vs_top;",VV[14]);
952          princ_str("\n   unwind(frs_sch(",VV[14]);          princ_str("\n   unwind(frs_sch(",VV[14]);
953          if((structure_ref((V151),VV[0],3))==Cnil){          if((STREF(object,(V143),12))==Cnil){
954          goto T465;}          goto T465;}
955          V152= structure_ref((V151),VV[0],2);          (void)((*(LnkLI67))(STREF(object,(V143),8)));
         (void)((*(LnkLI67))(/* INLINE-ARGS */V152));  
956          goto T463;          goto T463;
957          goto T465;          goto T465;
958  T465:;  T465:;
959          V153= structure_ref((V151),VV[0],2);          (void)((*(LnkLI63))(STREF(object,(V143),8)));
         (void)((*(LnkLI63))(/* INLINE-ARGS */V153));  
960          goto T463;          goto T463;
961  T463:;  T463:;
962          princ_str("),VV[",VV[14]);          princ_str("),VV[",VV[14]);
963          V154= structure_ref((V151),VV[0],6);          (void)((*(LnkLI60))(STREF(object,(V143),24)));
         (void)((*(LnkLI60))(/* INLINE-ARGS */V154));  
964          princ_str("]);",VV[14]);          princ_str("]);",VV[14]);
965          {object V155 = Cnil;          {object V144 = Cnil;
966          VMR14(V155)}          VMR14(V144)}
967          return Cnil;          return Cnil;
968  }  }
969  /*      local entry for function C2GO-CCB       */  /*      local entry for function C2GO-CCB       */
970    
971  static object LI15(V157)  static object LI15(V146)
972    
973  object V157;  object V146;
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          V158= structure_ref((V157),VV[0],3);          (void)((*(LnkLI77))(STREF(object,(V146),12)));
         (void)((*(LnkLI77))(/* INLINE-ARGS */V158));  
980          princ_str(");",VV[14]);          princ_str(");",VV[14]);
981          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]);
982          V159= structure_ref((V157),VV[0],6);          (void)((*(LnkLI60))(STREF(object,(V146),24)));
         (void)((*(LnkLI60))(/* INLINE-ARGS */V159));  
983          princ_str("]);",VV[14]);          princ_str("]);",VV[14]);
984          princ_str("\n   vs_base=vs_top;",VV[14]);          princ_str("\n   vs_base=vs_top;",VV[14]);
985          princ_str("\n   unwind(fr,VV[",VV[14]);          princ_str("\n   unwind(fr,VV[",VV[14]);
986          V160= structure_ref((V157),VV[0],6);          (void)((*(LnkLI60))(STREF(object,(V146),24)));
         (void)((*(LnkLI60))(/* INLINE-ARGS */V160));  
987          princ_str("]);}",VV[14]);          princ_str("]);}",VV[14]);
988          {object V161 = Cnil;          {object V147 = Cnil;
989          VMR15(V161)}          VMR15(V147)}
990          return Cnil;          return Cnil;
991  }  }
992  /*      local entry for function WT-SWITCH-CASE */  /*      local entry for function WT-SWITCH-CASE */
993    
994  static object LI16(V163)  static object LI16(V149)
995    
996  register object V163;  register object V149;
997  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
998          goto TTL;          goto TTL;
999  TTL:;  TTL:;
1000          if(((V163))==Cnil){          if(((V149))==Cnil){
1001          goto T487;}          goto T487;}
1002          princ_str("\n   ",VV[14]);          princ_str("\n   ",VV[14]);
1003          if(!(type_of((V163))==t_fixnum)){          if(!(type_of((V149))==t_fixnum)){
1004          goto T493;}          goto T493;}
1005          V164= VV[25];          V150= VV[25];
1006          goto T491;          goto T491;
1007          goto T493;          goto T493;
1008  T493:;  T493:;
1009          V164= VV[26];          V150= VV[26];
1010          goto T491;          goto T491;
1011  T491:;  T491:;
1012          (void)((*(LnkLI60))(V164));          (void)((*(LnkLI60))(V150));
1013          (void)((*(LnkLI60))((V163)));          (void)((*(LnkLI60))((V149)));
1014          princ_char(58,VV[14]);          princ_char(58,VV[14]);
1015          {object V165 = Cnil;          {object V151 = Cnil;
1016          VMR16(V165)}          VMR16(V151)}
1017          goto T487;          goto T487;
1018  T487:;  T487:;
1019          {object V166 = Cnil;          {object V152 = Cnil;
1020          VMR16(V166)}          VMR16(V152)}
1021          return Cnil;          return Cnil;
1022  }  }
1023  /*      local entry for function C1SWITCH       */  /*      local entry for function C1SWITCH       */
1024    
1025  static object LI17(V168)  static object LI17(V154)
1026    
1027  object V168;  object V154;
1028  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
1029          bds_check;          bds_check;
1030          goto TTL;          goto TTL;
1031  TTL:;  TTL:;
1032          bds_bind(VV[4],symbol_value(VV[4]));          bds_bind(VV[4],(VV[4]->s.s_dbind));
1033          {object V169;          {object V155;
1034          register object V170;          register object V156;
1035          object V171;          object V157;
1036          V169= car((V168));          V155= CMPcar((V154));
1037          V170= cdr((V168));          V156= CMPcdr((V154));
1038          V171= (*(LnkLI78))((V169));          V157= (*(LnkLI78))((V155));
1039          base[4]= cadr((V171));          base[4]= CMPcadr((V157));
1040          base[5]= VV[27];          base[5]= VV[27];
1041          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1042          (void) (*Lnk45)();          (void) (*Lnk45)();
1043          vs_top=sup;          vs_top=sup;
1044          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1045          goto T501;}          goto T501;}
1046          base[4]= structure_ref(cadr((V171)),VV[27],2);          base[4]= STREF(object,CMPcadr((V157)),8);
1047          base[5]= VV[28];          base[5]= VV[28];
1048          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1049          (void) (*Lnk79)();          (void) (*Lnk79)();
1050          vs_top=sup;          vs_top=sup;
1051          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1052          goto T501;}{object V172;          goto T501;}{object V158;
1053          {register object x= Ct,V173= (V170);          {register object x= Ct,V159= (V156);
1054          while(!endp(V173))          while(V159!=Cnil)
1055          if(eql(x,V173->c.c_car)){          if(eql(x,V159->c.c_car)){
1056          V172= V173;          V158= V159;
1057          goto T511;          goto T511;
1058          }else V173=V173->c.c_cdr;          }else V159=V159->c.c_cdr;
1059          V172= Cnil;}          V158= Cnil;}
1060          goto T511;          goto T511;
1061  T511:;  T511:;
1062          if(V172==Cnil)goto T510;          if(V158==Cnil)goto T510;
1063          goto T509;          goto T509;
1064          goto T510;          goto T510;
1065  T510:;}  T510:;}
1066          V174= make_cons(Ct,Cnil);          V160= make_cons(Ct,Cnil);
1067          V170= append((V170),/* INLINE-ARGS */V174);          V156= append((V156),/* INLINE-ARGS */V160);
1068          goto T509;          goto T509;
1069  T509:;  T509:;
1070          {object V175;          {object V161;
1071          object V176= (V170);          object V162= (V156);
1072          if(endp(V176)){          if(V162==Cnil){
1073          V170= Cnil;          V156= Cnil;
1074          goto T514;}          goto T514;}
1075          base[4]=V175=MMcons(Cnil,Cnil);          base[4]=V161=MMcons(Cnil,Cnil);
1076          goto T515;          goto T515;
1077  T515:;  T515:;
1078          {register object V177;          {register object V163;
1079          V177= (V176->c.c_car);          V163= (V162->c.c_car);
1080          if(type_of((V177))==t_symbol){          if(type_of((V163))==t_symbol){
1081          goto T517;}          goto T517;}
1082          if(!(type_of((V177))==t_fixnum||type_of((V177))==t_bignum)){          if(!(type_of((V163))==t_fixnum||type_of((V163))==t_bignum)){
1083          goto T518;}          goto T518;}
1084          goto T517;          goto T517;
1085  T517:;  T517:;
1086          {register object V178;          {register object V164;
1087          V178= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V177),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil));          V164= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V163),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil));
1088          if(!(type_of((V177))==t_fixnum)){          if(!(type_of((V163))==t_fixnum)){
1089          goto T525;}          goto T525;}
1090          (void)(structure_set((V178),VV[0],1,Ct));          V165= Ct;
1091          (void)(structure_set((V178),VV[0],7,(V177)));          STSET(object,(V164),4, Ct);
1092            (void)(Ct);
1093            V166= Ct;
1094            STSET(object,(V164),28, (V163));
1095            (void)((V163));
1096          goto T523;          goto T523;
1097          goto T525;          goto T525;
1098  T525:;  T525:;
1099          if(!((Ct)==((V177)))){          if(!((Ct)==((V163)))){
1100          goto T523;}          goto T523;}
1101          (void)(structure_set((V178),VV[0],1,Ct));          V167= Ct;
1102          (void)(structure_set((V178),VV[0],7,VV[29]));          STSET(object,(V164),4, Ct);
1103            (void)(Ct);
1104            V168= Ct;
1105            STSET(object,(V164),28, VV[29]);
1106            (void)(VV[29]);
1107          goto T523;          goto T523;
1108  T523:;  T523:;
1109          (V175->c.c_car)= (V178);          (V161->c.c_car)= (V164);
1110          goto T516;}          goto T516;}
1111          goto T518;          goto T518;
1112  T518:;  T518:;
1113          (V175->c.c_car)= (V177);}          (V161->c.c_car)= (V163);}
1114          goto T516;          goto T516;
1115  T516:;  T516:;
1116          V176=MMcdr(V176);          if((V162=MMcdr(V162))==Cnil){
1117          if(endp(V176)){          V156= base[4];
         V170= base[4];  
1118          goto T514;}          goto T514;}
1119          V175=MMcdr(V175)=MMcons(Cnil,Cnil);          V161=MMcdr(V161)=MMcons(Cnil,Cnil);
1120          goto T515;}          goto T515;}
1121          goto T514;          goto T514;
1122  T514:;  T514:;
1123          {object V179;          {object V169;
1124          V180= append((V170),VV[30]);          V170= append((V156),VV[30]);
1125          V179= (*(LnkLI80))(/* INLINE-ARGS */V180);          V169= (*(LnkLI80))(/* INLINE-ARGS */V170);
1126          V181= list(3,VV[31],cadr((V179)),(V171));          V171= list(3,VV[31],CMPcadr((V169)),(V157));
1127          {object V182 = nconc(/* INLINE-ARGS */V181,cddr((V179)));          {object V172 = nconc(/* INLINE-ARGS */V171,CMPcddr((V169)));
1128          bds_unwind1;          bds_unwind1;
1129          VMR17(V182)}}          VMR17(V172)}}
1130          goto T501;          goto T501;
1131  T501:;  T501:;
1132          V183= make_cons(VV[31],(V168));          V173= make_cons(VV[31],(V154));
1133          V184= (*(LnkLI81))(/* INLINE-ARGS */V183);          V174= (*(LnkLI81))(/* INLINE-ARGS */V173);
1134          {object V185 = (*(LnkLI78))(/* INLINE-ARGS */V184);          {object V175 = (*(LnkLI78))(/* INLINE-ARGS */V174);
1135          bds_unwind1;          bds_unwind1;
1136          VMR17(V185)}}          VMR17(V175)}}
1137          base[0]=base[0];          base[0]=base[0];
1138          return Cnil;          return Cnil;
1139  }  }
1140  /*      local entry for function C2SWITCH       */  /*      local entry for function C2SWITCH       */
1141    
1142  static object LI18(V190,V191,V192,V193)  static object LI18(V180,V181,V182,V183)
1143    
1144  object V190;object V191;object V192;object V193;  object V180;object V181;object V182;object V183;
1145  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1146          bds_check;          bds_check;
1147          goto TTL;          goto TTL;
1148  TTL:;  TTL:;
1149          bds_bind(VV[32],small_fixnum(0));          bds_bind(VV[32],small_fixnum(0));
1150          bds_bind(VV[18],symbol_value(VV[18]));          bds_bind(VV[18],(VV[18]->s.s_dbind));
1151          {object V194;          {object V184;
1152          V195= make_cons((V190),Cnil);          V185= make_cons((V180),Cnil);
1153          V194= (VFUN_NARGS=2,(*(LnkLI82))(/* INLINE-ARGS */V195,VV[33]));          V184= (VFUN_NARGS=2,(*(LnkLI82))(/* INLINE-ARGS */V185,VV[33]));
1154          base[2]= VV[34];          base[2]= VV[34];
1155          base[3]= (V194);          base[3]= (V184);
1156          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1157          (void) (*Lnk83)();          (void) (*Lnk83)();
1158          vs_top=sup;          vs_top=sup;
1159          if(((V192))==Cnil){          if(((V182))==Cnil){
1160          goto T538;}          goto T538;}
1161          (void)((*(LnkLI54))((V193)));          (void)((*(LnkLI54))((V183)));
1162          goto T536;          goto T536;
1163          goto T538;          goto T538;
1164  T538:;  T538:;
1165          if(((V191))==Cnil){          if(((V181))==Cnil){
1166          goto T541;}          goto T541;}
1167          (void)((*(LnkLI55))((V193)));          (void)((*(LnkLI55))((V183)));
1168          goto T536;          goto T536;
1169          goto T541;          goto T541;
1170  T541:;  T541:;
1171          (void)((*(LnkLI56))((V193)));          (void)((*(LnkLI56))((V183)));
1172          goto T536;          goto T536;
1173  T536:;  T536:;
1174          princ_char(125,VV[14]);          princ_char(125,VV[14]);
1175          (void)((VFUN_NARGS=1,(*(LnkLI58))(Cnil)));          (void)((VFUN_NARGS=1,(*(LnkLI58))(Cnil)));
1176          {object V196 = (*(LnkLI84))();          {object V186 = (*(LnkLI84))();
1177          bds_unwind1;          bds_unwind1;
1178          bds_unwind1;          bds_unwind1;
1179          VMR18(V196)}}          VMR18(V186)}}
1180          base[0]=base[0];          base[0]=base[0];
1181          return Cnil;          return Cnil;
1182  }  }
# Line 1179  T536:; Line 1185  T536:;
1185  static void L19()  static void L19()
1186  {register object *base=vs_base;  {register object *base=vs_base;
1187          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
1188          vs_reserve(VM19);          vs_check;
         check_arg(2);  
1189          vs_top=sup;          vs_top=sup;
1190          {object V197=base[0]->c.c_cdr;          {object V187=base[0]->c.c_cdr;
1191          if(endp(V197))invalid_macro_call();          base[2]= (V187->c.c_car);
1192          base[2]= (V197->c.c_car);          V187=V187->c.c_cdr;
1193          V197=V197->c.c_cdr;          base[3]= V187;
         base[3]= V197;  
1194          base[4]= Cnil;}          base[4]= Cnil;}
1195          {register object V198;          {register object V188;
1196          register object V199;          register object V189;
1197          V198= base[3];          V188= base[3];
1198          V199= car((V198));          V189= CMPcar((V188));
1199          goto T551;          goto T551;
1200  T551:;  T551:;
1201          if(!(endp_prop((V198)))){          if(!(((V188))==Cnil)){
1202          goto T552;}          goto T552;}
1203          goto T547;          goto T547;
1204          goto T552;          goto T552;
1205  T552:;  T552:;
1206          if(!(type_of((V199))==t_fixnum||type_of((V199))==t_bignum)){          if(!(type_of((V189))==t_fixnum||type_of((V189))==t_bignum)){
1207          goto T556;}          goto T556;}
1208          {register object V200;          {register object V190;
1209          V201= list(3,VV[36],(V199),base[2]);          V191= list(3,VV[36],(V189),base[2]);
1210          V200= list(4,VV[35],/* INLINE-ARGS */V201,list(2,VV[1],(V199)),Cnil);          V190= list(4,VV[35],/* INLINE-ARGS */V191,list(2,VV[1],(V189)),Cnil);
1211          base[4]= make_cons((V200),base[4]);}          base[4]= make_cons((V190),base[4]);}
1212          goto T556;          goto T556;
1213  T556:;  T556:;
1214          V198= cdr((V198));          V188= CMPcdr((V188));
1215          V199= car((V198));          V189= CMPcar((V188));
1216          goto T551;}          goto T551;}
1217          goto T547;          goto T547;
1218  T547:;  T547:;
1219          V202= nreverse(base[4]);          V192= nreverse(base[4]);
1220          base[5]= base[3];          base[5]= base[3];
1221          {register object x= Ct,V204= base[3];          {register object x= Ct,V194= base[3];
1222          while(!endp(V204))          while(V194!=Cnil)
1223          if(eql(x,V204->c.c_car)){          if(eql(x,V194->c.c_car)){
1224          goto T571;          goto T571;
1225          }else V204=V204->c.c_cdr;          }else V194=V194->c.c_cdr;
1226          goto T570;}          goto T570;}
1227          goto T571;          goto T571;
1228  T571:;  T571:;
# Line 1233  T568:; Line 1237  T568:;
1237          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1238          Lappend();          Lappend();
1239          vs_top=sup;          vs_top=sup;
1240          V203= vs_base[0];          V193= vs_base[0];
1241          V205= make_cons(VV[37],V203);          V195= make_cons(VV[37],V193);
1242          V206= append(/* INLINE-ARGS */V202,/* INLINE-ARGS */V205);          V196= append(/* INLINE-ARGS */V192,/* INLINE-ARGS */V195);
1243          base[5]= make_cons(VV[10],/* INLINE-ARGS */V206);          base[5]= make_cons(VV[10],/* INLINE-ARGS */V196);
1244          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1245          return;          return;
1246  }  }
# Line 1245  T568:; Line 1249  T568:;
1249  static void L20()  static void L20()
1250  {register object *base=vs_base;  {register object *base=vs_base;
1251          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
1252          vs_reserve(VM20);          vs_check;
         check_arg(2);  
1253          vs_top=sup;          vs_top=sup;
         {object V207=base[0]->c.c_cdr;  
         if(!endp(V207))invalid_macro_call();}  
1254          base[2]= VV[40];          base[2]= VV[40];
1255          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1256          return;          return;

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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