/[gcl]/gcl/lsp/gcl_arraylib.c
ViewVC logotype

Diff of /gcl/lsp/gcl_arraylib.c

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

revision 1.2 by camm, Sun Sep 14 02:43:03 2003 UTC revision 1.3 by camm, Tue Sep 23 21:48:29 2003 UTC
# Line 111  T35:;} Line 111  T35:;}
111          base[0]=base[0];          base[0]=base[0];
112          return Cnil;          return Cnil;
113  }  }
114  /*      function definition for UPGRADED-ARRAY-ELEMENT-TYPE     */  /*      local entry for function UPGRADED-ARRAY-ELEMENT-TYPE    */
115    
116  static void L2()  static object LI2(object V16,object first,...)
117  {register object *base=vs_base;  {      
118          register object *sup=base+VM2; VC2          va_list ap;
119          vs_reserve(VM2);          int narg = VFUN_NARGS; VMB2 VMS2 VMV2
120          {object V16;          {object V17;
121          object V17;          object V18;
122          if(vs_top-vs_base<1) too_few_arguments();          va_start(ap,first);
123          if(vs_top-vs_base>2) too_many_arguments();          if(narg <1) too_few_arguments();
124          V16=(base[0]);          V17= V16;
125          vs_base=vs_base+1;          narg = narg - 1;
126          if(vs_base>=vs_top){vs_top=sup;goto T55;}          if (narg <= 0) goto T55;
127          V17=(base[1]);          else {
128          vs_top=sup;          V18= first;}
129          goto T56;          --narg; goto T56;
130          goto T55;          goto T55;
131  T55:;  T55:;
132          V17= Cnil;          V18= Cnil;
133          goto T56;          goto T56;
134  T56:;  T56:;
135          base[2]= (*(LnkLI19))((V16));          {object V19 = (*(LnkLI19))((V17));
136          vs_top=(vs_base=base+2)+1;          VMR2(V19)}
137          return;          va_end(ap);
138            return Cnil;}
139          }          }
 }  
140  /*      local entry for function MAKE-ARRAY     */  /*      local entry for function MAKE-ARRAY     */
141    
142  static object LI3(object V18,object first,...)  static object LI3(object V20,object first,...)
143  {        {      
144          va_list ap;          va_list ap;
145          int narg = VFUN_NARGS; VMB3 VMS3 VMV3          int narg = VFUN_NARGS; VMB3 VMS3 VMV3
146          {register object V19;          {register object V21;
147          object V20;          object V22;
         object V21;  
         register object V22;  
148          object V23;          object V23;
149          object V24;          register object V24;
150          object V25;          object V25;
151          object V26;          object V26;
152          object V27;          object V27;
153          object V28;          object V28;
154            object V29;
155            object V30;
156          va_start(ap,first);          va_start(ap,first);
157          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
158          V19= V18;          V21= V20;
159          narg= narg - 1;          narg= narg - 1;
160          {          {
161          parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI3key,first,ap);          parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI3key,first,ap);
162          if(Vcs[1]==0){          if(Vcs[1]==0){
163          V20= Ct;          V22= Ct;
164          }else{          }else{
165          V20=(Vcs[1]);}          V22=(Vcs[1]);}
166          V21=(Vcs[2]);          V23=(Vcs[2]);
167          if(Vcs[3]==0){          if(Vcs[3]==0){
168          V22= Cnil;          V24= Cnil;
169          V23= Cnil;          V25= Cnil;
170          }else{          }else{
171          V22=(Vcs[3]);          V24=(Vcs[3]);
172          V23= Ct;}          V25= Ct;}
173          V24=(Vcs[4]);          V26=(Vcs[4]);
174          V25=(Vcs[5]);          V27=(Vcs[5]);
175          V26=(Vcs[6]);          V28=(Vcs[6]);
176          V27=(Vcs[7]);          V29=(Vcs[7]);
177          V28=(Vcs[8]);          V30=(Vcs[8]);
178          if(!(type_of((V19))==t_fixnum||type_of((V19))==t_bignum)){          if(!(type_of((V21))==t_fixnum||type_of((V21))==t_bignum)){
179          goto T60;}          goto T60;}
180          V19= make_cons((V19),Cnil);          V21= make_cons((V21),Cnil);
181          goto T60;          goto T60;
182  T60:;  T60:;
183          V20= (*(LnkLI19))((V20));          V22= (*(LnkLI19))((V22));
184          if(!(((long)length((V19)))==(1))){          if(!(((long)length((V21)))==(1))){
185          goto T67;}          goto T67;}
186          {register object V29;          {register object V31;
187          base[0]= (V20);          base[0]= (V22);
188          base[1]= car((V19));          base[1]= car((V21));
189          base[2]= (V24);          base[2]= (V26);
190          base[3]= (V25);          base[3]= (V27);
191          base[4]= (V26);          base[4]= (V28);
192          base[5]= (V27);          base[5]= (V29);
193          base[6]= (V28);          base[6]= (V30);
194          base[7]= (V21);          base[7]= (V23);
195          vs_top=(vs_base=base+0)+8;          vs_top=(vs_base=base+0)+8;
196          siLmake_vector();          siLmake_vector();
197          vs_top=sup;          vs_top=sup;
198          V29= vs_base[0];          V31= vs_base[0];
199          if(((V23))==Cnil){          if(((V25))==Cnil){
200          goto T78;}          goto T78;}
201          {long V30;          {long V32;
202          register long V31;          register long V33;
203          V30= fix(car((V19)));          V32= fix(car((V21)));
204          V31= 0;          V33= 0;
205          goto T84;          goto T84;
206  T84:;  T84:;
207          if(!((V31)>=(V30))){          if(!((V33)>=(V32))){
208          goto T85;}          goto T85;}
209          goto T78;          goto T78;
210          goto T85;          goto T85;
211  T85:;  T85:;
212          V32= elt((V22),V31);          V34= elt((V24),V33);
213          (void)(aset1((V29),V31,/* INLINE-ARGS */V32));          (void)(aset1((V31),V33,/* INLINE-ARGS */V34));
214          V31= (long)(V31)+1;          V33= (long)(V33)+1;
215          goto T84;}          goto T84;}
216          goto T78;          goto T78;
217  T78:;  T78:;
218          {object V33 = (V29);          {object V35 = (V31);
219          VMR3(V33)}}          VMR3(V35)}}
220          goto T67;          goto T67;
221  T67:;  T67:;
222          {register object V34;          {register object V36;
223          base[1]= (V20);          base[1]= (V22);
224          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
225          (void) (*Lnk23)();          (void) (*Lnk23)();
226          vs_top=sup;          vs_top=sup;
227          base[0]= vs_base[0];          base[0]= vs_base[0];
228          base[1]= (V28);          base[1]= (V30);
229          base[2]= (V21);          base[2]= (V23);
230          base[3]= (V26);          base[3]= (V28);
231          base[4]= (V27);          base[4]= (V29);
232          base[5]= (V19);          base[5]= (V21);
233          vs_top=(vs_base=base+0)+6;          vs_top=(vs_base=base+0)+6;
234          (void) (*Lnk24)();          (void) (*Lnk24)();
235          vs_top=sup;          vs_top=sup;
236          V34= vs_base[0];          V36= vs_base[0];
237          if(((V25))==Cnil){          if(((V27))==Cnil){
238          goto T101;}          goto T101;}
239          base[0]= VV[6];          base[0]= VV[6];
240          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 242  T67:; Line 242  T67:;
242          vs_top=sup;          vs_top=sup;
243          goto T101;          goto T101;
244  T101:;  T101:;
245          {register object x= small_fixnum(0),V35= (V19);          {register object x= small_fixnum(0),V37= (V21);
246          while(!endp(V35))          while(!endp(V37))
247          if(eql(x,V35->c.c_car)){          if(eql(x,V37->c.c_car)){
248          goto T105;          goto T105;
249          }else V35=V35->c.c_cdr;}          }else V37=V37->c.c_cdr;}
250          if(((V23))==Cnil){          if(((V25))==Cnil){
251          goto T105;}          goto T105;}
252          {register object V36;          {register object V38;
253          base[0]= make_fixnum((long)length((V19)));          base[0]= make_fixnum((long)length((V21)));
254          base[1]= VV[7];          base[1]= VV[7];
255          base[2]= small_fixnum(0);          base[2]= small_fixnum(0);
256          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
257          Lmake_list();          Lmake_list();
258          vs_top=sup;          vs_top=sup;
259          V36= vs_base[0];          V38= vs_base[0];
260          goto T115;          goto T115;
261  T115:;  T115:;
262          base[0]= (V34);          base[0]= (V36);
263          base[1]= (*(LnkLI25))((V22),(V36));          base[1]= (*(LnkLI25))((V24),(V38));
264          base[2]= (V36);          base[2]= (V38);
265          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
266          (void) (*Lnk26)();          (void) (*Lnk26)();
267          vs_top=sup;          vs_top=sup;
268          if(((*(LnkLI27))((V36),(V19)))==Cnil){          if(((*(LnkLI27))((V38),(V21)))==Cnil){
269          goto T122;}          goto T122;}
270          goto T105;          goto T105;
271          goto T122;          goto T122;
# Line 273  T122:; Line 273  T122:;
273          goto T115;}          goto T115;}
274          goto T105;          goto T105;
275  T105:;  T105:;
276          {object V37 = (V34);          {object V39 = (V36);
277          VMR3(V37)}}          VMR3(V39)}}
278          va_end(ap);          va_end(ap);
279          base[0]=base[0];          base[0]=base[0];
280          return Cnil;}          return Cnil;}
281          }}          }}
282  /*      local entry for function INCREMENT-CURSOR       */  /*      local entry for function INCREMENT-CURSOR       */
283    
284  static object LI4(V40,V41)  static object LI4(V42,V43)
285    
286  register object V40;object V41;  register object V42;object V43;
287  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
288          goto TTL;          goto TTL;
289  TTL:;  TTL:;
290          if(((V40))!=Cnil){          if(((V42))!=Cnil){
291          goto T128;}          goto T128;}
292          {object V42 = Ct;          {object V44 = Ct;
293          VMR4(V42)}          VMR4(V44)}
294          goto T128;          goto T128;
295  T128:;  T128:;
296          {object V43;          {object V45;
297          V43= (*(LnkLI27))(cdr((V40)),cdr((V41)));          V45= (*(LnkLI27))(cdr((V42)),cdr((V43)));
298          if(((V43))==Cnil){          if(((V45))==Cnil){
299          goto T132;}          goto T132;}
300          if(!(((long)(fix(car((V40))))+1)>=(fix(car((V41)))))){          if(!(((long)(fix(car((V42))))+1)>=(fix(car((V43)))))){
301          goto T135;}          goto T135;}
302          if(type_of((V40))!=t_cons)FEwrong_type_argument(Scons,(V40));          if(type_of((V42))!=t_cons)FEwrong_type_argument(Scons,(V42));
303          ((V40))->c.c_car = small_fixnum(0);          ((V42))->c.c_car = small_fixnum(0);
304          {object V44 = Ct;          {object V46 = Ct;
305          VMR4(V44)}          VMR4(V46)}
306          goto T135;          goto T135;
307  T135:;  T135:;
308          V45 = make_fixnum((long)(fix(car((V40))))+1);          V47 = make_fixnum((long)(fix(car((V42))))+1);
309          if(type_of((V40))!=t_cons)FEwrong_type_argument(Scons,(V40));          if(type_of((V42))!=t_cons)FEwrong_type_argument(Scons,(V42));
310          ((V40))->c.c_car = V45;          ((V42))->c.c_car = V47;
311          {object V46 = Cnil;          {object V48 = Cnil;
312          VMR4(V46)}          VMR4(V48)}
313          goto T132;          goto T132;
314  T132:;  T132:;
315          {object V47 = Cnil;          {object V49 = Cnil;
316          VMR4(V47)}}          VMR4(V49)}}
317          return Cnil;          return Cnil;
318  }  }
319  /*      local entry for function SEQUENCE-CURSOR        */  /*      local entry for function SEQUENCE-CURSOR        */
320    
321  static object LI5(V50,V51)  static object LI5(V52,V53)
322    
323  object V50;object V51;  object V52;object V53;
324  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
325          goto TTL;          goto TTL;
326  TTL:;  TTL:;
327          if(((V51))!=Cnil){          if(((V53))!=Cnil){
328          goto T140;}          goto T140;}
329          {object V52 = (V50);          {object V54 = (V52);
330          VMR5(V52)}          VMR5(V54)}
331          goto T140;          goto T140;
332  T140:;  T140:;
333          V50= elt((V50),fix(car((V51))));          V52= elt((V52),fix(car((V53))));
334          V51= cdr((V51));          V53= cdr((V53));
335          goto TTL;          goto TTL;
336          return Cnil;          return Cnil;
337  }  }
# Line 341  static object LI6(object first,...) Line 341  static object LI6(object first,...)
341  {        {      
342          va_list ap;          va_list ap;
343          int narg = VFUN_NARGS; VMB6 VMS6 VMV6          int narg = VFUN_NARGS; VMB6 VMS6 VMV6
344          {object V53;          {object V55;
345          va_start(ap,first);          va_start(ap,first);
346          narg= narg - 0;          narg= narg - 0;
347          V54 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));          V56 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));
348          V53= V54;          V55= V56;
349          {object V55;          {object V57;
350          V56 = make_fixnum((long)length((V53)));          V58 = make_fixnum((long)length((V55)));
351          V55= make_cons(V56,Cnil);          V57= make_cons(V58,Cnil);
352          {object V57 = (VFUN_NARGS=5,(*(LnkLI28))((V55),VV[8],Ct,VV[9],(V53)));          {object V59 = (VFUN_NARGS=5,(*(LnkLI28))((V57),VV[8],Ct,VV[9],(V55)));
353          VMR6(V57)}}          VMR6(V59)}}
354          va_end(ap);          va_end(ap);
355          base[0]=base[0];          base[0]=base[0];
356          return Cnil;}          return Cnil;}
357          }          }
358  /*      local entry for function ARRAY-DIMENSIONS       */  /*      local entry for function ARRAY-DIMENSIONS       */
359    
360  static object LI7(V59)  static object LI7(V61)
361    
362  register object V59;  register object V61;
363  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
364          goto TTL;          goto TTL;
365  TTL:;  TTL:;
366          {register object V60;          {register object V62;
367          register object V61;          register object V63;
368          base[0]= (V59);          base[0]= (V61);
369          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
370          Larray_rank();          Larray_rank();
371          vs_top=sup;          vs_top=sup;
372          V60= vs_base[0];          V62= vs_base[0];
373          V61= Cnil;          V63= Cnil;
374          goto T149;          goto T149;
375  T149:;  T149:;
376          if(!(number_compare((V60),small_fixnum(0))==0)){          if(!(number_compare((V62),small_fixnum(0))==0)){
377          goto T150;}          goto T150;}
378          {object V62 = (V61);          {object V64 = (V63);
379          VMR7(V62)}          VMR7(V64)}
380          goto T150;          goto T150;
381  T150:;  T150:;
382          V60= one_minus((V60));          V62= one_minus((V62));
383          base[0]= (V59);          base[0]= (V61);
384          base[1]= (V60);          base[1]= (V62);
385          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
386          Larray_dimension();          Larray_dimension();
387          vs_top=sup;          vs_top=sup;
388          V63= vs_base[0];          V65= vs_base[0];
389          V61= make_cons(V63,(V61));          V63= make_cons(V65,(V63));
390          goto T149;}          goto T149;}
391          base[0]=base[0];          base[0]=base[0];
392          return Cnil;          return Cnil;
393  }  }
394  /*      local entry for function ARRAY-IN-BOUNDS-P      */  /*      local entry for function ARRAY-IN-BOUNDS-P      */
395    
396  static object LI8(object V64,object first,...)  static object LI8(object V66,object first,...)
397  {        {      
398          va_list ap;          va_list ap;
399          int narg = VFUN_NARGS; VMB8 VMS8 VMV8          int narg = VFUN_NARGS; VMB8 VMS8 VMV8
400          {register object V65;          {register object V67;
401          object V66;          object V68;
402          va_start(ap,first);          va_start(ap,first);
403          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
404          V65= V64;          V67= V66;
405          narg= narg - 1;          narg= narg - 1;
406          V67 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));          V69 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));
407          V66= V67;          V68= V69;
408          {register object V68;          {register object V70;
409          base[1]= (V65);          base[1]= (V67);
410          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
411          Larray_rank();          Larray_rank();
412          vs_top=sup;          vs_top=sup;
413          V68= vs_base[0];          V70= vs_base[0];
414          V69 = make_fixnum((long)length((V66)));          V71 = make_fixnum((long)length((V68)));
415          if(!(number_compare((V68),V69)!=0)){          if(!(number_compare((V70),V71)!=0)){
416          goto T165;}          goto T165;}
417          base[1]= VV[10];          base[1]= VV[10];
418          base[2]= (V68);          base[2]= (V70);
419          base[3]= make_fixnum((long)length((V66)));          base[3]= make_fixnum((long)length((V68)));
420          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
421          Lerror();          Lerror();
422          vs_top=sup;          vs_top=sup;
423          goto T165;          goto T165;
424  T165:;  T165:;
425          {register object V70;          {register object V72;
426          register object V71;          register object V73;
427          V70= small_fixnum(0);          V72= small_fixnum(0);
428          V71= (V66);          V73= (V68);
429          goto T172;          goto T172;
430  T172:;  T172:;
431          if(!(number_compare((V70),(V68))>=0)){          if(!(number_compare((V72),(V70))>=0)){
432          goto T173;}          goto T173;}
433          {object V72 = Ct;          {object V74 = Ct;
434          VMR8(V72)}          VMR8(V74)}
435          goto T173;          goto T173;
436  T173:;  T173:;
437          if(number_compare(car((V71)),small_fixnum(0))<0){          if(number_compare(car((V73)),small_fixnum(0))<0){
438          goto T178;}          goto T178;}
439          V73= car((V71));          V75= car((V73));
440          base[1]= (V65);          base[1]= (V67);
441          base[2]= (V70);          base[2]= (V72);
442          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
443          Larray_dimension();          Larray_dimension();
444          vs_top=sup;          vs_top=sup;
445          V74= vs_base[0];          V76= vs_base[0];
446          if(!(number_compare(/* INLINE-ARGS */V73,V74)>=0)){          if(!(number_compare(/* INLINE-ARGS */V75,V76)>=0)){
447          goto T177;}          goto T177;}
448          goto T178;          goto T178;
449  T178:;  T178:;
450          {object V75 = Cnil;          {object V77 = Cnil;
451          VMR8(V75)}          VMR8(V77)}
452          goto T177;          goto T177;
453  T177:;  T177:;
454          V70= one_plus((V70));          V72= one_plus((V72));
455          V71= cdr((V71));          V73= cdr((V73));
456          goto T172;}}          goto T172;}}
457          va_end(ap);          va_end(ap);
458          base[0]=base[0];          base[0]=base[0];
# Line 460  T177:; Line 460  T177:;
460          }          }
461  /*      local entry for function ARRAY-ROW-MAJOR-INDEX  */  /*      local entry for function ARRAY-ROW-MAJOR-INDEX  */
462    
463  static object LI9(object V76,object first,...)  static object LI9(object V78,object first,...)
464  {        {      
465          va_list ap;          va_list ap;
466          int narg = VFUN_NARGS; VMB9 VMS9 VMV9          int narg = VFUN_NARGS; VMB9 VMS9 VMV9
467          {register object V77;          {register object V79;
468          object V78;          object V80;
469          va_start(ap,first);          va_start(ap,first);
470          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
471          V77= V76;          V79= V78;
472          narg= narg - 1;          narg= narg - 1;
473          V79 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));          V81 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));
474          V78= V79;          V80= V81;
475          {register object V80;          {register object V82;
476          register object V81;          register object V83;
477          register object V82;          register object V84;
478          V80= small_fixnum(0);          V82= small_fixnum(0);
479          V81= small_fixnum(0);          V83= small_fixnum(0);
480          V82= (V78);          V84= (V80);
481          goto T190;          goto T190;
482  T190:;  T190:;
483          if(((V82))!=Cnil){          if(((V84))!=Cnil){
484          goto T191;}          goto T191;}
485          {object V83 = (V81);          {object V85 = (V83);
486          VMR9(V83)}          VMR9(V85)}
487          goto T191;          goto T191;
488  T191:;  T191:;
489          {object V84;          {object V86;
490          V84= one_plus((V80));          V86= one_plus((V82));
491          base[0]= (V77);          base[0]= (V79);
492          base[1]= (V80);          base[1]= (V82);
493          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
494          Larray_dimension();          Larray_dimension();
495          vs_top=sup;          vs_top=sup;
496          V85= vs_base[0];          V87= vs_base[0];
497          V86= number_times((V81),V85);          V88= number_times((V83),V87);
498          V81= number_plus(/* INLINE-ARGS */V86,car((V82)));          V83= number_plus(/* INLINE-ARGS */V88,car((V84)));
499          V82= cdr((V82));          V84= cdr((V84));
500          V80= (V84);}          V82= (V86);}
501          goto T190;}          goto T190;}
502          va_end(ap);          va_end(ap);
503          base[0]=base[0];          base[0]=base[0];
# Line 505  T191:; Line 505  T191:;
505          }          }
506  /*      local entry for function BIT    */  /*      local entry for function BIT    */
507    
508  static object LI10(object V87,object first,...)  static object LI10(object V89,object first,...)
509  {        {      
510          va_list ap;          va_list ap;
511          int narg = VFUN_NARGS; VMB10 VMS10 VMV10          int narg = VFUN_NARGS; VMB10 VMS10 VMV10
512          {object V88;          {object V90;
513          object V89;          object V91;
514          va_start(ap,first);          va_start(ap,first);
515          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
516          V88= V87;          V90= V89;
517          narg= narg - 1;          narg= narg - 1;
518          V90 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));          V92 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));
519          V89= V90;          V91= V92;
520          base[0]= (V88);          base[0]= (V90);
521          {object V91;          {object V93;
522          V91= (V89);          V93= (V91);
523           vs_top=base+1;           vs_top=base+1;
524           while(!endp(V91))           while(!endp(V93))
525           {vs_push(car(V91));V91=cdr(V91);}           {vs_push(car(V93));V93=cdr(V93);}
526          vs_base=base+0;}          vs_base=base+0;}
527          Laref();          Laref();
528          vs_top=sup;          vs_top=sup;
529          {object V92 = vs_base[0];          {object V94 = vs_base[0];
530          VMR10(V92)}          VMR10(V94)}
531          va_end(ap);          va_end(ap);
532          base[0]=base[0];          base[0]=base[0];
533          return Cnil;}          return Cnil;}
534          }          }
535  /*      local entry for function SBIT   */  /*      local entry for function SBIT   */
536    
537  static object LI11(object V93,object first,...)  static object LI11(object V95,object first,...)
538  {        {      
539          va_list ap;          va_list ap;
540          int narg = VFUN_NARGS; VMB11 VMS11 VMV11          int narg = VFUN_NARGS; VMB11 VMS11 VMV11
541          {object V94;          {object V96;
542          object V95;          object V97;
543          va_start(ap,first);          va_start(ap,first);
544          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
545          V94= V93;          V96= V95;
546          narg= narg - 1;          narg= narg - 1;
547          V96 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));          V98 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));
548          V95= V96;          V97= V98;
549          base[0]= (V94);          base[0]= (V96);
550          {object V97;          {object V99;
551          V97= (V95);          V99= (V97);
552           vs_top=base+1;           vs_top=base+1;
553           while(!endp(V97))           while(!endp(V99))
554           {vs_push(car(V97));V97=cdr(V97);}           {vs_push(car(V99));V99=cdr(V99);}
555          vs_base=base+0;}          vs_base=base+0;}
556          Laref();          Laref();
557          vs_top=sup;          vs_top=sup;
558          {object V98 = vs_base[0];          {object V100 = vs_base[0];
559          VMR11(V98)}          VMR11(V100)}
560          va_end(ap);          va_end(ap);
561          base[0]=base[0];          base[0]=base[0];
562          return Cnil;}          return Cnil;}
563          }          }
564  /*      local entry for function BIT-AND        */  /*      local entry for function BIT-AND        */
565    
566  static object LI12(object V100,object V99,object first,...)  static object LI12(object V102,object V101,object first,...)
567  {        {      
568          va_list ap;          va_list ap;
569          int narg = VFUN_NARGS; VMB12 VMS12 VMV12          int narg = VFUN_NARGS; VMB12 VMS12 VMV12
570          {object V101;          {object V103;
571          object V102;          object V104;
572          object V103;          object V105;
573          va_start(ap,first);          va_start(ap,first);
574          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
575          V101= V100;          V103= V102;
576          V102= V99;          V104= V101;
577          narg = narg - 2;          narg = narg - 2;
578          if (narg <= 0) goto T207;          if (narg <= 0) goto T207;
579          else {          else {
580          V103= first;}          V105= first;}
581          --narg; goto T208;          --narg; goto T208;
582          goto T207;          goto T207;
583  T207:;  T207:;
584          V103= Cnil;          V105= Cnil;
585          goto T208;          goto T208;
586  T208:;  T208:;
587          base[0]= small_fixnum(1);          base[0]= small_fixnum(1);
588          base[1]= (V101);          base[1]= (V103);
589          base[2]= (V102);          base[2]= (V104);
590          base[3]= (V103);          base[3]= (V105);
591          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
592          siLbit_array_op();          siLbit_array_op();
593          vs_top=sup;          vs_top=sup;
594          {object V104 = vs_base[0];          {object V106 = vs_base[0];
595          VMR12(V104)}          VMR12(V106)}
596          va_end(ap);          va_end(ap);
597          base[0]=base[0];          base[0]=base[0];
598          return Cnil;}          return Cnil;}
599          }          }
600  /*      local entry for function BIT-IOR        */  /*      local entry for function BIT-IOR        */
601    
602  static object LI13(object V106,object V105,object first,...)  static object LI13(object V108,object V107,object first,...)
603  {        {      
604          va_list ap;          va_list ap;
605          int narg = VFUN_NARGS; VMB13 VMS13 VMV13          int narg = VFUN_NARGS; VMB13 VMS13 VMV13
606          {object V107;          {object V109;
607          object V108;          object V110;
608          object V109;          object V111;
609          va_start(ap,first);          va_start(ap,first);
610          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
611          V107= V106;          V109= V108;
612          V108= V105;          V110= V107;
613          narg = narg - 2;          narg = narg - 2;
614          if (narg <= 0) goto T214;          if (narg <= 0) goto T214;
615          else {          else {
616          V109= first;}          V111= first;}
617          --narg; goto T215;          --narg; goto T215;
618          goto T214;          goto T214;
619  T214:;  T214:;
620          V109= Cnil;          V111= Cnil;
621          goto T215;          goto T215;
622  T215:;  T215:;
623          base[0]= small_fixnum(7);          base[0]= small_fixnum(7);
624          base[1]= (V107);          base[1]= (V109);
625          base[2]= (V108);          base[2]= (V110);
626          base[3]= (V109);          base[3]= (V111);
627          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
628          siLbit_array_op();          siLbit_array_op();
629          vs_top=sup;          vs_top=sup;
630          {object V110 = vs_base[0];          {object V112 = vs_base[0];
631          VMR13(V110)}          VMR13(V112)}
632          va_end(ap);          va_end(ap);
633          base[0]=base[0];          base[0]=base[0];
634          return Cnil;}          return Cnil;}
635          }          }
636  /*      local entry for function BIT-XOR        */  /*      local entry for function BIT-XOR        */
637    
638  static object LI14(object V112,object V111,object first,...)  static object LI14(object V114,object V113,object first,...)
639  {        {      
640          va_list ap;          va_list ap;
641          int narg = VFUN_NARGS; VMB14 VMS14 VMV14          int narg = VFUN_NARGS; VMB14 VMS14 VMV14
642          {object V113;          {object V115;
643          object V114;          object V116;
644          object V115;          object V117;
645          va_start(ap,first);          va_start(ap,first);
646          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
647          V113= V112;          V115= V114;
648          V114= V111;          V116= V113;
649          narg = narg - 2;          narg = narg - 2;
650          if (narg <= 0) goto T221;          if (narg <= 0) goto T221;
651          else {          else {
652          V115= first;}          V117= first;}
653          --narg; goto T222;          --narg; goto T222;
654          goto T221;          goto T221;
655  T221:;  T221:;
656          V115= Cnil;          V117= Cnil;
657          goto T222;          goto T222;
658  T222:;  T222:;
659          base[0]= small_fixnum(6);          base[0]= small_fixnum(6);
660          base[1]= (V113);          base[1]= (V115);
661          base[2]= (V114);          base[2]= (V116);
662          base[3]= (V115);          base[3]= (V117);
663          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
664          siLbit_array_op();          siLbit_array_op();
665          vs_top=sup;          vs_top=sup;
666          {object V116 = vs_base[0];          {object V118 = vs_base[0];
667          VMR14(V116)}          VMR14(V118)}
668          va_end(ap);          va_end(ap);
669          base[0]=base[0];          base[0]=base[0];
670          return Cnil;}          return Cnil;}
671          }          }
672  /*      local entry for function BIT-EQV        */  /*      local entry for function BIT-EQV        */
673    
674  static object LI15(object V118,object V117,object first,...)  static object LI15(object V120,object V119,object first,...)
675  {        {      
676          va_list ap;          va_list ap;
677          int narg = VFUN_NARGS; VMB15 VMS15 VMV15          int narg = VFUN_NARGS; VMB15 VMS15 VMV15
678          {object V119;          {object V121;
679          object V120;          object V122;
680          object V121;          object V123;
681          va_start(ap,first);          va_start(ap,first);
682          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
683          V119= V118;          V121= V120;
684          V120= V117;          V122= V119;
685          narg = narg - 2;          narg = narg - 2;
686          if (narg <= 0) goto T228;          if (narg <= 0) goto T228;
687          else {          else {
688          V121= first;}          V123= first;}
689          --narg; goto T229;          --narg; goto T229;
690          goto T228;          goto T228;
691  T228:;  T228:;
692          V121= Cnil;          V123= Cnil;
693          goto T229;          goto T229;
694  T229:;  T229:;
695          base[0]= small_fixnum(9);          base[0]= small_fixnum(9);
696          base[1]= (V119);          base[1]= (V121);
697          base[2]= (V120);          base[2]= (V122);
698          base[3]= (V121);          base[3]= (V123);
699          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
700          siLbit_array_op();          siLbit_array_op();
701          vs_top=sup;          vs_top=sup;
702          {object V122 = vs_base[0];          {object V124 = vs_base[0];
703          VMR15(V122)}          VMR15(V124)}
704          va_end(ap);          va_end(ap);
705          base[0]=base[0];          base[0]=base[0];
706          return Cnil;}          return Cnil;}
707          }          }
708  /*      local entry for function BIT-NAND       */  /*      local entry for function BIT-NAND       */
709    
710  static object LI16(object V124,object V123,object first,...)  static object LI16(object V126,object V125,object first,...)
711  {        {      
712          va_list ap;          va_list ap;
713          int narg = VFUN_NARGS; VMB16 VMS16 VMV16          int narg = VFUN_NARGS; VMB16 VMS16 VMV16
714          {object V125;          {object V127;
715          object V126;          object V128;
716          object V127;          object V129;
717          va_start(ap,first);          va_start(ap,first);
718          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
719          V125= V124;          V127= V126;
720          V126= V123;          V128= V125;
721          narg = narg - 2;          narg = narg - 2;
722          if (narg <= 0) goto T235;          if (narg <= 0) goto T235;
723          else {          else {
724          V127= first;}          V129= first;}
725          --narg; goto T236;          --narg; goto T236;
726          goto T235;          goto T235;
727  T235:;  T235:;
728          V127= Cnil;          V129= Cnil;
729          goto T236;          goto T236;
730  T236:;  T236:;
731          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
732          base[1]= (V125);          base[1]= (V127);
733          base[2]= (V126);          base[2]= (V128);
734          base[3]= (V127);          base[3]= (V129);
735          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
736          siLbit_array_op();          siLbit_array_op();
737          vs_top=sup;          vs_top=sup;
738          {object V128 = vs_base[0];          {object V130 = vs_base[0];
739          VMR16(V128)}          VMR16(V130)}
740          va_end(ap);          va_end(ap);
741          base[0]=base[0];          base[0]=base[0];
742          return Cnil;}          return Cnil;}
743          }          }
744  /*      local entry for function BIT-NOR        */  /*      local entry for function BIT-NOR        */
745    
746  static object LI17(object V130,object V129,object first,...)  static object LI17(object V132,object V131,object first,...)
747  {        {      
748          va_list ap;          va_list ap;
749          int narg = VFUN_NARGS; VMB17 VMS17 VMV17          int narg = VFUN_NARGS; VMB17 VMS17 VMV17
750          {object V131;          {object V133;
751          object V132;          object V134;
752          object V133;          object V135;
753          va_start(ap,first);          va_start(ap,first);
754          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
755          V131= V130;          V133= V132;
756          V132= V129;          V134= V131;
757          narg = narg - 2;          narg = narg - 2;
758          if (narg <= 0) goto T242;          if (narg <= 0) goto T242;
759          else {          else {
760          V133= first;}          V135= first;}
761          --narg; goto T243;          --narg; goto T243;
762          goto T242;          goto T242;
763  T242:;  T242:;
764          V133= Cnil;          V135= Cnil;
765          goto T243;          goto T243;
766  T243:;  T243:;
767          base[0]= small_fixnum(8);          base[0]= small_fixnum(8);
768          base[1]= (V131);          base[1]= (V133);
769          base[2]= (V132);          base[2]= (V134);
770          base[3]= (V133);          base[3]= (V135);
771          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
772          siLbit_array_op();          siLbit_array_op();
773          vs_top=sup;          vs_top=sup;
774          {object V134 = vs_base[0];          {object V136 = vs_base[0];
775          VMR17(V134)}          VMR17(V136)}
776          va_end(ap);          va_end(ap);
777          base[0]=base[0];          base[0]=base[0];
778          return Cnil;}          return Cnil;}
779          }          }
780  /*      local entry for function BIT-ANDC1      */  /*      local entry for function BIT-ANDC1      */
781    
782  static object LI18(object V136,object V135,object first,...)  static object LI18(object V138,object V137,object first,...)
783  {        {      
784          va_list ap;          va_list ap;
785          int narg = VFUN_NARGS; VMB18 VMS18 VMV18          int narg = VFUN_NARGS; VMB18 VMS18 VMV18
786          {object V137;          {object V139;
787          object V138;          object V140;
788          object V139;          object V141;
789          va_start(ap,first);          va_start(ap,first);
790          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
791          V137= V136;          V139= V138;
792          V138= V135;          V140= V137;
793          narg = narg - 2;          narg = narg - 2;
794          if (narg <= 0) goto T249;          if (narg <= 0) goto T249;
795          else {          else {
796          V139= first;}          V141= first;}
797          --narg; goto T250;          --narg; goto T250;
798          goto T249;          goto T249;
799  T249:;  T249:;
800          V139= Cnil;          V141= Cnil;
801          goto T250;          goto T250;
802  T250:;  T250:;
803          base[0]= small_fixnum(4);          base[0]= small_fixnum(4);
804          base[1]= (V137);          base[1]= (V139);
805          base[2]= (V138);          base[2]= (V140);
806          base[3]= (V139);          base[3]= (V141);
807          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
808          siLbit_array_op();          siLbit_array_op();
809          vs_top=sup;          vs_top=sup;
810          {object V140 = vs_base[0];          {object V142 = vs_base[0];
811          VMR18(V140)}          VMR18(V142)}
812          va_end(ap);          va_end(ap);
813          base[0]=base[0];          base[0]=base[0];
814          return Cnil;}          return Cnil;}
815          }          }
816  /*      local entry for function BIT-ANDC2      */  /*      local entry for function BIT-ANDC2      */
817    
818  static object LI19(object V142,object V141,object first,...)  static object LI19(object V144,object V143,object first,...)
819  {        {      
820          va_list ap;          va_list ap;
821          int narg = VFUN_NARGS; VMB19 VMS19 VMV19          int narg = VFUN_NARGS; VMB19 VMS19 VMV19
822          {object V143;          {object V145;
823          object V144;          object V146;
824          object V145;          object V147;
825          va_start(ap,first);          va_start(ap,first);
826          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
827          V143= V142;          V145= V144;
828          V144= V141;          V146= V143;
829          narg = narg - 2;          narg = narg - 2;
830          if (narg <= 0) goto T256;          if (narg <= 0) goto T256;
831          else {          else {
832          V145= first;}          V147= first;}
833          --narg; goto T257;          --narg; goto T257;
834          goto T256;          goto T256;
835  T256:;  T256:;
836          V145= Cnil;          V147= Cnil;
837          goto T257;          goto T257;
838  T257:;  T257:;
839          base[0]= small_fixnum(2);          base[0]= small_fixnum(2);
840          base[1]= (V143);          base[1]= (V145);
841          base[2]= (V144);          base[2]= (V146);
842          base[3]= (V145);          base[3]= (V147);
843          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
844          siLbit_array_op();          siLbit_array_op();
845          vs_top=sup;          vs_top=sup;
846          {object V146 = vs_base[0];          {object V148 = vs_base[0];
847          VMR19(V146)}          VMR19(V148)}
848          va_end(ap);          va_end(ap);
849          base[0]=base[0];          base[0]=base[0];
850          return Cnil;}          return Cnil;}
851          }          }
852  /*      local entry for function BIT-ORC1       */  /*      local entry for function BIT-ORC1       */
853    
854  static object LI20(object V148,object V147,object first,...)  static object LI20(object V150,object V149,object first,...)
855  {        {      
856          va_list ap;          va_list ap;
857          int narg = VFUN_NARGS; VMB20 VMS20 VMV20          int narg = VFUN_NARGS; VMB20 VMS20 VMV20
858          {object V149;          {object V151;
859          object V150;          object V152;
860          object V151;          object V153;
861          va_start(ap,first);          va_start(ap,first);
862          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
863          V149= V148;          V151= V150;
864          V150= V147;          V152= V149;
865          narg = narg - 2;          narg = narg - 2;
866          if (narg <= 0) goto T263;          if (narg <= 0) goto T263;
867          else {          else {
868          V151= first;}          V153= first;}
869          --narg; goto T264;          --narg; goto T264;
870          goto T263;          goto T263;
871  T263:;  T263:;
872          V151= Cnil;          V153= Cnil;
873          goto T264;          goto T264;
874  T264:;  T264:;
875          base[0]= small_fixnum(13);          base[0]= small_fixnum(13);
876          base[1]= (V149);          base[1]= (V151);
877          base[2]= (V150);          base[2]= (V152);
878          base[3]= (V151);          base[3]= (V153);
879          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
880          siLbit_array_op();          siLbit_array_op();
881          vs_top=sup;          vs_top=sup;
882          {object V152 = vs_base[0];          {object V154 = vs_base[0];
883          VMR20(V152)}          VMR20(V154)}
884          va_end(ap);          va_end(ap);
885          base[0]=base[0];          base[0]=base[0];
886          return Cnil;}          return Cnil;}
887          }          }
888  /*      local entry for function BIT-ORC2       */  /*      local entry for function BIT-ORC2       */
889    
890  static object LI21(object V154,object V153,object first,...)  static object LI21(object V156,object V155,object first,...)
891  {        {      
892          va_list ap;          va_list ap;
893          int narg = VFUN_NARGS; VMB21 VMS21 VMV21          int narg = VFUN_NARGS; VMB21 VMS21 VMV21
894          {object V155;          {object V157;
895          object V156;          object V158;
896          object V157;          object V159;
897          va_start(ap,first);          va_start(ap,first);
898          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
899          V155= V154;          V157= V156;
900          V156= V153;          V158= V155;
901          narg = narg - 2;          narg = narg - 2;
902          if (narg <= 0) goto T270;          if (narg <= 0) goto T270;
903          else {          else {
904          V157= first;}          V159= first;}
905          --narg; goto T271;          --narg; goto T271;
906          goto T270;          goto T270;
907  T270:;  T270:;
908          V157= Cnil;          V159= Cnil;
909          goto T271;          goto T271;
910  T271:;  T271:;
911          base[0]= small_fixnum(11);          base[0]= small_fixnum(11);
912          base[1]= (V155);          base[1]= (V157);
913          base[2]= (V156);          base[2]= (V158);
914          base[3]= (V157);          base[3]= (V159);
915          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
916          siLbit_array_op();          siLbit_array_op();
917          vs_top=sup;          vs_top=sup;
918          {object V158 = vs_base[0];          {object V160 = vs_base[0];
919          VMR21(V158)}          VMR21(V160)}
920          va_end(ap);          va_end(ap);
921          base[0]=base[0];          base[0]=base[0];
922          return Cnil;}          return Cnil;}
923          }          }
924  /*      local entry for function BIT-NOT        */  /*      local entry for function BIT-NOT        */
925    
926  static object LI22(object V159,object first,...)  static object LI22(object V161,object first,...)
927  {        {      
928          va_list ap;          va_list ap;
929          int narg = VFUN_NARGS; VMB22 VMS22 VMV22          int narg = VFUN_NARGS; VMB22 VMS22 VMV22
930          {object V160;          {object V162;
931          object V161;          object V163;
932          va_start(ap,first);          va_start(ap,first);
933          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
934          V160= V159;          V162= V161;
935          narg = narg - 1;          narg = narg - 1;
936          if (narg <= 0) goto T277;          if (narg <= 0) goto T277;
937          else {          else {
938          V161= first;}          V163= first;}
939          --narg; goto T278;          --narg; goto T278;
940          goto T277;          goto T277;
941  T277:;  T277:;
942          V161= Cnil;          V163= Cnil;
943          goto T278;          goto T278;
944  T278:;  T278:;
945          base[0]= small_fixnum(12);          base[0]= small_fixnum(12);
946          base[1]= (V160);          base[1]= (V162);
947          base[2]= (V160);          base[2]= (V162);
948          base[3]= (V161);          base[3]= (V163);
949          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
950          siLbit_array_op();          siLbit_array_op();
951          vs_top=sup;          vs_top=sup;
952          {object V162 = vs_base[0];          {object V164 = vs_base[0];
953          VMR22(V162)}          VMR22(V164)}
954          va_end(ap);          va_end(ap);
955          base[0]=base[0];          base[0]=base[0];
956          return Cnil;}          return Cnil;}
957          }          }
958  /*      local entry for function VECTOR-PUSH    */  /*      local entry for function VECTOR-PUSH    */
959    
960  static object LI23(V165,V166)  static object LI23(V167,V168)
961    
962  object V165;register object V166;  object V167;register object V168;
963  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
964          goto TTL;          goto TTL;
965  TTL:;  TTL:;
966          {register long V167;          {register long V169;
967          base[0]= (V166);          base[0]= (V168);
968          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
969          Lfill_pointer();          Lfill_pointer();
970          vs_top=sup;          vs_top=sup;
971          V167= fix(vs_base[0]);          V169= fix(vs_base[0]);
972          base[0]= (V166);          base[0]= (V168);
973          base[1]= small_fixnum(0);          base[1]= small_fixnum(0);
974          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
975          Larray_dimension();          Larray_dimension();
976          vs_top=sup;          vs_top=sup;
977          V168= vs_base[0];          V170= vs_base[0];
978          if(!((V167)<(fix(V168)))){          if(!((V169)<(fix(V170)))){
979          goto T287;}          goto T287;}
980          (void)(aset1((V166),V167,(V165)));          (void)(aset1((V168),V169,(V167)));
981          base[0]= (V166);          base[0]= (V168);
982          base[1]= make_fixnum((long)(V167)+1);          base[1]= make_fixnum((long)(V169)+1);
983          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
984          siLfill_pointer_set();          siLfill_pointer_set();
985          vs_top=sup;          vs_top=sup;
986          {object V169 = make_fixnum(V167);          {object V171 = make_fixnum(V169);
987          VMR23(V169)}          VMR23(V171)}
988          goto T287;          goto T287;
989  T287:;  T287:;
990          {object V170 = Cnil;          {object V172 = Cnil;
991          VMR23(V170)}}          VMR23(V172)}}
992          base[0]=base[0];          base[0]=base[0];
993          return Cnil;          return Cnil;
994  }  }
995  /*      local entry for function VECTOR-PUSH-EXTEND     */  /*      local entry for function VECTOR-PUSH-EXTEND     */
996    
997  static object LI24(object V172,object V171,object first,...)  static object LI24(object V174,object V173,object first,...)
998  {        {      
999          va_list ap;          va_list ap;
1000          int narg = VFUN_NARGS; VMB24 VMS24 VMV24          int narg = VFUN_NARGS; VMB24 VMS24 VMV24
1001          {object V173;          {object V175;
1002          register object V174;          register object V176;
1003          object V175;          object V177;
1004          va_start(ap,first);          va_start(ap,first);
1005          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1006          V173= V172;          V175= V174;
1007          V174= V171;          V176= V173;
1008          narg = narg - 2;          narg = narg - 2;
1009          if (narg <= 0) goto T296;          if (narg <= 0) goto T296;
1010          else {          else {
1011          V175= first;}          V177= first;}
1012          --narg; goto T297;          --narg; goto T297;
1013          goto T296;          goto T296;
1014  T296:;  T296:;
1015          V175= Cnil;          V177= Cnil;
1016          goto T297;          goto T297;
1017  T297:;  T297:;
1018          {register long V176;          {register long V178;
1019          base[0]= (V174);          base[0]= (V176);
1020          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1021          Lfill_pointer();          Lfill_pointer();
1022          vs_top=sup;          vs_top=sup;
1023          V176= fix(vs_base[0]);          V178= fix(vs_base[0]);
1024          base[0]= (V174);          base[0]= (V176);
1025          base[1]= small_fixnum(0);          base[1]= small_fixnum(0);
1026          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1027          Larray_dimension();          Larray_dimension();
1028          vs_top=sup;          vs_top=sup;
1029          V177= vs_base[0];          V179= vs_base[0];
1030          if(!((V176)<(fix(V177)))){          if(!((V178)<(fix(V179)))){
1031          goto T302;}          goto T302;}
1032          (void)(aset1((V174),V176,(V173)));          (void)(aset1((V176),V178,(V175)));
1033          base[0]= (V174);          base[0]= (V176);
1034          base[1]= make_fixnum((long)(V176)+1);          base[1]= make_fixnum((long)(V178)+1);
1035          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1036          siLfill_pointer_set();          siLfill_pointer_set();
1037          vs_top=sup;          vs_top=sup;
1038          {object V178 = make_fixnum(V176);          {object V180 = make_fixnum(V178);
1039          VMR24(V178)}          VMR24(V180)}
1040          goto T302;          goto T302;
1041  T302:;  T302:;
1042          base[0]= (V174);          base[0]= (V176);
1043          base[1]= small_fixnum(0);          base[1]= small_fixnum(0);
1044          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1045          Larray_dimension();          Larray_dimension();
1046          vs_top=sup;          vs_top=sup;
1047          V179= vs_base[0];          V181= vs_base[0];
1048          if((V175)!=Cnil){          if((V177)!=Cnil){
1049          V180= (V175);          V182= (V177);
1050          goto T315;}          goto T315;}
1051          base[0]= (V174);          base[0]= (V176);
1052          base[1]= small_fixnum(0);          base[1]= small_fixnum(0);
1053          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1054          Larray_dimension();          Larray_dimension();
1055          vs_top=sup;          vs_top=sup;
1056          V181= vs_base[0];          V183= vs_base[0];
1057          if(!((fix(V181))>(0))){          if(!((fix(V183))>(0))){
1058          goto T317;}          goto T317;}
1059          base[0]= (V174);          base[0]= (V176);
1060          base[1]= small_fixnum(0);          base[1]= small_fixnum(0);
1061          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1062          Larray_dimension();          Larray_dimension();
1063          vs_top=sup;          vs_top=sup;
1064          V180= vs_base[0];          V182= vs_base[0];
1065          goto T315;          goto T315;
1066          goto T317;          goto T317;
1067  T317:;  T317:;
1068          V180= small_fixnum(5);          V182= small_fixnum(5);
1069          goto T315;          goto T315;
1070  T315:;  T315:;
1071          V182= number_plus(V179,V180);          V184= number_plus(V181,V182);
1072          V183= make_cons(/* INLINE-ARGS */V182,Cnil);          V185= make_cons(/* INLINE-ARGS */V184,Cnil);
1073          base[0]= (V174);          base[0]= (V176);
1074          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1075          Larray_element_type();          Larray_element_type();
1076          vs_top=sup;          vs_top=sup;
1077          V184= vs_base[0];          V186= vs_base[0];
1078          V185 = make_fixnum(V176);          V187 = make_fixnum(V178);
1079          (void)((VFUN_NARGS=6,(*(LnkLI29))((V174),/* INLINE-ARGS */V183,VV[8],V184,VV[11],V185)));          (void)((VFUN_NARGS=6,(*(LnkLI29))((V176),/* INLINE-ARGS */V185,VV[8],V186,VV[11],V187)));
1080          (void)(aset1((V174),V176,(V173)));          (void)(aset1((V176),V178,(V175)));
1081          base[0]= (V174);          base[0]= (V176);
1082          base[1]= make_fixnum((long)(V176)+1);          base[1]= make_fixnum((long)(V178)+1);
1083          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1084          siLfill_pointer_set();          siLfill_pointer_set();
1085          vs_top=sup;          vs_top=sup;
1086          {object V186 = make_fixnum(V176);          {object V188 = make_fixnum(V178);
1087          VMR24(V186)}}          VMR24(V188)}}
1088          va_end(ap);          va_end(ap);
1089          base[0]=base[0];          base[0]=base[0];
1090          return Cnil;}          return Cnil;}
1091          }          }
1092  /*      local entry for function VECTOR-POP     */  /*      local entry for function VECTOR-POP     */
1093    
1094  static object LI25(V188)  static object LI25(V190)
1095    
1096  register object V188;  register object V190;
1097  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1098          goto TTL;          goto TTL;
1099  TTL:;  TTL:;
1100          {long V189;          {long V191;
1101          base[0]= (V188);          base[0]= (V190);
1102          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1103          Lfill_pointer();          Lfill_pointer();
1104          vs_top=sup;          vs_top=sup;
1105          V189= fix(vs_base[0]);          V191= fix(vs_base[0]);
1106          if(!((V189)==(0))){          if(!((V191)==(0))){
1107          goto T332;}          goto T332;}
1108          base[0]= VV[12];          base[0]= VV[12];
1109          base[1]= (V188);          base[1]= (V190);
1110          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1111          Lerror();          Lerror();
1112          vs_top=sup;          vs_top=sup;
1113          goto T332;          goto T332;
1114  T332:;  T332:;
1115          base[0]= (V188);          base[0]= (V190);
1116          base[1]= make_fixnum((long)(V189)-1);          base[1]= make_fixnum((long)(V191)-1);
1117          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1118          siLfill_pointer_set();          siLfill_pointer_set();
1119          vs_top=sup;          vs_top=sup;
1120          {object V190 = aref1((V188),(long)(V189)-1);          {object V192 = aref1((V190),(long)(V191)-1);
1121          VMR25(V190)}}          VMR25(V192)}}
1122          base[0]=base[0];          base[0]=base[0];
1123          return Cnil;          return Cnil;
1124  }  }
1125  /*      local entry for function ADJUST-ARRAY   */  /*      local entry for function ADJUST-ARRAY   */
1126    
1127  static object LI26(object V192,object V191,object first,...)  static object LI26(object V194,object V193,object first,...)
1128  {        {      
1129          va_list ap;          va_list ap;
1130          int narg = VFUN_NARGS; VMB26 VMS26 VMV26          int narg = VFUN_NARGS; VMB26 VMS26 VMV26
1131          {register object V193;          {register object V195;
1132          register object V194;          register object V196;
1133          register object V195;          register object V197;
         object V196;  
         object V197;  
1134          object V198;          object V198;
1135          object V199;          object V199;
1136          object V200;          object V200;
1137          object V201;          object V201;
1138          object V202;          object V202;
1139            object V203;
1140            object V204;
1141          va_start(ap,first);          va_start(ap,first);
1142          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1143          V193= V192;          V195= V194;
1144          V194= V191;          V196= V193;
1145          narg= narg - 2;          narg= narg - 2;
1146          V203 = (ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));          V205 = (ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));
1147          V195= V203;          V197= V205;
1148          {          {
1149          parse_key_rest_new(V203,narg,Vcs +3,(struct key *)(void *)&LI26key,first,ap);          parse_key_rest_new(V205,narg,Vcs +3,(struct key *)(void *)&LI26key,first,ap);
1150          V196=(Vcs[3]);          V198=(Vcs[3]);
1151          V197=(Vcs[4]);          V199=(Vcs[4]);
1152          V198=(Vcs[5]);          V200=(Vcs[5]);
1153          V199=(Vcs[6]);          V201=(Vcs[6]);
1154          V200=(Vcs[7]);          V202=(Vcs[7]);
1155          V201=(Vcs[8]);          V203=(Vcs[8]);
1156          V202=(Vcs[9]);          V204=(Vcs[9]);
1157          {register object V204;          {register object V206;
1158          V204= Cnil;          V206= Cnil;
1159          if(!(type_of((V194))==t_fixnum||type_of((V194))==t_bignum)){          if(!(type_of((V196))==t_fixnum||type_of((V196))==t_bignum)){
1160          goto T341;}          goto T341;}
1161          V194= make_cons((V194),Cnil);          V196= make_cons((V196),Cnil);
1162          goto T341;          goto T341;
1163  T341:;  T341:;
1164          {register object x= VV[11],V205= (V195);          {register object x= VV[11],V207= (V197);
1165          while(!endp(V205))          while(!endp(V207))
1166          if(eql(x,V205->c.c_car)){          if(eql(x,V207->c.c_car)){
1167          V204= V205;          V206= V207;
1168          goto T349;          goto T349;
1169          }else V205=V205->c.c_cdr;          }else V207=V207->c.c_cdr;
1170          V204= Cnil;}          V206= Cnil;}
1171          goto T349;          goto T349;
1172  T349:;  T349:;
1173          if(((V204))==Cnil){          if(((V206))==Cnil){
1174          goto T347;}          goto T347;}
1175          base[0]= (V193);          base[0]= (V195);
1176          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1177          (void) (*Lnk30)();          (void) (*Lnk30)();
1178          vs_top=sup;          vs_top=sup;
# Line 1185  T349:; Line 1185  T349:;
1185          goto T345;          goto T345;
1186          goto T347;          goto T347;
1187  T347:;  T347:;
1188          base[0]= (V193);          base[0]= (V195);
1189          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1190          (void) (*Lnk30)();          (void) (*Lnk30)();
1191          vs_top=sup;          vs_top=sup;
1192          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1193          goto T345;}          goto T345;}
1194          {object V206;          {object V208;
1195          base[1]= (V193);          base[1]= (V195);
1196          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1197          Lfill_pointer();          Lfill_pointer();
1198          vs_top=sup;          vs_top=sup;
1199          V206= vs_base[0];          V208= vs_base[0];
1200          V195= ON_STACK_CONS((V206),(V195));}          V197= ON_STACK_CONS((V208),(V197));}
1201          V195= ON_STACK_CONS(VV[11],(V195));          V197= ON_STACK_CONS(VV[11],(V197));
1202          goto T345;          goto T345;
1203  T345:;  T345:;
1204          base[0]= (V193);          base[0]= (V195);
1205          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1206          Larray_element_type();          Larray_element_type();
1207          vs_top=sup;          vs_top=sup;
1208          V196= vs_base[0];          V198= vs_base[0];
1209          if(((V196))==(Ct)){          if(((V198))==(Ct)){
1210          goto T365;}          goto T365;}
1211          V195= ON_STACK_CONS(V196,(V195));          V197= ON_STACK_CONS(V198,(V197));
1212          V195= ON_STACK_CONS(VV[8],(V195));          V197= ON_STACK_CONS(VV[8],(V197));
1213          goto T365;          goto T365;
1214  T365:;  T365:;
1215          {register object x= VV[14],V210= (V195);          {register object x= VV[14],V212= (V197);
1216          while(!endp(V210))          while(!endp(V212))
1217          if(eql(x,V210->c.c_car)){          if(eql(x,V212->c.c_car)){
1218          goto T371;          goto T371;
1219          }else V210=V210->c.c_cdr;}          }else V212=V212->c.c_cdr;}
1220          {object V211;          {object V213;
1221          base[1]= (V193);          base[1]= (V195);
1222          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1223          (void) (*Lnk31)();          (void) (*Lnk31)();
1224          vs_top=sup;          vs_top=sup;
1225          V211= vs_base[0];          V213= vs_base[0];
1226          V195= ON_STACK_CONS((V211),(V195));}          V197= ON_STACK_CONS((V213),(V197));}
1227          V195= ON_STACK_CONS(VV[14],(V195));          V197= ON_STACK_CONS(VV[14],(V197));
1228          goto T371;          goto T371;
1229  T371:;  T371:;
1230          {register object V213;          {register object V215;
1231          base[0]= (V194);          base[0]= (V196);
1232          base[1]= VV[15];          base[1]= VV[15];
1233          base[2]= Ct;          base[2]= Ct;
1234          {object V214;          {object V216;
1235          V214= (V195);          V216= (V197);
1236           vs_top=base+3;           vs_top=base+3;
1237           while(!endp(V214))           while(!endp(V216))
1238           {vs_push(car(V214));V214=cdr(V214);}           {vs_push(car(V216));V216=cdr(V216);}
1239          vs_base=base+0;}          vs_base=base+0;}
1240          (void) (*Lnk28)();          (void) (*Lnk28)();
1241          vs_top=sup;          vs_top=sup;
1242          V213= vs_base[0];          V215= vs_base[0];
1243          if((cdr((V194)))==Cnil){          if((cdr((V196)))==Cnil){
1244          goto T385;}          goto T385;}
1245          V215= cdr((V194));          V217= cdr((V196));
1246          V216= (*(LnkLI32))((V193));          V218= (*(LnkLI32))((V195));
1247          if(!(equal(/* INLINE-ARGS */V215,cdr(/* INLINE-ARGS */V216)))){          if(!(equal(/* INLINE-ARGS */V217,cdr(/* INLINE-ARGS */V218)))){
1248          goto T386;}          goto T386;}
1249          if(!(((V196))==(VV[16]))){          if(!(((V198))==(VV[16]))){
1250          goto T385;}          goto T385;}
1251          base[0]= (V194);          base[0]= (V196);
1252          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1253          Llast();          Llast();
1254          vs_top=sup;          vs_top=sup;
1255          V217= vs_base[0];          V219= vs_base[0];
1256          {int V218= fix(car(V217));          {int V220= fix(car(V219));
1257          if(!((0)==((long)(V218>=0&&(8)>0?(V218)%(8):imod(V218,8))))){          if(!((0)==((long)(V220>=0&&(8)>0?(V220)%(8):imod(V220,8))))){
1258          goto T386;}}          goto T386;}}
1259          goto T385;          goto T385;
1260  T385:;  T385:;
1261          base[0]= (V193);          base[0]= (V195);
1262          base[1]= (V213);          base[1]= (V215);
1263          base[2]= small_fixnum(0);          base[2]= small_fixnum(0);
1264          base[3]= small_fixnum(0);          base[3]= small_fixnum(0);
1265          base[5]= (V213);          base[5]= (V215);
1266          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1267          (void) (*Lnk33)();          (void) (*Lnk33)();
1268          vs_top=sup;          vs_top=sup;
1269          V219= vs_base[0];          V221= vs_base[0];
1270          base[5]= (V193);          base[5]= (V195);
1271          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1272          (void) (*Lnk33)();          (void) (*Lnk33)();
1273          vs_top=sup;          vs_top=sup;
1274          V220= vs_base[0];          V222= vs_base[0];
1275          base[4]= (number_compare(V219,V220)<=0?(V219):V220);          base[4]= (number_compare(V221,V222)<=0?(V221):V222);
1276          vs_top=(vs_base=base+0)+5;          vs_top=(vs_base=base+0)+5;
1277          (void) (*Lnk34)();          (void) (*Lnk34)();
1278          vs_top=sup;          vs_top=sup;
1279          goto T384;          goto T384;
1280          goto T386;          goto T386;
1281  T386:;  T386:;
1282          {register object V221;          {register object V223;
1283          base[0]= make_fixnum((long)length((V194)));          base[0]= make_fixnum((long)length((V196)));
1284          base[1]= VV[7];          base[1]= VV[7];
1285          base[2]= small_fixnum(0);          base[2]= small_fixnum(0);
1286          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1287          Lmake_list();          Lmake_list();
1288          vs_top=sup;          vs_top=sup;
1289          V221= vs_base[0];          V223= vs_base[0];
1290          goto T410;          goto T410;
1291  T410:;  T410:;
1292          base[0]= (V193);          base[0]= (V195);
1293          {object V222;          {object V224;
1294          V222= (V221);          V224= (V223);
1295           vs_top=base+1;           vs_top=base+1;
1296           while(!endp(V222))           while(!endp(V224))
1297           {vs_push(car(V222));V222=cdr(V222);}           {vs_push(car(V224));V224=cdr(V224);}
1298          vs_base=base+0;}          vs_base=base+0;}
1299          (void) (*Lnk35)();          (void) (*Lnk35)();
1300          vs_top=sup;          vs_top=sup;
1301          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1302          goto T413;}          goto T413;}
1303          base[0]= (V213);          base[0]= (V215);
1304          base[2]= (V193);          base[2]= (V195);
1305          {object V223;          {object V225;
1306          V223= (V221);          V225= (V223);
1307           vs_top=base+3;           vs_top=base+3;
1308           while(!endp(V223))           while(!endp(V225))
1309           {vs_push(car(V223));V223=cdr(V223);}           {vs_push(car(V225));V225=cdr(V225);}
1310          vs_base=base+2;}          vs_base=base+2;}
1311          Laref();          Laref();
1312          vs_top=sup;          vs_top=sup;
1313          base[1]= vs_base[0];          base[1]= vs_base[0];
1314          base[2]= (V221);          base[2]= (V223);
1315          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1316          (void) (*Lnk26)();          (void) (*Lnk26)();
1317          vs_top=sup;          vs_top=sup;
1318          goto T413;          goto T413;
1319  T413:;  T413:;
1320          if(((*(LnkLI27))((V221),(V194)))==Cnil){          if(((*(LnkLI27))((V223),(V196)))==Cnil){
1321          goto T423;}          goto T423;}
1322          goto T384;          goto T384;
1323          goto T423;          goto T423;
# Line 1325  T423:; Line 1325  T423:;
1325          goto T410;}          goto T410;}
1326          goto T384;          goto T384;
1327  T384:;  T384:;
1328          base[0]= (V193);          base[0]= (V195);
1329          base[1]= (V213);          base[1]= (V215);
1330          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1331          siLreplace_array();          siLreplace_array();
1332          vs_top=sup;          vs_top=sup;
1333          V204= cadr((V204));          V206= cadr((V206));
1334          if(((V204))==Cnil){          if(((V206))==Cnil){
1335          goto T433;}          goto T433;}
1336          if(!(eql(Ct,(V204)))){          if(!(eql(Ct,(V206)))){
1337          goto T437;}          goto T437;}
1338          base[0]= (V193);          base[0]= (V195);
1339          base[2]= (V193);          base[2]= (V195);
1340          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1341          (void) (*Lnk33)();          (void) (*Lnk33)();
1342          vs_top=sup;          vs_top=sup;
# Line 1347  T384:; Line 1347  T384:;
1347          goto T433;          goto T433;
1348          goto T437;          goto T437;
1349  T437:;  T437:;
1350          if(!(type_of((V204))==t_fixnum)){          if(!(type_of((V206))==t_fixnum)){
1351          goto T443;}          goto T443;}
1352          base[0]= (V193);          base[0]= (V195);
1353          base[1]= (V204);          base[1]= (V206);
1354          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1355          siLfill_pointer_set();          siLfill_pointer_set();
1356          vs_top=sup;          vs_top=sup;
# Line 1358  T437:; Line 1358  T437:;
1358          goto T443;          goto T443;
1359  T443:;  T443:;
1360          base[0]= VV[17];          base[0]= VV[17];
1361          base[1]= (V204);          base[1]= (V206);
1362          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1363          Lerror();          Lerror();
1364          vs_top=sup;          vs_top=sup;
1365          goto T433;          goto T433;
1366  T433:;  T433:;
1367          {object V224 = (V193);          {object V226 = (V195);
1368          VMR26(V224)}}}          VMR26(V226)}}}
1369          va_end(ap);          va_end(ap);
1370          base[0]=base[0];          base[0]=base[0];
1371          return Cnil;}          return Cnil;}

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