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

Diff of /gcl/lsp/packlib.c

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

revision 1.10 by camm, Thu Oct 24 22:10:45 2002 UTC revision 1.11 by camm, Mon Oct 28 16:54:04 2002 UTC
# Line 173  static void L3() Line 173  static void L3()
173          V26= Cnil;          V26= Cnil;
174          base[6]= base[5];          base[6]= base[5];
175          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
176          (void) (*Lnk62)();          (void) (*Lnk61)();
177          if(vs_base<vs_top){          if(vs_base<vs_top){
178          V26= vs_base[0];          V26= vs_base[0];
179          vs_base++;          vs_base++;
# Line 265  static void L4() Line 265  static void L4()
265          V55= Cnil;          V55= Cnil;
266          base[6]= base[5];          base[6]= base[5];
267          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
268          (void) (*Lnk62)();          (void) (*Lnk61)();
269          if(vs_base<vs_top){          if(vs_base<vs_top){
270          V55= vs_base[0];          V55= vs_base[0];
271          vs_base++;          vs_base++;
# Line 581  T148:; Line 581  T148:;
581  goto T154;  goto T154;
582  T154:;  T154:;
583          V104= coerce_to_string((V89));          V104= coerce_to_string((V89));
584          if(((*(LnkLI63))((V86),/* INLINE-ARGS */V104))==Cnil){          if(((*(LnkLI62))((V86),/* INLINE-ARGS */V104))==Cnil){
585          goto T163;}          goto T163;}
586          (void)((*(LnkLI64))((V89)));          (void)((*(LnkLI63))((V89)));
587  goto T163;  goto T163;
588  T163:;  T163:;
589  goto T153;  goto T153;
# Line 672  goto T209; Line 672  goto T209;
672  T209:;  T209:;
673          V107= car((V108));          V107= car((V108));
674          V112= coerce_to_string((V107));          V112= coerce_to_string((V107));
675          if(((*(LnkLI63))((V86),/* INLINE-ARGS */V112))==Cnil){          if(((*(LnkLI62))((V86),/* INLINE-ARGS */V112))==Cnil){
676          goto T214;}          goto T214;}
677          (void)((*(LnkLI64))((V107)));          (void)((*(LnkLI63))((V107)));
678  goto T214;  goto T214;
679  T214:;  T214:;
680          V108= cdr((V108));          V108= cdr((V108));
# Line 830  T281:; Line 830  T281:;
830  goto T287;  goto T287;
831  T287:;  T287:;
832          V131= coerce_to_string((V116));          V131= coerce_to_string((V116));
833          if(((*(LnkLI63))((V86),/* INLINE-ARGS */V131))==Cnil){          if(((*(LnkLI62))((V86),/* INLINE-ARGS */V131))==Cnil){
834          goto T297;}          goto T297;}
835          (void)((*(LnkLI64))((V116)));          (void)((*(LnkLI63))((V116)));
836  goto T297;  goto T297;
837  T297:;  T297:;
838  goto T286;  goto T286;
# Line 1017  T375:; Line 1017  T375:;
1017  goto T381;  goto T381;
1018  T381:;  T381:;
1019          V152= coerce_to_string((V137));          V152= coerce_to_string((V137));
1020          if(((*(LnkLI63))((V133),/* INLINE-ARGS */V152))==Cnil){          if(((*(LnkLI62))((V133),/* INLINE-ARGS */V152))==Cnil){
1021          goto T390;}          goto T390;}
1022          V135= make_cons((V137),(V135));          V135= make_cons((V137),(V135));
1023  goto T390;  goto T390;
# Line 1179  T461:; Line 1179  T461:;
1179  goto T467;  goto T467;
1180  T467:;  T467:;
1181          V170= coerce_to_string((V155));          V170= coerce_to_string((V155));
1182          if(((*(LnkLI63))((V133),/* INLINE-ARGS */V170))==Cnil){          if(((*(LnkLI62))((V133),/* INLINE-ARGS */V170))==Cnil){
1183          goto T476;}          goto T476;}
1184          V135= make_cons((V155),(V135));          V135= make_cons((V155),(V135));
1185  goto T476;  goto T476;
# Line 1344  T549:; Line 1344  T549:;
1344  goto T555;  goto T555;
1345  T555:;  T555:;
1346          V189= coerce_to_string((V174));          V189= coerce_to_string((V174));
1347          if(((*(LnkLI63))((V133),/* INLINE-ARGS */V189))==Cnil){          if(((*(LnkLI62))((V133),/* INLINE-ARGS */V189))==Cnil){
1348          goto T565;}          goto T565;}
1349          V135= make_cons((V174),(V135));          V135= make_cons((V174),(V135));
1350  goto T565;  goto T565;
# Line 1402  static void L10() Line 1402  static void L10()
1402          register object V194;          register object V194;
1403          register object V195;          register object V195;
1404          register object V196;          register object V196;
1405          register object V197;          object V197;
1406          register object V198;          register object V198;
1407          object V199;          register object V199;
1408          object V200;          object V200;
1409            object V201;
1410          vs_base=vs_top;          vs_base=vs_top;
1411          Lgensym();          Lgensym();
1412          vs_top=sup;          vs_top=sup;
# Line 1434  static void L10() Line 1435  static void L10()
1435          Lgensym();          Lgensym();
1436          vs_top=sup;          vs_top=sup;
1437          V199= vs_base[0];          V199= vs_base[0];
1438          V200= Cnil;          vs_base=vs_top;
1439            Lgensym();
1440            vs_top=sup;
1441            V200= vs_base[0];
1442            V201= Cnil;
1443          base[6]= base[5];          base[6]= base[5];
1444          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1445          (void) (*Lnk62)();          (void) (*Lnk61)();
1446          if(vs_base<vs_top){          if(vs_base<vs_top){
1447          V200= vs_base[0];          V201= vs_base[0];
1448          vs_base++;          vs_base++;
1449          }else{          }else{
1450          V200= Cnil;}          V201= Cnil;}
1451          if(vs_base<vs_top){          if(vs_base<vs_top){
1452          base[5]= vs_base[0];          base[5]= vs_base[0];
1453          }else{          }else{
1454          base[5]= Cnil;}          base[5]= Cnil;}
1455          vs_top=sup;          vs_top=sup;
1456          if((base[4])!=Cnil){          if((base[4])!=Cnil){
1457          goto T594;}          goto T595;}
1458          base[6]= VV[43];          base[6]= VV[43];
1459          base[7]= VV[44];          base[7]= VV[44];
1460          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
1461          (void) (*Lnk65)();          (void) (*Lnk64)();
1462          vs_top=sup;          vs_top=sup;
1463  goto T594;  goto T595;
1464  T594:;  T595:;
1465          V201= list(2,(V193),Cnil);          V202= list(2,VV[45],base[3]);
1466          V202= list(2,(V196),Cnil);          V203= list(2,(V193),list(3,VV[10],Ct,list(4,VV[2],/* INLINE-ARGS */V202,list(2,VV[46],base[3]),base[3])));
1467          V203= list(2,(V195),Cnil);          V204= list(2,(V196),Cnil);
1468          V204= list(2,(V194),small_fixnum(-1));          V205= list(2,(V195),Cnil);
1469          V205= list(2,(V197),small_fixnum(0));          V206= list(2,(V194),small_fixnum(-1));
1470          V206= list(6,/* INLINE-ARGS */V201,/* INLINE-ARGS */V202,/* INLINE-ARGS */V203,/* INLINE-ARGS */V204,/* INLINE-ARGS */V205,list(2,(V198),small_fixnum(0)));          V207= list(2,(V198),small_fixnum(0));
1471          V207= list(3,VV[13],(V195),list(2,VV[37],(V195)));          V208= list(6,/* INLINE-ARGS */V203,/* INLINE-ARGS */V204,/* INLINE-ARGS */V205,/* INLINE-ARGS */V206,/* INLINE-ARGS */V207,list(2,(V199),small_fixnum(0)));
1472          V208= list(2,VV[27],(V195));          V209= list(2,VV[27],list(3,VV[13],(V195),list(2,VV[37],(V195))));
1473          V209= list(3,VV[13],(V194),list(2,VV[48],(V194)));          V210= list(2,VV[51],(V194));
1474          V210= list(3,VV[49],(V194),list(3,VV[21],(V197),(V198)));          V211= list(3,VV[50],/* INLINE-ARGS */V210,list(3,VV[21],(V198),(V199)));
1475          V211= list(3,VV[13],(V196),list(2,VV[37],(V196)));          V212= list(2,VV[27],list(3,VV[13],(V196),list(2,VV[37],(V196))));
1476          V212= list(2,VV[27],(V196));          V213= list(2,VV[27],list(3,VV[13],(V193),list(2,VV[37],(V193))));
1477          V213= list(2,VV[27],(V193));          V214= list(3,VV[26],/* INLINE-ARGS */V213,list(3,VV[52],base[2],Cnil));
1478          V214= list(2,VV[50],base[3]);          V215= list(3,VV[53],(V193),list(2,VV[8],list(2,VV[29],(V193))));
1479          V215= list(3,VV[13],(V193),list(4,VV[2],/* INLINE-ARGS */V214,list(2,VV[51],base[3]),base[3]));          V216= list(3,VV[13],(V196),list(2,VV[46],list(2,VV[8],list(2,VV[29],(V193)))));
1480          V216= list(4,VV[2],/* INLINE-ARGS */V213,/* INLINE-ARGS */V215,list(3,VV[13],(V193),list(2,VV[37],(V193))));          V217= list(3,VV[54],VV[31],make_cons(VV[46],base[4]));
1481          V217= list(2,VV[27],(V193));          V218= list(6,VV[26],/* INLINE-ARGS */V212,/* INLINE-ARGS */V214,/* INLINE-ARGS */V215,/* INLINE-ARGS */V216,list(3,VV[26],/* INLINE-ARGS */V217,list(3,VV[55],(V196),list(2,VV[11],list(2,VV[29],(V196))))));
1482          V218= list(3,VV[2],/* INLINE-ARGS */V217,list(3,VV[52],base[2],Cnil));          V219= list(2,(V199),(V198));
1483          V219= list(3,VV[53],(V193),list(2,VV[8],list(2,VV[29],(V193))));          V220= list(3,VV[56],/* INLINE-ARGS */V219,list(2,VV[15],list(2,VV[29],(V196))));
1484          V220= list(3,VV[13],(V196),list(2,VV[51],list(2,VV[8],list(2,VV[29],(V193)))));          V221= list(2,VV[18],list(3,VV[54],VV[6],make_cons(VV[46],base[4])));
1485          V221= list(3,VV[54],VV[31],make_cons(VV[51],base[4]));          V222= list(2,VV[29],(V193));
1486          V222= list(3,VV[2],/* INLINE-ARGS */V212,list(6,VV[12],/* INLINE-ARGS */V216,/* INLINE-ARGS */V218,/* INLINE-ARGS */V219,/* INLINE-ARGS */V220,list(3,VV[2],/* INLINE-ARGS */V221,list(3,VV[55],(V196),list(2,VV[11],list(2,VV[29],(V196)))))));          V223= list(3,VV[30],/* INLINE-ARGS */V221,list(2,VV[18],list(3,VV[19],/* INLINE-ARGS */V222,list(2,VV[29],(V196)))));
1487          V223= list(3,VV[13],(V197),list(2,VV[33],list(2,VV[15],list(2,VV[29],(V196)))));          V224= list(3,VV[26],/* INLINE-ARGS */V223,list(3,VV[13],(V198),small_fixnum(0)));
1488          V224= list(3,VV[13],(V198),list(2,VV[56],(V197)));          V225= list(2,VV[18],list(3,VV[54],VV[7],make_cons(VV[46],base[4])));
1489          V225= list(3,VV[13],(V197),list(2,VV[57],(V197)));          V226= list(2,VV[29],(V193));
1490          V226= list(2,VV[18],list(3,VV[54],VV[6],make_cons(VV[51],base[4])));          V227= list(3,VV[57],/* INLINE-ARGS */V225,list(3,VV[19],/* INLINE-ARGS */V226,list(2,VV[29],(V196))));
1491          V227= list(2,VV[29],(V193));          V228= list(3,VV[26],/* INLINE-ARGS */V227,list(3,VV[13],(V199),small_fixnum(0)));
1492          V228= list(3,VV[30],/* INLINE-ARGS */V226,list(2,VV[18],list(3,VV[19],/* INLINE-ARGS */V227,list(2,VV[29],(V196)))));          V229= list(2,VV[58],list(3,VV[21],(V198),(V199)));
1493          V229= list(3,VV[2],/* INLINE-ARGS */V228,list(3,VV[13],(V197),small_fixnum(0)));          V230= list(3,VV[13],(V194),small_fixnum(-1));
1494          V230= list(2,VV[18],list(3,VV[54],VV[7],make_cons(VV[51],base[4])));          V231= list(4,VV[26],/* INLINE-ARGS */V229,/* INLINE-ARGS */V230,list(3,VV[52],base[2],make_cons(base[2],Cnil)));
1495          V231= list(2,VV[29],(V193));          V232= list(8,VV[26],/* INLINE-ARGS */V211,/* INLINE-ARGS */V218,/* INLINE-ARGS */V220,/* INLINE-ARGS */V224,/* INLINE-ARGS */V228,/* INLINE-ARGS */V231,list(3,VV[13],(V194),small_fixnum(0)));
1496          V232= list(3,VV[58],/* INLINE-ARGS */V230,list(3,VV[19],/* INLINE-ARGS */V231,list(2,VV[29],(V196))));          V233= list(3,VV[22],(V194),(V198));
1497          V233= list(3,VV[2],/* INLINE-ARGS */V232,list(3,VV[13],(V198),small_fixnum(0)));          V234= list(3,VV[23],list(2,VV[29],(V196)),(V194));
1498          V234= list(2,VV[59],list(3,VV[21],(V197),(V198)));          V235= list(2,VV[29],(V196));
1499          V235= list(3,VV[13],(V194),small_fixnum(-1));          V236= list(4,VV[26],/* INLINE-ARGS */V209,/* INLINE-ARGS */V232,list(3,VV[13],(V195),list(4,VV[2],/* INLINE-ARGS */V233,/* INLINE-ARGS */V234,list(3,VV[24],/* INLINE-ARGS */V235,list(3,VV[25],(V194),(V198))))));
1500          V236= list(3,VV[12],/* INLINE-ARGS */V235,list(3,VV[52],base[2],make_cons(base[2],Cnil)));          V237= list(2,VV[27],(V195));
1501          V237= list(3,VV[2],/* INLINE-ARGS */V210,list(9,VV[12],/* INLINE-ARGS */V211,/* INLINE-ARGS */V222,/* INLINE-ARGS */V223,/* INLINE-ARGS */V224,/* INLINE-ARGS */V225,/* INLINE-ARGS */V229,/* INLINE-ARGS */V233,list(4,VV[2],/* INLINE-ARGS */V234,/* INLINE-ARGS */V236,list(3,VV[13],(V194),small_fixnum(0)))));          V238= list(3,VV[26],/* INLINE-ARGS */V237,list(3,VV[52],base[2],make_cons(base[2],Cnil)));
1502          V238= list(3,VV[22],(V194),(V197));          V239= list(2,(V197),(V200));
1503          V239= list(3,VV[23],list(2,VV[29],(V196)),(V194));          V240= list(2,VV[35],list(2,VV[29],(V195)));
1504          V240= list(2,VV[29],(V196));          V241= list(3,VV[56],/* INLINE-ARGS */V239,list(3,VV[34],/* INLINE-ARGS */V240,list(2,VV[29],(V193))));
1505          V241= list(3,VV[2],/* INLINE-ARGS */V208,list(4,VV[12],/* INLINE-ARGS */V209,/* INLINE-ARGS */V237,list(3,VV[13],(V195),list(4,VV[2],/* INLINE-ARGS */V238,/* INLINE-ARGS */V239,list(3,VV[24],/* INLINE-ARGS */V240,list(3,VV[25],(V194),(V197)))))));          V242= list(2,VV[18],list(3,VV[19],(V200),VV[31]));
1506          V242= list(2,VV[27],(V195));          V243= list(2,VV[29],(V193));
1507          V243= list(3,VV[2],/* INLINE-ARGS */V242,list(3,VV[52],base[2],make_cons(base[2],Cnil)));          V244= list(3,VV[57],/* INLINE-ARGS */V242,list(2,VV[18],list(3,VV[19],/* INLINE-ARGS */V243,list(2,VV[29],(V196)))));
1508          V244= list(2,VV[35],list(2,VV[29],(V195)));          V245= list(3,VV[26],/* INLINE-ARGS */V244,list(3,VV[52],base[2],make_cons(base[2],Cnil)));
1509          V245= list(3,VV[13],(V199),list(2,VV[57],list(2,VV[33],list(3,VV[34],/* INLINE-ARGS */V244,list(2,VV[29],(V193))))));          V246= list(2,VV[29],(V195));
1510          V246= list(2,VV[18],list(3,VV[19],(V199),VV[31]));          V247= list(3,base[2],Cnil,list(2,VV[48],list(7,VV[49],base[2],/* INLINE-ARGS */V236,/* INLINE-ARGS */V238,/* INLINE-ARGS */V241,/* INLINE-ARGS */V245,list(5,VV[59],VV[60],/* INLINE-ARGS */V246,(V200),list(2,VV[29],(V193))))));
1511          V247= list(2,VV[29],(V193));          V248= make_cons(/* INLINE-ARGS */V247,Cnil);
1512          V248= list(3,VV[58],/* INLINE-ARGS */V246,list(2,VV[18],list(3,VV[19],/* INLINE-ARGS */V247,list(2,VV[29],(V196)))));          V249= list(2,VV[16],list(3,VV[17],(V198),(V199)));
1513          V249= list(3,VV[2],/* INLINE-ARGS */V248,list(3,VV[52],base[2],make_cons(base[2],Cnil)));          base[6]= list(3,VV[1],/* INLINE-ARGS */V208,listA(4,VV[47],/* INLINE-ARGS */V248,/* INLINE-ARGS */V249,append((V201),base[5])));
         V250= list(2,VV[29],(V195));  
         V251= list(3,base[2],Cnil,list(2,VV[46],list(8,VV[47],base[2],/* INLINE-ARGS */V207,/* INLINE-ARGS */V241,/* INLINE-ARGS */V243,/* INLINE-ARGS */V245,/* INLINE-ARGS */V249,list(5,VV[60],VV[61],/* INLINE-ARGS */V250,(V199),list(2,VV[29],(V193))))));  
         V252= make_cons(/* INLINE-ARGS */V251,Cnil);  
         V253= list(2,VV[16],list(3,VV[17],(V197),(V198)));  
         base[6]= list(3,VV[1],/* INLINE-ARGS */V206,listA(4,VV[45],/* INLINE-ARGS */V252,/* INLINE-ARGS */V253,append((V200),base[5])));  
1514          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1515          return;}          return;}
1516  }  }
1517  static void LnkT65(){ call_or_link(VV[65],(void **)&Lnk65);} /* SPECIFIC-ERROR */  static void LnkT64(){ call_or_link(VV[64],(void **)&Lnk64);} /* SPECIFIC-ERROR */
1518  static object  LnkTLI64(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[64],(void **)&LnkLI64,1,ap);va_end(ap);return V1;} /* PRINT-SYMBOL-APROPOS */  static object  LnkTLI63(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[63],(void **)&LnkLI63,1,ap);va_end(ap);return V1;} /* PRINT-SYMBOL-APROPOS */
1519  static object  LnkTLI63(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[63],(void **)&LnkLI63,2,ap);va_end(ap);return V1;} /* SUBSTRINGP */  static object  LnkTLI62(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[62],(void **)&LnkLI62,2,ap);va_end(ap);return V1;} /* SUBSTRINGP */
1520  static void LnkT15(){ call_or_link(VV[15],(void **)&Lnk15);} /* PACKAGE-SIZE */  static void LnkT15(){ call_or_link(VV[15],(void **)&Lnk15);} /* PACKAGE-SIZE */
1521  static void LnkT62(){ call_or_link(VV[62],(void **)&Lnk62);} /* FIND-DECLARATIONS */  static void LnkT61(){ call_or_link(VV[61],(void **)&Lnk61);} /* FIND-DECLARATIONS */
1522    
1523  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1524  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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