328 |
T119:; |
T119:; |
329 |
V39= make_cons(V45,(V39)); |
V39= make_cons(V45,(V39)); |
330 |
V41= cdr((V41)); |
V41= cdr((V41)); |
331 |
V42= (1)+(V42); |
V42= (long)(1)+(V42); |
332 |
goto T105;} |
goto T105;} |
333 |
goto T102; |
goto T102; |
334 |
T102:; |
T102:; |
512 |
goto T225; |
goto T225; |
513 |
goto T226; |
goto T226; |
514 |
T226:; |
T226:; |
515 |
V70= ((length((V65)))<(64)?Ct:Cnil); |
V70= (((long)length((V65)))<(64)?Ct:Cnil); |
516 |
goto T225; |
goto T225; |
517 |
T225:; |
T225:; |
518 |
if(((V70))==Cnil){ |
if(((V70))==Cnil){ |
1147 |
V142= get(car((V122)),VV[67],Cnil); |
V142= get(car((V122)),VV[67],Cnil); |
1148 |
(void)(( |
(void)(( |
1149 |
V143 = V142, |
V143 = V142, |
1150 |
(type_of(V143) == t_sfun ?(*(object (*)())((V143)->sfn.sfn_self)): |
(type_of(V143) == t_sfun ?(*((V143)->sfn.sfn_self)): |
1151 |
(fcall.fun=(V143),fcall.argd=1,fcalln))((V141)))); |
(fcall.fun=(V143),fcall.argd=1,fcalln))((V141)))); |
1152 |
V140= cdr((V140)); |
V140= cdr((V140)); |
1153 |
V141= car((V140)); |
V141= car((V140)); |
2447 |
} |
} |
2448 |
static void LnkT186(){ call_or_link(VV[186],(void **)&Lnk186);} /* C2EXPR */ |
static void LnkT186(){ call_or_link(VV[186],(void **)&Lnk186);} /* C2EXPR */ |
2449 |
static object LnkTLI185(){return call_proc0(VV[185],(void **)&LnkLI185);} /* BABOON */ |
static object LnkTLI185(){return call_proc0(VV[185],(void **)&LnkLI185);} /* BABOON */ |
2450 |
static object LnkTLI184(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[184],(void **)&LnkLI184,ap);} /* REMOVE */ |
static object LnkTLI184(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[184],(void **)&LnkLI184,ap);va_end(ap);return V1;} /* REMOVE */ |
2451 |
static object LnkTLI183(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[183],(void **)&LnkLI183,3,ap);} /* ADD-FUNCTION-DECLARATION */ |
static object LnkTLI183(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[183],(void **)&LnkLI183,3,ap);va_end(ap);return V1;} /* ADD-FUNCTION-DECLARATION */ |
2452 |
static object LnkTLI182(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[182],(void **)&LnkLI182,1,ap);} /* C1PROGN */ |
static object LnkTLI182(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[182],(void **)&LnkLI182,1,ap);va_end(ap);return V1;} /* C1PROGN */ |
2453 |
static object LnkTLI180(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[180],(void **)&LnkLI180,1,ap);} /* CMP-MACROEXPAND */ |
static object LnkTLI180(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[180],(void **)&LnkLI180,1,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND */ |
2454 |
static object LnkTLI179(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[179],(void **)&LnkLI179,1,ap);} /* SCH-GLOBAL */ |
static object LnkTLI179(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[179],(void **)&LnkLI179,1,ap);va_end(ap);return V1;} /* SCH-GLOBAL */ |
2455 |
static object LnkTLI141(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[141],(void **)&LnkLI141,3,ap);} /* ADD-FUNCTION-PROCLAMATION */ |
static object LnkTLI141(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[141],(void **)&LnkLI141,3,ap);va_end(ap);return V1;} /* ADD-FUNCTION-PROCLAMATION */ |
2456 |
static object LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[135],(void **)&LnkLI135,2,ap);} /* PROCLAIM-VAR */ |
static object LnkTLI135(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[135],(void **)&LnkLI135,2,ap);va_end(ap);return V1;} /* PROCLAIM-VAR */ |
2457 |
static void LnkT130(){ call_or_link(VV[130],(void **)&Lnk130);} /* *MAKE-SPECIAL */ |
static void LnkT130(){ call_or_link(VV[130],(void **)&Lnk130);} /* *MAKE-SPECIAL */ |
2458 |
static object LnkTLI128(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[128],(void **)&LnkLI128,ap);} /* CMPWARN */ |
static object LnkTLI128(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[128],(void **)&LnkLI128,ap);va_end(ap);return V1;} /* CMPWARN */ |
2459 |
static object LnkTLI127(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[127],(void **)&LnkLI127,2,ap);} /* TYPE-AND */ |
static object LnkTLI127(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[127],(void **)&LnkLI127,2,ap);va_end(ap);return V1;} /* TYPE-AND */ |
2460 |
static object LnkTLI126(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[126],(void **)&LnkLI126,1,ap);} /* SCH-LOCAL-FUN */ |
static object LnkTLI126(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[126],(void **)&LnkLI126,1,ap);va_end(ap);return V1;} /* SCH-LOCAL-FUN */ |
2461 |
static object LnkTLI125(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[125],(void **)&LnkLI125,1,ap);} /* FUNCTION-RETURN-TYPE */ |
static object LnkTLI125(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[125],(void **)&LnkLI125,1,ap);va_end(ap);return V1;} /* FUNCTION-RETURN-TYPE */ |
2462 |
static object LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[124],(void **)&LnkLI124,1,ap);} /* FUNCTION-ARG-TYPES */ |
static object LnkTLI124(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[124],(void **)&LnkLI124,1,ap);va_end(ap);return V1;} /* FUNCTION-ARG-TYPES */ |
2463 |
static object LnkTLI123(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[123],(void **)&LnkLI123,ap);} /* WARN */ |
static object LnkTLI123(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[123],(void **)&LnkLI123,ap);va_end(ap);return V1;} /* WARN */ |
2464 |
static object LnkTLI122(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[122],(void **)&LnkLI122,1,ap);} /* TYPE-FILTER */ |
static object LnkTLI122(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[122],(void **)&LnkLI122,1,ap);va_end(ap);return V1;} /* TYPE-FILTER */ |
2465 |
static object LnkTLI121(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[121],(void **)&LnkLI121,ap);} /* CMPERR */ |
static object LnkTLI121(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[121],(void **)&LnkLI121,ap);va_end(ap);return V1;} /* CMPERR */ |
2466 |
static void LnkT120(){ call_or_link(VV[120],(void **)&Lnk120);} /* COMPILED-FUNCTION-NAME */ |
static void LnkT120(){ call_or_link(VV[120],(void **)&Lnk120);} /* COMPILED-FUNCTION-NAME */ |
2467 |
static void LnkT119(){ call_or_link(VV[119],(void **)&Lnk119);} /* TYPEP */ |
static void LnkT119(){ call_or_link(VV[119],(void **)&Lnk119);} /* TYPEP */ |
2468 |
static void LnkT118(){ call_or_link(VV[118],(void **)&Lnk118);} /* WT-TO-STRING */ |
static void LnkT118(){ call_or_link(VV[118],(void **)&Lnk118);} /* WT-TO-STRING */ |
2469 |
static void LnkT117(){ call_or_link(VV[117],(void **)&Lnk117);} /* CONTAINS-SHARP-COMMA */ |
static void LnkT117(){ call_or_link(VV[117],(void **)&Lnk117);} /* CONTAINS-SHARP-COMMA */ |
2470 |
static void LnkT116(){ call_or_link(VV[116],(void **)&Lnk116);} /* GET-OUTPUT-STREAM-STRING */ |
static void LnkT116(){ call_or_link(VV[116],(void **)&Lnk116);} /* GET-OUTPUT-STREAM-STRING */ |
2471 |
static object LnkTLI115(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[115],(void **)&LnkLI115,1,ap);} /* WT-DATA1 */ |
static object LnkTLI115(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[115],(void **)&LnkLI115,1,ap);va_end(ap);return V1;} /* WT-DATA1 */ |
2472 |
static void LnkT114(){ call_or_link(VV[114],(void **)&Lnk114);} /* MAKE-STRING-OUTPUT-STREAM */ |
static void LnkT114(){ call_or_link(VV[114],(void **)&Lnk114);} /* MAKE-STRING-OUTPUT-STREAM */ |
2473 |
static object LnkTLI113(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[113],(void **)&LnkLI113,1,ap);} /* PUSH-DATA-INCF */ |
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;} /* PUSH-DATA-INCF */ |
2474 |
|
|
2475 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
2476 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |