20 |
goto T3;} |
goto T3;} |
21 |
goto T4; |
goto T4; |
22 |
T4:; |
T4:; |
23 |
V5 = make_fixnum(length((V2))); |
V5 = make_fixnum((long)length((V2))); |
24 |
(void)((*(LnkLI43))(VV[0],small_fixnum(2),V5)); |
(void)((*(LnkLI43))(VV[0],small_fixnum(2),V5)); |
25 |
goto T3; |
goto T3; |
26 |
T3:; |
T3:; |
28 |
goto T8;} |
goto T8;} |
29 |
if(endp(cdddr((V2)))){ |
if(endp(cdddr((V2)))){ |
30 |
goto T8;} |
goto T8;} |
31 |
V6 = make_fixnum(length((V2))); |
V6 = make_fixnum((long)length((V2))); |
32 |
(void)((*(LnkLI44))(VV[0],small_fixnum(3),V6)); |
(void)((*(LnkLI44))(VV[0],small_fixnum(3),V6)); |
33 |
goto T8; |
goto T8; |
34 |
T8:; |
T8:; |
160 |
T69:; |
T69:; |
161 |
if(endp(cddr((V16)))){ |
if(endp(cddr((V16)))){ |
162 |
goto T72;} |
goto T72;} |
163 |
V31 = make_fixnum(length(cdr((V16)))); |
V31 = make_fixnum((long)length(cdr((V16)))); |
164 |
(void)((*(LnkLI44))(VV[3],small_fixnum(1),V31)); |
(void)((*(LnkLI44))(VV[3],small_fixnum(1),V31)); |
165 |
goto T72; |
goto T72; |
166 |
T72:; |
T72:; |
226 |
if(!(type_of((V43))==t_cons)){ |
if(!(type_of((V43))==t_cons)){ |
227 |
goto T91;} |
goto T91;} |
228 |
{object V45= car((V43)); |
{object V45= car((V43)); |
229 |
if((V45!= VV[1]))goto T93;switch(length(cdr((V43)))){ |
if((V45!= VV[1]))goto T93;switch((long)length(cdr((V43)))){ |
230 |
case 0: |
case 0: |
231 |
goto T95; |
goto T95; |
232 |
T95:; |
T95:; |
266 |
VMR3(V53)} |
VMR3(V53)} |
267 |
goto T93; |
goto T93; |
268 |
T93:; |
T93:; |
269 |
if((V45!= VV[2]))goto T105;switch(length(cdr((V43)))){ |
if((V45!= VV[2]))goto T105;switch((long)length(cdr((V43)))){ |
270 |
case 0: |
case 0: |
271 |
goto T107; |
goto T107; |
272 |
T107:; |
T107:; |
315 |
T118:; |
T118:; |
316 |
if(endp(cddr((V43)))){ |
if(endp(cddr((V43)))){ |
317 |
goto T121;} |
goto T121;} |
318 |
V62 = make_fixnum(length(cdr((V43)))); |
V62 = make_fixnum((long)length(cdr((V43)))); |
319 |
(void)((*(LnkLI44))(VV[3],small_fixnum(1),V62)); |
(void)((*(LnkLI44))(VV[3],small_fixnum(1),V62)); |
320 |
goto T121; |
goto T121; |
321 |
T121:; |
T121:; |
1362 |
V209= Cnil; |
V209= Cnil; |
1363 |
goto T689; |
goto T689; |
1364 |
T689:; |
T689:; |
1365 |
if(!((length((V208)))<=(5))){ |
if(!(((long)length((V208)))<=(5))){ |
1366 |
goto T690;} |
goto T690;} |
1367 |
goto T687; |
goto T687; |
1368 |
goto T690; |
goto T690; |
1555 |
base[0]=base[0]; |
base[0]=base[0]; |
1556 |
return Cnil; |
return Cnil; |
1557 |
} |
} |
1558 |
static object LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],(void **)&LnkLI75,1,ap);} /* ADD-SYMBOL */ |
static object LnkTLI75(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[75],(void **)&LnkLI75,1,ap);va_end(ap);return V1;} /* ADD-SYMBOL */ |
1559 |
static object LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[74],(void **)&LnkLI74,ap);} /* INLINE-ARGS */ |
static object LnkTLI74(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[74],(void **)&LnkLI74,ap);va_end(ap);return V1;} /* INLINE-ARGS */ |
1560 |
static object LnkTLI73(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[73],(void **)&LnkLI73,1,ap);} /* ADD-OBJECT */ |
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;} /* ADD-OBJECT */ |
1561 |
static object LnkTLI72(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[72],(void **)&LnkLI72,2,ap);} /* ADD-INFO */ |
static object LnkTLI72(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[72],(void **)&LnkLI72,2,ap);va_end(ap);return V1;} /* ADD-INFO */ |
1562 |
static object LnkTLI71(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[71],(void **)&LnkLI71,1,ap);} /* C1PROGN */ |
static object LnkTLI71(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[71],(void **)&LnkLI71,1,ap);va_end(ap);return V1;} /* C1PROGN */ |
1563 |
static object LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[69],(void **)&LnkLI69,ap);} /* CMPERR */ |
static object LnkTLI69(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[69],(void **)&LnkLI69,ap);va_end(ap);return V1;} /* CMPERR */ |
1564 |
static object LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],(void **)&LnkLI68,2,ap);} /* CONVERT-CASE-TO-SWITCH */ |
static object LnkTLI68(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[68],(void **)&LnkLI68,2,ap);va_end(ap);return V1;} /* CONVERT-CASE-TO-SWITCH */ |
1565 |
static void LnkT67(){ call_or_link(VV[67],(void **)&Lnk67);} /* SUBTYPEP */ |
static void LnkT67(){ call_or_link(VV[67],(void **)&Lnk67);} /* SUBTYPEP */ |
1566 |
static void LnkT66(){ call_or_link(VV[66],(void **)&Lnk66);} /* CMPERROR */ |
static void LnkT66(){ call_or_link(VV[66],(void **)&Lnk66);} /* CMPERROR */ |
1567 |
static object LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[65],(void **)&LnkLI65,ap);} /* C1CASE */ |
static object LnkTLI65(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[65],(void **)&LnkLI65,ap);va_end(ap);return V1;} /* C1CASE */ |
1568 |
static void LnkT64(){ call_or_link(VV[64],(void **)&Lnk64);} /* WT-INLINE-LOC */ |
static void LnkT64(){ call_or_link(VV[64],(void **)&Lnk64);} /* WT-INLINE-LOC */ |
1569 |
static object LnkTLI63(){return call_proc0(VV[63],(void **)&LnkLI63);} /* CLOSE-INLINE-BLOCKS */ |
static object LnkTLI63(){return call_proc0(VV[63],(void **)&LnkLI63);} /* CLOSE-INLINE-BLOCKS */ |
1570 |
static object LnkTLI62(){return call_proc0(VV[62],(void **)&LnkLI62);} /* WT-C-PUSH */ |
static object LnkTLI62(){return call_proc0(VV[62],(void **)&LnkLI62);} /* WT-C-PUSH */ |
1571 |
static object LnkTLI61(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[61],(void **)&LnkLI61,2,ap);} /* WT-VAR */ |
static object LnkTLI61(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[61],(void **)&LnkLI61,2,ap);va_end(ap);return V1;} /* WT-VAR */ |
1572 |
static object LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[60],(void **)&LnkLI60,ap);} /* UNWIND-EXIT */ |
static object LnkTLI60(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[60],(void **)&LnkLI60,ap);va_end(ap);return V1;} /* UNWIND-EXIT */ |
1573 |
static object LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],(void **)&LnkLI59,2,ap);} /* C1ARGS */ |
static object LnkTLI59(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[59],(void **)&LnkLI59,2,ap);va_end(ap);return V1;} /* C1ARGS */ |
1574 |
static object LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],(void **)&LnkLI58,1,ap);} /* C2EXPR* */ |
static object LnkTLI58(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[58],(void **)&LnkLI58,1,ap);va_end(ap);return V1;} /* C2EXPR* */ |
1575 |
static object LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],(void **)&LnkLI57,1,ap);} /* UNWIND-NO-EXIT */ |
static object LnkTLI57(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[57],(void **)&LnkLI57,1,ap);va_end(ap);return V1;} /* UNWIND-NO-EXIT */ |
1576 |
static object LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],(void **)&LnkLI56,3,ap);} /* CJT */ |
static object LnkTLI56(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[56],(void **)&LnkLI56,3,ap);va_end(ap);return V1;} /* CJT */ |
1577 |
static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* C2EXPR */ |
static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* C2EXPR */ |
1578 |
static object LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[54],(void **)&LnkLI54,1,ap);} /* WT1 */ |
static object LnkTLI54(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[54],(void **)&LnkLI54,1,ap);va_end(ap);return V1;} /* WT1 */ |
1579 |
static object LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],(void **)&LnkLI53,3,ap);} /* CJF */ |
static object LnkTLI53(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[53],(void **)&LnkLI53,3,ap);va_end(ap);return V1;} /* CJF */ |
1580 |
static object LnkTLI52(){return call_proc0(VV[52],(void **)&LnkLI52);} /* C1T */ |
static object LnkTLI52(){return call_proc0(VV[52],(void **)&LnkLI52);} /* C1T */ |
1581 |
static object LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[50],(void **)&LnkLI50,2,ap);} /* C1EXPR* */ |
static object LnkTLI50(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[50],(void **)&LnkLI50,2,ap);va_end(ap);return V1;} /* C1EXPR* */ |
1582 |
static object LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[49],(void **)&LnkLI49,2,ap);} /* C1FMLA */ |
static object LnkTLI49(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[49],(void **)&LnkLI49,2,ap);va_end(ap);return V1;} /* C1FMLA */ |
1583 |
static object LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[48],(void **)&LnkLI48,ap);} /* MAKE-INFO */ |
static object LnkTLI48(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[48],(void **)&LnkLI48,ap);va_end(ap);return V1;} /* MAKE-INFO */ |
1584 |
static object LnkTLI47(){return call_proc0(VV[47],(void **)&LnkLI47);} /* C1NIL */ |
static object LnkTLI47(){return call_proc0(VV[47],(void **)&LnkLI47);} /* C1NIL */ |
1585 |
static object LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],(void **)&LnkLI46,1,ap);} /* C1EXPR */ |
static object LnkTLI46(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[46],(void **)&LnkLI46,1,ap);va_end(ap);return V1;} /* C1EXPR */ |
1586 |
static object LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[45],(void **)&LnkLI45,1,ap);} /* C1FMLA-CONSTANT */ |
static object LnkTLI45(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[45],(void **)&LnkLI45,1,ap);va_end(ap);return V1;} /* C1FMLA-CONSTANT */ |
1587 |
static object LnkTLI44(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[44],(void **)&LnkLI44,3,ap);} /* TOO-MANY-ARGS */ |
static object LnkTLI44(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[44],(void **)&LnkLI44,3,ap);va_end(ap);return V1;} /* TOO-MANY-ARGS */ |
1588 |
static object LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[43],(void **)&LnkLI43,3,ap);} /* TOO-FEW-ARGS */ |
static object LnkTLI43(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[43],(void **)&LnkLI43,3,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */ |
1589 |
|
|
1590 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1591 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |