4 |
void init_cmpwt(){do_init(VV);} |
void init_cmpwt(){do_init(VV);} |
5 |
/* local entry for function WT-COMMENT */ |
/* local entry for function WT-COMMENT */ |
6 |
|
|
7 |
static object LI1(V1,va_alist) |
static object LI1(object V1,object first,...) |
|
object V1; |
|
|
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 |
11 |
{object V2; |
{object V2; |
12 |
object V3; |
object V3; |
13 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
14 |
va_start(ap); |
va_start(ap,first); |
15 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
16 |
V2= V1; |
V2= V1; |
17 |
narg = narg - 1; |
narg = narg - 1; |
18 |
if (narg <= 0) goto T1; |
if (narg <= 0) goto T1; |
19 |
else { |
else { |
20 |
V3= va_arg(ap,object);} |
V3= first;} |
21 |
--narg; goto T2; |
--narg; goto T2; |
22 |
goto T1; |
goto T1; |
23 |
T1:; |
T1:; |
259 |
} |
} |
260 |
/* local entry for function ADD-INIT */ |
/* local entry for function ADD-INIT */ |
261 |
|
|
262 |
static object LI7(V32,va_alist) |
static object LI7(object V32,object first,...) |
|
object V32; |
|
|
va_dcl |
|
263 |
{ |
{ |
264 |
va_list ap; |
va_list ap; |
265 |
int narg = VFUN_NARGS; VMB7 VMS7 VMV7 |
int narg = VFUN_NARGS; VMB7 VMS7 VMV7 |
266 |
{object V33; |
{object V33; |
267 |
object V34; |
object V34; |
268 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
269 |
va_start(ap); |
va_start(ap,first); |
270 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
271 |
V33= V32; |
V33= V32; |
272 |
narg = narg - 1; |
narg = narg - 1; |
273 |
if (narg <= 0) goto T85; |
if (narg <= 0) goto T85; |
274 |
else { |
else { |
275 |
V34= va_arg(ap,object);} |
V34= first;} |
276 |
--narg; goto T86; |
--narg; goto T86; |
277 |
goto T85; |
goto T85; |
278 |
T85:; |
T85:; |
776 |
V106= car((V105)); |
V106= car((V105)); |
777 |
goto T320;} |
goto T320;} |
778 |
} |
} |
779 |
static object LnkTLI55(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[55],(void **)&LnkLI55,ap);va_end(ap);return V1;} /* CONCATENATE */ |
static object LnkTLI55(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[55],(void **)&LnkLI55,first,ap);va_end(ap);return V1;} /* CONCATENATE */ |
780 |
static void LnkT54(){ call_or_link(VV[54],(void **)&Lnk54);} /* CLOSE-FASD */ |
static void LnkT54(){ call_or_link(VV[54],(void **)&Lnk54);} /* CLOSE-FASD */ |
781 |
static void LnkT53(){ call_or_link(VV[53],(void **)&Lnk53);} /* WRITE-FASD-TOP */ |
static void LnkT53(){ call_or_link(VV[53],(void **)&Lnk53);} /* WRITE-FASD-TOP */ |
782 |
static void LnkT52(){ call_or_link(VV[52],(void **)&Lnk52);} /* FIND-SHARING-TOP */ |
static void LnkT52(){ call_or_link(VV[52],(void **)&Lnk52);} /* FIND-SHARING-TOP */ |
783 |
static object LnkTLI51(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[51],(void **)&LnkLI51,1,ap);va_end(ap);return V1;} /* WT-DATA1 */ |
static object LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)&LnkLI51,1,first,ap);va_end(ap);return V1;} /* WT-DATA1 */ |
784 |
static void LnkT50(){ call_or_link(VV[50],(void **)&Lnk50);} /* WT-FASD-DATA-FILE */ |
static void LnkT50(){ call_or_link(VV[50],(void **)&Lnk50);} /* WT-FASD-DATA-FILE */ |
785 |
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;} /* COERCE */ |
static object LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[49],(void **)&LnkLI49,2,first,ap);va_end(ap);return V1;} /* COERCE */ |
786 |
static object LnkTLI48(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[48],(void **)&LnkLI48,1,ap);va_end(ap);return V1;} /* VERIFY-DATA-VECTOR */ |
static object LnkTLI48(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[48],(void **)&LnkLI48,1,first,ap);va_end(ap);return V1;} /* VERIFY-DATA-VECTOR */ |
787 |
static object LnkTLI47(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[47],(void **)&LnkLI47,ap);va_end(ap);return V1;} /* CMPWARN */ |
static object LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[47],(void **)&LnkLI47,first,ap);va_end(ap);return V1;} /* CMPWARN */ |
788 |
static void LnkT46(){ call_or_link(VV[46],(void **)&Lnk46);} /* HASH-EQUAL */ |
static void LnkT46(){ call_or_link(VV[46],(void **)&Lnk46);} /* HASH-EQUAL */ |
789 |
static object LnkTLI45(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[45],(void **)&LnkLI45,ap);va_end(ap);return V1;} /* VECTOR-PUSH-EXTEND */ |
static object LnkTLI45(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[45],(void **)&LnkLI45,first,ap);va_end(ap);return V1;} /* VECTOR-PUSH-EXTEND */ |
790 |
static void LnkT44(){ call_or_link(VV[44],(void **)&Lnk44);} /* CMPILER-ERROR */ |
static void LnkT44(){ call_or_link(VV[44],(void **)&Lnk44);} /* CMPILER-ERROR */ |
791 |
static void LnkT43(){ call_or_link(VV[43],(void **)&Lnk43);} /* WT-LOC */ |
static void LnkT43(){ call_or_link(VV[43],(void **)&Lnk43);} /* WT-LOC */ |
792 |
|
|