51 |
base[6]= (V9); |
base[6]= (V9); |
52 |
base[7]= VV[0]; |
base[7]= VV[0]; |
53 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
54 |
(void) (*Lnk7)(); |
(void) (*Lnk14)(); |
55 |
vs_top=sup; |
vs_top=sup; |
56 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
57 |
goto T14;} |
goto T14;} |
67 |
base[6]= V9; |
base[6]= V9; |
68 |
base[7]= VV[1]; |
base[7]= VV[1]; |
69 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
70 |
(void) (*Lnk7)(); |
(void) (*Lnk14)(); |
71 |
vs_top=sup; |
vs_top=sup; |
72 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
73 |
goto T19;} |
goto T19;} |
74 |
{object V12; |
{object V13; |
75 |
object V13; |
object V14; |
76 |
register object V14; |
register object V15; |
77 |
V12= STREF(object,(V9),0); |
V13= STREF(object,(V9),0); |
78 |
V13= listA(3,(V3),(V4),(V5)); |
V14= listA(3,(V3),(V4),(V5)); |
79 |
V14= STREF(object,(V9),4); |
V15= STREF(object,(V9),4); |
80 |
if(((V14))==Cnil){ |
if(((V15))==Cnil){ |
81 |
goto T27;} |
goto T27;} |
82 |
if((CMPcdr((V14)))!=Cnil){ |
if((CMPcdr((V15)))!=Cnil){ |
83 |
goto T27;} |
goto T27;} |
84 |
(void)(( |
(void)(( |
85 |
(type_of((V12)) == t_sfun ?(*(((V12))->sfn.sfn_self)): |
(type_of((V13)) == t_sfun ?(*(((V13))->sfn.sfn_self)): |
86 |
(fcall.argd=2,type_of((V12))==t_vfun) ? |
(fcall.argd=2,type_of((V13))==t_vfun) ? |
87 |
(*(((V12))->sfn.sfn_self)): |
(*(((V13))->sfn.sfn_self)): |
88 |
(fcall.fun=((V12)),fcalln))((V13),CMPcar((V14))))); |
(fcall.fun=((V13)),fcalln))((V14),CMPcar((V15))))); |
89 |
goto T11; |
goto T11; |
90 |
goto T27; |
goto T27; |
91 |
T27:; |
T27:; |
92 |
base[6]= (V12); |
base[6]= (V13); |
93 |
base[7]= (V13); |
base[7]= (V14); |
94 |
{object V15; |
{object V16; |
95 |
V15= (V14); |
V16= (V15); |
96 |
vs_top=base+8; |
vs_top=base+8; |
97 |
while(V15!=Cnil) |
while(V16!=Cnil) |
98 |
{vs_push((V15)->c.c_car);V15=(V15)->c.c_cdr;} |
{vs_push((V16)->c.c_car);V16=(V16)->c.c_cdr;} |
99 |
vs_base=base+7;} |
vs_base=base+7;} |
100 |
{object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
101 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
114 |
base[6]= (V9); |
base[6]= (V9); |
115 |
base[7]= (V3); |
base[7]= (V3); |
116 |
base[8]= (V4); |
base[8]= (V4); |
117 |
{object V16; |
{object V17; |
118 |
V16= (V5); |
V17= (V5); |
119 |
vs_top=base+9; |
vs_top=base+9; |
120 |
while(V16!=Cnil) |
while(V17!=Cnil) |
121 |
{vs_push((V16)->c.c_car);V16=(V16)->c.c_cdr;} |
{vs_push((V17)->c.c_car);V17=(V17)->c.c_cdr;} |
122 |
vs_base=base+7;} |
vs_base=base+7;} |
123 |
{object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
124 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
128 |
goto T11; |
goto T11; |
129 |
goto T35; |
goto T35; |
130 |
T35:; |
T35:; |
131 |
base[7]= VV[2]; |
base[6]= VV[2]; |
132 |
base[8]= V9; |
base[7]= VV[3]; |
133 |
base[9]= VV[3]; |
base[8]= VV[4]; |
134 |
vs_top=(vs_base=base+7)+3; |
base[9]= VV[5]; |
135 |
(void) (*Lnk8)(); |
base[10]= V9; |
136 |
vs_top=sup; |
base[11]= VV[6]; |
137 |
base[6]= vs_base[0]; |
base[12]= VV[7]; |
138 |
vs_top=(vs_base=base+6)+1; |
base[13]= VV[8]; |
139 |
Lerror(); |
base[14]= VV[9]; |
140 |
|
vs_top=(vs_base=base+6)+9; |
141 |
|
(void) (*Lnk15)(); |
142 |
vs_top=sup; |
vs_top=sup; |
143 |
goto T11; |
goto T11; |
144 |
T11:; |
T11:; |
150 |
base[5]= (base0[1]->c.c_car); |
base[5]= (base0[1]->c.c_car); |
151 |
base[6]= VV[0]; |
base[6]= VV[0]; |
152 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
153 |
(void) (*Lnk7)(); |
(void) (*Lnk14)(); |
154 |
vs_top=sup; |
vs_top=sup; |
155 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
156 |
goto T53;} |
goto T58;} |
157 |
base[5]= STREF(object,(base0[1]->c.c_car),0); |
base[5]= STREF(object,(base0[1]->c.c_car),0); |
158 |
base[6]= STREF(object,(base0[1]->c.c_car),4); |
base[6]= STREF(object,(base0[1]->c.c_car),4); |
159 |
base[7]= STREF(object,(base0[1]->c.c_car),8); |
base[7]= STREF(object,(base0[1]->c.c_car),8); |
166 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
167 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
168 |
goto T1; |
goto T1; |
169 |
goto T53; |
goto T58; |
170 |
T53:; |
T58:; |
171 |
{object V17; |
{object V18; |
172 |
V17= (base0[1]->c.c_car); |
V18= (base0[1]->c.c_car); |
173 |
base[5]= (V17); |
base[5]= V18; |
174 |
base[6]= VV[1]; |
base[6]= VV[1]; |
175 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
176 |
(void) (*Lnk7)(); |
(void) (*Lnk14)(); |
177 |
vs_top=sup; |
vs_top=sup; |
178 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
179 |
goto T64;} |
goto T69;} |
180 |
{object V18; |
{object V20; |
181 |
object V19; |
object V21; |
182 |
object V20; |
object V22; |
183 |
V18= STREF(object,(base0[1]->c.c_car),0); |
V20= STREF(object,(base0[1]->c.c_car),0); |
184 |
V19= listA(3,(V3),(V4),(V5)); |
V21= listA(3,(V3),(V4),(V5)); |
185 |
V20= STREF(object,(base0[1]->c.c_car),4); |
V22= STREF(object,(base0[1]->c.c_car),4); |
186 |
if(((V20))==Cnil){ |
if(((V22))==Cnil){ |
187 |
goto T72;} |
goto T77;} |
188 |
if((CMPcdr((V20)))!=Cnil){ |
if((CMPcdr((V22)))!=Cnil){ |
189 |
goto T72;} |
goto T77;} |
190 |
base[5]= (V19); |
base[5]= (V21); |
191 |
base[6]= CMPcar((V20)); |
base[6]= CMPcar((V22)); |
192 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
193 |
{object _funobj = (V18);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V20);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
194 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
195 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
196 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
197 |
goto T1; |
goto T1; |
198 |
goto T72; |
goto T77; |
199 |
T72:; |
T77:; |
200 |
base[5]= (V18); |
base[5]= (V20); |
201 |
base[6]= (V19); |
base[6]= (V21); |
202 |
{object V21; |
{object V23; |
203 |
V21= (V20); |
V23= (V22); |
204 |
vs_top=base+7; |
vs_top=base+7; |
205 |
while(V21!=Cnil) |
while(V23!=Cnil) |
206 |
{vs_push((V21)->c.c_car);V21=(V21)->c.c_cdr;} |
{vs_push((V23)->c.c_car);V23=(V23)->c.c_cdr;} |
207 |
vs_base=base+6;} |
vs_base=base+6;} |
208 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
209 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
210 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
211 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
212 |
goto T1;} |
goto T1;} |
213 |
goto T64; |
goto T69; |
214 |
T64:; |
T69:; |
215 |
base[5]= (V17); |
base[5]= V18; |
216 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
217 |
Lfunctionp(); |
Lfunctionp(); |
218 |
vs_top=sup; |
vs_top=sup; |
219 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
220 |
goto T82;} |
goto T87;} |
221 |
base[5]= (base0[1]->c.c_car); |
base[5]= (base0[1]->c.c_car); |
222 |
base[6]= (V3); |
base[6]= (V3); |
223 |
base[7]= (V4); |
base[7]= (V4); |
224 |
{object V22; |
{object V24; |
225 |
V22= (V5); |
V24= (V5); |
226 |
vs_top=base+8; |
vs_top=base+8; |
227 |
while(V22!=Cnil) |
while(V24!=Cnil) |
228 |
{vs_push((V22)->c.c_car);V22=(V22)->c.c_cdr;} |
{vs_push((V24)->c.c_car);V24=(V24)->c.c_cdr;} |
229 |
vs_base=base+6;} |
vs_base=base+6;} |
230 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
231 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
232 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
233 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
234 |
goto T1; |
goto T1; |
235 |
goto T82; |
goto T87; |
236 |
T82:; |
T87:; |
237 |
base[6]= VV[4]; |
base[5]= VV[2]; |
238 |
base[7]= (V17); |
base[6]= VV[3]; |
239 |
|
base[7]= VV[4]; |
240 |
base[8]= VV[5]; |
base[8]= VV[5]; |
241 |
vs_top=(vs_base=base+6)+3; |
base[9]= (V18); |
242 |
(void) (*Lnk8)(); |
base[10]= VV[6]; |
243 |
vs_top=sup; |
base[11]= VV[10]; |
244 |
base[5]= vs_base[0]; |
base[12]= VV[8]; |
245 |
vs_top=(vs_base=base+5)+1; |
base[13]= VV[11]; |
246 |
Lerror();} |
vs_top=(vs_base=base+5)+9; |
247 |
|
(void) (*Lnk15)();} |
248 |
goto T1; |
goto T1; |
249 |
T1:; |
T1:; |
250 |
{object *V7=vs_top;object *V6=vs_base; vs_base=V7; |
{object *V7=vs_top;object *V6=vs_base; vs_base=V7; |
255 |
base[0]=base[0]; |
base[0]=base[0]; |
256 |
vs_check; |
vs_check; |
257 |
vs_top=sup; |
vs_top=sup; |
258 |
{object V23; |
{object V25; |
259 |
register object V24; |
register object V26; |
260 |
V23= (base0[0]->c.c_car); |
V25= (base0[0]->c.c_car); |
261 |
V24= CMPcar((V23)); |
V26= CMPcar((V25)); |
262 |
goto T97; |
goto T107; |
263 |
T97:; |
T107:; |
264 |
if(!(((V23))==Cnil)){ |
if(!(((V25))==Cnil)){ |
265 |
goto T98;} |
goto T108;} |
266 |
goto T93; |
goto T103; |
267 |
goto T98; |
goto T108; |
268 |
T98:; |
T108:; |
269 |
base[1]= (V24); |
base[1]= (V26); |
270 |
base[2]= VV[0]; |
base[2]= VV[0]; |
271 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
272 |
(void) (*Lnk7)(); |
(void) (*Lnk14)(); |
273 |
vs_top=sup; |
vs_top=sup; |
274 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
275 |
goto T105;} |
goto T115;} |
276 |
(void)(( |
(void)(( |
277 |
V25 = STREF(object,(V24),0), |
V27 = STREF(object,(V26),0), |
278 |
(type_of(V25) == t_sfun ?(*((V25)->sfn.sfn_self)): |
(type_of(V27) == t_sfun ?(*((V27)->sfn.sfn_self)): |
279 |
(fcall.argd=5,type_of(V25)==t_vfun) ? |
(fcall.argd=5,type_of(V27)==t_vfun) ? |
280 |
(*((V25)->sfn.sfn_self)): |
(*((V27)->sfn.sfn_self)): |
281 |
(fcall.fun=(V25),fcalln))(STREF(object,(V24),4),STREF(object,(V24),8),(V3),(V4),(V5)))); |
(fcall.fun=(V27),fcalln))(STREF(object,(V26),4),STREF(object,(V26),8),(V3),(V4),(V5)))); |
282 |
goto T102; |
goto T112; |
283 |
goto T105; |
goto T115; |
284 |
T105:; |
T115:; |
285 |
base[1]= V24; |
base[1]= V26; |
286 |
base[2]= VV[1]; |
base[2]= VV[1]; |
287 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
288 |
(void) (*Lnk7)(); |
(void) (*Lnk14)(); |
289 |
vs_top=sup; |
vs_top=sup; |
290 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
291 |
goto T110;} |
goto T120;} |
|
{object V27; |
|
|
object V28; |
|
|
register object V29; |
|
|
V27= STREF(object,(V24),0); |
|
|
V28= listA(3,(V3),(V4),(V5)); |
|
|
V29= STREF(object,(V24),4); |
|
|
if(((V29))==Cnil){ |
|
|
goto T118;} |
|
|
if((CMPcdr((V29)))!=Cnil){ |
|
|
goto T118;} |
|
|
(void)(( |
|
|
(type_of((V27)) == t_sfun ?(*(((V27))->sfn.sfn_self)): |
|
|
(fcall.argd=2,type_of((V27))==t_vfun) ? |
|
|
(*(((V27))->sfn.sfn_self)): |
|
|
(fcall.fun=((V27)),fcalln))((V28),CMPcar((V29))))); |
|
|
goto T102; |
|
|
goto T118; |
|
|
T118:; |
|
|
base[1]= (V27); |
|
|
base[2]= (V28); |
|
292 |
{object V30; |
{object V30; |
293 |
V30= (V29); |
object V31; |
294 |
|
register object V32; |
295 |
|
V30= STREF(object,(V26),0); |
296 |
|
V31= listA(3,(V3),(V4),(V5)); |
297 |
|
V32= STREF(object,(V26),4); |
298 |
|
if(((V32))==Cnil){ |
299 |
|
goto T128;} |
300 |
|
if((CMPcdr((V32)))!=Cnil){ |
301 |
|
goto T128;} |
302 |
|
(void)(( |
303 |
|
(type_of((V30)) == t_sfun ?(*(((V30))->sfn.sfn_self)): |
304 |
|
(fcall.argd=2,type_of((V30))==t_vfun) ? |
305 |
|
(*(((V30))->sfn.sfn_self)): |
306 |
|
(fcall.fun=((V30)),fcalln))((V31),CMPcar((V32))))); |
307 |
|
goto T112; |
308 |
|
goto T128; |
309 |
|
T128:; |
310 |
|
base[1]= (V30); |
311 |
|
base[2]= (V31); |
312 |
|
{object V33; |
313 |
|
V33= (V32); |
314 |
vs_top=base+3; |
vs_top=base+3; |
315 |
while(V30!=Cnil) |
while(V33!=Cnil) |
316 |
{vs_push((V30)->c.c_car);V30=(V30)->c.c_cdr;} |
{vs_push((V33)->c.c_car);V33=(V33)->c.c_cdr;} |
317 |
vs_base=base+2;} |
vs_base=base+2;} |
318 |
{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)) |
319 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
320 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
321 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
322 |
vs_top=sup; |
vs_top=sup; |
323 |
goto T102;} |
goto T112;} |
324 |
goto T110; |
goto T120; |
325 |
T110:; |
T120:; |
326 |
base[1]= V24; |
base[1]= V26; |
327 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
328 |
Lfunctionp(); |
Lfunctionp(); |
329 |
vs_top=sup; |
vs_top=sup; |
330 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
331 |
goto T126;} |
goto T136;} |
332 |
base[1]= (V24); |
base[1]= (V26); |
333 |
base[2]= (V3); |
base[2]= (V3); |
334 |
base[3]= (V4); |
base[3]= (V4); |
335 |
{object V31; |
{object V34; |
336 |
V31= (V5); |
V34= (V5); |
337 |
vs_top=base+4; |
vs_top=base+4; |
338 |
while(V31!=Cnil) |
while(V34!=Cnil) |
339 |
{vs_push((V31)->c.c_car);V31=(V31)->c.c_cdr;} |
{vs_push((V34)->c.c_car);V34=(V34)->c.c_cdr;} |
340 |
vs_base=base+2;} |
vs_base=base+2;} |
341 |
{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)) |
342 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
343 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
344 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
345 |
vs_top=sup; |
vs_top=sup; |
346 |
goto T102; |
goto T112; |
347 |
goto T126; |
goto T136; |
348 |
T126:; |
T136:; |
349 |
base[2]= VV[2]; |
base[1]= VV[2]; |
350 |
base[3]= V24; |
base[2]= VV[3]; |
351 |
base[4]= VV[6]; |
base[3]= VV[4]; |
352 |
vs_top=(vs_base=base+2)+3; |
base[4]= VV[5]; |
353 |
(void) (*Lnk8)(); |
base[5]= V26; |
354 |
vs_top=sup; |
base[6]= VV[6]; |
355 |
base[1]= vs_base[0]; |
base[7]= VV[12]; |
356 |
vs_top=(vs_base=base+1)+1; |
base[8]= VV[8]; |
357 |
Lerror(); |
base[9]= VV[13]; |
358 |
vs_top=sup; |
vs_top=(vs_base=base+1)+9; |
359 |
goto T102; |
(void) (*Lnk15)(); |
360 |
T102:; |
vs_top=sup; |
361 |
V23= CMPcdr((V23)); |
goto T112; |
362 |
V24= CMPcar((V23)); |
T112:; |
363 |
goto T97;} |
V25= CMPcdr((V25)); |
364 |
|
V26= CMPcar((V25)); |
365 |
|
goto T107;} |
366 |
}} |
}} |
367 |
goto T93; |
goto T103; |
368 |
T93:; |
T103:; |
369 |
vs_base=V6;vs_top=V7;} |
vs_base=V6;vs_top=V7;} |
370 |
return; |
return; |
371 |
} |
} |
372 |
} |
} |
373 |
static void LnkT8(){ call_or_link(VV[8],(void **)(void *)&Lnk8);} /* TYPECASE-ERROR-STRING */ |
static void LnkT15(){ call_or_link(VV[15],(void **)(void *)&Lnk15);} /* ERROR */ |
374 |
static void LnkT7(){ call_or_link(VV[7],(void **)(void *)&Lnk7);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT14(){ call_or_link(VV[14],(void **)(void *)&Lnk14);} /* STRUCTURE-SUBTYPE-P */ |
375 |
|
|
376 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
377 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |