335 |
T123:; |
T123:; |
336 |
(void)(structure_set((V52),VV[0],2,Ct)); |
(void)(structure_set((V52),VV[0],2,Ct)); |
337 |
{long V61= fix(structure_ref((V52),VV[0],6)); |
{long V61= fix(structure_ref((V52),VV[0],6)); |
338 |
V62 = make_fixnum((1)+(/* INLINE-ARGS */V61)); |
V62 = make_fixnum((long)(1)+(/* INLINE-ARGS */V61)); |
339 |
(void)(structure_set((V52),VV[0],6,V62));} |
(void)(structure_set((V52),VV[0],6,V62));} |
340 |
goto T118; |
goto T118; |
341 |
T118:; |
T118:; |
1273 |
goto T556;} |
goto T556;} |
1274 |
goto T557; |
goto T557; |
1275 |
T557:; |
T557:; |
1276 |
V242 = make_fixnum(length((V238))); |
V242 = make_fixnum((long)length((V238))); |
1277 |
(void)((*(LnkLI98))(VV[50],small_fixnum(2),V242)); |
(void)((*(LnkLI98))(VV[50],small_fixnum(2),V242)); |
1278 |
goto T556; |
goto T556; |
1279 |
T556:; |
T556:; |
1610 |
return; |
return; |
1611 |
} |
} |
1612 |
} |
} |
1613 |
static object LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[69],(void **)&LnkLI69,1,ap);} /* REGISTER */ |
static object LnkTLI69(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[69],(void **)&LnkLI69,1,ap);va_end(ap);return V1;} /* REGISTER */ |
1614 |
static void LnkT114(){ call_or_link(VV[114],(void **)&Lnk114);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT114(){ call_or_link(VV[114],(void **)&Lnk114);} /* STRUCTURE-SUBTYPE-P */ |
1615 |
static object LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[42],(void **)&LnkLI42,3,ap);} /* SET-VAR */ |
static object LnkTLI42(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[42],(void **)&LnkLI42,3,ap);va_end(ap);return V1;} /* SET-VAR */ |
1616 |
static object LnkTLI113(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[113],(void **)&LnkLI113,1,ap);} /* REP-TYPE */ |
static object LnkTLI113(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[113],(void **)&LnkLI113,1,ap);va_end(ap);return V1;} /* REP-TYPE */ |
1617 |
static object LnkTLI112(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[112],(void **)&LnkLI112,2,ap);} /* ARGS-INFO-REFERRED-VARS */ |
static object LnkTLI112(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[112],(void **)&LnkLI112,2,ap);va_end(ap);return V1;} /* ARGS-INFO-REFERRED-VARS */ |
1618 |
static object LnkTLI111(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[111],(void **)&LnkLI111,2,ap);} /* ARGS-INFO-CHANGED-VARS */ |
static object LnkTLI111(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[111],(void **)&LnkLI111,2,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */ |
1619 |
static void LnkT110(){ call_or_link(VV[110],(void **)&Lnk110);} /* C2EXPR */ |
static void LnkT110(){ call_or_link(VV[110],(void **)&Lnk110);} /* C2EXPR */ |
1620 |
static object LnkTLI109(){return call_proc0(VV[109],(void **)&LnkLI109);} /* VS-PUSH */ |
static object LnkTLI109(){return call_proc0(VV[109],(void **)&LnkLI109);} /* VS-PUSH */ |
1621 |
static object LnkTLI108(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[108],(void **)&LnkLI108,2,ap);} /* C1PROGN* */ |
static object LnkTLI108(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[108],(void **)&LnkLI108,2,ap);va_end(ap);return V1;} /* C1PROGN* */ |
1622 |
static object LnkTLI107(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[107],(void **)&LnkLI107,2,ap);} /* C1EXPR* */ |
static object LnkTLI107(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[107],(void **)&LnkLI107,2,ap);va_end(ap);return V1;} /* C1EXPR* */ |
1623 |
static object LnkTLI106(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[106],(void **)&LnkLI106,1,ap);} /* C2LOCATION */ |
static object LnkTLI106(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[106],(void **)&LnkLI106,1,ap);va_end(ap);return V1;} /* C2LOCATION */ |
1624 |
static object LnkTLI104(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[104],(void **)&LnkLI104,1,ap);} /* C2EXPR* */ |
static object LnkTLI104(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[104],(void **)&LnkLI104,1,ap);va_end(ap);return V1;} /* C2EXPR* */ |
1625 |
static void LnkT103(){ call_or_link(VV[103],(void **)&Lnk103);} /* COPY-INFO */ |
static void LnkT103(){ call_or_link(VV[103],(void **)&Lnk103);} /* COPY-INFO */ |
1626 |
static object LnkTLI102(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[102],(void **)&LnkLI102,2,ap);} /* TYPE-AND */ |
static object LnkTLI102(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[102],(void **)&LnkLI102,2,ap);va_end(ap);return V1;} /* TYPE-AND */ |
1627 |
static object LnkTLI101(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[101],(void **)&LnkLI101,2,ap);} /* ADD-INFO */ |
static object LnkTLI101(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[101],(void **)&LnkLI101,2,ap);va_end(ap);return V1;} /* ADD-INFO */ |
1628 |
static object LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[100],(void **)&LnkLI100,1,ap);} /* C1EXPR */ |
static object LnkTLI100(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[100],(void **)&LnkLI100,1,ap);va_end(ap);return V1;} /* C1EXPR */ |
1629 |
static object LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[99],(void **)&LnkLI99,2,ap);} /* C1SETQ1 */ |
static object LnkTLI99(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[99],(void **)&LnkLI99,2,ap);va_end(ap);return V1;} /* C1SETQ1 */ |
1630 |
static object LnkTLI98(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[98],(void **)&LnkLI98,3,ap);} /* TOO-FEW-ARGS */ |
static object LnkTLI98(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[98],(void **)&LnkLI98,3,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */ |
1631 |
static object LnkTLI97(){return call_proc0(VV[97],(void **)&LnkLI97);} /* C1NIL */ |
static object LnkTLI97(){return call_proc0(VV[97],(void **)&LnkLI97);} /* C1NIL */ |
1632 |
static void LnkT96(){ call_or_link(VV[96],(void **)&Lnk96);} /* WT-LOC */ |
static void LnkT96(){ call_or_link(VV[96],(void **)&Lnk96);} /* WT-LOC */ |
1633 |
static void LnkT95(){ call_or_link(VV[95],(void **)&Lnk95);} /* WT-SHORT-FLOAT-LOC */ |
static void LnkT95(){ call_or_link(VV[95],(void **)&Lnk95);} /* WT-SHORT-FLOAT-LOC */ |
1639 |
static void LnkT89(){ call_or_link(VV[89],(void **)&Lnk89);} /* SAVE-AVMA */ |
static void LnkT89(){ call_or_link(VV[89],(void **)&Lnk89);} /* SAVE-AVMA */ |
1640 |
static void LnkT87(){ call_or_link(VV[87],(void **)&Lnk87);} /* WT-INLINE-LOC */ |
static void LnkT87(){ call_or_link(VV[87],(void **)&Lnk87);} /* WT-INLINE-LOC */ |
1641 |
static object LnkTLI85(){return call_proc0(VV[85],(void **)&LnkLI85);} /* BABOON */ |
static object LnkTLI85(){return call_proc0(VV[85],(void **)&LnkLI85);} /* BABOON */ |
1642 |
static object LnkTLI84(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[84],(void **)&LnkLI84,1,ap);} /* WT-DOWN */ |
static object LnkTLI84(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[84],(void **)&LnkLI84,1,ap);va_end(ap);return V1;} /* WT-DOWN */ |
1643 |
static object LnkTLI82(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[82],(void **)&LnkLI82,1,ap);} /* WT-VS */ |
static object LnkTLI82(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[82],(void **)&LnkLI82,1,ap);va_end(ap);return V1;} /* WT-VS */ |
1644 |
static object LnkTLI81(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[81],(void **)&LnkLI81,1,ap);} /* WT-VS* */ |
static object LnkTLI81(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[81],(void **)&LnkLI81,1,ap);va_end(ap);return V1;} /* WT-VS* */ |
1645 |
static object LnkTLI80(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[80],(void **)&LnkLI80,1,ap);} /* WT-CCB-VS */ |
static object LnkTLI80(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[80],(void **)&LnkLI80,1,ap);va_end(ap);return V1;} /* WT-CCB-VS */ |
1646 |
static object LnkTLI79(){return call_proc0(VV[79],(void **)&LnkLI79);} /* WFS-ERROR */ |
static object LnkTLI79(){return call_proc0(VV[79],(void **)&LnkLI79);} /* WFS-ERROR */ |
1647 |
static void LnkT78(){ call_or_link(VV[78],(void **)&Lnk78);} /* FIXNUMP */ |
static void LnkT78(){ call_or_link(VV[78],(void **)&Lnk78);} /* FIXNUMP */ |
1648 |
static object LnkTLI77(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[77],(void **)&LnkLI77,1,ap);} /* WT1 */ |
static object LnkTLI77(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[77],(void **)&LnkLI77,1,ap);va_end(ap);return V1;} /* WT1 */ |
1649 |
static object LnkTLI76(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[76],(void **)&LnkLI76,ap);} /* UNWIND-EXIT */ |
static object LnkTLI76(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[76],(void **)&LnkLI76,ap);va_end(ap);return V1;} /* UNWIND-EXIT */ |
1650 |
static object LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],(void **)&LnkLI75,2,ap);} /* TYPE>= */ |
static object LnkTLI75(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[75],(void **)&LnkLI75,2,ap);va_end(ap);return V1;} /* TYPE>= */ |
1651 |
static object LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[74],(void **)&LnkLI74,1,ap);} /* UNDEFINED-VARIABLE */ |
static object LnkTLI74(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[74],(void **)&LnkLI74,1,ap);va_end(ap);return V1;} /* UNDEFINED-VARIABLE */ |
1652 |
static object LnkTLI73(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[73],(void **)&LnkLI73,1,ap);} /* SCH-GLOBAL */ |
static object LnkTLI73(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[73],(void **)&LnkLI73,1,ap);va_end(ap);return V1;} /* SCH-GLOBAL */ |
1653 |
static object LnkTLI72(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[72],(void **)&LnkLI72,1,ap);} /* C1VREF */ |
static object LnkTLI72(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[72],(void **)&LnkLI72,1,ap);va_end(ap);return V1;} /* C1VREF */ |
1654 |
static object LnkTLI71(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[71],(void **)&LnkLI71,ap);} /* MAKE-INFO */ |
static object LnkTLI71(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[71],(void **)&LnkLI71,ap);va_end(ap);return V1;} /* MAKE-INFO */ |
1655 |
static object LnkTLI70(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[70],(void **)&LnkLI70,ap);} /* CMPWARN */ |
static object LnkTLI70(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[70],(void **)&LnkLI70,ap);va_end(ap);return V1;} /* CMPWARN */ |
1656 |
static object LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],(void **)&LnkLI68,1,ap);} /* ADD-SYMBOL */ |
static object LnkTLI68(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[68],(void **)&LnkLI68,1,ap);va_end(ap);return V1;} /* ADD-SYMBOL */ |
1657 |
static object LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[67],(void **)&LnkLI67,ap);} /* CMPERR */ |
static object LnkTLI67(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[67],(void **)&LnkLI67,ap);va_end(ap);return V1;} /* CMPERR */ |
1658 |
static object LnkTLI66(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[66],(void **)&LnkLI66,ap);} /* MAKE-VAR */ |
static object LnkTLI66(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[66],(void **)&LnkLI66,ap);va_end(ap);return V1;} /* MAKE-VAR */ |
1659 |
|
|
1660 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1661 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |