18 |
vs_top=sup; |
vs_top=sup; |
19 |
goto TTL; |
goto TTL; |
20 |
TTL:; |
TTL:; |
21 |
{object V4= (V1); |
{object V5= V1; |
22 |
if((V4!= VV[31]))goto T2; |
if((V5!= VV[45]))goto T2; |
23 |
{object V5= (V2); |
{object V7= V2; |
24 |
if(!eql(V5,VV[0]))goto T3; |
if(!eql(V7,VV[0]))goto T3; |
25 |
if(((V3))==Cnil){ |
if(((V3))==Cnil){ |
26 |
goto T5;} |
goto T5;} |
27 |
base[3]= VV[32]; |
base[3]= VV[46]; |
28 |
goto T1; |
goto T1; |
29 |
goto T5; |
goto T5; |
30 |
T5:; |
T5:; |
31 |
base[3]= VV[33]; |
base[3]= VV[47]; |
32 |
goto T1; |
goto T1; |
33 |
goto T3; |
goto T3; |
34 |
T3:; |
T3:; |
35 |
if(!eql(V5,VV[6]))goto T7; |
if(!eql(V7,VV[6]))goto T7; |
36 |
if(((V3))==Cnil){ |
if(((V3))==Cnil){ |
37 |
goto T9;} |
goto T9;} |
38 |
base[3]= VV[34]; |
base[3]= VV[48]; |
39 |
goto T1; |
goto T1; |
40 |
goto T9; |
goto T9; |
41 |
T9:; |
T9:; |
42 |
base[3]= VV[35]; |
base[3]= VV[49]; |
43 |
goto T1; |
goto T1; |
44 |
goto T7; |
goto T7; |
45 |
T7:; |
T7:; |
46 |
FEerror("The ECASE key value ~s is illegal.",1,V5); |
base[4]= VV[9]; |
47 |
base[3]= Cnil; |
base[5]= VV[10]; |
48 |
|
base[6]= VV[11]; |
49 |
|
base[7]= VV[12]; |
50 |
|
base[8]= V2; |
51 |
|
base[9]= VV[13]; |
52 |
|
base[10]= VV[14]; |
53 |
|
base[11]= VV[15]; |
54 |
|
base[12]= VV[16]; |
55 |
|
vs_top=(vs_base=base+4)+9; |
56 |
|
(void) (*Lnk50)(); |
57 |
|
vs_top=sup; |
58 |
|
base[3]= vs_base[0]; |
59 |
goto T1;} |
goto T1;} |
60 |
goto T2; |
goto T2; |
61 |
T2:; |
T2:; |
62 |
if((V4!= VV[36]))goto T11; |
if((V5!= VV[51]))goto T20; |
63 |
{object V6= (V2); |
{object V9= V2; |
64 |
if(!eql(V6,VV[0]))goto T12; |
if(!eql(V9,VV[0]))goto T21; |
65 |
if(((V3))==Cnil){ |
if(((V3))==Cnil){ |
66 |
goto T14;} |
goto T23;} |
67 |
base[3]= VV[37]; |
base[3]= VV[52]; |
68 |
goto T1; |
goto T1; |
69 |
goto T14; |
goto T23; |
70 |
T14:; |
T23:; |
71 |
base[3]= VV[38]; |
base[3]= VV[53]; |
72 |
goto T1; |
goto T1; |
73 |
goto T12; |
goto T21; |
74 |
T12:; |
T21:; |
75 |
if(!eql(V6,VV[6]))goto T16; |
if(!eql(V9,VV[6]))goto T25; |
76 |
if(((V3))==Cnil){ |
if(((V3))==Cnil){ |
77 |
goto T18;} |
goto T27;} |
78 |
base[3]= VV[39]; |
base[3]= VV[54]; |
79 |
goto T1; |
goto T1; |
80 |
goto T18; |
goto T27; |
81 |
T18:; |
T27:; |
82 |
base[3]= VV[40]; |
base[3]= VV[55]; |
83 |
goto T1; |
goto T1; |
84 |
goto T16; |
goto T25; |
85 |
T16:; |
T25:; |
86 |
FEerror("The ECASE key value ~s is illegal.",1,V6); |
base[4]= VV[9]; |
87 |
base[3]= Cnil; |
base[5]= VV[10]; |
88 |
goto T1;} |
base[6]= VV[11]; |
89 |
goto T11; |
base[7]= VV[12]; |
90 |
T11:; |
base[8]= V2; |
91 |
FEerror("The ECASE key value ~s is illegal.",1,V4); |
base[9]= VV[13]; |
92 |
base[3]= Cnil; |
base[10]= VV[21]; |
93 |
|
base[11]= VV[15]; |
94 |
|
base[12]= VV[22]; |
95 |
|
vs_top=(vs_base=base+4)+9; |
96 |
|
(void) (*Lnk50)(); |
97 |
|
vs_top=sup; |
98 |
|
base[3]= vs_base[0]; |
99 |
goto T1;} |
goto T1;} |
100 |
|
goto T20; |
101 |
|
T20:; |
102 |
|
base[4]= VV[9]; |
103 |
|
base[5]= VV[10]; |
104 |
|
base[6]= VV[11]; |
105 |
|
base[7]= VV[12]; |
106 |
|
base[8]= V1; |
107 |
|
base[9]= VV[13]; |
108 |
|
base[10]= VV[23]; |
109 |
|
base[11]= VV[15]; |
110 |
|
base[12]= VV[24]; |
111 |
|
vs_top=(vs_base=base+4)+9; |
112 |
|
(void) (*Lnk50)(); |
113 |
|
vs_top=sup; |
114 |
|
base[3]= vs_base[0];} |
115 |
goto T1; |
goto T1; |
116 |
T1:; |
T1:; |
117 |
base[4]= Cnil; |
base[4]= Cnil; |
125 |
{register object *base=vs_base; |
{register object *base=vs_base; |
126 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM2; VC2 |
127 |
vs_check; |
vs_check; |
128 |
{object V7; |
{object V10; |
129 |
object V8; |
object V11; |
130 |
object V9; |
object V12; |
131 |
check_arg(3); |
check_arg(3); |
132 |
V7=(base[0]); |
V10=(base[0]); |
133 |
V8=(base[1]); |
V11=(base[1]); |
134 |
V9=(base[2]); |
V12=(base[2]); |
135 |
vs_top=sup; |
vs_top=sup; |
136 |
goto TTL; |
goto TTL; |
137 |
TTL:; |
TTL:; |
138 |
{object V10= (V7); |
{object V14= V10; |
139 |
if((V10!= VV[31]))goto T22; |
if((V14!= VV[45]))goto T49; |
140 |
if(((V8))==Cnil){ |
if(((V11))==Cnil){ |
141 |
goto T24;} |
goto T51;} |
142 |
if(((V9))==Cnil){ |
if(((V12))==Cnil){ |
143 |
goto T27;} |
goto T54;} |
144 |
base[3]= VV[41]; |
base[3]= VV[56]; |
145 |
goto T21; |
goto T48; |
146 |
goto T27; |
goto T54; |
147 |
T27:; |
T54:; |
148 |
base[3]= VV[42]; |
base[3]= VV[57]; |
149 |
goto T21; |
goto T48; |
150 |
goto T24; |
goto T51; |
151 |
T24:; |
T51:; |
152 |
if(((V9))==Cnil){ |
if(((V12))==Cnil){ |
153 |
goto T30;} |
goto T57;} |
154 |
base[3]= VV[43]; |
base[3]= VV[58]; |
155 |
goto T21; |
goto T48; |
156 |
goto T30; |
goto T57; |
157 |
T30:; |
T57:; |
158 |
base[3]= VV[44]; |
base[3]= VV[59]; |
159 |
goto T21; |
goto T48; |
160 |
goto T22; |
goto T49; |
161 |
T22:; |
T49:; |
162 |
if((V10!= VV[36]))goto T32; |
if((V14!= VV[51]))goto T59; |
163 |
if(((V8))==Cnil){ |
if(((V11))==Cnil){ |
164 |
goto T34;} |
goto T61;} |
165 |
if(((V9))==Cnil){ |
if(((V12))==Cnil){ |
166 |
goto T37;} |
goto T64;} |
167 |
base[3]= VV[45]; |
base[3]= VV[60]; |
168 |
goto T21; |
goto T48; |
169 |
goto T37; |
goto T64; |
170 |
T37:; |
T64:; |
171 |
base[3]= VV[46]; |
base[3]= VV[61]; |
172 |
goto T21; |
goto T48; |
173 |
goto T34; |
goto T61; |
174 |
T34:; |
T61:; |
175 |
if(((V9))==Cnil){ |
if(((V12))==Cnil){ |
176 |
goto T40;} |
goto T67;} |
177 |
base[3]= VV[47]; |
base[3]= VV[62]; |
178 |
goto T21; |
goto T48; |
179 |
goto T40; |
goto T67; |
180 |
T40:; |
T67:; |
181 |
base[3]= VV[48]; |
base[3]= VV[63]; |
182 |
goto T21; |
goto T48; |
183 |
goto T32; |
goto T59; |
184 |
T32:; |
T59:; |
185 |
FEerror("The ECASE key value ~s is illegal.",1,V10); |
base[4]= VV[9]; |
186 |
base[3]= Cnil; |
base[5]= VV[10]; |
187 |
goto T21;} |
base[6]= VV[11]; |
188 |
goto T21; |
base[7]= VV[12]; |
189 |
T21:; |
base[8]= V10; |
190 |
|
base[9]= VV[13]; |
191 |
|
base[10]= VV[35]; |
192 |
|
base[11]= VV[15]; |
193 |
|
base[12]= VV[36]; |
194 |
|
vs_top=(vs_base=base+4)+9; |
195 |
|
(void) (*Lnk50)(); |
196 |
|
vs_top=sup; |
197 |
|
base[3]= vs_base[0];} |
198 |
|
goto T48; |
199 |
|
T48:; |
200 |
base[4]= Cnil; |
base[4]= Cnil; |
201 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
202 |
return; |
return; |
210 |
vs_check; |
vs_check; |
211 |
check_arg(2); |
check_arg(2); |
212 |
vs_top=sup; |
vs_top=sup; |
213 |
{object V11=base[0]->c.c_cdr; |
{object V15=base[0]->c.c_cdr; |
214 |
if(!endp(V11))invalid_macro_call();} |
if(!endp(V15))invalid_macro_call();} |
215 |
base[3]= (VV[27]->s.s_dbind); |
base[3]= (VV[41]->s.s_dbind); |
216 |
{object V13; |
{object V17; |
217 |
object V14= base[3]; |
object V18= base[3]; |
218 |
if(V14==Cnil){ |
if(V18==Cnil){ |
219 |
V12= Cnil; |
V16= Cnil; |
220 |
goto T43;} |
goto T79;} |
221 |
base[2]=V13=MMcons(Cnil,Cnil); |
base[2]=V17=MMcons(Cnil,Cnil); |
222 |
goto T44; |
goto T80; |
223 |
T44:; |
T80:; |
224 |
V16= list(2,VV[25],(V14->c.c_car)); |
V20= list(2,VV[39],(V18->c.c_car)); |
225 |
(V13->c.c_car)= list(3,VV[24],/* INLINE-ARGS */V16,make_cons(VV[26],(V14->c.c_car))); |
(V17->c.c_car)= list(3,VV[38],/* INLINE-ARGS */V20,make_cons(VV[40],(V18->c.c_car))); |
226 |
if((V14=MMcdr(V14))==Cnil){ |
if((V18=MMcdr(V18))==Cnil){ |
227 |
V12= base[2]; |
V16= base[2]; |
228 |
goto T43;} |
goto T79;} |
229 |
V13=MMcdr(V13)=MMcons(Cnil,Cnil); |
V17=MMcdr(V17)=MMcons(Cnil,Cnil); |
230 |
goto T44;} |
goto T80;} |
231 |
goto T43; |
goto T79; |
232 |
T43:; |
T79:; |
233 |
base[2]= make_cons(VV[23],V12); |
base[2]= make_cons(VV[37],V16); |
234 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
235 |
return; |
return; |
236 |
} |
} |
241 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
242 |
goto TTL; |
goto TTL; |
243 |
TTL:; |
TTL:; |
244 |
(VV[28]->s.s_dbind)= Cnil; |
(VV[42]->s.s_dbind)= Cnil; |
245 |
{object V17 = (VV[28]->s.s_dbind); |
{object V21 = (VV[42]->s.s_dbind); |
246 |
VMR4(V17)} |
VMR4(V21)} |
247 |
return Cnil; |
return Cnil; |
248 |
} |
} |
249 |
/* macro definition for EMIT-CHECKING-OR-CACHING-FUNCTION-PRECOMPILED */ |
/* macro definition for EMIT-CHECKING-OR-CACHING-FUNCTION-PRECOMPILED */ |
254 |
vs_check; |
vs_check; |
255 |
check_arg(2); |
check_arg(2); |
256 |
vs_top=sup; |
vs_top=sup; |
257 |
{object V18=base[0]->c.c_cdr; |
{object V22=base[0]->c.c_cdr; |
258 |
if(!endp(V18))invalid_macro_call();} |
if(!endp(V22))invalid_macro_call();} |
259 |
base[2]= VV[29]; |
base[2]= VV[43]; |
260 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
261 |
return; |
return; |
262 |
} |
} |
266 |
{register object *base=vs_base; |
{register object *base=vs_base; |
267 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM6; VC6 |
268 |
vs_check; |
vs_check; |
269 |
{object V19; |
{object V23; |
270 |
object V20; |
object V24; |
271 |
object V21; |
object V25; |
272 |
object V22; |
object V26; |
273 |
check_arg(4); |
check_arg(4); |
274 |
V19=(base[0]); |
V23=(base[0]); |
275 |
V20=(base[1]); |
V24=(base[1]); |
276 |
V21=(base[2]); |
V25=(base[2]); |
277 |
V22=(base[3]); |
V26=(base[3]); |
278 |
vs_top=sup; |
vs_top=sup; |
279 |
goto TTL; |
goto TTL; |
280 |
TTL:; |
TTL:; |
281 |
{object V23; |
{object V27; |
282 |
V26= list(4,(V19),(V20),(V21),(V22)); |
V30= list(4,(V23),(V24),(V25),(V26)); |
283 |
{register object x= /* INLINE-ARGS */V26,V25= (VV[28]->s.s_dbind); |
{register object x= /* INLINE-ARGS */V30,V29= (VV[42]->s.s_dbind); |
284 |
while(V25!=Cnil) |
while(V29!=Cnil) |
285 |
if(equal(x,V25->c.c_car->c.c_car) &&V25->c.c_car != Cnil){ |
if(equal(x,V29->c.c_car->c.c_car) &&V29->c.c_car != Cnil){ |
286 |
V24= (V25->c.c_car); |
V28= (V29->c.c_car); |
287 |
goto T48; |
goto T84; |
288 |
}else V25=V25->c.c_cdr; |
}else V29=V29->c.c_cdr; |
289 |
V24= Cnil;} |
V28= Cnil;} |
290 |
goto T48; |
goto T84; |
291 |
T48:; |
T84:; |
292 |
V23= CMPcdr(V24); |
V27= CMPcdr(V28); |
293 |
if(((V23))==Cnil){ |
if(((V27))==Cnil){ |
294 |
goto T50;} |
goto T86;} |
295 |
base[4]= (V23); |
base[4]= (V27); |
296 |
base[5]= Cnil; |
base[5]= Cnil; |
297 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
298 |
return; |
return; |
299 |
goto T50; |
goto T86; |
300 |
T50:; |
T86:; |
301 |
base[4]= (*(LnkLI49))((V19),(V20),(V21),(V22)); |
base[4]= (*(LnkLI64))((V23),(V24),(V25),(V26)); |
302 |
base[5]= Ct; |
base[5]= Ct; |
303 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
304 |
return;} |
return;} |
306 |
} |
} |
307 |
/* local entry for function EMIT-CHECKING-OR-CACHING-FUNCTION-PRELIMINARY */ |
/* local entry for function EMIT-CHECKING-OR-CACHING-FUNCTION-PRELIMINARY */ |
308 |
|
|
309 |
static object LI8(V31,V32,V33,V34) |
static object LI8(V35,V36,V37,V38) |
310 |
|
|
311 |
object V31;object V32;object V33;object V34; |
object V35;object V36;object V37;object V38; |
312 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
313 |
goto TTL; |
goto TTL; |
314 |
TTL:; |
TTL:; |
315 |
base[0]=MMcons((V33),Cnil); |
base[0]=MMcons((V37),Cnil); |
316 |
base[1]=MMcons((V32),base[0]); |
base[1]=MMcons((V36),base[0]); |
317 |
if(((V31))==Cnil){ |
if(((V35))==Cnil){ |
318 |
goto T57;} |
goto T93;} |
319 |
{object V35 = |
{object V39 = |
320 |
make_cclosure_new(LC26,Cnil,base[1],Cdata); |
make_cclosure_new(LC26,Cnil,base[1],Cdata); |
321 |
VMR7(V35)} |
VMR7(V39)} |
322 |
goto T57; |
goto T93; |
323 |
T57:; |
T93:; |
324 |
{object V36 = |
{object V40 = |
325 |
make_cclosure_new(LC27,Cnil,base[1],Cdata); |
make_cclosure_new(LC27,Cnil,base[1],Cdata); |
326 |
VMR7(V36)} |
VMR7(V40)} |
327 |
base[0]=base[0]; |
base[0]=base[0]; |
328 |
return Cnil; |
return Cnil; |
329 |
} |
} |
333 |
{register object *base=vs_base; |
{register object *base=vs_base; |
334 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
335 |
vs_check; |
vs_check; |
336 |
{object V37; |
{object V41; |
337 |
object V38; |
object V42; |
338 |
check_arg(2); |
check_arg(2); |
339 |
V37=(base[0]); |
V41=(base[0]); |
340 |
V38=(base[1]); |
V42=(base[1]); |
341 |
vs_top=sup; |
vs_top=sup; |
342 |
goto TTL; |
goto TTL; |
343 |
TTL:; |
TTL:; |
344 |
base[2]= VV[50]; |
base[2]= VV[65]; |
345 |
base[3]= Ct; |
base[3]= Ct; |
346 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
347 |
return; |
return; |
369 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
370 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
371 |
vs_check; |
vs_check; |
372 |
{object V39; |
{object V43; |
373 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
374 |
{object *p=vs_top; |
{object *p=vs_top; |
375 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
376 |
V39=(base[0]); |
V43=(base[0]); |
377 |
vs_top=sup; |
vs_top=sup; |
378 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
379 |
base[2]= (V39); |
base[2]= (V43); |
380 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
381 |
(void) (*Lnk51)(); |
(void) (*Lnk66)(); |
382 |
return; |
return; |
383 |
} |
} |
384 |
} |
} |
406 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
407 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
408 |
vs_check; |
vs_check; |
409 |
{object V40; |
{object V44; |
410 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
411 |
{object *p=vs_top; |
{object *p=vs_top; |
412 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
413 |
V40=(base[0]); |
V44=(base[0]); |
414 |
vs_top=sup; |
vs_top=sup; |
415 |
{object V41; |
{object V45; |
416 |
object V42; |
object V46; |
|
object V43; |
|
|
register object V44; |
|
|
object V45; |
|
|
V41= (V40); |
|
|
V42= Cnil; |
|
|
V43= Cnil; |
|
|
V44= Cnil; |
|
|
V45= Cnil; |
|
|
{register object V46; |
|
417 |
object V47; |
object V47; |
418 |
V46= (base0[4]->c.c_car); |
register object V48; |
419 |
V47= CMPcar((V46)); |
object V49; |
420 |
goto T72; |
V45= (V44); |
421 |
T72:; |
V46= Cnil; |
422 |
if(!(((V46))==Cnil)){ |
V47= Cnil; |
423 |
goto T73;} |
V48= Cnil; |
|
goto T68; |
|
|
goto T73; |
|
|
T73:; |
|
|
if(((V41))!=Cnil){ |
|
|
goto T77;} |
|
|
V43= Ct; |
|
|
goto T68; |
|
|
goto T77; |
|
|
T77:; |
|
|
{object V48; |
|
|
register object V49; |
|
|
{object V50; |
|
|
V50= CMPcar((V41)); |
|
|
V41= CMPcdr((V41)); |
|
|
V48= (V50);} |
|
424 |
V49= Cnil; |
V49= Cnil; |
425 |
if(((V47))==(Ct)){ |
{register object V50; |
426 |
goto T82;} |
object V51; |
427 |
V49= (*(LnkLI52))((V48)); |
V50= (base0[4]->c.c_car); |
428 |
if(!((((((V49))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
V51= CMPcar((V50)); |
429 |
goto T92;} |
goto T108; |
430 |
V42= Ct; |
T108:; |
431 |
V49= (*(LnkLI53))((V48)); |
if(!(((V50))==Cnil)){ |
432 |
goto T92; |
goto T109;} |
433 |
T92:; |
goto T104; |
434 |
if(((V44))!=Cnil){ |
goto T109; |
435 |
goto T99;} |
T109:; |
436 |
V44= (V49); |
if(((V45))!=Cnil){ |
437 |
goto T82; |
goto T113;} |
438 |
goto T99; |
V47= Ct; |
439 |
T99:; |
goto T104; |
440 |
if(type_of((V44))==t_cons){ |
goto T113; |
441 |
goto T103;} |
T113:; |
442 |
V45= make_cons((V49),Cnil); |
{object V52; |
443 |
V44= make_cons((V44),(V45)); |
register object V53; |
444 |
goto T82; |
{object V54; |
445 |
goto T103; |
V54= CMPcar((V45)); |
446 |
T103:; |
V45= CMPcdr((V45)); |
447 |
{object V51; |
V52= (V54);} |
448 |
V51= make_cons((V49),Cnil); |
V53= Cnil; |
449 |
(V45)->c.c_cdr = V51; |
if(((V51))==(Ct)){ |
|
V45= (V51);}} |
|
|
goto T82; |
|
|
T82:; |
|
|
V46= CMPcdr((V46)); |
|
|
V47= CMPcar((V46)); |
|
|
goto T72;} |
|
|
goto T68; |
|
|
T68:; |
|
|
if(((V43))==Cnil){ |
|
450 |
goto T118;} |
goto T118;} |
451 |
|
V53= (*(LnkLI67))((V52)); |
452 |
|
if(!((((((V53))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
453 |
|
goto T128;} |
454 |
|
V46= Ct; |
455 |
|
V53= (*(LnkLI68))((V52)); |
456 |
|
goto T128; |
457 |
|
T128:; |
458 |
|
if(((V48))!=Cnil){ |
459 |
|
goto T135;} |
460 |
|
V48= (V53); |
461 |
|
goto T118; |
462 |
|
goto T135; |
463 |
|
T135:; |
464 |
|
if(type_of((V48))==t_cons){ |
465 |
|
goto T139;} |
466 |
|
V49= make_cons((V53),Cnil); |
467 |
|
V48= make_cons((V48),(V49)); |
468 |
|
goto T118; |
469 |
|
goto T139; |
470 |
|
T139:; |
471 |
|
{object V55; |
472 |
|
V55= make_cons((V53),Cnil); |
473 |
|
(V49)->c.c_cdr = V55; |
474 |
|
V49= (V55);}} |
475 |
|
goto T118; |
476 |
|
T118:; |
477 |
|
V50= CMPcdr((V50)); |
478 |
|
V51= CMPcar((V50)); |
479 |
|
goto T108;} |
480 |
|
goto T104; |
481 |
|
T104:; |
482 |
|
if(((V47))==Cnil){ |
483 |
|
goto T154;} |
484 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
485 |
{object V54; |
{object V58; |
486 |
V54= (V40); |
V58= (V44); |
487 |
vs_top=base+2; |
vs_top=base+2; |
488 |
while(V54!=Cnil) |
while(V58!=Cnil) |
489 |
{vs_push((V54)->c.c_car);V54=(V54)->c.c_cdr;} |
{vs_push((V58)->c.c_car);V58=(V58)->c.c_cdr;} |
490 |
vs_base=base+2;} |
vs_base=base+2;} |
491 |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
492 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
493 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
494 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
495 |
return; |
return; |
496 |
goto T118; |
goto T154; |
497 |
T118:; |
T154:; |
498 |
if(((V42))==Cnil){ |
if(((V46))==Cnil){ |
499 |
goto T123;} |
goto T159;} |
500 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
501 |
{object V55; |
{object V59; |
502 |
V55= (V40); |
V59= (V44); |
503 |
vs_top=base+2; |
vs_top=base+2; |
504 |
while(V55!=Cnil) |
while(V59!=Cnil) |
505 |
{vs_push((V55)->c.c_car);V55=(V55)->c.c_cdr;} |
{vs_push((V59)->c.c_car);V59=(V59)->c.c_cdr;} |
506 |
vs_base=base+2;} |
vs_base=base+2;} |
507 |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
508 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
509 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
510 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
511 |
return; |
return; |
512 |
goto T123; |
goto T159; |
513 |
T123:; |
T159:; |
514 |
{object V56;{object V57; |
{object V60;{object V61; |
515 |
V57= (VV[30]->s.s_dbind); |
V61= (VV[44]->s.s_dbind); |
516 |
V58= (VFUN_NARGS=3,(*(LnkLI54))((base0[2]->c.c_car),(V44),(VV[30]->s.s_dbind))); |
V62= (VFUN_NARGS=3,(*(LnkLI69))((base0[2]->c.c_car),(V48),(VV[44]->s.s_dbind))); |
517 |
V56= ((((V57)==(/* INLINE-ARGS */V58)?Ct:Cnil))==Cnil?Ct:Cnil);} |
V60= ((((V61)==(/* INLINE-ARGS */V62)?Ct:Cnil))==Cnil?Ct:Cnil);} |
518 |
if(((V56))==Cnil){ |
if(((V60))==Cnil){ |
519 |
goto T129;} |
goto T165;} |
520 |
base[1]= (base0[1]->c.c_car); |
base[1]= (base0[1]->c.c_car); |
521 |
base[2]= (V40); |
base[2]= (V44); |
522 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
523 |
(void) (*Lnk51)(); |
(void) (*Lnk66)(); |
524 |
return; |
return; |
525 |
goto T129; |
goto T165; |
526 |
T129:; |
T165:; |
527 |
if(((base0[3]->c.c_car))==Cnil){ |
if(((base0[3]->c.c_car))==Cnil){ |
528 |
goto T134;} |
goto T170;} |
529 |
base[1]= Ct; |
base[1]= Ct; |
530 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
531 |
return; |
return; |
532 |
goto T134; |
goto T170; |
533 |
T134:; |
T170:; |
534 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
535 |
{object V59; |
{object V63; |
536 |
V59= (V40); |
V63= (V44); |
537 |
vs_top=base+2; |
vs_top=base+2; |
538 |
while(V59!=Cnil) |
while(V63!=Cnil) |
539 |
{vs_push((V59)->c.c_car);V59=(V59)->c.c_cdr;} |
{vs_push((V63)->c.c_car);V63=(V63)->c.c_cdr;} |
540 |
vs_base=base+2;} |
vs_base=base+2;} |
541 |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[1];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); |
568 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
569 |
register object *sup=base+VM14; VC14 |
register object *sup=base+VM14; VC14 |
570 |
vs_check; |
vs_check; |
571 |
{object V60; |
{object V64; |
572 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
573 |
{object *p=vs_top; |
{object *p=vs_top; |
574 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
575 |
V60=(base[0]); |
V64=(base[0]); |
576 |
vs_top=sup; |
vs_top=sup; |
577 |
{object V61; |
{object V65; |
578 |
object V62; |
object V66; |
|
object V63; |
|
|
register object V64; |
|
|
object V65; |
|
|
V61= (V60); |
|
|
V62= Cnil; |
|
|
V63= Cnil; |
|
|
V64= Cnil; |
|
|
V65= Cnil; |
|
|
{register object V66; |
|
579 |
object V67; |
object V67; |
580 |
V66= (base0[3]->c.c_car); |
register object V68; |
581 |
V67= CMPcar((V66)); |
object V69; |
582 |
goto T147; |
V65= (V64); |
583 |
T147:; |
V66= Cnil; |
584 |
if(!(((V66))==Cnil)){ |
V67= Cnil; |
585 |
goto T148;} |
V68= Cnil; |
|
goto T143; |
|
|
goto T148; |
|
|
T148:; |
|
|
if(((V61))!=Cnil){ |
|
|
goto T152;} |
|
|
V63= Ct; |
|
|
goto T143; |
|
|
goto T152; |
|
|
T152:; |
|
|
{object V68; |
|
|
register object V69; |
|
|
{object V70; |
|
|
V70= CMPcar((V61)); |
|
|
V61= CMPcdr((V61)); |
|
|
V68= (V70);} |
|
586 |
V69= Cnil; |
V69= Cnil; |
587 |
if(((V67))==(Ct)){ |
{register object V70; |
588 |
goto T157;} |
object V71; |
589 |
V69= (*(LnkLI52))((V68)); |
V70= (base0[3]->c.c_car); |
590 |
if(!((((((V69))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
V71= CMPcar((V70)); |
591 |
goto T167;} |
goto T183; |
592 |
V62= Ct; |
T183:; |
593 |
V69= (*(LnkLI53))((V68)); |
if(!(((V70))==Cnil)){ |
594 |
goto T167; |
goto T184;} |
595 |
T167:; |
goto T179; |
596 |
if(((V64))!=Cnil){ |
goto T184; |
597 |
goto T174;} |
T184:; |
598 |
V64= (V69); |
if(((V65))!=Cnil){ |
599 |
goto T157; |
goto T188;} |
600 |
goto T174; |
V67= Ct; |
601 |
T174:; |
goto T179; |
602 |
if(type_of((V64))==t_cons){ |
goto T188; |
603 |
goto T178;} |
T188:; |
604 |
V65= make_cons((V69),Cnil); |
{object V72; |
605 |
V64= make_cons((V64),(V65)); |
register object V73; |
606 |
goto T157; |
{object V74; |
607 |
goto T178; |
V74= CMPcar((V65)); |
608 |
T178:; |
V65= CMPcdr((V65)); |
609 |
{object V71; |
V72= (V74);} |
610 |
V71= make_cons((V69),Cnil); |
V73= Cnil; |
611 |
(V65)->c.c_cdr = V71; |
if(((V71))==(Ct)){ |
|
V65= (V71);}} |
|
|
goto T157; |
|
|
T157:; |
|
|
V66= CMPcdr((V66)); |
|
|
V67= CMPcar((V66)); |
|
|
goto T147;} |
|
|
goto T143; |
|
|
T143:; |
|
|
if(((V63))==Cnil){ |
|
612 |
goto T193;} |
goto T193;} |
613 |
|
V73= (*(LnkLI67))((V72)); |
614 |
|
if(!((((((V73))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
615 |
|
goto T203;} |
616 |
|
V66= Ct; |
617 |
|
V73= (*(LnkLI68))((V72)); |
618 |
|
goto T203; |
619 |
|
T203:; |
620 |
|
if(((V68))!=Cnil){ |
621 |
|
goto T210;} |
622 |
|
V68= (V73); |
623 |
|
goto T193; |
624 |
|
goto T210; |
625 |
|
T210:; |
626 |
|
if(type_of((V68))==t_cons){ |
627 |
|
goto T214;} |
628 |
|
V69= make_cons((V73),Cnil); |
629 |
|
V68= make_cons((V68),(V69)); |
630 |
|
goto T193; |
631 |
|
goto T214; |
632 |
|
T214:; |
633 |
|
{object V75; |
634 |
|
V75= make_cons((V73),Cnil); |
635 |
|
(V69)->c.c_cdr = V75; |
636 |
|
V69= (V75);}} |
637 |
|
goto T193; |
638 |
|
T193:; |
639 |
|
V70= CMPcdr((V70)); |
640 |
|
V71= CMPcar((V70)); |
641 |
|
goto T183;} |
642 |
|
goto T179; |
643 |
|
T179:; |
644 |
|
if(((V67))==Cnil){ |
645 |
|
goto T229;} |
646 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
647 |
{object V74; |
{object V78; |
648 |
V74= (V60); |
V78= (V64); |
649 |
vs_top=base+2; |
vs_top=base+2; |
650 |
while(V74!=Cnil) |
while(V78!=Cnil) |
651 |
{vs_push((V74)->c.c_car);V74=(V74)->c.c_cdr;} |
{vs_push((V78)->c.c_car);V78=(V78)->c.c_cdr;} |
652 |
vs_base=base+2;} |
vs_base=base+2;} |
653 |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
654 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
655 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
656 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
657 |
return; |
return; |
658 |
goto T193; |
goto T229; |
659 |
T193:; |
T229:; |
660 |
if(((V62))==Cnil){ |
if(((V66))==Cnil){ |
661 |
goto T198;} |
goto T234;} |
662 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
663 |
{object V75; |
{object V79; |
664 |
V75= (V60); |
V79= (V64); |
665 |
vs_top=base+2; |
vs_top=base+2; |
666 |
while(V75!=Cnil) |
while(V79!=Cnil) |
667 |
{vs_push((V75)->c.c_car);V75=(V75)->c.c_cdr;} |
{vs_push((V79)->c.c_car);V79=(V79)->c.c_cdr;} |
668 |
vs_base=base+2;} |
vs_base=base+2;} |
669 |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
670 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
671 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
672 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
673 |
return; |
return; |
674 |
goto T198; |
goto T234; |
675 |
T198:; |
T234:; |
676 |
{object V76; |
{object V80; |
677 |
V76= (VFUN_NARGS=3,(*(LnkLI54))((base0[1]->c.c_car),(V64),(VV[30]->s.s_dbind))); |
V80= (VFUN_NARGS=3,(*(LnkLI69))((base0[1]->c.c_car),(V68),(VV[44]->s.s_dbind))); |
678 |
if(!(((V76))==((VV[30]->s.s_dbind)))){ |
if(!(((V80))==((VV[44]->s.s_dbind)))){ |
679 |
goto T204;} |
goto T240;} |
680 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
681 |
{object V77; |
{object V81; |
682 |
V77= (V60); |
V81= (V64); |
683 |
vs_top=base+2; |
vs_top=base+2; |
684 |
while(V77!=Cnil) |
while(V81!=Cnil) |
685 |
{vs_push((V77)->c.c_car);V77=(V77)->c.c_cdr;} |
{vs_push((V81)->c.c_car);V81=(V81)->c.c_cdr;} |
686 |
vs_base=base+2;} |
vs_base=base+2;} |
687 |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
688 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
689 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
690 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
691 |
return; |
return; |
692 |
goto T204; |
goto T240; |
693 |
T204:; |
T240:; |
694 |
if(((base0[2]->c.c_car))==Cnil){ |
if(((base0[2]->c.c_car))==Cnil){ |
695 |
goto T209;} |
goto T245;} |
696 |
base[1]= (V76); |
base[1]= (V80); |
697 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
698 |
return; |
return; |
699 |
goto T209; |
goto T245; |
700 |
T209:; |
T245:; |
701 |
base[1]= (V76); |
base[1]= (V80); |
702 |
base[2]= (V60); |
base[2]= (V64); |
703 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
704 |
(void) (*Lnk51)(); |
(void) (*Lnk66)(); |
705 |
return;}} |
return;}} |
706 |
} |
} |
707 |
} |
} |
729 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
730 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM16; VC16 |
731 |
vs_check; |
vs_check; |
732 |
{object V78; |
{object V82; |
733 |
object V79; |
object V83; |
734 |
check_arg(2); |
check_arg(2); |
735 |
V78=(base[0]); |
V82=(base[0]); |
736 |
V79=(base[1]); |
V83=(base[1]); |
737 |
vs_top=sup; |
vs_top=sup; |
738 |
{object V80; |
{object V84; |
739 |
V80= Cnil; |
V84= Cnil; |
740 |
{long V81; |
{long V85; |
|
object V82; |
|
|
long V83; |
|
|
long V84; |
|
|
object V85; |
|
741 |
object V86; |
object V86; |
742 |
V81= (long)STREF(unsigned char,(base0[2]->c.c_car),16); |
long V87; |
743 |
V82= STREF(object,(base0[2]->c.c_car),40); |
long V88; |
744 |
V83= (long)STREF(fixnum,(base0[2]->c.c_car),24); |
object V89; |
745 |
V84= (long)STREF(fixnum,(base0[2]->c.c_car),28); |
object V90; |
746 |
V85= STREF(object,(base0[2]->c.c_car),44); |
V85= (long)STREF(unsigned char,(base0[2]->c.c_car),16); |
747 |
if(type_of(V79)==t_structure){ |
V86= STREF(object,(base0[2]->c.c_car),40); |
748 |
goto T224;} |
V87= (long)STREF(fixnum,(base0[2]->c.c_car),24); |
749 |
goto T222; |
V88= (long)STREF(fixnum,(base0[2]->c.c_car),28); |
750 |
goto T224; |
V89= STREF(object,(base0[2]->c.c_car),44); |
751 |
T224:; |
if(type_of(V83)==t_structure){ |
752 |
if(!(((V79)->str.str_def)==(VV[22]))){ |
goto T260;} |
753 |
goto T222;} |
goto T258; |
754 |
V80= STREF(object,(V79),4); |
goto T260; |
755 |
V86= STREF(object,(V79),0); |
T260:; |
756 |
goto T220; |
if(!(((V83)->str.str_def)==(VV[34]))){ |
757 |
goto T222; |
goto T258;} |
758 |
T222:;{object V88; |
V84= STREF(object,(V83),4); |
759 |
V88= (VV[3]->s.s_dbind); |
V90= STREF(object,(V83),0); |
760 |
|
goto T256; |
761 |
|
goto T258; |
762 |
|
T258:;{object V92; |
763 |
|
V92= (VV[3]->s.s_dbind); |
764 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
765 |
base[3]= (V79); |
base[3]= (V83); |
766 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
767 |
(void) (*Lnk55)(); |
(void) (*Lnk70)(); |
768 |
vs_top=sup; |
vs_top=sup; |
769 |
V89= vs_base[0]; |
V93= vs_base[0]; |
770 |
if(!((V88)==(CMPcar(V89)))){ |
if(!((V92)==(CMPcar(V93)))){ |
771 |
goto T229;}} |
goto T265;}} |
772 |
V80= CMPcar(((V79))->cc.cc_turbo[12]); |
V84= CMPcar(((V83))->cc.cc_turbo[12]); |
773 |
V86= CMPcar(((V79))->cc.cc_turbo[13]); |
V90= CMPcar(((V83))->cc.cc_turbo[13]); |
774 |
goto T220; |
goto T256; |
775 |
goto T229; |
goto T265; |
776 |
T229:; |
T265:; |
777 |
goto T214; |
goto T250; |
778 |
goto T220; |
goto T256; |
779 |
T220:; |
T256:; |
780 |
{long V90; |
{long V94; |
781 |
long V91; |
long V95; |
782 |
{long V92; |
{long V96; |
783 |
V92= fix(((V86))->v.v_self[V81]); |
V96= fix(((V90))->v.v_self[V85]); |
784 |
if(!((V92)==0)){ |
if(!((V96)==0)){ |
785 |
goto T239;} |
goto T275;} |
786 |
goto T214; |
goto T250; |
787 |
goto T239; |
goto T275; |
788 |
T239:; |
T275:; |
789 |
V90= (long)((V83) & (V92));} |
V94= (long)((V87) & (V96));} |
790 |
V91= V90; |
V95= V94; |
791 |
goto T244; |
goto T280; |
792 |
T244:; |
T280:; |
793 |
if(!(((V86))==(((V82))->v.v_self[V91]))){ |
if(!(((V90))==(((V86))->v.v_self[V95]))){ |
794 |
goto T246;} |
goto T282;} |
795 |
goto T236; |
goto T272; |
796 |
goto T246; |
goto T282; |
797 |
T246:; |
T282:; |
798 |
V91= (long)(V91)+(1); |
V95= (long)(V95)+(1); |
799 |
if(!((V91)==(V84))){ |
if(!((V95)==(V88))){ |
800 |
goto T251;} |
goto T287;} |
801 |
V91= 0; |
V95= 0; |
802 |
goto T251; |
goto T287; |
803 |
T251:; |
T287:; |
804 |
if(!((V91)==(V90))){ |
if(!((V95)==(V94))){ |
805 |
goto T245;} |
goto T281;} |
806 |
{register object V93; |
{register object V97; |
807 |
object V94; |
object V98; |
808 |
V93= (V85); |
V97= (V89); |
809 |
V94= CMPcar((V93)); |
V98= CMPcar((V97)); |
810 |
goto T261; |
goto T297; |
811 |
T261:; |
T297:; |
812 |
if(!(((V93))==Cnil)){ |
if(!(((V97))==Cnil)){ |
813 |
goto T262;} |
goto T298;} |
814 |
goto T257; |
goto T293; |
815 |
goto T262; |
goto T298; |
816 |
T262:; |
T298:; |
817 |
if(!((CMPcar((V94)))==((V86)))){ |
if(!((CMPcar((V98)))==((V90)))){ |
818 |
goto T266;} |
goto T302;} |
819 |
goto T236; |
goto T272; |
820 |
goto T266; |
goto T302; |
821 |
T266:; |
T302:; |
822 |
V93= CMPcdr((V93)); |
V97= CMPcdr((V97)); |
823 |
V94= CMPcar((V93)); |
V98= CMPcar((V97)); |
824 |
goto T261;} |
goto T297;} |
825 |
goto T257; |
goto T293; |
826 |
T257:; |
T293:; |
827 |
goto T214; |
goto T250; |
828 |
goto T245; |
goto T281; |
829 |
T245:; |
T281:; |
830 |
goto T244;} |
goto T280;} |
831 |
goto T236; |
goto T272; |
832 |
T236:; |
T272:; |
833 |
base[2]= ((V80))->v.v_self[fix((base0[1]->c.c_car))]= ((V78)); |
base[2]= ((V84))->v.v_self[fix((base0[1]->c.c_car))]= ((V82)); |
834 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
835 |
return;} |
return;} |
836 |
goto T214; |
goto T250; |
837 |
T214:; |
T250:; |
838 |
base[2]= (V78); |
base[2]= (V82); |
839 |
base[3]= (V79); |
base[3]= (V83); |
840 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
841 |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
842 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
872 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
873 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM18; VC18 |
874 |
vs_check; |
vs_check; |
875 |
{object V95; |
{object V99; |
876 |
object V96; |
object V100; |
877 |
check_arg(2); |
check_arg(2); |
878 |
V95=(base[0]); |
V99=(base[0]); |
879 |
V96=(base[1]); |
V100=(base[1]); |
880 |
vs_top=sup; |
vs_top=sup; |
881 |
{long V97; |
{long V101; |
|
object V98; |
|
|
long V99; |
|
|
long V100; |
|
|
object V101; |
|
882 |
object V102; |
object V102; |
883 |
V97= (long)STREF(unsigned char,(base0[2]->c.c_car),16); |
long V103; |
884 |
V98= STREF(object,(base0[2]->c.c_car),40); |
long V104; |
885 |
V99= (long)STREF(fixnum,(base0[2]->c.c_car),24); |
object V105; |
886 |
V100= (long)STREF(fixnum,(base0[2]->c.c_car),28); |
object V106; |
887 |
V101= STREF(object,(base0[2]->c.c_car),44); |
V101= (long)STREF(unsigned char,(base0[2]->c.c_car),16); |
888 |
if(type_of(V96)==t_structure){ |
V102= STREF(object,(base0[2]->c.c_car),40); |
889 |
goto T289;} |
V103= (long)STREF(fixnum,(base0[2]->c.c_car),24); |
890 |
goto T287; |
V104= (long)STREF(fixnum,(base0[2]->c.c_car),28); |
891 |
goto T289; |
V105= STREF(object,(base0[2]->c.c_car),44); |
892 |
T289:; |
if(type_of(V100)==t_structure){ |
893 |
if(!(((V96)->str.str_def)==(VV[21]))){ |
goto T325;} |
894 |
goto T287;} |
goto T323; |
895 |
V102= STREF(object,(V96),0); |
goto T325; |
896 |
goto T285; |
T325:; |
897 |
goto T287; |
if(!(((V100)->str.str_def)==(VV[33]))){ |
898 |
T287:;{object V104; |
goto T323;} |
899 |
V104= (VV[3]->s.s_dbind); |
V106= STREF(object,(V100),0); |
900 |
|
goto T321; |
901 |
|
goto T323; |
902 |
|
T323:;{object V108; |
903 |
|
V108= (VV[3]->s.s_dbind); |
904 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
905 |
base[3]= (V96); |
base[3]= (V100); |
906 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
907 |
(void) (*Lnk55)(); |
(void) (*Lnk70)(); |
908 |
vs_top=sup; |
vs_top=sup; |
909 |
V105= vs_base[0]; |
V109= vs_base[0]; |
910 |
if(!((V104)==(CMPcar(V105)))){ |
if(!((V108)==(CMPcar(V109)))){ |
911 |
goto T292;}} |
goto T328;}} |
912 |
V102= CMPcar(((V96))->cc.cc_turbo[13]); |
V106= CMPcar(((V100))->cc.cc_turbo[13]); |
913 |
goto T285; |
goto T321; |
914 |
goto T292; |
goto T328; |
915 |
T292:; |
T328:; |
916 |
goto T279; |
goto T315; |
917 |
goto T285; |
goto T321; |
918 |
T285:; |
T321:; |
919 |
{long V106; |
{long V110; |
920 |
long V107; |
long V111; |
921 |
{long V108; |
{long V112; |
922 |
V108= fix(((V102))->v.v_self[V97]); |
V112= fix(((V106))->v.v_self[V101]); |
923 |
if(!((V108)==0)){ |
if(!((V112)==0)){ |
924 |
goto T300;} |
goto T336;} |
925 |
goto T279; |
goto T315; |
926 |
goto T300; |
goto T336; |
927 |
T300:; |
T336:; |
928 |
V106= (long)((V99) & (V108));} |
V110= (long)((V103) & (V112));} |
929 |
V107= V106; |
V111= V110; |
930 |
goto T305; |
goto T341; |
931 |
T305:; |
T341:; |
932 |
if(!(((V102))==(((V98))->v.v_self[V107]))){ |
if(!(((V106))==(((V102))->v.v_self[V111]))){ |
933 |
goto T307;} |
goto T343;} |
934 |
goto T297; |
goto T333; |
935 |
goto T307; |
goto T343; |
936 |
T307:; |
T343:; |
937 |
V107= (long)(V107)+(1); |
V111= (long)(V111)+(1); |
938 |
if(!((V107)==(V100))){ |
if(!((V111)==(V104))){ |
939 |
goto T312;} |
goto T348;} |
940 |
V107= 0; |
V111= 0; |
941 |
goto T312; |
goto T348; |
942 |
T312:; |
T348:; |
943 |
if(!((V107)==(V106))){ |
if(!((V111)==(V110))){ |
944 |
goto T306;} |
goto T342;} |
945 |
{register object V109; |
{register object V113; |
946 |
object V110; |
object V114; |
947 |
V109= (V101); |
V113= (V105); |
948 |
V110= CMPcar((V109)); |
V114= CMPcar((V113)); |
949 |
goto T322; |
goto T358; |
950 |
T322:; |
T358:; |
951 |
if(!(((V109))==Cnil)){ |
if(!(((V113))==Cnil)){ |
952 |
goto T323;} |
goto T359;} |
953 |
goto T318; |
goto T354; |
954 |
goto T323; |
goto T359; |
955 |
T323:; |
T359:; |
956 |
if(!((CMPcar((V110)))==((V102)))){ |
if(!((CMPcar((V114)))==((V106)))){ |
957 |
goto T327;} |
goto T363;} |
958 |
goto T297; |
goto T333; |
959 |
goto T327; |
goto T363; |
960 |
T327:; |
T363:; |
961 |
V109= CMPcdr((V109)); |
V113= CMPcdr((V113)); |
962 |
V110= CMPcar((V109)); |
V114= CMPcar((V113)); |
963 |
goto T322;} |
goto T358;} |
964 |
goto T318; |
goto T354; |
965 |
T318:; |
T354:; |
966 |
goto T279; |
goto T315; |
967 |
goto T306; |
goto T342; |
968 |
T306:; |
T342:; |
969 |
goto T305;} |
goto T341;} |
970 |
goto T297; |
goto T333; |
971 |
T297:; |
T333:; |
972 |
{object V111; |
{object V115; |
973 |
V111= (base0[1]->c.c_car); |
V115= (base0[1]->c.c_car); |
974 |
((V111))->c.c_cdr = V95; |
((V115))->c.c_cdr = V99; |
975 |
base[2]= V95; |
base[2]= V99; |
976 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
977 |
return;}} |
return;}} |
978 |
goto T279; |
goto T315; |
979 |
T279:; |
T315:; |
980 |
base[2]= (V95); |
base[2]= (V99); |
981 |
base[3]= (V96); |
base[3]= (V100); |
982 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
983 |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
984 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1013 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1014 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
1015 |
vs_check; |
vs_check; |
1016 |
{object V113; |
{object V117; |
1017 |
object V114; |
object V118; |
1018 |
check_arg(2); |
check_arg(2); |
1019 |
V113=(base[0]); |
V117=(base[0]); |
1020 |
V114=(base[1]); |
V118=(base[1]); |
1021 |
vs_top=sup; |
vs_top=sup; |
1022 |
{object V115; |
{object V119; |
1023 |
object V116; |
object V120; |
1024 |
V115= Cnil; |
V119= Cnil; |
1025 |
V116= Cnil; |
V120= Cnil; |
1026 |
{long V117; |
{long V121; |
|
object V118; |
|
|
long V119; |
|
|
long V120; |
|
|
object V121; |
|
1027 |
object V122; |
object V122; |
1028 |
V117= (long)STREF(unsigned char,(base0[1]->c.c_car),16); |
long V123; |
1029 |
V118= STREF(object,(base0[1]->c.c_car),40); |
long V124; |
1030 |
V119= (long)STREF(fixnum,(base0[1]->c.c_car),24); |
object V125; |
1031 |
V120= (long)STREF(fixnum,(base0[1]->c.c_car),28); |
object V126; |
1032 |
V121= STREF(object,(base0[1]->c.c_car),44); |
V121= (long)STREF(unsigned char,(base0[1]->c.c_car),16); |
1033 |
if(type_of(V114)==t_structure){ |
V122= STREF(object,(base0[1]->c.c_car),40); |
1034 |
goto T352;} |
V123= (long)STREF(fixnum,(base0[1]->c.c_car),24); |
1035 |
goto T350; |
V124= (long)STREF(fixnum,(base0[1]->c.c_car),28); |
1036 |
goto T352; |
V125= STREF(object,(base0[1]->c.c_car),44); |
1037 |
T352:; |
if(type_of(V118)==t_structure){ |
1038 |
if(!(((V114)->str.str_def)==(VV[20]))){ |
goto T388;} |
1039 |
goto T350;} |
goto T386; |
1040 |
V115= STREF(object,(V114),4); |
goto T388; |
1041 |
V122= STREF(object,(V114),0); |
T388:; |
1042 |
goto T348; |
if(!(((V118)->str.str_def)==(VV[32]))){ |
1043 |
goto T350; |
goto T386;} |
1044 |
T350:;{object V124; |
V119= STREF(object,(V118),4); |
1045 |
V124= (VV[3]->s.s_dbind); |
V126= STREF(object,(V118),0); |
1046 |
|
goto T384; |
1047 |
|
goto T386; |
1048 |
|
T386:;{object V128; |
1049 |
|
V128= (VV[3]->s.s_dbind); |
1050 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
1051 |
base[3]= (V114); |
base[3]= (V118); |
1052 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1053 |
(void) (*Lnk55)(); |
(void) (*Lnk70)(); |
1054 |
vs_top=sup; |
vs_top=sup; |
1055 |
V125= vs_base[0]; |
V129= vs_base[0]; |
1056 |
if(!((V124)==(CMPcar(V125)))){ |
if(!((V128)==(CMPcar(V129)))){ |
1057 |
goto T357;}} |
goto T393;}} |
1058 |
V115= CMPcar(((V114))->cc.cc_turbo[12]); |
V119= CMPcar(((V118))->cc.cc_turbo[12]); |
1059 |
V122= CMPcar(((V114))->cc.cc_turbo[13]); |
V126= CMPcar(((V118))->cc.cc_turbo[13]); |
1060 |
goto T348; |
goto T384; |
1061 |
goto T357; |
goto T393; |
1062 |
T357:; |
T393:; |
1063 |
goto T342; |
goto T378; |
1064 |
goto T348; |
goto T384; |
1065 |
T348:; |
T384:; |
|
{long V126; |
|
|
long V127; |
|
|
{long V128; |
|
|
V128= fix(((V122))->v.v_self[V117]); |
|
|
if(!((V128)==0)){ |
|
|
goto T367;} |
|
|
goto T342; |
|
|
goto T367; |
|
|
T367:; |
|
|
V126= (long)((V119) & (V128));} |
|
|
{object V129; |
|
|
V129= ((V118))->v.v_self[0]; |
|
|
if(type_of((V129))==t_fixnum){ |
|
|
goto T372;} |
|
|
base[2]= VV[15]; |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
Lerror(); |
|
|
vs_top=sup; |
|
|
goto T372; |
|
|
T372:; |
|
|
V127= fix((V129));} |
|
1066 |
{long V130; |
{long V130; |
1067 |
V130= V126; |
long V131; |
1068 |
goto T379; |
{long V132; |
1069 |
T379:; |
V132= fix(((V126))->v.v_self[V121]); |
1070 |
if(!(((V122))==(((V118))->v.v_self[V130]))){ |
if(!((V132)==0)){ |
|
goto T381;} |
|
|
V116= ((V118))->v.v_self[(long)(V130)+1]; |
|
|
goto T377; |
|
|
goto T381; |
|
|
T381:; |
|
|
V130= (long)(V130)+(2); |
|
|
if(!((V130)==(V120))){ |
|
|
goto T388;} |
|
|
V130= 0; |
|
|
goto T388; |
|
|
T388:; |
|
|
if(!((V130)==(V126))){ |
|
|
goto T380;} |
|
|
{register object V131; |
|
|
object V132; |
|
|
V131= (V121); |
|
|
V132= CMPcar((V131)); |
|
|
goto T398; |
|
|
T398:; |
|
|
if(!(((V131))==Cnil)){ |
|
|
goto T399;} |
|
|
goto T394; |
|
|
goto T399; |
|
|
T399:; |
|
|
if(!((CMPcar((V132)))==((V122)))){ |
|
1071 |
goto T403;} |
goto T403;} |
1072 |
V116= CMPcdr((V132)); |
goto T378; |
|
goto T377; |
|
1073 |
goto T403; |
goto T403; |
1074 |
T403:; |
T403:; |
1075 |
V131= CMPcdr((V131)); |
V130= (long)((V123) & (V132));} |
1076 |
V132= CMPcar((V131)); |
{object V133; |
1077 |
goto T398;} |
V133= ((V122))->v.v_self[0]; |
1078 |
goto T394; |
if(type_of((V133))==t_fixnum){ |
1079 |
T394:; |
goto T408;} |
1080 |
goto T342; |
base[2]= VV[27]; |
|
goto T380; |
|
|
T380:; |
|
|
goto T379; |
|
|
goto T377; |
|
|
T377:; |
|
|
V133 = V127; |
|
|
{object V135; |
|
|
V135= ((V118))->v.v_self[0]; |
|
|
if(type_of((V135))==t_fixnum){ |
|
|
goto T418;} |
|
|
base[2]= VV[15]; |
|
1081 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1082 |
Lerror(); |
Lerror(); |
1083 |
vs_top=sup; |
vs_top=sup; |
1084 |
goto T418; |
goto T408; |
1085 |
T418:; |
T408:; |
1086 |
V134= fix((V135));} |
V131= fix((V133));} |
1087 |
if((V133)==(V134)){ |
{long V134; |
1088 |
goto T364;} |
V134= V130; |
1089 |
goto T342;}} |
goto T415; |
1090 |
goto T364; |
T415:; |
1091 |
T364:; |
if(!(((V126))==(((V122))->v.v_self[V134]))){ |
1092 |
base[2]= ((V115))->v.v_self[fix((V116))]= ((V113)); |
goto T417;} |
1093 |
|
V120= ((V122))->v.v_self[(long)(V134)+1]; |
1094 |
|
goto T413; |
1095 |
|
goto T417; |
1096 |
|
T417:; |
1097 |
|
V134= (long)(V134)+(2); |
1098 |
|
if(!((V134)==(V124))){ |
1099 |
|
goto T424;} |
1100 |
|
V134= 0; |
1101 |
|
goto T424; |
1102 |
|
T424:; |
1103 |
|
if(!((V134)==(V130))){ |
1104 |
|
goto T416;} |
1105 |
|
{register object V135; |
1106 |
|
object V136; |
1107 |
|
V135= (V125); |
1108 |
|
V136= CMPcar((V135)); |
1109 |
|
goto T434; |
1110 |
|
T434:; |
1111 |
|
if(!(((V135))==Cnil)){ |
1112 |
|
goto T435;} |
1113 |
|
goto T430; |
1114 |
|
goto T435; |
1115 |
|
T435:; |
1116 |
|
if(!((CMPcar((V136)))==((V126)))){ |
1117 |
|
goto T439;} |
1118 |
|
V120= CMPcdr((V136)); |
1119 |
|
goto T413; |
1120 |
|
goto T439; |
1121 |
|
T439:; |
1122 |
|
V135= CMPcdr((V135)); |
1123 |
|
V136= CMPcar((V135)); |
1124 |
|
goto T434;} |
1125 |
|
goto T430; |
1126 |
|
T430:; |
1127 |
|
goto T378; |
1128 |
|
goto T416; |
1129 |
|
T416:; |
1130 |
|
goto T415; |
1131 |
|
goto T413; |
1132 |
|
T413:; |
1133 |
|
{object V138; |
1134 |
|
V138= ((V122))->v.v_self[0]; |
1135 |
|
if(type_of((V138))==t_fixnum){ |
1136 |
|
goto T454;} |
1137 |
|
base[2]= VV[27]; |
1138 |
|
vs_top=(vs_base=base+2)+1; |
1139 |
|
Lerror(); |
1140 |
|
vs_top=sup; |
1141 |
|
goto T454; |
1142 |
|
T454:; |
1143 |
|
V137= fix((V138));} |
1144 |
|
if((V131)==(V137)){ |
1145 |
|
goto T400;} |
1146 |
|
goto T378;}} |
1147 |
|
goto T400; |
1148 |
|
T400:; |
1149 |
|
base[2]= ((V119))->v.v_self[fix((V120))]= ((V117)); |
1150 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1151 |
return;} |
return;} |
1152 |
goto T342; |
goto T378; |
1153 |
T342:; |
T378:; |
1154 |
base[2]= (V113); |
base[2]= (V117); |
1155 |
base[3]= (V114); |
base[3]= (V118); |
1156 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1157 |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1158 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1187 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1188 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM22; VC22 |
1189 |
vs_check; |
vs_check; |
1190 |
{object V136; |
{object V139; |
1191 |
object V137; |
object V140; |
1192 |
check_arg(2); |
check_arg(2); |
1193 |
V136=(base[0]); |
V139=(base[0]); |
1194 |
V137=(base[1]); |
V140=(base[1]); |
1195 |
vs_top=sup; |
vs_top=sup; |
1196 |
{object V138; |
{object V141; |
1197 |
V138= Cnil; |
V141= Cnil; |
1198 |
{long V139; |
{long V142; |
|
object V140; |
|
|
long V141; |
|
|
long V142; |
|
1199 |
object V143; |
object V143; |
1200 |
object V144; |
long V144; |
1201 |
V139= (long)STREF(unsigned char,(base0[1]->c.c_car),16); |
long V145; |
1202 |
V140= STREF(object,(base0[1]->c.c_car),40); |
object V146; |
1203 |
V141= (long)STREF(fixnum,(base0[1]->c.c_car),24); |
object V147; |
1204 |
V142= (long)STREF(fixnum,(base0[1]->c.c_car),28); |
V142= (long)STREF(unsigned char,(base0[1]->c.c_car),16); |
1205 |
V143= STREF(object,(base0[1]->c.c_car),44); |
V143= STREF(object,(base0[1]->c.c_car),40); |
1206 |
if(type_of(V137)==t_structure){ |
V144= (long)STREF(fixnum,(base0[1]->c.c_car),24); |
1207 |
goto T436;} |
V145= (long)STREF(fixnum,(base0[1]->c.c_car),28); |
1208 |
goto T434; |
V146= STREF(object,(base0[1]->c.c_car),44); |
1209 |
goto T436; |
if(type_of(V140)==t_structure){ |
1210 |
T436:; |
goto T472;} |
1211 |
if(!(((V137)->str.str_def)==(VV[19]))){ |
goto T470; |
1212 |
goto T434;} |
goto T472; |
1213 |
V144= STREF(object,(V137),0); |
T472:; |
1214 |
goto T432; |
if(!(((V140)->str.str_def)==(VV[31]))){ |
1215 |
goto T434; |
goto T470;} |
1216 |
T434:;{object V146; |
V147= STREF(object,(V140),0); |
1217 |
V146= (VV[3]->s.s_dbind); |
goto T468; |
1218 |
|
goto T470; |
1219 |
|
T470:;{object V149; |
1220 |
|
V149= (VV[3]->s.s_dbind); |
1221 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
1222 |
base[3]= (V137); |
base[3]= (V140); |
1223 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1224 |
(void) (*Lnk55)(); |
(void) (*Lnk70)(); |
|
vs_top=sup; |
|
|
V147= vs_base[0]; |
|
|
if(!((V146)==(CMPcar(V147)))){ |
|
|
goto T439;}} |
|
|
V144= CMPcar(((V137))->cc.cc_turbo[13]); |
|
|
goto T432; |
|
|
goto T439; |
|
|
T439:; |
|
|
goto T426; |
|
|
goto T432; |
|
|
T432:; |
|
|
{long V148; |
|
|
long V149; |
|
|
{long V150; |
|
|
V150= fix(((V144))->v.v_self[V139]); |
|
|
if(!((V150)==0)){ |
|
|
goto T447;} |
|
|
goto T426; |
|
|
goto T447; |
|
|
T447:; |
|
|
V148= (long)((V141) & (V150));} |
|
|
{object V151; |
|
|
V151= ((V140))->v.v_self[0]; |
|
|
if(type_of((V151))==t_fixnum){ |
|
|
goto T452;} |
|
|
base[2]= VV[15]; |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
Lerror(); |
|
1225 |
vs_top=sup; |
vs_top=sup; |
1226 |
goto T452; |
V150= vs_base[0]; |
1227 |
T452:; |
if(!((V149)==(CMPcar(V150)))){ |
1228 |
V149= fix((V151));} |
goto T475;}} |
1229 |
{long V152; |
V147= CMPcar(((V140))->cc.cc_turbo[13]); |
1230 |
V152= V148; |
goto T468; |
1231 |
goto T459; |
goto T475; |
1232 |
T459:; |
T475:; |
1233 |
if(!(((V144))==(((V140))->v.v_self[V152]))){ |
goto T462; |
|
goto T461;} |
|
|
V138= ((V140))->v.v_self[(long)(V152)+1]; |
|
|
goto T457; |
|
|
goto T461; |
|
|
T461:; |
|
|
V152= (long)(V152)+(2); |
|
|
if(!((V152)==(V142))){ |
|
|
goto T468;} |
|
|
V152= 0; |
|
1234 |
goto T468; |
goto T468; |
1235 |
T468:; |
T468:; |
1236 |
if(!((V152)==(V148))){ |
{long V151; |
1237 |
goto T460;} |
long V152; |
1238 |
{register object V153; |
{long V153; |
1239 |
object V154; |
V153= fix(((V147))->v.v_self[V142]); |
1240 |
V153= (V143); |
if(!((V153)==0)){ |
|
V154= CMPcar((V153)); |
|
|
goto T478; |
|
|
T478:; |
|
|
if(!(((V153))==Cnil)){ |
|
|
goto T479;} |
|
|
goto T474; |
|
|
goto T479; |
|
|
T479:; |
|
|
if(!((CMPcar((V154)))==((V144)))){ |
|
1241 |
goto T483;} |
goto T483;} |
1242 |
V138= CMPcdr((V154)); |
goto T462; |
|
goto T457; |
|
1243 |
goto T483; |
goto T483; |
1244 |
T483:; |
T483:; |
1245 |
V153= CMPcdr((V153)); |
V151= (long)((V144) & (V153));} |
1246 |
V154= CMPcar((V153)); |
{object V154; |
1247 |
goto T478;} |
V154= ((V143))->v.v_self[0]; |
1248 |
goto T474; |
if(type_of((V154))==t_fixnum){ |
1249 |
T474:; |
goto T488;} |
1250 |
goto T426; |
base[2]= VV[27]; |
1251 |
goto T460; |
vs_top=(vs_base=base+2)+1; |
1252 |
T460:; |
Lerror(); |
1253 |
goto T459; |
vs_top=sup; |
1254 |
goto T457; |
goto T488; |
1255 |
T457:; |
T488:; |
1256 |
V155 = V149; |
V152= fix((V154));} |
1257 |
{object V157; |
{long V155; |
1258 |
V157= ((V140))->v.v_self[0]; |
V155= V151; |
1259 |
if(type_of((V157))==t_fixnum){ |
goto T495; |
1260 |
goto T498;} |
T495:; |
1261 |
base[2]= VV[15]; |
if(!(((V147))==(((V143))->v.v_self[V155]))){ |
1262 |
|
goto T497;} |
1263 |
|
V141= ((V143))->v.v_self[(long)(V155)+1]; |
1264 |
|
goto T493; |
1265 |
|
goto T497; |
1266 |
|
T497:; |
1267 |
|
V155= (long)(V155)+(2); |
1268 |
|
if(!((V155)==(V145))){ |
1269 |
|
goto T504;} |
1270 |
|
V155= 0; |
1271 |
|
goto T504; |
1272 |
|
T504:; |
1273 |
|
if(!((V155)==(V151))){ |
1274 |
|
goto T496;} |
1275 |
|
{register object V156; |
1276 |
|
object V157; |
1277 |
|
V156= (V146); |
1278 |
|
V157= CMPcar((V156)); |
1279 |
|
goto T514; |
1280 |
|
T514:; |
1281 |
|
if(!(((V156))==Cnil)){ |
1282 |
|
goto T515;} |
1283 |
|
goto T510; |
1284 |
|
goto T515; |
1285 |
|
T515:; |
1286 |
|
if(!((CMPcar((V157)))==((V147)))){ |
1287 |
|
goto T519;} |
1288 |
|
V141= CMPcdr((V157)); |
1289 |
|
goto T493; |
1290 |
|
goto T519; |
1291 |
|
T519:; |
1292 |
|
V156= CMPcdr((V156)); |
1293 |
|
V157= CMPcar((V156)); |
1294 |
|
goto T514;} |
1295 |
|
goto T510; |
1296 |
|
T510:; |
1297 |
|
goto T462; |
1298 |
|
goto T496; |
1299 |
|
T496:; |
1300 |
|
goto T495; |
1301 |
|
goto T493; |
1302 |
|
T493:; |
1303 |
|
{object V159; |
1304 |
|
V159= ((V143))->v.v_self[0]; |
1305 |
|
if(type_of((V159))==t_fixnum){ |
1306 |
|
goto T534;} |
1307 |
|
base[2]= VV[27]; |
1308 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1309 |
Lerror(); |
Lerror(); |
1310 |
vs_top=sup; |
vs_top=sup; |
1311 |
goto T498; |
goto T534; |
1312 |
T498:; |
T534:; |
1313 |
V156= fix((V157));} |
V158= fix((V159));} |
1314 |
if((V155)==(V156)){ |
if((V152)==(V158)){ |
1315 |
goto T444;} |
goto T480;} |
1316 |
goto T426;}} |
goto T462;}} |
1317 |
goto T444; |
goto T480; |
1318 |
T444:; |
T480:; |
1319 |
(V138)->c.c_cdr = V136; |
(V141)->c.c_cdr = V139; |
1320 |
base[2]= V136; |
base[2]= V139; |
1321 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1322 |
return;} |
return;} |
1323 |
goto T426; |
goto T462; |
1324 |
T426:; |
T462:; |
1325 |
base[2]= (V136); |
base[2]= (V139); |
1326 |
base[3]= (V137); |
base[3]= (V140); |
1327 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1328 |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1329 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1359 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1360 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM24; VC24 |
1361 |
vs_check; |
vs_check; |
1362 |
{object V160; |
{object V162; |
1363 |
check_arg(1); |
check_arg(1); |
1364 |
V160=(base[0]); |
V162=(base[0]); |
1365 |
vs_top=sup; |
vs_top=sup; |
1366 |
{object V161; |
{object V163; |
1367 |
V161= Cnil; |
V163= Cnil; |
1368 |
{long V162; |
{long V164; |
1369 |
object V163; |
object V165; |
1370 |
long V164; |
long V166; |
1371 |
long V165; |
long V167; |
1372 |
object V166; |
object V168; |
1373 |
object V167; |
object V169; |
1374 |
V162= (long)STREF(unsigned char,(base0[2]->c.c_car),16); |
V164= (long)STREF(unsigned char,(base0[2]->c.c_car),16); |
1375 |
V163= STREF(object,(base0[2]->c.c_car),40); |
V165= STREF(object,(base0[2]->c.c_car),40); |
1376 |
V164= (long)STREF(fixnum,(base0[2]->c.c_car),24); |
V166= (long)STREF(fixnum,(base0[2]->c.c_car),24); |
1377 |
V165= (long)STREF(fixnum,(base0[2]->c.c_car),28); |
V167= (long)STREF(fixnum,(base0[2]->c.c_car),28); |
1378 |
V166= STREF(object,(base0[2]->c.c_car),44); |
V168= STREF(object,(base0[2]->c.c_car),44); |
1379 |
if(type_of(V160)==t_structure){ |
if(type_of(V162)==t_structure){ |
1380 |
goto T517;} |
goto T553;} |
1381 |
goto T515; |
goto T551; |
1382 |
goto T517; |
goto T553; |
1383 |
T517:; |
T553:; |
1384 |
if(!(((V160)->str.str_def)==(VV[18]))){ |
if(!(((V162)->str.str_def)==(VV[30]))){ |
1385 |
goto T515;} |
goto T551;} |
1386 |
V161= STREF(object,(V160),4); |
V163= STREF(object,(V162),4); |
1387 |
V167= STREF(object,(V160),0); |
V169= STREF(object,(V162),0); |
1388 |
goto T513; |
goto T549; |
1389 |
goto T515; |
goto T551; |
1390 |
T515:;{object V169; |
T551:;{object V171; |
1391 |
V169= (VV[3]->s.s_dbind); |
V171= (VV[3]->s.s_dbind); |
1392 |
base[1]= small_fixnum(14); |
base[1]= small_fixnum(14); |
1393 |
base[2]= (V160); |
base[2]= (V162); |
1394 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1395 |
(void) (*Lnk55)(); |
(void) (*Lnk70)(); |
1396 |
vs_top=sup; |
vs_top=sup; |
1397 |
V170= vs_base[0]; |
V172= vs_base[0]; |
1398 |
if(!((V169)==(CMPcar(V170)))){ |
if(!((V171)==(CMPcar(V172)))){ |
1399 |
goto T522;}} |
goto T558;}} |
1400 |
V161= CMPcar(((V160))->cc.cc_turbo[12]); |
V163= CMPcar(((V162))->cc.cc_turbo[12]); |
1401 |
V167= CMPcar(((V160))->cc.cc_turbo[13]); |
V169= CMPcar(((V162))->cc.cc_turbo[13]); |
1402 |
goto T513; |
goto T549; |
1403 |
goto T522; |
goto T558; |
1404 |
T522:; |
T558:; |
1405 |
goto T507; |
goto T543; |
1406 |
goto T513; |
goto T549; |
1407 |
T513:; |
T549:; |
|
{long V171; |
|
|
long V172; |
|
1408 |
{long V173; |
{long V173; |
1409 |
V173= fix(((V167))->v.v_self[V162]); |
long V174; |
1410 |
if(!((V173)==0)){ |
{long V175; |
1411 |
goto T532;} |
V175= fix(((V169))->v.v_self[V164]); |
1412 |
goto T507; |
if(!((V175)==0)){ |
1413 |
goto T532; |
goto T568;} |
1414 |
T532:; |
goto T543; |
1415 |
V171= (long)((V164) & (V173));} |
goto T568; |
1416 |
V172= V171; |
T568:; |
1417 |
goto T537; |
V173= (long)((V166) & (V175));} |
1418 |
T537:; |
V174= V173; |
1419 |
if(!(((V167))==(((V163))->v.v_self[V172]))){ |
goto T573; |
1420 |
goto T539;} |
T573:; |
1421 |
goto T529; |
if(!(((V169))==(((V165))->v.v_self[V174]))){ |
1422 |
goto T539; |
goto T575;} |
1423 |
T539:; |
goto T565; |
1424 |
V172= (long)(V172)+(1); |
goto T575; |
1425 |
if(!((V172)==(V165))){ |
T575:; |
1426 |
goto T544;} |
V174= (long)(V174)+(1); |
1427 |
V172= 0; |
if(!((V174)==(V167))){ |
1428 |
goto T544; |
goto T580;} |
1429 |
T544:; |
V174= 0; |
1430 |
if(!((V172)==(V171))){ |
goto T580; |
1431 |
goto T538;} |
T580:; |
1432 |
{register object V174; |
if(!((V174)==(V173))){ |
1433 |
object V175; |
goto T574;} |
1434 |
V174= (V166); |
{register object V176; |
1435 |
V175= CMPcar((V174)); |
object V177; |
1436 |
goto T554; |
V176= (V168); |
1437 |
T554:; |
V177= CMPcar((V176)); |
1438 |
if(!(((V174))==Cnil)){ |
goto T590; |
1439 |
goto T555;} |
T590:; |
1440 |
goto T550; |
if(!(((V176))==Cnil)){ |
1441 |
goto T555; |
goto T591;} |
1442 |
T555:; |
goto T586; |
1443 |
if(!((CMPcar((V175)))==((V167)))){ |
goto T591; |
1444 |
goto T559;} |
T591:; |
1445 |
goto T529; |
if(!((CMPcar((V177)))==((V169)))){ |
1446 |
goto T559; |
goto T595;} |
1447 |
T559:; |
goto T565; |
1448 |
V174= CMPcdr((V174)); |
goto T595; |
1449 |
V175= CMPcar((V174)); |
T595:; |
1450 |
goto T554;} |
V176= CMPcdr((V176)); |
1451 |
goto T550; |
V177= CMPcar((V176)); |
1452 |
T550:; |
goto T590;} |
1453 |
goto T507; |
goto T586; |
1454 |
goto T538; |
T586:; |
1455 |
T538:; |
goto T543; |
1456 |
goto T537;} |
goto T574; |
1457 |
goto T529; |
T574:; |
1458 |
T529:; |
goto T573;} |
1459 |
{object V176; |
goto T565; |
1460 |
V176= ((V161))->v.v_self[fix((base0[1]->c.c_car))]; |
T565:; |
1461 |
if(!(((V176))==((VV[4]->s.s_dbind)))){ |
{object V178; |
1462 |
goto T570;} |
V178= ((V163))->v.v_self[fix((base0[1]->c.c_car))]; |
1463 |
base[1]= (V160); |
if(!(((V178))==((VV[4]->s.s_dbind)))){ |
1464 |
|
goto T606;} |
1465 |
|
base[1]= (V162); |
1466 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1467 |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1468 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1469 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1470 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1471 |
return; |
return; |
1472 |
goto T570; |
goto T606; |
1473 |
T570:; |
T606:; |
1474 |
base[1]= (V176); |
base[1]= (V178); |
1475 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1476 |
return;}} |
return;}} |
1477 |
goto T507; |
goto T543; |
1478 |
T507:; |
T543:; |
1479 |
base[1]= (V160); |
base[1]= (V162); |
1480 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1481 |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1482 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1512 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1513 |
register object *sup=base+VM26; VC26 |
register object *sup=base+VM26; VC26 |
1514 |
vs_check; |
vs_check; |
1515 |
{object V177; |
{object V179; |
1516 |
check_arg(1); |
check_arg(1); |
1517 |
V177=(base[0]); |
V179=(base[0]); |
1518 |
vs_top=sup; |
vs_top=sup; |
1519 |
{long V178; |
{long V180; |
1520 |
object V179; |
object V181; |
1521 |
long V180; |
long V182; |
1522 |
long V181; |
long V183; |
1523 |
object V182; |
object V184; |
1524 |
object V183; |
object V185; |
1525 |
V178= (long)STREF(unsigned char,(base0[2]->c.c_car),16); |
V180= (long)STREF(unsigned char,(base0[2]->c.c_car),16); |
1526 |
V179= STREF(object,(base0[2]->c.c_car),40); |
V181= STREF(object,(base0[2]->c.c_car),40); |
1527 |
V180= (long)STREF(fixnum,(base0[2]->c.c_car),24); |
V182= (long)STREF(fixnum,(base0[2]->c.c_car),24); |
1528 |
V181= (long)STREF(fixnum,(base0[2]->c.c_car),28); |
V183= (long)STREF(fixnum,(base0[2]->c.c_car),28); |
1529 |
V182= STREF(object,(base0[2]->c.c_car),44); |
V184= STREF(object,(base0[2]->c.c_car),44); |
1530 |
if(type_of(V177)==t_structure){ |
if(type_of(V179)==t_structure){ |
1531 |
goto T586;} |
goto T622;} |
1532 |
goto T584; |
goto T620; |
1533 |
goto T586; |
goto T622; |
1534 |
T586:; |
T622:; |
1535 |
if(!(((V177)->str.str_def)==(VV[17]))){ |
if(!(((V179)->str.str_def)==(VV[29]))){ |
1536 |
goto T584;} |
goto T620;} |
1537 |
V183= STREF(object,(V177),0); |
V185= STREF(object,(V179),0); |
1538 |
goto T582; |
goto T618; |
1539 |
goto T584; |
goto T620; |
1540 |
T584:;{object V185; |
T620:;{object V187; |
1541 |
V185= (VV[3]->s.s_dbind); |
V187= (VV[3]->s.s_dbind); |
1542 |
base[1]= small_fixnum(14); |
base[1]= small_fixnum(14); |
1543 |
base[2]= (V177); |
base[2]= (V179); |
1544 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1545 |
(void) (*Lnk55)(); |
(void) (*Lnk70)(); |
1546 |
vs_top=sup; |
vs_top=sup; |
1547 |
V186= vs_base[0]; |
V188= vs_base[0]; |
1548 |
if(!((V185)==(CMPcar(V186)))){ |
if(!((V187)==(CMPcar(V188)))){ |
1549 |
goto T589;}} |
goto T625;}} |
1550 |
V183= CMPcar(((V177))->cc.cc_turbo[13]); |
V185= CMPcar(((V179))->cc.cc_turbo[13]); |
1551 |
goto T582; |
goto T618; |
1552 |
goto T589; |
goto T625; |
1553 |
T589:; |
T625:; |
1554 |
goto T576; |
goto T612; |
1555 |
goto T582; |
goto T618; |
1556 |
T582:; |
T618:; |
|
{long V187; |
|
|
long V188; |
|
1557 |
{long V189; |
{long V189; |
1558 |
V189= fix(((V183))->v.v_self[V178]); |
long V190; |
1559 |
if(!((V189)==0)){ |
{long V191; |
1560 |
goto T597;} |
V191= fix(((V185))->v.v_self[V180]); |
1561 |
goto T576; |
if(!((V191)==0)){ |
1562 |
goto T597; |
goto T633;} |
1563 |
T597:; |
goto T612; |
1564 |
V187= (long)((V180) & (V189));} |
goto T633; |
1565 |
V188= V187; |
T633:; |
1566 |
goto T602; |
V189= (long)((V182) & (V191));} |
1567 |
T602:; |
V190= V189; |
1568 |
if(!(((V183))==(((V179))->v.v_self[V188]))){ |
goto T638; |
1569 |
goto T604;} |
T638:; |
1570 |
goto T594; |
if(!(((V185))==(((V181))->v.v_self[V190]))){ |
1571 |
goto T604; |
goto T640;} |
1572 |
T604:; |
goto T630; |
1573 |
V188= (long)(V188)+(1); |
goto T640; |
1574 |
if(!((V188)==(V181))){ |
T640:; |
1575 |
goto T609;} |
V190= (long)(V190)+(1); |
1576 |
V188= 0; |
if(!((V190)==(V183))){ |
1577 |
goto T609; |
goto T645;} |
1578 |
T609:; |
V190= 0; |
1579 |
if(!((V188)==(V187))){ |
goto T645; |
1580 |
goto T603;} |
T645:; |
1581 |
{register object V190; |
if(!((V190)==(V189))){ |
1582 |
object V191; |
goto T639;} |
1583 |
V190= (V182); |
{register object V192; |
1584 |
V191= CMPcar((V190)); |
object V193; |
1585 |
goto T619; |
V192= (V184); |
1586 |
T619:; |
V193= CMPcar((V192)); |
1587 |
if(!(((V190))==Cnil)){ |
goto T655; |
1588 |
goto T620;} |
T655:; |
1589 |
goto T615; |
if(!(((V192))==Cnil)){ |
1590 |
goto T620; |
goto T656;} |
1591 |
T620:; |
goto T651; |
1592 |
if(!((CMPcar((V191)))==((V183)))){ |
goto T656; |
1593 |
goto T624;} |
T656:; |
1594 |
goto T594; |
if(!((CMPcar((V193)))==((V185)))){ |
1595 |
goto T624; |
goto T660;} |
1596 |
T624:; |
goto T630; |
1597 |
V190= CMPcdr((V190)); |
goto T660; |
1598 |
V191= CMPcar((V190)); |
T660:; |
1599 |
goto T619;} |
V192= CMPcdr((V192)); |
1600 |
goto T615; |
V193= CMPcar((V192)); |
1601 |
T615:; |
goto T655;} |
1602 |
goto T576; |
goto T651; |
1603 |
goto T603; |
T651:; |
1604 |
T603:; |
goto T612; |
1605 |
goto T602;} |
goto T639; |
1606 |
goto T594; |
T639:; |
1607 |
T594:; |
goto T638;} |
1608 |
{object V192; |
goto T630; |
1609 |
V192= CMPcdr((base0[1]->c.c_car)); |
T630:; |
1610 |
if(!(((V192))==((VV[4]->s.s_dbind)))){ |
{object V194; |
1611 |
goto T635;} |
V194= CMPcdr((base0[1]->c.c_car)); |
1612 |
base[1]= (V177); |
if(!(((V194))==((VV[4]->s.s_dbind)))){ |
1613 |
|
goto T671;} |
1614 |
|
base[1]= (V179); |
1615 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1616 |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1617 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1618 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1619 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1620 |
return; |
return; |
1621 |
goto T635; |
goto T671; |
1622 |
T635:; |
T671:; |
1623 |
base[1]= (V192); |
base[1]= (V194); |
1624 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1625 |
return;}} |
return;}} |
1626 |
goto T576; |
goto T612; |
1627 |
T576:; |
T612:; |
1628 |
base[1]= (V177); |
base[1]= (V179); |
1629 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1630 |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1631 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1660 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1661 |
register object *sup=base+VM28; VC28 |
register object *sup=base+VM28; VC28 |
1662 |
vs_check; |
vs_check; |
1663 |
{object V193; |
{object V195; |
1664 |
check_arg(1); |
check_arg(1); |
1665 |
V193=(base[0]); |
V195=(base[0]); |
1666 |
vs_top=sup; |
vs_top=sup; |
1667 |
{object V194; |
{object V196; |
|
object V195; |
|
|
V194= Cnil; |
|
|
V195= Cnil; |
|
|
{long V196; |
|
1668 |
object V197; |
object V197; |
1669 |
long V198; |
V196= Cnil; |
1670 |
long V199; |
V197= Cnil; |
1671 |
object V200; |
{long V198; |
1672 |
object V201; |
object V199; |
1673 |
V196= (long)STREF(unsigned char,(base0[1]->c.c_car),16); |
long V200; |
1674 |
V197= STREF(object,(base0[1]->c.c_car),40); |
long V201; |
1675 |
V198= (long)STREF(fixnum,(base0[1]->c.c_car),24); |
object V202; |
1676 |
V199= (long)STREF(fixnum,(base0[1]->c.c_car),28); |
object V203; |
1677 |
V200= STREF(object,(base0[1]->c.c_car),44); |
V198= (long)STREF(unsigned char,(base0[1]->c.c_car),16); |
1678 |
if(type_of(V193)==t_structure){ |
V199= STREF(object,(base0[1]->c.c_car),40); |
1679 |
goto T651;} |
V200= (long)STREF(fixnum,(base0[1]->c.c_car),24); |
1680 |
goto T649; |
V201= (long)STREF(fixnum,(base0[1]->c.c_car),28); |
1681 |
goto T651; |
V202= STREF(object,(base0[1]->c.c_car),44); |
1682 |
T651:; |
if(type_of(V195)==t_structure){ |
1683 |
if(!(((V193)->str.str_def)==(VV[16]))){ |
goto T687;} |
1684 |
goto T649;} |
goto T685; |
1685 |
V194= STREF(object,(V193),4); |
goto T687; |
1686 |
V201= STREF(object,(V193),0); |
T687:; |
1687 |
goto T647; |
if(!(((V195)->str.str_def)==(VV[28]))){ |
1688 |
goto T649; |
goto T685;} |
1689 |
T649:;{object V203; |
V196= STREF(object,(V195),4); |
1690 |
V203= (VV[3]->s.s_dbind); |
V203= STREF(object,(V195),0); |
1691 |
|
goto T683; |
1692 |
|
goto T685; |
1693 |
|
T685:;{object V205; |
1694 |
|
V205= (VV[3]->s.s_dbind); |
1695 |
base[1]= small_fixnum(14); |
base[1]= small_fixnum(14); |
1696 |
base[2]= (V193); |
base[2]= (V195); |
1697 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1698 |
(void) (*Lnk55)(); |
(void) (*Lnk70)(); |
1699 |
vs_top=sup; |
vs_top=sup; |
1700 |
V204= vs_base[0]; |
V206= vs_base[0]; |
1701 |
if(!((V203)==(CMPcar(V204)))){ |
if(!((V205)==(CMPcar(V206)))){ |
1702 |
goto T656;}} |
goto T692;}} |
1703 |
V194= CMPcar(((V193))->cc.cc_turbo[12]); |
V196= CMPcar(((V195))->cc.cc_turbo[12]); |
1704 |
V201= CMPcar(((V193))->cc.cc_turbo[13]); |
V203= CMPcar(((V195))->cc.cc_turbo[13]); |
1705 |
goto T647; |
goto T683; |
1706 |
goto T656; |
goto T692; |
1707 |
T656:; |
T692:; |
1708 |
goto T641; |
goto T677; |
1709 |
goto T647; |
goto T683; |
1710 |
T647:; |
T683:; |
|
{long V205; |
|
|
long V206; |
|
1711 |
{long V207; |
{long V207; |
1712 |
V207= fix(((V201))->v.v_self[V196]); |
long V208; |
|
if(!((V207)==0)){ |
|
|
goto T666;} |
|
|
goto T641; |
|
|
goto T666; |
|
|
T666:; |
|
|
V205= (long)((V198) & (V207));} |
|
|
{object V208; |
|
|
V208= ((V197))->v.v_self[0]; |
|
|
if(type_of((V208))==t_fixnum){ |
|
|
goto T671;} |
|
|
base[1]= VV[15]; |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
Lerror(); |
|
|
vs_top=sup; |
|
|
goto T671; |
|
|
T671:; |
|
|
V206= fix((V208));} |
|
1713 |
{long V209; |
{long V209; |
1714 |
V209= V205; |
V209= fix(((V203))->v.v_self[V198]); |
1715 |
goto T678; |
if(!((V209)==0)){ |
|
T678:; |
|
|
if(!(((V201))==(((V197))->v.v_self[V209]))){ |
|
|
goto T680;} |
|
|
V195= ((V197))->v.v_self[(long)(V209)+1]; |
|
|
goto T676; |
|
|
goto T680; |
|
|
T680:; |
|
|
V209= (long)(V209)+(2); |
|
|
if(!((V209)==(V199))){ |
|
|
goto T687;} |
|
|
V209= 0; |
|
|
goto T687; |
|
|
T687:; |
|
|
if(!((V209)==(V205))){ |
|
|
goto T679;} |
|
|
{register object V210; |
|
|
object V211; |
|
|
V210= (V200); |
|
|
V211= CMPcar((V210)); |
|
|
goto T697; |
|
|
T697:; |
|
|
if(!(((V210))==Cnil)){ |
|
|
goto T698;} |
|
|
goto T693; |
|
|
goto T698; |
|
|
T698:; |
|
|
if(!((CMPcar((V211)))==((V201)))){ |
|
1716 |
goto T702;} |
goto T702;} |
1717 |
V195= CMPcdr((V211)); |
goto T677; |
|
goto T676; |
|
1718 |
goto T702; |
goto T702; |
1719 |
T702:; |
T702:; |
1720 |
V210= CMPcdr((V210)); |
V207= (long)((V200) & (V209));} |
1721 |
V211= CMPcar((V210)); |
{object V210; |
1722 |
goto T697;} |
V210= ((V199))->v.v_self[0]; |
1723 |
goto T693; |
if(type_of((V210))==t_fixnum){ |
1724 |
T693:; |
goto T707;} |
1725 |
goto T641; |
base[1]= VV[27]; |
|
goto T679; |
|
|
T679:; |
|
|
goto T678; |
|
|
goto T676; |
|
|
T676:; |
|
|
V212 = V206; |
|
|
{object V214; |
|
|
V214= ((V197))->v.v_self[0]; |
|
|
if(type_of((V214))==t_fixnum){ |
|
|
goto T717;} |
|
|
base[1]= VV[15]; |
|
1726 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1727 |
Lerror(); |
Lerror(); |
1728 |
vs_top=sup; |
vs_top=sup; |
1729 |
goto T717; |
goto T707; |
1730 |
T717:; |
T707:; |
1731 |
V213= fix((V214));} |
V208= fix((V210));} |
1732 |
if((V212)==(V213)){ |
{long V211; |
1733 |
goto T663;} |
V211= V207; |
1734 |
goto T641;}} |
goto T714; |
1735 |
goto T663; |
T714:; |
1736 |
T663:; |
if(!(((V203))==(((V199))->v.v_self[V211]))){ |
1737 |
{object V215; |
goto T716;} |
1738 |
V215= ((V194))->v.v_self[fix((V195))]; |
V197= ((V199))->v.v_self[(long)(V211)+1]; |
1739 |
if(!(((V215))==((VV[4]->s.s_dbind)))){ |
goto T712; |
1740 |
|
goto T716; |
1741 |
|
T716:; |
1742 |
|
V211= (long)(V211)+(2); |
1743 |
|
if(!((V211)==(V201))){ |
1744 |
goto T723;} |
goto T723;} |
1745 |
base[1]= (V193); |
V211= 0; |
1746 |
|
goto T723; |
1747 |
|
T723:; |
1748 |
|
if(!((V211)==(V207))){ |
1749 |
|
goto T715;} |
1750 |
|
{register object V212; |
1751 |
|
object V213; |
1752 |
|
V212= (V202); |
1753 |
|
V213= CMPcar((V212)); |
1754 |
|
goto T733; |
1755 |
|
T733:; |
1756 |
|
if(!(((V212))==Cnil)){ |
1757 |
|
goto T734;} |
1758 |
|
goto T729; |
1759 |
|
goto T734; |
1760 |
|
T734:; |
1761 |
|
if(!((CMPcar((V213)))==((V203)))){ |
1762 |
|
goto T738;} |
1763 |
|
V197= CMPcdr((V213)); |
1764 |
|
goto T712; |
1765 |
|
goto T738; |
1766 |
|
T738:; |
1767 |
|
V212= CMPcdr((V212)); |
1768 |
|
V213= CMPcar((V212)); |
1769 |
|
goto T733;} |
1770 |
|
goto T729; |
1771 |
|
T729:; |
1772 |
|
goto T677; |
1773 |
|
goto T715; |
1774 |
|
T715:; |
1775 |
|
goto T714; |
1776 |
|
goto T712; |
1777 |
|
T712:; |
1778 |
|
{object V215; |
1779 |
|
V215= ((V199))->v.v_self[0]; |
1780 |
|
if(type_of((V215))==t_fixnum){ |
1781 |
|
goto T753;} |
1782 |
|
base[1]= VV[27]; |
1783 |
|
vs_top=(vs_base=base+1)+1; |
1784 |
|
Lerror(); |
1785 |
|
vs_top=sup; |
1786 |
|
goto T753; |
1787 |
|
T753:; |
1788 |
|
V214= fix((V215));} |
1789 |
|
if((V208)==(V214)){ |
1790 |
|
goto T699;} |
1791 |
|
goto T677;}} |
1792 |
|
goto T699; |
1793 |
|
T699:; |
1794 |
|
{object V216; |
1795 |
|
V216= ((V196))->v.v_self[fix((V197))]; |
1796 |
|
if(!(((V216))==((VV[4]->s.s_dbind)))){ |
1797 |
|
goto T759;} |
1798 |
|
base[1]= (V195); |
1799 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1800 |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1801 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1802 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1803 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1804 |
return; |
return; |
1805 |
goto T723; |
goto T759; |
1806 |
T723:; |
T759:; |
1807 |
base[1]= (V215); |
base[1]= (V216); |
1808 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1809 |
return;}} |
return;}} |
1810 |
goto T641; |
goto T677; |
1811 |
T641:; |
T677:; |
1812 |
base[1]= (V193); |
base[1]= (V195); |
1813 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1814 |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1815 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1844 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1845 |
register object *sup=base+VM30; VC30 |
register object *sup=base+VM30; VC30 |
1846 |
vs_check; |
vs_check; |
1847 |
{object V216; |
{object V217; |
1848 |
check_arg(1); |
check_arg(1); |
1849 |
V216=(base[0]); |
V217=(base[0]); |
1850 |
vs_top=sup; |
vs_top=sup; |
1851 |
{object V217; |
{object V218; |
1852 |
V217= Cnil; |
V218= Cnil; |
1853 |
{long V218; |
{long V219; |
1854 |
object V219; |
object V220; |
|
long V220; |
|
1855 |
long V221; |
long V221; |
1856 |
object V222; |
long V222; |
1857 |
object V223; |
object V223; |
1858 |
V218= (long)STREF(unsigned char,(base0[1]->c.c_car),16); |
object V224; |
1859 |
V219= STREF(object,(base0[1]->c.c_car),40); |
V219= (long)STREF(unsigned char,(base0[1]->c.c_car),16); |
1860 |
V220= (long)STREF(fixnum,(base0[1]->c.c_car),24); |
V220= STREF(object,(base0[1]->c.c_car),40); |
1861 |
V221= (long)STREF(fixnum,(base0[1]->c.c_car),28); |
V221= (long)STREF(fixnum,(base0[1]->c.c_car),24); |
1862 |
V222= STREF(object,(base0[1]->c.c_car),44); |
V222= (long)STREF(fixnum,(base0[1]->c.c_car),28); |
1863 |
if(type_of(V216)==t_structure){ |
V223= STREF(object,(base0[1]->c.c_car),44); |
1864 |
goto T739;} |
if(type_of(V217)==t_structure){ |
1865 |
goto T737; |
goto T775;} |
1866 |
goto T739; |
goto T773; |
1867 |
T739:; |
goto T775; |
1868 |
if(!(((V216)->str.str_def)==(VV[14]))){ |
T775:; |
1869 |
goto T737;} |
if(!(((V217)->str.str_def)==(VV[26]))){ |
1870 |
V223= STREF(object,(V216),0); |
goto T773;} |
1871 |
goto T735; |
V224= STREF(object,(V217),0); |
1872 |
goto T737; |
goto T771; |
1873 |
T737:;{object V225; |
goto T773; |
1874 |
V225= (VV[3]->s.s_dbind); |
T773:;{object V226; |
1875 |
|
V226= (VV[3]->s.s_dbind); |
1876 |
base[1]= small_fixnum(14); |
base[1]= small_fixnum(14); |
1877 |
base[2]= (V216); |
base[2]= (V217); |
1878 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1879 |
(void) (*Lnk55)(); |
(void) (*Lnk70)(); |
|
vs_top=sup; |
|
|
V226= vs_base[0]; |
|
|
if(!((V225)==(CMPcar(V226)))){ |
|
|
goto T742;}} |
|
|
V223= CMPcar(((V216))->cc.cc_turbo[13]); |
|
|
goto T735; |
|
|
goto T742; |
|
|
T742:; |
|
|
goto T729; |
|
|
goto T735; |
|
|
T735:; |
|
|
{long V227; |
|
|
long V228; |
|
|
{long V229; |
|
|
V229= fix(((V223))->v.v_self[V218]); |
|
|
if(!((V229)==0)){ |
|
|
goto T750;} |
|
|
goto T729; |
|
|
goto T750; |
|
|
T750:; |
|
|
V227= (long)((V220) & (V229));} |
|
|
{object V230; |
|
|
V230= ((V219))->v.v_self[0]; |
|
|
if(type_of((V230))==t_fixnum){ |
|
|
goto T755;} |
|
|
base[1]= VV[15]; |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
Lerror(); |
|
1880 |
vs_top=sup; |
vs_top=sup; |
1881 |
goto T755; |
V227= vs_base[0]; |
1882 |
T755:; |
if(!((V226)==(CMPcar(V227)))){ |
1883 |
V228= fix((V230));} |
goto T778;}} |
1884 |
{long V231; |
V224= CMPcar(((V217))->cc.cc_turbo[13]); |
1885 |
V231= V227; |
goto T771; |
1886 |
goto T762; |
goto T778; |
1887 |
T762:; |
T778:; |
1888 |
if(!(((V223))==(((V219))->v.v_self[V231]))){ |
goto T765; |
|
goto T764;} |
|
|
V217= ((V219))->v.v_self[(long)(V231)+1]; |
|
|
goto T760; |
|
|
goto T764; |
|
|
T764:; |
|
|
V231= (long)(V231)+(2); |
|
|
if(!((V231)==(V221))){ |
|
|
goto T771;} |
|
|
V231= 0; |
|
1889 |
goto T771; |
goto T771; |
1890 |
T771:; |
T771:; |
1891 |
if(!((V231)==(V227))){ |
{long V228; |
1892 |
goto T763;} |
long V229; |
1893 |
{register object V232; |
{long V230; |
1894 |
object V233; |
V230= fix(((V224))->v.v_self[V219]); |
1895 |
V232= (V222); |
if(!((V230)==0)){ |
|
V233= CMPcar((V232)); |
|
|
goto T781; |
|
|
T781:; |
|
|
if(!(((V232))==Cnil)){ |
|
|
goto T782;} |
|
|
goto T777; |
|
|
goto T782; |
|
|
T782:; |
|
|
if(!((CMPcar((V233)))==((V223)))){ |
|
1896 |
goto T786;} |
goto T786;} |
1897 |
V217= CMPcdr((V233)); |
goto T765; |
|
goto T760; |
|
1898 |
goto T786; |
goto T786; |
1899 |
T786:; |
T786:; |
1900 |
V232= CMPcdr((V232)); |
V228= (long)((V221) & (V230));} |
1901 |
V233= CMPcar((V232)); |
{object V231; |
1902 |
goto T781;} |
V231= ((V220))->v.v_self[0]; |
1903 |
goto T777; |
if(type_of((V231))==t_fixnum){ |
1904 |
T777:; |
goto T791;} |
1905 |
goto T729; |
base[1]= VV[27]; |
1906 |
goto T763; |
vs_top=(vs_base=base+1)+1; |
1907 |
T763:; |
Lerror(); |
1908 |
goto T762; |
vs_top=sup; |
1909 |
goto T760; |
goto T791; |
1910 |
T760:; |
T791:; |
1911 |
V234 = V228; |
V229= fix((V231));} |
1912 |
|
{long V232; |
1913 |
|
V232= V228; |
1914 |
|
goto T798; |
1915 |
|
T798:; |
1916 |
|
if(!(((V224))==(((V220))->v.v_self[V232]))){ |
1917 |
|
goto T800;} |
1918 |
|
V218= ((V220))->v.v_self[(long)(V232)+1]; |
1919 |
|
goto T796; |
1920 |
|
goto T800; |
1921 |
|
T800:; |
1922 |
|
V232= (long)(V232)+(2); |
1923 |
|
if(!((V232)==(V222))){ |
1924 |
|
goto T807;} |
1925 |
|
V232= 0; |
1926 |
|
goto T807; |
1927 |
|
T807:; |
1928 |
|
if(!((V232)==(V228))){ |
1929 |
|
goto T799;} |
1930 |
|
{register object V233; |
1931 |
|
object V234; |
1932 |
|
V233= (V223); |
1933 |
|
V234= CMPcar((V233)); |
1934 |
|
goto T817; |
1935 |
|
T817:; |
1936 |
|
if(!(((V233))==Cnil)){ |
1937 |
|
goto T818;} |
1938 |
|
goto T813; |
1939 |
|
goto T818; |
1940 |
|
T818:; |
1941 |
|
if(!((CMPcar((V234)))==((V224)))){ |
1942 |
|
goto T822;} |
1943 |
|
V218= CMPcdr((V234)); |
1944 |
|
goto T796; |
1945 |
|
goto T822; |
1946 |
|
T822:; |
1947 |
|
V233= CMPcdr((V233)); |
1948 |
|
V234= CMPcar((V233)); |
1949 |
|
goto T817;} |
1950 |
|
goto T813; |
1951 |
|
T813:; |
1952 |
|
goto T765; |
1953 |
|
goto T799; |
1954 |
|
T799:; |
1955 |
|
goto T798; |
1956 |
|
goto T796; |
1957 |
|
T796:; |
1958 |
{object V236; |
{object V236; |
1959 |
V236= ((V219))->v.v_self[0]; |
V236= ((V220))->v.v_self[0]; |
1960 |
if(type_of((V236))==t_fixnum){ |
if(type_of((V236))==t_fixnum){ |
1961 |
goto T801;} |
goto T837;} |
1962 |
base[1]= VV[15]; |
base[1]= VV[27]; |
1963 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1964 |
Lerror(); |
Lerror(); |
1965 |
vs_top=sup; |
vs_top=sup; |
1966 |
goto T801; |
goto T837; |
1967 |
T801:; |
T837:; |
1968 |
V235= fix((V236));} |
V235= fix((V236));} |
1969 |
if((V234)==(V235)){ |
if((V229)==(V235)){ |
1970 |
goto T747;} |
goto T783;} |
1971 |
goto T729;}} |
goto T765;}} |
1972 |
goto T747; |
goto T783; |
1973 |
T747:; |
T783:; |
1974 |
{object V237; |
{object V237; |
1975 |
V237= CMPcdr((V217)); |
V237= CMPcdr((V218)); |
1976 |
if(!(((V237))==((VV[4]->s.s_dbind)))){ |
if(!(((V237))==((VV[4]->s.s_dbind)))){ |
1977 |
goto T807;} |
goto T843;} |
1978 |
base[1]= (V216); |
base[1]= (V217); |
1979 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1980 |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1981 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1982 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1983 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1984 |
return; |
return; |
1985 |
goto T807; |
goto T843; |
1986 |
T807:; |
T843:; |
1987 |
base[1]= (V237); |
base[1]= (V237); |
1988 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1989 |
return;}} |
return;}} |
1990 |
goto T729; |
goto T765; |
1991 |
T729:; |
T765:; |
1992 |
base[1]= (V216); |
base[1]= (V217); |
1993 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1994 |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1995 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2036 |
object V241; |
object V241; |
2037 |
V240= Cnil; |
V240= Cnil; |
2038 |
if(type_of(V239)==t_structure){ |
if(type_of(V239)==t_structure){ |
2039 |
goto T817;} |
goto T853;} |
2040 |
goto T815; |
goto T851; |
2041 |
goto T817; |
goto T853; |
2042 |
T817:; |
T853:; |
2043 |
if(!(((V239)->str.str_def)==(VV[12]))){ |
if(!(((V239)->str.str_def)==(VV[20]))){ |
2044 |
goto T815;} |
goto T851;} |
2045 |
V240= STREF(object,(V239),4); |
V240= STREF(object,(V239),4); |
2046 |
V241= STREF(object,(V239),0); |
V241= STREF(object,(V239),0); |
2047 |
goto T813; |
goto T849; |
2048 |
goto T815; |
goto T851; |
2049 |
T815:;{object V243; |
T851:;{object V243; |
2050 |
V243= (VV[3]->s.s_dbind); |
V243= (VV[3]->s.s_dbind); |
2051 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
2052 |
base[4]= (V239); |
base[4]= (V239); |
2053 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2054 |
(void) (*Lnk55)(); |
(void) (*Lnk70)(); |
2055 |
vs_top=sup; |
vs_top=sup; |
2056 |
V244= vs_base[0]; |
V244= vs_base[0]; |
2057 |
if(!((V243)==(CMPcar(V244)))){ |
if(!((V243)==(CMPcar(V244)))){ |
2058 |
goto T822;}} |
goto T858;}} |
2059 |
V240= CMPcar(((V239))->cc.cc_turbo[12]); |
V240= CMPcar(((V239))->cc.cc_turbo[12]); |
2060 |
V241= CMPcar(((V239))->cc.cc_turbo[13]); |
V241= CMPcar(((V239))->cc.cc_turbo[13]); |
2061 |
goto T813; |
goto T849; |
2062 |
goto T822; |
goto T858; |
2063 |
T822:; |
T858:; |
2064 |
V241= Cnil; |
V241= Cnil; |
2065 |
goto T813; |
goto T849; |
2066 |
T813:; |
T849:; |
2067 |
if(((V241))==Cnil){ |
if(((V241))==Cnil){ |
2068 |
goto T829;} |
goto T865;} |
2069 |
if((fix(((V241))->v.v_self[0]))==0){ |
if((fix(((V241))->v.v_self[0]))==0){ |
2070 |
goto T829;} |
goto T865;} |
2071 |
if(((V241))==((base0[3]->c.c_car))){ |
if(((V241))==((base0[3]->c.c_car))){ |
2072 |
goto T830;} |
goto T866;} |
2073 |
if(((V241))==((base0[2]->c.c_car))){ |
if(((V241))==((base0[2]->c.c_car))){ |
2074 |
goto T830;} |
goto T866;} |
2075 |
goto T829; |
goto T865; |
2076 |
T829:; |
T865:; |
2077 |
base[3]= (V238); |
base[3]= (V238); |
2078 |
base[4]= (V239); |
base[4]= (V239); |
2079 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2082 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2083 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2084 |
return; |
return; |
2085 |
goto T830; |
goto T866; |
2086 |
T830:; |
T866:; |
2087 |
base[3]= ((V240))->v.v_self[fix((base0[1]->c.c_car))]= ((V238)); |
base[3]= ((V240))->v.v_self[fix((base0[1]->c.c_car))]= ((V238)); |
2088 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2089 |
return;} |
return;} |
2122 |
vs_top=sup; |
vs_top=sup; |
2123 |
{object V247; |
{object V247; |
2124 |
if(type_of(V246)==t_structure){ |
if(type_of(V246)==t_structure){ |
2125 |
goto T844;} |
goto T880;} |
2126 |
goto T842; |
goto T878; |
2127 |
goto T844; |
goto T880; |
2128 |
T844:; |
T880:; |
2129 |
if(!(((V246)->str.str_def)==(VV[11]))){ |
if(!(((V246)->str.str_def)==(VV[19]))){ |
2130 |
goto T842;} |
goto T878;} |
2131 |
V247= STREF(object,(V246),0); |
V247= STREF(object,(V246),0); |
2132 |
goto T840; |
goto T876; |
2133 |
goto T842; |
goto T878; |
2134 |
T842:;{object V249; |
T878:;{object V249; |
2135 |
V249= (VV[3]->s.s_dbind); |
V249= (VV[3]->s.s_dbind); |
2136 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
2137 |
base[4]= (V246); |
base[4]= (V246); |
2138 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2139 |
(void) (*Lnk55)(); |
(void) (*Lnk70)(); |
2140 |
vs_top=sup; |
vs_top=sup; |
2141 |
V250= vs_base[0]; |
V250= vs_base[0]; |
2142 |
if(!((V249)==(CMPcar(V250)))){ |
if(!((V249)==(CMPcar(V250)))){ |
2143 |
goto T847;}} |
goto T883;}} |
2144 |
V247= CMPcar(((V246))->cc.cc_turbo[13]); |
V247= CMPcar(((V246))->cc.cc_turbo[13]); |
2145 |
goto T840; |
goto T876; |
2146 |
goto T847; |
goto T883; |
2147 |
T847:; |
T883:; |
2148 |
V247= Cnil; |
V247= Cnil; |
2149 |
goto T840; |
goto T876; |
2150 |
T840:; |
T876:; |
2151 |
if(((V247))==Cnil){ |
if(((V247))==Cnil){ |
2152 |
goto T852;} |
goto T888;} |
2153 |
if((fix(((V247))->v.v_self[0]))==0){ |
if((fix(((V247))->v.v_self[0]))==0){ |
2154 |
goto T852;} |
goto T888;} |
2155 |
if(((V247))==((base0[3]->c.c_car))){ |
if(((V247))==((base0[3]->c.c_car))){ |
2156 |
goto T853;} |
goto T889;} |
2157 |
if(((V247))==((base0[2]->c.c_car))){ |
if(((V247))==((base0[2]->c.c_car))){ |
2158 |
goto T853;} |
goto T889;} |
2159 |
goto T852; |
goto T888; |
2160 |
T852:; |
T888:; |
2161 |
base[3]= (V245); |
base[3]= (V245); |
2162 |
base[4]= (V246); |
base[4]= (V246); |
2163 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2166 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2167 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2168 |
return; |
return; |
2169 |
goto T853; |
goto T889; |
2170 |
T853:; |
T889:; |
2171 |
{object V251; |
{object V251; |
2172 |
V251= (base0[1]->c.c_car); |
V251= (base0[1]->c.c_car); |
2173 |
((V251))->c.c_cdr = V245; |
((V251))->c.c_cdr = V245; |
2210 |
object V256; |
object V256; |
2211 |
V255= Cnil; |
V255= Cnil; |
2212 |
if(type_of(V254)==t_structure){ |
if(type_of(V254)==t_structure){ |
2213 |
goto T870;} |
goto T906;} |
2214 |
goto T868; |
goto T904; |
2215 |
goto T870; |
goto T906; |
2216 |
T870:; |
T906:; |
2217 |
if(!(((V254)->str.str_def)==(VV[10]))){ |
if(!(((V254)->str.str_def)==(VV[18]))){ |
2218 |
goto T868;} |
goto T904;} |
2219 |
V255= STREF(object,(V254),4); |
V255= STREF(object,(V254),4); |
2220 |
V256= STREF(object,(V254),0); |
V256= STREF(object,(V254),0); |
2221 |
goto T866; |
goto T902; |
2222 |
goto T868; |
goto T904; |
2223 |
T868:;{object V258; |
T904:;{object V258; |
2224 |
V258= (VV[3]->s.s_dbind); |
V258= (VV[3]->s.s_dbind); |
2225 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
2226 |
base[4]= (V254); |
base[4]= (V254); |
2227 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2228 |
(void) (*Lnk55)(); |
(void) (*Lnk70)(); |
2229 |
vs_top=sup; |
vs_top=sup; |
2230 |
V259= vs_base[0]; |
V259= vs_base[0]; |
2231 |
if(!((V258)==(CMPcar(V259)))){ |
if(!((V258)==(CMPcar(V259)))){ |
2232 |
goto T875;}} |
goto T911;}} |
2233 |
V255= CMPcar(((V254))->cc.cc_turbo[12]); |
V255= CMPcar(((V254))->cc.cc_turbo[12]); |
2234 |
V256= CMPcar(((V254))->cc.cc_turbo[13]); |
V256= CMPcar(((V254))->cc.cc_turbo[13]); |
2235 |
goto T866; |
goto T902; |
2236 |
goto T875; |
goto T911; |
2237 |
T875:; |
T911:; |
2238 |
V256= Cnil; |
V256= Cnil; |
2239 |
goto T866; |
goto T902; |
2240 |
T866:; |
T902:; |
2241 |
if(((V256))==Cnil){ |
if(((V256))==Cnil){ |
2242 |
goto T882;} |
goto T918;} |
2243 |
if((fix(((V256))->v.v_self[0]))==0){ |
if((fix(((V256))->v.v_self[0]))==0){ |
2244 |
goto T882;} |
goto T918;} |
2245 |
if(((V256))==((base0[2]->c.c_car))){ |
if(((V256))==((base0[2]->c.c_car))){ |
2246 |
goto T883;} |
goto T919;} |
2247 |
goto T882; |
goto T918; |
2248 |
T882:; |
T918:; |
2249 |
base[3]= (V253); |
base[3]= (V253); |
2250 |
base[4]= (V254); |
base[4]= (V254); |
2251 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2254 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2255 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2256 |
return; |
return; |
2257 |
goto T883; |
goto T919; |
2258 |
T883:; |
T919:; |
2259 |
base[3]= ((V255))->v.v_self[fix((base0[1]->c.c_car))]= ((V253)); |
base[3]= ((V255))->v.v_self[fix((base0[1]->c.c_car))]= ((V253)); |
2260 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2261 |
return;} |
return;} |
2293 |
vs_top=sup; |
vs_top=sup; |
2294 |
{object V262; |
{object V262; |
2295 |
if(type_of(V261)==t_structure){ |
if(type_of(V261)==t_structure){ |
2296 |
goto T895;} |
goto T931;} |
2297 |
goto T893; |
goto T929; |
2298 |
goto T895; |
goto T931; |
2299 |
T895:; |
T931:; |
2300 |
if(!(((V261)->str.str_def)==(VV[9]))){ |
if(!(((V261)->str.str_def)==(VV[17]))){ |
2301 |
goto T893;} |
goto T929;} |
2302 |
V262= STREF(object,(V261),0); |
V262= STREF(object,(V261),0); |
2303 |
goto T891; |
goto T927; |
2304 |
goto T893; |
goto T929; |
2305 |
T893:;{object V264; |
T929:;{object V264; |
2306 |
V264= (VV[3]->s.s_dbind); |
V264= (VV[3]->s.s_dbind); |
2307 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
2308 |
base[4]= (V261); |
base[4]= (V261); |
2309 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2310 |
(void) (*Lnk55)(); |
(void) (*Lnk70)(); |
2311 |
vs_top=sup; |
vs_top=sup; |
2312 |
V265= vs_base[0]; |
V265= vs_base[0]; |
2313 |
if(!((V264)==(CMPcar(V265)))){ |
if(!((V264)==(CMPcar(V265)))){ |
2314 |
goto T898;}} |
goto T934;}} |
2315 |
V262= CMPcar(((V261))->cc.cc_turbo[13]); |
V262= CMPcar(((V261))->cc.cc_turbo[13]); |
2316 |
goto T891; |
goto T927; |
2317 |
goto T898; |
goto T934; |
2318 |
T898:; |
T934:; |
2319 |
V262= Cnil; |
V262= Cnil; |
2320 |
goto T891; |
goto T927; |
2321 |
T891:; |
T927:; |
2322 |
if(((V262))==Cnil){ |
if(((V262))==Cnil){ |
2323 |
goto T903;} |
goto T939;} |
2324 |
if((fix(((V262))->v.v_self[0]))==0){ |
if((fix(((V262))->v.v_self[0]))==0){ |
2325 |
goto T903;} |
goto T939;} |
2326 |
if(((V262))==((base0[2]->c.c_car))){ |
if(((V262))==((base0[2]->c.c_car))){ |
2327 |
goto T904;} |
goto T940;} |
2328 |
goto T903; |
goto T939; |
2329 |
T903:; |
T939:; |
2330 |
base[3]= (V260); |
base[3]= (V260); |
2331 |
base[4]= (V261); |
base[4]= (V261); |
2332 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2335 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2336 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2337 |
return; |
return; |
2338 |
goto T904; |
goto T940; |
2339 |
T904:; |
T940:; |
2340 |
{object V266; |
{object V266; |
2341 |
V266= (base0[1]->c.c_car); |
V266= (base0[1]->c.c_car); |
2342 |
((V266))->c.c_cdr = V260; |
((V266))->c.c_cdr = V260; |
2379 |
object V271; |
object V271; |
2380 |
V269= Cnil; |
V269= Cnil; |
2381 |
if(type_of(V268)==t_structure){ |
if(type_of(V268)==t_structure){ |
2382 |
goto T919;} |
goto T955;} |
2383 |
goto T917; |
goto T953; |
2384 |
goto T919; |
goto T955; |
2385 |
T919:; |
T955:; |
2386 |
if(!(((V268)->str.str_def)==(VV[8]))){ |
if(!(((V268)->str.str_def)==(VV[8]))){ |
2387 |
goto T917;} |
goto T953;} |
2388 |
V269= STREF(object,(V268),4); |
V269= STREF(object,(V268),4); |
2389 |
V270= STREF(object,(V268),0); |
V270= STREF(object,(V268),0); |
2390 |
goto T915; |
goto T951; |
2391 |
goto T917; |
goto T953; |
2392 |
T917:;{object V273; |
T953:;{object V273; |
2393 |
V273= (VV[3]->s.s_dbind); |
V273= (VV[3]->s.s_dbind); |
2394 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
2395 |
base[3]= (V268); |
base[3]= (V268); |
2396 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2397 |
(void) (*Lnk55)(); |
(void) (*Lnk70)(); |
2398 |
vs_top=sup; |
vs_top=sup; |
2399 |
V274= vs_base[0]; |
V274= vs_base[0]; |
2400 |
if(!((V273)==(CMPcar(V274)))){ |
if(!((V273)==(CMPcar(V274)))){ |
2401 |
goto T924;}} |
goto T960;}} |
2402 |
V269= CMPcar(((V268))->cc.cc_turbo[12]); |
V269= CMPcar(((V268))->cc.cc_turbo[12]); |
2403 |
V270= CMPcar(((V268))->cc.cc_turbo[13]); |
V270= CMPcar(((V268))->cc.cc_turbo[13]); |
2404 |
goto T915; |
goto T951; |
2405 |
goto T924; |
goto T960; |
2406 |
T924:; |
T960:; |
2407 |
V270= Cnil; |
V270= Cnil; |
2408 |
goto T915; |
goto T951; |
2409 |
T915:; |
T951:; |
2410 |
V271= Cnil; |
V271= Cnil; |
2411 |
if(((V270))==Cnil){ |
if(((V270))==Cnil){ |
2412 |
goto T932;} |
goto T968;} |
2413 |
if((fix(((V270))->v.v_self[0]))==0){ |
if((fix(((V270))->v.v_self[0]))==0){ |
2414 |
goto T932;} |
goto T968;} |
2415 |
if(((V270))==((base0[3]->c.c_car))){ |
if(((V270))==((base0[3]->c.c_car))){ |
2416 |
goto T938;} |
goto T974;} |
2417 |
if(!(((V270))==((base0[2]->c.c_car)))){ |
if(!(((V270))==((base0[2]->c.c_car)))){ |
2418 |
goto T932;} |
goto T968;} |
2419 |
goto T938; |
goto T974; |
2420 |
T938:;{object V275; |
T974:;{object V275; |
2421 |
V275= (VV[4]->s.s_dbind); |
V275= (VV[4]->s.s_dbind); |
2422 |
V271= ((V269))->v.v_self[fix((base0[1]->c.c_car))]; |
V271= ((V269))->v.v_self[fix((base0[1]->c.c_car))]; |
2423 |
V276 = (V271); |
if(!((V275)==((V271)))){ |
2424 |
if(!((V275)==(V276))){ |
goto T969;}} |
2425 |
goto T933;}} |
goto T968; |
2426 |
goto T932; |
T968:; |
|
T932:; |
|
2427 |
base[2]= (V268); |
base[2]= (V268); |
2428 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2429 |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2431 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2432 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2433 |
return; |
return; |
2434 |
goto T933; |
goto T969; |
2435 |
T933:; |
T969:; |
2436 |
base[2]= (V271); |
base[2]= (V271); |
2437 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2438 |
return;} |
return;} |
2463 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2464 |
register object *sup=base+VM42; VC42 |
register object *sup=base+VM42; VC42 |
2465 |
vs_check; |
vs_check; |
2466 |
{register object V277; |
{register object V276; |
2467 |
check_arg(1); |
check_arg(1); |
2468 |
V277=(base[0]); |
V276=(base[0]); |
2469 |
vs_top=sup; |
vs_top=sup; |
2470 |
{object V278; |
{object V277; |
2471 |
object V279; |
object V278; |
2472 |
if(type_of(V277)==t_structure){ |
if(type_of(V276)==t_structure){ |
2473 |
goto T949;} |
goto T985;} |
2474 |
goto T947; |
goto T983; |
2475 |
goto T949; |
goto T985; |
2476 |
T949:; |
T985:; |
2477 |
if(!(((V277)->str.str_def)==(VV[7]))){ |
if(!(((V276)->str.str_def)==(VV[7]))){ |
2478 |
goto T947;} |
goto T983;} |
2479 |
V278= STREF(object,(V277),0); |
V277= STREF(object,(V276),0); |
2480 |
goto T945; |
goto T981; |
2481 |
goto T947; |
goto T983; |
2482 |
T947:;{object V281; |
T983:;{object V280; |
2483 |
V281= (VV[3]->s.s_dbind); |
V280= (VV[3]->s.s_dbind); |
2484 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
2485 |
base[3]= (V277); |
base[3]= (V276); |
2486 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2487 |
(void) (*Lnk55)(); |
(void) (*Lnk70)(); |
2488 |
vs_top=sup; |
vs_top=sup; |
2489 |
V282= vs_base[0]; |
V281= vs_base[0]; |
2490 |
if(!((V281)==(CMPcar(V282)))){ |
if(!((V280)==(CMPcar(V281)))){ |
2491 |
goto T952;}} |
goto T988;}} |
2492 |
V278= CMPcar(((V277))->cc.cc_turbo[13]); |
V277= CMPcar(((V276))->cc.cc_turbo[13]); |
2493 |
goto T945; |
goto T981; |
2494 |
goto T952; |
goto T988; |
2495 |
T952:; |
T988:; |
2496 |
|
V277= Cnil; |
2497 |
|
goto T981; |
2498 |
|
T981:; |
2499 |
V278= Cnil; |
V278= Cnil; |
2500 |
goto T945; |
if(((V277))==Cnil){ |
2501 |
T945:; |
goto T994;} |
2502 |
V279= Cnil; |
if((fix(((V277))->v.v_self[0]))==0){ |
2503 |
if(((V278))==Cnil){ |
goto T994;} |
2504 |
goto T958;} |
if(((V277))==((base0[3]->c.c_car))){ |
2505 |
if((fix(((V278))->v.v_self[0]))==0){ |
goto T1000;} |
2506 |
goto T958;} |
if(!(((V277))==((base0[2]->c.c_car)))){ |
2507 |
if(((V278))==((base0[3]->c.c_car))){ |
goto T994;} |
2508 |
goto T964;} |
goto T1000; |
2509 |
if(!(((V278))==((base0[2]->c.c_car)))){ |
T1000:;{object V282; |
2510 |
goto T958;} |
V282= (VV[4]->s.s_dbind); |
2511 |
goto T964; |
V278= CMPcdr((base0[1]->c.c_car)); |
2512 |
T964:;{object V283; |
if(!((V282)==((V278)))){ |
2513 |
V283= (VV[4]->s.s_dbind); |
goto T995;}} |
2514 |
V279= CMPcdr((base0[1]->c.c_car)); |
goto T994; |
2515 |
V284 = (V279); |
T994:; |
2516 |
if(!((V283)==(V284))){ |
base[2]= (V276); |
|
goto T959;}} |
|
|
goto T958; |
|
|
T958:; |
|
|
base[2]= (V277); |
|
2517 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2518 |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2519 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2520 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2521 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2522 |
return; |
return; |
2523 |
goto T959; |
goto T995; |
2524 |
T959:; |
T995:; |
2525 |
base[2]= (V279); |
base[2]= (V278); |
2526 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2527 |
return;} |
return;} |
2528 |
} |
} |
2551 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2552 |
register object *sup=base+VM44; VC44 |
register object *sup=base+VM44; VC44 |
2553 |
vs_check; |
vs_check; |
2554 |
{register object V285; |
{register object V283; |
2555 |
check_arg(1); |
check_arg(1); |
2556 |
V285=(base[0]); |
V283=(base[0]); |
2557 |
vs_top=sup; |
vs_top=sup; |
2558 |
{object V286; |
{object V284; |
2559 |
object V287; |
object V285; |
2560 |
object V288; |
object V286; |
2561 |
V286= Cnil; |
V284= Cnil; |
2562 |
if(type_of(V285)==t_structure){ |
if(type_of(V283)==t_structure){ |
2563 |
goto T976;} |
goto T1012;} |
2564 |
goto T974; |
goto T1010; |
2565 |
goto T976; |
goto T1012; |
2566 |
T976:; |
T1012:; |
2567 |
if(!(((V285)->str.str_def)==(VV[5]))){ |
if(!(((V283)->str.str_def)==(VV[5]))){ |
2568 |
goto T974;} |
goto T1010;} |
2569 |
V286= STREF(object,(V285),4); |
V284= STREF(object,(V283),4); |
2570 |
V287= STREF(object,(V285),0); |
V285= STREF(object,(V283),0); |
2571 |
goto T972; |
goto T1008; |
2572 |
goto T974; |
goto T1010; |
2573 |
T974:;{object V290; |
T1010:;{object V288; |
2574 |
V290= (VV[3]->s.s_dbind); |
V288= (VV[3]->s.s_dbind); |
2575 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
2576 |
base[3]= (V285); |
base[3]= (V283); |
2577 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2578 |
(void) (*Lnk55)(); |
(void) (*Lnk70)(); |
2579 |
vs_top=sup; |
vs_top=sup; |
2580 |
V291= vs_base[0]; |
V289= vs_base[0]; |
2581 |
if(!((V290)==(CMPcar(V291)))){ |
if(!((V288)==(CMPcar(V289)))){ |
2582 |
goto T981;}} |
goto T1017;}} |
2583 |
V286= CMPcar(((V285))->cc.cc_turbo[12]); |
V284= CMPcar(((V283))->cc.cc_turbo[12]); |
2584 |
V287= CMPcar(((V285))->cc.cc_turbo[13]); |
V285= CMPcar(((V283))->cc.cc_turbo[13]); |
2585 |
goto T972; |
goto T1008; |
2586 |
goto T981; |
goto T1017; |
2587 |
T981:; |
T1017:; |
2588 |
V287= Cnil; |
V285= Cnil; |
2589 |
goto T972; |
goto T1008; |
2590 |
T972:; |
T1008:; |
2591 |
V288= Cnil; |
V286= Cnil; |
2592 |
if(((V287))==Cnil){ |
if(((V285))==Cnil){ |
2593 |
goto T989;} |
goto T1025;} |
2594 |
if((fix(((V287))->v.v_self[0]))==0){ |
if((fix(((V285))->v.v_self[0]))==0){ |
2595 |
goto T989;} |
goto T1025;} |
2596 |
if(!(((V287))==((base0[2]->c.c_car)))){ |
if(!(((V285))==((base0[2]->c.c_car)))){ |
2597 |
goto T989;}{object V292; |
goto T1025;}{object V290; |
2598 |
V292= (VV[4]->s.s_dbind); |
V290= (VV[4]->s.s_dbind); |
2599 |
V288= ((V286))->v.v_self[fix((base0[1]->c.c_car))]; |
V286= ((V284))->v.v_self[fix((base0[1]->c.c_car))]; |
2600 |
V293 = (V288); |
if(!((V290)==((V286)))){ |
2601 |
if(!((V292)==(V293))){ |
goto T1026;}} |
2602 |
goto T990;}} |
goto T1025; |
2603 |
goto T989; |
T1025:; |
2604 |
T989:; |
base[2]= (V283); |
|
base[2]= (V285); |
|
2605 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2606 |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2607 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2608 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2609 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2610 |
return; |
return; |
2611 |
goto T990; |
goto T1026; |
2612 |
T990:; |
T1026:; |
2613 |
base[2]= (V288); |
base[2]= (V286); |
2614 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2615 |
return;} |
return;} |
2616 |
} |
} |
2639 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2640 |
register object *sup=base+VM46; VC46 |
register object *sup=base+VM46; VC46 |
2641 |
vs_check; |
vs_check; |
2642 |
{register object V294; |
{register object V291; |
2643 |
check_arg(1); |
check_arg(1); |
2644 |
V294=(base[0]); |
V291=(base[0]); |
2645 |
vs_top=sup; |
vs_top=sup; |
2646 |
{object V295; |
{object V292; |
2647 |
object V296; |
object V293; |
2648 |
if(type_of(V294)==t_structure){ |
if(type_of(V291)==t_structure){ |
2649 |
goto T1004;} |
goto T1040;} |
2650 |
goto T1002; |
goto T1038; |
2651 |
goto T1004; |
goto T1040; |
2652 |
T1004:; |
T1040:; |
2653 |
if(!(((V294)->str.str_def)==(VV[1]))){ |
if(!(((V291)->str.str_def)==(VV[1]))){ |
2654 |
goto T1002;} |
goto T1038;} |
2655 |
V295= STREF(object,(V294),0); |
V292= STREF(object,(V291),0); |
2656 |
goto T1000; |
goto T1036; |
2657 |
goto T1002; |
goto T1038; |
2658 |
T1002:;{object V298; |
T1038:;{object V295; |
2659 |
V298= (VV[3]->s.s_dbind); |
V295= (VV[3]->s.s_dbind); |
2660 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
2661 |
base[3]= (V294); |
base[3]= (V291); |
2662 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2663 |
(void) (*Lnk55)(); |
(void) (*Lnk70)(); |
2664 |
vs_top=sup; |
vs_top=sup; |
2665 |
V299= vs_base[0]; |
V296= vs_base[0]; |
2666 |
if(!((V298)==(CMPcar(V299)))){ |
if(!((V295)==(CMPcar(V296)))){ |
2667 |
goto T1007;}} |
goto T1043;}} |
2668 |
V295= CMPcar(((V294))->cc.cc_turbo[13]); |
V292= CMPcar(((V291))->cc.cc_turbo[13]); |
2669 |
goto T1000; |
goto T1036; |
2670 |
goto T1007; |
goto T1043; |
2671 |
T1007:; |
T1043:; |
2672 |
V295= Cnil; |
V292= Cnil; |
2673 |
goto T1000; |
goto T1036; |
2674 |
T1000:; |
T1036:; |
2675 |
V296= Cnil; |
V293= Cnil; |
2676 |
if(((V295))==Cnil){ |
if(((V292))==Cnil){ |
2677 |
goto T1013;} |
goto T1049;} |
2678 |
if((fix(((V295))->v.v_self[0]))==0){ |
if((fix(((V292))->v.v_self[0]))==0){ |
2679 |
goto T1013;} |
goto T1049;} |
2680 |
if(!(((V295))==((base0[2]->c.c_car)))){ |
if(!(((V292))==((base0[2]->c.c_car)))){ |
2681 |
goto T1013;}{object V300; |
goto T1049;}{object V297; |
2682 |
V300= (VV[4]->s.s_dbind); |
V297= (VV[4]->s.s_dbind); |
2683 |
V296= CMPcdr((base0[1]->c.c_car)); |
V293= CMPcdr((base0[1]->c.c_car)); |
2684 |
V301 = (V296); |
if(!((V297)==((V293)))){ |
2685 |
if(!((V300)==(V301))){ |
goto T1050;}} |
2686 |
goto T1014;}} |
goto T1049; |
2687 |
goto T1013; |
T1049:; |
2688 |
T1013:; |
base[2]= (V291); |
|
base[2]= (V294); |
|
2689 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2690 |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (base0[0]->c.c_car);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2691 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2692 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2693 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2694 |
return; |
return; |
2695 |
goto T1014; |
goto T1050; |
2696 |
T1014:; |
T1050:; |
2697 |
base[2]= (V296); |
base[2]= (V293); |
2698 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2699 |
return;} |
return;} |
2700 |
} |
} |
2701 |
} |
} |
2702 |
static object LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[56],(void **)(void *)&LnkLI56,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ |
static object LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)(void *)&LnkLI71,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ |
2703 |
static void LnkT55(){ call_or_link(VV[55],(void **)(void *)&Lnk55);} /* CCLOSURE-ENV-NTHCDR */ |
static void LnkT70(){ call_or_link(VV[70],(void **)(void *)&Lnk70);} /* CCLOSURE-ENV-NTHCDR */ |
2704 |
static object LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[54],(void **)(void *)&LnkLI54,first,ap);va_end(ap);return V1;} /* PROBE-CACHE */ |
static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[69],(void **)(void *)&LnkLI69,first,ap);va_end(ap);return V1;} /* PROBE-CACHE */ |
2705 |
static object LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[53],(void **)(void *)&LnkLI53,1,first,ap);va_end(ap);return V1;} /* CHECK-WRAPPER-VALIDITY */ |
static object LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)(void *)&LnkLI68,1,first,ap);va_end(ap);return V1;} /* CHECK-WRAPPER-VALIDITY */ |
2706 |
static object LnkTLI52(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[52],(void **)(void *)&LnkLI52,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */ |
static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)(void *)&LnkLI67,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */ |
2707 |
static void LnkT51(){ call_or_link(VV[51],(void **)(void *)&Lnk51);} /* INVOKE-EMF */ |
static void LnkT66(){ call_or_link(VV[66],(void **)(void *)&Lnk66);} /* INVOKE-EMF */ |
2708 |
static object LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[49],(void **)(void *)&LnkLI49,4,first,ap);va_end(ap);return V1;} /* EMIT-CHECKING-OR-CACHING-FUNCTION-PRELIMINARY */ |
static object LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[64],(void **)(void *)&LnkLI64,4,first,ap);va_end(ap);return V1;} /* EMIT-CHECKING-OR-CACHING-FUNCTION-PRELIMINARY */ |
2709 |
|
static void LnkT50(){ call_or_link(VV[50],(void **)(void *)&Lnk50);} /* ERROR */ |
2710 |
|
|
2711 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
2712 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |