/[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.11 by camm, Mon Oct 28 16:54:04 2002 UTC revision 1.12 by camm, Tue Oct 29 01:33:39 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) (*Lnk61)();          (void) (*Lnk59)();
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) (*Lnk61)();          (void) (*Lnk59)();
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(((*(LnkLI62))((V86),/* INLINE-ARGS */V104))==Cnil){          if(((*(LnkLI60))((V86),/* INLINE-ARGS */V104))==Cnil){
585          goto T163;}          goto T163;}
586          (void)((*(LnkLI63))((V89)));          (void)((*(LnkLI61))((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(((*(LnkLI62))((V86),/* INLINE-ARGS */V112))==Cnil){          if(((*(LnkLI60))((V86),/* INLINE-ARGS */V112))==Cnil){
676          goto T214;}          goto T214;}
677          (void)((*(LnkLI63))((V107)));          (void)((*(LnkLI61))((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(((*(LnkLI62))((V86),/* INLINE-ARGS */V131))==Cnil){          if(((*(LnkLI60))((V86),/* INLINE-ARGS */V131))==Cnil){
834          goto T297;}          goto T297;}
835          (void)((*(LnkLI63))((V116)));          (void)((*(LnkLI61))((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(((*(LnkLI62))((V133),/* INLINE-ARGS */V152))==Cnil){          if(((*(LnkLI60))((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(((*(LnkLI62))((V133),/* INLINE-ARGS */V170))==Cnil){          if(((*(LnkLI60))((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(((*(LnkLI62))((V133),/* INLINE-ARGS */V189))==Cnil){          if(((*(LnkLI60))((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 1442  static void L10() Line 1442  static void L10()
1442          V201= Cnil;          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) (*Lnk61)();          (void) (*Lnk59)();
1446          if(vs_base<vs_top){          if(vs_base<vs_top){
1447          V201= vs_base[0];          V201= vs_base[0];
1448          vs_base++;          vs_base++;
# Line 1458  static void L10() Line 1458  static void L10()
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) (*Lnk64)();          (void) (*Lnk62)();
1462          vs_top=sup;          vs_top=sup;
1463  goto T595;  goto T595;
1464  T595:;  T595:;
# Line 1470  T595:; Line 1470  T595:;
1470          V207= list(2,(V198),small_fixnum(0));          V207= list(2,(V198),small_fixnum(0));
1471          V208= list(6,/* INLINE-ARGS */V203,/* INLINE-ARGS */V204,/* INLINE-ARGS */V205,/* INLINE-ARGS */V206,/* INLINE-ARGS */V207,list(2,(V199),small_fixnum(0)));          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          V209= list(2,VV[27],list(3,VV[13],(V195),list(2,VV[37],(V195))));          V209= list(2,VV[27],list(3,VV[13],(V195),list(2,VV[37],(V195))));
1473          V210= list(2,VV[51],(V194));          V210= list(2,VV[49],(V194));
1474          V211= list(3,VV[50],/* INLINE-ARGS */V210,list(3,VV[21],(V198),(V199)));          V211= list(3,VV[48],/* INLINE-ARGS */V210,list(3,VV[21],(V198),(V199)));
1475          V212= list(2,VV[27],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          V213= list(2,VV[27],list(3,VV[13],(V193),list(2,VV[37],(V193))));          V213= list(2,VV[27],list(3,VV[13],(V193),list(2,VV[37],(V193))));
1477          V214= list(3,VV[26],/* INLINE-ARGS */V213,list(3,VV[52],base[2],Cnil));          V214= list(3,VV[26],/* INLINE-ARGS */V213,list(3,VV[50],base[2],Cnil));
1478          V215= list(3,VV[53],(V193),list(2,VV[8],list(2,VV[29],(V193))));          V215= list(3,VV[51],(V193),list(2,VV[8],list(2,VV[29],(V193))));
1479          V216= list(3,VV[13],(V196),list(2,VV[46],list(2,VV[8],list(2,VV[29],(V193)))));          V216= list(3,VV[13],(V196),list(2,VV[46],list(2,VV[8],list(2,VV[29],(V193)))));
1480          V217= list(3,VV[54],VV[31],make_cons(VV[46],base[4]));          V217= list(3,VV[52],VV[31],make_cons(VV[46],base[4]));
1481          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))))));          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[53],(V196),list(2,VV[11],list(2,VV[29],(V196))))));
1482          V219= list(2,(V199),(V198));          V219= list(2,(V199),(V198));
1483          V220= list(3,VV[56],/* INLINE-ARGS */V219,list(2,VV[15],list(2,VV[29],(V196))));          V220= list(3,VV[54],/* INLINE-ARGS */V219,list(2,VV[15],list(2,VV[29],(V196))));
1484          V221= list(2,VV[18],list(3,VV[54],VV[6],make_cons(VV[46],base[4])));          V221= list(2,VV[18],list(3,VV[52],VV[6],make_cons(VV[46],base[4])));
1485          V222= list(2,VV[29],(V193));          V222= list(2,VV[29],(V193));
1486          V223= list(3,VV[30],/* INLINE-ARGS */V221,list(2,VV[18],list(3,VV[19],/* INLINE-ARGS */V222,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          V224= list(3,VV[26],/* INLINE-ARGS */V223,list(3,VV[13],(V198),small_fixnum(0)));          V224= list(3,VV[26],/* INLINE-ARGS */V223,list(3,VV[13],(V198),small_fixnum(0)));
1488          V225= list(2,VV[18],list(3,VV[54],VV[7],make_cons(VV[46],base[4])));          V225= list(2,VV[18],list(3,VV[52],VV[7],make_cons(VV[46],base[4])));
1489          V226= list(2,VV[29],(V193));          V226= list(2,VV[29],(V193));
1490          V227= list(3,VV[57],/* INLINE-ARGS */V225,list(3,VV[19],/* INLINE-ARGS */V226,list(2,VV[29],(V196))));          V227= list(3,VV[55],/* INLINE-ARGS */V225,list(3,VV[19],/* INLINE-ARGS */V226,list(2,VV[29],(V196))));
1491          V228= list(3,VV[26],/* INLINE-ARGS */V227,list(3,VV[13],(V199),small_fixnum(0)));          V228= list(3,VV[26],/* INLINE-ARGS */V227,list(3,VV[13],(V199),small_fixnum(0)));
1492          V229= list(2,VV[58],list(3,VV[21],(V198),(V199)));          V229= list(2,VV[56],list(3,VV[21],(V198),(V199)));
1493          V230= list(3,VV[13],(V194),small_fixnum(-1));          V230= list(3,VV[13],(V194),small_fixnum(-1));
1494          V231= list(4,VV[26],/* INLINE-ARGS */V229,/* INLINE-ARGS */V230,list(3,VV[52],base[2],make_cons(base[2],Cnil)));          V231= list(4,VV[26],/* INLINE-ARGS */V229,/* INLINE-ARGS */V230,list(3,VV[50],base[2],make_cons(base[2],Cnil)));
1495          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)));          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          V233= list(3,VV[22],(V194),(V198));          V233= list(3,VV[22],(V194),(V198));
1497          V234= list(3,VV[23],list(2,VV[29],(V196)),(V194));          V234= list(3,VV[23],list(2,VV[29],(V196)),(V194));
1498          V235= list(2,VV[29],(V196));          V235= list(2,VV[29],(V196));
1499          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))))));          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          V237= list(2,VV[27],(V195));          V237= list(2,VV[27],(V195));
1501          V238= list(3,VV[26],/* INLINE-ARGS */V237,list(3,VV[52],base[2],make_cons(base[2],Cnil)));          V238= list(3,VV[26],/* INLINE-ARGS */V237,list(3,VV[50],base[2],make_cons(base[2],Cnil)));
1502          V239= list(2,(V197),(V200));          V239= list(2,(V197),(V200));
1503          V240= list(2,VV[35],list(2,VV[29],(V195)));          V240= list(2,VV[35],list(2,VV[29],(V195)));
1504          V241= list(3,VV[56],/* INLINE-ARGS */V239,list(3,VV[34],/* INLINE-ARGS */V240,list(2,VV[29],(V193))));          V241= list(3,VV[54],/* INLINE-ARGS */V239,list(3,VV[34],/* INLINE-ARGS */V240,list(2,VV[29],(V193))));
1505          V242= list(2,VV[18],list(3,VV[19],(V200),VV[31]));          V242= list(2,VV[18],list(3,VV[19],(V200),VV[31]));
1506          V243= list(2,VV[29],(V193));          V243= list(2,VV[29],(V193));
1507          V244= list(3,VV[57],/* INLINE-ARGS */V242,list(2,VV[18],list(3,VV[19],/* INLINE-ARGS */V243,list(2,VV[29],(V196)))));          V244= list(3,VV[55],/* INLINE-ARGS */V242,list(2,VV[18],list(3,VV[19],/* INLINE-ARGS */V243,list(2,VV[29],(V196)))));
1508          V245= list(3,VV[26],/* INLINE-ARGS */V244,list(3,VV[52],base[2],make_cons(base[2],Cnil)));          V245= list(3,VV[26],/* INLINE-ARGS */V244,list(3,VV[50],base[2],make_cons(base[2],Cnil)));
1509          V246= list(2,VV[29],(V195));          V246= list(2,VV[29],(V195));
1510          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))))));          V247= list(7,base[2],Cnil,/* INLINE-ARGS */V236,/* INLINE-ARGS */V238,/* INLINE-ARGS */V241,/* INLINE-ARGS */V245,list(5,VV[57],VV[58],/* INLINE-ARGS */V246,(V200),list(2,VV[29],(V193))));
1511          V248= make_cons(/* INLINE-ARGS */V247,Cnil);          V248= make_cons(/* INLINE-ARGS */V247,Cnil);
1512          V249= list(2,VV[16],list(3,VV[17],(V198),(V199)));          V249= list(2,VV[16],list(3,VV[17],(V198),(V199)));
1513          base[6]= list(3,VV[1],/* INLINE-ARGS */V208,listA(4,VV[47],/* INLINE-ARGS */V248,/* INLINE-ARGS */V249,append((V201),base[5])));          base[6]= list(3,VV[1],/* INLINE-ARGS */V208,listA(4,VV[47],/* INLINE-ARGS */V248,/* INLINE-ARGS */V249,append((V201),base[5])));
1514          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1515          return;}          return;}
1516  }  }
1517  static void LnkT64(){ call_or_link(VV[64],(void **)&Lnk64);} /* SPECIFIC-ERROR */  static void LnkT62(){ call_or_link(VV[62],(void **)&Lnk62);} /* SPECIFIC-ERROR */
1518  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 */  static object  LnkTLI61(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[61],(void **)&LnkLI61,1,ap);va_end(ap);return V1;} /* PRINT-SYMBOL-APROPOS */
1519  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 */  static object  LnkTLI60(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[60],(void **)&LnkLI60,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 LnkT61(){ call_or_link(VV[61],(void **)&Lnk61);} /* FIND-DECLARATIONS */  static void LnkT59(){ call_or_link(VV[59],(void **)&Lnk59);} /* FIND-DECLARATIONS */
1522    
1523  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1524  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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