/[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.5 by camm, Fri Jul 12 22:00:48 2002 UTC revision 1.6 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "arraylib.h"  #include "arraylib.h"
4  init_arraylib(){do_init(VV);}  void init_arraylib(){do_init(VV);}
5  /*      local entry for function BEST-ARRAY-ELEMENT-TYPE        */  /*      local entry for function BEST-ARRAY-ELEMENT-TYPE        */
6    
7  static object LI1(V2)  static object LI1(V2)
8    
9  register object V2;  register object V2;
10  {        VMB1 VMS1 VMV1  {        VMB1 VMS1 VMV1
11    goto TTL;
12  TTL:;  TTL:;
13          if(eql(Ct,(V2))){          if(eql(Ct,(V2))){
14          goto T1;}          goto T1;}
15          if(((V2))!=Cnil){          if(((V2))!=Cnil){
16          goto T2;}          goto T2;}
17    goto T1;
18  T1:;  T1:;
19          {object V3 = Ct;          {object V3 = Ct;
20          VMR1(V3)}          VMR1(V3)}
21    goto T2;
22  T2:;  T2:;
23          {register object x= (V2),V4= VV[0];          {register object x= (V2),V4= VV[0];
24          while(!endp(V4))          while(!endp(V4))
# Line 23  T2:; Line 26  T2:;
26          goto T8;          goto T8;
27          }else V4=V4->c.c_cdr;          }else V4=V4->c.c_cdr;
28          goto T7;}          goto T7;}
29    goto T8;
30  T8:;  T8:;
31          {object V5 = (V2);          {object V5 = (V2);
32          VMR1(V5)}          VMR1(V5)}
33    goto T7;
34  T7:;  T7:;
35          base[0]= (V2);          base[0]= (V2);
36          base[1]= VV[1];          base[1]= VV[1];
# Line 38  T7:; Line 43  T7:;
43          register object V7;          register object V7;
44          V6= VV[2];          V6= VV[2];
45          V7= car((V6));          V7= car((V6));
46    goto T17;
47  T17:;  T17:;
48          if(!(endp((V6)))){          if(!(endp((V6)))){
49          goto T18;}          goto T18;}
50          {object V8 = VV[1];          {object V8 = VV[1];
51          VMR1(V8)}          VMR1(V8)}
52    goto T18;
53  T18:;  T18:;
54          base[1]= (V2);          base[1]= (V2);
55          base[2]= (V7);          base[2]= (V7);
# Line 53  T18:; Line 60  T18:;
60          goto T22;}          goto T22;}
61          {object V9 = (V7);          {object V9 = (V7);
62          VMR1(V9)}          VMR1(V9)}
63    goto T22;
64  T22:;  T22:;
65          V6= cdr((V6));          V6= cdr((V6));
66          V7= car((V6));          V7= car((V6));
67          goto T17;}          goto T17;}
68    goto T10;
69  T10:;  T10:;
70          if(!(eql((V2),VV[3]))){          if(!(eql((V2),VV[3]))){
71          goto T33;}          goto T33;}
72          {object V10 = VV[4];          {object V10 = VV[4];
73          VMR1(V10)}          VMR1(V10)}
74    goto T33;
75  T33:;{object V11;  T33:;{object V11;
76          {register object V12;          {register object V12;
77          register object V13;          register object V13;
78          V12= VV[5];          V12= VV[5];
79          V13= car((V12));          V13= car((V12));
80    goto T40;
81  T40:;  T40:;
82          if(!(endp((V12)))){          if(!(endp((V12)))){
83          goto T41;}          goto T41;}
84          V11= Cnil;          V11= Cnil;
85          goto T36;          goto T36;
86    goto T41;
87  T41:;  T41:;
88          base[1]= (V2);          base[1]= (V2);
89          base[2]= (V13);          base[2]= (V13);
# Line 82  T41:; Line 94  T41:;
94          goto T45;}          goto T45;}
95          V11= (V13);          V11= (V13);
96          goto T36;          goto T36;
97    goto T45;
98  T45:;  T45:;
99          V12= cdr((V12));          V12= cdr((V12));
100          V13= car((V12));          V13= car((V12));
101          goto T40;}          goto T40;}
102    goto T36;
103  T36:;  T36:;
104          if(V11==Cnil)goto T35;          if(V11==Cnil)goto T35;
105          {object V14 = V11;          {object V14 = V11;
106          VMR1(V14)}          VMR1(V14)}
107    goto T35;
108  T35:;}  T35:;}
109          {object V15 = Ct;          {object V15 = Ct;
110          VMR1(V15)}          VMR1(V15)}
111            base[0]=base[0];
112            return Cnil;
113  }  }
114  /*      local entry for function MAKE-ARRAY     */  /*      local entry for function MAKE-ARRAY     */
115    
# Line 112  static object LI2(V16,va_alist) Line 129  static object LI2(V16,va_alist)
129          object V24;          object V24;
130          object V25;          object V25;
131          object V26;          object V26;
132            Vcs[0]=Vcs[0];
133            va_start(ap);
134          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
135          V17= V16;          V17= V16;
136          narg= narg - 1;          narg= narg - 1;
         va_start(ap);  
137          {          {
138          parse_key_new(narg,Vcs +1,&LI2key,ap);          parse_key_new(narg,Vcs +1,(struct key *)&LI2key,ap);
139          if(Vcs[1]==0){          if(Vcs[1]==0){
140          V18= Ct;          V18= Ct;
141          }else{          }else{
# Line 137  static object LI2(V16,va_alist) Line 155  static object LI2(V16,va_alist)
155          if(!(type_of((V17))==t_fixnum||type_of((V17))==t_bignum)){          if(!(type_of((V17))==t_fixnum||type_of((V17))==t_bignum)){
156          goto T57;}          goto T57;}
157          V17= make_cons((V17),Cnil);          V17= make_cons((V17),Cnil);
158    goto T57;
159  T57:;  T57:;
160          V18= (*(LnkLI22))((V18));          V18= (*(LnkLI22))((V18));
161          if(!((length((V17)))==(1))){          if(!((length((V17)))==(1))){
# Line 160  T57:; Line 179  T57:;
179          register long V29;          register long V29;
180          V28= fix(car((V17)));          V28= fix(car((V17)));
181          V29= 0;          V29= 0;
182    goto T81;
183  T81:;  T81:;
184          if(!((V29)>=(V28))){          if(!((V29)>=(V28))){
185          goto T82;}          goto T82;}
186          goto T75;          goto T75;
187    goto T82;
188  T82:;  T82:;
189          V30= elt((V20),V29);          V30= elt((V20),V29);
190          (void)(aset1((V27),V29,/* INLINE-ARGS */V30));          (void)(aset1((V27),V29,/* INLINE-ARGS */V30));
191          V29= (V29)+1;          V29= (V29)+1;
192          goto T81;}          goto T81;}
193    goto T75;
194  T75:;  T75:;
195          {object V31 = (V27);          {object V31 = (V27);
196          VMR2(V31)}}          VMR2(V31)}}
197    goto T64;
198  T64:;  T64:;
199          {register object V32;          {register object V32;
200          base[1]= (V18);          base[1]= (V18);
# Line 194  T64:; Line 217  T64:;
217          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
218          Lerror();          Lerror();
219          vs_top=sup;          vs_top=sup;
220    goto T98;
221  T98:;  T98:;
222          {register object x= small_fixnum(0),V33= (V17);          {register object x= small_fixnum(0),V33= (V17);
223          while(!endp(V33))          while(!endp(V33))
# Line 210  T98:; Line 234  T98:;
234          Lmake_list();          Lmake_list();
235          vs_top=sup;          vs_top=sup;
236          V34= vs_base[0];          V34= vs_base[0];
237    goto T112;
238  T112:;  T112:;
239          base[0]= (V32);          base[0]= (V32);
240          base[1]= (*(LnkLI25))((V20),(V34));          base[1]= (*(LnkLI25))((V20),(V34));
# Line 220  T112:; Line 245  T112:;
245          if(((*(LnkLI27))((V34),(V17)))==Cnil){          if(((*(LnkLI27))((V34),(V17)))==Cnil){
246          goto T119;}          goto T119;}
247          goto T102;          goto T102;
248    goto T119;
249  T119:;  T119:;
250          goto T112;}          goto T112;}
251    goto T102;
252  T102:;  T102:;
253          {object V35 = (V32);          {object V35 = (V32);
254          VMR2(V35)}}}          VMR2(V35)}}
255            va_end(ap);
256            base[0]=base[0];
257            return Cnil;}
258          }}          }}
259  /*      local entry for function INCREMENT-CURSOR       */  /*      local entry for function INCREMENT-CURSOR       */
260    
# Line 232  static object LI3(V38,V39) Line 262  static object LI3(V38,V39)
262    
263  register object V38;object V39;  register object V38;object V39;
264  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
265    goto TTL;
266  TTL:;  TTL:;
267          if(((V38))!=Cnil){          if(((V38))!=Cnil){
268          goto T125;}          goto T125;}
269          {object V40 = Ct;          {object V40 = Ct;
270          VMR3(V40)}          VMR3(V40)}
271    goto T125;
272  T125:;  T125:;
273          {object V41;          {object V41;
274          V41= (*(LnkLI27))(cdr((V38)),cdr((V39)));          V41= (*(LnkLI27))(cdr((V38)),cdr((V39)));
# Line 248  T125:; Line 280  T125:;
280          ((V38))->c.c_car = small_fixnum(0);          ((V38))->c.c_car = small_fixnum(0);
281          {object V42 = Ct;          {object V42 = Ct;
282          VMR3(V42)}          VMR3(V42)}
283    goto T132;
284  T132:;  T132:;
285          V43 = make_fixnum((fix(car((V38))))+1);          V43 = make_fixnum((fix(car((V38))))+1);
286          if(type_of((V38))!=t_cons)FEwrong_type_argument(Scons,(V38));          if(type_of((V38))!=t_cons)FEwrong_type_argument(Scons,(V38));
287          ((V38))->c.c_car = V43;          ((V38))->c.c_car = V43;
288          {object V44 = Cnil;          {object V44 = Cnil;
289          VMR3(V44)}          VMR3(V44)}
290    goto T129;
291  T129:;  T129:;
292          {object V45 = Cnil;          {object V45 = Cnil;
293          VMR3(V45)}}          VMR3(V45)}}
294            return Cnil;
295  }  }
296  /*      local entry for function SEQUENCE-CURSOR        */  /*      local entry for function SEQUENCE-CURSOR        */
297    
# Line 264  static object LI4(V48,V49) Line 299  static object LI4(V48,V49)
299    
300  object V48;object V49;  object V48;object V49;
301  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
302    goto TTL;
303  TTL:;  TTL:;
304          if(((V49))!=Cnil){          if(((V49))!=Cnil){
305          goto T137;}          goto T137;}
306          {object V50 = (V48);          {object V50 = (V48);
307          VMR4(V50)}          VMR4(V50)}
308    goto T137;
309  T137:;  T137:;
310          V48= elt((V48),fix(car((V49))));          V48= elt((V48),fix(car((V49))));
311          V49= cdr((V49));          V49= cdr((V49));
312          goto TTL;          goto TTL;
313            return Cnil;
314  }  }
315  /*      local entry for function VECTOR */  /*      local entry for function VECTOR */
316    
# Line 282  static object LI5(va_alist) Line 320  static object LI5(va_alist)
320          va_list ap;          va_list ap;
321          int narg = VFUN_NARGS; VMB5 VMS5 VMV5          int narg = VFUN_NARGS; VMB5 VMS5 VMV5
322          {object V51;          {object V51;
323          narg= narg - 0;          Vcs[0]=Vcs[0];
324          va_start(ap);          va_start(ap);
325            narg= narg - 0;
326          V52 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));          V52 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));
327          V51= V52;          V51= V52;
328          {object V53;          {object V53;
329          V54 = make_fixnum(length((V51)));          V54 = make_fixnum(length((V51)));
330          V53= make_cons(V54,Cnil);          V53= make_cons(V54,Cnil);
331          {object V55 = (VFUN_NARGS=5,(*(LnkLI28))((V53),VV[8],Ct,VV[9],(V51)));          {object V55 = (VFUN_NARGS=5,(*(LnkLI28))((V53),VV[8],Ct,VV[9],(V51)));
332          VMR5(V55)}}}          VMR5(V55)}}
333            va_end(ap);
334            base[0]=base[0];
335            return Cnil;}
336          }          }
337  /*      local entry for function ARRAY-DIMENSIONS       */  /*      local entry for function ARRAY-DIMENSIONS       */
338    
# Line 298  static object LI6(V57) Line 340  static object LI6(V57)
340    
341  register object V57;  register object V57;
342  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
343    goto TTL;
344  TTL:;  TTL:;
345          {register object V58;          {register object V58;
346          register object V59;          register object V59;
# Line 307  TTL:; Line 350  TTL:;
350          vs_top=sup;          vs_top=sup;
351          V58= vs_base[0];          V58= vs_base[0];
352          V59= Cnil;          V59= Cnil;
353    goto T146;
354  T146:;  T146:;
355          if(!(number_compare((V58),small_fixnum(0))==0)){          if(!(number_compare((V58),small_fixnum(0))==0)){
356          goto T147;}          goto T147;}
357          {object V60 = (V59);          {object V60 = (V59);
358          VMR6(V60)}          VMR6(V60)}
359    goto T147;
360  T147:;  T147:;
361          V58= one_minus((V58));          V58= one_minus((V58));
362          base[0]= (V57);          base[0]= (V57);
# Line 322  T147:; Line 367  T147:;
367          V61= vs_base[0];          V61= vs_base[0];
368          V59= make_cons(V61,(V59));          V59= make_cons(V61,(V59));
369          goto T146;}          goto T146;}
370            base[0]=base[0];
371            return Cnil;
372  }  }
373  /*      local entry for function ARRAY-IN-BOUNDS-P      */  /*      local entry for function ARRAY-IN-BOUNDS-P      */
374    
# Line 333  static object LI7(V62,va_alist) Line 380  static object LI7(V62,va_alist)
380          int narg = VFUN_NARGS; VMB7 VMS7 VMV7          int narg = VFUN_NARGS; VMB7 VMS7 VMV7
381          {register object V63;          {register object V63;
382          object V64;          object V64;
383            Vcs[0]=Vcs[0];
384            va_start(ap);
385          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
386          V63= V62;          V63= V62;
387          narg= narg - 1;          narg= narg - 1;
         va_start(ap);  
388          V65 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));          V65 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));
389          V64= V65;          V64= V65;
390          {register object V66;          {register object V66;
# Line 354  static object LI7(V62,va_alist) Line 402  static object LI7(V62,va_alist)
402          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
403          Lerror();          Lerror();
404          vs_top=sup;          vs_top=sup;
405    goto T162;
406  T162:;  T162:;
407          {register object V68;          {register object V68;
408          register object V69;          register object V69;
409          V68= small_fixnum(0);          V68= small_fixnum(0);
410          V69= (V64);          V69= (V64);
411    goto T169;
412  T169:;  T169:;
413          if(!(number_compare((V68),(V66))>=0)){          if(!(number_compare((V68),(V66))>=0)){
414          goto T170;}          goto T170;}
415          {object V70 = Ct;          {object V70 = Ct;
416          VMR7(V70)}          VMR7(V70)}
417    goto T170;
418  T170:;  T170:;
419          if(number_compare(car((V69)),small_fixnum(0))<0){          if(number_compare(car((V69)),small_fixnum(0))<0){
420          goto T175;}          goto T175;}
# Line 376  T170:; Line 427  T170:;
427          V72= vs_base[0];          V72= vs_base[0];
428          if(!(number_compare(/* INLINE-ARGS */V71,V72)>=0)){          if(!(number_compare(/* INLINE-ARGS */V71,V72)>=0)){
429          goto T174;}          goto T174;}
430    goto T175;
431  T175:;  T175:;
432          {object V73 = Cnil;          {object V73 = Cnil;
433          VMR7(V73)}          VMR7(V73)}
434    goto T174;
435  T174:;  T174:;
436          V68= one_plus((V68));          V68= one_plus((V68));
437          V69= cdr((V69));          V69= cdr((V69));
438          goto T169;}}}          goto T169;}}
439            va_end(ap);
440            base[0]=base[0];
441            return Cnil;}
442          }          }
443  /*      local entry for function ARRAY-ROW-MAJOR-INDEX  */  /*      local entry for function ARRAY-ROW-MAJOR-INDEX  */
444    
# Line 394  static object LI8(V74,va_alist) Line 450  static object LI8(V74,va_alist)
450          int narg = VFUN_NARGS; VMB8 VMS8 VMV8          int narg = VFUN_NARGS; VMB8 VMS8 VMV8
451          {register object V75;          {register object V75;
452          object V76;          object V76;
453            Vcs[0]=Vcs[0];
454            va_start(ap);
455          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
456          V75= V74;          V75= V74;
457          narg= narg - 1;          narg= narg - 1;
         va_start(ap);  
458          V77 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));          V77 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));
459          V76= V77;          V76= V77;
460          {register object V78;          {register object V78;
# Line 406  static object LI8(V74,va_alist) Line 463  static object LI8(V74,va_alist)
463          V78= small_fixnum(0);          V78= small_fixnum(0);
464          V79= small_fixnum(0);          V79= small_fixnum(0);
465          V80= (V76);          V80= (V76);
466    goto T187;
467  T187:;  T187:;
468          if(((V80))!=Cnil){          if(((V80))!=Cnil){
469          goto T188;}          goto T188;}
470          {object V81 = (V79);          {object V81 = (V79);
471          VMR8(V81)}          VMR8(V81)}
472    goto T188;
473  T188:;  T188:;
474          {object V82;          {object V82;
475          V82= one_plus((V78));          V82= one_plus((V78));
# Line 424  T188:; Line 483  T188:;
483          V79= number_plus(/* INLINE-ARGS */V84,car((V80)));          V79= number_plus(/* INLINE-ARGS */V84,car((V80)));
484          V80= cdr((V80));          V80= cdr((V80));
485          V78= (V82);}          V78= (V82);}
486          goto T187;}}          goto T187;}
487            va_end(ap);
488            base[0]=base[0];
489            return Cnil;}
490          }          }
491  /*      local entry for function BIT    */  /*      local entry for function BIT    */
492    
# Line 436  static object LI9(V85,va_alist) Line 498  static object LI9(V85,va_alist)
498          int narg = VFUN_NARGS; VMB9 VMS9 VMV9          int narg = VFUN_NARGS; VMB9 VMS9 VMV9
499          {object V86;          {object V86;
500          object V87;          object V87;
501            Vcs[0]=Vcs[0];
502            va_start(ap);
503          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
504          V86= V85;          V86= V85;
505          narg= narg - 1;          narg= narg - 1;
         va_start(ap);  
506          V88 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));          V88 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));
507          V87= V88;          V87= V88;
508          base[0]= (V86);          base[0]= (V86);
# Line 452  static object LI9(V85,va_alist) Line 515  static object LI9(V85,va_alist)
515          Laref();          Laref();
516          vs_top=sup;          vs_top=sup;
517          {object V90 = vs_base[0];          {object V90 = vs_base[0];
518          VMR9(V90)}}          VMR9(V90)}
519            va_end(ap);
520            base[0]=base[0];
521            return Cnil;}
522          }          }
523  /*      local entry for function SBIT   */  /*      local entry for function SBIT   */
524    
# Line 464  static object LI10(V91,va_alist) Line 530  static object LI10(V91,va_alist)
530          int narg = VFUN_NARGS; VMB10 VMS10 VMV10          int narg = VFUN_NARGS; VMB10 VMS10 VMV10
531          {object V92;          {object V92;
532          object V93;          object V93;
533            Vcs[0]=Vcs[0];
534            va_start(ap);
535          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
536          V92= V91;          V92= V91;
537          narg= narg - 1;          narg= narg - 1;
         va_start(ap);  
538          V94 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));          V94 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));
539          V93= V94;          V93= V94;
540          base[0]= (V92);          base[0]= (V92);
# Line 480  static object LI10(V91,va_alist) Line 547  static object LI10(V91,va_alist)
547          Laref();          Laref();
548          vs_top=sup;          vs_top=sup;
549          {object V96 = vs_base[0];          {object V96 = vs_base[0];
550          VMR10(V96)}}          VMR10(V96)}
551            va_end(ap);
552            base[0]=base[0];
553            return Cnil;}
554          }          }
555  /*      local entry for function BIT-AND        */  /*      local entry for function BIT-AND        */
556    
# Line 493  static object LI11(V98,V97,va_alist) Line 563  static object LI11(V98,V97,va_alist)
563          {object V99;          {object V99;
564          object V100;          object V100;
565          object V101;          object V101;
566            Vcs[0]=Vcs[0];
567            va_start(ap);
568          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
569          V99= V98;          V99= V98;
570          V100= V97;          V100= V97;
571          narg = narg - 2;          narg = narg - 2;
572          if (narg <= 0) goto T204;          if (narg <= 0) goto T204;
573          else {          else {
         va_start(ap);  
574          V101= va_arg(ap,object);}          V101= va_arg(ap,object);}
575          --narg; goto T205;          --narg; goto T205;
576    goto T204;
577  T204:;  T204:;
578          V101= Cnil;          V101= Cnil;
579    goto T205;
580  T205:;  T205:;
581          base[0]= small_fixnum(1);          base[0]= small_fixnum(1);
582          base[1]= (V99);          base[1]= (V99);
# Line 513  T205:; Line 586  T205:;
586          siLbit_array_op();          siLbit_array_op();
587          vs_top=sup;          vs_top=sup;
588          {object V102 = vs_base[0];          {object V102 = vs_base[0];
589          VMR11(V102)}}          VMR11(V102)}
590            va_end(ap);
591            base[0]=base[0];
592            return Cnil;}
593          }          }
594  /*      local entry for function BIT-IOR        */  /*      local entry for function BIT-IOR        */
595    
# Line 526  static object LI12(V104,V103,va_alist) Line 602  static object LI12(V104,V103,va_alist)
602          {object V105;          {object V105;
603          object V106;          object V106;
604          object V107;          object V107;
605            Vcs[0]=Vcs[0];
606            va_start(ap);
607          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
608          V105= V104;          V105= V104;
609          V106= V103;          V106= V103;
610          narg = narg - 2;          narg = narg - 2;
611          if (narg <= 0) goto T211;          if (narg <= 0) goto T211;
612          else {          else {
         va_start(ap);  
613          V107= va_arg(ap,object);}          V107= va_arg(ap,object);}
614          --narg; goto T212;          --narg; goto T212;
615    goto T211;
616  T211:;  T211:;
617          V107= Cnil;          V107= Cnil;
618    goto T212;
619  T212:;  T212:;
620          base[0]= small_fixnum(7);          base[0]= small_fixnum(7);
621          base[1]= (V105);          base[1]= (V105);
# Line 546  T212:; Line 625  T212:;
625          siLbit_array_op();          siLbit_array_op();
626          vs_top=sup;          vs_top=sup;
627          {object V108 = vs_base[0];          {object V108 = vs_base[0];
628          VMR12(V108)}}          VMR12(V108)}
629            va_end(ap);
630            base[0]=base[0];
631            return Cnil;}
632          }          }
633  /*      local entry for function BIT-XOR        */  /*      local entry for function BIT-XOR        */
634    
# Line 559  static object LI13(V110,V109,va_alist) Line 641  static object LI13(V110,V109,va_alist)
641          {object V111;          {object V111;
642          object V112;          object V112;
643          object V113;          object V113;
644            Vcs[0]=Vcs[0];
645            va_start(ap);
646          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
647          V111= V110;          V111= V110;
648          V112= V109;          V112= V109;
649          narg = narg - 2;          narg = narg - 2;
650          if (narg <= 0) goto T218;          if (narg <= 0) goto T218;
651          else {          else {
         va_start(ap);  
652          V113= va_arg(ap,object);}          V113= va_arg(ap,object);}
653          --narg; goto T219;          --narg; goto T219;
654    goto T218;
655  T218:;  T218:;
656          V113= Cnil;          V113= Cnil;
657    goto T219;
658  T219:;  T219:;
659          base[0]= small_fixnum(6);          base[0]= small_fixnum(6);
660          base[1]= (V111);          base[1]= (V111);
# Line 579  T219:; Line 664  T219:;
664          siLbit_array_op();          siLbit_array_op();
665          vs_top=sup;          vs_top=sup;
666          {object V114 = vs_base[0];          {object V114 = vs_base[0];
667          VMR13(V114)}}          VMR13(V114)}
668            va_end(ap);
669            base[0]=base[0];
670            return Cnil;}
671          }          }
672  /*      local entry for function BIT-EQV        */  /*      local entry for function BIT-EQV        */
673    
# Line 592  static object LI14(V116,V115,va_alist) Line 680  static object LI14(V116,V115,va_alist)
680          {object V117;          {object V117;
681          object V118;          object V118;
682          object V119;          object V119;
683            Vcs[0]=Vcs[0];
684            va_start(ap);
685          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
686          V117= V116;          V117= V116;
687          V118= V115;          V118= V115;
688          narg = narg - 2;          narg = narg - 2;
689          if (narg <= 0) goto T225;          if (narg <= 0) goto T225;
690          else {          else {
         va_start(ap);  
691          V119= va_arg(ap,object);}          V119= va_arg(ap,object);}
692          --narg; goto T226;          --narg; goto T226;
693    goto T225;
694  T225:;  T225:;
695          V119= Cnil;          V119= Cnil;
696    goto T226;
697  T226:;  T226:;
698          base[0]= small_fixnum(9);          base[0]= small_fixnum(9);
699          base[1]= (V117);          base[1]= (V117);
# Line 612  T226:; Line 703  T226:;
703          siLbit_array_op();          siLbit_array_op();
704          vs_top=sup;          vs_top=sup;
705          {object V120 = vs_base[0];          {object V120 = vs_base[0];
706          VMR14(V120)}}          VMR14(V120)}
707            va_end(ap);
708            base[0]=base[0];
709            return Cnil;}
710          }          }
711  /*      local entry for function BIT-NAND       */  /*      local entry for function BIT-NAND       */
712    
# Line 625  static object LI15(V122,V121,va_alist) Line 719  static object LI15(V122,V121,va_alist)
719          {object V123;          {object V123;
720          object V124;          object V124;
721          object V125;          object V125;
722            Vcs[0]=Vcs[0];
723            va_start(ap);
724          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
725          V123= V122;          V123= V122;
726          V124= V121;          V124= V121;
727          narg = narg - 2;          narg = narg - 2;
728          if (narg <= 0) goto T232;          if (narg <= 0) goto T232;
729          else {          else {
         va_start(ap);  
730          V125= va_arg(ap,object);}          V125= va_arg(ap,object);}
731          --narg; goto T233;          --narg; goto T233;
732    goto T232;
733  T232:;  T232:;
734          V125= Cnil;          V125= Cnil;
735    goto T233;
736  T233:;  T233:;
737          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
738          base[1]= (V123);          base[1]= (V123);
# Line 645  T233:; Line 742  T233:;
742          siLbit_array_op();          siLbit_array_op();
743          vs_top=sup;          vs_top=sup;
744          {object V126 = vs_base[0];          {object V126 = vs_base[0];
745          VMR15(V126)}}          VMR15(V126)}
746            va_end(ap);
747            base[0]=base[0];
748            return Cnil;}
749          }          }
750  /*      local entry for function BIT-NOR        */  /*      local entry for function BIT-NOR        */
751    
# Line 658  static object LI16(V128,V127,va_alist) Line 758  static object LI16(V128,V127,va_alist)
758          {object V129;          {object V129;
759          object V130;          object V130;
760          object V131;          object V131;
761            Vcs[0]=Vcs[0];
762            va_start(ap);
763          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
764          V129= V128;          V129= V128;
765          V130= V127;          V130= V127;
766          narg = narg - 2;          narg = narg - 2;
767          if (narg <= 0) goto T239;          if (narg <= 0) goto T239;
768          else {          else {
         va_start(ap);  
769          V131= va_arg(ap,object);}          V131= va_arg(ap,object);}
770          --narg; goto T240;          --narg; goto T240;
771    goto T239;
772  T239:;  T239:;
773          V131= Cnil;          V131= Cnil;
774    goto T240;
775  T240:;  T240:;
776          base[0]= small_fixnum(8);          base[0]= small_fixnum(8);
777          base[1]= (V129);          base[1]= (V129);
# Line 678  T240:; Line 781  T240:;
781          siLbit_array_op();          siLbit_array_op();
782          vs_top=sup;          vs_top=sup;
783          {object V132 = vs_base[0];          {object V132 = vs_base[0];
784          VMR16(V132)}}          VMR16(V132)}
785            va_end(ap);
786            base[0]=base[0];
787            return Cnil;}
788          }          }
789  /*      local entry for function BIT-ANDC1      */  /*      local entry for function BIT-ANDC1      */
790    
# Line 691  static object LI17(V134,V133,va_alist) Line 797  static object LI17(V134,V133,va_alist)
797          {object V135;          {object V135;
798          object V136;          object V136;
799          object V137;          object V137;
800            Vcs[0]=Vcs[0];
801            va_start(ap);
802          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
803          V135= V134;          V135= V134;
804          V136= V133;          V136= V133;
805          narg = narg - 2;          narg = narg - 2;
806          if (narg <= 0) goto T246;          if (narg <= 0) goto T246;
807          else {          else {
         va_start(ap);  
808          V137= va_arg(ap,object);}          V137= va_arg(ap,object);}
809          --narg; goto T247;          --narg; goto T247;
810    goto T246;
811  T246:;  T246:;
812          V137= Cnil;          V137= Cnil;
813    goto T247;
814  T247:;  T247:;
815          base[0]= small_fixnum(4);          base[0]= small_fixnum(4);
816          base[1]= (V135);          base[1]= (V135);
# Line 711  T247:; Line 820  T247:;
820          siLbit_array_op();          siLbit_array_op();
821          vs_top=sup;          vs_top=sup;
822          {object V138 = vs_base[0];          {object V138 = vs_base[0];
823          VMR17(V138)}}          VMR17(V138)}
824            va_end(ap);
825            base[0]=base[0];
826            return Cnil;}
827          }          }
828  /*      local entry for function BIT-ANDC2      */  /*      local entry for function BIT-ANDC2      */
829    
# Line 724  static object LI18(V140,V139,va_alist) Line 836  static object LI18(V140,V139,va_alist)
836          {object V141;          {object V141;
837          object V142;          object V142;
838          object V143;          object V143;
839            Vcs[0]=Vcs[0];
840            va_start(ap);
841          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
842          V141= V140;          V141= V140;
843          V142= V139;          V142= V139;
844          narg = narg - 2;          narg = narg - 2;
845          if (narg <= 0) goto T253;          if (narg <= 0) goto T253;
846          else {          else {
         va_start(ap);  
847          V143= va_arg(ap,object);}          V143= va_arg(ap,object);}
848          --narg; goto T254;          --narg; goto T254;
849    goto T253;
850  T253:;  T253:;
851          V143= Cnil;          V143= Cnil;
852    goto T254;
853  T254:;  T254:;
854          base[0]= small_fixnum(2);          base[0]= small_fixnum(2);
855          base[1]= (V141);          base[1]= (V141);
# Line 744  T254:; Line 859  T254:;
859          siLbit_array_op();          siLbit_array_op();
860          vs_top=sup;          vs_top=sup;
861          {object V144 = vs_base[0];          {object V144 = vs_base[0];
862          VMR18(V144)}}          VMR18(V144)}
863            va_end(ap);
864            base[0]=base[0];
865            return Cnil;}
866          }          }
867  /*      local entry for function BIT-ORC1       */  /*      local entry for function BIT-ORC1       */
868    
# Line 757  static object LI19(V146,V145,va_alist) Line 875  static object LI19(V146,V145,va_alist)
875          {object V147;          {object V147;
876          object V148;          object V148;
877          object V149;          object V149;
878            Vcs[0]=Vcs[0];
879            va_start(ap);
880          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
881          V147= V146;          V147= V146;
882          V148= V145;          V148= V145;
883          narg = narg - 2;          narg = narg - 2;
884          if (narg <= 0) goto T260;          if (narg <= 0) goto T260;
885          else {          else {
         va_start(ap);  
886          V149= va_arg(ap,object);}          V149= va_arg(ap,object);}
887          --narg; goto T261;          --narg; goto T261;
888    goto T260;
889  T260:;  T260:;
890          V149= Cnil;          V149= Cnil;
891    goto T261;
892  T261:;  T261:;
893          base[0]= small_fixnum(13);          base[0]= small_fixnum(13);
894          base[1]= (V147);          base[1]= (V147);
# Line 777  T261:; Line 898  T261:;
898          siLbit_array_op();          siLbit_array_op();
899          vs_top=sup;          vs_top=sup;
900          {object V150 = vs_base[0];          {object V150 = vs_base[0];
901          VMR19(V150)}}          VMR19(V150)}
902            va_end(ap);
903            base[0]=base[0];
904            return Cnil;}
905          }          }
906  /*      local entry for function BIT-ORC2       */  /*      local entry for function BIT-ORC2       */
907    
# Line 790  static object LI20(V152,V151,va_alist) Line 914  static object LI20(V152,V151,va_alist)
914          {object V153;          {object V153;
915          object V154;          object V154;
916          object V155;          object V155;
917            Vcs[0]=Vcs[0];
918            va_start(ap);
919          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
920          V153= V152;          V153= V152;
921          V154= V151;          V154= V151;
922          narg = narg - 2;          narg = narg - 2;
923          if (narg <= 0) goto T267;          if (narg <= 0) goto T267;
924          else {          else {
         va_start(ap);  
925          V155= va_arg(ap,object);}          V155= va_arg(ap,object);}
926          --narg; goto T268;          --narg; goto T268;
927    goto T267;
928  T267:;  T267:;
929          V155= Cnil;          V155= Cnil;
930    goto T268;
931  T268:;  T268:;
932          base[0]= small_fixnum(11);          base[0]= small_fixnum(11);
933          base[1]= (V153);          base[1]= (V153);
# Line 810  T268:; Line 937  T268:;
937          siLbit_array_op();          siLbit_array_op();
938          vs_top=sup;          vs_top=sup;
939          {object V156 = vs_base[0];          {object V156 = vs_base[0];
940          VMR20(V156)}}          VMR20(V156)}
941            va_end(ap);
942            base[0]=base[0];
943            return Cnil;}
944          }          }
945  /*      local entry for function BIT-NOT        */  /*      local entry for function BIT-NOT        */
946    
# Line 822  static object LI21(V157,va_alist) Line 952  static object LI21(V157,va_alist)
952          int narg = VFUN_NARGS; VMB21 VMS21 VMV21          int narg = VFUN_NARGS; VMB21 VMS21 VMV21
953          {object V158;          {object V158;
954          object V159;          object V159;
955            Vcs[0]=Vcs[0];
956            va_start(ap);
957          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
958          V158= V157;          V158= V157;
959          narg = narg - 1;          narg = narg - 1;
960          if (narg <= 0) goto T274;          if (narg <= 0) goto T274;
961          else {          else {
         va_start(ap);  
962          V159= va_arg(ap,object);}          V159= va_arg(ap,object);}
963          --narg; goto T275;          --narg; goto T275;
964    goto T274;
965  T274:;  T274:;
966          V159= Cnil;          V159= Cnil;
967    goto T275;
968  T275:;  T275:;
969          base[0]= small_fixnum(12);          base[0]= small_fixnum(12);
970          base[1]= (V158);          base[1]= (V158);
# Line 841  T275:; Line 974  T275:;
974          siLbit_array_op();          siLbit_array_op();
975          vs_top=sup;          vs_top=sup;
976          {object V160 = vs_base[0];          {object V160 = vs_base[0];
977          VMR21(V160)}}          VMR21(V160)}
978            va_end(ap);
979            base[0]=base[0];
980            return Cnil;}
981          }          }
982  /*      local entry for function VECTOR-PUSH    */  /*      local entry for function VECTOR-PUSH    */
983    
# Line 849  static object LI22(V163,V164) Line 985  static object LI22(V163,V164)
985    
986  object V163;register object V164;  object V163;register object V164;
987  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
988    goto TTL;
989  TTL:;  TTL:;
990          {register long V165;          {register long V165;
991          base[0]= (V164);          base[0]= (V164);
# Line 872  TTL:; Line 1009  TTL:;
1009          vs_top=sup;          vs_top=sup;
1010          {object V167 = make_fixnum(V165);          {object V167 = make_fixnum(V165);
1011          VMR22(V167)}          VMR22(V167)}
1012    goto T284;
1013  T284:;  T284:;
1014          {object V168 = Cnil;          {object V168 = Cnil;
1015          VMR22(V168)}}          VMR22(V168)}}
1016            base[0]=base[0];
1017            return Cnil;
1018  }  }
1019  /*      local entry for function VECTOR-PUSH-EXTEND     */  /*      local entry for function VECTOR-PUSH-EXTEND     */
1020    
# Line 887  static object LI23(V170,V169,va_alist) Line 1027  static object LI23(V170,V169,va_alist)
1027          {object V171;          {object V171;
1028          register object V172;          register object V172;
1029          object V173;          object V173;
1030            Vcs[0]=Vcs[0];
1031            va_start(ap);
1032          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1033          V171= V170;          V171= V170;
1034          V172= V169;          V172= V169;
1035          narg = narg - 2;          narg = narg - 2;
1036          if (narg <= 0) goto T293;          if (narg <= 0) goto T293;
1037          else {          else {
         va_start(ap);  
1038          V173= va_arg(ap,object);}          V173= va_arg(ap,object);}
1039          --narg; goto T294;          --narg; goto T294;
1040    goto T293;
1041  T293:;  T293:;
1042          V173= Cnil;          V173= Cnil;
1043    goto T294;
1044  T294:;  T294:;
1045          {register long V174;          {register long V174;
1046          base[0]= (V172);          base[0]= (V172);
# Line 921  T294:; Line 1064  T294:;
1064          vs_top=sup;          vs_top=sup;
1065          {object V176 = make_fixnum(V174);          {object V176 = make_fixnum(V174);
1066          VMR23(V176)}          VMR23(V176)}
1067    goto T299;
1068  T299:;  T299:;
1069          base[0]= (V172);          base[0]= (V172);
1070          base[1]= small_fixnum(0);          base[1]= small_fixnum(0);
# Line 946  T299:; Line 1090  T299:;
1090          vs_top=sup;          vs_top=sup;
1091          V178= vs_base[0];          V178= vs_base[0];
1092          goto T312;          goto T312;
1093    goto T314;
1094  T314:;  T314:;
1095          V178= small_fixnum(5);          V178= small_fixnum(5);
1096    goto T312;
1097  T312:;  T312:;
1098          V180= number_plus(V177,V178);          V180= number_plus(V177,V178);
1099          V181= make_cons(/* INLINE-ARGS */V180,Cnil);          V181= make_cons(/* INLINE-ARGS */V180,Cnil);
# Line 965  T312:; Line 1111  T312:;
1111          siLfill_pointer_set();          siLfill_pointer_set();
1112          vs_top=sup;          vs_top=sup;
1113          {object V184 = make_fixnum(V174);          {object V184 = make_fixnum(V174);
1114          VMR23(V184)}}}          VMR23(V184)}}
1115            va_end(ap);
1116            base[0]=base[0];
1117            return Cnil;}
1118          }          }
1119  /*      local entry for function VECTOR-POP     */  /*      local entry for function VECTOR-POP     */
1120    
# Line 973  static object LI24(V186) Line 1122  static object LI24(V186)
1122    
1123  register object V186;  register object V186;
1124  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
1125    goto TTL;
1126  TTL:;  TTL:;
1127          {long V187;          {long V187;
1128          base[0]= (V186);          base[0]= (V186);
# Line 987  TTL:; Line 1137  TTL:;
1137          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1138          Lerror();          Lerror();
1139          vs_top=sup;          vs_top=sup;
1140    goto T329;
1141  T329:;  T329:;
1142          base[0]= (V186);          base[0]= (V186);
1143          base[1]= make_fixnum((V187)-1);          base[1]= make_fixnum((V187)-1);
# Line 995  T329:; Line 1146  T329:;
1146          vs_top=sup;          vs_top=sup;
1147          {object V188 = aref1((V186),(V187)-1);          {object V188 = aref1((V186),(V187)-1);
1148          VMR24(V188)}}          VMR24(V188)}}
1149            base[0]=base[0];
1150            return Cnil;
1151  }  }
1152  /*      local entry for function ADJUST-ARRAY   */  /*      local entry for function ADJUST-ARRAY   */
1153    
# Line 1014  static object LI25(V190,V189,va_alist) Line 1167  static object LI25(V190,V189,va_alist)
1167          object V198;          object V198;
1168          object V199;          object V199;
1169          object V200;          object V200;
1170            Vcs[0]=Vcs[0];
1171            va_start(ap);
1172          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
1173          V191= V190;          V191= V190;
1174          V192= V189;          V192= V189;
1175          narg= narg - 2;          narg= narg - 2;
         va_start(ap);  
1176          V201 = (ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));          V201 = (ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));
1177          V193= V201;          V193= V201;
1178          {          {
1179          parse_key_rest(V201,narg,Vcs +3,&LI25key,ap);          parse_key_rest(V201,narg,Vcs +3,(struct key *)&LI25key,ap);
1180          V194=(Vcs[3]);          V194=(Vcs[3]);
1181          V195=(Vcs[4]);          V195=(Vcs[4]);
1182          V196=(Vcs[5]);          V196=(Vcs[5]);
# Line 1035  static object LI25(V190,V189,va_alist) Line 1189  static object LI25(V190,V189,va_alist)
1189          if(!(type_of((V192))==t_fixnum||type_of((V192))==t_bignum)){          if(!(type_of((V192))==t_fixnum||type_of((V192))==t_bignum)){
1190          goto T338;}          goto T338;}
1191          V192= make_cons((V192),Cnil);          V192= make_cons((V192),Cnil);
1192    goto T338;
1193  T338:;  T338:;
1194          {register object x= VV[11],V203= (V193);          {register object x= VV[11],V203= (V193);
1195          while(!endp(V203))          while(!endp(V203))
# Line 1043  T338:; Line 1198  T338:;
1198          goto T346;          goto T346;
1199          }else V203=V203->c.c_cdr;          }else V203=V203->c.c_cdr;
1200          V202= Cnil;}          V202= Cnil;}
1201    goto T346;
1202  T346:;  T346:;
1203          if(((V202))==Cnil){          if(((V202))==Cnil){
1204          goto T344;}          goto T344;}
# Line 1057  T346:; Line 1213  T346:;
1213          Lerror();          Lerror();
1214          vs_top=sup;          vs_top=sup;
1215          goto T342;          goto T342;
1216    goto T344;
1217  T344:;  T344:;
1218          base[0]= (V191);          base[0]= (V191);
1219          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1071  T344:; Line 1228  T344:;
1228          V204= vs_base[0];          V204= vs_base[0];
1229          V193= ON_STACK_CONS(V204,(V193));          V193= ON_STACK_CONS(V204,(V193));
1230          V193= ON_STACK_CONS(VV[11],(V193));          V193= ON_STACK_CONS(VV[11],(V193));
1231    goto T342;
1232  T342:;  T342:;
1233          base[0]= (V191);          base[0]= (V191);
1234          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1081  T342:; Line 1239  T342:;
1239          goto T362;}          goto T362;}
1240          V193= ON_STACK_CONS((V194),(V193));          V193= ON_STACK_CONS((V194),(V193));
1241          V193= ON_STACK_CONS(VV[8],(V193));          V193= ON_STACK_CONS(VV[8],(V193));
1242    goto T362;
1243  T362:;  T362:;
1244          {register object x= VV[14],V205= (V193);          {register object x= VV[14],V205= (V193);
1245          while(!endp(V205))          while(!endp(V205))
# Line 1094  T362:; Line 1253  T362:;
1253          V206= vs_base[0];          V206= vs_base[0];
1254          V193= ON_STACK_CONS(V206,(V193));          V193= ON_STACK_CONS(V206,(V193));
1255          V193= ON_STACK_CONS(VV[14],(V193));          V193= ON_STACK_CONS(VV[14],(V193));
1256    goto T368;
1257  T368:;  T368:;
1258          {register object V207;          {register object V207;
1259          base[0]= (V192);          base[0]= (V192);
# Line 1124  T368:; Line 1284  T368:;
1284          {int V212= fix(car(V211));          {int V212= fix(car(V211));
1285          if(!((0)==((V212>=0&&(8)>0?(V212)%(8):imod(V212,8))))){          if(!((0)==((V212>=0&&(8)>0?(V212)%(8):imod(V212,8))))){
1286          goto T383;}}          goto T383;}}
1287    goto T382;
1288  T382:;  T382:;
1289          base[0]= (V191);          base[0]= (V191);
1290          base[1]= (V207);          base[1]= (V207);
# Line 1144  T382:; Line 1305  T382:;
1305          (void) (*Lnk34)();          (void) (*Lnk34)();
1306          vs_top=sup;          vs_top=sup;
1307          goto T381;          goto T381;
1308    goto T383;
1309  T383:;  T383:;
1310          {register object V215;          {register object V215;
1311          base[0]= make_fixnum(length((V192)));          base[0]= make_fixnum(length((V192)));
# Line 1153  T383:; Line 1315  T383:;
1315          Lmake_list();          Lmake_list();
1316          vs_top=sup;          vs_top=sup;
1317          V215= vs_base[0];          V215= vs_base[0];
1318    goto T407;
1319  T407:;  T407:;
1320          base[0]= (V191);          base[0]= (V191);
1321          {object V216;          {object V216;
# Line 1180  T407:; Line 1343  T407:;
1343          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1344          (void) (*Lnk26)();          (void) (*Lnk26)();
1345          vs_top=sup;          vs_top=sup;
1346    goto T410;
1347  T410:;  T410:;
1348          if(((*(LnkLI27))((V215),(V192)))==Cnil){          if(((*(LnkLI27))((V215),(V192)))==Cnil){
1349          goto T420;}          goto T420;}
1350          goto T381;          goto T381;
1351    goto T420;
1352  T420:;  T420:;
1353          goto T407;}          goto T407;}
1354    goto T381;
1355  T381:;  T381:;
1356          base[0]= (V191);          base[0]= (V191);
1357          base[1]= (V207);          base[1]= (V207);
# Line 1207  T381:; Line 1373  T381:;
1373          siLfill_pointer_set();          siLfill_pointer_set();
1374          vs_top=sup;          vs_top=sup;
1375          goto T430;          goto T430;
1376    goto T434;
1377  T434:;  T434:;
1378          if(!(type_of((V202))==t_fixnum)){          if(!(type_of((V202))==t_fixnum)){
1379          goto T440;}          goto T440;}
# Line 1216  T434:; Line 1383  T434:;
1383          siLfill_pointer_set();          siLfill_pointer_set();
1384          vs_top=sup;          vs_top=sup;
1385          goto T430;          goto T430;
1386    goto T440;
1387  T440:;  T440:;
1388          base[0]= VV[17];          base[0]= VV[17];
1389          base[1]= (V202);          base[1]= (V202);
1390          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1391          Lerror();          Lerror();
1392          vs_top=sup;          vs_top=sup;
1393    goto T430;
1394  T430:;  T430:;
1395          {object V218 = (V191);          {object V218 = (V191);
1396          VMR25(V218)}}}}          VMR25(V218)}}}
1397            va_end(ap);
1398            base[0]=base[0];
1399            return Cnil;}
1400          }}          }}
1401  static LnkT35(){ call_or_link(VV[35],&Lnk35);} /* ARRAY-IN-BOUNDS-P */  static void LnkT35(){ call_or_link(VV[35],(void **)&Lnk35);} /* ARRAY-IN-BOUNDS-P */
1402  static LnkT34(){ call_or_link(VV[34],&Lnk34);} /* COPY-ARRAY-PORTION */  static void LnkT34(){ call_or_link(VV[34],(void **)&Lnk34);} /* COPY-ARRAY-PORTION */
1403  static LnkT33(){ call_or_link(VV[33],&Lnk33);} /* ARRAY-TOTAL-SIZE */  static void LnkT33(){ call_or_link(VV[33],(void **)&Lnk33);} /* ARRAY-TOTAL-SIZE */
1404  static object  LnkTLI32(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[32],&LnkLI32,1,ap);} /* ARRAY-DIMENSIONS */  static object  LnkTLI32(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[32],(void **)&LnkLI32,1,ap);} /* ARRAY-DIMENSIONS */
1405  static LnkT28(){ call_or_link(VV[28],&Lnk28);} /* MAKE-ARRAY */  static void LnkT28(){ call_or_link(VV[28],(void **)&Lnk28);} /* MAKE-ARRAY */
1406  static LnkT31(){ call_or_link(VV[31],&Lnk31);} /* STATICP */  static void LnkT31(){ call_or_link(VV[31],(void **)&Lnk31);} /* STATICP */
1407  static LnkT30(){ call_or_link(VV[30],&Lnk30);} /* ARRAY-HAS-FILL-POINTER-P */  static void LnkT30(){ call_or_link(VV[30],(void **)&Lnk30);} /* ARRAY-HAS-FILL-POINTER-P */
1408  static object  LnkTLI29(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[29],&LnkLI29,ap);} /* ADJUST-ARRAY */  static object  LnkTLI29(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[29],(void **)&LnkLI29,ap);} /* ADJUST-ARRAY */
1409  static object  LnkTLI28(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[28],&LnkLI28,ap);} /* MAKE-ARRAY */  static object  LnkTLI28(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[28],(void **)&LnkLI28,ap);} /* MAKE-ARRAY */
1410  static object  LnkTLI27(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[27],&LnkLI27,2,ap);} /* INCREMENT-CURSOR */  static object  LnkTLI27(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[27],(void **)&LnkLI27,2,ap);} /* INCREMENT-CURSOR */
1411  static LnkT26(){ call_or_link(VV[26],&Lnk26);} /* ASET-BY-CURSOR */  static void LnkT26(){ call_or_link(VV[26],(void **)&Lnk26);} /* ASET-BY-CURSOR */
1412  static object  LnkTLI25(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[25],&LnkLI25,2,ap);} /* SEQUENCE-CURSOR */  static object  LnkTLI25(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[25],(void **)&LnkLI25,2,ap);} /* SEQUENCE-CURSOR */
1413  static LnkT24(){ call_or_link(VV[24],&Lnk24);} /* MAKE-ARRAY1 */  static void LnkT24(){ call_or_link(VV[24],(void **)&Lnk24);} /* MAKE-ARRAY1 */
1414  static LnkT23(){ call_or_link(VV[23],&Lnk23);} /* GET-AELTTYPE */  static void LnkT23(){ call_or_link(VV[23],(void **)&Lnk23);} /* GET-AELTTYPE */
1415  static object  LnkTLI22(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[22],&LnkLI22,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */  static object  LnkTLI22(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[22],(void **)&LnkLI22,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */
1416  static LnkT18(){ call_or_link(VV[18],&Lnk18);} /* SUBTYPEP */  static void LnkT18(){ call_or_link(VV[18],(void **)&Lnk18);} /* SUBTYPEP */
1417    
1418  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1419  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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