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

Diff of /gcl/cmpnew/gcl_cmpinline.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:27 2003 UTC
# Line 48  register object V9;object V10; Line 48  register object V9;object V10;
48  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
49          goto TTL;          goto TTL;
50  TTL:;  TTL:;
51          V11= structure_ref((V10),VV[0],0);          V11= append(STREF(object,(V10),0),STREF(object,(V9),0));
52          V12= structure_ref((V9),VV[0],0);          V12= Ct;
53          V13= append(/* INLINE-ARGS */V11,/* INLINE-ARGS */V12);          STSET(object,(V9),0, /* INLINE-ARGS */V11);
54          (void)(structure_set((V9),VV[0],0,/* INLINE-ARGS */V13));          (void)(/* INLINE-ARGS */V11);
55          V14= structure_ref((V10),VV[0],1);          V13= append(STREF(object,(V10),4),STREF(object,(V9),4));
56          V15= structure_ref((V9),VV[0],1);          V14= Ct;
57          V16= append(/* INLINE-ARGS */V14,/* INLINE-ARGS */V15);          STSET(object,(V9),4, /* INLINE-ARGS */V13);
58          (void)(structure_set((V9),VV[0],1,/* INLINE-ARGS */V16));          (void)(/* INLINE-ARGS */V13);
59          if((structure_ref((V10),VV[0],3))==Cnil){          if((STREF(object,(V10),12))==Cnil){
60          goto T11;}          goto T11;}
61          {object V17 = structure_set((V9),VV[0],3,Ct);          V15= Ct;
62          VMR2(V17)}          STSET(object,(V9),12, Ct);
63            {object V16 = Ct;
64            VMR2(V16)}
65          goto T11;          goto T11;
66  T11:;  T11:;
67          {object V18 = Cnil;          {object V17 = Cnil;
68          VMR2(V18)}          VMR2(V17)}
69          return Cnil;          return Cnil;
70  }  }
71  /*      local entry for function ARGS-INFO-CHANGED-VARS */  /*      local entry for function ARGS-INFO-CHANGED-VARS */
72    
73  static object LI3(V21,V22)  static object LI3(V20,V21)
74    
75  register object V21;object V22;  register object V20;object V21;
76  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
77          goto TTL;          goto TTL;
78  TTL:;  TTL:;
79          V24= structure_ref((V21),VV[1],1);          {object V22= STREF(object,(V20),4);
80          {object V23= /* INLINE-ARGS */V24;          if((V22== VV[71])
81          if((V23== VV[71])          || (V22== VV[45])
82          || (V23== VV[45])          || (V22== VV[72])
83          || (V23== VV[72])          || (V22== VV[46])
84          || (V23== VV[46])          || (V22== VV[47]))goto T14;
85          || (V23== VV[47]))goto T14;          if((V22!= VV[18]))goto T13;
         if((V23!= VV[18]))goto T13;  
86          goto T14;          goto T14;
87  T14:;  T14:;
88          {register object V25;          {register object V23;
89          register object V26;          register object V24;
90          V25= (V22);          V23= (V21);
91          V26= car((V25));          V24= CMPcar((V23));
92          goto T18;          goto T18;
93  T18:;  T18:;
94          if(!(endp_prop((V25)))){          if(!(((V23))==Cnil)){
95          goto T19;}          goto T19;}
96          {object V27 = Cnil;          {object V25 = Cnil;
97          VMR3(V27)}          VMR3(V25)}
98          goto T19;          goto T19;
99  T19:;  T19:;
100          V29= structure_ref(cadr((V26)),VV[0],0);          {register object x= (V20),V26= STREF(object,CMPcadr((V24)),0);
101          {register object x= (V21),V28= /* INLINE-ARGS */V29;          while(V26!=Cnil)
102          while(!endp(V28))          if(eql(x,V26->c.c_car)){
         if(eql(x,V28->c.c_car)){  
103          goto T25;          goto T25;
104          }else V28=V28->c.c_cdr;          }else V26=V26->c.c_cdr;
105          goto T23;}          goto T23;}
106          goto T25;          goto T25;
107  T25:;  T25:;
108          {object V30 = Ct;          {object V27 = Ct;
109          VMR3(V30)}          VMR3(V27)}
110          goto T23;          goto T23;
111  T23:;  T23:;
112          V25= cdr((V25));          V23= CMPcdr((V23));
113          V26= car((V25));          V24= CMPcar((V23));
114          goto T18;}          goto T18;}
115          goto T13;          goto T13;
116  T13:;  T13:;
117          if((V23!= VV[73]))goto T31;          if((V22!= VV[73]))goto T31;
118          {object V31 = Cnil;          {object V28 = Cnil;
119          VMR3(V31)}          VMR3(V28)}
120          goto T31;          goto T31;
121  T31:;  T31:;
122          {register object V32;          {register object V29;
123          register object V33;          register object V30;
124          V32= (V22);          V29= (V21);
125          V33= car((V32));          V30= CMPcar((V29));
126          goto T35;          goto T35;
127  T35:;  T35:;
128          if(!(endp_prop((V32)))){          if(!(((V29))==Cnil)){
129          goto T36;}          goto T36;}
130          {object V34 = Cnil;          {object V31 = Cnil;
131          VMR3(V34)}          VMR3(V31)}
132          goto T36;          goto T36;
133  T36:;  T36:;
134          V36= structure_ref(cadr((V33)),VV[0],0);          {register object x= (V20),V32= STREF(object,CMPcadr((V30)),0);
135          {register object x= (V21),V35= /* INLINE-ARGS */V36;          while(V32!=Cnil)
136          while(!endp(V35))          if(eql(x,V32->c.c_car)){
         if(eql(x,V35->c.c_car)){  
137          goto T41;          goto T41;
138          }else V35=V35->c.c_cdr;}          }else V32=V32->c.c_cdr;}
139          if((structure_ref(cadr((V33)),VV[0],3))==Cnil){          if((STREF(object,CMPcadr((V30)),12))==Cnil){
140          goto T40;}          goto T40;}
141          goto T41;          goto T41;
142  T41:;  T41:;
143          {object V37 = Ct;          {object V33 = Ct;
144          VMR3(V37)}          VMR3(V33)}
145          goto T40;          goto T40;
146  T40:;  T40:;
147          V32= cdr((V32));          V29= CMPcdr((V29));
148          V33= car((V32));          V30= CMPcar((V29));
149          goto T35;}}          goto T35;}}
150          base[0]=base[0];          base[0]=base[0];
151          return Cnil;          return Cnil;
152  }  }
153  /*      local entry for function ARGS-INFO-REFERRED-VARS        */  /*      local entry for function ARGS-INFO-REFERRED-VARS        */
154    
155  static object LI4(V40,V41)  static object LI4(V36,V37)
156    
157  register object V40;object V41;  register object V36;object V37;
158  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
159          goto TTL;          goto TTL;
160  TTL:;  TTL:;
161          V43= structure_ref((V40),VV[1],1);          {object V38= STREF(object,(V36),4);
162          {object V42= /* INLINE-ARGS */V43;          if((V38== VV[71])
163          if((V42== VV[71])          || (V38== VV[73])
164          || (V42== VV[73])          || (V38== VV[45])
165          || (V42== VV[45])          || (V38== VV[72])
166          || (V42== VV[72])          || (V38== VV[46]))goto T51;
167          || (V42== VV[46]))goto T51;          if((V38!= VV[47])
168          if((V42!= VV[47])          && (V38!= VV[18]))goto T50;
         && (V42!= VV[18]))goto T50;  
169          goto T51;          goto T51;
170  T51:;  T51:;
171          {register object V44;          {register object V39;
172          register object V45;          register object V40;
173          V44= (V41);          V39= (V37);
174          V45= car((V44));          V40= CMPcar((V39));
175          goto T55;          goto T55;
176  T55:;  T55:;
177          if(!(endp_prop((V44)))){          if(!(((V39))==Cnil)){
178          goto T56;}          goto T56;}
179          {object V46 = Cnil;          {object V41 = Cnil;
180          VMR4(V46)}          VMR4(V41)}
181          goto T56;          goto T56;
182  T56:;  T56:;
183          V48= structure_ref(cadr((V45)),VV[0],1);          {register object x= (V36),V42= STREF(object,CMPcadr((V40)),4);
184          {register object x= (V40),V47= /* INLINE-ARGS */V48;          while(V42!=Cnil)
185          while(!endp(V47))          if(eql(x,V42->c.c_car)){
         if(eql(x,V47->c.c_car)){  
186          goto T62;          goto T62;
187          }else V47=V47->c.c_cdr;          }else V42=V42->c.c_cdr;
188          goto T60;}          goto T60;}
189          goto T62;          goto T62;
190  T62:;  T62:;
191          {object V49 = Ct;          {object V43 = Ct;
192          VMR4(V49)}          VMR4(V43)}
193          goto T60;          goto T60;
194  T60:;  T60:;
195          V44= cdr((V44));          V39= CMPcdr((V39));
196          V45= car((V44));          V40= CMPcar((V39));
197          goto T55;}          goto T55;}
198          goto T50;          goto T50;
199  T50:;  T50:;
200          {register object V50;          {register object V44;
201          register object V51;          register object V45;
202          V50= (V41);          V44= (V37);
203          V51= car((V50));          V45= CMPcar((V44));
204          goto T71;          goto T71;
205  T71:;  T71:;
206          if(!(endp_prop((V50)))){          if(!(((V44))==Cnil)){
207          goto T72;}          goto T72;}
208          {object V52 = Cnil;          {object V46 = Cnil;
209          VMR4(V52)}          VMR4(V46)}
210          goto T72;          goto T72;
211  T72:;  T72:;
212          V54= structure_ref(cadr((V51)),VV[0],1);          {register object x= (V36),V47= STREF(object,CMPcadr((V45)),4);
213          {register object x= (V40),V53= /* INLINE-ARGS */V54;          while(V47!=Cnil)
214          while(!endp(V53))          if(eql(x,V47->c.c_car)){
         if(eql(x,V53->c.c_car)){  
215          goto T77;          goto T77;
216          }else V53=V53->c.c_cdr;}          }else V47=V47->c.c_cdr;}
217          if((structure_ref(cadr((V51)),VV[0],3))==Cnil){          if((STREF(object,CMPcadr((V45)),12))==Cnil){
218          goto T76;}          goto T76;}
219          goto T77;          goto T77;
220  T77:;  T77:;
221          {object V55 = Ct;          {object V48 = Ct;
222          VMR4(V55)}          VMR4(V48)}
223          goto T76;          goto T76;
224  T76:;  T76:;
225          V50= cdr((V50));          V44= CMPcdr((V44));
226          V51= car((V50));          V45= CMPcar((V44));
227          goto T71;}}          goto T71;}}
228          base[0]=base[0];          base[0]=base[0];
229          return Cnil;          return Cnil;
230  }  }
231  /*      function definition for INC-INLINE-BLOCKS       */  /*      local entry for function INC-INLINE-BLOCKS      */
232    
233  static void L5()  static object LI5()
234  {register object *base=vs_base;  
235          register object *sup=base+VM5; VC5  {        VMB5 VMS5 VMV5
         vs_reserve(VM5);  
         check_arg(0);  
         vs_top=sup;  
236          goto TTL;          goto TTL;
237  TTL:;  TTL:;
238          if(!(type_of(symbol_value(VV[2]))==t_cons)){          if(!(type_of((VV[2]->s.s_dbind))==t_cons)){
239          goto T87;}          goto T87;}
240          {object V56;          {object V49;
241          object V57;          object V50;
242          V56= symbol_value(VV[2]);          V49= (VV[2]->s.s_dbind);
243          V57= number_plus(car((V56)),small_fixnum(1));          V50= number_plus(CMPcar((V49)),small_fixnum(1));
244          if(type_of((V56))!=t_cons)FEwrong_type_argument(Scons,(V56));          ((V49))->c.c_car = (V50);
245          ((V56))->c.c_car = (V57);          {object V51 = (V50);
246          base[1]= (V57);          VMR5(V51)}}
         vs_top=(vs_base=base+1)+1;  
         return;}  
247          goto T87;          goto T87;
248  T87:;  T87:;
249          setq(VV[2],number_plus(symbol_value(VV[2]),small_fixnum(1)));          (VV[2]->s.s_dbind)= number_plus((VV[2]->s.s_dbind),small_fixnum(1));
250          base[0]= symbol_value(VV[2]);          {object V52 = (VV[2]->s.s_dbind);
251          vs_top=(vs_base=base+0)+1;          VMR5(V52)}
252          return;          base[0]=base[0];
253            return Cnil;
254  }  }
255  /*      local entry for function INLINE-ARGS    */  /*      local entry for function INLINE-ARGS    */
256    
257  static object LI6(object V59,object V58,object first,...)  static object LI6(object V54,object V53,object first,...)
258  {        {      
259          va_list ap;          va_list ap;
260          int narg = VFUN_NARGS; VMB6 VMS6 VMV6          int narg = VFUN_NARGS; VMB6 VMS6 VMV6
261          bds_check;          bds_check;
262          {object V60;          {object V55;
263          object V61;          object V56;
264          object V62;          object V57;
265          va_start(ap,first);          va_start(ap,first);
266          if(narg <2) too_few_arguments();          V55= V54;
267          V60= V59;          V56= V53;
         V61= V58;  
268          narg = narg - 2;          narg = narg - 2;
269          if (narg <= 0) goto T93;          if (narg <= 0) goto T93;
270          else {          else {
271          V62= first;}          V57= first;}
272          --narg; goto T94;          --narg; goto T94;
273          goto T93;          goto T93;
274  T93:;  T93:;
275          V62= Cnil;          V57= Cnil;
276          goto T94;          goto T94;
277  T94:;  T94:;
278          {register object V63;          {register object V58;
279          register object V64;          register object V59;
280          V63= Cnil;          V58= Cnil;
281          V64= Cnil;          V59= Cnil;
282          {register object V65;          {register object V60;
283          object V66;          object V61;
284          V65= (V60);          V60= (V55);
285          V66= (V61);          V61= (V56);
286          goto T99;          goto T99;
287  T99:;  T99:;
288          if(!(endp_prop((V65)))){          if(!(((V60))==Cnil)){
289          goto T100;}          goto T100;}
290          {object V67 = reverse((V63));          {object V62 = reverse((V58));
291          VMR6(V67)}          VMR6(V62)}
292          goto T100;          goto T100;
293  T100:;  T100:;
294          {register object V68;          {register object V63;
295          register object V69;          register object V64;
296          V68= car((V65));          V63= CMPcar((V60));
297          V69= car((V66));          V64= CMPcar((V61));
298          {object V70= car((V68));          {object V65= CMPcar((V63));
299          if((V70!= VV[14]))goto T107;          if((V65!= VV[14]))goto T107;
300          {object V71;          {object V66;
301          V71= (*(LnkLI74))(caddr((V68)),(V69));          V66= (*(LnkLI74))(CMPcaddr((V63)),(V64));
302          V63= make_cons((V71),(V63));          V58= make_cons((V66),(V58));
303          goto T104;}          goto T104;}
304          goto T107;          goto T107;
305  T107:;  T107:;
306          if((V70!= VV[1]))goto T110;          if((V65!= VV[1]))goto T110;
307          if(((*(LnkLI75))(caaddr((V68)),cdr((V65))))==Cnil){          if(((*(LnkLI75))(CMPcaaddr((V63)),CMPcdr((V60))))==Cnil){
308          goto T112;}          goto T112;}
309          V73= structure_ref(caaddr((V68)),VV[1],1);          {register object x= STREF(object,CMPcaaddr((V63)),4),V67= (VV[3]->s.s_dbind);
310          {register object x= /* INLINE-ARGS */V73,V72= symbol_value(VV[3]);          while(V67!=Cnil)
311          while(!endp(V72))          if(eql(x,V67->c.c_car)){
         if(eql(x,V72->c.c_car)){  
312          goto T117;          goto T117;
313          }else V72=V72->c.c_cdr;          }else V67=V67->c.c_cdr;
314          goto T115;}          goto T115;}
315          goto T117;          goto T117;
316  T117:;  T117:;
317          V74= structure_ref(caaddr((V68)),VV[1],1);          if(!(((V64))==(STREF(object,CMPcaaddr((V63)),4)))){
         if(!(((V69))==(/* INLINE-ARGS */V74))){  
318          goto T115;}          goto T115;}
319          {object V75;          {object V68;
320          setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));          (VV[4]->s.s_dbind)= number_plus((VV[4]->s.s_dbind),small_fixnum(1));
321          V75= symbol_value(VV[4]);          V68= (VV[4]->s.s_dbind);
322          princ_str("\n   {",VV[5]);          princ_str("\n   {",VV[5]);
323          V76= (*(LnkLI77))((V69));          V69= (*(LnkLI77))((V64));
324          (void)((*(LnkLI76))(/* INLINE-ARGS */V76));          (void)((*(LnkLI76))(/* INLINE-ARGS */V69));
325          princ_char(86,VV[5]);          princ_char(86,VV[5]);
326          (void)((*(LnkLI76))((V75)));          (void)((*(LnkLI76))((V68)));
327          princ_str("= V",VV[5]);          princ_str("= V",VV[5]);
328          V77= structure_ref(caaddr((V68)),VV[1],4);          (void)((*(LnkLI76))(STREF(object,CMPcaaddr((V63)),16)));
         (void)((*(LnkLI76))(/* INLINE-ARGS */V77));  
329          princ_char(59,VV[5]);          princ_char(59,VV[5]);
330          {object V78;          {object V70;
331          V78= list(3,VV[6],(V75),VV[7]);          V70= list(3,VV[6],(V68),VV[7]);
332          V63= make_cons((V78),(V63));}          V58= make_cons((V70),(V58));}
333          vs_base=vs_top;          (void)((*(LnkLI78))());
         (void) (*Lnk78)();  
         vs_top=sup;  
334          goto T104;}          goto T104;}
335          goto T115;          goto T115;
336  T115:;  T115:;
337          {object V79;          {object V71;
338          V79= (*(LnkLI79))();          V71= (*(LnkLI79))();
339          princ_str("\n   ",VV[5]);          princ_str("\n   ",VV[5]);
340          (void)((*(LnkLI76))((V79)));          (void)((*(LnkLI76))((V71)));
341          princ_str("= ",VV[5]);          princ_str("= ",VV[5]);
342          (void)((*(LnkLI80))(caaddr((V68)),cadr(caddr((V68)))));          (void)((*(LnkLI80))(CMPcaaddr((V63)),CMPcadr(CMPcaddr((V63)))));
343          princ_char(59,VV[5]);          princ_char(59,VV[5]);
344          {object V80;          {object V72;
345          V80= (*(LnkLI74))((V79),(V69));          V72= (*(LnkLI74))((V71),(V64));
346          V63= make_cons((V80),(V63));          V58= make_cons((V72),(V58));
347          goto T104;}}          goto T104;}}
348          goto T112;          goto T112;
349  T112:;  T112:;
350          V82= structure_ref(caaddr((V68)),VV[1],1);          {register object x= STREF(object,CMPcaaddr((V63)),4),V73= VV[8];
351          {register object x= /* INLINE-ARGS */V82,V81= VV[8];          while(V73!=Cnil)
352          while(!endp(V81))          if(eql(x,V73->c.c_car)){
         if(eql(x,V81->c.c_car)){  
353          goto T145;          goto T145;
354          }else V81=V81->c.c_cdr;          }else V73=V73->c.c_cdr;
355          goto T143;}          goto T143;}
356          goto T145;          goto T145;
357  T145:;  T145:;
358          V83= structure_ref(caaddr((V68)),VV[1],1);          if(((V64))==(STREF(object,CMPcaaddr((V63)),4))){
         if(((V69))==(/* INLINE-ARGS */V83)){  
359          goto T143;}          goto T143;}
360          {object V84;          {object V74;
361          V84= (VFUN_NARGS=1,(*(LnkLI81))((V69)));          V74= (VFUN_NARGS=1,(*(LnkLI81))((V64)));
362          princ_str("\n   V",VV[5]);          princ_str("\n   V",VV[5]);
363          (void)((*(LnkLI76))((V84)));          (void)((*(LnkLI76))((V74)));
364          princ_str(" = ",VV[5]);          princ_str(" = ",VV[5]);
365          V85= make_cons(VV[1],caddr((V68)));          V75= make_cons(VV[1],CMPcaddr((V63)));
366          V86= (*(LnkLI74))(/* INLINE-ARGS */V85,(V69));          V76= (*(LnkLI74))(/* INLINE-ARGS */V75,(V64));
367          (void)((*(LnkLI76))(/* INLINE-ARGS */V86));          (void)((*(LnkLI76))(/* INLINE-ARGS */V76));
368          princ_char(59,VV[5]);          princ_char(59,VV[5]);
369          {object V87;          {object V77;
370          V87= list(2,VV[6],(V84));          V77= list(2,VV[6],(V74));
371          V63= make_cons((V87),(V63));          V58= make_cons((V77),(V58));
372          goto T104;}}          goto T104;}}
373          goto T143;          goto T143;
374  T143:;  T143:;
375          {object V88;          {object V78;
376          V89= make_cons(VV[1],caddr((V68)));          V79= make_cons(VV[1],CMPcaddr((V63)));
377          V88= (*(LnkLI74))(/* INLINE-ARGS */V89,(V69));          V78= (*(LnkLI74))(/* INLINE-ARGS */V79,(V64));
378          V63= make_cons((V88),(V63));          V58= make_cons((V78),(V58));
379          goto T104;}          goto T104;}
380          goto T110;          goto T110;
381  T110:;  T110:;
382          if((V70!= VV[82]))goto T158;          if((V65!= VV[82]))goto T158;
383          {object V90;          {object V80;
384          V90= caddr((V68));          V80= CMPcaddr((V63));
385          if(((*(LnkLI83))((V90)))!=Cnil){          if(((*(LnkLI83))((V80)))!=Cnil){
386          goto T163;}          goto T163;}
387          goto T160;          goto T160;
388          goto T163;          goto T163;
389  T163:;  T163:;
390          V91= cadddr((V68));          V59= (*(LnkLI84))((V80),CMPcadddr((V63)),STREF(object,CMPcadr((V63)),8));
391          V92= structure_ref(cadr((V68)),VV[0],2);          if(((V59))!=Cnil){
         V64= (*(LnkLI84))((V90),/* INLINE-ARGS */V91,/* INLINE-ARGS */V92);  
         if(((V64))!=Cnil){  
392          goto T165;}          goto T165;}
393          goto T160;          goto T160;
394          goto T165;          goto T165;
395  T165:;  T165:;
396          base[0]= (V64);          (void)((*(LnkLI85))((V59)));}
397          vs_top=(vs_base=base+0)+1;          {register object V81;
398          (void) (*Lnk85)();          V81= (*(LnkLI86))((V59),CMPcadddr((V63)));
         vs_top=sup;}  
         {register object V93;  
         V93= (*(LnkLI86))((V64),cadddr((V68)));  
399          base[0]= small_fixnum(0);          base[0]= small_fixnum(0);
400          base[1]= caddr((V64));          base[1]= CMPcaddr((V59));
401          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
402          Llogbitp();          Llogbitp();
403          vs_top=sup;          vs_top=sup;
404          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
         goto T173;}  
         if((symbol_value(VV[9]))==Cnil){  
         goto T171;}  
         goto T173;  
 T173:;  
         {register object x= cadr((V64)),V94= VV[10];  
         while(!endp(V94))  
         if(eql(x,V94->c.c_car)){  
         goto T180;  
         }else V94=V94->c.c_cdr;  
         goto T172;}  
         goto T180;  
 T180:;  
         if(((V69))==(cadr((V64)))){  
405          goto T172;}          goto T172;}
406          goto T171;          if(((VV[9]->s.s_dbind))==Cnil){
407  T171:;          goto T170;}
408          {object V95;          goto T172;
409          V95= (VFUN_NARGS=1,(*(LnkLI81))((V69)));  T172:;
410            {register object x= CMPcadr((V59)),V82= VV[10];
411            while(V82!=Cnil)
412            if(eql(x,V82->c.c_car)){
413            goto T179;
414            }else V82=V82->c.c_cdr;
415            goto T171;}
416            goto T179;
417    T179:;
418            if(((V64))==(CMPcadr((V59)))){
419            goto T171;}
420            goto T170;
421    T170:;
422            {object V83;
423            V83= (VFUN_NARGS=1,(*(LnkLI81))((V64)));
424          princ_str("\n   V",VV[5]);          princ_str("\n   V",VV[5]);
425          (void)((*(LnkLI76))((V95)));          (void)((*(LnkLI76))((V83)));
426          princ_str(" = ",VV[5]);          princ_str(" = ",VV[5]);
427          V96= (*(LnkLI74))((V93),(V69));          V84= (*(LnkLI74))((V81),(V64));
428          (void)((*(LnkLI76))(/* INLINE-ARGS */V96));          (void)((*(LnkLI76))(/* INLINE-ARGS */V84));
429          princ_char(59,VV[5]);          princ_char(59,VV[5]);
430          {object V97;          {object V85;
431          V97= list(2,VV[6],(V95));          V85= list(2,VV[6],(V83));
432          V63= make_cons((V97),(V63));          V58= make_cons((V85),(V58));
433          goto T104;}}          goto T104;}}
434          goto T172;          goto T171;
435  T172:;  T171:;
436          if(((*(LnkLI87))(cdr((V65)),cdr((V66))))!=Cnil){          if(((*(LnkLI87))(CMPcdr((V60)),CMPcdr((V61))))!=Cnil){
437          goto T191;}          goto T190;}
438          base[0]= small_fixnum(0);          base[0]= small_fixnum(0);
439          base[1]= caddr((V64));          base[1]= CMPcaddr((V59));
440          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
441          Llogbitp();          Llogbitp();
442          vs_top=sup;          vs_top=sup;
443          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
444          goto T195;}          goto T194;}
445          if(((V62))==Cnil){          if(((V57))==Cnil){
446          goto T191;}          goto T190;}
447          {register object x= (V62),V98= VV[11];          {register object x= (V57),V86= VV[11];
448          while(!endp(V98))          while(V86!=Cnil)
449          if(x==(V98->c.c_car)){          if(x==(V86->c.c_car)){
450          goto T202;          goto T201;
451          }else V98=V98->c.c_cdr;          }else V86=V86->c.c_cdr;
452          goto T191;}          goto T190;}
453          goto T202;          goto T201;
454  T202:;  T201:;
455          goto T195;          goto T194;
456  T195:;  T194:;
457          base[0]= small_fixnum(4);          base[0]= small_fixnum(4);
458          base[1]= caddr((V64));          base[1]= CMPcaddr((V59));
459          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
460          Llogbitp();          Llogbitp();
461          vs_top=sup;          vs_top=sup;
462          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
463          goto T191;}          goto T190;}
464          base[0]= small_fixnum(1);          base[0]= small_fixnum(1);
465          base[1]= caddr((V64));          base[1]= CMPcaddr((V59));
466          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
467          Llogbitp();          Llogbitp();
468          vs_top=sup;          vs_top=sup;
469          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
470          goto T192;}          goto T191;}
471          if((cdr((V65)))==Cnil){          if((CMPcdr((V60)))==Cnil){
472          goto T192;}          goto T191;}
473          goto T191;          goto T190;
474  T191:;  T190:;
475          {object V99;          {object V87;
476          V99= Cnil;          V87= Cnil;
477          if(!(((V69))==(Ct))){          if(!(((V64))==(Ct))){
478          goto T214;}          goto T213;}
479          V99= (VFUN_NARGS=0,(*(LnkLI81))());          V87= (VFUN_NARGS=0,(*(LnkLI81))());
480          princ_str("\n   V",VV[5]);          princ_str("\n   V",VV[5]);
481          (void)((*(LnkLI76))((V99)));          (void)((*(LnkLI76))((V87)));
482          princ_str("= ",VV[5]);          princ_str("= ",VV[5]);
483          base[0]= (V93);          base[0]= (V81);
484          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
485          (void) (*Lnk88)();          (void) (*Lnk88)();
486          vs_top=sup;          vs_top=sup;
487          goto T212;          goto T211;
488          goto T214;          goto T213;
489  T214:;  T213:;
490          setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));          (VV[4]->s.s_dbind)= number_plus((VV[4]->s.s_dbind),small_fixnum(1));
491          V99= symbol_value(VV[4]);          V87= (VV[4]->s.s_dbind);
492          princ_str("\n   {",VV[5]);          princ_str("\n   {",VV[5]);
493          V100= (*(LnkLI77))((V69));          V88= (*(LnkLI77))((V64));
494          (void)((*(LnkLI76))(/* INLINE-ARGS */V100));          (void)((*(LnkLI76))(/* INLINE-ARGS */V88));
495          princ_char(86,VV[5]);          princ_char(86,VV[5]);
496          (void)((*(LnkLI76))((V99)));          (void)((*(LnkLI76))((V87)));
497          princ_str("= ",VV[5]);          princ_str("= ",VV[5]);
498          {object V101= (V69);          {object V89= (V64);
499          if((V101!= VV[45]))goto T233;          if((V89!= VV[45]))goto T232;
500          base[0]= (V93);          base[0]= (V81);
501          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
502          (void) (*Lnk89)();          (void) (*Lnk89)();
503          vs_top=sup;          vs_top=sup;
504            goto T231;
505          goto T232;          goto T232;
506          goto T233;  T232:;
507  T233:;          if((V89!= VV[40]))goto T234;
508          if((V101!= VV[40]))goto T235;          (void)((VFUN_NARGS=2,(*(LnkLI90))((V81),VV[7])));
509          base[0]= (V93);          goto T231;
510          base[1]= VV[7];          goto T234;
511          vs_top=(vs_base=base+0)+2;  T234:;
512          (void) (*Lnk90)();          if((V89!= VV[72]))goto T235;
513          vs_top=sup;          base[0]= (V81);
         goto T232;  
         goto T235;  
 T235:;  
         if((V101!= VV[72]))goto T238;  
         base[0]= (V93);  
514          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
515          (void) (*Lnk91)();          (void) (*Lnk91)();
516          vs_top=sup;          vs_top=sup;
517          goto T232;          goto T231;
518          goto T238;          goto T235;
519  T238:;  T235:;
520          if((V101!= VV[46]))goto T240;          if((V89!= VV[46]))goto T237;
521          base[0]= (V93);          base[0]= (V81);
522          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
523          (void) (*Lnk92)();          (void) (*Lnk92)();
524          vs_top=sup;          vs_top=sup;
525          goto T232;          goto T231;
526          goto T240;          goto T237;
527  T240:;  T237:;
528          if((V101!= VV[47]))goto T242;          if((V89!= VV[47]))goto T239;
529          base[0]= (V93);          base[0]= (V81);
530          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
531          (void) (*Lnk93)();          (void) (*Lnk93)();
532          vs_top=sup;          vs_top=sup;
533          goto T232;          goto T231;
534          goto T242;          goto T239;
535  T242:;  T239:;
536          base[0]= (V93);          base[0]= (V81);
537          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
538          (void) (*Lnk88)();          (void) (*Lnk88)();
539          vs_top=sup;}          vs_top=sup;}
540          goto T232;          goto T231;
541  T232:;  T231:;
542          vs_base=vs_top;          (void)((*(LnkLI78))());
543          (void) (*Lnk78)();          goto T211;
544          vs_top=sup;  T211:;
         goto T212;  
 T212:;  
545          princ_char(59,VV[5]);          princ_char(59,VV[5]);
546          {object V102;          {object V90;
547          V102= list(3,VV[6],(V99),VV[7]);          V90= list(3,VV[6],(V87),VV[7]);
548          V63= make_cons((V102),(V63));          V58= make_cons((V90),(V58));
549          goto T104;}}          goto T104;}}
550          goto T192;          goto T191;
551  T192:;  T191:;
552          {object V103;          {object V91;
553          V103= (*(LnkLI74))((V93),(V69));          V91= (*(LnkLI74))((V81),(V64));
554          V63= make_cons((V103),(V63));          V58= make_cons((V91),(V58));
555          goto T104;}}          goto T104;}}
556          goto T160;          goto T160;
557  T160:;  T160:;
558          {object V104;          {object V92;
559          if((symbol_value(VV[9]))==Cnil){          if(((VV[9]->s.s_dbind))==Cnil){
560          goto T253;}          goto T250;}
561          V104= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI81))()));          V92= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI81))()));
562          goto T251;          goto T248;
563          goto T253;          goto T250;
564  T253:;  T250:;
565          V104= list(2,VV[12],(*(LnkLI94))());          V92= list(2,VV[12],(*(LnkLI94))());
566          goto T251;          goto T248;
567  T251:;  T248:;
568          bds_bind(VV[13],(V104));          bds_bind(VV[13],(V92));
569          V105= (*(LnkLI95))((V68));          V93= (*(LnkLI95))((V63));
570          bds_unwind1;          bds_unwind1;
571          {object V106;          {object V94;
572          V106= (*(LnkLI74))((V104),(V69));          V94= (*(LnkLI74))((V92),(V64));
573          V63= make_cons((V106),(V63));          V58= make_cons((V94),(V58));
574          goto T104;}}          goto T104;}}
575          goto T158;          goto T158;
576  T158:;  T158:;
577          if((V70!= VV[96]))goto T258;          if((V65!= VV[96]))goto T255;
578          {object V107;          {object V95;
579          V107= (*(LnkLI97))(cdr((V68)),(V69));          V95= (*(LnkLI97))(CMPcdr((V63)),(V64));
580          V63= make_cons((V107),(V63));          V58= make_cons((V95),(V58));
581          goto T104;}          goto T104;}
582          goto T258;          goto T255;
583  T258:;  T255:;
584          if((V70!= VV[98]))goto T261;          if((V65!= VV[98]))goto T258;
585          {object V108;          {object V96;
586          object V109;          object V97;
587          V108= caddr((V68));          V96= CMPcaddr((V63));
588          V109= cadddr((V68));          V97= CMPcadddr((V63));
589          base[0]= make_cons(VV[1],(V108));          base[0]= make_cons(VV[1],(V96));
590          bds_bind(VV[13],base[0]);          bds_bind(VV[13],base[0]);
591          V110= (*(LnkLI95))((V109));          V98= (*(LnkLI95))((V97));
592          bds_unwind1;          bds_unwind1;
593          if(!((car((V109)))==(VV[14]))){          if(!((CMPcar((V97)))==(VV[14]))){
594          goto T267;}          goto T264;}
595          {object V111;          {object V99;
596          V111= (*(LnkLI74))(caddr((V109)),(V69));          V99= (*(LnkLI74))(CMPcaddr((V97)),(V64));
597          V63= make_cons((V111),(V63));          V58= make_cons((V99),(V58));
598          goto T104;}          goto T104;}
599          goto T267;          goto T264;
600  T267:;  T264:;
601          V65= listA(3,(V68),list(3,VV[1],cadr((V68)),(V108)),cdr((V65)));          V60= listA(3,(V63),list(3,VV[1],CMPcadr((V63)),(V96)),CMPcdr((V60)));
602          V66= make_cons((V69),(V66));          V61= make_cons((V64),(V61));
603          goto T104;}          goto T104;}
604          goto T261;          goto T258;
605  T261:;  T258:;
606          {object V112;          {object V100;
607          if((symbol_value(VV[9]))==Cnil){          if(((VV[9]->s.s_dbind))==Cnil){
608            goto T273;}
609            if(!(((V64))==(Ct))){
610          goto T276;}          goto T276;}
611          if(!(((V69))==(Ct))){          V100= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI81))()));
612          goto T279;}          goto T271;
613          V112= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI81))()));          goto T276;
614          goto T274;  T276:;
615          goto T279;          {object V101;
616  T279:;          (VV[4]->s.s_dbind)= number_plus((VV[4]->s.s_dbind),small_fixnum(1));
617          {object V113;          V101= make_cons((V64),(VV[4]->s.s_dbind));
618          setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));          (VV[15]->s.s_dbind)= make_cons((V101),(VV[15]->s.s_dbind));}
619          V113= make_cons((V69),symbol_value(VV[4]));          {register object x= (V64),V103= (VV[3]->s.s_dbind);
620          setq(VV[15],make_cons((V113),symbol_value(VV[15])));}          while(V103!=Cnil)
621          {register object x= (V69),V115= symbol_value(VV[3]);          if(eql(x,V103->c.c_car)){
         while(!endp(V115))  
         if(eql(x,V115->c.c_car)){  
         goto T288;  
         }else V115=V115->c.c_cdr;  
         goto T287;}  
         goto T288;  
 T288:;  
         V114= (V69);  
622          goto T285;          goto T285;
623          goto T287;          }else V103=V103->c.c_cdr;
624  T287:;          goto T284;}
         V114= VV[18];  
625          goto T285;          goto T285;
626  T285:;  T285:;
627          V116= (VFUN_NARGS=6,(*(LnkLI99))(VV[16],(V69),VV[17],V114,VV[19],cdar(symbol_value(VV[15]))));          V102= (V64);
628          V112= list(3,VV[1],/* INLINE-ARGS */V116,Cnil);          goto T282;
629          goto T274;          goto T284;
630          goto T276;  T284:;
631  T276:;          V102= VV[18];
632          V112= list(2,VV[12],(*(LnkLI94))());          goto T282;
633          goto T274;  T282:;
634  T274:;          V104= (VFUN_NARGS=6,(*(LnkLI99))(VV[16],(V64),VV[17],V102,VV[19],CMPcdar((VV[15]->s.s_dbind))));
635          bds_bind(VV[13],(V112));          V100= list(3,VV[1],/* INLINE-ARGS */V104,Cnil);
636          (void)((*(LnkLI95))((V68)));          goto T271;
637          {object V117;          goto T273;
638          V117= (*(LnkLI74))((V112),(V69));  T273:;
639          V63= make_cons((V117),(V63));          V100= list(2,VV[12],(*(LnkLI94))());
640            goto T271;
641    T271:;
642            bds_bind(VV[13],(V100));
643            (void)((*(LnkLI95))((V63)));
644            {object V105;
645            V105= (*(LnkLI74))((V100),(V64));
646            V58= make_cons((V105),(V58));
647          bds_unwind1;}}}}          bds_unwind1;}}}}
648          goto T104;          goto T104;
649  T104:;  T104:;
650          V65= cdr((V65));          V60= CMPcdr((V60));
651          V66= cdr((V66));          V61= CMPcdr((V61));
652          goto T99;}}          goto T99;}}
653          va_end(ap);          va_end(ap);
654          base[0]=base[0];          base[0]=base[0];
# Line 683  T104:; Line 656  T104:;
656          }          }
657  /*      local entry for function COERCE-LOC     */  /*      local entry for function COERCE-LOC     */
658    
659  static object LI7(V120,V121)  static object LI7(V108,V109)
660    
661  register object V120;object V121;  register object V108;object V109;
662  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
663          goto TTL;          goto TTL;
664  TTL:;  TTL:;
665          {object V122= (V121);          {object V110= (V109);
666          if((V122!= VV[45]))goto T296;          if((V110!= VV[45]))goto T293;
667          {object V123 = list(2,VV[20],(V120));          {object V111 = list(2,VV[20],(V108));
668          VMR7(V123)}          VMR7(V111)}
669            goto T293;
670    T293:;
671            if((V110!= VV[40]))goto T294;
672            {object V112 = list(2,VV[21],(V108));
673            VMR7(V112)}
674            goto T294;
675    T294:;
676            if((V110!= VV[72]))goto T295;
677            {object V113 = list(2,VV[22],(V108));
678            VMR7(V113)}
679            goto T295;
680    T295:;
681            if((V110!= VV[46]))goto T296;
682            {object V114 = list(2,VV[23],(V108));
683            VMR7(V114)}
684          goto T296;          goto T296;
685  T296:;  T296:;
686          if((V122!= VV[40]))goto T297;          if((V110!= VV[47]))goto T297;
687          {object V124 = list(2,VV[21],(V120));          {object V115 = list(2,VV[24],(V108));
688          VMR7(V124)}          VMR7(V115)}
689          goto T297;          goto T297;
690  T297:;  T297:;
691          if((V122!= VV[72]))goto T298;          {object V116 = (V108);
692          {object V125 = list(2,VV[22],(V120));          VMR7(V116)}}
         VMR7(V125)}  
         goto T298;  
 T298:;  
         if((V122!= VV[46]))goto T299;  
         {object V126 = list(2,VV[23],(V120));  
         VMR7(V126)}  
         goto T299;  
 T299:;  
         if((V122!= VV[47]))goto T300;  
         {object V127 = list(2,VV[24],(V120));  
         VMR7(V127)}  
         goto T300;  
 T300:;  
         {object V128 = (V120);  
         VMR7(V128)}}  
693          return Cnil;          return Cnil;
694  }  }
695  /*      local entry for function GET-INLINE-LOC */  /*      local entry for function GET-INLINE-LOC */
696    
697  static object LI8(V131,V132)  static object LI8(V119,V120)
698    
699  object V131;object V132;  object V119;object V120;
700  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
701          goto TTL;          goto TTL;
702  TTL:;  TTL:;
703          {object V133;          {object V121;
704            object V122;
705            V121= CMPcar(CMPcdddr((V119)));
706            V122= Cnil;
707            V122= (VFUN_NARGS=3,(*(LnkLI7))((V120),CMPcar((V119)),(V121)));
708            if(!(type_of((V121))==t_string)){
709            goto T302;}
710            if(!((((V121))->ust.ust_self[0])==(64))){
711            goto T302;}
712            {register long V123;
713            object V124;
714            V123= 1;
715            V124= Cnil;
716            {unsigned char V125;
717            V125= ((V121))->ust.ust_self[V123];
718            goto T311;
719    T311:;
720            if(!((V125)==(59))){
721            goto T312;}
722            V123= (long)(V123)+(1);
723            goto T308;
724            goto T312;
725    T312:;
726            {object V126;
727            V126= CMPmake_fixnum((long)((long)(V125))-(48));
728            V124= make_cons((V126),(V124));}
729            V123= (long)(V123)+(1);
730            V125= ((V121))->ust.ust_self[V123];
731            goto T311;}
732            goto T308;
733    T308:;
734            {object V127;
735            long V128;
736            register object V129;
737            V128= 0;
738            V127= (V122);
739            V129= Cnil;
740            goto T327;
741    T327:;
742            if(!(((V127))==Cnil)){
743            goto T328;}
744            V122= reverse((V129));
745            goto T302;
746            goto T328;
747    T328:;
748            V131 = CMPmake_fixnum(V128);
749            {register object x= V131,V130= (V124);
750            while(V130!=Cnil)
751            if(eql(x,V130->c.c_car)){
752            goto T336;
753            }else V130=V130->c.c_cdr;
754            goto T335;}
755            goto T336;
756    T336:;
757            {register object V132;
758            register object V133;
759          object V134;          object V134;
760          V133= car(cdddr((V131)));          V132= CMPcar((V127));
761            V133= (V132);
762          V134= Cnil;          V134= Cnil;
763          V134= (VFUN_NARGS=3,(*(LnkLI7))((V132),car((V131)),(V133)));          if(!(type_of((V132))==t_cons)){
764          if(!(type_of((V133))==t_string)){          goto T340;}
765          goto T305;}          {register object x= CMPcar((V132)),V135= VV[27];
766          base[1]= elt((V133),0);          while(V135!=Cnil)
767          base[2]= VV[25];          if(eql(x,V135->c.c_car)){
768          vs_top=(vs_base=base+1)+2;          goto T344;
769          Lchar_eq();          }else V135=V135->c.c_cdr;
770          vs_top=sup;          goto T340;}
771          if((vs_base[0])==Cnil){          goto T344;
772          goto T305;}  T344:;
773          {register long V135;          V134= CMPcar((V132));
774          object V136;          V133= CMPcadr((V132));
775          V135= 1;          goto T340;
776          V136= Cnil;  T340:;
777          {unsigned char V137;          if(!(type_of((V133))==t_cons)){
778          V137= char_code(elt((V133),V135));          goto T349;}
779          goto T316;          {register object x= CMPcar((V133)),V136= VV[28];
780  T316:;          while(V136!=Cnil)
781          base[1]= code_char(V137);          if(eql(x,V136->c.c_car)){
782          base[2]= VV[26];          goto T348;
783          vs_top=(vs_base=base+1)+2;          }else V136=V136->c.c_cdr;}
784          Lchar_eq();          {register object x= CMPcar((V133)),V137= VV[29];
785          vs_top=sup;          while(V137!=Cnil)
786          if((vs_base[0])==Cnil){          if(eql(x,V137->c.c_car)){
         goto T317;}  
         V135= (long)(V135)+(1);  
         goto T313;  
         goto T317;  
 T317:;  
         {object V138;  
         V138= make_fixnum((long)((long)(V137))-(48));  
         V136= make_cons((V138),(V136));}  
         V135= (long)(V135)+(1);  
         V137= char_code(elt((V133),V135));  
         goto T316;}  
         goto T313;  
 T313:;  
         {object V139;  
         long V140;  
         register object V141;  
         V140= 0;  
         V139= (V134);  
         V141= Cnil;  
         goto T334;  
 T334:;  
         if(!(endp_prop((V139)))){  
         goto T335;}  
         V134= reverse((V141));  
         goto T305;  
         goto T335;  
 T335:;  
         V143 = make_fixnum(V140);  
         {register object x= V143,V142= (V136);  
         while(!endp(V142))  
         if(eql(x,V142->c.c_car)){  
         goto T343;  
         }else V142=V142->c.c_cdr;  
         goto T342;}  
         goto T343;  
 T343:;  
         {register object V144;  
         register object V145;  
         object V146;  
         V144= car((V139));  
         V145= (V144);  
         V146= Cnil;  
         if(!(type_of((V144))==t_cons)){  
         goto T347;}  
         {register object x= car((V144)),V147= VV[27];  
         while(!endp(V147))  
         if(eql(x,V147->c.c_car)){  
         goto T351;  
         }else V147=V147->c.c_cdr;  
         goto T347;}  
         goto T351;  
 T351:;  
         V146= car((V144));  
         V145= cadr((V144));  
         goto T347;  
 T347:;  
         if(!(type_of((V145))==t_cons)){  
         goto T356;}  
         {register object x= car((V145)),V148= VV[28];  
         while(!endp(V148))  
         if(eql(x,V148->c.c_car)){  
787          goto T355;          goto T355;
788          }else V148=V148->c.c_cdr;}          }else V137=V137->c.c_cdr;
789          {register object x= car((V145)),V149= VV[29];          goto T349;}
790          while(!endp(V149))          goto T355;
791          if(eql(x,V149->c.c_car)){  T355:;
         goto T362;  
         }else V149=V149->c.c_cdr;  
         goto T356;}  
         goto T362;  
 T362:;  
792          base[2]= small_fixnum(0);          base[2]= small_fixnum(0);
793          base[3]= cadr((V145));          base[3]= CMPcadr((V133));
794          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
795          Llogbitp();          Llogbitp();
796          vs_top=sup;          vs_top=sup;
797          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
798          goto T355;}          goto T348;}
799          base[2]= small_fixnum(1);          base[2]= small_fixnum(1);
800          base[3]= cadr((V145));          base[3]= CMPcadr((V133));
801          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
802          Llogbitp();          Llogbitp();
803          vs_top=sup;          vs_top=sup;
804          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
805          goto T356;}          goto T349;}
806          goto T355;          goto T348;
807  T355:;  T348:;
808          princ_str("\n   {",VV[5]);          princ_str("\n   {",VV[5]);
809          vs_base=vs_top;          (void)((*(LnkLI78))());
810          (void) (*Lnk78)();          {register object V138;
811          vs_top=sup;          (VV[4]->s.s_dbind)= number_plus((VV[4]->s.s_dbind),small_fixnum(1));
812          {register object V150;          V138= (VV[4]->s.s_dbind);
813          setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));          {object V139;
814          V150= symbol_value(VV[4]);          V139= list(2,VV[6],(V138));
815          {object V151;          V129= make_cons((V139),(V129));}
816          V151= list(2,VV[6],(V150));          {object V140= (V134);
817          V141= make_cons((V151),(V141));}          if((V140!= Cnil))goto T372;
         {object V152= (V146);  
         if((V152!= Cnil))goto T379;  
818          princ_str("object V",VV[5]);          princ_str("object V",VV[5]);
819          (void)((*(LnkLI76))((V150)));          (void)((*(LnkLI76))((V138)));
820          princ_str("= ",VV[5]);          princ_str("= ",VV[5]);
821          base[2]= (V144);          base[2]= (V132);
822          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
823          (void) (*Lnk88)();          (void) (*Lnk88)();
824          vs_top=sup;          vs_top=sup;
825          goto T373;          goto T366;
826          goto T379;          goto T372;
827  T379:;  T372:;
828          if((V152!= VV[20]))goto T385;          if((V140!= VV[20]))goto T378;
829          princ_str("int V",VV[5]);          princ_str("int V",VV[5]);
830          (void)((*(LnkLI76))((V150)));          (void)((*(LnkLI76))((V138)));
831          princ_str("= ",VV[5]);          princ_str("= ",VV[5]);
832          base[2]= (V145);          base[2]= (V133);
833          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
834          (void) (*Lnk89)();          (void) (*Lnk89)();
835          vs_top=sup;          vs_top=sup;
836          goto T373;          goto T366;
837          goto T385;          goto T378;
838  T385:;  T378:;
839          if((V152!= VV[21]))goto T391;          if((V140!= VV[21]))goto T384;
840          princ_str("GEN V",VV[5]);          princ_str("GEN V",VV[5]);
841          (void)((*(LnkLI76))((V150)));          (void)((*(LnkLI76))((V138)));
842          princ_str("= ",VV[5]);          princ_str("= ",VV[5]);
843          base[2]= (V145);          (void)((VFUN_NARGS=2,(*(LnkLI90))((V133),VV[30])));
844          base[3]= VV[30];          goto T366;
845          vs_top=(vs_base=base+2)+2;          goto T384;
846          (void) (*Lnk90)();  T384:;
847          vs_top=sup;          if((V140!= VV[22]))goto T389;
         goto T373;  
         goto T391;  
 T391:;  
         if((V152!= VV[22]))goto T398;  
848          princ_str("unsigned char V",VV[5]);          princ_str("unsigned char V",VV[5]);
849          (void)((*(LnkLI76))((V150)));          (void)((*(LnkLI76))((V138)));
850          princ_str("= ",VV[5]);          princ_str("= ",VV[5]);
851          base[2]= (V145);          base[2]= (V133);
852          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
853          (void) (*Lnk91)();          (void) (*Lnk91)();
854          vs_top=sup;          vs_top=sup;
855          goto T373;          goto T366;
856          goto T398;          goto T389;
857  T398:;  T389:;
858          if((V152!= VV[23]))goto T404;          if((V140!= VV[23]))goto T395;
859          princ_str("double V",VV[5]);          princ_str("double V",VV[5]);
860          (void)((*(LnkLI76))((V150)));          (void)((*(LnkLI76))((V138)));
861          princ_str("= ",VV[5]);          princ_str("= ",VV[5]);
862          base[2]= (V145);          base[2]= (V133);
863          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
864          (void) (*Lnk92)();          (void) (*Lnk92)();
865          vs_top=sup;          vs_top=sup;
866          goto T373;          goto T366;
867          goto T404;          goto T395;
868  T404:;  T395:;
869          if((V152!= VV[24]))goto T410;          if((V140!= VV[24]))goto T401;
870          princ_str("float V",VV[5]);          princ_str("float V",VV[5]);
871          (void)((*(LnkLI76))((V150)));          (void)((*(LnkLI76))((V138)));
872          princ_str("= ",VV[5]);          princ_str("= ",VV[5]);
873          base[2]= (V145);          base[2]= (V133);
874          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
875          (void) (*Lnk93)();          (void) (*Lnk93)();
876          vs_top=sup;          vs_top=sup;
877          goto T373;          goto T366;
878          goto T410;          goto T401;
879  T410:;  T401:;
880          (void)((*(LnkLI100))());}}          (void)((*(LnkLI100))());}}
881          goto T373;          goto T366;
882  T373:;  T366:;
883          princ_char(59,VV[5]);          princ_char(59,VV[5]);
884          goto T340;          goto T333;
885          goto T356;          goto T349;
886  T356:;  T349:;
887          V141= make_cons(V144,(V141));          V129= make_cons(V132,(V129));
888          goto T340;}          goto T333;}
889          goto T342;          goto T335;
890  T342:;  T335:;
891          {object V154;          {object V142;
892          V154= car((V139));          V142= CMPcar((V127));
893          V141= make_cons((V154),(V141));}          V129= make_cons((V142),(V129));}
894          goto T340;          goto T333;
895  T340:;  T333:;
896          V139= cdr((V139));          V127= CMPcdr((V127));
897          V140= (long)(V140)+1;          V128= (long)(V128)+1;
898          goto T334;}}          goto T327;}}
899          goto T305;          goto T302;
900  T305:;  T302:;
901          V155= (*(LnkLI101))(cadr((V131)));          V143= (*(LnkLI101))(CMPcadr((V119)));
902          {object V156 = list(4,/* INLINE-ARGS */V155,caddr((V131)),(V133),(V134));          {object V144 = list(4,/* INLINE-ARGS */V143,CMPcaddr((V119)),(V121),(V122));
903          VMR8(V156)}}          VMR8(V144)}}
904          base[0]=base[0];          base[0]=base[0];
905          return Cnil;          return Cnil;
906  }  }
907  /*      local entry for function INLINE-TYPE    */  /*      local entry for function INLINE-TYPE    */
908    
909  static object LI9(V158)  static object LI9(V146)
910    
911  object V158;  object V146;
912  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
913          goto TTL;          goto TTL;
914  TTL:;{object V159;  TTL:;{object V147;
915          {register object x= (V158),V161= symbol_value(VV[31]);          {register object x= (V146),V149= (VV[31]->s.s_dbind);
916          while(!endp(V161))          while(V149!=Cnil)
917          if(type_of(V161->c.c_car)==t_cons &&eql(x,V161->c.c_car->c.c_car)){          if(eql(x,V149->c.c_car->c.c_car) &&V149->c.c_car != Cnil){
918          V160= (V161->c.c_car);          V148= (V149->c.c_car);
919          goto T426;          goto T417;
920          }else V161=V161->c.c_cdr;          }else V149=V149->c.c_cdr;
921          V160= Cnil;}          V148= Cnil;}
922          goto T426;          goto T417;
923  T426:;  T417:;
924          V159= cdr(V160);          V147= CMPcdr(V148);
925          if(V159==Cnil)goto T424;          if(V147==Cnil)goto T415;
926          {object V162 = V159;          {object V150 = V147;
927          VMR9(V162)}          VMR9(V150)}
928          goto T424;          goto T415;
929  T424:;}  T415:;}
930          {object V163 = VV[32];          {object V151 = VV[32];
931          VMR9(V163)}          VMR9(V151)}
932          return Cnil;          return Cnil;
933  }  }
934  /*      local entry for function GET-INLINE-INFO        */  /*      local entry for function GET-INLINE-INFO        */
935    
936  static object LI10(V167,V168,V169)  static object LI10(V155,V156,V157)
937    
938  object V167;register object V168;object V169;  object V155;register object V156;object V157;
939  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
940          goto TTL;          goto TTL;
941  TTL:;  TTL:;
942          {register object V170;          {register object V158;
943          base[0]=MMcons(Cnil,Cnil);          base[0]=MMcons(Cnil,Cnil);
944          V170= Cnil;          V158= Cnil;
945          if(((VFUN_NARGS=2,(*(LnkLI102))((V167),(V168))))!=Cnil){          if(((VFUN_NARGS=2,(*(LnkLI102))((V155),(V156))))!=Cnil){
946          goto T429;}          goto T420;}
947          goto T428;          goto T419;
948          goto T429;          goto T420;
949  T429:;  T420:;
950          (void)((*(LnkLI103))((V167),(V169),(V168)));          (void)((*(LnkLI103))((V155),(V157),(V156)));
951          goto T428;          goto T419;
952  T428:;  T419:;
953          {object V171;          {object V159;
954          object V172= (V168);          object V160= (V156);
955          if(endp(V172)){          if(V160==Cnil){
956          V168= Cnil;          V156= Cnil;
957          goto T432;}          goto T423;}
958          base[1]=V171=MMcons(Cnil,Cnil);          base[1]=V159=MMcons(Cnil,Cnil);
959          goto T433;          goto T424;
960  T433:;  T424:;
961          (V171->c.c_car)= structure_ref(cadr((V172->c.c_car)),VV[0],2);          (V159->c.c_car)= STREF(object,CMPcadr((V160->c.c_car)),8);
962          V172=MMcdr(V172);          if((V160=MMcdr(V160))==Cnil){
963          if(endp(V172)){          V156= base[1];
964          V168= base[1];          goto T423;}
965          goto T432;}          V159=MMcdr(V159)=MMcons(Cnil,Cnil);
966          V171=MMcdr(V171)=MMcons(Cnil,Cnil);          goto T424;}
967          goto T433;}          goto T423;
968    T423:;
969            if(((VV[33]->s.s_dbind))==Cnil){
970            goto T430;}
971            {object V162 =((V155))->s.s_plist;
972             object ind= VV[34];
973            while(V162!=Cnil){
974            if(V162->c.c_car==ind){
975            (base[0]->c.c_car)= (V162->c.c_cdr->c.c_car);
976            goto T432;
977            }else V162=V162->c.c_cdr->c.c_cdr;}
978            (base[0]->c.c_car)= Cnil;}
979          goto T432;          goto T432;
980  T432:;  T432:;
         if((symbol_value(VV[33]))==Cnil){  
         goto T439;}  
         (base[0]->c.c_car)= get((V167),VV[34],Cnil);  
981          if(((base[0]->c.c_car))==Cnil){          if(((base[0]->c.c_car))==Cnil){
982          goto T435;}          goto T426;}
983          goto T437;          goto T428;
984          goto T439;          goto T430;
985  T439:;  T430:;
986          (base[0]->c.c_car)= get((V167),VV[35],Cnil);          {object V163 =((V155))->s.s_plist;
987             object ind= VV[35];
988            while(V163!=Cnil){
989            if(V163->c.c_car==ind){
990            (base[0]->c.c_car)= (V163->c.c_cdr->c.c_car);
991            goto T433;
992            }else V163=V163->c.c_cdr->c.c_cdr;}
993            (base[0]->c.c_car)= Cnil;}
994            goto T433;
995    T433:;
996          if(((base[0]->c.c_car))==Cnil){          if(((base[0]->c.c_car))==Cnil){
997          goto T435;}          goto T426;}
998            goto T428;
999    T428:;
1000            {register object V164;
1001            object V165;
1002            V164= (base[0]->c.c_car);
1003            V165= CMPcar((V164));
1004          goto T437;          goto T437;
1005  T437:;  T437:;
1006          {register object V174;          if(!(((V164))==Cnil)){
1007          object V175;          goto T438;}
1008          V174= (base[0]->c.c_car);          goto T426;
1009          V175= car((V174));          goto T438;
1010          goto T446;  T438:;
1011  T446:;          V158= (*(LnkLI104))((V165),(V156),(V157));
1012          if(!(endp_prop((V174)))){          if(((V158))==Cnil){
1013          goto T447;}          goto T442;}
1014          goto T435;          {object V166 = (V158);
1015          goto T447;          VMR10(V166)}
1016  T447:;          goto T442;
1017          V170= (*(LnkLI104))((V175),(V168),(V169));  T442:;
1018          if(((V170))==Cnil){          V164= CMPcdr((V164));
1019            V165= CMPcar((V164));
1020            goto T437;}
1021            goto T426;
1022    T426:;
1023            {object V167 =((V155))->s.s_plist;
1024             object ind= VV[36];
1025            while(V167!=Cnil){
1026            if(V167->c.c_car==ind){
1027            (base[0]->c.c_car)= (V167->c.c_cdr->c.c_car);
1028            goto T454;
1029            }else V167=V167->c.c_cdr->c.c_cdr;}
1030            (base[0]->c.c_car)= Cnil;}
1031            goto T454;
1032    T454:;
1033            if(((base[0]->c.c_car))==Cnil){
1034          goto T451;}          goto T451;}
1035          {object V176 = (V170);          {register object V168;
1036          VMR10(V176)}          object V169;
1037            V168= (base[0]->c.c_car);
1038            V169= CMPcar((V168));
1039            goto T458;
1040    T458:;
1041            if(!(((V168))==Cnil)){
1042            goto T459;}
1043            goto T451;
1044            goto T459;
1045    T459:;
1046            V158= (*(LnkLI104))((V169),(V156),(V157));
1047            if(((V158))==Cnil){
1048            goto T463;}
1049            {object V170 = (V158);
1050            VMR10(V170)}
1051            goto T463;
1052    T463:;
1053            V168= CMPcdr((V168));
1054            V169= CMPcar((V168));
1055            goto T458;}
1056          goto T451;          goto T451;
1057  T451:;  T451:;
1058          V174= cdr((V174));          {register object V171;
1059          V175= car((V174));          object V172;
1060          goto T446;}          V171= (VV[37]->s.s_dbind);
1061          goto T435;          V172= CMPcar((V171));
1062  T435:;          goto T476;
1063          (base[0]->c.c_car)= get((V167),VV[36],Cnil);  T476:;
1064          if(((base[0]->c.c_car))==Cnil){          if(!(((V171))==Cnil)){
1065          goto T460;}          goto T477;}
         {register object V177;  
         object V178;  
         V177= (base[0]->c.c_car);  
         V178= car((V177));  
         goto T467;  
 T467:;  
         if(!(endp_prop((V177)))){  
         goto T468;}  
         goto T460;  
         goto T468;  
 T468:;  
         V170= (*(LnkLI104))((V178),(V168),(V169));  
         if(((V170))==Cnil){  
         goto T472;}  
         {object V179 = (V170);  
         VMR10(V179)}  
1066          goto T472;          goto T472;
1067  T472:;          goto T477;
1068          V177= cdr((V177));  T477:;
1069          V178= car((V177));          if(!((CMPcar((V172)))==((V155)))){
1070          goto T467;}          goto T481;}
1071          goto T460;          V158= (*(LnkLI104))(CMPcdr((V172)),(V156),(V157));
1072  T460:;          if(((V158))==Cnil){
1073          {register object V180;          goto T481;}
1074          object V181;          {object V173 = (V158);
1075          V180= symbol_value(VV[37]);          VMR10(V173)}
         V181= car((V180));  
         goto T485;  
 T485:;  
         if(!(endp_prop((V180)))){  
         goto T486;}  
         goto T481;  
         goto T486;  
 T486:;  
         if(!((car((V181)))==((V167)))){  
         goto T490;}  
         V170= (*(LnkLI104))(cdr((V181)),(V168),(V169));  
         if(((V170))==Cnil){  
         goto T490;}  
         {object V182 = (V170);  
         VMR10(V182)}  
         goto T490;  
 T490:;  
         V180= cdr((V180));  
         V181= car((V180));  
         goto T485;}  
1076          goto T481;          goto T481;
1077  T481:;  T481:;
1078          (base[0]->c.c_car)= get((V167),VV[38],Cnil);          V171= CMPcdr((V171));
1079            V172= CMPcar((V171));
1080            goto T476;}
1081            goto T472;
1082    T472:;
1083            {object V174 =((V155))->s.s_plist;
1084             object ind= VV[38];
1085            while(V174!=Cnil){
1086            if(V174->c.c_car==ind){
1087            (base[0]->c.c_car)= (V174->c.c_cdr->c.c_car);
1088            goto T496;
1089            }else V174=V174->c.c_cdr->c.c_cdr;}
1090            (base[0]->c.c_car)= Cnil;}
1091            goto T496;
1092    T496:;
1093          if(((base[0]->c.c_car))==Cnil){          if(((base[0]->c.c_car))==Cnil){
1094          goto T501;}          goto T492;}
1095          if(!(type_of((base[0]->c.c_car))==t_cons)){          if(!(type_of((base[0]->c.c_car))==t_cons)){
1096          goto T508;}          goto T499;}
1097          if(!(type_of(car((base[0]->c.c_car)))==t_fixnum)){          if(!(type_of(CMPcar((base[0]->c.c_car)))==t_fixnum)){
1098          goto T508;}          goto T499;}
1099          {object V183;          {object V175;
1100          V184 = make_fixnum((long)length((V168)));          V176 = CMPmake_fixnum((long)length((V156)));
1101          V183= (number_compare(V184,car((base[0]->c.c_car)))>=0?Ct:Cnil);          V175= (number_compare(V176,CMPcar((base[0]->c.c_car)))>=0?Ct:Cnil);
1102          (base[0]->c.c_car)= cdr((base[0]->c.c_car));          (base[0]->c.c_car)= CMPcdr((base[0]->c.c_car));
1103          if(((V183))==Cnil){          if(((V175))==Cnil){
1104          goto T501;}          goto T492;}
1105          goto T506;}          goto T497;}
1106          goto T508;          goto T499;
1107  T508:;  T499:;
1108          goto T506;          goto T497;
1109  T506:;  T497:;
1110          base[1]= make_fixnum((long)length((V168)));          base[1]= CMPmake_fixnum((long)length((V156)));
1111          base[2]= VV[39];          base[2]= VV[39];
1112          base[3]= Ct;          base[3]= Ct;
1113          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
1114          Lmake_list();          Lmake_list();
1115          vs_top=sup;          vs_top=sup;
1116          V185= vs_base[0];          V177= vs_base[0];
1117          V186=          V178=
1118          make_cclosure_new(LC27,Cnil,base[0],Cdata);          make_cclosure_new(LC27,Cnil,base[0],Cdata);
1119          {object V187 = list(4,V185,Ct,small_fixnum(3),V186);          {object V179 = list(4,V177,Ct,small_fixnum(3),V178);
1120          VMR10(V187)}          VMR10(V179)}
1121          goto T501;          goto T492;
1122  T501:;  T492:;
1123          {object V188 = Cnil;          {object V180 = Cnil;
1124          VMR10(V188)}}          VMR10(V180)}}
1125          base[0]=base[0];          base[0]=base[0];
1126          return Cnil;          return Cnil;
1127  }  }
1128  /*      local entry for function INLINE-TYPE-MATCHES    */  /*      local entry for function INLINE-TYPE-MATCHES    */
1129    
1130  static object LI11(V192,V193,V194)  static object LI11(V184,V185,V186)
1131    
1132  object V192;object V193;object V194;  object V184;object V185;object V186;
1133  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
1134          goto TTL;          goto TTL;
1135  TTL:;  TTL:;
1136          {register object V195;          {register object V187;
1137          V195= Cnil;          V187= Cnil;
1138          if(type_of(caddr((V192)))==t_fixnum){          if(type_of(CMPcaddr((V184)))==t_fixnum){
1139          goto T521;}          goto T512;}
1140          base[0]= (V192);          (void)((*(LnkLI105))((V184)));
1141          vs_top=(vs_base=base+0)+1;          goto T512;
1142          (void) (*Lnk105)();  T512:;
1143          vs_top=sup;          {register object x= VV[40],V188= CMPcar((V184));
1144            while(V188!=Cnil)
1145            if(eql(x,V188->c.c_car)){
1146            goto T517;
1147            }else V188=V188->c.c_cdr;
1148            goto T515;}
1149            goto T517;
1150    T517:;
1151            {object V189 = Cnil;
1152            VMR11(V189)}
1153            goto T515;
1154    T515:;
1155            {register object V190;
1156            V190= CMPcar((V184));
1157            {register object V191;
1158            register object V192;
1159            V191= (V185);
1160            V192= CMPcar((V191));
1161            goto T526;
1162    T526:;
1163            if(!(((V191))==Cnil)){
1164            goto T527;}
1165            if(!(equal((V190),VV[41]))){
1166            goto T530;}
1167            goto T521;
1168            goto T530;
1169    T530:;
1170            if(!(((V190))==Cnil)){
1171            goto T519;}
1172          goto T521;          goto T521;
 T521:;  
         {register object x= VV[40],V196= car((V192));  
         while(!endp(V196))  
         if(eql(x,V196->c.c_car)){  
         goto T527;  
         }else V196=V196->c.c_cdr;  
         goto T525;}  
1173          goto T527;          goto T527;
1174  T527:;  T527:;
1175          {object V197 = Cnil;          if(!(((V190))==Cnil)){
1176          VMR11(V197)}          goto T533;}
1177          goto T525;          goto T519;
1178  T525:;          goto T533;
1179          {register object V198;  T533:;
1180          V198= car((V192));          if(!(equal((V190),VV[42]))){
1181          {register object V199;          goto T536;}
1182          register object V200;          V190= VV[43];
         V199= (V193);  
         V200= car((V199));  
1183          goto T536;          goto T536;
1184  T536:;  T536:;
1185          if(!(endp_prop((V199)))){          if(!((CMPcar((V190)))==(VV[44]))){
1186          goto T537;}          goto T542;}
1187          if(!(equal((V198),VV[41]))){          if(((*(LnkLI106))(VV[45],(V192)))==Cnil){
1188            goto T545;}
1189            {register object V193;
1190            V193= VV[45];
1191            V187= make_cons((V193),(V187));
1192          goto T540;}          goto T540;}
1193          goto T531;          goto T545;
1194          goto T540;  T545:;
1195  T540:;          if(((*(LnkLI106))(VV[46],(V192)))==Cnil){
         if(!(endp_prop((V198)))){  
         goto T529;}  
         goto T531;  
         goto T537;  
 T537:;  
         if(!(endp_prop((V198)))){  
         goto T543;}  
         goto T529;  
         goto T543;  
 T543:;  
         if(!(equal((V198),VV[42]))){  
         goto T546;}  
         V198= VV[43];  
         goto T546;  
 T546:;  
         if(!((car((V198)))==(VV[44]))){  
         goto T552;}  
         if(((*(LnkLI106))(VV[45],(V200)))==Cnil){  
         goto T555;}  
         {register object V201;  
         V201= VV[45];  
         V195= make_cons((V201),(V195));  
1196          goto T550;}          goto T550;}
1197            {register object V194;
1198            V194= VV[46];
1199            V187= make_cons((V194),(V187));
1200            goto T540;}
1201            goto T550;
1202    T550:;
1203            if(((*(LnkLI106))(VV[47],(V192)))==Cnil){
1204            goto T555;}
1205            {register object V195;
1206            V195= VV[47];
1207            V187= make_cons((V195),(V187));
1208            goto T540;}
1209          goto T555;          goto T555;
1210  T555:;  T555:;
1211          if(((*(LnkLI106))(VV[46],(V200)))==Cnil){          goto T519;
1212            goto T542;
1213    T542:;
1214            if(((*(LnkLI106))(CMPcar((V190)),(V192)))==Cnil){
1215          goto T560;}          goto T560;}
1216          {register object V202;          {register object V196;
1217          V202= VV[46];          V196= CMPcar((V190));
1218          V195= make_cons((V202),(V195));          V187= make_cons((V196),(V187));
1219          goto T550;}          goto T540;}
1220          goto T560;          goto T560;
1221  T560:;  T560:;
1222          if(((*(LnkLI106))(VV[47],(V200)))==Cnil){          goto T519;
1223          goto T565;}          goto T540;
1224          {register object V203;  T540:;
1225          V203= VV[47];          {register object V197;
1226          V195= make_cons((V203),(V195));          V197= CMPcar((V190));
1227          goto T550;}          V190= CMPcdr((V190));}
1228          goto T565;          V191= CMPcdr((V191));
1229  T565:;          V192= CMPcar((V191));
1230          goto T529;          goto T526;}}
1231          goto T552;          goto T521;
1232  T552:;  T521:;
1233          if(((*(LnkLI106))(car((V198)),(V200)))==Cnil){          if(((*(LnkLI106))(CMPcadr((V184)),(V186)))==Cnil){
1234          goto T570;}          goto T519;}
1235          {register object V204;          V198= reverse((V187));
1236          V204= car((V198));          {object V199 = make_cons(/* INLINE-ARGS */V198,CMPcdr((V184)));
1237          V195= make_cons((V204),(V195));          VMR11(V199)}
1238          goto T550;}          goto T519;
1239          goto T570;  T519:;
1240  T570:;          {object V200 = Cnil;
1241          goto T529;          VMR11(V200)}}
         goto T550;  
 T550:;  
         {register object V205;  
         V205= car((V198));  
         V198= cdr((V198));}  
         V199= cdr((V199));  
         V200= car((V199));  
         goto T536;}}  
         goto T531;  
 T531:;  
         if(((*(LnkLI106))(cadr((V192)),(V194)))==Cnil){  
         goto T529;}  
         V206= reverse((V195));  
         {object V207 = make_cons(/* INLINE-ARGS */V206,cdr((V192)));  
         VMR11(V207)}  
         goto T529;  
 T529:;  
         {object V208 = Cnil;  
         VMR11(V208)}}  
1242          base[0]=base[0];          base[0]=base[0];
1243          return Cnil;          return Cnil;
1244  }  }
1245  /*      local entry for function NEED-TO-PROTECT        */  /*      local entry for function NEED-TO-PROTECT        */
1246    
1247  static object LI12(V211,V212)  static object LI12(V203,V204)
1248    
1249  object V211;object V212;  object V203;object V204;
1250  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
1251          goto TTL;          goto TTL;
1252  TTL:;  TTL:;
1253            {register object V205;
1254            V205= Cnil;
1255            {register object V206;
1256            register object V207;
1257            V206= (V203);
1258            V207= (V204);
1259            goto T576;
1260    T576:;
1261            if(!(((V206))==Cnil)){
1262            goto T577;}
1263            {object V208 = Cnil;
1264            VMR12(V208)}
1265            goto T577;
1266    T577:;
1267            {register object V209;
1268            V209= CMPcar((V206));
1269            {object V210= CMPcar((V209));
1270            if((V210!= VV[14]))goto T583;
1271            goto T581;
1272            goto T583;
1273    T583:;
1274            if((V210!= VV[1]))goto T584;
1275            if(((*(LnkLI75))(CMPcaaddr((V209)),CMPcdr((V206))))!=Cnil){
1276            goto T585;}
1277            {register object x= STREF(object,CMPcaaddr((V209)),4),V211= VV[48];
1278            while(V211!=Cnil)
1279            if(eql(x,V211->c.c_car)){
1280            goto T589;
1281            }else V211=V211->c.c_cdr;
1282            goto T581;}
1283            goto T589;
1284    T589:;
1285            if((CMPcar((V207)))==(STREF(object,CMPcaaddr((V209)),4))){
1286            goto T581;}
1287            goto T585;
1288    T585:;
1289            {object V212 = Ct;
1290            VMR12(V212)}
1291            goto T584;
1292    T584:;
1293            if((V210!= VV[82]))goto T591;
1294          {register object V213;          {register object V213;
1295          V213= Cnil;          V213= CMPcaddr((V209));
1296          {register object V214;          if(((*(LnkLI83))((V213)))==Cnil){
1297          register object V215;          goto T593;}
1298          V214= (V211);          V205= (*(LnkLI84))((V213),CMPcadddr((V209)),STREF(object,CMPcadr((V209)),8));
1299          V215= (V212);          if(((V205))==Cnil){
1300          goto T586;          goto T593;}
 T586:;  
         if(!(endp_prop((V214)))){  
         goto T587;}  
         {object V216 = Cnil;  
         VMR12(V216)}  
         goto T587;  
 T587:;  
         {register object V217;  
         V217= car((V214));  
         {object V218= car((V217));  
         if((V218!= VV[14]))goto T593;  
         goto T591;  
         goto T593;  
 T593:;  
         if((V218!= VV[1]))goto T594;  
         if(((*(LnkLI75))(caaddr((V217)),cdr((V214))))!=Cnil){  
         goto T595;}  
         V220= structure_ref(caaddr((V217)),VV[1],1);  
         {register object x= /* INLINE-ARGS */V220,V219= VV[48];  
         while(!endp(V219))  
         if(eql(x,V219->c.c_car)){  
         goto T599;  
         }else V219=V219->c.c_cdr;  
         goto T591;}  
         goto T599;  
 T599:;  
         V221= car((V215));  
         V222= structure_ref(caaddr((V217)),VV[1],1);  
         if((/* INLINE-ARGS */V221)==(/* INLINE-ARGS */V222)){  
         goto T591;}  
         goto T595;  
 T595:;  
         {object V223 = Ct;  
         VMR12(V223)}  
         goto T594;  
 T594:;  
         if((V218!= VV[82]))goto T601;  
         {register object V224;  
         V224= caddr((V217));  
         if(((*(LnkLI83))((V224)))==Cnil){  
         goto T603;}  
         V225= cadddr((V217));  
         V226= structure_ref(cadr((V217)),VV[0],2);  
         V213= (*(LnkLI84))((V224),/* INLINE-ARGS */V225,/* INLINE-ARGS */V226);  
         if(((V213))==Cnil){  
         goto T603;}  
1301          base[0]= small_fixnum(0);          base[0]= small_fixnum(0);
1302          base[1]= caddr((V213));          base[1]= CMPcaddr((V205));
1303          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1304          Llogbitp();          Llogbitp();
1305          vs_top=sup;          vs_top=sup;
1306          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1307          goto T603;}          goto T593;}
1308          base[0]= small_fixnum(1);          base[0]= small_fixnum(1);
1309          base[1]= caddr((V213));          base[1]= CMPcaddr((V205));
1310          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1311          Llogbitp();          Llogbitp();
1312          vs_top=sup;          vs_top=sup;
1313          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1314          goto T603;}          goto T593;}
1315          base[0]= small_fixnum(4);          base[0]= small_fixnum(4);
1316          base[1]= caddr((V213));          base[1]= CMPcaddr((V205));
1317          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1318          Llogbitp();          Llogbitp();
1319          vs_top=sup;          vs_top=sup;
1320          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1321          goto T603;}          goto T593;}
1322          {register object x= cadr((V213)),V227= VV[49];          {register object x= CMPcadr((V205)),V214= VV[49];
1323          while(!endp(V227))          while(V214!=Cnil)
1324          if(eql(x,V227->c.c_car)){          if(eql(x,V214->c.c_car)){
1325          goto T623;          goto T613;
1326          }else V227=V227->c.c_cdr;          }else V214=V214->c.c_cdr;
1327          goto T621;}          goto T611;}
1328          goto T623;          goto T613;
1329  T623:;  T613:;
1330          if(!((car((V215)))==(cadr((V213))))){          if(!((CMPcar((V207)))==(CMPcadr((V205))))){
1331          goto T603;}          goto T593;}
1332          goto T621;          goto T611;
1333  T621:;  T611:;
1334          if(((*(LnkLI87))(cadddr((V217)),car((V213))))==Cnil){          if(((*(LnkLI87))(CMPcadddr((V209)),CMPcar((V205))))==Cnil){
1335          goto T591;}          goto T581;}
1336          goto T603;          goto T593;
1337  T603:;  T593:;
1338          {object V228 = Ct;          {object V215 = Ct;
1339          VMR12(V228)}}          VMR12(V215)}}
         goto T601;  
 T601:;  
         if((V218!= VV[96]))goto T626;  
         V229= make_cons(caddr((V217)),Cnil);  
         if(((*(LnkLI87))(/* INLINE-ARGS */V229,VV[50]))==Cnil){  
         goto T591;}  
         {object V230 = Ct;  
         VMR12(V230)}  
         goto T626;  
 T626:;  
         {object V231 = Ct;  
         VMR12(V231)}}}  
1340          goto T591;          goto T591;
1341  T591:;  T591:;
1342          V214= cdr((V214));          if((V210!= VV[96]))goto T616;
1343          V215= cdr((V215));          V216= make_cons(CMPcaddr((V209)),Cnil);
1344          goto T586;}}          if(((*(LnkLI87))(/* INLINE-ARGS */V216,VV[50]))==Cnil){
1345            goto T581;}
1346            {object V217 = Ct;
1347            VMR12(V217)}
1348            goto T616;
1349    T616:;
1350            {object V218 = Ct;
1351            VMR12(V218)}}}
1352            goto T581;
1353    T581:;
1354            V206= CMPcdr((V206));
1355            V207= CMPcdr((V207));
1356            goto T576;}}
1357          base[0]=base[0];          base[0]=base[0];
1358          return Cnil;          return Cnil;
1359  }  }
# Line 1380  static object LI13() Line 1364  static object LI13()
1364  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1365          goto TTL;          goto TTL;
1366  TTL:;  TTL:;
1367          if((symbol_value(VV[9]))==Cnil){          if(((VV[9]->s.s_dbind))==Cnil){
1368          goto T634;}          goto T624;}
1369          vs_base=vs_top;          (void)((*(LnkLI78))());
1370          (void) (*Lnk78)();          {object V219;
1371          vs_top=sup;          (VV[4]->s.s_dbind)= number_plus((VV[4]->s.s_dbind),small_fixnum(1));
1372          {object V232;          V219= (VV[4]->s.s_dbind);
         setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1)));  
         V232= symbol_value(VV[4]);  
1373          princ_char(123,VV[5]);          princ_char(123,VV[5]);
1374          (void)((*(LnkLI76))(symbol_value(VV[51])));          (void)((*(LnkLI76))((VV[51]->s.s_dbind)));
1375          princ_str("object V",VV[5]);          princ_str("object V",VV[5]);
1376          (void)((*(LnkLI76))((V232)));          (void)((*(LnkLI76))((V219)));
1377          princ_char(59,VV[5]);          princ_char(59,VV[5]);
1378          {object V233 = list(2,VV[6],(V232));          {object V220 = list(2,VV[6],(V219));
1379          VMR13(V233)}}          VMR13(V220)}}
1380          goto T634;          goto T624;
1381  T634:;  T624:;
1382          {object V234 = list(2,VV[12],(*(LnkLI94))());          {object V221 = list(2,VV[12],(*(LnkLI94))());
1383          VMR13(V234)}          VMR13(V221)}
         base[0]=base[0];  
1384          return Cnil;          return Cnil;
1385  }  }
1386  /*      local entry for function CLOSE-INLINE-BLOCKS    */  /*      local entry for function CLOSE-INLINE-BLOCKS    */
# Line 1409  static object LI14() Line 1390  static object LI14()
1390  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1391          goto TTL;          goto TTL;
1392  TTL:;  TTL:;
1393          {register object V235;          {register object V222;
1394          V235= symbol_value(VV[2]);          V222= (VV[2]->s.s_dbind);
1395          if(!(type_of((V235))==t_cons)){          if(!(type_of((V222))==t_cons)){
1396          goto T646;}          goto T636;}
1397          if(!(eql(cdr((V235)),VV[52]))){          if(!(eql(CMPcdr((V222)),VV[52]))){
1398          goto T649;}          goto T639;}
1399          princ_str("restore_avma;",VV[5]);          princ_str("restore_avma;",VV[5]);
1400          goto T649;          goto T639;
1401  T649:;  T639:;
1402          V235= car((V235));          V222= CMPcar((V222));
1403          goto T646;          goto T636;
1404  T646:;  T636:;
1405          {register long V236;          {register long V223;
1406          register long V237;          register long V224;
1407          V236= fix((V235));          V223= fix((V222));
1408          V237= 0;          V224= 0;
1409          goto T657;          goto T647;
1410  T657:;  T647:;
1411          if(!((V237)>=(V236))){          if(!((V224)>=(V223))){
1412          goto T658;}          goto T648;}
1413          {object V238 = Cnil;          {object V225 = Cnil;
1414          VMR14(V238)}          VMR14(V225)}
1415          goto T658;          goto T648;
1416  T658:;  T648:;
1417          princ_char(125,VV[5]);          princ_char(125,VV[5]);
1418          V237= (long)(V237)+1;          V224= (long)(V224)+1;
1419          goto T657;}}          goto T647;}}
1420          return Cnil;          return Cnil;
1421  }  }
1422  /*      function definition for WT-INLINE-LOC   */  /*      function definition for WT-INLINE-LOC   */
# Line 1443  T658:; Line 1424  T658:;
1424  static void L15()  static void L15()
1425  {register object *base=vs_base;  {register object *base=vs_base;
1426          register object *sup=base+VM15; VC15          register object *sup=base+VM15; VC15
1427          vs_reserve(VM15);          vs_check;
1428          {register object V239;          {register object V226;
1429          object V240;          object V227;
1430          check_arg(2);          V226=(base[0]);
1431          V239=(base[0]);          V227=(base[1]);
         V240=(base[1]);  
1432          vs_top=sup;          vs_top=sup;
1433          goto TTL;          goto TTL;
1434  TTL:;  TTL:;
1435          {register long V241;          {register long V228;
1436          long V242;          long V229;
1437          V241= 0;          V228= 0;
1438          V242= -1;          V229= -1;
1439          if(!(type_of((V239))==t_string)){          if(!(type_of((V226))==t_string)){
1440          goto T670;}          goto T660;}
1441          base[2]= elt((V239),0);          if(!((((V226))->ust.ust_self[0])==(64))){
1442          base[3]= VV[25];          goto T662;}
1443          vs_top=(vs_base=base+2)+2;          V228= 1;
1444          Lchar_eq();          goto T668;
1445          vs_top=sup;  T668:;
1446          if((vs_base[0])==Cnil){          if(!((((V226))->ust.ust_self[V228])==(59))){
1447          goto T672;}          goto T669;}
1448          V241= 1;          V228= (long)(V228)+(1);
1449            goto T662;
1450            goto T669;
1451    T669:;
1452            V228= (long)(V228)+(1);
1453            goto T668;
1454            goto T662;
1455    T662:;
1456            {long V230;
1457            V230= (long)((V226))->v.v_fillp;
1458          goto T680;          goto T680;
1459  T680:;  T680:;
1460          base[2]= elt((V239),V241);          if(!((V228)>=(V230))){
         base[3]= VV[26];  
         vs_top=(vs_base=base+2)+2;  
         Lchar_eq();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
1461          goto T681;}          goto T681;}
         V241= (long)(V241)+(1);  
         goto T672;  
         goto T681;  
 T681:;  
         V241= (long)(V241)+(1);  
         goto T680;  
         goto T672;  
 T672:;  
         {long V243;  
         V243= (long)length((V239));  
         goto T694;  
 T694:;  
         if(!((V241)>=(V243))){  
         goto T695;}  
1462          base[2]= Cnil;          base[2]= Cnil;
1463          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1464          return;          return;
1465            goto T681;
1466    T681:;
1467            {unsigned char V231;
1468            V231= ((V226))->ust.ust_self[V228];
1469            if(!((V231)==(35))){
1470            goto T688;}
1471            {register object V232;
1472            register object V233;
1473            V232= code_char(((V226))->ust.ust_self[(long)(V228)+1]);
1474            V233= small_fixnum(0);
1475            if(type_of(V232)==t_character){
1476            goto T695;}
1477            goto T693;
1478          goto T695;          goto T695;
1479  T695:;  T695:;
1480          {unsigned char V244;          if(!(((long)(42))==((long)(char_code(V232))))){
1481          V244= char_code(elt((V239),V241));          goto T693;}
1482          base[2]= code_char(V244);          if(!((V229)>=(0))){
1483          base[3]= VV[53];          goto T697;}
1484          vs_top=(vs_base=base+2)+2;          V235 = CMPmake_fixnum(V229);
1485          Lchar_eq();          V236= one_plus(V235);
1486          vs_top=sup;          V237 = CMPmake_fixnum((long)length((V227)));
1487          if((vs_base[0])==Cnil){          if(!(number_compare(/* INLINE-ARGS */V236,V237)<0)){
1488          goto T702;}          goto T697;}
         {register object V245;  
         register object V246;  
         V245= elt((V239),(long)(V241)+1);  
         V246= small_fixnum(0);  
         if(!(eql((V245),VV[54]))){  
         goto T709;}  
         if(!((V242)>=(0))){  
         goto T711;}  
         V247 = make_fixnum(V242);  
         V248= one_plus(V247);  
         V249 = make_fixnum((long)length((V240)));  
         if(!(number_compare(/* INLINE-ARGS */V248,V249)<0)){  
         goto T711;}  
1489          princ_char(44,VV[5]);          princ_char(44,VV[5]);
1490          goto T711;          goto T697;
1491  T711:;  T697:;
1492          {register object V250;          {register object V238;
1493          V251 = make_fixnum(V242);          V239 = CMPmake_fixnum(V229);
1494          V252= one_plus(V251);          V240= one_plus(V239);
1495          V250= nthcdr(fixint(/* INLINE-ARGS */V252),(V240));          V238= nthcdr(fix(/* INLINE-ARGS */V240),(V227));
1496          goto T719;          goto T705;
1497  T719:;  T705:;
1498          if(((V250))!=Cnil){          if(((V238))!=Cnil){
1499          goto T720;}          goto T706;}
1500            goto T690;
1501          goto T706;          goto T706;
1502          goto T720;  T706:;
1503  T720:;          base[2]= CMPcar((V238));
         base[2]= car((V250));  
1504          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1505          (void) (*Lnk88)();          (void) (*Lnk88)();
1506          vs_top=sup;          vs_top=sup;
1507          if((cdr((V250)))==Cnil){          if((CMPcdr((V238)))==Cnil){
1508          goto T726;}          goto T712;}
1509          princ_char(44,VV[5]);          princ_char(44,VV[5]);
1510          goto T726;          goto T712;
1511  T726:;  T712:;
1512          V250= cdr((V250));          V238= CMPcdr((V238));
1513          goto T719;}          goto T705;}
1514          goto T709;          goto T693;
1515  T709:;  T693:;
1516          base[2]= (V245);          base[2]= (V232);
1517          base[3]= small_fixnum(10);          base[3]= small_fixnum(10);
1518          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1519          Ldigit_char_p();          Ldigit_char_p();
1520          vs_top=sup;          vs_top=sup;
1521          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1522          goto T706;}          goto T690;}
1523          base[2]= (V245);          base[2]= (V232);
1524          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1525          Lchar_code();          Lchar_code();
1526          vs_top=sup;          vs_top=sup;
1527          V253= vs_base[0];          V241= vs_base[0];
1528          V254 = make_fixnum((long)(48));          V242 = CMPmake_fixnum((long)(48));
1529          V246= number_minus(V253,V254);          V233= number_minus(V241,V242);
1530          V255 = make_fixnum((long)length((V239)));          V243 = CMPmake_fixnum((long)length((V226)));
1531          V256 = make_fixnum(V241);          V244 = CMPmake_fixnum(V228);
1532          V257= number_plus(V256,small_fixnum(2));          V245= number_plus(V244,small_fixnum(2));
1533          if(!(number_compare(V255,/* INLINE-ARGS */V257)>0)){          if(!(number_compare(V243,/* INLINE-ARGS */V245)>0)){
1534          goto T741;}          goto T727;}
1535          V258 = make_fixnum(V241);          V246 = CMPmake_fixnum(V228);
1536          V259= number_plus(V258,small_fixnum(2));          V247= number_plus(V246,small_fixnum(2));
1537          V245= elt((V239),fixint(/* INLINE-ARGS */V259));          V232= code_char(((V226))->ust.ust_self[fix(/* INLINE-ARGS */V247)]);
1538          base[2]= (V245);          base[2]= (V232);
1539          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1540          Ldigit_char_p();          Ldigit_char_p();
1541          vs_top=sup;          vs_top=sup;
1542          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1543          goto T741;}          goto T727;}
1544          V260= number_times((V246),small_fixnum(10));          V248= number_times((V233),small_fixnum(10));
1545          base[2]= (V245);          base[2]= (V232);
1546          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1547          Lchar_code();          Lchar_code();
1548          vs_top=sup;          vs_top=sup;
1549          V261= vs_base[0];          V249= vs_base[0];
1550          V262 = make_fixnum((long)(48));          V250 = CMPmake_fixnum((long)(48));
1551          V263= number_minus(V261,V262);          V251= number_minus(V249,V250);
1552          V246= number_plus(/* INLINE-ARGS */V260,/* INLINE-ARGS */V263);          V233= number_plus(/* INLINE-ARGS */V248,/* INLINE-ARGS */V251);
1553          V241= (long)(V241)+(1);          V228= (long)(V228)+(1);
1554          goto T741;          goto T727;
1555  T741:;  T727:;
1556          V264 = make_fixnum(V242);          V252 = CMPmake_fixnum(V229);
1557          if(!(number_compare((V246),V264)>=0)){          if(!(number_compare((V233),V252)>=0)){
1558          goto T754;}          goto T740;}
1559          V242= fix((V246));          V229= fix((V233));
1560          goto T754;          goto T740;
1561  T754:;  T740:;
1562          base[2]= nth(fixint((V246)),(V240));          base[2]= nth(fix((V233)),(V227));
1563          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1564          (void) (*Lnk88)();          (void) (*Lnk88)();
1565          vs_top=sup;}          vs_top=sup;}
1566          goto T706;          goto T690;
1567  T706:;  T690:;
1568          V241= (long)(V241)+(2);          V228= (long)(V228)+(2);
1569          goto T699;          goto T685;
1570          goto T702;          goto T688;
1571  T702:;  T688:;
1572          (void)(princ(code_char(V244),symbol_value(VV[5])));          (void)(princ(code_char(V231),(VV[5]->s.s_dbind)));
1573          V241= (long)(V241)+(1);}          V228= (long)(V228)+(1);}
1574          goto T699;          goto T685;
1575  T699:;  T685:;
1576          goto T694;}          goto T680;}
1577          goto T670;          goto T660;
1578  T670:;  T660:;
1579          base[2]= (V239);          base[2]= (V226);
1580          {object V265;          {object V253;
1581          V265= (V240);          V253= (V227);
1582           vs_top=base+3;           vs_top=base+3;
1583           while(!endp(V265))           while(V253!=Cnil)
1584           {vs_push(car(V265));V265=cdr(V265);}           {vs_push((V253)->c.c_car);V253=(V253)->c.c_cdr;}
1585          vs_base=base+3;}          vs_base=base+3;}
1586          super_funcall_no_event(base[2]);          super_funcall_no_event(base[2]);
1587          return;}          return;}
# Line 1622  T670:; Line 1592  T670:;
1592  static void L16()  static void L16()
1593  {register object *base=vs_base;  {register object *base=vs_base;
1594          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
1595          vs_reserve(VM16);          vs_check;
1596          {object V266;          {object V254;
1597          object V267;          object V255;
1598          object V268;          object V256;
1599          check_arg(3);          V254=(base[0]);
1600          V266=(base[0]);          V255=(base[1]);
1601          V267=(base[1]);          V256=(base[2]);
         V268=(base[2]);  
1602          vs_top=sup;          vs_top=sup;
1603          goto TTL;          goto TTL;
1604  TTL:;  TTL:;
1605          base[3]= (V267);          base[3]= (V255);
1606          base[4]= (V268);          base[4]= (V256);
1607          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1608          (void) (*Lnk107)();          (void) (*Lnk107)();
1609          return;          return;
# Line 1642  TTL:; Line 1611  TTL:;
1611  }  }
1612  /*      local entry for function WT-INLINE-COND */  /*      local entry for function WT-INLINE-COND */
1613    
1614  static object LI17(V272,V273,V274)  static object LI17(V260,V261,V262)
1615    
1616  object V272;object V273;object V274;  object V260;object V261;object V262;
1617  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
1618          goto TTL;          goto TTL;
1619  TTL:;  TTL:;
1620          princ_char(40,VV[5]);          princ_char(40,VV[5]);
1621          base[0]= (V273);          base[0]= (V261);
1622          base[1]= (V274);          base[1]= (V262);
1623          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1624          (void) (*Lnk107)();          (void) (*Lnk107)();
1625          vs_top=sup;          vs_top=sup;
1626          princ_str("?Ct:Cnil)",VV[5]);          princ_str("?Ct:Cnil)",VV[5]);
1627          {object V275 = Cnil;          {object V263 = Cnil;
1628          VMR17(V275)}          VMR17(V263)}
1629          base[0]=base[0];          base[0]=base[0];
1630          return Cnil;          return Cnil;
1631  }  }
1632  /*      local entry for function WT-INLINE-FIXNUM       */  /*      local entry for function WT-INLINE-FIXNUM       */
1633    
1634  static object LI18(V279,V280,V281)  static object LI18(V267,V268,V269)
1635    
1636  object V279;object V280;object V281;  object V267;object V268;object V269;
1637  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1638          goto TTL;          goto TTL;
1639  TTL:;  TTL:;
1640          if(!(number_compare(small_fixnum(0),symbol_value(VV[56]))==0)){          if(!(number_compare(small_fixnum(0),(VV[56]->s.s_dbind))==0)){
1641          goto T774;}          goto T760;}
1642          princ_str("CMP",VV[5]);          princ_str("CMP",VV[5]);
1643          goto T774;          goto T760;
1644  T774:;  T760:;
1645          princ_str("make_fixnum((long)",VV[5]);          princ_str("make_fixnum((long)",VV[5]);
1646          base[0]= (V280);          base[0]= (V268);
1647          base[1]= (V281);          base[1]= (V269);
1648          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1649          (void) (*Lnk107)();          (void) (*Lnk107)();
1650          vs_top=sup;          vs_top=sup;
1651          princ_char(41,VV[5]);          princ_char(41,VV[5]);
1652          {object V282 = Cnil;          {object V270 = Cnil;
1653          VMR18(V282)}          VMR18(V270)}
1654          base[0]=base[0];          base[0]=base[0];
1655          return Cnil;          return Cnil;
1656  }  }
1657  /*      function definition for WT-INLINE-INTEGER       */  /*      local entry for function WT-INLINE-INTEGER      */
1658    
1659  static void L19()  static object LI19(V274,V275,V276)
1660  {register object *base=vs_base;  
1661          register object *sup=base+VM19; VC19  object V274;object V275;object V276;
1662          vs_reserve(VM19);  {        VMB19 VMS19 VMV19
         {object V283;  
         object V284;  
         object V285;  
         check_arg(3);  
         V283=(base[0]);  
         V284=(base[1]);  
         V285=(base[2]);  
         vs_top=sup;  
1663          goto TTL;          goto TTL;
1664  TTL:;  TTL:;
1665          princ_str("make_integer(",VV[5]);          princ_str("make_integer(",VV[5]);
1666          base[3]= (V284);          base[0]= (V275);
1667          base[4]= (V285);          base[1]= (V276);
1668          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+0)+2;
1669          (void) (*Lnk107)();          (void) (*Lnk107)();
1670          vs_top=sup;          vs_top=sup;
1671          princ_char(41,VV[5]);          princ_char(41,VV[5]);
1672          base[3]= Cnil;          {object V277 = Cnil;
1673          vs_top=(vs_base=base+3)+1;          VMR19(V277)}
1674          return;          base[0]=base[0];
1675          }          return Cnil;
1676  }  }
1677  /*      local entry for function WT-INLINE-CHARACTER    */  /*      local entry for function WT-INLINE-CHARACTER    */
1678    
1679  static object LI20(V289,V290,V291)  static object LI20(V281,V282,V283)
1680    
1681  object V289;object V290;object V291;  object V281;object V282;object V283;
1682  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1683          goto TTL;          goto TTL;
1684  TTL:;  TTL:;
1685          princ_str("code_char(",VV[5]);          princ_str("code_char(",VV[5]);
1686          base[0]= (V290);          base[0]= (V282);
1687          base[1]= (V291);          base[1]= (V283);
1688          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1689          (void) (*Lnk107)();          (void) (*Lnk107)();
1690          vs_top=sup;          vs_top=sup;
1691          princ_char(41,VV[5]);          princ_char(41,VV[5]);
1692          {object V292 = Cnil;          {object V284 = Cnil;
1693          VMR20(V292)}          VMR20(V284)}
1694          base[0]=base[0];          base[0]=base[0];
1695          return Cnil;          return Cnil;
1696  }  }
1697  /*      local entry for function WT-INLINE-LONG-FLOAT   */  /*      local entry for function WT-INLINE-LONG-FLOAT   */
1698    
1699  static object LI21(V296,V297,V298)  static object LI21(V288,V289,V290)
1700    
1701  object V296;object V297;object V298;  object V288;object V289;object V290;
1702  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
1703          goto TTL;          goto TTL;
1704  TTL:;  TTL:;
1705          princ_str("make_longfloat(",VV[5]);          princ_str("make_longfloat(",VV[5]);
1706          base[0]= (V297);          base[0]= (V289);
1707          base[1]= (V298);          base[1]= (V290);
1708          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1709          (void) (*Lnk107)();          (void) (*Lnk107)();
1710          vs_top=sup;          vs_top=sup;
1711          princ_char(41,VV[5]);          princ_char(41,VV[5]);
1712          {object V299 = Cnil;          {object V291 = Cnil;
1713          VMR21(V299)}          VMR21(V291)}
1714          base[0]=base[0];          base[0]=base[0];
1715          return Cnil;          return Cnil;
1716  }  }
1717  /*      local entry for function WT-INLINE-SHORT-FLOAT  */  /*      local entry for function WT-INLINE-SHORT-FLOAT  */
1718    
1719  static object LI22(V303,V304,V305)  static object LI22(V295,V296,V297)
1720    
1721  object V303;object V304;object V305;  object V295;object V296;object V297;
1722  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
1723          goto TTL;          goto TTL;
1724  TTL:;  TTL:;
1725          princ_str("make_shortfloat(",VV[5]);          princ_str("make_shortfloat(",VV[5]);
1726          base[0]= (V304);          base[0]= (V296);
1727          base[1]= (V305);          base[1]= (V297);
1728          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1729          (void) (*Lnk107)();          (void) (*Lnk107)();
1730          vs_top=sup;          vs_top=sup;
1731          princ_char(41,VV[5]);          princ_char(41,VV[5]);
1732          {object V306 = Cnil;          {object V298 = Cnil;
1733          VMR22(V306)}          VMR22(V298)}
1734          base[0]=base[0];          base[0]=base[0];
1735          return Cnil;          return Cnil;
1736  }  }
1737  /*      local entry for function ARGS-CAUSE-SIDE-EFFECT */  /*      local entry for function ARGS-CAUSE-SIDE-EFFECT */
1738    
1739  static object LI23(V308)  static object LI23(V300)
1740    
1741  object V308;  object V300;
1742  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
1743          goto TTL;          goto TTL;
1744  TTL:;  TTL:;
1745          {register object V309;          {register object V301;
1746          V309= Cnil;          V301= Cnil;
1747          {register object V310;          {register object V302;
1748          register object V311;          register object V303;
1749          V310= (V308);          V302= (V300);
1750          V311= car((V310));          V303= CMPcar((V302));
1751          goto T812;          goto T798;
1752  T812:;  T798:;
1753          if(!(endp_prop((V310)))){          if(!(((V302))==Cnil)){
1754          goto T813;}          goto T799;}
1755          {object V312 = Cnil;          {object V304 = Cnil;
1756          VMR23(V312)}          VMR23(V304)}
1757          goto T813;          goto T799;
1758  T813:;  T799:;
1759          {object V313= car((V311));          {object V305= CMPcar((V303));
1760          if((V313!= VV[14])          if((V305!= VV[14])
1761          && (V313!= VV[1])          && (V305!= VV[1])
1762          && (V313!= VV[96]))goto T818;          && (V305!= VV[96]))goto T804;
1763          goto T817;          goto T803;
1764          goto T818;          goto T804;
1765  T818:;  T804:;
1766          if((V313!= VV[82]))goto T819;          if((V305!= VV[82]))goto T805;
1767          {register object V314;          {register object V306;
1768          V314= caddr((V311));          V306= CMPcaddr((V303));
1769          if(((*(LnkLI83))((V314)))==Cnil){          if(((*(LnkLI83))((V306)))==Cnil){
1770          goto T821;}          goto T807;}
1771          V315= cadddr((V311));          V301= (*(LnkLI84))((V306),CMPcadddr((V303)),STREF(object,CMPcadr((V303)),8));
1772          V316= structure_ref(cadr((V311)),VV[0],2);          if(((V301))==Cnil){
1773          V309= (*(LnkLI84))((V314),/* INLINE-ARGS */V315,/* INLINE-ARGS */V316);          goto T807;}
1774          if(((V309))==Cnil){          (void)((*(LnkLI105))((V301)));
         goto T821;}  
         base[1]= (V309);  
         vs_top=(vs_base=base+1)+1;  
         (void) (*Lnk105)();  
         vs_top=sup;  
1775          base[1]= small_fixnum(1);          base[1]= small_fixnum(1);
1776          base[2]= caddr((V309));          base[2]= CMPcaddr((V301));
1777          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1778          Llogbitp();          Llogbitp();
1779          vs_top=sup;          vs_top=sup;
1780          V317= vs_base[0];          V307= vs_base[0];
1781          if((V317)==Cnil){          if((V307)==Cnil){
1782          goto T817;}          goto T803;}
1783          goto T821;          goto T807;
1784  T821:;  T807:;
1785          {object V318 = Ct;          {object V308 = Ct;
1786          VMR23(V318)}}          VMR23(V308)}}
1787          goto T819;          goto T805;
1788  T819:;  T805:;
1789          {object V319 = Ct;          {object V309 = Ct;
1790          VMR23(V319)}}          VMR23(V309)}}
1791          goto T817;          goto T803;
1792  T817:;  T803:;
1793          V310= cdr((V310));          V302= CMPcdr((V302));
1794          V311= car((V310));          V303= CMPcar((V302));
1795          goto T812;}}          goto T798;}}
1796          base[0]=base[0];          base[0]=base[0];
1797          return Cnil;          return Cnil;
1798  }  }
# Line 1846  static object LI24(object first,...) Line 1802  static object LI24(object first,...)
1802  {        {      
1803          va_list ap;          va_list ap;
1804          int narg = VFUN_NARGS; VMB24 VMS24 VMV24          int narg = VFUN_NARGS; VMB24 VMS24 VMV24
1805          {object V320;          {object V310;
1806          va_start(ap,first);          va_start(ap,first);
1807          narg= narg - 0;          narg= narg - 0;
1808          V321 = list_vector_new(narg,first,ap);          V311 = list_vector_new(narg,first,ap);
1809          V320= V321;          V310= V311;
1810          {object V322;          {object V312;
1811          object V323;          object V313;
1812          V322= Cnil;          V312= Cnil;
1813          V323= make_fixnum((long)length((V320)));          V313= CMPmake_fixnum((long)length((V310)));
1814          if(type_of(symbol_value(VV[13]))==t_cons){          if(type_of((VV[13]->s.s_dbind))==t_cons){
1815          goto T845;}          goto T830;}
1816          V322= Cnil;          V312= Cnil;
1817          goto T844;          goto T829;
1818          goto T845;          goto T830;
1819  T845:;  T830:;
1820          if((car(symbol_value(VV[13])))==(VV[1])){          if((CMPcar((VV[13]->s.s_dbind)))==(VV[1])){
1821          goto T847;}          goto T832;}
1822          V322= Cnil;          V312= Cnil;
1823          goto T844;          goto T829;
1824          goto T847;          goto T832;
1825  T847:;  T832:;
1826          V324= structure_ref(cadr(symbol_value(VV[13])),VV[1],5);          V312= ((STREF(object,CMPcadr((VV[13]->s.s_dbind)),20))==(VV[57])?Ct:Cnil);
1827          V322= ((/* INLINE-ARGS */V324)==(VV[57])?Ct:Cnil);          goto T829;
1828          goto T844;  T829:;
1829  T844:;          if(((V312))==Cnil){
1830          if(((V322))==Cnil){          goto T827;}
         goto T842;}  
1831          princ_str("(ALLOCA_CONS(",VV[5]);          princ_str("(ALLOCA_CONS(",VV[5]);
1832          (void)((*(LnkLI76))((V323)));          (void)((*(LnkLI76))((V313)));
1833          princ_str("),ON_STACK_LIST(",VV[5]);          princ_str("),ON_STACK_LIST(",VV[5]);
1834          (void)((*(LnkLI76))((V323)));          (void)((*(LnkLI76))((V313)));
1835          goto T840;          goto T825;
1836          goto T842;          goto T827;
1837  T842:;  T827:;
1838          princ_str("list(",VV[5]);          princ_str("list(",VV[5]);
1839          V325 = make_fixnum((long)length((V320)));          V314 = CMPmake_fixnum((long)length((V310)));
1840          (void)((*(LnkLI76))(V325));          (void)((*(LnkLI76))(V314));
1841            goto T825;
1842    T825:;
1843            {register object V315;
1844            register object V316;
1845            V315= (V310);
1846            V316= CMPcar((V315));
1847            goto T844;
1848    T844:;
1849            if(!(((V315))==Cnil)){
1850            goto T845;}
1851            goto T840;
1852            goto T845;
1853    T845:;
1854            (void)((*(LnkLI76))(VV[58]));
1855            (void)((*(LnkLI76))((V316)));
1856            V315= CMPcdr((V315));
1857            V316= CMPcar((V315));
1858            goto T844;}
1859          goto T840;          goto T840;
1860  T840:;  T840:;
1861          {register object V326;          (void)((*(LnkLI76))(VV[59]));
1862          register object V327;          if(((V312))==Cnil){
         V326= (V320);  
         V327= car((V326));  
         goto T859;  
 T859:;  
         if(!(endp_prop((V326)))){  
1863          goto T860;}          goto T860;}
1864          goto T855;          (void)((*(LnkLI76))(VV[59]));
1865            {object V317 = Cnil;
1866            VMR24(V317)}
1867          goto T860;          goto T860;
1868  T860:;  T860:;
1869          (void)((*(LnkLI76))(VV[58]));          {object V318 = Cnil;
1870          (void)((*(LnkLI76))((V327)));          VMR24(V318)}}
         V326= cdr((V326));  
         V327= car((V326));  
         goto T859;}  
         goto T855;  
 T855:;  
         (void)((*(LnkLI76))(VV[59]));  
         if(((V322))==Cnil){  
         goto T875;}  
         (void)((*(LnkLI76))(VV[59]));  
         {object V328 = Cnil;  
         VMR24(V328)}  
         goto T875;  
 T875:;  
         {object V329 = Cnil;  
         VMR24(V329)}}  
1871          va_end(ap);          va_end(ap);
1872          base[0]=base[0];          base[0]=base[0];
1873          return Cnil;}          return Cnil;}
# Line 1923  static object LI25(object first,...) Line 1878  static object LI25(object first,...)
1878  {        {      
1879          va_list ap;          va_list ap;
1880          int narg = VFUN_NARGS; VMB25 VMS25 VMV25          int narg = VFUN_NARGS; VMB25 VMS25 VMV25
1881          {register object V330;          {register object V319;
1882          va_start(ap,first);          va_start(ap,first);
1883          narg= narg - 0;          narg= narg - 0;
1884          V331 = list_vector_new(narg,first,ap);          V320 = list_vector_new(narg,first,ap);
1885          V330= V331;switch((long)length((V330))){          V319= V320;switch((long)length((V319))){
1886          case 1:          case 1:
1887          goto T879;          goto T864;
1888  T879:;  T864:;
1889          (void)((*(LnkLI76))(car((V330))));          (void)((*(LnkLI76))(CMPcar((V319))));
1890          {object V332 = Cnil;          {object V321 = Cnil;
1891          VMR25(V332)}          VMR25(V321)}
1892          case 2:          case 2:
1893          goto T880;          goto T865;
1894  T880:;  T865:;
1895          princ_str("make_cons(",VV[5]);          princ_str("make_cons(",VV[5]);
1896          (void)((*(LnkLI76))(car((V330))));          (void)((*(LnkLI76))(CMPcar((V319))));
1897          princ_char(44,VV[5]);          princ_char(44,VV[5]);
1898          (void)((*(LnkLI76))(cadr((V330))));          (void)((*(LnkLI76))(CMPcadr((V319))));
1899          princ_char(41,VV[5]);          princ_char(41,VV[5]);
1900          {object V333 = Cnil;          {object V322 = Cnil;
1901          VMR25(V333)}          VMR25(V322)}
1902          default:          default:
1903            goto T866;
1904    T866:;
1905            princ_str("listA(",VV[5]);
1906            V323 = CMPmake_fixnum((long)length((V319)));
1907            (void)((*(LnkLI76))(V323));
1908            {register object V324;
1909            register object V325;
1910            V324= (V319);
1911            V325= CMPcar((V324));
1912          goto T881;          goto T881;
1913  T881:;  T881:;
1914          princ_str("listA(",VV[5]);          if(!(((V324))==Cnil)){
1915          V334 = make_fixnum((long)length((V330)));          goto T882;}
1916          (void)((*(LnkLI76))(V334));          goto T877;
1917          {register object V335;          goto T882;
1918          register object V336;  T882:;
         V335= (V330);  
         V336= car((V335));  
         goto T896;  
 T896:;  
         if(!(endp_prop((V335)))){  
         goto T897;}  
         goto T892;  
         goto T897;  
 T897:;  
1919          (void)((*(LnkLI76))(VV[58]));          (void)((*(LnkLI76))(VV[58]));
1920          (void)((*(LnkLI76))((V336)));          (void)((*(LnkLI76))((V325)));
1921          V335= cdr((V335));          V324= CMPcdr((V324));
1922          V336= car((V335));          V325= CMPcar((V324));
1923          goto T896;}          goto T881;}
1924          goto T892;          goto T877;
1925  T892:;  T877:;
1926          (void)((*(LnkLI76))(VV[59]));          (void)((*(LnkLI76))(VV[59]));
1927          {object V337 = Cnil;          {object V326 = Cnil;
1928          VMR25(V337)}          VMR25(V326)}
1929          {object V338 = Cnil;          {object V327 = Cnil;
1930          VMR25(V338)}}          VMR25(V327)}}
1931          {object V339 = Cnil;          {object V328 = Cnil;
1932          VMR25(V339)}          VMR25(V328)}
1933          va_end(ap);          va_end(ap);
1934          base[0]=base[0];          base[0]=base[0];
1935          return Cnil;}          return Cnil;}
1936          }          }
1937  /*      local entry for function DEFSYSFUN      */  /*      local entry for function DEFSYSFUN      */
1938    
1939  static object LI26(V346,V347,V348,V349,V350,V351)  static object LI26(V335,V336,V337,V338,V339,V340)
1940    
1941  register object V346;object V347;object V348;register object V349;object V350;object V351;  register object V335;object V336;object V337;register object V338;object V339;object V340;
1942  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1943          goto TTL;          goto TTL;
1944  TTL:;  TTL:;
1945          if(((V347))==Cnil){          if(((V336))==Cnil){
1946          goto T910;}          goto T895;}
1947          (void)(putprop((V346),(V347),VV[60]));          (void)(putprop((V335),(V336),VV[60]));
1948          goto T910;          goto T895;
1949  T910:;  T895:;
1950          if(((V348))==Cnil){          if(((V337))==Cnil){
1951            goto T898;}
1952            {object V342;
1953            object V343= (V337);
1954            if(V343==Cnil){
1955            V341= Cnil;
1956            goto T901;}
1957            base[0]=V342=MMcons(Cnil,Cnil);
1958            goto T902;
1959    T902:;
1960            if(!(((V343->c.c_car))==(VV[61]))){
1961            goto T905;}
1962            (V342->c.c_car)= VV[61];
1963            goto T903;
1964            goto T905;
1965    T905:;
1966            (V342->c.c_car)= (*(LnkLI108))((V343->c.c_car));
1967            goto T903;
1968    T903:;
1969            if((V343=MMcdr(V343))==Cnil){
1970            V341= base[0];
1971            goto T901;}
1972            V342=MMcdr(V342)=MMcons(Cnil,Cnil);
1973            goto T902;}
1974            goto T901;
1975    T901:;
1976            (void)(putprop((V335),V341,VV[62]));
1977            goto T898;
1978    T898:;
1979            if(((V338))==Cnil){
1980            goto T907;}
1981            {register object V345;
1982            if(!(type_of((V338))!=t_cons)){
1983          goto T913;}          goto T913;}
1984          {object V353;          V346= make_cons((V338),Cnil);
1985          object V354= (V348);          goto T911;
1986          if(endp(V354)){          goto T913;
1987          V352= Cnil;  T913:;
1988          goto T916;}          V346= (V338);
1989          base[0]=V353=MMcons(Cnil,Cnil);          goto T911;
1990          goto T917;  T911:;
1991  T917:;          V345= (*(LnkLI109))(V346);
1992          if(!(((V354->c.c_car))==(VV[61]))){          if(!(type_of((V345))==t_cons)){
         goto T920;}  
         (V353->c.c_car)= VV[61];  
         goto T918;  
         goto T920;  
 T920:;  
         (V353->c.c_car)= (*(LnkLI108))((V354->c.c_car));  
         goto T918;  
 T918:;  
         V354=MMcdr(V354);  
         if(endp(V354)){  
         V352= base[0];  
1993          goto T916;}          goto T916;}
1994          V353=MMcdr(V353)=MMcons(Cnil,Cnil);          goto T915;
         goto T917;}  
1995          goto T916;          goto T916;
1996  T916:;  T916:;
1997          (void)(putprop((V346),V352,VV[62]));          V345= make_cons((V345),Cnil);
1998          goto T913;          goto T915;
1999  T913:;  T915:;
2000          if(((V349))==Cnil){          if((CMPcdr((V345)))!=Cnil){
2001          goto T922;}          goto T921;}
2002          {register object V356;          V347= CMPcar((V345));
2003          if(!(type_of((V349))!=t_cons)){          goto T919;
2004          goto T928;}          goto T921;
2005          V357= make_cons((V349),Cnil);  T921:;
2006          goto T926;          V347= make_cons(VV[63],(V345));
2007          goto T928;          goto T919;
2008  T928:;  T919:;
2009          V357= (V349);          (void)(putprop((V335),V347,VV[64]));}
2010          goto T926;          goto T907;
2011  T926:;  T907:;
2012          V356= (*(LnkLI109))(V357);          if(((V339))==Cnil){
2013          if(!(type_of((V356))==t_cons)){          goto T923;}
2014          goto T931;}          (void)(putprop((V335),Ct,VV[65]));
2015          goto T930;          goto T923;
2016          goto T931;  T923:;
2017  T931:;          if(((V340))==Cnil){
2018          V356= make_cons((V356),Cnil);          goto T927;}
2019          goto T930;          {object V348 = putprop((V335),Ct,VV[66]);
2020  T930:;          VMR26(V348)}
2021          if((cdr((V356)))!=Cnil){          goto T927;
2022          goto T936;}  T927:;
2023          V358= car((V356));          {object V349 = Cnil;
2024          goto T934;          VMR26(V349)}
         goto T936;  
 T936:;  
         V358= make_cons(VV[63],(V356));  
         goto T934;  
 T934:;  
         (void)(putprop((V346),V358,VV[64]));}  
         goto T922;  
 T922:;  
         if(((V350))==Cnil){  
         goto T938;}  
         (void)(putprop((V346),Ct,VV[65]));  
         goto T938;  
 T938:;  
         if(((V351))==Cnil){  
         goto T942;}  
         {object V359 = putprop((V346),Ct,VV[66]);  
         VMR26(V359)}  
         goto T942;  
 T942:;  
         {object V360 = Cnil;  
         VMR26(V360)}  
2025          base[0]=base[0];          base[0]=base[0];
2026          return Cnil;          return Cnil;
2027  }  }
# Line 2077  static void LC27(base0) Line 2031  static void LC27(base0)
2031  register object *base0;  register object *base0;
2032  {       register object *base=vs_base;  {       register object *base=vs_base;
2033          register object *sup=base+VM27; VC27          register object *sup=base+VM27; VC27
2034          vs_reserve(VM27);          vs_check;
2035          {object V361;          {object V350;
2036          vs_top[0]=Cnil;          vs_top[0]=Cnil;
2037          {object *p=vs_top;          {object *p=vs_top;
2038           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
2039          V361=(base[0]);          V350=(base[0]);
2040          vs_top=sup;          vs_top=sup;
2041          princ_str("(VFUN_NARGS=",VV[5]);          princ_str("(VFUN_NARGS=",VV[5]);
2042          V362 = make_fixnum((long)length((V361)));          V351 = CMPmake_fixnum((long)length((V350)));
2043          (void)((*(LnkLI76))(V362));          (void)((*(LnkLI76))(V351));
2044          princ_char(44,VV[5]);          princ_char(44,VV[5]);
2045          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
2046          base[2]= (V361);          base[2]= (V350);
2047          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2048          (void) (*Lnk107)();          (void) (*Lnk107)();
2049          vs_top=sup;          vs_top=sup;
# Line 2103  static object  LnkTLI109(object first,.. Line 2057  static object  LnkTLI109(object first,..
2057  static object  LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)(void *)&LnkLI108,1,first,ap);va_end(ap);return V1;} /* TYPE-FILTER */  static object  LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)(void *)&LnkLI108,1,first,ap);va_end(ap);return V1;} /* TYPE-FILTER */
2058  static void LnkT107(){ call_or_link(VV[107],(void **)(void *)&Lnk107);} /* WT-INLINE-LOC */  static void LnkT107(){ call_or_link(VV[107],(void **)(void *)&Lnk107);} /* WT-INLINE-LOC */
2059  static object  LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,2,first,ap);va_end(ap);return V1;} /* TYPE>= */  static object  LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,2,first,ap);va_end(ap);return V1;} /* TYPE>= */
2060  static void LnkT105(){ call_or_link(VV[105],(void **)(void *)&Lnk105);} /* FIX-OPT */  static object  LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[105],(void **)(void *)&LnkLI105,1,first,ap);va_end(ap);return V1;} /* FIX-OPT */
2061  static object  LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[104],(void **)(void *)&LnkLI104,3,first,ap);va_end(ap);return V1;} /* INLINE-TYPE-MATCHES */  static object  LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[104],(void **)(void *)&LnkLI104,3,first,ap);va_end(ap);return V1;} /* INLINE-TYPE-MATCHES */
2062  static object  LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)(void *)&LnkLI103,3,first,ap);va_end(ap);return V1;} /* ADD-FAST-LINK */  static object  LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)(void *)&LnkLI103,3,first,ap);va_end(ap);return V1;} /* ADD-FAST-LINK */
2063  static object  LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[102],(void **)(void *)&LnkLI102,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */  static object  LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[102],(void **)(void *)&LnkLI102,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */
# Line 2117  static object  LnkTLI94(){return call_pr Line 2071  static object  LnkTLI94(){return call_pr
2071  static void LnkT93(){ call_or_link(VV[93],(void **)(void *)&Lnk93);} /* WT-SHORT-FLOAT-LOC */  static void LnkT93(){ call_or_link(VV[93],(void **)(void *)&Lnk93);} /* WT-SHORT-FLOAT-LOC */
2072  static void LnkT92(){ call_or_link(VV[92],(void **)(void *)&Lnk92);} /* WT-LONG-FLOAT-LOC */  static void LnkT92(){ call_or_link(VV[92],(void **)(void *)&Lnk92);} /* WT-LONG-FLOAT-LOC */
2073  static void LnkT91(){ call_or_link(VV[91],(void **)(void *)&Lnk91);} /* WT-CHARACTER-LOC */  static void LnkT91(){ call_or_link(VV[91],(void **)(void *)&Lnk91);} /* WT-CHARACTER-LOC */
2074  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 */
2075  static void LnkT89(){ call_or_link(VV[89],(void **)(void *)&Lnk89);} /* WT-FIXNUM-LOC */  static void LnkT89(){ call_or_link(VV[89],(void **)(void *)&Lnk89);} /* WT-FIXNUM-LOC */
2076  static void LnkT88(){ call_or_link(VV[88],(void **)(void *)&Lnk88);} /* WT-LOC */  static void LnkT88(){ call_or_link(VV[88],(void **)(void *)&Lnk88);} /* WT-LOC */
2077  static object  LnkTLI87(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[87],(void **)(void *)&LnkLI87,2,first,ap);va_end(ap);return V1;} /* NEED-TO-PROTECT */  static object  LnkTLI87(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[87],(void **)(void *)&LnkLI87,2,first,ap);va_end(ap);return V1;} /* NEED-TO-PROTECT */
2078  static object  LnkTLI86(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[86],(void **)(void *)&LnkLI86,2,first,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */  static object  LnkTLI86(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[86],(void **)(void *)&LnkLI86,2,first,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */
2079  static void LnkT85(){ call_or_link(VV[85],(void **)(void *)&Lnk85);} /* SAVE-AVMA */  static object  LnkTLI85(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[85],(void **)(void *)&LnkLI85,1,first,ap);va_end(ap);return V1;} /* SAVE-AVMA */
2080  static object  LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[84],(void **)(void *)&LnkLI84,3,first,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */  static object  LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[84],(void **)(void *)&LnkLI84,3,first,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */
2081  static object  LnkTLI83(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[83],(void **)(void *)&LnkLI83,1,first,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */  static object  LnkTLI83(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[83],(void **)(void *)&LnkLI83,1,first,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */
2082  static object  LnkTLI81(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[81],(void **)(void *)&LnkLI81,first,ap);va_end(ap);return V1;} /* CS-PUSH */  static object  LnkTLI81(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[81],(void **)(void *)&LnkLI81,first,ap);va_end(ap);return V1;} /* CS-PUSH */
2083  static object  LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[80],(void **)(void *)&LnkLI80,2,first,ap);va_end(ap);return V1;} /* WT-VAR */  static object  LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[80],(void **)(void *)&LnkLI80,2,first,ap);va_end(ap);return V1;} /* WT-VAR */
2084  static object  LnkTLI79(){return call_proc0(VV[79],(void **)(void *)&LnkLI79);} /* WT-C-PUSH */  static object  LnkTLI79(){return call_proc0(VV[79],(void **)(void *)&LnkLI79);} /* WT-C-PUSH */
2085  static void LnkT78(){ call_or_link(VV[78],(void **)(void *)&Lnk78);} /* INC-INLINE-BLOCKS */  static object  LnkTLI78(){return call_proc0(VV[78],(void **)(void *)&LnkLI78);} /* INC-INLINE-BLOCKS */
2086  static object  LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[77],(void **)(void *)&LnkLI77,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */  static object  LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[77],(void **)(void *)&LnkLI77,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */
2087  static object  LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[76],(void **)(void *)&LnkLI76,1,first,ap);va_end(ap);return V1;} /* WT1 */  static object  LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[76],(void **)(void *)&LnkLI76,1,first,ap);va_end(ap);return V1;} /* WT1 */
2088  static object  LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */  static object  LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */

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