2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "clcs_condition_definitions.h" |
#include "clcs_condition_definitions.h" |
4 |
void init_clcs_condition_definitions(){do_init(VV);} |
void init_clcs_condition_definitions(){do_init(VV);} |
5 |
/* local entry for function progn 'compile2185 */ |
/* local entry for function progn 'compile2187 */ |
6 |
|
|
7 |
static object LI1() |
static object LI1() |
8 |
|
|
10 |
goto TTL; |
goto TTL; |
11 |
TTL:; |
TTL:; |
12 |
base[0]= VV[0]; |
base[0]= VV[0]; |
13 |
base[1]= symbol_value(VV[1]); |
base[1]= (VV[1]->s.s_dbind); |
14 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
15 |
Ladjoin(); |
Ladjoin(); |
16 |
vs_top=sup; |
vs_top=sup; |
17 |
setq(VV[1],vs_base[0]); |
(VV[1]->s.s_dbind)= vs_base[0]; |
18 |
{object V2 = Cnil; |
{object V2 = Cnil; |
19 |
VMR1(V2)} |
VMR1(V2)} |
20 |
base[0]=base[0]; |
base[0]=base[0]; |
21 |
return Cnil; |
return Cnil; |
22 |
} |
} |
23 |
/* local entry for function progn 'compile2205 */ |
/* local entry for function progn 'compile2207 */ |
24 |
|
|
25 |
static object LI2() |
static object LI2() |
26 |
|
|
27 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
28 |
goto TTL; |
goto TTL; |
29 |
TTL:; |
TTL:; |
30 |
{register object x= VV[0],V3= symbol_value(VV[1]); |
{register object x= VV[0],V3= (VV[1]->s.s_dbind); |
31 |
while(!endp(V3)) |
while(V3!=Cnil) |
32 |
if(eql(x,V3->c.c_car)){ |
if(eql(x,V3->c.c_car)){ |
33 |
goto T8; |
goto T8; |
34 |
}else V3=V3->c.c_cdr; |
}else V3=V3->c.c_cdr; |
35 |
goto T5;} |
goto T5;} |
36 |
goto T8; |
goto T8; |
37 |
T8:; |
T8:; |
38 |
{register object x= VV[2],V4= symbol_value(VV[1]); |
{register object x= VV[2],V4= (VV[1]->s.s_dbind); |
39 |
while(!endp(V4)) |
while(V4!=Cnil) |
40 |
if(eql(x,V4->c.c_car)){ |
if(eql(x,V4->c.c_car)){ |
41 |
goto T9; |
goto T9; |
42 |
}else V4=V4->c.c_cdr; |
}else V4=V4->c.c_cdr; |
46 |
{register object V5; |
{register object V5; |
47 |
register object V6; |
register object V6; |
48 |
V5= VV[3]; |
V5= VV[3]; |
49 |
V6= car((V5)); |
V6= CMPcar((V5)); |
50 |
goto T14; |
goto T14; |
51 |
T14:; |
T14:; |
52 |
if(!(endp_prop((V5)))){ |
if(!(((V5))==Cnil)){ |
53 |
goto T15;} |
goto T15;} |
54 |
goto T10; |
goto T10; |
55 |
goto T15; |
goto T15; |
66 |
vs_top=sup; |
vs_top=sup; |
67 |
goto T19; |
goto T19; |
68 |
T19:; |
T19:; |
69 |
V5= cdr((V5)); |
V5= CMPcdr((V5)); |
70 |
V6= car((V5)); |
V6= CMPcar((V5)); |
71 |
goto T14;} |
goto T14;} |
72 |
goto T10; |
goto T10; |
73 |
T10:; |
T10:; |
74 |
base[0]= VV[2]; |
base[0]= VV[2]; |
75 |
base[1]= symbol_value(VV[1]); |
base[1]= (VV[1]->s.s_dbind); |
76 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
77 |
(void) (*Lnk260)(); |
(void) (*Lnk260)(); |
78 |
vs_top=sup; |
vs_top=sup; |
79 |
setq(VV[1],vs_base[0]); |
(VV[1]->s.s_dbind)= vs_base[0]; |
80 |
goto T5; |
goto T5; |
81 |
T5:; |
T5:; |
82 |
{object V7 = Cnil; |
{object V7 = Cnil; |
84 |
base[0]=base[0]; |
base[0]=base[0]; |
85 |
return Cnil; |
return Cnil; |
86 |
} |
} |
87 |
/* function definition for Defclass WARNING2251 */ |
/* function definition for Defclass WARNING2253 */ |
88 |
|
|
89 |
static void L3() |
static void L3() |
90 |
{register object *base=vs_base; |
{register object *base=vs_base; |
91 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
92 |
vs_reserve(VM3); |
vs_check; |
|
check_arg(0); |
|
93 |
vs_top=sup; |
vs_top=sup; |
94 |
goto TTL; |
goto TTL; |
95 |
TTL:; |
TTL:; |
102 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
103 |
return; |
return; |
104 |
} |
} |
105 |
/* local entry for function progn 'compile2267 */ |
/* local entry for function progn 'compile2269 */ |
106 |
|
|
107 |
static object LI4() |
static object LI4() |
108 |
|
|
117 |
base[0]=base[0]; |
base[0]=base[0]; |
118 |
return Cnil; |
return Cnil; |
119 |
} |
} |
120 |
/* local entry for function progn 'compile2284 */ |
/* local entry for function progn 'compile2286 */ |
121 |
|
|
122 |
static object LI5() |
static object LI5() |
123 |
|
|
125 |
goto TTL; |
goto TTL; |
126 |
TTL:; |
TTL:; |
127 |
base[0]= VV[7]; |
base[0]= VV[7]; |
128 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
129 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
130 |
Ladjoin(); |
Ladjoin(); |
131 |
vs_top=sup; |
vs_top=sup; |
132 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
133 |
{object V10 = Cnil; |
{object V10 = Cnil; |
134 |
VMR5(V10)} |
VMR5(V10)} |
135 |
base[0]=base[0]; |
base[0]=base[0]; |
136 |
return Cnil; |
return Cnil; |
137 |
} |
} |
138 |
/* local entry for function progn 'compile2308 */ |
/* local entry for function progn 'compile2310 */ |
139 |
|
|
140 |
static object LI6() |
static object LI6() |
141 |
|
|
147 |
VMR6(V11)} |
VMR6(V11)} |
148 |
return Cnil; |
return Cnil; |
149 |
} |
} |
150 |
/* local entry for function progn 'compile2320 */ |
/* local entry for function progn 'compile2322 */ |
151 |
|
|
152 |
static object LI7() |
static object LI7() |
153 |
|
|
158 |
VMR7(V12)} |
VMR7(V12)} |
159 |
return Cnil; |
return Cnil; |
160 |
} |
} |
161 |
/* function definition for Defclass SERIOUS-CONDITION2340 */ |
/* function definition for Defclass SERIOUS-CONDITION2342 */ |
162 |
|
|
163 |
static void L8() |
static void L8() |
164 |
{register object *base=vs_base; |
{register object *base=vs_base; |
165 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
166 |
vs_reserve(VM8); |
vs_check; |
|
check_arg(0); |
|
167 |
vs_top=sup; |
vs_top=sup; |
168 |
goto TTL; |
goto TTL; |
169 |
TTL:; |
TTL:; |
176 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
177 |
return; |
return; |
178 |
} |
} |
179 |
/* local entry for function progn 'compile2356 */ |
/* local entry for function progn 'compile2358 */ |
180 |
|
|
181 |
static object LI9() |
static object LI9() |
182 |
|
|
191 |
base[0]=base[0]; |
base[0]=base[0]; |
192 |
return Cnil; |
return Cnil; |
193 |
} |
} |
194 |
/* local entry for function progn 'compile2373 */ |
/* local entry for function progn 'compile2375 */ |
195 |
|
|
196 |
static object LI10() |
static object LI10() |
197 |
|
|
199 |
goto TTL; |
goto TTL; |
200 |
TTL:; |
TTL:; |
201 |
base[0]= VV[12]; |
base[0]= VV[12]; |
202 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
203 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
204 |
Ladjoin(); |
Ladjoin(); |
205 |
vs_top=sup; |
vs_top=sup; |
206 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
207 |
{object V15 = Cnil; |
{object V15 = Cnil; |
208 |
VMR10(V15)} |
VMR10(V15)} |
209 |
base[0]=base[0]; |
base[0]=base[0]; |
210 |
return Cnil; |
return Cnil; |
211 |
} |
} |
212 |
/* local entry for function progn 'compile2397 */ |
/* local entry for function progn 'compile2399 */ |
213 |
|
|
214 |
static object LI11() |
static object LI11() |
215 |
|
|
221 |
VMR11(V16)} |
VMR11(V16)} |
222 |
return Cnil; |
return Cnil; |
223 |
} |
} |
224 |
/* local entry for function progn 'compile2409 */ |
/* local entry for function progn 'compile2411 */ |
225 |
|
|
226 |
static object LI12() |
static object LI12() |
227 |
|
|
232 |
VMR12(V17)} |
VMR12(V17)} |
233 |
return Cnil; |
return Cnil; |
234 |
} |
} |
235 |
/* function definition for Defclass ERROR2429 */ |
/* function definition for Defclass ERROR2431 */ |
236 |
|
|
237 |
static void L13() |
static void L13() |
238 |
{register object *base=vs_base; |
{register object *base=vs_base; |
239 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM13; VC13 |
240 |
vs_reserve(VM13); |
vs_check; |
|
check_arg(0); |
|
241 |
vs_top=sup; |
vs_top=sup; |
242 |
goto TTL; |
goto TTL; |
243 |
TTL:; |
TTL:; |
250 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
251 |
return; |
return; |
252 |
} |
} |
253 |
/* local entry for function progn 'compile2445 */ |
/* local entry for function progn 'compile2447 */ |
254 |
|
|
255 |
static object LI14() |
static object LI14() |
256 |
|
|
265 |
base[0]=base[0]; |
base[0]=base[0]; |
266 |
return Cnil; |
return Cnil; |
267 |
} |
} |
268 |
/* local entry for function progn 'compile2462 */ |
/* local entry for function progn 'compile2464 */ |
269 |
|
|
270 |
static object LI15() |
static object LI15() |
271 |
|
|
273 |
goto TTL; |
goto TTL; |
274 |
TTL:; |
TTL:; |
275 |
base[0]= VV[15]; |
base[0]= VV[15]; |
276 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
277 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
278 |
Ladjoin(); |
Ladjoin(); |
279 |
vs_top=sup; |
vs_top=sup; |
280 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
281 |
{object V20 = Cnil; |
{object V20 = Cnil; |
282 |
VMR15(V20)} |
VMR15(V20)} |
283 |
base[0]=base[0]; |
base[0]=base[0]; |
284 |
return Cnil; |
return Cnil; |
285 |
} |
} |
286 |
/* local entry for function progn 'compile2486 */ |
/* local entry for function progn 'compile2488 */ |
287 |
|
|
288 |
static object LI16() |
static object LI16() |
289 |
|
|
295 |
VMR16(V21)} |
VMR16(V21)} |
296 |
return Cnil; |
return Cnil; |
297 |
} |
} |
298 |
/* local entry for function progn 'compile2498 */ |
/* local entry for function progn 'compile2500 */ |
299 |
|
|
300 |
static object LI17() |
static object LI17() |
301 |
|
|
327 |
vs_top=sup; |
vs_top=sup; |
328 |
V27= vs_base[0]; |
V27= vs_base[0]; |
329 |
vs_top=base+2; |
vs_top=base+2; |
330 |
while(!endp(V27)) |
while(V27!=Cnil) |
331 |
{vs_push(car(V27));V27=cdr(V27);} |
{vs_push((V27)->c.c_car);V27=(V27)->c.c_cdr;} |
332 |
vs_base=base+0;} |
vs_base=base+0;} |
333 |
Lformat(); |
Lformat(); |
334 |
vs_top=sup; |
vs_top=sup; |
337 |
base[0]=base[0]; |
base[0]=base[0]; |
338 |
return Cnil; |
return Cnil; |
339 |
} |
} |
340 |
/* function definition for Defclass SIMPLE-CONDITION2526 */ |
/* function definition for Defclass SIMPLE-CONDITION2528 */ |
341 |
|
|
342 |
static void L19() |
static void L19() |
343 |
{register object *base=vs_base; |
{register object *base=vs_base; |
344 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
345 |
vs_reserve(VM19); |
vs_check; |
|
check_arg(0); |
|
346 |
vs_top=sup; |
vs_top=sup; |
347 |
goto TTL; |
goto TTL; |
348 |
TTL:; |
TTL:; |
351 |
base[2]= VV[17]; |
base[2]= VV[17]; |
352 |
V29= listA(9,VV[18],VV[19],VV[20],VV[21],VV[22],Cnil,VV[23],VV[24],VV[25]); |
V29= listA(9,VV[18],VV[19],VV[20],VV[21],VV[22],Cnil,VV[23],VV[24],VV[25]); |
353 |
base[4]= VV[26]; |
base[4]= VV[26]; |
354 |
base[5]= symbol_function(VV[267]); |
base[5]= (VV[267]->s.s_gfdef); |
355 |
base[6]= VV[18]; |
base[6]= VV[18]; |
356 |
base[7]= VV[27]; |
base[7]= VV[27]; |
357 |
base[8]= VV[20]; |
base[8]= VV[20]; |
371 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
372 |
return; |
return; |
373 |
} |
} |
374 |
/* local entry for function progn 'compile2544 */ |
/* local entry for function progn 'compile2546 */ |
375 |
|
|
376 |
static object LI20() |
static object LI20() |
377 |
|
|
386 |
base[0]=base[0]; |
base[0]=base[0]; |
387 |
return Cnil; |
return Cnil; |
388 |
} |
} |
389 |
/* local entry for function progn 'compile2561 */ |
/* local entry for function progn 'compile2563 */ |
390 |
|
|
391 |
static object LI21() |
static object LI21() |
392 |
|
|
394 |
goto TTL; |
goto TTL; |
395 |
TTL:; |
TTL:; |
396 |
base[0]= VV[31]; |
base[0]= VV[31]; |
397 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
398 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
399 |
Ladjoin(); |
Ladjoin(); |
400 |
vs_top=sup; |
vs_top=sup; |
401 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
402 |
{object V33 = Cnil; |
{object V33 = Cnil; |
403 |
VMR21(V33)} |
VMR21(V33)} |
404 |
base[0]=base[0]; |
base[0]=base[0]; |
405 |
return Cnil; |
return Cnil; |
406 |
} |
} |
407 |
/* local entry for function progn 'compile2585 */ |
/* local entry for function progn 'compile2587 */ |
408 |
|
|
409 |
static object LI22() |
static object LI22() |
410 |
|
|
416 |
VMR22(V34)} |
VMR22(V34)} |
417 |
return Cnil; |
return Cnil; |
418 |
} |
} |
419 |
/* local entry for function progn 'compile2601 */ |
/* local entry for function progn 'compile2603 */ |
420 |
|
|
421 |
static object LI23() |
static object LI23() |
422 |
|
|
438 |
static void L24() |
static void L24() |
439 |
{register object *base=vs_base; |
{register object *base=vs_base; |
440 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM24; VC24 |
441 |
vs_reserve(VM24); |
vs_check; |
442 |
{object V36; |
{object V36; |
443 |
register object V37; |
register object V37; |
444 |
register object V38; |
register object V38; |
445 |
register object V39; |
register object V39; |
|
check_arg(4); |
|
446 |
V36=(base[0]); |
V36=(base[0]); |
447 |
V37=(base[1]); |
V37=(base[1]); |
448 |
V38=(base[2]); |
V38=(base[2]); |
450 |
vs_top=sup; |
vs_top=sup; |
451 |
goto TTL; |
goto TTL; |
452 |
TTL:; |
TTL:; |
453 |
if((symbol_value(VV[34]))==Cnil){ |
if(((VV[34]->s.s_dbind))==Cnil){ |
454 |
goto T107;} |
goto T107;} |
455 |
if(((V37))==Cnil){ |
if(((V37))==Cnil){ |
456 |
goto T110;} |
goto T110;} |
461 |
vs_top=sup; |
vs_top=sup; |
462 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
463 |
goto T114;} |
goto T114;} |
464 |
base[4]= structure_ref((V37),VV[35],0); |
base[4]= STREF(object,(V37),0); |
465 |
base[5]= structure_ref((V37),VV[35],1); |
base[5]= STREF(object,(V37),4); |
466 |
base[6]= structure_ref((V37),VV[35],2); |
base[6]= STREF(object,(V37),8); |
467 |
base[7]= (V38); |
base[7]= (V38); |
468 |
base[8]= (V39); |
base[8]= (V39); |
469 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
482 |
goto T128; |
goto T128; |
483 |
goto T130; |
goto T130; |
484 |
T130:; |
T130:; |
485 |
base[4]= V38; |
if(!(((V38)->str.str_def)==(VV[36]))){ |
|
vs_top=(vs_base=base+4)+1; |
|
|
(void) (*Lnk271)(); |
|
|
vs_top=sup; |
|
|
V44= vs_base[0]; |
|
|
if(!((V44)==(VV[36]))){ |
|
486 |
goto T128;} |
goto T128;} |
487 |
V42= structure_ref((V38),VV[37],1); |
V42= STREF(object,(V38),4); |
488 |
goto T126; |
goto T126; |
489 |
goto T128; |
goto T128; |
490 |
T128:;{object V45; |
T128:;{object V44; |
491 |
V45= symbol_value(VV[38]); |
V44= (VV[38]->s.s_dbind); |
492 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
493 |
base[5]= (V38); |
base[5]= (V38); |
494 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
495 |
(void) (*Lnk272)(); |
(void) (*Lnk271)(); |
496 |
vs_top=sup; |
vs_top=sup; |
497 |
V46= vs_base[0]; |
V45= vs_base[0]; |
498 |
if(!((V45)==(car(V46)))){ |
if(!((V44)==(CMPcar(V45)))){ |
499 |
goto T135;}} |
goto T133;}} |
500 |
V42= car(((V38))->cc.cc_turbo[12]); |
V42= CMPcar(((V38))->cc.cc_turbo[12]); |
501 |
goto T126; |
goto T126; |
502 |
goto T135; |
goto T133; |
503 |
T135:; |
T133:; |
504 |
V42= Cnil; |
V42= Cnil; |
505 |
goto T126; |
goto T126; |
506 |
T126:; |
T126:; |
507 |
if(((V42))==Cnil){ |
if(((V42))==Cnil){ |
508 |
goto T141;} |
goto T139;} |
509 |
base[4]= aset1((V42),fix((V37)),V38); |
base[4]= ((V42))->v.v_self[fix((V37))]= (V38); |
510 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
511 |
return; |
return; |
512 |
goto T141; |
goto T139; |
513 |
T141:; |
T139:; |
514 |
base[4]= Cnil; |
base[4]= Cnil; |
515 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
516 |
return;} |
return;} |
517 |
goto T124; |
goto T124; |
518 |
T124:; |
T124:; |
519 |
{register object V48; |
{register object V47; |
520 |
V48= V37; |
V47= V37; |
521 |
base[4]= (V48); |
base[4]= (V47); |
522 |
base[5]= VV[39]; |
base[5]= VV[39]; |
523 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
524 |
(void) (*Lnk270)(); |
(void) (*Lnk270)(); |
525 |
vs_top=sup; |
vs_top=sup; |
526 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
527 |
goto T144;} |
goto T142;} |
528 |
{object V49; |
{object V48; |
529 |
object V50; |
object V49; |
530 |
register object V51; |
register object V50; |
531 |
V49= structure_ref((V37),VV[39],0); |
V48= STREF(object,(V37),0); |
532 |
V50= list(2,(V38),(V39)); |
V49= list(2,(V38),(V39)); |
533 |
V51= structure_ref((V37),VV[39],1); |
V50= STREF(object,(V37),4); |
534 |
if(((V51))==Cnil){ |
if(((V50))==Cnil){ |
535 |
goto T152;} |
goto T150;} |
536 |
if((cdr((V51)))!=Cnil){ |
if((CMPcdr((V50)))!=Cnil){ |
537 |
goto T152;} |
goto T150;} |
538 |
base[4]= (V50); |
base[4]= (V49); |
539 |
base[5]= car((V51)); |
base[5]= CMPcar((V50)); |
540 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
541 |
{object _funobj = (V49);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V48);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
542 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
543 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
544 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
545 |
return; |
return; |
546 |
goto T152; |
goto T150; |
547 |
T152:; |
T150:; |
548 |
base[4]= (V49); |
base[4]= (V48); |
549 |
base[5]= (V50); |
base[5]= (V49); |
550 |
{object V52; |
{object V51; |
551 |
V52= (V51); |
V51= (V50); |
552 |
vs_top=base+6; |
vs_top=base+6; |
553 |
while(!endp(V52)) |
while(V51!=Cnil) |
554 |
{vs_push(car(V52));V52=cdr(V52);} |
{vs_push((V51)->c.c_car);V51=(V51)->c.c_cdr;} |
555 |
vs_base=base+5;} |
vs_base=base+5;} |
556 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
557 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
558 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
559 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
560 |
return;} |
return;} |
561 |
goto T144; |
goto T142; |
562 |
T144:; |
T142:; |
563 |
base[4]= (V48); |
base[4]= (V47); |
564 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
565 |
Lfunctionp(); |
Lfunctionp(); |
566 |
vs_top=sup; |
vs_top=sup; |
567 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
568 |
goto T162;} |
goto T160;} |
569 |
base[4]= (V38); |
base[4]= (V38); |
570 |
base[5]= (V39); |
base[5]= (V39); |
571 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
574 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
575 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
576 |
return; |
return; |
577 |
goto T162; |
goto T160; |
578 |
T162:; |
T160:; |
579 |
base[4]= VV[40]; |
base[4]= VV[40]; |
580 |
base[5]= VV[18]; |
base[5]= VV[18]; |
581 |
base[6]= VV[41]; |
base[6]= VV[41]; |
592 |
T110:; |
T110:; |
593 |
base[4]= VV[47]; |
base[4]= VV[47]; |
594 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
595 |
(void) (*Lnk273)(); |
(void) (*Lnk272)(); |
596 |
return; |
return; |
597 |
goto T107; |
goto T107; |
598 |
T107:; |
T107:; |
599 |
base[4]= (*(LnkLI274))((V38),(V39)); |
base[4]= (*(LnkLI273))((V38),(V39)); |
600 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
601 |
return; |
return; |
602 |
} |
} |
603 |
} |
} |
604 |
/* local entry for function progn 'compile2794 */ |
/* local entry for function progn 'compile2796 */ |
605 |
|
|
606 |
static object LI25() |
static object LI25() |
607 |
|
|
613 |
base[2]= Cnil; |
base[2]= Cnil; |
614 |
base[3]= VV[49]; |
base[3]= VV[49]; |
615 |
base[4]= VV[50]; |
base[4]= VV[50]; |
616 |
V53= symbol_function(VV[275]); |
V52= (VV[274]->s.s_gfdef); |
617 |
base[5]= listA(3,VV[51],V53,VV[52]); |
base[5]= listA(3,VV[51],V52,VV[52]); |
618 |
base[6]= Cnil; |
base[6]= Cnil; |
619 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
620 |
(void) (*Lnk276)(); |
(void) (*Lnk275)(); |
621 |
vs_top=sup; |
vs_top=sup; |
622 |
{object V54 = Cnil; |
{object V53 = Cnil; |
623 |
VMR25(V54)} |
VMR25(V53)} |
624 |
base[0]=base[0]; |
base[0]=base[0]; |
625 |
return Cnil; |
return Cnil; |
626 |
} |
} |
627 |
/* local entry for function progn 'compile2802 */ |
/* local entry for function progn 'compile2804 */ |
628 |
|
|
629 |
static object LI26() |
static object LI26() |
630 |
|
|
631 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
632 |
goto TTL; |
goto TTL; |
633 |
TTL:; |
TTL:; |
634 |
{object V55 = Cnil; |
{object V54 = Cnil; |
635 |
VMR26(V55)} |
VMR26(V54)} |
636 |
return Cnil; |
return Cnil; |
637 |
} |
} |
638 |
/* function definition for Defclass SIMPLE-WARNING2822 */ |
/* function definition for Defclass SIMPLE-WARNING2824 */ |
639 |
|
|
640 |
static void L27() |
static void L27() |
641 |
{register object *base=vs_base; |
{register object *base=vs_base; |
642 |
register object *sup=base+VM27; VC27 |
register object *sup=base+VM27; VC27 |
643 |
vs_reserve(VM27); |
vs_check; |
|
check_arg(0); |
|
644 |
vs_top=sup; |
vs_top=sup; |
645 |
goto TTL; |
goto TTL; |
646 |
TTL:; |
TTL:; |
653 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
654 |
return; |
return; |
655 |
} |
} |
656 |
/* local entry for function progn 'compile2838 */ |
/* local entry for function progn 'compile2840 */ |
657 |
|
|
658 |
static object LI28() |
static object LI28() |
659 |
|
|
661 |
goto TTL; |
goto TTL; |
662 |
TTL:; |
TTL:; |
663 |
vs_base=vs_top; |
vs_base=vs_top; |
664 |
(void) (*Lnk277)(); |
(void) (*Lnk276)(); |
665 |
vs_top=sup; |
vs_top=sup; |
666 |
{object V56 = Cnil; |
{object V55 = Cnil; |
667 |
VMR28(V56)} |
VMR28(V55)} |
668 |
base[0]=base[0]; |
base[0]=base[0]; |
669 |
return Cnil; |
return Cnil; |
670 |
} |
} |
671 |
/* local entry for function progn 'compile2855 */ |
/* local entry for function progn 'compile2857 */ |
672 |
|
|
673 |
static object LI29() |
static object LI29() |
674 |
|
|
676 |
goto TTL; |
goto TTL; |
677 |
TTL:; |
TTL:; |
678 |
base[0]= VV[55]; |
base[0]= VV[55]; |
679 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
680 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
681 |
Ladjoin(); |
Ladjoin(); |
682 |
vs_top=sup; |
vs_top=sup; |
683 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
684 |
{object V58 = Cnil; |
{object V57 = Cnil; |
685 |
VMR29(V58)} |
VMR29(V57)} |
686 |
base[0]=base[0]; |
base[0]=base[0]; |
687 |
return Cnil; |
return Cnil; |
688 |
} |
} |
689 |
/* local entry for function progn 'compile2879 */ |
/* local entry for function progn 'compile2881 */ |
690 |
|
|
691 |
static object LI30() |
static object LI30() |
692 |
|
|
694 |
goto TTL; |
goto TTL; |
695 |
TTL:; |
TTL:; |
696 |
(void)(sputprop(VV[53],VV[9],Cnil)); |
(void)(sputprop(VV[53],VV[9],Cnil)); |
697 |
{object V59 = Cnil; |
{object V58 = Cnil; |
698 |
VMR30(V59)} |
VMR30(V58)} |
699 |
return Cnil; |
return Cnil; |
700 |
} |
} |
701 |
/* local entry for function progn 'compile2891 */ |
/* local entry for function progn 'compile2893 */ |
702 |
|
|
703 |
static object LI31() |
static object LI31() |
704 |
|
|
705 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
706 |
goto TTL; |
goto TTL; |
707 |
TTL:; |
TTL:; |
708 |
{object V60 = Cnil; |
{object V59 = Cnil; |
709 |
VMR31(V60)} |
VMR31(V59)} |
710 |
return Cnil; |
return Cnil; |
711 |
} |
} |
712 |
/* function definition for Defclass SIMPLE-ERROR2911 */ |
/* function definition for Defclass SIMPLE-ERROR2913 */ |
713 |
|
|
714 |
static void L32() |
static void L32() |
715 |
{register object *base=vs_base; |
{register object *base=vs_base; |
716 |
register object *sup=base+VM32; VC32 |
register object *sup=base+VM32; VC32 |
717 |
vs_reserve(VM32); |
vs_check; |
|
check_arg(0); |
|
718 |
vs_top=sup; |
vs_top=sup; |
719 |
goto TTL; |
goto TTL; |
720 |
TTL:; |
TTL:; |
727 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
728 |
return; |
return; |
729 |
} |
} |
730 |
/* local entry for function progn 'compile2927 */ |
/* local entry for function progn 'compile2929 */ |
731 |
|
|
732 |
static object LI33() |
static object LI33() |
733 |
|
|
735 |
goto TTL; |
goto TTL; |
736 |
TTL:; |
TTL:; |
737 |
vs_base=vs_top; |
vs_base=vs_top; |
738 |
(void) (*Lnk278)(); |
(void) (*Lnk277)(); |
739 |
vs_top=sup; |
vs_top=sup; |
740 |
{object V61 = Cnil; |
{object V60 = Cnil; |
741 |
VMR33(V61)} |
VMR33(V60)} |
742 |
base[0]=base[0]; |
base[0]=base[0]; |
743 |
return Cnil; |
return Cnil; |
744 |
} |
} |
745 |
/* local entry for function progn 'compile2944 */ |
/* local entry for function progn 'compile2946 */ |
746 |
|
|
747 |
static object LI34() |
static object LI34() |
748 |
|
|
750 |
goto TTL; |
goto TTL; |
751 |
TTL:; |
TTL:; |
752 |
base[0]= VV[58]; |
base[0]= VV[58]; |
753 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
754 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
755 |
Ladjoin(); |
Ladjoin(); |
756 |
vs_top=sup; |
vs_top=sup; |
757 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
758 |
{object V63 = Cnil; |
{object V62 = Cnil; |
759 |
VMR34(V63)} |
VMR34(V62)} |
760 |
base[0]=base[0]; |
base[0]=base[0]; |
761 |
return Cnil; |
return Cnil; |
762 |
} |
} |
763 |
/* local entry for function progn 'compile2968 */ |
/* local entry for function progn 'compile2970 */ |
764 |
|
|
765 |
static object LI35() |
static object LI35() |
766 |
|
|
768 |
goto TTL; |
goto TTL; |
769 |
TTL:; |
TTL:; |
770 |
(void)(sputprop(VV[56],VV[9],Cnil)); |
(void)(sputprop(VV[56],VV[9],Cnil)); |
771 |
{object V64 = Cnil; |
{object V63 = Cnil; |
772 |
VMR35(V64)} |
VMR35(V63)} |
773 |
return Cnil; |
return Cnil; |
774 |
} |
} |
775 |
/* local entry for function progn 'compile2980 */ |
/* local entry for function progn 'compile2982 */ |
776 |
|
|
777 |
static object LI36() |
static object LI36() |
778 |
|
|
779 |
{ VMB36 VMS36 VMV36 |
{ VMB36 VMS36 VMV36 |
780 |
goto TTL; |
goto TTL; |
781 |
TTL:; |
TTL:; |
782 |
{object V65 = Cnil; |
{object V64 = Cnil; |
783 |
VMR36(V65)} |
VMR36(V64)} |
784 |
return Cnil; |
return Cnil; |
785 |
} |
} |
786 |
/* function definition for Defclass STORAGE-CONDITION3000 */ |
/* function definition for Defclass STORAGE-CONDITION3002 */ |
787 |
|
|
788 |
static void L37() |
static void L37() |
789 |
{register object *base=vs_base; |
{register object *base=vs_base; |
790 |
register object *sup=base+VM37; VC37 |
register object *sup=base+VM37; VC37 |
791 |
vs_reserve(VM37); |
vs_check; |
|
check_arg(0); |
|
792 |
vs_top=sup; |
vs_top=sup; |
793 |
goto TTL; |
goto TTL; |
794 |
TTL:; |
TTL:; |
801 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
802 |
return; |
return; |
803 |
} |
} |
804 |
/* local entry for function progn 'compile3016 */ |
/* local entry for function progn 'compile3018 */ |
805 |
|
|
806 |
static object LI38() |
static object LI38() |
807 |
|
|
809 |
goto TTL; |
goto TTL; |
810 |
TTL:; |
TTL:; |
811 |
vs_base=vs_top; |
vs_base=vs_top; |
812 |
(void) (*Lnk279)(); |
(void) (*Lnk278)(); |
813 |
vs_top=sup; |
vs_top=sup; |
814 |
{object V66 = Cnil; |
{object V65 = Cnil; |
815 |
VMR38(V66)} |
VMR38(V65)} |
816 |
base[0]=base[0]; |
base[0]=base[0]; |
817 |
return Cnil; |
return Cnil; |
818 |
} |
} |
819 |
/* local entry for function progn 'compile3033 */ |
/* local entry for function progn 'compile3035 */ |
820 |
|
|
821 |
static object LI39() |
static object LI39() |
822 |
|
|
824 |
goto TTL; |
goto TTL; |
825 |
TTL:; |
TTL:; |
826 |
base[0]= VV[61]; |
base[0]= VV[61]; |
827 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
828 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
829 |
Ladjoin(); |
Ladjoin(); |
830 |
vs_top=sup; |
vs_top=sup; |
831 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
832 |
{object V68 = Cnil; |
{object V67 = Cnil; |
833 |
VMR39(V68)} |
VMR39(V67)} |
834 |
base[0]=base[0]; |
base[0]=base[0]; |
835 |
return Cnil; |
return Cnil; |
836 |
} |
} |
837 |
/* local entry for function progn 'compile3057 */ |
/* local entry for function progn 'compile3059 */ |
838 |
|
|
839 |
static object LI40() |
static object LI40() |
840 |
|
|
842 |
goto TTL; |
goto TTL; |
843 |
TTL:; |
TTL:; |
844 |
(void)(sputprop(VV[59],VV[9],Cnil)); |
(void)(sputprop(VV[59],VV[9],Cnil)); |
845 |
{object V69 = Cnil; |
{object V68 = Cnil; |
846 |
VMR40(V69)} |
VMR40(V68)} |
847 |
return Cnil; |
return Cnil; |
848 |
} |
} |
849 |
/* local entry for function progn 'compile3069 */ |
/* local entry for function progn 'compile3071 */ |
850 |
|
|
851 |
static object LI41() |
static object LI41() |
852 |
|
|
853 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
854 |
goto TTL; |
goto TTL; |
855 |
TTL:; |
TTL:; |
856 |
{object V70 = Cnil; |
{object V69 = Cnil; |
857 |
VMR41(V70)} |
VMR41(V69)} |
858 |
return Cnil; |
return Cnil; |
859 |
} |
} |
860 |
/* function definition for Defclass STACK-OVERFLOW3089 */ |
/* function definition for Defclass STACK-OVERFLOW3091 */ |
861 |
|
|
862 |
static void L42() |
static void L42() |
863 |
{register object *base=vs_base; |
{register object *base=vs_base; |
864 |
register object *sup=base+VM42; VC42 |
register object *sup=base+VM42; VC42 |
865 |
vs_reserve(VM42); |
vs_check; |
|
check_arg(0); |
|
866 |
vs_top=sup; |
vs_top=sup; |
867 |
goto TTL; |
goto TTL; |
868 |
TTL:; |
TTL:; |
875 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
876 |
return; |
return; |
877 |
} |
} |
878 |
/* local entry for function progn 'compile3105 */ |
/* local entry for function progn 'compile3107 */ |
879 |
|
|
880 |
static object LI43() |
static object LI43() |
881 |
|
|
883 |
goto TTL; |
goto TTL; |
884 |
TTL:; |
TTL:; |
885 |
vs_base=vs_top; |
vs_base=vs_top; |
886 |
(void) (*Lnk280)(); |
(void) (*Lnk279)(); |
887 |
vs_top=sup; |
vs_top=sup; |
888 |
{object V71 = Cnil; |
{object V70 = Cnil; |
889 |
VMR43(V71)} |
VMR43(V70)} |
890 |
base[0]=base[0]; |
base[0]=base[0]; |
891 |
return Cnil; |
return Cnil; |
892 |
} |
} |
893 |
/* local entry for function progn 'compile3122 */ |
/* local entry for function progn 'compile3124 */ |
894 |
|
|
895 |
static object LI44() |
static object LI44() |
896 |
|
|
898 |
goto TTL; |
goto TTL; |
899 |
TTL:; |
TTL:; |
900 |
base[0]= VV[64]; |
base[0]= VV[64]; |
901 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
902 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
903 |
Ladjoin(); |
Ladjoin(); |
904 |
vs_top=sup; |
vs_top=sup; |
905 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
906 |
{object V73 = Cnil; |
{object V72 = Cnil; |
907 |
VMR44(V73)} |
VMR44(V72)} |
908 |
base[0]=base[0]; |
base[0]=base[0]; |
909 |
return Cnil; |
return Cnil; |
910 |
} |
} |
911 |
/* local entry for function progn 'compile3146 */ |
/* local entry for function progn 'compile3148 */ |
912 |
|
|
913 |
static object LI45() |
static object LI45() |
914 |
|
|
916 |
goto TTL; |
goto TTL; |
917 |
TTL:; |
TTL:; |
918 |
(void)(sputprop(VV[62],VV[9],Cnil)); |
(void)(sputprop(VV[62],VV[9],Cnil)); |
919 |
{object V74 = Cnil; |
{object V73 = Cnil; |
920 |
VMR45(V74)} |
VMR45(V73)} |
921 |
return Cnil; |
return Cnil; |
922 |
} |
} |
923 |
/* local entry for function progn 'compile3158 */ |
/* local entry for function progn 'compile3160 */ |
924 |
|
|
925 |
static object LI46() |
static object LI46() |
926 |
|
|
927 |
{ VMB46 VMS46 VMV46 |
{ VMB46 VMS46 VMV46 |
928 |
goto TTL; |
goto TTL; |
929 |
TTL:; |
TTL:; |
930 |
{object V75 = Cnil; |
{object V74 = Cnil; |
931 |
VMR46(V75)} |
VMR46(V74)} |
932 |
return Cnil; |
return Cnil; |
933 |
} |
} |
934 |
/* function definition for Defclass STORAGE-EXHAUSTED3178 */ |
/* function definition for Defclass STORAGE-EXHAUSTED3180 */ |
935 |
|
|
936 |
static void L47() |
static void L47() |
937 |
{register object *base=vs_base; |
{register object *base=vs_base; |
938 |
register object *sup=base+VM47; VC47 |
register object *sup=base+VM47; VC47 |
939 |
vs_reserve(VM47); |
vs_check; |
|
check_arg(0); |
|
940 |
vs_top=sup; |
vs_top=sup; |
941 |
goto TTL; |
goto TTL; |
942 |
TTL:; |
TTL:; |
949 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
950 |
return; |
return; |
951 |
} |
} |
952 |
/* local entry for function progn 'compile3194 */ |
/* local entry for function progn 'compile3196 */ |
953 |
|
|
954 |
static object LI48() |
static object LI48() |
955 |
|
|
957 |
goto TTL; |
goto TTL; |
958 |
TTL:; |
TTL:; |
959 |
vs_base=vs_top; |
vs_base=vs_top; |
960 |
(void) (*Lnk281)(); |
(void) (*Lnk280)(); |
961 |
vs_top=sup; |
vs_top=sup; |
962 |
{object V76 = Cnil; |
{object V75 = Cnil; |
963 |
VMR48(V76)} |
VMR48(V75)} |
964 |
base[0]=base[0]; |
base[0]=base[0]; |
965 |
return Cnil; |
return Cnil; |
966 |
} |
} |
967 |
/* local entry for function progn 'compile3211 */ |
/* local entry for function progn 'compile3213 */ |
968 |
|
|
969 |
static object LI49() |
static object LI49() |
970 |
|
|
972 |
goto TTL; |
goto TTL; |
973 |
TTL:; |
TTL:; |
974 |
base[0]= VV[67]; |
base[0]= VV[67]; |
975 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
976 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
977 |
Ladjoin(); |
Ladjoin(); |
978 |
vs_top=sup; |
vs_top=sup; |
979 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
980 |
{object V78 = Cnil; |
{object V77 = Cnil; |
981 |
VMR49(V78)} |
VMR49(V77)} |
982 |
base[0]=base[0]; |
base[0]=base[0]; |
983 |
return Cnil; |
return Cnil; |
984 |
} |
} |
985 |
/* local entry for function progn 'compile3235 */ |
/* local entry for function progn 'compile3237 */ |
986 |
|
|
987 |
static object LI50() |
static object LI50() |
988 |
|
|
990 |
goto TTL; |
goto TTL; |
991 |
TTL:; |
TTL:; |
992 |
(void)(sputprop(VV[65],VV[9],Cnil)); |
(void)(sputprop(VV[65],VV[9],Cnil)); |
993 |
{object V79 = Cnil; |
{object V78 = Cnil; |
994 |
VMR50(V79)} |
VMR50(V78)} |
995 |
return Cnil; |
return Cnil; |
996 |
} |
} |
997 |
/* local entry for function progn 'compile3247 */ |
/* local entry for function progn 'compile3249 */ |
998 |
|
|
999 |
static object LI51() |
static object LI51() |
1000 |
|
|
1001 |
{ VMB51 VMS51 VMV51 |
{ VMB51 VMS51 VMV51 |
1002 |
goto TTL; |
goto TTL; |
1003 |
TTL:; |
TTL:; |
1004 |
{object V80 = Cnil; |
{object V79 = Cnil; |
1005 |
VMR51(V80)} |
VMR51(V79)} |
1006 |
return Cnil; |
return Cnil; |
1007 |
} |
} |
1008 |
/* function definition for Defclass TYPE-ERROR3267 */ |
/* function definition for Defclass TYPE-ERROR3269 */ |
1009 |
|
|
1010 |
static void L52() |
static void L52() |
1011 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1012 |
register object *sup=base+VM52; VC52 |
register object *sup=base+VM52; VC52 |
1013 |
vs_reserve(VM52); |
vs_check; |
|
check_arg(0); |
|
1014 |
vs_top=sup; |
vs_top=sup; |
1015 |
goto TTL; |
goto TTL; |
1016 |
TTL:; |
TTL:; |
1017 |
base[0]= VV[68]; |
base[0]= VV[68]; |
1018 |
base[1]= VV[5]; |
base[1]= VV[5]; |
1019 |
base[2]= VV[69]; |
base[2]= VV[69]; |
1020 |
V81= listA(9,VV[18],VV[70],VV[20],VV[71],VV[22],Cnil,VV[23],VV[72],Cnil); |
V80= listA(9,VV[18],VV[70],VV[20],VV[71],VV[22],Cnil,VV[23],VV[72],Cnil); |
1021 |
base[3]= list(2,/* INLINE-ARGS */V81,listA(9,VV[18],VV[73],VV[20],VV[74],VV[22],Cnil,VV[23],VV[75],Cnil)); |
base[3]= list(2,/* INLINE-ARGS */V80,listA(9,VV[18],VV[73],VV[20],VV[74],VV[22],Cnil,VV[23],VV[75],Cnil)); |
1022 |
base[4]= Cnil; |
base[4]= Cnil; |
1023 |
base[5]= Cnil; |
base[5]= Cnil; |
1024 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
1025 |
return; |
return; |
1026 |
} |
} |
1027 |
/* local entry for function progn 'compile3285 */ |
/* local entry for function progn 'compile3287 */ |
1028 |
|
|
1029 |
static object LI53() |
static object LI53() |
1030 |
|
|
1032 |
goto TTL; |
goto TTL; |
1033 |
TTL:; |
TTL:; |
1034 |
vs_base=vs_top; |
vs_base=vs_top; |
1035 |
(void) (*Lnk282)(); |
(void) (*Lnk281)(); |
1036 |
vs_top=sup; |
vs_top=sup; |
1037 |
{object V82 = Cnil; |
{object V81 = Cnil; |
1038 |
VMR53(V82)} |
VMR53(V81)} |
1039 |
base[0]=base[0]; |
base[0]=base[0]; |
1040 |
return Cnil; |
return Cnil; |
1041 |
} |
} |
1042 |
/* local entry for function progn 'compile3302 */ |
/* local entry for function progn 'compile3304 */ |
1043 |
|
|
1044 |
static object LI54() |
static object LI54() |
1045 |
|
|
1047 |
goto TTL; |
goto TTL; |
1048 |
TTL:; |
TTL:; |
1049 |
base[0]= VV[76]; |
base[0]= VV[76]; |
1050 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
1051 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1052 |
Ladjoin(); |
Ladjoin(); |
1053 |
vs_top=sup; |
vs_top=sup; |
1054 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
1055 |
{object V84 = Cnil; |
{object V83 = Cnil; |
1056 |
VMR54(V84)} |
VMR54(V83)} |
1057 |
base[0]=base[0]; |
base[0]=base[0]; |
1058 |
return Cnil; |
return Cnil; |
1059 |
} |
} |
1060 |
/* local entry for function progn 'compile3326 */ |
/* local entry for function progn 'compile3328 */ |
1061 |
|
|
1062 |
static object LI55() |
static object LI55() |
1063 |
|
|
1065 |
goto TTL; |
goto TTL; |
1066 |
TTL:; |
TTL:; |
1067 |
(void)(sputprop(VV[68],VV[9],Cnil)); |
(void)(sputprop(VV[68],VV[9],Cnil)); |
1068 |
{object V85 = Cnil; |
{object V84 = Cnil; |
1069 |
VMR55(V85)} |
VMR55(V84)} |
1070 |
return Cnil; |
return Cnil; |
1071 |
} |
} |
1072 |
/* local entry for function progn 'compile3342 */ |
/* local entry for function progn 'compile3344 */ |
1073 |
|
|
1074 |
static object LI56() |
static object LI56() |
1075 |
|
|
1081 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1082 |
(void) (*Lnk269)(); |
(void) (*Lnk269)(); |
1083 |
vs_top=sup; |
vs_top=sup; |
1084 |
{object V86 = Cnil; |
{object V85 = Cnil; |
1085 |
VMR56(V86)} |
VMR56(V85)} |
1086 |
base[0]=base[0]; |
base[0]=base[0]; |
1087 |
return Cnil; |
return Cnil; |
1088 |
} |
} |
1091 |
static void L57() |
static void L57() |
1092 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1093 |
register object *sup=base+VM57; VC57 |
register object *sup=base+VM57; VC57 |
1094 |
vs_reserve(VM57); |
vs_check; |
1095 |
{object V87; |
{object V86; |
1096 |
|
register object V87; |
1097 |
register object V88; |
register object V88; |
1098 |
register object V89; |
register object V89; |
1099 |
register object V90; |
V86=(base[0]); |
1100 |
check_arg(4); |
V87=(base[1]); |
1101 |
V87=(base[0]); |
V88=(base[2]); |
1102 |
V88=(base[1]); |
V89=(base[3]); |
|
V89=(base[2]); |
|
|
V90=(base[3]); |
|
1103 |
vs_top=sup; |
vs_top=sup; |
1104 |
goto TTL; |
goto TTL; |
1105 |
TTL:; |
TTL:; |
1106 |
if((symbol_value(VV[34]))==Cnil){ |
if(((VV[34]->s.s_dbind))==Cnil){ |
1107 |
goto T271;} |
goto T269;} |
1108 |
if(((V88))==Cnil){ |
if(((V87))==Cnil){ |
1109 |
goto T274;} |
goto T272;} |
1110 |
base[4]= (V88); |
base[4]= (V87); |
1111 |
base[5]= VV[35]; |
base[5]= VV[35]; |
1112 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1113 |
(void) (*Lnk270)(); |
(void) (*Lnk270)(); |
1114 |
vs_top=sup; |
vs_top=sup; |
1115 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1116 |
goto T278;} |
goto T276;} |
1117 |
base[4]= structure_ref((V88),VV[35],0); |
base[4]= STREF(object,(V87),0); |
1118 |
base[5]= structure_ref((V88),VV[35],1); |
base[5]= STREF(object,(V87),4); |
1119 |
base[6]= structure_ref((V88),VV[35],2); |
base[6]= STREF(object,(V87),8); |
1120 |
base[7]= (V89); |
base[7]= (V88); |
1121 |
base[8]= (V90); |
base[8]= (V89); |
1122 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
1123 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1124 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1125 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1126 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1127 |
return; |
return; |
1128 |
goto T278; |
goto T276; |
1129 |
T278:; |
T276:; |
1130 |
if(!(type_of((V88))==t_fixnum)){ |
if(!(type_of((V87))==t_fixnum)){ |
1131 |
goto T288;} |
goto T286;} |
1132 |
{object V93; |
{object V92; |
1133 |
if(type_of(V89)==t_structure){ |
if(type_of(V88)==t_structure){ |
|
goto T294;} |
|
|
goto T292; |
|
|
goto T294; |
|
|
T294:; |
|
|
base[4]= V89; |
|
|
vs_top=(vs_base=base+4)+1; |
|
|
(void) (*Lnk271)(); |
|
|
vs_top=sup; |
|
|
V95= vs_base[0]; |
|
|
if(!((V95)==(VV[78]))){ |
|
1134 |
goto T292;} |
goto T292;} |
|
V93= structure_ref((V89),VV[37],1); |
|
1135 |
goto T290; |
goto T290; |
1136 |
goto T292; |
goto T292; |
1137 |
T292:;{object V96; |
T292:; |
1138 |
V96= symbol_value(VV[38]); |
if(!(((V88)->str.str_def)==(VV[78]))){ |
1139 |
|
goto T290;} |
1140 |
|
V92= STREF(object,(V88),4); |
1141 |
|
goto T288; |
1142 |
|
goto T290; |
1143 |
|
T290:;{object V94; |
1144 |
|
V94= (VV[38]->s.s_dbind); |
1145 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
1146 |
base[5]= (V89); |
base[5]= (V88); |
1147 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1148 |
(void) (*Lnk272)(); |
(void) (*Lnk271)(); |
1149 |
vs_top=sup; |
vs_top=sup; |
1150 |
V97= vs_base[0]; |
V95= vs_base[0]; |
1151 |
if(!((V96)==(car(V97)))){ |
if(!((V94)==(CMPcar(V95)))){ |
1152 |
goto T299;}} |
goto T295;}} |
1153 |
V93= car(((V89))->cc.cc_turbo[12]); |
V92= CMPcar(((V88))->cc.cc_turbo[12]); |
1154 |
goto T290; |
goto T288; |
1155 |
goto T299; |
goto T295; |
1156 |
T299:; |
T295:; |
1157 |
V93= Cnil; |
V92= Cnil; |
1158 |
goto T290; |
goto T288; |
1159 |
T290:; |
T288:; |
1160 |
if(((V93))==Cnil){ |
if(((V92))==Cnil){ |
1161 |
goto T305;} |
goto T301;} |
1162 |
base[4]= aset1((V93),fix((V88)),V89); |
base[4]= ((V92))->v.v_self[fix((V87))]= (V88); |
1163 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1164 |
return; |
return; |
1165 |
goto T305; |
goto T301; |
1166 |
T305:; |
T301:; |
1167 |
base[4]= Cnil; |
base[4]= Cnil; |
1168 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1169 |
return;} |
return;} |
1170 |
goto T288; |
goto T286; |
1171 |
T288:; |
T286:; |
1172 |
{register object V99; |
{register object V97; |
1173 |
V99= V88; |
V97= V87; |
1174 |
base[4]= (V99); |
base[4]= (V97); |
1175 |
base[5]= VV[39]; |
base[5]= VV[39]; |
1176 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1177 |
(void) (*Lnk270)(); |
(void) (*Lnk270)(); |
1178 |
vs_top=sup; |
vs_top=sup; |
1179 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1180 |
goto T308;} |
goto T304;} |
1181 |
{object V100; |
{object V98; |
1182 |
object V101; |
object V99; |
1183 |
register object V102; |
register object V100; |
1184 |
V100= structure_ref((V88),VV[39],0); |
V98= STREF(object,(V87),0); |
1185 |
V101= list(2,(V89),(V90)); |
V99= list(2,(V88),(V89)); |
1186 |
V102= structure_ref((V88),VV[39],1); |
V100= STREF(object,(V87),4); |
1187 |
if(((V102))==Cnil){ |
if(((V100))==Cnil){ |
1188 |
goto T316;} |
goto T312;} |
1189 |
if((cdr((V102)))!=Cnil){ |
if((CMPcdr((V100)))!=Cnil){ |
1190 |
goto T316;} |
goto T312;} |
1191 |
base[4]= (V101); |
base[4]= (V99); |
1192 |
base[5]= car((V102)); |
base[5]= CMPcar((V100)); |
1193 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1194 |
{object _funobj = (V100);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V98);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1195 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1196 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1197 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1198 |
return; |
return; |
1199 |
goto T316; |
goto T312; |
1200 |
T316:; |
T312:; |
1201 |
base[4]= (V100); |
base[4]= (V98); |
1202 |
base[5]= (V101); |
base[5]= (V99); |
1203 |
{object V103; |
{object V101; |
1204 |
V103= (V102); |
V101= (V100); |
1205 |
vs_top=base+6; |
vs_top=base+6; |
1206 |
while(!endp(V103)) |
while(V101!=Cnil) |
1207 |
{vs_push(car(V103));V103=cdr(V103);} |
{vs_push((V101)->c.c_car);V101=(V101)->c.c_cdr;} |
1208 |
vs_base=base+5;} |
vs_base=base+5;} |
1209 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1210 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1211 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1212 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1213 |
return;} |
return;} |
1214 |
goto T308; |
goto T304; |
1215 |
T308:; |
T304:; |
1216 |
base[4]= (V99); |
base[4]= (V97); |
1217 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1218 |
Lfunctionp(); |
Lfunctionp(); |
1219 |
vs_top=sup; |
vs_top=sup; |
1220 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1221 |
goto T326;} |
goto T322;} |
1222 |
base[4]= (V89); |
base[4]= (V88); |
1223 |
base[5]= (V90); |
base[5]= (V89); |
1224 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1225 |
{object _funobj = (V88);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V87);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1226 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1227 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1228 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1229 |
return; |
return; |
1230 |
goto T326; |
goto T322; |
1231 |
T326:; |
T322:; |
1232 |
base[4]= VV[40]; |
base[4]= VV[40]; |
1233 |
base[5]= VV[18]; |
base[5]= VV[18]; |
1234 |
base[6]= VV[41]; |
base[6]= VV[41]; |
1235 |
base[7]= VV[42]; |
base[7]= VV[42]; |
1236 |
base[8]= V88; |
base[8]= V87; |
1237 |
base[9]= VV[43]; |
base[9]= VV[43]; |
1238 |
base[10]= VV[79]; |
base[10]= VV[79]; |
1239 |
base[11]= VV[45]; |
base[11]= VV[45]; |
1241 |
vs_top=(vs_base=base+4)+9; |
vs_top=(vs_base=base+4)+9; |
1242 |
(void) (*Lnk13)(); |
(void) (*Lnk13)(); |
1243 |
return;} |
return;} |
1244 |
goto T274; |
goto T272; |
1245 |
T274:; |
T272:; |
1246 |
base[4]= VV[47]; |
base[4]= VV[47]; |
1247 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1248 |
(void) (*Lnk273)(); |
(void) (*Lnk272)(); |
1249 |
return; |
return; |
1250 |
goto T271; |
goto T269; |
1251 |
T271:; |
T269:; |
1252 |
base[4]= V90; |
base[4]= V89; |
1253 |
base[5]= VV[81]; |
base[5]= VV[81]; |
1254 |
base[7]= V89; |
base[7]= V88; |
1255 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1256 |
(void) (*Lnk283)(Lclptr283); |
(void) (*Lnk282)(Lclptr282); |
1257 |
vs_top=sup; |
vs_top=sup; |
1258 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
1259 |
base[8]= V89; |
base[8]= V88; |
1260 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1261 |
(void) (*Lnk284)(Lclptr284); |
(void) (*Lnk283)(Lclptr283); |
1262 |
vs_top=sup; |
vs_top=sup; |
1263 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
1264 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1266 |
return; |
return; |
1267 |
} |
} |
1268 |
} |
} |
1269 |
/* local entry for function progn 'compile3539 */ |
/* local entry for function progn 'compile3541 */ |
1270 |
|
|
1271 |
static object LI58() |
static object LI58() |
1272 |
|
|
1278 |
base[2]= Cnil; |
base[2]= Cnil; |
1279 |
base[3]= VV[82]; |
base[3]= VV[82]; |
1280 |
base[4]= VV[83]; |
base[4]= VV[83]; |
1281 |
V106= symbol_function(VV[285]); |
V104= (VV[284]->s.s_gfdef); |
1282 |
base[5]= listA(3,VV[51],V106,VV[84]); |
base[5]= listA(3,VV[51],V104,VV[84]); |
1283 |
base[6]= Cnil; |
base[6]= Cnil; |
1284 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
1285 |
(void) (*Lnk276)(); |
(void) (*Lnk275)(); |
1286 |
vs_top=sup; |
vs_top=sup; |
1287 |
{object V107 = Cnil; |
{object V105 = Cnil; |
1288 |
VMR58(V107)} |
VMR58(V105)} |
1289 |
base[0]=base[0]; |
base[0]=base[0]; |
1290 |
return Cnil; |
return Cnil; |
1291 |
} |
} |
1292 |
/* local entry for function progn 'compile3547 */ |
/* local entry for function progn 'compile3549 */ |
1293 |
|
|
1294 |
static object LI59() |
static object LI59() |
1295 |
|
|
1296 |
{ VMB59 VMS59 VMV59 |
{ VMB59 VMS59 VMV59 |
1297 |
goto TTL; |
goto TTL; |
1298 |
TTL:; |
TTL:; |
1299 |
{object V108 = Cnil; |
{object V106 = Cnil; |
1300 |
VMR59(V108)} |
VMR59(V106)} |
1301 |
return Cnil; |
return Cnil; |
1302 |
} |
} |
1303 |
/* function definition for Defclass SIMPLE-TYPE-ERROR3567 */ |
/* function definition for Defclass SIMPLE-TYPE-ERROR3569 */ |
1304 |
|
|
1305 |
static void L60() |
static void L60() |
1306 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1307 |
register object *sup=base+VM60; VC60 |
register object *sup=base+VM60; VC60 |
1308 |
vs_reserve(VM60); |
vs_check; |
|
check_arg(0); |
|
1309 |
vs_top=sup; |
vs_top=sup; |
1310 |
goto TTL; |
goto TTL; |
1311 |
TTL:; |
TTL:; |
1318 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
1319 |
return; |
return; |
1320 |
} |
} |
1321 |
/* local entry for function progn 'compile3583 */ |
/* local entry for function progn 'compile3585 */ |
1322 |
|
|
1323 |
static object LI61() |
static object LI61() |
1324 |
|
|
1326 |
goto TTL; |
goto TTL; |
1327 |
TTL:; |
TTL:; |
1328 |
vs_base=vs_top; |
vs_base=vs_top; |
1329 |
(void) (*Lnk286)(); |
(void) (*Lnk285)(); |
1330 |
vs_top=sup; |
vs_top=sup; |
1331 |
{object V109 = Cnil; |
{object V107 = Cnil; |
1332 |
VMR61(V109)} |
VMR61(V107)} |
1333 |
base[0]=base[0]; |
base[0]=base[0]; |
1334 |
return Cnil; |
return Cnil; |
1335 |
} |
} |
1336 |
/* local entry for function progn 'compile3600 */ |
/* local entry for function progn 'compile3602 */ |
1337 |
|
|
1338 |
static object LI62() |
static object LI62() |
1339 |
|
|
1341 |
goto TTL; |
goto TTL; |
1342 |
TTL:; |
TTL:; |
1343 |
base[0]= VV[87]; |
base[0]= VV[87]; |
1344 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
1345 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1346 |
Ladjoin(); |
Ladjoin(); |
1347 |
vs_top=sup; |
vs_top=sup; |
1348 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
1349 |
{object V111 = Cnil; |
{object V109 = Cnil; |
1350 |
VMR62(V111)} |
VMR62(V109)} |
1351 |
base[0]=base[0]; |
base[0]=base[0]; |
1352 |
return Cnil; |
return Cnil; |
1353 |
} |
} |
1354 |
/* local entry for function progn 'compile3624 */ |
/* local entry for function progn 'compile3626 */ |
1355 |
|
|
1356 |
static object LI63() |
static object LI63() |
1357 |
|
|
1359 |
goto TTL; |
goto TTL; |
1360 |
TTL:; |
TTL:; |
1361 |
(void)(sputprop(VV[85],VV[9],Cnil)); |
(void)(sputprop(VV[85],VV[9],Cnil)); |
1362 |
{object V112 = Cnil; |
{object V110 = Cnil; |
1363 |
VMR63(V112)} |
VMR63(V110)} |
1364 |
return Cnil; |
return Cnil; |
1365 |
} |
} |
1366 |
/* local entry for function progn 'compile3636 */ |
/* local entry for function progn 'compile3638 */ |
1367 |
|
|
1368 |
static object LI64() |
static object LI64() |
1369 |
|
|
1370 |
{ VMB64 VMS64 VMV64 |
{ VMB64 VMS64 VMV64 |
1371 |
goto TTL; |
goto TTL; |
1372 |
TTL:; |
TTL:; |
1373 |
{object V113 = Cnil; |
{object V111 = Cnil; |
1374 |
VMR64(V113)} |
VMR64(V111)} |
1375 |
return Cnil; |
return Cnil; |
1376 |
} |
} |
1377 |
/* function definition for Defclass CASE-FAILURE3656 */ |
/* function definition for Defclass CASE-FAILURE3658 */ |
1378 |
|
|
1379 |
static void L65() |
static void L65() |
1380 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1381 |
register object *sup=base+VM65; VC65 |
register object *sup=base+VM65; VC65 |
1382 |
vs_reserve(VM65); |
vs_check; |
|
check_arg(0); |
|
1383 |
vs_top=sup; |
vs_top=sup; |
1384 |
goto TTL; |
goto TTL; |
1385 |
TTL:; |
TTL:; |
1386 |
base[0]= VV[40]; |
base[0]= VV[40]; |
1387 |
base[1]= VV[5]; |
base[1]= VV[5]; |
1388 |
base[2]= VV[88]; |
base[2]= VV[88]; |
1389 |
V114= listA(9,VV[18],VV[89],VV[20],VV[90],VV[22],Cnil,VV[23],VV[91],Cnil); |
V112= listA(9,VV[18],VV[89],VV[20],VV[90],VV[22],Cnil,VV[23],VV[91],Cnil); |
1390 |
base[3]= list(2,/* INLINE-ARGS */V114,listA(9,VV[18],VV[92],VV[20],VV[93],VV[22],Cnil,VV[23],VV[94],Cnil)); |
base[3]= list(2,/* INLINE-ARGS */V112,listA(9,VV[18],VV[92],VV[20],VV[93],VV[22],Cnil,VV[23],VV[94],Cnil)); |
1391 |
base[4]= Cnil; |
base[4]= Cnil; |
1392 |
base[5]= Cnil; |
base[5]= Cnil; |
1393 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
1394 |
return; |
return; |
1395 |
} |
} |
1396 |
/* local entry for function progn 'compile3674 */ |
/* local entry for function progn 'compile3676 */ |
1397 |
|
|
1398 |
static object LI66() |
static object LI66() |
1399 |
|
|
1401 |
goto TTL; |
goto TTL; |
1402 |
TTL:; |
TTL:; |
1403 |
vs_base=vs_top; |
vs_base=vs_top; |
1404 |
(void) (*Lnk287)(); |
(void) (*Lnk286)(); |
1405 |
vs_top=sup; |
vs_top=sup; |
1406 |
{object V115 = Cnil; |
{object V113 = Cnil; |
1407 |
VMR66(V115)} |
VMR66(V113)} |
1408 |
base[0]=base[0]; |
base[0]=base[0]; |
1409 |
return Cnil; |
return Cnil; |
1410 |
} |
} |
1411 |
/* local entry for function progn 'compile3691 */ |
/* local entry for function progn 'compile3693 */ |
1412 |
|
|
1413 |
static object LI67() |
static object LI67() |
1414 |
|
|
1416 |
goto TTL; |
goto TTL; |
1417 |
TTL:; |
TTL:; |
1418 |
base[0]= VV[95]; |
base[0]= VV[95]; |
1419 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
1420 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1421 |
Ladjoin(); |
Ladjoin(); |
1422 |
vs_top=sup; |
vs_top=sup; |
1423 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
1424 |
{object V117 = Cnil; |
{object V115 = Cnil; |
1425 |
VMR67(V117)} |
VMR67(V115)} |
1426 |
base[0]=base[0]; |
base[0]=base[0]; |
1427 |
return Cnil; |
return Cnil; |
1428 |
} |
} |
1429 |
/* local entry for function progn 'compile3715 */ |
/* local entry for function progn 'compile3717 */ |
1430 |
|
|
1431 |
static object LI68() |
static object LI68() |
1432 |
|
|
1434 |
goto TTL; |
goto TTL; |
1435 |
TTL:; |
TTL:; |
1436 |
(void)(sputprop(VV[40],VV[9],Cnil)); |
(void)(sputprop(VV[40],VV[9],Cnil)); |
1437 |
{object V118 = Cnil; |
{object V116 = Cnil; |
1438 |
VMR68(V118)} |
VMR68(V116)} |
1439 |
return Cnil; |
return Cnil; |
1440 |
} |
} |
1441 |
/* local entry for function progn 'compile3731 */ |
/* local entry for function progn 'compile3733 */ |
1442 |
|
|
1443 |
static object LI69() |
static object LI69() |
1444 |
|
|
1450 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1451 |
(void) (*Lnk269)(); |
(void) (*Lnk269)(); |
1452 |
vs_top=sup; |
vs_top=sup; |
1453 |
{object V119 = Cnil; |
{object V117 = Cnil; |
1454 |
VMR69(V119)} |
VMR69(V117)} |
1455 |
base[0]=base[0]; |
base[0]=base[0]; |
1456 |
return Cnil; |
return Cnil; |
1457 |
} |
} |
1460 |
static void L70() |
static void L70() |
1461 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1462 |
register object *sup=base+VM70; VC70 |
register object *sup=base+VM70; VC70 |
1463 |
vs_reserve(VM70); |
vs_check; |
1464 |
{object V120; |
{object V118; |
1465 |
|
register object V119; |
1466 |
|
register object V120; |
1467 |
register object V121; |
register object V121; |
1468 |
register object V122; |
V118=(base[0]); |
1469 |
register object V123; |
V119=(base[1]); |
1470 |
check_arg(4); |
V120=(base[2]); |
1471 |
V120=(base[0]); |
V121=(base[3]); |
|
V121=(base[1]); |
|
|
V122=(base[2]); |
|
|
V123=(base[3]); |
|
1472 |
vs_top=sup; |
vs_top=sup; |
1473 |
goto TTL; |
goto TTL; |
1474 |
TTL:; |
TTL:; |
1475 |
if((symbol_value(VV[34]))==Cnil){ |
if(((VV[34]->s.s_dbind))==Cnil){ |
1476 |
goto T389;} |
goto T385;} |
1477 |
if(((V121))==Cnil){ |
if(((V119))==Cnil){ |
1478 |
goto T392;} |
goto T388;} |
1479 |
base[4]= (V121); |
base[4]= (V119); |
1480 |
base[5]= VV[35]; |
base[5]= VV[35]; |
1481 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1482 |
(void) (*Lnk270)(); |
(void) (*Lnk270)(); |
1483 |
vs_top=sup; |
vs_top=sup; |
1484 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1485 |
goto T396;} |
goto T392;} |
1486 |
base[4]= structure_ref((V121),VV[35],0); |
base[4]= STREF(object,(V119),0); |
1487 |
base[5]= structure_ref((V121),VV[35],1); |
base[5]= STREF(object,(V119),4); |
1488 |
base[6]= structure_ref((V121),VV[35],2); |
base[6]= STREF(object,(V119),8); |
1489 |
base[7]= (V122); |
base[7]= (V120); |
1490 |
base[8]= (V123); |
base[8]= (V121); |
1491 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
1492 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1493 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1494 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1495 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1496 |
return; |
return; |
1497 |
goto T396; |
goto T392; |
1498 |
T396:; |
T392:; |
1499 |
if(!(type_of((V121))==t_fixnum)){ |
if(!(type_of((V119))==t_fixnum)){ |
1500 |
goto T406;} |
goto T402;} |
1501 |
{object V126; |
{object V124; |
1502 |
if(type_of(V122)==t_structure){ |
if(type_of(V120)==t_structure){ |
1503 |
goto T412;} |
goto T408;} |
1504 |
goto T410; |
goto T406; |
|
goto T412; |
|
|
T412:; |
|
|
base[4]= V122; |
|
|
vs_top=(vs_base=base+4)+1; |
|
|
(void) (*Lnk271)(); |
|
|
vs_top=sup; |
|
|
V128= vs_base[0]; |
|
|
if(!((V128)==(VV[97]))){ |
|
|
goto T410;} |
|
|
V126= structure_ref((V122),VV[37],1); |
|
1505 |
goto T408; |
goto T408; |
1506 |
goto T410; |
T408:; |
1507 |
T410:;{object V129; |
if(!(((V120)->str.str_def)==(VV[97]))){ |
1508 |
V129= symbol_value(VV[38]); |
goto T406;} |
1509 |
|
V124= STREF(object,(V120),4); |
1510 |
|
goto T404; |
1511 |
|
goto T406; |
1512 |
|
T406:;{object V126; |
1513 |
|
V126= (VV[38]->s.s_dbind); |
1514 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
1515 |
base[5]= (V122); |
base[5]= (V120); |
1516 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1517 |
(void) (*Lnk272)(); |
(void) (*Lnk271)(); |
1518 |
vs_top=sup; |
vs_top=sup; |
1519 |
V130= vs_base[0]; |
V127= vs_base[0]; |
1520 |
if(!((V129)==(car(V130)))){ |
if(!((V126)==(CMPcar(V127)))){ |
1521 |
goto T417;}} |
goto T411;}} |
1522 |
V126= car(((V122))->cc.cc_turbo[12]); |
V124= CMPcar(((V120))->cc.cc_turbo[12]); |
1523 |
goto T408; |
goto T404; |
1524 |
goto T417; |
goto T411; |
1525 |
T417:; |
T411:; |
1526 |
V126= Cnil; |
V124= Cnil; |
1527 |
goto T408; |
goto T404; |
1528 |
T408:; |
T404:; |
1529 |
if(((V126))==Cnil){ |
if(((V124))==Cnil){ |
1530 |
goto T423;} |
goto T417;} |
1531 |
base[4]= aset1((V126),fix((V121)),V122); |
base[4]= ((V124))->v.v_self[fix((V119))]= (V120); |
1532 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1533 |
return; |
return; |
1534 |
goto T423; |
goto T417; |
1535 |
T423:; |
T417:; |
1536 |
base[4]= Cnil; |
base[4]= Cnil; |
1537 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1538 |
return;} |
return;} |
1539 |
goto T406; |
goto T402; |
1540 |
T406:; |
T402:; |
1541 |
{register object V132; |
{register object V129; |
1542 |
V132= V121; |
V129= V119; |
1543 |
base[4]= (V132); |
base[4]= (V129); |
1544 |
base[5]= VV[39]; |
base[5]= VV[39]; |
1545 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1546 |
(void) (*Lnk270)(); |
(void) (*Lnk270)(); |
1547 |
vs_top=sup; |
vs_top=sup; |
1548 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1549 |
goto T426;} |
goto T420;} |
1550 |
{object V133; |
{object V130; |
1551 |
object V134; |
object V131; |
1552 |
register object V135; |
register object V132; |
1553 |
V133= structure_ref((V121),VV[39],0); |
V130= STREF(object,(V119),0); |
1554 |
V134= list(2,(V122),(V123)); |
V131= list(2,(V120),(V121)); |
1555 |
V135= structure_ref((V121),VV[39],1); |
V132= STREF(object,(V119),4); |
1556 |
if(((V135))==Cnil){ |
if(((V132))==Cnil){ |
1557 |
goto T434;} |
goto T428;} |
1558 |
if((cdr((V135)))!=Cnil){ |
if((CMPcdr((V132)))!=Cnil){ |
1559 |
goto T434;} |
goto T428;} |
1560 |
base[4]= (V134); |
base[4]= (V131); |
1561 |
base[5]= car((V135)); |
base[5]= CMPcar((V132)); |
1562 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1563 |
{object _funobj = (V133);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V130);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1564 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1565 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1566 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1567 |
return; |
return; |
1568 |
goto T434; |
goto T428; |
1569 |
T434:; |
T428:; |
1570 |
base[4]= (V133); |
base[4]= (V130); |
1571 |
base[5]= (V134); |
base[5]= (V131); |
1572 |
{object V136; |
{object V133; |
1573 |
V136= (V135); |
V133= (V132); |
1574 |
vs_top=base+6; |
vs_top=base+6; |
1575 |
while(!endp(V136)) |
while(V133!=Cnil) |
1576 |
{vs_push(car(V136));V136=cdr(V136);} |
{vs_push((V133)->c.c_car);V133=(V133)->c.c_cdr;} |
1577 |
vs_base=base+5;} |
vs_base=base+5;} |
1578 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1579 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1580 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1581 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1582 |
return;} |
return;} |
1583 |
goto T426; |
goto T420; |
1584 |
T426:; |
T420:; |
1585 |
base[4]= (V132); |
base[4]= (V129); |
1586 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1587 |
Lfunctionp(); |
Lfunctionp(); |
1588 |
vs_top=sup; |
vs_top=sup; |
1589 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1590 |
goto T444;} |
goto T438;} |
1591 |
base[4]= (V122); |
base[4]= (V120); |
1592 |
base[5]= (V123); |
base[5]= (V121); |
1593 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1594 |
{object _funobj = (V121);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V119);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1595 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1596 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1597 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1598 |
return; |
return; |
1599 |
goto T444; |
goto T438; |
1600 |
T444:; |
T438:; |
1601 |
base[4]= VV[40]; |
base[4]= VV[40]; |
1602 |
base[5]= VV[18]; |
base[5]= VV[18]; |
1603 |
base[6]= VV[41]; |
base[6]= VV[41]; |
1604 |
base[7]= VV[42]; |
base[7]= VV[42]; |
1605 |
base[8]= V121; |
base[8]= V119; |
1606 |
base[9]= VV[43]; |
base[9]= VV[43]; |
1607 |
base[10]= VV[98]; |
base[10]= VV[98]; |
1608 |
base[11]= VV[45]; |
base[11]= VV[45]; |
1610 |
vs_top=(vs_base=base+4)+9; |
vs_top=(vs_base=base+4)+9; |
1611 |
(void) (*Lnk13)(); |
(void) (*Lnk13)(); |
1612 |
return;} |
return;} |
1613 |
goto T392; |
goto T388; |
1614 |
T392:; |
T388:; |
1615 |
base[4]= VV[47]; |
base[4]= VV[47]; |
1616 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1617 |
(void) (*Lnk273)(); |
(void) (*Lnk272)(); |
1618 |
return; |
return; |
1619 |
goto T389; |
goto T385; |
1620 |
T389:; |
T385:; |
1621 |
base[4]= V123; |
base[4]= V121; |
1622 |
base[5]= VV[100]; |
base[5]= VV[100]; |
1623 |
base[7]= V122; |
base[7]= V120; |
1624 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1625 |
(void) (*Lnk283)(Lclptr283); |
(void) (*Lnk282)(Lclptr282); |
1626 |
vs_top=sup; |
vs_top=sup; |
1627 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
1628 |
base[8]= V122; |
base[8]= V120; |
1629 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1630 |
(void) (*Lnk288)(Lclptr288); |
(void) (*Lnk287)(Lclptr287); |
1631 |
vs_top=sup; |
vs_top=sup; |
1632 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
1633 |
base[9]= V122; |
base[9]= V120; |
1634 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
1635 |
(void) (*Lnk289)(Lclptr289); |
(void) (*Lnk288)(Lclptr288); |
1636 |
vs_top=sup; |
vs_top=sup; |
1637 |
base[8]= vs_base[0]; |
base[8]= vs_base[0]; |
1638 |
vs_top=(vs_base=base+4)+5; |
vs_top=(vs_base=base+4)+5; |
1640 |
return; |
return; |
1641 |
} |
} |
1642 |
} |
} |
1643 |
/* local entry for function progn 'compile3928 */ |
/* local entry for function progn 'compile3930 */ |
1644 |
|
|
1645 |
static object LI71() |
static object LI71() |
1646 |
|
|
1652 |
base[2]= Cnil; |
base[2]= Cnil; |
1653 |
base[3]= VV[101]; |
base[3]= VV[101]; |
1654 |
base[4]= VV[102]; |
base[4]= VV[102]; |
1655 |
V139= symbol_function(VV[290]); |
V136= (VV[289]->s.s_gfdef); |
1656 |
base[5]= listA(3,VV[51],V139,VV[103]); |
base[5]= listA(3,VV[51],V136,VV[103]); |
1657 |
base[6]= Cnil; |
base[6]= Cnil; |
1658 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
1659 |
(void) (*Lnk276)(); |
(void) (*Lnk275)(); |
1660 |
vs_top=sup; |
vs_top=sup; |
1661 |
{object V140 = Cnil; |
{object V137 = Cnil; |
1662 |
VMR71(V140)} |
VMR71(V137)} |
1663 |
base[0]=base[0]; |
base[0]=base[0]; |
1664 |
return Cnil; |
return Cnil; |
1665 |
} |
} |
1666 |
/* local entry for function progn 'compile3936 */ |
/* local entry for function progn 'compile3938 */ |
1667 |
|
|
1668 |
static object LI72() |
static object LI72() |
1669 |
|
|
1670 |
{ VMB72 VMS72 VMV72 |
{ VMB72 VMS72 VMV72 |
1671 |
goto TTL; |
goto TTL; |
1672 |
TTL:; |
TTL:; |
1673 |
{object V141 = Cnil; |
{object V138 = Cnil; |
1674 |
VMR72(V141)} |
VMR72(V138)} |
1675 |
return Cnil; |
return Cnil; |
1676 |
} |
} |
1677 |
/* function definition for Defclass PROGRAM-ERROR3956 */ |
/* function definition for Defclass PROGRAM-ERROR3958 */ |
1678 |
|
|
1679 |
static void L73() |
static void L73() |
1680 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1681 |
register object *sup=base+VM73; VC73 |
register object *sup=base+VM73; VC73 |
1682 |
vs_reserve(VM73); |
vs_check; |
|
check_arg(0); |
|
1683 |
vs_top=sup; |
vs_top=sup; |
1684 |
goto TTL; |
goto TTL; |
1685 |
TTL:; |
TTL:; |
1692 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
1693 |
return; |
return; |
1694 |
} |
} |
1695 |
/* local entry for function progn 'compile3972 */ |
/* local entry for function progn 'compile3974 */ |
1696 |
|
|
1697 |
static object LI74() |
static object LI74() |
1698 |
|
|
1700 |
goto TTL; |
goto TTL; |
1701 |
TTL:; |
TTL:; |
1702 |
vs_base=vs_top; |
vs_base=vs_top; |
1703 |
(void) (*Lnk291)(); |
(void) (*Lnk290)(); |
1704 |
vs_top=sup; |
vs_top=sup; |
1705 |
{object V142 = Cnil; |
{object V139 = Cnil; |
1706 |
VMR74(V142)} |
VMR74(V139)} |
1707 |
base[0]=base[0]; |
base[0]=base[0]; |
1708 |
return Cnil; |
return Cnil; |
1709 |
} |
} |
1710 |
/* local entry for function progn 'compile3989 */ |
/* local entry for function progn 'compile3991 */ |
1711 |
|
|
1712 |
static object LI75() |
static object LI75() |
1713 |
|
|
1715 |
goto TTL; |
goto TTL; |
1716 |
TTL:; |
TTL:; |
1717 |
base[0]= VV[106]; |
base[0]= VV[106]; |
1718 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
1719 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1720 |
Ladjoin(); |
Ladjoin(); |
1721 |
vs_top=sup; |
vs_top=sup; |
1722 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
1723 |
{object V144 = Cnil; |
{object V141 = Cnil; |
1724 |
VMR75(V144)} |
VMR75(V141)} |
1725 |
base[0]=base[0]; |
base[0]=base[0]; |
1726 |
return Cnil; |
return Cnil; |
1727 |
} |
} |
1728 |
/* local entry for function progn 'compile4013 */ |
/* local entry for function progn 'compile4015 */ |
1729 |
|
|
1730 |
static object LI76() |
static object LI76() |
1731 |
|
|
1733 |
goto TTL; |
goto TTL; |
1734 |
TTL:; |
TTL:; |
1735 |
(void)(sputprop(VV[104],VV[9],Cnil)); |
(void)(sputprop(VV[104],VV[9],Cnil)); |
1736 |
{object V145 = Cnil; |
{object V142 = Cnil; |
1737 |
VMR76(V145)} |
VMR76(V142)} |
1738 |
return Cnil; |
return Cnil; |
1739 |
} |
} |
1740 |
/* local entry for function progn 'compile4025 */ |
/* local entry for function progn 'compile4027 */ |
1741 |
|
|
1742 |
static object LI77() |
static object LI77() |
1743 |
|
|
1744 |
{ VMB77 VMS77 VMV77 |
{ VMB77 VMS77 VMV77 |
1745 |
goto TTL; |
goto TTL; |
1746 |
TTL:; |
TTL:; |
1747 |
{object V146 = Cnil; |
{object V143 = Cnil; |
1748 |
VMR77(V146)} |
VMR77(V143)} |
1749 |
return Cnil; |
return Cnil; |
1750 |
} |
} |
1751 |
/* function definition for Defclass CONTROL-ERROR4045 */ |
/* function definition for Defclass CONTROL-ERROR4047 */ |
1752 |
|
|
1753 |
static void L78() |
static void L78() |
1754 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1755 |
register object *sup=base+VM78; VC78 |
register object *sup=base+VM78; VC78 |
1756 |
vs_reserve(VM78); |
vs_check; |
|
check_arg(0); |
|
1757 |
vs_top=sup; |
vs_top=sup; |
1758 |
goto TTL; |
goto TTL; |
1759 |
TTL:; |
TTL:; |
1766 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
1767 |
return; |
return; |
1768 |
} |
} |
1769 |
/* local entry for function progn 'compile4061 */ |
/* local entry for function progn 'compile4063 */ |
1770 |
|
|
1771 |
static object LI79() |
static object LI79() |
1772 |
|
|
1774 |
goto TTL; |
goto TTL; |
1775 |
TTL:; |
TTL:; |
1776 |
vs_base=vs_top; |
vs_base=vs_top; |
1777 |
(void) (*Lnk292)(); |
(void) (*Lnk291)(); |
1778 |
vs_top=sup; |
vs_top=sup; |
1779 |
{object V147 = Cnil; |
{object V144 = Cnil; |
1780 |
VMR79(V147)} |
VMR79(V144)} |
1781 |
base[0]=base[0]; |
base[0]=base[0]; |
1782 |
return Cnil; |
return Cnil; |
1783 |
} |
} |
1784 |
/* local entry for function progn 'compile4078 */ |
/* local entry for function progn 'compile4080 */ |
1785 |
|
|
1786 |
static object LI80() |
static object LI80() |
1787 |
|
|
1789 |
goto TTL; |
goto TTL; |
1790 |
TTL:; |
TTL:; |
1791 |
base[0]= VV[109]; |
base[0]= VV[109]; |
1792 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
1793 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1794 |
Ladjoin(); |
Ladjoin(); |
1795 |
vs_top=sup; |
vs_top=sup; |
1796 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
1797 |
{object V149 = Cnil; |
{object V146 = Cnil; |
1798 |
VMR80(V149)} |
VMR80(V146)} |
1799 |
base[0]=base[0]; |
base[0]=base[0]; |
1800 |
return Cnil; |
return Cnil; |
1801 |
} |
} |
1802 |
/* local entry for function progn 'compile4102 */ |
/* local entry for function progn 'compile4104 */ |
1803 |
|
|
1804 |
static object LI81() |
static object LI81() |
1805 |
|
|
1807 |
goto TTL; |
goto TTL; |
1808 |
TTL:; |
TTL:; |
1809 |
(void)(sputprop(VV[107],VV[9],Cnil)); |
(void)(sputprop(VV[107],VV[9],Cnil)); |
1810 |
{object V150 = Cnil; |
{object V147 = Cnil; |
1811 |
VMR81(V150)} |
VMR81(V147)} |
1812 |
return Cnil; |
return Cnil; |
1813 |
} |
} |
1814 |
/* local entry for function progn 'compile4114 */ |
/* local entry for function progn 'compile4116 */ |
1815 |
|
|
1816 |
static object LI82() |
static object LI82() |
1817 |
|
|
1818 |
{ VMB82 VMS82 VMV82 |
{ VMB82 VMS82 VMV82 |
1819 |
goto TTL; |
goto TTL; |
1820 |
TTL:; |
TTL:; |
1821 |
{object V151 = Cnil; |
{object V148 = Cnil; |
1822 |
VMR82(V151)} |
VMR82(V148)} |
1823 |
return Cnil; |
return Cnil; |
1824 |
} |
} |
1825 |
/* function definition for Defclass STREAM-ERROR4134 */ |
/* function definition for Defclass STREAM-ERROR4136 */ |
1826 |
|
|
1827 |
static void L83() |
static void L83() |
1828 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1829 |
register object *sup=base+VM83; VC83 |
register object *sup=base+VM83; VC83 |
1830 |
vs_reserve(VM83); |
vs_check; |
|
check_arg(0); |
|
1831 |
vs_top=sup; |
vs_top=sup; |
1832 |
goto TTL; |
goto TTL; |
1833 |
TTL:; |
TTL:; |
1834 |
base[0]= VV[110]; |
base[0]= VV[110]; |
1835 |
base[1]= VV[5]; |
base[1]= VV[5]; |
1836 |
base[2]= VV[111]; |
base[2]= VV[111]; |
1837 |
V152= listA(9,VV[18],VV[112],VV[20],VV[113],VV[22],Cnil,VV[23],VV[114],Cnil); |
V149= listA(9,VV[18],VV[112],VV[20],VV[113],VV[22],Cnil,VV[23],VV[114],Cnil); |
1838 |
base[3]= make_cons(/* INLINE-ARGS */V152,Cnil); |
base[3]= make_cons(/* INLINE-ARGS */V149,Cnil); |
1839 |
base[4]= Cnil; |
base[4]= Cnil; |
1840 |
base[5]= Cnil; |
base[5]= Cnil; |
1841 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
1842 |
return; |
return; |
1843 |
} |
} |
1844 |
/* local entry for function progn 'compile4151 */ |
/* local entry for function progn 'compile4153 */ |
1845 |
|
|
1846 |
static object LI84() |
static object LI84() |
1847 |
|
|
1849 |
goto TTL; |
goto TTL; |
1850 |
TTL:; |
TTL:; |
1851 |
vs_base=vs_top; |
vs_base=vs_top; |
1852 |
(void) (*Lnk293)(); |
(void) (*Lnk292)(); |
1853 |
vs_top=sup; |
vs_top=sup; |
1854 |
{object V153 = Cnil; |
{object V150 = Cnil; |
1855 |
VMR84(V153)} |
VMR84(V150)} |
1856 |
base[0]=base[0]; |
base[0]=base[0]; |
1857 |
return Cnil; |
return Cnil; |
1858 |
} |
} |
1859 |
/* local entry for function progn 'compile4168 */ |
/* local entry for function progn 'compile4170 */ |
1860 |
|
|
1861 |
static object LI85() |
static object LI85() |
1862 |
|
|
1864 |
goto TTL; |
goto TTL; |
1865 |
TTL:; |
TTL:; |
1866 |
base[0]= VV[115]; |
base[0]= VV[115]; |
1867 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
1868 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1869 |
Ladjoin(); |
Ladjoin(); |
1870 |
vs_top=sup; |
vs_top=sup; |
1871 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
1872 |
{object V155 = Cnil; |
{object V152 = Cnil; |
1873 |
VMR85(V155)} |
VMR85(V152)} |
1874 |
base[0]=base[0]; |
base[0]=base[0]; |
1875 |
return Cnil; |
return Cnil; |
1876 |
} |
} |
1877 |
/* local entry for function progn 'compile4192 */ |
/* local entry for function progn 'compile4194 */ |
1878 |
|
|
1879 |
static object LI86() |
static object LI86() |
1880 |
|
|
1882 |
goto TTL; |
goto TTL; |
1883 |
TTL:; |
TTL:; |
1884 |
(void)(sputprop(VV[110],VV[9],Cnil)); |
(void)(sputprop(VV[110],VV[9],Cnil)); |
1885 |
{object V156 = Cnil; |
{object V153 = Cnil; |
1886 |
VMR86(V156)} |
VMR86(V153)} |
1887 |
return Cnil; |
return Cnil; |
1888 |
} |
} |
1889 |
/* local entry for function progn 'compile4204 */ |
/* local entry for function progn 'compile4206 */ |
1890 |
|
|
1891 |
static object LI87() |
static object LI87() |
1892 |
|
|
1893 |
{ VMB87 VMS87 VMV87 |
{ VMB87 VMS87 VMV87 |
1894 |
goto TTL; |
goto TTL; |
1895 |
TTL:; |
TTL:; |
1896 |
{object V157 = Cnil; |
{object V154 = Cnil; |
1897 |
VMR87(V157)} |
VMR87(V154)} |
1898 |
return Cnil; |
return Cnil; |
1899 |
} |
} |
1900 |
/* function definition for Defclass END-OF-FILE4224 */ |
/* function definition for Defclass END-OF-FILE4226 */ |
1901 |
|
|
1902 |
static void L88() |
static void L88() |
1903 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1904 |
register object *sup=base+VM88; VC88 |
register object *sup=base+VM88; VC88 |
1905 |
vs_reserve(VM88); |
vs_check; |
|
check_arg(0); |
|
1906 |
vs_top=sup; |
vs_top=sup; |
1907 |
goto TTL; |
goto TTL; |
1908 |
TTL:; |
TTL:; |
1915 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
1916 |
return; |
return; |
1917 |
} |
} |
1918 |
/* local entry for function progn 'compile4240 */ |
/* local entry for function progn 'compile4242 */ |
1919 |
|
|
1920 |
static object LI89() |
static object LI89() |
1921 |
|
|
1923 |
goto TTL; |
goto TTL; |
1924 |
TTL:; |
TTL:; |
1925 |
vs_base=vs_top; |
vs_base=vs_top; |
1926 |
(void) (*Lnk294)(); |
(void) (*Lnk293)(); |
1927 |
vs_top=sup; |
vs_top=sup; |
1928 |
{object V158 = Cnil; |
{object V155 = Cnil; |
1929 |
VMR89(V158)} |
VMR89(V155)} |
1930 |
base[0]=base[0]; |
base[0]=base[0]; |
1931 |
return Cnil; |
return Cnil; |
1932 |
} |
} |
1933 |
/* local entry for function progn 'compile4257 */ |
/* local entry for function progn 'compile4259 */ |
1934 |
|
|
1935 |
static object LI90() |
static object LI90() |
1936 |
|
|
1938 |
goto TTL; |
goto TTL; |
1939 |
TTL:; |
TTL:; |
1940 |
base[0]= VV[118]; |
base[0]= VV[118]; |
1941 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
1942 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1943 |
Ladjoin(); |
Ladjoin(); |
1944 |
vs_top=sup; |
vs_top=sup; |
1945 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
1946 |
{object V160 = Cnil; |
{object V157 = Cnil; |
1947 |
VMR90(V160)} |
VMR90(V157)} |
1948 |
base[0]=base[0]; |
base[0]=base[0]; |
1949 |
return Cnil; |
return Cnil; |
1950 |
} |
} |
1951 |
/* local entry for function progn 'compile4281 */ |
/* local entry for function progn 'compile4283 */ |
1952 |
|
|
1953 |
static object LI91() |
static object LI91() |
1954 |
|
|
1956 |
goto TTL; |
goto TTL; |
1957 |
TTL:; |
TTL:; |
1958 |
(void)(sputprop(VV[116],VV[9],Cnil)); |
(void)(sputprop(VV[116],VV[9],Cnil)); |
1959 |
{object V161 = Cnil; |
{object V158 = Cnil; |
1960 |
VMR91(V161)} |
VMR91(V158)} |
1961 |
return Cnil; |
return Cnil; |
1962 |
} |
} |
1963 |
/* local entry for function progn 'compile4297 */ |
/* local entry for function progn 'compile4299 */ |
1964 |
|
|
1965 |
static object LI92() |
static object LI92() |
1966 |
|
|
1972 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1973 |
(void) (*Lnk269)(); |
(void) (*Lnk269)(); |
1974 |
vs_top=sup; |
vs_top=sup; |
1975 |
{object V162 = Cnil; |
{object V159 = Cnil; |
1976 |
VMR92(V162)} |
VMR92(V159)} |
1977 |
base[0]=base[0]; |
base[0]=base[0]; |
1978 |
return Cnil; |
return Cnil; |
1979 |
} |
} |
1982 |
static void L93() |
static void L93() |
1983 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1984 |
register object *sup=base+VM93; VC93 |
register object *sup=base+VM93; VC93 |
1985 |
vs_reserve(VM93); |
vs_check; |
1986 |
{object V163; |
{object V160; |
1987 |
register object V164; |
register object V161; |
1988 |
register object V165; |
register object V162; |
1989 |
register object V166; |
register object V163; |
1990 |
check_arg(4); |
V160=(base[0]); |
1991 |
V163=(base[0]); |
V161=(base[1]); |
1992 |
V164=(base[1]); |
V162=(base[2]); |
1993 |
V165=(base[2]); |
V163=(base[3]); |
|
V166=(base[3]); |
|
1994 |
vs_top=sup; |
vs_top=sup; |
1995 |
goto TTL; |
goto TTL; |
1996 |
TTL:; |
TTL:; |
1997 |
if((symbol_value(VV[34]))==Cnil){ |
if(((VV[34]->s.s_dbind))==Cnil){ |
1998 |
goto T535;} |
goto T529;} |
1999 |
if(((V164))==Cnil){ |
if(((V161))==Cnil){ |
2000 |
goto T538;} |
goto T532;} |
2001 |
base[4]= (V164); |
base[4]= (V161); |
2002 |
base[5]= VV[35]; |
base[5]= VV[35]; |
2003 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2004 |
(void) (*Lnk270)(); |
(void) (*Lnk270)(); |
2005 |
vs_top=sup; |
vs_top=sup; |
2006 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2007 |
goto T542;} |
goto T536;} |
2008 |
base[4]= structure_ref((V164),VV[35],0); |
base[4]= STREF(object,(V161),0); |
2009 |
base[5]= structure_ref((V164),VV[35],1); |
base[5]= STREF(object,(V161),4); |
2010 |
base[6]= structure_ref((V164),VV[35],2); |
base[6]= STREF(object,(V161),8); |
2011 |
base[7]= (V165); |
base[7]= (V162); |
2012 |
base[8]= (V166); |
base[8]= (V163); |
2013 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
2014 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2015 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2016 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2017 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2018 |
return; |
return; |
2019 |
goto T542; |
goto T536; |
2020 |
T542:; |
T536:; |
2021 |
if(!(type_of((V164))==t_fixnum)){ |
if(!(type_of((V161))==t_fixnum)){ |
2022 |
|
goto T546;} |
2023 |
|
{object V166; |
2024 |
|
if(type_of(V162)==t_structure){ |
2025 |
goto T552;} |
goto T552;} |
2026 |
{object V169; |
goto T550; |
2027 |
if(type_of(V165)==t_structure){ |
goto T552; |
2028 |
goto T558;} |
T552:; |
2029 |
goto T556; |
if(!(((V162)->str.str_def)==(VV[120]))){ |
2030 |
goto T558; |
goto T550;} |
2031 |
T558:; |
V166= STREF(object,(V162),4); |
2032 |
base[4]= V165; |
goto T548; |
2033 |
vs_top=(vs_base=base+4)+1; |
goto T550; |
2034 |
(void) (*Lnk271)(); |
T550:;{object V168; |
2035 |
vs_top=sup; |
V168= (VV[38]->s.s_dbind); |
|
V171= vs_base[0]; |
|
|
if(!((V171)==(VV[120]))){ |
|
|
goto T556;} |
|
|
V169= structure_ref((V165),VV[37],1); |
|
|
goto T554; |
|
|
goto T556; |
|
|
T556:;{object V172; |
|
|
V172= symbol_value(VV[38]); |
|
2036 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
2037 |
base[5]= (V165); |
base[5]= (V162); |
2038 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2039 |
(void) (*Lnk272)(); |
(void) (*Lnk271)(); |
2040 |
vs_top=sup; |
vs_top=sup; |
2041 |
V173= vs_base[0]; |
V169= vs_base[0]; |
2042 |
if(!((V172)==(car(V173)))){ |
if(!((V168)==(CMPcar(V169)))){ |
2043 |
goto T563;}} |
goto T555;}} |
2044 |
V169= car(((V165))->cc.cc_turbo[12]); |
V166= CMPcar(((V162))->cc.cc_turbo[12]); |
2045 |
goto T554; |
goto T548; |
2046 |
goto T563; |
goto T555; |
2047 |
T563:; |
T555:; |
2048 |
V169= Cnil; |
V166= Cnil; |
2049 |
goto T554; |
goto T548; |
2050 |
T554:; |
T548:; |
2051 |
if(((V169))==Cnil){ |
if(((V166))==Cnil){ |
2052 |
goto T569;} |
goto T561;} |
2053 |
base[4]= aset1((V169),fix((V164)),V165); |
base[4]= ((V166))->v.v_self[fix((V161))]= (V162); |
2054 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2055 |
return; |
return; |
2056 |
goto T569; |
goto T561; |
2057 |
T569:; |
T561:; |
2058 |
base[4]= Cnil; |
base[4]= Cnil; |
2059 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2060 |
return;} |
return;} |
2061 |
goto T552; |
goto T546; |
2062 |
T552:; |
T546:; |
2063 |
{register object V175; |
{register object V171; |
2064 |
V175= V164; |
V171= V161; |
2065 |
base[4]= (V175); |
base[4]= (V171); |
2066 |
base[5]= VV[39]; |
base[5]= VV[39]; |
2067 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2068 |
(void) (*Lnk270)(); |
(void) (*Lnk270)(); |
2069 |
vs_top=sup; |
vs_top=sup; |
2070 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2071 |
|
goto T564;} |
2072 |
|
{object V172; |
2073 |
|
object V173; |
2074 |
|
register object V174; |
2075 |
|
V172= STREF(object,(V161),0); |
2076 |
|
V173= list(2,(V162),(V163)); |
2077 |
|
V174= STREF(object,(V161),4); |
2078 |
|
if(((V174))==Cnil){ |
2079 |
goto T572;} |
goto T572;} |
2080 |
{object V176; |
if((CMPcdr((V174)))!=Cnil){ |
2081 |
object V177; |
goto T572;} |
2082 |
register object V178; |
base[4]= (V173); |
2083 |
V176= structure_ref((V164),VV[39],0); |
base[5]= CMPcar((V174)); |
2084 |
V177= list(2,(V165),(V166)); |
vs_top=(vs_base=base+4)+2; |
2085 |
V178= structure_ref((V164),VV[39],1); |
{object _funobj = (V172);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
|
if(((V178))==Cnil){ |
|
|
goto T580;} |
|
|
if((cdr((V178)))!=Cnil){ |
|
|
goto T580;} |
|
|
base[4]= (V177); |
|
|
base[5]= car((V178)); |
|
|
vs_top=(vs_base=base+4)+2; |
|
|
{object _funobj = (V176);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
|
2086 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2087 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2088 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2089 |
return; |
return; |
2090 |
goto T580; |
goto T572; |
2091 |
T580:; |
T572:; |
2092 |
base[4]= (V176); |
base[4]= (V172); |
2093 |
base[5]= (V177); |
base[5]= (V173); |
2094 |
{object V179; |
{object V175; |
2095 |
V179= (V178); |
V175= (V174); |
2096 |
vs_top=base+6; |
vs_top=base+6; |
2097 |
while(!endp(V179)) |
while(V175!=Cnil) |
2098 |
{vs_push(car(V179));V179=cdr(V179);} |
{vs_push((V175)->c.c_car);V175=(V175)->c.c_cdr;} |
2099 |
vs_base=base+5;} |
vs_base=base+5;} |
2100 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2101 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2102 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2103 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2104 |
return;} |
return;} |
2105 |
goto T572; |
goto T564; |
2106 |
T572:; |
T564:; |
2107 |
base[4]= (V175); |
base[4]= (V171); |
2108 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2109 |
Lfunctionp(); |
Lfunctionp(); |
2110 |
vs_top=sup; |
vs_top=sup; |
2111 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2112 |
goto T590;} |
goto T582;} |
2113 |
base[4]= (V165); |
base[4]= (V162); |
2114 |
base[5]= (V166); |
base[5]= (V163); |
2115 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2116 |
{object _funobj = (V164);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V161);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2117 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2118 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2119 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2120 |
return; |
return; |
2121 |
goto T590; |
goto T582; |
2122 |
T590:; |
T582:; |
2123 |
base[4]= VV[40]; |
base[4]= VV[40]; |
2124 |
base[5]= VV[18]; |
base[5]= VV[18]; |
2125 |
base[6]= VV[41]; |
base[6]= VV[41]; |
2126 |
base[7]= VV[42]; |
base[7]= VV[42]; |
2127 |
base[8]= V164; |
base[8]= V161; |
2128 |
base[9]= VV[43]; |
base[9]= VV[43]; |
2129 |
base[10]= VV[121]; |
base[10]= VV[121]; |
2130 |
base[11]= VV[45]; |
base[11]= VV[45]; |
2132 |
vs_top=(vs_base=base+4)+9; |
vs_top=(vs_base=base+4)+9; |
2133 |
(void) (*Lnk13)(); |
(void) (*Lnk13)(); |
2134 |
return;} |
return;} |
2135 |
goto T538; |
goto T532; |
2136 |
T538:; |
T532:; |
2137 |
base[4]= VV[47]; |
base[4]= VV[47]; |
2138 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2139 |
(void) (*Lnk273)(); |
(void) (*Lnk272)(); |
2140 |
return; |
return; |
2141 |
goto T535; |
goto T529; |
2142 |
T535:; |
T529:; |
2143 |
base[4]= V166; |
base[4]= V163; |
2144 |
base[5]= VV[123]; |
base[5]= VV[123]; |
2145 |
base[7]= V165; |
base[7]= V162; |
2146 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
2147 |
(void) (*Lnk295)(Lclptr295); |
(void) (*Lnk294)(Lclptr294); |
2148 |
vs_top=sup; |
vs_top=sup; |
2149 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
2150 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
2152 |
return; |
return; |
2153 |
} |
} |
2154 |
} |
} |
2155 |
/* local entry for function progn 'compile4494 */ |
/* local entry for function progn 'compile4496 */ |
2156 |
|
|
2157 |
static object LI94() |
static object LI94() |
2158 |
|
|
2164 |
base[2]= Cnil; |
base[2]= Cnil; |
2165 |
base[3]= VV[124]; |
base[3]= VV[124]; |
2166 |
base[4]= VV[125]; |
base[4]= VV[125]; |
2167 |
V182= symbol_function(VV[296]); |
V178= (VV[295]->s.s_gfdef); |
2168 |
base[5]= listA(3,VV[51],V182,VV[126]); |
base[5]= listA(3,VV[51],V178,VV[126]); |
2169 |
base[6]= Cnil; |
base[6]= Cnil; |
2170 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
2171 |
(void) (*Lnk276)(); |
(void) (*Lnk275)(); |
2172 |
vs_top=sup; |
vs_top=sup; |
2173 |
{object V183 = Cnil; |
{object V179 = Cnil; |
2174 |
VMR94(V183)} |
VMR94(V179)} |
2175 |
base[0]=base[0]; |
base[0]=base[0]; |
2176 |
return Cnil; |
return Cnil; |
2177 |
} |
} |
2178 |
/* local entry for function progn 'compile4502 */ |
/* local entry for function progn 'compile4504 */ |
2179 |
|
|
2180 |
static object LI95() |
static object LI95() |
2181 |
|
|
2182 |
{ VMB95 VMS95 VMV95 |
{ VMB95 VMS95 VMV95 |
2183 |
goto TTL; |
goto TTL; |
2184 |
TTL:; |
TTL:; |
2185 |
{object V184 = Cnil; |
{object V180 = Cnil; |
2186 |
VMR95(V184)} |
VMR95(V180)} |
2187 |
return Cnil; |
return Cnil; |
2188 |
} |
} |
2189 |
/* function definition for Defclass FILE-ERROR4522 */ |
/* function definition for Defclass FILE-ERROR4524 */ |
2190 |
|
|
2191 |
static void L96() |
static void L96() |
2192 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2193 |
register object *sup=base+VM96; VC96 |
register object *sup=base+VM96; VC96 |
2194 |
vs_reserve(VM96); |
vs_check; |
|
check_arg(0); |
|
2195 |
vs_top=sup; |
vs_top=sup; |
2196 |
goto TTL; |
goto TTL; |
2197 |
TTL:; |
TTL:; |
2198 |
base[0]= VV[127]; |
base[0]= VV[127]; |
2199 |
base[1]= VV[5]; |
base[1]= VV[5]; |
2200 |
base[2]= VV[128]; |
base[2]= VV[128]; |
2201 |
V185= listA(9,VV[18],VV[129],VV[20],VV[130],VV[22],Cnil,VV[23],VV[131],Cnil); |
V181= listA(9,VV[18],VV[129],VV[20],VV[130],VV[22],Cnil,VV[23],VV[131],Cnil); |
2202 |
base[3]= make_cons(/* INLINE-ARGS */V185,Cnil); |
base[3]= make_cons(/* INLINE-ARGS */V181,Cnil); |
2203 |
base[4]= Cnil; |
base[4]= Cnil; |
2204 |
base[5]= Cnil; |
base[5]= Cnil; |
2205 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
2206 |
return; |
return; |
2207 |
} |
} |
2208 |
/* local entry for function progn 'compile4539 */ |
/* local entry for function progn 'compile4541 */ |
2209 |
|
|
2210 |
static object LI97() |
static object LI97() |
2211 |
|
|
2213 |
goto TTL; |
goto TTL; |
2214 |
TTL:; |
TTL:; |
2215 |
vs_base=vs_top; |
vs_base=vs_top; |
2216 |
(void) (*Lnk297)(); |
(void) (*Lnk296)(); |
2217 |
vs_top=sup; |
vs_top=sup; |
2218 |
{object V186 = Cnil; |
{object V182 = Cnil; |
2219 |
VMR97(V186)} |
VMR97(V182)} |
2220 |
base[0]=base[0]; |
base[0]=base[0]; |
2221 |
return Cnil; |
return Cnil; |
2222 |
} |
} |
2223 |
/* local entry for function progn 'compile4556 */ |
/* local entry for function progn 'compile4558 */ |
2224 |
|
|
2225 |
static object LI98() |
static object LI98() |
2226 |
|
|
2228 |
goto TTL; |
goto TTL; |
2229 |
TTL:; |
TTL:; |
2230 |
base[0]= VV[132]; |
base[0]= VV[132]; |
2231 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
2232 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2233 |
Ladjoin(); |
Ladjoin(); |
2234 |
vs_top=sup; |
vs_top=sup; |
2235 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
2236 |
{object V188 = Cnil; |
{object V184 = Cnil; |
2237 |
VMR98(V188)} |
VMR98(V184)} |
2238 |
base[0]=base[0]; |
base[0]=base[0]; |
2239 |
return Cnil; |
return Cnil; |
2240 |
} |
} |
2241 |
/* local entry for function progn 'compile4580 */ |
/* local entry for function progn 'compile4582 */ |
2242 |
|
|
2243 |
static object LI99() |
static object LI99() |
2244 |
|
|
2246 |
goto TTL; |
goto TTL; |
2247 |
TTL:; |
TTL:; |
2248 |
(void)(sputprop(VV[127],VV[9],Cnil)); |
(void)(sputprop(VV[127],VV[9],Cnil)); |
2249 |
{object V189 = Cnil; |
{object V185 = Cnil; |
2250 |
VMR99(V189)} |
VMR99(V185)} |
2251 |
return Cnil; |
return Cnil; |
2252 |
} |
} |
2253 |
/* local entry for function progn 'compile4592 */ |
/* local entry for function progn 'compile4594 */ |
2254 |
|
|
2255 |
static object LI100() |
static object LI100() |
2256 |
|
|
2257 |
{ VMB100 VMS100 VMV100 |
{ VMB100 VMS100 VMV100 |
2258 |
goto TTL; |
goto TTL; |
2259 |
TTL:; |
TTL:; |
2260 |
{object V190 = Cnil; |
{object V186 = Cnil; |
2261 |
VMR100(V190)} |
VMR100(V186)} |
2262 |
return Cnil; |
return Cnil; |
2263 |
} |
} |
2264 |
/* function definition for Defclass PACKAGE-ERROR4612 */ |
/* function definition for Defclass PACKAGE-ERROR4614 */ |
2265 |
|
|
2266 |
static void L101() |
static void L101() |
2267 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2268 |
register object *sup=base+VM101; VC101 |
register object *sup=base+VM101; VC101 |
2269 |
vs_reserve(VM101); |
vs_check; |
|
check_arg(0); |
|
2270 |
vs_top=sup; |
vs_top=sup; |
2271 |
goto TTL; |
goto TTL; |
2272 |
TTL:; |
TTL:; |
2273 |
base[0]= VV[133]; |
base[0]= VV[133]; |
2274 |
base[1]= VV[5]; |
base[1]= VV[5]; |
2275 |
base[2]= VV[134]; |
base[2]= VV[134]; |
2276 |
V191= listA(9,VV[18],VV[135],VV[20],VV[136],VV[22],Cnil,VV[23],VV[137],Cnil); |
V187= listA(9,VV[18],VV[135],VV[20],VV[136],VV[22],Cnil,VV[23],VV[137],Cnil); |
2277 |
base[3]= list(2,/* INLINE-ARGS */V191,listA(9,VV[18],VV[138],VV[20],VV[139],VV[22],Cnil,VV[23],VV[140],Cnil)); |
base[3]= list(2,/* INLINE-ARGS */V187,listA(9,VV[18],VV[138],VV[20],VV[139],VV[22],Cnil,VV[23],VV[140],Cnil)); |
2278 |
base[4]= Cnil; |
base[4]= Cnil; |
2279 |
base[5]= Cnil; |
base[5]= Cnil; |
2280 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
2281 |
return; |
return; |
2282 |
} |
} |
2283 |
/* local entry for function progn 'compile4630 */ |
/* local entry for function progn 'compile4632 */ |
2284 |
|
|
2285 |
static object LI102() |
static object LI102() |
2286 |
|
|
2288 |
goto TTL; |
goto TTL; |
2289 |
TTL:; |
TTL:; |
2290 |
vs_base=vs_top; |
vs_base=vs_top; |
2291 |
(void) (*Lnk298)(); |
(void) (*Lnk297)(); |
2292 |
vs_top=sup; |
vs_top=sup; |
2293 |
{object V192 = Cnil; |
{object V188 = Cnil; |
2294 |
VMR102(V192)} |
VMR102(V188)} |
2295 |
base[0]=base[0]; |
base[0]=base[0]; |
2296 |
return Cnil; |
return Cnil; |
2297 |
} |
} |
2298 |
/* local entry for function progn 'compile4647 */ |
/* local entry for function progn 'compile4649 */ |
2299 |
|
|
2300 |
static object LI103() |
static object LI103() |
2301 |
|
|
2303 |
goto TTL; |
goto TTL; |
2304 |
TTL:; |
TTL:; |
2305 |
base[0]= VV[141]; |
base[0]= VV[141]; |
2306 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
2307 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2308 |
Ladjoin(); |
Ladjoin(); |
2309 |
vs_top=sup; |
vs_top=sup; |
2310 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
2311 |
{object V194 = Cnil; |
{object V190 = Cnil; |
2312 |
VMR103(V194)} |
VMR103(V190)} |
2313 |
base[0]=base[0]; |
base[0]=base[0]; |
2314 |
return Cnil; |
return Cnil; |
2315 |
} |
} |
2316 |
/* local entry for function progn 'compile4671 */ |
/* local entry for function progn 'compile4673 */ |
2317 |
|
|
2318 |
static object LI104() |
static object LI104() |
2319 |
|
|
2321 |
goto TTL; |
goto TTL; |
2322 |
TTL:; |
TTL:; |
2323 |
(void)(sputprop(VV[133],VV[9],Cnil)); |
(void)(sputprop(VV[133],VV[9],Cnil)); |
2324 |
{object V195 = Cnil; |
{object V191 = Cnil; |
2325 |
VMR104(V195)} |
VMR104(V191)} |
2326 |
return Cnil; |
return Cnil; |
2327 |
} |
} |
2328 |
/* local entry for function progn 'compile4687 */ |
/* local entry for function progn 'compile4689 */ |
2329 |
|
|
2330 |
static object LI105() |
static object LI105() |
2331 |
|
|
2337 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2338 |
(void) (*Lnk269)(); |
(void) (*Lnk269)(); |
2339 |
vs_top=sup; |
vs_top=sup; |
2340 |
{object V196 = Cnil; |
{object V192 = Cnil; |
2341 |
VMR105(V196)} |
VMR105(V192)} |
2342 |
base[0]=base[0]; |
base[0]=base[0]; |
2343 |
return Cnil; |
return Cnil; |
2344 |
} |
} |
2347 |
static void L106() |
static void L106() |
2348 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2349 |
register object *sup=base+VM106; VC106 |
register object *sup=base+VM106; VC106 |
2350 |
vs_reserve(VM106); |
vs_check; |
2351 |
{object V197; |
{object V193; |
2352 |
register object V198; |
register object V194; |
2353 |
register object V199; |
register object V195; |
2354 |
register object V200; |
register object V196; |
2355 |
check_arg(4); |
V193=(base[0]); |
2356 |
V197=(base[0]); |
V194=(base[1]); |
2357 |
V198=(base[1]); |
V195=(base[2]); |
2358 |
V199=(base[2]); |
V196=(base[3]); |
|
V200=(base[3]); |
|
2359 |
vs_top=sup; |
vs_top=sup; |
2360 |
goto TTL; |
goto TTL; |
2361 |
TTL:; |
TTL:; |
2362 |
if((symbol_value(VV[34]))==Cnil){ |
if(((VV[34]->s.s_dbind))==Cnil){ |
2363 |
goto T651;} |
goto T643;} |
2364 |
if(((V198))==Cnil){ |
if(((V194))==Cnil){ |
2365 |
goto T654;} |
goto T646;} |
2366 |
base[4]= (V198); |
base[4]= (V194); |
2367 |
base[5]= VV[35]; |
base[5]= VV[35]; |
2368 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2369 |
(void) (*Lnk270)(); |
(void) (*Lnk270)(); |
2370 |
vs_top=sup; |
vs_top=sup; |
2371 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2372 |
goto T658;} |
goto T650;} |
2373 |
base[4]= structure_ref((V198),VV[35],0); |
base[4]= STREF(object,(V194),0); |
2374 |
base[5]= structure_ref((V198),VV[35],1); |
base[5]= STREF(object,(V194),4); |
2375 |
base[6]= structure_ref((V198),VV[35],2); |
base[6]= STREF(object,(V194),8); |
2376 |
base[7]= (V199); |
base[7]= (V195); |
2377 |
base[8]= (V200); |
base[8]= (V196); |
2378 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
2379 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2380 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2381 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2382 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2383 |
return; |
return; |
2384 |
goto T658; |
goto T650; |
2385 |
T658:; |
T650:; |
2386 |
if(!(type_of((V198))==t_fixnum)){ |
if(!(type_of((V194))==t_fixnum)){ |
2387 |
goto T668;} |
goto T660;} |
2388 |
{object V203; |
{object V199; |
2389 |
if(type_of(V199)==t_structure){ |
if(type_of(V195)==t_structure){ |
2390 |
goto T674;} |
goto T666;} |
2391 |
goto T672; |
goto T664; |
2392 |
goto T674; |
goto T666; |
2393 |
T674:; |
T666:; |
2394 |
base[4]= V199; |
if(!(((V195)->str.str_def)==(VV[143]))){ |
2395 |
vs_top=(vs_base=base+4)+1; |
goto T664;} |
2396 |
(void) (*Lnk271)(); |
V199= STREF(object,(V195),4); |
2397 |
vs_top=sup; |
goto T662; |
2398 |
V205= vs_base[0]; |
goto T664; |
2399 |
if(!((V205)==(VV[143]))){ |
T664:;{object V201; |
2400 |
goto T672;} |
V201= (VV[38]->s.s_dbind); |
|
V203= structure_ref((V199),VV[37],1); |
|
|
goto T670; |
|
|
goto T672; |
|
|
T672:;{object V206; |
|
|
V206= symbol_value(VV[38]); |
|
2401 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
2402 |
base[5]= (V199); |
base[5]= (V195); |
2403 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2404 |
(void) (*Lnk272)(); |
(void) (*Lnk271)(); |
2405 |
vs_top=sup; |
vs_top=sup; |
2406 |
V207= vs_base[0]; |
V202= vs_base[0]; |
2407 |
if(!((V206)==(car(V207)))){ |
if(!((V201)==(CMPcar(V202)))){ |
2408 |
goto T679;}} |
goto T669;}} |
2409 |
V203= car(((V199))->cc.cc_turbo[12]); |
V199= CMPcar(((V195))->cc.cc_turbo[12]); |
2410 |
goto T670; |
goto T662; |
2411 |
goto T679; |
goto T669; |
2412 |
T679:; |
T669:; |
2413 |
V203= Cnil; |
V199= Cnil; |
2414 |
goto T670; |
goto T662; |
2415 |
T670:; |
T662:; |
2416 |
if(((V203))==Cnil){ |
if(((V199))==Cnil){ |
2417 |
goto T685;} |
goto T675;} |
2418 |
base[4]= aset1((V203),fix((V198)),V199); |
base[4]= ((V199))->v.v_self[fix((V194))]= (V195); |
2419 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2420 |
return; |
return; |
2421 |
goto T685; |
goto T675; |
2422 |
T685:; |
T675:; |
2423 |
base[4]= Cnil; |
base[4]= Cnil; |
2424 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2425 |
return;} |
return;} |
2426 |
goto T668; |
goto T660; |
2427 |
T668:; |
T660:; |
2428 |
{register object V209; |
{register object V204; |
2429 |
V209= V198; |
V204= V194; |
2430 |
base[4]= (V209); |
base[4]= (V204); |
2431 |
base[5]= VV[39]; |
base[5]= VV[39]; |
2432 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2433 |
(void) (*Lnk270)(); |
(void) (*Lnk270)(); |
2434 |
vs_top=sup; |
vs_top=sup; |
2435 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2436 |
goto T688;} |
goto T678;} |
2437 |
{object V210; |
{object V205; |
2438 |
object V211; |
object V206; |
2439 |
register object V212; |
register object V207; |
2440 |
V210= structure_ref((V198),VV[39],0); |
V205= STREF(object,(V194),0); |
2441 |
V211= list(2,(V199),(V200)); |
V206= list(2,(V195),(V196)); |
2442 |
V212= structure_ref((V198),VV[39],1); |
V207= STREF(object,(V194),4); |
2443 |
if(((V212))==Cnil){ |
if(((V207))==Cnil){ |
2444 |
goto T696;} |
goto T686;} |
2445 |
if((cdr((V212)))!=Cnil){ |
if((CMPcdr((V207)))!=Cnil){ |
2446 |
goto T696;} |
goto T686;} |
2447 |
base[4]= (V211); |
base[4]= (V206); |
2448 |
base[5]= car((V212)); |
base[5]= CMPcar((V207)); |
2449 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2450 |
{object _funobj = (V210);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V205);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2451 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2452 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2453 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2454 |
return; |
return; |
2455 |
goto T696; |
goto T686; |
2456 |
T696:; |
T686:; |
2457 |
base[4]= (V210); |
base[4]= (V205); |
2458 |
base[5]= (V211); |
base[5]= (V206); |
2459 |
{object V213; |
{object V208; |
2460 |
V213= (V212); |
V208= (V207); |
2461 |
vs_top=base+6; |
vs_top=base+6; |
2462 |
while(!endp(V213)) |
while(V208!=Cnil) |
2463 |
{vs_push(car(V213));V213=cdr(V213);} |
{vs_push((V208)->c.c_car);V208=(V208)->c.c_cdr;} |
2464 |
vs_base=base+5;} |
vs_base=base+5;} |
2465 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2466 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2467 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2468 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2469 |
return;} |
return;} |
2470 |
goto T688; |
goto T678; |
2471 |
T688:; |
T678:; |
2472 |
base[4]= (V209); |
base[4]= (V204); |
2473 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2474 |
Lfunctionp(); |
Lfunctionp(); |
2475 |
vs_top=sup; |
vs_top=sup; |
2476 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2477 |
goto T706;} |
goto T696;} |
2478 |
base[4]= (V199); |
base[4]= (V195); |
2479 |
base[5]= (V200); |
base[5]= (V196); |
2480 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2481 |
{object _funobj = (V198);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V194);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2482 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2483 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2484 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2485 |
return; |
return; |
2486 |
goto T706; |
goto T696; |
2487 |
T706:; |
T696:; |
2488 |
base[4]= VV[40]; |
base[4]= VV[40]; |
2489 |
base[5]= VV[18]; |
base[5]= VV[18]; |
2490 |
base[6]= VV[41]; |
base[6]= VV[41]; |
2491 |
base[7]= VV[42]; |
base[7]= VV[42]; |
2492 |
base[8]= V198; |
base[8]= V194; |
2493 |
base[9]= VV[43]; |
base[9]= VV[43]; |
2494 |
base[10]= VV[144]; |
base[10]= VV[144]; |
2495 |
base[11]= VV[45]; |
base[11]= VV[45]; |
2497 |
vs_top=(vs_base=base+4)+9; |
vs_top=(vs_base=base+4)+9; |
2498 |
(void) (*Lnk13)(); |
(void) (*Lnk13)(); |
2499 |
return;} |
return;} |
2500 |
goto T654; |
goto T646; |
2501 |
T654:; |
T646:; |
2502 |
base[4]= VV[47]; |
base[4]= VV[47]; |
2503 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2504 |
(void) (*Lnk273)(); |
(void) (*Lnk272)(); |
2505 |
return; |
return; |
2506 |
goto T651; |
goto T643; |
2507 |
T651:; |
T643:; |
2508 |
base[4]= V200; |
base[4]= V196; |
2509 |
base[5]= VV[146]; |
base[5]= VV[146]; |
2510 |
base[7]= V199; |
base[7]= V195; |
2511 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
2512 |
(void) (*Lnk299)(Lclptr299); |
(void) (*Lnk298)(Lclptr298); |
2513 |
vs_top=sup; |
vs_top=sup; |
2514 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
2515 |
base[8]= V199; |
base[8]= V195; |
2516 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
2517 |
(void) (*Lnk300)(Lclptr300); |
(void) (*Lnk299)(Lclptr299); |
2518 |
vs_top=sup; |
vs_top=sup; |
2519 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
2520 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
2522 |
return; |
return; |
2523 |
} |
} |
2524 |
} |
} |
2525 |
/* local entry for function progn 'compile4884 */ |
/* local entry for function progn 'compile4886 */ |
2526 |
|
|
2527 |
static object LI107() |
static object LI107() |
2528 |
|
|
2534 |
base[2]= Cnil; |
base[2]= Cnil; |
2535 |
base[3]= VV[147]; |
base[3]= VV[147]; |
2536 |
base[4]= VV[148]; |
base[4]= VV[148]; |
2537 |
V216= symbol_function(VV[301]); |
V211= (VV[300]->s.s_gfdef); |
2538 |
base[5]= listA(3,VV[51],V216,VV[149]); |
base[5]= listA(3,VV[51],V211,VV[149]); |
2539 |
base[6]= Cnil; |
base[6]= Cnil; |
2540 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
2541 |
(void) (*Lnk276)(); |
(void) (*Lnk275)(); |
2542 |
vs_top=sup; |
vs_top=sup; |
2543 |
{object V217 = Cnil; |
{object V212 = Cnil; |
2544 |
VMR107(V217)} |
VMR107(V212)} |
2545 |
base[0]=base[0]; |
base[0]=base[0]; |
2546 |
return Cnil; |
return Cnil; |
2547 |
} |
} |
2548 |
/* local entry for function progn 'compile4892 */ |
/* local entry for function progn 'compile4894 */ |
2549 |
|
|
2550 |
static object LI108() |
static object LI108() |
2551 |
|
|
2552 |
{ VMB108 VMS108 VMV108 |
{ VMB108 VMS108 VMV108 |
2553 |
goto TTL; |
goto TTL; |
2554 |
TTL:; |
TTL:; |
2555 |
{object V218 = Cnil; |
{object V213 = Cnil; |
2556 |
VMR108(V218)} |
VMR108(V213)} |
2557 |
return Cnil; |
return Cnil; |
2558 |
} |
} |
2559 |
/* function definition for Defclass CELL-ERROR4912 */ |
/* function definition for Defclass CELL-ERROR4914 */ |
2560 |
|
|
2561 |
static void L109() |
static void L109() |
2562 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2563 |
register object *sup=base+VM109; VC109 |
register object *sup=base+VM109; VC109 |
2564 |
vs_reserve(VM109); |
vs_check; |
|
check_arg(0); |
|
2565 |
vs_top=sup; |
vs_top=sup; |
2566 |
goto TTL; |
goto TTL; |
2567 |
TTL:; |
TTL:; |
2568 |
base[0]= VV[150]; |
base[0]= VV[150]; |
2569 |
base[1]= VV[5]; |
base[1]= VV[5]; |
2570 |
base[2]= VV[151]; |
base[2]= VV[151]; |
2571 |
V219= listA(9,VV[18],VV[89],VV[20],VV[152],VV[22],Cnil,VV[23],VV[153],Cnil); |
V214= listA(9,VV[18],VV[89],VV[20],VV[152],VV[22],Cnil,VV[23],VV[153],Cnil); |
2572 |
base[3]= make_cons(/* INLINE-ARGS */V219,Cnil); |
base[3]= make_cons(/* INLINE-ARGS */V214,Cnil); |
2573 |
base[4]= Cnil; |
base[4]= Cnil; |
2574 |
base[5]= Cnil; |
base[5]= Cnil; |
2575 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
2576 |
return; |
return; |
2577 |
} |
} |
2578 |
/* local entry for function progn 'compile4929 */ |
/* local entry for function progn 'compile4931 */ |
2579 |
|
|
2580 |
static object LI110() |
static object LI110() |
2581 |
|
|
2583 |
goto TTL; |
goto TTL; |
2584 |
TTL:; |
TTL:; |
2585 |
vs_base=vs_top; |
vs_base=vs_top; |
2586 |
(void) (*Lnk302)(); |
(void) (*Lnk301)(); |
2587 |
vs_top=sup; |
vs_top=sup; |
2588 |
{object V220 = Cnil; |
{object V215 = Cnil; |
2589 |
VMR110(V220)} |
VMR110(V215)} |
2590 |
base[0]=base[0]; |
base[0]=base[0]; |
2591 |
return Cnil; |
return Cnil; |
2592 |
} |
} |
2593 |
/* local entry for function progn 'compile4946 */ |
/* local entry for function progn 'compile4948 */ |
2594 |
|
|
2595 |
static object LI111() |
static object LI111() |
2596 |
|
|
2598 |
goto TTL; |
goto TTL; |
2599 |
TTL:; |
TTL:; |
2600 |
base[0]= VV[154]; |
base[0]= VV[154]; |
2601 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
2602 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2603 |
Ladjoin(); |
Ladjoin(); |
2604 |
vs_top=sup; |
vs_top=sup; |
2605 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
2606 |
{object V222 = Cnil; |
{object V217 = Cnil; |
2607 |
VMR111(V222)} |
VMR111(V217)} |
2608 |
base[0]=base[0]; |
base[0]=base[0]; |
2609 |
return Cnil; |
return Cnil; |
2610 |
} |
} |
2611 |
/* local entry for function progn 'compile4970 */ |
/* local entry for function progn 'compile4972 */ |
2612 |
|
|
2613 |
static object LI112() |
static object LI112() |
2614 |
|
|
2616 |
goto TTL; |
goto TTL; |
2617 |
TTL:; |
TTL:; |
2618 |
(void)(sputprop(VV[150],VV[9],Cnil)); |
(void)(sputprop(VV[150],VV[9],Cnil)); |
2619 |
{object V223 = Cnil; |
{object V218 = Cnil; |
2620 |
VMR112(V223)} |
VMR112(V218)} |
2621 |
return Cnil; |
return Cnil; |
2622 |
} |
} |
2623 |
/* local entry for function progn 'compile4982 */ |
/* local entry for function progn 'compile4984 */ |
2624 |
|
|
2625 |
static object LI113() |
static object LI113() |
2626 |
|
|
2627 |
{ VMB113 VMS113 VMV113 |
{ VMB113 VMS113 VMV113 |
2628 |
goto TTL; |
goto TTL; |
2629 |
TTL:; |
TTL:; |
2630 |
{object V224 = Cnil; |
{object V219 = Cnil; |
2631 |
VMR113(V224)} |
VMR113(V219)} |
2632 |
return Cnil; |
return Cnil; |
2633 |
} |
} |
2634 |
/* function definition for Defclass UNBOUND-VARIABLE5002 */ |
/* function definition for Defclass UNBOUND-VARIABLE5004 */ |
2635 |
|
|
2636 |
static void L114() |
static void L114() |
2637 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2638 |
register object *sup=base+VM114; VC114 |
register object *sup=base+VM114; VC114 |
2639 |
vs_reserve(VM114); |
vs_check; |
|
check_arg(0); |
|
2640 |
vs_top=sup; |
vs_top=sup; |
2641 |
goto TTL; |
goto TTL; |
2642 |
TTL:; |
TTL:; |
2649 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
2650 |
return; |
return; |
2651 |
} |
} |
2652 |
/* local entry for function progn 'compile5018 */ |
/* local entry for function progn 'compile5020 */ |
2653 |
|
|
2654 |
static object LI115() |
static object LI115() |
2655 |
|
|
2657 |
goto TTL; |
goto TTL; |
2658 |
TTL:; |
TTL:; |
2659 |
vs_base=vs_top; |
vs_base=vs_top; |
2660 |
(void) (*Lnk303)(); |
(void) (*Lnk302)(); |
2661 |
vs_top=sup; |
vs_top=sup; |
2662 |
{object V225 = Cnil; |
{object V220 = Cnil; |
2663 |
VMR115(V225)} |
VMR115(V220)} |
2664 |
base[0]=base[0]; |
base[0]=base[0]; |
2665 |
return Cnil; |
return Cnil; |
2666 |
} |
} |
2667 |
/* local entry for function progn 'compile5035 */ |
/* local entry for function progn 'compile5037 */ |
2668 |
|
|
2669 |
static object LI116() |
static object LI116() |
2670 |
|
|
2672 |
goto TTL; |
goto TTL; |
2673 |
TTL:; |
TTL:; |
2674 |
base[0]= VV[157]; |
base[0]= VV[157]; |
2675 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
2676 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2677 |
Ladjoin(); |
Ladjoin(); |
2678 |
vs_top=sup; |
vs_top=sup; |
2679 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
2680 |
{object V227 = Cnil; |
{object V222 = Cnil; |
2681 |
VMR116(V227)} |
VMR116(V222)} |
2682 |
base[0]=base[0]; |
base[0]=base[0]; |
2683 |
return Cnil; |
return Cnil; |
2684 |
} |
} |
2685 |
/* local entry for function progn 'compile5059 */ |
/* local entry for function progn 'compile5061 */ |
2686 |
|
|
2687 |
static object LI117() |
static object LI117() |
2688 |
|
|
2690 |
goto TTL; |
goto TTL; |
2691 |
TTL:; |
TTL:; |
2692 |
(void)(sputprop(VV[155],VV[9],Cnil)); |
(void)(sputprop(VV[155],VV[9],Cnil)); |
2693 |
{object V228 = Cnil; |
{object V223 = Cnil; |
2694 |
VMR117(V228)} |
VMR117(V223)} |
2695 |
return Cnil; |
return Cnil; |
2696 |
} |
} |
2697 |
/* local entry for function progn 'compile5075 */ |
/* local entry for function progn 'compile5077 */ |
2698 |
|
|
2699 |
static object LI118() |
static object LI118() |
2700 |
|
|
2706 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2707 |
(void) (*Lnk269)(); |
(void) (*Lnk269)(); |
2708 |
vs_top=sup; |
vs_top=sup; |
2709 |
{object V229 = Cnil; |
{object V224 = Cnil; |
2710 |
VMR118(V229)} |
VMR118(V224)} |
2711 |
base[0]=base[0]; |
base[0]=base[0]; |
2712 |
return Cnil; |
return Cnil; |
2713 |
} |
} |
2716 |
static void L119() |
static void L119() |
2717 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2718 |
register object *sup=base+VM119; VC119 |
register object *sup=base+VM119; VC119 |
2719 |
vs_reserve(VM119); |
vs_check; |
2720 |
{object V230; |
{object V225; |
2721 |
register object V231; |
register object V226; |
2722 |
register object V232; |
register object V227; |
2723 |
register object V233; |
register object V228; |
2724 |
check_arg(4); |
V225=(base[0]); |
2725 |
V230=(base[0]); |
V226=(base[1]); |
2726 |
V231=(base[1]); |
V227=(base[2]); |
2727 |
V232=(base[2]); |
V228=(base[3]); |
|
V233=(base[3]); |
|
2728 |
vs_top=sup; |
vs_top=sup; |
2729 |
goto TTL; |
goto TTL; |
2730 |
TTL:; |
TTL:; |
2731 |
if((symbol_value(VV[34]))==Cnil){ |
if(((VV[34]->s.s_dbind))==Cnil){ |
2732 |
goto T769;} |
goto T759;} |
2733 |
if(((V231))==Cnil){ |
if(((V226))==Cnil){ |
2734 |
goto T772;} |
goto T762;} |
2735 |
base[4]= (V231); |
base[4]= (V226); |
2736 |
base[5]= VV[35]; |
base[5]= VV[35]; |
2737 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2738 |
(void) (*Lnk270)(); |
(void) (*Lnk270)(); |
2739 |
vs_top=sup; |
vs_top=sup; |
2740 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2741 |
goto T776;} |
goto T766;} |
2742 |
base[4]= structure_ref((V231),VV[35],0); |
base[4]= STREF(object,(V226),0); |
2743 |
base[5]= structure_ref((V231),VV[35],1); |
base[5]= STREF(object,(V226),4); |
2744 |
base[6]= structure_ref((V231),VV[35],2); |
base[6]= STREF(object,(V226),8); |
2745 |
base[7]= (V232); |
base[7]= (V227); |
2746 |
base[8]= (V233); |
base[8]= (V228); |
2747 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
2748 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2749 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2750 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2751 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2752 |
return; |
return; |
2753 |
goto T776; |
goto T766; |
2754 |
T776:; |
T766:; |
2755 |
if(!(type_of((V231))==t_fixnum)){ |
if(!(type_of((V226))==t_fixnum)){ |
2756 |
goto T786;} |
goto T776;} |
2757 |
{object V236; |
{object V231; |
2758 |
if(type_of(V232)==t_structure){ |
if(type_of(V227)==t_structure){ |
2759 |
goto T792;} |
goto T782;} |
2760 |
goto T790; |
goto T780; |
2761 |
goto T792; |
goto T782; |
2762 |
T792:; |
T782:; |
2763 |
base[4]= V232; |
if(!(((V227)->str.str_def)==(VV[159]))){ |
2764 |
vs_top=(vs_base=base+4)+1; |
goto T780;} |
2765 |
(void) (*Lnk271)(); |
V231= STREF(object,(V227),4); |
2766 |
vs_top=sup; |
goto T778; |
2767 |
V238= vs_base[0]; |
goto T780; |
2768 |
if(!((V238)==(VV[159]))){ |
T780:;{object V233; |
2769 |
goto T790;} |
V233= (VV[38]->s.s_dbind); |
|
V236= structure_ref((V232),VV[37],1); |
|
|
goto T788; |
|
|
goto T790; |
|
|
T790:;{object V239; |
|
|
V239= symbol_value(VV[38]); |
|
2770 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
2771 |
base[5]= (V232); |
base[5]= (V227); |
2772 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2773 |
(void) (*Lnk272)(); |
(void) (*Lnk271)(); |
2774 |
vs_top=sup; |
vs_top=sup; |
2775 |
V240= vs_base[0]; |
V234= vs_base[0]; |
2776 |
if(!((V239)==(car(V240)))){ |
if(!((V233)==(CMPcar(V234)))){ |
2777 |
goto T797;}} |
goto T785;}} |
2778 |
V236= car(((V232))->cc.cc_turbo[12]); |
V231= CMPcar(((V227))->cc.cc_turbo[12]); |
2779 |
goto T788; |
goto T778; |
2780 |
goto T797; |
goto T785; |
2781 |
T797:; |
T785:; |
2782 |
V236= Cnil; |
V231= Cnil; |
2783 |
goto T788; |
goto T778; |
2784 |
T788:; |
T778:; |
2785 |
if(((V236))==Cnil){ |
if(((V231))==Cnil){ |
2786 |
goto T803;} |
goto T791;} |
2787 |
base[4]= aset1((V236),fix((V231)),V232); |
base[4]= ((V231))->v.v_self[fix((V226))]= (V227); |
2788 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2789 |
return; |
return; |
2790 |
goto T803; |
goto T791; |
2791 |
T803:; |
T791:; |
2792 |
base[4]= Cnil; |
base[4]= Cnil; |
2793 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2794 |
return;} |
return;} |
2795 |
goto T786; |
goto T776; |
2796 |
T786:; |
T776:; |
2797 |
{register object V242; |
{register object V236; |
2798 |
V242= V231; |
V236= V226; |
2799 |
base[4]= (V242); |
base[4]= (V236); |
2800 |
base[5]= VV[39]; |
base[5]= VV[39]; |
2801 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2802 |
(void) (*Lnk270)(); |
(void) (*Lnk270)(); |
2803 |
vs_top=sup; |
vs_top=sup; |
2804 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2805 |
goto T806;} |
goto T794;} |
2806 |
{object V243; |
{object V237; |
2807 |
object V244; |
object V238; |
2808 |
register object V245; |
register object V239; |
2809 |
V243= structure_ref((V231),VV[39],0); |
V237= STREF(object,(V226),0); |
2810 |
V244= list(2,(V232),(V233)); |
V238= list(2,(V227),(V228)); |
2811 |
V245= structure_ref((V231),VV[39],1); |
V239= STREF(object,(V226),4); |
2812 |
if(((V245))==Cnil){ |
if(((V239))==Cnil){ |
2813 |
goto T814;} |
goto T802;} |
2814 |
if((cdr((V245)))!=Cnil){ |
if((CMPcdr((V239)))!=Cnil){ |
2815 |
goto T814;} |
goto T802;} |
2816 |
base[4]= (V244); |
base[4]= (V238); |
2817 |
base[5]= car((V245)); |
base[5]= CMPcar((V239)); |
2818 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2819 |
{object _funobj = (V243);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V237);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2820 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2821 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2822 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2823 |
return; |
return; |
2824 |
goto T814; |
goto T802; |
2825 |
T814:; |
T802:; |
2826 |
base[4]= (V243); |
base[4]= (V237); |
2827 |
base[5]= (V244); |
base[5]= (V238); |
2828 |
{object V246; |
{object V240; |
2829 |
V246= (V245); |
V240= (V239); |
2830 |
vs_top=base+6; |
vs_top=base+6; |
2831 |
while(!endp(V246)) |
while(V240!=Cnil) |
2832 |
{vs_push(car(V246));V246=cdr(V246);} |
{vs_push((V240)->c.c_car);V240=(V240)->c.c_cdr;} |
2833 |
vs_base=base+5;} |
vs_base=base+5;} |
2834 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2835 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2836 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2837 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2838 |
return;} |
return;} |
2839 |
goto T806; |
goto T794; |
2840 |
T806:; |
T794:; |
2841 |
base[4]= (V242); |
base[4]= (V236); |
2842 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2843 |
Lfunctionp(); |
Lfunctionp(); |
2844 |
vs_top=sup; |
vs_top=sup; |
2845 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2846 |
goto T824;} |
goto T812;} |
2847 |
base[4]= (V232); |
base[4]= (V227); |
2848 |
base[5]= (V233); |
base[5]= (V228); |
2849 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2850 |
{object _funobj = (V231);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V226);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2851 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2852 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2853 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2854 |
return; |
return; |
2855 |
goto T824; |
goto T812; |
2856 |
T824:; |
T812:; |
2857 |
base[4]= VV[40]; |
base[4]= VV[40]; |
2858 |
base[5]= VV[18]; |
base[5]= VV[18]; |
2859 |
base[6]= VV[41]; |
base[6]= VV[41]; |
2860 |
base[7]= VV[42]; |
base[7]= VV[42]; |
2861 |
base[8]= V231; |
base[8]= V226; |
2862 |
base[9]= VV[43]; |
base[9]= VV[43]; |
2863 |
base[10]= VV[160]; |
base[10]= VV[160]; |
2864 |
base[11]= VV[45]; |
base[11]= VV[45]; |
2866 |
vs_top=(vs_base=base+4)+9; |
vs_top=(vs_base=base+4)+9; |
2867 |
(void) (*Lnk13)(); |
(void) (*Lnk13)(); |
2868 |
return;} |
return;} |
2869 |
goto T772; |
goto T762; |
2870 |
T772:; |
T762:; |
2871 |
base[4]= VV[47]; |
base[4]= VV[47]; |
2872 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2873 |
(void) (*Lnk273)(); |
(void) (*Lnk272)(); |
2874 |
return; |
return; |
2875 |
goto T769; |
goto T759; |
2876 |
T769:; |
T759:; |
2877 |
base[4]= V233; |
base[4]= V228; |
2878 |
base[5]= VV[162]; |
base[5]= VV[162]; |
2879 |
base[7]= V232; |
base[7]= V227; |
2880 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
2881 |
(void) (*Lnk304)(Lclptr304); |
(void) (*Lnk303)(Lclptr303); |
2882 |
vs_top=sup; |
vs_top=sup; |
2883 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
2884 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
2886 |
return; |
return; |
2887 |
} |
} |
2888 |
} |
} |
2889 |
/* local entry for function progn 'compile5272 */ |
/* local entry for function progn 'compile5274 */ |
2890 |
|
|
2891 |
static object LI120() |
static object LI120() |
2892 |
|
|
2898 |
base[2]= Cnil; |
base[2]= Cnil; |
2899 |
base[3]= VV[163]; |
base[3]= VV[163]; |
2900 |
base[4]= VV[164]; |
base[4]= VV[164]; |
2901 |
V249= symbol_function(VV[305]); |
V243= (VV[304]->s.s_gfdef); |
2902 |
base[5]= listA(3,VV[51],V249,VV[165]); |
base[5]= listA(3,VV[51],V243,VV[165]); |
2903 |
base[6]= Cnil; |
base[6]= Cnil; |
2904 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
2905 |
(void) (*Lnk276)(); |
(void) (*Lnk275)(); |
2906 |
vs_top=sup; |
vs_top=sup; |
2907 |
{object V250 = Cnil; |
{object V244 = Cnil; |
2908 |
VMR120(V250)} |
VMR120(V244)} |
2909 |
base[0]=base[0]; |
base[0]=base[0]; |
2910 |
return Cnil; |
return Cnil; |
2911 |
} |
} |
2912 |
/* local entry for function progn 'compile5280 */ |
/* local entry for function progn 'compile5282 */ |
2913 |
|
|
2914 |
static object LI121() |
static object LI121() |
2915 |
|
|
2916 |
{ VMB121 VMS121 VMV121 |
{ VMB121 VMS121 VMV121 |
2917 |
goto TTL; |
goto TTL; |
2918 |
TTL:; |
TTL:; |
2919 |
{object V251 = Cnil; |
{object V245 = Cnil; |
2920 |
VMR121(V251)} |
VMR121(V245)} |
2921 |
return Cnil; |
return Cnil; |
2922 |
} |
} |
2923 |
/* function definition for Defclass UNDEFINED-FUNCTION5300 */ |
/* function definition for Defclass UNDEFINED-FUNCTION5302 */ |
2924 |
|
|
2925 |
static void L122() |
static void L122() |
2926 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2927 |
register object *sup=base+VM122; VC122 |
register object *sup=base+VM122; VC122 |
2928 |
vs_reserve(VM122); |
vs_check; |
|
check_arg(0); |
|
2929 |
vs_top=sup; |
vs_top=sup; |
2930 |
goto TTL; |
goto TTL; |
2931 |
TTL:; |
TTL:; |
2938 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
2939 |
return; |
return; |
2940 |
} |
} |
2941 |
/* local entry for function progn 'compile5316 */ |
/* local entry for function progn 'compile5318 */ |
2942 |
|
|
2943 |
static object LI123() |
static object LI123() |
2944 |
|
|
2946 |
goto TTL; |
goto TTL; |
2947 |
TTL:; |
TTL:; |
2948 |
vs_base=vs_top; |
vs_base=vs_top; |
2949 |
(void) (*Lnk306)(); |
(void) (*Lnk305)(); |
2950 |
vs_top=sup; |
vs_top=sup; |
2951 |
{object V252 = Cnil; |
{object V246 = Cnil; |
2952 |
VMR123(V252)} |
VMR123(V246)} |
2953 |
base[0]=base[0]; |
base[0]=base[0]; |
2954 |
return Cnil; |
return Cnil; |
2955 |
} |
} |
2956 |
/* local entry for function progn 'compile5333 */ |
/* local entry for function progn 'compile5335 */ |
2957 |
|
|
2958 |
static object LI124() |
static object LI124() |
2959 |
|
|
2961 |
goto TTL; |
goto TTL; |
2962 |
TTL:; |
TTL:; |
2963 |
base[0]= VV[168]; |
base[0]= VV[168]; |
2964 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
2965 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2966 |
Ladjoin(); |
Ladjoin(); |
2967 |
vs_top=sup; |
vs_top=sup; |
2968 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
2969 |
{object V254 = Cnil; |
{object V248 = Cnil; |
2970 |
VMR124(V254)} |
VMR124(V248)} |
2971 |
base[0]=base[0]; |
base[0]=base[0]; |
2972 |
return Cnil; |
return Cnil; |
2973 |
} |
} |
2974 |
/* local entry for function progn 'compile5357 */ |
/* local entry for function progn 'compile5359 */ |
2975 |
|
|
2976 |
static object LI125() |
static object LI125() |
2977 |
|
|
2979 |
goto TTL; |
goto TTL; |
2980 |
TTL:; |
TTL:; |
2981 |
(void)(sputprop(VV[166],VV[9],Cnil)); |
(void)(sputprop(VV[166],VV[9],Cnil)); |
2982 |
{object V255 = Cnil; |
{object V249 = Cnil; |
2983 |
VMR125(V255)} |
VMR125(V249)} |
2984 |
return Cnil; |
return Cnil; |
2985 |
} |
} |
2986 |
/* local entry for function progn 'compile5373 */ |
/* local entry for function progn 'compile5375 */ |
2987 |
|
|
2988 |
static object LI126() |
static object LI126() |
2989 |
|
|
2995 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2996 |
(void) (*Lnk269)(); |
(void) (*Lnk269)(); |
2997 |
vs_top=sup; |
vs_top=sup; |
2998 |
{object V256 = Cnil; |
{object V250 = Cnil; |
2999 |
VMR126(V256)} |
VMR126(V250)} |
3000 |
base[0]=base[0]; |
base[0]=base[0]; |
3001 |
return Cnil; |
return Cnil; |
3002 |
} |
} |
3005 |
static void L127() |
static void L127() |
3006 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3007 |
register object *sup=base+VM127; VC127 |
register object *sup=base+VM127; VC127 |
3008 |
vs_reserve(VM127); |
vs_check; |
3009 |
{object V257; |
{object V251; |
3010 |
register object V258; |
register object V252; |
3011 |
register object V259; |
register object V253; |
3012 |
register object V260; |
register object V254; |
3013 |
check_arg(4); |
V251=(base[0]); |
3014 |
V257=(base[0]); |
V252=(base[1]); |
3015 |
V258=(base[1]); |
V253=(base[2]); |
3016 |
V259=(base[2]); |
V254=(base[3]); |
|
V260=(base[3]); |
|
3017 |
vs_top=sup; |
vs_top=sup; |
3018 |
goto TTL; |
goto TTL; |
3019 |
TTL:; |
TTL:; |
3020 |
if((symbol_value(VV[34]))==Cnil){ |
if(((VV[34]->s.s_dbind))==Cnil){ |
3021 |
goto T872;} |
goto T860;} |
3022 |
if(((V258))==Cnil){ |
if(((V252))==Cnil){ |
3023 |
goto T875;} |
goto T863;} |
3024 |
base[4]= (V258); |
base[4]= (V252); |
3025 |
base[5]= VV[35]; |
base[5]= VV[35]; |
3026 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3027 |
(void) (*Lnk270)(); |
(void) (*Lnk270)(); |
3028 |
vs_top=sup; |
vs_top=sup; |
3029 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3030 |
goto T879;} |
goto T867;} |
3031 |
base[4]= structure_ref((V258),VV[35],0); |
base[4]= STREF(object,(V252),0); |
3032 |
base[5]= structure_ref((V258),VV[35],1); |
base[5]= STREF(object,(V252),4); |
3033 |
base[6]= structure_ref((V258),VV[35],2); |
base[6]= STREF(object,(V252),8); |
3034 |
base[7]= (V259); |
base[7]= (V253); |
3035 |
base[8]= (V260); |
base[8]= (V254); |
3036 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
3037 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
3038 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
3039 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
3040 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
3041 |
return; |
return; |
3042 |
|
goto T867; |
3043 |
|
T867:; |
3044 |
|
if(!(type_of((V252))==t_fixnum)){ |
3045 |
|
goto T877;} |
3046 |
|
{object V257; |
3047 |
|
if(type_of(V253)==t_structure){ |
3048 |
|
goto T883;} |
3049 |
|
goto T881; |
3050 |
|
goto T883; |
3051 |
|
T883:; |
3052 |
|
if(!(((V253)->str.str_def)==(VV[170]))){ |
3053 |
|
goto T881;} |
3054 |
|
V257= STREF(object,(V253),4); |
3055 |
goto T879; |
goto T879; |
3056 |
T879:; |
goto T881; |
3057 |
if(!(type_of((V258))==t_fixnum)){ |
T881:;{object V259; |
3058 |
goto T889;} |
V259= (VV[38]->s.s_dbind); |
|
{object V263; |
|
|
if(type_of(V259)==t_structure){ |
|
|
goto T895;} |
|
|
goto T893; |
|
|
goto T895; |
|
|
T895:; |
|
|
base[4]= V259; |
|
|
vs_top=(vs_base=base+4)+1; |
|
|
(void) (*Lnk271)(); |
|
|
vs_top=sup; |
|
|
V265= vs_base[0]; |
|
|
if(!((V265)==(VV[170]))){ |
|
|
goto T893;} |
|
|
V263= structure_ref((V259),VV[37],1); |
|
|
goto T891; |
|
|
goto T893; |
|
|
T893:;{object V266; |
|
|
V266= symbol_value(VV[38]); |
|
3059 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
3060 |
base[5]= (V259); |
base[5]= (V253); |
3061 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3062 |
(void) (*Lnk272)(); |
(void) (*Lnk271)(); |
3063 |
vs_top=sup; |
vs_top=sup; |
3064 |
V267= vs_base[0]; |
V260= vs_base[0]; |
3065 |
if(!((V266)==(car(V267)))){ |
if(!((V259)==(CMPcar(V260)))){ |
3066 |
goto T900;}} |
goto T886;}} |
3067 |
V263= car(((V259))->cc.cc_turbo[12]); |
V257= CMPcar(((V253))->cc.cc_turbo[12]); |
3068 |
goto T891; |
goto T879; |
3069 |
goto T900; |
goto T886; |
3070 |
T900:; |
T886:; |
3071 |
V263= Cnil; |
V257= Cnil; |
3072 |
goto T891; |
goto T879; |
3073 |
T891:; |
T879:; |
3074 |
if(((V263))==Cnil){ |
if(((V257))==Cnil){ |
3075 |
goto T906;} |
goto T892;} |
3076 |
base[4]= aset1((V263),fix((V258)),V259); |
base[4]= ((V257))->v.v_self[fix((V252))]= (V253); |
3077 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3078 |
return; |
return; |
3079 |
goto T906; |
goto T892; |
3080 |
T906:; |
T892:; |
3081 |
base[4]= Cnil; |
base[4]= Cnil; |
3082 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3083 |
return;} |
return;} |
3084 |
goto T889; |
goto T877; |
3085 |
T889:; |
T877:; |
3086 |
{register object V269; |
{register object V262; |
3087 |
V269= V258; |
V262= V252; |
3088 |
base[4]= (V269); |
base[4]= (V262); |
3089 |
base[5]= VV[39]; |
base[5]= VV[39]; |
3090 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3091 |
(void) (*Lnk270)(); |
(void) (*Lnk270)(); |
3092 |
vs_top=sup; |
vs_top=sup; |
3093 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3094 |
goto T909;} |
goto T895;} |
3095 |
{object V270; |
{object V263; |
3096 |
object V271; |
object V264; |
3097 |
register object V272; |
register object V265; |
3098 |
V270= structure_ref((V258),VV[39],0); |
V263= STREF(object,(V252),0); |
3099 |
V271= list(2,(V259),(V260)); |
V264= list(2,(V253),(V254)); |
3100 |
V272= structure_ref((V258),VV[39],1); |
V265= STREF(object,(V252),4); |
3101 |
if(((V272))==Cnil){ |
if(((V265))==Cnil){ |
3102 |
goto T917;} |
goto T903;} |
3103 |
if((cdr((V272)))!=Cnil){ |
if((CMPcdr((V265)))!=Cnil){ |
3104 |
goto T917;} |
goto T903;} |
3105 |
base[4]= (V271); |
base[4]= (V264); |
3106 |
base[5]= car((V272)); |
base[5]= CMPcar((V265)); |
3107 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3108 |
{object _funobj = (V270);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V263);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
3109 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
3110 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
3111 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
3112 |
return; |
return; |
3113 |
goto T917; |
goto T903; |
3114 |
T917:; |
T903:; |
3115 |
base[4]= (V270); |
base[4]= (V263); |
3116 |
base[5]= (V271); |
base[5]= (V264); |
3117 |
{object V273; |
{object V266; |
3118 |
V273= (V272); |
V266= (V265); |
3119 |
vs_top=base+6; |
vs_top=base+6; |
3120 |
while(!endp(V273)) |
while(V266!=Cnil) |
3121 |
{vs_push(car(V273));V273=cdr(V273);} |
{vs_push((V266)->c.c_car);V266=(V266)->c.c_cdr;} |
3122 |
vs_base=base+5;} |
vs_base=base+5;} |
3123 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
3124 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
3125 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
3126 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
3127 |
return;} |
return;} |
3128 |
goto T909; |
goto T895; |
3129 |
T909:; |
T895:; |
3130 |
base[4]= (V269); |
base[4]= (V262); |
3131 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3132 |
Lfunctionp(); |
Lfunctionp(); |
3133 |
vs_top=sup; |
vs_top=sup; |
3134 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3135 |
goto T927;} |
goto T913;} |
3136 |
base[4]= (V259); |
base[4]= (V253); |
3137 |
base[5]= (V260); |
base[5]= (V254); |
3138 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3139 |
{object _funobj = (V258);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V252);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
3140 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
3141 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
3142 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
3143 |
return; |
return; |
3144 |
goto T927; |
goto T913; |
3145 |
T927:; |
T913:; |
3146 |
base[4]= VV[40]; |
base[4]= VV[40]; |
3147 |
base[5]= VV[18]; |
base[5]= VV[18]; |
3148 |
base[6]= VV[41]; |
base[6]= VV[41]; |
3149 |
base[7]= VV[42]; |
base[7]= VV[42]; |
3150 |
base[8]= V258; |
base[8]= V252; |
3151 |
base[9]= VV[43]; |
base[9]= VV[43]; |
3152 |
base[10]= VV[171]; |
base[10]= VV[171]; |
3153 |
base[11]= VV[45]; |
base[11]= VV[45]; |
3155 |
vs_top=(vs_base=base+4)+9; |
vs_top=(vs_base=base+4)+9; |
3156 |
(void) (*Lnk13)(); |
(void) (*Lnk13)(); |
3157 |
return;} |
return;} |
3158 |
goto T875; |
goto T863; |
3159 |
T875:; |
T863:; |
3160 |
base[4]= VV[47]; |
base[4]= VV[47]; |
3161 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3162 |
(void) (*Lnk273)(); |
(void) (*Lnk272)(); |
3163 |
return; |
return; |
3164 |
goto T872; |
goto T860; |
3165 |
T872:; |
T860:; |
3166 |
base[4]= V260; |
base[4]= V254; |
3167 |
base[5]= VV[173]; |
base[5]= VV[173]; |
3168 |
base[7]= V259; |
base[7]= V253; |
3169 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
3170 |
(void) (*Lnk304)(Lclptr304); |
(void) (*Lnk303)(Lclptr303); |
3171 |
vs_top=sup; |
vs_top=sup; |
3172 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
3173 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
3175 |
return; |
return; |
3176 |
} |
} |
3177 |
} |
} |
3178 |
/* local entry for function progn 'compile5570 */ |
/* local entry for function progn 'compile5572 */ |
3179 |
|
|
3180 |
static object LI128() |
static object LI128() |
3181 |
|
|
3187 |
base[2]= Cnil; |
base[2]= Cnil; |
3188 |
base[3]= VV[174]; |
base[3]= VV[174]; |
3189 |
base[4]= VV[175]; |
base[4]= VV[175]; |
3190 |
V276= symbol_function(VV[307]); |
V269= (VV[306]->s.s_gfdef); |
3191 |
base[5]= listA(3,VV[51],V276,VV[176]); |
base[5]= listA(3,VV[51],V269,VV[176]); |
3192 |
base[6]= Cnil; |
base[6]= Cnil; |
3193 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
3194 |
(void) (*Lnk276)(); |
(void) (*Lnk275)(); |
3195 |
vs_top=sup; |
vs_top=sup; |
3196 |
{object V277 = Cnil; |
{object V270 = Cnil; |
3197 |
VMR128(V277)} |
VMR128(V270)} |
3198 |
base[0]=base[0]; |
base[0]=base[0]; |
3199 |
return Cnil; |
return Cnil; |
3200 |
} |
} |
3201 |
/* local entry for function progn 'compile5578 */ |
/* local entry for function progn 'compile5580 */ |
3202 |
|
|
3203 |
static object LI129() |
static object LI129() |
3204 |
|
|
3205 |
{ VMB129 VMS129 VMV129 |
{ VMB129 VMS129 VMV129 |
3206 |
goto TTL; |
goto TTL; |
3207 |
TTL:; |
TTL:; |
3208 |
{object V278 = Cnil; |
{object V271 = Cnil; |
3209 |
VMR129(V278)} |
VMR129(V271)} |
3210 |
return Cnil; |
return Cnil; |
3211 |
} |
} |
3212 |
/* function definition for Defclass ARITHMETIC-ERROR5598 */ |
/* function definition for Defclass ARITHMETIC-ERROR5600 */ |
3213 |
|
|
3214 |
static void L130() |
static void L130() |
3215 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3216 |
register object *sup=base+VM130; VC130 |
register object *sup=base+VM130; VC130 |
3217 |
vs_reserve(VM130); |
vs_check; |
|
check_arg(0); |
|
3218 |
vs_top=sup; |
vs_top=sup; |
3219 |
goto TTL; |
goto TTL; |
3220 |
TTL:; |
TTL:; |
3221 |
base[0]= VV[177]; |
base[0]= VV[177]; |
3222 |
base[1]= VV[5]; |
base[1]= VV[5]; |
3223 |
base[2]= VV[178]; |
base[2]= VV[178]; |
3224 |
V279= listA(9,VV[18],VV[179],VV[20],VV[180],VV[22],Cnil,VV[23],VV[181],Cnil); |
V272= listA(9,VV[18],VV[179],VV[20],VV[180],VV[22],Cnil,VV[23],VV[181],Cnil); |
3225 |
base[3]= make_cons(/* INLINE-ARGS */V279,Cnil); |
base[3]= make_cons(/* INLINE-ARGS */V272,Cnil); |
3226 |
base[4]= Cnil; |
base[4]= Cnil; |
3227 |
base[5]= Cnil; |
base[5]= Cnil; |
3228 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
3229 |
return; |
return; |
3230 |
} |
} |
3231 |
/* local entry for function progn 'compile5615 */ |
/* local entry for function progn 'compile5617 */ |
3232 |
|
|
3233 |
static object LI131() |
static object LI131() |
3234 |
|
|
3236 |
goto TTL; |
goto TTL; |
3237 |
TTL:; |
TTL:; |
3238 |
vs_base=vs_top; |
vs_base=vs_top; |
3239 |
(void) (*Lnk308)(); |
(void) (*Lnk307)(); |
3240 |
vs_top=sup; |
vs_top=sup; |
3241 |
{object V280 = Cnil; |
{object V273 = Cnil; |
3242 |
VMR131(V280)} |
VMR131(V273)} |
3243 |
base[0]=base[0]; |
base[0]=base[0]; |
3244 |
return Cnil; |
return Cnil; |
3245 |
} |
} |
3246 |
/* local entry for function progn 'compile5632 */ |
/* local entry for function progn 'compile5634 */ |
3247 |
|
|
3248 |
static object LI132() |
static object LI132() |
3249 |
|
|
3251 |
goto TTL; |
goto TTL; |
3252 |
TTL:; |
TTL:; |
3253 |
base[0]= VV[182]; |
base[0]= VV[182]; |
3254 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
3255 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3256 |
Ladjoin(); |
Ladjoin(); |
3257 |
vs_top=sup; |
vs_top=sup; |
3258 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
3259 |
{object V282 = Cnil; |
{object V275 = Cnil; |
3260 |
VMR132(V282)} |
VMR132(V275)} |
3261 |
base[0]=base[0]; |
base[0]=base[0]; |
3262 |
return Cnil; |
return Cnil; |
3263 |
} |
} |
3264 |
/* local entry for function progn 'compile5656 */ |
/* local entry for function progn 'compile5658 */ |
3265 |
|
|
3266 |
static object LI133() |
static object LI133() |
3267 |
|
|
3269 |
goto TTL; |
goto TTL; |
3270 |
TTL:; |
TTL:; |
3271 |
(void)(sputprop(VV[177],VV[9],Cnil)); |
(void)(sputprop(VV[177],VV[9],Cnil)); |
3272 |
{object V283 = Cnil; |
{object V276 = Cnil; |
3273 |
VMR133(V283)} |
VMR133(V276)} |
3274 |
return Cnil; |
return Cnil; |
3275 |
} |
} |
3276 |
/* local entry for function progn 'compile5668 */ |
/* local entry for function progn 'compile5670 */ |
3277 |
|
|
3278 |
static object LI134() |
static object LI134() |
3279 |
|
|
3280 |
{ VMB134 VMS134 VMV134 |
{ VMB134 VMS134 VMV134 |
3281 |
goto TTL; |
goto TTL; |
3282 |
TTL:; |
TTL:; |
3283 |
{object V284 = Cnil; |
{object V277 = Cnil; |
3284 |
VMR134(V284)} |
VMR134(V277)} |
3285 |
return Cnil; |
return Cnil; |
3286 |
} |
} |
3287 |
/* function definition for Defclass DIVISION-BY-ZERO5688 */ |
/* function definition for Defclass DIVISION-BY-ZERO5690 */ |
3288 |
|
|
3289 |
static void L135() |
static void L135() |
3290 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3291 |
register object *sup=base+VM135; VC135 |
register object *sup=base+VM135; VC135 |
3292 |
vs_reserve(VM135); |
vs_check; |
|
check_arg(0); |
|
3293 |
vs_top=sup; |
vs_top=sup; |
3294 |
goto TTL; |
goto TTL; |
3295 |
TTL:; |
TTL:; |
3302 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
3303 |
return; |
return; |
3304 |
} |
} |
3305 |
/* local entry for function progn 'compile5704 */ |
/* local entry for function progn 'compile5706 */ |
3306 |
|
|
3307 |
static object LI136() |
static object LI136() |
3308 |
|
|
3310 |
goto TTL; |
goto TTL; |
3311 |
TTL:; |
TTL:; |
3312 |
vs_base=vs_top; |
vs_base=vs_top; |
3313 |
(void) (*Lnk309)(); |
(void) (*Lnk308)(); |
3314 |
vs_top=sup; |
vs_top=sup; |
3315 |
{object V285 = Cnil; |
{object V278 = Cnil; |
3316 |
VMR136(V285)} |
VMR136(V278)} |
3317 |
base[0]=base[0]; |
base[0]=base[0]; |
3318 |
return Cnil; |
return Cnil; |
3319 |
} |
} |
3320 |
/* local entry for function progn 'compile5721 */ |
/* local entry for function progn 'compile5723 */ |
3321 |
|
|
3322 |
static object LI137() |
static object LI137() |
3323 |
|
|
3325 |
goto TTL; |
goto TTL; |
3326 |
TTL:; |
TTL:; |
3327 |
base[0]= VV[185]; |
base[0]= VV[185]; |
3328 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
3329 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3330 |
Ladjoin(); |
Ladjoin(); |
3331 |
vs_top=sup; |
vs_top=sup; |
3332 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
3333 |
{object V287 = Cnil; |
{object V280 = Cnil; |
3334 |
VMR137(V287)} |
VMR137(V280)} |
3335 |
base[0]=base[0]; |
base[0]=base[0]; |
3336 |
return Cnil; |
return Cnil; |
3337 |
} |
} |
3338 |
/* local entry for function progn 'compile5745 */ |
/* local entry for function progn 'compile5747 */ |
3339 |
|
|
3340 |
static object LI138() |
static object LI138() |
3341 |
|
|
3343 |
goto TTL; |
goto TTL; |
3344 |
TTL:; |
TTL:; |
3345 |
(void)(sputprop(VV[183],VV[9],Cnil)); |
(void)(sputprop(VV[183],VV[9],Cnil)); |
3346 |
{object V288 = Cnil; |
{object V281 = Cnil; |
3347 |
VMR138(V288)} |
VMR138(V281)} |
3348 |
return Cnil; |
return Cnil; |
3349 |
} |
} |
3350 |
/* local entry for function progn 'compile5757 */ |
/* local entry for function progn 'compile5759 */ |
3351 |
|
|
3352 |
static object LI139() |
static object LI139() |
3353 |
|
|
3354 |
{ VMB139 VMS139 VMV139 |
{ VMB139 VMS139 VMV139 |
3355 |
goto TTL; |
goto TTL; |
3356 |
TTL:; |
TTL:; |
3357 |
{object V289 = Cnil; |
{object V282 = Cnil; |
3358 |
VMR139(V289)} |
VMR139(V282)} |
3359 |
return Cnil; |
return Cnil; |
3360 |
} |
} |
3361 |
/* function definition for Defclass FLOATING-POINT-OVERFLOW5777 */ |
/* function definition for Defclass FLOATING-POINT-OVERFLOW5779 */ |
3362 |
|
|
3363 |
static void L140() |
static void L140() |
3364 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3365 |
register object *sup=base+VM140; VC140 |
register object *sup=base+VM140; VC140 |
3366 |
vs_reserve(VM140); |
vs_check; |
|
check_arg(0); |
|
3367 |
vs_top=sup; |
vs_top=sup; |
3368 |
goto TTL; |
goto TTL; |
3369 |
TTL:; |
TTL:; |
3376 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
3377 |
return; |
return; |
3378 |
} |
} |
3379 |
/* local entry for function progn 'compile5793 */ |
/* local entry for function progn 'compile5795 */ |
3380 |
|
|
3381 |
static object LI141() |
static object LI141() |
3382 |
|
|
3384 |
goto TTL; |
goto TTL; |
3385 |
TTL:; |
TTL:; |
3386 |
vs_base=vs_top; |
vs_base=vs_top; |
3387 |
(void) (*Lnk310)(); |
(void) (*Lnk309)(); |
3388 |
vs_top=sup; |
vs_top=sup; |
3389 |
{object V290 = Cnil; |
{object V283 = Cnil; |
3390 |
VMR141(V290)} |
VMR141(V283)} |
3391 |
base[0]=base[0]; |
base[0]=base[0]; |
3392 |
return Cnil; |
return Cnil; |
3393 |
} |
} |
3394 |
/* local entry for function progn 'compile5810 */ |
/* local entry for function progn 'compile5812 */ |
3395 |
|
|
3396 |
static object LI142() |
static object LI142() |
3397 |
|
|
3399 |
goto TTL; |
goto TTL; |
3400 |
TTL:; |
TTL:; |
3401 |
base[0]= VV[188]; |
base[0]= VV[188]; |
3402 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
3403 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3404 |
Ladjoin(); |
Ladjoin(); |
3405 |
vs_top=sup; |
vs_top=sup; |
3406 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
3407 |
{object V292 = Cnil; |
{object V285 = Cnil; |
3408 |
VMR142(V292)} |
VMR142(V285)} |
3409 |
base[0]=base[0]; |
base[0]=base[0]; |
3410 |
return Cnil; |
return Cnil; |
3411 |
} |
} |
3412 |
/* local entry for function progn 'compile5834 */ |
/* local entry for function progn 'compile5836 */ |
3413 |
|
|
3414 |
static object LI143() |
static object LI143() |
3415 |
|
|
3417 |
goto TTL; |
goto TTL; |
3418 |
TTL:; |
TTL:; |
3419 |
(void)(sputprop(VV[186],VV[9],Cnil)); |
(void)(sputprop(VV[186],VV[9],Cnil)); |
3420 |
{object V293 = Cnil; |
{object V286 = Cnil; |
3421 |
VMR143(V293)} |
VMR143(V286)} |
3422 |
return Cnil; |
return Cnil; |
3423 |
} |
} |
3424 |
/* local entry for function progn 'compile5846 */ |
/* local entry for function progn 'compile5848 */ |
3425 |
|
|
3426 |
static object LI144() |
static object LI144() |
3427 |
|
|
3428 |
{ VMB144 VMS144 VMV144 |
{ VMB144 VMS144 VMV144 |
3429 |
goto TTL; |
goto TTL; |
3430 |
TTL:; |
TTL:; |
3431 |
{object V294 = Cnil; |
{object V287 = Cnil; |
3432 |
VMR144(V294)} |
VMR144(V287)} |
3433 |
return Cnil; |
return Cnil; |
3434 |
} |
} |
3435 |
/* function definition for Defclass FLOATING-POINT-UNDERFLOW5866 */ |
/* function definition for Defclass FLOATING-POINT-UNDERFLOW5868 */ |
3436 |
|
|
3437 |
static void L145() |
static void L145() |
3438 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3439 |
register object *sup=base+VM145; VC145 |
register object *sup=base+VM145; VC145 |
3440 |
vs_reserve(VM145); |
vs_check; |
|
check_arg(0); |
|
3441 |
vs_top=sup; |
vs_top=sup; |
3442 |
goto TTL; |
goto TTL; |
3443 |
TTL:; |
TTL:; |
3450 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
3451 |
return; |
return; |
3452 |
} |
} |
3453 |
/* local entry for function progn 'compile5882 */ |
/* local entry for function progn 'compile5884 */ |
3454 |
|
|
3455 |
static object LI146() |
static object LI146() |
3456 |
|
|
3458 |
goto TTL; |
goto TTL; |
3459 |
TTL:; |
TTL:; |
3460 |
vs_base=vs_top; |
vs_base=vs_top; |
3461 |
(void) (*Lnk311)(); |
(void) (*Lnk310)(); |
3462 |
vs_top=sup; |
vs_top=sup; |
3463 |
{object V295 = Cnil; |
{object V288 = Cnil; |
3464 |
VMR146(V295)} |
VMR146(V288)} |
3465 |
base[0]=base[0]; |
base[0]=base[0]; |
3466 |
return Cnil; |
return Cnil; |
3467 |
} |
} |
3468 |
/* local entry for function progn 'compile5899 */ |
/* local entry for function progn 'compile5901 */ |
3469 |
|
|
3470 |
static object LI147() |
static object LI147() |
3471 |
|
|
3473 |
goto TTL; |
goto TTL; |
3474 |
TTL:; |
TTL:; |
3475 |
base[0]= VV[191]; |
base[0]= VV[191]; |
3476 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
3477 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3478 |
Ladjoin(); |
Ladjoin(); |
3479 |
vs_top=sup; |
vs_top=sup; |
3480 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
3481 |
{object V297 = Cnil; |
{object V290 = Cnil; |
3482 |
VMR147(V297)} |
VMR147(V290)} |
3483 |
base[0]=base[0]; |
base[0]=base[0]; |
3484 |
return Cnil; |
return Cnil; |
3485 |
} |
} |
3486 |
/* local entry for function progn 'compile5923 */ |
/* local entry for function progn 'compile5925 */ |
3487 |
|
|
3488 |
static object LI148() |
static object LI148() |
3489 |
|
|
3491 |
goto TTL; |
goto TTL; |
3492 |
TTL:; |
TTL:; |
3493 |
(void)(sputprop(VV[189],VV[9],Cnil)); |
(void)(sputprop(VV[189],VV[9],Cnil)); |
3494 |
{object V298 = Cnil; |
{object V291 = Cnil; |
3495 |
VMR148(V298)} |
VMR148(V291)} |
3496 |
return Cnil; |
return Cnil; |
3497 |
} |
} |
3498 |
/* local entry for function progn 'compile5935 */ |
/* local entry for function progn 'compile5937 */ |
3499 |
|
|
3500 |
static object LI149() |
static object LI149() |
3501 |
|
|
3502 |
{ VMB149 VMS149 VMV149 |
{ VMB149 VMS149 VMV149 |
3503 |
goto TTL; |
goto TTL; |
3504 |
TTL:; |
TTL:; |
3505 |
{object V299 = Cnil; |
{object V292 = Cnil; |
3506 |
VMR149(V299)} |
VMR149(V292)} |
3507 |
return Cnil; |
return Cnil; |
3508 |
} |
} |
3509 |
/* function definition for Defclass ABORT-FAILURE5955 */ |
/* function definition for Defclass ABORT-FAILURE5957 */ |
3510 |
|
|
3511 |
static void L150() |
static void L150() |
3512 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3513 |
register object *sup=base+VM150; VC150 |
register object *sup=base+VM150; VC150 |
3514 |
vs_reserve(VM150); |
vs_check; |
|
check_arg(0); |
|
3515 |
vs_top=sup; |
vs_top=sup; |
3516 |
goto TTL; |
goto TTL; |
3517 |
TTL:; |
TTL:; |
3524 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
3525 |
return; |
return; |
3526 |
} |
} |
3527 |
/* local entry for function progn 'compile5971 */ |
/* local entry for function progn 'compile5973 */ |
3528 |
|
|
3529 |
static object LI151() |
static object LI151() |
3530 |
|
|
3532 |
goto TTL; |
goto TTL; |
3533 |
TTL:; |
TTL:; |
3534 |
vs_base=vs_top; |
vs_base=vs_top; |
3535 |
(void) (*Lnk312)(); |
(void) (*Lnk311)(); |
3536 |
vs_top=sup; |
vs_top=sup; |
3537 |
{object V300 = Cnil; |
{object V293 = Cnil; |
3538 |
VMR151(V300)} |
VMR151(V293)} |
3539 |
base[0]=base[0]; |
base[0]=base[0]; |
3540 |
return Cnil; |
return Cnil; |
3541 |
} |
} |
3542 |
/* local entry for function progn 'compile5988 */ |
/* local entry for function progn 'compile5990 */ |
3543 |
|
|
3544 |
static object LI152() |
static object LI152() |
3545 |
|
|
3547 |
goto TTL; |
goto TTL; |
3548 |
TTL:; |
TTL:; |
3549 |
base[0]= VV[194]; |
base[0]= VV[194]; |
3550 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
3551 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3552 |
Ladjoin(); |
Ladjoin(); |
3553 |
vs_top=sup; |
vs_top=sup; |
3554 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
3555 |
{object V302 = Cnil; |
{object V295 = Cnil; |
3556 |
VMR152(V302)} |
VMR152(V295)} |
3557 |
base[0]=base[0]; |
base[0]=base[0]; |
3558 |
return Cnil; |
return Cnil; |
3559 |
} |
} |
3560 |
/* local entry for function progn 'compile6012 */ |
/* local entry for function progn 'compile6014 */ |
3561 |
|
|
3562 |
static object LI153() |
static object LI153() |
3563 |
|
|
3565 |
goto TTL; |
goto TTL; |
3566 |
TTL:; |
TTL:; |
3567 |
(void)(sputprop(VV[192],VV[9],Cnil)); |
(void)(sputprop(VV[192],VV[9],Cnil)); |
3568 |
{object V303 = Cnil; |
{object V296 = Cnil; |
3569 |
VMR153(V303)} |
VMR153(V296)} |
3570 |
return Cnil; |
return Cnil; |
3571 |
} |
} |
3572 |
/* local entry for function progn 'compile6028 */ |
/* local entry for function progn 'compile6030 */ |
3573 |
|
|
3574 |
static object LI154() |
static object LI154() |
3575 |
|
|
3581 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3582 |
(void) (*Lnk269)(); |
(void) (*Lnk269)(); |
3583 |
vs_top=sup; |
vs_top=sup; |
3584 |
{object V304 = Cnil; |
{object V297 = Cnil; |
3585 |
VMR154(V304)} |
VMR154(V297)} |
3586 |
base[0]=base[0]; |
base[0]=base[0]; |
3587 |
return Cnil; |
return Cnil; |
3588 |
} |
} |
3591 |
static void L155() |
static void L155() |
3592 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3593 |
register object *sup=base+VM155; VC155 |
register object *sup=base+VM155; VC155 |
3594 |
vs_reserve(VM155); |
vs_check; |
3595 |
{object V305; |
{object V298; |
3596 |
register object V306; |
register object V299; |
3597 |
register object V307; |
register object V300; |
3598 |
register object V308; |
register object V301; |
3599 |
check_arg(4); |
V298=(base[0]); |
3600 |
V305=(base[0]); |
V299=(base[1]); |
3601 |
V306=(base[1]); |
V300=(base[2]); |
3602 |
V307=(base[2]); |
V301=(base[3]); |
|
V308=(base[3]); |
|
3603 |
vs_top=sup; |
vs_top=sup; |
3604 |
goto TTL; |
goto TTL; |
3605 |
TTL:; |
TTL:; |
3606 |
if((symbol_value(VV[34]))==Cnil){ |
if(((VV[34]->s.s_dbind))==Cnil){ |
3607 |
goto T1027;} |
goto T1013;} |
3608 |
if(((V306))==Cnil){ |
if(((V299))==Cnil){ |
3609 |
goto T1030;} |
goto T1016;} |
3610 |
base[4]= (V306); |
base[4]= (V299); |
3611 |
base[5]= VV[35]; |
base[5]= VV[35]; |
3612 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3613 |
(void) (*Lnk270)(); |
(void) (*Lnk270)(); |
3614 |
vs_top=sup; |
vs_top=sup; |
3615 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3616 |
goto T1034;} |
goto T1020;} |
3617 |
base[4]= structure_ref((V306),VV[35],0); |
base[4]= STREF(object,(V299),0); |
3618 |
base[5]= structure_ref((V306),VV[35],1); |
base[5]= STREF(object,(V299),4); |
3619 |
base[6]= structure_ref((V306),VV[35],2); |
base[6]= STREF(object,(V299),8); |
3620 |
base[7]= (V307); |
base[7]= (V300); |
3621 |
base[8]= (V308); |
base[8]= (V301); |
3622 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
3623 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
3624 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
3625 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
3626 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
3627 |
return; |
return; |
3628 |
|
goto T1020; |
3629 |
|
T1020:; |
3630 |
|
if(!(type_of((V299))==t_fixnum)){ |
3631 |
|
goto T1030;} |
3632 |
|
{object V304; |
3633 |
|
if(type_of(V300)==t_structure){ |
3634 |
|
goto T1036;} |
3635 |
goto T1034; |
goto T1034; |
3636 |
T1034:; |
goto T1036; |
3637 |
if(!(type_of((V306))==t_fixnum)){ |
T1036:; |
3638 |
goto T1044;} |
if(!(((V300)->str.str_def)==(VV[196]))){ |
3639 |
{object V311; |
goto T1034;} |
3640 |
if(type_of(V307)==t_structure){ |
V304= STREF(object,(V300),4); |
3641 |
goto T1050;} |
goto T1032; |
3642 |
goto T1048; |
goto T1034; |
3643 |
goto T1050; |
T1034:;{object V306; |
3644 |
T1050:; |
V306= (VV[38]->s.s_dbind); |
|
base[4]= V307; |
|
|
vs_top=(vs_base=base+4)+1; |
|
|
(void) (*Lnk271)(); |
|
|
vs_top=sup; |
|
|
V313= vs_base[0]; |
|
|
if(!((V313)==(VV[196]))){ |
|
|
goto T1048;} |
|
|
V311= structure_ref((V307),VV[37],1); |
|
|
goto T1046; |
|
|
goto T1048; |
|
|
T1048:;{object V314; |
|
|
V314= symbol_value(VV[38]); |
|
3645 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
3646 |
base[5]= (V307); |
base[5]= (V300); |
3647 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3648 |
(void) (*Lnk272)(); |
(void) (*Lnk271)(); |
3649 |
vs_top=sup; |
vs_top=sup; |
3650 |
V315= vs_base[0]; |
V307= vs_base[0]; |
3651 |
if(!((V314)==(car(V315)))){ |
if(!((V306)==(CMPcar(V307)))){ |
3652 |
goto T1055;}} |
goto T1039;}} |
3653 |
V311= car(((V307))->cc.cc_turbo[12]); |
V304= CMPcar(((V300))->cc.cc_turbo[12]); |
3654 |
goto T1046; |
goto T1032; |
3655 |
goto T1055; |
goto T1039; |
3656 |
T1055:; |
T1039:; |
3657 |
V311= Cnil; |
V304= Cnil; |
3658 |
goto T1046; |
goto T1032; |
3659 |
T1046:; |
T1032:; |
3660 |
if(((V311))==Cnil){ |
if(((V304))==Cnil){ |
3661 |
goto T1061;} |
goto T1045;} |
3662 |
base[4]= aset1((V311),fix((V306)),V307); |
base[4]= ((V304))->v.v_self[fix((V299))]= (V300); |
3663 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3664 |
return; |
return; |
3665 |
goto T1061; |
goto T1045; |
3666 |
T1061:; |
T1045:; |
3667 |
base[4]= Cnil; |
base[4]= Cnil; |
3668 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3669 |
return;} |
return;} |
3670 |
goto T1044; |
goto T1030; |
3671 |
T1044:; |
T1030:; |
3672 |
{register object V317; |
{register object V309; |
3673 |
V317= V306; |
V309= V299; |
3674 |
base[4]= (V317); |
base[4]= (V309); |
3675 |
base[5]= VV[39]; |
base[5]= VV[39]; |
3676 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3677 |
(void) (*Lnk270)(); |
(void) (*Lnk270)(); |
3678 |
vs_top=sup; |
vs_top=sup; |
3679 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3680 |
goto T1064;} |
goto T1048;} |
3681 |
{object V318; |
{object V310; |
3682 |
object V319; |
object V311; |
3683 |
register object V320; |
register object V312; |
3684 |
V318= structure_ref((V306),VV[39],0); |
V310= STREF(object,(V299),0); |
3685 |
V319= list(2,(V307),(V308)); |
V311= list(2,(V300),(V301)); |
3686 |
V320= structure_ref((V306),VV[39],1); |
V312= STREF(object,(V299),4); |
3687 |
if(((V320))==Cnil){ |
if(((V312))==Cnil){ |
3688 |
goto T1072;} |
goto T1056;} |
3689 |
if((cdr((V320)))!=Cnil){ |
if((CMPcdr((V312)))!=Cnil){ |
3690 |
goto T1072;} |
goto T1056;} |
3691 |
base[4]= (V319); |
base[4]= (V311); |
3692 |
base[5]= car((V320)); |
base[5]= CMPcar((V312)); |
3693 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3694 |
{object _funobj = (V318);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V310);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
3695 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
3696 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
3697 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
3698 |
return; |
return; |
3699 |
goto T1072; |
goto T1056; |
3700 |
T1072:; |
T1056:; |
3701 |
base[4]= (V318); |
base[4]= (V310); |
3702 |
base[5]= (V319); |
base[5]= (V311); |
3703 |
{object V321; |
{object V313; |
3704 |
V321= (V320); |
V313= (V312); |
3705 |
vs_top=base+6; |
vs_top=base+6; |
3706 |
while(!endp(V321)) |
while(V313!=Cnil) |
3707 |
{vs_push(car(V321));V321=cdr(V321);} |
{vs_push((V313)->c.c_car);V313=(V313)->c.c_cdr;} |
3708 |
vs_base=base+5;} |
vs_base=base+5;} |
3709 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
3710 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
3711 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
3712 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
3713 |
return;} |
return;} |
3714 |
goto T1064; |
goto T1048; |
3715 |
T1064:; |
T1048:; |
3716 |
base[4]= (V317); |
base[4]= (V309); |
3717 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3718 |
Lfunctionp(); |
Lfunctionp(); |
3719 |
vs_top=sup; |
vs_top=sup; |
3720 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3721 |
goto T1082;} |
goto T1066;} |
3722 |
base[4]= (V307); |
base[4]= (V300); |
3723 |
base[5]= (V308); |
base[5]= (V301); |
3724 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3725 |
{object _funobj = (V306);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V299);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
3726 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
3727 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
3728 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
3729 |
return; |
return; |
3730 |
goto T1082; |
goto T1066; |
3731 |
T1082:; |
T1066:; |
3732 |
base[4]= VV[40]; |
base[4]= VV[40]; |
3733 |
base[5]= VV[18]; |
base[5]= VV[18]; |
3734 |
base[6]= VV[41]; |
base[6]= VV[41]; |
3735 |
base[7]= VV[42]; |
base[7]= VV[42]; |
3736 |
base[8]= V306; |
base[8]= V299; |
3737 |
base[9]= VV[43]; |
base[9]= VV[43]; |
3738 |
base[10]= VV[197]; |
base[10]= VV[197]; |
3739 |
base[11]= VV[45]; |
base[11]= VV[45]; |
3741 |
vs_top=(vs_base=base+4)+9; |
vs_top=(vs_base=base+4)+9; |
3742 |
(void) (*Lnk13)(); |
(void) (*Lnk13)(); |
3743 |
return;} |
return;} |
3744 |
goto T1030; |
goto T1016; |
3745 |
T1030:; |
T1016:; |
3746 |
base[4]= VV[47]; |
base[4]= VV[47]; |
3747 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3748 |
(void) (*Lnk273)(); |
(void) (*Lnk272)(); |
3749 |
return; |
return; |
3750 |
goto T1027; |
goto T1013; |
3751 |
T1027:; |
T1013:; |
3752 |
base[4]= VV[199]; |
base[4]= VV[199]; |
3753 |
base[5]= V308; |
base[5]= V301; |
3754 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3755 |
Lwrite_string(); |
Lwrite_string(); |
3756 |
return; |
return; |
3757 |
} |
} |
3758 |
} |
} |
3759 |
/* local entry for function progn 'compile6229 */ |
/* local entry for function progn 'compile6231 */ |
3760 |
|
|
3761 |
static object LI156() |
static object LI156() |
3762 |
|
|
3768 |
base[2]= Cnil; |
base[2]= Cnil; |
3769 |
base[3]= VV[200]; |
base[3]= VV[200]; |
3770 |
base[4]= VV[201]; |
base[4]= VV[201]; |
3771 |
V324= symbol_function(VV[313]); |
V316= (VV[312]->s.s_gfdef); |
3772 |
base[5]= listA(3,VV[51],V324,VV[202]); |
base[5]= listA(3,VV[51],V316,VV[202]); |
3773 |
base[6]= Cnil; |
base[6]= Cnil; |
3774 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
3775 |
(void) (*Lnk276)(); |
(void) (*Lnk275)(); |
3776 |
vs_top=sup; |
vs_top=sup; |
3777 |
{object V325 = Cnil; |
{object V317 = Cnil; |
3778 |
VMR156(V325)} |
VMR156(V317)} |
3779 |
base[0]=base[0]; |
base[0]=base[0]; |
3780 |
return Cnil; |
return Cnil; |
3781 |
} |
} |
3782 |
/* local entry for function progn 'compile6237 */ |
/* local entry for function progn 'compile6239 */ |
3783 |
|
|
3784 |
static object LI157() |
static object LI157() |
3785 |
|
|
3786 |
{ VMB157 VMS157 VMV157 |
{ VMB157 VMS157 VMV157 |
3787 |
goto TTL; |
goto TTL; |
3788 |
TTL:; |
TTL:; |
3789 |
{object V326 = Cnil; |
{object V318 = Cnil; |
3790 |
VMR157(V326)} |
VMR157(V318)} |
3791 |
return Cnil; |
return Cnil; |
3792 |
} |
} |
3793 |
/* function definition for Defclass INTERNAL-ERROR6257 */ |
/* function definition for Defclass INTERNAL-ERROR6259 */ |
3794 |
|
|
3795 |
static void L158() |
static void L158() |
3796 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3797 |
register object *sup=base+VM158; VC158 |
register object *sup=base+VM158; VC158 |
3798 |
vs_reserve(VM158); |
vs_check; |
|
check_arg(0); |
|
3799 |
vs_top=sup; |
vs_top=sup; |
3800 |
goto TTL; |
goto TTL; |
3801 |
TTL:; |
TTL:; |
3803 |
base[1]= VV[5]; |
base[1]= VV[5]; |
3804 |
base[2]= VV[204]; |
base[2]= VV[204]; |
3805 |
base[4]= VV[26]; |
base[4]= VV[26]; |
3806 |
base[5]= symbol_function(VV[267]); |
base[5]= (VV[267]->s.s_gfdef); |
3807 |
base[6]= VV[18]; |
base[6]= VV[18]; |
3808 |
base[7]= VV[205]; |
base[7]= VV[205]; |
3809 |
base[8]= VV[20]; |
base[8]= VV[20]; |
3816 |
vs_top=(vs_base=base+4)+11; |
vs_top=(vs_base=base+4)+11; |
3817 |
LlistA(); |
LlistA(); |
3818 |
vs_top=sup; |
vs_top=sup; |
3819 |
V327= vs_base[0]; |
V319= vs_base[0]; |
3820 |
base[3]= make_cons(V327,Cnil); |
base[3]= make_cons(V319,Cnil); |
3821 |
base[4]= Cnil; |
base[4]= Cnil; |
3822 |
base[5]= Cnil; |
base[5]= Cnil; |
3823 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
3824 |
return; |
return; |
3825 |
} |
} |
3826 |
/* local entry for function progn 'compile6274 */ |
/* local entry for function progn 'compile6276 */ |
3827 |
|
|
3828 |
static object LI159() |
static object LI159() |
3829 |
|
|
3831 |
goto TTL; |
goto TTL; |
3832 |
TTL:; |
TTL:; |
3833 |
vs_base=vs_top; |
vs_base=vs_top; |
3834 |
(void) (*Lnk314)(); |
(void) (*Lnk313)(); |
3835 |
vs_top=sup; |
vs_top=sup; |
3836 |
{object V328 = Cnil; |
{object V320 = Cnil; |
3837 |
VMR159(V328)} |
VMR159(V320)} |
3838 |
base[0]=base[0]; |
base[0]=base[0]; |
3839 |
return Cnil; |
return Cnil; |
3840 |
} |
} |
3841 |
/* local entry for function progn 'compile6291 */ |
/* local entry for function progn 'compile6293 */ |
3842 |
|
|
3843 |
static object LI160() |
static object LI160() |
3844 |
|
|
3846 |
goto TTL; |
goto TTL; |
3847 |
TTL:; |
TTL:; |
3848 |
base[0]= VV[209]; |
base[0]= VV[209]; |
3849 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
3850 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3851 |
Ladjoin(); |
Ladjoin(); |
3852 |
vs_top=sup; |
vs_top=sup; |
3853 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
3854 |
{object V330 = Cnil; |
{object V322 = Cnil; |
3855 |
VMR160(V330)} |
VMR160(V322)} |
3856 |
base[0]=base[0]; |
base[0]=base[0]; |
3857 |
return Cnil; |
return Cnil; |
3858 |
} |
} |
3859 |
/* local entry for function progn 'compile6315 */ |
/* local entry for function progn 'compile6317 */ |
3860 |
|
|
3861 |
static object LI161() |
static object LI161() |
3862 |
|
|
3864 |
goto TTL; |
goto TTL; |
3865 |
TTL:; |
TTL:; |
3866 |
(void)(sputprop(VV[203],VV[9],Cnil)); |
(void)(sputprop(VV[203],VV[9],Cnil)); |
3867 |
{object V331 = Cnil; |
{object V323 = Cnil; |
3868 |
VMR161(V331)} |
VMR161(V323)} |
3869 |
return Cnil; |
return Cnil; |
3870 |
} |
} |
3871 |
/* local entry for function progn 'compile6331 */ |
/* local entry for function progn 'compile6333 */ |
3872 |
|
|
3873 |
static object LI162() |
static object LI162() |
3874 |
|
|
3880 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3881 |
(void) (*Lnk269)(); |
(void) (*Lnk269)(); |
3882 |
vs_top=sup; |
vs_top=sup; |
3883 |
{object V332 = Cnil; |
{object V324 = Cnil; |
3884 |
VMR162(V332)} |
VMR162(V324)} |
3885 |
base[0]=base[0]; |
base[0]=base[0]; |
3886 |
return Cnil; |
return Cnil; |
3887 |
} |
} |
3890 |
static void L163() |
static void L163() |
3891 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3892 |
register object *sup=base+VM163; VC163 |
register object *sup=base+VM163; VC163 |
3893 |
vs_reserve(VM163); |
vs_check; |
3894 |
{object V333; |
{object V325; |
3895 |
register object V334; |
register object V326; |
3896 |
register object V335; |
register object V327; |
3897 |
register object V336; |
register object V328; |
3898 |
check_arg(4); |
V325=(base[0]); |
3899 |
V333=(base[0]); |
V326=(base[1]); |
3900 |
V334=(base[1]); |
V327=(base[2]); |
3901 |
V335=(base[2]); |
V328=(base[3]); |
|
V336=(base[3]); |
|
3902 |
vs_top=sup; |
vs_top=sup; |
3903 |
goto TTL; |
goto TTL; |
3904 |
TTL:; |
TTL:; |
3905 |
if((symbol_value(VV[34]))==Cnil){ |
if(((VV[34]->s.s_dbind))==Cnil){ |
3906 |
goto T1140;} |
goto T1124;} |
3907 |
if(((V334))==Cnil){ |
if(((V326))==Cnil){ |
3908 |
goto T1143;} |
goto T1127;} |
3909 |
base[4]= (V334); |
base[4]= (V326); |
3910 |
base[5]= VV[35]; |
base[5]= VV[35]; |
3911 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3912 |
(void) (*Lnk270)(); |
(void) (*Lnk270)(); |
3913 |
vs_top=sup; |
vs_top=sup; |
3914 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3915 |
goto T1147;} |
goto T1131;} |
3916 |
base[4]= structure_ref((V334),VV[35],0); |
base[4]= STREF(object,(V326),0); |
3917 |
base[5]= structure_ref((V334),VV[35],1); |
base[5]= STREF(object,(V326),4); |
3918 |
base[6]= structure_ref((V334),VV[35],2); |
base[6]= STREF(object,(V326),8); |
3919 |
base[7]= (V335); |
base[7]= (V327); |
3920 |
base[8]= (V336); |
base[8]= (V328); |
3921 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
3922 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
3923 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
3924 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
3925 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
3926 |
return; |
return; |
3927 |
|
goto T1131; |
3928 |
|
T1131:; |
3929 |
|
if(!(type_of((V326))==t_fixnum)){ |
3930 |
|
goto T1141;} |
3931 |
|
{object V331; |
3932 |
|
if(type_of(V327)==t_structure){ |
3933 |
|
goto T1147;} |
3934 |
|
goto T1145; |
3935 |
goto T1147; |
goto T1147; |
3936 |
T1147:; |
T1147:; |
3937 |
if(!(type_of((V334))==t_fixnum)){ |
if(!(((V327)->str.str_def)==(VV[211]))){ |
3938 |
goto T1157;} |
goto T1145;} |
3939 |
{object V339; |
V331= STREF(object,(V327),4); |
3940 |
if(type_of(V335)==t_structure){ |
goto T1143; |
3941 |
goto T1163;} |
goto T1145; |
3942 |
goto T1161; |
T1145:;{object V333; |
3943 |
goto T1163; |
V333= (VV[38]->s.s_dbind); |
|
T1163:; |
|
|
base[4]= V335; |
|
|
vs_top=(vs_base=base+4)+1; |
|
|
(void) (*Lnk271)(); |
|
|
vs_top=sup; |
|
|
V341= vs_base[0]; |
|
|
if(!((V341)==(VV[211]))){ |
|
|
goto T1161;} |
|
|
V339= structure_ref((V335),VV[37],1); |
|
|
goto T1159; |
|
|
goto T1161; |
|
|
T1161:;{object V342; |
|
|
V342= symbol_value(VV[38]); |
|
3944 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
3945 |
base[5]= (V335); |
base[5]= (V327); |
3946 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3947 |
(void) (*Lnk272)(); |
(void) (*Lnk271)(); |
3948 |
vs_top=sup; |
vs_top=sup; |
3949 |
V343= vs_base[0]; |
V334= vs_base[0]; |
3950 |
if(!((V342)==(car(V343)))){ |
if(!((V333)==(CMPcar(V334)))){ |
3951 |
goto T1168;}} |
goto T1150;}} |
3952 |
V339= car(((V335))->cc.cc_turbo[12]); |
V331= CMPcar(((V327))->cc.cc_turbo[12]); |
3953 |
goto T1159; |
goto T1143; |
3954 |
goto T1168; |
goto T1150; |
3955 |
T1168:; |
T1150:; |
3956 |
V339= Cnil; |
V331= Cnil; |
3957 |
goto T1159; |
goto T1143; |
3958 |
T1159:; |
T1143:; |
3959 |
if(((V339))==Cnil){ |
if(((V331))==Cnil){ |
3960 |
goto T1174;} |
goto T1156;} |
3961 |
base[4]= aset1((V339),fix((V334)),V335); |
base[4]= ((V331))->v.v_self[fix((V326))]= (V327); |
3962 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3963 |
return; |
return; |
3964 |
goto T1174; |
goto T1156; |
3965 |
T1174:; |
T1156:; |
3966 |
base[4]= Cnil; |
base[4]= Cnil; |
3967 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3968 |
return;} |
return;} |
3969 |
goto T1157; |
goto T1141; |
3970 |
T1157:; |
T1141:; |
3971 |
{register object V345; |
{register object V336; |
3972 |
V345= V334; |
V336= V326; |
3973 |
base[4]= (V345); |
base[4]= (V336); |
3974 |
base[5]= VV[39]; |
base[5]= VV[39]; |
3975 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3976 |
(void) (*Lnk270)(); |
(void) (*Lnk270)(); |
3977 |
vs_top=sup; |
vs_top=sup; |
3978 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3979 |
goto T1177;} |
goto T1159;} |
3980 |
{object V346; |
{object V337; |
3981 |
object V347; |
object V338; |
3982 |
register object V348; |
register object V339; |
3983 |
V346= structure_ref((V334),VV[39],0); |
V337= STREF(object,(V326),0); |
3984 |
V347= list(2,(V335),(V336)); |
V338= list(2,(V327),(V328)); |
3985 |
V348= structure_ref((V334),VV[39],1); |
V339= STREF(object,(V326),4); |
3986 |
if(((V348))==Cnil){ |
if(((V339))==Cnil){ |
3987 |
goto T1185;} |
goto T1167;} |
3988 |
if((cdr((V348)))!=Cnil){ |
if((CMPcdr((V339)))!=Cnil){ |
3989 |
goto T1185;} |
goto T1167;} |
3990 |
base[4]= (V347); |
base[4]= (V338); |
3991 |
base[5]= car((V348)); |
base[5]= CMPcar((V339)); |
3992 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3993 |
{object _funobj = (V346);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V337);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
3994 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
3995 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
3996 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
3997 |
return; |
return; |
3998 |
goto T1185; |
goto T1167; |
3999 |
T1185:; |
T1167:; |
4000 |
base[4]= (V346); |
base[4]= (V337); |
4001 |
base[5]= (V347); |
base[5]= (V338); |
4002 |
{object V349; |
{object V340; |
4003 |
V349= (V348); |
V340= (V339); |
4004 |
vs_top=base+6; |
vs_top=base+6; |
4005 |
while(!endp(V349)) |
while(V340!=Cnil) |
4006 |
{vs_push(car(V349));V349=cdr(V349);} |
{vs_push((V340)->c.c_car);V340=(V340)->c.c_cdr;} |
4007 |
vs_base=base+5;} |
vs_base=base+5;} |
4008 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4009 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4010 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4011 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4012 |
return;} |
return;} |
4013 |
goto T1177; |
goto T1159; |
4014 |
T1177:; |
T1159:; |
4015 |
base[4]= (V345); |
base[4]= (V336); |
4016 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4017 |
Lfunctionp(); |
Lfunctionp(); |
4018 |
vs_top=sup; |
vs_top=sup; |
4019 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4020 |
goto T1195;} |
goto T1177;} |
4021 |
base[4]= (V335); |
base[4]= (V327); |
4022 |
base[5]= (V336); |
base[5]= (V328); |
4023 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4024 |
{object _funobj = (V334);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V326);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4025 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4026 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4027 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4028 |
return; |
return; |
4029 |
goto T1195; |
goto T1177; |
4030 |
T1195:; |
T1177:; |
4031 |
base[4]= VV[40]; |
base[4]= VV[40]; |
4032 |
base[5]= VV[18]; |
base[5]= VV[18]; |
4033 |
base[6]= VV[41]; |
base[6]= VV[41]; |
4034 |
base[7]= VV[42]; |
base[7]= VV[42]; |
4035 |
base[8]= V334; |
base[8]= V326; |
4036 |
base[9]= VV[43]; |
base[9]= VV[43]; |
4037 |
base[10]= VV[212]; |
base[10]= VV[212]; |
4038 |
base[11]= VV[45]; |
base[11]= VV[45]; |
4040 |
vs_top=(vs_base=base+4)+9; |
vs_top=(vs_base=base+4)+9; |
4041 |
(void) (*Lnk13)(); |
(void) (*Lnk13)(); |
4042 |
return;} |
return;} |
4043 |
goto T1143; |
goto T1127; |
4044 |
T1143:; |
T1127:; |
4045 |
base[4]= VV[47]; |
base[4]= VV[47]; |
4046 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4047 |
(void) (*Lnk273)(); |
(void) (*Lnk272)(); |
4048 |
return; |
return; |
4049 |
goto T1140; |
goto T1124; |
4050 |
T1140:; |
T1124:; |
4051 |
{register object V351; |
{register object V342; |
4052 |
V351= (V336); |
V342= (V328); |
4053 |
base[4]= V335; |
base[4]= V327; |
4054 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4055 |
(void) (*Lnk315)(Lclptr315); |
(void) (*Lnk314)(Lclptr314); |
4056 |
vs_top=sup; |
vs_top=sup; |
4057 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4058 |
goto T1210;} |
goto T1192;} |
4059 |
base[4]= (V351); |
base[4]= (V342); |
4060 |
base[5]= VV[214]; |
base[5]= VV[214]; |
4061 |
base[7]= V335; |
base[7]= V327; |
4062 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
4063 |
(void) (*Lnk315)(Lclptr315); |
(void) (*Lnk314)(Lclptr314); |
4064 |
vs_top=sup; |
vs_top=sup; |
4065 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
4066 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
4067 |
Lformat(); |
Lformat(); |
4068 |
vs_top=sup; |
vs_top=sup; |
4069 |
goto T1210; |
goto T1192; |
4070 |
T1210:; |
T1192:; |
4071 |
if(((V334))==Cnil){ |
if(((V326))==Cnil){ |
4072 |
goto T1219;} |
goto T1201;} |
4073 |
base[4]= (V334); |
base[4]= (V326); |
4074 |
base[5]= VV[35]; |
base[5]= VV[35]; |
4075 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4076 |
(void) (*Lnk270)(); |
(void) (*Lnk270)(); |
4077 |
vs_top=sup; |
vs_top=sup; |
4078 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4079 |
goto T1223;} |
goto T1205;} |
4080 |
base[4]= structure_ref((V334),VV[35],0); |
base[4]= STREF(object,(V326),0); |
4081 |
base[5]= structure_ref((V334),VV[35],1); |
base[5]= STREF(object,(V326),4); |
4082 |
base[6]= structure_ref((V334),VV[35],2); |
base[6]= STREF(object,(V326),8); |
4083 |
base[7]= (V335); |
base[7]= (V327); |
4084 |
base[8]= (V351); |
base[8]= (V342); |
4085 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
4086 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4087 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4088 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4089 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4090 |
return; |
return; |
4091 |
goto T1223; |
goto T1205; |
4092 |
T1223:; |
T1205:; |
4093 |
if(!(type_of((V334))==t_fixnum)){ |
if(!(type_of((V326))==t_fixnum)){ |
4094 |
goto T1233;} |
goto T1215;} |
4095 |
{object V353; |
{object V344; |
4096 |
if(type_of(V335)==t_structure){ |
if(type_of(V327)==t_structure){ |
4097 |
goto T1239;} |
goto T1221;} |
4098 |
goto T1237; |
goto T1219; |
4099 |
goto T1239; |
goto T1221; |
4100 |
T1239:; |
T1221:; |
4101 |
base[4]= V335; |
if(!(((V327)->str.str_def)==(VV[215]))){ |
4102 |
vs_top=(vs_base=base+4)+1; |
goto T1219;} |
4103 |
(void) (*Lnk271)(); |
V344= STREF(object,(V327),4); |
4104 |
vs_top=sup; |
goto T1217; |
4105 |
V355= vs_base[0]; |
goto T1219; |
4106 |
if(!((V355)==(VV[215]))){ |
T1219:;{object V346; |
4107 |
goto T1237;} |
V346= (VV[38]->s.s_dbind); |
|
V353= structure_ref((V335),VV[37],1); |
|
|
goto T1235; |
|
|
goto T1237; |
|
|
T1237:;{object V356; |
|
|
V356= symbol_value(VV[38]); |
|
4108 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
4109 |
base[5]= (V335); |
base[5]= (V327); |
4110 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4111 |
(void) (*Lnk272)(); |
(void) (*Lnk271)(); |
4112 |
vs_top=sup; |
vs_top=sup; |
4113 |
V357= vs_base[0]; |
V347= vs_base[0]; |
4114 |
if(!((V356)==(car(V357)))){ |
if(!((V346)==(CMPcar(V347)))){ |
4115 |
goto T1244;}} |
goto T1224;}} |
4116 |
V353= car(((V335))->cc.cc_turbo[12]); |
V344= CMPcar(((V327))->cc.cc_turbo[12]); |
4117 |
goto T1235; |
goto T1217; |
4118 |
goto T1244; |
goto T1224; |
4119 |
T1244:; |
T1224:; |
4120 |
V353= Cnil; |
V344= Cnil; |
4121 |
goto T1235; |
goto T1217; |
4122 |
T1235:; |
T1217:; |
4123 |
if(((V353))==Cnil){ |
if(((V344))==Cnil){ |
4124 |
goto T1250;} |
goto T1230;} |
4125 |
base[4]= aset1((V353),fix((V334)),V335); |
base[4]= ((V344))->v.v_self[fix((V326))]= (V327); |
4126 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4127 |
return; |
return; |
4128 |
goto T1250; |
goto T1230; |
4129 |
T1250:; |
T1230:; |
4130 |
base[4]= Cnil; |
base[4]= Cnil; |
4131 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4132 |
return;} |
return;} |
4133 |
goto T1233; |
goto T1215; |
4134 |
T1233:; |
T1215:; |
4135 |
{register object V359; |
{register object V349; |
4136 |
V359= V334; |
V349= V326; |
4137 |
base[4]= (V359); |
base[4]= (V349); |
4138 |
base[5]= VV[39]; |
base[5]= VV[39]; |
4139 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4140 |
(void) (*Lnk270)(); |
(void) (*Lnk270)(); |
4141 |
vs_top=sup; |
vs_top=sup; |
4142 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4143 |
goto T1253;} |
goto T1233;} |
4144 |
{object V360; |
{object V350; |
4145 |
object V361; |
object V351; |
4146 |
register object V362; |
register object V352; |
4147 |
V360= structure_ref((V334),VV[39],0); |
V350= STREF(object,(V326),0); |
4148 |
V361= list(2,(V335),(V351)); |
V351= list(2,(V327),(V342)); |
4149 |
V362= structure_ref((V334),VV[39],1); |
V352= STREF(object,(V326),4); |
4150 |
if(((V362))==Cnil){ |
if(((V352))==Cnil){ |
4151 |
goto T1261;} |
goto T1241;} |
4152 |
if((cdr((V362)))!=Cnil){ |
if((CMPcdr((V352)))!=Cnil){ |
4153 |
goto T1261;} |
goto T1241;} |
4154 |
base[4]= (V361); |
base[4]= (V351); |
4155 |
base[5]= car((V362)); |
base[5]= CMPcar((V352)); |
4156 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4157 |
{object _funobj = (V360);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V350);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4158 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4159 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4160 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4161 |
return; |
return; |
4162 |
goto T1261; |
goto T1241; |
4163 |
T1261:; |
T1241:; |
4164 |
base[4]= (V360); |
base[4]= (V350); |
4165 |
base[5]= (V361); |
base[5]= (V351); |
4166 |
{object V363; |
{object V353; |
4167 |
V363= (V362); |
V353= (V352); |
4168 |
vs_top=base+6; |
vs_top=base+6; |
4169 |
while(!endp(V363)) |
while(V353!=Cnil) |
4170 |
{vs_push(car(V363));V363=cdr(V363);} |
{vs_push((V353)->c.c_car);V353=(V353)->c.c_cdr;} |
4171 |
vs_base=base+5;} |
vs_base=base+5;} |
4172 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4173 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4174 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4175 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4176 |
return;} |
return;} |
4177 |
goto T1253; |
goto T1233; |
4178 |
T1253:; |
T1233:; |
4179 |
base[4]= (V359); |
base[4]= (V349); |
4180 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4181 |
Lfunctionp(); |
Lfunctionp(); |
4182 |
vs_top=sup; |
vs_top=sup; |
4183 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4184 |
goto T1271;} |
goto T1251;} |
4185 |
base[4]= (V335); |
base[4]= (V327); |
4186 |
base[5]= (V351); |
base[5]= (V342); |
4187 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4188 |
{object _funobj = (V334);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V326);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4189 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4190 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4191 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4192 |
return; |
return; |
4193 |
goto T1271; |
goto T1251; |
4194 |
T1271:; |
T1251:; |
4195 |
base[4]= VV[40]; |
base[4]= VV[40]; |
4196 |
base[5]= VV[18]; |
base[5]= VV[18]; |
4197 |
base[6]= VV[41]; |
base[6]= VV[41]; |
4198 |
base[7]= VV[42]; |
base[7]= VV[42]; |
4199 |
base[8]= V334; |
base[8]= V326; |
4200 |
base[9]= VV[43]; |
base[9]= VV[43]; |
4201 |
base[10]= VV[216]; |
base[10]= VV[216]; |
4202 |
base[11]= VV[45]; |
base[11]= VV[45]; |
4204 |
vs_top=(vs_base=base+4)+9; |
vs_top=(vs_base=base+4)+9; |
4205 |
(void) (*Lnk13)(); |
(void) (*Lnk13)(); |
4206 |
return;} |
return;} |
4207 |
goto T1219; |
goto T1201; |
4208 |
T1219:; |
T1201:; |
4209 |
base[4]= VV[47]; |
base[4]= VV[47]; |
4210 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4211 |
(void) (*Lnk273)(); |
(void) (*Lnk272)(); |
4212 |
return;} |
return;} |
4213 |
} |
} |
4214 |
} |
} |
4215 |
/* local entry for function progn 'compile6644 */ |
/* local entry for function progn 'compile6646 */ |
4216 |
|
|
4217 |
static object LI164() |
static object LI164() |
4218 |
|
|
4224 |
base[2]= Cnil; |
base[2]= Cnil; |
4225 |
base[3]= VV[218]; |
base[3]= VV[218]; |
4226 |
base[4]= VV[219]; |
base[4]= VV[219]; |
4227 |
V364= symbol_function(VV[316]); |
V354= (VV[315]->s.s_gfdef); |
4228 |
base[5]= listA(3,VV[51],V364,VV[220]); |
base[5]= listA(3,VV[51],V354,VV[220]); |
4229 |
base[6]= Cnil; |
base[6]= Cnil; |
4230 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
4231 |
(void) (*Lnk276)(); |
(void) (*Lnk275)(); |
4232 |
vs_top=sup; |
vs_top=sup; |
4233 |
{object V365 = Cnil; |
{object V355 = Cnil; |
4234 |
VMR164(V365)} |
VMR164(V355)} |
4235 |
base[0]=base[0]; |
base[0]=base[0]; |
4236 |
return Cnil; |
return Cnil; |
4237 |
} |
} |
4238 |
/* local entry for function progn 'compile6652 */ |
/* local entry for function progn 'compile6654 */ |
4239 |
|
|
4240 |
static object LI165() |
static object LI165() |
4241 |
|
|
4242 |
{ VMB165 VMS165 VMV165 |
{ VMB165 VMS165 VMV165 |
4243 |
goto TTL; |
goto TTL; |
4244 |
TTL:; |
TTL:; |
4245 |
{object V366 = Cnil; |
{object V356 = Cnil; |
4246 |
VMR165(V366)} |
VMR165(V356)} |
4247 |
return Cnil; |
return Cnil; |
4248 |
} |
} |
4249 |
/* local entry for function INTERNAL-SIMPLE-ERROR-PRINTER */ |
/* local entry for function INTERNAL-SIMPLE-ERROR-PRINTER */ |
4250 |
|
|
4251 |
static object LI166(V369,V370) |
static object LI166(V359,V360) |
4252 |
|
|
4253 |
register object V369;object V370; |
register object V359;object V360; |
4254 |
{ VMB166 VMS166 VMV166 |
{ VMB166 VMS166 VMV166 |
4255 |
goto TTL; |
goto TTL; |
4256 |
TTL:; |
TTL:; |
4257 |
base[0]= (V369); |
base[0]= (V359); |
4258 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4259 |
(void) (*Lnk315)(Lclptr315); |
(void) (*Lnk314)(Lclptr314); |
4260 |
vs_top=sup; |
vs_top=sup; |
4261 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4262 |
goto T1296;} |
goto T1276;} |
4263 |
base[0]= (V370); |
base[0]= (V360); |
4264 |
base[1]= VV[221]; |
base[1]= VV[221]; |
4265 |
base[3]= (V369); |
base[3]= (V359); |
4266 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4267 |
(void) (*Lnk315)(Lclptr315); |
(void) (*Lnk314)(Lclptr314); |
4268 |
vs_top=sup; |
vs_top=sup; |
4269 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
4270 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
4271 |
Lformat(); |
Lformat(); |
4272 |
vs_top=sup; |
vs_top=sup; |
4273 |
goto T1296; |
goto T1276; |
4274 |
T1296:; |
T1276:; |
4275 |
base[0]= (V370); |
base[0]= (V360); |
4276 |
base[2]= (V369); |
base[2]= (V359); |
4277 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4278 |
(void) (*Lnk265)(Lclptr265); |
(void) (*Lnk265)(Lclptr265); |
4279 |
vs_top=sup; |
vs_top=sup; |
4280 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
4281 |
{object V371; |
{object V361; |
4282 |
base[2]= (V369); |
base[2]= (V359); |
4283 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4284 |
(void) (*Lnk266)(Lclptr266); |
(void) (*Lnk266)(Lclptr266); |
4285 |
vs_top=sup; |
vs_top=sup; |
4286 |
V371= vs_base[0]; |
V361= vs_base[0]; |
4287 |
vs_top=base+2; |
vs_top=base+2; |
4288 |
while(!endp(V371)) |
while(V361!=Cnil) |
4289 |
{vs_push(car(V371));V371=cdr(V371);} |
{vs_push((V361)->c.c_car);V361=(V361)->c.c_cdr;} |
4290 |
vs_base=base+0;} |
vs_base=base+0;} |
4291 |
Lformat(); |
Lformat(); |
4292 |
vs_top=sup; |
vs_top=sup; |
4293 |
{object V372 = vs_base[0]; |
{object V362 = vs_base[0]; |
4294 |
VMR166(V372)} |
VMR166(V362)} |
4295 |
base[0]=base[0]; |
base[0]=base[0]; |
4296 |
return Cnil; |
return Cnil; |
4297 |
} |
} |
4298 |
/* function definition for Defclass INTERNAL-SIMPLE-ERROR6684 */ |
/* function definition for Defclass INTERNAL-SIMPLE-ERROR6686 */ |
4299 |
|
|
4300 |
static void L167() |
static void L167() |
4301 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4302 |
register object *sup=base+VM167; VC167 |
register object *sup=base+VM167; VC167 |
4303 |
vs_reserve(VM167); |
vs_check; |
|
check_arg(0); |
|
4304 |
vs_top=sup; |
vs_top=sup; |
4305 |
goto TTL; |
goto TTL; |
4306 |
TTL:; |
TTL:; |
4313 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
4314 |
return; |
return; |
4315 |
} |
} |
4316 |
/* local entry for function progn 'compile6700 */ |
/* local entry for function progn 'compile6702 */ |
4317 |
|
|
4318 |
static object LI168() |
static object LI168() |
4319 |
|
|
4321 |
goto TTL; |
goto TTL; |
4322 |
TTL:; |
TTL:; |
4323 |
vs_base=vs_top; |
vs_base=vs_top; |
4324 |
(void) (*Lnk317)(); |
(void) (*Lnk316)(); |
4325 |
vs_top=sup; |
vs_top=sup; |
4326 |
{object V373 = Cnil; |
{object V363 = Cnil; |
4327 |
VMR168(V373)} |
VMR168(V363)} |
4328 |
base[0]=base[0]; |
base[0]=base[0]; |
4329 |
return Cnil; |
return Cnil; |
4330 |
} |
} |
4331 |
/* local entry for function progn 'compile6717 */ |
/* local entry for function progn 'compile6719 */ |
4332 |
|
|
4333 |
static object LI169() |
static object LI169() |
4334 |
|
|
4336 |
goto TTL; |
goto TTL; |
4337 |
TTL:; |
TTL:; |
4338 |
base[0]= VV[224]; |
base[0]= VV[224]; |
4339 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
4340 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4341 |
Ladjoin(); |
Ladjoin(); |
4342 |
vs_top=sup; |
vs_top=sup; |
4343 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
4344 |
{object V375 = Cnil; |
{object V365 = Cnil; |
4345 |
VMR169(V375)} |
VMR169(V365)} |
4346 |
base[0]=base[0]; |
base[0]=base[0]; |
4347 |
return Cnil; |
return Cnil; |
4348 |
} |
} |
4349 |
/* local entry for function progn 'compile6741 */ |
/* local entry for function progn 'compile6743 */ |
4350 |
|
|
4351 |
static object LI170() |
static object LI170() |
4352 |
|
|
4354 |
goto TTL; |
goto TTL; |
4355 |
TTL:; |
TTL:; |
4356 |
(void)(sputprop(VV[222],VV[9],Cnil)); |
(void)(sputprop(VV[222],VV[9],Cnil)); |
4357 |
{object V376 = Cnil; |
{object V366 = Cnil; |
4358 |
VMR170(V376)} |
VMR170(V366)} |
4359 |
return Cnil; |
return Cnil; |
4360 |
} |
} |
4361 |
/* local entry for function progn 'compile6757 */ |
/* local entry for function progn 'compile6759 */ |
4362 |
|
|
4363 |
static object LI171() |
static object LI171() |
4364 |
|
|
4370 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4371 |
(void) (*Lnk269)(); |
(void) (*Lnk269)(); |
4372 |
vs_top=sup; |
vs_top=sup; |
4373 |
{object V377 = Cnil; |
{object V367 = Cnil; |
4374 |
VMR171(V377)} |
VMR171(V367)} |
4375 |
base[0]=base[0]; |
base[0]=base[0]; |
4376 |
return Cnil; |
return Cnil; |
4377 |
} |
} |
4380 |
static void L172() |
static void L172() |
4381 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4382 |
register object *sup=base+VM172; VC172 |
register object *sup=base+VM172; VC172 |
4383 |
vs_reserve(VM172); |
vs_check; |
4384 |
{object V378; |
{object V368; |
4385 |
register object V379; |
register object V369; |
4386 |
register object V380; |
register object V370; |
4387 |
register object V381; |
register object V371; |
4388 |
check_arg(4); |
V368=(base[0]); |
4389 |
V378=(base[0]); |
V369=(base[1]); |
4390 |
V379=(base[1]); |
V370=(base[2]); |
4391 |
V380=(base[2]); |
V371=(base[3]); |
|
V381=(base[3]); |
|
4392 |
vs_top=sup; |
vs_top=sup; |
4393 |
goto TTL; |
goto TTL; |
4394 |
TTL:; |
TTL:; |
4395 |
if((symbol_value(VV[34]))==Cnil){ |
if(((VV[34]->s.s_dbind))==Cnil){ |
4396 |
goto T1328;} |
goto T1308;} |
4397 |
if(((V379))==Cnil){ |
if(((V369))==Cnil){ |
4398 |
goto T1331;} |
goto T1311;} |
4399 |
base[4]= (V379); |
base[4]= (V369); |
4400 |
base[5]= VV[35]; |
base[5]= VV[35]; |
4401 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4402 |
(void) (*Lnk270)(); |
(void) (*Lnk270)(); |
4403 |
vs_top=sup; |
vs_top=sup; |
4404 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4405 |
goto T1335;} |
goto T1315;} |
4406 |
base[4]= structure_ref((V379),VV[35],0); |
base[4]= STREF(object,(V369),0); |
4407 |
base[5]= structure_ref((V379),VV[35],1); |
base[5]= STREF(object,(V369),4); |
4408 |
base[6]= structure_ref((V379),VV[35],2); |
base[6]= STREF(object,(V369),8); |
4409 |
base[7]= (V380); |
base[7]= (V370); |
4410 |
base[8]= (V381); |
base[8]= (V371); |
4411 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
4412 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4413 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4414 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4415 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4416 |
return; |
return; |
4417 |
goto T1335; |
goto T1315; |
4418 |
T1335:; |
T1315:; |
4419 |
if(!(type_of((V379))==t_fixnum)){ |
if(!(type_of((V369))==t_fixnum)){ |
4420 |
goto T1345;} |
goto T1325;} |
4421 |
{object V384; |
{object V374; |
4422 |
if(type_of(V380)==t_structure){ |
if(type_of(V370)==t_structure){ |
4423 |
goto T1351;} |
goto T1331;} |
4424 |
goto T1349; |
goto T1329; |
4425 |
goto T1351; |
goto T1331; |
4426 |
T1351:; |
T1331:; |
4427 |
base[4]= V380; |
if(!(((V370)->str.str_def)==(VV[226]))){ |
4428 |
vs_top=(vs_base=base+4)+1; |
goto T1329;} |
4429 |
(void) (*Lnk271)(); |
V374= STREF(object,(V370),4); |
4430 |
vs_top=sup; |
goto T1327; |
4431 |
V386= vs_base[0]; |
goto T1329; |
4432 |
if(!((V386)==(VV[226]))){ |
T1329:;{object V376; |
4433 |
goto T1349;} |
V376= (VV[38]->s.s_dbind); |
|
V384= structure_ref((V380),VV[37],1); |
|
|
goto T1347; |
|
|
goto T1349; |
|
|
T1349:;{object V387; |
|
|
V387= symbol_value(VV[38]); |
|
4434 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
4435 |
base[5]= (V380); |
base[5]= (V370); |
4436 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4437 |
(void) (*Lnk272)(); |
(void) (*Lnk271)(); |
4438 |
vs_top=sup; |
vs_top=sup; |
4439 |
V388= vs_base[0]; |
V377= vs_base[0]; |
4440 |
if(!((V387)==(car(V388)))){ |
if(!((V376)==(CMPcar(V377)))){ |
4441 |
goto T1356;}} |
goto T1334;}} |
4442 |
V384= car(((V380))->cc.cc_turbo[12]); |
V374= CMPcar(((V370))->cc.cc_turbo[12]); |
4443 |
goto T1347; |
goto T1327; |
4444 |
goto T1356; |
goto T1334; |
4445 |
T1356:; |
T1334:; |
4446 |
V384= Cnil; |
V374= Cnil; |
4447 |
goto T1347; |
goto T1327; |
4448 |
T1347:; |
T1327:; |
4449 |
if(((V384))==Cnil){ |
if(((V374))==Cnil){ |
4450 |
goto T1362;} |
goto T1340;} |
4451 |
base[4]= aset1((V384),fix((V379)),V380); |
base[4]= ((V374))->v.v_self[fix((V369))]= (V370); |
4452 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4453 |
return; |
return; |
4454 |
goto T1362; |
goto T1340; |
4455 |
T1362:; |
T1340:; |
4456 |
base[4]= Cnil; |
base[4]= Cnil; |
4457 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4458 |
return;} |
return;} |
4459 |
goto T1345; |
goto T1325; |
4460 |
T1345:; |
T1325:; |
4461 |
{register object V390; |
{register object V379; |
4462 |
V390= V379; |
V379= V369; |
4463 |
base[4]= (V390); |
base[4]= (V379); |
4464 |
base[5]= VV[39]; |
base[5]= VV[39]; |
4465 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4466 |
(void) (*Lnk270)(); |
(void) (*Lnk270)(); |
4467 |
vs_top=sup; |
vs_top=sup; |
4468 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4469 |
goto T1365;} |
goto T1343;} |
4470 |
{object V391; |
{object V380; |
4471 |
object V392; |
object V381; |
4472 |
register object V393; |
register object V382; |
4473 |
V391= structure_ref((V379),VV[39],0); |
V380= STREF(object,(V369),0); |
4474 |
V392= list(2,(V380),(V381)); |
V381= list(2,(V370),(V371)); |
4475 |
V393= structure_ref((V379),VV[39],1); |
V382= STREF(object,(V369),4); |
4476 |
if(((V393))==Cnil){ |
if(((V382))==Cnil){ |
4477 |
goto T1373;} |
goto T1351;} |
4478 |
if((cdr((V393)))!=Cnil){ |
if((CMPcdr((V382)))!=Cnil){ |
4479 |
goto T1373;} |
goto T1351;} |
4480 |
base[4]= (V392); |
base[4]= (V381); |
4481 |
base[5]= car((V393)); |
base[5]= CMPcar((V382)); |
4482 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4483 |
{object _funobj = (V391);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V380);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4484 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4485 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4486 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4487 |
return; |
return; |
4488 |
goto T1373; |
goto T1351; |
4489 |
T1373:; |
T1351:; |
4490 |
base[4]= (V391); |
base[4]= (V380); |
4491 |
base[5]= (V392); |
base[5]= (V381); |
4492 |
{object V394; |
{object V383; |
4493 |
V394= (V393); |
V383= (V382); |
4494 |
vs_top=base+6; |
vs_top=base+6; |
4495 |
while(!endp(V394)) |
while(V383!=Cnil) |
4496 |
{vs_push(car(V394));V394=cdr(V394);} |
{vs_push((V383)->c.c_car);V383=(V383)->c.c_cdr;} |
4497 |
vs_base=base+5;} |
vs_base=base+5;} |
4498 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4499 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4500 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4501 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4502 |
return;} |
return;} |
4503 |
goto T1365; |
goto T1343; |
4504 |
T1365:; |
T1343:; |
4505 |
base[4]= (V390); |
base[4]= (V379); |
4506 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4507 |
Lfunctionp(); |
Lfunctionp(); |
4508 |
vs_top=sup; |
vs_top=sup; |
4509 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4510 |
goto T1383;} |
goto T1361;} |
4511 |
base[4]= (V380); |
base[4]= (V370); |
4512 |
base[5]= (V381); |
base[5]= (V371); |
4513 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4514 |
{object _funobj = (V379);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V369);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
4515 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
4516 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
4517 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
4518 |
return; |
return; |
4519 |
goto T1383; |
goto T1361; |
4520 |
T1383:; |
T1361:; |
4521 |
base[4]= VV[40]; |
base[4]= VV[40]; |
4522 |
base[5]= VV[18]; |
base[5]= VV[18]; |
4523 |
base[6]= VV[41]; |
base[6]= VV[41]; |
4524 |
base[7]= VV[42]; |
base[7]= VV[42]; |
4525 |
base[8]= V379; |
base[8]= V369; |
4526 |
base[9]= VV[43]; |
base[9]= VV[43]; |
4527 |
base[10]= VV[227]; |
base[10]= VV[227]; |
4528 |
base[11]= VV[45]; |
base[11]= VV[45]; |
4530 |
vs_top=(vs_base=base+4)+9; |
vs_top=(vs_base=base+4)+9; |
4531 |
(void) (*Lnk13)(); |
(void) (*Lnk13)(); |
4532 |
return;} |
return;} |
4533 |
goto T1331; |
goto T1311; |
4534 |
T1331:; |
T1311:; |
4535 |
base[4]= VV[47]; |
base[4]= VV[47]; |
4536 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4537 |
(void) (*Lnk273)(); |
(void) (*Lnk272)(); |
4538 |
return; |
return; |
4539 |
goto T1328; |
goto T1308; |
4540 |
T1328:; |
T1308:; |
4541 |
base[4]= (*(LnkLI318))((V380),(V381)); |
base[4]= (*(LnkLI317))((V370),(V371)); |
4542 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4543 |
return; |
return; |
4544 |
} |
} |
4545 |
} |
} |
4546 |
/* local entry for function progn 'compile6950 */ |
/* local entry for function progn 'compile6952 */ |
4547 |
|
|
4548 |
static object LI173() |
static object LI173() |
4549 |
|
|
4555 |
base[2]= Cnil; |
base[2]= Cnil; |
4556 |
base[3]= VV[229]; |
base[3]= VV[229]; |
4557 |
base[4]= VV[230]; |
base[4]= VV[230]; |
4558 |
V395= symbol_function(VV[319]); |
V384= (VV[318]->s.s_gfdef); |
4559 |
base[5]= listA(3,VV[51],V395,VV[231]); |
base[5]= listA(3,VV[51],V384,VV[231]); |
4560 |
base[6]= Cnil; |
base[6]= Cnil; |
4561 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
4562 |
(void) (*Lnk276)(); |
(void) (*Lnk275)(); |
4563 |
vs_top=sup; |
vs_top=sup; |
4564 |
{object V396 = Cnil; |
{object V385 = Cnil; |
4565 |
VMR173(V396)} |
VMR173(V385)} |
4566 |
base[0]=base[0]; |
base[0]=base[0]; |
4567 |
return Cnil; |
return Cnil; |
4568 |
} |
} |
4569 |
/* local entry for function progn 'compile6958 */ |
/* local entry for function progn 'compile6960 */ |
4570 |
|
|
4571 |
static object LI174() |
static object LI174() |
4572 |
|
|
4573 |
{ VMB174 VMS174 VMV174 |
{ VMB174 VMS174 VMV174 |
4574 |
goto TTL; |
goto TTL; |
4575 |
TTL:; |
TTL:; |
4576 |
{object V397 = Cnil; |
{object V386 = Cnil; |
4577 |
VMR174(V397)} |
VMR174(V386)} |
4578 |
return Cnil; |
return Cnil; |
4579 |
} |
} |
4580 |
/* function definition for Defclass INTERNAL-TYPE-ERROR6978 */ |
/* function definition for Defclass INTERNAL-TYPE-ERROR6980 */ |
4581 |
|
|
4582 |
static void L175() |
static void L175() |
4583 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4584 |
register object *sup=base+VM175; VC175 |
register object *sup=base+VM175; VC175 |
4585 |
vs_reserve(VM175); |
vs_check; |
|
check_arg(0); |
|
4586 |
vs_top=sup; |
vs_top=sup; |
4587 |
goto TTL; |
goto TTL; |
4588 |
TTL:; |
TTL:; |
4595 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
4596 |
return; |
return; |
4597 |
} |
} |
4598 |
/* local entry for function progn 'compile6994 */ |
/* local entry for function progn 'compile6996 */ |
4599 |
|
|
4600 |
static object LI176() |
static object LI176() |
4601 |
|
|
4603 |
goto TTL; |
goto TTL; |
4604 |
TTL:; |
TTL:; |
4605 |
vs_base=vs_top; |
vs_base=vs_top; |
4606 |
(void) (*Lnk320)(); |
(void) (*Lnk319)(); |
4607 |
vs_top=sup; |
vs_top=sup; |
4608 |
{object V398 = Cnil; |
{object V387 = Cnil; |
4609 |
VMR176(V398)} |
VMR176(V387)} |
4610 |
base[0]=base[0]; |
base[0]=base[0]; |
4611 |
return Cnil; |
return Cnil; |
4612 |
} |
} |
4613 |
/* local entry for function progn 'compile7011 */ |
/* local entry for function progn 'compile7013 */ |
4614 |
|
|
4615 |
static object LI177() |
static object LI177() |
4616 |
|
|
4618 |
goto TTL; |
goto TTL; |
4619 |
TTL:; |
TTL:; |
4620 |
base[0]= VV[234]; |
base[0]= VV[234]; |
4621 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
4622 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4623 |
Ladjoin(); |
Ladjoin(); |
4624 |
vs_top=sup; |
vs_top=sup; |
4625 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
4626 |
{object V400 = Cnil; |
{object V389 = Cnil; |
4627 |
VMR177(V400)} |
VMR177(V389)} |
4628 |
base[0]=base[0]; |
base[0]=base[0]; |
4629 |
return Cnil; |
return Cnil; |
4630 |
} |
} |
4631 |
/* local entry for function progn 'compile7035 */ |
/* local entry for function progn 'compile7037 */ |
4632 |
|
|
4633 |
static object LI178() |
static object LI178() |
4634 |
|
|
4636 |
goto TTL; |
goto TTL; |
4637 |
TTL:; |
TTL:; |
4638 |
(void)(sputprop(VV[232],VV[9],Cnil)); |
(void)(sputprop(VV[232],VV[9],Cnil)); |
4639 |
{object V401 = Cnil; |
{object V390 = Cnil; |
4640 |
VMR178(V401)} |
VMR178(V390)} |
4641 |
return Cnil; |
return Cnil; |
4642 |
} |
} |
4643 |
/* local entry for function progn 'compile7047 */ |
/* local entry for function progn 'compile7049 */ |
4644 |
|
|
4645 |
static object LI179() |
static object LI179() |
4646 |
|
|
4647 |
{ VMB179 VMS179 VMV179 |
{ VMB179 VMS179 VMV179 |
4648 |
goto TTL; |
goto TTL; |
4649 |
TTL:; |
TTL:; |
4650 |
{object V402 = Cnil; |
{object V391 = Cnil; |
4651 |
VMR179(V402)} |
VMR179(V391)} |
4652 |
return Cnil; |
return Cnil; |
4653 |
} |
} |
4654 |
/* function definition for Defclass INTERNAL-PACKAGE-ERROR7067 */ |
/* function definition for Defclass INTERNAL-PACKAGE-ERROR7069 */ |
4655 |
|
|
4656 |
static void L180() |
static void L180() |
4657 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4658 |
register object *sup=base+VM180; VC180 |
register object *sup=base+VM180; VC180 |
4659 |
vs_reserve(VM180); |
vs_check; |
|
check_arg(0); |
|
4660 |
vs_top=sup; |
vs_top=sup; |
4661 |
goto TTL; |
goto TTL; |
4662 |
TTL:; |
TTL:; |
4669 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
4670 |
return; |
return; |
4671 |
} |
} |
4672 |
/* local entry for function progn 'compile7083 */ |
/* local entry for function progn 'compile7085 */ |
4673 |
|
|
4674 |
static object LI181() |
static object LI181() |
4675 |
|
|
4677 |
goto TTL; |
goto TTL; |
4678 |
TTL:; |
TTL:; |
4679 |
vs_base=vs_top; |
vs_base=vs_top; |
4680 |
(void) (*Lnk321)(); |
(void) (*Lnk320)(); |
4681 |
vs_top=sup; |
vs_top=sup; |
4682 |
{object V403 = Cnil; |
{object V392 = Cnil; |
4683 |
VMR181(V403)} |
VMR181(V392)} |
4684 |
base[0]=base[0]; |
base[0]=base[0]; |
4685 |
return Cnil; |
return Cnil; |
4686 |
} |
} |
4687 |
/* local entry for function progn 'compile7100 */ |
/* local entry for function progn 'compile7102 */ |
4688 |
|
|
4689 |
static object LI182() |
static object LI182() |
4690 |
|
|
4692 |
goto TTL; |
goto TTL; |
4693 |
TTL:; |
TTL:; |
4694 |
base[0]= VV[237]; |
base[0]= VV[237]; |
4695 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
4696 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4697 |
Ladjoin(); |
Ladjoin(); |
4698 |
vs_top=sup; |
vs_top=sup; |
4699 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
4700 |
{object V405 = Cnil; |
{object V394 = Cnil; |
4701 |
VMR182(V405)} |
VMR182(V394)} |
4702 |
base[0]=base[0]; |
base[0]=base[0]; |
4703 |
return Cnil; |
return Cnil; |
4704 |
} |
} |
4705 |
/* local entry for function progn 'compile7124 */ |
/* local entry for function progn 'compile7126 */ |
4706 |
|
|
4707 |
static object LI183() |
static object LI183() |
4708 |
|
|
4710 |
goto TTL; |
goto TTL; |
4711 |
TTL:; |
TTL:; |
4712 |
(void)(sputprop(VV[235],VV[9],Cnil)); |
(void)(sputprop(VV[235],VV[9],Cnil)); |
4713 |
{object V406 = Cnil; |
{object V395 = Cnil; |
4714 |
VMR183(V406)} |
VMR183(V395)} |
4715 |
return Cnil; |
return Cnil; |
4716 |
} |
} |
4717 |
/* local entry for function progn 'compile7136 */ |
/* local entry for function progn 'compile7138 */ |
4718 |
|
|
4719 |
static object LI184() |
static object LI184() |
4720 |
|
|
4721 |
{ VMB184 VMS184 VMV184 |
{ VMB184 VMS184 VMV184 |
4722 |
goto TTL; |
goto TTL; |
4723 |
TTL:; |
TTL:; |
4724 |
{object V407 = Cnil; |
{object V396 = Cnil; |
4725 |
VMR184(V407)} |
VMR184(V396)} |
4726 |
return Cnil; |
return Cnil; |
4727 |
} |
} |
4728 |
/* function definition for Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7156 */ |
/* function definition for Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7158 */ |
4729 |
|
|
4730 |
static void L185() |
static void L185() |
4731 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4732 |
register object *sup=base+VM185; VC185 |
register object *sup=base+VM185; VC185 |
4733 |
vs_reserve(VM185); |
vs_check; |
|
check_arg(0); |
|
4734 |
vs_top=sup; |
vs_top=sup; |
4735 |
goto TTL; |
goto TTL; |
4736 |
TTL:; |
TTL:; |
4743 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
4744 |
return; |
return; |
4745 |
} |
} |
4746 |
/* local entry for function progn 'compile7172 */ |
/* local entry for function progn 'compile7174 */ |
4747 |
|
|
4748 |
static object LI186() |
static object LI186() |
4749 |
|
|
4751 |
goto TTL; |
goto TTL; |
4752 |
TTL:; |
TTL:; |
4753 |
vs_base=vs_top; |
vs_base=vs_top; |
4754 |
(void) (*Lnk322)(); |
(void) (*Lnk321)(); |
4755 |
vs_top=sup; |
vs_top=sup; |
4756 |
{object V408 = Cnil; |
{object V397 = Cnil; |
4757 |
VMR186(V408)} |
VMR186(V397)} |
4758 |
base[0]=base[0]; |
base[0]=base[0]; |
4759 |
return Cnil; |
return Cnil; |
4760 |
} |
} |
4761 |
/* local entry for function progn 'compile7189 */ |
/* local entry for function progn 'compile7191 */ |
4762 |
|
|
4763 |
static object LI187() |
static object LI187() |
4764 |
|
|
4766 |
goto TTL; |
goto TTL; |
4767 |
TTL:; |
TTL:; |
4768 |
base[0]= VV[240]; |
base[0]= VV[240]; |
4769 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
4770 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4771 |
Ladjoin(); |
Ladjoin(); |
4772 |
vs_top=sup; |
vs_top=sup; |
4773 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
4774 |
{object V410 = Cnil; |
{object V399 = Cnil; |
4775 |
VMR187(V410)} |
VMR187(V399)} |
4776 |
base[0]=base[0]; |
base[0]=base[0]; |
4777 |
return Cnil; |
return Cnil; |
4778 |
} |
} |
4779 |
/* local entry for function progn 'compile7213 */ |
/* local entry for function progn 'compile7215 */ |
4780 |
|
|
4781 |
static object LI188() |
static object LI188() |
4782 |
|
|
4784 |
goto TTL; |
goto TTL; |
4785 |
TTL:; |
TTL:; |
4786 |
(void)(sputprop(VV[238],VV[9],Cnil)); |
(void)(sputprop(VV[238],VV[9],Cnil)); |
4787 |
{object V411 = Cnil; |
{object V400 = Cnil; |
4788 |
VMR188(V411)} |
VMR188(V400)} |
4789 |
return Cnil; |
return Cnil; |
4790 |
} |
} |
4791 |
/* local entry for function progn 'compile7225 */ |
/* local entry for function progn 'compile7227 */ |
4792 |
|
|
4793 |
static object LI189() |
static object LI189() |
4794 |
|
|
4795 |
{ VMB189 VMS189 VMV189 |
{ VMB189 VMS189 VMV189 |
4796 |
goto TTL; |
goto TTL; |
4797 |
TTL:; |
TTL:; |
4798 |
{object V412 = Cnil; |
{object V401 = Cnil; |
4799 |
VMR189(V412)} |
VMR189(V401)} |
4800 |
return Cnil; |
return Cnil; |
4801 |
} |
} |
4802 |
/* function definition for Defclass INTERNAL-SIMPLE-CONTROL-ERROR7245 */ |
/* function definition for Defclass INTERNAL-SIMPLE-CONTROL-ERROR7247 */ |
4803 |
|
|
4804 |
static void L190() |
static void L190() |
4805 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4806 |
register object *sup=base+VM190; VC190 |
register object *sup=base+VM190; VC190 |
4807 |
vs_reserve(VM190); |
vs_check; |
|
check_arg(0); |
|
4808 |
vs_top=sup; |
vs_top=sup; |
4809 |
goto TTL; |
goto TTL; |
4810 |
TTL:; |
TTL:; |
4817 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
4818 |
return; |
return; |
4819 |
} |
} |
4820 |
/* local entry for function progn 'compile7261 */ |
/* local entry for function progn 'compile7263 */ |
4821 |
|
|
4822 |
static object LI191() |
static object LI191() |
4823 |
|
|
4825 |
goto TTL; |
goto TTL; |
4826 |
TTL:; |
TTL:; |
4827 |
vs_base=vs_top; |
vs_base=vs_top; |
4828 |
(void) (*Lnk323)(); |
(void) (*Lnk322)(); |
4829 |
vs_top=sup; |
vs_top=sup; |
4830 |
{object V413 = Cnil; |
{object V402 = Cnil; |
4831 |
VMR191(V413)} |
VMR191(V402)} |
4832 |
base[0]=base[0]; |
base[0]=base[0]; |
4833 |
return Cnil; |
return Cnil; |
4834 |
} |
} |
4835 |
/* local entry for function progn 'compile7278 */ |
/* local entry for function progn 'compile7280 */ |
4836 |
|
|
4837 |
static object LI192() |
static object LI192() |
4838 |
|
|
4840 |
goto TTL; |
goto TTL; |
4841 |
TTL:; |
TTL:; |
4842 |
base[0]= VV[243]; |
base[0]= VV[243]; |
4843 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
4844 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4845 |
Ladjoin(); |
Ladjoin(); |
4846 |
vs_top=sup; |
vs_top=sup; |
4847 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
4848 |
{object V415 = Cnil; |
{object V404 = Cnil; |
4849 |
VMR192(V415)} |
VMR192(V404)} |
4850 |
base[0]=base[0]; |
base[0]=base[0]; |
4851 |
return Cnil; |
return Cnil; |
4852 |
} |
} |
4853 |
/* local entry for function progn 'compile7302 */ |
/* local entry for function progn 'compile7304 */ |
4854 |
|
|
4855 |
static object LI193() |
static object LI193() |
4856 |
|
|
4858 |
goto TTL; |
goto TTL; |
4859 |
TTL:; |
TTL:; |
4860 |
(void)(sputprop(VV[241],VV[9],Cnil)); |
(void)(sputprop(VV[241],VV[9],Cnil)); |
4861 |
{object V416 = Cnil; |
{object V405 = Cnil; |
4862 |
VMR193(V416)} |
VMR193(V405)} |
4863 |
return Cnil; |
return Cnil; |
4864 |
} |
} |
4865 |
/* local entry for function progn 'compile7314 */ |
/* local entry for function progn 'compile7316 */ |
4866 |
|
|
4867 |
static object LI194() |
static object LI194() |
4868 |
|
|
4869 |
{ VMB194 VMS194 VMV194 |
{ VMB194 VMS194 VMV194 |
4870 |
goto TTL; |
goto TTL; |
4871 |
TTL:; |
TTL:; |
4872 |
{object V417 = Cnil; |
{object V406 = Cnil; |
4873 |
VMR194(V417)} |
VMR194(V406)} |
4874 |
return Cnil; |
return Cnil; |
4875 |
} |
} |
4876 |
/* function definition for Defclass INTERNAL-UNBOUND-VARIABLE7334 */ |
/* function definition for Defclass INTERNAL-UNBOUND-VARIABLE7336 */ |
4877 |
|
|
4878 |
static void L195() |
static void L195() |
4879 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4880 |
register object *sup=base+VM195; VC195 |
register object *sup=base+VM195; VC195 |
4881 |
vs_reserve(VM195); |
vs_check; |
|
check_arg(0); |
|
4882 |
vs_top=sup; |
vs_top=sup; |
4883 |
goto TTL; |
goto TTL; |
4884 |
TTL:; |
TTL:; |
4891 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
4892 |
return; |
return; |
4893 |
} |
} |
4894 |
/* local entry for function progn 'compile7350 */ |
/* local entry for function progn 'compile7352 */ |
4895 |
|
|
4896 |
static object LI196() |
static object LI196() |
4897 |
|
|
4899 |
goto TTL; |
goto TTL; |
4900 |
TTL:; |
TTL:; |
4901 |
vs_base=vs_top; |
vs_base=vs_top; |
4902 |
(void) (*Lnk324)(); |
(void) (*Lnk323)(); |
4903 |
vs_top=sup; |
vs_top=sup; |
4904 |
{object V418 = Cnil; |
{object V407 = Cnil; |
4905 |
VMR196(V418)} |
VMR196(V407)} |
4906 |
base[0]=base[0]; |
base[0]=base[0]; |
4907 |
return Cnil; |
return Cnil; |
4908 |
} |
} |
4909 |
/* local entry for function progn 'compile7367 */ |
/* local entry for function progn 'compile7369 */ |
4910 |
|
|
4911 |
static object LI197() |
static object LI197() |
4912 |
|
|
4914 |
goto TTL; |
goto TTL; |
4915 |
TTL:; |
TTL:; |
4916 |
base[0]= VV[246]; |
base[0]= VV[246]; |
4917 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
4918 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4919 |
Ladjoin(); |
Ladjoin(); |
4920 |
vs_top=sup; |
vs_top=sup; |
4921 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
4922 |
{object V420 = Cnil; |
{object V409 = Cnil; |
4923 |
VMR197(V420)} |
VMR197(V409)} |
4924 |
base[0]=base[0]; |
base[0]=base[0]; |
4925 |
return Cnil; |
return Cnil; |
4926 |
} |
} |
4927 |
/* local entry for function progn 'compile7391 */ |
/* local entry for function progn 'compile7393 */ |
4928 |
|
|
4929 |
static object LI198() |
static object LI198() |
4930 |
|
|
4932 |
goto TTL; |
goto TTL; |
4933 |
TTL:; |
TTL:; |
4934 |
(void)(sputprop(VV[244],VV[9],Cnil)); |
(void)(sputprop(VV[244],VV[9],Cnil)); |
4935 |
{object V421 = Cnil; |
{object V410 = Cnil; |
4936 |
VMR198(V421)} |
VMR198(V410)} |
4937 |
return Cnil; |
return Cnil; |
4938 |
} |
} |
4939 |
/* local entry for function progn 'compile7403 */ |
/* local entry for function progn 'compile7405 */ |
4940 |
|
|
4941 |
static object LI199() |
static object LI199() |
4942 |
|
|
4943 |
{ VMB199 VMS199 VMV199 |
{ VMB199 VMS199 VMV199 |
4944 |
goto TTL; |
goto TTL; |
4945 |
TTL:; |
TTL:; |
4946 |
{object V422 = Cnil; |
{object V411 = Cnil; |
4947 |
VMR199(V422)} |
VMR199(V411)} |
4948 |
return Cnil; |
return Cnil; |
4949 |
} |
} |
4950 |
/* function definition for Defclass INTERNAL-UNDEFINED-FUNCTION7423 */ |
/* function definition for Defclass INTERNAL-UNDEFINED-FUNCTION7425 */ |
4951 |
|
|
4952 |
static void L200() |
static void L200() |
4953 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4954 |
register object *sup=base+VM200; VC200 |
register object *sup=base+VM200; VC200 |
4955 |
vs_reserve(VM200); |
vs_check; |
|
check_arg(0); |
|
4956 |
vs_top=sup; |
vs_top=sup; |
4957 |
goto TTL; |
goto TTL; |
4958 |
TTL:; |
TTL:; |
4965 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
4966 |
return; |
return; |
4967 |
} |
} |
4968 |
/* local entry for function progn 'compile7439 */ |
/* local entry for function progn 'compile7441 */ |
4969 |
|
|
4970 |
static object LI201() |
static object LI201() |
4971 |
|
|
4973 |
goto TTL; |
goto TTL; |
4974 |
TTL:; |
TTL:; |
4975 |
vs_base=vs_top; |
vs_base=vs_top; |
4976 |
(void) (*Lnk325)(); |
(void) (*Lnk324)(); |
4977 |
vs_top=sup; |
vs_top=sup; |
4978 |
{object V423 = Cnil; |
{object V412 = Cnil; |
4979 |
VMR201(V423)} |
VMR201(V412)} |
4980 |
base[0]=base[0]; |
base[0]=base[0]; |
4981 |
return Cnil; |
return Cnil; |
4982 |
} |
} |
4983 |
/* local entry for function progn 'compile7456 */ |
/* local entry for function progn 'compile7458 */ |
4984 |
|
|
4985 |
static object LI202() |
static object LI202() |
4986 |
|
|
4988 |
goto TTL; |
goto TTL; |
4989 |
TTL:; |
TTL:; |
4990 |
base[0]= VV[249]; |
base[0]= VV[249]; |
4991 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
4992 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4993 |
Ladjoin(); |
Ladjoin(); |
4994 |
vs_top=sup; |
vs_top=sup; |
4995 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
4996 |
{object V425 = Cnil; |
{object V414 = Cnil; |
4997 |
VMR202(V425)} |
VMR202(V414)} |
4998 |
base[0]=base[0]; |
base[0]=base[0]; |
4999 |
return Cnil; |
return Cnil; |
5000 |
} |
} |
5001 |
/* local entry for function progn 'compile7480 */ |
/* local entry for function progn 'compile7482 */ |
5002 |
|
|
5003 |
static object LI203() |
static object LI203() |
5004 |
|
|
5006 |
goto TTL; |
goto TTL; |
5007 |
TTL:; |
TTL:; |
5008 |
(void)(sputprop(VV[247],VV[9],Cnil)); |
(void)(sputprop(VV[247],VV[9],Cnil)); |
5009 |
{object V426 = Cnil; |
{object V415 = Cnil; |
5010 |
VMR203(V426)} |
VMR203(V415)} |
5011 |
return Cnil; |
return Cnil; |
5012 |
} |
} |
5013 |
/* local entry for function progn 'compile7492 */ |
/* local entry for function progn 'compile7494 */ |
5014 |
|
|
5015 |
static object LI204() |
static object LI204() |
5016 |
|
|
5017 |
{ VMB204 VMS204 VMV204 |
{ VMB204 VMS204 VMV204 |
5018 |
goto TTL; |
goto TTL; |
5019 |
TTL:; |
TTL:; |
5020 |
{object V427 = Cnil; |
{object V416 = Cnil; |
5021 |
VMR204(V427)} |
VMR204(V416)} |
5022 |
return Cnil; |
return Cnil; |
5023 |
} |
} |
5024 |
/* function definition for Defclass INTERNAL-END-OF-FILE7512 */ |
/* function definition for Defclass INTERNAL-END-OF-FILE7514 */ |
5025 |
|
|
5026 |
static void L205() |
static void L205() |
5027 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5028 |
register object *sup=base+VM205; VC205 |
register object *sup=base+VM205; VC205 |
5029 |
vs_reserve(VM205); |
vs_check; |
|
check_arg(0); |
|
5030 |
vs_top=sup; |
vs_top=sup; |
5031 |
goto TTL; |
goto TTL; |
5032 |
TTL:; |
TTL:; |
5039 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
5040 |
return; |
return; |
5041 |
} |
} |
5042 |
/* local entry for function progn 'compile7528 */ |
/* local entry for function progn 'compile7530 */ |
5043 |
|
|
5044 |
static object LI206() |
static object LI206() |
5045 |
|
|
5047 |
goto TTL; |
goto TTL; |
5048 |
TTL:; |
TTL:; |
5049 |
vs_base=vs_top; |
vs_base=vs_top; |
5050 |
(void) (*Lnk326)(); |
(void) (*Lnk325)(); |
5051 |
vs_top=sup; |
vs_top=sup; |
5052 |
{object V428 = Cnil; |
{object V417 = Cnil; |
5053 |
VMR206(V428)} |
VMR206(V417)} |
5054 |
base[0]=base[0]; |
base[0]=base[0]; |
5055 |
return Cnil; |
return Cnil; |
5056 |
} |
} |
5057 |
/* local entry for function progn 'compile7545 */ |
/* local entry for function progn 'compile7547 */ |
5058 |
|
|
5059 |
static object LI207() |
static object LI207() |
5060 |
|
|
5062 |
goto TTL; |
goto TTL; |
5063 |
TTL:; |
TTL:; |
5064 |
base[0]= VV[252]; |
base[0]= VV[252]; |
5065 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
5066 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5067 |
Ladjoin(); |
Ladjoin(); |
5068 |
vs_top=sup; |
vs_top=sup; |
5069 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
5070 |
{object V430 = Cnil; |
{object V419 = Cnil; |
5071 |
VMR207(V430)} |
VMR207(V419)} |
5072 |
base[0]=base[0]; |
base[0]=base[0]; |
5073 |
return Cnil; |
return Cnil; |
5074 |
} |
} |
5075 |
/* local entry for function progn 'compile7569 */ |
/* local entry for function progn 'compile7571 */ |
5076 |
|
|
5077 |
static object LI208() |
static object LI208() |
5078 |
|
|
5080 |
goto TTL; |
goto TTL; |
5081 |
TTL:; |
TTL:; |
5082 |
(void)(sputprop(VV[250],VV[9],Cnil)); |
(void)(sputprop(VV[250],VV[9],Cnil)); |
5083 |
{object V431 = Cnil; |
{object V420 = Cnil; |
5084 |
VMR208(V431)} |
VMR208(V420)} |
5085 |
return Cnil; |
return Cnil; |
5086 |
} |
} |
5087 |
/* local entry for function progn 'compile7581 */ |
/* local entry for function progn 'compile7583 */ |
5088 |
|
|
5089 |
static object LI209() |
static object LI209() |
5090 |
|
|
5091 |
{ VMB209 VMS209 VMV209 |
{ VMB209 VMS209 VMV209 |
5092 |
goto TTL; |
goto TTL; |
5093 |
TTL:; |
TTL:; |
5094 |
{object V432 = Cnil; |
{object V421 = Cnil; |
5095 |
VMR209(V432)} |
VMR209(V421)} |
5096 |
return Cnil; |
return Cnil; |
5097 |
} |
} |
5098 |
/* function definition for Defclass INTERNAL-SIMPLE-FILE-ERROR7601 */ |
/* function definition for Defclass INTERNAL-SIMPLE-FILE-ERROR7603 */ |
5099 |
|
|
5100 |
static void L210() |
static void L210() |
5101 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5102 |
register object *sup=base+VM210; VC210 |
register object *sup=base+VM210; VC210 |
5103 |
vs_reserve(VM210); |
vs_check; |
|
check_arg(0); |
|
5104 |
vs_top=sup; |
vs_top=sup; |
5105 |
goto TTL; |
goto TTL; |
5106 |
TTL:; |
TTL:; |
5113 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
5114 |
return; |
return; |
5115 |
} |
} |
5116 |
/* local entry for function progn 'compile7617 */ |
/* local entry for function progn 'compile7619 */ |
5117 |
|
|
5118 |
static object LI211() |
static object LI211() |
5119 |
|
|
5121 |
goto TTL; |
goto TTL; |
5122 |
TTL:; |
TTL:; |
5123 |
vs_base=vs_top; |
vs_base=vs_top; |
5124 |
(void) (*Lnk327)(); |
(void) (*Lnk326)(); |
5125 |
vs_top=sup; |
vs_top=sup; |
5126 |
{object V433 = Cnil; |
{object V422 = Cnil; |
5127 |
VMR211(V433)} |
VMR211(V422)} |
5128 |
base[0]=base[0]; |
base[0]=base[0]; |
5129 |
return Cnil; |
return Cnil; |
5130 |
} |
} |
5131 |
/* local entry for function progn 'compile7634 */ |
/* local entry for function progn 'compile7636 */ |
5132 |
|
|
5133 |
static object LI212() |
static object LI212() |
5134 |
|
|
5136 |
goto TTL; |
goto TTL; |
5137 |
TTL:; |
TTL:; |
5138 |
base[0]= VV[255]; |
base[0]= VV[255]; |
5139 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
5140 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5141 |
Ladjoin(); |
Ladjoin(); |
5142 |
vs_top=sup; |
vs_top=sup; |
5143 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
5144 |
{object V435 = Cnil; |
{object V424 = Cnil; |
5145 |
VMR212(V435)} |
VMR212(V424)} |
5146 |
base[0]=base[0]; |
base[0]=base[0]; |
5147 |
return Cnil; |
return Cnil; |
5148 |
} |
} |
5149 |
/* local entry for function progn 'compile7658 */ |
/* local entry for function progn 'compile7660 */ |
5150 |
|
|
5151 |
static object LI213() |
static object LI213() |
5152 |
|
|
5154 |
goto TTL; |
goto TTL; |
5155 |
TTL:; |
TTL:; |
5156 |
(void)(sputprop(VV[253],VV[9],Cnil)); |
(void)(sputprop(VV[253],VV[9],Cnil)); |
5157 |
{object V436 = Cnil; |
{object V425 = Cnil; |
5158 |
VMR213(V436)} |
VMR213(V425)} |
5159 |
return Cnil; |
return Cnil; |
5160 |
} |
} |
5161 |
/* local entry for function progn 'compile7670 */ |
/* local entry for function progn 'compile7672 */ |
5162 |
|
|
5163 |
static object LI214() |
static object LI214() |
5164 |
|
|
5165 |
{ VMB214 VMS214 VMV214 |
{ VMB214 VMS214 VMV214 |
5166 |
goto TTL; |
goto TTL; |
5167 |
TTL:; |
TTL:; |
5168 |
{object V437 = Cnil; |
{object V426 = Cnil; |
5169 |
VMR214(V437)} |
VMR214(V426)} |
5170 |
return Cnil; |
return Cnil; |
5171 |
} |
} |
5172 |
/* function definition for Defclass INTERNAL-SIMPLE-STREAM-ERROR7690 */ |
/* function definition for Defclass INTERNAL-SIMPLE-STREAM-ERROR7692 */ |
5173 |
|
|
5174 |
static void L215() |
static void L215() |
5175 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5176 |
register object *sup=base+VM215; VC215 |
register object *sup=base+VM215; VC215 |
5177 |
vs_reserve(VM215); |
vs_check; |
|
check_arg(0); |
|
5178 |
vs_top=sup; |
vs_top=sup; |
5179 |
goto TTL; |
goto TTL; |
5180 |
TTL:; |
TTL:; |
5187 |
symlispcall(VV[261],base+0,6); |
symlispcall(VV[261],base+0,6); |
5188 |
return; |
return; |
5189 |
} |
} |
5190 |
/* local entry for function progn 'compile7706 */ |
/* local entry for function progn 'compile7708 */ |
5191 |
|
|
5192 |
static object LI216() |
static object LI216() |
5193 |
|
|
5195 |
goto TTL; |
goto TTL; |
5196 |
TTL:; |
TTL:; |
5197 |
vs_base=vs_top; |
vs_base=vs_top; |
5198 |
(void) (*Lnk328)(); |
(void) (*Lnk327)(); |
5199 |
vs_top=sup; |
vs_top=sup; |
5200 |
{object V438 = Cnil; |
{object V427 = Cnil; |
5201 |
VMR216(V438)} |
VMR216(V427)} |
5202 |
base[0]=base[0]; |
base[0]=base[0]; |
5203 |
return Cnil; |
return Cnil; |
5204 |
} |
} |
5205 |
/* local entry for function progn 'compile7723 */ |
/* local entry for function progn 'compile7725 */ |
5206 |
|
|
5207 |
static object LI217() |
static object LI217() |
5208 |
|
|
5210 |
goto TTL; |
goto TTL; |
5211 |
TTL:; |
TTL:; |
5212 |
base[0]= VV[258]; |
base[0]= VV[258]; |
5213 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
5214 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5215 |
Ladjoin(); |
Ladjoin(); |
5216 |
vs_top=sup; |
vs_top=sup; |
5217 |
setq(VV[8],vs_base[0]); |
(VV[8]->s.s_dbind)= vs_base[0]; |
5218 |
{object V440 = Cnil; |
{object V429 = Cnil; |
5219 |
VMR217(V440)} |
VMR217(V429)} |
5220 |
base[0]=base[0]; |
base[0]=base[0]; |
5221 |
return Cnil; |
return Cnil; |
5222 |
} |
} |
5223 |
/* local entry for function progn 'compile7747 */ |
/* local entry for function progn 'compile7749 */ |
5224 |
|
|
5225 |
static object LI218() |
static object LI218() |
5226 |
|
|
5228 |
goto TTL; |
goto TTL; |
5229 |
TTL:; |
TTL:; |
5230 |
(void)(sputprop(VV[256],VV[9],Cnil)); |
(void)(sputprop(VV[256],VV[9],Cnil)); |
5231 |
{object V441 = Cnil; |
{object V430 = Cnil; |
5232 |
VMR218(V441)} |
VMR218(V430)} |
5233 |
return Cnil; |
return Cnil; |
5234 |
} |
} |
5235 |
/* local entry for function progn 'compile7759 */ |
/* local entry for function progn 'compile7761 */ |
5236 |
|
|
5237 |
static object LI219() |
static object LI219() |
5238 |
|
|
5239 |
{ VMB219 VMS219 VMV219 |
{ VMB219 VMS219 VMV219 |
5240 |
goto TTL; |
goto TTL; |
5241 |
TTL:; |
TTL:; |
5242 |
{object V442 = Cnil; |
{object V431 = Cnil; |
5243 |
VMR219(V442)} |
VMR219(V431)} |
5244 |
return Cnil; |
return Cnil; |
5245 |
} |
} |
5246 |
/* local entry for function progn 'compile7775 */ |
/* local entry for function progn 'compile7777 */ |
5247 |
|
|
5248 |
static object LI220() |
static object LI220() |
5249 |
|
|
5252 |
TTL:; |
TTL:; |
5253 |
base[0]= VV[259]; |
base[0]= VV[259]; |
5254 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5255 |
(void) (*Lnk329)(); |
(void) (*Lnk328)(); |
5256 |
vs_top=sup; |
vs_top=sup; |
5257 |
{object V443 = Cnil; |
{object V432 = Cnil; |
5258 |
VMR220(V443)} |
VMR220(V432)} |
5259 |
base[0]=base[0]; |
base[0]=base[0]; |
5260 |
return Cnil; |
return Cnil; |
5261 |
} |
} |
5262 |
/* local entry for function progn 'compile7787 */ |
/* local entry for function progn 'compile7789 */ |
5263 |
|
|
5264 |
static object LI221() |
static object LI221() |
5265 |
|
|
5266 |
{ VMB221 VMS221 VMV221 |
{ VMB221 VMS221 VMV221 |
5267 |
goto TTL; |
goto TTL; |
5268 |
TTL:; |
TTL:; |
5269 |
base[0]= VV[259]; |
if(!((VV[259])->s.s_dbind!=OBJNULL)){ |
5270 |
vs_top=(vs_base=base+0)+1; |
goto T1506;} |
5271 |
Lboundp(); |
goto T1505; |
5272 |
vs_top=sup; |
goto T1506; |
5273 |
if((vs_base[0])==Cnil){ |
T1506:; |
|
goto T1528;} |
|
|
goto T1527; |
|
|
goto T1528; |
|
|
T1528:; |
|
5274 |
base[0]= VV[16]; |
base[0]= VV[16]; |
5275 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5276 |
(void) (*Lnk330)(); |
(void) (*Lnk329)(); |
5277 |
vs_top=sup; |
vs_top=sup; |
5278 |
setq(VV[259],vs_base[0]); |
(VV[259]->s.s_dbind)= vs_base[0]; |
5279 |
goto T1527; |
goto T1505; |
5280 |
T1527:; |
T1505:; |
5281 |
{object V444 = Cnil; |
{object V433 = Cnil; |
5282 |
VMR221(V444)} |
VMR221(V433)} |
5283 |
base[0]=base[0]; |
base[0]=base[0]; |
5284 |
return Cnil; |
return Cnil; |
5285 |
} |
} |
5286 |
/* local entry for function progn 'compile7800 */ |
/* local entry for function progn 'compile7802 */ |
5287 |
|
|
5288 |
static object LI222() |
static object LI222() |
5289 |
|
|
5290 |
{ VMB222 VMS222 VMV222 |
{ VMB222 VMS222 VMV222 |
5291 |
goto TTL; |
goto TTL; |
5292 |
TTL:; |
TTL:; |
5293 |
{object V445 = Cnil; |
{object V434 = Cnil; |
5294 |
VMR222(V445)} |
VMR222(V434)} |
5295 |
return Cnil; |
return Cnil; |
5296 |
} |
} |
5297 |
/* local entry for function SIMPLE-CONDITION-CLASS-P */ |
/* local entry for function SIMPLE-CONDITION-CLASS-P */ |
5298 |
|
|
5299 |
static object LI223(V447) |
static object LI223(V436) |
5300 |
|
|
5301 |
register object V447; |
register object V436; |
5302 |
{ VMB223 VMS223 VMV223 |
{ VMB223 VMS223 VMV223 |
5303 |
goto TTL; |
goto TTL; |
5304 |
TTL:; |
TTL:; |
5305 |
if(!(type_of((V447))==t_symbol)){ |
if(!(type_of((V436))==t_symbol)){ |
5306 |
goto T1534;} |
goto T1511;} |
5307 |
base[0]= (V447); |
base[0]= (V436); |
5308 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5309 |
(void) (*Lnk330)(); |
(void) (*Lnk329)(); |
5310 |
vs_top=sup; |
vs_top=sup; |
5311 |
V447= vs_base[0]; |
V436= vs_base[0]; |
5312 |
goto T1534; |
goto T1511; |
5313 |
T1534:; |
T1511:; |
5314 |
base[0]= (V447); |
base[0]= (V436); |
5315 |
base[1]= VV[5]; |
base[1]= VV[5]; |
5316 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5317 |
(void) (*Lnk331)(); |
(void) (*Lnk330)(); |
5318 |
vs_top=sup; |
vs_top=sup; |
5319 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
5320 |
goto T1539;} |
goto T1516;} |
5321 |
{object V448 = Cnil; |
{object V437 = Cnil; |
5322 |
VMR223(V448)} |
VMR223(V437)} |
5323 |
goto T1539; |
goto T1516; |
5324 |
T1539:;{object V450; |
T1516:;{object V439; |
5325 |
V450= symbol_value(VV[259]); |
V439= (VV[259]->s.s_dbind); |
5326 |
base[0]= (V447); |
base[0]= (V436); |
5327 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5328 |
(void) (*Lnk332)(Lclptr332); |
(void) (*Lnk331)(Lclptr331); |
5329 |
vs_top=sup; |
vs_top=sup; |
5330 |
V451= vs_base[0]; |
V440= vs_base[0]; |
5331 |
{register object x= V450,V449= V451; |
{register object x= V439,V438= V440; |
5332 |
while(!endp(V449)) |
while(V438!=Cnil) |
5333 |
if(eql(x,V449->c.c_car)){ |
if(eql(x,V438->c.c_car)){ |
5334 |
{object V452 = V449; |
{object V441 = V438; |
5335 |
VMR223(V452)} |
VMR223(V441)} |
5336 |
}else V449=V449->c.c_cdr; |
}else V438=V438->c.c_cdr; |
5337 |
{object V453 = Cnil; |
{object V442 = Cnil; |
5338 |
VMR223(V453)}}} |
VMR223(V442)}}} |
5339 |
base[0]=base[0]; |
base[0]=base[0]; |
5340 |
return Cnil; |
return Cnil; |
5341 |
} |
} |
5342 |
static void LnkT332(ptr) object *ptr;{ call_or_link_closure(VV[332],(void **)(void *)&Lnk332,(void **)(void *)&Lclptr332);} /* CLASS-PRECEDENCE-LIST */ |
static void LnkT331(ptr) object *ptr;{ call_or_link_closure(VV[331],(void **)(void *)&Lnk331,(void **)(void *)&Lclptr331);} /* CLASS-PRECEDENCE-LIST */ |
5343 |
static void LnkT331(){ call_or_link(VV[331],(void **)(void *)&Lnk331);} /* TYPEP */ |
static void LnkT330(){ call_or_link(VV[330],(void **)(void *)&Lnk330);} /* TYPEP */ |
5344 |
static void LnkT330(){ call_or_link(VV[330],(void **)(void *)&Lnk330);} /* FIND-CLASS */ |
static void LnkT329(){ call_or_link(VV[329],(void **)(void *)&Lnk329);} /* FIND-CLASS */ |
5345 |
static void LnkT329(){ call_or_link(VV[329],(void **)(void *)&Lnk329);} /* *MAKE-SPECIAL */ |
static void LnkT328(){ call_or_link(VV[328],(void **)(void *)&Lnk328);} /* *MAKE-SPECIAL */ |
5346 |
static void LnkT328(){ call_or_link(VV[328],(void **)(void *)&Lnk328);} /* Defclass INTERNAL-SIMPLE-STREAM-ERROR7690 */ |
static void LnkT327(){ call_or_link(VV[327],(void **)(void *)&Lnk327);} /* Defclass INTERNAL-SIMPLE-STREAM-ERROR7692 */ |
5347 |
static void LnkT327(){ call_or_link(VV[327],(void **)(void *)&Lnk327);} /* Defclass INTERNAL-SIMPLE-FILE-ERROR7601 */ |
static void LnkT326(){ call_or_link(VV[326],(void **)(void *)&Lnk326);} /* Defclass INTERNAL-SIMPLE-FILE-ERROR7603 */ |
5348 |
static void LnkT326(){ call_or_link(VV[326],(void **)(void *)&Lnk326);} /* Defclass INTERNAL-END-OF-FILE7512 */ |
static void LnkT325(){ call_or_link(VV[325],(void **)(void *)&Lnk325);} /* Defclass INTERNAL-END-OF-FILE7514 */ |
5349 |
static void LnkT325(){ call_or_link(VV[325],(void **)(void *)&Lnk325);} /* Defclass INTERNAL-UNDEFINED-FUNCTION7423 */ |
static void LnkT324(){ call_or_link(VV[324],(void **)(void *)&Lnk324);} /* Defclass INTERNAL-UNDEFINED-FUNCTION7425 */ |
5350 |
static void LnkT324(){ call_or_link(VV[324],(void **)(void *)&Lnk324);} /* Defclass INTERNAL-UNBOUND-VARIABLE7334 */ |
static void LnkT323(){ call_or_link(VV[323],(void **)(void *)&Lnk323);} /* Defclass INTERNAL-UNBOUND-VARIABLE7336 */ |
5351 |
static void LnkT323(){ call_or_link(VV[323],(void **)(void *)&Lnk323);} /* Defclass INTERNAL-SIMPLE-CONTROL-ERROR7245 */ |
static void LnkT322(){ call_or_link(VV[322],(void **)(void *)&Lnk322);} /* Defclass INTERNAL-SIMPLE-CONTROL-ERROR7247 */ |
5352 |
static void LnkT322(){ call_or_link(VV[322],(void **)(void *)&Lnk322);} /* Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7156 */ |
static void LnkT321(){ call_or_link(VV[321],(void **)(void *)&Lnk321);} /* Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7158 */ |
5353 |
static void LnkT321(){ call_or_link(VV[321],(void **)(void *)&Lnk321);} /* Defclass INTERNAL-PACKAGE-ERROR7067 */ |
static void LnkT320(){ call_or_link(VV[320],(void **)(void *)&Lnk320);} /* Defclass INTERNAL-PACKAGE-ERROR7069 */ |
5354 |
static void LnkT320(){ call_or_link(VV[320],(void **)(void *)&Lnk320);} /* Defclass INTERNAL-TYPE-ERROR6978 */ |
static void LnkT319(){ call_or_link(VV[319],(void **)(void *)&Lnk319);} /* Defclass INTERNAL-TYPE-ERROR6980 */ |
5355 |
static object LnkTLI318(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[318],(void **)(void *)&LnkLI318,2,first,ap);va_end(ap);return V1;} /* INTERNAL-SIMPLE-ERROR-PRINTER */ |
static object LnkTLI317(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[317],(void **)(void *)&LnkLI317,2,first,ap);va_end(ap);return V1;} /* INTERNAL-SIMPLE-ERROR-PRINTER */ |
5356 |
static void LnkT317(){ call_or_link(VV[317],(void **)(void *)&Lnk317);} /* Defclass INTERNAL-SIMPLE-ERROR6684 */ |
static void LnkT316(){ call_or_link(VV[316],(void **)(void *)&Lnk316);} /* Defclass INTERNAL-SIMPLE-ERROR6686 */ |
5357 |
static void LnkT315(ptr) object *ptr;{ call_or_link_closure(VV[315],(void **)(void *)&Lnk315,(void **)(void *)&Lclptr315);} /* INTERNAL-ERROR-FUNCTION-NAME */ |
static void LnkT314(ptr) object *ptr;{ call_or_link_closure(VV[314],(void **)(void *)&Lnk314,(void **)(void *)&Lclptr314);} /* INTERNAL-ERROR-FUNCTION-NAME */ |
5358 |
static void LnkT314(){ call_or_link(VV[314],(void **)(void *)&Lnk314);} /* Defclass INTERNAL-ERROR6257 */ |
static void LnkT313(){ call_or_link(VV[313],(void **)(void *)&Lnk313);} /* Defclass INTERNAL-ERROR6259 */ |
5359 |
static void LnkT312(){ call_or_link(VV[312],(void **)(void *)&Lnk312);} /* Defclass ABORT-FAILURE5955 */ |
static void LnkT311(){ call_or_link(VV[311],(void **)(void *)&Lnk311);} /* Defclass ABORT-FAILURE5957 */ |
5360 |
static void LnkT311(){ call_or_link(VV[311],(void **)(void *)&Lnk311);} /* Defclass FLOATING-POINT-UNDERFLOW5866 */ |
static void LnkT310(){ call_or_link(VV[310],(void **)(void *)&Lnk310);} /* Defclass FLOATING-POINT-UNDERFLOW5868 */ |
5361 |
static void LnkT310(){ call_or_link(VV[310],(void **)(void *)&Lnk310);} /* Defclass FLOATING-POINT-OVERFLOW5777 */ |
static void LnkT309(){ call_or_link(VV[309],(void **)(void *)&Lnk309);} /* Defclass FLOATING-POINT-OVERFLOW5779 */ |
5362 |
static void LnkT309(){ call_or_link(VV[309],(void **)(void *)&Lnk309);} /* Defclass DIVISION-BY-ZERO5688 */ |
static void LnkT308(){ call_or_link(VV[308],(void **)(void *)&Lnk308);} /* Defclass DIVISION-BY-ZERO5690 */ |
5363 |
static void LnkT308(){ call_or_link(VV[308],(void **)(void *)&Lnk308);} /* Defclass ARITHMETIC-ERROR5598 */ |
static void LnkT307(){ call_or_link(VV[307],(void **)(void *)&Lnk307);} /* Defclass ARITHMETIC-ERROR5600 */ |
5364 |
static void LnkT306(){ call_or_link(VV[306],(void **)(void *)&Lnk306);} /* Defclass UNDEFINED-FUNCTION5300 */ |
static void LnkT305(){ call_or_link(VV[305],(void **)(void *)&Lnk305);} /* Defclass UNDEFINED-FUNCTION5302 */ |
5365 |
static void LnkT304(ptr) object *ptr;{ call_or_link_closure(VV[304],(void **)(void *)&Lnk304,(void **)(void *)&Lclptr304);} /* CELL-ERROR-NAME */ |
static void LnkT303(ptr) object *ptr;{ call_or_link_closure(VV[303],(void **)(void *)&Lnk303,(void **)(void *)&Lclptr303);} /* CELL-ERROR-NAME */ |
5366 |
static void LnkT303(){ call_or_link(VV[303],(void **)(void *)&Lnk303);} /* Defclass UNBOUND-VARIABLE5002 */ |
static void LnkT302(){ call_or_link(VV[302],(void **)(void *)&Lnk302);} /* Defclass UNBOUND-VARIABLE5004 */ |
5367 |
static void LnkT302(){ call_or_link(VV[302],(void **)(void *)&Lnk302);} /* Defclass CELL-ERROR4912 */ |
static void LnkT301(){ call_or_link(VV[301],(void **)(void *)&Lnk301);} /* Defclass CELL-ERROR4914 */ |
5368 |
static void LnkT300(ptr) object *ptr;{ call_or_link_closure(VV[300],(void **)(void *)&Lnk300,(void **)(void *)&Lclptr300);} /* PACKAGE-ERROR-MESSAGE */ |
static void LnkT299(ptr) object *ptr;{ call_or_link_closure(VV[299],(void **)(void *)&Lnk299,(void **)(void *)&Lclptr299);} /* PACKAGE-ERROR-MESSAGE */ |
5369 |
static void LnkT299(ptr) object *ptr;{ call_or_link_closure(VV[299],(void **)(void *)&Lnk299,(void **)(void *)&Lclptr299);} /* PACKAGE-ERROR-PACKAGE */ |
static void LnkT298(ptr) object *ptr;{ call_or_link_closure(VV[298],(void **)(void *)&Lnk298,(void **)(void *)&Lclptr298);} /* PACKAGE-ERROR-PACKAGE */ |
5370 |
static void LnkT298(){ call_or_link(VV[298],(void **)(void *)&Lnk298);} /* Defclass PACKAGE-ERROR4612 */ |
static void LnkT297(){ call_or_link(VV[297],(void **)(void *)&Lnk297);} /* Defclass PACKAGE-ERROR4614 */ |
5371 |
static void LnkT297(){ call_or_link(VV[297],(void **)(void *)&Lnk297);} /* Defclass FILE-ERROR4522 */ |
static void LnkT296(){ call_or_link(VV[296],(void **)(void *)&Lnk296);} /* Defclass FILE-ERROR4524 */ |
5372 |
static void LnkT295(ptr) object *ptr;{ call_or_link_closure(VV[295],(void **)(void *)&Lnk295,(void **)(void *)&Lclptr295);} /* STREAM-ERROR-STREAM */ |
static void LnkT294(ptr) object *ptr;{ call_or_link_closure(VV[294],(void **)(void *)&Lnk294,(void **)(void *)&Lclptr294);} /* STREAM-ERROR-STREAM */ |
5373 |
static void LnkT294(){ call_or_link(VV[294],(void **)(void *)&Lnk294);} /* Defclass END-OF-FILE4224 */ |
static void LnkT293(){ call_or_link(VV[293],(void **)(void *)&Lnk293);} /* Defclass END-OF-FILE4226 */ |
5374 |
static void LnkT293(){ call_or_link(VV[293],(void **)(void *)&Lnk293);} /* Defclass STREAM-ERROR4134 */ |
static void LnkT292(){ call_or_link(VV[292],(void **)(void *)&Lnk292);} /* Defclass STREAM-ERROR4136 */ |
5375 |
static void LnkT292(){ call_or_link(VV[292],(void **)(void *)&Lnk292);} /* Defclass CONTROL-ERROR4045 */ |
static void LnkT291(){ call_or_link(VV[291],(void **)(void *)&Lnk291);} /* Defclass CONTROL-ERROR4047 */ |
5376 |
static void LnkT291(){ call_or_link(VV[291],(void **)(void *)&Lnk291);} /* Defclass PROGRAM-ERROR3956 */ |
static void LnkT290(){ call_or_link(VV[290],(void **)(void *)&Lnk290);} /* Defclass PROGRAM-ERROR3958 */ |
5377 |
static void LnkT289(ptr) object *ptr;{ call_or_link_closure(VV[289],(void **)(void *)&Lnk289,(void **)(void *)&Lclptr289);} /* CASE-FAILURE-POSSIBILITIES */ |
static void LnkT288(ptr) object *ptr;{ call_or_link_closure(VV[288],(void **)(void *)&Lnk288,(void **)(void *)&Lclptr288);} /* CASE-FAILURE-POSSIBILITIES */ |
5378 |
static void LnkT288(ptr) object *ptr;{ call_or_link_closure(VV[288],(void **)(void *)&Lnk288,(void **)(void *)&Lclptr288);} /* CASE-FAILURE-NAME */ |
static void LnkT287(ptr) object *ptr;{ call_or_link_closure(VV[287],(void **)(void *)&Lnk287,(void **)(void *)&Lclptr287);} /* CASE-FAILURE-NAME */ |
5379 |
static void LnkT287(){ call_or_link(VV[287],(void **)(void *)&Lnk287);} /* Defclass CASE-FAILURE3656 */ |
static void LnkT286(){ call_or_link(VV[286],(void **)(void *)&Lnk286);} /* Defclass CASE-FAILURE3658 */ |
5380 |
static void LnkT286(){ call_or_link(VV[286],(void **)(void *)&Lnk286);} /* Defclass SIMPLE-TYPE-ERROR3567 */ |
static void LnkT285(){ call_or_link(VV[285],(void **)(void *)&Lnk285);} /* Defclass SIMPLE-TYPE-ERROR3569 */ |
5381 |
static void LnkT284(ptr) object *ptr;{ call_or_link_closure(VV[284],(void **)(void *)&Lnk284,(void **)(void *)&Lclptr284);} /* TYPE-ERROR-EXPECTED-TYPE */ |
static void LnkT283(ptr) object *ptr;{ call_or_link_closure(VV[283],(void **)(void *)&Lnk283,(void **)(void *)&Lclptr283);} /* TYPE-ERROR-EXPECTED-TYPE */ |
5382 |
static void LnkT283(ptr) object *ptr;{ call_or_link_closure(VV[283],(void **)(void *)&Lnk283,(void **)(void *)&Lclptr283);} /* TYPE-ERROR-DATUM */ |
static void LnkT282(ptr) object *ptr;{ call_or_link_closure(VV[282],(void **)(void *)&Lnk282,(void **)(void *)&Lclptr282);} /* TYPE-ERROR-DATUM */ |
5383 |
static void LnkT282(){ call_or_link(VV[282],(void **)(void *)&Lnk282);} /* Defclass TYPE-ERROR3267 */ |
static void LnkT281(){ call_or_link(VV[281],(void **)(void *)&Lnk281);} /* Defclass TYPE-ERROR3269 */ |
5384 |
static void LnkT281(){ call_or_link(VV[281],(void **)(void *)&Lnk281);} /* Defclass STORAGE-EXHAUSTED3178 */ |
static void LnkT280(){ call_or_link(VV[280],(void **)(void *)&Lnk280);} /* Defclass STORAGE-EXHAUSTED3180 */ |
5385 |
static void LnkT280(){ call_or_link(VV[280],(void **)(void *)&Lnk280);} /* Defclass STACK-OVERFLOW3089 */ |
static void LnkT279(){ call_or_link(VV[279],(void **)(void *)&Lnk279);} /* Defclass STACK-OVERFLOW3091 */ |
5386 |
static void LnkT279(){ call_or_link(VV[279],(void **)(void *)&Lnk279);} /* Defclass STORAGE-CONDITION3000 */ |
static void LnkT278(){ call_or_link(VV[278],(void **)(void *)&Lnk278);} /* Defclass STORAGE-CONDITION3002 */ |
5387 |
static void LnkT278(){ call_or_link(VV[278],(void **)(void *)&Lnk278);} /* Defclass SIMPLE-ERROR2911 */ |
static void LnkT277(){ call_or_link(VV[277],(void **)(void *)&Lnk277);} /* Defclass SIMPLE-ERROR2913 */ |
5388 |
static void LnkT277(){ call_or_link(VV[277],(void **)(void *)&Lnk277);} /* Defclass SIMPLE-WARNING2822 */ |
static void LnkT276(){ call_or_link(VV[276],(void **)(void *)&Lnk276);} /* Defclass SIMPLE-WARNING2824 */ |
5389 |
static void LnkT276(){ call_or_link(VV[276],(void **)(void *)&Lnk276);} /* LOAD-DEFMETHOD */ |
static void LnkT275(){ call_or_link(VV[275],(void **)(void *)&Lnk275);} /* LOAD-DEFMETHOD */ |
5390 |
static object LnkTLI274(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[274],(void **)(void *)&LnkLI274,2,first,ap);va_end(ap);return V1;} /* SIMPLE-CONDITION-PRINTER */ |
static object LnkTLI273(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[273],(void **)(void *)&LnkLI273,2,first,ap);va_end(ap);return V1;} /* SIMPLE-CONDITION-PRINTER */ |
5391 |
static void LnkT273(){ call_or_link(VV[273],(void **)(void *)&Lnk273);} /* ERROR */ |
static void LnkT272(){ call_or_link(VV[272],(void **)(void *)&Lnk272);} /* ERROR */ |
5392 |
static void LnkT13(){ call_or_link(VV[13],(void **)(void *)&Lnk13);} /* ERROR */ |
static void LnkT13(){ call_or_link(VV[13],(void **)(void *)&Lnk13);} /* ERROR */ |
5393 |
static void LnkT272(){ call_or_link(VV[272],(void **)(void *)&Lnk272);} /* CCLOSURE-ENV-NTHCDR */ |
static void LnkT271(){ call_or_link(VV[271],(void **)(void *)&Lnk271);} /* CCLOSURE-ENV-NTHCDR */ |
|
static void LnkT271(){ call_or_link(VV[271],(void **)(void *)&Lnk271);} /* STRUCTURE-DEF */ |
|
5394 |
static void LnkT270(){ call_or_link(VV[270],(void **)(void *)&Lnk270);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT270(){ call_or_link(VV[270],(void **)(void *)&Lnk270);} /* STRUCTURE-SUBTYPE-P */ |
5395 |
static void LnkT269(){ call_or_link(VV[269],(void **)(void *)&Lnk269);} /* PROCLAIM-DEFGENERIC */ |
static void LnkT269(){ call_or_link(VV[269],(void **)(void *)&Lnk269);} /* PROCLAIM-DEFGENERIC */ |
5396 |
static void LnkT268(){ call_or_link(VV[268],(void **)(void *)&Lnk268);} /* Defclass SIMPLE-CONDITION2526 */ |
static void LnkT268(){ call_or_link(VV[268],(void **)(void *)&Lnk268);} /* Defclass SIMPLE-CONDITION2528 */ |
5397 |
static void LnkT266(ptr) object *ptr;{ call_or_link_closure(VV[266],(void **)(void *)&Lnk266,(void **)(void *)&Lclptr266);} /* SIMPLE-CONDITION-FORMAT-ARGUMENTS */ |
static void LnkT266(ptr) object *ptr;{ call_or_link_closure(VV[266],(void **)(void *)&Lnk266,(void **)(void *)&Lclptr266);} /* SIMPLE-CONDITION-FORMAT-ARGUMENTS */ |
5398 |
static void LnkT265(ptr) object *ptr;{ call_or_link_closure(VV[265],(void **)(void *)&Lnk265,(void **)(void *)&Lclptr265);} /* SIMPLE-CONDITION-FORMAT-STRING */ |
static void LnkT265(ptr) object *ptr;{ call_or_link_closure(VV[265],(void **)(void *)&Lnk265,(void **)(void *)&Lclptr265);} /* SIMPLE-CONDITION-FORMAT-STRING */ |
5399 |
static void LnkT264(){ call_or_link(VV[264],(void **)(void *)&Lnk264);} /* Defclass ERROR2429 */ |
static void LnkT264(){ call_or_link(VV[264],(void **)(void *)&Lnk264);} /* Defclass ERROR2431 */ |
5400 |
static void LnkT263(){ call_or_link(VV[263],(void **)(void *)&Lnk263);} /* Defclass SERIOUS-CONDITION2340 */ |
static void LnkT263(){ call_or_link(VV[263],(void **)(void *)&Lnk263);} /* Defclass SERIOUS-CONDITION2342 */ |
5401 |
static void LnkT262(){ call_or_link(VV[262],(void **)(void *)&Lnk262);} /* Defclass WARNING2251 */ |
static void LnkT262(){ call_or_link(VV[262],(void **)(void *)&Lnk262);} /* Defclass WARNING2253 */ |
5402 |
static void LnkT260(){ call_or_link(VV[260],(void **)(void *)&Lnk260);} /* REMOVE */ |
static void LnkT260(){ call_or_link(VV[260],(void **)(void *)&Lnk260);} /* REMOVE */ |
5403 |
|
|
5404 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |