4 |
void init_defstruct(){do_init(VV);} |
void init_defstruct(){do_init(VV);} |
5 |
/* local entry for function MAKE-ACCESS-FUNCTION */ |
/* local entry for function MAKE-ACCESS-FUNCTION */ |
6 |
|
|
7 |
static object LI1(V11,V10,V9,V8,V7,V6,V5,V4,V3,V2,V1,va_alist) |
static object LI1(object V11,object V10,object V9,object V8,object V7,object V6,object V5,object V4,object V3,object V2,object V1,object first,...) |
|
object V11,V10,V9,V8,V7,V6,V5,V4,V3,V2,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 |
20 |
object V21; |
object V21; |
21 |
object V22; |
object V22; |
22 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
23 |
va_start(ap); |
va_start(ap,first); |
24 |
if(narg <11) too_few_arguments(); |
if(narg <11) too_few_arguments(); |
25 |
V12= V11; |
V12= V11; |
26 |
V13= V10; |
V13= V10; |
36 |
narg = narg - 11; |
narg = narg - 11; |
37 |
if (narg <= 0) goto T1; |
if (narg <= 0) goto T1; |
38 |
else { |
else { |
39 |
V22= va_arg(ap,object);} |
V22= first;} |
40 |
--narg; goto T2; |
--narg; goto T2; |
41 |
goto T1; |
goto T1; |
42 |
T1:; |
T1:; |
1321 |
} |
} |
1322 |
/* local entry for function DEFINE-STRUCTURE */ |
/* local entry for function DEFINE-STRUCTURE */ |
1323 |
|
|
1324 |
static object LI10(V229,V228,V227,V226,V225,V224,V223,V222,V221,V220,V219,V218,va_alist) |
static object LI10(object V229,object V228,object V227,object V226,object V225,object V224,object V223,object V222,object V221,object V220,object V219,object V218,object first,...) |
|
object V229,V228,V227,V226,V225,V224,V223,V222,V221,V220,V219,V218; |
|
|
va_dcl |
|
1325 |
{ |
{ |
1326 |
va_list ap; |
va_list ap; |
1327 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
1339 |
object V241; |
object V241; |
1340 |
register object V242; |
register object V242; |
1341 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
1342 |
va_start(ap); |
va_start(ap,first); |
1343 |
if(narg <12) too_few_arguments(); |
if(narg <12) too_few_arguments(); |
1344 |
Vcs[0]=MMcons(V229,Cnil); |
Vcs[0]=MMcons(V229,Cnil); |
1345 |
V230= V228; |
V230= V228; |
1356 |
narg = narg - 12; |
narg = narg - 12; |
1357 |
if (narg <= 0) goto T595; |
if (narg <= 0) goto T595; |
1358 |
else { |
else { |
1359 |
V241= va_arg(ap,object);} |
V241= first;} |
1360 |
if (--narg <= 0) goto T596; |
if (--narg <= 0) goto T596; |
1361 |
else { |
else { |
1362 |
V242= va_arg(ap,object);} |
V242= va_arg(ap,object);} |
2138 |
} |
} |
2139 |
/* local entry for function MAKE-S-DATA */ |
/* local entry for function MAKE-S-DATA */ |
2140 |
|
|
2141 |
static object LI12(va_alist) |
static object LI12(object first,...) |
|
va_dcl |
|
2142 |
{ |
{ |
2143 |
va_list ap; |
va_list ap; |
2144 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
2161 |
object V335; |
object V335; |
2162 |
object V336; |
object V336; |
2163 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
2164 |
va_start(ap); |
va_start(ap,first); |
2165 |
narg= narg - 0; |
narg= narg - 0; |
2166 |
{ |
{ |
2167 |
parse_key_new(narg,Vcs +0,(struct key *)&LI12key,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)&LI12key,first,ap); |
2168 |
V319=(Vcs[0]); |
V319=(Vcs[0]); |
2169 |
V320=(Vcs[1]); |
V320=(Vcs[1]); |
2170 |
V321=(Vcs[2]); |
V321=(Vcs[2]); |
2483 |
} |
} |
2484 |
static void LnkT147(){ call_or_link(VV[147],(void **)&Lnk147);} /* STRUCTURE-REF1 */ |
static void LnkT147(){ call_or_link(VV[147],(void **)&Lnk147);} /* STRUCTURE-REF1 */ |
2485 |
static void LnkT146(){ call_or_link(VV[146],(void **)&Lnk146);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT146(){ call_or_link(VV[146],(void **)&Lnk146);} /* STRUCTURE-SUBTYPE-P */ |
2486 |
static object LnkTLI142(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[142],(void **)&LnkLI142,5,ap);va_end(ap);return V1;} /* MAKE-PREDICATE */ |
static object LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)&LnkLI142,5,first,ap);va_end(ap);return V1;} /* MAKE-PREDICATE */ |
2487 |
static object LnkTLI141(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[141],(void **)&LnkLI141,5,ap);va_end(ap);return V1;} /* MAKE-CONSTRUCTOR */ |
static object LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)&LnkLI141,5,first,ap);va_end(ap);return V1;} /* MAKE-CONSTRUCTOR */ |
2488 |
static object LnkTLI140(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[140],(void **)&LnkLI140,2,ap);va_end(ap);return V1;} /* PARSE-SLOT-DESCRIPTION */ |
static object LnkTLI140(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[140],(void **)&LnkLI140,2,first,ap);va_end(ap);return V1;} /* PARSE-SLOT-DESCRIPTION */ |
2489 |
static object LnkTLI134(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[134],(void **)&LnkLI134,3,ap);va_end(ap);return V1;} /* CHECK-S-DATA */ |
static object LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[134],(void **)&LnkLI134,3,first,ap);va_end(ap);return V1;} /* CHECK-S-DATA */ |
2490 |
static object LnkTLI133(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[133],(void **)&LnkLI133,ap);va_end(ap);return V1;} /* MAKE-S-DATA */ |
static object LnkTLI133(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[133],(void **)&LnkLI133,first,ap);va_end(ap);return V1;} /* MAKE-S-DATA */ |
2491 |
static object LnkTLI132(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[132],(void **)&LnkLI132,3,ap);va_end(ap);return V1;} /* GET-SLOT-POS */ |
static object LnkTLI132(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[132],(void **)&LnkLI132,3,first,ap);va_end(ap);return V1;} /* GET-SLOT-POS */ |
2492 |
static object LnkTLI131(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[131],(void **)&LnkLI131,ap);va_end(ap);return V1;} /* WARN */ |
static object LnkTLI131(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[131],(void **)&LnkLI131,first,ap);va_end(ap);return V1;} /* WARN */ |
2493 |
static void LnkT130(){ call_or_link(VV[130],(void **)&Lnk130);} /* MAKE-S-DATA-STRUCTURE */ |
static void LnkT130(){ call_or_link(VV[130],(void **)&Lnk130);} /* MAKE-S-DATA-STRUCTURE */ |
2494 |
static object LnkTLI129(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[129],(void **)&LnkLI129,3,ap);va_end(ap);return V1;} /* MAKE-T-TYPE */ |
static object LnkTLI129(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[129],(void **)&LnkLI129,3,first,ap);va_end(ap);return V1;} /* MAKE-T-TYPE */ |
2495 |
static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* MAKE-ACCESS-FUNCTION */ |
static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* MAKE-ACCESS-FUNCTION */ |
2496 |
static object LnkTLI124(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[124],(void **)&LnkLI124,20738,ap);va_end(ap);return V1;} /* ROUND-UP */ |
static object LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)&LnkLI124,20738,first,ap);va_end(ap);return V1;} /* ROUND-UP */ |
2497 |
static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* SIZE-OF */ |
static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* SIZE-OF */ |
2498 |
static object LnkTLI122(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[122],(void **)&LnkLI122,2,ap);va_end(ap);return V1;} /* COERCE */ |
static object LnkTLI122(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[122],(void **)&LnkLI122,2,first,ap);va_end(ap);return V1;} /* COERCE */ |
2499 |
static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* TYPEP */ |
static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* TYPEP */ |
2500 |
static void LnkT120(){ call_or_link(VV[120],(void **)&Lnk120);} /* AET-TYPE */ |
static void LnkT120(){ call_or_link(VV[120],(void **)&Lnk120);} /* AET-TYPE */ |
2501 |
static void LnkT119(){ call_or_link(VV[119],(void **)&Lnk119);} /* ALIGNMENT */ |
static void LnkT119(){ call_or_link(VV[119],(void **)&Lnk119);} /* ALIGNMENT */ |
2502 |
static object LnkTLI118(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[118],(void **)&LnkLI118,ap);va_end(ap);return V1;} /* MAKE-ARRAY */ |
static object LnkTLI118(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[118],(void **)&LnkLI118,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */ |
2503 |
static object LnkTLI117(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[117],(void **)&LnkLI117,2,ap);va_end(ap);return V1;} /* OVERWRITE-SLOT-DESCRIPTIONS */ |
static object LnkTLI117(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[117],(void **)&LnkLI117,2,first,ap);va_end(ap);return V1;} /* OVERWRITE-SLOT-DESCRIPTIONS */ |
2504 |
static object LnkTLI116(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[116],(void **)&LnkLI116,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */ |
static object LnkTLI116(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[116],(void **)&LnkLI116,1,first,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */ |
2505 |
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;} /* BEST-ARRAY-ELEMENT-TYPE */ |
static object LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)&LnkLI115,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */ |
2506 |
static object LnkTLI111(){return call_proc0(VV[111],(void **)&LnkLI111);} /* ILLEGAL-BOA */ |
static object LnkTLI111(){return call_proc0(VV[111],(void **)&LnkLI111);} /* ILLEGAL-BOA */ |
2507 |
static void LnkT110(){ call_or_link(VV[110],(void **)&Lnk110);} /* SUBTYPEP */ |
static void LnkT110(){ call_or_link(VV[110],(void **)&Lnk110);} /* SUBTYPEP */ |
2508 |
static void LnkT109(){ call_or_link(VV[109],(void **)&Lnk109);} /* RECORD-FN */ |
static void LnkT109(){ call_or_link(VV[109],(void **)&Lnk109);} /* RECORD-FN */ |
2509 |
static object LnkTLI108(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[108],(void **)&LnkLI108,ap);va_end(ap);return V1;} /* ADJUST-ARRAY */ |
static object LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[108],(void **)&LnkLI108,first,ap);va_end(ap);return V1;} /* ADJUST-ARRAY */ |
2510 |
static void LnkT107(){ call_or_link(VV[107],(void **)&Lnk107);} /* STRING-CONCATENATE */ |
static void LnkT107(){ call_or_link(VV[107],(void **)&Lnk107);} /* STRING-CONCATENATE */ |
2511 |
|
|
2512 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |