4 |
void init_cmpinline(){do_init(VV);} |
void init_cmpinline(){do_init(VV);} |
5 |
/* local entry for function MAKE-INFO */ |
/* local entry for function MAKE-INFO */ |
6 |
|
|
7 |
static object LI1(va_alist) |
static object LI1(object first,...) |
|
va_dcl |
|
8 |
{ |
{ |
9 |
va_list ap; |
va_list ap; |
10 |
int narg = VFUN_NARGS; VMB1 VMS1 VMV1 |
int narg = VFUN_NARGS; VMB1 VMS1 VMV1 |
14 |
object V4; |
object V4; |
15 |
object V5; |
object V5; |
16 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
17 |
va_start(ap); |
va_start(ap,first); |
18 |
narg= narg - 0; |
narg= narg - 0; |
19 |
{ |
{ |
20 |
parse_key_new(narg,Vcs +0,(struct key *)&LI1key,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)&LI1key,first,ap); |
21 |
V1=(Vcs[0]); |
V1=(Vcs[0]); |
22 |
V2=(Vcs[1]); |
V2=(Vcs[1]); |
23 |
if(Vcs[2]==0){ |
if(Vcs[2]==0){ |
263 |
} |
} |
264 |
/* local entry for function INLINE-ARGS */ |
/* local entry for function INLINE-ARGS */ |
265 |
|
|
266 |
static object LI6(V59,V58,va_alist) |
static object LI6(object V59,object V58,object first,...) |
|
object V59,V58; |
|
|
va_dcl |
|
267 |
{ |
{ |
268 |
va_list ap; |
va_list ap; |
269 |
int narg = VFUN_NARGS; VMB6 VMS6 VMV6 |
int narg = VFUN_NARGS; VMB6 VMS6 VMV6 |
272 |
object V61; |
object V61; |
273 |
object V62; |
object V62; |
274 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
275 |
va_start(ap); |
va_start(ap,first); |
276 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
277 |
V60= V59; |
V60= V59; |
278 |
V61= V58; |
V61= V58; |
279 |
narg = narg - 2; |
narg = narg - 2; |
280 |
if (narg <= 0) goto T93; |
if (narg <= 0) goto T93; |
281 |
else { |
else { |
282 |
V62= va_arg(ap,object);} |
V62= first;} |
283 |
--narg; goto T94; |
--narg; goto T94; |
284 |
goto T93; |
goto T93; |
285 |
T93:; |
T93:; |
1844 |
} |
} |
1845 |
/* local entry for function LIST-INLINE */ |
/* local entry for function LIST-INLINE */ |
1846 |
|
|
1847 |
static object LI24(va_alist) |
static object LI24(object first,...) |
|
va_dcl |
|
1848 |
{ |
{ |
1849 |
va_list ap; |
va_list ap; |
1850 |
int narg = VFUN_NARGS; VMB24 VMS24 VMV24 |
int narg = VFUN_NARGS; VMB24 VMS24 VMV24 |
1851 |
{object V320; |
{object V320; |
1852 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
1853 |
va_start(ap); |
va_start(ap,first); |
1854 |
narg= narg - 0; |
narg= narg - 0; |
1855 |
V321 = list_vector(narg,ap); |
V321 = list_vector_new(narg,first,ap); |
1856 |
V320= V321; |
V320= V321; |
1857 |
{object V322; |
{object V322; |
1858 |
object V323; |
object V323; |
1922 |
} |
} |
1923 |
/* local entry for function LIST*-INLINE */ |
/* local entry for function LIST*-INLINE */ |
1924 |
|
|
1925 |
static object LI25(va_alist) |
static object LI25(object first,...) |
|
va_dcl |
|
1926 |
{ |
{ |
1927 |
va_list ap; |
va_list ap; |
1928 |
int narg = VFUN_NARGS; VMB25 VMS25 VMV25 |
int narg = VFUN_NARGS; VMB25 VMS25 VMV25 |
1929 |
{register object V330; |
{register object V330; |
1930 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
1931 |
va_start(ap); |
va_start(ap,first); |
1932 |
narg= narg - 0; |
narg= narg - 0; |
1933 |
V331 = list_vector(narg,ap); |
V331 = list_vector_new(narg,first,ap); |
1934 |
V330= V331;switch((long)length((V330))){ |
V330= V331;switch((long)length((V330))){ |
1935 |
case 1: |
case 1: |
1936 |
goto T879; |
goto T879; |
2103 |
return; |
return; |
2104 |
} |
} |
2105 |
} |
} |
2106 |
static object LnkTLI109(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[109],(void **)&LnkLI109,1,ap);va_end(ap);return V1;} /* FUNCTION-RETURN-TYPE */ |
static object LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)&LnkLI109,1,first,ap);va_end(ap);return V1;} /* FUNCTION-RETURN-TYPE */ |
2107 |
static object LnkTLI108(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[108],(void **)&LnkLI108,1,ap);va_end(ap);return V1;} /* TYPE-FILTER */ |
static object LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)&LnkLI108,1,first,ap);va_end(ap);return V1;} /* TYPE-FILTER */ |
2108 |
static void LnkT107(){ call_or_link(VV[107],(void **)&Lnk107);} /* WT-INLINE-LOC */ |
static void LnkT107(){ call_or_link(VV[107],(void **)&Lnk107);} /* WT-INLINE-LOC */ |
2109 |
static object LnkTLI106(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[106],(void **)&LnkLI106,2,ap);va_end(ap);return V1;} /* TYPE>= */ |
static object LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)&LnkLI106,2,first,ap);va_end(ap);return V1;} /* TYPE>= */ |
2110 |
static void LnkT105(){ call_or_link(VV[105],(void **)&Lnk105);} /* FIX-OPT */ |
static void LnkT105(){ call_or_link(VV[105],(void **)&Lnk105);} /* FIX-OPT */ |
2111 |
static object LnkTLI104(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[104],(void **)&LnkLI104,3,ap);va_end(ap);return V1;} /* INLINE-TYPE-MATCHES */ |
static object LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[104],(void **)&LnkLI104,3,first,ap);va_end(ap);return V1;} /* INLINE-TYPE-MATCHES */ |
2112 |
static object LnkTLI103(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[103],(void **)&LnkLI103,3,ap);va_end(ap);return V1;} /* ADD-FAST-LINK */ |
static object LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)&LnkLI103,3,first,ap);va_end(ap);return V1;} /* ADD-FAST-LINK */ |
2113 |
static object LnkTLI102(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[102],(void **)&LnkLI102,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */ |
static object LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[102],(void **)&LnkLI102,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */ |
2114 |
static object LnkTLI101(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[101],(void **)&LnkLI101,1,ap);va_end(ap);return V1;} /* INLINE-TYPE */ |
static object LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)&LnkLI101,1,first,ap);va_end(ap);return V1;} /* INLINE-TYPE */ |
2115 |
static object LnkTLI100(){return call_proc0(VV[100],(void **)&LnkLI100);} /* BABOON */ |
static object LnkTLI100(){return call_proc0(VV[100],(void **)&LnkLI100);} /* BABOON */ |
2116 |
static object LnkTLI7(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[7],(void **)&LnkLI7,ap);va_end(ap);return V1;} /* INLINE-ARGS */ |
static object LnkTLI7(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[7],(void **)&LnkLI7,first,ap);va_end(ap);return V1;} /* INLINE-ARGS */ |
2117 |
static object LnkTLI99(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[99],(void **)&LnkLI99,ap);va_end(ap);return V1;} /* MAKE-VAR */ |
static object LnkTLI99(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[99],(void **)&LnkLI99,first,ap);va_end(ap);return V1;} /* MAKE-VAR */ |
2118 |
static object LnkTLI97(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[97],(void **)&LnkLI97,2,ap);va_end(ap);return V1;} /* COERCE-LOC-STRUCTURE-REF */ |
static object LnkTLI97(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[97],(void **)&LnkLI97,2,first,ap);va_end(ap);return V1;} /* COERCE-LOC-STRUCTURE-REF */ |
2119 |
static object LnkTLI95(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[95],(void **)&LnkLI95,1,ap);va_end(ap);return V1;} /* C2EXPR* */ |
static object LnkTLI95(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[95],(void **)&LnkLI95,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */ |
2120 |
static object LnkTLI94(){return call_proc0(VV[94],(void **)&LnkLI94);} /* VS-PUSH */ |
static object LnkTLI94(){return call_proc0(VV[94],(void **)&LnkLI94);} /* VS-PUSH */ |
2121 |
static void LnkT93(){ call_or_link(VV[93],(void **)&Lnk93);} /* WT-SHORT-FLOAT-LOC */ |
static void LnkT93(){ call_or_link(VV[93],(void **)&Lnk93);} /* WT-SHORT-FLOAT-LOC */ |
2122 |
static void LnkT92(){ call_or_link(VV[92],(void **)&Lnk92);} /* WT-LONG-FLOAT-LOC */ |
static void LnkT92(){ call_or_link(VV[92],(void **)&Lnk92);} /* WT-LONG-FLOAT-LOC */ |
2124 |
static void LnkT90(){ call_or_link(VV[90],(void **)&Lnk90);} /* WT-INTEGER-LOC */ |
static void LnkT90(){ call_or_link(VV[90],(void **)&Lnk90);} /* WT-INTEGER-LOC */ |
2125 |
static void LnkT89(){ call_or_link(VV[89],(void **)&Lnk89);} /* WT-FIXNUM-LOC */ |
static void LnkT89(){ call_or_link(VV[89],(void **)&Lnk89);} /* WT-FIXNUM-LOC */ |
2126 |
static void LnkT88(){ call_or_link(VV[88],(void **)&Lnk88);} /* WT-LOC */ |
static void LnkT88(){ call_or_link(VV[88],(void **)&Lnk88);} /* WT-LOC */ |
2127 |
static object LnkTLI87(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[87],(void **)&LnkLI87,2,ap);va_end(ap);return V1;} /* NEED-TO-PROTECT */ |
static object LnkTLI87(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[87],(void **)&LnkLI87,2,first,ap);va_end(ap);return V1;} /* NEED-TO-PROTECT */ |
2128 |
static object LnkTLI86(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[86],(void **)&LnkLI86,2,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */ |
static object LnkTLI86(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[86],(void **)&LnkLI86,2,first,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */ |
2129 |
static void LnkT85(){ call_or_link(VV[85],(void **)&Lnk85);} /* SAVE-AVMA */ |
static void LnkT85(){ call_or_link(VV[85],(void **)&Lnk85);} /* SAVE-AVMA */ |
2130 |
static object LnkTLI84(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[84],(void **)&LnkLI84,3,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */ |
static object LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[84],(void **)&LnkLI84,3,first,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */ |
2131 |
static object LnkTLI83(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[83],(void **)&LnkLI83,1,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */ |
static object LnkTLI83(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[83],(void **)&LnkLI83,1,first,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */ |
2132 |
static object LnkTLI81(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[81],(void **)&LnkLI81,ap);va_end(ap);return V1;} /* CS-PUSH */ |
static object LnkTLI81(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[81],(void **)&LnkLI81,first,ap);va_end(ap);return V1;} /* CS-PUSH */ |
2133 |
static object LnkTLI80(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[80],(void **)&LnkLI80,2,ap);va_end(ap);return V1;} /* WT-VAR */ |
static object LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[80],(void **)&LnkLI80,2,first,ap);va_end(ap);return V1;} /* WT-VAR */ |
2134 |
static object LnkTLI79(){return call_proc0(VV[79],(void **)&LnkLI79);} /* WT-C-PUSH */ |
static object LnkTLI79(){return call_proc0(VV[79],(void **)&LnkLI79);} /* WT-C-PUSH */ |
2135 |
static void LnkT78(){ call_or_link(VV[78],(void **)&Lnk78);} /* INC-INLINE-BLOCKS */ |
static void LnkT78(){ call_or_link(VV[78],(void **)&Lnk78);} /* INC-INLINE-BLOCKS */ |
2136 |
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;} /* REP-TYPE */ |
static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[77],(void **)&LnkLI77,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */ |
2137 |
static object LnkTLI76(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[76],(void **)&LnkLI76,1,ap);va_end(ap);return V1;} /* WT1 */ |
static object LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[76],(void **)&LnkLI76,1,first,ap);va_end(ap);return V1;} /* WT1 */ |
2138 |
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;} /* ARGS-INFO-CHANGED-VARS */ |
static object LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)&LnkLI75,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */ |
2139 |
static object LnkTLI74(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[74],(void **)&LnkLI74,2,ap);va_end(ap);return V1;} /* COERCE-LOC */ |
static object LnkTLI74(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[74],(void **)&LnkLI74,2,first,ap);va_end(ap);return V1;} /* COERCE-LOC */ |
2140 |
|
|
2141 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
2142 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |