80 |
V24= symbol_value(VV[0]);} |
V24= symbol_value(VV[0]);} |
81 |
goto T8; |
goto T8; |
82 |
T8:; |
T8:; |
83 |
V27 = make_fixnum(length((V24))); |
V27 = make_fixnum((long)length((V24))); |
84 |
if(!(number_compare(V27,(Vcs[10]->c.c_car))>0)){ |
if(!(number_compare(V27,(Vcs[10]->c.c_car))>0)){ |
85 |
goto T17;} |
goto T17;} |
86 |
goto T16; |
goto T16; |
1030 |
V161= structure_ref((V160),VV[55],2); |
V161= structure_ref((V160),VV[55],2); |
1031 |
{object V162; |
{object V162; |
1032 |
register object V163; |
register object V163; |
1033 |
V164 = make_fixnum(length((V161))); |
V164 = make_fixnum((long)length((V161))); |
1034 |
V162= (number_compare((V155),V164)<=0?((V155)):V164); |
V162= (number_compare((V155),V164)<=0?((V155)):V164); |
1035 |
V163= small_fixnum(0); |
V163= small_fixnum(0); |
1036 |
goto T434; |
goto T434; |
1080 |
goto T447;} |
goto T447;} |
1081 |
goto T443; |
goto T443; |
1082 |
T443:; |
T443:; |
1083 |
V171 = make_fixnum(length(symbol_value(VV[58]))); |
V171 = make_fixnum((long)length(symbol_value(VV[58]))); |
1084 |
if(!(number_compare((V155),V171)<0)){ |
if(!(number_compare((V155),V171)<0)){ |
1085 |
goto T468;} |
goto T468;} |
1086 |
{register object V173; |
{register object V173; |
1114 |
} |
} |
1115 |
/* local entry for function ROUND-UP */ |
/* local entry for function ROUND-UP */ |
1116 |
|
|
1117 |
static long LI8(V180,V181) |
static object LI8(V180,V181) |
1118 |
|
|
1119 |
long V180;long V181; |
long V180;long V181; |
1120 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
1126 |
Lceiling(); |
Lceiling(); |
1127 |
vs_top=sup; |
vs_top=sup; |
1128 |
V180= fix(vs_base[0]); |
V180= fix(vs_base[0]); |
1129 |
{long V182 = (V180)*(V181); |
{long V182 = (long)(V180)*(V181); |
1130 |
VMR8(V182)} |
VMR8((object)V182)} |
1131 |
base[0]=base[0]; |
base[0]=base[0]; |
1132 |
} |
} |
1133 |
/* local entry for function GET-SLOT-POS */ |
/* local entry for function GET-SLOT-POS */ |
1226 |
goto T537; |
goto T537; |
1227 |
goto T538; |
goto T538; |
1228 |
T538:; |
T538:; |
1229 |
V201 = make_fixnum(length(symbol_value(VV[59]))); |
V201 = make_fixnum((long)length(symbol_value(VV[59]))); |
1230 |
if(number_compare((V186),V201)<0){ |
if(number_compare((V186),V201)<0){ |
1231 |
goto T540;} |
goto T540;} |
1232 |
V200= Cnil; |
V200= Cnil; |
1288 |
V212= nconc((V212),VV[62]); |
V212= nconc((V212),VV[62]); |
1289 |
goto T566; |
goto T566; |
1290 |
T566:; |
T566:; |
1291 |
V210= (*(LnkLI126))(V206,V208); |
V210= (long)(*(LnkLI126))(V206,V208); |
1292 |
if(!((V206)==(V210))){ |
if(!((V206)==(V210))){ |
1293 |
goto T579;} |
goto T579;} |
1294 |
goto T578; |
goto T578; |
1307 |
vs_top=sup; |
vs_top=sup; |
1308 |
V218= vs_base[0]; |
V218= vs_base[0]; |
1309 |
V206= fix(number_plus(V217,V218)); |
V206= fix(number_plus(V217,V218)); |
1310 |
V207= (V207)+(1); |
V207= (long)(V207)+(1); |
1311 |
V211= cdr((V211)); |
V211= cdr((V211)); |
1312 |
V212= car((V211)); |
V212= car((V211)); |
1313 |
goto T556;} |
goto T556;} |
1318 |
(void) (*Lnk125)(); |
(void) (*Lnk125)(); |
1319 |
vs_top=sup; |
vs_top=sup; |
1320 |
V219= vs_base[0]; |
V219= vs_base[0]; |
1321 |
V220 = make_fixnum((*(LnkLI126))(V206,fix(V219))); |
V220 = make_fixnum((long)(*(LnkLI126))(V206,fix(V219))); |
1322 |
{object V221 = list(3,(V205),V220,(V191)); |
{object V221 = list(3,(V205),V220,(V191)); |
1323 |
VMR9(V221)}}}} |
VMR9(V221)}}}} |
1324 |
base[0]=base[0]; |
base[0]=base[0]; |
1393 |
V235= VV[19]; |
V235= VV[19]; |
1394 |
goto T605; |
goto T605; |
1395 |
T605:; |
T605:; |
1396 |
V248= make_fixnum(length((V237))); |
V248= make_fixnum((long)length((V237))); |
1397 |
{register object V249; |
{register object V249; |
1398 |
register object V250; |
register object V250; |
1399 |
V249= (V237); |
V249= (V237); |
2484 |
} |
} |
2485 |
static void LnkT149(){ call_or_link(VV[149],(void **)&Lnk149);} /* STRUCTURE-REF1 */ |
static void LnkT149(){ call_or_link(VV[149],(void **)&Lnk149);} /* STRUCTURE-REF1 */ |
2486 |
static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* STRUCTURE-SUBTYPE-P */ |
2487 |
static object LnkTLI144(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[144],(void **)&LnkLI144,5,ap);} /* MAKE-PREDICATE */ |
static object LnkTLI144(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[144],(void **)&LnkLI144,5,ap);va_end(ap);return V1;} /* MAKE-PREDICATE */ |
2488 |
static object LnkTLI143(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[143],(void **)&LnkLI143,5,ap);} /* MAKE-CONSTRUCTOR */ |
static object LnkTLI143(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[143],(void **)&LnkLI143,5,ap);va_end(ap);return V1;} /* MAKE-CONSTRUCTOR */ |
2489 |
static object LnkTLI142(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[142],(void **)&LnkLI142,2,ap);} /* PARSE-SLOT-DESCRIPTION */ |
static object LnkTLI142(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[142],(void **)&LnkLI142,2,ap);va_end(ap);return V1;} /* PARSE-SLOT-DESCRIPTION */ |
2490 |
static object LnkTLI136(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[136],(void **)&LnkLI136,3,ap);} /* CHECK-S-DATA */ |
static object LnkTLI136(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[136],(void **)&LnkLI136,3,ap);va_end(ap);return V1;} /* CHECK-S-DATA */ |
2491 |
static object LnkTLI135(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[135],(void **)&LnkLI135,ap);} /* MAKE-S-DATA */ |
static object LnkTLI135(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[135],(void **)&LnkLI135,ap);va_end(ap);return V1;} /* MAKE-S-DATA */ |
2492 |
static object LnkTLI134(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[134],(void **)&LnkLI134,3,ap);} /* GET-SLOT-POS */ |
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;} /* GET-SLOT-POS */ |
2493 |
static object LnkTLI133(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[133],(void **)&LnkLI133,ap);} /* WARN */ |
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;} /* WARN */ |
2494 |
static void LnkT132(){ call_or_link(VV[132],(void **)&Lnk132);} /* MAKE-S-DATA-STRUCTURE */ |
static void LnkT132(){ call_or_link(VV[132],(void **)&Lnk132);} /* MAKE-S-DATA-STRUCTURE */ |
2495 |
static object LnkTLI131(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[131],(void **)&LnkLI131,3,ap);} /* MAKE-T-TYPE */ |
static object LnkTLI131(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[131],(void **)&LnkLI131,3,ap);va_end(ap);return V1;} /* MAKE-T-TYPE */ |
2496 |
static void LnkT127(){ call_or_link(VV[127],(void **)&Lnk127);} /* MAKE-ACCESS-FUNCTION */ |
static void LnkT127(){ call_or_link(VV[127],(void **)&Lnk127);} /* MAKE-ACCESS-FUNCTION */ |
2497 |
static long LnkTLI126(va_alist)va_dcl{va_list ap;va_start(ap);return(long )call_proc(VV[126],(void **)&LnkLI126,20738,ap);} /* ROUND-UP */ |
static object LnkTLI126(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[126],(void **)&LnkLI126,20738,ap);va_end(ap);return V1;} /* ROUND-UP */ |
2498 |
static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* SIZE-OF */ |
static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* SIZE-OF */ |
2499 |
static object LnkTLI124(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[124],(void **)&LnkLI124,2,ap);} /* COERCE */ |
static object LnkTLI124(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[124],(void **)&LnkLI124,2,ap);va_end(ap);return V1;} /* COERCE */ |
2500 |
static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* TYPEP */ |
static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* TYPEP */ |
2501 |
static void LnkT122(){ call_or_link(VV[122],(void **)&Lnk122);} /* AET-TYPE */ |
static void LnkT122(){ call_or_link(VV[122],(void **)&Lnk122);} /* AET-TYPE */ |
2502 |
static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* ALIGNMENT */ |
static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* ALIGNMENT */ |
2503 |
static object LnkTLI120(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[120],(void **)&LnkLI120,ap);} /* MAKE-ARRAY */ |
static object LnkTLI120(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[120],(void **)&LnkLI120,ap);va_end(ap);return V1;} /* MAKE-ARRAY */ |
2504 |
static object LnkTLI119(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[119],(void **)&LnkLI119,2,ap);} /* OVERWRITE-SLOT-DESCRIPTIONS */ |
static object LnkTLI119(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[119],(void **)&LnkLI119,2,ap);va_end(ap);return V1;} /* OVERWRITE-SLOT-DESCRIPTIONS */ |
2505 |
static object LnkTLI118(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[118],(void **)&LnkLI118,1,ap);} /* NORMALIZE-TYPE */ |
static object LnkTLI118(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[118],(void **)&LnkLI118,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */ |
2506 |
static object LnkTLI117(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[117],(void **)&LnkLI117,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */ |
static object LnkTLI117(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[117],(void **)&LnkLI117,1,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */ |
2507 |
static void LnkT115(){ call_or_link(VV[115],(void **)&Lnk115);} /* X */ |
static void LnkT115(){ call_or_link(VV[115],(void **)&Lnk115);} /* X */ |
2508 |
static object LnkTLI113(){return call_proc0(VV[113],(void **)&LnkLI113);} /* ILLEGAL-BOA */ |
static object LnkTLI113(){return call_proc0(VV[113],(void **)&LnkLI113);} /* ILLEGAL-BOA */ |
2509 |
static void LnkT112(){ call_or_link(VV[112],(void **)&Lnk112);} /* SUBTYPEP */ |
static void LnkT112(){ call_or_link(VV[112],(void **)&Lnk112);} /* SUBTYPEP */ |
2510 |
static void LnkT111(){ call_or_link(VV[111],(void **)&Lnk111);} /* RECORD-FN */ |
static void LnkT111(){ call_or_link(VV[111],(void **)&Lnk111);} /* RECORD-FN */ |
2511 |
static object LnkTLI110(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[110],(void **)&LnkLI110,ap);} /* ADJUST-ARRAY */ |
static object LnkTLI110(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[110],(void **)&LnkLI110,ap);va_end(ap);return V1;} /* ADJUST-ARRAY */ |
2512 |
static void LnkT109(){ call_or_link(VV[109],(void **)&Lnk109);} /* STRING-CONCATENATE */ |
static void LnkT109(){ call_or_link(VV[109],(void **)&Lnk109);} /* STRING-CONCATENATE */ |
2513 |
|
|
2514 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |