159 |
V19= V18; |
V19= V18; |
160 |
narg= narg - 1; |
narg= narg - 1; |
161 |
{ |
{ |
162 |
parse_key_new_new(narg,Vcs +1,(struct key *)&LI3key,first,ap); |
parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI3key,first,ap); |
163 |
if(Vcs[1]==0){ |
if(Vcs[1]==0){ |
164 |
V20= Ct; |
V20= Ct; |
165 |
}else{ |
}else{ |
1165 |
V203 = (ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg)); |
V203 = (ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg)); |
1166 |
V195= V203; |
V195= V203; |
1167 |
{ |
{ |
1168 |
parse_key_rest_new(V203,narg,Vcs +3,(struct key *)&LI26key,first,ap); |
parse_key_rest_new(V203,narg,Vcs +3,(struct key *)(void *)&LI26key,first,ap); |
1169 |
V196=(Vcs[3]); |
V196=(Vcs[3]); |
1170 |
V197=(Vcs[4]); |
V197=(Vcs[4]); |
1171 |
V198=(Vcs[5]); |
V198=(Vcs[5]); |
1389 |
base[0]=base[0]; |
base[0]=base[0]; |
1390 |
return Cnil;} |
return Cnil;} |
1391 |
}} |
}} |
1392 |
static void LnkT35(){ call_or_link(VV[35],(void **)&Lnk35);} /* ARRAY-IN-BOUNDS-P */ |
static void LnkT35(){ call_or_link(VV[35],(void **)(void *)&Lnk35);} /* ARRAY-IN-BOUNDS-P */ |
1393 |
static void LnkT34(){ call_or_link(VV[34],(void **)&Lnk34);} /* COPY-ARRAY-PORTION */ |
static void LnkT34(){ call_or_link(VV[34],(void **)(void *)&Lnk34);} /* COPY-ARRAY-PORTION */ |
1394 |
static void LnkT33(){ call_or_link(VV[33],(void **)&Lnk33);} /* ARRAY-TOTAL-SIZE */ |
static void LnkT33(){ call_or_link(VV[33],(void **)(void *)&Lnk33);} /* ARRAY-TOTAL-SIZE */ |
1395 |
static object LnkTLI32(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[32],(void **)&LnkLI32,1,first,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */ |
static object LnkTLI32(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[32],(void **)(void *)&LnkLI32,1,first,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */ |
1396 |
static void LnkT28(){ call_or_link(VV[28],(void **)&Lnk28);} /* MAKE-ARRAY */ |
static void LnkT28(){ call_or_link(VV[28],(void **)(void *)&Lnk28);} /* MAKE-ARRAY */ |
1397 |
static void LnkT31(){ call_or_link(VV[31],(void **)&Lnk31);} /* STATICP */ |
static void LnkT31(){ call_or_link(VV[31],(void **)(void *)&Lnk31);} /* STATICP */ |
1398 |
static void LnkT30(){ call_or_link(VV[30],(void **)&Lnk30);} /* ARRAY-HAS-FILL-POINTER-P */ |
static void LnkT30(){ call_or_link(VV[30],(void **)(void *)&Lnk30);} /* ARRAY-HAS-FILL-POINTER-P */ |
1399 |
static object LnkTLI29(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[29],(void **)&LnkLI29,first,ap);va_end(ap);return V1;} /* ADJUST-ARRAY */ |
static object LnkTLI29(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[29],(void **)(void *)&LnkLI29,first,ap);va_end(ap);return V1;} /* ADJUST-ARRAY */ |
1400 |
static object LnkTLI28(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[28],(void **)&LnkLI28,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */ |
static object LnkTLI28(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[28],(void **)(void *)&LnkLI28,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */ |
1401 |
static object LnkTLI27(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[27],(void **)&LnkLI27,2,first,ap);va_end(ap);return V1;} /* INCREMENT-CURSOR */ |
static object LnkTLI27(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[27],(void **)(void *)&LnkLI27,2,first,ap);va_end(ap);return V1;} /* INCREMENT-CURSOR */ |
1402 |
static void LnkT26(){ call_or_link(VV[26],(void **)&Lnk26);} /* ASET-BY-CURSOR */ |
static void LnkT26(){ call_or_link(VV[26],(void **)(void *)&Lnk26);} /* ASET-BY-CURSOR */ |
1403 |
static object LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[25],(void **)&LnkLI25,2,first,ap);va_end(ap);return V1;} /* SEQUENCE-CURSOR */ |
static object LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[25],(void **)(void *)&LnkLI25,2,first,ap);va_end(ap);return V1;} /* SEQUENCE-CURSOR */ |
1404 |
static void LnkT24(){ call_or_link(VV[24],(void **)&Lnk24);} /* MAKE-ARRAY1 */ |
static void LnkT24(){ call_or_link(VV[24],(void **)(void *)&Lnk24);} /* MAKE-ARRAY1 */ |
1405 |
static void LnkT23(){ call_or_link(VV[23],(void **)&Lnk23);} /* GET-AELTTYPE */ |
static void LnkT23(){ call_or_link(VV[23],(void **)(void *)&Lnk23);} /* GET-AELTTYPE */ |
1406 |
static object LnkTLI19(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[19],(void **)&LnkLI19,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */ |
static object LnkTLI19(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[19],(void **)(void *)&LnkLI19,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */ |
1407 |
static void LnkT18(){ call_or_link(VV[18],(void **)&Lnk18);} /* SUBTYPEP */ |
static void LnkT18(){ call_or_link(VV[18],(void **)(void *)&Lnk18);} /* SUBTYPEP */ |
1408 |
|
|
1409 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1410 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |