102 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
103 |
return; |
return; |
104 |
} |
} |
105 |
/* function definition for G1794 */ |
/* function definition for G1380 */ |
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 G1795 */ |
/* function definition for G1381 */ |
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 G1796 */ |
/* function definition for G1382 */ |
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 G1797 */ |
/* function definition for G1383 */ |
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 G1798 */ |
/* function definition for G1384 */ |
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 G1799 */ |
/* function definition for G1385 */ |
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 G1800 */ |
/* function definition for G1386 */ |
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 G1801 */ |
/* function definition for G1387 */ |
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 G1802 */ |
/* function definition for G1388 */ |
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 G1803 */ |
/* function definition for G1389 */ |
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 G1804 */ |
/* function definition for G1390 */ |
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 G1805 */ |
/* function definition for G1391 */ |
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 G1806 */ |
/* function definition for G1392 */ |
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 G1807 */ |
/* function definition for G1393 */ |
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 G1808 */ |
/* function definition for G1394 */ |
388 |
|
|
389 |
static void L16() |
static void L16() |
390 |
{register object *base=vs_base; |
{register object *base=vs_base; |
406 |
return; |
return; |
407 |
} |
} |
408 |
} |
} |
409 |
/* function definition for G1809 */ |
/* function definition for G1395 */ |
410 |
|
|
411 |
static void L17() |
static void L17() |
412 |
{register object *base=vs_base; |
{register object *base=vs_base; |
428 |
return; |
return; |
429 |
} |
} |
430 |
} |
} |
431 |
/* function definition for G1810 */ |
/* function definition for G1396 */ |
432 |
|
|
433 |
static void L18() |
static void L18() |
434 |
{register object *base=vs_base; |
{register object *base=vs_base; |
640 |
goto T121;} |
goto T121;} |
641 |
base[3]= (V44); |
base[3]= (V44); |
642 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
643 |
{object _funobj = (V52);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
super_funcall_no_event((V52)); |
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
|
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
|
|
else super_funcall_no_event(_funobj);} |
|
644 |
return;} |
return;} |
645 |
goto T121; |
goto T121; |
646 |
T121:; |
T121:; |
730 |
base[3]= car((V48)); |
base[3]= car((V48)); |
731 |
base[4]= (V44); |
base[4]= (V44); |
732 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
733 |
{object _funobj = base[3];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
super_funcall_no_event(base[3]); |
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
|
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
|
|
else super_funcall_no_event(_funobj);} |
|
734 |
return; |
return; |
735 |
goto T161; |
goto T161; |
736 |
T161:; |
T161:; |
1366 |
while(!endp(V85)) |
while(!endp(V85)) |
1367 |
{vs_push(car(V85));V85=cdr(V85);} |
{vs_push(car(V85));V85=cdr(V85);} |
1368 |
vs_base=base+6;} |
vs_base=base+6;} |
1369 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
super_funcall_no_event(base[5]); |
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
|
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
|
|
else super_funcall_no_event(_funobj);} |
|
1370 |
vs_top=sup; |
vs_top=sup; |
1371 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
1372 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1413 |
while(!endp(V90)) |
while(!endp(V90)) |
1414 |
{vs_push(car(V90));V90=cdr(V90);} |
{vs_push(car(V90));V90=cdr(V90);} |
1415 |
vs_base=base+1;} |
vs_base=base+1;} |
1416 |
{object _funobj = base[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
super_funcall_no_event(base[0]); |
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
|
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
|
|
else super_funcall_no_event(_funobj);} |
|
1417 |
vs_top=sup; |
vs_top=sup; |
1418 |
V87= vs_base[0]; |
V87= vs_base[0]; |
1419 |
goto T346; |
goto T346; |
3616 |
return; |
return; |
3617 |
} |
} |
3618 |
} |
} |
3619 |
static object LnkTLI152(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[152],(void **)&LnkLI152,2,first,ap);va_end(ap);return V1;} /* COERCE */ |
static object LnkTLI152(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[152],(void **)(void *)&LnkLI152,2,first,ap);va_end(ap);return V1;} /* COERCE */ |
3620 |
static object LnkTLI151(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[151],(void **)&LnkLI151,first,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */ |
static object LnkTLI151(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[151],(void **)(void *)&LnkLI151,first,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */ |
3621 |
static void LnkT150(){ call_or_link(VV[150],(void **)&Lnk150);} /* SPECIFIC-ERROR */ |
static void LnkT150(){ call_or_link(VV[150],(void **)(void *)&Lnk150);} /* SPECIFIC-ERROR */ |
3622 |
static object LnkTLI148(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[148],(void **)&LnkLI148,2,first,ap);va_end(ap);return V1;} /* SUB-INTERVAL-P */ |
static object LnkTLI148(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[148],(void **)(void *)&LnkLI148,2,first,ap);va_end(ap);return V1;} /* SUB-INTERVAL-P */ |
3623 |
static object LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[147],(void **)&LnkLI147,1,first,ap);va_end(ap);return V1;} /* KNOWN-TYPE-P */ |
static object LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[147],(void **)(void *)&LnkLI147,1,first,ap);va_end(ap);return V1;} /* KNOWN-TYPE-P */ |
3624 |
static void LnkT146(){ call_or_link(VV[146],(void **)&Lnk146);} /* SUBTYPEP */ |
static void LnkT146(){ call_or_link(VV[146],(void **)(void *)&Lnk146);} /* SUBTYPEP */ |
3625 |
static object LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[145],(void **)&LnkLI145,1,first,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */ |
static object LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[145],(void **)(void *)&LnkLI145,1,first,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */ |
3626 |
static void LnkT144(){ call_or_link(VV[144],(void **)&Lnk144);} /* FIND-CLASS */ |
static void LnkT144(){ call_or_link(VV[144],(void **)(void *)&Lnk144);} /* FIND-CLASS */ |
3627 |
static void LnkT143(){ call_or_link(VV[143],(void **)&Lnk143);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT143(){ call_or_link(VV[143],(void **)(void *)&Lnk143);} /* STRUCTURE-SUBTYPE-P */ |
3628 |
static object LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)&LnkLI142,1,first,ap);va_end(ap);return V1;} /* SIMPLE-ARRAY-P */ |
static object LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)(void *)&LnkLI142,1,first,ap);va_end(ap);return V1;} /* SIMPLE-ARRAY-P */ |
3629 |
static object LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)&LnkLI141,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */ |
static object LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)(void *)&LnkLI141,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */ |
3630 |
static object LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[135],(void **)&LnkLI135,1,first,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */ |
static object LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[135],(void **)(void *)&LnkLI135,1,first,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */ |
3631 |
static object LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[134],(void **)&LnkLI134,2,first,ap);va_end(ap);return V1;} /* MATCH-DIMENSIONS */ |
static object LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[134],(void **)(void *)&LnkLI134,2,first,ap);va_end(ap);return V1;} /* MATCH-DIMENSIONS */ |
3632 |
static void LnkT129(){ call_or_link(VV[129],(void **)&Lnk129);} /* REALP */ |
static void LnkT129(){ call_or_link(VV[129],(void **)(void *)&Lnk129);} /* REALP */ |
3633 |
static void LnkT128(){ call_or_link(VV[128],(void **)&Lnk128);} /* RATIONALP */ |
static void LnkT128(){ call_or_link(VV[128],(void **)(void *)&Lnk128);} /* RATIONALP */ |
3634 |
static object LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)&LnkLI127,2,first,ap);va_end(ap);return V1;} /* IN-INTERVAL-P */ |
static object LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)(void *)&LnkLI127,2,first,ap);va_end(ap);return V1;} /* IN-INTERVAL-P */ |
3635 |
static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* TYPEP */ |
static void LnkT125(){ call_or_link(VV[125],(void **)(void *)&Lnk125);} /* TYPEP */ |
3636 |
static void LnkT124(){ call_or_link(VV[124],(void **)&Lnk124);} /* CLASS-PRECEDENCE-LIST */ |
static void LnkT124(){ call_or_link(VV[124],(void **)(void *)&Lnk124);} /* CLASS-PRECEDENCE-LIST */ |
3637 |
static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* CLASS-OF */ |
static void LnkT123(){ call_or_link(VV[123],(void **)(void *)&Lnk123);} /* CLASS-OF */ |
3638 |
static void LnkT122(){ call_or_link(VV[122],(void **)&Lnk122);} /* CLASSP */ |
static void LnkT122(){ call_or_link(VV[122],(void **)(void *)&Lnk122);} /* CLASSP */ |
3639 |
static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* ARRAY-HAS-FILL-POINTER-P */ |
static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* ARRAY-HAS-FILL-POINTER-P */ |
3640 |
static object LnkTLI120(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[120],(void **)&LnkLI120,1,first,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */ |
static object LnkTLI120(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[120],(void **)(void *)&LnkLI120,1,first,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */ |
3641 |
|
|
3642 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
3643 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |