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

Diff of /gcl/cmpnew/gcl_cmpvar.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 73  T12:; Line 73  T12:;
73          goto T15;          goto T15;
74  T15:;  T15:;
75          {register object x= (V13),V19= (V14);          {register object x= (V13),V19= (V14);
76          while(!endp(V19))          while(V19!=Cnil)
77          if(eql(x,V19->c.c_car)){          if(eql(x,V19->c.c_car)){
78          goto T20;          goto T20;
79          }else V19=V19->c.c_cdr;}          }else V19=V19->c.c_cdr;}
# Line 85  T15:; Line 85  T15:;
85          goto T21;}          goto T21;}
86          goto T20;          goto T20;
87  T20:;  T20:;
88          (void)(structure_set((V18),VV[0],1,VV[4]));          V20= Ct;
89          V20= (*(LnkLI68))((V13));          STSET(object,(V18),4, VV[4]);
90          (void)(structure_set((V18),VV[0],4,/* INLINE-ARGS */V20));          (void)(VV[4]);
91          {register object x= (V13),V21= (V16);          V21= (*(LnkLI68))((V13));
92          while(!endp(V21))          V22= Ct;
93          if(type_of(V21->c.c_car)==t_cons &&eql(x,V21->c.c_car->c.c_car)){          STSET(object,(V18),16, /* INLINE-ARGS */V21);
94          V17= (V21->c.c_car);          (void)(/* INLINE-ARGS */V21);
95            {register object x= (V13),V23= (V16);
96            while(V23!=Cnil)
97            if(eql(x,V23->c.c_car->c.c_car) &&V23->c.c_car != Cnil){
98            V17= (V23->c.c_car);
99          goto T32;          goto T32;
100          }else V21=V21->c.c_cdr;          }else V23=V23->c.c_cdr;
101          V17= Cnil;}          V17= Cnil;}
102          goto T32;          goto T32;
103  T32:;  T32:;
104          if(((V17))==Cnil){          if(((V17))==Cnil){
105          goto T30;}          goto T30;}
106          (void)(structure_set((V18),VV[0],5,cdr((V17))));          V24= CMPcdr((V17));
107            V25= Ct;
108            STSET(object,(V18),20, /* INLINE-ARGS */V24);
109            (void)(/* INLINE-ARGS */V24);
110          goto T28;          goto T28;
111          goto T30;          goto T30;
112  T30:;  T30:;
113          V17= get((V13),VV[5],Cnil);          {object V26 =((V13))->s.s_plist;
114             object ind= VV[5];
115            while(V26!=Cnil){
116            if(V26->c.c_car==ind){
117            V17= (V26->c.c_cdr->c.c_car);
118            goto T35;
119            }else V26=V26->c.c_cdr->c.c_cdr;}
120            V17= Cnil;}
121            goto T35;
122    T35:;
123          if(((V17))==Cnil){          if(((V17))==Cnil){
124          goto T28;}          goto T28;}
125          (void)(structure_set((V18),VV[0],5,(V17)));          V27= Ct;
126            STSET(object,(V18),20, (V17));
127            (void)((V17));
128          goto T28;          goto T28;
129  T28:;  T28:;
130          setq(VV[6],Ct);          (VV[6]->s.s_dbind)= Ct;
131          goto T19;          goto T19;
132          goto T21;          goto T21;
133  T21:;  T21:;
134          {register object V22;          {register object V28;
135          register object V23;          register object V29;
136          V22= (V16);          V28= (V16);
137          V23= car((V22));          V29= CMPcar((V28));
138          goto T41;          goto T41;
139  T41:;  T41:;
140          if(!(endp_prop((V22)))){          if(!(((V28))==Cnil)){
141          goto T42;}          goto T42;}
142          goto T37;          goto T37;
143          goto T42;          goto T42;
144  T42:;  T42:;
145          if(!((car((V23)))==((V13)))){          if(!((CMPcar((V29)))==((V13)))){
146          goto T46;}          goto T46;}
147          {object V24= cdr((V23));          {object V30= CMPcdr((V29));
148          if((V24!= VV[7]))goto T49;          if((V30!= VV[7]))goto T49;
149          (void)(structure_set((V18),VV[0],4,VV[7]));          V31= Ct;
150            STSET(object,(V18),16, VV[7]);
151            (void)(VV[7]);
152          goto T46;          goto T46;
153          goto T49;          goto T49;
154  T49:;  T49:;
155          if((V24!= VV[69]))goto T50;          if((V30!= VV[69]))goto T50;
156          V25= structure_ref((V18),VV[0],6);          V32= number_plus(STREF(object,(V18),24),small_fixnum(100));
157          V26= number_plus(/* INLINE-ARGS */V25,small_fixnum(100));          V33= Ct;
158          (void)(structure_set((V18),VV[0],6,/* INLINE-ARGS */V26));          STSET(object,(V18),24, /* INLINE-ARGS */V32);
159            (void)(/* INLINE-ARGS */V32);
160          goto T46;          goto T46;
161          goto T50;          goto T50;
162  T50:;  T50:;
163          (void)(structure_set((V18),VV[0],5,cdr((V23))));}          V34= CMPcdr((V29));
164            V35= Ct;
165            STSET(object,(V18),20, /* INLINE-ARGS */V34);
166            (void)(/* INLINE-ARGS */V34);}
167          goto T46;          goto T46;
168  T46:;  T46:;
169          V22= cdr((V22));          V28= CMPcdr((V28));
170          V23= car((V22));          V29= CMPcar((V28));
171          goto T41;}          goto T41;}
172          goto T37;          goto T37;
173  T37:;  T37:;
174          base[0]= VV[8];          if((VV[8])->s.s_dbind!=OBJNULL){
         vs_top=(vs_base=base+0)+1;  
         Lboundp();  
         vs_top=sup;  
         if((vs_base[0])!=Cnil){  
175          goto T57;}          goto T57;}
176          goto T56;          goto T56;
177          goto T57;          goto T57;
178  T57:;  T57:;
179          if(symbol_value(VV[8])==Cnil){          if((VV[8]->s.s_dbind)==Cnil){
180          goto T56;}          goto T56;}
181          V27= structure_ref((V18),VV[0],5);          if(!((STREF(object,(V18),20))==Cnil)){
182          if(!((/* INLINE-ARGS */V27)==Cnil)){          goto T61;}
183          goto T62;}          goto T59;
184          goto T60;          goto T61;
185          goto T62;  T61:;
186  T62:;          if((Ct)==(STREF(object,(V18),20))){
187          V28= structure_ref((V18),VV[0],5);          goto T59;}
         if((Ct)==(/* INLINE-ARGS */V28)){  
         goto T60;}  
188          goto T56;          goto T56;
189          goto T60;          goto T59;
190  T60:;  T59:;
191          (void)(structure_set((V18),VV[0],4,VV[7]));          V36= Ct;
192            STSET(object,(V18),16, VV[7]);
193            (void)(VV[7]);
194          goto T56;          goto T56;
195  T56:;  T56:;
196          (void)(structure_set((V18),VV[0],1,VV[9]));          V37= Ct;
197            STSET(object,(V18),4, VV[9]);
198            (void)(VV[9]);
199          goto T19;          goto T19;
200  T19:;  T19:;
201          {register object x= (V13),V29= (V15);          {register object x= (V13),V38= (V15);
202          while(!endp(V29))          while(V38!=Cnil)
203          if(eql(x,V29->c.c_car)){          if(eql(x,V38->c.c_car)){
204          goto T66;          goto T65;
205          }else V29=V29->c.c_cdr;          }else V38=V38->c.c_cdr;
206          goto T64;}          goto T63;}
207          goto T66;          goto T65;
208  T66:;  T65:;
209          (void)(structure_set((V18),VV[0],2,VV[10]));          V39= Ct;
210          goto T64;          STSET(object,(V18),8, VV[10]);
211  T64:;          (void)(VV[10]);
212          {object V30 = (V18);          goto T63;
213          VMR2(V30)}}}  T63:;
214            {object V40 = (V18);
215            VMR2(V40)}}}
216          base[0]=base[0];          base[0]=base[0];
217          return Cnil;          return Cnil;
218  }  }
219  /*      local entry for function CHECK-VREF     */  /*      local entry for function CHECK-VREF     */
220    
221  static object LI3(V32)  static object LI3(V42)
222    
223  register object V32;  register object V42;
224  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
225          goto TTL;          goto TTL;
226  TTL:;  TTL:;
227          V33= structure_ref((V32),VV[0],1);          if(!((STREF(object,(V42),4))==(VV[9]))){
228          if(!((/* INLINE-ARGS */V33)==(VV[9]))){          goto T67;}
229          goto T68;}          if((STREF(object,(V42),8))!=Cnil){
230          if((structure_ref((V32),VV[0],2))!=Cnil){          goto T67;}
231          goto T68;}          if((STREF(object,(V42),12))!=Cnil){
232          if((structure_ref((V32),VV[0],3))!=Cnil){          goto T67;}
233          goto T68;}          {object V43 = (VFUN_NARGS=2,(*(LnkLI70))(VV[11],STREF(object,(V42),0)));
234          V34= structure_ref((V32),VV[0],0);          VMR3(V43)}
235          {object V35 = (VFUN_NARGS=2,(*(LnkLI70))(VV[11],/* INLINE-ARGS */V34));          goto T67;
236          VMR3(V35)}  T67:;
237          goto T68;          {object V44 = Cnil;
238  T68:;          VMR3(V44)}
         {object V36 = Cnil;  
         VMR3(V36)}  
239          return Cnil;          return Cnil;
240  }  }
241  /*      local entry for function C1VAR  */  /*      local entry for function C1VAR  */
242    
243  static object LI4(V38)  static object LI4(V46)
244    
245  object V38;  object V46;
246  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
247          goto TTL;          goto TTL;
248  TTL:;  TTL:;
249          {object V39;          {object V47;
250          object V40;          object V48;
251          V39= (VFUN_NARGS=0,(*(LnkLI71))());          V47= (VFUN_NARGS=0,(*(LnkLI71))());
252          V40= (*(LnkLI72))((V38));          V48= (*(LnkLI72))((V46));
253          {object V41;          {object V49;
254          object V43;          object V51;
255          V41= car((V40));          V49= CMPcar((V48));
256          V44= structure_ref(V39,VV[12],1);          V51= make_cons((V49),STREF(object,V47,4));
257          V43= make_cons((V41),/* INLINE-ARGS */V44);          V52= Ct;
258          (void)(structure_set(V39,VV[12],1,(V43)));}          STSET(object,V47,4, (V51));
259          V45= structure_ref(car((V40)),VV[0],5);          (void)((V51));}
260          (void)(structure_set((V39),VV[12],2,/* INLINE-ARGS */V45));          V53= Ct;
261          {object V46 = list(3,VV[0],(V39),(V40));          STSET(object,(V47),8, STREF(object,CMPcar((V48)),20));
262          VMR4(V46)}}          (void)(STREF(object,CMPcar((V48)),20));
263            {object V54 = list(3,VV[0],(V47),(V48));
264            VMR4(V54)}}
265          base[0]=base[0];          base[0]=base[0];
266          return Cnil;          return Cnil;
267  }  }
268  /*      local entry for function C1VREF */  /*      local entry for function C1VREF */
269    
270  static object LI5(V48)  static object LI5(V56)
271    
272  register object V48;  register object V56;
273  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
274          goto TTL;          goto TTL;
275  TTL:;  TTL:;
276          {register object V49;          {register object V57;
277          register object V50;          register object V58;
278          V49= Cnil;          V57= Cnil;
279          V50= Cnil;          V58= Cnil;
280          {register object V51;          {register object V59;
281          register object V52;          register object V60;
282          V51= symbol_value(VV[13]);          V59= (VV[13]->s.s_dbind);
283          V52= car((V51));          V60= CMPcar((V59));
284          goto T85;          goto T84;
285  T85:;  T84:;
286          if(!(endp_prop((V51)))){          if(!(((V59))==Cnil)){
287          goto T86;}          goto T85;}
288          {register object V53;          {register object V61;
289          V53= (*(LnkLI73))((V48));          V61= (*(LnkLI73))((V56));
290          if(((V53))!=Cnil){          if(((V61))!=Cnil){
291          goto T90;}          goto T89;}
292          base[1]= (V48);          base[1]= (V56);
293          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
294          siLspecialp();          siLspecialp();
295          vs_top=sup;          vs_top=sup;
296          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
297          goto T93;}          goto T92;}
298          (void)((*(LnkLI74))((V48)));          (void)((*(LnkLI74))((V56)));
299          goto T93;          goto T92;
300  T93:;  T92:;
301          V54= (*(LnkLI68))((V48));{object V56;          V62= (*(LnkLI68))((V56));{object V64;
302          V56= get((V48),VV[5],Cnil);          {object V65 =((V56))->s.s_plist;
303          if(V56==Cnil)goto T100;           object ind= VV[5];
304          V55= V56;          while(V65!=Cnil){
305          goto T99;          if(V65->c.c_car==ind){
306            V64= (V65->c.c_cdr->c.c_car);
307            goto T100;
308            }else V65=V65->c.c_cdr->c.c_cdr;}
309            V64= Cnil;}
310          goto T100;          goto T100;
311  T100:;}  T100:;
312          V55= Ct;          if(V64==Cnil)goto T99;
313            V63= V64;
314            goto T98;
315          goto T99;          goto T99;
316  T99:;  T99:;}
317          V53= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V48),VV[14],VV[15],VV[16],/* INLINE-ARGS */V54,VV[17],V55));          V63= Ct;
318          setq(VV[18],make_cons(V53,symbol_value(VV[18])));          goto T98;
319          goto T90;  T98:;
320  T90:;          V61= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V56),VV[14],VV[15],VV[16],/* INLINE-ARGS */V62,VV[17],V63));
321          {object V58 = list(2,(V53),(V49));          (VV[18]->s.s_dbind)= make_cons(V61,(VV[18]->s.s_dbind));
322          VMR5(V58)}}          goto T89;
323          goto T86;  T89:;
324  T86:;          {object V67 = list(2,(V61),(V57));
325          if(!(((V52))==(VV[19]))){          VMR5(V67)}}
326          goto T106;}          goto T85;
327          V49= Ct;  T85:;
328          goto T104;          if(!(((V60))==(VV[19]))){
329          goto T106;          goto T105;}
330  T106:;          V57= Ct;
331          if(!(((V52))==(VV[20]))){          goto T103;
332          goto T110;}          goto T105;
333          V50= Ct;  T105:;
334          goto T104;          if(!(((V60))==(VV[20]))){
335          goto T110;          goto T109;}
336  T110:;          V58= Ct;
337          V59= structure_ref((V52),VV[0],0);          goto T103;
338          if(!((/* INLINE-ARGS */V59)==((V48)))){          goto T109;
339          goto T104;}  T109:;
340          V60= structure_ref((V52),VV[0],2);          if(!((STREF(object,(V60),0))==((V56)))){
341          if(!((/* INLINE-ARGS */V60)==(VV[10]))){          goto T103;}
342          goto T115;}          if(!((STREF(object,(V60),8))==(VV[10]))){
343          (void)((VFUN_NARGS=2,(*(LnkLI70))(VV[21],(V48))));          goto T114;}
344          (void)(structure_set((V52),VV[0],2,Ct));          (void)((VFUN_NARGS=2,(*(LnkLI70))(VV[21],(V56))));
345          goto T115;          V68= Ct;
346  T115:;          STSET(object,(V60),8, Ct);
347          if(((V49))==Cnil){          (void)(Ct);
348          goto T121;}          goto T114;
349          (void)(structure_set((V52),VV[0],3,Ct));  T114:;
350          goto T119;          if(((V57))==Cnil){
351          goto T121;          goto T120;}
352  T121:;          V69= Ct;
353          if(((V50))==Cnil){          STSET(object,(V60),12, Ct);
354          goto T124;}          (void)(Ct);
355          V61= structure_ref((V52),VV[0],1);          goto T118;
356          if(!((/* INLINE-ARGS */V61)==(VV[9]))){          goto T120;
357          goto T126;}  T120:;
358          (void)(structure_set((V52),VV[0],4,VV[22]));          if(((V58))==Cnil){
359          goto T126;          goto T123;}
360  T126:;          if(!((STREF(object,(V60),4))==(VV[9]))){
361          (void)(structure_set((V52),VV[0],2,Ct));          goto T125;}
362          goto T119;          V70= Ct;
363          goto T124;          STSET(object,(V60),16, VV[22]);
364  T124:;          (void)(VV[22]);
365          (void)(structure_set((V52),VV[0],2,Ct));          goto T125;
366          {long V62= fix(structure_ref((V52),VV[0],6));  T125:;
367          V63 = make_fixnum((long)(1)+(/* INLINE-ARGS */V62));          V71= Ct;
368          (void)(structure_set((V52),VV[0],6,V63));}          STSET(object,(V60),8, Ct);
369          goto T119;          (void)(Ct);
370  T119:;          goto T118;
371          {object V64 = list(2,(V52),(V49));          goto T123;
372          VMR5(V64)}  T123:;
373          goto T104;          V72= Ct;
374  T104:;          STSET(object,(V60),8, Ct);
375          V51= cdr((V51));          (void)(Ct);
376          V52= car((V51));          V73 = CMPmake_fixnum((long)(1)+(fix(STREF(object,(V60),24))));
377          goto T85;}}          V74= Ct;
378            STSET(object,(V60),24, V73);
379            (void)(V73);
380            goto T118;
381    T118:;
382            {object V75 = list(2,(V60),(V57));
383            VMR5(V75)}
384            goto T103;
385    T103:;
386            V59= CMPcdr((V59));
387            V60= CMPcar((V59));
388            goto T84;}}
389          base[0]=base[0];          base[0]=base[0];
390          return Cnil;          return Cnil;
391  }  }
392  /*      local entry for function C2VAR-KIND     */  /*      local entry for function C2VAR-KIND     */
393    
394  static object LI6(V66)  static object LI6(V77)
395    
396  register object V66;  register object V77;
397  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
398          goto TTL;          goto TTL;
399  TTL:;  TTL:;
400          V67= structure_ref((V66),VV[0],1);          if(!((STREF(object,(V77),4))==(VV[9]))){
401          if(!((/* INLINE-ARGS */V67)==(VV[9]))){          goto T135;}
402          goto T136;}          if((STREF(object,(V77),12))!=Cnil){
403          if((structure_ref((V66),VV[0],3))!=Cnil){          goto T135;}
404          goto T136;}          if((STREF(object,(V77),16))==(VV[22])){
405          V68= structure_ref((V66),VV[0],4);          goto T135;}
406          if((/* INLINE-ARGS */V68)==(VV[22])){          if(!((STREF(object,(V77),16))==(VV[7]))){
407          goto T136;}          goto T142;}
408          V69= structure_ref((V66),VV[0],4);          {object V78 = VV[7];
409          if(!((/* INLINE-ARGS */V69)==(VV[7]))){          VMR6(V78)}
410          goto T143;}          goto T142;
411          {object V70 = VV[7];  T142:;
412          VMR6(V70)}          {register object V79;
413          goto T143;          V79= STREF(object,(V77),20);
414  T143:;          if(((*(LnkLI75))(VV[23],(V79)))==Cnil){
415          {register object V71;          goto T146;}
416          V71= structure_ref((V66),VV[0],5);          {object V80 = VV[23];
417          if(((*(LnkLI75))(VV[23],(V71)))==Cnil){          VMR6(V80)}
418          goto T147;}          goto T146;
419          {object V72 = VV[23];  T146:;
420          VMR6(V72)}          if(((*(LnkLI75))(VV[24],(V79)))==Cnil){
421          goto T147;          goto T149;}
422  T147:;          {object V81 = VV[24];
423          if(((*(LnkLI75))(VV[24],(V71)))==Cnil){          VMR6(V81)}
424          goto T150;}          goto T149;
425          {object V73 = VV[24];  T149:;
426          VMR6(V73)}          if(((*(LnkLI75))(VV[25],(V79)))==Cnil){
427          goto T150;          goto T152;}
428  T150:;          {object V82 = VV[25];
429          if(((*(LnkLI75))(VV[25],(V71)))==Cnil){          VMR6(V82)}
430          goto T153;}          goto T152;
431          {object V74 = VV[25];  T152:;
432          VMR6(V74)}          if(((*(LnkLI75))(VV[26],(V79)))==Cnil){
433          goto T153;          goto T155;}
434  T153:;          {object V83 = VV[26];
435          if(((*(LnkLI75))(VV[26],(V71)))==Cnil){          VMR6(V83)}
436          goto T156;}          goto T155;
437          {object V75 = VV[26];  T155:;
438          VMR6(V75)}          if(((*(LnkLI75))(VV[27],(V79)))==Cnil){
439          goto T156;          goto T158;}
440  T156:;          {object V84 = VV[27];
441          if(((*(LnkLI75))(VV[27],(V71)))==Cnil){          VMR6(V84)}
442          goto T159;}          goto T158;
443          {object V76 = VV[27];  T158:;
444          VMR6(V76)}          {object V85;
445          goto T159;          if((VV[8])->s.s_dbind!=OBJNULL){
 T159:;  
         {object V77;  
         base[0]= VV[8];  
         vs_top=(vs_base=base+0)+1;  
         Lboundp();  
         vs_top=sup;  
         if((vs_base[0])!=Cnil){  
         goto T162;}  
         V77= Cnil;  
         goto T161;  
         goto T162;  
 T162:;  
         if(symbol_value(VV[8])==Cnil){  
         V77= Cnil;  
446          goto T161;}          goto T161;}
447          V77= VV[7];          V85= Cnil;
448            goto T160;
449          goto T161;          goto T161;
450  T161:;  T161:;
451          if(((V77))==Cnil){          if((VV[8]->s.s_dbind)==Cnil){
452          goto T166;}          V85= Cnil;
453          {object V78 = (V77);          goto T160;}
454          VMR6(V78)}          V85= VV[7];
455          goto T166;          goto T160;
456  T166:;  T160:;
457          {object V79 = Cnil;          if(((V85))==Cnil){
458          VMR6(V79)}}}          goto T164;}
459          goto T136;          {object V86 = (V85);
460  T136:;          VMR6(V86)}
461          {object V80 = Cnil;          goto T164;
462          VMR6(V80)}  T164:;
463          base[0]=base[0];          {object V87 = Cnil;
464            VMR6(V87)}}}
465            goto T135;
466    T135:;
467            {object V88 = Cnil;
468            VMR6(V88)}
469          return Cnil;          return Cnil;
470  }  }
471  /*      local entry for function C2VAR  */  /*      local entry for function C2VAR  */
472    
473  static object LI7(V82)  static object LI7(V90)
474    
475  object V82;  object V90;
476  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
477          goto TTL;          goto TTL;
478  TTL:;  TTL:;
479          V83= make_cons(VV[0],(V82));          V91= make_cons(VV[0],(V90));
480          {object V84 = (VFUN_NARGS=3,(*(LnkLI76))(/* INLINE-ARGS */V83,Cnil,VV[28]));          {object V92 = (VFUN_NARGS=3,(*(LnkLI76))(/* INLINE-ARGS */V91,Cnil,VV[28]));
481          VMR7(V84)}          VMR7(V92)}
482          return Cnil;          return Cnil;
483  }  }
484  /*      local entry for function C2LOCATION     */  /*      local entry for function C2LOCATION     */
485    
486  static object LI8(V86)  static object LI8(V94)
487    
488  object V86;  object V94;
489  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
490          goto TTL;          goto TTL;
491  TTL:;  TTL:;
492          {object V87 = (VFUN_NARGS=3,(*(LnkLI76))((V86),Cnil,VV[28]));          {object V95 = (VFUN_NARGS=3,(*(LnkLI76))((V94),Cnil,VV[28]));
493          VMR8(V87)}          VMR8(V95)}
494          return Cnil;          return Cnil;
495  }  }
496  /*      local entry for function CHECK-DOWNWARD */  /*      local entry for function CHECK-DOWNWARD */
497    
498  static object LI9(V89)  static object LI9(V97)
499    
500  object V89;  object V97;
501  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
502          goto TTL;          goto TTL;
503  TTL:;  TTL:;
504          {object V90;          {object V98;
505          V90= Cnil;          V98= Cnil;
506          {register object V91;          {register object V99;
507          object V92;          object V100;
508          V91= symbol_value(VV[29]);          V99= (VV[29]->s.s_dbind);
509          V92= car((V91));          V100= CMPcar((V99));
510          goto T173;          goto T171;
511  T173:;  T171:;
512          if(!(endp_prop((V91)))){          if(!(((V99))==Cnil)){
513          goto T174;}          goto T172;}
514          goto T169;          goto T167;
515          goto T174;          goto T172;
516  T174:;  T172:;
517          if(!((car((V92)))==(VV[30]))){          if(!((CMPcar((V100)))==(VV[30]))){
518          goto T178;}          goto T176;}
519          V90= Ct;          V98= Ct;
520          {register object V93;          {register object V101;
521          register object V94;          register object V102;
522          V93= symbol_value(VV[29]);          V101= (VV[29]->s.s_dbind);
523          V94= car((V93));          V102= CMPcar((V101));
524          goto T187;          goto T185;
525  T187:;  T185:;
526          if(!(endp_prop((V93)))){          if(!(((V101))==Cnil)){
527          goto T188;}          goto T186;}
528          goto T183;          goto T181;
529          goto T188;          goto T186;
530  T188:;  T186:;
531          if(!((car((V94)))==(VV[31]))){          if(!((CMPcar((V102)))==(VV[31]))){
532          goto T192;}          goto T190;}
533          {register object V95;          {register object V103;
534          register object V96;          register object V104;
535          V95= (V94);          V103= (V102);
536          V96= VV[30];          V104= VV[30];
537          if(type_of((V95))!=t_cons)FEwrong_type_argument(Scons,(V95));          ((V103))->c.c_car = (V104);}
538          ((V95))->c.c_car = (V96);}          goto T190;
539          goto T192;  T190:;
540  T192:;          V101= CMPcdr((V101));
541          V93= cdr((V93));          V102= CMPcar((V101));
542          V94= car((V93));          goto T185;}
543          goto T187;}          goto T181;
544          goto T183;  T181:;
545  T183:;          goto T167;
546          goto T169;          goto T176;
547          goto T178;  T176:;
548  T178:;          V99= CMPcdr((V99));
549          V91= cdr((V91));          V100= CMPcar((V99));
550          V92= car((V91));          goto T171;}
551          goto T173;}          goto T167;
552          goto T169;  T167:;
553  T169:;          (VV[29]->s.s_dbind)= Cnil;
554          setq(VV[29],Cnil);          if(((V98))==Cnil){
555          if(((V90))==Cnil){          goto T209;}
556          goto T211;}          {register object V105;
557          {register object V97;          object V106;
558          object V98;          V105= (V97);
559          V97= (V89);          V106= CMPcar((V105));
560          V98= car((V97));          goto T214;
561          goto T216;  T214:;
562  T216:;          if(!(((V105))==Cnil)){
563          if(!(endp_prop((V97)))){          goto T215;}
564          goto T217;}          {object V107 = Cnil;
565          {object V99 = Cnil;          VMR9(V107)}
566          VMR9(V99)}          goto T215;
567          goto T217;  T215:;
568  T217:;          if(!((STREF(object,(V106),4))==(VV[32]))){
569          V100= structure_ref((V98),VV[0],1);          goto T219;}
570          if(!((/* INLINE-ARGS */V100)==(VV[32]))){          V108= Ct;
571          goto T221;}          STSET(object,(V106),4, VV[9]);
572          (void)(structure_set((V98),VV[0],1,VV[9]));          (void)(VV[9]);
573          goto T221;          goto T219;
574  T221:;  T219:;
575          V97= cdr((V97));          V105= CMPcdr((V105));
576          V98= car((V97));          V106= CMPcar((V105));
577          goto T216;}          goto T214;}
578          goto T211;          goto T209;
579  T211:;  T209:;
580          {object V101 = Cnil;          {object V109 = Cnil;
581          VMR9(V101)}}          VMR9(V109)}}
582          base[0]=base[0];          base[0]=base[0];
583          return Cnil;          return Cnil;
584  }  }
585  /*      local entry for function ASSIGN-DOWN-VARS       */  /*      local entry for function ASSIGN-DOWN-VARS       */
586    
587  static object LI10(V105,V106,V107)  static object LI10(V113,V114,V115)
588    
589  object V105;object V106;object V107;  object V113;object V114;object V115;
590  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
591          goto TTL;          goto TTL;
592  TTL:;  TTL:;
593          {register object V108;          {register object V116;
594          V108= small_fixnum(0);          V116= small_fixnum(0);
595          {register object V109;          {register object V117;
596          register object V110;          register object V118;
597          V109= (V105);          V117= (V113);
598          V110= car((V109));          V118= CMPcar((V117));
599          goto T234;          goto T232;
600  T234:;  T232:;
601          if(!(endp_prop((V109)))){          if(!(((V117))==Cnil)){
602          goto T235;}          goto T233;}
603          goto T230;          goto T228;
604          goto T235;          goto T233;
605  T235:;  T233:;
606          V111= structure_ref((V110),VV[0],1);          if(!((STREF(object,(V118),4))==(VV[32]))){
607          if(!((/* INLINE-ARGS */V111)==(VV[32]))){          goto T237;}
608          goto T239;}          {object V119= STREF(object,(V118),16);
609          V112= structure_ref((V110),VV[0],4);          if(!(type_of(V119)==t_fixnum||type_of(V119)==t_bignum)){
610          if(!(type_of(/* INLINE-ARGS */V112)==t_fixnum||type_of(/* INLINE-ARGS */V112)==t_bignum)){          goto T241;}}
611          goto T243;}          V120= one_plus(STREF(object,(V118),16));
612          V113= structure_ref((V110),VV[0],4);          V116= (number_compare((V116),/* INLINE-ARGS */V120)>=0?((V116)):/* INLINE-ARGS */V120);
613          V114= one_plus(/* INLINE-ARGS */V113);          V121= Ct;
614          V108= (number_compare((V108),/* INLINE-ARGS */V114)>=0?((V108)):/* INLINE-ARGS */V114);          STSET(object,(V118),8, STREF(object,(V118),16));
615          V115= structure_ref((V110),VV[0],4);          (void)(STREF(object,(V118),16));
616          (void)(structure_set((V110),VV[0],2,/* INLINE-ARGS */V115));          goto T237;
617          goto T239;          goto T241;
618          goto T243;  T241:;
619  T243:;          V122= Ct;
620          (void)(structure_set((V110),VV[0],2,(V108)));          STSET(object,(V118),8, (V116));
621          (void)(structure_set((V110),VV[0],4,(V108)));          (void)((V116));
622          V108= number_plus((V108),small_fixnum(1));          V123= Ct;
623          goto T239;          STSET(object,(V118),16, (V116));
624  T239:;          (void)((V116));
625          V109= cdr((V109));          V116= number_plus((V116),small_fixnum(1));
626          V110= car((V109));          goto T237;
627          goto T234;}  T237:;
628          goto T230;          V117= CMPcdr((V117));
629  T230:;          V118= CMPcar((V117));
630          if(!(number_compare((V108),small_fixnum(0))>0)){          goto T232;}
631          goto T255;}          goto T228;
632          if(!(((V107))==(VV[33]))){  T228:;
633          goto T258;}          if(!(number_compare((V116),small_fixnum(0))>0)){
634            goto T253;}
635            if(!(((V115))==(VV[33]))){
636            goto T256;}
637          princ_str("\n   object base0[",VV[34]);          princ_str("\n   object base0[",VV[34]);
638          (void)((*(LnkLI77))((V108)));          (void)((*(LnkLI77))((V116)));
639          princ_str("];",VV[34]);          princ_str("];",VV[34]);
640          goto T258;          goto T256;
641  T258:;  T256:;
642          setq(VV[36],make_cons(VV[35],symbol_value(VV[36])));          (VV[36]->s.s_dbind)= make_cons(VV[35],(VV[36]->s.s_dbind));
643          princ_str("\n   DCnames",VV[34]);          princ_str("\n   DCnames",VV[34]);
644          (void)((*(LnkLI77))((V106)));          (void)((*(LnkLI77))((V114)));
645          princ_str("",VV[34]);          princ_str("",VV[34]);
646          goto T255;          goto T253;
647  T255:;  T253:;
648          {object V117 = (V108);          {object V125 = (V116);
649          VMR10(V117)}}          VMR10(V125)}}
650          base[0]=base[0];          base[0]=base[0];
651          return Cnil;          return Cnil;
652  }  }
653  /*      local entry for function WT-DOWN        */  /*      local entry for function WT-DOWN        */
654    
655  static object LI11(V119)  static object LI11(V127)
656    
657  object V119;  object V127;
658  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
659          goto TTL;          goto TTL;
660  TTL:;{object V120;  TTL:;{object V128;
661          base[0]= (V119);          base[0]= (V127);
662          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
663          (void) (*Lnk78)();          (void) (*Lnk78)();
664          vs_top=sup;          vs_top=sup;
665          V120= vs_base[0];          V128= vs_base[0];
666          if(V120==Cnil)goto T270;          if(V128==Cnil)goto T268;
667          goto T269;          goto T267;
668          goto T270;          goto T268;
669  T270:;}  T268:;}
670          (void)((*(LnkLI79))());          (void)((*(LnkLI79))());
671          goto T269;          goto T267;
672  T269:;  T267:;
673          princ_str("base0[",VV[34]);          princ_str("base0[",VV[34]);
674          (void)((*(LnkLI77))((V119)));          (void)((*(LnkLI77))((V127)));
675          princ_char(93,VV[34]);          princ_char(93,VV[34]);
676          {object V121 = Cnil;          {object V129 = Cnil;
677          VMR11(V121)}          VMR11(V129)}
678          base[0]=base[0];          base[0]=base[0];
679          return Cnil;          return Cnil;
680  }  }
681  /*      local entry for function WT-VAR */  /*      local entry for function WT-VAR */
682    
683  static object LI12(V124,V125)  static object LI12(V132,V133)
684    
685  register object V124;object V125;  register object V132;object V133;
686  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
687          goto TTL;          goto TTL;
688  TTL:;  TTL:;
689          V127= structure_ref((V124),VV[0],1);          {object V134= STREF(object,(V132),4);
690          {object V126= /* INLINE-ARGS */V127;          if((V134!= VV[9]))goto T274;
691          if((V126!= VV[9]))goto T276;          if(((V133))==Cnil){
692          if(((V125))==Cnil){          goto T276;}
693          goto T278;}          {object V135 = (*(LnkLI80))(STREF(object,(V132),12));
694          V128= structure_ref((V124),VV[0],3);          VMR12(V135)}
         {object V129 = (*(LnkLI80))(/* INLINE-ARGS */V128);  
         VMR12(V129)}  
         goto T278;  
 T278:;  
         if((structure_ref((V124),VV[0],3))==Cnil){  
         goto T281;}  
         V130= structure_ref((V124),VV[0],2);  
         {object V131 = (*(LnkLI81))(/* INLINE-ARGS */V130);  
         VMR12(V131)}  
         goto T281;  
 T281:;  
         V132= structure_ref((V124),VV[0],2);  
         if(!((Ct)==(/* INLINE-ARGS */V132))){  
         goto T284;}  
         V133= structure_ref((V124),VV[0],4);  
         if(!(type_of(/* INLINE-ARGS */V133)==t_fixnum)){  
         goto T284;}  
         if((symbol_value(VV[8]))==Cnil){  
         goto T284;}  
         V134= structure_ref((V124),VV[0],5);  
         if(!((Ct)==(/* INLINE-ARGS */V134))){  
         goto T284;}  
         (void)(structure_set((V124),VV[0],1,VV[7]));  
         goto TTL;  
         goto T284;  
 T284:;  
         V135= structure_ref((V124),VV[0],2);  
         {object V136 = (*(LnkLI82))(/* INLINE-ARGS */V135);  
         VMR12(V136)}  
695          goto T276;          goto T276;
696  T276:;  T276:;
697          if((V126!= VV[4]))goto T296;          if((STREF(object,(V132),12))==Cnil){
698            goto T279;}
699            {object V136 = (*(LnkLI81))(STREF(object,(V132),8));
700            VMR12(V136)}
701            goto T279;
702    T279:;
703            if(!((Ct)==(STREF(object,(V132),8)))){
704            goto T282;}
705            if(!(type_of(STREF(object,(V132),16))==t_fixnum)){
706            goto T282;}
707            if(((VV[8]->s.s_dbind))==Cnil){
708            goto T282;}
709            if(!((Ct)==(STREF(object,(V132),20)))){
710            goto T282;}
711            V137= Ct;
712            STSET(object,(V132),4, VV[7]);
713            (void)(VV[7]);
714            goto TTL;
715            goto T282;
716    T282:;
717            {object V138 = (*(LnkLI82))(STREF(object,(V132),8));
718            VMR12(V138)}
719            goto T274;
720    T274:;
721            if((V134!= VV[4]))goto T294;
722          princ_str("(VV[",VV[34]);          princ_str("(VV[",VV[34]);
723          V137= structure_ref((V124),VV[0],4);          (void)((*(LnkLI77))(STREF(object,(V132),16)));
         (void)((*(LnkLI77))(/* INLINE-ARGS */V137));  
724          princ_str("]->s.s_dbind)",VV[34]);          princ_str("]->s.s_dbind)",VV[34]);
725          {object V138 = Cnil;          {object V139 = Cnil;
726          VMR12(V138)}          VMR12(V139)}
727          goto T296;          goto T294;
728  T296:;  T294:;
729          if((V126!= VV[83]))goto T300;          if((V134!= VV[83]))goto T298;
730          V139= structure_ref((V124),VV[0],4);          (void)((*(LnkLI77))(STREF(object,(V132),16)));
         (void)((*(LnkLI77))(/* INLINE-ARGS */V139));  
731          {object V140 = Cnil;          {object V140 = Cnil;
732          VMR12(V140)}          VMR12(V140)}
733            goto T298;
734    T298:;
735            if((V134!= VV[32]))goto T300;
736            {object V141 = (*(LnkLI84))(STREF(object,(V132),16));
737            VMR12(V141)}
738          goto T300;          goto T300;
739  T300:;  T300:;
740          if((V126!= VV[32]))goto T302;          if((V134!= VV[15]))goto T301;
741          V141= structure_ref((V124),VV[0],4);          if(((VV[37]->s.s_dbind))==Cnil){
742          {object V142 = (*(LnkLI84))(/* INLINE-ARGS */V141);          goto T303;}
         VMR12(V142)}  
         goto T302;  
 T302:;  
         if((V126!= VV[15]))goto T303;  
         if((symbol_value(VV[37]))==Cnil){  
         goto T305;}  
743          princ_str("symbol_value(VV[",VV[34]);          princ_str("symbol_value(VV[",VV[34]);
744          V143= structure_ref((V124),VV[0],4);          (void)((*(LnkLI77))(STREF(object,(V132),16)));
         (void)((*(LnkLI77))(/* INLINE-ARGS */V143));  
745          princ_str("])",VV[34]);          princ_str("])",VV[34]);
746          {object V144 = Cnil;          {object V142 = Cnil;
747          VMR12(V144)}          VMR12(V142)}
         goto T305;  
 T305:;  
         princ_str("(VV[",VV[34]);  
         V145= structure_ref((V124),VV[0],4);  
         (void)((*(LnkLI77))(/* INLINE-ARGS */V145));  
         princ_str("]->s.s_dbind)",VV[34]);  
         {object V146 = Cnil;  
         VMR12(V146)}  
748          goto T303;          goto T303;
749  T303:;  T303:;
750          V148= structure_ref((V124),VV[0],1);          princ_str("(VV[",VV[34]);
751          {object V147= /* INLINE-ARGS */V148;          (void)((*(LnkLI77))(STREF(object,(V132),16)));
752          if((V147!= VV[23]))goto T314;          princ_str("]->s.s_dbind)",VV[34]);
753          if(!(number_compare(small_fixnum(0),symbol_value(VV[38]))==0)){          {object V143 = Cnil;
754          goto T315;}          VMR12(V143)}
755            goto T301;
756    T301:;
757            {object V144= STREF(object,(V132),4);
758            if((V144!= VV[23]))goto T312;
759            if(!(number_compare(small_fixnum(0),(VV[38]->s.s_dbind))==0)){
760            goto T313;}
761          princ_str("CMP",VV[34]);          princ_str("CMP",VV[34]);
         goto T315;  
 T315:;  
         princ_str("make_fixnum",VV[34]);  
762          goto T313;          goto T313;
763          goto T314;  T313:;
764  T314:;          princ_str("make_fixnum",VV[34]);
765          if((V147!= VV[24]))goto T320;          goto T311;
766            goto T312;
767    T312:;
768            if((V144!= VV[24]))goto T318;
769          princ_str("make_integer",VV[34]);          princ_str("make_integer",VV[34]);
770          goto T313;          goto T311;
771            goto T318;
772    T318:;
773            if((V144!= VV[25]))goto T320;
774            princ_str("code_char",VV[34]);
775            goto T311;
776          goto T320;          goto T320;
777  T320:;  T320:;
778          if((V147!= VV[25]))goto T322;          if((V144!= VV[26]))goto T322;
779          princ_str("code_char",VV[34]);          princ_str("make_longfloat",VV[34]);
780          goto T313;          goto T311;
781          goto T322;          goto T322;
782  T322:;  T322:;
783          if((V147!= VV[26]))goto T324;          if((V144!= VV[27]))goto T324;
784          princ_str("make_longfloat",VV[34]);          princ_str("make_shortfloat",VV[34]);
785          goto T313;          goto T311;
786          goto T324;          goto T324;
787  T324:;  T324:;
788          if((V147!= VV[27]))goto T326;          if((V144!= VV[7]))goto T326;
789          princ_str("make_shortfloat",VV[34]);          goto T311;
         goto T313;  
790          goto T326;          goto T326;
791  T326:;  T326:;
         if((V147!= VV[7]))goto T328;  
         goto T313;  
         goto T328;  
 T328:;  
792          (void)((*(LnkLI85))());}          (void)((*(LnkLI85))());}
793          goto T313;          goto T311;
794  T313:;  T311:;
795          princ_str("(V",VV[34]);          princ_str("(V",VV[34]);
796          V149= structure_ref((V124),VV[0],4);          (void)((*(LnkLI77))(STREF(object,(V132),16)));
         (void)((*(LnkLI77))(/* INLINE-ARGS */V149));  
797          princ_char(41,VV[34]);          princ_char(41,VV[34]);
798          {object V150 = Cnil;          {object V145 = Cnil;
799          VMR12(V150)}}          VMR12(V145)}}
800          return Cnil;          return Cnil;
801  }  }
802  /*      local entry for function SET-VAR        */  /*      local entry for function SET-VAR        */
803    
804  static object LI13(V154,V155,V156)  static object LI13(V149,V150,V151)
805    
806  register object V154;register object V155;object V156;  register object V149;register object V150;object V151;
807  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
808          bds_check;          bds_check;
809          goto TTL;          goto TTL;
810  TTL:;  TTL:;
811          if(!(type_of((V154))==t_cons)){          if(!(type_of((V149))==t_cons)){
812          goto T332;}          goto T330;}
813          if(!((car((V154)))==(VV[0]))){          if(!((CMPcar((V149)))==(VV[0]))){
814          goto T332;}          goto T330;}
815          if(!((cadr((V154)))==((V155)))){          if(!((CMPcadr((V149)))==((V150)))){
816          goto T332;}          goto T330;}
817          if((caddr((V154)))==((V156))){          if((CMPcaddr((V149)))==((V151))){
818          goto T333;}          goto T331;}
819          goto T332;          goto T330;
820  T332:;  T330:;
821          V158= structure_ref((V155),VV[0],1);          {object V152= STREF(object,(V150),4);
822          {object V157= /* INLINE-ARGS */V158;          if((V152!= VV[9]))goto T339;
         if((V157!= VV[9]))goto T341;  
823          princ_str("\n   ",VV[34]);          princ_str("\n   ",VV[34]);
824          if(((V156))==Cnil){          if(((V151))==Cnil){
825          goto T345;}          goto T343;}
826          V159= structure_ref((V155),VV[0],3);          (void)((*(LnkLI80))(STREF(object,(V150),12)));
827          (void)((*(LnkLI80))(/* INLINE-ARGS */V159));          goto T341;
         goto T343;  
         goto T345;  
 T345:;  
         if((structure_ref((V155),VV[0],3))==Cnil){  
         goto T348;}  
         V160= structure_ref((V155),VV[0],2);  
         (void)((*(LnkLI81))(/* INLINE-ARGS */V160));  
         goto T343;  
         goto T348;  
 T348:;  
         V161= structure_ref((V155),VV[0],2);  
         (void)((*(LnkLI82))(/* INLINE-ARGS */V161));  
828          goto T343;          goto T343;
829  T343:;  T343:;
830          princ_str("= ",VV[34]);          if((STREF(object,(V150),12))==Cnil){
831          (void)((*(LnkLI77))((V154)));          goto T346;}
832          princ_char(59,VV[34]);          (void)((*(LnkLI81))(STREF(object,(V150),8)));
833          {object V162 = Cnil;          goto T341;
834          VMR13(V162)}          goto T346;
835    T346:;
836            (void)((*(LnkLI82))(STREF(object,(V150),8)));
837          goto T341;          goto T341;
838  T341:;  T341:;
839          if((V157!= VV[4]))goto T353;          princ_str("= ",VV[34]);
840            (void)((*(LnkLI77))((V149)));
841            princ_char(59,VV[34]);
842            {object V153 = Cnil;
843            VMR13(V153)}
844            goto T339;
845    T339:;
846            if((V152!= VV[4]))goto T351;
847          princ_str("\n   (VV[",VV[34]);          princ_str("\n   (VV[",VV[34]);
848          V163= structure_ref((V155),VV[0],4);          (void)((*(LnkLI77))(STREF(object,(V150),16)));
         (void)((*(LnkLI77))(/* INLINE-ARGS */V163));  
849          princ_str("]->s.s_dbind)= ",VV[34]);          princ_str("]->s.s_dbind)= ",VV[34]);
850          (void)((*(LnkLI77))((V154)));          (void)((*(LnkLI77))((V149)));
851          princ_char(59,VV[34]);          princ_char(59,VV[34]);
852          {object V164 = Cnil;          {object V154 = Cnil;
853          VMR13(V164)}          VMR13(V154)}
854          goto T353;          goto T351;
855  T353:;  T351:;
856          if((V157!= VV[15]))goto T359;          if((V152!= VV[15]))goto T357;
857          if((symbol_value(VV[37]))==Cnil){          if(((VV[37]->s.s_dbind))==Cnil){
858          goto T361;}          goto T359;}
859          princ_str("\n   setq(VV[",VV[34]);          princ_str("\n   setq(VV[",VV[34]);
860          V165= structure_ref((V155),VV[0],4);          (void)((*(LnkLI77))(STREF(object,(V150),16)));
         (void)((*(LnkLI77))(/* INLINE-ARGS */V165));  
861          princ_str("],",VV[34]);          princ_str("],",VV[34]);
862          (void)((*(LnkLI77))((V154)));          (void)((*(LnkLI77))((V149)));
863          princ_str(");",VV[34]);          princ_str(");",VV[34]);
864          {object V166 = Cnil;          {object V155 = Cnil;
865          VMR13(V166)}          VMR13(V155)}
866          goto T361;          goto T359;
867  T361:;  T359:;
868          princ_str("\n   (VV[",VV[34]);          princ_str("\n   (VV[",VV[34]);
869          V167= structure_ref((V155),VV[0],4);          (void)((*(LnkLI77))(STREF(object,(V150),16)));
         (void)((*(LnkLI77))(/* INLINE-ARGS */V167));  
870          princ_str("]->s.s_dbind)= ",VV[34]);          princ_str("]->s.s_dbind)= ",VV[34]);
871          (void)((*(LnkLI77))((V154)));          (void)((*(LnkLI77))((V149)));
872          princ_char(59,VV[34]);          princ_char(59,VV[34]);
873          {object V168 = Cnil;          {object V156 = Cnil;
874          VMR13(V168)}          VMR13(V156)}
875          goto T359;          goto T357;
876  T359:;  T357:;
877          if((V157!= VV[32]))goto T373;          if((V152!= VV[32]))goto T371;
878          princ_str("\n   ",VV[34]);          princ_str("\n   ",VV[34]);
879          V169= structure_ref((V155),VV[0],4);          (void)((*(LnkLI84))(STREF(object,(V150),16)));
         (void)((*(LnkLI84))(/* INLINE-ARGS */V169));  
880          princ_char(61,VV[34]);          princ_char(61,VV[34]);
881          (void)((*(LnkLI77))((V154)));          (void)((*(LnkLI77))((V149)));
882          princ_char(59,VV[34]);          princ_char(59,VV[34]);
883          {object V170 = Cnil;          {object V157 = Cnil;
884          VMR13(V170)}          VMR13(V157)}
885          goto T373;          goto T371;
886  T373:;  T371:;
887          if((V157!= VV[24]))goto T380;          if((V152!= VV[24]))goto T378;
888          {object V171;          {object V158;
889          register object V172;          register object V159;
890          if(type_of((V154))==t_cons){          if(type_of((V149))==t_cons){
891          goto T382;}          goto T380;}
892          V171= Cnil;          V158= Cnil;
893          goto T381;          goto T379;
894          goto T382;          goto T380;
895  T382:;  T380:;
896          V171= car((V154));          V158= CMPcar((V149));
897          goto T381;          goto T379;
898  T381:;  T379:;
899          V172= structure_ref((V155),VV[0],4);          V159= STREF(object,(V150),16);
900          {object V173= (V171);          {object V160= (V158);
901          if((V173!= VV[86]))goto T386;          if((V160!= VV[86]))goto T384;
902          princ_str("\n   ISETQ_FIX(V",VV[34]);          princ_str("\n   ISETQ_FIX(V",VV[34]);
903          (void)((*(LnkLI77))((V172)));          (void)((*(LnkLI77))((V159)));
904          princ_str(",V",VV[34]);          princ_str(",V",VV[34]);
905          (void)((*(LnkLI77))((V172)));          (void)((*(LnkLI77))((V159)));
906          princ_str("alloc,",VV[34]);          princ_str("alloc,",VV[34]);
907          base[0]= caddr((V154));          base[0]= CMPcaddr((V149));
908          base[1]= cadddr((V154));          base[1]= CMPcadddr((V149));
909          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
910          (void) (*Lnk87)();          (void) (*Lnk87)();
911          vs_top=sup;          vs_top=sup;
912          goto T385;          goto T383;
913          goto T386;          goto T384;
914  T386:;  T384:;
915          if((V173!= VV[88]))goto T395;          if((V160!= VV[88]))goto T393;
916          princ_str("\n   ISETQ_FIX(V",VV[34]);          princ_str("\n   ISETQ_FIX(V",VV[34]);
917          (void)((*(LnkLI77))((V172)));          (void)((*(LnkLI77))((V159)));
918          princ_str(",V",VV[34]);          princ_str(",V",VV[34]);
919          (void)((*(LnkLI77))((V172)));          (void)((*(LnkLI77))((V159)));
920          princ_str("alloc,",VV[34]);          princ_str("alloc,",VV[34]);
921          (void)((*(LnkLI77))(caddr((V154))));          (void)((*(LnkLI77))(CMPcaddr((V149))));
922          goto T385;          goto T383;
923          goto T395;          goto T393;
924  T395:;  T393:;
925          if((V173!= VV[0]))goto T402;          if((V160!= VV[0]))goto T400;
926          V175= structure_ref(cadr((V154)),VV[0],1);          {object V161= STREF(object,CMPcadr((V149)),4);
927          {object V174= /* INLINE-ARGS */V175;          if((V161!= VV[24]))goto T401;
         if((V174!= VV[24]))goto T403;  
928          princ_str("SETQ_II(V",VV[34]);          princ_str("SETQ_II(V",VV[34]);
929          (void)((*(LnkLI77))((V172)));          (void)((*(LnkLI77))((V159)));
930          princ_str(",V",VV[34]);          princ_str(",V",VV[34]);
931          (void)((*(LnkLI77))((V172)));          (void)((*(LnkLI77))((V159)));
932          princ_str("alloc,V",VV[34]);          princ_str("alloc,V",VV[34]);
933          V176= structure_ref(cadr((V154)),VV[0],4);          (void)((*(LnkLI77))(STREF(object,CMPcadr((V149)),16)));
934          (void)((*(LnkLI77))(/* INLINE-ARGS */V176));          goto T383;
935          goto T385;          goto T401;
936          goto T403;  T401:;
937  T403:;          if((V161!= VV[23]))goto T408;
         if((V174!= VV[23]))goto T410;  
938          princ_str("ISETQ_FIX(V",VV[34]);          princ_str("ISETQ_FIX(V",VV[34]);
939          (void)((*(LnkLI77))((V172)));          (void)((*(LnkLI77))((V159)));
940          princ_str(",V",VV[34]);          princ_str(",V",VV[34]);
941          (void)((*(LnkLI77))((V172)));          (void)((*(LnkLI77))((V159)));
942          princ_str("alloc,V",VV[34]);          princ_str("alloc,V",VV[34]);
943          V177= structure_ref(cadr((V154)),VV[0],4);          (void)((*(LnkLI77))(STREF(object,CMPcadr((V149)),16)));
944          (void)((*(LnkLI77))(/* INLINE-ARGS */V177));          goto T383;
945          goto T385;          goto T408;
946          goto T410;  T408:;
 T410:;  
947          princ_str("SETQ_IO(V",VV[34]);          princ_str("SETQ_IO(V",VV[34]);
948          (void)((*(LnkLI77))((V172)));          (void)((*(LnkLI77))((V159)));
949          princ_str(",V",VV[34]);          princ_str(",V",VV[34]);
950          (void)((*(LnkLI77))((V172)));          (void)((*(LnkLI77))((V159)));
951          princ_str("alloc,",VV[34]);          princ_str("alloc,",VV[34]);
952          (void)((*(LnkLI77))((V154)));          (void)((*(LnkLI77))((V149)));
953          goto T385;}          goto T383;}
954          goto T402;          goto T400;
955  T402:;  T400:;
956          if((V173!= VV[54]))goto T423;          if((V160!= VV[54]))goto T421;
957          princ_str("SETQ_IO(V",VV[34]);          princ_str("SETQ_IO(V",VV[34]);
958          (void)((*(LnkLI77))((V172)));          (void)((*(LnkLI77))((V159)));
959          princ_str(",V",VV[34]);          princ_str(",V",VV[34]);
960          (void)((*(LnkLI77))((V172)));          (void)((*(LnkLI77))((V159)));
961          princ_str("alloc,",VV[34]);          princ_str("alloc,",VV[34]);
962          (void)((*(LnkLI77))((V154)));          (void)((*(LnkLI77))((V149)));
963          goto T385;          goto T383;
964          goto T423;          goto T421;
965  T423:;  T421:;
966          bds_bind(VV[39],small_fixnum(0));          bds_bind(VV[39],small_fixnum(0));
967          bds_bind(VV[40],symbol_value(VV[40]));          bds_bind(VV[40],(VV[40]->s.s_dbind));
968          base[2]= VV[41];          (void)((*(LnkLI89))(VV[41]));
         vs_top=(vs_base=base+2)+1;  
         (void) (*Lnk89)();  
         vs_top=sup;  
969          princ_str("\n   SETQ_II(V",VV[34]);          princ_str("\n   SETQ_II(V",VV[34]);
970          (void)((*(LnkLI77))((V172)));          (void)((*(LnkLI77))((V159)));
971          princ_str(",V",VV[34]);          princ_str(",V",VV[34]);
972          (void)((*(LnkLI77))((V172)));          (void)((*(LnkLI77))((V159)));
973          princ_str("alloc,",VV[34]);          princ_str("alloc,",VV[34]);
974          base[2]= (V154);          V162= make_cons(VV[42],(V150));
975          base[3]= make_cons(VV[42],(V155));          (void)((VFUN_NARGS=2,(*(LnkLI90))((V149),/* INLINE-ARGS */V162)));
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk90)();  
         vs_top=sup;  
976          princ_str(");",VV[34]);          princ_str(");",VV[34]);
977          V178= (*(LnkLI91))();          V163= (*(LnkLI91))();
978          bds_unwind1;          bds_unwind1;
979          bds_unwind1;          bds_unwind1;
980          {object V179 = Cnil;          {object V164 = Cnil;
981          VMR13(V179)}}          VMR13(V164)}}
982          goto T385;          goto T383;
983  T385:;  T383:;
984          princ_str(");",VV[34]);          princ_str(");",VV[34]);
985          {object V180 = Cnil;          {object V165 = Cnil;
986          VMR13(V180)}}          VMR13(V165)}}
987          goto T380;          goto T378;
988  T380:;  T378:;
989          princ_str("\n   V",VV[34]);          princ_str("\n   V",VV[34]);
990          V181= structure_ref((V155),VV[0],4);          (void)((*(LnkLI77))(STREF(object,(V150),16)));
         (void)((*(LnkLI77))(/* INLINE-ARGS */V181));  
991          princ_str("= ",VV[34]);          princ_str("= ",VV[34]);
992          V183= structure_ref((V155),VV[0],1);          {object V166= STREF(object,(V150),4);
993          {object V182= /* INLINE-ARGS */V183;          if((V166!= VV[23]))goto T445;
994          if((V182!= VV[23]))goto T450;          base[0]= (V149);
         base[0]= (V154);  
995          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
996          (void) (*Lnk92)();          (void) (*Lnk92)();
997          vs_top=sup;          vs_top=sup;
998          goto T449;          goto T444;
999          goto T450;          goto T445;
1000  T450:;  T445:;
1001          if((V182!= VV[25]))goto T452;          if((V166!= VV[25]))goto T447;
1002          base[0]= (V154);          base[0]= (V149);
1003          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1004          (void) (*Lnk93)();          (void) (*Lnk93)();
1005          vs_top=sup;          vs_top=sup;
1006          goto T449;          goto T444;
1007          goto T452;          goto T447;
1008  T452:;  T447:;
1009          if((V182!= VV[26]))goto T454;          if((V166!= VV[26]))goto T449;
1010          base[0]= (V154);          base[0]= (V149);
1011          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1012          (void) (*Lnk94)();          (void) (*Lnk94)();
1013          vs_top=sup;          vs_top=sup;
1014            goto T444;
1015          goto T449;          goto T449;
1016          goto T454;  T449:;
1017  T454:;          if((V166!= VV[27]))goto T451;
1018          if((V182!= VV[27]))goto T456;          base[0]= (V149);
         base[0]= (V154);  
1019          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1020          (void) (*Lnk95)();          (void) (*Lnk95)();
1021          vs_top=sup;          vs_top=sup;
1022          goto T449;          goto T444;
1023          goto T456;          goto T451;
1024  T456:;  T451:;
1025          if((V182!= VV[7]))goto T458;          if((V166!= VV[7]))goto T453;
1026          base[0]= (V154);          base[0]= (V149);
1027          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1028          (void) (*Lnk96)();          (void) (*Lnk96)();
1029          vs_top=sup;          vs_top=sup;
1030          goto T449;          goto T444;
1031          goto T458;          goto T453;
1032  T458:;  T453:;
1033          (void)((*(LnkLI85))());}          (void)((*(LnkLI85))());}
1034          goto T449;          goto T444;
1035  T449:;  T444:;
1036          princ_char(59,VV[34]);          princ_char(59,VV[34]);
1037          {object V184 = Cnil;          {object V167 = Cnil;
1038          VMR13(V184)}}          VMR13(V167)}}
1039          goto T333;          goto T331;
1040  T333:;  T331:;
1041          {object V185 = Cnil;          {object V168 = Cnil;
1042          VMR13(V185)}          VMR13(V168)}
1043          base[0]=base[0];          base[0]=base[0];
1044          return Cnil;          return Cnil;
1045  }  }
1046  /*      local entry for function SCH-GLOBAL     */  /*      local entry for function SCH-GLOBAL     */
1047    
1048  static object LI14(V187)  static object LI14(V170)
1049    
1050  register object V187;  register object V170;
1051  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1052          goto TTL;          goto TTL;
1053  TTL:;  TTL:;
1054          {register object V188;          {register object V171;
1055          register object V189;          register object V172;
1056          V188= symbol_value(VV[18]);          V171= (VV[18]->s.s_dbind);
1057          V189= car((V188));          V172= CMPcar((V171));
1058            goto T459;
1059    T459:;
1060            if(!(((V171))==Cnil)){
1061            goto T460;}
1062            {object V173 = Cnil;
1063            VMR14(V173)}
1064            goto T460;
1065    T460:;
1066            if(!((STREF(object,(V172),0))==((V170)))){
1067            goto T464;}
1068            {object V174 = (V172);
1069            VMR14(V174)}
1070          goto T464;          goto T464;
1071  T464:;  T464:;
1072          if(!(endp_prop((V188)))){          V171= CMPcdr((V171));
1073          goto T465;}          V172= CMPcar((V171));
1074          {object V190 = Cnil;          goto T459;}
         VMR14(V190)}  
         goto T465;  
 T465:;  
         V191= structure_ref((V189),VV[0],0);  
         if(!((/* INLINE-ARGS */V191)==((V187)))){  
         goto T469;}  
         {object V192 = (V189);  
         VMR14(V192)}  
         goto T469;  
 T469:;  
         V188= cdr((V188));  
         V189= car((V188));  
         goto T464;}  
1075          base[0]=base[0];          base[0]=base[0];
1076          return Cnil;          return Cnil;
1077  }  }
1078  /*      local entry for function C1ADD-GLOBALS  */  /*      local entry for function C1ADD-GLOBALS  */
1079    
1080  static object LI15(V194)  static object LI15(V176)
1081    
1082  object V194;  object V176;
1083  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1084          goto TTL;          goto TTL;
1085  TTL:;  TTL:;
1086          {register object V195;          {register object V177;
1087          register object V196;          register object V178;
1088          V195= (V194);          V177= (V176);
1089          V196= car((V195));          V178= CMPcar((V177));
1090          goto T480;          goto T475;
1091  T480:;  T475:;
1092          if(!(endp_prop((V195)))){          if(!(((V177))==Cnil)){
1093          goto T481;}          goto T476;}
1094          {object V197 = Cnil;          {object V179 = Cnil;
1095          VMR15(V197)}          VMR15(V179)}
1096          goto T481;          goto T476;
1097  T481:;  T476:;
1098          {register object V198;          {register object V180;
1099          V199= (*(LnkLI68))((V196));          V181= (*(LnkLI68))((V178));
1100          {register object V201;          {register object V183;
1101          V201= get((V196),VV[5],Cnil);          {object V184 =((V178))->s.s_plist;
1102          if(((V201))==Cnil){           object ind= VV[5];
1103          goto T490;}          while(V184!=Cnil){
1104          V200= (V201);          if(V184->c.c_car==ind){
1105          goto T487;          V183= (V184->c.c_cdr->c.c_car);
1106          goto T490;          goto T483;
1107  T490:;          }else V184=V184->c.c_cdr->c.c_cdr;}
1108          V200= Ct;}          V183= Cnil;}
1109          goto T487;          goto T483;
1110  T487:;  T483:;
1111          V198= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V196),VV[14],VV[15],VV[16],/* INLINE-ARGS */V199,VV[17],V200));          if(((V183))==Cnil){
1112          setq(VV[13],make_cons((V198),symbol_value(VV[13])));}          goto T485;}
1113          V195= cdr((V195));          V182= (V183);
1114          V196= car((V195));          goto T482;
1115          goto T480;}          goto T485;
1116    T485:;
1117            V182= Ct;}
1118            goto T482;
1119    T482:;
1120            V180= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V178),VV[14],VV[15],VV[16],/* INLINE-ARGS */V181,VV[17],V182));
1121            (VV[13]->s.s_dbind)= make_cons((V180),(VV[13]->s.s_dbind));}
1122            V177= CMPcdr((V177));
1123            V178= CMPcar((V177));
1124            goto T475;}
1125          base[0]=base[0];          base[0]=base[0];
1126          return Cnil;          return Cnil;
1127  }  }
1128  /*      local entry for function C1SETQ */  /*      local entry for function C1SETQ */
1129    
1130  static object LI16(V203)  static object LI16(V186)
1131    
1132  register object V203;  register object V186;
1133  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1134          goto TTL;          goto TTL;
1135  TTL:;  TTL:;
1136          if(!(endp_prop((V203)))){          if(!(((V186))==Cnil)){
1137          goto T499;}          goto T494;}
1138          {object V204 = (*(LnkLI97))();          {object V187 = (*(LnkLI97))();
1139          VMR16(V204)}          VMR16(V187)}
1140          goto T499;          goto T494;
1141  T499:;  T494:;
1142          if(!(endp_prop(cdr((V203))))){          if(!((CMPcdr((V186)))==Cnil)){
1143          goto T502;}          goto T497;}
1144          {object V205 = (*(LnkLI98))(VV[43],small_fixnum(2),small_fixnum(1));          {object V188 = (*(LnkLI98))(VV[43],small_fixnum(2),small_fixnum(1));
1145          VMR16(V205)}          VMR16(V188)}
1146          goto T502;          goto T497;
1147  T502:;  T497:;
1148          if(!(endp_prop(cddr((V203))))){          if(!((CMPcddr((V186)))==Cnil)){
1149          goto T505;}          goto T500;}
1150          {object V206 = (*(LnkLI99))(car((V203)),cadr((V203)));          {object V189 = (*(LnkLI99))(CMPcar((V186)),CMPcadr((V186)));
1151          VMR16(V206)}          VMR16(V189)}
1152          goto T505;          goto T500;
1153  T505:;  T500:;
1154          {register object V207;          {register object V190;
1155          register object V208;          register object V191;
1156          V207= (V203);          V190= (V186);
1157          V208= Cnil;          V191= Cnil;
1158            goto T503;
1159    T503:;
1160            if(!(((V190))==Cnil)){
1161            goto T504;}
1162            V192= reverse((V191));
1163            V193= make_cons(VV[44],/* INLINE-ARGS */V192);
1164            {object V194 = (*(LnkLI100))(/* INLINE-ARGS */V193);
1165            VMR16(V194)}
1166            goto T504;
1167    T504:;
1168            if(!((CMPcdr((V190)))==Cnil)){
1169            goto T508;}
1170            (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[45],CMPcar((V190)))));
1171          goto T508;          goto T508;
1172  T508:;  T508:;
1173          if(!(endp_prop((V207)))){          {register object V195;
1174          goto T509;}          V195= list(3,VV[43],CMPcar((V190)),CMPcadr((V190)));
1175          V209= reverse((V208));          V191= make_cons((V195),(V191));}
1176          V210= make_cons(VV[44],/* INLINE-ARGS */V209);          V190= CMPcddr((V190));
1177          {object V211 = (*(LnkLI100))(/* INLINE-ARGS */V210);          goto T503;}
         VMR16(V211)}  
         goto T509;  
 T509:;  
         if(!(endp_prop(cdr((V207))))){  
         goto T513;}  
         (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[45],car((V207)))));  
         goto T513;  
 T513:;  
         {register object V212;  
         V212= list(3,VV[43],car((V207)),cadr((V207)));  
         V208= make_cons((V212),(V208));}  
         V207= cddr((V207));  
         goto T508;}  
1178          base[0]=base[0];          base[0]=base[0];
1179          return Cnil;          return Cnil;
1180  }  }
1181  /*      local entry for function C1SETQ1        */  /*      local entry for function C1SETQ1        */
1182    
1183  static object LI17(V215,V216)  static object LI17(V198,V199)
1184    
1185  register object V215;object V216;  register object V198;object V199;
1186  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
1187          goto TTL;          goto TTL;
1188  TTL:;  TTL:;
1189          {register object V217;          {register object V200;
1190          register object V218;          register object V201;
1191          register object V219;          register object V202;
1192          register object V220;          register object V203;
1193          V217= (VFUN_NARGS=0,(*(LnkLI71))());          V200= (VFUN_NARGS=0,(*(LnkLI71))());
1194          V218= Cnil;          V201= Cnil;
1195          V219= Cnil;          V202= Cnil;
1196          V220= Cnil;          V203= Cnil;
1197          if(type_of((V215))==t_symbol){          if(type_of((V198))==t_symbol){
1198          goto T526;}          goto T521;}
1199          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[46],(V215))));          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[46],(V198))));
1200          goto T526;          goto T521;
1201  T526:;  T521:;
1202          base[1]= (V215);          base[1]= (V198);
1203          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1204          Lconstantp();          Lconstantp();
1205          vs_top=sup;          vs_top=sup;
1206          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1207          goto T529;}          goto T524;}
1208          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[47],(V215))));          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[47],(V198))));
1209          goto T529;          goto T524;
1210  T529:;  T524:;
1211          V220= (*(LnkLI72))((V215));          V203= (*(LnkLI72))((V198));
1212          {object V221;          {object V204;
1213          object V223;          object V206;
1214          V221= car((V220));          V204= CMPcar((V203));
1215          V224= structure_ref(V217,VV[12],0);          V206= make_cons((V204),STREF(object,V200,0));
1216          V223= make_cons((V221),/* INLINE-ARGS */V224);          V207= Ct;
1217          (void)(structure_set(V217,VV[12],0,(V223)));}          STSET(object,V200,0, (V206));
1218          V219= (*(LnkLI100))((V216));          (void)((V206));}
1219          (void)((*(LnkLI101))((V217),cadr((V219))));          V202= (*(LnkLI100))((V199));
1220          V225= structure_ref(car((V220)),VV[0],5);          (void)((*(LnkLI101))((V200),CMPcadr((V202))));
1221          V226= structure_ref(cadr((V219)),VV[12],2);          V201= (*(LnkLI102))(STREF(object,CMPcar((V203)),20),STREF(object,CMPcadr((V202)),8));
1222          V218= (*(LnkLI102))(/* INLINE-ARGS */V225,/* INLINE-ARGS */V226);          if(((V201))!=Cnil){
1223          if(((V218))!=Cnil){          goto T538;}
1224          goto T543;}          (void)((VFUN_NARGS=3,(*(LnkLI70))(VV[48],(V198),(V199))));
1225          (void)((VFUN_NARGS=3,(*(LnkLI70))(VV[48],(V215),(V216))));          goto T538;
1226          goto T543;  T538:;
1227  T543:;          if(((V201))==(STREF(object,CMPcadr((V202)),8))){
1228          V227= structure_ref(cadr((V219)),VV[12],2);          goto T541;}
1229          if(((V218))==(/* INLINE-ARGS */V227)){          {object V208;
1230          goto T546;}          base[1]= CMPcadr((V202));
         {object V228;  
         base[1]= cadr((V219));  
1231          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1232          (void) (*Lnk103)();          (void) (*Lnk103)();
1233          vs_top=sup;          vs_top=sup;
1234          V228= vs_base[0];          V208= vs_base[0];
1235          (void)(structure_set((V228),VV[12],2,(V218)));          V209= Ct;
1236          V219= listA(3,car((V219)),(V228),cddr((V219)));}          STSET(object,(V208),8, (V201));
1237          goto T546;          (void)((V201));
1238  T546:;          V202= listA(3,CMPcar((V202)),(V208),CMPcddr((V202)));}
1239          (void)(structure_set((V217),VV[12],2,(V218)));          goto T541;
1240          {object V229 = list(4,VV[43],(V217),(V220),(V219));  T541:;
1241          VMR17(V229)}}          V210= Ct;
1242            STSET(object,(V200),8, (V201));
1243            (void)((V201));
1244            {object V211 = list(4,VV[43],(V200),(V203),(V202));
1245            VMR17(V211)}}
1246          base[0]=base[0];          base[0]=base[0];
1247          return Cnil;          return Cnil;
1248  }  }
1249  /*      local entry for function C2SETQ */  /*      local entry for function C2SETQ */
1250    
1251  static object LI18(V232,V233)  static object LI18(V214,V215)
1252    
1253  object V232;object V233;  object V214;object V215;
1254  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1255          bds_check;          bds_check;
1256          goto TTL;          goto TTL;
1257  TTL:;  TTL:;
1258          base[0]= make_cons(VV[0],(V232));          base[0]= make_cons(VV[0],(V214));
1259          bds_bind(VV[49],base[0]);          bds_bind(VV[49],base[0]);
1260          V234= (*(LnkLI104))((V233));          V216= (*(LnkLI104))((V215));
1261          bds_unwind1;          bds_unwind1;
1262          {object V235= car((V233));          {object V217= CMPcar((V215));
1263          if((V235!= VV[105]))goto T556;          if((V217!= VV[105]))goto T551;
1264          {object V236 = (*(LnkLI106))(caddr((V233)));          {object V218 = (*(LnkLI106))(CMPcaddr((V215)));
1265          VMR18(V236)}          VMR18(V218)}
1266          goto T556;          goto T551;
1267  T556:;  T551:;
1268          V237= make_cons(VV[0],(V232));          V219= make_cons(VV[0],(V214));
1269          {object V238 = (VFUN_NARGS=1,(*(LnkLI76))(/* INLINE-ARGS */V237));          {object V220 = (VFUN_NARGS=1,(*(LnkLI76))(/* INLINE-ARGS */V219));
1270          VMR18(V238)}}          VMR18(V220)}}
1271          base[0]=base[0];          base[0]=base[0];
1272          return Cnil;          return Cnil;
1273  }  }
1274  /*      local entry for function C1PROGV        */  /*      local entry for function C1PROGV        */
1275    
1276  static object LI19(V240)  static object LI19(V222)
1277    
1278  register object V240;  register object V222;
1279  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1280          goto TTL;          goto TTL;
1281  TTL:;  TTL:;
1282          {object V241;          {object V223;
1283          object V242;          object V224;
1284          register object V243;          register object V225;
1285          V241= Cnil;          V223= Cnil;
1286          V242= Cnil;          V224= Cnil;
1287          V243= (VFUN_NARGS=0,(*(LnkLI71))());          V225= (VFUN_NARGS=0,(*(LnkLI71))());
1288          if(endp_prop((V240))){          if(((V222))==Cnil){
1289          goto T561;}          goto T556;}
1290          if(!(endp_prop(cdr((V240))))){          if(!((CMPcdr((V222)))==Cnil)){
1291          goto T560;}          goto T555;}
1292          goto T561;          goto T556;
1293  T561:;  T556:;
1294          V244 = make_fixnum((long)length((V240)));          V226 = CMPmake_fixnum((long)length((V222)));
1295          (void)((*(LnkLI98))(VV[50],small_fixnum(2),V244));          (void)((*(LnkLI98))(VV[50],small_fixnum(2),V226));
1296          goto T560;          goto T555;
1297  T560:;  T555:;
1298          V241= (*(LnkLI107))(car((V240)),(V243));          V223= (*(LnkLI107))(CMPcar((V222)),(V225));
1299          V242= (*(LnkLI107))(cadr((V240)),(V243));          V224= (*(LnkLI107))(CMPcadr((V222)),(V225));
1300          {object V245 = list(5,VV[50],(V243),(V241),(V242),(*(LnkLI108))(cddr((V240)),(V243)));          {object V227 = list(5,VV[50],(V225),(V223),(V224),(*(LnkLI108))(CMPcddr((V222)),(V225)));
1301          VMR19(V245)}}          VMR19(V227)}}
1302          base[0]=base[0];          base[0]=base[0];
1303          return Cnil;          return Cnil;
1304  }  }
1305  /*      local entry for function C2PROGV        */  /*      local entry for function C2PROGV        */
1306    
1307  static object LI20(V249,V250,V251)  static object LI20(V231,V232,V233)
1308    
1309  object V249;object V250;object V251;  object V231;object V232;object V233;
1310  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1311          bds_check;          bds_check;
1312          goto TTL;          goto TTL;
1313  TTL:;  TTL:;
1314          {object V252;          {object V234;
1315          setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1)));          (VV[51]->s.s_dbind)= number_plus((VV[51]->s.s_dbind),small_fixnum(1));
1316          V252= symbol_value(VV[51]);          V234= (VV[51]->s.s_dbind);
1317          bds_bind(VV[52],symbol_value(VV[52]));          bds_bind(VV[52],(VV[52]->s.s_dbind));
1318          princ_str("\n   {object symbols,values;",VV[34]);          princ_str("\n   {object symbols,values;",VV[34]);
1319          princ_str("\n   bds_ptr V",VV[34]);          princ_str("\n   bds_ptr V",VV[34]);
1320          (void)((*(LnkLI77))((V252)));          (void)((*(LnkLI77))((V234)));
1321          princ_str("=bds_top;",VV[34]);          princ_str("=bds_top;",VV[34]);
1322          (VV[52]->s.s_dbind)= make_cons(V252,(VV[52]->s.s_dbind));          (VV[52]->s.s_dbind)= make_cons(V234,(VV[52]->s.s_dbind));
1323          bds_bind(VV[53],symbol_value(VV[53]));          bds_bind(VV[53],(VV[53]->s.s_dbind));
1324          base[3]= list(2,VV[54],(*(LnkLI109))());          base[3]= list(2,VV[54],(*(LnkLI109))());
1325          bds_bind(VV[49],base[3]);          bds_bind(VV[49],base[3]);
1326          (void)((*(LnkLI104))((V249)));          (void)((*(LnkLI104))((V231)));
1327          princ_str("\n   symbols= ",VV[34]);          princ_str("\n   symbols= ",VV[34]);
1328          (void)((*(LnkLI77))((VV[49]->s.s_dbind)));          (void)((*(LnkLI77))((VV[49]->s.s_dbind)));
1329          princ_char(59,VV[34]);          princ_char(59,VV[34]);
1330          bds_unwind1;          bds_unwind1;
1331          base[3]= list(2,VV[54],(*(LnkLI109))());          base[3]= list(2,VV[54],(*(LnkLI109))());
1332          bds_bind(VV[49],base[3]);          bds_bind(VV[49],base[3]);
1333          (void)((*(LnkLI104))((V250)));          (void)((*(LnkLI104))((V232)));
1334          princ_str("\n   values= ",VV[34]);          princ_str("\n   values= ",VV[34]);
1335          (void)((*(LnkLI77))((VV[49]->s.s_dbind)));          (void)((*(LnkLI77))((VV[49]->s.s_dbind)));
1336          princ_char(59,VV[34]);          princ_char(59,VV[34]);
1337          bds_unwind1;          bds_unwind1;
1338          princ_str("\n   while(!endp(symbols)){",VV[34]);          princ_str("\n   while(!endp(symbols)){",VV[34]);
1339          if((symbol_value(VV[37]))==Cnil){          if(((VV[37]->s.s_dbind))==Cnil){
1340          goto T594;}          goto T589;}
1341          princ_str("\n   if(type_of(MMcar(symbols))!=t_symbol)",VV[34]);          princ_str("\n   if(type_of(MMcar(symbols))!=t_symbol)",VV[34]);
1342          princ_str("\n   FEinvalid_variable(\"~s is not a symbol.\",MMcar(symbols));",VV[34]);          princ_str("\n   FEinvalid_variable(\"~s is not a symbol.\",MMcar(symbols));",VV[34]);
1343          goto T594;          goto T589;
1344  T594:;  T589:;
1345          princ_str("\n   if(endp(values))bds_bind(MMcar(symbols),OBJNULL);",VV[34]);          princ_str("\n   if(endp(values))bds_bind(MMcar(symbols),OBJNULL);",VV[34]);
1346          princ_str("\n   else{bds_bind(MMcar(symbols),MMcar(values));",VV[34]);          princ_str("\n   else{bds_bind(MMcar(symbols),MMcar(values));",VV[34]);
1347          princ_str("\n   values=MMcdr(values);}",VV[34]);          princ_str("\n   values=MMcdr(values);}",VV[34]);
1348          princ_str("\n   symbols=MMcdr(symbols);}",VV[34]);          princ_str("\n   symbols=MMcdr(symbols);}",VV[34]);
1349          bds_unwind1;          bds_unwind1;
1350          base[2]= (V251);          base[2]= (V233);
1351          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1352          (void) (*Lnk110)();          (void) (*Lnk110)();
1353          vs_top=sup;          vs_top=sup;
1354          princ_char(125,VV[34]);          princ_char(125,VV[34]);
1355          {object V254 = Cnil;          {object V236 = Cnil;
1356          bds_unwind1;          bds_unwind1;
1357          VMR20(V254)}}          VMR20(V236)}}
1358          base[0]=base[0];          base[0]=base[0];
1359          return Cnil;          return Cnil;
1360  }  }
1361  /*      local entry for function C1PSETQ        */  /*      local entry for function C1PSETQ        */
1362    
1363  static object LI21(V256)  static object LI21(V238)
1364    
1365  object V256;  object V238;
1366  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
1367          goto TTL;          goto TTL;
1368  TTL:;  TTL:;
1369          {object V257;          {object V239;
1370          register object V258;          register object V240;
1371          object V259;          object V241;
1372          V257= Cnil;          V239= Cnil;
1373          V258= Cnil;          V240= Cnil;
1374          V259= (VFUN_NARGS=2,(*(LnkLI71))(VV[17],VV[55]));          V241= (VFUN_NARGS=2,(*(LnkLI71))(VV[17],VV[55]));
1375          {register object V260;          {register object V242;
1376          V260= (V256);          V242= (V238);
1377            goto T610;
1378    T610:;
1379            if(!(((V242))==Cnil)){
1380            goto T611;}
1381            goto T608;
1382            goto T611;
1383    T611:;
1384            if(type_of(CMPcar((V242)))==t_symbol){
1385            goto T615;}
1386            (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[56],CMPcar((V242)))));
1387          goto T615;          goto T615;
1388  T615:;  T615:;
1389          if(!(endp_prop((V260)))){          base[1]= CMPcar((V242));
         goto T616;}  
         goto T613;  
         goto T616;  
 T616:;  
         if(type_of(car((V260)))==t_symbol){  
         goto T620;}  
         (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[56],car((V260)))));  
         goto T620;  
 T620:;  
         base[1]= car((V260));  
1390          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1391          Lconstantp();          Lconstantp();
1392          vs_top=sup;          vs_top=sup;
1393          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1394          goto T623;}          goto T618;}
1395          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[57],car((V260)))));          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[57],CMPcar((V242)))));
1396          goto T623;          goto T618;
1397  T623:;  T618:;
1398          if(!(endp_prop(cdr((V260))))){          if(!((CMPcdr((V242)))==Cnil)){
1399          goto T627;}          goto T622;}
1400          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[58],car((V260)))));          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[58],CMPcar((V242)))));
1401          goto T627;          goto T622;
1402  T627:;  T622:;
1403          {register object V261;          {register object V243;
1404          register object V262;          register object V244;
1405          register object V263;          register object V245;
1406          V261= (*(LnkLI72))(car((V260)));          V243= (*(LnkLI72))(CMPcar((V242)));
1407          V262= (*(LnkLI100))(cadr((V260)));          V244= (*(LnkLI100))(CMPcadr((V242)));
1408          V264= structure_ref(car((V261)),VV[0],5);          V245= (*(LnkLI102))(STREF(object,CMPcar((V243)),20),STREF(object,CMPcadr((V244)),8));
1409          V265= structure_ref(cadr((V262)),VV[12],2);          if(equal((V245),STREF(object,CMPcadr((V244)),8))){
1410          V263= (*(LnkLI102))(/* INLINE-ARGS */V264,/* INLINE-ARGS */V265);          goto T629;}
1411          V266= structure_ref(cadr((V262)),VV[12],2);          {register object V246;
1412          if(equal((V263),/* INLINE-ARGS */V266)){          base[4]= CMPcadr((V244));
         goto T634;}  
         {register object V267;  
         base[4]= cadr((V262));  
1413          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1414          (void) (*Lnk103)();          (void) (*Lnk103)();
1415          vs_top=sup;          vs_top=sup;
1416          V267= vs_base[0];          V246= vs_base[0];
1417          (void)(structure_set((V267),VV[12],2,(V263)));          V247= Ct;
1418          V262= listA(3,car((V262)),(V267),cddr((V262)));}          STSET(object,(V246),8, (V245));
1419          goto T634;          (void)((V245));
1420  T634:;          V244= listA(3,CMPcar((V244)),(V246),CMPcddr((V244)));}
1421          V257= make_cons(V261,(V257));          goto T629;
1422          V258= make_cons(V262,(V258));  T629:;
1423          {object V270;          V239= make_cons(V243,(V239));
1424          register object V271;          V240= make_cons(V244,(V240));
1425          object V272;          {object V250;
1426          V270= car((V261));          register object V251;
1427          V271= (V259);          object V252;
1428          V273= structure_ref((V271),VV[12],0);          V250= CMPcar((V243));
1429          V272= make_cons((V270),/* INLINE-ARGS */V273);          V251= (V241);
1430          (void)(structure_set((V271),VV[12],0,(V272)));}          V252= make_cons((V250),STREF(object,(V251),0));
1431          (void)((*(LnkLI101))((V259),cadar((V258))));}          V253= Ct;
1432          V260= cddr((V260));          STSET(object,(V251),0, (V252));
1433          goto T615;}          (void)((V252));}
1434          goto T613;          (void)((*(LnkLI101))((V241),CMPcadar((V240))));}
1435  T613:;          V242= CMPcddr((V242));
1436          V274= reverse((V257));          goto T610;}
1437          {object V275 = list(4,VV[59],(V259),/* INLINE-ARGS */V274,reverse((V258)));          goto T608;
1438          VMR21(V275)}}  T608:;
1439            V254= reverse((V239));
1440            {object V255 = list(4,VV[59],(V241),/* INLINE-ARGS */V254,reverse((V240)));
1441            VMR21(V255)}}
1442          base[0]=base[0];          base[0]=base[0];
1443          return Cnil;          return Cnil;
1444  }  }
1445  /*      local entry for function C2PSETQ        */  /*      local entry for function C2PSETQ        */
1446    
1447  static object LI22(V278,V279)  static object LI22(V258,V259)
1448    
1449  object V278;register object V279;  object V258;register object V259;
1450  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
1451          bds_check;          bds_check;
1452          goto TTL;          goto TTL;
1453  TTL:;  TTL:;
1454          {register object V280;          {register object V260;
1455          object V281;          object V261;
1456          bds_bind(VV[53],symbol_value(VV[53]));          bds_bind(VV[53],(VV[53]->s.s_dbind));
1457          V280= Cnil;          V260= Cnil;
1458          V281= small_fixnum(0);          V261= small_fixnum(0);
1459          {register object V282;          {register object V262;
1460          register object V283;          register object V263;
1461          V282= (V278);          V262= (V258);
1462          V283= car((V282));          V263= CMPcar((V262));
1463          goto T658;          goto T653;
1464  T658:;  T653:;
1465          if(!(endp_prop((V282)))){          if(!(((V262))==Cnil)){
1466          goto T659;}          goto T654;}
1467            goto T649;
1468          goto T654;          goto T654;
1469    T654:;
1470            if(((*(LnkLI111))(CMPcar((V263)),CMPcdr((V259))))!=Cnil){
1471            goto T659;}
1472            if(((*(LnkLI112))(CMPcar((V263)),CMPcdr((V259))))==Cnil){
1473            goto T660;}
1474          goto T659;          goto T659;
1475  T659:;  T659:;
1476          if(((*(LnkLI111))(car((V283)),cdr((V279))))!=Cnil){          {object V264= CMPcaar((V259));
1477          goto T664;}          if((V264!= VV[105]))goto T664;
1478          if(((*(LnkLI112))(car((V283)),cdr((V279))))==Cnil){          {object V265;
1479          goto T665;}          V265= make_cons((V263),CMPcaddar((V259)));
1480            V260= make_cons((V265),(V260));
1481            goto T658;}
1482          goto T664;          goto T664;
1483  T664:;  T664:;
1484          {object V284= caar((V279));          {register object x= STREF(object,CMPcar((V263)),4),V266= VV[60];
1485          if((V284!= VV[105]))goto T669;          while(V266!=Cnil)
1486          {object V285;          if(eql(x,V266->c.c_car)){
1487          V285= make_cons((V283),caddar((V279)));          goto T669;
1488          V280= make_cons((V285),(V280));          }else V266=V266->c.c_cdr;
1489          goto T663;}          goto T668;}
1490          goto T669;          goto T669;
1491  T669:;  T669:;
1492          V287= structure_ref(car((V283)),VV[0],1);          {object V267;
1493          {register object x= /* INLINE-ARGS */V287,V286= VV[60];          object V268;
1494          while(!endp(V286))          object V269;
1495          if(eql(x,V286->c.c_car)){          V267= STREF(object,CMPcar((V263)),4);
1496          goto T674;          (VV[51]->s.s_dbind)= number_plus((VV[51]->s.s_dbind),small_fixnum(1));
1497          }else V286=V286->c.c_cdr;          V268= (VV[51]->s.s_dbind);
1498          goto T673;}          V270= (VFUN_NARGS=4,(*(LnkLI66))(VV[14],(V267),VV[16],(V268)));
1499          goto T674;          V269= list(3,VV[0],/* INLINE-ARGS */V270,Cnil);
 T674:;  
         {object V288;  
         object V289;  
         object V290;  
         V288= structure_ref(car((V283)),VV[0],1);  
         setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1)));  
         V289= symbol_value(VV[51]);  
         V291= (VFUN_NARGS=4,(*(LnkLI66))(VV[14],(V288),VV[16],(V289)));  
         V290= list(3,VV[0],/* INLINE-ARGS */V291,Cnil);  
1500          princ_str("\n   {",VV[34]);          princ_str("\n   {",VV[34]);
1501          (void)((*(LnkLI77))(symbol_value(VV[61])));          (void)((*(LnkLI77))((VV[61]->s.s_dbind)));
1502          V292= (*(LnkLI113))((V288));          V271= (*(LnkLI113))((V267));
1503          (void)((*(LnkLI77))(/* INLINE-ARGS */V292));          (void)((*(LnkLI77))(/* INLINE-ARGS */V271));
1504          princ_char(86,VV[34]);          princ_char(86,VV[34]);
1505          (void)((*(LnkLI77))((V289)));          (void)((*(LnkLI77))((V268)));
1506          princ_char(59,VV[34]);          princ_char(59,VV[34]);
1507          V281= number_plus((V281),small_fixnum(1));          V261= number_plus((V261),small_fixnum(1));
1508          bds_bind(VV[49],(V290));          bds_bind(VV[49],(V269));
1509          V293= (*(LnkLI104))(car((V279)));          V272= (*(LnkLI104))(CMPcar((V259)));
1510          bds_unwind1;          bds_unwind1;
1511          {object V294;          {object V273;
1512          V294= make_cons((V283),(V290));          V273= make_cons((V263),(V269));
1513          V280= make_cons((V294),(V280));          V260= make_cons((V273),(V260));
1514          goto T663;}}          goto T658;}}
1515          goto T673;          goto T668;
1516  T673:;  T668:;
1517          base[2]= list(2,VV[54],(*(LnkLI109))());          base[2]= list(2,VV[54],(*(LnkLI109))());
1518          bds_bind(VV[49],base[2]);          bds_bind(VV[49],base[2]);
1519          (void)((*(LnkLI104))(car((V279))));          (void)((*(LnkLI104))(CMPcar((V259))));
1520          {object V295;          {object V274;
1521          V295= make_cons((V283),(VV[49]->s.s_dbind));          V274= make_cons((V263),(VV[49]->s.s_dbind));
1522          V280= make_cons((V295),(V280));          V260= make_cons((V274),(V260));
1523          bds_unwind1;          bds_unwind1;
1524          goto T663;}}          goto T658;}}
1525          goto T665;          goto T660;
1526  T665:;  T660:;
1527          base[2]= make_cons(VV[0],(V283));          base[2]= make_cons(VV[0],(V263));
1528          bds_bind(VV[49],base[2]);          bds_bind(VV[49],base[2]);
1529          V296= (*(LnkLI104))(car((V279)));          V275= (*(LnkLI104))(CMPcar((V259)));
1530          bds_unwind1;          bds_unwind1;
1531          goto T663;          goto T658;
1532  T663:;  T658:;
1533          {object V297;          {object V276;
1534          V297= car((V279));          V276= CMPcar((V259));
1535          V279= cdr((V279));}          V259= CMPcdr((V259));}
1536          V282= cdr((V282));          V262= CMPcdr((V262));
1537          V283= car((V282));          V263= CMPcar((V262));
1538          goto T658;}          goto T653;}
1539          goto T654;          goto T649;
1540  T654:;  T649:;
1541          {register object V298;          {register object V277;
1542          register object V299;          register object V278;
1543          V298= (V280);          V277= (V260);
1544          V299= car((V298));          V278= CMPcar((V277));
1545          goto T709;          goto T704;
1546  T709:;  T704:;
1547          if(!(endp_prop((V298)))){          if(!(((V277))==Cnil)){
1548          goto T710;}          goto T705;}
1549          goto T705;          goto T700;
         goto T710;  
 T710:;  
         (void)((*(LnkLI42))(cdr((V299)),caar((V299)),cadar((V299))));  
         V298= cdr((V298));  
         V299= car((V298));  
         goto T709;}  
1550          goto T705;          goto T705;
1551  T705:;  T705:;
1552          {object V301;          (void)((*(LnkLI42))(CMPcdr((V278)),CMPcaar((V278)),CMPcadar((V278))));
1553          V301= small_fixnum(0);          V277= CMPcdr((V277));
1554          goto T723;          V278= CMPcar((V277));
1555  T723:;          goto T704;}
1556          if(!(number_compare((V301),V281)>=0)){          goto T700;
1557          goto T724;}  T700:;
1558          goto T720;          {object V280;
1559          goto T724;          V280= small_fixnum(0);
1560  T724:;          goto T718;
1561    T718:;
1562            if(!(number_compare((V280),V261)>=0)){
1563            goto T719;}
1564            goto T715;
1565            goto T719;
1566    T719:;
1567          princ_char(125,VV[34]);          princ_char(125,VV[34]);
1568          V301= one_plus((V301));          V280= one_plus((V280));
1569          goto T723;}          goto T718;}
1570          goto T720;          goto T715;
1571  T720:;  T715:;
1572          {object V302 = (VFUN_NARGS=1,(*(LnkLI76))(Cnil));          {object V281 = (VFUN_NARGS=1,(*(LnkLI76))(Cnil));
1573          bds_unwind1;          bds_unwind1;
1574          VMR22(V302)}}          VMR22(V281)}}
1575          base[0]=base[0];          base[0]=base[0];
1576          return Cnil;          return Cnil;
1577  }  }
1578  /*      function definition for WT-VAR-DECL     */  /*      local entry for function WT-VAR-DECL    */
1579    
1580  static void L23()  static object LI23(V283)
1581  {register object *base=vs_base;  
1582          register object *sup=base+VM23; VC23  register object V283;
1583          vs_reserve(VM23);  {        VMB23 VMS23 VMV23
         {register object V303;  
         check_arg(1);  
         V303=(base[0]);  
         vs_top=sup;  
1584          goto TTL;          goto TTL;
1585  TTL:;  TTL:;
1586          base[1]= (V303);          base[0]= (V283);
1587          base[2]= VV[0];          base[1]= VV[0];
1588          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+0)+2;
1589          (void) (*Lnk114)();          (void) (*Lnk114)();
1590          vs_top=sup;          vs_top=sup;
1591          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1592            goto T729;}
1593            {object V284;
1594            V284= STREF(object,(V283),16);
1595            if(!((STREF(object,(V283),4))==(VV[24]))){
1596          goto T734;}          goto T734;}
         {object V304;  
         V304= structure_ref((V303),VV[0],4);  
         V305= structure_ref((V303),VV[0],1);  
         if(!((/* INLINE-ARGS */V305)==(VV[24]))){  
         goto T739;}  
1597          princ_str("IDECL(",VV[34]);          princ_str("IDECL(",VV[34]);
1598          goto T739;          goto T734;
1599  T739:;  T734:;
1600          (void)((*(LnkLI77))(symbol_value(VV[61])));          (void)((*(LnkLI77))((VV[61]->s.s_dbind)));
1601          V306= (*(LnkLI69))((V303));          V285= (*(LnkLI69))((V283));
1602          (void)((*(LnkLI77))(/* INLINE-ARGS */V306));          (void)((*(LnkLI77))(/* INLINE-ARGS */V285));
1603          V307= structure_ref((V303),VV[0],1);          V286= (*(LnkLI113))(STREF(object,(V283),4));
1604          V308= (*(LnkLI113))(/* INLINE-ARGS */V307);          (void)((*(LnkLI77))(/* INLINE-ARGS */V286));
         (void)((*(LnkLI77))(/* INLINE-ARGS */V308));  
1605          princ_char(86,VV[34]);          princ_char(86,VV[34]);
1606          (void)((*(LnkLI77))((V304)));          (void)((*(LnkLI77))((V284)));
1607          V309= structure_ref((V303),VV[0],1);          if(!(eql(STREF(object,(V283),4),VV[24]))){
1608          if(!(eql(/* INLINE-ARGS */V309,VV[24]))){          goto T744;}
         goto T749;}  
1609          princ_str(",V",VV[34]);          princ_str(",V",VV[34]);
1610          (void)((*(LnkLI77))((V304)));          (void)((*(LnkLI77))((V284)));
1611          princ_str("space,V",VV[34]);          princ_str("space,V",VV[34]);
1612          (void)((*(LnkLI77))((V304)));          (void)((*(LnkLI77))((V284)));
1613          princ_str("alloc)",VV[34]);          princ_str("alloc)",VV[34]);
1614          goto T749;          goto T744;
1615  T749:;  T744:;
1616          princ_char(59,VV[34]);          princ_char(59,VV[34]);
1617          base[1]= Cnil;          {object V287 = Cnil;
1618          vs_top=(vs_base=base+1)+1;          VMR23(V287)}}
1619          return;}          goto T729;
1620          goto T734;  T729:;
1621  T734:;          {object V288 = (*(LnkLI79))();
1622          base[1]= (*(LnkLI79))();          VMR23(V288)}
1623          vs_top=(vs_base=base+1)+1;          base[0]=base[0];
1624          return;          return Cnil;
         }  
1625  }  }
1626  static object  LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* REGISTER */  static object  LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* REGISTER */
1627  static void LnkT114(){ call_or_link(VV[114],(void **)(void *)&Lnk114);} /* STRUCTURE-SUBTYPE-P */  static void LnkT114(){ call_or_link(VV[114],(void **)(void *)&Lnk114);} /* STRUCTURE-SUBTYPE-P */
# Line 1642  static void LnkT94(){ call_or_link(VV[94 Line 1648  static void LnkT94(){ call_or_link(VV[94
1648  static void LnkT93(){ call_or_link(VV[93],(void **)(void *)&Lnk93);} /* WT-CHARACTER-LOC */  static void LnkT93(){ call_or_link(VV[93],(void **)(void *)&Lnk93);} /* WT-CHARACTER-LOC */
1649  static void LnkT92(){ call_or_link(VV[92],(void **)(void *)&Lnk92);} /* WT-FIXNUM-LOC */  static void LnkT92(){ call_or_link(VV[92],(void **)(void *)&Lnk92);} /* WT-FIXNUM-LOC */
1650  static object  LnkTLI91(){return call_proc0(VV[91],(void **)(void *)&LnkLI91);} /* CLOSE-INLINE-BLOCKS */  static object  LnkTLI91(){return call_proc0(VV[91],(void **)(void *)&LnkLI91);} /* CLOSE-INLINE-BLOCKS */
1651  static void LnkT90(){ call_or_link(VV[90],(void **)(void *)&Lnk90);} /* WT-INTEGER-LOC */  static object  LnkTLI90(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[90],(void **)(void *)&LnkLI90,first,ap);va_end(ap);return V1;} /* WT-INTEGER-LOC */
1652  static void LnkT89(){ call_or_link(VV[89],(void **)(void *)&Lnk89);} /* SAVE-AVMA */  static object  LnkTLI89(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[89],(void **)(void *)&LnkLI89,1,first,ap);va_end(ap);return V1;} /* SAVE-AVMA */
1653  static void LnkT87(){ call_or_link(VV[87],(void **)(void *)&Lnk87);} /* WT-INLINE-LOC */  static void LnkT87(){ call_or_link(VV[87],(void **)(void *)&Lnk87);} /* WT-INLINE-LOC */
1654  static object  LnkTLI85(){return call_proc0(VV[85],(void **)(void *)&LnkLI85);} /* BABOON */  static object  LnkTLI85(){return call_proc0(VV[85],(void **)(void *)&LnkLI85);} /* BABOON */
1655  static object  LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[84],(void **)(void *)&LnkLI84,1,first,ap);va_end(ap);return V1;} /* WT-DOWN */  static object  LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[84],(void **)(void *)&LnkLI84,1,first,ap);va_end(ap);return V1;} /* WT-DOWN */

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