This is arraylib.c in view mode; [Download] [Up]
#include <cmpinclude.h>
#include "arraylib.h"
init_arraylib(){do_init(VV);}
/* local entry for function BEST-ARRAY-ELEMENT-TYPE */
static object LI1(V2)
register object V2;
{ VMB1 VMS1 VMV1
TTL:;
if(eql(Ct,(V2))){
goto T1;}
if(((V2))!=Cnil){
goto T2;}
T1:;
{object V3 = Ct;
VMR1(V3)}
T2:;
{register object x= (V2),V4= VV[0];
while(!endp(V4))
if(x==(V4->c.c_car)){
goto T8;
}else V4=V4->c.c_cdr;
goto T7;}
T8:;
{object V5 = (V2);
VMR1(V5)}
T7:;
base[0]= (V2);
base[1]= VV[1];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk15)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T10;}
{object V6;
object V7;
V6= VV[2];
V7= car((V6));
T17:;
if(!(endp((V6)))){
goto T18;}
{object V8 = VV[1];
VMR1(V8)}
T18:;
base[0]= (V2);
base[1]= (V7);
vs_top=(vs_base=base+0)+2;
(void) (*Lnk15)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T22;}
{object V9 = (V7);
VMR1(V9)}
T22:;
V6= cdr((V6));
V7= car((V6));
goto T17;}
T10:;
if(!(eql((V2),VV[3]))){
goto T33;}
{object V10 = VV[4];
VMR1(V10)}
T33:;
{object V11;
object V12;
V11= VV[5];
V12= car((V11));
T40:;
if(!(endp((V11)))){
goto T41;}
base[0]= Cnil;
goto T36;
T41:;
base[1]= (V2);
base[2]= (V12);
vs_top=(vs_base=base+1)+2;
(void) (*Lnk15)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T45;}
base[0]= (V12);
goto T36;
T45:;
V11= cdr((V11));
V12= car((V11));
goto T40;}
T36:;
if(base[0]==Cnil)goto T35;
{object V13 = base[0];
VMR1(V13)}
T35:;
{object V14 = Ct;
VMR1(V14)}
}
/* local entry for function MAKE-ARRAY */
static object LI2(V15,va_alist)
object V15;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB2 VMS2 VMV2
{register object V16;
object V17;
object V18;
register object V19;
object V20;
object V21;
object V22;
object V23;
object V24;
object V25;
if(narg <1) too_few_arguments();
V16= V15;
narg= narg - 1;
va_start(ap);
{
parse_key_new(narg,Vcs +1,&LI2key,ap);
if(Vcs[1]==0){
V17= Ct;
}else{
V17=(Vcs[1]);}
V18=(Vcs[2]);
if(Vcs[3]==0){
V19= Cnil;
V20= Cnil;
}else{
V19=(Vcs[3]);
V20= Ct;}
V21=(Vcs[4]);
V22=(Vcs[5]);
V23=(Vcs[6]);
V24=(Vcs[7]);
V25=(Vcs[8]);
if(!(type_of((V16))==t_fixnum||type_of((V16))==t_bignum)){
goto T57;}
V16= make_cons((V16),Cnil);
T57:;
V17= (*(LnkLI20))((V17));
if(!((length((V16)))==(1))){
goto T64;}
{object V26;
base[0]= (V17);
base[1]= car((V16));
base[2]= (V21);
base[3]= (V22);
base[4]= (V23);
base[5]= (V24);
base[6]= (V25);
base[7]= (V18);
vs_top=(vs_base=base+0)+8;
siLmake_vector();
vs_top=sup;
V26= vs_base[0];
if(((V20))==Cnil){
goto T75;}
{int V27;
int V28;
V27= fix(car((V16)));
V28= 0;
T81:;
if(!((V28)>=(V27))){
goto T82;}
goto T75;
T82:;
V29= elt((V19),V28);
(void)(aset1((V26),V28,/* INLINE-ARGS */V29));
V28= (V28)+1;
goto T81;}
T75:;
{object V30 = (V26);
VMR2(V30)}}
T64:;
{object V31;
base[0]= (V17);
base[1]= (V21);
base[2]= (V23);
base[3]= (V24);
base[4]= (V25);
base[5]= (V18);
{object V32;
V32= (V16);
vs_top=base+6;
while(!endp(V32))
{vs_push(car(V32));V32=cdr(V32);}
vs_base=base+0;}
siLmake_pure_array();
vs_top=sup;
V31= vs_base[0];
{register object x= small_fixnum(0),V33= (V16);
while(!endp(V33))
if(eql(x,V33->c.c_car)){
goto T98;
}else V33=V33->c.c_cdr;}
if(((V20))==Cnil){
goto T98;}
{object V34;
base[0]= make_fixnum(length((V16)));
base[1]= VV[6];
base[2]= small_fixnum(0);
vs_top=(vs_base=base+0)+3;
Lmake_list();
vs_top=sup;
V34= vs_base[0];
T108:;
base[0]= (V31);
base[1]= (*(LnkLI21))((V19),(V34));
base[2]= (V34);
vs_top=(vs_base=base+0)+3;
(void) (*Lnk22)();
vs_top=sup;
if(((*(LnkLI23))((V34),(V16)))==Cnil){
goto T115;}
goto T98;
T115:;
goto T108;}
T98:;
{object V35 = (V31);
VMR2(V35)}}}
}}
/* local entry for function INCREMENT-CURSOR */
static object LI3(V38,V39)
register object V38;object V39;
{ VMB3 VMS3 VMV3
TTL:;
if(((V38))!=Cnil){
goto T121;}
{object V40 = Ct;
VMR3(V40)}
T121:;
{object V41;
V41= (*(LnkLI23))(cdr((V38)),cdr((V39)));
if(((V41))==Cnil){
goto T125;}
if(!(((fix(car((V38))))+1)>=(fix(car((V39)))))){
goto T128;}
if(type_of((V38))!=t_cons)FEwrong_type_argument(Scons,(V38));
((V38))->c.c_car = small_fixnum(0);
{object V42 = Ct;
VMR3(V42)}
T128:;
V43 = make_fixnum((fix(car((V38))))+1);
if(type_of((V38))!=t_cons)FEwrong_type_argument(Scons,(V38));
((V38))->c.c_car = V43;
{object V44 = Cnil;
VMR3(V44)}
T125:;
{object V45 = Cnil;
VMR3(V45)}}
}
/* local entry for function SEQUENCE-CURSOR */
static object LI4(V48,V49)
object V48;object V49;
{ VMB4 VMS4 VMV4
TTL:;
if(((V49))!=Cnil){
goto T133;}
{object V50 = (V48);
VMR4(V50)}
T133:;
V48= elt((V48),fix(car((V49))));
V49= cdr((V49));
goto TTL;
}
/* local entry for function VECTOR */
static object LI5(va_alist)
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB5 VMS5 VMV5
{object V51;
narg= narg - 0;
va_start(ap);
V52 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));
V51= V52;
{object V53;
V54 = make_fixnum(length((V51)));
V53= make_cons(V54,Cnil);
{object V55 = (VFUN_NARGS=5,(*(LnkLI24))((V53),VV[7],Ct,VV[8],(V51)));
VMR5(V55)}}}
}
/* local entry for function ARRAY-DIMENSIONS */
static object LI6(V57)
register object V57;
{ VMB6 VMS6 VMV6
TTL:;
{object V58;
object V59;
base[0]= (V57);
vs_top=(vs_base=base+0)+1;
Larray_rank();
vs_top=sup;
V58= vs_base[0];
V59= Cnil;
T143:;
if(!(number_compare((V58),small_fixnum(0))==0)){
goto T144;}
{object V60 = (V59);
VMR6(V60)}
T144:;
V58= one_minus((V58));
base[0]= (V57);
base[1]= (V58);
vs_top=(vs_base=base+0)+2;
Larray_dimension();
vs_top=sup;
V61= vs_base[0];
V59= make_cons(V61,(V59));
goto T143;}
}
/* local entry for function ARRAY-IN-BOUNDS-P */
static object LI7(V62,va_alist)
object V62;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB7 VMS7 VMV7
{register object V63;
object V64;
if(narg <1) too_few_arguments();
V63= V62;
narg= narg - 1;
va_start(ap);
V65 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));
V64= V65;
{object V66;
base[0]= (V63);
vs_top=(vs_base=base+0)+1;
Larray_rank();
vs_top=sup;
V66= vs_base[0];
V67 = make_fixnum(length((V64)));
if(!(number_compare((V66),V67)!=0)){
goto T159;}
base[0]= VV[9];
base[1]= (V66);
base[2]= make_fixnum(length((V64)));
vs_top=(vs_base=base+0)+3;
Lerror();
vs_top=sup;
T159:;
{object V68;
object V69;
V68= small_fixnum(0);
V69= (V64);
T168:;
if(!(number_compare((V68),(V66))>=0)){
goto T169;}
{object V70 = Ct;
VMR7(V70)}
T169:;
if(number_compare(car((V69)),small_fixnum(0))<0){
goto T174;}
V71= car((V69));
base[0]= (V63);
base[1]= (V68);
vs_top=(vs_base=base+0)+2;
Larray_dimension();
vs_top=sup;
V72= vs_base[0];
if(!(number_compare(/* INLINE-ARGS */V71,V72)>=0)){
goto T173;}
T174:;
{object V73 = Cnil;
VMR7(V73)}
T173:;
V68= one_plus((V68));
V69= cdr((V69));
goto T168;}}}
}
/* local entry for function ARRAY-ROW-MAJOR-INDEX */
static object LI8(V74,va_alist)
object V74;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB8 VMS8 VMV8
{register object V75;
object V76;
if(narg <1) too_few_arguments();
V75= V74;
narg= narg - 1;
va_start(ap);
V77 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));
V76= V77;
{object V78;
object V79;
object V80;
V78= small_fixnum(0);
V79= small_fixnum(0);
V80= (V76);
T189:;
if(((V80))!=Cnil){
goto T190;}
{object V81 = (V79);
VMR8(V81)}
T190:;
{object V82;
V82= one_plus((V78));
base[0]= (V75);
base[1]= (V78);
vs_top=(vs_base=base+0)+2;
Larray_dimension();
vs_top=sup;
V83= vs_base[0];
V84= number_times((V79),V83);
V79= number_plus(/* INLINE-ARGS */V84,car((V80)));
V80= cdr((V80));
V78= (V82);}
goto T189;}}
}
/* local entry for function BIT */
static object LI9(V85,va_alist)
object V85;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB9 VMS9 VMV9
{object V86;
object V87;
if(narg <1) too_few_arguments();
V86= V85;
narg= narg - 1;
va_start(ap);
V88 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));
V87= V88;
base[0]= (V86);
{object V89;
V89= (V87);
vs_top=base+1;
while(!endp(V89))
{vs_push(car(V89));V89=cdr(V89);}
vs_base=base+0;}
Laref();
vs_top=sup;
{object V90 = vs_base[0];
VMR9(V90)}}
}
/* local entry for function SBIT */
static object LI10(V91,va_alist)
object V91;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB10 VMS10 VMV10
{object V92;
object V93;
if(narg <1) too_few_arguments();
V92= V91;
narg= narg - 1;
va_start(ap);
V94 = (ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR(narg,ap));
V93= V94;
base[0]= (V92);
{object V95;
V95= (V93);
vs_top=base+1;
while(!endp(V95))
{vs_push(car(V95));V95=cdr(V95);}
vs_base=base+0;}
Laref();
vs_top=sup;
{object V96 = vs_base[0];
VMR10(V96)}}
}
/* local entry for function BIT-AND */
static object LI11(V98,V97,va_alist)
object V98,V97;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB11 VMS11 VMV11
{object V99;
object V100;
object V101;
if(narg <2) too_few_arguments();
V99= V98;
V100= V97;
narg = narg - 2;
if (narg <= 0) goto T206;
else {
va_start(ap);
V101= va_arg(ap,object);}
--narg; goto T207;
T206:;
V101= Cnil;
T207:;
base[0]= small_fixnum(1);
base[1]= (V99);
base[2]= (V100);
base[3]= (V101);
vs_top=(vs_base=base+0)+4;
siLbit_array_op();
vs_top=sup;
{object V102 = vs_base[0];
VMR11(V102)}}
}
/* local entry for function BIT-IOR */
static object LI12(V104,V103,va_alist)
object V104,V103;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB12 VMS12 VMV12
{object V105;
object V106;
object V107;
if(narg <2) too_few_arguments();
V105= V104;
V106= V103;
narg = narg - 2;
if (narg <= 0) goto T213;
else {
va_start(ap);
V107= va_arg(ap,object);}
--narg; goto T214;
T213:;
V107= Cnil;
T214:;
base[0]= small_fixnum(7);
base[1]= (V105);
base[2]= (V106);
base[3]= (V107);
vs_top=(vs_base=base+0)+4;
siLbit_array_op();
vs_top=sup;
{object V108 = vs_base[0];
VMR12(V108)}}
}
/* local entry for function BIT-XOR */
static object LI13(V110,V109,va_alist)
object V110,V109;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB13 VMS13 VMV13
{object V111;
object V112;
object V113;
if(narg <2) too_few_arguments();
V111= V110;
V112= V109;
narg = narg - 2;
if (narg <= 0) goto T220;
else {
va_start(ap);
V113= va_arg(ap,object);}
--narg; goto T221;
T220:;
V113= Cnil;
T221:;
base[0]= small_fixnum(6);
base[1]= (V111);
base[2]= (V112);
base[3]= (V113);
vs_top=(vs_base=base+0)+4;
siLbit_array_op();
vs_top=sup;
{object V114 = vs_base[0];
VMR13(V114)}}
}
/* local entry for function BIT-EQV */
static object LI14(V116,V115,va_alist)
object V116,V115;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB14 VMS14 VMV14
{object V117;
object V118;
object V119;
if(narg <2) too_few_arguments();
V117= V116;
V118= V115;
narg = narg - 2;
if (narg <= 0) goto T227;
else {
va_start(ap);
V119= va_arg(ap,object);}
--narg; goto T228;
T227:;
V119= Cnil;
T228:;
base[0]= small_fixnum(9);
base[1]= (V117);
base[2]= (V118);
base[3]= (V119);
vs_top=(vs_base=base+0)+4;
siLbit_array_op();
vs_top=sup;
{object V120 = vs_base[0];
VMR14(V120)}}
}
/* local entry for function BIT-NAND */
static object LI15(V122,V121,va_alist)
object V122,V121;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB15 VMS15 VMV15
{object V123;
object V124;
object V125;
if(narg <2) too_few_arguments();
V123= V122;
V124= V121;
narg = narg - 2;
if (narg <= 0) goto T234;
else {
va_start(ap);
V125= va_arg(ap,object);}
--narg; goto T235;
T234:;
V125= Cnil;
T235:;
base[0]= small_fixnum(14);
base[1]= (V123);
base[2]= (V124);
base[3]= (V125);
vs_top=(vs_base=base+0)+4;
siLbit_array_op();
vs_top=sup;
{object V126 = vs_base[0];
VMR15(V126)}}
}
/* local entry for function BIT-NOR */
static object LI16(V128,V127,va_alist)
object V128,V127;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB16 VMS16 VMV16
{object V129;
object V130;
object V131;
if(narg <2) too_few_arguments();
V129= V128;
V130= V127;
narg = narg - 2;
if (narg <= 0) goto T241;
else {
va_start(ap);
V131= va_arg(ap,object);}
--narg; goto T242;
T241:;
V131= Cnil;
T242:;
base[0]= small_fixnum(8);
base[1]= (V129);
base[2]= (V130);
base[3]= (V131);
vs_top=(vs_base=base+0)+4;
siLbit_array_op();
vs_top=sup;
{object V132 = vs_base[0];
VMR16(V132)}}
}
/* local entry for function BIT-ANDC1 */
static object LI17(V134,V133,va_alist)
object V134,V133;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB17 VMS17 VMV17
{object V135;
object V136;
object V137;
if(narg <2) too_few_arguments();
V135= V134;
V136= V133;
narg = narg - 2;
if (narg <= 0) goto T248;
else {
va_start(ap);
V137= va_arg(ap,object);}
--narg; goto T249;
T248:;
V137= Cnil;
T249:;
base[0]= small_fixnum(4);
base[1]= (V135);
base[2]= (V136);
base[3]= (V137);
vs_top=(vs_base=base+0)+4;
siLbit_array_op();
vs_top=sup;
{object V138 = vs_base[0];
VMR17(V138)}}
}
/* local entry for function BIT-ANDC2 */
static object LI18(V140,V139,va_alist)
object V140,V139;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB18 VMS18 VMV18
{object V141;
object V142;
object V143;
if(narg <2) too_few_arguments();
V141= V140;
V142= V139;
narg = narg - 2;
if (narg <= 0) goto T255;
else {
va_start(ap);
V143= va_arg(ap,object);}
--narg; goto T256;
T255:;
V143= Cnil;
T256:;
base[0]= small_fixnum(2);
base[1]= (V141);
base[2]= (V142);
base[3]= (V143);
vs_top=(vs_base=base+0)+4;
siLbit_array_op();
vs_top=sup;
{object V144 = vs_base[0];
VMR18(V144)}}
}
/* local entry for function BIT-ORC1 */
static object LI19(V146,V145,va_alist)
object V146,V145;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB19 VMS19 VMV19
{object V147;
object V148;
object V149;
if(narg <2) too_few_arguments();
V147= V146;
V148= V145;
narg = narg - 2;
if (narg <= 0) goto T262;
else {
va_start(ap);
V149= va_arg(ap,object);}
--narg; goto T263;
T262:;
V149= Cnil;
T263:;
base[0]= small_fixnum(13);
base[1]= (V147);
base[2]= (V148);
base[3]= (V149);
vs_top=(vs_base=base+0)+4;
siLbit_array_op();
vs_top=sup;
{object V150 = vs_base[0];
VMR19(V150)}}
}
/* local entry for function BIT-ORC2 */
static object LI20(V152,V151,va_alist)
object V152,V151;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB20 VMS20 VMV20
{object V153;
object V154;
object V155;
if(narg <2) too_few_arguments();
V153= V152;
V154= V151;
narg = narg - 2;
if (narg <= 0) goto T269;
else {
va_start(ap);
V155= va_arg(ap,object);}
--narg; goto T270;
T269:;
V155= Cnil;
T270:;
base[0]= small_fixnum(11);
base[1]= (V153);
base[2]= (V154);
base[3]= (V155);
vs_top=(vs_base=base+0)+4;
siLbit_array_op();
vs_top=sup;
{object V156 = vs_base[0];
VMR20(V156)}}
}
/* local entry for function BIT-NOT */
static object LI21(V157,va_alist)
object V157;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB21 VMS21 VMV21
{object V158;
object V159;
if(narg <1) too_few_arguments();
V158= V157;
narg = narg - 1;
if (narg <= 0) goto T276;
else {
va_start(ap);
V159= va_arg(ap,object);}
--narg; goto T277;
T276:;
V159= Cnil;
T277:;
base[0]= small_fixnum(12);
base[1]= (V158);
base[2]= (V158);
base[3]= (V159);
vs_top=(vs_base=base+0)+4;
siLbit_array_op();
vs_top=sup;
{object V160 = vs_base[0];
VMR21(V160)}}
}
/* local entry for function VECTOR-PUSH */
static object LI22(V163,V164)
object V163;register object V164;
{ VMB22 VMS22 VMV22
TTL:;
{int V165;
base[0]= (V164);
vs_top=(vs_base=base+0)+1;
Lfill_pointer();
vs_top=sup;
V165= fix(vs_base[0]);
base[0]= (V164);
base[1]= small_fixnum(0);
vs_top=(vs_base=base+0)+2;
Larray_dimension();
vs_top=sup;
V166= vs_base[0];
if(!((V165)<(fix(V166)))){
goto T286;}
(void)(aset1((V164),V165,(V163)));
base[0]= (V164);
base[1]= make_fixnum((V165)+1);
vs_top=(vs_base=base+0)+2;
siLfill_pointer_set();
vs_top=sup;
{object V167 = make_fixnum(V165);
VMR22(V167)}
T286:;
{object V168 = Cnil;
VMR22(V168)}}
}
/* local entry for function VECTOR-PUSH-EXTEND */
static object LI23(V170,V169,va_alist)
object V170,V169;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB23 VMS23 VMV23
{object V171;
register object V172;
object V173;
if(narg <2) too_few_arguments();
V171= V170;
V172= V169;
narg = narg - 2;
if (narg <= 0) goto T295;
else {
va_start(ap);
V173= va_arg(ap,object);}
--narg; goto T296;
T295:;
V173= Cnil;
T296:;
{int V174;
base[0]= (V172);
vs_top=(vs_base=base+0)+1;
Lfill_pointer();
vs_top=sup;
V174= fix(vs_base[0]);
base[0]= (V172);
base[1]= small_fixnum(0);
vs_top=(vs_base=base+0)+2;
Larray_dimension();
vs_top=sup;
V175= vs_base[0];
if(!((V174)<(fix(V175)))){
goto T301;}
(void)(aset1((V172),V174,(V171)));
base[0]= (V172);
base[1]= make_fixnum((V174)+1);
vs_top=(vs_base=base+0)+2;
siLfill_pointer_set();
vs_top=sup;
{object V176 = make_fixnum(V174);
VMR23(V176)}
T301:;
base[0]= (V172);
base[1]= small_fixnum(0);
vs_top=(vs_base=base+0)+2;
Larray_dimension();
vs_top=sup;
V177= vs_base[0];
if((V173)!=Cnil){
V178= (V173);
goto T314;}
base[1]= (V172);
base[2]= small_fixnum(0);
vs_top=(vs_base=base+1)+2;
Larray_dimension();
vs_top=sup;
V179= vs_base[0];
if(!((fix(V179))>(0))){
goto T316;}
base[1]= (V172);
base[2]= small_fixnum(0);
vs_top=(vs_base=base+1)+2;
Larray_dimension();
vs_top=sup;
V178= vs_base[0];
goto T314;
T316:;
V178= small_fixnum(5);
T314:;
V180= number_plus(V177,V178);
V181= make_cons(/* INLINE-ARGS */V180,Cnil);
base[0]= (V172);
vs_top=(vs_base=base+0)+1;
Larray_element_type();
vs_top=sup;
V182= vs_base[0];
V183 = make_fixnum(V174);
(void)((VFUN_NARGS=6,(*(LnkLI25))((V172),/* INLINE-ARGS */V181,VV[7],V182,VV[10],V183)));
(void)(aset1((V172),V174,(V171)));
base[0]= (V172);
base[1]= make_fixnum((V174)+1);
vs_top=(vs_base=base+0)+2;
siLfill_pointer_set();
vs_top=sup;
{object V184 = make_fixnum(V174);
VMR23(V184)}}}
}
/* local entry for function VECTOR-POP */
static object LI24(V186)
register object V186;
{ VMB24 VMS24 VMV24
TTL:;
{int V187;
base[0]= (V186);
vs_top=(vs_base=base+0)+1;
Lfill_pointer();
vs_top=sup;
V187= fix(vs_base[0]);
if(!((V187)==(0))){
goto T331;}
base[0]= VV[11];
base[1]= (V186);
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;
T331:;
base[0]= (V186);
base[1]= make_fixnum((V187)-1);
vs_top=(vs_base=base+0)+2;
siLfill_pointer_set();
vs_top=sup;
{object V188 = aref1((V186),(V187)-1);
VMR24(V188)}}
}
/* local entry for function ADJUST-ARRAY */
static object LI25(V190,V189,va_alist)
object V190,V189;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB25 VMS25 VMV25
{register object V191;
register object V192;
register object V193;
register object V194;
object V195;
object V196;
object V197;
object V198;
object V199;
object V200;
if(narg <2) too_few_arguments();
V191= V190;
V192= V189;
narg= narg - 2;
va_start(ap);
V201 = (ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));
V193= V201;
{
parse_key_rest(V201,narg,Vcs +3,&LI25key,ap);
V194=(Vcs[3]);
V195=(Vcs[4]);
V196=(Vcs[5]);
V197=(Vcs[6]);
V198=(Vcs[7]);
V199=(Vcs[8]);
V200=(Vcs[9]);
if(!(type_of((V192))==t_fixnum||type_of((V192))==t_bignum)){
goto T339;}
V192= make_cons((V192),Cnil);
T339:;
{register object x= VV[10],V202= (V193);
while(!endp(V202))
if(eql(x,V202->c.c_car)){
goto T346;
}else V202=V202->c.c_cdr;
goto T345;}
T346:;
base[0]= (V191);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk26)();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T343;}
base[0]= VV[12];
vs_top=(vs_base=base+0)+1;
Lerror();
vs_top=sup;
goto T343;
T345:;
base[0]= (V191);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk26)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T343;}
base[0]= (V191);
vs_top=(vs_base=base+0)+1;
Lfill_pointer();
vs_top=sup;
V203= vs_base[0];
V193= ON_STACK_CONS(V203,(V193));
V193= ON_STACK_CONS(VV[10],(V193));
T343:;
base[0]= (V191);
vs_top=(vs_base=base+0)+1;
Larray_element_type();
vs_top=sup;
V194= vs_base[0];
if(((V194))==(Ct)){
goto T362;}
V193= ON_STACK_CONS((V194),(V193));
V193= ON_STACK_CONS(VV[7],(V193));
T362:;
{object V204;
base[0]= (V192);
base[1]= VV[13];
base[2]= Ct;
{object V205;
V205= (V193);
vs_top=base+3;
while(!endp(V205))
{vs_push(car(V205));V205=cdr(V205);}
vs_base=base+0;}
(void) (*Lnk24)();
vs_top=sup;
V204= vs_base[0];
if((cdr((V192)))==Cnil){
goto T374;}
V206= cdr((V192));
V207= (*(LnkLI27))((V191));
if(!(equal(/* INLINE-ARGS */V206,cdr(/* INLINE-ARGS */V207)))){
goto T375;}
if(!(((V194))==(VV[14]))){
goto T374;}
base[0]= (V192);
vs_top=(vs_base=base+0)+1;
Llast();
vs_top=sup;
V208= vs_base[0];
{int V209= fix(car(V208));
if(!((0)==((V209>=0&&(8)>0?(V209)%(8):imod(V209,8))))){
goto T375;}}
T374:;
base[0]= (V191);
base[1]= (V204);
base[2]= small_fixnum(0);
base[3]= small_fixnum(0);
base[5]= (V204);
vs_top=(vs_base=base+5)+1;
(void) (*Lnk28)();
vs_top=sup;
V210= vs_base[0];
base[5]= (V191);
vs_top=(vs_base=base+5)+1;
(void) (*Lnk28)();
vs_top=sup;
V211= vs_base[0];
base[4]= make_fixnum((fix(V210))<=(fix(V211))?(fix(V210)):fix(V211));
vs_top=(vs_base=base+0)+5;
(void) (*Lnk29)();
vs_top=sup;
goto T373;
T375:;
{object V212;
base[0]= make_fixnum(length((V192)));
base[1]= VV[6];
base[2]= small_fixnum(0);
vs_top=(vs_base=base+0)+3;
Lmake_list();
vs_top=sup;
V212= vs_base[0];
T399:;
base[0]= (V191);
{object V213;
V213= (V212);
vs_top=base+1;
while(!endp(V213))
{vs_push(car(V213));V213=cdr(V213);}
vs_base=base+0;}
(void) (*Lnk30)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T402;}
base[0]= (V204);
base[2]= (V191);
{object V214;
V214= (V212);
vs_top=base+3;
while(!endp(V214))
{vs_push(car(V214));V214=cdr(V214);}
vs_base=base+2;}
Laref();
vs_top=sup;
base[1]= vs_base[0];
base[2]= (V212);
vs_top=(vs_base=base+0)+3;
(void) (*Lnk22)();
vs_top=sup;
T402:;
if(((*(LnkLI23))((V212),(V192)))==Cnil){
goto T412;}
goto T373;
T412:;
goto T399;}
T373:;
base[0]= (V191);
base[1]= (V204);
vs_top=(vs_base=base+0)+2;
siLreplace_array();
vs_top=sup;
{object V215 = vs_base[0];
VMR25(V215)}}}
}}
static LnkT30(){ call_or_link(VV[30],&Lnk30);} /* ARRAY-IN-BOUNDS-P */
static LnkT29(){ call_or_link(VV[29],&Lnk29);} /* COPY-ARRAY-PORTION */
static LnkT28(){ call_or_link(VV[28],&Lnk28);} /* ARRAY-TOTAL-SIZE */
static object LnkTLI27(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[27],&LnkLI27,1,ap);} /* ARRAY-DIMENSIONS */
static LnkT24(){ call_or_link(VV[24],&Lnk24);} /* MAKE-ARRAY */
static LnkT26(){ call_or_link(VV[26],&Lnk26);} /* ARRAY-HAS-FILL-POINTER-P */
static object LnkTLI25(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[25],&LnkLI25,ap);} /* ADJUST-ARRAY */
static object LnkTLI24(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[24],&LnkLI24,ap);} /* MAKE-ARRAY */
static object LnkTLI23(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[23],&LnkLI23,2,ap);} /* INCREMENT-CURSOR */
static LnkT22(){ call_or_link(VV[22],&Lnk22);} /* ASET-BY-CURSOR */
static object LnkTLI21(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[21],&LnkLI21,2,ap);} /* SEQUENCE-CURSOR */
static object LnkTLI20(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[20],&LnkLI20,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */
static LnkT15(){ call_or_link(VV[15],&Lnk15);} /* SUBTYPEP */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.