This is packlib.c in view mode; [Download] [Up]
#include <cmpinclude.h>
#include "packlib.h"
init_packlib(){do_init(VV);}
/* macro definition for COERCE-TO-PACKAGE */
static L1()
{register object *base=vs_base;
register object *sup=base+VM1; VC1
vs_reserve(VM1);
check_arg(2);
vs_top=sup;
{object V1=base[0]->c.c_cdr;
if(endp(V1))invalid_macro_call();
base[2]= (V1->c.c_car);
V1=V1->c.c_cdr;
if(!endp(V1))invalid_macro_call();}
if(!((base[2])==(VV[0]))){
goto T2;}
vs_top=(vs_base=base+2)+1;
return;
T2:;
{object V2;
vs_base=vs_top;
Lgensym();
vs_top=sup;
V2= vs_base[0];
V3= list(2,(V2),base[2]);
V4= make_cons(/* INLINE-ARGS */V3,Cnil);
V5= list(2,VV[3],(V2));
base[3]= list(3,VV[1],/* INLINE-ARGS */V4,list(4,VV[2],/* INLINE-ARGS */V5,(V2),list(2,VV[4],list(2,VV[5],(V2)))));
vs_top=(vs_base=base+3)+1;
return;}
}
/* local entry for function FIND-ALL-SYMBOLS */
static object LI2(V7)
register object V7;
{ VMB2 VMS2 VMV2
TTL:;
if(!(type_of((V7))==t_symbol)){
goto T5;}
V7= symbol_name((V7));
T5:;
vs_base=vs_top;
Llist_all_packages();
vs_top=sup;
V10= vs_base[0];
{object V8;
object V9= V10;
if(endp(V9)){
{object V11 = Cnil;
VMR2(V11)}}
base[0]=V8=MMcons(Cnil,Cnil);
T9:;
{object V12;
V12= (V9->c.c_car);
{object V13;
object V14;
base[1]= (V7);
base[2]= (V12);
vs_top=(vs_base=base+1)+2;
Lfind_symbol();
if(vs_base>=vs_top){vs_top=sup;goto T16;}
V13= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T17;}
V14= vs_base[0];
vs_top=sup;
goto T18;
T16:;
V13= Cnil;
T17:;
V14= Cnil;
T18:;
if(((V14))==(VV[6])){
goto T19;}
if(!(((V14))==(VV[7]))){
goto T20;}
T19:;
(V8->c.c_cdr)= make_cons((V13),Cnil);
goto T11;
T20:;
(V8->c.c_cdr)= Cnil;}}
T11:;
while(!endp(MMcdr(V8)))V8=MMcdr(V8);
if(endp(V9=MMcdr(V9))){
base[0]=base[0]->c.c_cdr;
{object V15 = base[0];
VMR2(V15)}}
goto T9;}
}
/* macro definition for DO-SYMBOLS */
static L3()
{register object *base=vs_base;
register object *sup=base+VM3; VC3
vs_reserve(VM3);
check_arg(2);
vs_top=sup;
{object V16=base[0]->c.c_cdr;
if(endp(V16))invalid_macro_call();
{object V17= (V16->c.c_car);
if(endp(V17))invalid_macro_call();
base[2]= (V17->c.c_car);
V17=V17->c.c_cdr;
if(endp(V17)){
base[3]= VV[0];
} else {
base[3]= (V17->c.c_car);
V17=V17->c.c_cdr;}
if(endp(V17)){
base[4]= Cnil;
} else {
base[4]= (V17->c.c_car);
V17=V17->c.c_cdr;}
if(!endp(V17))invalid_macro_call();}
V16=V16->c.c_cdr;
base[5]= V16;}
{object V18;
object V19;
object V20;
object V21;
object V22;
object V23;
object V24;
object V25;
vs_base=vs_top;
Lgensym();
vs_top=sup;
V18= vs_base[0];
vs_base=vs_top;
Lgensym();
vs_top=sup;
V19= vs_base[0];
vs_base=vs_top;
Lgensym();
vs_top=sup;
V20= vs_base[0];
vs_base=vs_top;
Lgensym();
vs_top=sup;
V21= vs_base[0];
vs_base=vs_top;
Lgensym();
vs_top=sup;
V22= vs_base[0];
vs_base=vs_top;
Lgensym();
vs_top=sup;
V23= vs_base[0];
vs_base=vs_top;
Lgensym();
vs_top=sup;
V24= vs_base[0];
V25= Cnil;
base[6]= base[5];
vs_top=(vs_base=base+6)+1;
(void) (*Lnk32)();
if(vs_base<vs_top){
V25= vs_base[0];
vs_base++;
}else{
V25= Cnil;}
if(vs_base<vs_top){
base[5]= vs_base[0];
}else{
base[5]= Cnil;}
vs_top=sup;
V26= list(3,list(2,(V18),list(2,VV[8],base[3])),base[2],(V20));
V27= list(2,(V23),(V22));
V28= list(2,VV[10],(V18));
V29= list(2,VV[11],list(3,VV[12],(V22),(V23)));
V30= list(3,VV[14],(V22),(V23));
V31= list(3,(V19),/* INLINE-ARGS */V30,list(3,VV[15],list(3,VV[16],base[2],Cnil),base[4]));
V32= list(3,VV[17],(V19),(V22));
V33= list(3,VV[18],(V18),(V19));
V34= list(3,VV[16],(V20),list(4,VV[2],/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,list(3,VV[19],(V18),list(3,VV[20],(V19),(V22)))));
V35= list(2,VV[22],(V20));
V36= list(3,VV[21],/* INLINE-ARGS */V35,list(2,VV[23],(V24)));
V37= list(3,VV[16],base[2],list(2,VV[24],(V20)));
V38= list(3,VV[16],(V20),list(2,VV[25],(V20)));
V39= list(3,/* INLINE-ARGS */V38,list(2,VV[23],(V21)),(V24));
V40= list(5,VV[9],/* INLINE-ARGS */V27,/* INLINE-ARGS */V28,/* INLINE-ARGS */V29,listA(7,VV[13],/* INLINE-ARGS */V31,/* INLINE-ARGS */V34,(V21),/* INLINE-ARGS */V36,/* INLINE-ARGS */V37,append(base[5],/* INLINE-ARGS */V39)));
V41= make_cons(/* INLINE-ARGS */V40,Cnil);
base[6]= listA(3,VV[1],/* INLINE-ARGS */V26,append((V25),/* INLINE-ARGS */V41));
vs_top=(vs_base=base+6)+1;
return;}
}
/* macro definition for DO-EXTERNAL-SYMBOLS */
static L4()
{register object *base=vs_base;
register object *sup=base+VM4; VC4
vs_reserve(VM4);
check_arg(2);
vs_top=sup;
{object V42=base[0]->c.c_cdr;
if(endp(V42))invalid_macro_call();
{object V43= (V42->c.c_car);
if(endp(V43))invalid_macro_call();
base[2]= (V43->c.c_car);
V43=V43->c.c_cdr;
if(endp(V43)){
base[3]= VV[0];
} else {
base[3]= (V43->c.c_car);
V43=V43->c.c_cdr;}
if(endp(V43)){
base[4]= Cnil;
} else {
base[4]= (V43->c.c_car);
V43=V43->c.c_cdr;}
if(!endp(V43))invalid_macro_call();}
V42=V42->c.c_cdr;
base[5]= V42;}
{object V44;
object V45;
object V46;
object V47;
object V48;
object V49;
vs_base=vs_top;
Lgensym();
vs_top=sup;
V44= vs_base[0];
vs_base=vs_top;
Lgensym();
vs_top=sup;
V45= vs_base[0];
vs_base=vs_top;
Lgensym();
vs_top=sup;
V46= vs_base[0];
vs_base=vs_top;
Lgensym();
vs_top=sup;
V47= vs_base[0];
vs_base=vs_top;
Lgensym();
vs_top=sup;
V48= vs_base[0];
V49= Cnil;
base[6]= base[5];
vs_top=(vs_base=base+6)+1;
(void) (*Lnk32)();
if(vs_base<vs_top){
V49= vs_base[0];
vs_base++;
}else{
V49= Cnil;}
if(vs_base<vs_top){
base[5]= vs_base[0];
}else{
base[5]= Cnil;}
vs_top=sup;
V50= list(3,list(2,(V44),list(2,VV[8],base[3])),base[2],(V46));
V51= list(2,VV[10],(V44));
V52= list(3,(V45),/* INLINE-ARGS */V51,list(3,VV[15],list(3,VV[16],base[2],Cnil),base[4]));
V53= list(3,VV[16],(V46),list(3,VV[19],(V44),(V45)));
V54= list(2,VV[22],(V46));
V55= list(3,VV[21],/* INLINE-ARGS */V54,list(2,VV[23],(V48)));
V56= list(3,VV[16],base[2],list(2,VV[24],(V46)));
V57= list(3,VV[16],(V46),list(2,VV[25],(V46)));
V58= list(3,/* INLINE-ARGS */V57,list(2,VV[23],(V47)),(V48));
V59= listA(7,VV[13],/* INLINE-ARGS */V52,/* INLINE-ARGS */V53,(V47),/* INLINE-ARGS */V55,/* INLINE-ARGS */V56,append(base[5],/* INLINE-ARGS */V58));
V60= make_cons(/* INLINE-ARGS */V59,Cnil);
base[6]= listA(3,VV[1],/* INLINE-ARGS */V50,append((V49),/* INLINE-ARGS */V60));
vs_top=(vs_base=base+6)+1;
return;}
}
/* macro definition for DO-ALL-SYMBOLS */
static L5()
{register object *base=vs_base;
register object *sup=base+VM5; VC5
vs_reserve(VM5);
check_arg(2);
vs_top=sup;
{object V61=base[0]->c.c_cdr;
if(endp(V61))invalid_macro_call();
{object V62= (V61->c.c_car);
if(endp(V62))invalid_macro_call();
base[2]= (V62->c.c_car);
V62=V62->c.c_cdr;
if(endp(V62)){
base[3]= Cnil;
} else {
base[3]= (V62->c.c_car);
V62=V62->c.c_cdr;}
if(!endp(V62))invalid_macro_call();}
V61=V61->c.c_cdr;
base[4]= V61;}
V63= list(3,VV[27],VV[28],base[3]);
base[5]= list(3,VV[26],/* INLINE-ARGS */V63,listA(3,VV[29],list(2,base[2],VV[27]),base[4]));
vs_top=(vs_base=base+5)+1;
return;
}
/* local entry for function SUBSTRINGP */
static object LI6(V66,V67)
register object V66;register object V67;
{ VMB6 VMS6 VMV6
TTL:;
{object V68;
object V69;
object V70;
{ save_avma;
V71 = stoi(length((V67)));
V72 = stoi(length((V66)));
V68= make_integer(subii(V71,V72));restore_avma;}
V69= make_fixnum(length((V66)));
V70= small_fixnum(0);
T53:;
if(!(number_compare((V70),(V68))>0)){
goto T54;}
{object V73 = Cnil;
VMR6(V73)}
T54:;
base[0]= (V66);
base[1]= (V67);
base[2]= VV[30];
base[3]= (V70);
base[4]= VV[31];
base[5]= number_plus((V70),(V69));
vs_top=(vs_base=base+0)+6;
Lstring_equal();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T58;}
{object V74 = Ct;
VMR6(V74)}
T58:;
V70= one_plus((V70));
goto T53;}
}
/* local entry for function PRINT-SYMBOL-APROPOS */
static object LI7(V76)
register object V76;
{ VMB7 VMS7 VMV7
TTL:;
(void)(prin1((V76),Cnil));
base[0]= (V76);
vs_top=(vs_base=base+0)+1;
Lfboundp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T71;}
base[0]= (V76);
vs_top=(vs_base=base+0)+1;
Lspecial_form_p();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T76;}
princ_str(" Special form",Cnil);
goto T71;
T76:;
base[0]= (V76);
vs_top=(vs_base=base+0)+1;
Lmacro_function();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T80;}
princ_str(" Macro",Cnil);
goto T71;
T80:;
princ_str(" Function",Cnil);
T71:;
base[0]= (V76);
vs_top=(vs_base=base+0)+1;
Lboundp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T83;}
base[0]= (V76);
vs_top=(vs_base=base+0)+1;
Lconstantp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T89;}
princ_str(" Constant: ",Cnil);
goto T87;
T89:;
princ_str(" has value: ",Cnil);
T87:;
base[0]= (V76);
vs_top=(vs_base=base+0)+1;
Lsymbol_value();
vs_top=sup;
V77= vs_base[0];
(void)(prin1(V77,Cnil));
T83:;
{object V78 = terpri(Cnil);
VMR7(V78)}
}
/* function definition for APROPOS */
static L8()
{register object *base=vs_base;
register object *sup=base+VM8; VC8
vs_reserve(VM8);
{object V79;
object V80;
if(vs_top-vs_base<1) too_few_arguments();
if(vs_top-vs_base>2) too_many_arguments();
V79=(base[0]);
vs_base=vs_base+1;
if(vs_base>=vs_top){vs_top=sup;goto T94;}
V80=(base[1]);
vs_top=sup;
goto T95;
T94:;
V80= Cnil;
T95:;
V79= coerce_to_string((V79));
if(((V80))==Cnil){
goto T101;}
{object V81;
object V82;
object V83;
{object V84;
V84= (V80);
base[2]= (V84);
vs_top=(vs_base=base+2)+1;
Lpackagep();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T107;}
V81= (V84);
goto T104;
T107:;
base[2]= coerce_to_string((V84));
vs_top=(vs_base=base+2)+1;
Lfind_package();
vs_top=sup;
V81= vs_base[0];}
T104:;
V82= Cnil;
V83= Cnil;
{int V85;
int V86;
base[2]= (V81);
vs_top=(vs_base=base+2)+1;
(void) (*Lnk10)();
if(vs_base>=vs_top){vs_top=sup;goto T115;}
V85= fix(vs_base[0]);
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T116;}
V86= fix(vs_base[0]);
vs_top=sup;
goto T117;
T115:;
V85= fix(Cnil);
T116:;
V86= fix(Cnil);
T117:;
{object V87;
object V88;
{ save_avma;
V89 = stoi(V86);
V90 = stoi(V85);
V87= make_integer(addii(V89,V90));restore_avma;}
V88= small_fixnum(0);
T121:;
if(!(number_compare((V88),(V87))>=0)){
goto T122;}
V82= Cnil;
goto T103;
T122:;
V91 = make_fixnum(V86);
if(!(number_compare((V88),V91)<0)){
goto T133;}
base[2]= (V81);
base[3]= (V88);
vs_top=(vs_base=base+2)+2;
siLpackage_internal();
vs_top=sup;
V83= vs_base[0];
goto T131;
T133:;
base[2]= (V81);
V92 = make_fixnum(V86);
base[3]= number_minus((V88),V92);
vs_top=(vs_base=base+2)+2;
siLpackage_external();
vs_top=sup;
V83= vs_base[0];
T131:;
T129:;
if(((V83))!=Cnil){
goto T139;}
goto T130;
T139:;
V82= car((V83));
V93= coerce_to_string((V82));
if(((*(LnkLI33))((V79),/* INLINE-ARGS */V93))==Cnil){
goto T144;}
(void)((*(LnkLI34))((V82)));
T144:;
V83= cdr((V83));
goto T129;
T130:;
goto T127;
T127:;
V88= one_plus((V88));
goto T121;}}}
T103:;
{object V94;
base[2]= (V80);
vs_top=(vs_base=base+2)+1;
Lpackage_use_list();
vs_top=sup;
V94= vs_base[0];
T155:;
if(((V94))!=Cnil){
goto T156;}
goto T99;
T156:;
{object V95;
object V96;
object V97;
{object V98;
V98= car((V94));
base[2]= (V98);
vs_top=(vs_base=base+2)+1;
Lpackagep();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T164;}
V95= (V98);
goto T161;
T164:;
base[2]= coerce_to_string((V98));
vs_top=(vs_base=base+2)+1;
Lfind_package();
vs_top=sup;
V95= vs_base[0];}
T161:;
V96= Cnil;
V97= Cnil;
{object V99;
object V100;
base[2]= (V95);
vs_top=(vs_base=base+2)+1;
(void) (*Lnk10)();
vs_top=sup;
V99= vs_base[0];
V100= small_fixnum(0);
T174:;
if(!(number_compare((V100),(V99))>=0)){
goto T175;}
V96= Cnil;
goto T160;
T175:;
base[2]= (V95);
base[3]= (V100);
vs_top=(vs_base=base+2)+2;
siLpackage_external();
vs_top=sup;
V97= vs_base[0];
T182:;
if(((V97))!=Cnil){
goto T187;}
goto T183;
T187:;
V96= car((V97));
V101= coerce_to_string((V96));
if(((*(LnkLI33))((V79),/* INLINE-ARGS */V101))==Cnil){
goto T192;}
(void)((*(LnkLI34))((V96)));
T192:;
V97= cdr((V97));
goto T182;
T183:;
goto T180;
T180:;
V100= one_plus((V100));
goto T174;}}
T160:;
V94= cdr((V94));
goto T155;}
T101:;
{object V102;
object V103;
vs_base=vs_top;
Llist_all_packages();
vs_top=sup;
V102= vs_base[0];
V103= car((V102));
T206:;
if(!(endp((V102)))){
goto T207;}
goto T99;
T207:;
{object V104;
object V105;
object V106;
{object V107;
V107= (V103);
base[2]= (V107);
vs_top=(vs_base=base+2)+1;
Lpackagep();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T215;}
V104= (V107);
goto T212;
T215:;
base[2]= coerce_to_string((V107));
vs_top=(vs_base=base+2)+1;
Lfind_package();
vs_top=sup;
V104= vs_base[0];}
T212:;
V105= Cnil;
V106= Cnil;
{int V108;
int V109;
base[2]= (V104);
vs_top=(vs_base=base+2)+1;
(void) (*Lnk10)();
if(vs_base>=vs_top){vs_top=sup;goto T223;}
V108= fix(vs_base[0]);
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T224;}
V109= fix(vs_base[0]);
vs_top=sup;
goto T225;
T223:;
V108= fix(Cnil);
T224:;
V109= fix(Cnil);
T225:;
{object V110;
object V111;
{ save_avma;
V112 = stoi(V109);
V113 = stoi(V108);
V110= make_integer(addii(V112,V113));restore_avma;}
V111= small_fixnum(0);
T229:;
if(!(number_compare((V111),(V110))>=0)){
goto T230;}
V105= Cnil;
goto T211;
T230:;
V114 = make_fixnum(V109);
if(!(number_compare((V111),V114)<0)){
goto T241;}
base[2]= (V104);
base[3]= (V111);
vs_top=(vs_base=base+2)+2;
siLpackage_internal();
vs_top=sup;
V106= vs_base[0];
goto T239;
T241:;
base[2]= (V104);
V115 = make_fixnum(V109);
base[3]= number_minus((V111),V115);
vs_top=(vs_base=base+2)+2;
siLpackage_external();
vs_top=sup;
V106= vs_base[0];
T239:;
T237:;
if(((V106))!=Cnil){
goto T247;}
goto T238;
T247:;
V105= car((V106));
V116= coerce_to_string((V105));
if(((*(LnkLI33))((V79),/* INLINE-ARGS */V116))==Cnil){
goto T252;}
(void)((*(LnkLI34))((V105)));
T252:;
V106= cdr((V106));
goto T237;
T238:;
goto T235;
T235:;
V111= one_plus((V111));
goto T229;}}}
T211:;
V102= cdr((V102));
V103= car((V102));
goto T206;}
T99:;
vs_base=vs_top=base+2;
vs_base[0]=Cnil;
return;
}
}
/* local entry for function APROPOS-LIST */
static object LI9(V117,va_alist)
object V117;
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB9 VMS9 VMV9
{object V118;
object V119;
if(narg <1) too_few_arguments();
V118= V117;
narg = narg - 1;
if (narg <= 0) goto T265;
else {
va_start(ap);
V119= va_arg(ap,object);}
--narg; goto T266;
T265:;
V119= Cnil;
T266:;
{object V120;
V120= Cnil;
V120= Cnil;
V118= coerce_to_string((V118));
if(((V119))==Cnil){
goto T275;}
{object V121;
object V122;
object V123;
{object V124;
V124= (V119);
base[0]= (V124);
vs_top=(vs_base=base+0)+1;
Lpackagep();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T281;}
V121= (V124);
goto T278;
T281:;
base[0]= coerce_to_string((V124));
vs_top=(vs_base=base+0)+1;
Lfind_package();
vs_top=sup;
V121= vs_base[0];}
T278:;
V122= Cnil;
V123= Cnil;
{int V125;
int V126;
base[0]= (V121);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk10)();
if(vs_base>=vs_top){vs_top=sup;goto T289;}
V125= fix(vs_base[0]);
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T290;}
V126= fix(vs_base[0]);
vs_top=sup;
goto T291;
T289:;
V125= fix(Cnil);
T290:;
V126= fix(Cnil);
T291:;
{object V127;
object V128;
{ save_avma;
V129 = stoi(V126);
V130 = stoi(V125);
V127= make_integer(addii(V129,V130));restore_avma;}
V128= small_fixnum(0);
T295:;
if(!(number_compare((V128),(V127))>=0)){
goto T296;}
V122= Cnil;
goto T277;
T296:;
V131 = make_fixnum(V126);
if(!(number_compare((V128),V131)<0)){
goto T307;}
base[0]= (V121);
base[1]= (V128);
vs_top=(vs_base=base+0)+2;
siLpackage_internal();
vs_top=sup;
V123= vs_base[0];
goto T305;
T307:;
base[0]= (V121);
V132 = make_fixnum(V126);
base[1]= number_minus((V128),V132);
vs_top=(vs_base=base+0)+2;
siLpackage_external();
vs_top=sup;
V123= vs_base[0];
T305:;
T303:;
if(((V123))!=Cnil){
goto T313;}
goto T304;
T313:;
V122= car((V123));
V133= coerce_to_string((V122));
if(((*(LnkLI33))((V118),/* INLINE-ARGS */V133))==Cnil){
goto T318;}
V120= make_cons((V122),(V120));
T318:;
V123= cdr((V123));
goto T303;
T304:;
goto T301;
T301:;
V128= one_plus((V128));
goto T295;}}}
T277:;
{object V134;
base[0]= (V119);
vs_top=(vs_base=base+0)+1;
Lpackage_use_list();
vs_top=sup;
V134= vs_base[0];
T330:;
if(((V134))!=Cnil){
goto T331;}
goto T273;
T331:;
{object V135;
object V136;
object V137;
{object V138;
V138= car((V134));
base[0]= (V138);
vs_top=(vs_base=base+0)+1;
Lpackagep();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T339;}
V135= (V138);
goto T336;
T339:;
base[0]= coerce_to_string((V138));
vs_top=(vs_base=base+0)+1;
Lfind_package();
vs_top=sup;
V135= vs_base[0];}
T336:;
V136= Cnil;
V137= Cnil;
{int V139;
int V140;
base[0]= (V135);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk10)();
if(vs_base>=vs_top){vs_top=sup;goto T347;}
V139= fix(vs_base[0]);
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T348;}
V140= fix(vs_base[0]);
vs_top=sup;
goto T349;
T347:;
V139= fix(Cnil);
T348:;
V140= fix(Cnil);
T349:;
{object V141;
object V142;
{ save_avma;
V143 = stoi(V140);
V144 = stoi(V139);
V141= make_integer(addii(V143,V144));restore_avma;}
V142= small_fixnum(0);
T353:;
if(!(number_compare((V142),(V141))>=0)){
goto T354;}
V136= Cnil;
goto T335;
T354:;
V145 = make_fixnum(V140);
if(!(number_compare((V142),V145)<0)){
goto T365;}
base[0]= (V135);
base[1]= (V142);
vs_top=(vs_base=base+0)+2;
siLpackage_internal();
vs_top=sup;
V137= vs_base[0];
goto T363;
T365:;
base[0]= (V135);
V146 = make_fixnum(V140);
base[1]= number_minus((V142),V146);
vs_top=(vs_base=base+0)+2;
siLpackage_external();
vs_top=sup;
V137= vs_base[0];
T363:;
T361:;
if(((V137))!=Cnil){
goto T371;}
goto T362;
T371:;
V136= car((V137));
V147= coerce_to_string((V136));
if(((*(LnkLI33))((V118),/* INLINE-ARGS */V147))==Cnil){
goto T376;}
V120= make_cons((V136),(V120));
T376:;
V137= cdr((V137));
goto T361;
T362:;
goto T359;
T359:;
V142= one_plus((V142));
goto T353;}}}
T335:;
V134= cdr((V134));
goto T330;}
T275:;
{object V148;
object V149;
vs_base=vs_top;
Llist_all_packages();
vs_top=sup;
V148= vs_base[0];
V149= car((V148));
T391:;
if(!(endp((V148)))){
goto T392;}
goto T273;
T392:;
{object V150;
object V151;
object V152;
{object V153;
V153= (V149);
base[0]= (V153);
vs_top=(vs_base=base+0)+1;
Lpackagep();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T400;}
V150= (V153);
goto T397;
T400:;
base[0]= coerce_to_string((V153));
vs_top=(vs_base=base+0)+1;
Lfind_package();
vs_top=sup;
V150= vs_base[0];}
T397:;
V151= Cnil;
V152= Cnil;
{int V154;
int V155;
base[0]= (V150);
vs_top=(vs_base=base+0)+1;
(void) (*Lnk10)();
if(vs_base>=vs_top){vs_top=sup;goto T408;}
V154= fix(vs_base[0]);
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T409;}
V155= fix(vs_base[0]);
vs_top=sup;
goto T410;
T408:;
V154= fix(Cnil);
T409:;
V155= fix(Cnil);
T410:;
{object V156;
object V157;
{ save_avma;
V158 = stoi(V155);
V159 = stoi(V154);
V156= make_integer(addii(V158,V159));restore_avma;}
V157= small_fixnum(0);
T414:;
if(!(number_compare((V157),(V156))>=0)){
goto T415;}
V151= Cnil;
goto T396;
T415:;
V160 = make_fixnum(V155);
if(!(number_compare((V157),V160)<0)){
goto T426;}
base[0]= (V150);
base[1]= (V157);
vs_top=(vs_base=base+0)+2;
siLpackage_internal();
vs_top=sup;
V152= vs_base[0];
goto T424;
T426:;
base[0]= (V150);
V161 = make_fixnum(V155);
base[1]= number_minus((V157),V161);
vs_top=(vs_base=base+0)+2;
siLpackage_external();
vs_top=sup;
V152= vs_base[0];
T424:;
T422:;
if(((V152))!=Cnil){
goto T432;}
goto T423;
T432:;
V151= car((V152));
V162= coerce_to_string((V151));
if(((*(LnkLI33))((V118),/* INLINE-ARGS */V162))==Cnil){
goto T437;}
V120= make_cons((V151),(V120));
T437:;
V152= cdr((V152));
goto T422;
T423:;
goto T420;
T420:;
V157= one_plus((V157));
goto T414;}}}
T396:;
V148= cdr((V148));
V149= car((V148));
goto T391;}
T273:;
{object V163 = (V120);
VMR9(V163)}}}
}
static object LnkTLI34(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[34],&LnkLI34,1,ap);} /* PRINT-SYMBOL-APROPOS */
static object LnkTLI33(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[33],&LnkLI33,2,ap);} /* SUBSTRINGP */
static LnkT10(){ call_or_link(VV[10],&Lnk10);} /* PACKAGE-SIZE */
static LnkT32(){ call_or_link(VV[32],&Lnk32);} /* FIND-DECLARATIONS */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.