/[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.9 by camm, Wed Oct 23 00:16:08 2002 UTC revision 1.10 by camm, Thu Oct 24 22:10:45 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) (*Lnk46)();          (void) (*Lnk62)();
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) (*Lnk46)();          (void) (*Lnk62)();
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(((*(LnkLI47))((V86),/* INLINE-ARGS */V104))==Cnil){          if(((*(LnkLI63))((V86),/* INLINE-ARGS */V104))==Cnil){
585          goto T163;}          goto T163;}
586          (void)((*(LnkLI48))((V89)));          (void)((*(LnkLI64))((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(((*(LnkLI47))((V86),/* INLINE-ARGS */V112))==Cnil){          if(((*(LnkLI63))((V86),/* INLINE-ARGS */V112))==Cnil){
676          goto T214;}          goto T214;}
677          (void)((*(LnkLI48))((V107)));          (void)((*(LnkLI64))((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(((*(LnkLI47))((V86),/* INLINE-ARGS */V131))==Cnil){          if(((*(LnkLI63))((V86),/* INLINE-ARGS */V131))==Cnil){
834          goto T297;}          goto T297;}
835          (void)((*(LnkLI48))((V116)));          (void)((*(LnkLI64))((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(((*(LnkLI47))((V133),/* INLINE-ARGS */V152))==Cnil){          if(((*(LnkLI63))((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(((*(LnkLI47))((V133),/* INLINE-ARGS */V170))==Cnil){          if(((*(LnkLI63))((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(((*(LnkLI47))((V133),/* INLINE-ARGS */V189))==Cnil){          if(((*(LnkLI63))((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 1398  static void L10() Line 1398  static void L10()
1398          base[4]= V192;}          base[4]= V192;}
1399          V191=V191->c.c_cdr;          V191=V191->c.c_cdr;
1400          base[5]= V191;}          base[5]= V191;}
1401          {object V193;          {register object V193;
1402          object V194;          register object V194;
1403          object V195;          register object V195;
1404          object V196;          register object V196;
1405          object V197;          register object V197;
1406          object V198;          register object V198;
1407          object V199;          object V199;
1408            object V200;
1409          vs_base=vs_top;          vs_base=vs_top;
1410          Lgensym();          Lgensym();
1411          vs_top=sup;          vs_top=sup;
# Line 1429  static void L10() Line 1430  static void L10()
1430          Lgensym();          Lgensym();
1431          vs_top=sup;          vs_top=sup;
1432          V198= vs_base[0];          V198= vs_base[0];
1433          V199= Cnil;          vs_base=vs_top;
1434            Lgensym();
1435            vs_top=sup;
1436            V199= vs_base[0];
1437            V200= Cnil;
1438          base[6]= base[5];          base[6]= base[5];
1439          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1440          (void) (*Lnk46)();          (void) (*Lnk62)();
1441          if(vs_base<vs_top){          if(vs_base<vs_top){
1442          V199= vs_base[0];          V200= vs_base[0];
1443          vs_base++;          vs_base++;
1444          }else{          }else{
1445          V199= Cnil;}          V200= Cnil;}
1446          if(vs_base<vs_top){          if(vs_base<vs_top){
1447          base[5]= vs_base[0];          base[5]= vs_base[0];
1448          }else{          }else{
1449          base[5]= Cnil;}          base[5]= Cnil;}
1450          vs_top=sup;          vs_top=sup;
1451          V200= list(2,VV[43],base[3]);          if((base[4])!=Cnil){
1452          V201= list(2,(V193),list(4,VV[2],/* INLINE-ARGS */V200,list(2,VV[44],base[3]),base[3]));          goto T594;}
1453            base[6]= VV[43];
1454            base[7]= VV[44];
1455            vs_top=(vs_base=base+6)+2;
1456            (void) (*Lnk65)();
1457            vs_top=sup;
1458    goto T594;
1459    T594:;
1460            V201= list(2,(V193),Cnil);
1461          V202= list(2,(V196),Cnil);          V202= list(2,(V196),Cnil);
1462          V203= list(2,(V194),small_fixnum(-1));          V203= list(2,(V195),Cnil);
1463          V204= list(2,(V197),small_fixnum(0));          V204= list(2,(V194),small_fixnum(-1));
1464          V205= list(5,/* INLINE-ARGS */V201,/* INLINE-ARGS */V202,/* INLINE-ARGS */V203,/* INLINE-ARGS */V204,list(2,(V198),small_fixnum(0)));          V205= list(2,(V197),small_fixnum(0));
1465          V206= list(2,VV[16],list(3,VV[17],(V197),(V198)));          V206= list(6,/* INLINE-ARGS */V201,/* INLINE-ARGS */V202,/* INLINE-ARGS */V203,/* INLINE-ARGS */V204,/* INLINE-ARGS */V205,list(2,(V198),small_fixnum(0)));
1466          V207= make_cons(VV[45],base[5]);          V207= list(3,VV[13],(V195),list(2,VV[37],(V195)));
1467          V208= make_cons(/* INLINE-ARGS */V207,Cnil);          V208= list(2,VV[27],(V195));
1468          base[6]= listA(4,VV[1],/* INLINE-ARGS */V205,/* INLINE-ARGS */V206,append((V199),/* INLINE-ARGS */V208));          V209= list(3,VV[13],(V194),list(2,VV[48],(V194)));
1469            V210= list(3,VV[49],(V194),list(3,VV[21],(V197),(V198)));
1470            V211= list(3,VV[13],(V196),list(2,VV[37],(V196)));
1471            V212= list(2,VV[27],(V196));
1472            V213= list(2,VV[27],(V193));
1473            V214= list(2,VV[50],base[3]);
1474            V215= list(3,VV[13],(V193),list(4,VV[2],/* INLINE-ARGS */V214,list(2,VV[51],base[3]),base[3]));
1475            V216= list(4,VV[2],/* INLINE-ARGS */V213,/* INLINE-ARGS */V215,list(3,VV[13],(V193),list(2,VV[37],(V193))));
1476            V217= list(2,VV[27],(V193));
1477            V218= list(3,VV[2],/* INLINE-ARGS */V217,list(3,VV[52],base[2],Cnil));
1478            V219= list(3,VV[53],(V193),list(2,VV[8],list(2,VV[29],(V193))));
1479            V220= list(3,VV[13],(V196),list(2,VV[51],list(2,VV[8],list(2,VV[29],(V193)))));
1480            V221= list(3,VV[54],VV[31],make_cons(VV[51],base[4]));
1481            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)))))));
1482            V223= list(3,VV[13],(V197),list(2,VV[33],list(2,VV[15],list(2,VV[29],(V196)))));
1483            V224= list(3,VV[13],(V198),list(2,VV[56],(V197)));
1484            V225= list(3,VV[13],(V197),list(2,VV[57],(V197)));
1485            V226= list(2,VV[18],list(3,VV[54],VV[6],make_cons(VV[51],base[4])));
1486            V227= list(2,VV[29],(V193));
1487            V228= list(3,VV[30],/* INLINE-ARGS */V226,list(2,VV[18],list(3,VV[19],/* INLINE-ARGS */V227,list(2,VV[29],(V196)))));
1488            V229= list(3,VV[2],/* INLINE-ARGS */V228,list(3,VV[13],(V197),small_fixnum(0)));
1489            V230= list(2,VV[18],list(3,VV[54],VV[7],make_cons(VV[51],base[4])));
1490            V231= list(2,VV[29],(V193));
1491            V232= list(3,VV[58],/* INLINE-ARGS */V230,list(3,VV[19],/* INLINE-ARGS */V231,list(2,VV[29],(V196))));
1492            V233= list(3,VV[2],/* INLINE-ARGS */V232,list(3,VV[13],(V198),small_fixnum(0)));
1493            V234= list(2,VV[59],list(3,VV[21],(V197),(V198)));
1494            V235= list(3,VV[13],(V194),small_fixnum(-1));
1495            V236= list(3,VV[12],/* INLINE-ARGS */V235,list(3,VV[52],base[2],make_cons(base[2],Cnil)));
1496            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)))));
1497            V238= list(3,VV[22],(V194),(V197));
1498            V239= list(3,VV[23],list(2,VV[29],(V196)),(V194));
1499            V240= list(2,VV[29],(V196));
1500            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)))))));
1501            V242= list(2,VV[27],(V195));
1502            V243= list(3,VV[2],/* INLINE-ARGS */V242,list(3,VV[52],base[2],make_cons(base[2],Cnil)));
1503            V244= list(2,VV[35],list(2,VV[29],(V195)));
1504            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))))));
1505            V246= list(2,VV[18],list(3,VV[19],(V199),VV[31]));
1506            V247= list(2,VV[29],(V193));
1507            V248= list(3,VV[58],/* INLINE-ARGS */V246,list(2,VV[18],list(3,VV[19],/* INLINE-ARGS */V247,list(2,VV[29],(V196)))));
1508            V249= list(3,VV[2],/* INLINE-ARGS */V248,list(3,VV[52],base[2],make_cons(base[2],Cnil)));
1509            V250= list(2,VV[29],(V195));
1510            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))))));
1511            V252= make_cons(/* INLINE-ARGS */V251,Cnil);
1512            V253= list(2,VV[16],list(3,VV[17],(V197),(V198)));
1513            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 object  LnkTLI48(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[48],(void **)&LnkLI48,1,ap);va_end(ap);return V1;} /* PRINT-SYMBOL-APROPOS */  static void LnkT65(){ call_or_link(VV[65],(void **)&Lnk65);} /* SPECIFIC-ERROR */
1518  static object  LnkTLI47(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[47],(void **)&LnkLI47,2,ap);va_end(ap);return V1;} /* SUBSTRINGP */  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 */
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 */
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 LnkT46(){ call_or_link(VV[46],(void **)&Lnk46);} /* FIND-DECLARATIONS */  static void LnkT62(){ call_or_link(VV[62],(void **)&Lnk62);} /* FIND-DECLARATIONS */
1522    
1523  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1524  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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