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

Diff of /gcl/lsp/arraylib.c

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

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

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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