102 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
103 |
return; |
return; |
104 |
} |
} |
105 |
/* function definition for G1024 */ |
/* function definition for G1027 */ |
106 |
|
|
107 |
static void L2() |
static void L2() |
108 |
{register object *base=vs_base; |
{register object *base=vs_base; |
116 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
117 |
return; |
return; |
118 |
} |
} |
119 |
/* function definition for G1025 */ |
/* function definition for G1028 */ |
120 |
|
|
121 |
static void L3() |
static void L3() |
122 |
{register object *base=vs_base; |
{register object *base=vs_base; |
130 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
131 |
return; |
return; |
132 |
} |
} |
133 |
/* function definition for G1026 */ |
/* function definition for G1029 */ |
134 |
|
|
135 |
static void L4() |
static void L4() |
136 |
{register object *base=vs_base; |
{register object *base=vs_base; |
147 |
return; |
return; |
148 |
} |
} |
149 |
} |
} |
150 |
/* function definition for G1027 */ |
/* function definition for G1030 */ |
151 |
|
|
152 |
static void L5() |
static void L5() |
153 |
{register object *base=vs_base; |
{register object *base=vs_base; |
181 |
return; |
return; |
182 |
} |
} |
183 |
} |
} |
184 |
/* function definition for G1028 */ |
/* function definition for G1031 */ |
185 |
|
|
186 |
static void L6() |
static void L6() |
187 |
{register object *base=vs_base; |
{register object *base=vs_base; |
211 |
return; |
return; |
212 |
} |
} |
213 |
} |
} |
214 |
/* function definition for G1029 */ |
/* function definition for G1032 */ |
215 |
|
|
216 |
static void L7() |
static void L7() |
217 |
{register object *base=vs_base; |
{register object *base=vs_base; |
225 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
226 |
return; |
return; |
227 |
} |
} |
228 |
/* function definition for G1030 */ |
/* function definition for G1033 */ |
229 |
|
|
230 |
static void L8() |
static void L8() |
231 |
{register object *base=vs_base; |
{register object *base=vs_base; |
239 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
240 |
return; |
return; |
241 |
} |
} |
242 |
/* function definition for G1031 */ |
/* function definition for G1034 */ |
243 |
|
|
244 |
static void L9() |
static void L9() |
245 |
{register object *base=vs_base; |
{register object *base=vs_base; |
253 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
254 |
return; |
return; |
255 |
} |
} |
256 |
/* function definition for G1032 */ |
/* function definition for G1035 */ |
257 |
|
|
258 |
static void L10() |
static void L10() |
259 |
{register object *base=vs_base; |
{register object *base=vs_base; |
267 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
268 |
return; |
return; |
269 |
} |
} |
270 |
/* function definition for G1033 */ |
/* function definition for G1036 */ |
271 |
|
|
272 |
static void L11() |
static void L11() |
273 |
{register object *base=vs_base; |
{register object *base=vs_base; |
296 |
return; |
return; |
297 |
} |
} |
298 |
} |
} |
299 |
/* function definition for G1034 */ |
/* function definition for G1037 */ |
300 |
|
|
301 |
static void L12() |
static void L12() |
302 |
{register object *base=vs_base; |
{register object *base=vs_base; |
318 |
return; |
return; |
319 |
} |
} |
320 |
} |
} |
321 |
/* function definition for G1035 */ |
/* function definition for G1038 */ |
322 |
|
|
323 |
static void L13() |
static void L13() |
324 |
{register object *base=vs_base; |
{register object *base=vs_base; |
340 |
return; |
return; |
341 |
} |
} |
342 |
} |
} |
343 |
/* function definition for G1036 */ |
/* function definition for G1039 */ |
344 |
|
|
345 |
static void L14() |
static void L14() |
346 |
{register object *base=vs_base; |
{register object *base=vs_base; |
362 |
return; |
return; |
363 |
} |
} |
364 |
} |
} |
365 |
/* function definition for G1037 */ |
/* function definition for G1040 */ |
366 |
|
|
367 |
static void L15() |
static void L15() |
368 |
{register object *base=vs_base; |
{register object *base=vs_base; |
384 |
return; |
return; |
385 |
} |
} |
386 |
} |
} |
387 |
/* function definition for G1038 */ |
/* function definition for G1041 */ |
388 |
|
|
389 |
static void L16() |
static void L16() |
390 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2489 |
if((V171!= VV[41]))goto T1057; |
if((V171!= VV[41]))goto T1057; |
2490 |
{register object V172; |
{register object V172; |
2491 |
register object V173; |
register object V173; |
2492 |
V174 = make_fixnum(length((V168))); |
V174 = make_fixnum((long)length((V168))); |
2493 |
V173= one_minus(V174); |
V173= one_minus(V174); |
2494 |
V172= Cnil; |
V172= Cnil; |
2495 |
goto T1060; |
goto T1060; |
2525 |
{register object V177; |
{register object V177; |
2526 |
register object V178; |
register object V178; |
2527 |
register object V179; |
register object V179; |
2528 |
V180 = make_fixnum(length((V168))); |
V180 = make_fixnum((long)length((V168))); |
2529 |
V177= (VFUN_NARGS=2,(*(LnkLI98))((V169),V180)); |
V177= (VFUN_NARGS=2,(*(LnkLI98))((V169),V180)); |
2530 |
V179= make_fixnum(length((V168))); |
V179= make_fixnum((long)length((V168))); |
2531 |
V178= small_fixnum(0); |
V178= small_fixnum(0); |
2532 |
goto T1083; |
goto T1083; |
2533 |
T1083:; |
T1083:; |
2689 |
return; |
return; |
2690 |
} |
} |
2691 |
} |
} |
2692 |
static object LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[100],(void **)&LnkLI100,2,ap);} /* COERCE */ |
static object LnkTLI100(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[100],(void **)&LnkLI100,2,ap);va_end(ap);return V1;} /* COERCE */ |
2693 |
static object LnkTLI98(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[98],(void **)&LnkLI98,ap);} /* MAKE-SEQUENCE */ |
static object LnkTLI98(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[98],(void **)&LnkLI98,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */ |
2694 |
static object LnkTLI97(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[97],(void **)&LnkLI97,2,ap);} /* SUB-INTERVAL-P */ |
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;} /* SUB-INTERVAL-P */ |
2695 |
static object LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[96],(void **)&LnkLI96,1,ap);} /* KNOWN-TYPE-P */ |
static object LnkTLI96(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[96],(void **)&LnkLI96,1,ap);va_end(ap);return V1;} /* KNOWN-TYPE-P */ |
2696 |
static void LnkT95(){ call_or_link(VV[95],(void **)&Lnk95);} /* SUBTYPEP */ |
static void LnkT95(){ call_or_link(VV[95],(void **)&Lnk95);} /* SUBTYPEP */ |
2697 |
static object LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[94],(void **)&LnkLI94,1,ap);} /* NORMALIZE-TYPE */ |
static object LnkTLI94(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[94],(void **)&LnkLI94,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */ |
2698 |
static void LnkT93(){ call_or_link(VV[93],(void **)&Lnk93);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT93(){ call_or_link(VV[93],(void **)&Lnk93);} /* STRUCTURE-SUBTYPE-P */ |
2699 |
static object LnkTLI92(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[92],(void **)&LnkLI92,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */ |
static object LnkTLI92(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[92],(void **)&LnkLI92,1,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */ |
2700 |
static object LnkTLI91(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[91],(void **)&LnkLI91,1,ap);} /* SIMPLE-ARRAY-P */ |
static object LnkTLI91(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[91],(void **)&LnkLI91,1,ap);va_end(ap);return V1;} /* SIMPLE-ARRAY-P */ |
2701 |
static object LnkTLI86(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[86],(void **)&LnkLI86,1,ap);} /* ARRAY-DIMENSIONS */ |
static object LnkTLI86(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[86],(void **)&LnkLI86,1,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */ |
2702 |
static object LnkTLI85(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[85],(void **)&LnkLI85,2,ap);} /* MATCH-DIMENSIONS */ |
static object LnkTLI85(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[85],(void **)&LnkLI85,2,ap);va_end(ap);return V1;} /* MATCH-DIMENSIONS */ |
2703 |
static void LnkT81(){ call_or_link(VV[81],(void **)&Lnk81);} /* REALP */ |
static void LnkT81(){ call_or_link(VV[81],(void **)&Lnk81);} /* REALP */ |
2704 |
static void LnkT80(){ call_or_link(VV[80],(void **)&Lnk80);} /* RATIONALP */ |
static void LnkT80(){ call_or_link(VV[80],(void **)&Lnk80);} /* RATIONALP */ |
2705 |
static object LnkTLI79(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[79],(void **)&LnkLI79,2,ap);} /* IN-INTERVAL-P */ |
static object LnkTLI79(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[79],(void **)&LnkLI79,2,ap);va_end(ap);return V1;} /* IN-INTERVAL-P */ |
2706 |
static void LnkT76(){ call_or_link(VV[76],(void **)&Lnk76);} /* TYPEP */ |
static void LnkT76(){ call_or_link(VV[76],(void **)&Lnk76);} /* TYPEP */ |
2707 |
static void LnkT75(){ call_or_link(VV[75],(void **)&Lnk75);} /* ARRAY-HAS-FILL-POINTER-P */ |
static void LnkT75(){ call_or_link(VV[75],(void **)&Lnk75);} /* ARRAY-HAS-FILL-POINTER-P */ |
2708 |
static object LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[74],(void **)&LnkLI74,1,ap);} /* FIND-DOCUMENTATION */ |
static object LnkTLI74(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[74],(void **)&LnkLI74,1,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */ |
2709 |
|
|
2710 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
2711 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |