48 |
T21:; |
T21:; |
49 |
base[3]= Ct; |
base[3]= Ct; |
50 |
base[4]= VV[5]; |
base[4]= VV[5]; |
51 |
base[5]= make_cons(CMPcar((V2)),CMPcar((V5))); |
base[5]= make_cons(CMPcar((V2)),CMPcaar((V5))); |
52 |
base[6]= CMPcaddr((V5)); |
base[6]= CMPcaddr((V5)); |
53 |
if((CMPcadddr((V5)))==Cnil){ |
vs_top=(vs_base=base+3)+4; |
|
goto T32;} |
|
|
base[7]= VV[6]; |
|
|
goto T30; |
|
|
goto T32; |
|
|
T32:; |
|
|
base[7]= VV[7]; |
|
|
goto T30; |
|
|
T30:; |
|
|
vs_top=(vs_base=base+3)+5; |
|
54 |
Lformat(); |
Lformat(); |
55 |
vs_top=sup; |
vs_top=sup; |
56 |
V4= CMPcdr((V4)); |
V4= CMPcdr((V4)); |
80 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
81 |
V7=(base[1]); |
V7=(base[1]); |
82 |
vs_top=sup; |
vs_top=sup; |
83 |
if(((VV[8]->s.s_dbind))==Cnil){ |
if(((VV[6]->s.s_dbind))==Cnil){ |
84 |
goto T44;} |
goto T40;} |
85 |
{register object x= (V6),V8= VV[9]; |
{register object x= (V6),V8= VV[7]; |
86 |
while(V8!=Cnil) |
while(V8!=Cnil) |
87 |
if(eql(x,V8->c.c_car)){ |
if(eql(x,V8->c.c_car)){ |
88 |
goto T48; |
goto T44; |
89 |
}else V8=V8->c.c_cdr; |
}else V8=V8->c.c_cdr; |
90 |
goto T44;} |
goto T40;} |
91 |
goto T48; |
goto T44; |
92 |
T48:; |
T44:; |
93 |
{object V10; |
{object V10; |
94 |
object V11= CMPcar((V7)); |
object V11= CMPcar((V7)); |
95 |
if(V11==Cnil){ |
if(V11==Cnil){ |
96 |
V9= Cnil; |
V9= Cnil; |
97 |
goto T50;} |
goto T46;} |
98 |
base[2]=V10=MMcons(Cnil,Cnil); |
base[2]=V10=MMcons(Cnil,Cnil); |
99 |
goto T51; |
goto T47; |
100 |
T51:; |
T47:; |
101 |
if(!(((V11->c.c_car))==(Ct))){ |
if(!(((V11->c.c_car))==(Ct))){ |
102 |
goto T54;} |
goto T50;} |
103 |
(V10->c.c_car)= (V11->c.c_car); |
(V10->c.c_car)= (V11->c.c_car); |
104 |
goto T52; |
goto T48; |
105 |
goto T54; |
goto T50; |
106 |
T54:; |
T50:; |
107 |
(V10->c.c_car)= VV[10]; |
(V10->c.c_car)= VV[8]; |
108 |
goto T52; |
goto T48; |
109 |
T52:; |
T48:; |
110 |
if((V11=MMcdr(V11))==Cnil){ |
if((V11=MMcdr(V11))==Cnil){ |
111 |
V9= base[2]; |
V9= base[2]; |
112 |
goto T50;} |
goto T46;} |
113 |
V10=MMcdr(V10)=MMcons(Cnil,Cnil); |
V10=MMcdr(V10)=MMcons(Cnil,Cnil); |
114 |
goto T51;} |
goto T47;} |
115 |
goto T50; |
goto T46; |
116 |
T50:; |
T46:; |
117 |
V7= make_cons(V9,CMPcdr((V7))); |
V7= make_cons(V9,CMPcdr((V7))); |
118 |
goto T44; |
goto T40; |
119 |
T44:; |
T40:; |
120 |
{object V13; |
{object V13; |
121 |
object V14; |
object V14; |
122 |
{register object x= (V6),V15= (VV[4]->s.s_dbind); |
{register object x= (V6),V15= (VV[4]->s.s_dbind); |
123 |
while(V15!=Cnil) |
while(V15!=Cnil) |
124 |
if(EQ(x,V15->c.c_car->c.c_car) &&V15->c.c_car != Cnil){ |
if(EQ(x,V15->c.c_car->c.c_car) &&V15->c.c_car != Cnil){ |
125 |
V13= (V15->c.c_car); |
V13= (V15->c.c_car); |
126 |
goto T56; |
goto T52; |
127 |
}else V15=V15->c.c_cdr; |
}else V15=V15->c.c_cdr; |
128 |
V13= Cnil;} |
V13= Cnil;} |
129 |
goto T56; |
goto T52; |
130 |
T56:; |
T52:; |
131 |
{register object x= (V7),V16= CMPcdr((V13)); |
{register object x= (V7),V16= CMPcdr((V13)); |
132 |
while(V16!=Cnil) |
while(V16!=Cnil) |
133 |
if(equal(x,V16->c.c_car->c.c_car) &&V16->c.c_car != Cnil){ |
if(equal(x,V16->c.c_car->c.c_car) &&V16->c.c_car != Cnil){ |
134 |
V14= (V16->c.c_car); |
V14= (V16->c.c_car); |
135 |
goto T57; |
goto T53; |
136 |
}else V16=V16->c.c_cdr; |
}else V16=V16->c.c_cdr; |
137 |
V14= Cnil;} |
V14= Cnil;} |
138 |
goto T57; |
goto T53; |
139 |
T57:; |
T53:; |
140 |
if(((VV[1]->s.s_dbind))!=Cnil){ |
if(((VV[1]->s.s_dbind))!=Cnil){ |
141 |
goto T59;} |
goto T55;} |
142 |
base[5]= (V6); |
base[5]= (V6); |
143 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
144 |
Lsymbol_function(); |
Lsymbol_function(); |
155 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
156 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
157 |
return; |
return; |
158 |
goto T59; |
goto T55; |
159 |
T59:;{object V18; |
T55:;{object V18; |
160 |
V18= CMPcadr((V14)); |
V18= CMPcadr((V14)); |
161 |
if(V18==Cnil)goto T64; |
if(V18==Cnil)goto T60; |
162 |
base[4]= V18; |
base[4]= V18; |
163 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
164 |
return; |
return; |
165 |
goto T64; |
goto T60; |
166 |
T64:;} |
T60:;} |
167 |
{object V19; |
{object V19; |
168 |
object V20; |
object V20; |
169 |
base[5]= (V6); |
base[5]= (V6); |
181 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
182 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
183 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
184 |
if(vs_base>=vs_top){vs_top=sup;goto T70;} |
if(vs_base>=vs_top){vs_top=sup;goto T66;} |
185 |
V19= vs_base[0]; |
V19= vs_base[0]; |
186 |
vs_base++; |
vs_base++; |
187 |
if(vs_base>=vs_top){vs_top=sup;goto T71;} |
if(vs_base>=vs_top){vs_top=sup;goto T67;} |
188 |
V20= vs_base[0]; |
V20= vs_base[0]; |
189 |
vs_top=sup; |
vs_top=sup; |
190 |
goto T72; |
goto T68; |
191 |
goto T70; |
goto T66; |
192 |
T70:; |
T66:; |
193 |
V19= Cnil; |
V19= Cnil; |
194 |
goto T71; |
goto T67; |
195 |
T71:; |
T67:; |
196 |
V20= Cnil; |
V20= Cnil; |
197 |
goto T72; |
goto T68; |
198 |
T72:; |
T68:; |
199 |
{object V22; |
{object V22; |
200 |
base[4]= (V7); |
base[4]= (V7); |
201 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
202 |
Lcopy_list(); |
Lcopy_list(); |
203 |
vs_top=sup; |
vs_top=sup; |
204 |
V23= vs_base[0]; |
V23= vs_base[0]; |
|
V24 = (V19); |
|
205 |
if(((V20))!=Cnil){ |
if(((V20))!=Cnil){ |
206 |
goto T79;} |
goto T75;} |
207 |
V25= VV[11]; |
V24= VV[9]; |
208 |
goto T77; |
goto T73; |
209 |
goto T79; |
goto T75; |
210 |
T79:; |
T75:; |
211 |
V25= Cnil; |
V24= Cnil; |
|
goto T77; |
|
|
T77:; |
|
|
V26 = (V20); |
|
|
V22= list(4,V23,V24,V25,V26); |
|
|
if(((V13))==Cnil){ |
|
|
goto T82;} |
|
|
{object V29; |
|
|
V29= make_cons(V22,CMPcdr(V13)); |
|
|
(V13)->c.c_cdr = (V29); |
|
|
goto T73;} |
|
|
goto T82; |
|
|
T82:; |
|
|
{object V30; |
|
|
V30= list(2,(V6),(V22)); |
|
|
(VV[4]->s.s_dbind)= make_cons((V30),(VV[4]->s.s_dbind));}} |
|
212 |
goto T73; |
goto T73; |
213 |
T73:; |
T73:; |
214 |
|
V22= list(4,V23,(V19),V24,(V20)); |
215 |
|
if(((V13))==Cnil){ |
216 |
|
goto T78;} |
217 |
|
{object V27; |
218 |
|
V27= make_cons(V22,CMPcdr(V13)); |
219 |
|
(V13)->c.c_cdr = (V27); |
220 |
|
goto T69;} |
221 |
|
goto T78; |
222 |
|
T78:; |
223 |
|
{object V28; |
224 |
|
V28= list(2,(V6),(V22)); |
225 |
|
(VV[4]->s.s_dbind)= make_cons((V28),(VV[4]->s.s_dbind));}} |
226 |
|
goto T69; |
227 |
|
T69:; |
228 |
base[4]= (V19); |
base[4]= (V19); |
229 |
base[5]= (V20); |
base[5]= (V20); |
230 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
233 |
} |
} |
234 |
/* local entry for function LOAD-PRECOMPILED-DFUN-CONSTRUCTOR */ |
/* local entry for function LOAD-PRECOMPILED-DFUN-CONSTRUCTOR */ |
235 |
|
|
236 |
static object LI3(V35,V36,V37,V38) |
static object LI3(V33,V34,V35,V36) |
237 |
|
|
238 |
object V35;object V36;object V37;object V38; |
object V33;object V34;object V35;object V36; |
239 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
240 |
goto TTL; |
goto TTL; |
241 |
TTL:; |
TTL:; |
242 |
{object V39; |
{object V37; |
243 |
register object V40; |
register object V38; |
244 |
{register object x= (V35),V41= (VV[4]->s.s_dbind); |
{register object x= (V33),V39= (VV[4]->s.s_dbind); |
245 |
while(V41!=Cnil) |
while(V39!=Cnil) |
246 |
if(EQ(x,V41->c.c_car->c.c_car) &&V41->c.c_car != Cnil){ |
if(EQ(x,V39->c.c_car->c.c_car) &&V39->c.c_car != Cnil){ |
247 |
V39= (V41->c.c_car); |
V37= (V39->c.c_car); |
248 |
goto T90; |
goto T86; |
249 |
}else V41=V41->c.c_cdr; |
}else V39=V39->c.c_cdr; |
250 |
V39= Cnil;} |
V37= Cnil;} |
251 |
goto T90; |
goto T86; |
252 |
T90:; |
T86:; |
253 |
{register object x= (V36),V42= CMPcdr((V39)); |
{register object x= (V34),V40= CMPcdr((V37)); |
254 |
while(V42!=Cnil) |
while(V40!=Cnil) |
255 |
if(equal(x,V42->c.c_car->c.c_car) &&V42->c.c_car != Cnil){ |
if(equal(x,V40->c.c_car->c.c_car) &&V40->c.c_car != Cnil){ |
256 |
V40= (V42->c.c_car); |
V38= (V40->c.c_car); |
257 |
goto T91; |
goto T87; |
258 |
}else V42=V42->c.c_cdr; |
}else V40=V40->c.c_cdr; |
259 |
V40= Cnil;} |
V38= Cnil;} |
260 |
goto T91; |
goto T87; |
261 |
T91:; |
T87:; |
262 |
if(((V40))==Cnil){ |
if(((V38))==Cnil){ |
263 |
goto T93;} |
goto T89;} |
264 |
if((CMPcadddr((V40)))==Cnil){ |
if((CMPcadddr((V38)))==Cnil){ |
265 |
goto T96;} |
goto T92;} |
266 |
{object V43; |
{object V41; |
267 |
register object V44; |
register object V42; |
268 |
object V45; |
object V43; |
269 |
{object V46= (V35); |
{object V44= (V33); |
270 |
if((V46!= VV[61]))goto T99; |
if((V44!= VV[69]))goto T95; |
271 |
V43= VV[12]; |
V41= VV[10]; |
272 |
goto T98; |
goto T94; |
273 |
goto T99; |
goto T95; |
274 |
T99:; |
T95:; |
275 |
if((V46!= VV[68]))goto T100; |
if((V44!= VV[76]))goto T96; |
276 |
V43= VV[13]; |
V41= VV[11]; |
277 |
|
goto T94; |
278 |
|
goto T96; |
279 |
|
T96:; |
280 |
|
if((V44!= VV[82]))goto T97; |
281 |
|
V41= VV[12]; |
282 |
|
goto T94; |
283 |
|
goto T97; |
284 |
|
T97:; |
285 |
|
if((V44!= VV[68]))goto T98; |
286 |
|
V41= VV[13]; |
287 |
|
goto T94; |
288 |
goto T98; |
goto T98; |
289 |
|
T98:; |
290 |
|
V41= Cnil;} |
291 |
|
goto T94; |
292 |
|
T94:; |
293 |
|
V42= CMPcar((V34)); |
294 |
|
if(((V41))==Cnil){ |
295 |
|
goto T102;} |
296 |
|
V43= (*(LnkLI176))((V41)); |
297 |
goto T100; |
goto T100; |
|
T100:; |
|
|
if((V46!= VV[69]))goto T101; |
|
|
V43= VV[14]; |
|
|
goto T98; |
|
|
goto T101; |
|
|
T101:; |
|
|
if((V46!= VV[60]))goto T102; |
|
|
V43= VV[15]; |
|
|
goto T98; |
|
298 |
goto T102; |
goto T102; |
299 |
T102:; |
T102:; |
300 |
V43= Cnil;} |
V43= Cnil; |
301 |
goto T98; |
goto T100; |
302 |
T98:; |
T100:; |
303 |
V44= CMPcar((V36)); |
{register object V45; |
304 |
if(((V43))==Cnil){ |
register object V46; |
305 |
goto T106;} |
V45= (V43); |
306 |
V45= (*(LnkLI160))((V43)); |
V46= CMPcar((V45)); |
|
goto T104; |
|
|
goto T106; |
|
|
T106:; |
|
|
V45= Cnil; |
|
|
goto T104; |
|
|
T104:; |
|
|
{register object V47; |
|
|
register object V48; |
|
|
V47= (V45); |
|
|
V48= CMPcar((V47)); |
|
|
goto T112; |
|
|
T112:; |
|
|
if(!(((V47))==Cnil)){ |
|
|
goto T113;} |
|
307 |
goto T108; |
goto T108; |
308 |
goto T113; |
T108:; |
309 |
T113:; |
if(!(((V45))==Cnil)){ |
310 |
base[6]= (V48); |
goto T109;} |
311 |
|
goto T104; |
312 |
|
goto T109; |
313 |
|
T109:; |
314 |
|
base[6]= (V46); |
315 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
316 |
(void) (*Lnk161)(Lclptr161); |
(void) (*Lnk177)(Lclptr177); |
317 |
vs_top=sup; |
vs_top=sup; |
318 |
V49= vs_base[0]; |
V47= vs_base[0]; |
319 |
if(!(equal((V44),STREF(object,V49,8)))){ |
if(!(equal((V42),STREF(object,V47,8)))){ |
320 |
goto T117;} |
goto T113;} |
321 |
{register object V50; |
{register object V48; |
322 |
base[6]= (V48); |
base[6]= (V46); |
323 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
324 |
(void) (*Lnk162)(Lclptr162); |
(void) (*Lnk178)(Lclptr178); |
325 |
vs_top=sup; |
vs_top=sup; |
326 |
V50= vs_base[0]; |
V48= vs_base[0]; |
327 |
if(((((V50))==(VV[17])?Ct:Cnil))==Cnil){ |
if(((((V48))==(VV[15])?Ct:Cnil))==Cnil){ |
328 |
goto T126;} |
goto T122;} |
329 |
goto T117; |
goto T113; |
330 |
goto T126; |
goto T122; |
331 |
T126:; |
T122:; |
332 |
if(((equal((V50),VV[18])?Ct:Cnil))==Cnil){ |
if(((equal((V48),VV[16])?Ct:Cnil))==Cnil){ |
333 |
goto T128;} |
goto T124;} |
334 |
goto T117; |
goto T113; |
335 |
goto T128; |
goto T124; |
336 |
T128:; |
T124:; |
337 |
if(!(((((V50))==(VV[19])?Ct:Cnil))==Cnil)){ |
if(!(((((V48))==(VV[17])?Ct:Cnil))==Cnil)){ |
338 |
goto T117;}} |
goto T113;}} |
339 |
(void)((VFUN_NARGS=1,(*(LnkLI49))((V48)))); |
(void)((VFUN_NARGS=1,(*(LnkLI47))((V46)))); |
340 |
goto T117; |
goto T113; |
341 |
T117:; |
T113:; |
342 |
V47= CMPcdr((V47)); |
V45= CMPcdr((V45)); |
343 |
V48= CMPcar((V47)); |
V46= CMPcar((V45)); |
344 |
goto T112;} |
goto T108;} |
345 |
goto T108; |
goto T104; |
346 |
T108:; |
T104:; |
347 |
(CMPcdr(V40))->c.c_car = V38; |
(CMPcdr(V38))->c.c_car = V36; |
348 |
(void)(CMPcdr(V40)); |
(void)(CMPcdr(V38)); |
349 |
(CMPcddr(V40))->c.c_car = V37; |
(CMPcddr(V38))->c.c_car = V35; |
350 |
(void)(CMPcddr(V40)); |
(void)(CMPcddr(V38)); |
351 |
(CMPcdddr(V40))->c.c_car = Cnil; |
(CMPcdddr(V38))->c.c_car = Cnil; |
352 |
(void)(CMPcdddr(V40)); |
(void)(CMPcdddr(V38)); |
353 |
{object V57 = Cnil; |
{object V55 = Cnil; |
354 |
VMR3(V57)}} |
VMR3(V55)}} |
355 |
goto T96; |
goto T92; |
356 |
T96:; |
T92:; |
357 |
{object V58 = Cnil; |
{object V56 = Cnil; |
358 |
VMR3(V58)} |
VMR3(V56)} |
359 |
goto T93; |
goto T89; |
360 |
T93:; |
T89:; |
361 |
{object V59; |
{object V57; |
362 |
V59= list(4,(V36),(V38),(V37),Cnil); |
V57= list(4,(V34),(V36),(V35),Cnil); |
363 |
if(((V39))==Cnil){ |
if(((V37))==Cnil){ |
364 |
goto T142;} |
goto T138;} |
365 |
|
{object V60; |
366 |
|
V60= make_cons(V57,CMPcdr(V37)); |
367 |
|
(V37)->c.c_cdr = (V60); |
368 |
|
{object V61 = (V60); |
369 |
|
VMR3(V61)}} |
370 |
|
goto T138; |
371 |
|
T138:; |
372 |
{object V62; |
{object V62; |
373 |
V62= make_cons(V59,CMPcdr(V39)); |
V62= list(2,(V33),(V57)); |
374 |
(V39)->c.c_cdr = (V62); |
(VV[4]->s.s_dbind)= make_cons((V62),(VV[4]->s.s_dbind)); |
375 |
{object V63 = (V62); |
{object V63 = (VV[4]->s.s_dbind); |
376 |
VMR3(V63)}} |
VMR3(V63)}}}} |
|
goto T142; |
|
|
T142:; |
|
|
{object V64; |
|
|
V64= list(2,(V35),(V59)); |
|
|
(VV[4]->s.s_dbind)= make_cons((V64),(VV[4]->s.s_dbind)); |
|
|
{object V65 = (VV[4]->s.s_dbind); |
|
|
VMR3(V65)}}}} |
|
377 |
base[0]=base[0]; |
base[0]=base[0]; |
378 |
return Cnil; |
return Cnil; |
379 |
} |
} |
386 |
bds_check; |
bds_check; |
387 |
check_arg(2); |
check_arg(2); |
388 |
vs_top=sup; |
vs_top=sup; |
389 |
{object V66=base[0]->c.c_cdr; |
{object V64=base[0]->c.c_cdr; |
390 |
if(endp(V66)){ |
if(endp(V64)){ |
391 |
base[2]= Cnil; |
base[2]= Cnil; |
392 |
} else { |
} else { |
393 |
base[2]= (V66->c.c_car); |
base[2]= (V64->c.c_car); |
394 |
V66=V66->c.c_cdr;} |
V64=V64->c.c_cdr;} |
395 |
if(!endp(V66))invalid_macro_call();} |
if(!endp(V64))invalid_macro_call();} |
396 |
bds_bind(VV[20],Ct); |
bds_bind(VV[18],Ct); |
397 |
{register object V68; |
{register object V66; |
398 |
register object V69; |
V66= Cnil; |
399 |
V68= Cnil; |
{register object V67; |
400 |
V69= Cnil; |
register object V68; |
401 |
{register object V70; |
V67= (VV[4]->s.s_dbind); |
402 |
register object V71; |
V68= CMPcar((V67)); |
403 |
V70= (VV[4]->s.s_dbind); |
goto T149; |
404 |
V71= CMPcar((V70)); |
T149:; |
405 |
goto T156; |
if(!(((V67))==Cnil)){ |
406 |
T156:; |
goto T150;} |
407 |
if(!(((V70))==Cnil)){ |
V65= nreverse((V66)); |
408 |
goto T157;} |
goto T145; |
409 |
goto T152; |
goto T150; |
410 |
goto T157; |
T150:; |
411 |
T157:; |
{register object V69; |
412 |
{register object V72; |
register object V70; |
413 |
register object V73; |
V69= CMPcdr((V68)); |
414 |
V72= CMPcdr((V71)); |
V70= CMPcar((V69)); |
415 |
V73= CMPcar((V72)); |
goto T158; |
416 |
goto T165; |
T158:; |
417 |
T165:; |
if(!(((V69))==Cnil)){ |
418 |
if(!(((V72))==Cnil)){ |
goto T159;} |
419 |
goto T166;} |
goto T154; |
420 |
goto T161; |
goto T159; |
421 |
goto T166; |
T159:; |
422 |
T166:; |
if((CMPcaddr((V70)))==Cnil){ |
423 |
if((CMPcaddr((V73)))==Cnil){ |
goto T164;} |
424 |
goto T171;} |
if(!((CMPcaddr((V70)))==(base[2]))){ |
425 |
if(!((CMPcaddr((V73)))==(base[2]))){ |
goto T163;} |
426 |
goto T170;} |
goto T164; |
427 |
goto T171; |
T164:; |
|
T171:; |
|
428 |
if((base[2])==Cnil){ |
if((base[2])==Cnil){ |
429 |
goto T175;} |
goto T168;} |
430 |
{register object V74; |
{register object V71; |
431 |
register object V75; |
register object V72; |
432 |
V74= (V73); |
V71= (V70); |
433 |
V75= base[2]; |
V72= base[2]; |
434 |
(CMPcddr((V74)))->c.c_car = (V75); |
(CMPcddr((V71)))->c.c_car = (V72); |
435 |
(void)(CMPcddr((V74)));} |
(void)(CMPcddr((V71)));} |
436 |
goto T175; |
goto T168; |
437 |
T175:; |
T168:; |
438 |
{register object V76; |
{register object V73; |
439 |
V77= list(2,VV[22],CMPcar((V71))); |
V74= list(2,VV[20],CMPcar((V68))); |
440 |
V78= list(2,VV[25],CMPcar((V71))); |
V75= list(2,VV[23],CMPcar((V68))); |
441 |
V79= list(2,VV[25],CMPcar((V73))); |
V76= list(2,VV[23],CMPcar((V70))); |
442 |
V80= list(2,VV[25],base[2]); |
V77= list(2,VV[23],base[2]); |
443 |
base[8]= CMPcar((V71)); |
base[9]= CMPcar((V68)); |
444 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+9)+1; |
445 |
Lsymbol_function(); |
Lsymbol_function(); |
446 |
vs_top=sup; |
vs_top=sup; |
447 |
base[7]= vs_base[0]; |
base[8]= vs_base[0]; |
448 |
{object V82; |
{object V79; |
449 |
V82= CMPcar((V73)); |
V79= CMPcar((V70)); |
450 |
vs_top=base+8; |
vs_top=base+9; |
451 |
while(V82!=Cnil) |
while(V79!=Cnil) |
452 |
{vs_push((V82)->c.c_car);V82=(V82)->c.c_cdr;} |
{vs_push((V79)->c.c_car);V79=(V79)->c.c_cdr;} |
453 |
vs_base=base+8;} |
vs_base=base+9;} |
454 |
{object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[8];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
455 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
456 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
457 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
458 |
vs_top=sup; |
vs_top=sup; |
459 |
V81= vs_base[0]; |
V78= vs_base[0]; |
460 |
V83= list(5,VV[24],/* INLINE-ARGS */V78,/* INLINE-ARGS */V79,/* INLINE-ARGS */V80,V81); |
V80= list(5,VV[22],/* INLINE-ARGS */V75,/* INLINE-ARGS */V76,/* INLINE-ARGS */V77,V78); |
461 |
V76= (*(LnkLI163))(/* INLINE-ARGS */V77,VV[23],/* INLINE-ARGS */V83); |
V73= (*(LnkLI179))(/* INLINE-ARGS */V74,VV[21],/* INLINE-ARGS */V80); |
462 |
if(((V68))!=Cnil){ |
V66= make_cons((V73),(V66));} |
463 |
goto T187;} |
goto T163; |
464 |
V69= make_cons((V76),Cnil); |
T163:; |
465 |
V68= (V69); |
V69= CMPcdr((V69)); |
466 |
goto T170; |
V70= CMPcar((V69)); |
467 |
goto T187; |
goto T158;} |
468 |
T187:; |
goto T154; |
469 |
V85= make_cons((V76),Cnil); |
T154:; |
470 |
((V69))->c.c_cdr = /* INLINE-ARGS */V85; |
V67= CMPcdr((V67)); |
471 |
V84= (V69); |
V68= CMPcar((V67)); |
472 |
V69= CMPcdr(V84);} |
goto T149;}} |
473 |
goto T170; |
goto T145; |
474 |
T170:; |
T145:; |
475 |
V72= CMPcdr((V72)); |
base[4]= make_cons(VV[19],V65); |
|
V73= CMPcar((V72)); |
|
|
goto T165;} |
|
|
goto T161; |
|
|
T161:; |
|
|
V70= CMPcdr((V70)); |
|
|
V71= CMPcar((V70)); |
|
|
goto T156;} |
|
|
goto T152; |
|
|
T152:; |
|
|
V67= (V68);} |
|
|
base[4]= make_cons(VV[21],V67); |
|
476 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
477 |
bds_unwind1; |
bds_unwind1; |
478 |
return; |
return; |
483 |
{ |
{ |
484 |
va_list ap; |
va_list ap; |
485 |
int narg = VFUN_NARGS; VMB5 VMS5 VMV5 |
int narg = VFUN_NARGS; VMB5 VMS5 VMV5 |
486 |
{object V86; |
{object V81; |
487 |
va_start(ap,first); |
va_start(ap,first); |
488 |
narg= narg - 0; |
narg= narg - 0; |
489 |
{ |
{ |
490 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI5key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI5key,first,ap); |
491 |
V86=(Vcs[0]); |
V81=(Vcs[0]); |
492 |
base[0]= VV[26]; |
base[0]= VV[24]; |
493 |
base[1]= (V86); |
base[1]= (V81); |
494 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
495 |
siLmake_structure(); |
siLmake_structure(); |
496 |
vs_top=sup; |
vs_top=sup; |
497 |
{object V87 = vs_base[0]; |
{object V82 = vs_base[0]; |
498 |
VMR5(V87)} |
VMR5(V82)} |
499 |
va_end(ap); |
va_end(ap); |
500 |
base[0]=base[0]; |
base[0]=base[0]; |
501 |
return Cnil;} |
return Cnil;} |
502 |
}} |
}} |
503 |
/* local entry for function PRINT-DFUN-INFO */ |
/* local entry for function PRINT-DFUN-INFO */ |
504 |
|
|
505 |
static object LI6(V91,V92,V93) |
static object LI6(V86,V87,V88) |
506 |
|
|
507 |
object V91;register object V92;object V93; |
object V86;register object V87;object V88; |
508 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
509 |
goto TTL; |
goto TTL; |
510 |
TTL:; |
TTL:; |
511 |
base[0]= (V92); |
base[0]= (V87); |
512 |
base[1]= VV[27]; |
base[1]= VV[25]; |
513 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
514 |
Lformat(); |
Lformat(); |
515 |
vs_top=sup; |
vs_top=sup; |
516 |
base[0]= (V92); |
base[0]= (V87); |
517 |
base[1]= VV[28]; |
base[1]= VV[26]; |
518 |
base[3]= (V91); |
base[3]= (V86); |
519 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
520 |
Ltype_of(); |
Ltype_of(); |
521 |
vs_top=sup; |
vs_top=sup; |
523 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
524 |
Lformat(); |
Lformat(); |
525 |
vs_top=sup; |
vs_top=sup; |
526 |
base[0]= (V92); |
base[0]= (V87); |
527 |
base[1]= VV[29]; |
base[1]= VV[27]; |
528 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
529 |
Lformat(); |
Lformat(); |
530 |
vs_top=sup; |
vs_top=sup; |
531 |
(void)((*(LnkLI165))((V91),(V92))); |
(void)((*(LnkLI181))((V86),(V87))); |
532 |
base[0]= (V92); |
base[0]= (V87); |
533 |
base[1]= VV[30]; |
base[1]= VV[28]; |
534 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
535 |
Lformat(); |
Lformat(); |
536 |
vs_top=sup; |
vs_top=sup; |
537 |
{object V94 = vs_base[0]; |
{object V89 = vs_base[0]; |
538 |
VMR6(V94)} |
VMR6(V89)} |
539 |
base[0]=base[0]; |
base[0]=base[0]; |
540 |
return Cnil; |
return Cnil; |
541 |
} |
} |
545 |
{ |
{ |
546 |
va_list ap; |
va_list ap; |
547 |
int narg = VFUN_NARGS; VMB7 VMS7 VMV7 |
int narg = VFUN_NARGS; VMB7 VMS7 VMV7 |
548 |
{object V95; |
{object V90; |
549 |
va_start(ap,first); |
va_start(ap,first); |
550 |
narg= narg - 0; |
narg= narg - 0; |
551 |
{ |
{ |
552 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI7key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI7key,first,ap); |
553 |
V95=(Vcs[0]); |
V90=(Vcs[0]); |
554 |
base[0]= VV[31]; |
base[0]= VV[29]; |
555 |
base[1]= (V95); |
base[1]= (V90); |
556 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
557 |
siLmake_structure(); |
siLmake_structure(); |
558 |
vs_top=sup; |
vs_top=sup; |
559 |
{object V96 = vs_base[0]; |
{object V91 = vs_base[0]; |
560 |
VMR7(V96)} |
VMR7(V91)} |
561 |
va_end(ap); |
va_end(ap); |
562 |
base[0]=base[0]; |
base[0]=base[0]; |
563 |
return Cnil;} |
return Cnil;} |
569 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
570 |
goto TTL; |
goto TTL; |
571 |
TTL:; |
TTL:; |
572 |
base[0]= VV[31]; |
base[0]= VV[29]; |
573 |
base[1]= Cnil; |
base[1]= Cnil; |
574 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
575 |
siLmake_structure(); |
siLmake_structure(); |
576 |
vs_top=sup; |
vs_top=sup; |
577 |
{object V98 = vs_base[0]; |
{object V93 = vs_base[0]; |
578 |
VMR8(V98)} |
VMR8(V93)} |
579 |
base[0]=base[0]; |
base[0]=base[0]; |
580 |
return Cnil; |
return Cnil; |
581 |
} |
} |
585 |
{ |
{ |
586 |
va_list ap; |
va_list ap; |
587 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
588 |
{object V99; |
{object V94; |
589 |
va_start(ap,first); |
va_start(ap,first); |
590 |
narg= narg - 0; |
narg= narg - 0; |
591 |
{ |
{ |
592 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI9key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI9key,first,ap); |
593 |
V99=(Vcs[0]); |
V94=(Vcs[0]); |
594 |
base[0]= VV[32]; |
base[0]= VV[30]; |
595 |
base[1]= (V99); |
base[1]= (V94); |
596 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
597 |
siLmake_structure(); |
siLmake_structure(); |
598 |
vs_top=sup; |
vs_top=sup; |
599 |
{object V100 = vs_base[0]; |
{object V95 = vs_base[0]; |
600 |
VMR9(V100)} |
VMR9(V95)} |
601 |
va_end(ap); |
va_end(ap); |
602 |
base[0]=base[0]; |
base[0]=base[0]; |
603 |
return Cnil;} |
return Cnil;} |
609 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
610 |
goto TTL; |
goto TTL; |
611 |
TTL:; |
TTL:; |
612 |
base[0]= VV[32]; |
base[0]= VV[30]; |
613 |
base[1]= Cnil; |
base[1]= Cnil; |
614 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
615 |
siLmake_structure(); |
siLmake_structure(); |
616 |
vs_top=sup; |
vs_top=sup; |
617 |
{object V102 = vs_base[0]; |
{object V97 = vs_base[0]; |
618 |
VMR10(V102)} |
VMR10(V97)} |
619 |
base[0]=base[0]; |
base[0]=base[0]; |
620 |
return Cnil; |
return Cnil; |
621 |
} |
} |
625 |
{ |
{ |
626 |
va_list ap; |
va_list ap; |
627 |
int narg = VFUN_NARGS; VMB11 VMS11 VMV11 |
int narg = VFUN_NARGS; VMB11 VMS11 VMV11 |
628 |
{object V103; |
{object V98; |
629 |
va_start(ap,first); |
va_start(ap,first); |
630 |
narg= narg - 0; |
narg= narg - 0; |
631 |
{ |
{ |
632 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI11key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI11key,first,ap); |
633 |
V103=(Vcs[0]); |
V98=(Vcs[0]); |
634 |
base[0]= VV[33]; |
base[0]= VV[31]; |
635 |
base[1]= (V103); |
base[1]= (V98); |
636 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
637 |
siLmake_structure(); |
siLmake_structure(); |
638 |
vs_top=sup; |
vs_top=sup; |
639 |
{object V104 = vs_base[0]; |
{object V99 = vs_base[0]; |
640 |
VMR11(V104)} |
VMR11(V99)} |
641 |
va_end(ap); |
va_end(ap); |
642 |
base[0]=base[0]; |
base[0]=base[0]; |
643 |
return Cnil;} |
return Cnil;} |
649 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
650 |
goto TTL; |
goto TTL; |
651 |
TTL:; |
TTL:; |
652 |
base[0]= VV[33]; |
base[0]= VV[31]; |
653 |
base[1]= Cnil; |
base[1]= Cnil; |
654 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
655 |
siLmake_structure(); |
siLmake_structure(); |
656 |
vs_top=sup; |
vs_top=sup; |
657 |
{object V106 = vs_base[0]; |
{object V101 = vs_base[0]; |
658 |
VMR12(V106)} |
VMR12(V101)} |
659 |
base[0]=base[0]; |
base[0]=base[0]; |
660 |
return Cnil; |
return Cnil; |
661 |
} |
} |
665 |
{ |
{ |
666 |
va_list ap; |
va_list ap; |
667 |
int narg = VFUN_NARGS; VMB13 VMS13 VMV13 |
int narg = VFUN_NARGS; VMB13 VMS13 VMV13 |
668 |
{object V107; |
{object V102; |
669 |
va_start(ap,first); |
va_start(ap,first); |
670 |
narg= narg - 0; |
narg= narg - 0; |
671 |
{ |
{ |
672 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI13key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI13key,first,ap); |
673 |
V107=(Vcs[0]); |
V102=(Vcs[0]); |
674 |
base[0]= VV[34]; |
base[0]= VV[32]; |
675 |
base[1]= (V107); |
base[1]= (V102); |
676 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
677 |
siLmake_structure(); |
siLmake_structure(); |
678 |
vs_top=sup; |
vs_top=sup; |
679 |
{object V108 = vs_base[0]; |
{object V103 = vs_base[0]; |
680 |
VMR13(V108)} |
VMR13(V103)} |
681 |
va_end(ap); |
va_end(ap); |
682 |
base[0]=base[0]; |
base[0]=base[0]; |
683 |
return Cnil;} |
return Cnil;} |
689 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
690 |
goto TTL; |
goto TTL; |
691 |
TTL:; |
TTL:; |
692 |
base[0]= VV[34]; |
base[0]= VV[32]; |
693 |
base[1]= Cnil; |
base[1]= Cnil; |
694 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
695 |
siLmake_structure(); |
siLmake_structure(); |
696 |
vs_top=sup; |
vs_top=sup; |
697 |
{object V110 = vs_base[0]; |
{object V105 = vs_base[0]; |
698 |
VMR14(V110)} |
VMR14(V105)} |
699 |
base[0]=base[0]; |
base[0]=base[0]; |
700 |
return Cnil; |
return Cnil; |
701 |
} |
} |
705 |
{ |
{ |
706 |
va_list ap; |
va_list ap; |
707 |
int narg = VFUN_NARGS; VMB15 VMS15 VMV15 |
int narg = VFUN_NARGS; VMB15 VMS15 VMV15 |
708 |
{object V111; |
{object V106; |
709 |
va_start(ap,first); |
va_start(ap,first); |
710 |
narg= narg - 0; |
narg= narg - 0; |
711 |
{ |
{ |
712 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI15key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI15key,first,ap); |
713 |
V111=(Vcs[0]); |
V106=(Vcs[0]); |
714 |
base[0]= VV[15]; |
base[0]= VV[13]; |
715 |
base[1]= (V111); |
base[1]= (V106); |
716 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
717 |
siLmake_structure(); |
siLmake_structure(); |
718 |
vs_top=sup; |
vs_top=sup; |
719 |
{object V112 = vs_base[0]; |
{object V107 = vs_base[0]; |
720 |
VMR15(V112)} |
VMR15(V107)} |
721 |
va_end(ap); |
va_end(ap); |
722 |
base[0]=base[0]; |
base[0]=base[0]; |
723 |
return Cnil;} |
return Cnil;} |
729 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
730 |
goto TTL; |
goto TTL; |
731 |
TTL:; |
TTL:; |
732 |
base[0]= VV[15]; |
base[0]= VV[13]; |
733 |
base[1]= Cnil; |
base[1]= Cnil; |
734 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
735 |
siLmake_structure(); |
siLmake_structure(); |
736 |
vs_top=sup; |
vs_top=sup; |
737 |
{object V114 = vs_base[0]; |
{object V109 = vs_base[0]; |
738 |
VMR16(V114)} |
VMR16(V109)} |
739 |
base[0]=base[0]; |
base[0]=base[0]; |
740 |
return Cnil; |
return Cnil; |
741 |
} |
} |
745 |
{ |
{ |
746 |
va_list ap; |
va_list ap; |
747 |
int narg = VFUN_NARGS; VMB17 VMS17 VMV17 |
int narg = VFUN_NARGS; VMB17 VMS17 VMV17 |
748 |
{object V115; |
{object V110; |
749 |
object V116; |
object V111; |
750 |
va_start(ap,first); |
va_start(ap,first); |
751 |
narg= narg - 0; |
narg= narg - 0; |
752 |
{ |
{ |
753 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI17key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI17key,first,ap); |
754 |
V115=(Vcs[0]); |
V110=(Vcs[0]); |
755 |
V116=(Vcs[1]); |
V111=(Vcs[1]); |
756 |
base[0]= VV[35]; |
base[0]= VV[33]; |
757 |
base[1]= (V115); |
base[1]= (V110); |
758 |
base[2]= (V116); |
base[2]= (V111); |
759 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
760 |
siLmake_structure(); |
siLmake_structure(); |
761 |
vs_top=sup; |
vs_top=sup; |
762 |
{object V117 = vs_base[0]; |
{object V112 = vs_base[0]; |
763 |
VMR17(V117)} |
VMR17(V112)} |
764 |
va_end(ap); |
va_end(ap); |
765 |
base[0]=base[0]; |
base[0]=base[0]; |
766 |
return Cnil;} |
return Cnil;} |
773 |
vs_check; |
vs_check; |
774 |
check_arg(2); |
check_arg(2); |
775 |
vs_top=sup; |
vs_top=sup; |
776 |
{object V118=base[0]->c.c_cdr; |
{object V113=base[0]->c.c_cdr; |
777 |
if(endp(V118))invalid_macro_call(); |
if(endp(V113))invalid_macro_call(); |
778 |
base[2]= (V118->c.c_car); |
base[2]= (V113->c.c_car); |
779 |
V118=V118->c.c_cdr; |
V113=V113->c.c_cdr; |
780 |
if(!endp(V118))invalid_macro_call();} |
if(!endp(V113))invalid_macro_call();} |
781 |
base[3]= list(2,VV[36],base[2]); |
base[3]= list(2,VV[34],base[2]); |
782 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
783 |
return; |
return; |
784 |
} |
} |
788 |
{ |
{ |
789 |
va_list ap; |
va_list ap; |
790 |
int narg = VFUN_NARGS; VMB19 VMS19 VMV19 |
int narg = VFUN_NARGS; VMB19 VMS19 VMV19 |
791 |
{object V119; |
{object V114; |
792 |
object V120; |
object V115; |
793 |
object V121; |
object V116; |
794 |
va_start(ap,first); |
va_start(ap,first); |
795 |
narg= narg - 0; |
narg= narg - 0; |
796 |
{ |
{ |
797 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI19key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI19key,first,ap); |
798 |
V119=(Vcs[0]); |
V114=(Vcs[0]); |
799 |
V120=(Vcs[1]); |
V115=(Vcs[1]); |
800 |
V121=(Vcs[2]); |
V116=(Vcs[2]); |
801 |
base[0]= VV[37]; |
base[0]= VV[35]; |
802 |
base[1]= (V119); |
base[1]= (V114); |
803 |
base[2]= (V120); |
base[2]= (V115); |
804 |
base[3]= (V121); |
base[3]= (V116); |
805 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
806 |
siLmake_structure(); |
siLmake_structure(); |
807 |
vs_top=sup; |
vs_top=sup; |
808 |
{object V122 = vs_base[0]; |
{object V117 = vs_base[0]; |
809 |
VMR19(V122)} |
VMR19(V117)} |
810 |
va_end(ap); |
va_end(ap); |
811 |
base[0]=base[0]; |
base[0]=base[0]; |
812 |
return Cnil;} |
return Cnil;} |
819 |
vs_check; |
vs_check; |
820 |
check_arg(2); |
check_arg(2); |
821 |
vs_top=sup; |
vs_top=sup; |
822 |
{object V123=base[0]->c.c_cdr; |
{object V118=base[0]->c.c_cdr; |
823 |
if(endp(V123))invalid_macro_call(); |
if(endp(V118))invalid_macro_call(); |
824 |
base[2]= (V123->c.c_car); |
base[2]= (V118->c.c_car); |
825 |
V123=V123->c.c_cdr; |
V118=V118->c.c_cdr; |
826 |
if(!endp(V123))invalid_macro_call();} |
if(!endp(V118))invalid_macro_call();} |
827 |
base[3]= list(2,VV[38],base[2]); |
base[3]= list(2,VV[36],base[2]); |
828 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
829 |
return; |
return; |
830 |
} |
} |
834 |
{ |
{ |
835 |
va_list ap; |
va_list ap; |
836 |
int narg = VFUN_NARGS; VMB21 VMS21 VMV21 |
int narg = VFUN_NARGS; VMB21 VMS21 VMV21 |
837 |
{object V124; |
{object V119; |
838 |
object V125; |
object V120; |
839 |
va_start(ap,first); |
va_start(ap,first); |
840 |
narg= narg - 0; |
narg= narg - 0; |
841 |
{ |
{ |
842 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI21key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI21key,first,ap); |
843 |
V124=(Vcs[0]); |
V119=(Vcs[0]); |
844 |
V125=(Vcs[1]); |
V120=(Vcs[1]); |
845 |
base[0]= VV[39]; |
base[0]= VV[37]; |
846 |
base[1]= (V124); |
base[1]= (V119); |
847 |
base[2]= (V125); |
base[2]= (V120); |
848 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
849 |
siLmake_structure(); |
siLmake_structure(); |
850 |
vs_top=sup; |
vs_top=sup; |
851 |
{object V126 = vs_base[0]; |
{object V121 = vs_base[0]; |
852 |
VMR21(V126)} |
VMR21(V121)} |
853 |
va_end(ap); |
va_end(ap); |
854 |
base[0]=base[0]; |
base[0]=base[0]; |
855 |
return Cnil;} |
return Cnil;} |
856 |
}} |
}} |
857 |
/* local entry for function N-N-DFUN-INFO */ |
/* local entry for function N-N-DFUN-INFO */ |
858 |
|
|
859 |
static object LI22(V129,V130) |
static object LI22(V124,V125) |
860 |
|
|
861 |
object V129;object V130; |
object V124;object V125; |
862 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
863 |
goto TTL; |
goto TTL; |
864 |
TTL:; |
TTL:; |
865 |
base[0]= VV[39]; |
base[0]= VV[37]; |
866 |
base[1]= (V130); |
base[1]= (V125); |
867 |
base[2]= (V129); |
base[2]= (V124); |
868 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
869 |
siLmake_structure(); |
siLmake_structure(); |
870 |
vs_top=sup; |
vs_top=sup; |
871 |
{object V131 = vs_base[0]; |
{object V126 = vs_base[0]; |
872 |
VMR22(V131)} |
VMR22(V126)} |
873 |
base[0]=base[0]; |
base[0]=base[0]; |
874 |
return Cnil; |
return Cnil; |
875 |
} |
} |
879 |
{ |
{ |
880 |
va_list ap; |
va_list ap; |
881 |
int narg = VFUN_NARGS; VMB23 VMS23 VMV23 |
int narg = VFUN_NARGS; VMB23 VMS23 VMV23 |
882 |
{object V132; |
{object V127; |
883 |
object V133; |
object V128; |
884 |
object V134; |
object V129; |
885 |
object V135; |
object V130; |
886 |
va_start(ap,first); |
va_start(ap,first); |
887 |
narg= narg - 0; |
narg= narg - 0; |
888 |
{ |
{ |
889 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI23key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI23key,first,ap); |
890 |
V132=(Vcs[0]); |
V127=(Vcs[0]); |
891 |
V133=(Vcs[1]); |
V128=(Vcs[1]); |
892 |
V134=(Vcs[2]); |
V129=(Vcs[2]); |
893 |
V135=(Vcs[3]); |
V130=(Vcs[3]); |
894 |
base[0]= VV[40]; |
base[0]= VV[38]; |
895 |
base[1]= (V132); |
base[1]= (V127); |
896 |
base[2]= (V133); |
base[2]= (V128); |
897 |
base[3]= (V134); |
base[3]= (V129); |
898 |
base[4]= (V135); |
base[4]= (V130); |
899 |
vs_top=(vs_base=base+0)+5; |
vs_top=(vs_base=base+0)+5; |
900 |
siLmake_structure(); |
siLmake_structure(); |
901 |
vs_top=sup; |
vs_top=sup; |
902 |
{object V136 = vs_base[0]; |
{object V131 = vs_base[0]; |
903 |
VMR23(V136)} |
VMR23(V131)} |
904 |
va_end(ap); |
va_end(ap); |
905 |
base[0]=base[0]; |
base[0]=base[0]; |
906 |
return Cnil;} |
return Cnil;} |
907 |
}} |
}} |
908 |
/* local entry for function ONE-CLASS-DFUN-INFO */ |
/* local entry for function ONE-CLASS-DFUN-INFO */ |
909 |
|
|
910 |
static object LI24(V140,V141,V142) |
static object LI24(V135,V136,V137) |
911 |
|
|
912 |
object V140;object V141;object V142; |
object V135;object V136;object V137; |
913 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
914 |
goto TTL; |
goto TTL; |
915 |
TTL:; |
TTL:; |
916 |
base[0]= VV[40]; |
base[0]= VV[38]; |
917 |
base[1]= Cnil; |
base[1]= Cnil; |
918 |
base[2]= (V140); |
base[2]= (V135); |
919 |
base[3]= (V141); |
base[3]= (V136); |
920 |
base[4]= (V142); |
base[4]= (V137); |
921 |
vs_top=(vs_base=base+0)+5; |
vs_top=(vs_base=base+0)+5; |
922 |
siLmake_structure(); |
siLmake_structure(); |
923 |
vs_top=sup; |
vs_top=sup; |
924 |
{object V144 = vs_base[0]; |
{object V139 = vs_base[0]; |
925 |
VMR24(V144)} |
VMR24(V139)} |
926 |
base[0]=base[0]; |
base[0]=base[0]; |
927 |
return Cnil; |
return Cnil; |
928 |
} |
} |
934 |
vs_check; |
vs_check; |
935 |
check_arg(2); |
check_arg(2); |
936 |
vs_top=sup; |
vs_top=sup; |
937 |
{object V145=base[0]->c.c_cdr; |
{object V140=base[0]->c.c_cdr; |
938 |
if(endp(V145))invalid_macro_call(); |
if(endp(V140))invalid_macro_call(); |
939 |
base[2]= (V145->c.c_car); |
base[2]= (V140->c.c_car); |
940 |
V145=V145->c.c_cdr; |
V140=V140->c.c_cdr; |
941 |
if(!endp(V145))invalid_macro_call();} |
if(!endp(V140))invalid_macro_call();} |
942 |
base[3]= list(2,VV[41],base[2]); |
base[3]= list(2,VV[39],base[2]); |
943 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
944 |
return; |
return; |
945 |
} |
} |
949 |
{ |
{ |
950 |
va_list ap; |
va_list ap; |
951 |
int narg = VFUN_NARGS; VMB26 VMS26 VMV26 |
int narg = VFUN_NARGS; VMB26 VMS26 VMV26 |
952 |
{object V146; |
{object V141; |
953 |
object V147; |
object V142; |
954 |
object V148; |
object V143; |
955 |
object V149; |
object V144; |
956 |
object V150; |
object V145; |
957 |
va_start(ap,first); |
va_start(ap,first); |
958 |
narg= narg - 0; |
narg= narg - 0; |
959 |
{ |
{ |
960 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI26key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI26key,first,ap); |
961 |
V146=(Vcs[0]); |
V141=(Vcs[0]); |
962 |
V147=(Vcs[1]); |
V142=(Vcs[1]); |
963 |
V148=(Vcs[2]); |
V143=(Vcs[2]); |
964 |
V149=(Vcs[3]); |
V144=(Vcs[3]); |
965 |
V150=(Vcs[4]); |
V145=(Vcs[4]); |
966 |
base[0]= VV[42]; |
base[0]= VV[40]; |
967 |
base[1]= (V146); |
base[1]= (V141); |
968 |
base[2]= (V147); |
base[2]= (V142); |
969 |
base[3]= (V148); |
base[3]= (V143); |
970 |
base[4]= (V149); |
base[4]= (V144); |
971 |
base[5]= (V150); |
base[5]= (V145); |
972 |
vs_top=(vs_base=base+0)+6; |
vs_top=(vs_base=base+0)+6; |
973 |
siLmake_structure(); |
siLmake_structure(); |
974 |
vs_top=sup; |
vs_top=sup; |
975 |
{object V151 = vs_base[0]; |
{object V146 = vs_base[0]; |
976 |
VMR26(V151)} |
VMR26(V146)} |
977 |
va_end(ap); |
va_end(ap); |
978 |
base[0]=base[0]; |
base[0]=base[0]; |
979 |
return Cnil;} |
return Cnil;} |
980 |
}} |
}} |
981 |
/* local entry for function TWO-CLASS-DFUN-INFO */ |
/* local entry for function TWO-CLASS-DFUN-INFO */ |
982 |
|
|
983 |
static object LI27(V156,V157,V158,V159) |
static object LI27(V151,V152,V153,V154) |
984 |
|
|
985 |
object V156;object V157;object V158;object V159; |
object V151;object V152;object V153;object V154; |
986 |
{ VMB27 VMS27 VMV27 |
{ VMB27 VMS27 VMV27 |
987 |
goto TTL; |
goto TTL; |
988 |
TTL:; |
TTL:; |
989 |
base[0]= VV[42]; |
base[0]= VV[40]; |
990 |
base[1]= Cnil; |
base[1]= Cnil; |
991 |
base[2]= (V156); |
base[2]= (V151); |
992 |
base[3]= (V157); |
base[3]= (V152); |
993 |
base[4]= (V158); |
base[4]= (V153); |
994 |
base[5]= (V159); |
base[5]= (V154); |
995 |
vs_top=(vs_base=base+0)+6; |
vs_top=(vs_base=base+0)+6; |
996 |
siLmake_structure(); |
siLmake_structure(); |
997 |
vs_top=sup; |
vs_top=sup; |
998 |
{object V161 = vs_base[0]; |
{object V156 = vs_base[0]; |
999 |
VMR27(V161)} |
VMR27(V156)} |
1000 |
base[0]=base[0]; |
base[0]=base[0]; |
1001 |
return Cnil; |
return Cnil; |
1002 |
} |
} |
1008 |
vs_check; |
vs_check; |
1009 |
check_arg(2); |
check_arg(2); |
1010 |
vs_top=sup; |
vs_top=sup; |
1011 |
{object V162=base[0]->c.c_cdr; |
{object V157=base[0]->c.c_cdr; |
1012 |
if(endp(V162))invalid_macro_call(); |
if(endp(V157))invalid_macro_call(); |
1013 |
base[2]= (V162->c.c_car); |
base[2]= (V157->c.c_car); |
1014 |
V162=V162->c.c_cdr; |
V157=V157->c.c_cdr; |
1015 |
if(!endp(V162))invalid_macro_call();} |
if(!endp(V157))invalid_macro_call();} |
1016 |
base[3]= list(2,VV[43],base[2]); |
base[3]= list(2,VV[41],base[2]); |
1017 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1018 |
return; |
return; |
1019 |
} |
} |
1023 |
{ |
{ |
1024 |
va_list ap; |
va_list ap; |
1025 |
int narg = VFUN_NARGS; VMB29 VMS29 VMV29 |
int narg = VFUN_NARGS; VMB29 VMS29 VMV29 |
1026 |
{object V163; |
{object V158; |
1027 |
object V164; |
object V159; |
1028 |
object V165; |
object V160; |
1029 |
va_start(ap,first); |
va_start(ap,first); |
1030 |
narg= narg - 0; |
narg= narg - 0; |
1031 |
{ |
{ |
1032 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI29key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI29key,first,ap); |
1033 |
V163=(Vcs[0]); |
V158=(Vcs[0]); |
1034 |
V164=(Vcs[1]); |
V159=(Vcs[1]); |
1035 |
V165=(Vcs[2]); |
V160=(Vcs[2]); |
1036 |
base[0]= VV[44]; |
base[0]= VV[42]; |
1037 |
base[1]= (V163); |
base[1]= (V158); |
1038 |
base[2]= (V164); |
base[2]= (V159); |
1039 |
base[3]= (V165); |
base[3]= (V160); |
1040 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
1041 |
siLmake_structure(); |
siLmake_structure(); |
1042 |
vs_top=sup; |
vs_top=sup; |
1043 |
{object V166 = vs_base[0]; |
{object V161 = vs_base[0]; |
1044 |
VMR29(V166)} |
VMR29(V161)} |
1045 |
va_end(ap); |
va_end(ap); |
1046 |
base[0]=base[0]; |
base[0]=base[0]; |
1047 |
return Cnil;} |
return Cnil;} |
1048 |
}} |
}} |
1049 |
/* local entry for function ONE-INDEX-DFUN-INFO */ |
/* local entry for function ONE-INDEX-DFUN-INFO */ |
1050 |
|
|
1051 |
static object LI30(V170,V171,V172) |
static object LI30(V165,V166,V167) |
1052 |
|
|
1053 |
object V170;object V171;object V172; |
object V165;object V166;object V167; |
1054 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
1055 |
goto TTL; |
goto TTL; |
1056 |
TTL:; |
TTL:; |
1057 |
base[0]= VV[44]; |
base[0]= VV[42]; |
1058 |
base[1]= (V172); |
base[1]= (V167); |
1059 |
base[2]= (V170); |
base[2]= (V165); |
1060 |
base[3]= (V171); |
base[3]= (V166); |
1061 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
1062 |
siLmake_structure(); |
siLmake_structure(); |
1063 |
vs_top=sup; |
vs_top=sup; |
1064 |
{object V173 = vs_base[0]; |
{object V168 = vs_base[0]; |
1065 |
VMR30(V173)} |
VMR30(V168)} |
1066 |
base[0]=base[0]; |
base[0]=base[0]; |
1067 |
return Cnil; |
return Cnil; |
1068 |
} |
} |
1072 |
{ |
{ |
1073 |
va_list ap; |
va_list ap; |
1074 |
int narg = VFUN_NARGS; VMB31 VMS31 VMV31 |
int narg = VFUN_NARGS; VMB31 VMS31 VMV31 |
1075 |
{object V174; |
{object V169; |
1076 |
object V175; |
object V170; |
1077 |
va_start(ap,first); |
va_start(ap,first); |
1078 |
narg= narg - 0; |
narg= narg - 0; |
1079 |
{ |
{ |
1080 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI31key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI31key,first,ap); |
1081 |
V174=(Vcs[0]); |
V169=(Vcs[0]); |
1082 |
V175=(Vcs[1]); |
V170=(Vcs[1]); |
1083 |
base[0]= VV[12]; |
base[0]= VV[10]; |
1084 |
base[1]= (V174); |
base[1]= (V169); |
1085 |
base[2]= (V175); |
base[2]= (V170); |
1086 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1087 |
siLmake_structure(); |
siLmake_structure(); |
1088 |
vs_top=sup; |
vs_top=sup; |
1089 |
{object V176 = vs_base[0]; |
{object V171 = vs_base[0]; |
1090 |
VMR31(V176)} |
VMR31(V171)} |
1091 |
va_end(ap); |
va_end(ap); |
1092 |
base[0]=base[0]; |
base[0]=base[0]; |
1093 |
return Cnil;} |
return Cnil;} |
1094 |
}} |
}} |
1095 |
/* local entry for function CHECKING-DFUN-INFO */ |
/* local entry for function CHECKING-DFUN-INFO */ |
1096 |
|
|
1097 |
static object LI32(V179,V180) |
static object LI32(V174,V175) |
1098 |
|
|
1099 |
object V179;object V180; |
object V174;object V175; |
1100 |
{ VMB32 VMS32 VMV32 |
{ VMB32 VMS32 VMV32 |
1101 |
goto TTL; |
goto TTL; |
1102 |
TTL:; |
TTL:; |
1103 |
base[0]= VV[12]; |
base[0]= VV[10]; |
1104 |
base[1]= (V180); |
base[1]= (V175); |
1105 |
base[2]= (V179); |
base[2]= (V174); |
1106 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1107 |
siLmake_structure(); |
siLmake_structure(); |
1108 |
vs_top=sup; |
vs_top=sup; |
1109 |
{object V181 = vs_base[0]; |
{object V176 = vs_base[0]; |
1110 |
VMR32(V181)} |
VMR32(V176)} |
1111 |
base[0]=base[0]; |
base[0]=base[0]; |
1112 |
return Cnil; |
return Cnil; |
1113 |
} |
} |
1119 |
vs_check; |
vs_check; |
1120 |
check_arg(2); |
check_arg(2); |
1121 |
vs_top=sup; |
vs_top=sup; |
1122 |
{object V182=base[0]->c.c_cdr; |
{object V177=base[0]->c.c_cdr; |
1123 |
if(endp(V182))invalid_macro_call(); |
if(endp(V177))invalid_macro_call(); |
1124 |
base[2]= (V182->c.c_car); |
base[2]= (V177->c.c_car); |
1125 |
V182=V182->c.c_cdr; |
V177=V177->c.c_cdr; |
1126 |
if(!endp(V182))invalid_macro_call();} |
if(!endp(V177))invalid_macro_call();} |
1127 |
base[3]= list(2,VV[45],base[2]); |
base[3]= list(2,VV[43],base[2]); |
1128 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1129 |
return; |
return; |
1130 |
} |
} |
1134 |
{ |
{ |
1135 |
va_list ap; |
va_list ap; |
1136 |
int narg = VFUN_NARGS; VMB34 VMS34 VMV34 |
int narg = VFUN_NARGS; VMB34 VMS34 VMV34 |
1137 |
{object V183; |
{object V178; |
1138 |
va_start(ap,first); |
va_start(ap,first); |
1139 |
narg= narg - 0; |
narg= narg - 0; |
1140 |
{ |
{ |
1141 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI34key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI34key,first,ap); |
1142 |
V183=(Vcs[0]); |
V178=(Vcs[0]); |
1143 |
base[0]= VV[13]; |
base[0]= VV[11]; |
1144 |
base[1]= (V183); |
base[1]= (V178); |
1145 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1146 |
siLmake_structure(); |
siLmake_structure(); |
1147 |
vs_top=sup; |
vs_top=sup; |
1148 |
{object V184 = vs_base[0]; |
{object V179 = vs_base[0]; |
1149 |
VMR34(V184)} |
VMR34(V179)} |
1150 |
va_end(ap); |
va_end(ap); |
1151 |
base[0]=base[0]; |
base[0]=base[0]; |
1152 |
return Cnil;} |
return Cnil;} |
1153 |
}} |
}} |
1154 |
/* local entry for function CACHING-DFUN-INFO */ |
/* local entry for function CACHING-DFUN-INFO */ |
1155 |
|
|
1156 |
static object LI35(V186) |
static object LI35(V181) |
1157 |
|
|
1158 |
object V186; |
object V181; |
1159 |
{ VMB35 VMS35 VMV35 |
{ VMB35 VMS35 VMV35 |
1160 |
goto TTL; |
goto TTL; |
1161 |
TTL:; |
TTL:; |
1162 |
base[0]= VV[13]; |
base[0]= VV[11]; |
1163 |
base[1]= (V186); |
base[1]= (V181); |
1164 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1165 |
siLmake_structure(); |
siLmake_structure(); |
1166 |
vs_top=sup; |
vs_top=sup; |
1167 |
{object V187 = vs_base[0]; |
{object V182 = vs_base[0]; |
1168 |
VMR35(V187)} |
VMR35(V182)} |
1169 |
base[0]=base[0]; |
base[0]=base[0]; |
1170 |
return Cnil; |
return Cnil; |
1171 |
} |
} |
1175 |
{ |
{ |
1176 |
va_list ap; |
va_list ap; |
1177 |
int narg = VFUN_NARGS; VMB36 VMS36 VMV36 |
int narg = VFUN_NARGS; VMB36 VMS36 VMV36 |
1178 |
{object V188; |
{object V183; |
1179 |
va_start(ap,first); |
va_start(ap,first); |
1180 |
narg= narg - 0; |
narg= narg - 0; |
1181 |
{ |
{ |
1182 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI36key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI36key,first,ap); |
1183 |
V188=(Vcs[0]); |
V183=(Vcs[0]); |
1184 |
base[0]= VV[14]; |
base[0]= VV[12]; |
1185 |
base[1]= (V188); |
base[1]= (V183); |
1186 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1187 |
siLmake_structure(); |
siLmake_structure(); |
1188 |
vs_top=sup; |
vs_top=sup; |
1189 |
{object V189 = vs_base[0]; |
{object V184 = vs_base[0]; |
1190 |
VMR36(V189)} |
VMR36(V184)} |
1191 |
va_end(ap); |
va_end(ap); |
1192 |
base[0]=base[0]; |
base[0]=base[0]; |
1193 |
return Cnil;} |
return Cnil;} |
1194 |
}} |
}} |
1195 |
/* local entry for function CONSTANT-VALUE-DFUN-INFO */ |
/* local entry for function CONSTANT-VALUE-DFUN-INFO */ |
1196 |
|
|
1197 |
static object LI37(V191) |
static object LI37(V186) |
1198 |
|
|
1199 |
object V191; |
object V186; |
1200 |
{ VMB37 VMS37 VMV37 |
{ VMB37 VMS37 VMV37 |
1201 |
goto TTL; |
goto TTL; |
1202 |
TTL:; |
TTL:; |
1203 |
base[0]= VV[14]; |
base[0]= VV[12]; |
1204 |
base[1]= (V191); |
base[1]= (V186); |
1205 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1206 |
siLmake_structure(); |
siLmake_structure(); |
1207 |
vs_top=sup; |
vs_top=sup; |
1208 |
{object V192 = vs_base[0]; |
{object V187 = vs_base[0]; |
1209 |
VMR37(V192)} |
VMR37(V187)} |
1210 |
base[0]=base[0]; |
base[0]=base[0]; |
1211 |
return Cnil; |
return Cnil; |
1212 |
} |
} |
1218 |
vs_check; |
vs_check; |
1219 |
check_arg(2); |
check_arg(2); |
1220 |
vs_top=sup; |
vs_top=sup; |
1221 |
{object V193=base[0]->c.c_cdr; |
{object V188=base[0]->c.c_cdr; |
1222 |
if(endp(V193))invalid_macro_call(); |
if(endp(V188))invalid_macro_call(); |
1223 |
base[2]= (V193->c.c_car); |
base[2]= (V188->c.c_car); |
1224 |
V193=V193->c.c_cdr; |
V188=V188->c.c_cdr; |
1225 |
if(endp(V193))invalid_macro_call(); |
if(endp(V188))invalid_macro_call(); |
1226 |
base[3]= (V193->c.c_car); |
base[3]= (V188->c.c_car); |
1227 |
V193=V193->c.c_cdr; |
V188=V188->c.c_cdr; |
1228 |
base[4]= V193;} |
base[4]= V188;} |
1229 |
V194= listA(4,VV[48],base[3],base[2],base[4]); |
V189= listA(4,VV[46],base[3],base[2],base[4]); |
1230 |
base[5]= list(4,VV[46],VV[47],/* INLINE-ARGS */V194,listA(3,VV[49],base[2],VV[50])); |
base[5]= list(4,VV[44],VV[45],/* INLINE-ARGS */V189,listA(3,VV[47],base[2],VV[48])); |
1231 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1232 |
return; |
return; |
1233 |
} |
} |
1234 |
/* local entry for function ACCESSOR-MISS-FUNCTION */ |
/* local entry for function ACCESSOR-MISS-FUNCTION */ |
1235 |
|
|
1236 |
static object LI40(V197,V198) |
static object LI40(V192,V193) |
1237 |
|
|
1238 |
object V197;object V198; |
object V192;object V193; |
1239 |
{ VMB39 VMS39 VMV39 |
{ VMB39 VMS39 VMV39 |
1240 |
goto TTL; |
goto TTL; |
1241 |
TTL:; |
TTL:; |
1242 |
base[0]=MMcons((V198),Cnil); |
base[0]=MMcons((V193),Cnil); |
1243 |
base[1]=MMcons((V197),base[0]); |
base[1]=MMcons((V192),base[0]); |
1244 |
{object V199= STREF(object,(base[0]->c.c_car),4); |
{object V194; |
1245 |
if((V199!= VV[51]))goto T296; |
V194= STREF(object,(base[0]->c.c_car),4); |
1246 |
{object V200 = |
{object V195= (V194); |
1247 |
|
if((V195!= VV[59]))goto T284; |
1248 |
|
{object V196 = |
1249 |
make_cclosure_new(LC139,Cnil,base[1],Cdata); |
make_cclosure_new(LC139,Cnil,base[1],Cdata); |
1250 |
VMR39(V200)} |
VMR39(V196)} |
1251 |
goto T296; |
goto T284; |
1252 |
T296:; |
T284:; |
1253 |
if((V199!= VV[123]))goto T297; |
if((V195!= VV[133]))goto T285; |
1254 |
{object V201 = |
{object V197 = |
1255 |
make_cclosure_new(LC140,Cnil,base[1],Cdata); |
make_cclosure_new(LC140,Cnil,base[1],Cdata); |
1256 |
VMR39(V201)} |
VMR39(V197)} |
1257 |
goto T297; |
goto T285; |
1258 |
T297:; |
T285:; |
1259 |
FEerror("The ECASE key value ~s is illegal.",1,V199); |
base[2]= VV[49]; |
1260 |
{object V202 = Cnil; |
base[3]= VV[50]; |
1261 |
VMR39(V202)}} |
base[4]= VV[51]; |
1262 |
|
base[5]= VV[52]; |
1263 |
|
base[6]= (V194); |
1264 |
|
base[7]= VV[53]; |
1265 |
|
base[8]= VV[57]; |
1266 |
|
base[9]= VV[55]; |
1267 |
|
base[10]= VV[58]; |
1268 |
|
vs_top=(vs_base=base+2)+9; |
1269 |
|
(void) (*Lnk187)(); |
1270 |
|
vs_top=sup; |
1271 |
|
{object V198 = vs_base[0]; |
1272 |
|
VMR39(V198)}}} |
1273 |
base[0]=base[0]; |
base[0]=base[0]; |
1274 |
return Cnil; |
return Cnil; |
1275 |
} |
} |
1279 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1280 |
register object *sup=base+VM40; VC40 |
register object *sup=base+VM40; VC40 |
1281 |
vs_check; |
vs_check; |
1282 |
{object V203; |
{object V199; |
1283 |
object V204; |
object V200; |
1284 |
object V205; |
object V201; |
1285 |
object V206; |
object V202; |
1286 |
check_arg(4); |
check_arg(4); |
1287 |
V203=(base[0]); |
V199=(base[0]); |
1288 |
V204=(base[1]); |
V200=(base[1]); |
1289 |
V205=(base[2]); |
V201=(base[2]); |
1290 |
V206=(base[3]); |
V202=(base[3]); |
1291 |
vs_top=sup; |
vs_top=sup; |
1292 |
goto TTL; |
goto TTL; |
1293 |
TTL:; |
TTL:; |
1294 |
{object V207; |
{object V203; |
1295 |
object V208; |
object V204; |
1296 |
if(!(((V204))==(VV[51]))){ |
if(!(((V200))==(VV[59]))){ |
1297 |
goto T300;} |
goto T297;} |
1298 |
V207= VV[52]; |
V203= VV[60]; |
1299 |
goto T298; |
goto T295; |
1300 |
goto T300; |
goto T297; |
1301 |
T300:; |
T297:; |
1302 |
V207= VV[53]; |
V203= VV[61]; |
1303 |
goto T298; |
goto T295; |
1304 |
T298:; |
T295:; |
1305 |
V208= (*(LnkLI171))((V204),(V206),(V205)); |
V204= (*(LnkLI188))((V200),(V202),(V201)); |
1306 |
base[6]= (V207); |
base[6]= (V203); |
1307 |
base[7]= (type_of((V206))==t_cons?Ct:Cnil); |
base[7]= (type_of((V202))==t_cons?Ct:Cnil); |
1308 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
1309 |
(void) (*Lnk172)(); |
(void) (*Lnk189)(); |
1310 |
vs_top=sup; |
vs_top=sup; |
1311 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1312 |
base[6]= (V205); |
base[6]= (V201); |
1313 |
base[7]= (V206); |
base[7]= (V202); |
1314 |
base[8]= (*(LnkLI173))((V203),(V208)); |
base[8]= (*(LnkLI190))((V199),(V204)); |
1315 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
1316 |
{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)) |
1317 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1320 |
vs_top=sup; |
vs_top=sup; |
1321 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
1322 |
base[5]= Cnil; |
base[5]= Cnil; |
1323 |
base[6]= (V208); |
base[6]= (V204); |
1324 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
1325 |
return;} |
return;} |
1326 |
} |
} |
1331 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1332 |
register object *sup=base+VM41; VC41 |
register object *sup=base+VM41; VC41 |
1333 |
vs_check; |
vs_check; |
1334 |
{object V209; |
{object V205; |
1335 |
object V210; |
object V206; |
1336 |
object V211; |
object V207; |
1337 |
object V212; |
object V208; |
1338 |
object V213; |
object V209; |
1339 |
check_arg(5); |
check_arg(5); |
1340 |
V209=(base[0]); |
V205=(base[0]); |
1341 |
V210=(base[1]); |
V206=(base[1]); |
1342 |
V211=(base[2]); |
V207=(base[2]); |
1343 |
V212=(base[3]); |
V208=(base[3]); |
1344 |
V213=(base[4]); |
V209=(base[4]); |
1345 |
vs_top=sup; |
vs_top=sup; |
1346 |
goto TTL; |
goto TTL; |
1347 |
TTL:; |
TTL:; |
1348 |
{object V214; |
{object V210; |
1349 |
object V215; |
object V211; |
1350 |
if(!(((V210))==(VV[51]))){ |
if(!(((V206))==(VV[59]))){ |
1351 |
goto T314;} |
goto T311;} |
1352 |
V214= VV[54]; |
V210= VV[62]; |
1353 |
goto T312; |
goto T309; |
1354 |
goto T314; |
goto T311; |
1355 |
T314:; |
T311:; |
1356 |
V214= VV[55]; |
V210= VV[63]; |
1357 |
goto T312; |
goto T309; |
1358 |
T312:; |
T309:; |
1359 |
V215= (*(LnkLI174))((V210),(V213),(V211),(V212)); |
V211= (*(LnkLI191))((V206),(V209),(V207),(V208)); |
1360 |
base[7]= (V214); |
base[7]= (V210); |
1361 |
base[8]= (type_of((V213))==t_cons?Ct:Cnil); |
base[8]= (type_of((V209))==t_cons?Ct:Cnil); |
1362 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
1363 |
(void) (*Lnk172)(); |
(void) (*Lnk189)(); |
1364 |
vs_top=sup; |
vs_top=sup; |
1365 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
1366 |
base[7]= (V211); |
base[7]= (V207); |
1367 |
base[8]= (V212); |
base[8]= (V208); |
1368 |
base[9]= (V213); |
base[9]= (V209); |
1369 |
base[10]= (*(LnkLI173))((V209),(V215)); |
base[10]= (*(LnkLI190))((V205),(V211)); |
1370 |
vs_top=(vs_base=base+7)+4; |
vs_top=(vs_base=base+7)+4; |
1371 |
{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)) |
1372 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1375 |
vs_top=sup; |
vs_top=sup; |
1376 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1377 |
base[6]= Cnil; |
base[6]= Cnil; |
1378 |
base[7]= (V215); |
base[7]= (V211); |
1379 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
1380 |
return;} |
return;} |
1381 |
} |
} |
1386 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1387 |
register object *sup=base+VM42; VC42 |
register object *sup=base+VM42; VC42 |
1388 |
vs_check; |
vs_check; |
1389 |
{object V216; |
{object V212; |
1390 |
object V217; |
object V213; |
1391 |
object V218; |
object V214; |
1392 |
object V219; |
object V215; |
1393 |
if(vs_top-vs_base<3) too_few_arguments(); |
if(vs_top-vs_base<3) too_few_arguments(); |
1394 |
if(vs_top-vs_base>4) too_many_arguments(); |
if(vs_top-vs_base>4) too_many_arguments(); |
1395 |
V216=(base[0]); |
V212=(base[0]); |
1396 |
V217=(base[1]); |
V213=(base[1]); |
1397 |
V218=(base[2]); |
V214=(base[2]); |
1398 |
vs_base=vs_base+3; |
vs_base=vs_base+3; |
1399 |
if(vs_base>=vs_top){vs_top=sup;goto T327;} |
if(vs_base>=vs_top){vs_top=sup;goto T324;} |
1400 |
V219=(base[3]); |
V215=(base[3]); |
1401 |
vs_top=sup; |
vs_top=sup; |
1402 |
goto T328; |
goto T325; |
1403 |
|
goto T324; |
1404 |
|
T324:; |
1405 |
|
V215= Cnil; |
1406 |
|
goto T325; |
1407 |
|
T325:; |
1408 |
|
{object V216; |
1409 |
|
object V217; |
1410 |
|
object V218; |
1411 |
|
if(!(((V213))==(VV[59]))){ |
1412 |
|
goto T329;} |
1413 |
|
V216= VV[64]; |
1414 |
|
goto T327; |
1415 |
|
goto T329; |
1416 |
|
T329:; |
1417 |
|
V216= VV[65]; |
1418 |
goto T327; |
goto T327; |
1419 |
T327:; |
T327:; |
1420 |
V219= Cnil; |
if((V215)!=Cnil){ |
1421 |
goto T328; |
V217= (V215); |
1422 |
T328:; |
goto T331;} |
1423 |
{object V220; |
V219= (VV[193]->s.s_gfdef); |
1424 |
object V221; |
V217= (*(LnkLI192))(small_fixnum(1),Cnil,V219,4); |
1425 |
object V222; |
goto T331; |
1426 |
if(!(((V217))==(VV[51]))){ |
T331:; |
1427 |
goto T332;} |
V218= (*(LnkLI35))((V213),(V214),(V217)); |
1428 |
V220= VV[56]; |
base[9]= (V216); |
1429 |
goto T330; |
base[10]= (type_of((V214))==t_cons?Ct:Cnil); |
|
goto T332; |
|
|
T332:; |
|
|
V220= VV[57]; |
|
|
goto T330; |
|
|
T330:; |
|
|
if((V219)!=Cnil){ |
|
|
V221= (V219); |
|
|
goto T334;} |
|
|
V223= (VV[176]->s.s_gfdef); |
|
|
V221= (*(LnkLI175))(small_fixnum(1),Cnil,V223,4); |
|
|
goto T334; |
|
|
T334:; |
|
|
V222= (*(LnkLI37))((V217),(V218),(V221)); |
|
|
base[9]= (V220); |
|
|
base[10]= (type_of((V218))==t_cons?Ct:Cnil); |
|
1430 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+9)+2; |
1431 |
(void) (*Lnk172)(); |
(void) (*Lnk189)(); |
1432 |
vs_top=sup; |
vs_top=sup; |
1433 |
base[8]= vs_base[0]; |
base[8]= vs_base[0]; |
1434 |
base[9]= (V221); |
base[9]= (V217); |
1435 |
base[10]= (V218); |
base[10]= (V214); |
1436 |
base[11]= (*(LnkLI173))((V216),(V222)); |
base[11]= (*(LnkLI190))((V212),(V218)); |
1437 |
vs_top=(vs_base=base+9)+3; |
vs_top=(vs_base=base+9)+3; |
1438 |
{object _funobj = base[8];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[8];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1439 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1441 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1442 |
vs_top=sup; |
vs_top=sup; |
1443 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
1444 |
base[8]= (V221); |
base[8]= (V217); |
1445 |
base[9]= (V222); |
base[9]= (V218); |
1446 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
1447 |
return;} |
return;} |
1448 |
} |
} |
1453 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1454 |
register object *sup=base+VM43; VC43 |
register object *sup=base+VM43; VC43 |
1455 |
vs_check; |
vs_check; |
1456 |
{object V224; |
{object V220; |
1457 |
object V225; |
object V221; |
1458 |
object V226; |
object V222; |
1459 |
object V227; |
object V223; |
1460 |
check_arg(4); |
check_arg(4); |
1461 |
V224=(base[0]); |
V220=(base[0]); |
1462 |
V225=(base[1]); |
V221=(base[1]); |
1463 |
V226=(base[2]); |
V222=(base[2]); |
1464 |
V227=(base[3]); |
V223=(base[3]); |
1465 |
vs_top=sup; |
vs_top=sup; |
1466 |
goto TTL; |
goto TTL; |
1467 |
TTL:; |
TTL:; |
1468 |
{object V228; |
{object V224; |
1469 |
V229 = (V227); |
V225= (VV[193]->s.s_gfdef); |
1470 |
V230= (VV[176]->s.s_gfdef); |
V224= (VFUN_NARGS=4,(*(LnkLI194))((V223),Cnil,small_fixnum(1),V225)); |
1471 |
V228= (VFUN_NARGS=4,(*(LnkLI177))(V229,Cnil,small_fixnum(1),V230)); |
base[4]= (V220); |
1472 |
base[4]= (V224); |
base[5]= (V221); |
1473 |
base[5]= (V225); |
base[6]= (V222); |
1474 |
base[6]= (V226); |
base[7]= (V224); |
|
base[7]= (V228); |
|
1475 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1476 |
(void) (*Lnk178)(); |
(void) (*Lnk195)(); |
1477 |
return;} |
return;} |
1478 |
} |
} |
1479 |
} |
} |
1480 |
/* local entry for function ONE-INDEX-LIMIT-FN */ |
/* local entry for function ONE-INDEX-LIMIT-FN */ |
1481 |
|
|
1482 |
static object LI45(V232) |
static object LI45(V227) |
1483 |
|
|
1484 |
object V232; |
object V227; |
1485 |
{ VMB44 VMS44 VMV44 |
{ VMB44 VMS44 VMV44 |
1486 |
goto TTL; |
goto TTL; |
1487 |
TTL:; |
TTL:; |
1488 |
{long V233 = (long)(*(LnkLI179))((V232)); |
{long V228 = (long)(*(LnkLI196))((V227)); |
1489 |
VMR44((object)V233)} |
VMR44((object)V228)} |
1490 |
} |
} |
1491 |
/* function definition for MAKE-N-N-ACCESSOR-DFUN */ |
/* function definition for MAKE-N-N-ACCESSOR-DFUN */ |
1492 |
|
|
1494 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1495 |
register object *sup=base+VM45; VC45 |
register object *sup=base+VM45; VC45 |
1496 |
vs_check; |
vs_check; |
1497 |
{object V234; |
{object V229; |
1498 |
object V235; |
object V230; |
1499 |
object V236; |
object V231; |
1500 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
1501 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
1502 |
V234=(base[0]); |
V229=(base[0]); |
1503 |
V235=(base[1]); |
V230=(base[1]); |
1504 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
1505 |
if(vs_base>=vs_top){vs_top=sup;goto T352;} |
if(vs_base>=vs_top){vs_top=sup;goto T349;} |
1506 |
V236=(base[2]); |
V231=(base[2]); |
1507 |
vs_top=sup; |
vs_top=sup; |
1508 |
goto T353; |
goto T350; |
1509 |
|
goto T349; |
1510 |
|
T349:; |
1511 |
|
V231= Cnil; |
1512 |
|
goto T350; |
1513 |
|
T350:; |
1514 |
|
{object V232; |
1515 |
|
object V233; |
1516 |
|
object V234; |
1517 |
|
if(!(((V230))==(VV[59]))){ |
1518 |
|
goto T354;} |
1519 |
|
V232= VV[66]; |
1520 |
|
goto T352; |
1521 |
|
goto T354; |
1522 |
|
T354:; |
1523 |
|
V232= VV[67]; |
1524 |
goto T352; |
goto T352; |
1525 |
T352:; |
T352:; |
1526 |
V236= Cnil; |
if((V231)!=Cnil){ |
1527 |
goto T353; |
V233= (V231); |
1528 |
T353:; |
goto T356;} |
1529 |
{object V237; |
V235= (VV[197]->s.s_gfdef); |
1530 |
object V238; |
V233= (*(LnkLI192))(small_fixnum(1),Ct,V235,2); |
1531 |
object V239; |
goto T356; |
1532 |
if(!(((V235))==(VV[51]))){ |
T356:; |
1533 |
goto T357;} |
V234= (*(LnkLI198))((V230),(V233)); |
1534 |
V237= VV[58]; |
base[8]= (V232); |
|
goto T355; |
|
|
goto T357; |
|
|
T357:; |
|
|
V237= VV[59]; |
|
|
goto T355; |
|
|
T355:; |
|
|
if((V236)!=Cnil){ |
|
|
V238= (V236); |
|
|
goto T359;} |
|
|
V240= (VV[180]->s.s_gfdef); |
|
|
V238= (*(LnkLI175))(small_fixnum(1),Ct,V240,2); |
|
|
goto T359; |
|
|
T359:; |
|
|
V239= (*(LnkLI181))((V235),(V238)); |
|
|
base[8]= (V237); |
|
1535 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1536 |
(void) (*Lnk172)(); |
(void) (*Lnk189)(); |
1537 |
vs_top=sup; |
vs_top=sup; |
1538 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
1539 |
base[8]= (V238); |
base[8]= (V233); |
1540 |
base[9]= (*(LnkLI173))((V234),(V239)); |
base[9]= (*(LnkLI190))((V229),(V234)); |
1541 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
1542 |
{object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1543 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1545 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1546 |
vs_top=sup; |
vs_top=sup; |
1547 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
1548 |
base[7]= (V238); |
base[7]= (V233); |
1549 |
base[8]= (V239); |
base[8]= (V234); |
1550 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
1551 |
return;} |
return;} |
1552 |
} |
} |
1557 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1558 |
register object *sup=base+VM46; VC46 |
register object *sup=base+VM46; VC46 |
1559 |
vs_check; |
vs_check; |
1560 |
{object V241; |
{object V236; |
1561 |
object V242; |
object V237; |
1562 |
object V243; |
object V238; |
1563 |
check_arg(3); |
check_arg(3); |
1564 |
V241=(base[0]); |
V236=(base[0]); |
1565 |
V242=(base[1]); |
V237=(base[1]); |
1566 |
V243=(base[2]); |
V238=(base[2]); |
1567 |
vs_top=sup; |
vs_top=sup; |
1568 |
goto TTL; |
goto TTL; |
1569 |
TTL:; |
TTL:; |
1570 |
{object V244; |
{object V239; |
1571 |
V245 = (V243); |
V240= (VV[197]->s.s_gfdef); |
1572 |
V246= (VV[180]->s.s_gfdef); |
V239= (VFUN_NARGS=4,(*(LnkLI194))((V238),Ct,small_fixnum(1),V240)); |
1573 |
V244= (VFUN_NARGS=4,(*(LnkLI177))(V245,Ct,small_fixnum(1),V246)); |
base[3]= (V236); |
1574 |
base[3]= (V241); |
base[4]= (V237); |
1575 |
base[4]= (V242); |
base[5]= (V239); |
|
base[5]= (V244); |
|
1576 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1577 |
(void) (*Lnk182)(); |
(void) (*Lnk199)(); |
1578 |
return;} |
return;} |
1579 |
} |
} |
1580 |
} |
} |
1581 |
/* local entry for function N-N-ACCESSORS-LIMIT-FN */ |
/* local entry for function N-N-ACCESSORS-LIMIT-FN */ |
1582 |
|
|
1583 |
static object LI48(V248) |
static object LI48(V242) |
1584 |
|
|
1585 |
object V248; |
object V242; |
1586 |
{ VMB47 VMS47 VMV47 |
{ VMB47 VMS47 VMV47 |
1587 |
goto TTL; |
goto TTL; |
1588 |
TTL:; |
TTL:; |
1589 |
{long V249 = (long)(*(LnkLI179))((V248)); |
{long V243 = (long)(*(LnkLI196))((V242)); |
1590 |
VMR47((object)V249)} |
VMR47((object)V243)} |
1591 |
} |
} |
1592 |
/* function definition for MAKE-CHECKING-DFUN */ |
/* function definition for MAKE-CHECKING-DFUN */ |
1593 |
|
|
1595 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1596 |
register object *sup=base+VM48; VC48 |
register object *sup=base+VM48; VC48 |
1597 |
vs_check; |
vs_check; |
1598 |
{object V250; |
{object V244; |
1599 |
object V251; |
object V245; |
1600 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
1601 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
1602 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
1603 |
V250=(base[1]); |
V244=(base[1]); |
1604 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
1605 |
if(vs_base>=vs_top){vs_top=sup;goto T374;} |
if(vs_base>=vs_top){vs_top=sup;goto T371;} |
1606 |
V251=(base[2]); |
V245=(base[2]); |
1607 |
vs_top=sup; |
vs_top=sup; |
1608 |
goto T375; |
goto T372; |
1609 |
goto T374; |
goto T371; |
1610 |
T374:; |
T371:; |
1611 |
V251= Cnil; |
V245= Cnil; |
1612 |
goto T375; |
goto T372; |
1613 |
T375:; |
T372:; |
1614 |
if(((V251))!=Cnil){ |
if(((V245))!=Cnil){ |
1615 |
|
goto T374;} |
1616 |
|
if(((*(LnkLI200))((base[0]->c.c_car)))==Cnil){ |
1617 |
goto T377;} |
goto T377;} |
|
if(((*(LnkLI183))((base[0]->c.c_car)))==Cnil){ |
|
|
goto T380;} |
|
1618 |
base[3]= (base[0]->c.c_car); |
base[3]= (base[0]->c.c_car); |
1619 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1620 |
(void) (*Lnk184)(); |
(void) (*Lnk201)(); |
1621 |
return; |
return; |
1622 |
goto T380; |
goto T377; |
1623 |
T380:; |
T377:; |
1624 |
if(((VFUN_NARGS=1,(*(LnkLI185))((base[0]->c.c_car))))==Cnil){ |
if(((VFUN_NARGS=1,(*(LnkLI202))((base[0]->c.c_car))))==Cnil){ |
1625 |
goto T377;} |
goto T374;} |
1626 |
base[3]= (base[0]->c.c_car); |
base[3]= (base[0]->c.c_car); |
1627 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1628 |
(void) (*Lnk186)(); |
(void) (*Lnk203)(); |
1629 |
return; |
return; |
1630 |
goto T377; |
goto T374; |
1631 |
T377:; |
T374:; |
1632 |
{object V252; |
{object V246; |
1633 |
object V253; |
object V247; |
1634 |
object V254; |
object V248; |
1635 |
object V255; |
object V249; |
1636 |
base[3]= (base[0]->c.c_car); |
base[3]= (base[0]->c.c_car); |
1637 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1638 |
(void) (*Lnk187)(); |
(void) (*Lnk204)(); |
1639 |
if(vs_base>=vs_top){vs_top=sup;goto T389;} |
if(vs_base>=vs_top){vs_top=sup;goto T386;} |
1640 |
V252= vs_base[0]; |
V246= vs_base[0]; |
1641 |
vs_base++; |
vs_base++; |
1642 |
if(vs_base>=vs_top){vs_top=sup;goto T390;} |
if(vs_base>=vs_top){vs_top=sup;goto T387;} |
1643 |
V253= vs_base[0]; |
V247= vs_base[0]; |
1644 |
vs_base++; |
vs_base++; |
1645 |
if(vs_base>=vs_top){vs_top=sup;goto T391;} |
if(vs_base>=vs_top){vs_top=sup;goto T388;} |
1646 |
V254= vs_base[0]; |
V248= vs_base[0]; |
1647 |
vs_base++; |
vs_base++; |
1648 |
if(vs_base>=vs_top){vs_top=sup;goto T392;} |
if(vs_base>=vs_top){vs_top=sup;goto T389;} |
1649 |
V255= vs_base[0]; |
V249= vs_base[0]; |
1650 |
vs_top=sup; |
vs_top=sup; |
1651 |
goto T393; |
goto T390; |
1652 |
|
goto T386; |
1653 |
|
T386:; |
1654 |
|
V246= Cnil; |
1655 |
|
goto T387; |
1656 |
|
T387:; |
1657 |
|
V247= Cnil; |
1658 |
|
goto T388; |
1659 |
|
T388:; |
1660 |
|
V248= Cnil; |
1661 |
goto T389; |
goto T389; |
1662 |
T389:; |
T389:; |
1663 |
V252= Cnil; |
V249= Cnil; |
1664 |
goto T390; |
goto T390; |
1665 |
T390:; |
T390:; |
|
V253= Cnil; |
|
|
goto T391; |
|
|
T391:; |
|
|
V254= Cnil; |
|
|
goto T392; |
|
|
T392:; |
|
|
V255= Cnil; |
|
|
goto T393; |
|
|
T393:; |
|
1666 |
base[3]= |
base[3]= |
1667 |
make_cclosure_new(LC141,Cnil,base[0],Cdata); |
make_cclosure_new(LC141,Cnil,base[0],Cdata); |
1668 |
base[4]= (V254); |
base[4]= (V248); |
1669 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1670 |
(void) (*Lnk188)(); |
(void) (*Lnk205)(); |
1671 |
vs_top=sup; |
vs_top=sup; |
1672 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1673 |
goto T395;} |
goto T392;} |
1674 |
{object V256; |
{object V250; |
1675 |
V256= (*(LnkLI189))(); |
V250= (*(LnkLI206))(); |
1676 |
base[5]= VV[60]; |
base[5]= VV[68]; |
1677 |
base[6]= (V254); |
base[6]= (V248); |
1678 |
base[7]= (V253); |
base[7]= (V247); |
1679 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
1680 |
(void) (*Lnk172)(); |
(void) (*Lnk189)(); |
1681 |
vs_top=sup; |
vs_top=sup; |
1682 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
1683 |
base[5]= (V250); |
base[5]= (V244); |
1684 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1685 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1686 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1689 |
vs_top=sup; |
vs_top=sup; |
1690 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
1691 |
base[4]= Cnil; |
base[4]= Cnil; |
1692 |
base[5]= (V256); |
base[5]= (V250); |
1693 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1694 |
return;} |
return;} |
1695 |
goto T395; |
goto T392; |
1696 |
T395:; |
T392:; |
1697 |
{object V257; |
{object V251; |
1698 |
if((V251)!=Cnil){ |
if((V245)!=Cnil){ |
1699 |
V257= (V251); |
V251= (V245); |
1700 |
goto T408;} |
goto T405;} |
1701 |
V258 = (V255); |
V252= (VV[207]->s.s_gfdef); |
1702 |
V259= (VV[190]->s.s_gfdef); |
V251= (*(LnkLI192))((V249),Cnil,V252,2); |
1703 |
V257= (*(LnkLI175))(V258,Cnil,V259,2); |
goto T405; |
1704 |
goto T408; |
T405:; |
1705 |
T408:; |
base[4]= (*(LnkLI208))((V244),(V251)); |
|
base[4]= (*(LnkLI191))((V250),(V257)); |
|
1706 |
base[4]=MMcons(base[4],base[0]); |
base[4]=MMcons(base[4],base[0]); |
1707 |
base[7]= VV[61]; |
base[7]= VV[69]; |
1708 |
base[8]= (V254); |
base[8]= (V248); |
1709 |
base[9]= (V253); |
base[9]= (V247); |
1710 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
1711 |
(void) (*Lnk172)(); |
(void) (*Lnk189)(); |
1712 |
vs_top=sup; |
vs_top=sup; |
1713 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
1714 |
base[7]= (V257); |
base[7]= (V251); |
1715 |
base[8]= (V250); |
base[8]= (V244); |
1716 |
base[9]= |
base[9]= |
1717 |
make_cclosure_new(LC142,Cnil,base[4],Cdata); |
make_cclosure_new(LC142,Cnil,base[4],Cdata); |
1718 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
1722 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1723 |
vs_top=sup; |
vs_top=sup; |
1724 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1725 |
base[6]= (V257); |
base[6]= (V251); |
1726 |
base[7]= (base[4]->c.c_car); |
base[7]= (base[4]->c.c_car); |
1727 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
1728 |
return;}} |
return;}} |
1734 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1735 |
register object *sup=base+VM49; VC49 |
register object *sup=base+VM49; VC49 |
1736 |
vs_check; |
vs_check; |
1737 |
{object V260; |
{object V253; |
1738 |
object V261; |
object V254; |
1739 |
object V262; |
object V255; |
1740 |
check_arg(4); |
check_arg(4); |
1741 |
V260=(base[0]); |
V253=(base[0]); |
1742 |
base[1]=MMcons(base[1],Cnil); |
base[1]=MMcons(base[1],Cnil); |
1743 |
V261=(base[2]); |
V254=(base[2]); |
1744 |
V262=(base[3]); |
V255=(base[3]); |
1745 |
vs_top=sup; |
vs_top=sup; |
1746 |
{object V263; |
{object V256; |
1747 |
base[4]= (V260); |
base[4]= (V253); |
1748 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1749 |
(void) (*Lnk161)(Lclptr161); |
(void) (*Lnk177)(Lclptr177); |
1750 |
vs_top=sup; |
vs_top=sup; |
1751 |
V264= vs_base[0]; |
V257= vs_base[0]; |
1752 |
V263= STREF(object,V264,8); |
V256= STREF(object,V257,8); |
1753 |
base[4]= |
base[4]= |
1754 |
make_cclosure_new(LC143,Cnil,base[1],Cdata); |
make_cclosure_new(LC143,Cnil,base[1],Cdata); |
1755 |
base[5]= (V263); |
base[5]= (V256); |
1756 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1757 |
(void) (*Lnk188)(); |
(void) (*Lnk205)(); |
1758 |
vs_top=sup; |
vs_top=sup; |
1759 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1760 |
goto T425;} |
goto T422;} |
1761 |
base[4]= |
base[4]= |
1762 |
make_cclosure_new(LC144,Cnil,base[1],Cdata); |
make_cclosure_new(LC144,Cnil,base[1],Cdata); |
1763 |
base[5]= Cnil; |
base[5]= Cnil; |
1764 |
base[6]= (*(LnkLI189))(); |
base[6]= (*(LnkLI206))(); |
1765 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
1766 |
return; |
return; |
1767 |
goto T425; |
goto T422; |
1768 |
T425:; |
T422:; |
1769 |
{object V265; |
{object V258; |
1770 |
V266 = (V260); |
V259= (VV[207]->s.s_gfdef); |
1771 |
V267= (VV[190]->s.s_gfdef); |
V258= (*(LnkLI209))((V253),Cnil,V259,(V254),(V255)); |
1772 |
V268 = (V261); |
base[4]= (V253); |
|
V269 = (V262); |
|
|
V265= (*(LnkLI192))(V266,Cnil,V267,V268,V269); |
|
|
base[4]= (V260); |
|
1773 |
base[5]= (base[1]->c.c_car); |
base[5]= (base[1]->c.c_car); |
1774 |
base[6]= (V265); |
base[6]= (V258); |
1775 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
1776 |
(void) (*Lnk193)(); |
(void) (*Lnk210)(); |
1777 |
return;}} |
return;}} |
1778 |
} |
} |
1779 |
} |
} |
1780 |
/* local entry for function USE-DEFAULT-METHOD-ONLY-DFUN-P */ |
/* local entry for function USE-DEFAULT-METHOD-ONLY-DFUN-P */ |
1781 |
|
|
1782 |
static object LI51(V271) |
static object LI51(V261) |
1783 |
|
|
1784 |
object V271; |
object V261; |
1785 |
{ VMB50 VMS50 VMV50 |
{ VMB50 VMS50 VMV50 |
1786 |
goto TTL; |
goto TTL; |
1787 |
TTL:; |
TTL:; |
1788 |
{object V272; |
{object V262; |
1789 |
object V273; |
object V263; |
1790 |
object V274; |
object V264; |
1791 |
object V275; |
object V265; |
1792 |
base[0]= (V271); |
base[0]= (V261); |
1793 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1794 |
(void) (*Lnk187)(); |
(void) (*Lnk204)(); |
1795 |
if(vs_base>=vs_top){vs_top=sup;goto T439;} |
if(vs_base>=vs_top){vs_top=sup;goto T436;} |
1796 |
V272= vs_base[0]; |
V262= vs_base[0]; |
1797 |
vs_base++; |
vs_base++; |
1798 |
if(vs_base>=vs_top){vs_top=sup;goto T440;} |
if(vs_base>=vs_top){vs_top=sup;goto T437;} |
1799 |
V273= vs_base[0]; |
V263= vs_base[0]; |
1800 |
vs_base++; |
vs_base++; |
1801 |
if(vs_base>=vs_top){vs_top=sup;goto T441;} |
if(vs_base>=vs_top){vs_top=sup;goto T438;} |
1802 |
V274= vs_base[0]; |
V264= vs_base[0]; |
1803 |
vs_base++; |
vs_base++; |
1804 |
if(vs_base>=vs_top){vs_top=sup;goto T442;} |
if(vs_base>=vs_top){vs_top=sup;goto T439;} |
1805 |
V275= vs_base[0]; |
V265= vs_base[0]; |
1806 |
vs_top=sup; |
vs_top=sup; |
1807 |
goto T443; |
goto T440; |
1808 |
|
goto T436; |
1809 |
|
T436:; |
1810 |
|
V262= Cnil; |
1811 |
|
goto T437; |
1812 |
|
T437:; |
1813 |
|
V263= Cnil; |
1814 |
|
goto T438; |
1815 |
|
T438:; |
1816 |
|
V264= Cnil; |
1817 |
goto T439; |
goto T439; |
1818 |
T439:; |
T439:; |
1819 |
V272= Cnil; |
V265= Cnil; |
1820 |
goto T440; |
goto T440; |
1821 |
T440:; |
T440:; |
1822 |
V273= Cnil; |
base[0]= VV[211]; |
1823 |
goto T441; |
base[1]= (V264); |
|
T441:; |
|
|
V274= Cnil; |
|
|
goto T442; |
|
|
T442:; |
|
|
V275= Cnil; |
|
|
goto T443; |
|
|
T443:; |
|
|
base[0]= VV[194]; |
|
|
base[1]= (V274); |
|
1824 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1825 |
(void) (*Lnk188)(); |
(void) (*Lnk205)(); |
1826 |
vs_top=sup; |
vs_top=sup; |
1827 |
{object V276 = vs_base[0]; |
{object V266 = vs_base[0]; |
1828 |
VMR50(V276)}} |
VMR50(V266)}} |
1829 |
base[0]=base[0]; |
base[0]=base[0]; |
1830 |
return Cnil; |
return Cnil; |
1831 |
} |
} |
1832 |
/* local entry for function USE-CACHING-DFUN-P */ |
/* local entry for function USE-CACHING-DFUN-P */ |
1833 |
|
|
1834 |
static object LI52(V278) |
static object LI52(V268) |
1835 |
|
|
1836 |
register object V278; |
register object V268; |
1837 |
{ VMB51 VMS51 VMV51 |
{ VMB51 VMS51 VMV51 |
1838 |
goto TTL; |
goto TTL; |
1839 |
TTL:; |
TTL:; |
1840 |
base[0]= VV[195]; |
base[0]= VV[212]; |
1841 |
if(((*(LnkLI196))((V278)))==Cnil){ |
if(((*(LnkLI213))((V268)))==Cnil){ |
1842 |
goto T449;} |
goto T446;} |
1843 |
if(type_of(V278)==t_structure){ |
if(type_of(V268)==t_structure){ |
1844 |
goto T455;} |
goto T452;} |
1845 |
goto T453; |
goto T450; |
1846 |
goto T455; |
goto T452; |
1847 |
T455:; |
T452:; |
1848 |
if(!(((V278)->str.str_def)==(VV[63]))){ |
if(!(((V268)->str.str_def)==(VV[71]))){ |
1849 |
goto T453;} |
goto T450;} |
1850 |
V279= STREF(object,(V278),4); |
V269= STREF(object,(V268),4); |
1851 |
goto T451; |
goto T448; |
1852 |
goto T453; |
goto T450; |
1853 |
T453:;{object V281; |
T450:;{object V271; |
1854 |
V281= (VV[65]->s.s_dbind); |
V271= (VV[73]->s.s_dbind); |
1855 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
1856 |
base[3]= (V278); |
base[3]= (V268); |
1857 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1858 |
(void) (*Lnk197)(); |
(void) (*Lnk214)(); |
1859 |
vs_top=sup; |
vs_top=sup; |
1860 |
V282= vs_base[0]; |
V272= vs_base[0]; |
1861 |
if(!((V281)==(CMPcar(V282)))){ |
if(!((V271)==(CMPcar(V272)))){ |
1862 |
goto T458;}} |
goto T455;}} |
1863 |
V279= CMPcar(((V278))->cc.cc_turbo[12]); |
V269= CMPcar(((V268))->cc.cc_turbo[12]); |
1864 |
goto T451; |
goto T448; |
1865 |
goto T458; |
goto T455; |
1866 |
T458:; |
T455:; |
1867 |
base[2]= VV[66]; |
base[2]= VV[74]; |
1868 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1869 |
Lerror(); |
Lerror(); |
1870 |
vs_top=sup; |
vs_top=sup; |
1871 |
V279= vs_base[0]; |
V269= vs_base[0]; |
1872 |
goto T451; |
goto T448; |
1873 |
T451:; |
T448:; |
1874 |
V283 = (VV[67]->s.s_dbind); |
base[1]= (V269)->v.v_self[fix((VV[75]->s.s_dbind))]; |
1875 |
base[1]= (V279)->v.v_self[fix(V283)]; |
goto T444; |
1876 |
goto T447; |
goto T446; |
1877 |
goto T449; |
T446:; |
1878 |
T449:; |
base[2]= (V268); |
|
base[2]= (V278); |
|
1879 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1880 |
(void) (*Lnk199)(Lclptr199); |
(void) (*Lnk216)(Lclptr216); |
1881 |
vs_top=sup; |
vs_top=sup; |
1882 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
1883 |
goto T447; |
goto T444; |
1884 |
T447:; |
T444:; |
1885 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1886 |
(void) (*Lnk200)(); |
(void) (*Lnk217)(); |
1887 |
vs_top=sup; |
vs_top=sup; |
1888 |
{object V284 = vs_base[0]; |
{object V273 = vs_base[0]; |
1889 |
VMR51(V284)} |
VMR51(V273)} |
1890 |
base[0]=base[0]; |
base[0]=base[0]; |
1891 |
return Cnil; |
return Cnil; |
1892 |
} |
} |
1893 |
/* local entry for function CHECKING-LIMIT-FN */ |
/* local entry for function CHECKING-LIMIT-FN */ |
1894 |
|
|
1895 |
static object LI53(V286) |
static object LI53(V275) |
1896 |
|
|
1897 |
object V286; |
object V275; |
1898 |
{ VMB52 VMS52 VMV52 |
{ VMB52 VMS52 VMV52 |
1899 |
goto TTL; |
goto TTL; |
1900 |
TTL:; |
TTL:; |
1901 |
{long V287 = (long)(*(LnkLI179))((V286)); |
{long V276 = (long)(*(LnkLI196))((V275)); |
1902 |
VMR52((object)V287)} |
VMR52((object)V276)} |
1903 |
} |
} |
1904 |
/* function definition for MAKE-CACHING-DFUN */ |
/* function definition for MAKE-CACHING-DFUN */ |
1905 |
|
|
1907 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1908 |
register object *sup=base+VM53; VC53 |
register object *sup=base+VM53; VC53 |
1909 |
vs_check; |
vs_check; |
1910 |
{object V288; |
{object V277; |
1911 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
1912 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
1913 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
1914 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
1915 |
if(vs_base>=vs_top){vs_top=sup;goto T465;} |
if(vs_base>=vs_top){vs_top=sup;goto T462;} |
1916 |
V288=(base[1]); |
V277=(base[1]); |
1917 |
vs_top=sup; |
vs_top=sup; |
1918 |
goto T466; |
goto T463; |
1919 |
goto T465; |
goto T462; |
1920 |
T465:; |
T462:; |
1921 |
V288= Cnil; |
V277= Cnil; |
1922 |
goto T466; |
goto T463; |
1923 |
T466:; |
T463:; |
1924 |
if(((V288))!=Cnil){ |
if(((V277))!=Cnil){ |
1925 |
|
goto T465;} |
1926 |
|
if(((VFUN_NARGS=1,(*(LnkLI218))((base[0]->c.c_car))))==Cnil){ |
1927 |
goto T468;} |
goto T468;} |
|
if(((VFUN_NARGS=1,(*(LnkLI201))((base[0]->c.c_car))))==Cnil){ |
|
|
goto T471;} |
|
1928 |
base[2]= (base[0]->c.c_car); |
base[2]= (base[0]->c.c_car); |
1929 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1930 |
(void) (*Lnk202)(); |
(void) (*Lnk219)(); |
1931 |
return; |
return; |
1932 |
goto T471; |
goto T468; |
1933 |
T471:; |
T468:; |
1934 |
if(((VFUN_NARGS=1,(*(LnkLI185))((base[0]->c.c_car))))==Cnil){ |
if(((VFUN_NARGS=1,(*(LnkLI202))((base[0]->c.c_car))))==Cnil){ |
1935 |
goto T468;} |
goto T465;} |
1936 |
base[2]= (base[0]->c.c_car); |
base[2]= (base[0]->c.c_car); |
1937 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1938 |
(void) (*Lnk186)(); |
(void) (*Lnk203)(); |
1939 |
return; |
return; |
1940 |
goto T468; |
goto T465; |
1941 |
T468:; |
T465:; |
1942 |
{object V289; |
{object V278; |
1943 |
object V290; |
object V279; |
1944 |
object V291; |
object V280; |
1945 |
object V292; |
object V281; |
1946 |
base[2]= (base[0]->c.c_car); |
base[2]= (base[0]->c.c_car); |
1947 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1948 |
(void) (*Lnk187)(); |
(void) (*Lnk204)(); |
1949 |
if(vs_base>=vs_top){vs_top=sup;goto T480;} |
if(vs_base>=vs_top){vs_top=sup;goto T477;} |
1950 |
V289= vs_base[0]; |
V278= vs_base[0]; |
1951 |
vs_base++; |
vs_base++; |
1952 |
if(vs_base>=vs_top){vs_top=sup;goto T481;} |
if(vs_base>=vs_top){vs_top=sup;goto T478;} |
1953 |
V290= vs_base[0]; |
V279= vs_base[0]; |
1954 |
vs_base++; |
vs_base++; |
1955 |
if(vs_base>=vs_top){vs_top=sup;goto T482;} |
if(vs_base>=vs_top){vs_top=sup;goto T479;} |
1956 |
V291= vs_base[0]; |
V280= vs_base[0]; |
1957 |
vs_base++; |
vs_base++; |
1958 |
if(vs_base>=vs_top){vs_top=sup;goto T483;} |
if(vs_base>=vs_top){vs_top=sup;goto T480;} |
1959 |
V292= vs_base[0]; |
V281= vs_base[0]; |
1960 |
vs_top=sup; |
vs_top=sup; |
1961 |
goto T484; |
goto T481; |
1962 |
|
goto T477; |
1963 |
|
T477:; |
1964 |
|
V278= Cnil; |
1965 |
|
goto T478; |
1966 |
|
T478:; |
1967 |
|
V279= Cnil; |
1968 |
|
goto T479; |
1969 |
|
T479:; |
1970 |
|
V280= Cnil; |
1971 |
goto T480; |
goto T480; |
1972 |
T480:; |
T480:; |
1973 |
V289= Cnil; |
V281= Cnil; |
1974 |
goto T481; |
goto T481; |
1975 |
T481:; |
T481:; |
1976 |
V290= Cnil; |
{object V282; |
1977 |
|
if((V277)!=Cnil){ |
1978 |
|
V282= (V277); |
1979 |
|
goto T482;} |
1980 |
|
V283= (VV[220]->s.s_gfdef); |
1981 |
|
V282= (*(LnkLI192))((V281),Ct,V283,2); |
1982 |
goto T482; |
goto T482; |
1983 |
T482:; |
T482:; |
1984 |
V291= Cnil; |
base[3]= (*(LnkLI221))((V282)); |
|
goto T483; |
|
|
T483:; |
|
|
V292= Cnil; |
|
|
goto T484; |
|
|
T484:; |
|
|
{object V293; |
|
|
if((V288)!=Cnil){ |
|
|
V293= (V288); |
|
|
goto T485;} |
|
|
V294 = (V292); |
|
|
V295= (VV[203]->s.s_gfdef); |
|
|
V293= (*(LnkLI175))(V294,Ct,V295,2); |
|
|
goto T485; |
|
|
T485:; |
|
|
base[3]= (*(LnkLI204))((V293)); |
|
1985 |
base[3]=MMcons(base[3],base[0]); |
base[3]=MMcons(base[3],base[0]); |
1986 |
base[6]= VV[68]; |
base[6]= VV[76]; |
1987 |
base[7]= (V291); |
base[7]= (V280); |
1988 |
base[8]= (V290); |
base[8]= (V279); |
1989 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
1990 |
(void) (*Lnk172)(); |
(void) (*Lnk189)(); |
1991 |
vs_top=sup; |
vs_top=sup; |
1992 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1993 |
base[6]= (V293); |
base[6]= (V282); |
1994 |
base[7]= |
base[7]= |
1995 |
make_cclosure_new(LC147,Cnil,base[3],Cdata); |
make_cclosure_new(LC147,Cnil,base[3],Cdata); |
1996 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
2000 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2001 |
vs_top=sup; |
vs_top=sup; |
2002 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
2003 |
base[5]= (V293); |
base[5]= (V282); |
2004 |
base[6]= (base[3]->c.c_car); |
base[6]= (base[3]->c.c_car); |
2005 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
2006 |
return;}} |
return;}} |
2012 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2013 |
register object *sup=base+VM54; VC54 |
register object *sup=base+VM54; VC54 |
2014 |
vs_check; |
vs_check; |
2015 |
{object V296; |
{object V284; |
2016 |
object V297; |
object V285; |
2017 |
object V298; |
object V286; |
2018 |
check_arg(3); |
check_arg(3); |
2019 |
V296=(base[0]); |
V284=(base[0]); |
2020 |
V297=(base[1]); |
V285=(base[1]); |
2021 |
V298=(base[2]); |
V286=(base[2]); |
2022 |
vs_top=sup; |
vs_top=sup; |
2023 |
goto TTL; |
goto TTL; |
2024 |
TTL:; |
TTL:; |
2025 |
{object V299; |
{object V287; |
2026 |
V300 = (V296); |
V288= (VV[220]->s.s_gfdef); |
2027 |
V301= (VV[203]->s.s_gfdef); |
V287= (*(LnkLI209))((V284),Ct,V288,(V285),(V286)); |
2028 |
V302 = (V297); |
base[3]= (V284); |
2029 |
V303 = (V298); |
base[4]= (V287); |
|
V299= (*(LnkLI192))(V300,Ct,V301,V302,V303); |
|
|
base[3]= (V296); |
|
|
base[4]= (V299); |
|
2030 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2031 |
(void) (*Lnk184)(); |
(void) (*Lnk201)(); |
2032 |
return;} |
return;} |
2033 |
} |
} |
2034 |
} |
} |
2035 |
/* local entry for function CACHING-LIMIT-FN */ |
/* local entry for function CACHING-LIMIT-FN */ |
2036 |
|
|
2037 |
static object LI56(V305) |
static object LI56(V290) |
2038 |
|
|
2039 |
object V305; |
object V290; |
2040 |
{ VMB55 VMS55 VMV55 |
{ VMB55 VMS55 VMV55 |
2041 |
goto TTL; |
goto TTL; |
2042 |
TTL:; |
TTL:; |
2043 |
{long V306 = (long)(*(LnkLI179))((V305)); |
{long V291 = (long)(*(LnkLI196))((V290)); |
2044 |
VMR55((object)V306)} |
VMR55((object)V291)} |
2045 |
} |
} |
2046 |
/* function definition for INSURE-DFUN */ |
/* function definition for INSURE-CACHING-DFUN */ |
2047 |
|
|
2048 |
static void L57() |
static void L57() |
2049 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2050 |
register object *sup=base+VM56; VC56 |
register object *sup=base+VM56; VC56 |
2051 |
vs_check; |
vs_check; |
2052 |
{object V307; |
{object V292; |
2053 |
object V308; |
check_arg(1); |
2054 |
check_arg(2); |
V292=(base[0]); |
|
V307=(base[0]); |
|
|
V308=(base[1]); |
|
2055 |
vs_top=sup; |
vs_top=sup; |
2056 |
goto TTL; |
goto TTL; |
2057 |
TTL:; |
TTL:; |
2058 |
{object V309; |
{object V293; |
2059 |
object V310; |
object V294; |
2060 |
register object V311; |
register object V295; |
2061 |
object V312; |
object V296; |
2062 |
base[2]= (V307); |
base[1]= (V292); |
2063 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+1)+1; |
2064 |
(void) (*Lnk187)(); |
(void) (*Lnk204)(); |
2065 |
if(vs_base>=vs_top){vs_top=sup;goto T503;} |
if(vs_base>=vs_top){vs_top=sup;goto T500;} |
2066 |
V309= vs_base[0]; |
V293= vs_base[0]; |
2067 |
vs_base++; |
vs_base++; |
2068 |
if(vs_base>=vs_top){vs_top=sup;goto T504;} |
if(vs_base>=vs_top){vs_top=sup;goto T501;} |
2069 |
V310= vs_base[0]; |
V294= vs_base[0]; |
2070 |
vs_base++; |
vs_base++; |
2071 |
if(vs_base>=vs_top){vs_top=sup;goto T505;} |
if(vs_base>=vs_top){vs_top=sup;goto T502;} |
2072 |
V311= vs_base[0]; |
V295= vs_base[0]; |
2073 |
vs_base++; |
vs_base++; |
2074 |
if(vs_base>=vs_top){vs_top=sup;goto T506;} |
if(vs_base>=vs_top){vs_top=sup;goto T503;} |
2075 |
V312= vs_base[0]; |
V296= vs_base[0]; |
2076 |
vs_top=sup; |
vs_top=sup; |
2077 |
goto T507; |
goto T504; |
2078 |
|
goto T500; |
2079 |
|
T500:; |
2080 |
|
V293= Cnil; |
2081 |
|
goto T501; |
2082 |
|
T501:; |
2083 |
|
V294= Cnil; |
2084 |
|
goto T502; |
2085 |
|
T502:; |
2086 |
|
V295= Cnil; |
2087 |
goto T503; |
goto T503; |
2088 |
T503:; |
T503:; |
2089 |
V309= Cnil; |
V296= Cnil; |
2090 |
goto T504; |
goto T504; |
2091 |
T504:; |
T504:; |
2092 |
V310= Cnil; |
if(((V295))==Cnil){ |
2093 |
goto T505; |
goto T506;} |
2094 |
T505:; |
if((CMPcar((V295)))==Cnil){ |
2095 |
V311= Cnil; |
goto T506;} |
2096 |
|
{register object V297; |
2097 |
|
register object V298; |
2098 |
|
V297= (V295); |
2099 |
|
V298= CMPcar((V297)); |
2100 |
|
goto T515; |
2101 |
|
T515:; |
2102 |
|
if(!(((V297))==Cnil)){ |
2103 |
|
goto T516;} |
2104 |
goto T506; |
goto T506; |
2105 |
T506:; |
goto T516; |
2106 |
V312= Cnil; |
T516:; |
2107 |
goto T507; |
if(((V298))==(Ct)){ |
2108 |
T507:; |
goto T520;} |
2109 |
if(((V311))==Cnil){ |
goto T511; |
2110 |
goto T508;} |
goto T520; |
2111 |
if((CMPcar((V311)))==Cnil){ |
T520:; |
2112 |
goto T509;} |
V297= CMPcdr((V297)); |
2113 |
goto T508; |
V298= CMPcar((V297)); |
2114 |
T508:; |
goto T515;} |
2115 |
if(((VFUN_NARGS=1,(*(LnkLI201))((V307))))==Cnil){ |
goto T511; |
2116 |
goto T514;} |
T511:; |
2117 |
base[2]= VV[69]; |
base[1]= VV[76]; |
2118 |
base[3]= (V311); |
base[2]= (V295); |
2119 |
vs_top=(vs_base=base+2)+2; |
base[3]= (V294); |
2120 |
(void) (*Lnk172)(); |
vs_top=(vs_base=base+1)+3; |
2121 |
return; |
(void) (*Lnk189)(); |
|
goto T514; |
|
|
T514:; |
|
|
if(((V308))==Cnil){ |
|
|
goto T519;} |
|
|
base[2]= VV[68]; |
|
|
base[3]= (V311); |
|
|
base[4]= (V310); |
|
|
vs_top=(vs_base=base+2)+3; |
|
|
(void) (*Lnk172)(); |
|
|
return; |
|
|
goto T519; |
|
|
T519:; |
|
|
{register object V313; |
|
|
register object V314; |
|
|
V313= (V311); |
|
|
V314= CMPcar((V313)); |
|
|
goto T530; |
|
|
T530:; |
|
|
if(!(((V313))==Cnil)){ |
|
|
goto T531;} |
|
|
goto T526; |
|
|
goto T531; |
|
|
T531:; |
|
|
if(((V314))==(Ct)){ |
|
|
goto T535;} |
|
|
goto T525; |
|
|
goto T535; |
|
|
T535:; |
|
|
V313= CMPcdr((V313)); |
|
|
V314= CMPcar((V313)); |
|
|
goto T530;} |
|
|
goto T526; |
|
|
T526:; |
|
|
base[2]= VV[60]; |
|
|
base[3]= (V311); |
|
|
base[4]= (V310); |
|
|
vs_top=(vs_base=base+2)+3; |
|
|
(void) (*Lnk172)(); |
|
|
return; |
|
|
goto T525; |
|
|
T525:; |
|
|
base[2]= VV[61]; |
|
|
base[3]= (V311); |
|
|
base[4]= (V310); |
|
|
vs_top=(vs_base=base+2)+3; |
|
|
(void) (*Lnk172)(); |
|
2122 |
return; |
return; |
2123 |
goto T509; |
goto T506; |
2124 |
T509:; |
T506:; |
2125 |
base[2]= Cnil; |
base[1]= Cnil; |
2126 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+1)+1; |
2127 |
return;} |
return;} |
2128 |
} |
} |
2129 |
} |
} |
2130 |
/* local entry for function USE-CONSTANT-VALUE-DFUN-P */ |
/* local entry for function USE-CONSTANT-VALUE-DFUN-P */ |
2131 |
|
|
2132 |
static object LI58(object V315,object first,...) |
static object LI58(object V299,object first,...) |
2133 |
{ |
{ |
2134 |
va_list ap; |
va_list ap; |
2135 |
int narg = VFUN_NARGS; VMB57 VMS57 VMV57 |
int narg = VFUN_NARGS; VMB57 VMS57 VMV57 |
2136 |
{register object V316; |
{register object V300; |
2137 |
va_start(ap,first); |
va_start(ap,first); |
2138 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
2139 |
V316= V315; |
V300= V299; |
2140 |
narg = narg - 1; |
narg = narg - 1; |
2141 |
if (narg <= 0) goto T549; |
if (narg <= 0) goto T531; |
2142 |
else { |
else { |
2143 |
Vcs[1]=MMcons(first,Cnil);} |
Vcs[1]=MMcons(first,Cnil);} |
2144 |
--narg; goto T550; |
--narg; goto T532; |
2145 |
goto T549; |
goto T531; |
2146 |
T549:; |
T531:; |
2147 |
Vcs[1]= Cnil; |
Vcs[1]= Cnil; |
2148 |
Vcs[1]=MMcons(Vcs[1],Cnil); |
Vcs[1]=MMcons(Vcs[1],Cnil); |
2149 |
goto T550; |
goto T532; |
2150 |
T550:; |
T532:; |
2151 |
{object V317; |
{object V301; |
2152 |
object V318; |
object V302; |
2153 |
object V319; |
object V303; |
2154 |
object V320; |
object V304; |
2155 |
base[0]= (V316); |
base[0]= (V300); |
2156 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2157 |
(void) (*Lnk187)(); |
(void) (*Lnk204)(); |
2158 |
if(vs_base>=vs_top){vs_top=sup;goto T554;} |
if(vs_base>=vs_top){vs_top=sup;goto T536;} |
2159 |
V317= vs_base[0]; |
V301= vs_base[0]; |
2160 |
vs_base++; |
vs_base++; |
2161 |
if(vs_base>=vs_top){vs_top=sup;goto T555;} |
if(vs_base>=vs_top){vs_top=sup;goto T537;} |
2162 |
V318= vs_base[0]; |
V302= vs_base[0]; |
2163 |
vs_base++; |
vs_base++; |
2164 |
if(vs_base>=vs_top){vs_top=sup;goto T556;} |
if(vs_base>=vs_top){vs_top=sup;goto T538;} |
2165 |
V319= vs_base[0]; |
V303= vs_base[0]; |
2166 |
vs_base++; |
vs_base++; |
2167 |
if(vs_base>=vs_top){vs_top=sup;goto T557;} |
if(vs_base>=vs_top){vs_top=sup;goto T539;} |
2168 |
V320= vs_base[0]; |
V304= vs_base[0]; |
2169 |
vs_top=sup; |
vs_top=sup; |
2170 |
goto T558; |
goto T540; |
2171 |
goto T554; |
goto T536; |
2172 |
T554:; |
T536:; |
2173 |
V317= Cnil; |
V301= Cnil; |
2174 |
goto T555; |
goto T537; |
2175 |
T555:; |
T537:; |
2176 |
V318= Cnil; |
V302= Cnil; |
2177 |
goto T556; |
goto T538; |
2178 |
T556:; |
T538:; |
2179 |
V319= Cnil; |
V303= Cnil; |
2180 |
goto T557; |
goto T539; |
2181 |
T557:; |
T539:; |
2182 |
V320= Cnil; |
V304= Cnil; |
2183 |
goto T558; |
goto T540; |
2184 |
T558:; |
T540:; |
2185 |
{object V321; |
{object V305; |
2186 |
base[0]= (*(LnkLI196))((V316)); |
base[0]= (*(LnkLI213))((V300)); |
2187 |
base[0]=MMcons(base[0],Vcs[1]); |
base[0]=MMcons(base[0],Vcs[1]); |
2188 |
if(((base[0]->c.c_car))==Cnil){ |
if(((base[0]->c.c_car))==Cnil){ |
2189 |
goto T562;} |
goto T544;} |
2190 |
if(type_of(V316)==t_structure){ |
if(type_of(V300)==t_structure){ |
2191 |
goto T568;} |
goto T550;} |
2192 |
goto T566; |
goto T548; |
2193 |
goto T568; |
goto T550; |
2194 |
T568:; |
T550:; |
2195 |
if(!(((V316)->str.str_def)==(VV[70]))){ |
if(!(((V300)->str.str_def)==(VV[77]))){ |
2196 |
goto T566;} |
goto T548;} |
2197 |
V322= STREF(object,(V316),4); |
V306= STREF(object,(V300),4); |
2198 |
goto T564; |
goto T546; |
2199 |
goto T566; |
goto T548; |
2200 |
T566:;{object V324; |
T548:;{object V308; |
2201 |
V324= (VV[65]->s.s_dbind); |
V308= (VV[73]->s.s_dbind); |
2202 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
2203 |
base[4]= (V316); |
base[4]= (V300); |
2204 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2205 |
(void) (*Lnk197)(); |
(void) (*Lnk214)(); |
2206 |
vs_top=sup; |
vs_top=sup; |
2207 |
V325= vs_base[0]; |
V309= vs_base[0]; |
2208 |
if(!((V324)==(CMPcar(V325)))){ |
if(!((V308)==(CMPcar(V309)))){ |
2209 |
goto T571;}} |
goto T553;}} |
2210 |
V322= CMPcar(((V316))->cc.cc_turbo[12]); |
V306= CMPcar(((V300))->cc.cc_turbo[12]); |
2211 |
goto T564; |
goto T546; |
2212 |
goto T571; |
goto T553; |
2213 |
T571:; |
T553:; |
2214 |
base[3]= VV[66]; |
base[3]= VV[74]; |
2215 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2216 |
Lerror(); |
Lerror(); |
2217 |
vs_top=sup; |
vs_top=sup; |
2218 |
V322= vs_base[0]; |
V306= vs_base[0]; |
2219 |
goto T564; |
goto T546; |
2220 |
T564:; |
T546:; |
2221 |
V326 = (VV[67]->s.s_dbind); |
V305= (V306)->v.v_self[fix((VV[75]->s.s_dbind))]; |
2222 |
V321= (V322)->v.v_self[fix(V326)]; |
goto T542; |
2223 |
goto T560; |
goto T544; |
2224 |
goto T562; |
T544:; |
2225 |
T562:; |
base[3]= (V300); |
|
base[3]= (V316); |
|
2226 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2227 |
(void) (*Lnk199)(Lclptr199); |
(void) (*Lnk216)(Lclptr216); |
2228 |
vs_top=sup; |
vs_top=sup; |
2229 |
V321= vs_base[0]; |
V305= vs_base[0]; |
2230 |
|
goto T542; |
2231 |
|
T542:; |
2232 |
|
base[2]=MMcons(VV[78],base[0]); |
2233 |
|
if(((V302))==Cnil){ |
2234 |
|
goto T560;} |
2235 |
|
{object V310 = Cnil; |
2236 |
|
VMR57(V310)} |
2237 |
goto T560; |
goto T560; |
2238 |
T560:; |
T560:; |
2239 |
base[2]=MMcons(VV[71],base[0]); |
if(!(((((VV[79]->s.s_dbind))==(VV[80])?Ct:Cnil))==Cnil)){ |
2240 |
if(((V318))==Cnil){ |
goto T564;} |
2241 |
goto T578;} |
goto T562; |
2242 |
{object V327 = Cnil; |
goto T564; |
2243 |
VMR57(V327)} |
T564:; |
2244 |
goto T578; |
if(((*(LnkLI222))((V300)))!=Cnil){ |
2245 |
T578:; |
goto T562;} |
2246 |
if(!(((((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil))==Cnil)){ |
{object V311 = Cnil; |
2247 |
goto T582;} |
VMR57(V311)} |
2248 |
goto T580; |
goto T562; |
2249 |
goto T582; |
T562:; |
|
T582:; |
|
|
if(((*(LnkLI205))((V316)))!=Cnil){ |
|
|
goto T580;} |
|
|
{object V328 = Cnil; |
|
|
VMR57(V328)} |
|
|
goto T580; |
|
|
T580:; |
|
2250 |
base[3]= |
base[3]= |
2251 |
make_cclosure_new(LC148,Cnil,base[2],Cdata); |
make_cclosure_new(LC148,Cnil,base[2],Cdata); |
2252 |
base[4]= (V321); |
base[4]= (V305); |
2253 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2254 |
(void) (*Lnk206)(); |
(void) (*Lnk223)(); |
2255 |
vs_top=sup; |
vs_top=sup; |
2256 |
{object V329 = vs_base[0]; |
{object V312 = vs_base[0]; |
2257 |
VMR57(V329)}}} |
VMR57(V312)}}} |
2258 |
va_end(ap); |
va_end(ap); |
2259 |
base[0]=base[0]; |
base[0]=base[0]; |
2260 |
return Cnil;} |
return Cnil;} |
2265 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2266 |
register object *sup=base+VM58; VC58 |
register object *sup=base+VM58; VC58 |
2267 |
vs_check; |
vs_check; |
2268 |
{object V330; |
{object V313; |
2269 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
2270 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
2271 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
2272 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
2273 |
if(vs_base>=vs_top){vs_top=sup;goto T586;} |
if(vs_base>=vs_top){vs_top=sup;goto T568;} |
2274 |
V330=(base[1]); |
V313=(base[1]); |
2275 |
vs_top=sup; |
vs_top=sup; |
2276 |
goto T587; |
goto T569; |
2277 |
goto T586; |
goto T568; |
2278 |
T586:; |
T568:; |
2279 |
V330= Cnil; |
V313= Cnil; |
2280 |
goto T587; |
goto T569; |
2281 |
T587:; |
T569:; |
2282 |
{object V331; |
{object V314; |
2283 |
object V332; |
object V315; |
2284 |
object V333; |
object V316; |
2285 |
object V334; |
object V317; |
2286 |
base[2]= (base[0]->c.c_car); |
base[2]= (base[0]->c.c_car); |
2287 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2288 |
(void) (*Lnk187)(); |
(void) (*Lnk204)(); |
2289 |
if(vs_base>=vs_top){vs_top=sup;goto T591;} |
if(vs_base>=vs_top){vs_top=sup;goto T573;} |
2290 |
V331= vs_base[0]; |
V314= vs_base[0]; |
2291 |
vs_base++; |
vs_base++; |
2292 |
if(vs_base>=vs_top){vs_top=sup;goto T592;} |
if(vs_base>=vs_top){vs_top=sup;goto T574;} |
2293 |
V332= vs_base[0]; |
V315= vs_base[0]; |
2294 |
vs_base++; |
vs_base++; |
2295 |
if(vs_base>=vs_top){vs_top=sup;goto T593;} |
if(vs_base>=vs_top){vs_top=sup;goto T575;} |
2296 |
V333= vs_base[0]; |
V316= vs_base[0]; |
2297 |
vs_base++; |
vs_base++; |
2298 |
if(vs_base>=vs_top){vs_top=sup;goto T594;} |
if(vs_base>=vs_top){vs_top=sup;goto T576;} |
2299 |
V334= vs_base[0]; |
V317= vs_base[0]; |
2300 |
vs_top=sup; |
vs_top=sup; |
2301 |
goto T595; |
goto T577; |
2302 |
goto T591; |
goto T573; |
2303 |
T591:; |
T573:; |
2304 |
V331= Cnil; |
V314= Cnil; |
2305 |
goto T592; |
goto T574; |
2306 |
T592:; |
T574:; |
2307 |
V332= Cnil; |
V315= Cnil; |
2308 |
goto T593; |
goto T575; |
2309 |
T593:; |
T575:; |
2310 |
V333= Cnil; |
V316= Cnil; |
2311 |
goto T594; |
goto T576; |
2312 |
T594:; |
T576:; |
2313 |
V334= Cnil; |
V317= Cnil; |
2314 |
goto T595; |
goto T577; |
2315 |
T595:; |
T577:; |
2316 |
{object V335; |
{object V318; |
2317 |
if((V330)!=Cnil){ |
if((V313)!=Cnil){ |
2318 |
V335= (V330); |
V318= (V313); |
2319 |
goto T596;} |
goto T578;} |
2320 |
V336 = (V334); |
V319= (VV[220]->s.s_gfdef); |
2321 |
V337= (VV[203]->s.s_gfdef); |
V318= (*(LnkLI192))((V317),Ct,V319,2); |
2322 |
V335= (*(LnkLI175))(V336,Ct,V337,2); |
goto T578; |
2323 |
goto T596; |
T578:; |
2324 |
T596:; |
base[3]= (*(LnkLI224))((V318)); |
|
base[3]= (*(LnkLI207))((V335)); |
|
2325 |
base[3]=MMcons(base[3],base[0]); |
base[3]=MMcons(base[3],base[0]); |
2326 |
base[6]= VV[69]; |
base[6]= VV[82]; |
2327 |
base[7]= (V333); |
base[7]= (V316); |
2328 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
2329 |
(void) (*Lnk172)(); |
(void) (*Lnk189)(); |
2330 |
vs_top=sup; |
vs_top=sup; |
2331 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
2332 |
base[6]= (V335); |
base[6]= (V318); |
2333 |
base[7]= |
base[7]= |
2334 |
make_cclosure_new(LC149,Cnil,base[3],Cdata); |
make_cclosure_new(LC149,Cnil,base[3],Cdata); |
2335 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
2339 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2340 |
vs_top=sup; |
vs_top=sup; |
2341 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
2342 |
base[5]= (V335); |
base[5]= (V318); |
2343 |
base[6]= (base[3]->c.c_car); |
base[6]= (base[3]->c.c_car); |
2344 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
2345 |
return;}} |
return;}} |
2351 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2352 |
register object *sup=base+VM59; VC59 |
register object *sup=base+VM59; VC59 |
2353 |
vs_check; |
vs_check; |
2354 |
{object V338; |
{object V320; |
2355 |
object V339; |
object V321; |
2356 |
object V340; |
object V322; |
2357 |
check_arg(3); |
check_arg(3); |
2358 |
V338=(base[0]); |
V320=(base[0]); |
2359 |
V339=(base[1]); |
V321=(base[1]); |
2360 |
V340=(base[2]); |
V322=(base[2]); |
2361 |
vs_top=sup; |
vs_top=sup; |
2362 |
goto TTL; |
goto TTL; |
2363 |
TTL:; |
TTL:; |
2364 |
{object V341; |
{object V323; |
2365 |
V342 = (V338); |
V324= (VV[220]->s.s_gfdef); |
2366 |
V343= (VV[203]->s.s_gfdef); |
V323= (*(LnkLI209))((V320),VV[81],V324,(V321),(V322)); |
2367 |
V344 = (V339); |
base[3]= (V320); |
2368 |
V345 = (V340); |
base[4]= (V323); |
|
V341= (*(LnkLI192))(V342,VV[74],V343,V344,V345); |
|
|
base[3]= (V338); |
|
|
base[4]= (V341); |
|
2369 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2370 |
(void) (*Lnk202)(); |
(void) (*Lnk219)(); |
2371 |
return;} |
return;} |
2372 |
} |
} |
2373 |
} |
} |
2374 |
/* local entry for function USE-DISPATCH-DFUN-P */ |
/* local entry for function USE-DISPATCH-DFUN-P */ |
2375 |
|
|
2376 |
static object LI61(object V346,object first,...) |
static object LI61(object V325,object first,...) |
2377 |
{ |
{ |
2378 |
va_list ap; |
va_list ap; |
2379 |
int narg = VFUN_NARGS; VMB60 VMS60 VMV60 |
int narg = VFUN_NARGS; VMB60 VMS60 VMV60 |
2380 |
{object V347; |
{object V326; |
2381 |
object V348; |
object V327; |
2382 |
va_start(ap,first); |
va_start(ap,first); |
2383 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
2384 |
V347= V346; |
V326= V325; |
2385 |
narg = narg - 1; |
narg = narg - 1; |
2386 |
if (narg <= 0) goto T611; |
if (narg <= 0) goto T593; |
2387 |
else { |
else { |
2388 |
V348= first;} |
V327= first;} |
2389 |
--narg; goto T612; |
--narg; goto T594; |
2390 |
goto T611; |
goto T593; |
2391 |
T611:; |
T593:; |
2392 |
V348= (*(LnkLI183))((V347)); |
V327= (*(LnkLI200))((V326)); |
2393 |
goto T612; |
goto T594; |
2394 |
T612:; |
T594:; |
2395 |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
if(!(((VV[79]->s.s_dbind))==(VV[80]))){ |
2396 |
goto T615;} |
goto T597;} |
2397 |
if(((V348))!=Cnil){ |
if(((V327))!=Cnil){ |
2398 |
goto T618;} |
goto T600;} |
2399 |
{object V349; |
{object V328; |
2400 |
V349= (*(LnkLI208))((V347)); |
V328= (*(LnkLI225))((V326)); |
2401 |
base[0]= (V347); |
base[0]= (V326); |
2402 |
base[1]= (V349); |
base[1]= (V328); |
2403 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2404 |
(void) (*Lnk209)(); |
(void) (*Lnk226)(); |
2405 |
vs_top=sup; |
vs_top=sup; |
2406 |
V350= vs_base[0]; |
V329= vs_base[0]; |
2407 |
V351 = (V349); |
{object V330 = (number_compare((V328),V329)>0?Ct:Cnil); |
2408 |
{object V352 = (number_compare(V350,V351)<0?Ct:Cnil); |
VMR60(V330)}} |
2409 |
VMR60(V352)}} |
goto T600; |
2410 |
goto T618; |
T600:; |
2411 |
T618:; |
{object V331 = Cnil; |
2412 |
{object V353 = Cnil; |
VMR60(V331)} |
2413 |
VMR60(V353)} |
goto T597; |
2414 |
goto T615; |
T597:; |
2415 |
T615:; |
{object V332 = Cnil; |
2416 |
{object V354 = Cnil; |
VMR60(V332)} |
|
VMR60(V354)} |
|
2417 |
va_end(ap); |
va_end(ap); |
2418 |
base[0]=base[0]; |
base[0]=base[0]; |
2419 |
return Cnil;} |
return Cnil;} |
2420 |
} |
} |
2421 |
/* local entry for function SHOW-DFUN-COSTS */ |
/* local entry for function SHOW-DFUN-COSTS */ |
2422 |
|
|
2423 |
static object LI62(V356) |
static object LI62(V334) |
2424 |
|
|
2425 |
register object V356; |
register object V334; |
2426 |
{ VMB61 VMS61 VMV61 |
{ VMB61 VMS61 VMV61 |
2427 |
goto TTL; |
goto TTL; |
2428 |
TTL:; |
TTL:; |
2429 |
if(type_of((V356))==t_symbol){ |
if(type_of((V334))==t_symbol){ |
2430 |
goto T625;} |
goto T607;} |
2431 |
if(!(type_of((V356))==t_cons)){ |
if(!(type_of((V334))==t_cons)){ |
2432 |
goto T624;} |
goto T606;} |
2433 |
goto T625; |
goto T607; |
2434 |
T625:; |
T607:; |
2435 |
V356= (*(LnkLI210))((V356)); |
V334= (*(LnkLI227))((V334)); |
2436 |
goto T624; |
goto T606; |
2437 |
T624:; |
T606:; |
2438 |
base[0]= Ct; |
base[0]= Ct; |
2439 |
base[1]= VV[75]; |
base[1]= VV[83]; |
2440 |
base[3]= (V356); |
base[3]= (V334); |
2441 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2442 |
(void) (*Lnk162)(Lclptr162); |
(void) (*Lnk178)(Lclptr178); |
2443 |
vs_top=sup; |
vs_top=sup; |
2444 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
2445 |
base[3]= (*(LnkLI208))((V356)); |
base[3]= (*(LnkLI225))((V334)); |
2446 |
base[5]= (V356); |
base[5]= (V334); |
2447 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2448 |
(void) (*Lnk209)(); |
(void) (*Lnk226)(); |
2449 |
vs_top=sup; |
vs_top=sup; |
2450 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
2451 |
vs_top=(vs_base=base+0)+5; |
vs_top=(vs_base=base+0)+5; |
2452 |
Lformat(); |
Lformat(); |
2453 |
vs_top=sup; |
vs_top=sup; |
2454 |
{object V357 = vs_base[0]; |
{object V335 = vs_base[0]; |
2455 |
VMR61(V357)} |
VMR61(V335)} |
2456 |
base[0]=base[0]; |
base[0]=base[0]; |
2457 |
return Cnil; |
return Cnil; |
2458 |
} |
} |
2462 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
2463 |
register object *VOL sup=base+VM62; VC62 |
register object *VOL sup=base+VM62; VC62 |
2464 |
vs_check; |
vs_check; |
2465 |
{VOL object V358; |
{VOL object V336; |
2466 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
2467 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
2468 |
V358=(base[0]); |
V336=(base[0]); |
2469 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
2470 |
if(vs_base>=vs_top){vs_top=sup;goto T637;} |
if(vs_base>=vs_top){vs_top=sup;goto T619;} |
2471 |
base[1]=MMcons(base[1],Cnil); |
base[1]=MMcons(base[1],Cnil); |
2472 |
vs_top=sup; |
vs_top=sup; |
2473 |
goto T638; |
goto T620; |
2474 |
goto T637; |
goto T619; |
2475 |
T637:; |
T619:; |
2476 |
base[1]= Cnil; |
base[1]= Cnil; |
2477 |
base[1]=MMcons(base[1],Cnil); |
base[1]=MMcons(base[1],Cnil); |
2478 |
goto T638; |
goto T620; |
2479 |
T638:; |
T620:; |
2480 |
base[2]=alloc_frame_id(); |
base[2]=alloc_frame_id(); |
2481 |
base[2]=MMcons(base[2],base[1]); |
base[2]=MMcons(base[2],base[1]); |
2482 |
frs_push(FRS_CATCH,(base[2]->c.c_car)); |
frs_push(FRS_CATCH,(base[2]->c.c_car)); |
2484 |
{nlj_active=FALSE;frs_pop(); |
{nlj_active=FALSE;frs_pop(); |
2485 |
return;} |
return;} |
2486 |
else{ |
else{ |
2487 |
base[3]= (V358); |
base[3]= (V336); |
2488 |
base[5]= (V358); |
base[5]= (V336); |
2489 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2490 |
(void) (*Lnk199)(Lclptr199); |
(void) (*Lnk216)(Lclptr216); |
2491 |
vs_top=sup; |
vs_top=sup; |
2492 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
2493 |
base[5]= Cnil; |
base[5]= Cnil; |
2495 |
make_cclosure_new(LC150,Cnil,base[2],Cdata); |
make_cclosure_new(LC150,Cnil,base[2],Cdata); |
2496 |
base[7]= |
base[7]= |
2497 |
make_cclosure_new(LC151,Cnil,base[2],Cdata); |
make_cclosure_new(LC151,Cnil,base[2],Cdata); |
2498 |
base[8]= (VV[211]->s.s_gfdef); |
base[8]= (VV[228]->s.s_gfdef); |
2499 |
vs_top=(vs_base=base+3)+6; |
vs_top=(vs_base=base+3)+6; |
2500 |
(void) (*Lnk212)(); |
(void) (*Lnk229)(); |
2501 |
frs_pop(); |
frs_pop(); |
2502 |
return; |
return; |
2503 |
} |
} |
2505 |
} |
} |
2506 |
/* local entry for function CACHING-DFUN-COST */ |
/* local entry for function CACHING-DFUN-COST */ |
2507 |
|
|
2508 |
static object LI64(V360) |
static object LI64(V338) |
2509 |
|
|
2510 |
object V360; |
object V338; |
2511 |
{ VMB63 VMS63 VMV63 |
{ VMB63 VMS63 VMV63 |
2512 |
goto TTL; |
goto TTL; |
2513 |
TTL:; |
TTL:; |
2514 |
{object V361; |
{object V339; |
2515 |
object V362; |
object V340; |
2516 |
base[2]= (V360); |
base[2]= (V338); |
2517 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2518 |
(void) (*Lnk161)(Lclptr161); |
(void) (*Lnk177)(Lclptr177); |
2519 |
vs_top=sup; |
vs_top=sup; |
2520 |
V361= vs_base[0]; |
V339= vs_base[0]; |
2521 |
V362= CMPmake_fixnum((long)length(STREF(object,(V361),8))); |
V340= CMPmake_fixnum((long)length(STREF(object,(V339),8))); |
2522 |
base[2]= (VV[81]->s.s_dbind); |
base[2]= (VV[89]->s.s_dbind); |
2523 |
base[3]= number_times((VV[82]->s.s_dbind),(V362)); |
base[3]= number_times((VV[90]->s.s_dbind),(V340)); |
2524 |
base[5]= (V360); |
base[5]= (V338); |
2525 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2526 |
(void) (*Lnk199)(Lclptr199); |
(void) (*Lnk216)(Lclptr216); |
2527 |
vs_top=sup; |
vs_top=sup; |
2528 |
V363= vs_base[0]; |
V341= vs_base[0]; |
2529 |
if(((*(LnkLI213))(V363))==Cnil){ |
if(((*(LnkLI230))(V341))==Cnil){ |
2530 |
goto T654;} |
goto T636;} |
2531 |
base[4]= (VV[83]->s.s_dbind); |
base[4]= (VV[91]->s.s_dbind); |
2532 |
goto T652; |
goto T634; |
2533 |
goto T654; |
goto T636; |
2534 |
T654:; |
T636:; |
2535 |
base[4]= small_fixnum(0); |
base[4]= small_fixnum(0); |
2536 |
goto T652; |
goto T634; |
2537 |
T652:; |
T634:; |
2538 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
2539 |
Lplus(); |
Lplus(); |
2540 |
vs_top=sup; |
vs_top=sup; |
2541 |
{object V364 = vs_base[0]; |
{object V342 = vs_base[0]; |
2542 |
VMR63(V364)}} |
VMR63(V342)}} |
2543 |
base[0]=base[0]; |
base[0]=base[0]; |
2544 |
return Cnil; |
return Cnil; |
2545 |
} |
} |
2549 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2550 |
register object *sup=base+VM64; VC64 |
register object *sup=base+VM64; VC64 |
2551 |
vs_check; |
vs_check; |
2552 |
{object V365; |
{object V343; |
2553 |
check_arg(1); |
check_arg(1); |
2554 |
V365=(base[0]); |
V343=(base[0]); |
2555 |
vs_top=sup; |
vs_top=sup; |
2556 |
goto TTL; |
goto TTL; |
2557 |
TTL:; |
TTL:; |
2558 |
base[2]= (V365); |
base[2]= (V343); |
2559 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2560 |
(void) (*Lnk214)(); |
(void) (*Lnk231)(); |
2561 |
vs_top=sup; |
vs_top=sup; |
2562 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
2563 |
base[2]= Cnil; |
base[2]= Cnil; |
2564 |
base[3]= (*(LnkLI215))(); |
base[3]= (*(LnkLI232))(); |
2565 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
2566 |
return; |
return; |
2567 |
} |
} |
2572 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2573 |
register object *sup=base+VM65; VC65 |
register object *sup=base+VM65; VC65 |
2574 |
vs_check; |
vs_check; |
2575 |
{object V366; |
{object V344; |
2576 |
check_arg(1); |
check_arg(1); |
2577 |
V366=(base[0]); |
V344=(base[0]); |
2578 |
vs_top=sup; |
vs_top=sup; |
2579 |
goto TTL; |
goto TTL; |
2580 |
TTL:; |
TTL:; |
2581 |
{object V367; |
{object V345; |
2582 |
base[1]= (V366); |
base[1]= (V344); |
2583 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2584 |
(void) (*Lnk199)(Lclptr199); |
(void) (*Lnk216)(Lclptr216); |
2585 |
vs_top=sup; |
vs_top=sup; |
2586 |
V367= vs_base[0]; |
V345= vs_base[0]; |
2587 |
base[1]= (VFUN_NARGS=8,(*(LnkLI216))((V366),(V367),Cnil,Cnil,Cnil,Cnil,Cnil,Ct)); |
base[1]= (VFUN_NARGS=8,(*(LnkLI233))((V344),(V345),Cnil,Cnil,Cnil,Cnil,Cnil,Ct)); |
2588 |
base[2]= Cnil; |
base[2]= Cnil; |
2589 |
base[3]= Cnil; |
base[3]= Cnil; |
2590 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2601 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2602 |
register object *sup=base+VM66; VC66 |
register object *sup=base+VM66; VC66 |
2603 |
vs_check; |
vs_check; |
2604 |
{object V368; |
{object V346; |
2605 |
check_arg(1); |
check_arg(1); |
2606 |
V368=(base[0]); |
V346=(base[0]); |
2607 |
vs_top=sup; |
vs_top=sup; |
2608 |
goto TTL; |
goto TTL; |
2609 |
TTL:; |
TTL:; |
2610 |
base[1]= (V368); |
base[1]= (V346); |
2611 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2612 |
(void) (*Lnk186)(); |
(void) (*Lnk203)(); |
2613 |
return; |
return; |
2614 |
} |
} |
2615 |
} |
} |
2620 |
{ VMB67 VMS67 VMV67 |
{ VMB67 VMS67 VMV67 |
2621 |
goto TTL; |
goto TTL; |
2622 |
TTL:; |
TTL:; |
2623 |
{register object V369; |
{register object V347; |
2624 |
register object V370; |
register object V348; |
2625 |
V369= (*(LnkLI160))(VV[84]); |
V347= (*(LnkLI176))(VV[92]); |
2626 |
V370= CMPcar((V369)); |
V348= CMPcar((V347)); |
2627 |
goto T671; |
goto T653; |
2628 |
T671:; |
T653:; |
2629 |
if(!(((V369))==Cnil)){ |
if(!(((V347))==Cnil)){ |
2630 |
goto T672;} |
goto T654;} |
2631 |
{object V371 = Cnil; |
{object V349 = Cnil; |
2632 |
VMR67(V371)} |
VMR67(V349)} |
2633 |
goto T672; |
goto T654; |
2634 |
T672:; |
T654:; |
2635 |
{register object V372; |
{register object V350; |
2636 |
register object V373; |
register object V351; |
2637 |
register object V374; |
register object V352; |
2638 |
base[2]= (V370); |
base[2]= (V348); |
2639 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2640 |
(void) (*Lnk186)(); |
(void) (*Lnk203)(); |
2641 |
if(vs_base>=vs_top){vs_top=sup;goto T679;} |
if(vs_base>=vs_top){vs_top=sup;goto T661;} |
2642 |
V372= vs_base[0]; |
V350= vs_base[0]; |
2643 |
vs_base++; |
vs_base++; |
2644 |
if(vs_base>=vs_top){vs_top=sup;goto T680;} |
if(vs_base>=vs_top){vs_top=sup;goto T662;} |
2645 |
V373= vs_base[0]; |
V351= vs_base[0]; |
2646 |
vs_base++; |
vs_base++; |
2647 |
if(vs_base>=vs_top){vs_top=sup;goto T681;} |
if(vs_base>=vs_top){vs_top=sup;goto T663;} |
2648 |
V374= vs_base[0]; |
V352= vs_base[0]; |
2649 |
vs_top=sup; |
vs_top=sup; |
2650 |
goto T682; |
goto T664; |
2651 |
goto T679; |
goto T661; |
2652 |
T679:; |
T661:; |
2653 |
V372= Cnil; |
V350= Cnil; |
2654 |
goto T680; |
goto T662; |
2655 |
T680:; |
T662:; |
2656 |
V373= Cnil; |
V351= Cnil; |
2657 |
goto T681; |
goto T663; |
2658 |
T681:; |
T663:; |
2659 |
V374= Cnil; |
V352= Cnil; |
2660 |
goto T682; |
goto T664; |
2661 |
T682:; |
T664:; |
2662 |
(void)((VFUN_NARGS=4,(*(LnkLI49))((V370),(V372),(V373),(V374))));} |
(void)((VFUN_NARGS=4,(*(LnkLI47))((V348),(V350),(V351),(V352))));} |
2663 |
V369= CMPcdr((V369)); |
V347= CMPcdr((V347)); |
2664 |
V370= CMPcar((V369)); |
V348= CMPcar((V347)); |
2665 |
goto T671;} |
goto T653;} |
2666 |
base[0]=base[0]; |
base[0]=base[0]; |
2667 |
return Cnil; |
return Cnil; |
2668 |
} |
} |
2669 |
/* local entry for function FILL-DFUN-CACHE */ |
/* local entry for function FILL-DFUN-CACHE */ |
2670 |
|
|
2671 |
static object LI69(object V378,object V377,object V376,object V375,object first,...) |
static object LI69(object V356,object V355,object V354,object V353,object first,...) |
2672 |
{ |
{ |
2673 |
va_list ap; |
va_list ap; |
2674 |
int narg = VFUN_NARGS; VMB68 VMS68 VMV68 |
int narg = VFUN_NARGS; VMB68 VMS68 VMV68 |
2675 |
{object V379; |
{object V357; |
2676 |
object V380; |
object V358; |
2677 |
object V381; |
object V359; |
2678 |
object V382; |
object V360; |
2679 |
object V383; |
object V361; |
2680 |
va_start(ap,first); |
va_start(ap,first); |
2681 |
if(narg <4) too_few_arguments(); |
if(narg <4) too_few_arguments(); |
2682 |
V379= V378; |
V357= V356; |
2683 |
V380= V377; |
V358= V355; |
2684 |
V381= V376; |
V359= V354; |
2685 |
V382= V375; |
V360= V353; |
2686 |
narg = narg - 4; |
narg = narg - 4; |
2687 |
if (narg <= 0) goto T688; |
if (narg <= 0) goto T670; |
2688 |
else { |
else { |
2689 |
V383= first;} |
V361= first;} |
2690 |
--narg; goto T689; |
--narg; goto T671; |
2691 |
goto T688; |
goto T670; |
2692 |
T688:; |
T670:; |
2693 |
V383= Cnil; |
V361= Cnil; |
2694 |
goto T689; |
goto T671; |
2695 |
T689:; |
T671:; |
2696 |
if((V383)!=Cnil){ |
if((V361)!=Cnil){ |
2697 |
base[0]= (V383); |
base[0]= (V361); |
2698 |
goto T691;} |
goto T673;} |
2699 |
base[1]= (V379); |
base[1]= (V357); |
2700 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2701 |
Lhash_table_count(); |
Lhash_table_count(); |
2702 |
vs_top=sup; |
vs_top=sup; |
2703 |
V384= vs_base[0]; |
V362= vs_base[0]; |
2704 |
{long V385= fix(number_plus(V384,small_fixnum(3))); |
{long V363= fix(number_plus(V362,small_fixnum(3))); |
2705 |
base[0]= (*(LnkLI175))((V381),(V380),(V382),/* INLINE-ARGS */V385);} |
base[0]= (*(LnkLI192))((V359),(V358),(V360),/* INLINE-ARGS */V363);} |
2706 |
goto T691; |
goto T673; |
2707 |
T691:; |
T673:; |
2708 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
2709 |
base[1]= |
base[1]= |
2710 |
make_cclosure_new(LC152,Cnil,base[0],Cdata); |
make_cclosure_new(LC152,Cnil,base[0],Cdata); |
2711 |
base[2]= (V379); |
base[2]= (V357); |
2712 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2713 |
Lmaphash(); |
Lmaphash(); |
2714 |
vs_top=sup; |
vs_top=sup; |
2715 |
{object V386 = (base[0]->c.c_car); |
{object V364 = (base[0]->c.c_car); |
2716 |
VMR68(V386)} |
VMR68(V364)} |
2717 |
va_end(ap); |
va_end(ap); |
2718 |
base[0]=base[0]; |
base[0]=base[0]; |
2719 |
return Cnil;} |
return Cnil;} |
2720 |
} |
} |
2721 |
/* local entry for function MAKE-FINAL-ORDINARY-DFUN-INTERNAL */ |
/* local entry for function MAKE-FINAL-ORDINARY-DFUN-INTERNAL */ |
2722 |
|
|
2723 |
static object LI70(V392,V393,V394,V395,V396) |
static object LI70(V370,V371,V372,V373,V374) |
2724 |
|
|
2725 |
register object V392;register object V393;object V394;object V395;object V396; |
register object V370;register object V371;object V372;object V373;object V374; |
2726 |
{ VMB69 VMS69 VMV69 |
{ VMB69 VMS69 VMV69 |
2727 |
goto TTL; |
goto TTL; |
2728 |
TTL:; |
TTL:; |
2729 |
{object V397; |
{object V375; |
2730 |
object V398; |
object V376; |
2731 |
object V399; |
object V377; |
2732 |
object V400; |
object V378; |
2733 |
base[4]= (V392); |
base[4]= (V370); |
2734 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2735 |
(void) (*Lnk161)(Lclptr161); |
(void) (*Lnk177)(Lclptr177); |
2736 |
vs_top=sup; |
vs_top=sup; |
2737 |
V397= vs_base[0]; |
V375= vs_base[0]; |
2738 |
V398= (*(LnkLI217))((V397)); |
V376= (*(LnkLI234))((V375)); |
2739 |
if((V396)==Cnil){ |
if((V374)==Cnil){ |
2740 |
V399= Cnil; |
V377= Cnil; |
2741 |
goto T700;} |
goto T682;} |
2742 |
base[4]= (*(LnkLI218))((V392)); |
base[4]= (*(LnkLI235))((V370)); |
2743 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2744 |
Ltype_of(); |
Ltype_of(); |
2745 |
vs_top=sup; |
vs_top=sup; |
2746 |
V401= vs_base[0]; |
V379= vs_base[0]; |
2747 |
if(!(((V393))==(Ct))){ |
if(!(((V371))==(Ct))){ |
2748 |
goto T707;} |
goto T689;} |
2749 |
V402= VV[13]; |
V380= VV[11]; |
2750 |
goto T705; |
goto T687; |
2751 |
goto T707; |
goto T689; |
2752 |
T707:; |
T689:; |
2753 |
if(!(((V393))==(VV[74]))){ |
if(!(((V371))==(VV[81]))){ |
2754 |
goto T710;} |
goto T692;} |
2755 |
V402= VV[14]; |
V380= VV[12]; |
2756 |
goto T705; |
goto T687; |
2757 |
goto T710; |
goto T692; |
2758 |
T710:; |
T692:; |
2759 |
if(((V393))!=Cnil){ |
if(((V371))!=Cnil){ |
2760 |
goto T713;} |
goto T695;} |
2761 |
V402= VV[12]; |
V380= VV[10]; |
2762 |
goto T705; |
goto T687; |
2763 |
goto T713; |
goto T695; |
2764 |
T713:; |
T695:; |
2765 |
V402= Cnil; |
V380= Cnil; |
2766 |
goto T705; |
goto T687; |
2767 |
T705:; |
T687:; |
2768 |
if(equal(V401,V402)){ |
if(equal(V379,V380)){ |
2769 |
goto T701;} |
goto T683;} |
2770 |
V399= Cnil; |
V377= Cnil; |
2771 |
goto T700; |
goto T682; |
2772 |
goto T701; |
goto T683; |
2773 |
T701:; |
T683:; |
2774 |
V399= (V396); |
V377= (V374); |
2775 |
goto T700; |
goto T682; |
2776 |
T700:; |
T682:; |
2777 |
if(((V399))==Cnil){ |
if(((V377))==Cnil){ |
2778 |
goto T717;} |
goto T699;} |
2779 |
V403= (*(LnkLI220))((V392)); |
V381= (*(LnkLI237))((V370)); |
2780 |
V400= (*(LnkLI219))(/* INLINE-ARGS */V403); |
V378= (*(LnkLI236))(/* INLINE-ARGS */V381); |
2781 |
goto T715; |
goto T697; |
2782 |
goto T717; |
goto T699; |
2783 |
T717:; |
T699:; |
2784 |
V400= (*(LnkLI175))((V398),(((((V393))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),(V394),4); |
V378= (*(LnkLI192))((V376),(((((V371))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),(V372),4); |
2785 |
goto T715; |
goto T697; |
2786 |
T715:; |
T697:; |
2787 |
{object V404 = (*(LnkLI221))((V392),(V393),(V400),(V395),(V399)); |
{object V382 = (*(LnkLI238))((V370),(V371),(V378),(V373),(V377)); |
2788 |
VMR69(V404)}} |
VMR69(V382)}} |
2789 |
base[0]=base[0]; |
base[0]=base[0]; |
2790 |
return Cnil; |
return Cnil; |
2791 |
} |
} |
2797 |
vs_check; |
vs_check; |
2798 |
check_arg(2); |
check_arg(2); |
2799 |
vs_top=sup; |
vs_top=sup; |
2800 |
{object V405=base[0]->c.c_cdr; |
{object V383=base[0]->c.c_cdr; |
2801 |
if(endp(V405))invalid_macro_call(); |
if(endp(V383))invalid_macro_call(); |
2802 |
{object V406= (V405->c.c_car); |
{object V384= (V383->c.c_car); |
2803 |
if(endp(V406))invalid_macro_call(); |
if(endp(V384))invalid_macro_call(); |
2804 |
base[2]= (V406->c.c_car); |
base[2]= (V384->c.c_car); |
2805 |
V406=V406->c.c_cdr; |
V384=V384->c.c_cdr; |
2806 |
if(endp(V406))invalid_macro_call(); |
if(endp(V384))invalid_macro_call(); |
2807 |
base[3]= (V406->c.c_car); |
base[3]= (V384->c.c_car); |
2808 |
V406=V406->c.c_cdr; |
V384=V384->c.c_cdr; |
2809 |
if(endp(V406))invalid_macro_call(); |
if(endp(V384))invalid_macro_call(); |
2810 |
base[4]= (V406->c.c_car); |
base[4]= (V384->c.c_car); |
2811 |
V406=V406->c.c_cdr; |
V384=V384->c.c_cdr; |
2812 |
if(endp(V406))invalid_macro_call(); |
if(endp(V384))invalid_macro_call(); |
2813 |
base[5]= (V406->c.c_car); |
base[5]= (V384->c.c_car); |
2814 |
V406=V406->c.c_cdr; |
V384=V384->c.c_cdr; |
2815 |
if(endp(V406))invalid_macro_call(); |
if(endp(V384))invalid_macro_call(); |
2816 |
base[6]= (V406->c.c_car); |
base[6]= (V384->c.c_car); |
2817 |
V406=V406->c.c_cdr; |
V384=V384->c.c_cdr; |
2818 |
if(endp(V406)){ |
if(endp(V384)){ |
2819 |
base[7]= Cnil; |
base[7]= Cnil; |
2820 |
} else { |
} else { |
2821 |
base[7]= (V406->c.c_car); |
base[7]= (V384->c.c_car); |
2822 |
V406=V406->c.c_cdr;} |
V384=V384->c.c_cdr;} |
2823 |
if(endp(V406)){ |
if(endp(V384)){ |
2824 |
base[8]= Cnil; |
base[8]= Cnil; |
2825 |
} else { |
} else { |
2826 |
base[8]= (V406->c.c_car); |
base[8]= (V384->c.c_car); |
2827 |
V406=V406->c.c_cdr;} |
V384=V384->c.c_cdr;} |
2828 |
if(endp(V406)){ |
if(endp(V384)){ |
2829 |
base[9]= Cnil; |
base[9]= Cnil; |
2830 |
} else { |
} else { |
2831 |
base[9]= (V406->c.c_car); |
base[9]= (V384->c.c_car); |
2832 |
V406=V406->c.c_cdr;} |
V384=V384->c.c_cdr;} |
2833 |
if(endp(V406)){ |
if(endp(V384)){ |
2834 |
base[10]= Cnil; |
base[10]= Cnil; |
2835 |
} else { |
} else { |
2836 |
base[10]= (V406->c.c_car); |
base[10]= (V384->c.c_car); |
2837 |
V406=V406->c.c_cdr;} |
V384=V384->c.c_cdr;} |
2838 |
if(!endp(V406))invalid_macro_call();} |
if(!endp(V384))invalid_macro_call();} |
2839 |
V405=V405->c.c_cdr; |
V383=V383->c.c_cdr; |
2840 |
base[11]= V405;} |
base[11]= V383;} |
2841 |
if((base[10])!=Cnil){ |
if((base[10])!=Cnil){ |
2842 |
goto T723;} |
goto T705;} |
2843 |
vs_base=vs_top; |
vs_base=vs_top; |
2844 |
Lgensym(); |
Lgensym(); |
2845 |
vs_top=sup; |
vs_top=sup; |
2846 |
base[10]= vs_base[0]; |
base[10]= vs_base[0]; |
2847 |
goto T723; |
goto T705; |
2848 |
T723:; |
T705:; |
|
V407 = base[6]; |
|
|
V408 = base[10]; |
|
|
V409 = base[4]; |
|
|
V410 = base[5]; |
|
2849 |
if((base[7])==Cnil){ |
if((base[7])==Cnil){ |
2850 |
goto T729;} |
goto T711;} |
2851 |
V411= list(2,base[7],base[8]); |
V385= list(2,base[7],base[8]); |
2852 |
goto T727; |
goto T709; |
2853 |
goto T729; |
goto T711; |
2854 |
T729:; |
T711:; |
2855 |
V411= Cnil; |
V385= Cnil; |
2856 |
goto T727; |
goto T709; |
2857 |
T727:; |
T709:; |
2858 |
V412= listA(5,V407,V408,V409,V410,V411); |
V386= listA(5,base[6],base[10],base[4],base[5],V385); |
2859 |
if((base[9])==Cnil){ |
if((base[9])==Cnil){ |
2860 |
goto T733;} |
goto T715;} |
2861 |
V413= VV[13]; |
V387= VV[11]; |
2862 |
goto T731; |
goto T713; |
2863 |
goto T733; |
goto T715; |
2864 |
T733:; |
T715:; |
2865 |
if((base[7])==Cnil){ |
if((base[7])==Cnil){ |
2866 |
goto T736;} |
goto T718;} |
2867 |
V413= VV[86]; |
V387= VV[94]; |
2868 |
goto T731; |
goto T713; |
2869 |
goto T736; |
goto T718; |
2870 |
T736:; |
T718:; |
2871 |
V413= VV[12]; |
V387= VV[10]; |
2872 |
goto T731; |
goto T713; |
2873 |
T731:; |
T713:; |
2874 |
V414= list(4,VV[85],base[2],base[3],list(2,VV[25],V413)); |
V388= list(4,VV[93],base[2],base[3],list(2,VV[23],V387)); |
2875 |
V415= list(3,VV[88],base[10],list(2,VV[89],list(3,VV[90],base[2],VV[91]))); |
V389= list(3,VV[96],base[10],list(2,VV[97],list(3,VV[98],base[2],VV[99]))); |
2876 |
V416= list(2,VV[91],list(3,VV[93],base[2],VV[91])); |
V390= list(2,VV[99],list(3,VV[101],base[2],VV[99])); |
2877 |
V417= list(3,VV[87],/* INLINE-ARGS */V415,listA(3,VV[92],make_cons(/* INLINE-ARGS */V416,Cnil),base[11])); |
V391= list(3,VV[95],/* INLINE-ARGS */V389,listA(3,VV[100],make_cons(/* INLINE-ARGS */V390,Cnil),base[11])); |
2878 |
base[12]= list(5,VV[46],/* INLINE-ARGS */V412,/* INLINE-ARGS */V414,/* INLINE-ARGS */V417,list(3,VV[94],base[6],base[3])); |
base[12]= list(5,VV[44],/* INLINE-ARGS */V386,/* INLINE-ARGS */V388,/* INLINE-ARGS */V391,list(3,VV[102],base[6],base[3])); |
2879 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
2880 |
return; |
return; |
2881 |
} |
} |
2882 |
/* local entry for function MAKE-INITIAL-DFUN */ |
/* local entry for function MAKE-INITIAL-DFUN */ |
2883 |
|
|
2884 |
static object LI73(V419) |
static object LI73(V393) |
2885 |
|
|
2886 |
object V419; |
object V393; |
2887 |
{ VMB71 VMS71 VMV71 |
{ VMB71 VMS71 VMV71 |
2888 |
goto TTL; |
goto TTL; |
2889 |
TTL:; |
TTL:; |
2890 |
base[0]=MMcons((V419),Cnil); |
base[0]=MMcons((V393),Cnil); |
2891 |
{object V420; |
{object V394; |
2892 |
V420= |
V394= |
2893 |
make_cclosure_new(LC153,Cnil,base[0],Cdata); |
make_cclosure_new(LC153,Cnil,base[0],Cdata); |
2894 |
{object V421; |
{object V395; |
2895 |
object V422; |
object V396; |
2896 |
object V423; |
object V397; |
2897 |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
if(!(((VV[79]->s.s_dbind))==(VV[80]))){ |
2898 |
goto T741;} |
goto T723;} |
2899 |
if(((*(LnkLI205))((base[0]->c.c_car)))==Cnil){ |
if(((*(LnkLI222))((base[0]->c.c_car)))==Cnil){ |
2900 |
goto T741;} |
goto T723;} |
2901 |
{object V424; |
{object V398; |
2902 |
object V425; |
object V399; |
2903 |
V424= (*(LnkLI183))((base[0]->c.c_car)); |
V398= (*(LnkLI200))((base[0]->c.c_car)); |
2904 |
V425= (VFUN_NARGS=3,(*(LnkLI222))((base[0]->c.c_car),(V424),(((VV[95]->s.s_dbind))==Cnil?Ct:Cnil))); |
V399= (VFUN_NARGS=3,(*(LnkLI239))((base[0]->c.c_car),(V398),(((VV[103]->s.s_dbind))==Cnil?Ct:Cnil))); |
2905 |
if(((VV[95]->s.s_dbind))==Cnil){ |
if(((VV[103]->s.s_dbind))==Cnil){ |
2906 |
goto T748;} |
goto T730;} |
2907 |
if(((VFUN_NARGS=2,(*(LnkLI185))((base[0]->c.c_car),(V424))))==Cnil){ |
if(((VFUN_NARGS=2,(*(LnkLI202))((base[0]->c.c_car),(V398))))==Cnil){ |
2908 |
goto T751;} |
goto T733;} |
2909 |
base[3]= (V420); |
base[3]= (V394); |
2910 |
base[4]= Cnil; |
base[4]= Cnil; |
2911 |
base[5]= (*(LnkLI223))(); |
base[5]= (*(LnkLI240))(); |
2912 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
2913 |
goto T739; |
goto T721; |
2914 |
goto T751; |
goto T733; |
2915 |
T751:; |
T733:; |
2916 |
|
if(((V398))==Cnil){ |
2917 |
|
goto T738;} |
2918 |
base[3]= (base[0]->c.c_car); |
base[3]= (base[0]->c.c_car); |
2919 |
base[4]= (V424); |
vs_top=(vs_base=base+3)+1; |
2920 |
vs_top=(vs_base=base+3)+2; |
(void) (*Lnk241)(); |
|
(void) (*Lnk224)(); |
|
2921 |
vs_top=sup; |
vs_top=sup; |
2922 |
base[3]= (V420); |
goto T738; |
2923 |
|
T738:; |
2924 |
|
base[3]= (V394); |
2925 |
base[4]= Cnil; |
base[4]= Cnil; |
2926 |
base[5]= (*(LnkLI225))(); |
base[5]= (*(LnkLI242))(); |
2927 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
2928 |
goto T739; |
goto T721; |
2929 |
goto T748; |
goto T730; |
2930 |
T748:; |
T730:; |
2931 |
base[3]= (base[0]->c.c_car); |
base[3]= (base[0]->c.c_car); |
2932 |
base[4]= (V425); |
base[4]= (V399); |
2933 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2934 |
(void) (*Lnk226)(); |
(void) (*Lnk243)(); |
2935 |
goto T739;} |
goto T721;} |
2936 |
goto T741; |
goto T723; |
2937 |
T741:; |
T723:; |
2938 |
{object V426; |
{object V400; |
2939 |
object V427; |
object V401; |
2940 |
if(((*(LnkLI196))((base[0]->c.c_car)))==Cnil){ |
if(((*(LnkLI213))((base[0]->c.c_car)))==Cnil){ |
2941 |
goto T766;} |
goto T749;} |
2942 |
{object V429; |
{object V403; |
2943 |
V429= (base[0]->c.c_car); |
V403= (base[0]->c.c_car); |
2944 |
if(type_of((V429))==t_structure){ |
if(type_of((V403))==t_structure){ |
2945 |
goto T772;} |
goto T755;} |
2946 |
goto T770; |
goto T753; |
2947 |
goto T772; |
goto T755; |
2948 |
T772:; |
T755:; |
2949 |
if(!((((V429))->str.str_def)==(VV[99]))){ |
if(!((((V403))->str.str_def)==(VV[107]))){ |
2950 |
goto T770;}} |
goto T753;}} |
2951 |
V428= STREF(object,(base[0]->c.c_car),4); |
V402= STREF(object,(base[0]->c.c_car),4); |
2952 |
goto T768; |
goto T751; |
2953 |
goto T770; |
goto T753; |
2954 |
T770:;{object V430; |
T753:;{object V404; |
2955 |
V430= (VV[65]->s.s_dbind); |
V404= (VV[73]->s.s_dbind); |
2956 |
base[1]= small_fixnum(14); |
base[1]= small_fixnum(14); |
2957 |
base[2]= (base[0]->c.c_car); |
base[2]= (base[0]->c.c_car); |
2958 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2959 |
(void) (*Lnk197)(); |
(void) (*Lnk214)(); |
2960 |
vs_top=sup; |
vs_top=sup; |
2961 |
V431= vs_base[0]; |
V405= vs_base[0]; |
2962 |
if(!((V430)==(CMPcar(V431)))){ |
if(!((V404)==(CMPcar(V405)))){ |
2963 |
goto T775;}} |
goto T758;}} |
2964 |
V428= CMPcar(((base[0]->c.c_car))->cc.cc_turbo[12]); |
V402= CMPcar(((base[0]->c.c_car))->cc.cc_turbo[12]); |
2965 |
goto T768; |
goto T751; |
2966 |
goto T775; |
goto T758; |
2967 |
T775:; |
T758:; |
2968 |
base[1]= VV[66]; |
base[1]= VV[74]; |
2969 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2970 |
Lerror(); |
Lerror(); |
2971 |
vs_top=sup; |
vs_top=sup; |
2972 |
V428= vs_base[0]; |
V402= vs_base[0]; |
2973 |
goto T768; |
goto T751; |
2974 |
T768:; |
T751:; |
2975 |
V432 = (VV[97]->s.s_dbind); |
V400= (V402)->v.v_self[fix((VV[105]->s.s_dbind))]; |
2976 |
V426= (V428)->v.v_self[fix(V432)]; |
goto T747; |
2977 |
goto T764; |
goto T749; |
2978 |
goto T766; |
T749:; |
|
T766:; |
|
2979 |
base[1]= (base[0]->c.c_car); |
base[1]= (base[0]->c.c_car); |
2980 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2981 |
(void) (*Lnk161)(Lclptr161); |
(void) (*Lnk177)(Lclptr177); |
2982 |
vs_top=sup; |
vs_top=sup; |
2983 |
V426= vs_base[0]; |
V400= vs_base[0]; |
2984 |
goto T764; |
goto T747; |
2985 |
T764:; |
T747:; |
2986 |
V427= Cnil; |
V401= Cnil; |
2987 |
if((STREF(object,(V426),28))==Cnil){ |
if((STREF(object,(V400),28))==Cnil){ |
2988 |
goto T783;} |
goto T766;} |
2989 |
V427= (*(LnkLI227))((base[0]->c.c_car)); |
V401= (*(LnkLI244))((base[0]->c.c_car)); |
2990 |
if(((V427))==Cnil){ |
if(((V401))==Cnil){ |
2991 |
goto T783;} |
goto T766;} |
2992 |
if(((VV[98]->s.s_dbind))==Cnil){ |
if(((VV[106]->s.s_dbind))==Cnil){ |
2993 |
goto T789;} |
goto T772;} |
2994 |
base[1]= (*(LnkLI228))((base[0]->c.c_car),(V427)); |
base[1]= (*(LnkLI245))((base[0]->c.c_car),(V401)); |
2995 |
base[2]= Cnil; |
base[2]= Cnil; |
2996 |
base[3]= Cnil; |
base[3]= Cnil; |
2997 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
2998 |
goto T739; |
goto T721; |
2999 |
goto T789; |
goto T772; |
3000 |
T789:; |
T772:; |
3001 |
base[1]= (base[0]->c.c_car); |
base[1]= (base[0]->c.c_car); |
3002 |
base[2]= (V427); |
base[2]= (V401); |
3003 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3004 |
(void) (*Lnk229)(); |
(void) (*Lnk246)(); |
3005 |
goto T739; |
goto T721; |
3006 |
goto T783; |
goto T766; |
3007 |
T783:; |
T766:; |
3008 |
base[1]= (V420); |
base[1]= (V394); |
3009 |
base[2]= Cnil; |
base[2]= Cnil; |
3010 |
base[3]= (*(LnkLI225))(); |
base[3]= (*(LnkLI242))(); |
3011 |
vs_top=(vs_base=base+1)+3;} |
vs_top=(vs_base=base+1)+3;} |
3012 |
goto T739; |
goto T721; |
3013 |
T739:; |
T721:; |
3014 |
if(vs_base>=vs_top){vs_top=sup;goto T799;} |
if(vs_base>=vs_top){vs_top=sup;goto T782;} |
3015 |
V421= vs_base[0]; |
V395= vs_base[0]; |
3016 |
vs_base++; |
vs_base++; |
3017 |
if(vs_base>=vs_top){vs_top=sup;goto T800;} |
if(vs_base>=vs_top){vs_top=sup;goto T783;} |
3018 |
V422= vs_base[0]; |
V396= vs_base[0]; |
3019 |
vs_base++; |
vs_base++; |
3020 |
if(vs_base>=vs_top){vs_top=sup;goto T801;} |
if(vs_base>=vs_top){vs_top=sup;goto T784;} |
3021 |
V423= vs_base[0]; |
V397= vs_base[0]; |
3022 |
vs_top=sup; |
vs_top=sup; |
3023 |
goto T802; |
goto T785; |
3024 |
goto T799; |
goto T782; |
3025 |
T799:; |
T782:; |
3026 |
V421= Cnil; |
V395= Cnil; |
3027 |
goto T800; |
goto T783; |
3028 |
T800:; |
T783:; |
3029 |
V422= Cnil; |
V396= Cnil; |
3030 |
goto T801; |
goto T784; |
3031 |
T801:; |
T784:; |
3032 |
V423= Cnil; |
V397= Cnil; |
3033 |
goto T802; |
goto T785; |
3034 |
T802:; |
T785:; |
3035 |
{object V433 = (VFUN_NARGS=4,(*(LnkLI230))((base[0]->c.c_car),(V421),(V422),(V423))); |
{object V406 = (VFUN_NARGS=4,(*(LnkLI247))((base[0]->c.c_car),(V395),(V396),(V397))); |
3036 |
VMR71(V433)}}} |
VMR71(V406)}}} |
3037 |
base[0]=base[0]; |
base[0]=base[0]; |
3038 |
return Cnil; |
return Cnil; |
3039 |
} |
} |
3040 |
/* local entry for function MAKE-EARLY-ACCESSOR */ |
/* local entry for function MAKE-EARLY-ACCESSOR */ |
3041 |
|
|
3042 |
static object LI74(V436,V437) |
static object LI74(V409,V410) |
3043 |
|
|
3044 |
register object V436;object V437; |
register object V409;object V410; |
3045 |
{ VMB72 VMS72 VMV72 |
{ VMB72 VMS72 VMV72 |
3046 |
goto TTL; |
goto TTL; |
3047 |
TTL:; |
TTL:; |
3048 |
{object V438; |
{object V411; |
3049 |
if(type_of(V436)==t_structure){ |
if(type_of(V409)==t_structure){ |
3050 |
goto T808;} |
goto T791;} |
3051 |
goto T806; |
goto T789; |
3052 |
goto T808; |
goto T791; |
3053 |
T808:; |
T791:; |
3054 |
if(!(((V436)->str.str_def)==(VV[100]))){ |
if(!(((V409)->str.str_def)==(VV[108]))){ |
3055 |
goto T806;} |
goto T789;} |
3056 |
V439= STREF(object,(V436),4); |
V412= STREF(object,(V409),4); |
3057 |
goto T804; |
goto T787; |
3058 |
goto T806; |
goto T789; |
3059 |
T806:;{object V441; |
T789:;{object V414; |
3060 |
V441= (VV[65]->s.s_dbind); |
V414= (VV[73]->s.s_dbind); |
3061 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
3062 |
base[3]= (V436); |
base[3]= (V409); |
3063 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3064 |
(void) (*Lnk197)(); |
(void) (*Lnk214)(); |
3065 |
vs_top=sup; |
vs_top=sup; |
3066 |
V442= vs_base[0]; |
V415= vs_base[0]; |
3067 |
if(!((V441)==(CMPcar(V442)))){ |
if(!((V414)==(CMPcar(V415)))){ |
3068 |
goto T811;}} |
goto T794;}} |
3069 |
V439= CMPcar(((V436))->cc.cc_turbo[12]); |
V412= CMPcar(((V409))->cc.cc_turbo[12]); |
3070 |
goto T804; |
goto T787; |
3071 |
goto T811; |
goto T794; |
3072 |
T811:; |
T794:; |
3073 |
base[2]= VV[66]; |
base[2]= VV[74]; |
3074 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3075 |
Lerror(); |
Lerror(); |
3076 |
vs_top=sup; |
vs_top=sup; |
3077 |
V439= vs_base[0]; |
V412= vs_base[0]; |
3078 |
goto T804; |
goto T787; |
3079 |
T804:; |
T787:; |
3080 |
V443 = (VV[67]->s.s_dbind); |
V411= (V412)->v.v_self[fix((VV[75]->s.s_dbind))]; |
3081 |
V438= (V439)->v.v_self[fix(V443)]; |
base[2]= CMPcar((V411)); |
|
base[2]= CMPcar((V438)); |
|
3082 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3083 |
(void) (*Lnk231)(); |
(void) (*Lnk248)(); |
3084 |
vs_top=sup; |
vs_top=sup; |
3085 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
3086 |
base[1]=MMcons(base[1],Cnil); |
base[1]=MMcons(base[1],Cnil); |
3087 |
{object V444= (V437); |
{object V417= V410; |
3088 |
if((V444!= VV[51]))goto T819; |
if((V417!= VV[59]))goto T802; |
3089 |
{object V445 = |
{object V418 = |
3090 |
make_cclosure_new(LC154,Cnil,base[1],Cdata); |
make_cclosure_new(LC154,Cnil,base[1],Cdata); |
3091 |
VMR72(V445)} |
VMR72(V418)} |
3092 |
goto T819; |
goto T802; |
3093 |
T819:; |
T802:; |
3094 |
if((V444!= VV[123]))goto T820; |
if((V417!= VV[133]))goto T803; |
3095 |
{object V446 = |
{object V419 = |
3096 |
make_cclosure_new(LC155,Cnil,base[1],Cdata); |
make_cclosure_new(LC155,Cnil,base[1],Cdata); |
3097 |
VMR72(V446)} |
VMR72(V419)} |
3098 |
goto T820; |
goto T803; |
3099 |
T820:; |
T803:; |
3100 |
FEerror("The ECASE key value ~s is illegal.",1,V444); |
base[2]= VV[49]; |
3101 |
{object V447 = Cnil; |
base[3]= VV[50]; |
3102 |
VMR72(V447)}}} |
base[4]= VV[51]; |
3103 |
|
base[5]= VV[52]; |
3104 |
|
base[6]= V410; |
3105 |
|
base[7]= VV[53]; |
3106 |
|
base[8]= VV[113]; |
3107 |
|
base[9]= VV[55]; |
3108 |
|
base[10]= VV[114]; |
3109 |
|
vs_top=(vs_base=base+2)+9; |
3110 |
|
(void) (*Lnk187)(); |
3111 |
|
vs_top=sup; |
3112 |
|
{object V420 = vs_base[0]; |
3113 |
|
VMR72(V420)}}} |
3114 |
base[0]=base[0]; |
base[0]=base[0]; |
3115 |
return Cnil; |
return Cnil; |
3116 |
} |
} |
3121 |
register object *sup=base+VM73; VC73 |
register object *sup=base+VM73; VC73 |
3122 |
vs_check; |
vs_check; |
3123 |
bds_check; |
bds_check; |
3124 |
{register object V448; |
{register object V421; |
3125 |
object V449; |
object V422; |
3126 |
check_arg(2); |
check_arg(2); |
3127 |
V448=(base[0]); |
V421=(base[0]); |
3128 |
V449=(base[1]); |
V422=(base[1]); |
3129 |
vs_top=sup; |
vs_top=sup; |
3130 |
goto TTL; |
goto TTL; |
3131 |
TTL:; |
TTL:; |
3132 |
{object V450; |
{object V423; |
3133 |
object V451; |
object V424; |
3134 |
object V452; |
object V425; |
3135 |
object V453; |
object V426; |
3136 |
object V454; |
object V427; |
3137 |
object V455; |
object V428; |
3138 |
base[2]= (V448); |
base[2]= (V421); |
3139 |
base[3]= (V449); |
base[3]= (V422); |
3140 |
base[4]= VV[86]; |
base[4]= VV[94]; |
3141 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
3142 |
(void) (*Lnk85)(); |
(void) (*Lnk93)(); |
3143 |
if(vs_base>=vs_top){vs_top=sup;goto T825;} |
if(vs_base>=vs_top){vs_top=sup;goto T817;} |
3144 |
V450= vs_base[0]; |
V423= vs_base[0]; |
3145 |
vs_base++; |
vs_base++; |
3146 |
if(vs_base>=vs_top){vs_top=sup;goto T826;} |
if(vs_base>=vs_top){vs_top=sup;goto T818;} |
3147 |
V451= vs_base[0]; |
V424= vs_base[0]; |
3148 |
vs_base++; |
vs_base++; |
3149 |
if(vs_base>=vs_top){vs_top=sup;goto T827;} |
if(vs_base>=vs_top){vs_top=sup;goto T819;} |
3150 |
V452= vs_base[0]; |
V425= vs_base[0]; |
3151 |
vs_base++; |
vs_base++; |
3152 |
if(vs_base>=vs_top){vs_top=sup;goto T828;} |
if(vs_base>=vs_top){vs_top=sup;goto T820;} |
3153 |
V453= vs_base[0]; |
V426= vs_base[0]; |
3154 |
vs_base++; |
vs_base++; |
3155 |
if(vs_base>=vs_top){vs_top=sup;goto T829;} |
if(vs_base>=vs_top){vs_top=sup;goto T821;} |
3156 |
V454= vs_base[0]; |
V427= vs_base[0]; |
3157 |
vs_base++; |
vs_base++; |
3158 |
if(vs_base>=vs_top){vs_top=sup;goto T830;} |
if(vs_base>=vs_top){vs_top=sup;goto T822;} |
3159 |
V455= vs_base[0]; |
V428= vs_base[0]; |
3160 |
vs_top=sup; |
vs_top=sup; |
3161 |
goto T831; |
goto T823; |
3162 |
goto T825; |
goto T817; |
3163 |
T825:; |
T817:; |
3164 |
V450= Cnil; |
V423= Cnil; |
3165 |
goto T826; |
goto T818; |
3166 |
T826:; |
T818:; |
3167 |
V451= Cnil; |
V424= Cnil; |
3168 |
goto T827; |
goto T819; |
3169 |
T827:; |
T819:; |
3170 |
V452= Cnil; |
V425= Cnil; |
3171 |
goto T828; |
goto T820; |
3172 |
T828:; |
T820:; |
3173 |
V453= Cnil; |
V426= Cnil; |
3174 |
goto T829; |
goto T821; |
3175 |
T829:; |
T821:; |
3176 |
V454= Cnil; |
V427= Cnil; |
3177 |
goto T830; |
goto T822; |
3178 |
T830:; |
T822:; |
3179 |
V455= Cnil; |
V428= Cnil; |
3180 |
|
goto T823; |
3181 |
|
T823:; |
3182 |
|
if(((V424))==Cnil){ |
3183 |
|
goto T824;} |
3184 |
|
{register object x= (V421),V429= (VV[99]->s.s_dbind); |
3185 |
|
while(V429!=Cnil) |
3186 |
|
if(x==(V429->c.c_car)){ |
3187 |
|
goto T824; |
3188 |
|
}else V429=V429->c.c_cdr;} |
3189 |
|
base[2]= make_cons((V421),(VV[99]->s.s_dbind)); |
3190 |
|
bds_bind(VV[99],base[2]); |
3191 |
|
if((V426)==Cnil){ |
3192 |
|
goto T831;} |
3193 |
|
bds_unwind1; |
3194 |
|
goto T824; |
3195 |
goto T831; |
goto T831; |
3196 |
T831:; |
T831:; |
3197 |
if(((V451))==Cnil){ |
if(((V427))==Cnil){ |
3198 |
goto T832;} |
goto T834;} |
3199 |
{register object x= (V448),V456= (VV[91]->s.s_dbind); |
if(((V428))==Cnil){ |
3200 |
while(V456!=Cnil) |
goto T834;} |
3201 |
if(x==(V456->c.c_car)){ |
{object V431; |
3202 |
goto T832; |
object V432; |
3203 |
}else V456=V456->c.c_cdr;} |
object V433; |
3204 |
base[2]= make_cons((V448),(VV[91]->s.s_dbind)); |
base[3]= (V421); |
3205 |
bds_bind(VV[91],base[2]); |
base[4]= (V427); |
3206 |
if((V453)==Cnil){ |
base[5]= (V425); |
3207 |
goto T839;} |
base[6]= (V428); |
|
bds_unwind1; |
|
|
goto T832; |
|
|
goto T839; |
|
|
T839:; |
|
|
if(((V454))==Cnil){ |
|
|
goto T842;} |
|
|
if(((V455))==Cnil){ |
|
|
goto T842;} |
|
|
{object V458; |
|
|
object V459; |
|
|
object V460; |
|
|
base[3]= (V448); |
|
|
base[4]= (V454); |
|
|
base[5]= (V452); |
|
|
base[6]= (V455); |
|
3208 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
3209 |
(void) (*Lnk232)(); |
(void) (*Lnk249)(); |
3210 |
if(vs_base>=vs_top){vs_top=sup;goto T851;} |
if(vs_base>=vs_top){vs_top=sup;goto T843;} |
3211 |
V458= vs_base[0]; |
V431= vs_base[0]; |
3212 |
vs_base++; |
vs_base++; |
3213 |
|
if(vs_base>=vs_top){vs_top=sup;goto T844;} |
3214 |
|
V432= vs_base[0]; |
3215 |
|
vs_base++; |
3216 |
|
if(vs_base>=vs_top){vs_top=sup;goto T845;} |
3217 |
|
V433= vs_base[0]; |
3218 |
|
vs_top=sup; |
3219 |
|
goto T846; |
3220 |
|
goto T843; |
3221 |
|
T843:; |
3222 |
|
V431= Cnil; |
3223 |
|
goto T844; |
3224 |
|
T844:; |
3225 |
|
V432= Cnil; |
3226 |
|
goto T845; |
3227 |
|
T845:; |
3228 |
|
V433= Cnil; |
3229 |
|
goto T846; |
3230 |
|
T846:; |
3231 |
|
V434= (VFUN_NARGS=4,(*(LnkLI47))((V421),(V431),(V432),(V433))); |
3232 |
|
bds_unwind1; |
3233 |
|
goto T824;} |
3234 |
|
goto T834; |
3235 |
|
T834:; |
3236 |
|
if(((*(LnkLI200))((V421)))==Cnil){ |
3237 |
|
goto T848;} |
3238 |
|
{object V435; |
3239 |
|
object V436; |
3240 |
|
object V437; |
3241 |
|
base[3]= (V421); |
3242 |
|
vs_top=(vs_base=base+3)+1; |
3243 |
|
(void) (*Lnk201)(); |
3244 |
if(vs_base>=vs_top){vs_top=sup;goto T852;} |
if(vs_base>=vs_top){vs_top=sup;goto T852;} |
3245 |
V459= vs_base[0]; |
V435= vs_base[0]; |
3246 |
vs_base++; |
vs_base++; |
3247 |
if(vs_base>=vs_top){vs_top=sup;goto T853;} |
if(vs_base>=vs_top){vs_top=sup;goto T853;} |
3248 |
V460= vs_base[0]; |
V436= vs_base[0]; |
3249 |
|
vs_base++; |
3250 |
|
if(vs_base>=vs_top){vs_top=sup;goto T854;} |
3251 |
|
V437= vs_base[0]; |
3252 |
vs_top=sup; |
vs_top=sup; |
3253 |
goto T854; |
goto T855; |
|
goto T851; |
|
|
T851:; |
|
|
V458= Cnil; |
|
3254 |
goto T852; |
goto T852; |
3255 |
T852:; |
T852:; |
3256 |
V459= Cnil; |
V435= Cnil; |
3257 |
goto T853; |
goto T853; |
3258 |
T853:; |
T853:; |
3259 |
V460= Cnil; |
V436= Cnil; |
3260 |
goto T854; |
goto T854; |
3261 |
T854:; |
T854:; |
3262 |
V461= (VFUN_NARGS=4,(*(LnkLI49))((V448),(V458),(V459),(V460))); |
V437= Cnil; |
3263 |
|
goto T855; |
3264 |
|
T855:; |
3265 |
|
V438= (VFUN_NARGS=4,(*(LnkLI47))((V421),(V435),(V436),(V437))); |
3266 |
bds_unwind1; |
bds_unwind1; |
3267 |
goto T832;} |
goto T824;} |
3268 |
goto T842; |
goto T848; |
3269 |
T842:; |
T848:; |
3270 |
if(((*(LnkLI183))((V448)))==Cnil){ |
{object V439; |
3271 |
goto T856;} |
object V440; |
3272 |
{object V462; |
object V441; |
3273 |
object V463; |
base[3]= (V421); |
3274 |
object V464; |
base[5]= (V421); |
3275 |
base[3]= (V448); |
base[6]= (V422); |
3276 |
vs_top=(vs_base=base+3)+1; |
base[7]= VV[10]; |
3277 |
(void) (*Lnk184)(); |
vs_top=(vs_base=base+5)+3; |
3278 |
if(vs_base>=vs_top){vs_top=sup;goto T860;} |
(void) (*Lnk93)(); |
3279 |
V462= vs_base[0]; |
vs_top=sup; |
3280 |
|
base[4]= vs_base[0]; |
3281 |
|
vs_top=(vs_base=base+3)+2; |
3282 |
|
(void) (*Lnk210)(); |
3283 |
|
if(vs_base>=vs_top){vs_top=sup;goto T862;} |
3284 |
|
V439= vs_base[0]; |
3285 |
vs_base++; |
vs_base++; |
3286 |
if(vs_base>=vs_top){vs_top=sup;goto T861;} |
if(vs_base>=vs_top){vs_top=sup;goto T863;} |
3287 |
V463= vs_base[0]; |
V440= vs_base[0]; |
3288 |
vs_base++; |
vs_base++; |
3289 |
if(vs_base>=vs_top){vs_top=sup;goto T862;} |
if(vs_base>=vs_top){vs_top=sup;goto T864;} |
3290 |
V464= vs_base[0]; |
V441= vs_base[0]; |
3291 |
vs_top=sup; |
vs_top=sup; |
3292 |
goto T863; |
goto T865; |
|
goto T860; |
|
|
T860:; |
|
|
V462= Cnil; |
|
|
goto T861; |
|
|
T861:; |
|
|
V463= Cnil; |
|
3293 |
goto T862; |
goto T862; |
3294 |
T862:; |
T862:; |
3295 |
V464= Cnil; |
V439= Cnil; |
3296 |
goto T863; |
goto T863; |
3297 |
T863:; |
T863:; |
3298 |
V465= (VFUN_NARGS=4,(*(LnkLI49))((V448),(V462),(V463),(V464))); |
V440= Cnil; |
3299 |
bds_unwind1; |
goto T864; |
3300 |
goto T832;} |
T864:; |
3301 |
goto T856; |
V441= Cnil; |
3302 |
T856:; |
goto T865; |
3303 |
{object V466; |
T865:; |
3304 |
object V467; |
V442= (VFUN_NARGS=4,(*(LnkLI47))((V421),(V439),(V440),(V441))); |
|
object V468; |
|
|
base[3]= (V448); |
|
|
base[5]= (V448); |
|
|
base[6]= (V449); |
|
|
base[7]= VV[12]; |
|
|
vs_top=(vs_base=base+5)+3; |
|
|
(void) (*Lnk85)(); |
|
|
vs_top=sup; |
|
|
base[4]= vs_base[0]; |
|
|
vs_top=(vs_base=base+3)+2; |
|
|
(void) (*Lnk193)(); |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T870;} |
|
|
V466= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T871;} |
|
|
V467= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T872;} |
|
|
V468= vs_base[0]; |
|
|
vs_top=sup; |
|
|
goto T873; |
|
|
goto T870; |
|
|
T870:; |
|
|
V466= Cnil; |
|
|
goto T871; |
|
|
T871:; |
|
|
V467= Cnil; |
|
|
goto T872; |
|
|
T872:; |
|
|
V468= Cnil; |
|
|
goto T873; |
|
|
T873:; |
|
|
V469= (VFUN_NARGS=4,(*(LnkLI49))((V448),(V466),(V467),(V468))); |
|
3305 |
bds_unwind1;} |
bds_unwind1;} |
3306 |
goto T832; |
goto T824; |
3307 |
T832:; |
T824:; |
3308 |
base[2]= (V450); |
base[2]= (V423); |
3309 |
base[3]= (V449); |
base[3]= (V422); |
3310 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3311 |
(void) (*Lnk94)(); |
(void) (*Lnk102)(); |
3312 |
return;} |
return;} |
3313 |
} |
} |
3314 |
} |
} |
3315 |
/* local entry for function MAKE-FINAL-DFUN */ |
/* local entry for function MAKE-FINAL-DFUN */ |
3316 |
|
|
3317 |
static object LI76(object V470,object first,...) |
static object LI76(object V443,object first,...) |
3318 |
{ |
{ |
3319 |
va_list ap; |
va_list ap; |
3320 |
int narg = VFUN_NARGS; VMB74 VMS74 VMV74 |
int narg = VFUN_NARGS; VMB74 VMS74 VMV74 |
3321 |
{object V471; |
{object V444; |
3322 |
object V472; |
object V445; |
3323 |
va_start(ap,first); |
va_start(ap,first); |
3324 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
3325 |
V471= V470; |
V444= V443; |
3326 |
narg = narg - 1; |
narg = narg - 1; |
3327 |
if (narg <= 0) goto T876; |
if (narg <= 0) goto T868; |
3328 |
else { |
else { |
3329 |
V472= first;} |
V445= first;} |
3330 |
--narg; goto T877; |
--narg; goto T869; |
3331 |
goto T876; |
goto T868; |
3332 |
T876:; |
T868:; |
3333 |
V472= Cnil; |
V445= Cnil; |
3334 |
goto T877; |
goto T869; |
3335 |
T877:; |
T869:; |
3336 |
{object V473; |
{object V446; |
3337 |
object V474; |
object V447; |
3338 |
object V475; |
object V448; |
3339 |
base[0]= (V471); |
base[0]= (V444); |
3340 |
base[1]= (V472); |
base[1]= (V445); |
3341 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3342 |
(void) (*Lnk226)(); |
(void) (*Lnk243)(); |
3343 |
if(vs_base>=vs_top){vs_top=sup;goto T882;} |
if(vs_base>=vs_top){vs_top=sup;goto T874;} |
3344 |
V473= vs_base[0]; |
V446= vs_base[0]; |
3345 |
vs_base++; |
vs_base++; |
3346 |
if(vs_base>=vs_top){vs_top=sup;goto T883;} |
if(vs_base>=vs_top){vs_top=sup;goto T875;} |
3347 |
V474= vs_base[0]; |
V447= vs_base[0]; |
3348 |
vs_base++; |
vs_base++; |
3349 |
if(vs_base>=vs_top){vs_top=sup;goto T884;} |
if(vs_base>=vs_top){vs_top=sup;goto T876;} |
3350 |
V475= vs_base[0]; |
V448= vs_base[0]; |
3351 |
vs_top=sup; |
vs_top=sup; |
3352 |
goto T885; |
goto T877; |
3353 |
goto T882; |
goto T874; |
3354 |
T882:; |
T874:; |
3355 |
V473= Cnil; |
V446= Cnil; |
3356 |
goto T883; |
goto T875; |
3357 |
T883:; |
T875:; |
3358 |
V474= Cnil; |
V447= Cnil; |
3359 |
goto T884; |
goto T876; |
3360 |
T884:; |
T876:; |
3361 |
V475= Cnil; |
V448= Cnil; |
3362 |
goto T885; |
goto T877; |
3363 |
T885:; |
T877:; |
3364 |
{object V476 = (VFUN_NARGS=4,(*(LnkLI230))((V471),(V473),(V474),(V475))); |
{object V449 = (VFUN_NARGS=4,(*(LnkLI247))((V444),(V446),(V447),(V448))); |
3365 |
VMR74(V476)}} |
VMR74(V449)}} |
3366 |
va_end(ap); |
va_end(ap); |
3367 |
base[0]=base[0]; |
base[0]=base[0]; |
3368 |
return Cnil;} |
return Cnil;} |
3375 |
vs_check; |
vs_check; |
3376 |
check_arg(2); |
check_arg(2); |
3377 |
vs_top=sup; |
vs_top=sup; |
3378 |
{object V477=base[0]->c.c_cdr; |
{object V450=base[0]->c.c_cdr; |
3379 |
if(endp(V477))invalid_macro_call(); |
if(endp(V450))invalid_macro_call(); |
3380 |
{object V478= (V477->c.c_car); |
{object V451= (V450->c.c_car); |
3381 |
if(endp(V478))invalid_macro_call(); |
if(endp(V451))invalid_macro_call(); |
3382 |
base[2]= (V478->c.c_car); |
base[2]= (V451->c.c_car); |
3383 |
V478=V478->c.c_cdr; |
V451=V451->c.c_cdr; |
3384 |
if(endp(V478))invalid_macro_call(); |
if(endp(V451))invalid_macro_call(); |
3385 |
base[3]= (V478->c.c_car); |
base[3]= (V451->c.c_car); |
3386 |
V478=V478->c.c_cdr; |
V451=V451->c.c_cdr; |
3387 |
if(!endp(V478))invalid_macro_call();} |
if(!endp(V451))invalid_macro_call();} |
3388 |
V477=V477->c.c_cdr; |
V450=V450->c.c_cdr; |
3389 |
base[4]= V477;} |
base[4]= V450;} |
3390 |
V479= list(2,VV[106],list(3,VV[107],list(2,VV[25],base[3]),VV[108])); |
V452= list(2,VV[116],list(3,VV[117],list(2,VV[23],base[3]),VV[118])); |
3391 |
V480= list(2,/* INLINE-ARGS */V479,list(2,base[2],list(4,VV[109],VV[110],VV[111],list(3,VV[112],VV[113],list(2,VV[25],base[3]))))); |
V453= list(2,/* INLINE-ARGS */V452,list(2,base[2],list(4,VV[119],VV[120],VV[121],list(3,VV[122],VV[123],list(2,VV[23],base[3]))))); |
3392 |
V481= make_cons(VV[21],base[4]); |
V454= make_cons(VV[19],base[4]); |
3393 |
V482= list(2,VV[115],base[2]); |
V455= list(2,VV[125],base[2]); |
3394 |
base[5]= list(3,VV[105],/* INLINE-ARGS */V480,list(4,VV[114],/* INLINE-ARGS */V481,/* INLINE-ARGS */V482,list(3,VV[116],base[2],VV[117]))); |
base[5]= list(3,VV[115],/* INLINE-ARGS */V453,list(4,VV[124],/* INLINE-ARGS */V454,/* INLINE-ARGS */V455,list(3,VV[126],base[2],VV[127]))); |
3395 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
3396 |
return; |
return; |
3397 |
} |
} |
3403 |
vs_check; |
vs_check; |
3404 |
check_arg(2); |
check_arg(2); |
3405 |
vs_top=sup; |
vs_top=sup; |
3406 |
{object V483=base[0]->c.c_cdr; |
{object V456=base[0]->c.c_cdr; |
3407 |
if(endp(V483))invalid_macro_call(); |
if(endp(V456))invalid_macro_call(); |
3408 |
{object V484= (V483->c.c_car); |
{object V457= (V456->c.c_car); |
3409 |
if(endp(V484))invalid_macro_call(); |
if(endp(V457))invalid_macro_call(); |
3410 |
base[2]= (V484->c.c_car); |
base[2]= (V457->c.c_car); |
3411 |
V484=V484->c.c_cdr; |
V457=V457->c.c_cdr; |
3412 |
if(!endp(V484))invalid_macro_call();} |
if(!endp(V457))invalid_macro_call();} |
3413 |
V483=V483->c.c_cdr; |
V456=V456->c.c_cdr; |
3414 |
base[3]= V483;} |
base[3]= V456;} |
3415 |
base[4]= listA(3,VV[118],list(2,base[2],VV[119]),base[3]); |
base[4]= listA(3,VV[128],list(2,base[2],VV[129]),base[3]); |
3416 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3417 |
return; |
return; |
3418 |
} |
} |
3419 |
/* local entry for function FINAL-ACCESSOR-DFUN-TYPE */ |
/* local entry for function FINAL-ACCESSOR-DFUN-TYPE */ |
3420 |
|
|
3421 |
static object LI79(V486) |
static object LI79(V459) |
3422 |
|
|
3423 |
register object V486; |
register object V459; |
3424 |
{ VMB77 VMS77 VMV77 |
{ VMB77 VMS77 VMV77 |
3425 |
goto TTL; |
goto TTL; |
3426 |
TTL:; |
TTL:; |
3427 |
{object V487; |
{object V460; |
3428 |
if(((*(LnkLI196))((V486)))==Cnil){ |
if(((*(LnkLI213))((V459)))==Cnil){ |
3429 |
goto T888;} |
goto T880;} |
3430 |
if(type_of(V486)==t_structure){ |
if(type_of(V459)==t_structure){ |
3431 |
goto T894;} |
goto T886;} |
3432 |
goto T892; |
goto T884; |
3433 |
goto T894; |
goto T886; |
3434 |
T894:; |
T886:; |
3435 |
if(!(((V486)->str.str_def)==(VV[120]))){ |
if(!(((V459)->str.str_def)==(VV[130]))){ |
3436 |
goto T892;} |
goto T884;} |
3437 |
V488= STREF(object,(V486),4); |
V461= STREF(object,(V459),4); |
3438 |
goto T890; |
goto T882; |
3439 |
goto T892; |
goto T884; |
3440 |
T892:;{object V490; |
T884:;{object V463; |
3441 |
V490= (VV[65]->s.s_dbind); |
V463= (VV[73]->s.s_dbind); |
3442 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
3443 |
base[1]= (V486); |
base[1]= (V459); |
3444 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3445 |
(void) (*Lnk197)(); |
(void) (*Lnk214)(); |
3446 |
vs_top=sup; |
vs_top=sup; |
3447 |
V491= vs_base[0]; |
V464= vs_base[0]; |
3448 |
if(!((V490)==(CMPcar(V491)))){ |
if(!((V463)==(CMPcar(V464)))){ |
3449 |
goto T897;}} |
goto T889;}} |
3450 |
V488= CMPcar(((V486))->cc.cc_turbo[12]); |
V461= CMPcar(((V459))->cc.cc_turbo[12]); |
3451 |
goto T890; |
goto T882; |
3452 |
goto T897; |
goto T889; |
3453 |
T897:; |
T889:; |
3454 |
base[0]= VV[66]; |
base[0]= VV[74]; |
3455 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3456 |
Lerror(); |
Lerror(); |
3457 |
vs_top=sup; |
vs_top=sup; |
3458 |
V488= vs_base[0]; |
V461= vs_base[0]; |
3459 |
goto T890; |
goto T882; |
3460 |
T890:; |
T882:; |
3461 |
V492 = (VV[67]->s.s_dbind); |
V460= (V461)->v.v_self[fix((VV[75]->s.s_dbind))]; |
3462 |
V487= (V488)->v.v_self[fix(V492)]; |
goto T878; |
3463 |
goto T886; |
goto T880; |
3464 |
goto T888; |
T880:; |
3465 |
T888:; |
base[0]= (V459); |
|
base[0]= (V486); |
|
3466 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3467 |
(void) (*Lnk199)(Lclptr199); |
(void) (*Lnk216)(Lclptr216); |
3468 |
vs_top=sup; |
vs_top=sup; |
3469 |
V487= vs_base[0]; |
V460= vs_base[0]; |
3470 |
goto T886; |
goto T878; |
3471 |
T886:; |
T878:; |
3472 |
base[0]= VV[233]; |
base[0]= VV[250]; |
3473 |
base[1]= (V487); |
base[1]= (V460); |
3474 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3475 |
(void) (*Lnk188)(); |
(void) (*Lnk205)(); |
3476 |
vs_top=sup; |
vs_top=sup; |
3477 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3478 |
goto T905;} |
goto T897;} |
3479 |
{object V493 = VV[51]; |
{object V465 = VV[59]; |
3480 |
VMR77(V493)} |
VMR77(V465)} |
3481 |
goto T905; |
goto T897; |
3482 |
T905:; |
T897:; |
3483 |
base[0]= VV[234]; |
base[0]= VV[251]; |
3484 |
base[1]= (V487); |
base[1]= (V460); |
3485 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3486 |
(void) (*Lnk188)(); |
(void) (*Lnk205)(); |
3487 |
vs_top=sup; |
vs_top=sup; |
3488 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3489 |
goto T910;} |
goto T902;} |
3490 |
{object V494 = VV[123]; |
{object V466 = VV[133]; |
3491 |
VMR77(V494)} |
VMR77(V466)} |
3492 |
goto T910; |
goto T902; |
3493 |
T910:; |
T902:; |
3494 |
{object V495 = Cnil; |
{object V467 = Cnil; |
3495 |
VMR77(V495)}} |
VMR77(V467)}} |
3496 |
base[0]=base[0]; |
base[0]=base[0]; |
3497 |
return Cnil; |
return Cnil; |
3498 |
} |
} |
3502 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3503 |
register object *sup=base+VM78; VC78 |
register object *sup=base+VM78; VC78 |
3504 |
vs_check; |
vs_check; |
3505 |
{register object V496; |
{register object V468; |
3506 |
register object V497; |
register object V469; |
3507 |
object V498; |
object V470; |
3508 |
object V499; |
object V471; |
3509 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
3510 |
if(vs_top-vs_base>4) too_many_arguments(); |
if(vs_top-vs_base>4) too_many_arguments(); |
3511 |
V496=(base[0]); |
V468=(base[0]); |
3512 |
V497=(base[1]); |
V469=(base[1]); |
3513 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
3514 |
if(vs_base>=vs_top){vs_top=sup;goto T914;} |
if(vs_base>=vs_top){vs_top=sup;goto T906;} |
3515 |
V498=(base[2]); |
V470=(base[2]); |
3516 |
vs_base++; |
vs_base++; |
3517 |
if(vs_base>=vs_top){vs_top=sup;goto T915;} |
if(vs_base>=vs_top){vs_top=sup;goto T907;} |
3518 |
V499=(base[3]); |
V471=(base[3]); |
3519 |
vs_top=sup; |
vs_top=sup; |
3520 |
goto T916; |
goto T908; |
3521 |
|
goto T906; |
3522 |
|
T906:; |
3523 |
|
V470= Cnil; |
3524 |
|
goto T907; |
3525 |
|
T907:; |
3526 |
|
V471= Cnil; |
3527 |
|
goto T908; |
3528 |
|
T908:; |
3529 |
|
{object V472; |
3530 |
|
object V473; |
3531 |
|
{register object x= VV[129],V474= (VV[118]->s.s_dbind); |
3532 |
|
while(V474!=Cnil) |
3533 |
|
if(eql(x,V474->c.c_car->c.c_car) &&V474->c.c_car != Cnil){ |
3534 |
|
V472= (V474->c.c_car); |
3535 |
|
goto T911; |
3536 |
|
}else V474=V474->c.c_cdr; |
3537 |
|
V472= Cnil;} |
3538 |
|
goto T911; |
3539 |
|
T911:; |
3540 |
|
if((CMPcdr((V472)))==Cnil){ |
3541 |
|
goto T914;} |
3542 |
|
{object V476; |
3543 |
|
V476= CMPcdr(CMPcdr(V472)); |
3544 |
|
{object V477; |
3545 |
|
V477= CMPcar(CMPcdr(V472)); |
3546 |
|
(V472)->c.c_cdr = (V476); |
3547 |
|
V473= (V477); |
3548 |
|
goto T912;}} |
3549 |
goto T914; |
goto T914; |
3550 |
T914:; |
T914:; |
3551 |
V498= Cnil; |
base[6]= VV[123]; |
3552 |
goto T915; |
base[7]= VV[129]; |
|
T915:; |
|
|
V499= Cnil; |
|
|
goto T916; |
|
|
T916:; |
|
|
{object V500; |
|
|
object V501; |
|
|
{register object x= VV[119],V502= (VV[108]->s.s_dbind); |
|
|
while(V502!=Cnil) |
|
|
if(eql(x,V502->c.c_car->c.c_car) &&V502->c.c_car != Cnil){ |
|
|
V500= (V502->c.c_car); |
|
|
goto T919; |
|
|
}else V502=V502->c.c_cdr; |
|
|
V500= Cnil;} |
|
|
goto T919; |
|
|
T919:; |
|
|
if((CMPcdr((V500)))==Cnil){ |
|
|
goto T922;} |
|
|
{object V504; |
|
|
V504= CMPcdr(CMPcdr(V500)); |
|
|
{object V505; |
|
|
V505= CMPcar(CMPcdr(V500)); |
|
|
(V500)->c.c_cdr = (V504); |
|
|
V501= (V505); |
|
|
goto T920;}} |
|
|
goto T922; |
|
|
T922:; |
|
|
base[6]= VV[113]; |
|
|
base[7]= VV[119]; |
|
3553 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
3554 |
Lmake_hash_table(); |
Lmake_hash_table(); |
3555 |
vs_top=sup; |
vs_top=sup; |
3556 |
V501= vs_base[0]; |
V473= vs_base[0]; |
3557 |
goto T920; |
goto T912; |
3558 |
T920:; |
T912:; |
3559 |
{object V508; |
{object V480; |
3560 |
register object V509; |
register object V481; |
3561 |
object V510; |
object V482; |
3562 |
object V511; |
object V483; |
3563 |
object V512; |
object V484; |
3564 |
object V513; |
object V485; |
3565 |
base[6]= (V496); |
base[6]= (V468); |
3566 |
base[7]= (V497); |
base[7]= (V469); |
3567 |
base[8]= (V501); |
base[8]= (V473); |
3568 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
3569 |
(void) (*Lnk235)(); |
(void) (*Lnk252)(); |
3570 |
if(vs_base>=vs_top){vs_top=sup;goto T935;} |
if(vs_base>=vs_top){vs_top=sup;goto T927;} |
3571 |
V508= vs_base[0]; |
V480= vs_base[0]; |
3572 |
vs_base++; |
vs_base++; |
3573 |
if(vs_base>=vs_top){vs_top=sup;goto T936;} |
if(vs_base>=vs_top){vs_top=sup;goto T928;} |
3574 |
V509= vs_base[0]; |
V481= vs_base[0]; |
3575 |
vs_base++; |
vs_base++; |
3576 |
if(vs_base>=vs_top){vs_top=sup;goto T937;} |
if(vs_base>=vs_top){vs_top=sup;goto T929;} |
3577 |
V510= vs_base[0]; |
V482= vs_base[0]; |
3578 |
vs_base++; |
vs_base++; |
3579 |
if(vs_base>=vs_top){vs_top=sup;goto T938;} |
if(vs_base>=vs_top){vs_top=sup;goto T930;} |
3580 |
V511= vs_base[0]; |
V483= vs_base[0]; |
3581 |
vs_base++; |
vs_base++; |
3582 |
if(vs_base>=vs_top){vs_top=sup;goto T939;} |
if(vs_base>=vs_top){vs_top=sup;goto T931;} |
3583 |
V512= vs_base[0]; |
V484= vs_base[0]; |
3584 |
vs_base++; |
vs_base++; |
3585 |
if(vs_base>=vs_top){vs_top=sup;goto T940;} |
if(vs_base>=vs_top){vs_top=sup;goto T932;} |
3586 |
V513= vs_base[0]; |
V485= vs_base[0]; |
3587 |
|
vs_top=sup; |
3588 |
|
goto T933; |
3589 |
|
goto T927; |
3590 |
|
T927:; |
3591 |
|
V480= Cnil; |
3592 |
|
goto T928; |
3593 |
|
T928:; |
3594 |
|
V481= Cnil; |
3595 |
|
goto T929; |
3596 |
|
T929:; |
3597 |
|
V482= Cnil; |
3598 |
|
goto T930; |
3599 |
|
T930:; |
3600 |
|
V483= Cnil; |
3601 |
|
goto T931; |
3602 |
|
T931:; |
3603 |
|
V484= Cnil; |
3604 |
|
goto T932; |
3605 |
|
T932:; |
3606 |
|
V485= Cnil; |
3607 |
|
goto T933; |
3608 |
|
T933:; |
3609 |
|
if(((V480))==Cnil){ |
3610 |
|
goto T935;} |
3611 |
|
if(!(number_compare((V484),small_fixnum(1))==0)){ |
3612 |
|
goto T938;} |
3613 |
|
{object V486; |
3614 |
|
base[6]= (V482); |
3615 |
|
vs_top=(vs_base=base+6)+1; |
3616 |
|
(void) (*Lnk253)(Lclptr253); |
3617 |
vs_top=sup; |
vs_top=sup; |
3618 |
goto T941; |
V486= vs_base[0]; |
3619 |
goto T935; |
base[6]= (V468); |
3620 |
T935:; |
base[7]= (V469); |
3621 |
V508= Cnil; |
base[8]= (V486); |
3622 |
goto T936; |
base[9]= (V481); |
3623 |
T936:; |
vs_top=(vs_base=base+6)+4; |
3624 |
V509= Cnil; |
(void) (*Lnk249)(); |
3625 |
goto T937; |
goto T922;} |
|
T937:; |
|
|
V510= Cnil; |
|
3626 |
goto T938; |
goto T938; |
3627 |
T938:; |
T938:; |
3628 |
V511= Cnil; |
if(!(number_compare((V484),small_fixnum(2))==0)){ |
3629 |
goto T939; |
goto T947;} |
3630 |
T939:; |
if(type_of((V481))==t_fixnum||type_of((V481))==t_bignum){ |
|
V512= Cnil; |
|
|
goto T940; |
|
|
T940:; |
|
|
V513= Cnil; |
|
|
goto T941; |
|
|
T941:; |
|
|
if(((V508))==Cnil){ |
|
|
goto T943;} |
|
|
if(!(number_compare((V512),small_fixnum(1))==0)){ |
|
3631 |
goto T946;} |
goto T946;} |
3632 |
{object V514; |
if(!(type_of((V481))==t_cons)){ |
3633 |
base[6]= (V510); |
goto T947;} |
|
vs_top=(vs_base=base+6)+1; |
|
|
(void) (*Lnk236)(Lclptr236); |
|
|
vs_top=sup; |
|
|
V514= vs_base[0]; |
|
|
base[6]= (V496); |
|
|
base[7]= (V497); |
|
|
base[8]= (V514); |
|
|
base[9]= (V509); |
|
|
vs_top=(vs_base=base+6)+4; |
|
|
(void) (*Lnk232)(); |
|
|
goto T930;} |
|
3634 |
goto T946; |
goto T946; |
3635 |
T946:; |
T946:; |
3636 |
if(!(number_compare((V512),small_fixnum(2))==0)){ |
{object V487; |
3637 |
goto T955;} |
object V488; |
3638 |
if(type_of((V509))==t_fixnum||type_of((V509))==t_bignum){ |
base[6]= (V482); |
|
goto T954;} |
|
|
if(!(type_of((V509))==t_cons)){ |
|
|
goto T955;} |
|
|
goto T954; |
|
|
T954:; |
|
|
{object V515; |
|
|
object V516; |
|
|
base[6]= (V510); |
|
3639 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3640 |
(void) (*Lnk236)(Lclptr236); |
(void) (*Lnk253)(Lclptr253); |
3641 |
vs_top=sup; |
vs_top=sup; |
3642 |
V515= vs_base[0]; |
V487= vs_base[0]; |
3643 |
base[6]= (V511); |
base[6]= (V483); |
3644 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3645 |
(void) (*Lnk236)(Lclptr236); |
(void) (*Lnk253)(Lclptr253); |
3646 |
vs_top=sup; |
vs_top=sup; |
3647 |
V516= vs_base[0]; |
V488= vs_base[0]; |
3648 |
base[6]= (V496); |
base[6]= (V468); |
3649 |
base[7]= (V497); |
base[7]= (V469); |
3650 |
base[8]= (V515); |
base[8]= (V487); |
3651 |
base[9]= (V516); |
base[9]= (V488); |
3652 |
base[10]= (V509); |
base[10]= (V481); |
3653 |
vs_top=(vs_base=base+6)+5; |
vs_top=(vs_base=base+6)+5; |
3654 |
(void) (*Lnk237)(); |
(void) (*Lnk254)(); |
3655 |
goto T930;} |
goto T922;} |
3656 |
goto T955; |
goto T947; |
3657 |
T955:; |
T947:; |
3658 |
if(type_of((V509))==t_fixnum||type_of((V509))==t_bignum){ |
if(type_of((V481))==t_fixnum||type_of((V481))==t_bignum){ |
3659 |
goto T970;} |
goto T962;} |
3660 |
if(!(type_of((V509))==t_cons)){ |
if(!(type_of((V481))==t_cons)){ |
3661 |
goto T971;} |
goto T963;} |
3662 |
goto T970; |
goto T962; |
3663 |
T970:; |
T962:; |
3664 |
base[6]= (V496); |
base[6]= (V468); |
3665 |
base[7]= (V497); |
base[7]= (V469); |
3666 |
base[8]= (V509); |
base[8]= (V481); |
3667 |
base[9]= (V508); |
base[9]= (V480); |
3668 |
vs_top=(vs_base=base+6)+4; |
vs_top=(vs_base=base+6)+4; |
3669 |
(void) (*Lnk238)(); |
(void) (*Lnk255)(); |
3670 |
goto T930; |
goto T922; |
3671 |
goto T971; |
goto T963; |
3672 |
T971:; |
T963:; |
3673 |
if(((V513))==Cnil){ |
if(((V485))==Cnil){ |
3674 |
goto T980;} |
goto T972;} |
3675 |
base[6]= (V496); |
base[6]= (V468); |
3676 |
base[7]= (V497); |
base[7]= (V469); |
3677 |
base[8]= (V508); |
base[8]= (V480); |
3678 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
3679 |
(void) (*Lnk239)(); |
(void) (*Lnk256)(); |
3680 |
goto T930; |
goto T922; |
3681 |
goto T980; |
goto T972; |
3682 |
T980:; |
T972:; |
3683 |
base[6]= (V496); |
base[6]= (V468); |
3684 |
base[7]= (V498); |
base[7]= (V470); |
3685 |
base[8]= (V499); |
base[8]= (V471); |
3686 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
3687 |
(void) (*Lnk240)(); |
(void) (*Lnk257)(); |
3688 |
goto T930; |
goto T922; |
3689 |
goto T943; |
goto T935; |
3690 |
T943:; |
T935:; |
3691 |
base[6]= (V496); |
base[6]= (V468); |
3692 |
base[7]= (V498); |
base[7]= (V470); |
3693 |
base[8]= (V499); |
base[8]= (V471); |
3694 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
3695 |
(void) (*Lnk240)();} |
(void) (*Lnk257)();} |
3696 |
goto T930; |
goto T922; |
3697 |
T930:; |
T922:; |
3698 |
{object *V507=vs_top;object *V506=vs_base; vs_base=V507; |
{object *V479=vs_top;object *V478=vs_base; vs_base=V479; |
3699 |
{register object *base0=base; |
{register object *base0=base; |
3700 |
{register object *base=V507; |
{register object *base=V479; |
3701 |
register object *sup=vs_base+VM79; |
register object *sup=vs_base+VM79; |
3702 |
base0[0]=base0[0]; |
base0[0]=base0[0]; |
3703 |
base[0]=base[0]; |
base[0]=base[0]; |
3704 |
vs_check; |
vs_check; |
3705 |
vs_top=sup; |
vs_top=sup; |
3706 |
base[0]= (V501); |
base[0]= (V473); |
3707 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3708 |
Lclrhash(); |
Lclrhash(); |
3709 |
vs_top=sup; |
vs_top=sup; |
3710 |
}} |
}} |
3711 |
{register object *base0=base; |
{register object *base0=base; |
3712 |
{register object *base=V507; |
{register object *base=V479; |
3713 |
register object *sup=vs_base+VM80; |
register object *sup=vs_base+VM80; |
3714 |
base0[0]=base0[0]; |
base0[0]=base0[0]; |
3715 |
base[0]=base[0]; |
base[0]=base[0]; |
3716 |
vs_check; |
vs_check; |
3717 |
vs_top=sup; |
vs_top=sup; |
3718 |
{object V519; |
{object V491; |
3719 |
V519= make_cons(V501,CMPcdr(V500)); |
V491= make_cons(V473,CMPcdr(V472)); |
3720 |
(V500)->c.c_cdr = (V519);} |
(V472)->c.c_cdr = (V491);} |
3721 |
}} |
}} |
3722 |
vs_base=V506;vs_top=V507;} |
vs_base=V478;vs_top=V479;} |
3723 |
return;} |
return;} |
3724 |
} |
} |
3725 |
} |
} |
3730 |
register object *sup=base+VM81; VC81 |
register object *sup=base+VM81; VC81 |
3731 |
vs_check; |
vs_check; |
3732 |
bds_check; |
bds_check; |
3733 |
{register object V520; |
{register object V492; |
3734 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
3735 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
3736 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
3737 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
3738 |
if(vs_base>=vs_top){vs_top=sup;goto T996;} |
if(vs_base>=vs_top){vs_top=sup;goto T988;} |
3739 |
V520=(base[1]); |
V492=(base[1]); |
3740 |
vs_top=sup; |
vs_top=sup; |
3741 |
goto T997; |
goto T989; |
3742 |
goto T996; |
goto T988; |
3743 |
T996:; |
T988:; |
3744 |
V520= Cnil; |
V492= Cnil; |
3745 |
goto T997; |
goto T989; |
3746 |
T997:; |
T989:; |
3747 |
{register object V521; |
{register object V493; |
3748 |
object V522; |
object V494; |
3749 |
register object V523; |
register object V495; |
3750 |
object V524; |
object V496; |
3751 |
base[4]= (base[0]->c.c_car); |
base[4]= (base[0]->c.c_car); |
3752 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3753 |
(void) (*Lnk199)(Lclptr199); |
(void) (*Lnk216)(Lclptr216); |
3754 |
vs_top=sup; |
vs_top=sup; |
3755 |
V521= vs_base[0]; |
V493= vs_base[0]; |
3756 |
V522= Cnil; |
V494= Cnil; |
3757 |
V523= (VV[124]->s.s_dbind); |
V495= (VV[134]->s.s_dbind); |
3758 |
bds_bind(VV[124],Cnil); |
bds_bind(VV[134],Cnil); |
3759 |
base[3]=MMcons(Cnil,base[0]); |
base[3]=MMcons(Cnil,base[0]); |
3760 |
V524= Cnil; |
V496= Cnil; |
3761 |
if(((V521))!=Cnil){ |
if(((V493))!=Cnil){ |
3762 |
goto T1002;} |
goto T994;} |
3763 |
base[4]= |
base[4]= |
3764 |
make_cclosure_new(LC158,Cnil,base[3],Cdata); |
make_cclosure_new(LC158,Cnil,base[3],Cdata); |
3765 |
base[5]= Cnil; |
base[5]= Cnil; |
3766 |
base[6]= (*(LnkLI241))(); |
base[6]= (*(LnkLI258))(); |
3767 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
3768 |
bds_unwind1; |
bds_unwind1; |
3769 |
return; |
return; |
3770 |
goto T1002; |
goto T994; |
3771 |
T1002:; |
T994:; |
3772 |
V522= (*(LnkLI227))((base[0]->c.c_car)); |
V494= (*(LnkLI244))((base[0]->c.c_car)); |
3773 |
if(((V522))==Cnil){ |
if(((V494))==Cnil){ |
3774 |
goto T1008;} |
goto T1000;} |
3775 |
base[4]= (base[0]->c.c_car); |
base[4]= (base[0]->c.c_car); |
3776 |
base[5]= (V522); |
base[5]= (V494); |
3777 |
base[6]= (V520); |
base[6]= (V492); |
3778 |
base[7]= (V523); |
base[7]= (V495); |
3779 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
3780 |
(void) (*Lnk229)(); |
(void) (*Lnk246)(); |
3781 |
bds_unwind1; |
bds_unwind1; |
3782 |
return; |
return; |
3783 |
goto T1008; |
goto T1000; |
3784 |
T1008:; |
T1000:; |
3785 |
base[4]= |
base[4]= |
3786 |
make_cclosure_new(LC159,Cnil,base[3],Cdata); |
make_cclosure_new(LC159,Cnil,base[3],Cdata); |
3787 |
base[6]= CMPcar((V521)); |
base[6]= CMPcar((V493)); |
3788 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
3789 |
(void) (*Lnk242)(Lclptr242); |
(void) (*Lnk259)(Lclptr259); |
3790 |
vs_top=sup; |
vs_top=sup; |
3791 |
(base[3]->c.c_car)= vs_base[0]; |
(base[3]->c.c_car)= vs_base[0]; |
3792 |
base[5]= (base[3]->c.c_car); |
base[5]= (base[3]->c.c_car); |
3793 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3794 |
(void) (*Lnk188)(); |
(void) (*Lnk205)(); |
3795 |
vs_top=sup; |
vs_top=sup; |
3796 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3797 |
goto T1017;} |
goto T1009;} |
3798 |
base[4]= |
base[4]= |
3799 |
make_cclosure_new(LC160,Cnil,base[3],Cdata); |
make_cclosure_new(LC160,Cnil,base[3],Cdata); |
3800 |
base[5]= (V521); |
base[5]= (V493); |
3801 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
3802 |
(void) (*Lnk188)(); |
(void) (*Lnk205)(); |
3803 |
vs_top=sup; |
vs_top=sup; |
3804 |
V524= vs_base[0]; |
V496= vs_base[0]; |
3805 |
if(((V524))!=Cnil){ |
if(((V496))!=Cnil){ |
3806 |
goto T1016;} |
goto T1008;} |
3807 |
goto T1017; |
goto T1009; |
3808 |
T1017:; |
T1009:; |
3809 |
if(((VFUN_NARGS=1,(*(LnkLI201))((base[0]->c.c_car))))==Cnil){ |
if(((VFUN_NARGS=1,(*(LnkLI218))((base[0]->c.c_car))))==Cnil){ |
3810 |
goto T1016;} |
goto T1008;} |
3811 |
base[4]= (base[0]->c.c_car); |
base[4]= (base[0]->c.c_car); |
3812 |
base[5]= (V520); |
base[5]= (V492); |
3813 |
base[6]= (V523); |
base[6]= (V495); |
3814 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
3815 |
(void) (*Lnk243)(); |
(void) (*Lnk260)(); |
3816 |
bds_unwind1; |
bds_unwind1; |
3817 |
return; |
return; |
3818 |
goto T1016; |
goto T1008; |
3819 |
T1016:; |
T1008:; |
3820 |
if(((VFUN_NARGS=1,(*(LnkLI185))((base[0]->c.c_car))))==Cnil){ |
if(((VFUN_NARGS=1,(*(LnkLI202))((base[0]->c.c_car))))==Cnil){ |
3821 |
goto T1033;} |
goto T1025;} |
3822 |
base[4]= (base[0]->c.c_car); |
base[4]= (base[0]->c.c_car); |
3823 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3824 |
(void) (*Lnk244)(); |
(void) (*Lnk261)(); |
3825 |
bds_unwind1; |
bds_unwind1; |
3826 |
return; |
return; |
3827 |
goto T1033; |
goto T1025; |
3828 |
T1033:; |
T1025:; |
3829 |
if(((V524))==Cnil){ |
if(((V496))==Cnil){ |
3830 |
goto T1037;} |
goto T1029;} |
3831 |
if(((*(LnkLI183))((base[0]->c.c_car)))!=Cnil){ |
if(((*(LnkLI200))((base[0]->c.c_car)))!=Cnil){ |
3832 |
goto T1037;} |
goto T1029;} |
3833 |
{object V525; |
{object V497; |
3834 |
base[4]= (base[0]->c.c_car); |
base[4]= (base[0]->c.c_car); |
3835 |
base[5]= (V521); |
base[5]= (V493); |
3836 |
base[6]= Cnil; |
base[6]= Cnil; |
3837 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
3838 |
(void) (*Lnk245)(); |
(void) (*Lnk262)(); |
3839 |
vs_top=sup; |
vs_top=sup; |
3840 |
V525= vs_base[0]; |
V497= vs_base[0]; |
3841 |
base[4]= (base[0]->c.c_car); |
base[4]= (base[0]->c.c_car); |
3842 |
base[5]= (V525); |
base[5]= (V497); |
3843 |
base[6]= (V520); |
base[6]= (V492); |
3844 |
base[7]= (V523); |
base[7]= (V495); |
3845 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
3846 |
(void) (*Lnk246)(); |
(void) (*Lnk263)(); |
3847 |
bds_unwind1; |
bds_unwind1; |
3848 |
return;} |
return;} |
3849 |
goto T1037; |
goto T1029; |
3850 |
T1037:; |
T1029:; |
3851 |
base[4]= (base[0]->c.c_car); |
base[4]= (base[0]->c.c_car); |
3852 |
base[5]= (V520); |
base[5]= (V492); |
3853 |
base[6]= (V523); |
base[6]= (V495); |
3854 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
3855 |
(void) (*Lnk240)(); |
(void) (*Lnk257)(); |
3856 |
bds_unwind1; |
bds_unwind1; |
3857 |
return;} |
return;} |
3858 |
} |
} |
3864 |
register object *sup=base+VM82; VC82 |
register object *sup=base+VM82; VC82 |
3865 |
vs_check; |
vs_check; |
3866 |
bds_check; |
bds_check; |
3867 |
{object V526; |
{object V498; |
3868 |
register object V527; |
register object V499; |
3869 |
register object V528; |
register object V500; |
3870 |
check_arg(4); |
check_arg(4); |
3871 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
3872 |
V526=(base[1]); |
V498=(base[1]); |
3873 |
V527=(base[2]); |
V499=(base[2]); |
3874 |
V528=(base[3]); |
V500=(base[3]); |
3875 |
vs_top=sup; |
vs_top=sup; |
3876 |
{object V529; |
{object V501; |
3877 |
object V530; |
object V502; |
3878 |
register object V531; |
register object V503; |
3879 |
register object V532; |
register object V504; |
3880 |
object V533; |
object V505; |
3881 |
object V534; |
object V506; |
3882 |
base[8]= (V528); |
base[8]= (V500); |
3883 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
3884 |
Ltype_of(); |
Ltype_of(); |
3885 |
vs_top=sup; |
vs_top=sup; |
3886 |
V529= vs_base[0]; |
V501= vs_base[0]; |
3887 |
V530= STREF(object,(V528),4); |
V502= STREF(object,(V500),4); |
3888 |
V531= Cnil; |
V503= Cnil; |
3889 |
V532= Cnil; |
V504= Cnil; |
3890 |
V533= Cnil; |
V505= Cnil; |
3891 |
base[6]= Cnil; |
base[6]= Cnil; |
3892 |
{object V535= (V530); |
{object V508= V502; |
3893 |
if((V535!= VV[51]))goto T1059; |
if((V508!= VV[59]))goto T1051; |
3894 |
V534= make_cons((V527),Cnil); |
V506= make_cons((V499),Cnil); |
3895 |
goto T1058; |
goto T1050; |
3896 |
goto T1059; |
goto T1051; |
3897 |
T1059:; |
T1051:; |
3898 |
if((V535!= VV[123]))goto T1060; |
if((V508!= VV[133]))goto T1052; |
3899 |
V534= list(2,(V526),(V527)); |
V506= list(2,(V498),(V499)); |
3900 |
goto T1058; |
goto T1050; |
3901 |
goto T1060; |
goto T1052; |
3902 |
T1060:; |
T1052:; |
3903 |
FEerror("The ECASE key value ~s is illegal.",1,V535); |
base[8]= VV[49]; |
3904 |
V534= Cnil; |
base[9]= VV[50]; |
3905 |
goto T1058;} |
base[10]= VV[51]; |
3906 |
goto T1058; |
base[11]= VV[52]; |
3907 |
T1058:; |
base[12]= V502; |
3908 |
{object V536; |
base[13]= VV[53]; |
3909 |
object V537; |
base[14]= VV[136]; |
3910 |
|
base[15]= VV[55]; |
3911 |
|
base[16]= VV[137]; |
3912 |
|
vs_top=(vs_base=base+8)+9; |
3913 |
|
(void) (*Lnk187)(); |
3914 |
|
vs_top=sup; |
3915 |
|
V506= vs_base[0];} |
3916 |
|
goto T1050; |
3917 |
|
T1050:; |
3918 |
|
{object V509; |
3919 |
|
object V510; |
3920 |
base[12]= (base[0]->c.c_car); |
base[12]= (base[0]->c.c_car); |
3921 |
base[13]= (V534); |
base[13]= (V506); |
3922 |
base[14]= VV[86]; |
base[14]= VV[94]; |
3923 |
vs_top=(vs_base=base+12)+3; |
vs_top=(vs_base=base+12)+3; |
3924 |
(void) (*Lnk85)(); |
(void) (*Lnk93)(); |
|
if(vs_base>=vs_top){vs_top=sup;goto T1065;} |
|
|
base[8]=MMcons(vs_base[0],base[0]); |
|
|
vs_base++; |
|
3925 |
if(vs_base>=vs_top){vs_top=sup;goto T1066;} |
if(vs_base>=vs_top){vs_top=sup;goto T1066;} |
3926 |
V536= vs_base[0]; |
base[8]=MMcons(vs_base[0],base[0]); |
3927 |
vs_base++; |
vs_base++; |
3928 |
if(vs_base>=vs_top){vs_top=sup;goto T1067;} |
if(vs_base>=vs_top){vs_top=sup;goto T1067;} |
3929 |
base[9]= vs_base[0]; |
V509= vs_base[0]; |
3930 |
vs_base++; |
vs_base++; |
3931 |
if(vs_base>=vs_top){vs_top=sup;goto T1068;} |
if(vs_base>=vs_top){vs_top=sup;goto T1068;} |
3932 |
V537= vs_base[0]; |
base[9]= vs_base[0]; |
3933 |
vs_base++; |
vs_base++; |
3934 |
if(vs_base>=vs_top){vs_top=sup;goto T1069;} |
if(vs_base>=vs_top){vs_top=sup;goto T1069;} |
3935 |
base[10]=MMcons(vs_base[0],base[8]); |
V510= vs_base[0]; |
3936 |
vs_base++; |
vs_base++; |
3937 |
if(vs_base>=vs_top){vs_top=sup;goto T1070;} |
if(vs_base>=vs_top){vs_top=sup;goto T1070;} |
3938 |
|
base[10]=MMcons(vs_base[0],base[8]); |
3939 |
|
vs_base++; |
3940 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1071;} |
3941 |
base[11]=MMcons(vs_base[0],base[10]); |
base[11]=MMcons(vs_base[0],base[10]); |
3942 |
vs_top=sup; |
vs_top=sup; |
3943 |
goto T1071; |
goto T1072; |
|
goto T1065; |
|
|
T1065:; |
|
|
base[8]=MMcons(Cnil,base[0]); |
|
3944 |
goto T1066; |
goto T1066; |
3945 |
T1066:; |
T1066:; |
3946 |
V536= Cnil; |
base[8]=MMcons(Cnil,base[0]); |
3947 |
goto T1067; |
goto T1067; |
3948 |
T1067:; |
T1067:; |
3949 |
base[9]= Cnil; |
V509= Cnil; |
3950 |
goto T1068; |
goto T1068; |
3951 |
T1068:; |
T1068:; |
3952 |
V537= Cnil; |
base[9]= Cnil; |
3953 |
goto T1069; |
goto T1069; |
3954 |
T1069:; |
T1069:; |
3955 |
base[10]=MMcons(Cnil,base[8]); |
V510= Cnil; |
3956 |
goto T1070; |
goto T1070; |
3957 |
T1070:; |
T1070:; |
3958 |
base[11]=MMcons(Cnil,base[10]); |
base[10]=MMcons(Cnil,base[8]); |
3959 |
goto T1071; |
goto T1071; |
3960 |
T1071:; |
T1071:; |
3961 |
if(((V536))==Cnil){ |
base[11]=MMcons(Cnil,base[10]); |
|
goto T1072;} |
|
|
{register object x= (base[0]->c.c_car),V538= (VV[91]->s.s_dbind); |
|
|
while(V538!=Cnil) |
|
|
if(x==(V538->c.c_car)){ |
|
3962 |
goto T1072; |
goto T1072; |
3963 |
}else V538=V538->c.c_cdr;} |
T1072:; |
3964 |
base[12]= make_cons((base[0]->c.c_car),(VV[91]->s.s_dbind)); |
if(((V509))==Cnil){ |
3965 |
bds_bind(VV[91],base[12]); |
goto T1073;} |
3966 |
|
{register object x= (base[0]->c.c_car),V511= (VV[99]->s.s_dbind); |
3967 |
|
while(V511!=Cnil) |
3968 |
|
if(x==(V511->c.c_car)){ |
3969 |
|
goto T1073; |
3970 |
|
}else V511=V511->c.c_cdr;} |
3971 |
|
base[12]= make_cons((base[0]->c.c_car),(VV[99]->s.s_dbind)); |
3972 |
|
bds_bind(VV[99],base[12]); |
3973 |
base[13]=make_cclosure_new(LC84,Cnil,base[11],Cdata); |
base[13]=make_cclosure_new(LC84,Cnil,base[11],Cdata); |
3974 |
base[13]=MMcons(base[13],base[11]); |
base[13]=MMcons(base[13],base[11]); |
3975 |
base[14]=make_cclosure_new(LC85,Cnil,base[13],Cdata); |
base[14]=make_cclosure_new(LC85,Cnil,base[13],Cdata); |
3976 |
base[14]=MMcons(base[14],base[13]); |
base[14]=MMcons(base[14],base[13]); |
3977 |
if(((base[10]->c.c_car))!=Cnil){ |
if(((base[10]->c.c_car))!=Cnil){ |
3978 |
goto T1079;} |
goto T1080;} |
3979 |
vs_base=vs_top; |
vs_base=vs_top; |
3980 |
L86(base); |
L86(base); |
3981 |
vs_top=sup; |
vs_top=sup; |
3982 |
bds_unwind1; |
bds_unwind1; |
3983 |
goto T1072; |
goto T1073; |
3984 |
goto T1079; |
goto T1080; |
3985 |
T1079:; |
T1080:; |
3986 |
{object V539; |
{object V512; |
3987 |
if((V537)!=Cnil){ |
if((V510)!=Cnil){ |
3988 |
V539= (V537); |
V512= (V510); |
3989 |
goto T1081;} |
goto T1082;} |
3990 |
V539= (((base[11]->c.c_car))==Cnil?Ct:Cnil); |
V512= (((base[11]->c.c_car))==Cnil?Ct:Cnil); |
3991 |
goto T1081; |
goto T1082; |
3992 |
T1081:; |
T1082:; |
3993 |
if(((V539))==Cnil){ |
if(((V512))==Cnil){ |
3994 |
goto T1083;} |
goto T1084;} |
3995 |
bds_unwind1; |
bds_unwind1; |
3996 |
goto T1072; |
goto T1073; |
3997 |
goto T1083; |
goto T1084; |
3998 |
T1083:; |
T1084:; |
3999 |
if(type_of(V527)==t_structure){ |
if(type_of(V499)==t_structure){ |
4000 |
goto T1089;} |
goto T1090;} |
|
goto T1088; |
|
4001 |
goto T1089; |
goto T1089; |
4002 |
T1089:; |
goto T1090; |
4003 |
if(((V527)->str.str_def)==(VV[126])){ |
T1090:; |
4004 |
goto T1086;} |
if(((V499)->str.str_def)==(VV[141])){ |
4005 |
goto T1088; |
goto T1087;} |
4006 |
T1088:;{object V541; |
goto T1089; |
4007 |
V541= (VV[65]->s.s_dbind); |
T1089:;{object V514; |
4008 |
|
V514= (VV[73]->s.s_dbind); |
4009 |
base[15]= small_fixnum(14); |
base[15]= small_fixnum(14); |
4010 |
base[16]= (V527); |
base[16]= (V499); |
4011 |
vs_top=(vs_base=base+15)+2; |
vs_top=(vs_base=base+15)+2; |
4012 |
(void) (*Lnk197)(); |
(void) (*Lnk214)(); |
4013 |
vs_top=sup; |
vs_top=sup; |
4014 |
V542= vs_base[0]; |
V515= vs_base[0]; |
4015 |
if((V541)==(CMPcar(V542))){ |
if((V514)==(CMPcar(V515))){ |
4016 |
goto T1086;}} |
goto T1087;}} |
4017 |
vs_base=vs_top; |
vs_base=vs_top; |
4018 |
L86(base); |
L86(base); |
4019 |
vs_top=sup; |
vs_top=sup; |
4020 |
bds_unwind1; |
bds_unwind1; |
4021 |
goto T1072; |
goto T1073; |
4022 |
goto T1086; |
goto T1087; |
4023 |
T1086:; |
T1087:; |
4024 |
if(((((base[10]->c.c_car))==((V530))?Ct:Cnil))==Cnil){ |
if(((((base[10]->c.c_car))==((V502))?Ct:Cnil))==Cnil){ |
|
goto T1095;} |
|
|
if(!(type_of(base[9])==t_cons||(base[9])==Cnil)){ |
|
4025 |
goto T1096;} |
goto T1096;} |
4026 |
goto T1095; |
if(!(type_of(base[9])==t_cons||(base[9])==Cnil)){ |
4027 |
T1095:; |
goto T1097;} |
4028 |
|
goto T1096; |
4029 |
|
T1096:; |
4030 |
vs_base=vs_top; |
vs_base=vs_top; |
4031 |
L86(base); |
L86(base); |
4032 |
vs_top=sup; |
vs_top=sup; |
4033 |
bds_unwind1; |
bds_unwind1; |
4034 |
goto T1072; |
goto T1073; |
4035 |
goto T1096; |
goto T1097; |
4036 |
T1096:; |
T1097:; |
4037 |
{object V543= (V529); |
{object V517= V501; |
4038 |
if((V543!= VV[40]))goto T1100; |
if((V517!= VV[38]))goto T1101; |
4039 |
V531= STREF(object,(V528),8); |
V503= STREF(object,(V500),8); |
4040 |
V532= STREF(object,(V528),12); |
V504= STREF(object,(V500),12); |
4041 |
if(((V532))==(base[9])){ |
if(((V504))==(base[9])){ |
4042 |
bds_unwind1; |
bds_unwind1; |
4043 |
goto T1072;} |
goto T1073;} |
4044 |
if(!(eql((base[11]->c.c_car),(V531)))){ |
if(!(eql((base[11]->c.c_car),(V503)))){ |
4045 |
goto T1108;} |
goto T1109;} |
4046 |
base[15]= (base[11]->c.c_car); |
base[15]= (base[11]->c.c_car); |
4047 |
base[16]= (V532); |
base[16]= (V504); |
4048 |
base[17]= base[9]; |
base[17]= base[9]; |
4049 |
vs_top=(vs_base=base+15)+3; |
vs_top=(vs_base=base+15)+3; |
4050 |
L83(base); |
L83(base); |
4051 |
vs_top=sup; |
vs_top=sup; |
4052 |
bds_unwind1; |
bds_unwind1; |
4053 |
goto T1072; |
goto T1073; |
4054 |
goto T1108; |
goto T1109; |
4055 |
T1108:; |
T1109:; |
4056 |
vs_base=vs_top; |
vs_base=vs_top; |
4057 |
L85(base); |
L85(base); |
4058 |
vs_top=sup; |
vs_top=sup; |
4059 |
bds_unwind1; |
bds_unwind1; |
4060 |
goto T1072; |
goto T1073; |
4061 |
goto T1100; |
goto T1101; |
4062 |
T1100:; |
T1101:; |
4063 |
if((V543!= VV[42]))goto T1113; |
if((V517!= VV[40]))goto T1114; |
4064 |
V531= STREF(object,(V528),8); |
V503= STREF(object,(V500),8); |
4065 |
V532= STREF(object,(V528),12); |
V504= STREF(object,(V500),12); |
4066 |
V533= STREF(object,(V528),16); |
V505= STREF(object,(V500),16); |
4067 |
if(((V532))==(base[9])){ |
if(((V504))==(base[9])){ |
4068 |
bds_unwind1; |
bds_unwind1; |
4069 |
goto T1072;} |
goto T1073;} |
4070 |
if(((V533))==(base[9])){ |
if(((V505))==(base[9])){ |
4071 |
bds_unwind1; |
bds_unwind1; |
4072 |
goto T1072;} |
goto T1073;} |
4073 |
if(!(eql((base[11]->c.c_car),(V531)))){ |
if(!(eql((base[11]->c.c_car),(V503)))){ |
4074 |
goto T1125;} |
goto T1126;} |
4075 |
base[15]= (base[11]->c.c_car); |
base[15]= (base[11]->c.c_car); |
4076 |
vs_top=(vs_base=base+15)+1; |
vs_top=(vs_base=base+15)+1; |
4077 |
L84(base); |
L84(base); |
4078 |
vs_top=sup; |
vs_top=sup; |
4079 |
bds_unwind1; |
bds_unwind1; |
4080 |
goto T1072; |
goto T1073; |
4081 |
goto T1125; |
goto T1126; |
4082 |
T1125:; |
T1126:; |
4083 |
vs_base=vs_top; |
vs_base=vs_top; |
4084 |
L85(base); |
L85(base); |
4085 |
vs_top=sup; |
vs_top=sup; |
4086 |
bds_unwind1; |
bds_unwind1; |
4087 |
goto T1072; |
goto T1073; |
4088 |
goto T1113; |
goto T1114; |
4089 |
T1113:; |
T1114:; |
4090 |
if((V543!= VV[44]))goto T1128; |
if((V517!= VV[42]))goto T1129; |
4091 |
V531= STREF(object,(V528),8); |
V503= STREF(object,(V500),8); |
4092 |
base[6]= STREF(object,(V528),0); |
base[6]= STREF(object,(V500),0); |
4093 |
if(!(eql((base[11]->c.c_car),(V531)))){ |
if(!(eql((base[11]->c.c_car),(V503)))){ |
4094 |
goto T1134;} |
goto T1135;} |
4095 |
base[15]= |
base[15]= |
4096 |
make_cclosure_new(LC161,Cnil,base[14],Cdata); |
make_cclosure_new(LC161,Cnil,base[14],Cdata); |
4097 |
vs_top=(vs_base=base+15)+1; |
vs_top=(vs_base=base+15)+1; |
4098 |
L87(base); |
L87(base); |
4099 |
vs_top=sup; |
vs_top=sup; |
4100 |
bds_unwind1; |
bds_unwind1; |
4101 |
goto T1072; |
goto T1073; |
4102 |
goto T1134; |
goto T1135; |
4103 |
T1134:; |
T1135:; |
4104 |
vs_base=vs_top; |
vs_base=vs_top; |
4105 |
L85(base); |
L85(base); |
4106 |
vs_top=sup; |
vs_top=sup; |
4107 |
bds_unwind1; |
bds_unwind1; |
4108 |
goto T1072; |
goto T1073; |
4109 |
goto T1128; |
goto T1129; |
4110 |
T1128:; |
T1129:; |
4111 |
if((V543!= VV[39]))goto T1137; |
if((V517!= VV[37]))goto T1138; |
4112 |
base[6]= STREF(object,(V528),0); |
base[6]= STREF(object,(V500),0); |
4113 |
if(!(type_of((base[11]->c.c_car))==t_cons)){ |
if(!(type_of((base[11]->c.c_car))==t_cons)){ |
4114 |
goto T1141;} |
goto T1142;} |
4115 |
vs_base=vs_top; |
vs_base=vs_top; |
4116 |
L86(base); |
L86(base); |
4117 |
vs_top=sup; |
vs_top=sup; |
4118 |
bds_unwind1; |
bds_unwind1; |
4119 |
goto T1072; |
goto T1073; |
4120 |
goto T1141; |
goto T1142; |
4121 |
T1141:; |
T1142:; |
4122 |
base[15]= (base[14]->c.c_car); |
base[15]= (base[14]->c.c_car); |
4123 |
vs_top=(vs_base=base+15)+1; |
vs_top=(vs_base=base+15)+1; |
4124 |
L87(base); |
L87(base); |
4125 |
vs_top=sup; |
vs_top=sup; |
4126 |
bds_unwind1; |
bds_unwind1; |
4127 |
goto T1072; |
goto T1073; |
4128 |
goto T1137; |
goto T1138; |
4129 |
T1137:; |
T1138:; |
4130 |
FEerror("The ECASE key value ~s is illegal.",1,V543); |
base[15]= VV[49]; |
4131 |
bds_unwind1; |
base[16]= VV[50]; |
4132 |
goto T1072;}} |
base[17]= VV[51]; |
4133 |
goto T1072; |
base[18]= VV[52]; |
4134 |
T1072:; |
base[19]= V501; |
4135 |
|
base[20]= VV[53]; |
4136 |
|
base[21]= VV[142]; |
4137 |
|
base[22]= VV[55]; |
4138 |
|
base[23]= VV[143]; |
4139 |
|
vs_top=(vs_base=base+15)+9; |
4140 |
|
(void) (*Lnk187)(); |
4141 |
|
vs_top=sup; |
4142 |
|
bds_unwind1;}} |
4143 |
|
goto T1073; |
4144 |
|
T1073:; |
4145 |
base[12]= (base[8]->c.c_car); |
base[12]= (base[8]->c.c_car); |
4146 |
base[13]= (V534); |
base[13]= (V506); |
4147 |
vs_top=(vs_base=base+12)+2; |
vs_top=(vs_base=base+12)+2; |
4148 |
(void) (*Lnk94)(); |
(void) (*Lnk102)(); |
4149 |
return;}} |
return;}} |
4150 |
} |
} |
4151 |
} |
} |
4156 |
register object *sup=base+VM83; VC83 |
register object *sup=base+VM83; VC83 |
4157 |
vs_check; |
vs_check; |
4158 |
bds_check; |
bds_check; |
4159 |
{register object V544; |
{register object V518; |
4160 |
object V545; |
object V519; |
4161 |
object V546; |
object V520; |
4162 |
check_arg(3); |
check_arg(3); |
4163 |
V544=(base[0]); |
V518=(base[0]); |
4164 |
V545=(base[1]); |
V519=(base[1]); |
4165 |
V546=(base[2]); |
V520=(base[2]); |
4166 |
vs_top=sup; |
vs_top=sup; |
4167 |
goto TTL; |
goto TTL; |
4168 |
TTL:; |
TTL:; |
4169 |
{object V547; |
{object V521; |
4170 |
object V548; |
object V522; |
4171 |
V547= STREF(object,(V546),4); |
V521= STREF(object,(V520),4); |
4172 |
V548= STREF(object,(V546),0); |
V522= STREF(object,(V520),0); |
4173 |
{object V549; |
{object V523; |
4174 |
object V550; |
object V524; |
4175 |
object V551; |
object V525; |
4176 |
object V552; |
object V526; |
4177 |
base[3]= (V544); |
base[3]= (V518); |
4178 |
base[4]= (V545); |
base[4]= (V519); |
4179 |
base[5]= VV[12]; |
base[5]= VV[10]; |
4180 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4181 |
(void) (*Lnk85)(); |
(void) (*Lnk93)(); |
4182 |
if(vs_base>=vs_top){vs_top=sup;goto T1152;} |
if(vs_base>=vs_top){vs_top=sup;goto T1162;} |
4183 |
V549= vs_base[0]; |
V523= vs_base[0]; |
4184 |
vs_base++; |
vs_base++; |
4185 |
if(vs_base>=vs_top){vs_top=sup;goto T1153;} |
if(vs_base>=vs_top){vs_top=sup;goto T1163;} |
4186 |
V550= vs_base[0]; |
V524= vs_base[0]; |
4187 |
vs_base++; |
vs_base++; |
4188 |
if(vs_base>=vs_top){vs_top=sup;goto T1154;} |
if(vs_base>=vs_top){vs_top=sup;goto T1164;} |
4189 |
V551= vs_base[0]; |
V525= vs_base[0]; |
4190 |
vs_base++; |
vs_base++; |
4191 |
if(vs_base>=vs_top){vs_top=sup;goto T1155;} |
if(vs_base>=vs_top){vs_top=sup;goto T1165;} |
4192 |
V552= vs_base[0]; |
V526= vs_base[0]; |
4193 |
vs_top=sup; |
vs_top=sup; |
4194 |
goto T1156; |
goto T1166; |
4195 |
goto T1152; |
goto T1162; |
4196 |
T1152:; |
T1162:; |
4197 |
V549= Cnil; |
V523= Cnil; |
4198 |
goto T1153; |
goto T1163; |
4199 |
T1153:; |
T1163:; |
4200 |
V550= Cnil; |
V524= Cnil; |
|
goto T1154; |
|
|
T1154:; |
|
|
V551= Cnil; |
|
|
goto T1155; |
|
|
T1155:; |
|
|
V552= Cnil; |
|
|
goto T1156; |
|
|
T1156:; |
|
|
if(((V550))==Cnil){ |
|
|
goto T1157;} |
|
|
{register object x= (V544),V553= (VV[91]->s.s_dbind); |
|
|
while(V553!=Cnil) |
|
|
if(x==(V553->c.c_car)){ |
|
|
goto T1157; |
|
|
}else V553=V553->c.c_cdr;} |
|
|
base[3]= make_cons((V544),(VV[91]->s.s_dbind)); |
|
|
bds_bind(VV[91],base[3]); |
|
|
if((V552)==Cnil){ |
|
|
goto T1164;} |
|
|
bds_unwind1; |
|
|
goto T1157; |
|
4201 |
goto T1164; |
goto T1164; |
4202 |
T1164:; |
T1164:; |
4203 |
if(!(((V547))==((V549)))){ |
V525= Cnil; |
4204 |
|
goto T1165; |
4205 |
|
T1165:; |
4206 |
|
V526= Cnil; |
4207 |
|
goto T1166; |
4208 |
|
T1166:; |
4209 |
|
if(((V524))==Cnil){ |
4210 |
goto T1167;} |
goto T1167;} |
4211 |
{object V555; |
{register object x= (V518),V527= (VV[99]->s.s_dbind); |
4212 |
V555= (VFUN_NARGS=3,(*(LnkLI247))((V548),(V551),Cnil)); |
while(V527!=Cnil) |
4213 |
if(((V555))==((V548))){ |
if(x==(V527->c.c_car)){ |
4214 |
|
goto T1167; |
4215 |
|
}else V527=V527->c.c_cdr;} |
4216 |
|
base[3]= make_cons((V518),(VV[99]->s.s_dbind)); |
4217 |
|
bds_bind(VV[99],base[3]); |
4218 |
|
if((V526)==Cnil){ |
4219 |
|
goto T1174;} |
4220 |
bds_unwind1; |
bds_unwind1; |
4221 |
goto T1157;} |
goto T1167; |
4222 |
{object V556; |
goto T1174; |
4223 |
object V557; |
T1174:; |
4224 |
object V558; |
if(!(((V521))==((V523)))){ |
4225 |
base[4]= (V544); |
goto T1177;} |
4226 |
base[5]= (V549); |
{object V529; |
4227 |
base[6]= (V555); |
V529= (VFUN_NARGS=3,(*(LnkLI264))((V522),(V525),Cnil)); |
4228 |
|
if(((V529))==((V522))){ |
4229 |
|
bds_unwind1; |
4230 |
|
goto T1167;} |
4231 |
|
{object V530; |
4232 |
|
object V531; |
4233 |
|
object V532; |
4234 |
|
base[4]= (V518); |
4235 |
|
base[5]= (V523); |
4236 |
|
base[6]= (V529); |
4237 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
4238 |
(void) (*Lnk193)(); |
(void) (*Lnk210)(); |
4239 |
if(vs_base>=vs_top){vs_top=sup;goto T1176;} |
if(vs_base>=vs_top){vs_top=sup;goto T1186;} |
4240 |
V556= vs_base[0]; |
V530= vs_base[0]; |
4241 |
vs_base++; |
vs_base++; |
4242 |
if(vs_base>=vs_top){vs_top=sup;goto T1177;} |
if(vs_base>=vs_top){vs_top=sup;goto T1187;} |
4243 |
V557= vs_base[0]; |
V531= vs_base[0]; |
4244 |
vs_base++; |
vs_base++; |
4245 |
if(vs_base>=vs_top){vs_top=sup;goto T1178;} |
if(vs_base>=vs_top){vs_top=sup;goto T1188;} |
4246 |
V558= vs_base[0]; |
V532= vs_base[0]; |
4247 |
vs_top=sup; |
vs_top=sup; |
4248 |
goto T1179; |
goto T1189; |
4249 |
goto T1176; |
goto T1186; |
4250 |
T1176:; |
T1186:; |
4251 |
V556= Cnil; |
V530= Cnil; |
4252 |
|
goto T1187; |
4253 |
|
T1187:; |
4254 |
|
V531= Cnil; |
4255 |
|
goto T1188; |
4256 |
|
T1188:; |
4257 |
|
V532= Cnil; |
4258 |
|
goto T1189; |
4259 |
|
T1189:; |
4260 |
|
V533= (VFUN_NARGS=4,(*(LnkLI47))((V518),(V530),(V531),(V532))); |
4261 |
|
bds_unwind1; |
4262 |
|
goto T1167;}} |
4263 |
goto T1177; |
goto T1177; |
4264 |
T1177:; |
T1177:; |
4265 |
V557= Cnil; |
{object V534; |
4266 |
goto T1178; |
object V535; |
4267 |
T1178:; |
object V536; |
4268 |
V558= Cnil; |
base[4]= (V518); |
|
goto T1179; |
|
|
T1179:; |
|
|
V559= (VFUN_NARGS=4,(*(LnkLI49))((V544),(V556),(V557),(V558))); |
|
|
bds_unwind1; |
|
|
goto T1157;}} |
|
|
goto T1167; |
|
|
T1167:; |
|
|
{object V560; |
|
|
object V561; |
|
|
object V562; |
|
|
base[4]= (V544); |
|
4269 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4270 |
(void) (*Lnk184)(); |
(void) (*Lnk201)(); |
4271 |
if(vs_base>=vs_top){vs_top=sup;goto T1182;} |
if(vs_base>=vs_top){vs_top=sup;goto T1192;} |
4272 |
V560= vs_base[0]; |
V534= vs_base[0]; |
4273 |
vs_base++; |
vs_base++; |
4274 |
if(vs_base>=vs_top){vs_top=sup;goto T1183;} |
if(vs_base>=vs_top){vs_top=sup;goto T1193;} |
4275 |
V561= vs_base[0]; |
V535= vs_base[0]; |
4276 |
vs_base++; |
vs_base++; |
4277 |
if(vs_base>=vs_top){vs_top=sup;goto T1184;} |
if(vs_base>=vs_top){vs_top=sup;goto T1194;} |
4278 |
V562= vs_base[0]; |
V536= vs_base[0]; |
4279 |
vs_top=sup; |
vs_top=sup; |
4280 |
goto T1185; |
goto T1195; |
4281 |
goto T1182; |
goto T1192; |
4282 |
T1182:; |
T1192:; |
4283 |
V560= Cnil; |
V534= Cnil; |
4284 |
goto T1183; |
goto T1193; |
4285 |
T1183:; |
T1193:; |
4286 |
V561= Cnil; |
V535= Cnil; |
4287 |
goto T1184; |
goto T1194; |
4288 |
T1184:; |
T1194:; |
4289 |
V562= Cnil; |
V536= Cnil; |
4290 |
goto T1185; |
goto T1195; |
4291 |
T1185:; |
T1195:; |
4292 |
V563= (VFUN_NARGS=4,(*(LnkLI49))((V544),(V560),(V561),(V562))); |
V537= (VFUN_NARGS=4,(*(LnkLI47))((V518),(V534),(V535),(V536))); |
4293 |
bds_unwind1;} |
bds_unwind1;} |
4294 |
goto T1157; |
goto T1167; |
4295 |
T1157:; |
T1167:; |
4296 |
base[3]= (V549); |
base[3]= (V523); |
4297 |
base[4]= (V545); |
base[4]= (V519); |
4298 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4299 |
(void) (*Lnk94)(); |
(void) (*Lnk102)(); |
4300 |
return;}} |
return;}} |
4301 |
} |
} |
4302 |
} |
} |
4307 |
register object *sup=base+VM84; VC84 |
register object *sup=base+VM84; VC84 |
4308 |
vs_check; |
vs_check; |
4309 |
bds_check; |
bds_check; |
4310 |
{register object V564; |
{register object V538; |
4311 |
object V565; |
object V539; |
4312 |
object V566; |
object V540; |
4313 |
check_arg(3); |
check_arg(3); |
4314 |
V564=(base[0]); |
V538=(base[0]); |
4315 |
V565=(base[1]); |
V539=(base[1]); |
4316 |
V566=(base[2]); |
V540=(base[2]); |
4317 |
vs_top=sup; |
vs_top=sup; |
4318 |
goto TTL; |
goto TTL; |
4319 |
TTL:; |
TTL:; |
4320 |
{object V567; |
{object V541; |
4321 |
V567= STREF(object,(V566),0); |
V541= STREF(object,(V540),0); |
4322 |
{object V568; |
{object V542; |
4323 |
object V569; |
object V543; |
4324 |
object V570; |
object V544; |
4325 |
object V571; |
object V545; |
4326 |
base[3]= (V564); |
base[3]= (V538); |
4327 |
base[4]= (V565); |
base[4]= (V539); |
4328 |
base[5]= VV[13]; |
base[5]= VV[11]; |
4329 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4330 |
(void) (*Lnk85)(); |
(void) (*Lnk93)(); |
4331 |
if(vs_base>=vs_top){vs_top=sup;goto T1193;} |
if(vs_base>=vs_top){vs_top=sup;goto T1203;} |
4332 |
V568= vs_base[0]; |
V542= vs_base[0]; |
4333 |
vs_base++; |
vs_base++; |
4334 |
if(vs_base>=vs_top){vs_top=sup;goto T1194;} |
if(vs_base>=vs_top){vs_top=sup;goto T1204;} |
4335 |
V569= vs_base[0]; |
V543= vs_base[0]; |
4336 |
vs_base++; |
vs_base++; |
4337 |
if(vs_base>=vs_top){vs_top=sup;goto T1195;} |
if(vs_base>=vs_top){vs_top=sup;goto T1205;} |
4338 |
V570= vs_base[0]; |
V544= vs_base[0]; |
4339 |
vs_base++; |
vs_base++; |
4340 |
if(vs_base>=vs_top){vs_top=sup;goto T1196;} |
if(vs_base>=vs_top){vs_top=sup;goto T1206;} |
4341 |
V571= vs_base[0]; |
V545= vs_base[0]; |
4342 |
vs_top=sup; |
vs_top=sup; |
4343 |
goto T1197; |
goto T1207; |
4344 |
goto T1193; |
goto T1203; |
4345 |
T1193:; |
T1203:; |
4346 |
V568= Cnil; |
V542= Cnil; |
4347 |
goto T1194; |
goto T1204; |
4348 |
T1194:; |
T1204:; |
4349 |
V569= Cnil; |
V543= Cnil; |
|
goto T1195; |
|
|
T1195:; |
|
|
V570= Cnil; |
|
|
goto T1196; |
|
|
T1196:; |
|
|
V571= Cnil; |
|
|
goto T1197; |
|
|
T1197:; |
|
|
if(((V569))==Cnil){ |
|
|
goto T1198;} |
|
|
{register object x= (V564),V572= (VV[91]->s.s_dbind); |
|
|
while(V572!=Cnil) |
|
|
if(x==(V572->c.c_car)){ |
|
|
goto T1198; |
|
|
}else V572=V572->c.c_cdr;} |
|
|
base[3]= make_cons((V564),(VV[91]->s.s_dbind)); |
|
|
bds_bind(VV[91],base[3]); |
|
|
if((V571)==Cnil){ |
|
|
goto T1205;} |
|
|
bds_unwind1; |
|
|
goto T1198; |
|
4350 |
goto T1205; |
goto T1205; |
4351 |
T1205:; |
T1205:; |
4352 |
{object V574; |
V544= Cnil; |
4353 |
V574= (VFUN_NARGS=3,(*(LnkLI247))((V567),(V570),(V568))); |
goto T1206; |
4354 |
if(((V574))==((V567))){ |
T1206:; |
4355 |
|
V545= Cnil; |
4356 |
|
goto T1207; |
4357 |
|
T1207:; |
4358 |
|
if(((V543))==Cnil){ |
4359 |
|
goto T1208;} |
4360 |
|
{register object x= (V538),V546= (VV[99]->s.s_dbind); |
4361 |
|
while(V546!=Cnil) |
4362 |
|
if(x==(V546->c.c_car)){ |
4363 |
|
goto T1208; |
4364 |
|
}else V546=V546->c.c_cdr;} |
4365 |
|
base[3]= make_cons((V538),(VV[99]->s.s_dbind)); |
4366 |
|
bds_bind(VV[99],base[3]); |
4367 |
|
if((V545)==Cnil){ |
4368 |
|
goto T1215;} |
4369 |
bds_unwind1; |
bds_unwind1; |
4370 |
goto T1198;} |
goto T1208; |
4371 |
{object V575; |
goto T1215; |
4372 |
object V576; |
T1215:; |
4373 |
object V577; |
{object V548; |
4374 |
base[4]= (V564); |
V548= (VFUN_NARGS=3,(*(LnkLI264))((V541),(V544),(V542))); |
4375 |
base[5]= (V574); |
if(((V548))==((V541))){ |
4376 |
|
bds_unwind1; |
4377 |
|
goto T1208;} |
4378 |
|
{object V549; |
4379 |
|
object V550; |
4380 |
|
object V551; |
4381 |
|
base[4]= (V538); |
4382 |
|
base[5]= (V548); |
4383 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4384 |
(void) (*Lnk184)(); |
(void) (*Lnk201)(); |
4385 |
if(vs_base>=vs_top){vs_top=sup;goto T1213;} |
if(vs_base>=vs_top){vs_top=sup;goto T1223;} |
4386 |
V575= vs_base[0]; |
V549= vs_base[0]; |
4387 |
vs_base++; |
vs_base++; |
4388 |
if(vs_base>=vs_top){vs_top=sup;goto T1214;} |
if(vs_base>=vs_top){vs_top=sup;goto T1224;} |
4389 |
V576= vs_base[0]; |
V550= vs_base[0]; |
4390 |
vs_base++; |
vs_base++; |
4391 |
if(vs_base>=vs_top){vs_top=sup;goto T1215;} |
if(vs_base>=vs_top){vs_top=sup;goto T1225;} |
4392 |
V577= vs_base[0]; |
V551= vs_base[0]; |
4393 |
vs_top=sup; |
vs_top=sup; |
4394 |
goto T1216; |
goto T1226; |
4395 |
goto T1213; |
goto T1223; |
4396 |
T1213:; |
T1223:; |
4397 |
V575= Cnil; |
V549= Cnil; |
4398 |
goto T1214; |
goto T1224; |
4399 |
T1214:; |
T1224:; |
4400 |
V576= Cnil; |
V550= Cnil; |
4401 |
goto T1215; |
goto T1225; |
4402 |
T1215:; |
T1225:; |
4403 |
V577= Cnil; |
V551= Cnil; |
4404 |
goto T1216; |
goto T1226; |
4405 |
T1216:; |
T1226:; |
4406 |
V578= (VFUN_NARGS=4,(*(LnkLI49))((V564),(V575),(V576),(V577))); |
V552= (VFUN_NARGS=4,(*(LnkLI47))((V538),(V549),(V550),(V551))); |
4407 |
bds_unwind1;}} |
bds_unwind1;}} |
4408 |
goto T1198; |
goto T1208; |
4409 |
T1198:; |
T1208:; |
4410 |
base[3]= (V568); |
base[3]= (V542); |
4411 |
base[4]= (V565); |
base[4]= (V539); |
4412 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4413 |
(void) (*Lnk94)(); |
(void) (*Lnk102)(); |
4414 |
return;}} |
return;}} |
4415 |
} |
} |
4416 |
} |
} |
4421 |
register object *sup=base+VM85; VC85 |
register object *sup=base+VM85; VC85 |
4422 |
vs_check; |
vs_check; |
4423 |
bds_check; |
bds_check; |
4424 |
{register object V579; |
{register object V553; |
4425 |
object V580; |
object V554; |
4426 |
object V581; |
object V555; |
4427 |
check_arg(3); |
check_arg(3); |
4428 |
V579=(base[0]); |
V553=(base[0]); |
4429 |
V580=(base[1]); |
V554=(base[1]); |
4430 |
V581=(base[2]); |
V555=(base[2]); |
4431 |
vs_top=sup; |
vs_top=sup; |
4432 |
goto TTL; |
goto TTL; |
4433 |
TTL:; |
TTL:; |
4434 |
{object V582; |
{object V556; |
4435 |
V582= STREF(object,(V581),0); |
V556= STREF(object,(V555),0); |
4436 |
{register object V583; |
{register object V557; |
4437 |
object V584; |
object V558; |
4438 |
object V585; |
object V559; |
4439 |
object V586; |
object V560; |
4440 |
base[3]= (V579); |
base[3]= (V553); |
4441 |
base[4]= (V580); |
base[4]= (V554); |
4442 |
base[5]= VV[13]; |
base[5]= VV[11]; |
4443 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4444 |
(void) (*Lnk85)(); |
(void) (*Lnk93)(); |
4445 |
if(vs_base>=vs_top){vs_top=sup;goto T1224;} |
if(vs_base>=vs_top){vs_top=sup;goto T1234;} |
4446 |
V583= vs_base[0]; |
V557= vs_base[0]; |
4447 |
vs_base++; |
vs_base++; |
4448 |
if(vs_base>=vs_top){vs_top=sup;goto T1225;} |
if(vs_base>=vs_top){vs_top=sup;goto T1235;} |
4449 |
V584= vs_base[0]; |
V558= vs_base[0]; |
4450 |
vs_base++; |
vs_base++; |
4451 |
if(vs_base>=vs_top){vs_top=sup;goto T1226;} |
if(vs_base>=vs_top){vs_top=sup;goto T1236;} |
4452 |
V585= vs_base[0]; |
V559= vs_base[0]; |
4453 |
vs_base++; |
vs_base++; |
4454 |
if(vs_base>=vs_top){vs_top=sup;goto T1227;} |
if(vs_base>=vs_top){vs_top=sup;goto T1237;} |
4455 |
V586= vs_base[0]; |
V560= vs_base[0]; |
4456 |
vs_top=sup; |
vs_top=sup; |
4457 |
goto T1228; |
goto T1238; |
4458 |
goto T1224; |
goto T1234; |
4459 |
T1224:; |
T1234:; |
4460 |
V583= Cnil; |
V557= Cnil; |
4461 |
goto T1225; |
goto T1235; |
4462 |
T1225:; |
T1235:; |
4463 |
V584= Cnil; |
V558= Cnil; |
|
goto T1226; |
|
|
T1226:; |
|
|
V585= Cnil; |
|
|
goto T1227; |
|
|
T1227:; |
|
|
V586= Cnil; |
|
|
goto T1228; |
|
|
T1228:; |
|
|
if(((V584))==Cnil){ |
|
|
goto T1229;} |
|
|
{register object x= (V579),V587= (VV[91]->s.s_dbind); |
|
|
while(V587!=Cnil) |
|
|
if(x==(V587->c.c_car)){ |
|
|
goto T1229; |
|
|
}else V587=V587->c.c_cdr;} |
|
|
base[3]= make_cons((V579),(VV[91]->s.s_dbind)); |
|
|
bds_bind(VV[91],base[3]); |
|
|
if((V586)==Cnil){ |
|
|
goto T1236;} |
|
|
bds_unwind1; |
|
|
goto T1229; |
|
4464 |
goto T1236; |
goto T1236; |
4465 |
T1236:; |
T1236:; |
4466 |
{object V589; |
V559= Cnil; |
4467 |
object V590; |
goto T1237; |
4468 |
object V591; |
T1237:; |
4469 |
{register object V592; |
V560= Cnil; |
4470 |
V592= (V583); |
goto T1238; |
4471 |
base[7]= (V592); |
T1238:; |
4472 |
base[8]= VV[127]; |
if(((V558))==Cnil){ |
4473 |
|
goto T1239;} |
4474 |
|
{register object x= (V553),V561= (VV[99]->s.s_dbind); |
4475 |
|
while(V561!=Cnil) |
4476 |
|
if(x==(V561->c.c_car)){ |
4477 |
|
goto T1239; |
4478 |
|
}else V561=V561->c.c_cdr;} |
4479 |
|
base[3]= make_cons((V553),(VV[99]->s.s_dbind)); |
4480 |
|
bds_bind(VV[99],base[3]); |
4481 |
|
if((V560)==Cnil){ |
4482 |
|
goto T1246;} |
4483 |
|
bds_unwind1; |
4484 |
|
goto T1239; |
4485 |
|
goto T1246; |
4486 |
|
T1246:; |
4487 |
|
{object V563; |
4488 |
|
object V564; |
4489 |
|
object V565; |
4490 |
|
{register object V566; |
4491 |
|
V566= (V557); |
4492 |
|
base[7]= (V566); |
4493 |
|
base[8]= VV[144]; |
4494 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
4495 |
(void) (*Lnk248)(); |
(void) (*Lnk265)(); |
4496 |
vs_top=sup; |
vs_top=sup; |
4497 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4498 |
goto T1240;} |
goto T1250;} |
4499 |
V589= STREF(object,(V583),0); |
V563= STREF(object,(V557),0); |
4500 |
goto T1238; |
goto T1248; |
4501 |
goto T1240; |
goto T1250; |
4502 |
T1240:; |
T1250:; |
4503 |
base[7]= (V592); |
base[7]= (V566); |
4504 |
base[8]= VV[128]; |
base[8]= VV[145]; |
4505 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
4506 |
(void) (*Lnk248)(); |
(void) (*Lnk265)(); |
4507 |
vs_top=sup; |
vs_top=sup; |
4508 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4509 |
goto T1245;} |
goto T1255;} |
4510 |
V589= STREF(object,(V583),0); |
V563= STREF(object,(V557),0); |
4511 |
goto T1238; |
goto T1248; |
4512 |
goto T1245; |
goto T1255; |
4513 |
T1245:; |
T1255:; |
4514 |
V589= Cnil;} |
V563= Cnil;} |
4515 |
goto T1238; |
goto T1248; |
4516 |
T1238:; |
T1248:; |
4517 |
V590= (VFUN_NARGS=2,(*(LnkLI249))((V589),VV[74])); |
V564= (VFUN_NARGS=2,(*(LnkLI266))((V563),VV[81])); |
4518 |
V591= (VFUN_NARGS=3,(*(LnkLI247))((V582),(V585),(V590))); |
V565= (VFUN_NARGS=3,(*(LnkLI264))((V556),(V559),(V564))); |
4519 |
if(((V591))==((V582))){ |
if(((V565))==((V556))){ |
4520 |
bds_unwind1; |
bds_unwind1; |
4521 |
goto T1229;} |
goto T1239;} |
4522 |
{object V593; |
{object V567; |
4523 |
object V594; |
object V568; |
4524 |
object V595; |
object V569; |
4525 |
base[7]= (V579); |
base[7]= (V553); |
4526 |
base[8]= (V591); |
base[8]= (V565); |
4527 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
4528 |
(void) (*Lnk202)(); |
(void) (*Lnk219)(); |
4529 |
if(vs_base>=vs_top){vs_top=sup;goto T1256;} |
if(vs_base>=vs_top){vs_top=sup;goto T1266;} |
4530 |
V593= vs_base[0]; |
V567= vs_base[0]; |
4531 |
vs_base++; |
vs_base++; |
4532 |
if(vs_base>=vs_top){vs_top=sup;goto T1257;} |
if(vs_base>=vs_top){vs_top=sup;goto T1267;} |
4533 |
V594= vs_base[0]; |
V568= vs_base[0]; |
4534 |
vs_base++; |
vs_base++; |
4535 |
if(vs_base>=vs_top){vs_top=sup;goto T1258;} |
if(vs_base>=vs_top){vs_top=sup;goto T1268;} |
4536 |
V595= vs_base[0]; |
V569= vs_base[0]; |
4537 |
vs_top=sup; |
vs_top=sup; |
4538 |
goto T1259; |
goto T1269; |
4539 |
goto T1256; |
goto T1266; |
4540 |
T1256:; |
T1266:; |
4541 |
V593= Cnil; |
V567= Cnil; |
4542 |
goto T1257; |
goto T1267; |
4543 |
T1257:; |
T1267:; |
4544 |
V594= Cnil; |
V568= Cnil; |
4545 |
goto T1258; |
goto T1268; |
4546 |
T1258:; |
T1268:; |
4547 |
V595= Cnil; |
V569= Cnil; |
4548 |
goto T1259; |
goto T1269; |
4549 |
T1259:; |
T1269:; |
4550 |
V596= (VFUN_NARGS=4,(*(LnkLI49))((V579),(V593),(V594),(V595))); |
V570= (VFUN_NARGS=4,(*(LnkLI47))((V553),(V567),(V568),(V569))); |
4551 |
bds_unwind1;}} |
bds_unwind1;}} |
4552 |
goto T1229; |
goto T1239; |
4553 |
T1229:; |
T1239:; |
4554 |
base[3]= (V583); |
base[3]= (V557); |
4555 |
base[4]= (V580); |
base[4]= (V554); |
4556 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4557 |
(void) (*Lnk94)(); |
(void) (*Lnk102)(); |
4558 |
return;}} |
return;}} |
4559 |
} |
} |
4560 |
} |
} |
4564 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4565 |
register object *sup=base+VM86; VC86 |
register object *sup=base+VM86; VC86 |
4566 |
vs_check; |
vs_check; |
4567 |
{object V597; |
{object V571; |
4568 |
object V598; |
object V572; |
4569 |
object V599; |
object V573; |
4570 |
check_arg(3); |
check_arg(3); |
4571 |
V597=(base[0]); |
V571=(base[0]); |
4572 |
V598=(base[1]); |
V572=(base[1]); |
4573 |
V599=(base[2]); |
V573=(base[2]); |
4574 |
vs_top=sup; |
vs_top=sup; |
4575 |
goto TTL; |
goto TTL; |
4576 |
TTL:; |
TTL:; |
4577 |
if(((*(LnkLI196))((V597)))==Cnil){ |
{object V574; |
4578 |
goto T1266;} |
object V575; |
4579 |
if(type_of(V597)==t_structure){ |
object V576; |
4580 |
goto T1272;} |
object V577; |
4581 |
goto T1270; |
object V578; |
4582 |
goto T1272; |
base[3]= (V571); |
4583 |
T1272:; |
vs_top=(vs_base=base+3)+1; |
4584 |
if(!(((V597)->str.str_def)==(VV[129]))){ |
(void) (*Lnk204)(); |
4585 |
goto T1270;} |
if(vs_base>=vs_top){vs_top=sup;goto T1274;} |
4586 |
V600= STREF(object,(V597),4); |
V574= vs_base[0]; |
4587 |
goto T1268; |
vs_base++; |
4588 |
goto T1270; |
if(vs_base>=vs_top){vs_top=sup;goto T1275;} |
4589 |
T1270:;{object V602; |
V575= vs_base[0]; |
4590 |
V602= (VV[65]->s.s_dbind); |
vs_base++; |
4591 |
base[3]= small_fixnum(14); |
if(vs_base>=vs_top){vs_top=sup;goto T1276;} |
4592 |
base[4]= (V597); |
V576= vs_base[0]; |
4593 |
vs_top=(vs_base=base+3)+2; |
vs_base++; |
4594 |
(void) (*Lnk197)(); |
if(vs_base>=vs_top){vs_top=sup;goto T1277;} |
4595 |
|
V577= vs_base[0]; |
4596 |
|
vs_base++; |
4597 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1278;} |
4598 |
|
V578= vs_base[0]; |
4599 |
vs_top=sup; |
vs_top=sup; |
4600 |
V603= vs_base[0]; |
goto T1279; |
4601 |
if(!((V602)==(CMPcar(V603)))){ |
goto T1274; |
4602 |
goto T1275;}} |
T1274:; |
4603 |
V600= CMPcar(((V597))->cc.cc_turbo[12]); |
V574= Cnil; |
|
goto T1268; |
|
4604 |
goto T1275; |
goto T1275; |
4605 |
T1275:; |
T1275:; |
4606 |
base[3]= VV[66]; |
V575= Cnil; |
4607 |
vs_top=(vs_base=base+3)+1; |
goto T1276; |
4608 |
|
T1276:; |
4609 |
|
V576= Cnil; |
4610 |
|
goto T1277; |
4611 |
|
T1277:; |
4612 |
|
V577= Cnil; |
4613 |
|
goto T1278; |
4614 |
|
T1278:; |
4615 |
|
V578= Cnil; |
4616 |
|
goto T1279; |
4617 |
|
T1279:; |
4618 |
|
{register object V579; |
4619 |
|
object V580; |
4620 |
|
object V581; |
4621 |
|
register object V582; |
4622 |
|
register object V583; |
4623 |
|
object V584; |
4624 |
|
object V585; |
4625 |
|
object V586; |
4626 |
|
V579= (V572); |
4627 |
|
V580= Cnil; |
4628 |
|
V581= Cnil; |
4629 |
|
V582= Cnil; |
4630 |
|
V583= Cnil; |
4631 |
|
V584= Cnil; |
4632 |
|
V585= Cnil; |
4633 |
|
V586= Cnil; |
4634 |
|
{register object V587; |
4635 |
|
object V588; |
4636 |
|
V587= (V576); |
4637 |
|
V588= CMPcar((V587)); |
4638 |
|
goto T1292; |
4639 |
|
T1292:; |
4640 |
|
if(!(((V587))==Cnil)){ |
4641 |
|
goto T1293;} |
4642 |
|
goto T1288; |
4643 |
|
goto T1293; |
4644 |
|
T1293:; |
4645 |
|
if(((V579))!=Cnil){ |
4646 |
|
goto T1297;} |
4647 |
|
V581= Ct; |
4648 |
|
goto T1288; |
4649 |
|
goto T1297; |
4650 |
|
T1297:; |
4651 |
|
{object V589; |
4652 |
|
register object V590; |
4653 |
|
register object V591; |
4654 |
|
object V592; |
4655 |
|
{object V593; |
4656 |
|
V593= CMPcar((V579)); |
4657 |
|
V579= CMPcdr((V579)); |
4658 |
|
V589= (V593);} |
4659 |
|
V590= Cnil; |
4660 |
|
V591= (VV[135]->s.s_dbind); |
4661 |
|
V592= Ct; |
4662 |
|
if(((V588))==(Ct)){ |
4663 |
|
goto T1310;} |
4664 |
|
V590= (*(LnkLI267))((V589)); |
4665 |
|
if(!((((((V590))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
4666 |
|
goto T1315;} |
4667 |
|
V580= Ct; |
4668 |
|
V590= (*(LnkLI268))((V589)); |
4669 |
|
goto T1315; |
4670 |
|
T1315:; |
4671 |
|
if(((V582))!=Cnil){ |
4672 |
|
goto T1323;} |
4673 |
|
V582= (V590); |
4674 |
|
goto T1321; |
4675 |
|
goto T1323; |
4676 |
|
T1323:; |
4677 |
|
if(type_of((V582))==t_cons){ |
4678 |
|
goto T1327;} |
4679 |
|
V583= make_cons((V590),Cnil); |
4680 |
|
V582= make_cons((V582),(V583)); |
4681 |
|
goto T1321; |
4682 |
|
goto T1327; |
4683 |
|
T1327:; |
4684 |
|
{object V594; |
4685 |
|
V594= make_cons((V590),Cnil); |
4686 |
|
(V583)->c.c_cdr = V594; |
4687 |
|
V583= (V594);} |
4688 |
|
goto T1321; |
4689 |
|
T1321:; |
4690 |
|
V591= ((V590))->v.v_self[11]; |
4691 |
|
V592= list(2,VV[146],(V591)); |
4692 |
|
goto T1310; |
4693 |
|
T1310:; |
4694 |
|
V584= make_cons(V590,(V584)); |
4695 |
|
V586= make_cons(V591,(V586)); |
4696 |
|
V585= make_cons(V592,(V585));} |
4697 |
|
V587= CMPcdr((V587)); |
4698 |
|
V588= CMPcar((V587)); |
4699 |
|
goto T1292;} |
4700 |
|
goto T1288; |
4701 |
|
T1288:; |
4702 |
|
if(((V581))==Cnil){ |
4703 |
|
goto T1350;} |
4704 |
|
base[3]= VV[147]; |
4705 |
|
base[4]= (V571); |
4706 |
|
base[5]= CMPmake_fixnum((long)length((V576))); |
4707 |
|
vs_top=(vs_base=base+3)+3; |
4708 |
Lerror(); |
Lerror(); |
|
vs_top=sup; |
|
|
V600= vs_base[0]; |
|
|
goto T1268; |
|
|
T1268:; |
|
|
V604 = (VV[67]->s.s_dbind); |
|
|
if(((V600)->v.v_self[fix(V604)])!=Cnil){ |
|
|
goto T1263;} |
|
|
goto T1264; |
|
|
goto T1266; |
|
|
T1266:; |
|
|
base[3]= (V597); |
|
|
vs_top=(vs_base=base+3)+1; |
|
|
(void) (*Lnk199)(Lclptr199); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])!=Cnil){ |
|
|
goto T1263;} |
|
|
goto T1264; |
|
|
T1264:; |
|
|
base[3]=VV[250]->s.s_gfdef; |
|
|
base[4]= (V597); |
|
|
{object V605; |
|
|
V605= (V598); |
|
|
vs_top=base+5; |
|
|
while(V605!=Cnil) |
|
|
{vs_push((V605)->c.c_car);V605=(V605)->c.c_cdr;} |
|
|
vs_base=base+4;} |
|
|
(void) (*Lnk250)(Lclptr250); |
|
4709 |
return; |
return; |
4710 |
goto T1263; |
goto T1350; |
4711 |
T1263:; |
T1350:; |
4712 |
|
{object V600; |
4713 |
|
object V601; |
4714 |
|
object V602; |
4715 |
|
V600= nreverse((V584)); |
4716 |
|
V601= nreverse((V586)); |
4717 |
|
{object V603; |
4718 |
|
object V604= (V601); |
4719 |
|
if(V604==Cnil){ |
4720 |
|
V602= Cnil; |
4721 |
|
goto T1357;} |
4722 |
|
base[6]=V603=MMcons(Cnil,Cnil); |
4723 |
|
goto T1358; |
4724 |
|
T1358:; |
4725 |
|
(V603->c.c_car)= list(2,VV[146],(V604->c.c_car)); |
4726 |
|
if((V604=MMcdr(V604))==Cnil){ |
4727 |
|
V602= base[6]; |
4728 |
|
goto T1357;} |
4729 |
|
V603=MMcdr(V603)=MMcons(Cnil,Cnil); |
4730 |
|
goto T1358;} |
4731 |
|
goto T1357; |
4732 |
|
T1357:; |
4733 |
{object V606; |
{object V606; |
4734 |
object V607; |
object V607; |
4735 |
object V608; |
object V608; |
4736 |
object V609; |
object V609; |
4737 |
object V610; |
base[6]= (V571); |
4738 |
base[3]= (V597); |
base[7]= (V578); |
4739 |
vs_top=(vs_base=base+3)+1; |
base[8]= (V600); |
4740 |
(void) (*Lnk187)(); |
base[9]= (V601); |
4741 |
if(vs_base>=vs_top){vs_top=sup;goto T1286;} |
base[10]= (V602); |
4742 |
|
base[11]= (V573); |
4743 |
|
vs_top=(vs_base=base+6)+6; |
4744 |
|
(void) (*Lnk269)(); |
4745 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1367;} |
4746 |
V606= vs_base[0]; |
V606= vs_base[0]; |
4747 |
vs_base++; |
vs_base++; |
4748 |
if(vs_base>=vs_top){vs_top=sup;goto T1287;} |
if(vs_base>=vs_top){vs_top=sup;goto T1368;} |
4749 |
V607= vs_base[0]; |
V607= vs_base[0]; |
4750 |
vs_base++; |
vs_base++; |
4751 |
if(vs_base>=vs_top){vs_top=sup;goto T1288;} |
if(vs_base>=vs_top){vs_top=sup;goto T1369;} |
4752 |
V608= vs_base[0]; |
V608= vs_base[0]; |
4753 |
vs_base++; |
vs_base++; |
4754 |
if(vs_base>=vs_top){vs_top=sup;goto T1289;} |
if(vs_base>=vs_top){vs_top=sup;goto T1370;} |
4755 |
V609= vs_base[0]; |
V609= vs_base[0]; |
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T1290;} |
|
|
V610= vs_base[0]; |
|
4756 |
vs_top=sup; |
vs_top=sup; |
4757 |
goto T1291; |
goto T1371; |
4758 |
goto T1286; |
goto T1367; |
4759 |
T1286:; |
T1367:; |
4760 |
V606= Cnil; |
V606= Cnil; |
4761 |
goto T1287; |
goto T1368; |
4762 |
T1287:; |
T1368:; |
4763 |
V607= Cnil; |
V607= Cnil; |
4764 |
goto T1288; |
goto T1369; |
4765 |
T1288:; |
T1369:; |
4766 |
V608= Cnil; |
V608= Cnil; |
|
goto T1289; |
|
|
T1289:; |
|
|
V609= Cnil; |
|
|
goto T1290; |
|
|
T1290:; |
|
|
V610= Cnil; |
|
|
goto T1291; |
|
|
T1291:; |
|
|
{register object V611; |
|
|
object V612; |
|
|
object V613; |
|
|
register object V614; |
|
|
register object V615; |
|
|
object V616; |
|
|
object V617; |
|
|
object V618; |
|
|
V611= (V598); |
|
|
V612= Cnil; |
|
|
V613= Cnil; |
|
|
V614= Cnil; |
|
|
V615= Cnil; |
|
|
V616= Cnil; |
|
|
V617= Cnil; |
|
|
V618= Cnil; |
|
|
{register object V619; |
|
|
object V620; |
|
|
V619= (V608); |
|
|
V620= CMPcar((V619)); |
|
|
goto T1304; |
|
|
T1304:; |
|
|
if(!(((V619))==Cnil)){ |
|
|
goto T1305;} |
|
|
goto T1300; |
|
|
goto T1305; |
|
|
T1305:; |
|
|
if(((V611))!=Cnil){ |
|
|
goto T1309;} |
|
|
V613= Ct; |
|
|
goto T1300; |
|
|
goto T1309; |
|
|
T1309:; |
|
|
{object V621; |
|
|
register object V622; |
|
|
register object V623; |
|
|
object V624; |
|
|
{object V625; |
|
|
V625= CMPcar((V611)); |
|
|
V611= CMPcdr((V611)); |
|
|
V621= (V625);} |
|
|
V622= Cnil; |
|
|
V623= (VV[125]->s.s_dbind); |
|
|
V624= Ct; |
|
|
if(((V620))==(Ct)){ |
|
|
goto T1322;} |
|
|
V622= (*(LnkLI251))((V621)); |
|
|
if(!((((((V622))->v.v_self[8])==(Ct)?Ct:Cnil))==Cnil)){ |
|
|
goto T1327;} |
|
|
V612= Ct; |
|
|
V622= (*(LnkLI252))((V621)); |
|
|
goto T1327; |
|
|
T1327:; |
|
|
if(((V614))!=Cnil){ |
|
|
goto T1335;} |
|
|
V614= (V622); |
|
|
goto T1333; |
|
|
goto T1335; |
|
|
T1335:; |
|
|
if(type_of((V614))==t_cons){ |
|
|
goto T1339;} |
|
|
V615= make_cons((V622),Cnil); |
|
|
V614= make_cons((V614),(V615)); |
|
|
goto T1333; |
|
|
goto T1339; |
|
|
T1339:; |
|
|
{object V626; |
|
|
V626= make_cons((V622),Cnil); |
|
|
(V615)->c.c_cdr = V626; |
|
|
V615= (V626);} |
|
|
goto T1333; |
|
|
T1333:; |
|
|
V623= ((V622))->v.v_self[11]; |
|
|
V624= list(2,VV[130],(V623)); |
|
|
goto T1322; |
|
|
T1322:; |
|
|
V616= make_cons(V622,(V616)); |
|
|
V618= make_cons(V623,(V618)); |
|
|
V617= make_cons(V624,(V617));} |
|
|
V619= CMPcdr((V619)); |
|
|
V620= CMPcar((V619)); |
|
|
goto T1304;} |
|
|
goto T1300; |
|
|
T1300:; |
|
|
if(((V613))==Cnil){ |
|
|
goto T1362;} |
|
|
base[3]= VV[131]; |
|
|
base[4]= (V597); |
|
|
base[5]= CMPmake_fixnum((long)length((V608))); |
|
|
vs_top=(vs_base=base+3)+3; |
|
|
Lerror(); |
|
|
return; |
|
|
goto T1362; |
|
|
T1362:; |
|
|
{object V632; |
|
|
object V633; |
|
|
object V634; |
|
|
V632= nreverse((V616)); |
|
|
V633= nreverse((V618)); |
|
|
{object V635; |
|
|
object V636= (V633); |
|
|
if(V636==Cnil){ |
|
|
V634= Cnil; |
|
|
goto T1369;} |
|
|
base[6]=V635=MMcons(Cnil,Cnil); |
|
4767 |
goto T1370; |
goto T1370; |
4768 |
T1370:; |
T1370:; |
4769 |
(V635->c.c_car)= list(2,VV[130],(V636->c.c_car)); |
V609= Cnil; |
4770 |
if((V636=MMcdr(V636))==Cnil){ |
goto T1371; |
4771 |
V634= base[6]; |
T1371:; |
4772 |
goto T1369;} |
base[6]= (V606); |
4773 |
V635=MMcdr(V635)=MMcons(Cnil,Cnil); |
base[7]= (V607); |
4774 |
goto T1370;} |
base[8]= (V582); |
4775 |
goto T1369; |
base[9]= (V580); |
4776 |
T1369:; |
base[10]= (V608); |
4777 |
{object V638; |
base[11]= (V609); |
|
object V639; |
|
|
object V640; |
|
|
object V641; |
|
|
base[6]= (V597); |
|
|
base[7]= (V610); |
|
|
base[8]= (V632); |
|
|
base[9]= (V633); |
|
|
base[10]= (V634); |
|
|
base[11]= (V599); |
|
|
vs_top=(vs_base=base+6)+6; |
|
|
(void) (*Lnk253)(); |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T1379;} |
|
|
V638= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T1380;} |
|
|
V639= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T1381;} |
|
|
V640= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T1382;} |
|
|
V641= vs_base[0]; |
|
|
vs_top=sup; |
|
|
goto T1383; |
|
|
goto T1379; |
|
|
T1379:; |
|
|
V638= Cnil; |
|
|
goto T1380; |
|
|
T1380:; |
|
|
V639= Cnil; |
|
|
goto T1381; |
|
|
T1381:; |
|
|
V640= Cnil; |
|
|
goto T1382; |
|
|
T1382:; |
|
|
V641= Cnil; |
|
|
goto T1383; |
|
|
T1383:; |
|
|
base[6]= (V638); |
|
|
base[7]= (V639); |
|
|
base[8]= (V614); |
|
|
base[9]= (V612); |
|
|
base[10]= (V640); |
|
|
base[11]= (V641); |
|
4778 |
vs_top=(vs_base=base+6)+6; |
vs_top=(vs_base=base+6)+6; |
4779 |
return;}}}} |
return;}}}} |
4780 |
} |
} |
4785 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4786 |
register object *sup=base+VM87; VC87 |
register object *sup=base+VM87; VC87 |
4787 |
vs_check; |
vs_check; |
4788 |
{register object V642; |
{register object V610; |
4789 |
object V643; |
object V611; |
4790 |
object V644; |
object V612; |
4791 |
object V645; |
object V613; |
4792 |
object V646; |
object V614; |
4793 |
object V647; |
object V615; |
4794 |
check_arg(6); |
check_arg(6); |
4795 |
V642=(base[0]); |
V610=(base[0]); |
4796 |
V643=(base[1]); |
V611=(base[1]); |
4797 |
V644=(base[2]); |
V612=(base[2]); |
4798 |
V645=(base[3]); |
V613=(base[3]); |
4799 |
V646=(base[4]); |
V614=(base[4]); |
4800 |
V647=(base[5]); |
V615=(base[5]); |
4801 |
vs_top=sup; |
vs_top=sup; |
4802 |
goto TTL; |
goto TTL; |
4803 |
TTL:; |
TTL:; |
4804 |
{object V648; |
{object V616; |
4805 |
object V649; |
object V617; |
4806 |
object V650; |
object V618; |
4807 |
V648= (((V647))==(VV[86])?Ct:Cnil); |
V616= (((V615))==(VV[94])?Ct:Cnil); |
4808 |
if(!(((V647))==(VV[13]))){ |
if(!(((V615))==(VV[11]))){ |
4809 |
goto T1392;} |
goto T1380;} |
4810 |
V649= Ct; |
V617= Ct; |
4811 |
goto T1391; |
goto T1379; |
4812 |
goto T1392; |
goto T1380; |
4813 |
T1392:; |
T1380:; |
4814 |
V649= (((V647))==(VV[86])?Ct:Cnil); |
V617= (((V615))==(VV[94])?Ct:Cnil); |
4815 |
goto T1391; |
goto T1379; |
4816 |
T1391:; |
T1379:; |
4817 |
if(!(((V643))==Cnil)){ |
if(!(((V611))==Cnil)){ |
4818 |
goto T1395;} |
goto T1383;} |
4819 |
V650= Ct; |
V618= Ct; |
4820 |
goto T1394; |
goto T1382; |
4821 |
|
goto T1383; |
4822 |
|
T1383:; |
4823 |
|
V618= STREF(object,(V611),36); |
4824 |
|
goto T1382; |
4825 |
|
T1382:; |
4826 |
|
{register object V619; |
4827 |
|
object V620; |
4828 |
|
if(((V618))==Cnil){ |
4829 |
|
goto T1387;} |
4830 |
|
base[9]= (V610); |
4831 |
|
base[10]= (V614); |
4832 |
|
vs_top=(vs_base=base+9)+2; |
4833 |
|
(void) (*Lnk270)(); |
4834 |
|
goto T1385; |
4835 |
|
goto T1387; |
4836 |
|
T1387:; |
4837 |
|
base[9]= (V610); |
4838 |
|
base[10]= (V613); |
4839 |
|
vs_top=(vs_base=base+9)+2; |
4840 |
|
(void) (*Lnk271)(Lclptr271); |
4841 |
|
goto T1385; |
4842 |
|
T1385:; |
4843 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1393;} |
4844 |
|
V619= vs_base[0]; |
4845 |
|
vs_base++; |
4846 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1394;} |
4847 |
|
V620= vs_base[0]; |
4848 |
|
vs_top=sup; |
4849 |
goto T1395; |
goto T1395; |
4850 |
T1395:; |
goto T1393; |
4851 |
V650= STREF(object,(V643),36); |
T1393:; |
4852 |
|
V619= Cnil; |
4853 |
goto T1394; |
goto T1394; |
4854 |
T1394:; |
T1394:; |
4855 |
{register object V651; |
V620= Cnil; |
4856 |
object V652; |
goto T1395; |
4857 |
if(((V650))==Cnil){ |
T1395:; |
4858 |
goto T1399;} |
{object V621; |
4859 |
base[9]= (V642); |
if(((V618))!=Cnil){ |
4860 |
base[10]= (V646); |
goto T1397;} |
4861 |
vs_top=(vs_base=base+9)+2; |
if(((V620))==Cnil){ |
4862 |
(void) (*Lnk254)(); |
goto T1398;} |
|
goto T1397; |
|
|
goto T1399; |
|
|
T1399:; |
|
|
base[9]= (V642); |
|
|
base[10]= (V645); |
|
|
vs_top=(vs_base=base+9)+2; |
|
|
(void) (*Lnk255)(Lclptr255); |
|
4863 |
goto T1397; |
goto T1397; |
4864 |
T1397:; |
T1397:; |
4865 |
if(vs_base>=vs_top){vs_top=sup;goto T1405;} |
if((V617)==Cnil){ |
4866 |
V651= vs_base[0]; |
V622= Cnil; |
4867 |
vs_base++; |
goto T1402;} |
4868 |
if(vs_base>=vs_top){vs_top=sup;goto T1406;} |
V622= (V612); |
4869 |
V652= vs_base[0]; |
goto T1402; |
4870 |
vs_top=sup; |
T1402:; |
4871 |
goto T1407; |
V623= (VFUN_NARGS=6,(*(LnkLI233))((V610),(V619),(V614),Cnil,V622,(V620))); |
4872 |
goto T1405; |
if((V617)==Cnil){ |
4873 |
T1405:; |
V624= Cnil; |
4874 |
V651= Cnil; |
goto T1403;} |
4875 |
goto T1406; |
V624= (V612); |
4876 |
T1406:; |
goto T1403; |
4877 |
V652= Cnil; |
T1403:; |
4878 |
goto T1407; |
V621= ( |
4879 |
T1407:; |
V625 = /* INLINE-ARGS */V623, |
4880 |
{object V653; |
(type_of(V625) == t_sfun ?(*((V625)->sfn.sfn_self)): |
4881 |
if(((V650))!=Cnil){ |
(fcall.argd=2,type_of(V625)==t_vfun) ? |
4882 |
goto T1409;} |
(*((V625)->sfn.sfn_self)): |
4883 |
if(((V652))==Cnil){ |
(fcall.fun=(V625),fcalln))(Cnil,V624)); |
4884 |
goto T1410;} |
goto T1396; |
4885 |
goto T1409; |
goto T1398; |
4886 |
T1409:; |
T1398:; |
4887 |
V654 = (V642); |
V621= (*(LnkLI272))((V610)); |
4888 |
V655 = (V651); |
goto T1396; |
4889 |
V656 = (V646); |
T1396:; |
4890 |
if((V649)==Cnil){ |
{object V626; |
4891 |
V657= Cnil; |
object V627; |
4892 |
goto T1414;} |
if((V616)==Cnil){ |
|
V657= (V644); |
|
|
goto T1414; |
|
|
T1414:; |
|
|
V658 = (V652); |
|
|
V659= (VFUN_NARGS=6,(*(LnkLI216))(V654,V655,V656,Cnil,V657,V658)); |
|
|
if((V649)==Cnil){ |
|
|
V660= Cnil; |
|
|
goto T1415;} |
|
|
V660= (V644); |
|
|
goto T1415; |
|
|
T1415:; |
|
|
V653= ( |
|
|
V661 = /* INLINE-ARGS */V659, |
|
|
(type_of(V661) == t_sfun ?(*((V661)->sfn.sfn_self)): |
|
|
(fcall.argd=2,type_of(V661)==t_vfun) ? |
|
|
(*((V661)->sfn.sfn_self)): |
|
|
(fcall.fun=(V661),fcalln))(Cnil,V660)); |
|
|
goto T1408; |
|
|
goto T1410; |
|
|
T1410:; |
|
|
V653= (*(LnkLI256))((V642)); |
|
|
goto T1408; |
|
|
T1408:; |
|
|
{object V662; |
|
|
object V663; |
|
|
if((V648)==Cnil){ |
|
4893 |
base[9]= Cnil; |
base[9]= Cnil; |
4894 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
4895 |
goto T1416;} |
goto T1404;} |
4896 |
if((V652)==Cnil){ |
if((V620)==Cnil){ |
4897 |
base[9]= Cnil; |
base[9]= Cnil; |
4898 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
4899 |
goto T1416;} |
goto T1404;} |
4900 |
if((V651)==Cnil){ |
if((V619)==Cnil){ |
4901 |
base[9]= Cnil; |
base[9]= Cnil; |
4902 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
4903 |
goto T1416;} |
goto T1404;} |
4904 |
base[9]= (V642); |
base[9]= (V610); |
4905 |
base[10]= (V643); |
base[10]= (V611); |
4906 |
base[11]= (V645); |
base[11]= (V613); |
4907 |
base[12]= (V651); |
base[12]= (V619); |
4908 |
vs_top=(vs_base=base+9)+4; |
vs_top=(vs_base=base+9)+4; |
4909 |
(void) (*Lnk257)(); |
(void) (*Lnk273)(); |
4910 |
goto T1416; |
goto T1404; |
4911 |
T1416:; |
T1404:; |
4912 |
if(vs_base>=vs_top){vs_top=sup;goto T1421;} |
if(vs_base>=vs_top){vs_top=sup;goto T1409;} |
4913 |
V662= vs_base[0]; |
V626= vs_base[0]; |
4914 |
vs_base++; |
vs_base++; |
4915 |
if(vs_base>=vs_top){vs_top=sup;goto T1422;} |
if(vs_base>=vs_top){vs_top=sup;goto T1410;} |
4916 |
V663= vs_base[0]; |
V627= vs_base[0]; |
4917 |
vs_top=sup; |
vs_top=sup; |
4918 |
goto T1423; |
goto T1411; |
4919 |
goto T1421; |
goto T1409; |
4920 |
T1421:; |
T1409:; |
4921 |
V662= Cnil; |
V626= Cnil; |
4922 |
goto T1422; |
goto T1410; |
4923 |
T1422:; |
T1410:; |
4924 |
V663= Cnil; |
V627= Cnil; |
4925 |
goto T1423; |
goto T1411; |
4926 |
T1423:; |
T1411:; |
4927 |
if(!(type_of((V662))==t_fixnum||type_of((V662))==t_bignum)){ |
if(!(type_of((V626))==t_fixnum||type_of((V626))==t_bignum)){ |
4928 |
goto T1426;} |
goto T1414;} |
4929 |
base[9]= (V662); |
base[9]= (V626); |
4930 |
goto T1424; |
goto T1412; |
4931 |
goto T1426; |
goto T1414; |
4932 |
T1426:; |
T1414:; |
4933 |
base[9]= (V653); |
base[9]= (V621); |
4934 |
goto T1424; |
goto T1412; |
4935 |
T1424:; |
T1412:; |
4936 |
base[10]= (V651); |
base[10]= (V619); |
4937 |
base[11]= (V663); |
base[11]= (V627); |
4938 |
base[12]= (V662); |
base[12]= (V626); |
4939 |
vs_top=(vs_base=base+9)+4; |
vs_top=(vs_base=base+9)+4; |
4940 |
return;}}}} |
return;}}}} |
4941 |
} |
} |
4946 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4947 |
register object *sup=base+VM88; VC88 |
register object *sup=base+VM88; VC88 |
4948 |
vs_check; |
vs_check; |
4949 |
{object V664; |
{object V628; |
4950 |
object V665; |
object V629; |
4951 |
object V666; |
object V630; |
4952 |
object V667; |
object V631; |
4953 |
check_arg(4); |
check_arg(4); |
4954 |
V664=(base[0]); |
V628=(base[0]); |
4955 |
V665=(base[1]); |
V629=(base[1]); |
4956 |
V666=(base[2]); |
V630=(base[2]); |
4957 |
V667=(base[3]); |
V631=(base[3]); |
4958 |
vs_top=sup; |
vs_top=sup; |
4959 |
goto TTL; |
goto TTL; |
4960 |
TTL:; |
TTL:; |
4961 |
{object V668; |
{object V632; |
4962 |
object V669; |
object V633; |
4963 |
V668= STREF(object,(V665),24); |
V632= STREF(object,(V629),24); |
4964 |
{object V670= (V668); |
{object V634= (V632); |
4965 |
if((V670!= VV[51]))goto T1433; |
if((V634!= VV[59]))goto T1421; |
4966 |
V669= CMPcar((V666)); |
V633= CMPcar((V630)); |
4967 |
goto T1432; |
goto T1420; |
4968 |
goto T1433; |
goto T1421; |
4969 |
T1433:; |
T1421:; |
4970 |
if((V670!= VV[123]))goto T1434; |
if((V634!= VV[133]))goto T1422; |
4971 |
V669= CMPcadr((V666)); |
V633= CMPcadr((V630)); |
4972 |
goto T1432; |
goto T1420; |
4973 |
goto T1434; |
goto T1422; |
4974 |
T1434:; |
T1422:; |
4975 |
if((V670!= VV[258]))goto T1435; |
if((V634!= VV[274]))goto T1423; |
4976 |
V669= CMPcar((V666)); |
V633= CMPcar((V630)); |
4977 |
goto T1432; |
goto T1420; |
4978 |
goto T1435; |
goto T1423; |
4979 |
T1435:; |
T1423:; |
4980 |
V669= Cnil;} |
V633= Cnil;} |
4981 |
goto T1432; |
goto T1420; |
4982 |
T1432:; |
T1420:; |
4983 |
base[6]= (V668); |
base[6]= (V632); |
4984 |
base[7]= (V669); |
base[7]= (V633); |
4985 |
base[8]= (V667); |
base[8]= (V631); |
4986 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
4987 |
(void) (*Lnk259)(); |
(void) (*Lnk275)(); |
4988 |
return;} |
return;} |
4989 |
} |
} |
4990 |
} |
} |
4994 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4995 |
register object *sup=base+VM89; VC89 |
register object *sup=base+VM89; VC89 |
4996 |
vs_check; |
vs_check; |
4997 |
{object V671; |
{object V635; |
4998 |
object V672; |
object V636; |
4999 |
object V673; |
object V637; |
5000 |
check_arg(3); |
check_arg(3); |
5001 |
V671=(base[0]); |
V635=(base[0]); |
5002 |
V672=(base[1]); |
V636=(base[1]); |
5003 |
V673=(base[2]); |
V637=(base[2]); |
5004 |
vs_top=sup; |
vs_top=sup; |
5005 |
goto TTL; |
goto TTL; |
5006 |
TTL:; |
TTL:; |
5007 |
{object V674; |
{object V638; |
5008 |
object V675; |
object V639; |
5009 |
object V676; |
object V640; |
5010 |
V674= list(2,VV[130],(V673)); |
V638= list(2,VV[146],(V637)); |
5011 |
if(!(((V672))==(VV[123]))){ |
if(!(((V636))==(VV[133]))){ |
5012 |
goto T1442;} |
goto T1430;} |
5013 |
V675= list(2,Ct,(V674)); |
V639= list(2,Ct,(V638)); |
5014 |
goto T1440; |
goto T1428; |
5015 |
goto T1442; |
goto T1430; |
5016 |
T1442:; |
T1430:; |
5017 |
V675= make_cons((V674),Cnil); |
V639= make_cons((V638),Cnil); |
5018 |
goto T1440; |
goto T1428; |
5019 |
T1440:; |
T1428:; |
5020 |
base[6]= (V671); |
base[6]= (V635); |
5021 |
base[7]= (V675); |
base[7]= (V639); |
5022 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
5023 |
(void) (*Lnk254)(); |
(void) (*Lnk270)(); |
5024 |
vs_top=sup; |
vs_top=sup; |
5025 |
V676= vs_base[0]; |
V640= vs_base[0]; |
5026 |
base[6]= (V672); |
base[6]= (V636); |
5027 |
base[7]= (V673); |
base[7]= (V637); |
5028 |
base[8]= (V676); |
base[8]= (V640); |
5029 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
5030 |
(void) (*Lnk259)(); |
(void) (*Lnk275)(); |
5031 |
return;} |
return;} |
5032 |
} |
} |
5033 |
} |
} |
5037 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5038 |
register object *sup=base+VM90; VC90 |
register object *sup=base+VM90; VC90 |
5039 |
vs_check; |
vs_check; |
5040 |
{object V677; |
{object V641; |
5041 |
object V678; |
object V642; |
5042 |
object V679; |
object V643; |
5043 |
check_arg(3); |
check_arg(3); |
5044 |
V677=(base[0]); |
V641=(base[0]); |
5045 |
V678=(base[1]); |
V642=(base[1]); |
5046 |
V679=(base[2]); |
V643=(base[2]); |
5047 |
vs_top=sup; |
vs_top=sup; |
5048 |
goto TTL; |
goto TTL; |
5049 |
TTL:; |
TTL:; |
5050 |
{register object V680; |
{register object V644; |
5051 |
register object V681; |
register object V645; |
5052 |
V680= (V679); |
V644= (V643); |
5053 |
V681= CMPcar((V680)); |
V645= CMPcar((V644)); |
5054 |
goto T1454; |
goto T1442; |
5055 |
T1454:; |
T1442:; |
5056 |
if(!(((V680))==Cnil)){ |
if(!(((V644))==Cnil)){ |
5057 |
goto T1455;} |
goto T1443;} |
5058 |
goto T1450; |
goto T1438; |
5059 |
goto T1455; |
goto T1443; |
5060 |
T1455:; |
T1443:; |
5061 |
if(!(type_of((V681))==t_cons)){ |
if(!(type_of((V645))==t_cons)){ |
5062 |
goto T1463;} |
goto T1451;} |
5063 |
if(((*(LnkLI260))((V681)))==Cnil){ |
if(((*(LnkLI276))((V645)))==Cnil){ |
5064 |
goto T1459;} |
goto T1447;} |
5065 |
goto T1461; |
goto T1449; |
5066 |
goto T1463; |
goto T1451; |
5067 |
T1463:; |
T1451:; |
5068 |
base[4]= (V681); |
base[4]= (V645); |
5069 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5070 |
(void) (*Lnk261)(Lclptr261); |
(void) (*Lnk277)(Lclptr277); |
5071 |
vs_top=sup; |
vs_top=sup; |
5072 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5073 |
goto T1459;} |
goto T1447;} |
5074 |
goto T1461; |
goto T1449; |
5075 |
T1461:; |
T1449:; |
5076 |
base[4]= Cnil; |
base[4]= Cnil; |
5077 |
base[5]= Cnil; |
base[5]= Cnil; |
5078 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
5079 |
return; |
return; |
5080 |
goto T1459; |
goto T1447; |
5081 |
T1459:; |
T1447:; |
5082 |
V680= CMPcdr((V680)); |
V644= CMPcdr((V644)); |
5083 |
V681= CMPcar((V680)); |
V645= CMPcar((V644)); |
5084 |
goto T1454;} |
goto T1442;} |
5085 |
goto T1450; |
goto T1438; |
5086 |
T1450:; |
T1438:; |
5087 |
{object V682; |
{object V646; |
5088 |
object V683; |
object V647; |
5089 |
register object V684; |
register object V648; |
5090 |
object V685; |
object V649; |
5091 |
V682= CMPcar((V679)); |
V646= CMPcar((V643)); |
5092 |
V683= (((((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil))==Cnil?Ct:Cnil); |
V647= (((((VV[79]->s.s_dbind))==(VV[80])?Ct:Cnil))==Cnil?Ct:Cnil); |
5093 |
if(((V678))==Cnil){ |
if(((V642))==Cnil){ |
5094 |
|
goto T1465;} |
5095 |
|
if(!(type_of((V646))==t_cons)){ |
5096 |
|
goto T1468;} |
5097 |
|
if(((*(LnkLI278))((V646)))!=Cnil){ |
5098 |
|
goto T1470;} |
5099 |
|
V648= Cnil; |
5100 |
|
goto T1463; |
5101 |
|
goto T1470; |
5102 |
|
T1470:; |
5103 |
|
base[7]= (V646); |
5104 |
|
vs_top=(vs_base=base+7)+1; |
5105 |
|
(void) (*Lnk248)(); |
5106 |
|
vs_top=sup; |
5107 |
|
V648= vs_base[0]; |
5108 |
|
goto T1463; |
5109 |
|
goto T1468; |
5110 |
|
T1468:;{object V651; |
5111 |
|
V651= (VV[148]->s.s_dbind); |
5112 |
|
if(((V647))==Cnil){ |
5113 |
goto T1477;} |
goto T1477;} |
5114 |
if(!(type_of((V682))==t_cons)){ |
V652= (*(LnkLI279))((V642)); |
|
goto T1480;} |
|
|
if(((*(LnkLI262))((V682)))!=Cnil){ |
|
|
goto T1482;} |
|
|
V684= Cnil; |
|
5115 |
goto T1475; |
goto T1475; |
5116 |
goto T1482; |
goto T1477; |
5117 |
T1482:; |
T1477:; |
5118 |
base[7]= (V682); |
base[7]= (V642); |
5119 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
5120 |
(void) (*Lnk231)(); |
(void) (*Lnk280)(Lclptr280); |
5121 |
vs_top=sup; |
vs_top=sup; |
5122 |
V684= vs_base[0]; |
V652= vs_base[0]; |
5123 |
goto T1475; |
goto T1475; |
5124 |
goto T1480; |
T1475:; |
5125 |
T1480:;{object V687; |
{register object x= V651,V650= V652; |
5126 |
V687= (VV[132]->s.s_dbind); |
while(V650!=Cnil) |
5127 |
if(((V683))==Cnil){ |
if(eql(x,V650->c.c_car)){ |
5128 |
goto T1489;} |
goto T1473; |
5129 |
V688= (*(LnkLI263))((V678)); |
}else V650=V650->c.c_cdr;}} |
5130 |
goto T1487; |
V648= Cnil; |
5131 |
goto T1489; |
goto T1463; |
5132 |
T1489:; |
goto T1473; |
5133 |
base[7]= (V678); |
T1473:; |
5134 |
|
if(((V647))==Cnil){ |
5135 |
|
goto T1483;}{object V653; |
5136 |
|
V653= (VV[149]->s.s_dbind); |
5137 |
|
V654= (*(LnkLI281))((V646)); |
5138 |
|
if((((V653)==(/* INLINE-ARGS */V654)?Ct:Cnil))==Cnil){ |
5139 |
|
goto T1480;} |
5140 |
|
goto T1481;} |
5141 |
|
goto T1483; |
5142 |
|
T1483:; |
5143 |
|
base[7]= (V646); |
5144 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
5145 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk282)(Lclptr282); |
5146 |
vs_top=sup; |
vs_top=sup; |
5147 |
V688= vs_base[0]; |
if((vs_base[0])!=Cnil){ |
5148 |
|
goto T1480;} |
5149 |
|
goto T1481; |
5150 |
|
T1481:; |
5151 |
|
V648= Cnil; |
5152 |
|
goto T1463; |
5153 |
|
goto T1480; |
5154 |
|
T1480:; |
5155 |
|
if(((V647))==Cnil){ |
5156 |
|
goto T1487;} |
5157 |
|
V648= (*(LnkLI283))((V646)); |
5158 |
|
goto T1463; |
5159 |
goto T1487; |
goto T1487; |
5160 |
T1487:; |
T1487:; |
5161 |
{register object x= V687,V686= V688; |
base[7]= (V646); |
|
while(V686!=Cnil) |
|
|
if(eql(x,V686->c.c_car)){ |
|
|
goto T1485; |
|
|
}else V686=V686->c.c_cdr;}} |
|
|
V684= Cnil; |
|
|
goto T1475; |
|
|
goto T1485; |
|
|
T1485:; |
|
|
if(((V683))==Cnil){ |
|
|
goto T1495;}{object V689; |
|
|
V689= (VV[133]->s.s_dbind); |
|
|
V690= (*(LnkLI265))((V682)); |
|
|
if((((V689)==(/* INLINE-ARGS */V690)?Ct:Cnil))==Cnil){ |
|
|
goto T1492;} |
|
|
goto T1493;} |
|
|
goto T1495; |
|
|
T1495:; |
|
|
base[7]= (V682); |
|
5162 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
5163 |
(void) (*Lnk266)(Lclptr266); |
(void) (*Lnk284)(Lclptr284); |
5164 |
vs_top=sup; |
vs_top=sup; |
5165 |
if((vs_base[0])!=Cnil){ |
V648= vs_base[0]; |
5166 |
|
goto T1463; |
5167 |
|
goto T1465; |
5168 |
|
T1465:; |
5169 |
|
V648= Cnil; |
5170 |
|
goto T1463; |
5171 |
|
T1463:; |
5172 |
|
if((V642)==Cnil){ |
5173 |
|
V649= Cnil; |
5174 |
|
goto T1490;} |
5175 |
|
if(((V647))==Cnil){ |
5176 |
goto T1492;} |
goto T1492;} |
5177 |
goto T1493; |
{register object V655; |
5178 |
T1493:; |
register object V656; |
5179 |
V684= Cnil; |
V655= (*(LnkLI285))((V642)); |
5180 |
goto T1475; |
V656= CMPcar((V655)); |
5181 |
goto T1492; |
goto T1497; |
5182 |
T1492:; |
T1497:; |
5183 |
if(((V683))==Cnil){ |
if(!(((V655))==Cnil)){ |
5184 |
goto T1499;} |
goto T1498;} |
5185 |
V684= (*(LnkLI267))((V682)); |
V649= Cnil; |
5186 |
goto T1475; |
goto T1490; |
5187 |
goto T1499; |
goto T1498; |
5188 |
T1499:; |
T1498:; |
5189 |
base[7]= (V682); |
V657= (*(LnkLI286))((V656)); |
5190 |
vs_top=(vs_base=base+7)+1; |
if(!(eql((V648),/* INLINE-ARGS */V657))){ |
|
(void) (*Lnk268)(Lclptr268); |
|
|
vs_top=sup; |
|
|
V684= vs_base[0]; |
|
|
goto T1475; |
|
|
goto T1477; |
|
|
T1477:; |
|
|
V684= Cnil; |
|
|
goto T1475; |
|
|
T1475:; |
|
|
if((V678)==Cnil){ |
|
|
V685= Cnil; |
|
5191 |
goto T1502;} |
goto T1502;} |
5192 |
if(((V683))==Cnil){ |
V649= (V656); |
5193 |
goto T1504;} |
goto T1490; |
|
{register object V691; |
|
|
register object V692; |
|
|
V691= (*(LnkLI269))((V678)); |
|
|
V692= CMPcar((V691)); |
|
|
goto T1509; |
|
|
T1509:; |
|
|
if(!(((V691))==Cnil)){ |
|
|
goto T1510;} |
|
|
V685= Cnil; |
|
|
goto T1502; |
|
|
goto T1510; |
|
|
T1510:; |
|
|
V693 = (V684); |
|
|
V694= (*(LnkLI270))((V692)); |
|
|
if(!(eql(V693,/* INLINE-ARGS */V694))){ |
|
|
goto T1514;} |
|
|
V685= (V692); |
|
|
goto T1502; |
|
|
goto T1514; |
|
|
T1514:; |
|
|
V691= CMPcdr((V691)); |
|
|
V692= CMPcar((V691)); |
|
|
goto T1509;} |
|
|
goto T1504; |
|
|
T1504:; |
|
|
V685= (*(LnkLI271))((V678),(V684)); |
|
5194 |
goto T1502; |
goto T1502; |
5195 |
T1502:; |
T1502:; |
5196 |
if(((V685))==Cnil){ |
V655= CMPcdr((V655)); |
5197 |
goto T1523;} |
V656= CMPcar((V655)); |
5198 |
if(((V683))!=Cnil){ |
goto T1497;} |
5199 |
goto T1522;} |
goto T1492; |
5200 |
base[7]= (V685); |
T1492:; |
5201 |
base[8]= (V677); |
V649= (*(LnkLI287))((V642),(V648)); |
5202 |
|
goto T1490; |
5203 |
|
T1490:; |
5204 |
|
if(((V649))==Cnil){ |
5205 |
|
goto T1511;} |
5206 |
|
if(((V647))!=Cnil){ |
5207 |
|
goto T1510;} |
5208 |
|
base[7]= (V649); |
5209 |
|
base[8]= (V641); |
5210 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
5211 |
(void) (*Lnk272)(Lclptr272); |
(void) (*Lnk288)(Lclptr288); |
5212 |
vs_top=sup; |
vs_top=sup; |
5213 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5214 |
goto T1523;} |
goto T1511;} |
5215 |
goto T1522; |
goto T1510; |
5216 |
T1522:; |
T1510:; |
5217 |
if(((V683))==Cnil){ |
if(((V647))==Cnil){ |
5218 |
goto T1533;} |
goto T1521;} |
5219 |
base[7]= (*(LnkLI273))((V685)); |
base[7]= (*(LnkLI289))((V649)); |
5220 |
goto T1531; |
goto T1519; |
5221 |
goto T1533; |
goto T1521; |
5222 |
T1533:; |
T1521:; |
5223 |
base[8]= (V685); |
base[8]= (V649); |
5224 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
5225 |
(void) (*Lnk274)(Lclptr274); |
(void) (*Lnk290)(Lclptr290); |
5226 |
vs_top=sup; |
vs_top=sup; |
5227 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
5228 |
goto T1531; |
goto T1519; |
5229 |
T1531:; |
T1519:; |
5230 |
base[8]= (V677); |
base[8]= (V641); |
5231 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
5232 |
return; |
return; |
5233 |
goto T1523; |
goto T1511; |
5234 |
T1523:; |
T1511:; |
5235 |
base[7]= Cnil; |
base[7]= Cnil; |
5236 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
5237 |
return;} |
return;} |
5243 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
5244 |
register object *VOL sup=base+VM91; VC91 |
register object *VOL sup=base+VM91; VC91 |
5245 |
vs_check; |
vs_check; |
5246 |
{VOL object V695; |
{VOL object V658; |
5247 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
5248 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
5249 |
V695=(base[0]); |
V658=(base[0]); |
5250 |
base[1]=MMcons(base[1],Cnil); |
base[1]=MMcons(base[1],Cnil); |
5251 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
5252 |
if(vs_base>=vs_top){vs_top=sup;goto T1537;} |
if(vs_base>=vs_top){vs_top=sup;goto T1525;} |
5253 |
base[2]=MMcons(base[2],base[1]); |
base[2]=MMcons(base[2],base[1]); |
5254 |
vs_top=sup; |
vs_top=sup; |
5255 |
goto T1538; |
goto T1526; |
5256 |
goto T1537; |
goto T1525; |
5257 |
T1537:; |
T1525:; |
5258 |
base[2]= Cnil; |
base[2]= Cnil; |
5259 |
base[2]=MMcons(base[2],base[1]); |
base[2]=MMcons(base[2],base[1]); |
5260 |
goto T1538; |
goto T1526; |
5261 |
T1538:; |
T1526:; |
5262 |
base[3]=alloc_frame_id(); |
base[3]=alloc_frame_id(); |
5263 |
base[3]=MMcons(base[3],base[2]); |
base[3]=MMcons(base[3],base[2]); |
5264 |
frs_push(FRS_CATCH,(base[3]->c.c_car)); |
frs_push(FRS_CATCH,(base[3]->c.c_car)); |
5267 |
return;} |
return;} |
5268 |
else{ |
else{ |
5269 |
if(((base[2]->c.c_car))!=Cnil){ |
if(((base[2]->c.c_car))!=Cnil){ |
5270 |
goto T1540;} |
goto T1528;} |
5271 |
base[4]= VV[113]; |
base[4]= VV[123]; |
5272 |
base[5]= VV[119]; |
base[5]= VV[129]; |
5273 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
5274 |
Lmake_hash_table(); |
Lmake_hash_table(); |
5275 |
vs_top=sup; |
vs_top=sup; |
5276 |
(base[2]->c.c_car)= vs_base[0]; |
(base[2]->c.c_car)= vs_base[0]; |
5277 |
|
goto T1528; |
5278 |
|
T1528:; |
5279 |
|
{object V659; |
5280 |
|
if(((*(LnkLI213))((V658)))==Cnil){ |
5281 |
|
goto T1536;} |
5282 |
|
if(type_of(V658)==t_structure){ |
5283 |
|
goto T1542;} |
5284 |
goto T1540; |
goto T1540; |
5285 |
T1540:; |
goto T1542; |
5286 |
{object V696; |
T1542:; |
5287 |
if(((*(LnkLI196))((V695)))==Cnil){ |
if(!(((V658)->str.str_def)==(VV[150]))){ |
5288 |
goto T1548;} |
goto T1540;} |
5289 |
if(type_of(V695)==t_structure){ |
V660= STREF(object,(V658),4); |
5290 |
goto T1554;} |
goto T1538; |
5291 |
goto T1552; |
goto T1540; |
5292 |
goto T1554; |
T1540:;{object V662; |
5293 |
T1554:; |
V662= (VV[73]->s.s_dbind); |
|
if(!(((V695)->str.str_def)==(VV[134]))){ |
|
|
goto T1552;} |
|
|
V697= STREF(object,(V695),4); |
|
|
goto T1550; |
|
|
goto T1552; |
|
|
T1552:;{object V699; |
|
|
V699= (VV[65]->s.s_dbind); |
|
5294 |
base[10]= small_fixnum(14); |
base[10]= small_fixnum(14); |
5295 |
base[11]= (V695); |
base[11]= (V658); |
5296 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5297 |
(void) (*Lnk197)(); |
(void) (*Lnk214)(); |
5298 |
vs_top=sup; |
vs_top=sup; |
5299 |
V700= vs_base[0]; |
V663= vs_base[0]; |
5300 |
if(!((V699)==(CMPcar(V700)))){ |
if(!((V662)==(CMPcar(V663)))){ |
5301 |
goto T1557;}} |
goto T1545;}} |
5302 |
V697= CMPcar(((V695))->cc.cc_turbo[12]); |
V660= CMPcar(((V658))->cc.cc_turbo[12]); |
5303 |
goto T1550; |
goto T1538; |
5304 |
goto T1557; |
goto T1545; |
5305 |
T1557:; |
T1545:; |
5306 |
base[10]= VV[66]; |
base[10]= VV[74]; |
5307 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
5308 |
Lerror(); |
Lerror(); |
5309 |
vs_top=sup; |
vs_top=sup; |
5310 |
V697= vs_base[0]; |
V660= vs_base[0]; |
5311 |
goto T1550; |
goto T1538; |
5312 |
T1550:; |
T1538:; |
5313 |
V701 = (VV[67]->s.s_dbind); |
V659= (V660)->v.v_self[fix((VV[75]->s.s_dbind))]; |
5314 |
V696= (V697)->v.v_self[fix(V701)]; |
goto T1534; |
5315 |
goto T1546; |
goto T1536; |
5316 |
goto T1548; |
T1536:; |
5317 |
T1548:; |
base[10]= (V658); |
|
base[10]= (V695); |
|
5318 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
5319 |
(void) (*Lnk199)(Lclptr199); |
(void) (*Lnk216)(Lclptr216); |
5320 |
vs_top=sup; |
vs_top=sup; |
5321 |
V696= vs_base[0]; |
V659= vs_base[0]; |
5322 |
goto T1546; |
goto T1534; |
5323 |
T1546:; |
T1534:; |
5324 |
base[6]= (((((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil))==Cnil?Ct:Cnil); |
base[6]= (((((VV[79]->s.s_dbind))==(VV[80])?Ct:Cnil))==Cnil?Ct:Cnil); |
5325 |
base[4]=MMcons(Cnil,base[3]); |
base[4]=MMcons(Cnil,base[3]); |
5326 |
base[5]=MMcons(Ct,base[4]); |
base[5]=MMcons(Ct,base[4]); |
5327 |
base[6]=MMcons(base[6],base[5]); |
base[6]=MMcons(base[6],base[5]); |
5328 |
base[7]=MMcons(Cnil,base[6]); |
base[7]=MMcons(Cnil,base[6]); |
5329 |
base[8]=MMcons(Cnil,base[7]); |
base[8]=MMcons(Cnil,base[7]); |
5330 |
base[9]=MMcons(small_fixnum(0),base[8]); |
base[9]=MMcons(small_fixnum(0),base[8]); |
5331 |
{register object V702; |
{register object V664; |
5332 |
register object V703; |
register object V665; |
5333 |
V702= (V696); |
V664= (V659); |
5334 |
V703= CMPcar((V702)); |
V665= CMPcar((V664)); |
5335 |
goto T1569; |
goto T1557; |
5336 |
T1569:; |
T1557:; |
5337 |
if(!(((V702))==Cnil)){ |
if(!(((V664))==Cnil)){ |
5338 |
goto T1570;} |
goto T1558;} |
5339 |
|
goto T1553; |
5340 |
|
goto T1558; |
5341 |
|
T1558:; |
5342 |
|
{object V666; |
5343 |
|
register object V667; |
5344 |
|
object V668; |
5345 |
|
if(!(type_of((V665))==t_cons)){ |
5346 |
|
goto T1565;} |
5347 |
|
V666= (VFUN_NARGS=2,(*(LnkLI291))((V665),Ct)); |
5348 |
|
goto T1563; |
5349 |
goto T1565; |
goto T1565; |
5350 |
goto T1570; |
T1565:; |
5351 |
T1570:; |
base[16]= (V665); |
|
{object V704; |
|
|
register object V705; |
|
|
object V706; |
|
|
if(!(type_of((V703))==t_cons)){ |
|
|
goto T1577;} |
|
|
V704= (VFUN_NARGS=2,(*(LnkLI275))((V703),Ct)); |
|
|
goto T1575; |
|
|
goto T1577; |
|
|
T1577:; |
|
|
base[16]= (V703); |
|
5352 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
5353 |
(void) (*Lnk242)(Lclptr242); |
(void) (*Lnk259)(Lclptr259); |
5354 |
vs_top=sup; |
vs_top=sup; |
5355 |
V704= vs_base[0]; |
V666= vs_base[0]; |
5356 |
goto T1575; |
goto T1563; |
5357 |
T1575:; |
T1563:; |
5358 |
if(!(((base[1]->c.c_car))==(VV[51]))){ |
if(!(((base[1]->c.c_car))==(VV[59]))){ |
5359 |
goto T1582;} |
goto T1570;} |
5360 |
base[12]= CMPcar((V704)); |
base[12]= CMPcar((V666)); |
5361 |
goto T1580; |
goto T1568; |
5362 |
goto T1582; |
goto T1570; |
5363 |
T1582:; |
T1570:; |
5364 |
base[12]= CMPcadr((V704)); |
base[12]= CMPcadr((V666)); |
5365 |
goto T1580; |
goto T1568; |
5366 |
T1580:; |
T1568:; |
5367 |
base[12]=MMcons(base[12],base[9]); |
base[12]=MMcons(base[12],base[9]); |
5368 |
if(((base[6]->c.c_car))==Cnil){ |
if(((base[6]->c.c_car))==Cnil){ |
5369 |
goto T1586;} |
goto T1574;} |
5370 |
V705= (*(LnkLI263))((base[12]->c.c_car)); |
V667= (*(LnkLI279))((base[12]->c.c_car)); |
5371 |
goto T1584; |
goto T1572; |
5372 |
goto T1586; |
goto T1574; |
5373 |
T1586:; |
T1574:; |
5374 |
base[16]= (base[12]->c.c_car); |
base[16]= (base[12]->c.c_car); |
5375 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
5376 |
(void) (*Lnk276)(Lclptr276); |
(void) (*Lnk292)(Lclptr292); |
5377 |
vs_top=sup; |
vs_top=sup; |
5378 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
5379 |
goto T1588;} |
goto T1576;} |
5380 |
V705= Cnil; |
V667= Cnil; |
5381 |
goto T1584; |
goto T1572; |
5382 |
goto T1588; |
goto T1576; |
5383 |
T1588:; |
T1576:; |
5384 |
base[16]= (base[12]->c.c_car); |
base[16]= (base[12]->c.c_car); |
5385 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
5386 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk280)(Lclptr280); |
5387 |
vs_top=sup; |
vs_top=sup; |
5388 |
V705= vs_base[0]; |
V667= vs_base[0]; |
5389 |
goto T1584; |
goto T1572; |
5390 |
T1584:; |
T1572:; |
5391 |
{register object x= (VV[132]->s.s_dbind),V707= (V705); |
{register object x= (VV[148]->s.s_dbind),V669= (V667); |
5392 |
while(V707!=Cnil) |
while(V669!=Cnil) |
5393 |
if(eql(x,V707->c.c_car)){ |
if(eql(x,V669->c.c_car)){ |
5394 |
base[14]= V707; |
base[14]= V669; |
5395 |
goto T1592; |
goto T1580; |
5396 |
}else V707=V707->c.c_cdr; |
}else V669=V669->c.c_cdr; |
5397 |
base[14]= Cnil;} |
base[14]= Cnil;} |
5398 |
goto T1592; |
goto T1580; |
5399 |
T1592:; |
T1580:; |
5400 |
base[14]=MMcons(base[14],base[12]); |
base[14]=MMcons(base[14],base[12]); |
5401 |
if(!(type_of((V703))==t_cons)){ |
if(!(type_of((V665))==t_cons)){ |
5402 |
goto T1595;} |
goto T1583;} |
5403 |
if(((*(LnkLI262))((V703)))!=Cnil){ |
if(((*(LnkLI278))((V665)))!=Cnil){ |
5404 |
goto T1597;} |
goto T1585;} |
5405 |
V706= Cnil; |
V668= Cnil; |
5406 |
goto T1593; |
goto T1581; |
5407 |
goto T1597; |
goto T1585; |
5408 |
T1597:; |
T1585:; |
5409 |
base[16]= (V703); |
base[16]= (V665); |
5410 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
5411 |
(void) (*Lnk231)(); |
(void) (*Lnk248)(); |
5412 |
vs_top=sup; |
vs_top=sup; |
5413 |
V706= vs_base[0]; |
V668= vs_base[0]; |
5414 |
goto T1593; |
goto T1581; |
5415 |
goto T1595; |
goto T1583; |
5416 |
T1595:; |
T1583:; |
5417 |
base[16]= (V703); |
base[16]= (V665); |
5418 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
5419 |
(void) (*Lnk268)(Lclptr268); |
(void) (*Lnk284)(Lclptr284); |
5420 |
vs_top=sup; |
vs_top=sup; |
5421 |
V706= vs_base[0]; |
V668= vs_base[0]; |
5422 |
|
goto T1581; |
5423 |
|
T1581:; |
5424 |
|
if(((V667))==Cnil){ |
5425 |
|
goto T1590;} |
5426 |
|
{register object x= (VV[151]->s.s_dbind),V670= (V667); |
5427 |
|
while(V670!=Cnil) |
5428 |
|
if(eql(x,V670->c.c_car)){ |
5429 |
|
goto T1593; |
5430 |
|
}else V670=V670->c.c_cdr; |
5431 |
|
goto T1589;} |
5432 |
goto T1593; |
goto T1593; |
5433 |
T1593:; |
T1593:; |
5434 |
if(((V705))==Cnil){ |
goto T1590; |
5435 |
goto T1602;} |
T1590:; |
|
{register object x= (VV[135]->s.s_dbind),V708= (V705); |
|
|
while(V708!=Cnil) |
|
|
if(eql(x,V708->c.c_car)){ |
|
|
goto T1605; |
|
|
}else V708=V708->c.c_cdr; |
|
|
goto T1601;} |
|
|
goto T1605; |
|
|
T1605:; |
|
|
goto T1602; |
|
|
T1602:; |
|
5436 |
frs_pop(); |
frs_pop(); |
5437 |
base[16]= Cnil; |
base[16]= Cnil; |
5438 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
5439 |
return; |
return; |
5440 |
goto T1601; |
goto T1589; |
5441 |
T1601:; |
T1589:; |
5442 |
base[16]= |
base[16]= |
5443 |
make_cclosure_new(LC162,Cnil,base[14],Cdata); |
make_cclosure_new(LC162,Cnil,base[14],Cdata); |
5444 |
base[18]= (V706); |
base[18]= (V668); |
5445 |
base[19]= (VV[136]->s.s_dbind); |
base[19]= (VV[152]->s.s_dbind); |
5446 |
vs_top=(vs_base=base+18)+2; |
vs_top=(vs_base=base+18)+2; |
5447 |
Lgethash(); |
Lgethash(); |
5448 |
vs_top=sup; |
vs_top=sup; |
5450 |
vs_top=(vs_base=base+16)+2; |
vs_top=(vs_base=base+16)+2; |
5451 |
Lmaphash(); |
Lmaphash(); |
5452 |
vs_top=sup;} |
vs_top=sup;} |
5453 |
V702= CMPcdr((V702)); |
V664= CMPcdr((V664)); |
5454 |
V703= CMPcar((V702)); |
V665= CMPcar((V664)); |
5455 |
goto T1569;} |
goto T1557;} |
5456 |
goto T1565; |
goto T1553; |
5457 |
T1565:; |
T1553:; |
5458 |
base[10]= |
base[10]= |
5459 |
make_cclosure_new(LC163,Cnil,base[9],Cdata); |
make_cclosure_new(LC163,Cnil,base[9],Cdata); |
5460 |
base[11]= (base[2]->c.c_car); |
base[11]= (base[2]->c.c_car); |
5479 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5480 |
register object *sup=base+VM92; VC92 |
register object *sup=base+VM92; VC92 |
5481 |
vs_check; |
vs_check; |
5482 |
{object V709; |
{object V671; |
5483 |
object V710; |
object V672; |
5484 |
check_arg(2); |
check_arg(2); |
5485 |
V709=(base[0]); |
V671=(base[0]); |
5486 |
V710=(base[1]); |
V672=(base[1]); |
5487 |
vs_top=sup; |
vs_top=sup; |
5488 |
goto TTL; |
goto TTL; |
5489 |
TTL:; |
TTL:; |
5490 |
{object V711; |
{object V673; |
5491 |
object V712; |
object V674; |
5492 |
V711= Ct; |
V673= Ct; |
5493 |
V712= Cnil; |
V674= Cnil; |
5494 |
{register object V713; |
{register object V675; |
5495 |
register object V714; |
register object V676; |
5496 |
if(((*(LnkLI196))((V709)))==Cnil){ |
if(((*(LnkLI213))((V671)))==Cnil){ |
5497 |
goto T1627;} |
goto T1615;} |
5498 |
if(type_of(V709)==t_structure){ |
if(type_of(V671)==t_structure){ |
5499 |
goto T1633;} |
goto T1621;} |
5500 |
goto T1631; |
goto T1619; |
5501 |
goto T1633; |
goto T1621; |
5502 |
T1633:; |
T1621:; |
5503 |
if(!(((V709)->str.str_def)==(VV[138]))){ |
if(!(((V671)->str.str_def)==(VV[154]))){ |
5504 |
goto T1631;} |
goto T1619;} |
5505 |
V715= STREF(object,(V709),4); |
V677= STREF(object,(V671),4); |
5506 |
goto T1629; |
goto T1617; |
5507 |
goto T1631; |
goto T1619; |
5508 |
T1631:;{object V717; |
T1619:;{object V679; |
5509 |
V717= (VV[65]->s.s_dbind); |
V679= (VV[73]->s.s_dbind); |
5510 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
5511 |
base[5]= (V709); |
base[5]= (V671); |
5512 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
5513 |
(void) (*Lnk197)(); |
(void) (*Lnk214)(); |
5514 |
vs_top=sup; |
vs_top=sup; |
5515 |
V718= vs_base[0]; |
V680= vs_base[0]; |
5516 |
if(!((V717)==(CMPcar(V718)))){ |
if(!((V679)==(CMPcar(V680)))){ |
5517 |
goto T1636;}} |
goto T1624;}} |
5518 |
V715= CMPcar(((V709))->cc.cc_turbo[12]); |
V677= CMPcar(((V671))->cc.cc_turbo[12]); |
5519 |
goto T1629; |
goto T1617; |
5520 |
goto T1636; |
goto T1624; |
5521 |
T1636:; |
T1624:; |
5522 |
base[4]= VV[66]; |
base[4]= VV[74]; |
5523 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5524 |
Lerror(); |
Lerror(); |
5525 |
vs_top=sup; |
vs_top=sup; |
5526 |
V715= vs_base[0]; |
V677= vs_base[0]; |
5527 |
goto T1629; |
goto T1617; |
5528 |
T1629:; |
T1617:; |
5529 |
V719 = (VV[67]->s.s_dbind); |
V675= (V677)->v.v_self[fix((VV[75]->s.s_dbind))]; |
5530 |
V713= (V715)->v.v_self[fix(V719)]; |
goto T1613; |
5531 |
goto T1625; |
goto T1615; |
5532 |
goto T1627; |
T1615:; |
5533 |
T1627:; |
base[4]= (V671); |
|
base[4]= (V709); |
|
5534 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5535 |
(void) (*Lnk199)(Lclptr199); |
(void) (*Lnk216)(Lclptr216); |
5536 |
vs_top=sup; |
vs_top=sup; |
5537 |
V713= vs_base[0]; |
V675= vs_base[0]; |
5538 |
goto T1625; |
goto T1613; |
5539 |
T1625:; |
T1613:; |
5540 |
V714= CMPcar((V713)); |
V676= CMPcar((V675)); |
5541 |
goto T1645; |
goto T1633; |
5542 |
T1645:; |
T1633:; |
5543 |
if(!(((V713))==Cnil)){ |
if(!(((V675))==Cnil)){ |
5544 |
goto T1646;} |
goto T1634;} |
5545 |
goto T1624; |
goto T1612; |
5546 |
goto T1646; |
goto T1634; |
5547 |
T1646:; |
T1634:; |
5548 |
{object V720; |
{object V681; |
5549 |
register object V721; |
register object V682; |
5550 |
register object V722; |
register object V683; |
5551 |
register object V723; |
register object V684; |
5552 |
if(!(type_of((V714))==t_cons)){ |
if(!(type_of((V676))==t_cons)){ |
5553 |
goto T1653;} |
goto T1641;} |
5554 |
V720= (VFUN_NARGS=2,(*(LnkLI275))((V714),Ct)); |
V681= (VFUN_NARGS=2,(*(LnkLI291))((V676),Ct)); |
5555 |
goto T1651; |
goto T1639; |
5556 |
goto T1653; |
goto T1641; |
5557 |
T1653:; |
T1641:; |
5558 |
base[4]= (V714); |
base[4]= (V676); |
5559 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5560 |
(void) (*Lnk242)(Lclptr242); |
(void) (*Lnk259)(Lclptr259); |
5561 |
vs_top=sup; |
vs_top=sup; |
5562 |
V720= vs_base[0]; |
V681= vs_base[0]; |
5563 |
goto T1651; |
goto T1639; |
5564 |
T1651:; |
T1639:; |
5565 |
V721= (V710); |
V682= (V672); |
5566 |
V722= Ct; |
V683= Ct; |
5567 |
V723= Ct; |
V684= Ct; |
5568 |
{register object V724; |
{register object V685; |
5569 |
register object V725; |
register object V686; |
5570 |
V724= (V720); |
V685= (V681); |
5571 |
V725= CMPcar((V724)); |
V686= CMPcar((V685)); |
5572 |
|
goto T1648; |
5573 |
|
T1648:; |
5574 |
|
if(!(((V685))==Cnil)){ |
5575 |
|
goto T1649;} |
5576 |
|
goto T1644; |
5577 |
|
goto T1649; |
5578 |
|
T1649:; |
5579 |
|
{object V687; |
5580 |
|
object V688; |
5581 |
|
base[5]= (V686); |
5582 |
|
{object V689; |
5583 |
|
V689= CMPcar((V682)); |
5584 |
|
V682= CMPcdr((V682)); |
5585 |
|
base[6]= (V689);} |
5586 |
|
vs_top=(vs_base=base+5)+2; |
5587 |
|
(void) (*Lnk162)(); |
5588 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1660;} |
5589 |
|
V687= vs_base[0]; |
5590 |
|
vs_base++; |
5591 |
|
if(vs_base>=vs_top){vs_top=sup;goto T1661;} |
5592 |
|
V688= vs_base[0]; |
5593 |
|
vs_top=sup; |
5594 |
|
goto T1662; |
5595 |
goto T1660; |
goto T1660; |
5596 |
T1660:; |
T1660:; |
5597 |
if(!(((V724))==Cnil)){ |
V687= Cnil; |
|
goto T1661;} |
|
|
goto T1656; |
|
5598 |
goto T1661; |
goto T1661; |
5599 |
T1661:; |
T1661:; |
5600 |
{object V726; |
V688= Cnil; |
5601 |
object V727; |
goto T1662; |
5602 |
base[5]= (V725); |
T1662:; |
5603 |
{object V728; |
if(((V687))!=Cnil){ |
5604 |
V728= CMPcar((V721)); |
goto T1663;} |
5605 |
V721= CMPcdr((V721)); |
V684= Cnil; |
5606 |
base[6]= (V728);} |
goto T1663; |
5607 |
vs_top=(vs_base=base+5)+2; |
T1663:; |
5608 |
(void) (*Lnk146)(); |
if(((V688))!=Cnil){ |
5609 |
if(vs_base>=vs_top){vs_top=sup;goto T1672;} |
goto T1653;} |
5610 |
V726= vs_base[0]; |
V683= Cnil; |
5611 |
vs_base++; |
goto T1644;} |
5612 |
if(vs_base>=vs_top){vs_top=sup;goto T1673;} |
goto T1653; |
5613 |
V727= vs_base[0]; |
T1653:; |
5614 |
vs_top=sup; |
V685= CMPcdr((V685)); |
5615 |
goto T1674; |
V686= CMPcar((V685)); |
5616 |
goto T1672; |
goto T1648;} |
5617 |
T1672:; |
goto T1644; |
5618 |
V726= Cnil; |
T1644:; |
5619 |
goto T1673; |
if(((V683))==Cnil){ |
5620 |
T1673:; |
goto T1638;} |
5621 |
V727= Cnil; |
if(((V684))!=Cnil){ |
5622 |
goto T1674; |
goto T1678;} |
5623 |
T1674:; |
V673= Cnil; |
5624 |
if(((V726))!=Cnil){ |
goto T1678; |
5625 |
goto T1675;} |
T1678:; |
5626 |
V723= Cnil; |
V674= make_cons(V676,(V674));} |
5627 |
goto T1675; |
goto T1638; |
5628 |
T1675:; |
T1638:; |
5629 |
if(((V727))!=Cnil){ |
V675= CMPcdr((V675)); |
5630 |
goto T1665;} |
V676= CMPcar((V675)); |
5631 |
V722= Cnil; |
goto T1633;} |
5632 |
goto T1656;} |
goto T1612; |
5633 |
goto T1665; |
T1612:; |
5634 |
T1665:; |
{object V691; |
5635 |
V724= CMPcdr((V724)); |
if(((*(LnkLI213))((V671)))==Cnil){ |
5636 |
V725= CMPcar((V724)); |
goto T1691;} |
5637 |
goto T1660;} |
if(type_of(V671)==t_structure){ |
5638 |
goto T1656; |
goto T1697;} |
5639 |
T1656:; |
goto T1695; |
5640 |
if(((V722))==Cnil){ |
goto T1697; |
5641 |
goto T1650;} |
T1697:; |
5642 |
if(((V723))!=Cnil){ |
if(!(((V671)->str.str_def)==(VV[155]))){ |
5643 |
goto T1690;} |
goto T1695;} |
5644 |
V711= Cnil; |
V693= STREF(object,(V671),4); |
5645 |
goto T1690; |
goto T1693; |
5646 |
T1690:; |
goto T1695; |
5647 |
V712= make_cons(V714,(V712));} |
T1695:;{object V695; |
5648 |
goto T1650; |
V695= (VV[73]->s.s_dbind); |
|
T1650:; |
|
|
V713= CMPcdr((V713)); |
|
|
V714= CMPcar((V713)); |
|
|
goto T1645;} |
|
|
goto T1624; |
|
|
T1624:; |
|
|
{object V730; |
|
|
if(((*(LnkLI196))((V709)))==Cnil){ |
|
|
goto T1703;} |
|
|
if(type_of(V709)==t_structure){ |
|
|
goto T1709;} |
|
|
goto T1707; |
|
|
goto T1709; |
|
|
T1709:; |
|
|
if(!(((V709)->str.str_def)==(VV[139]))){ |
|
|
goto T1707;} |
|
|
V732= STREF(object,(V709),4); |
|
|
goto T1705; |
|
|
goto T1707; |
|
|
T1707:;{object V734; |
|
|
V734= (VV[65]->s.s_dbind); |
|
5649 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
5650 |
base[3]= (V709); |
base[3]= (V671); |
5651 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
5652 |
(void) (*Lnk197)(); |
(void) (*Lnk214)(); |
5653 |
vs_top=sup; |
vs_top=sup; |
5654 |
V735= vs_base[0]; |
V696= vs_base[0]; |
5655 |
if(!((V734)==(CMPcar(V735)))){ |
if(!((V695)==(CMPcar(V696)))){ |
5656 |
goto T1712;}} |
goto T1700;}} |
5657 |
V732= CMPcar(((V709))->cc.cc_turbo[12]); |
V693= CMPcar(((V671))->cc.cc_turbo[12]); |
5658 |
goto T1705; |
goto T1693; |
5659 |
goto T1712; |
goto T1700; |
5660 |
T1712:; |
T1700:; |
5661 |
base[2]= VV[66]; |
base[2]= VV[74]; |
5662 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5663 |
Lerror(); |
Lerror(); |
5664 |
vs_top=sup; |
vs_top=sup; |
5665 |
V732= vs_base[0]; |
V693= vs_base[0]; |
5666 |
goto T1705; |
goto T1693; |
5667 |
T1705:; |
T1693:; |
5668 |
V736 = (VV[97]->s.s_dbind); |
V692= (V693)->v.v_self[fix((VV[105]->s.s_dbind))]; |
5669 |
V731= (V732)->v.v_self[fix(V736)]; |
goto T1689; |
5670 |
goto T1701; |
goto T1691; |
5671 |
goto T1703; |
T1691:; |
5672 |
T1703:; |
base[2]= (V671); |
|
base[2]= (V709); |
|
5673 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5674 |
(void) (*Lnk161)(Lclptr161); |
(void) (*Lnk177)(Lclptr177); |
5675 |
vs_top=sup; |
vs_top=sup; |
5676 |
V731= vs_base[0]; |
V692= vs_base[0]; |
5677 |
goto T1701; |
goto T1689; |
5678 |
T1701:; |
T1689:; |
5679 |
V730= STREF(object,V731,4); |
V691= STREF(object,V692,4); |
5680 |
V737 = (V730); |
V697= nreverse((V674)); |
5681 |
V738= nreverse((V712)); |
base[2]= (*(LnkLI293))((V691),/* INLINE-ARGS */V697,(V672)); |
5682 |
V739 = (V710); |
base[3]= (V673); |
|
base[2]= (*(LnkLI277))(V737,/* INLINE-ARGS */V738,V739); |
|
|
base[3]= (V711); |
|
5683 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
5684 |
return;}} |
return;}} |
5685 |
} |
} |
5686 |
} |
} |
5687 |
/* local entry for function SORT-APPLICABLE-METHODS */ |
/* local entry for function SORT-APPLICABLE-METHODS */ |
5688 |
|
|
5689 |
static object LI99(V743,V744,V745) |
static object LI99(V701,V702,V703) |
5690 |
|
|
5691 |
object V743;object V744;object V745; |
object V701;object V702;object V703; |
5692 |
{ VMB93 VMS93 VMV93 |
{ VMB93 VMS93 VMV93 |
5693 |
goto TTL; |
goto TTL; |
5694 |
TTL:; |
TTL:; |
5695 |
base[0]=MMcons((V745),Cnil); |
base[0]=MMcons((V703),Cnil); |
5696 |
V746 = (V744); |
V704= |
|
V747 = (V743); |
|
|
V748= |
|
5697 |
make_cclosure_new(LC164,Cnil,base[0],Cdata); |
make_cclosure_new(LC164,Cnil,base[0],Cdata); |
5698 |
{object V749 = (*(LnkLI278))(V746,V747,V748); |
{object V705 = (*(LnkLI294))((V702),(V701),V704); |
5699 |
VMR93(V749)} |
VMR93(V705)} |
5700 |
base[0]=base[0]; |
base[0]=base[0]; |
5701 |
return Cnil; |
return Cnil; |
5702 |
} |
} |
5703 |
/* local entry for function SORT-METHODS */ |
/* local entry for function SORT-METHODS */ |
5704 |
|
|
5705 |
static object LI102(V753,V754,V755) |
static object LI102(V709,V710,V711) |
5706 |
|
|
5707 |
object V753;object V754;object V755; |
object V709;object V710;object V711; |
5708 |
{ VMB94 VMS94 VMV94 |
{ VMB94 VMS94 VMV94 |
5709 |
goto TTL; |
goto TTL; |
5710 |
TTL:; |
TTL:; |
5711 |
base[0]=MMcons((V755),Cnil); |
base[0]=MMcons((V711),Cnil); |
5712 |
base[1]=MMcons((V754),base[0]); |
base[1]=MMcons((V710),base[0]); |
5713 |
base[2]=make_cclosure_new(LC103,Cnil,base[1],Cdata); |
base[2]=make_cclosure_new(LC103,Cnil,base[1],Cdata); |
5714 |
base[2]=MMcons(base[2],base[1]); |
base[2]=MMcons(base[2],base[1]); |
5715 |
base[3]= (V753); |
base[3]= (V709); |
5716 |
base[4]= (base[2]->c.c_car); |
base[4]= (base[2]->c.c_car); |
5717 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5718 |
(void) (*Lnk279)(); |
(void) (*Lnk295)(); |
5719 |
vs_top=sup; |
vs_top=sup; |
5720 |
{object V756 = vs_base[0]; |
{object V712 = vs_base[0]; |
5721 |
VMR94(V756)} |
VMR94(V712)} |
5722 |
base[0]=base[0]; |
base[0]=base[0]; |
5723 |
return Cnil; |
return Cnil; |
5724 |
} |
} |
5728 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5729 |
register object *sup=base+VM95; VC95 |
register object *sup=base+VM95; VC95 |
5730 |
vs_check; |
vs_check; |
5731 |
{register object V757; |
{register object V713; |
5732 |
register object V758; |
register object V714; |
5733 |
object V759; |
object V715; |
5734 |
object V760; |
object V716; |
5735 |
check_arg(4); |
check_arg(4); |
5736 |
V757=(base[0]); |
V713=(base[0]); |
5737 |
V758=(base[1]); |
V714=(base[1]); |
5738 |
V759=(base[2]); |
V715=(base[2]); |
5739 |
V760=(base[3]); |
V716=(base[3]); |
5740 |
vs_top=sup; |
vs_top=sup; |
5741 |
goto TTL; |
goto TTL; |
5742 |
TTL:; |
TTL:; |
5743 |
{object V761; |
{object V717; |
5744 |
register object V762; |
register object V718; |
5745 |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
if(!(((VV[79]->s.s_dbind))==(VV[80]))){ |
5746 |
goto T1726;} |
goto T1714;} |
5747 |
base[4]= (V757); |
base[4]= (V713); |
5748 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5749 |
(void) (*Lnk280)(Lclptr280); |
(void) (*Lnk296)(Lclptr296); |
5750 |
vs_top=sup; |
vs_top=sup; |
5751 |
V761= vs_base[0]; |
V717= vs_base[0]; |
5752 |
goto T1724; |
goto T1712; |
5753 |
goto T1726; |
goto T1714; |
5754 |
T1726:; |
T1714:; |
5755 |
if(type_of(V757)==t_structure){ |
if(type_of(V713)==t_structure){ |
5756 |
goto T1733;} |
goto T1721;} |
5757 |
goto T1731; |
goto T1719; |
5758 |
goto T1733; |
goto T1721; |
5759 |
T1733:; |
T1721:; |
5760 |
if(!(((V757)->str.str_def)==(VV[140]))){ |
if(!(((V713)->str.str_def)==(VV[156]))){ |
5761 |
goto T1731;} |
goto T1719;} |
5762 |
V763= STREF(object,(V757),4); |
V719= STREF(object,(V713),4); |
5763 |
goto T1729; |
goto T1717; |
5764 |
goto T1731; |
goto T1719; |
5765 |
T1731:;{object V765; |
T1719:;{object V721; |
5766 |
V765= (VV[65]->s.s_dbind); |
V721= (VV[73]->s.s_dbind); |
5767 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
5768 |
base[5]= (V757); |
base[5]= (V713); |
5769 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
5770 |
(void) (*Lnk197)(); |
(void) (*Lnk214)(); |
5771 |
vs_top=sup; |
vs_top=sup; |
5772 |
V766= vs_base[0]; |
V722= vs_base[0]; |
5773 |
if(!((V765)==(CMPcar(V766)))){ |
if(!((V721)==(CMPcar(V722)))){ |
5774 |
goto T1736;}} |
goto T1724;}} |
5775 |
V763= CMPcar(((V757))->cc.cc_turbo[12]); |
V719= CMPcar(((V713))->cc.cc_turbo[12]); |
5776 |
goto T1729; |
goto T1717; |
5777 |
goto T1736; |
goto T1724; |
5778 |
T1736:; |
T1724:; |
5779 |
base[4]= VV[66]; |
base[4]= VV[74]; |
5780 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5781 |
Lerror(); |
Lerror(); |
5782 |
vs_top=sup; |
vs_top=sup; |
5783 |
V763= vs_base[0]; |
V719= vs_base[0]; |
5784 |
goto T1729; |
goto T1717; |
5785 |
T1729:; |
T1717:; |
5786 |
V767= (*(LnkLI281))(VV[141],VV[142]); |
V723= (*(LnkLI297))(VV[157],VV[158]); |
5787 |
V761= (V763)->v.v_self[fix(/* INLINE-ARGS */V767)]; |
V717= (V719)->v.v_self[fix(/* INLINE-ARGS */V723)]; |
5788 |
goto T1724; |
goto T1712; |
5789 |
T1724:; |
T1712:; |
5790 |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
if(!(((VV[79]->s.s_dbind))==(VV[80]))){ |
5791 |
goto T1744;} |
goto T1732;} |
5792 |
base[4]= (V758); |
base[4]= (V714); |
5793 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5794 |
(void) (*Lnk280)(Lclptr280); |
(void) (*Lnk296)(Lclptr296); |
5795 |
vs_top=sup; |
vs_top=sup; |
5796 |
V762= vs_base[0]; |
V718= vs_base[0]; |
5797 |
goto T1742; |
goto T1730; |
5798 |
goto T1744; |
goto T1732; |
5799 |
T1744:; |
T1732:; |
5800 |
if(type_of(V758)==t_structure){ |
if(type_of(V714)==t_structure){ |
5801 |
goto T1751;} |
goto T1739;} |
5802 |
goto T1749; |
goto T1737; |
5803 |
goto T1751; |
goto T1739; |
5804 |
T1751:; |
T1739:; |
5805 |
if(!(((V758)->str.str_def)==(VV[143]))){ |
if(!(((V714)->str.str_def)==(VV[159]))){ |
5806 |
goto T1749;} |
goto T1737;} |
5807 |
V768= STREF(object,(V758),4); |
V724= STREF(object,(V714),4); |
5808 |
goto T1747; |
goto T1735; |
5809 |
goto T1749; |
goto T1737; |
5810 |
T1749:;{object V770; |
T1737:;{object V726; |
5811 |
V770= (VV[65]->s.s_dbind); |
V726= (VV[73]->s.s_dbind); |
5812 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
5813 |
base[5]= (V758); |
base[5]= (V714); |
5814 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
5815 |
(void) (*Lnk197)(); |
(void) (*Lnk214)(); |
5816 |
vs_top=sup; |
vs_top=sup; |
5817 |
V771= vs_base[0]; |
V727= vs_base[0]; |
5818 |
if(!((V770)==(CMPcar(V771)))){ |
if(!((V726)==(CMPcar(V727)))){ |
5819 |
goto T1754;}} |
goto T1742;}} |
5820 |
V768= CMPcar(((V758))->cc.cc_turbo[12]); |
V724= CMPcar(((V714))->cc.cc_turbo[12]); |
5821 |
goto T1747; |
goto T1735; |
5822 |
goto T1754; |
goto T1742; |
5823 |
T1754:; |
T1742:; |
5824 |
base[4]= VV[66]; |
base[4]= VV[74]; |
5825 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5826 |
Lerror(); |
Lerror(); |
5827 |
vs_top=sup; |
vs_top=sup; |
5828 |
V768= vs_base[0]; |
V724= vs_base[0]; |
5829 |
goto T1747; |
goto T1735; |
5830 |
T1747:; |
T1735:; |
5831 |
V772= (*(LnkLI281))(VV[141],VV[142]); |
V728= (*(LnkLI297))(VV[157],VV[158]); |
5832 |
V762= (V768)->v.v_self[fix(/* INLINE-ARGS */V772)]; |
V718= (V724)->v.v_self[fix(/* INLINE-ARGS */V728)]; |
5833 |
goto T1742; |
goto T1730; |
5834 |
T1742:; |
T1730:; |
5835 |
if(!(((V757))==((V758)))){ |
if(!(((V713))==((V714)))){ |
5836 |
goto T1761;} |
goto T1749;} |
5837 |
base[4]= Cnil; |
base[4]= Cnil; |
5838 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5839 |
return; |
return; |
5840 |
goto T1761; |
goto T1749; |
5841 |
T1761:; |
T1749:; |
5842 |
if(!(type_of((V761))!=t_cons)){ |
if(!(type_of((V717))!=t_cons)){ |
5843 |
goto T1764;} |
goto T1752;} |
5844 |
base[4]= (V758); |
base[4]= (V714); |
5845 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5846 |
return; |
return; |
5847 |
goto T1764; |
goto T1752; |
5848 |
T1764:; |
T1752:; |
5849 |
if(!(type_of((V762))!=t_cons)){ |
if(!(type_of((V718))!=t_cons)){ |
5850 |
goto T1767;} |
goto T1755;} |
5851 |
base[4]= (V757); |
base[4]= (V713); |
5852 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5853 |
return; |
return; |
5854 |
goto T1767; |
goto T1755; |
5855 |
T1767:; |
T1755:; |
5856 |
{object V773= CMPcar((V761)); |
{object V729= CMPcar((V717)); |
5857 |
if((V773!= VV[10]))goto T1769; |
if((V729!= VV[8]))goto T1757; |
5858 |
{object V774= CMPcar((V762)); |
{object V730= CMPcar((V718)); |
5859 |
if((V774!= VV[10]))goto T1770; |
if((V730!= VV[8]))goto T1758; |
5860 |
base[4]= (V757); |
base[4]= (V713); |
5861 |
base[5]= (V758); |
base[5]= (V714); |
5862 |
base[6]= (V759); |
base[6]= (V715); |
5863 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
5864 |
{object _funobj = (V760);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V716);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
5865 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
5866 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
5867 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
5868 |
return; |
return; |
5869 |
goto T1770; |
goto T1758; |
5870 |
T1770:; |
T1758:; |
5871 |
base[4]= (V758); |
base[4]= (V714); |
5872 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5873 |
return;} |
return;} |
5874 |
goto T1769; |
goto T1757; |
5875 |
T1769:; |
T1757:; |
5876 |
if((V773!= VV[282]))goto T1774; |
if((V729!= VV[298]))goto T1762; |
5877 |
{object V775= CMPcar((V762)); |
{object V731= CMPcar((V718)); |
5878 |
if((V775!= VV[10]))goto T1775; |
if((V731!= VV[8]))goto T1763; |
5879 |
base[4]= (V757); |
base[4]= (V713); |
5880 |
base[5]= (V758); |
base[5]= (V714); |
5881 |
base[6]= (V759); |
base[6]= (V715); |
5882 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
5883 |
{object _funobj = (V760);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V716);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
5884 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
5885 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
5886 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
5887 |
return; |
return; |
5888 |
goto T1775; |
goto T1763; |
5889 |
T1775:; |
T1763:; |
5890 |
base[4]= (V758); |
base[4]= (V714); |
5891 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5892 |
return;} |
return;} |
5893 |
goto T1774; |
goto T1762; |
5894 |
T1774:; |
T1762:; |
5895 |
if((V773!= VV[130]))goto T1779; |
if((V729!= VV[146]))goto T1767; |
5896 |
{object V776= CMPcar((V762)); |
{object V732= CMPcar((V718)); |
5897 |
if((V776!= VV[147]))goto T1780; |
if((V732!= VV[163]))goto T1768; |
5898 |
base[4]= (V758); |
base[4]= (V714); |
5899 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5900 |
return; |
return; |
5901 |
goto T1780; |
goto T1768; |
5902 |
T1780:; |
T1768:; |
5903 |
if((V776!= VV[130]))goto T1781; |
if((V732!= VV[146]))goto T1769; |
5904 |
base[4]= Cnil; |
base[4]= Cnil; |
5905 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5906 |
return; |
return; |
5907 |
goto T1781; |
goto T1769; |
5908 |
T1781:; |
T1769:; |
5909 |
if((V776!= VV[10]))goto T1782; |
if((V732!= VV[8]))goto T1770; |
5910 |
base[4]= (V761); |
base[4]= (V717); |
5911 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5912 |
return; |
return; |
5913 |
goto T1782; |
goto T1770; |
5914 |
T1782:; |
T1770:; |
5915 |
base[4]= Cnil; |
base[4]= Cnil; |
5916 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5917 |
return;} |
return;} |
5918 |
goto T1779; |
goto T1767; |
5919 |
T1779:; |
T1767:; |
5920 |
if((V773!= VV[147]))goto T1783; |
if((V729!= VV[163]))goto T1771; |
5921 |
{object V777= CMPcar((V762)); |
{object V733= CMPcar((V718)); |
5922 |
if((V777!= VV[147]))goto T1784; |
if((V733!= VV[163]))goto T1772; |
5923 |
base[4]= Cnil; |
base[4]= Cnil; |
5924 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5925 |
return; |
return; |
5926 |
goto T1784; |
goto T1772; |
5927 |
T1784:; |
T1772:; |
5928 |
base[4]= (V757); |
base[4]= (V713); |
5929 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5930 |
return;} |
return;} |
5931 |
goto T1783; |
goto T1771; |
5932 |
T1783:; |
T1771:; |
5933 |
base[4]= Cnil; |
base[4]= Cnil; |
5934 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5935 |
return;}} |
return;}} |
5937 |
} |
} |
5938 |
/* local entry for function MAP-ALL-ORDERS */ |
/* local entry for function MAP-ALL-ORDERS */ |
5939 |
|
|
5940 |
static object LI105(V781,V782,V783) |
static object LI105(V737,V738,V739) |
5941 |
|
|
5942 |
object V781;object V782;object V783; |
object V737;object V738;object V739; |
5943 |
{ VMB96 VMS96 VMV96 |
{ VMB96 VMS96 VMV96 |
5944 |
goto TTL; |
goto TTL; |
5945 |
TTL:; |
TTL:; |
5946 |
base[0]=MMcons(Cnil,Cnil); |
base[0]=MMcons(Cnil,Cnil); |
5947 |
base[1]=make_cclosure_new(LC106,Cnil,base[0],Cdata); |
base[1]=make_cclosure_new(LC106,Cnil,base[0],Cdata); |
5948 |
base[1]=MMcons(base[1],base[0]); |
base[1]=MMcons(base[1],base[0]); |
5949 |
goto T1786; |
goto T1774; |
5950 |
T1786:; |
T1774:; |
5951 |
V784 = (V783); |
V740= (base[1]->c.c_car); |
5952 |
V785 = (V781); |
V741= (*(LnkLI294))((V737),(V738),V740); |
|
V786 = (V782); |
|
|
V787= (base[1]->c.c_car); |
|
|
V788= (*(LnkLI278))(V785,V786,V787); |
|
5953 |
(void)(( |
(void)(( |
5954 |
V789 = V784, |
(type_of((V739)) == t_sfun ?(*(((V739))->sfn.sfn_self)): |
5955 |
(type_of(V789) == t_sfun ?(*((V789)->sfn.sfn_self)): |
(fcall.argd=1,type_of((V739))==t_vfun) ? |
5956 |
(fcall.argd=1,type_of(V789)==t_vfun) ? |
(*(((V739))->sfn.sfn_self)): |
5957 |
(*((V789)->sfn.sfn_self)): |
(fcall.fun=((V739)),fcalln))(/* INLINE-ARGS */V741))); |
5958 |
(fcall.fun=(V789),fcalln))(/* INLINE-ARGS */V788))); |
{register object V742; |
5959 |
{register object V790; |
register object V743; |
5960 |
register object V791; |
V742= (base[0]->c.c_car); |
5961 |
V790= (base[0]->c.c_car); |
V743= CMPcar((V742)); |
5962 |
V791= CMPcar((V790)); |
goto T1783; |
5963 |
goto T1795; |
T1783:; |
5964 |
T1795:; |
if(!(((V742))==Cnil)){ |
5965 |
if(!(((V790))==Cnil)){ |
goto T1784;} |
5966 |
goto T1796;} |
goto T1779; |
5967 |
goto T1791; |
goto T1784; |
5968 |
goto T1796; |
T1784:; |
5969 |
T1796:; |
if((CMPcaddr((V743)))!=Cnil){ |
5970 |
if((CMPcaddr((V791)))!=Cnil){ |
goto T1788;} |
5971 |
goto T1800;} |
{register object V744; |
5972 |
{register object V792; |
register object V745; |
5973 |
register object V793; |
register object V746; |
5974 |
register object V794; |
register object V747; |
5975 |
register object V795; |
V744= (V743); |
5976 |
V792= (V791); |
V745= (V743); |
5977 |
V793= (V791); |
V746= CMPcadr((V745)); |
5978 |
V794= CMPcadr((V793)); |
V747= CMPcar((V744)); |
5979 |
V795= CMPcar((V792)); |
((V744))->c.c_car = (V746); |
5980 |
((V792))->c.c_car = (V794); |
(CMPcdr((V745)))->c.c_car = (V747); |
5981 |
(CMPcdr((V793)))->c.c_car = (V795); |
(void)(CMPcdr((V745)));} |
5982 |
(void)(CMPcdr((V793)));} |
{register object V749; |
5983 |
{register object V797; |
V749= Ct; |
5984 |
V797= Ct; |
(CMPcddr(V743))->c.c_car = (V749); |
5985 |
(CMPcddr(V791))->c.c_car = (V797); |
(void)(CMPcddr(V743)); |
5986 |
(void)(CMPcddr(V791)); |
if(((V749))!=Cnil){ |
5987 |
if(((V797))!=Cnil){ |
goto T1775;} |
5988 |
goto T1787;} |
goto T1779;} |
5989 |
goto T1791;} |
goto T1788; |
5990 |
goto T1800; |
T1788:; |
5991 |
T1800:; |
V742= CMPcdr((V742)); |
5992 |
V790= CMPcdr((V790)); |
V743= CMPcar((V742)); |
5993 |
V791= CMPcar((V790)); |
goto T1783;} |
5994 |
goto T1795;} |
goto T1779; |
5995 |
goto T1791; |
T1779:; |
5996 |
T1791:; |
{object V750 = Cnil; |
5997 |
{object V798 = Cnil; |
VMR96(V750)} |
5998 |
VMR96(V798)} |
goto T1775; |
5999 |
goto T1787; |
T1775:; |
6000 |
T1787:; |
goto T1774; |
|
goto T1786; |
|
6001 |
base[0]=base[0]; |
base[0]=base[0]; |
6002 |
return Cnil; |
return Cnil; |
6003 |
} |
} |
6004 |
/* local entry for function CLASS-MIGHT-PRECEDE-P */ |
/* local entry for function CLASS-MIGHT-PRECEDE-P */ |
6005 |
|
|
6006 |
static object LI107(V801,V802) |
static object LI107(V753,V754) |
6007 |
|
|
6008 |
object V801;object V802; |
object V753;object V754; |
6009 |
{ VMB97 VMS97 VMV97 |
{ VMB97 VMS97 VMV97 |
6010 |
goto TTL; |
goto TTL; |
6011 |
TTL:; |
TTL:; |
6012 |
if(((VV[144]->s.s_dbind))!=Cnil){ |
if(((VV[160]->s.s_dbind))!=Cnil){ |
6013 |
goto T1821;} |
goto T1809;} |
6014 |
base[0]= (V802); |
base[0]= (V754); |
6015 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6016 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk280)(Lclptr280); |
6017 |
vs_top=sup; |
vs_top=sup; |
6018 |
V805= vs_base[0]; |
V757= vs_base[0]; |
6019 |
{register object x= (V801),V804= CMPcdr(V805); |
{register object x= (V753),V756= CMPcdr(V757); |
6020 |
while(V804!=Cnil) |
while(V756!=Cnil) |
6021 |
if(eql(x,V804->c.c_car)){ |
if(eql(x,V756->c.c_car)){ |
6022 |
V803= V804; |
V755= V756; |
6023 |
goto T1823; |
goto T1811; |
6024 |
}else V804=V804->c.c_cdr; |
}else V756=V756->c.c_cdr; |
6025 |
V803= Cnil;} |
V755= Cnil;} |
6026 |
goto T1823; |
goto T1811; |
6027 |
T1823:; |
T1811:; |
6028 |
{object V806 = ((V803)==Cnil?Ct:Cnil); |
{object V758 = ((V755)==Cnil?Ct:Cnil); |
6029 |
VMR97(V806)} |
VMR97(V758)} |
6030 |
goto T1821; |
goto T1809; |
6031 |
T1821:; |
T1809:; |
6032 |
{object V807 = (*(LnkLI283))((V801),(V802)); |
{object V759 = (*(LnkLI299))((V753),(V754)); |
6033 |
VMR97(V807)} |
VMR97(V759)} |
6034 |
base[0]=base[0]; |
base[0]=base[0]; |
6035 |
return Cnil; |
return Cnil; |
6036 |
} |
} |
6037 |
/* local entry for function COMPUTE-PRECEDENCE */ |
/* local entry for function COMPUTE-PRECEDENCE */ |
6038 |
|
|
6039 |
static object LI108(V811,V812,V813) |
static object LI108(V763,V764,V765) |
6040 |
|
|
6041 |
object V811;register object V812;object V813; |
object V763;register object V764;object V765; |
6042 |
{ VMB98 VMS98 VMV98 |
{ VMB98 VMS98 VMV98 |
6043 |
goto TTL; |
goto TTL; |
6044 |
TTL:; |
TTL:; |
6045 |
if(((V813))!=Cnil){ |
if(((V765))!=Cnil){ |
6046 |
goto T1827;} |
goto T1815;} |
6047 |
{register object V814; |
{register object V766; |
6048 |
V814= Cnil; |
V766= Cnil; |
6049 |
{register long V815; |
{register long V767; |
6050 |
register long V816; |
register long V768; |
6051 |
V815= fix((V812)); |
V767= fix((V764)); |
6052 |
V816= 0; |
V768= 0; |
6053 |
goto T1832; |
goto T1820; |
6054 |
T1832:; |
T1820:; |
6055 |
if(!((V816)>=(V815))){ |
if(!((V768)>=(V767))){ |
6056 |
goto T1833;} |
goto T1821;} |
6057 |
{object V817 = (V814); |
{object V769 = (V766); |
6058 |
VMR98(V817)} |
VMR98(V769)} |
6059 |
goto T1833; |
goto T1821; |
6060 |
T1833:; |
T1821:; |
6061 |
{register object V818; |
{register object V770; |
6062 |
V819= one_minus((V812)); |
V771= one_minus((V764)); |
6063 |
V820 = CMPmake_fixnum(V816); |
V772 = CMPmake_fixnum(V768); |
6064 |
V818= number_minus(/* INLINE-ARGS */V819,V820); |
V770= number_minus(/* INLINE-ARGS */V771,V772); |
6065 |
V814= make_cons((V818),(V814));} |
V766= make_cons((V770),(V766));} |
6066 |
V816= (long)(V816)+1; |
V768= (long)(V768)+1; |
6067 |
goto T1832;}} |
goto T1820;}} |
6068 |
goto T1827; |
goto T1815; |
6069 |
T1827:; |
T1815:; |
6070 |
{object V821; |
{object V773; |
6071 |
object V822= (V813); |
object V774= (V765); |
6072 |
if(V822==Cnil){ |
if(V774==Cnil){ |
6073 |
{object V823 = Cnil; |
{object V775 = Cnil; |
6074 |
VMR98(V823)}} |
VMR98(V775)}} |
6075 |
base[0]=V821=MMcons(Cnil,Cnil); |
base[0]=V773=MMcons(Cnil,Cnil); |
6076 |
goto T1842; |
goto T1830; |
6077 |
T1842:; |
T1830:; |
6078 |
base[1]= (V822->c.c_car); |
base[1]= (V774->c.c_car); |
6079 |
base[2]= (V811); |
base[2]= (V763); |
6080 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
6081 |
(void) (*Lnk284)(); |
(void) (*Lnk300)(); |
6082 |
vs_top=sup; |
vs_top=sup; |
6083 |
(V821->c.c_car)= vs_base[0]; |
(V773->c.c_car)= vs_base[0]; |
6084 |
if((V822=MMcdr(V822))==Cnil){ |
if((V774=MMcdr(V774))==Cnil){ |
6085 |
{object V825 = base[0]; |
{object V777 = base[0]; |
6086 |
VMR98(V825)}} |
VMR98(V777)}} |
6087 |
V821=MMcdr(V821)=MMcons(Cnil,Cnil); |
V773=MMcdr(V773)=MMcons(Cnil,Cnil); |
6088 |
goto T1842;} |
goto T1830;} |
6089 |
base[0]=base[0]; |
base[0]=base[0]; |
6090 |
return Cnil; |
return Cnil; |
6091 |
} |
} |
6095 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6096 |
register object *sup=base+VM99; VC99 |
register object *sup=base+VM99; VC99 |
6097 |
vs_check; |
vs_check; |
6098 |
{object V826; |
{object V778; |
6099 |
object V827; |
object V779; |
6100 |
check_arg(2); |
check_arg(2); |
6101 |
V826=(base[0]); |
V778=(base[0]); |
6102 |
V827=(base[1]); |
V779=(base[1]); |
6103 |
vs_top=sup; |
vs_top=sup; |
6104 |
goto TTL; |
goto TTL; |
6105 |
TTL:; |
TTL:; |
6106 |
{register object V828; |
{register object V780; |
6107 |
register object V829; |
register object V781; |
6108 |
V828= Cnil; |
V780= Cnil; |
6109 |
V829= Ct; |
V781= Ct; |
6110 |
{register object V830; |
{register object V782; |
6111 |
register object V831; |
register object V783; |
6112 |
V830= CMPcdr((V827)); |
V782= CMPcdr((V779)); |
6113 |
V831= CMPcar((V830)); |
V783= CMPcar((V782)); |
6114 |
goto T1850; |
goto T1838; |
6115 |
T1850:; |
T1838:; |
6116 |
if(!(((V830))==Cnil)){ |
if(!(((V782))==Cnil)){ |
6117 |
goto T1851;} |
goto T1839;} |
6118 |
goto T1846; |
goto T1834; |
6119 |
goto T1851; |
goto T1839; |
6120 |
T1851:; |
T1839:; |
6121 |
{register object V832; |
{register object V784; |
6122 |
register object V833; |
register object V785; |
6123 |
base[4]= (V826); |
base[4]= (V778); |
6124 |
base[5]= (V831); |
base[5]= (V783); |
6125 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
6126 |
(void) (*Lnk146)(); |
(void) (*Lnk162)(); |
6127 |
if(vs_base>=vs_top){vs_top=sup;goto T1859;} |
if(vs_base>=vs_top){vs_top=sup;goto T1847;} |
6128 |
V832= vs_base[0]; |
V784= vs_base[0]; |
6129 |
vs_base++; |
vs_base++; |
6130 |
if(vs_base>=vs_top){vs_top=sup;goto T1860;} |
if(vs_base>=vs_top){vs_top=sup;goto T1848;} |
6131 |
V833= vs_base[0]; |
V785= vs_base[0]; |
6132 |
vs_top=sup; |
vs_top=sup; |
6133 |
goto T1861; |
goto T1849; |
6134 |
goto T1859; |
goto T1847; |
6135 |
T1859:; |
T1847:; |
6136 |
V832= Cnil; |
V784= Cnil; |
6137 |
goto T1860; |
goto T1848; |
6138 |
T1860:; |
T1848:; |
6139 |
V833= Cnil; |
V785= Cnil; |
6140 |
goto T1861; |
goto T1849; |
6141 |
T1861:; |
T1849:; |
6142 |
if(((V832))==Cnil){ |
if(((V784))==Cnil){ |
|
goto T1862;} |
|
|
V828= Ct; |
|
|
goto T1846; |
|
|
goto T1862; |
|
|
T1862:; |
|
|
if(((V833))!=Cnil){ |
|
|
goto T1855;} |
|
|
V829= Cnil; |
|
|
goto T1846;} |
|
|
goto T1855; |
|
|
T1855:; |
|
|
V830= CMPcdr((V830)); |
|
|
V831= CMPcar((V830)); |
|
6143 |
goto T1850;} |
goto T1850;} |
6144 |
goto T1846; |
V780= Ct; |
6145 |
T1846:; |
goto T1834; |
6146 |
base[2]= (V828); |
goto T1850; |
6147 |
base[3]= (V829); |
T1850:; |
6148 |
|
if(((V785))!=Cnil){ |
6149 |
|
goto T1843;} |
6150 |
|
V781= Cnil; |
6151 |
|
goto T1834;} |
6152 |
|
goto T1843; |
6153 |
|
T1843:; |
6154 |
|
V782= CMPcdr((V782)); |
6155 |
|
V783= CMPcar((V782)); |
6156 |
|
goto T1838;} |
6157 |
|
goto T1834; |
6158 |
|
T1834:; |
6159 |
|
base[2]= (V780); |
6160 |
|
base[3]= (V781); |
6161 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6162 |
return;} |
return;} |
6163 |
} |
} |
6168 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6169 |
register object *sup=base+VM100; VC100 |
register object *sup=base+VM100; VC100 |
6170 |
vs_check; |
vs_check; |
6171 |
{register object V834; |
{register object V786; |
6172 |
object V835; |
object V787; |
6173 |
check_arg(2); |
check_arg(2); |
6174 |
V834=(base[0]); |
V786=(base[0]); |
6175 |
V835=(base[1]); |
V787=(base[1]); |
6176 |
vs_top=sup; |
vs_top=sup; |
6177 |
goto TTL; |
goto TTL; |
6178 |
TTL:; |
TTL:; |
6179 |
{register object V836; |
{register object V788; |
6180 |
V836= CMPcadr((V835)); |
V788= CMPcadr((V787)); |
6181 |
base[2]= Cnil; |
base[2]= Cnil; |
6182 |
{object V837= CMPcar((V836)); |
{object V789= CMPcar((V788)); |
6183 |
if((V837!= VV[10]))goto T1879; |
if((V789!= VV[8]))goto T1867; |
6184 |
base[3]= (*(LnkLI285))((V834),(V836)); |
base[3]= (*(LnkLI301))((V786),(V788)); |
6185 |
goto T1878; |
goto T1866; |
6186 |
goto T1879; |
goto T1867; |
6187 |
T1879:; |
T1867:; |
6188 |
if((V837!= VV[130]))goto T1880; |
if((V789!= VV[146]))goto T1868; |
6189 |
base[3]= (*(LnkLI286))((V834),(V836)); |
base[3]= (*(LnkLI302))((V786),(V788)); |
6190 |
goto T1878; |
goto T1866; |
6191 |
goto T1880; |
goto T1868; |
6192 |
T1880:; |
T1868:; |
6193 |
if((V837!= VV[282]))goto T1881; |
if((V789!= VV[298]))goto T1869; |
6194 |
base[3]= (*(LnkLI287))((V834),(V836)); |
base[3]= (*(LnkLI303))((V786),(V788)); |
6195 |
goto T1878; |
goto T1866; |
6196 |
goto T1881; |
goto T1869; |
6197 |
T1881:; |
T1869:; |
6198 |
if((V837!= VV[147]))goto T1882; |
if((V789!= VV[163]))goto T1870; |
6199 |
base[3]= (*(LnkLI288))((V834),(V836)); |
base[3]= (*(LnkLI304))((V786),(V788)); |
6200 |
goto T1878; |
goto T1866; |
6201 |
goto T1882; |
goto T1870; |
6202 |
T1882:; |
T1870:; |
6203 |
base[4]= VV[145]; |
base[4]= VV[161]; |
6204 |
base[5]= VV[146]; |
base[5]= VV[162]; |
6205 |
base[6]= (V835); |
base[6]= (V787); |
6206 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
6207 |
Lerror(); |
Lerror(); |
6208 |
vs_top=sup; |
vs_top=sup; |
6209 |
base[3]= vs_base[0];} |
base[3]= vs_base[0];} |
6210 |
goto T1878; |
goto T1866; |
6211 |
T1878:; |
T1866:; |
6212 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6213 |
return;} |
return;} |
6214 |
} |
} |
6215 |
} |
} |
6216 |
/* local entry for function SAUT-NOT-CLASS */ |
/* local entry for function SAUT-NOT-CLASS */ |
6217 |
|
|
6218 |
static object LI111(V840,V841) |
static object LI111(V792,V793) |
6219 |
|
|
6220 |
object V840;object V841; |
object V792;object V793; |
6221 |
{ VMB101 VMS101 VMV101 |
{ VMB101 VMS101 VMV101 |
6222 |
goto TTL; |
goto TTL; |
6223 |
TTL:; |
TTL:; |
6224 |
{object V842; |
{object V794; |
6225 |
object V843; |
object V795; |
6226 |
V842= (*(LnkLI289))((V840)); |
V794= (*(LnkLI305))((V792)); |
6227 |
base[2]= (V842); |
base[2]= (V794); |
6228 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6229 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk280)(Lclptr280); |
6230 |
vs_top=sup; |
vs_top=sup; |
6231 |
V843= vs_base[0]; |
V795= vs_base[0]; |
6232 |
{register object x= CMPcadr((V841)),V845= (V843); |
{register object x= CMPcadr((V793)),V797= (V795); |
6233 |
while(V845!=Cnil) |
while(V797!=Cnil) |
6234 |
if(x==(V845->c.c_car)){ |
if(x==(V797->c.c_car)){ |
6235 |
V844= V845; |
V796= V797; |
6236 |
goto T1889; |
goto T1877; |
6237 |
}else V845=V845->c.c_cdr; |
}else V797=V797->c.c_cdr; |
6238 |
V844= Cnil;} |
V796= Cnil;} |
6239 |
goto T1889; |
goto T1877; |
6240 |
T1889:; |
T1877:; |
6241 |
{object V846 = ((V844)==Cnil?Ct:Cnil); |
{object V798 = ((V796)==Cnil?Ct:Cnil); |
6242 |
VMR101(V846)}} |
VMR101(V798)}} |
6243 |
base[0]=base[0]; |
base[0]=base[0]; |
6244 |
return Cnil; |
return Cnil; |
6245 |
} |
} |
6246 |
/* local entry for function SAUT-NOT-PROTOTYPE */ |
/* local entry for function SAUT-NOT-PROTOTYPE */ |
6247 |
|
|
6248 |
static object LI112(V849,V850) |
static object LI112(V801,V802) |
6249 |
|
|
6250 |
register object V849;object V850; |
register object V801;object V802; |
6251 |
{ VMB102 VMS102 VMV102 |
{ VMB102 VMS102 VMV102 |
6252 |
goto TTL; |
goto TTL; |
6253 |
TTL:; |
TTL:; |
6254 |
{object V851; |
{object V803; |
6255 |
object V852; |
object V804; |
6256 |
{object V853= CMPcar((V849)); |
{object V805= CMPcar((V801)); |
6257 |
if((V853!= VV[147]))goto T1891; |
if((V805!= VV[163]))goto T1879; |
6258 |
V851= (*(LnkLI290))(CMPcadr((V849))); |
V803= (*(LnkLI306))(CMPcadr((V801))); |
6259 |
goto T1890; |
goto T1878; |
6260 |
goto T1891; |
goto T1879; |
6261 |
T1891:; |
T1879:; |
6262 |
if((V853!= VV[130]))goto T1892; |
if((V805!= VV[146]))goto T1880; |
6263 |
V851= CMPcadr((V849)); |
V803= CMPcadr((V801)); |
6264 |
goto T1890; |
goto T1878; |
6265 |
goto T1892; |
goto T1880; |
6266 |
T1892:; |
T1880:; |
6267 |
if((V853!= VV[282]))goto T1893; |
if((V805!= VV[298]))goto T1881; |
6268 |
V851= CMPcadr((V849)); |
V803= CMPcadr((V801)); |
6269 |
goto T1890; |
goto T1878; |
6270 |
goto T1893; |
goto T1881; |
6271 |
T1893:; |
T1881:; |
6272 |
if((V853!= VV[10]))goto T1894; |
if((V805!= VV[8]))goto T1882; |
6273 |
V851= CMPcadr((V849)); |
V803= CMPcadr((V801)); |
6274 |
goto T1890; |
goto T1878; |
6275 |
goto T1894; |
goto T1882; |
6276 |
T1894:; |
T1882:; |
6277 |
V851= Cnil;} |
V803= Cnil;} |
6278 |
goto T1890; |
goto T1878; |
6279 |
T1890:; |
T1878:; |
6280 |
base[2]= (V851); |
base[2]= (V803); |
6281 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6282 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk280)(Lclptr280); |
6283 |
vs_top=sup; |
vs_top=sup; |
6284 |
V852= vs_base[0]; |
V804= vs_base[0]; |
6285 |
{register object x= CMPcadr((V850)),V855= (V852); |
{register object x= CMPcadr((V802)),V807= (V804); |
6286 |
while(V855!=Cnil) |
while(V807!=Cnil) |
6287 |
if(x==(V855->c.c_car)){ |
if(x==(V807->c.c_car)){ |
6288 |
V854= V855; |
V806= V807; |
6289 |
goto T1897; |
goto T1885; |
6290 |
}else V855=V855->c.c_cdr; |
}else V807=V807->c.c_cdr; |
6291 |
V854= Cnil;} |
V806= Cnil;} |
6292 |
goto T1897; |
goto T1885; |
6293 |
T1897:; |
T1885:; |
6294 |
{object V856 = ((V854)==Cnil?Ct:Cnil); |
{object V808 = ((V806)==Cnil?Ct:Cnil); |
6295 |
VMR102(V856)}} |
VMR102(V808)}} |
6296 |
base[0]=base[0]; |
base[0]=base[0]; |
6297 |
return Cnil; |
return Cnil; |
6298 |
} |
} |
6299 |
/* local entry for function SAUT-NOT-CLASS-EQ */ |
/* local entry for function SAUT-NOT-CLASS-EQ */ |
6300 |
|
|
6301 |
static object LI113(V859,V860) |
static object LI113(V811,V812) |
6302 |
|
|
6303 |
object V859;object V860; |
object V811;object V812; |
6304 |
{ VMB103 VMS103 VMV103 |
{ VMB103 VMS103 VMV103 |
6305 |
goto TTL; |
goto TTL; |
6306 |
TTL:; |
TTL:; |
6307 |
{object V861; |
{object V813; |
6308 |
{object V862= CMPcar((V859)); |
{object V814= CMPcar((V811)); |
6309 |
if((V862!= VV[147]))goto T1899; |
if((V814!= VV[163]))goto T1887; |
6310 |
V861= (*(LnkLI290))(CMPcadr((V859))); |
V813= (*(LnkLI306))(CMPcadr((V811))); |
6311 |
goto T1898; |
goto T1886; |
6312 |
goto T1899; |
goto T1887; |
6313 |
T1899:; |
T1887:; |
6314 |
if((V862!= VV[130]))goto T1900; |
if((V814!= VV[146]))goto T1888; |
6315 |
V861= CMPcadr((V859)); |
V813= CMPcadr((V811)); |
6316 |
goto T1898; |
goto T1886; |
6317 |
goto T1900; |
goto T1888; |
6318 |
T1900:; |
T1888:; |
6319 |
V861= Cnil;} |
V813= Cnil;} |
6320 |
goto T1898; |
goto T1886; |
6321 |
T1898:; |
T1886:; |
6322 |
{object V863 = (((((V861))==(CMPcadr((V860)))?Ct:Cnil))==Cnil?Ct:Cnil); |
{object V815 = (((((V813))==(CMPcadr((V812)))?Ct:Cnil))==Cnil?Ct:Cnil); |
6323 |
VMR103(V863)}} |
VMR103(V815)}} |
6324 |
return Cnil; |
return Cnil; |
6325 |
} |
} |
6326 |
/* local entry for function SAUT-NOT-EQL */ |
/* local entry for function SAUT-NOT-EQL */ |
6327 |
|
|
6328 |
static object LI114(V866,V867) |
static object LI114(V818,V819) |
6329 |
|
|
6330 |
object V866;object V867; |
object V818;object V819; |
6331 |
{ VMB104 VMS104 VMV104 |
{ VMB104 VMS104 VMV104 |
6332 |
goto TTL; |
goto TTL; |
6333 |
TTL:; |
TTL:; |
6334 |
{object V868= CMPcar((V866)); |
{object V820= CMPcar((V818)); |
6335 |
if((V868!= VV[147]))goto T1901; |
if((V820!= VV[163]))goto T1889; |
6336 |
{object V869 = (((eql(CMPcadr((V866)),CMPcadr((V867)))?Ct:Cnil))==Cnil?Ct:Cnil); |
{object V821 = (((eql(CMPcadr((V818)),CMPcadr((V819)))?Ct:Cnil))==Cnil?Ct:Cnil); |
6337 |
VMR104(V869)} |
VMR104(V821)} |
6338 |
goto T1901; |
goto T1889; |
6339 |
T1901:; |
T1889:; |
6340 |
{object V870 = Ct; |
{object V822 = Ct; |
6341 |
VMR104(V870)}} |
VMR104(V822)}} |
6342 |
return Cnil; |
return Cnil; |
6343 |
} |
} |
6344 |
/* function definition for CLASS-APPLICABLE-USING-CLASS-P */ |
/* function definition for CLASS-APPLICABLE-USING-CLASS-P */ |
6347 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6348 |
register object *sup=base+VM105; VC105 |
register object *sup=base+VM105; VC105 |
6349 |
vs_check; |
vs_check; |
6350 |
{object V871; |
{object V823; |
6351 |
register object V872; |
register object V824; |
6352 |
check_arg(2); |
check_arg(2); |
6353 |
V871=(base[0]); |
V823=(base[0]); |
6354 |
V872=(base[1]); |
V824=(base[1]); |
6355 |
vs_top=sup; |
vs_top=sup; |
6356 |
goto TTL; |
goto TTL; |
6357 |
TTL:; |
TTL:; |
6358 |
{object V873; |
{object V825; |
6359 |
V875 = (V871); |
if(!(((VV[79]->s.s_dbind))==(VV[80]))){ |
6360 |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
goto T1893;} |
6361 |
goto T1905;} |
base[2]= (V824); |
|
base[2]= (V872); |
|
6362 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6363 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk280)(Lclptr280); |
6364 |
vs_top=sup; |
vs_top=sup; |
6365 |
V876= vs_base[0]; |
V827= vs_base[0]; |
6366 |
goto T1903; |
goto T1891; |
6367 |
goto T1905; |
goto T1893; |
6368 |
T1905:; |
T1893:; |
6369 |
V876= (*(LnkLI263))((V872)); |
V827= (*(LnkLI279))((V824)); |
6370 |
goto T1903; |
goto T1891; |
6371 |
T1903:; |
T1891:; |
6372 |
{register object x= V875,V874= V876; |
{register object x= (V823),V826= V827; |
6373 |
while(V874!=Cnil) |
while(V826!=Cnil) |
6374 |
if(x==(V874->c.c_car)){ |
if(x==(V826->c.c_car)){ |
6375 |
V873= V874; |
V825= V826; |
6376 |
goto T1902; |
goto T1890; |
6377 |
}else V874=V874->c.c_cdr; |
}else V826=V826->c.c_cdr; |
6378 |
V873= Cnil;} |
V825= Cnil;} |
6379 |
goto T1902; |
goto T1890; |
6380 |
T1902:; |
T1890:; |
6381 |
base[2]= (V873); |
base[2]= (V825); |
6382 |
if((V873)!=Cnil){ |
if((V825)!=Cnil){ |
6383 |
base[3]= (V873); |
base[3]= (V825); |
6384 |
goto T1909;} |
goto T1897;} |
6385 |
if(((VV[144]->s.s_dbind))!=Cnil){ |
if(((VV[160]->s.s_dbind))!=Cnil){ |
6386 |
goto T1911;} |
goto T1899;} |
6387 |
base[3]= (*(LnkLI291))((V871),(V872)); |
base[3]= (*(LnkLI307))((V823),(V824)); |
6388 |
goto T1909; |
goto T1897; |
6389 |
goto T1911; |
goto T1899; |
6390 |
T1911:; |
T1899:; |
6391 |
base[3]= (*(LnkLI292))((V871),(V872)); |
base[3]= (*(LnkLI308))((V823),(V824)); |
6392 |
goto T1909; |
goto T1897; |
6393 |
T1909:; |
T1897:; |
6394 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6395 |
return;} |
return;} |
6396 |
} |
} |
6397 |
} |
} |
6398 |
/* local entry for function CLASSES-HAVE-COMMON-SUBCLASS-P */ |
/* local entry for function CLASSES-HAVE-COMMON-SUBCLASS-P */ |
6399 |
|
|
6400 |
static object LI116(V879,V880) |
static object LI116(V830,V831) |
6401 |
|
|
6402 |
object V879;register object V880; |
object V830;register object V831; |
6403 |
{ VMB106 VMS106 VMV106 |
{ VMB106 VMS106 VMV106 |
6404 |
goto TTL; |
goto TTL; |
6405 |
TTL:; |
TTL:; |
6406 |
if(!(((V879))==((V880)))){ |
if(!(((V830))==((V831)))){ |
6407 |
goto T1913;} |
goto T1901;} |
6408 |
{object V881 = Ct; |
{object V832 = Ct; |
6409 |
VMR106(V881)} |
VMR106(V832)} |
6410 |
goto T1913; |
goto T1901; |
6411 |
T1913:; |
T1901:; |
6412 |
{object V882; |
{object V833; |
6413 |
base[0]= (V879); |
base[0]= (V830); |
6414 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6415 |
(void) (*Lnk293)(Lclptr293); |
(void) (*Lnk309)(Lclptr309); |
6416 |
vs_top=sup; |
vs_top=sup; |
6417 |
V882= vs_base[0];{object V883; |
V833= vs_base[0];{object V834; |
6418 |
{register object x= (V880),V884= (V882); |
{register object x= (V831),V835= (V833); |
6419 |
while(V884!=Cnil) |
while(V835!=Cnil) |
6420 |
if(x==(V884->c.c_car)){ |
if(x==(V835->c.c_car)){ |
6421 |
V883= V884; |
V834= V835; |
6422 |
goto T1918; |
goto T1906; |
6423 |
}else V884=V884->c.c_cdr; |
}else V835=V835->c.c_cdr; |
6424 |
V883= Cnil;} |
V834= Cnil;} |
6425 |
goto T1918; |
goto T1906; |
6426 |
T1918:; |
T1906:; |
6427 |
if(V883==Cnil)goto T1917; |
if(V834==Cnil)goto T1905; |
6428 |
{object V885 = V883; |
{object V836 = V834; |
6429 |
VMR106(V885)} |
VMR106(V836)} |
6430 |
goto T1917; |
goto T1905; |
6431 |
T1917:;} |
T1905:;} |
6432 |
{register object V886; |
{register object V837; |
6433 |
register object V887; |
register object V838; |
6434 |
V886= (V882); |
V837= (V833); |
6435 |
V887= CMPcar((V886)); |
V838= CMPcar((V837)); |
6436 |
goto T1922; |
goto T1910; |
6437 |
T1922:; |
T1910:; |
6438 |
if(!(((V886))==Cnil)){ |
if(!(((V837))==Cnil)){ |
6439 |
goto T1923;} |
goto T1911;} |
6440 |
{object V888 = Cnil; |
{object V839 = Cnil; |
6441 |
VMR106(V888)} |
VMR106(V839)} |
6442 |
goto T1923; |
goto T1911; |
6443 |
T1923:; |
T1911:; |
6444 |
if(((*(LnkLI292))((V887),(V880)))==Cnil){ |
if(((*(LnkLI308))((V838),(V831)))==Cnil){ |
6445 |
goto T1927;} |
goto T1915;} |
6446 |
{object V889 = Ct; |
{object V840 = Ct; |
6447 |
VMR106(V889)} |
VMR106(V840)} |
6448 |
goto T1927; |
goto T1915; |
6449 |
T1927:; |
T1915:; |
6450 |
V886= CMPcdr((V886)); |
V837= CMPcdr((V837)); |
6451 |
V887= CMPcar((V886)); |
V838= CMPcar((V837)); |
6452 |
goto T1922;}} |
goto T1910;}} |
6453 |
base[0]=base[0]; |
base[0]=base[0]; |
6454 |
return Cnil; |
return Cnil; |
6455 |
} |
} |
6459 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6460 |
register object *sup=base+VM107; VC107 |
register object *sup=base+VM107; VC107 |
6461 |
vs_check; |
vs_check; |
6462 |
{object V890; |
{object V841; |
6463 |
object V891; |
object V842; |
6464 |
check_arg(2); |
check_arg(2); |
6465 |
V890=(base[0]); |
V841=(base[0]); |
6466 |
V891=(base[1]); |
V842=(base[1]); |
6467 |
vs_top=sup; |
vs_top=sup; |
6468 |
goto TTL; |
goto TTL; |
6469 |
TTL:; |
TTL:; |
6470 |
{object V892= CMPcar((V890)); |
{object V843= CMPcar((V841)); |
6471 |
if((V892!= VV[10]))goto T1935; |
if((V843!= VV[8]))goto T1923; |
6472 |
base[2]= CMPcadr((V890)); |
base[2]= CMPcadr((V841)); |
6473 |
base[3]= CMPcadr((V891)); |
base[3]= CMPcadr((V842)); |
6474 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6475 |
(void) (*Lnk294)(); |
(void) (*Lnk310)(); |
6476 |
return; |
return; |
6477 |
goto T1935; |
goto T1923; |
6478 |
T1935:; |
T1923:; |
6479 |
base[2]= Cnil; |
base[2]= Cnil; |
6480 |
{object V893; |
{object V844; |
6481 |
V893= (*(LnkLI289))((V890)); |
V844= (*(LnkLI305))((V841)); |
6482 |
V895= CMPcadr((V891)); |
V846= CMPcadr((V842)); |
6483 |
base[4]= (V893); |
base[4]= (V844); |
6484 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
6485 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk280)(Lclptr280); |
6486 |
vs_top=sup; |
vs_top=sup; |
6487 |
V896= vs_base[0]; |
V847= vs_base[0]; |
6488 |
{register object x= /* INLINE-ARGS */V895,V894= V896; |
{register object x= /* INLINE-ARGS */V846,V845= V847; |
6489 |
while(V894!=Cnil) |
while(V845!=Cnil) |
6490 |
if(x==(V894->c.c_car)){ |
if(x==(V845->c.c_car)){ |
6491 |
base[3]= V894; |
base[3]= V845; |
6492 |
goto T1939; |
goto T1927; |
6493 |
}else V894=V894->c.c_cdr; |
}else V845=V845->c.c_cdr; |
6494 |
base[3]= Cnil;}} |
base[3]= Cnil;}} |
6495 |
goto T1939; |
goto T1927; |
6496 |
T1939:; |
T1927:; |
6497 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6498 |
return;} |
return;} |
6499 |
} |
} |
6504 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6505 |
register object *sup=base+VM108; VC108 |
register object *sup=base+VM108; VC108 |
6506 |
vs_check; |
vs_check; |
6507 |
{register object V897; |
{register object V848; |
6508 |
register object V898; |
register object V849; |
6509 |
check_arg(2); |
check_arg(2); |
6510 |
V897=(base[0]); |
V848=(base[0]); |
6511 |
V898=(base[1]); |
V849=(base[1]); |
6512 |
vs_top=sup; |
vs_top=sup; |
6513 |
goto TTL; |
goto TTL; |
6514 |
TTL:; |
TTL:; |
6515 |
if(!((CMPcar((V897)))==(VV[147]))){ |
if(!((CMPcar((V848)))==(VV[163]))){ |
6516 |
goto T1944;} |
goto T1932;} |
6517 |
base[2]= Cnil; |
base[2]= Cnil; |
6518 |
V899= (*(LnkLI290))(CMPcadr((V897))); |
V850= (*(LnkLI306))(CMPcadr((V848))); |
6519 |
base[3]= ((/* INLINE-ARGS */V899)==(CMPcadr((V898)))?Ct:Cnil); |
base[3]= ((/* INLINE-ARGS */V850)==(CMPcadr((V849)))?Ct:Cnil); |
6520 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6521 |
return; |
return; |
6522 |
goto T1944; |
goto T1932; |
6523 |
T1944:; |
T1932:; |
6524 |
{object V900; |
{object V851; |
6525 |
{object V901= CMPcar((V897)); |
{object V852= CMPcar((V848)); |
6526 |
if((V901!= VV[130]))goto T1949; |
if((V852!= VV[146]))goto T1937; |
6527 |
V900= ((CMPcadr((V897)))==(CMPcadr((V898)))?Ct:Cnil); |
V851= ((CMPcadr((V848)))==(CMPcadr((V849)))?Ct:Cnil); |
6528 |
goto T1948; |
goto T1936; |
6529 |
goto T1949; |
goto T1937; |
6530 |
T1949:; |
T1937:; |
6531 |
if((V901!= VV[10]))goto T1950; |
if((V852!= VV[8]))goto T1938; |
6532 |
if(!((CMPcadr((V897)))==(CMPcadr((V898))))){ |
if(!((CMPcadr((V848)))==(CMPcadr((V849))))){ |
6533 |
goto T1951;} |
goto T1939;} |
6534 |
V900= Ct; |
V851= Ct; |
6535 |
goto T1948; |
goto T1936; |
6536 |
goto T1951; |
goto T1939; |
6537 |
T1951:; |
T1939:; |
6538 |
V903= CMPcadr((V897)); |
V854= CMPcadr((V848)); |
6539 |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
if(!(((VV[79]->s.s_dbind))==(VV[80]))){ |
6540 |
goto T1955;} |
goto T1943;} |
6541 |
base[2]= CMPcadr((V898)); |
base[2]= CMPcadr((V849)); |
6542 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6543 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk280)(Lclptr280); |
6544 |
vs_top=sup; |
vs_top=sup; |
6545 |
V904= vs_base[0]; |
V855= vs_base[0]; |
6546 |
goto T1953; |
goto T1941; |
6547 |
goto T1955; |
goto T1943; |
6548 |
T1955:; |
T1943:; |
6549 |
V904= (*(LnkLI263))(CMPcadr((V898))); |
V855= (*(LnkLI279))(CMPcadr((V849))); |
6550 |
goto T1953; |
goto T1941; |
6551 |
T1953:; |
T1941:; |
6552 |
{register object x= /* INLINE-ARGS */V903,V902= V904; |
{register object x= /* INLINE-ARGS */V854,V853= V855; |
6553 |
while(V902!=Cnil) |
while(V853!=Cnil) |
6554 |
if(x==(V902->c.c_car)){ |
if(x==(V853->c.c_car)){ |
6555 |
V900= V902; |
V851= V853; |
6556 |
goto T1948; |
goto T1936; |
6557 |
}else V902=V902->c.c_cdr; |
}else V853=V853->c.c_cdr; |
6558 |
V900= Cnil; |
V851= Cnil; |
6559 |
goto T1948;} |
goto T1936;} |
6560 |
goto T1950; |
goto T1938; |
6561 |
T1950:; |
T1938:; |
6562 |
V900= Cnil;} |
V851= Cnil;} |
6563 |
goto T1948; |
goto T1936; |
6564 |
T1948:; |
T1936:; |
6565 |
base[2]= (V900); |
base[2]= (V851); |
6566 |
base[3]= (V900); |
base[3]= (V851); |
6567 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6568 |
return;} |
return;} |
6569 |
} |
} |
6574 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6575 |
register object *sup=base+VM109; VC109 |
register object *sup=base+VM109; VC109 |
6576 |
vs_check; |
vs_check; |
6577 |
{object V905; |
{object V856; |
6578 |
object V906; |
object V857; |
6579 |
check_arg(2); |
check_arg(2); |
6580 |
V905=(base[0]); |
V856=(base[0]); |
6581 |
V906=(base[1]); |
V857=(base[1]); |
6582 |
vs_top=sup; |
vs_top=sup; |
6583 |
goto TTL; |
goto TTL; |
6584 |
TTL:; |
TTL:; |
6594 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6595 |
register object *sup=base+VM110; VC110 |
register object *sup=base+VM110; VC110 |
6596 |
vs_check; |
vs_check; |
6597 |
{register object V907; |
{register object V858; |
6598 |
object V908; |
object V859; |
6599 |
check_arg(2); |
check_arg(2); |
6600 |
V907=(base[0]); |
V858=(base[0]); |
6601 |
V908=(base[1]); |
V859=(base[1]); |
6602 |
vs_top=sup; |
vs_top=sup; |
6603 |
goto TTL; |
goto TTL; |
6604 |
TTL:; |
TTL:; |
6605 |
{object V909; |
{object V860; |
6606 |
{object V910= CMPcar((V907)); |
{object V861= CMPcar((V858)); |
6607 |
if((V910!= VV[147]))goto T1963; |
if((V861!= VV[163]))goto T1951; |
6608 |
V909= (eql(CMPcadr((V907)),CMPcadr((V908)))?Ct:Cnil); |
V860= (eql(CMPcadr((V858)),CMPcadr((V859)))?Ct:Cnil); |
6609 |
goto T1962; |
goto T1950; |
6610 |
goto T1963; |
goto T1951; |
6611 |
T1963:; |
T1951:; |
6612 |
if((V910!= VV[130]))goto T1964; |
if((V861!= VV[146]))goto T1952; |
6613 |
V911= CMPcadr((V907)); |
V862= CMPcadr((V858)); |
6614 |
V912= (*(LnkLI290))(CMPcadr((V908))); |
V863= (*(LnkLI306))(CMPcadr((V859))); |
6615 |
V909= ((/* INLINE-ARGS */V911)==(/* INLINE-ARGS */V912)?Ct:Cnil); |
V860= ((/* INLINE-ARGS */V862)==(/* INLINE-ARGS */V863)?Ct:Cnil); |
6616 |
goto T1962; |
goto T1950; |
6617 |
goto T1964; |
goto T1952; |
6618 |
T1964:; |
T1952:; |
6619 |
if((V910!= VV[10]))goto T1965; |
if((V861!= VV[8]))goto T1953; |
6620 |
V914= CMPcadr((V907)); |
V865= CMPcadr((V858)); |
6621 |
{object V916; |
{object V867; |
6622 |
V916= (*(LnkLI290))(CMPcadr((V908))); |
V867= (*(LnkLI306))(CMPcadr((V859))); |
6623 |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
if(!(((VV[79]->s.s_dbind))==(VV[80]))){ |
6624 |
goto T1969;} |
goto T1957;} |
6625 |
base[2]= (V916); |
base[2]= (V867); |
6626 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6627 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk280)(Lclptr280); |
6628 |
vs_top=sup; |
vs_top=sup; |
6629 |
V915= vs_base[0]; |
V866= vs_base[0]; |
6630 |
goto T1966; |
goto T1954; |
6631 |
goto T1969; |
goto T1957; |
6632 |
T1969:; |
T1957:; |
6633 |
V915= (*(LnkLI263))((V916));} |
V866= (*(LnkLI279))((V867));} |
6634 |
goto T1966; |
goto T1954; |
6635 |
T1966:; |
T1954:; |
6636 |
{register object x= /* INLINE-ARGS */V914,V913= V915; |
{register object x= /* INLINE-ARGS */V865,V864= V866; |
6637 |
while(V913!=Cnil) |
while(V864!=Cnil) |
6638 |
if(x==(V913->c.c_car)){ |
if(x==(V864->c.c_car)){ |
6639 |
V909= V913; |
V860= V864; |
6640 |
goto T1962; |
goto T1950; |
6641 |
}else V913=V913->c.c_cdr; |
}else V864=V864->c.c_cdr; |
6642 |
V909= Cnil; |
V860= Cnil; |
6643 |
goto T1962;} |
goto T1950;} |
6644 |
goto T1965; |
goto T1953; |
6645 |
T1965:; |
T1953:; |
6646 |
V909= Cnil;} |
V860= Cnil;} |
6647 |
goto T1962; |
goto T1950; |
6648 |
T1962:; |
T1950:; |
6649 |
base[2]= (V909); |
base[2]= (V860); |
6650 |
base[3]= (V909); |
base[3]= (V860); |
6651 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6652 |
return;} |
return;} |
6653 |
} |
} |
6658 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6659 |
register object *sup=base+VM111; VC111 |
register object *sup=base+VM111; VC111 |
6660 |
vs_check; |
vs_check; |
6661 |
{register object V917; |
{register object V868; |
6662 |
register object V918; |
register object V869; |
6663 |
check_arg(2); |
check_arg(2); |
6664 |
V917=(base[0]); |
V868=(base[0]); |
6665 |
V918=(base[1]); |
V869=(base[1]); |
6666 |
vs_top=sup; |
vs_top=sup; |
6667 |
goto TTL; |
goto TTL; |
6668 |
TTL:; |
TTL:; |
6669 |
base[2]= (V917); |
base[2]= (V868); |
6670 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6671 |
(void) (*Lnk295)(); |
(void) (*Lnk311)(); |
6672 |
vs_top=sup; |
vs_top=sup; |
6673 |
V917= vs_base[0]; |
V868= vs_base[0]; |
6674 |
if(!(((V917))==(Ct))){ |
if(!(((V868))==(Ct))){ |
6675 |
goto T1977;} |
goto T1965;} |
6676 |
base[2]= Ct; |
base[2]= Ct; |
6677 |
base[3]= Ct; |
base[3]= Ct; |
6678 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6679 |
return; |
return; |
6680 |
goto T1977; |
goto T1965; |
6681 |
T1977:; |
T1965:; |
6682 |
if(type_of((V918))!=t_cons){ |
if(type_of((V869))!=t_cons){ |
6683 |
goto T1982;} |
goto T1970;} |
6684 |
if(!((CMPcar((V918)))==(Ct))){ |
if(!((CMPcar((V869)))==(Ct))){ |
6685 |
goto T1983;} |
goto T1971;} |
6686 |
goto T1982; |
goto T1970; |
6687 |
T1982:; |
T1970:; |
6688 |
base[2]= Cnil; |
base[2]= Cnil; |
6689 |
base[3]= Ct; |
base[3]= Ct; |
6690 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6691 |
return; |
return; |
6692 |
goto T1983; |
goto T1971; |
6693 |
T1983:; |
T1971:; |
6694 |
{object V919= CMPcar((V918)); |
{object V870= CMPcar((V869)); |
6695 |
if((V919!= VV[88]))goto T1989; |
if((V870!= VV[96]))goto T1977; |
6696 |
base[2]= (V917); |
base[2]= (V868); |
6697 |
base[3]= (V918); |
base[3]= (V869); |
6698 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6699 |
(void) (*Lnk296)(); |
(void) (*Lnk312)(); |
6700 |
return; |
return; |
6701 |
goto T1989; |
goto T1977; |
6702 |
T1989:; |
T1977:; |
6703 |
if((V919!= VV[89]))goto T1992; |
if((V870!= VV[97]))goto T1980; |
6704 |
base[2]= (V917); |
base[2]= (V868); |
6705 |
base[3]= (V918); |
base[3]= (V869); |
6706 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6707 |
(void) (*Lnk297)(); |
(void) (*Lnk313)(); |
6708 |
return; |
return; |
6709 |
goto T1992; |
goto T1980; |
6710 |
T1992:; |
T1980:; |
6711 |
if((V919!= VV[10]))goto T1995; |
if((V870!= VV[8]))goto T1983; |
6712 |
base[2]= (V917); |
base[2]= (V868); |
6713 |
base[3]= (V918); |
base[3]= (V869); |
6714 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6715 |
(void) (*Lnk298)(); |
(void) (*Lnk314)(); |
6716 |
return; |
return; |
6717 |
goto T1995; |
goto T1983; |
6718 |
T1995:; |
T1983:; |
6719 |
if((V919!= VV[282]))goto T1998; |
if((V870!= VV[298]))goto T1986; |
6720 |
base[2]= (V917); |
base[2]= (V868); |
6721 |
base[3]= (V918); |
base[3]= (V869); |
6722 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6723 |
(void) (*Lnk299)(); |
(void) (*Lnk315)(); |
6724 |
return; |
return; |
6725 |
goto T1998; |
goto T1986; |
6726 |
T1998:; |
T1986:; |
6727 |
if((V919!= VV[130]))goto T2001; |
if((V870!= VV[146]))goto T1989; |
6728 |
base[2]= (V917); |
base[2]= (V868); |
6729 |
base[3]= (V918); |
base[3]= (V869); |
6730 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6731 |
(void) (*Lnk300)(); |
(void) (*Lnk316)(); |
6732 |
return; |
return; |
6733 |
goto T2001; |
goto T1989; |
6734 |
T2001:; |
T1989:; |
6735 |
if((V919!= VV[147]))goto T2004; |
if((V870!= VV[163]))goto T1992; |
6736 |
base[2]= (V917); |
base[2]= (V868); |
6737 |
base[3]= (V918); |
base[3]= (V869); |
6738 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6739 |
(void) (*Lnk301)(); |
(void) (*Lnk317)(); |
6740 |
return; |
return; |
6741 |
goto T2004; |
goto T1992; |
6742 |
T2004:; |
T1992:; |
6743 |
base[2]= VV[148]; |
base[2]= VV[164]; |
6744 |
base[3]= VV[146]; |
base[3]= VV[162]; |
6745 |
base[4]= (V918); |
base[4]= (V869); |
6746 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
6747 |
Lerror(); |
Lerror(); |
6748 |
return;} |
return;} |
6754 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6755 |
register object *sup=base+VM112; VC112 |
register object *sup=base+VM112; VC112 |
6756 |
vs_check; |
vs_check; |
6757 |
{object V920; |
{register object V871; |
6758 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
6759 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
6760 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
6761 |
if(vs_base>=vs_top){vs_top=sup;goto T2010;} |
if(vs_base>=vs_top){vs_top=sup;goto T1998;} |
6762 |
V920=(base[1]); |
V871=(base[1]); |
6763 |
vs_top=sup; |
vs_top=sup; |
6764 |
goto T2011; |
goto T1999; |
6765 |
goto T2010; |
goto T1998; |
6766 |
T2010:; |
T1998:; |
6767 |
V920= Ct; |
V871= Ct; |
6768 |
goto T2011; |
goto T1999; |
6769 |
T2011:; |
T1999:; |
6770 |
if(!(((VV[72]->s.s_dbind))==(VV[149]))){ |
if(!(((VV[79]->s.s_dbind))==(VV[165]))){ |
6771 |
goto T2014;} |
goto T2002;} |
6772 |
base[2]= Ct; |
base[2]= Ct; |
6773 |
goto T2013; |
goto T2001; |
6774 |
goto T2014; |
goto T2002; |
6775 |
T2014:; |
T2002:; |
6776 |
base[2]= (((VV[72]->s.s_dbind))==(VV[73])?Ct:Cnil); |
base[2]= (((VV[79]->s.s_dbind))==(VV[80])?Ct:Cnil); |
6777 |
goto T2013; |
goto T2001; |
6778 |
T2013:; |
T2001:; |
6779 |
if(!(type_of((V920))==t_symbol)){ |
if(!(type_of((V871))==t_symbol)){ |
6780 |
goto T2018;} |
goto T2006;} |
6781 |
base[3]= (VFUN_NARGS=1,(*(LnkLI302))((V920))); |
base[3]= (VFUN_NARGS=1,(*(LnkLI318))((V871))); |
6782 |
goto T2016; |
goto T2004; |
6783 |
goto T2018; |
goto T2006; |
6784 |
T2018:; |
T2006:; |
6785 |
base[3]= (V920); |
base[3]= (V871); |
6786 |
goto T2016; |
goto T2004; |
6787 |
T2016:; |
T2004:; |
6788 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6789 |
L123(base); |
L123(base); |
6790 |
return; |
return; |
6796 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6797 |
register object *sup=base+VM113; VC113 |
register object *sup=base+VM113; VC113 |
6798 |
vs_check; |
vs_check; |
6799 |
{object V921; |
{object V872; |
6800 |
object V922; |
object V873; |
6801 |
object V923; |
object V874; |
6802 |
object V924; |
object V875; |
6803 |
object V925; |
object V876; |
6804 |
if(vs_top-vs_base<3) too_few_arguments(); |
if(vs_top-vs_base<3) too_few_arguments(); |
6805 |
if(vs_top-vs_base>5) too_many_arguments(); |
if(vs_top-vs_base>5) too_many_arguments(); |
6806 |
V921=(base[0]); |
V872=(base[0]); |
6807 |
V922=(base[1]); |
V873=(base[1]); |
6808 |
V923=(base[2]); |
V874=(base[2]); |
6809 |
vs_base=vs_base+3; |
vs_base=vs_base+3; |
6810 |
if(vs_base>=vs_top){vs_top=sup;goto T2020;} |
if(vs_base>=vs_top){vs_top=sup;goto T2008;} |
6811 |
V924=(base[3]); |
V875=(base[3]); |
6812 |
vs_base++; |
vs_base++; |
6813 |
if(vs_base>=vs_top){vs_top=sup;goto T2021;} |
if(vs_base>=vs_top){vs_top=sup;goto T2009;} |
6814 |
V925=(base[4]); |
V876=(base[4]); |
6815 |
vs_top=sup; |
vs_top=sup; |
6816 |
goto T2022; |
goto T2010; |
6817 |
goto T2020; |
goto T2008; |
6818 |
T2020:; |
T2008:; |
6819 |
V924= Cnil; |
V875= Cnil; |
6820 |
goto T2021; |
goto T2009; |
6821 |
T2021:; |
T2009:; |
6822 |
V925= Cnil; |
V876= Cnil; |
6823 |
goto T2022; |
goto T2010; |
6824 |
T2022:; |
T2010:; |
6825 |
V926= (((((V924))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
V877= (((((V875))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
6826 |
V927= (((((V925))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
V878= (((((V876))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
6827 |
V928= (*(LnkLI213))((V922)); |
V879= (*(LnkLI230))((V873)); |
6828 |
base[5]= (VFUN_NARGS=6,(*(LnkLI216))((V921),(V922),(V923),/* INLINE-ARGS */V926,/* INLINE-ARGS */V927,((/* INLINE-ARGS */V928)==Cnil?Ct:Cnil))); |
base[5]= (VFUN_NARGS=6,(*(LnkLI233))((V872),(V873),(V874),/* INLINE-ARGS */V877,/* INLINE-ARGS */V878,((/* INLINE-ARGS */V879)==Cnil?Ct:Cnil))); |
6829 |
base[6]= (V924); |
base[6]= (V875); |
6830 |
base[7]= (V925); |
base[7]= (V876); |
6831 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
6832 |
{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)) |
6833 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
6838 |
} |
} |
6839 |
/* local entry for function GET-SECONDARY-DISPATCH-FUNCTION1 */ |
/* local entry for function GET-SECONDARY-DISPATCH-FUNCTION1 */ |
6840 |
|
|
6841 |
static object LI125(object V933,object V932,object V931,object V930,object V929,object first,...) |
static object LI125(object V884,object V883,object V882,object V881,object V880,object first,...) |
6842 |
{ |
{ |
6843 |
va_list ap; |
va_list ap; |
6844 |
int narg = VFUN_NARGS; VMB114 VMS114 VMV114 |
int narg = VFUN_NARGS; VMB114 VMS114 VMV114 |
6845 |
{register object V934; |
{register object V885; |
6846 |
object V935; |
object V886; |
6847 |
register object V936; |
register object V887; |
6848 |
register object V937; |
register object V888; |
6849 |
register object V938; |
register object V889; |
6850 |
object V939; |
object V890; |
6851 |
register object V940; |
register object V891; |
6852 |
va_start(ap,first); |
va_start(ap,first); |
6853 |
if(narg <5) too_few_arguments(); |
if(narg <5) too_few_arguments(); |
6854 |
Vcs[0]=MMcons(V933,Cnil); |
Vcs[0]=MMcons(V884,Cnil); |
6855 |
V934= V932; |
V885= V883; |
6856 |
V935= V931; |
V886= V882; |
6857 |
V936= V930; |
V887= V881; |
6858 |
V937= V929; |
V888= V880; |
6859 |
narg = narg - 5; |
narg = narg - 5; |
6860 |
if (narg <= 0) goto T2028; |
if (narg <= 0) goto T2016; |
6861 |
else { |
else { |
6862 |
V938= first;} |
V889= first;} |
6863 |
if (--narg <= 0) goto T2029; |
if (--narg <= 0) goto T2017; |
6864 |
else { |
else { |
6865 |
V939= va_arg(ap,object);} |
V890= va_arg(ap,object);} |
6866 |
if (--narg <= 0) goto T2030; |
if (--narg <= 0) goto T2018; |
6867 |
else { |
else { |
6868 |
V940= va_arg(ap,object);} |
V891= va_arg(ap,object);} |
6869 |
--narg; goto T2031; |
--narg; goto T2019; |
6870 |
goto T2028; |
goto T2016; |
6871 |
T2028:; |
T2016:; |
6872 |
V938= Cnil; |
V889= Cnil; |
6873 |
goto T2029; |
goto T2017; |
6874 |
T2029:; |
T2017:; |
6875 |
V939= Ct; |
V890= Ct; |
6876 |
goto T2030; |
goto T2018; |
6877 |
T2030:; |
T2018:; |
6878 |
V940= Cnil; |
V891= Cnil; |
6879 |
goto T2031; |
goto T2019; |
6880 |
T2031:; |
T2019:; |
6881 |
if(((V934))!=Cnil){ |
if(((V885))!=Cnil){ |
6882 |
goto T2036;} |
goto T2024;} |
6883 |
if(((V940))==Cnil){ |
if(((V891))==Cnil){ |
6884 |
goto T2039;} |
goto T2027;} |
6885 |
{object V941 = |
{object V892 = |
6886 |
make_cclosure_new(LC165,Cnil,Vcs[0],Cdata); |
make_cclosure_new(LC165,Cnil,Vcs[0],Cdata); |
6887 |
VMR114(V941)} |
VMR114(V892)} |
6888 |
goto T2039; |
goto T2027; |
6889 |
T2039:; |
T2027:; |
6890 |
{object V942 = |
{object V893 = |
6891 |
make_cclosure_new(LC166,Cnil,Vcs[0],Cdata); |
make_cclosure_new(LC166,Cnil,Vcs[0],Cdata); |
6892 |
VMR114(V942)} |
VMR114(V893)} |
6893 |
goto T2036; |
goto T2024; |
6894 |
T2036:; |
T2024:; |
6895 |
{object V943; |
{object V894; |
6896 |
register object V944; |
register object V895; |
6897 |
V943= CMPcar((V934));{object V945; |
V894= CMPcar((V885));{object V896; |
6898 |
base[2]= (V943); |
base[2]= (V894); |
6899 |
base[3]= (VV[150]->s.s_dbind); |
base[3]= (VV[166]->s.s_dbind); |
6900 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6901 |
Lgethash(); |
Lgethash(); |
6902 |
vs_top=sup; |
vs_top=sup; |
6903 |
V945= vs_base[0]; |
V896= vs_base[0]; |
6904 |
if(V945==Cnil)goto T2043; |
if(V896==Cnil)goto T2031; |
6905 |
V944= V945; |
V895= V896; |
6906 |
goto T2042; |
goto T2030; |
6907 |
goto T2043; |
goto T2031; |
6908 |
T2043:;} |
T2031:;} |
6909 |
{object V947; |
{object V898; |
6910 |
object V948; |
object V899; |
6911 |
V947= (VV[150]->s.s_dbind); |
V898= (VV[166]->s.s_dbind); |
6912 |
V948= make_cons(Cnil,Cnil); |
V899= make_cons(Cnil,Cnil); |
6913 |
base[3]= V943; |
base[3]= V894; |
6914 |
base[4]= (V947); |
base[4]= (V898); |
6915 |
base[5]= (V948); |
base[5]= (V899); |
6916 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
6917 |
siLhash_set(); |
siLhash_set(); |
6918 |
vs_top=sup; |
vs_top=sup; |
6919 |
V944= vs_base[0];} |
V895= vs_base[0];} |
6920 |
goto T2042; |
goto T2030; |
6921 |
T2042:; |
T2030:; |
6922 |
if((CMPcdr((V934)))!=Cnil){ |
if((CMPcdr((V885)))!=Cnil){ |
6923 |
goto T2053;} |
goto T2041;} |
6924 |
if(((V938))==Cnil){ |
if(((V889))==Cnil){ |
6925 |
goto T2053;} |
goto T2041;} |
6926 |
if(((V936))!=Cnil){ |
if(((V887))!=Cnil){ |
6927 |
goto T2053;} |
goto T2041;} |
6928 |
if(((V937))==Cnil){ |
if(((V888))==Cnil){ |
6929 |
goto T2053;} |
goto T2041;} |
6930 |
if(((V940))!=Cnil){ |
if(((V891))!=Cnil){ |
6931 |
goto T2053;}{object V949; |
goto T2041;}{object V900; |
6932 |
V949= CMPcar((V944)); |
V900= CMPcar((V895)); |
6933 |
if(V949==Cnil)goto T2063; |
if(V900==Cnil)goto T2051; |
6934 |
{object V950 = V949; |
{object V901 = V900; |
6935 |
VMR114(V950)} |
VMR114(V901)} |
6936 |
goto T2063; |
goto T2051; |
6937 |
T2063:;} |
T2051:;} |
6938 |
{object V952; |
{object V903; |
6939 |
V952= (*(LnkLI303))((Vcs[0]->c.c_car),(V934),(V935),(V936),(V937),(V938),(V939),(V940)); |
V903= (*(LnkLI319))((Vcs[0]->c.c_car),(V885),(V886),(V887),(V888),(V889),(V890),(V891)); |
6940 |
(V944)->c.c_car = (V952); |
(V895)->c.c_car = (V903); |
6941 |
{object V953 = (V952); |
{object V904 = (V903); |
6942 |
VMR114(V953)}} |
VMR114(V904)}} |
6943 |
goto T2053; |
goto T2041; |
6944 |
T2053:; |
T2041:; |
6945 |
{object V954; |
{object V905; |
6946 |
V955 = (V934); |
if(((V889))==Cnil){ |
6947 |
if(((V938))==Cnil){ |
goto T2058;} |
6948 |
goto T2070;} |
V906= VV[167]; |
6949 |
V956= VV[151]; |
goto T2056; |
6950 |
goto T2068; |
goto T2058; |
6951 |
goto T2070; |
T2058:; |
6952 |
T2070:; |
V906= (V886); |
6953 |
V956= (V935); |
goto T2056; |
6954 |
goto T2068; |
T2056:; |
6955 |
T2068:; |
V905= list(5,(V885),V906,(V887),(V888),(V891));{object V907; |
6956 |
V957 = (V936); |
{register object x= (V905),V909= CMPcdr((V895)); |
6957 |
V958 = (V937); |
while(V909!=Cnil) |
6958 |
V959 = (V940); |
if(equal(x,V909->c.c_car->c.c_car) &&V909->c.c_car != Cnil){ |
6959 |
V954= list(5,V955,V956,V957,V958,V959);{object V960; |
V908= (V909->c.c_car); |
6960 |
{register object x= (V954),V962= CMPcdr((V944)); |
goto T2062; |
6961 |
while(V962!=Cnil) |
}else V909=V909->c.c_cdr; |
6962 |
if(equal(x,V962->c.c_car->c.c_car) &&V962->c.c_car != Cnil){ |
V908= Cnil;} |
6963 |
V961= (V962->c.c_car); |
goto T2062; |
6964 |
goto T2074; |
T2062:; |
6965 |
}else V962=V962->c.c_cdr; |
V907= CMPcdr(V908); |
6966 |
V961= Cnil;} |
if(V907==Cnil)goto T2060; |
6967 |
goto T2074; |
{object V910 = V907; |
6968 |
T2074:; |
VMR114(V910)} |
6969 |
V960= CMPcdr(V961); |
goto T2060; |
6970 |
if(V960==Cnil)goto T2072; |
T2060:;} |
6971 |
{object V963 = V960; |
{object V911; |
6972 |
VMR114(V963)} |
V911= (*(LnkLI319))((Vcs[0]->c.c_car),(V885),(V886),(V887),(V888),(V889),(V890),(V891)); |
6973 |
goto T2072; |
{object V912; |
6974 |
T2072:;} |
object V914; |
6975 |
{object V964; |
V912= make_cons((V905),(V911)); |
6976 |
V964= (*(LnkLI303))((Vcs[0]->c.c_car),(V934),(V935),(V936),(V937),(V938),(V939),(V940)); |
V914= make_cons((V912),CMPcdr(V895)); |
6977 |
{object V965; |
(V895)->c.c_cdr = (V914);} |
6978 |
object V967; |
{object V915 = (V911); |
6979 |
V965= make_cons((V954),(V964)); |
VMR114(V915)}}}} |
|
V967= make_cons((V965),CMPcdr(V944)); |
|
|
(V944)->c.c_cdr = (V967);} |
|
|
{object V968 = (V964); |
|
|
VMR114(V968)}}}} |
|
6980 |
va_end(ap); |
va_end(ap); |
6981 |
base[0]=base[0]; |
base[0]=base[0]; |
6982 |
return Cnil;} |
return Cnil;} |
6983 |
} |
} |
6984 |
/* local entry for function GET-SECONDARY-DISPATCH-FUNCTION2 */ |
/* local entry for function GET-SECONDARY-DISPATCH-FUNCTION2 */ |
6985 |
|
|
6986 |
static object LI126(V977,V978,V979,V980,V981,V982,V983,V984) |
static object LI126(V924,V925,V926,V927,V928,V929,V930,V931) |
6987 |
|
|
6988 |
register object V977;object V978;object V979;object V980;object V981;object V982;object V983;object V984; |
register object V924;object V925;object V926;object V927;object V928;object V929;object V930;object V931; |
6989 |
{ VMB115 VMS115 VMV115 |
{ VMB115 VMS115 VMV115 |
6990 |
goto TTL; |
goto TTL; |
6991 |
TTL:; |
TTL:; |
6992 |
if(((V982))==Cnil){ |
if(((V929))==Cnil){ |
6993 |
goto T2081;} |
goto T2069;} |
6994 |
if(((V983))==Cnil){ |
if(((V930))==Cnil){ |
6995 |
goto T2081;} |
goto T2069;} |
6996 |
if(((V984))!=Cnil){ |
if(((V931))!=Cnil){ |
6997 |
goto T2081;} |
goto T2069;} |
6998 |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
if(!(((VV[79]->s.s_dbind))==(VV[80]))){ |
6999 |
goto T2088;} |
goto T2076;} |
7000 |
{object V985; |
{object V932; |
7001 |
object V986; |
object V933; |
7002 |
base[2]= (V977); |
base[2]= (V924); |
7003 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7004 |
(void) (*Lnk304)(Lclptr304); |
(void) (*Lnk320)(Lclptr320); |
7005 |
vs_top=sup; |
vs_top=sup; |
7006 |
V985= vs_base[0]; |
V932= vs_base[0]; |
7007 |
V986= (*(LnkLI305))((V977),(V985),(V978)); |
V933= (*(LnkLI321))((V924),(V932),(V925)); |
7008 |
{object V987 = (*(LnkLI306))((V977),(V986),(V980),(V981)); |
{object V934 = (*(LnkLI322))((V924),(V933),(V927),(V928)); |
7009 |
VMR115(V987)}} |
VMR115(V934)}} |
7010 |
goto T2088; |
goto T2076; |
7011 |
T2088:; |
T2076:; |
7012 |
{object V988; |
{object V935; |
7013 |
V988= (*(LnkLI307))((V977),Cnil,(V978)); |
V935= (*(LnkLI323))((V924),Cnil,(V925)); |
7014 |
{object V989 = (*(LnkLI306))((V977),(V988),(V980),(V981)); |
{object V936 = (*(LnkLI322))((V924),(V935),(V927),(V928)); |
7015 |
VMR115(V989)}} |
VMR115(V936)}} |
7016 |
goto T2081; |
goto T2069; |
7017 |
T2081:; |
T2069:; |
7018 |
{object V990; |
{object V937; |
7019 |
base[0]= (V977); |
base[0]= (V924); |
7020 |
base[1]= (V978); |
base[1]= (V925); |
7021 |
base[2]= (V979); |
base[2]= (V926); |
7022 |
base[3]= (V983); |
base[3]= (V930); |
7023 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
7024 |
(void) (*Lnk308)(); |
(void) (*Lnk324)(); |
7025 |
vs_top=sup; |
vs_top=sup; |
7026 |
V990= vs_base[0]; |
V937= vs_base[0]; |
7027 |
{object V991 = (VFUN_NARGS=3,(*(LnkLI309))((V977),(V990),(V984))); |
{object V938 = (VFUN_NARGS=3,(*(LnkLI325))((V924),(V937),(V931))); |
7028 |
VMR115(V991)}} |
VMR115(V938)}} |
7029 |
base[0]=base[0]; |
base[0]=base[0]; |
7030 |
return Cnil; |
return Cnil; |
7031 |
} |
} |
7035 |
{register object *base=vs_base; |
{register object *base=vs_base; |
7036 |
register object *sup=base+VM116; VC116 |
register object *sup=base+VM116; VC116 |
7037 |
vs_check; |
vs_check; |
7038 |
{object V992; |
{object V939; |
7039 |
object V993; |
object V940; |
7040 |
object V994; |
object V941; |
7041 |
object V995; |
object V942; |
7042 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
7043 |
if(vs_top-vs_base>4) too_many_arguments(); |
if(vs_top-vs_base>4) too_many_arguments(); |
7044 |
V992=(base[0]); |
V939=(base[0]); |
7045 |
V993=(base[1]); |
V940=(base[1]); |
7046 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
7047 |
if(vs_base>=vs_top){vs_top=sup;goto T2099;} |
if(vs_base>=vs_top){vs_top=sup;goto T2087;} |
7048 |
V994=(base[2]); |
V941=(base[2]); |
7049 |
vs_base++; |
vs_base++; |
7050 |
if(vs_base>=vs_top){vs_top=sup;goto T2100;} |
if(vs_base>=vs_top){vs_top=sup;goto T2088;} |
7051 |
V995=(base[3]); |
V942=(base[3]); |
7052 |
vs_top=sup; |
vs_top=sup; |
7053 |
goto T2101; |
goto T2089; |
7054 |
goto T2099; |
goto T2087; |
7055 |
T2099:; |
T2087:; |
7056 |
V994= Cnil; |
V941= Cnil; |
7057 |
goto T2100; |
goto T2088; |
7058 |
T2100:; |
T2088:; |
7059 |
V995= Cnil; |
V942= Cnil; |
7060 |
goto T2101; |
goto T2089; |
7061 |
T2101:; |
T2089:; |
7062 |
base[4]= (VFUN_NARGS=6,(*(LnkLI216))((V992),(V993),Cnil,(((((V994))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),(((((V995))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),Ct)); |
base[4]= (VFUN_NARGS=6,(*(LnkLI233))((V939),(V940),Cnil,(((((V941))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),(((((V942))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil),Ct)); |
7063 |
base[5]= (V994); |
base[5]= (V941); |
7064 |
base[6]= (V995); |
base[6]= (V942); |
7065 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
7066 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
7067 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
7072 |
} |
} |
7073 |
/* local entry for function GET-EFFECTIVE-METHOD-FUNCTION1 */ |
/* local entry for function GET-EFFECTIVE-METHOD-FUNCTION1 */ |
7074 |
|
|
7075 |
static object LI128(object V997,object V996,object first,...) |
static object LI128(object V944,object V943,object first,...) |
7076 |
{ |
{ |
7077 |
va_list ap; |
va_list ap; |
7078 |
int narg = VFUN_NARGS; VMB117 VMS117 VMV117 |
int narg = VFUN_NARGS; VMB117 VMS117 VMV117 |
7079 |
{object V998; |
{object V945; |
7080 |
object V999; |
object V946; |
7081 |
object V1000; |
object V947; |
7082 |
va_start(ap,first); |
va_start(ap,first); |
7083 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
7084 |
V998= V997; |
V945= V944; |
7085 |
V999= V996; |
V946= V943; |
7086 |
narg = narg - 2; |
narg = narg - 2; |
7087 |
if (narg <= 0) goto T2107; |
if (narg <= 0) goto T2095; |
7088 |
else { |
else { |
7089 |
V1000= first;} |
V947= first;} |
7090 |
--narg; goto T2108; |
--narg; goto T2096; |
7091 |
goto T2107; |
goto T2095; |
7092 |
T2107:; |
T2095:; |
7093 |
V1000= Ct; |
V947= Ct; |
7094 |
goto T2108; |
goto T2096; |
7095 |
T2108:; |
T2096:; |
7096 |
{object V1001 = (VFUN_NARGS=7,(*(LnkLI216))((V998),(V999),Cnil,Cnil,Cnil,Ct,(V1000))); |
{object V948 = (VFUN_NARGS=7,(*(LnkLI233))((V945),(V946),Cnil,Cnil,Cnil,Ct,(V947))); |
7097 |
VMR117(V1001)} |
VMR117(V948)} |
7098 |
va_end(ap); |
va_end(ap); |
7099 |
return Cnil;} |
return Cnil;} |
7100 |
} |
} |
7101 |
/* local entry for function METHODS-CONTAIN-EQL-SPECIALIZER-P */ |
/* local entry for function METHODS-CONTAIN-EQL-SPECIALIZER-P */ |
7102 |
|
|
7103 |
static object LI129(V1003) |
static object LI129(V950) |
7104 |
|
|
7105 |
object V1003; |
object V950; |
7106 |
{ VMB118 VMS118 VMV118 |
{ VMB118 VMS118 VMV118 |
7107 |
goto TTL; |
goto TTL; |
7108 |
TTL:; |
TTL:; |
7109 |
if(((VV[72]->s.s_dbind))==(VV[73])){ |
if(((VV[79]->s.s_dbind))==(VV[80])){ |
7110 |
goto T2110;} |
goto T2098;} |
7111 |
{object V1004 = Cnil; |
{object V951 = Cnil; |
7112 |
VMR118(V1004)} |
VMR118(V951)} |
7113 |
goto T2110; |
goto T2098; |
7114 |
T2110:; |
T2098:; |
7115 |
{register object V1005; |
{register object V952; |
7116 |
register object V1006; |
register object V953; |
7117 |
V1005= (V1003); |
V952= (V950); |
7118 |
V1006= CMPcar((V1005)); |
V953= CMPcar((V952)); |
7119 |
|
goto T2103; |
7120 |
|
T2103:; |
7121 |
|
if(!(((V952))==Cnil)){ |
7122 |
|
goto T2104;} |
7123 |
|
{object V954 = Cnil; |
7124 |
|
VMR118(V954)} |
7125 |
|
goto T2104; |
7126 |
|
T2104:; |
7127 |
|
{register object V955; |
7128 |
|
register object V956; |
7129 |
|
base[3]= (V953); |
7130 |
|
vs_top=(vs_base=base+3)+1; |
7131 |
|
(void) (*Lnk259)(Lclptr259); |
7132 |
|
vs_top=sup; |
7133 |
|
V955= vs_base[0]; |
7134 |
|
V956= CMPcar((V955)); |
7135 |
goto T2115; |
goto T2115; |
7136 |
T2115:; |
T2115:; |
7137 |
if(!(((V1005))==Cnil)){ |
if(!(((V955))==Cnil)){ |
7138 |
goto T2116;} |
goto T2116;} |
7139 |
{object V1007 = Cnil; |
goto T2108; |
|
VMR118(V1007)} |
|
7140 |
goto T2116; |
goto T2116; |
7141 |
T2116:; |
T2116:; |
7142 |
{register object V1008; |
base[3]= (V956); |
|
register object V1009; |
|
|
base[3]= (V1006); |
|
7143 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7144 |
(void) (*Lnk242)(Lclptr242); |
(void) (*Lnk326)(Lclptr326); |
|
vs_top=sup; |
|
|
V1008= vs_base[0]; |
|
|
V1009= CMPcar((V1008)); |
|
|
goto T2127; |
|
|
T2127:; |
|
|
if(!(((V1008))==Cnil)){ |
|
|
goto T2128;} |
|
|
goto T2120; |
|
|
goto T2128; |
|
|
T2128:; |
|
|
base[3]= (V1009); |
|
|
vs_top=(vs_base=base+3)+1; |
|
|
(void) (*Lnk310)(Lclptr310); |
|
7145 |
vs_top=sup; |
vs_top=sup; |
7146 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
7147 |
goto T2132;} |
goto T2120;} |
7148 |
goto T2122; |
goto T2110; |
|
goto T2132; |
|
|
T2132:; |
|
|
V1008= CMPcdr((V1008)); |
|
|
V1009= CMPcar((V1008)); |
|
|
goto T2127;} |
|
|
goto T2122; |
|
|
T2122:; |
|
|
{object V1010 = Ct; |
|
|
VMR118(V1010)} |
|
7149 |
goto T2120; |
goto T2120; |
7150 |
T2120:; |
T2120:; |
7151 |
V1005= CMPcdr((V1005)); |
V955= CMPcdr((V955)); |
7152 |
V1006= CMPcar((V1005)); |
V956= CMPcar((V955)); |
7153 |
goto T2115;} |
goto T2115;} |
7154 |
|
goto T2110; |
7155 |
|
T2110:; |
7156 |
|
{object V957 = Ct; |
7157 |
|
VMR118(V957)} |
7158 |
|
goto T2108; |
7159 |
|
T2108:; |
7160 |
|
V952= CMPcdr((V952)); |
7161 |
|
V953= CMPcar((V952)); |
7162 |
|
goto T2103;} |
7163 |
base[0]=base[0]; |
base[0]=base[0]; |
7164 |
return Cnil; |
return Cnil; |
7165 |
} |
} |
7166 |
/* local entry for function UPDATE-DFUN */ |
/* local entry for function UPDATE-DFUN */ |
7167 |
|
|
7168 |
static object LI130(object V1011,object first,...) |
static object LI130(object V958,object first,...) |
7169 |
{ |
{ |
7170 |
va_list ap; |
va_list ap; |
7171 |
int narg = VFUN_NARGS; VMB119 VMS119 VMV119 |
int narg = VFUN_NARGS; VMB119 VMS119 VMV119 |
7172 |
{register object V1012; |
{register object V959; |
7173 |
object V1013; |
object V960; |
7174 |
object V1014; |
object V961; |
7175 |
object V1015; |
object V962; |
7176 |
va_start(ap,first); |
va_start(ap,first); |
7177 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
7178 |
V1012= V1011; |
V959= V958; |
7179 |
narg = narg - 1; |
narg = narg - 1; |
7180 |
if (narg <= 0) goto T2146; |
if (narg <= 0) goto T2134; |
7181 |
else { |
else { |
7182 |
V1013= first;} |
V960= first;} |
7183 |
if (--narg <= 0) goto T2147; |
if (--narg <= 0) goto T2135; |
7184 |
else { |
else { |
7185 |
V1014= va_arg(ap,object);} |
V961= va_arg(ap,object);} |
7186 |
if (--narg <= 0) goto T2148; |
if (--narg <= 0) goto T2136; |
7187 |
else { |
else { |
7188 |
V1015= va_arg(ap,object);} |
V962= va_arg(ap,object);} |
7189 |
--narg; goto T2149; |
--narg; goto T2137; |
7190 |
goto T2146; |
goto T2134; |
7191 |
T2146:; |
T2134:; |
7192 |
V1013= Cnil; |
V960= Cnil; |
7193 |
goto T2147; |
goto T2135; |
7194 |
T2147:; |
T2135:; |
7195 |
V1014= Cnil; |
V961= Cnil; |
7196 |
goto T2148; |
goto T2136; |
7197 |
T2148:; |
T2136:; |
7198 |
V1015= Cnil; |
V962= Cnil; |
7199 |
goto T2149; |
goto T2137; |
7200 |
T2149:; |
T2137:; |
7201 |
{object V1016; |
{object V963; |
7202 |
object V1017; |
object V964; |
7203 |
object V1018; |
object V965; |
7204 |
V1016= (*(LnkLI196))((V1012)); |
V963= (*(LnkLI213))((V959)); |
7205 |
if(((V1016))==Cnil){ |
if(((V963))==Cnil){ |
7206 |
goto T2156;} |
goto T2144;} |
7207 |
V1017= (*(LnkLI311))((V1012)); |
V964= (*(LnkLI327))((V959)); |
7208 |
goto T2154; |
goto T2142; |
7209 |
goto T2156; |
goto T2144; |
7210 |
T2156:; |
T2144:; |
7211 |
base[3]= (V1012); |
base[3]= (V959); |
7212 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7213 |
(void) (*Lnk162)(Lclptr162); |
(void) (*Lnk178)(Lclptr178); |
|
vs_top=sup; |
|
|
V1017= vs_base[0]; |
|
|
goto T2154; |
|
|
T2154:; |
|
|
V1018= (*(LnkLI220))((V1012)); |
|
|
(void)((VFUN_NARGS=4,(*(LnkLI230))((V1012),(V1013),(V1014),(V1015)))); |
|
|
{register object V1019; |
|
|
object V1020; |
|
|
if(((V1016))==Cnil){ |
|
|
goto T2163;} |
|
|
if((V1013)!=Cnil){ |
|
|
V1019= (V1013); |
|
|
goto T2161;} |
|
|
V1019= (*(LnkLI312))((V1012)); |
|
|
goto T2161; |
|
|
goto T2163; |
|
|
T2163:; |
|
|
base[5]= (V1012); |
|
|
vs_top=(vs_base=base+5)+1; |
|
|
(void) (*Lnk313)(Lclptr313); |
|
7214 |
vs_top=sup; |
vs_top=sup; |
7215 |
V1019= vs_base[0]; |
V964= vs_base[0]; |
7216 |
goto T2161; |
goto T2142; |
7217 |
T2161:; |
T2142:; |
7218 |
V1020= (*(LnkLI218))((V1012)); |
V965= (*(LnkLI237))((V959)); |
7219 |
base[5]= (V1020); |
(void)((VFUN_NARGS=4,(*(LnkLI247))((V959),(V960),(V961),(V962)))); |
7220 |
vs_top=(vs_base=base+5)+1; |
{object V966; |
7221 |
Ltype_of(); |
if(((V963))==Cnil){ |
7222 |
vs_top=sup; |
goto T2151;} |
7223 |
V1021= vs_base[0]; |
if((V960)!=Cnil){ |
7224 |
if((VV[15])==(V1021)){ |
V966= (V960); |
7225 |
goto T2167;} |
goto T2149;} |
7226 |
V1022 = (V1012); |
V966= (*(LnkLI328))((V959)); |
7227 |
base[5]= (V1019); |
goto T2149; |
7228 |
base[6]= (V1017); |
goto T2151; |
7229 |
vs_top=(vs_base=base+5)+2; |
T2151:; |
7230 |
(void) (*Lnk315)(); |
base[3]= (V959); |
7231 |
|
vs_top=(vs_base=base+3)+1; |
7232 |
|
(void) (*Lnk329)(Lclptr329); |
7233 |
vs_top=sup; |
vs_top=sup; |
7234 |
V1023= vs_base[0]; |
V966= vs_base[0]; |
7235 |
V1019= (*(LnkLI314))(V1022,V1023); |
goto T2149; |
7236 |
goto T2167; |
T2149:; |
7237 |
T2167:; |
(void)((*(LnkLI330))((V959),(V966))); |
7238 |
(void)((*(LnkLI316))((V1012),(V1019))); |
if(((V965))==Cnil){ |
7239 |
if(((V1018))==Cnil){ |
goto T2155;} |
7240 |
goto T2177;} |
if(((V965))==((V961))){ |
7241 |
if(((V1018))==((V1014))){ |
goto T2155;} |
7242 |
goto T2177;} |
(void)((*(LnkLI331))((V965))); |
7243 |
(void)((*(LnkLI317))((V1018))); |
goto T2155; |
7244 |
goto T2177; |
T2155:; |
7245 |
T2177:; |
{object V967 = (V966); |
7246 |
{object V1024 = (V1019); |
VMR119(V967)}}} |
|
VMR119(V1024)}}} |
|
7247 |
va_end(ap); |
va_end(ap); |
7248 |
base[0]=base[0]; |
base[0]=base[0]; |
7249 |
return Cnil;} |
return Cnil;} |
7250 |
} |
} |
7251 |
/* local entry for function LIST-DFUN */ |
/* local entry for function LIST-DFUN */ |
7252 |
|
|
7253 |
static object LI131(V1026) |
static object LI131(V969) |
7254 |
|
|
7255 |
object V1026; |
object V969; |
7256 |
{ VMB120 VMS120 VMV120 |
{ VMB120 VMS120 VMV120 |
7257 |
goto TTL; |
goto TTL; |
7258 |
TTL:; |
TTL:; |
7259 |
{object V1027; |
{object V970; |
7260 |
object V1028; |
object V971; |
7261 |
base[2]= (*(LnkLI218))((V1026)); |
base[2]= (*(LnkLI235))((V969)); |
7262 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7263 |
Ltype_of(); |
Ltype_of(); |
7264 |
vs_top=sup; |
vs_top=sup; |
7265 |
V1027= vs_base[0]; |
V970= vs_base[0]; |
7266 |
{register object x= (V1027),V1029= (VV[152]->s.s_dbind); |
{register object x= (V970),V972= (VV[168]->s.s_dbind); |
7267 |
while(V1029!=Cnil) |
while(V972!=Cnil) |
7268 |
if(EQ(x,V1029->c.c_car->c.c_car) &&V1029->c.c_car != Cnil){ |
if(EQ(x,V972->c.c_car->c.c_car) &&V972->c.c_car != Cnil){ |
7269 |
V1028= (V1029->c.c_car); |
V971= (V972->c.c_car); |
7270 |
goto T2184; |
goto T2162; |
7271 |
}else V1029=V1029->c.c_cdr; |
}else V972=V972->c.c_cdr; |
7272 |
V1028= Cnil;} |
V971= Cnil;} |
7273 |
goto T2184; |
goto T2162; |
7274 |
T2184:; |
T2162:; |
7275 |
if(((V1028))!=Cnil){ |
if(((V971))!=Cnil){ |
7276 |
goto T2185;} |
goto T2163;} |
7277 |
{object V1030; |
{object V973; |
7278 |
V1028= make_cons((V1027),Cnil); |
V971= make_cons((V970),Cnil); |
7279 |
V1030= (V1028); |
V973= (V971); |
7280 |
(VV[152]->s.s_dbind)= make_cons((V1030),(VV[152]->s.s_dbind));} |
(VV[168]->s.s_dbind)= make_cons((V973),(VV[168]->s.s_dbind));} |
7281 |
goto T2185; |
goto T2163; |
7282 |
T2185:; |
T2163:; |
7283 |
{object V1031; |
{object V974; |
7284 |
object V1033; |
object V976; |
7285 |
base[4]= (V1026); |
base[4]= (V969); |
7286 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
7287 |
(void) (*Lnk162)(Lclptr162); |
(void) (*Lnk178)(Lclptr178); |
7288 |
vs_top=sup; |
vs_top=sup; |
7289 |
V1031= vs_base[0]; |
V974= vs_base[0]; |
7290 |
V1033= make_cons((V1031),CMPcdr(V1028)); |
V976= make_cons((V974),CMPcdr(V971)); |
7291 |
(V1028)->c.c_cdr = (V1033); |
(V971)->c.c_cdr = (V976); |
7292 |
{object V1034 = (V1033); |
{object V977 = (V976); |
7293 |
VMR120(V1034)}}} |
VMR120(V977)}}} |
7294 |
base[0]=base[0]; |
base[0]=base[0]; |
7295 |
return Cnil; |
return Cnil; |
7296 |
} |
} |
7301 |
{ VMB121 VMS121 VMV121 |
{ VMB121 VMS121 VMV121 |
7302 |
goto TTL; |
goto TTL; |
7303 |
TTL:; |
TTL:; |
7304 |
(VV[152]->s.s_dbind)= Cnil; |
(VV[168]->s.s_dbind)= Cnil; |
7305 |
V1035= (VV[319]->s.s_gfdef); |
V978= (VV[333]->s.s_gfdef); |
7306 |
(void)((*(LnkLI318))(V1035)); |
(void)((*(LnkLI332))(V978)); |
7307 |
{object V1036 = (VV[152]->s.s_dbind); |
{object V979 = (VV[168]->s.s_dbind); |
7308 |
VMR121(V1036)} |
VMR121(V979)} |
7309 |
return Cnil; |
return Cnil; |
7310 |
} |
} |
7311 |
/* local entry for function LIST-LARGE-CACHE */ |
/* local entry for function LIST-LARGE-CACHE */ |
7312 |
|
|
7313 |
static object LI133(V1038) |
static object LI133(V981) |
7314 |
|
|
7315 |
object V1038; |
object V981; |
7316 |
{ VMB122 VMS122 VMV122 |
{ VMB122 VMS122 VMV122 |
7317 |
goto TTL; |
goto TTL; |
7318 |
TTL:; |
TTL:; |
7319 |
{object V1039; |
{object V982; |
7320 |
object V1040; |
object V983; |
7321 |
base[2]= (*(LnkLI218))((V1038)); |
base[2]= (*(LnkLI235))((V981)); |
7322 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7323 |
Ltype_of(); |
Ltype_of(); |
7324 |
vs_top=sup; |
vs_top=sup; |
7325 |
V1039= vs_base[0]; |
V982= vs_base[0]; |
7326 |
V1040= (*(LnkLI220))((V1038)); |
V983= (*(LnkLI237))((V981)); |
7327 |
if(((V1040))==Cnil){ |
if(((V983))==Cnil){ |
7328 |
goto T2203;} |
goto T2181;} |
7329 |
{object V1041; |
{object V984; |
7330 |
V1041= CMPmake_fixnum((long)STREF(fixnum,(V1040),28)); |
V984= CMPmake_fixnum((long)STREF(fixnum,(V983),28)); |
7331 |
if(!(number_compare((V1041),(VV[154]->s.s_dbind))>=0)){ |
if(!(number_compare((V984),(VV[170]->s.s_dbind))>=0)){ |
7332 |
goto T2207;} |
goto T2185;} |
7333 |
{object V1042; |
{object V985; |
7334 |
{register object x= (V1041),V1043= (VV[152]->s.s_dbind); |
{register object x= (V984),V986= (VV[168]->s.s_dbind); |
7335 |
while(V1043!=Cnil) |
while(V986!=Cnil) |
7336 |
if(eql(x,V1043->c.c_car->c.c_car) &&V1043->c.c_car != Cnil){ |
if(eql(x,V986->c.c_car->c.c_car) &&V986->c.c_car != Cnil){ |
7337 |
V1042= (V1043->c.c_car); |
V985= (V986->c.c_car); |
7338 |
goto T2209; |
goto T2187; |
7339 |
}else V1043=V1043->c.c_cdr; |
}else V986=V986->c.c_cdr; |
7340 |
V1042= Cnil;} |
V985= Cnil;} |
7341 |
goto T2209; |
goto T2187; |
7342 |
T2209:; |
T2187:; |
7343 |
if(((V1042))!=Cnil){ |
if(((V985))!=Cnil){ |
7344 |
goto T2210;} |
goto T2188;} |
7345 |
{object V1044; |
{object V987; |
7346 |
V1042= make_cons((V1041),Cnil); |
V985= make_cons((V984),Cnil); |
7347 |
V1044= (V1042); |
V987= (V985); |
7348 |
(VV[152]->s.s_dbind)= make_cons((V1044),(VV[152]->s.s_dbind));} |
(VV[168]->s.s_dbind)= make_cons((V987),(VV[168]->s.s_dbind));} |
7349 |
goto T2210; |
goto T2188; |
7350 |
T2210:; |
T2188:; |
7351 |
{object V1045; |
{object V988; |
7352 |
object V1047; |
object V990; |
7353 |
{object V1048; |
{object V991; |
7354 |
base[4]= (V1038); |
base[4]= (V981); |
7355 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
7356 |
(void) (*Lnk162)(Lclptr162); |
(void) (*Lnk178)(Lclptr178); |
7357 |
vs_top=sup; |
vs_top=sup; |
7358 |
V1048= vs_base[0]; |
V991= vs_base[0]; |
7359 |
if(!(((V1039))==(VV[13]))){ |
if(!(((V982))==(VV[11]))){ |
7360 |
goto T2220;} |
goto T2198;} |
7361 |
V1045= (V1048); |
V988= (V991); |
7362 |
goto T2216; |
goto T2194; |
7363 |
goto T2220; |
goto T2198; |
7364 |
T2220:; |
T2198:; |
7365 |
V1045= list(2,(V1048),(V1039));} |
V988= list(2,(V991),(V982));} |
7366 |
goto T2216; |
goto T2194; |
7367 |
T2216:; |
T2194:; |
7368 |
V1047= make_cons((V1045),CMPcdr(V1042)); |
V990= make_cons((V988),CMPcdr(V985)); |
7369 |
(V1042)->c.c_cdr = (V1047); |
(V985)->c.c_cdr = (V990); |
7370 |
{object V1049 = (V1047); |
{object V992 = (V990); |
7371 |
VMR122(V1049)}}} |
VMR122(V992)}}} |
7372 |
goto T2207; |
goto T2185; |
7373 |
T2207:; |
T2185:; |
7374 |
{object V1050 = Cnil; |
{object V993 = Cnil; |
7375 |
VMR122(V1050)}} |
VMR122(V993)}} |
7376 |
goto T2203; |
goto T2181; |
7377 |
T2203:; |
T2181:; |
7378 |
{object V1051 = Cnil; |
{object V994 = Cnil; |
7379 |
VMR122(V1051)}} |
VMR122(V994)}} |
7380 |
base[0]=base[0]; |
base[0]=base[0]; |
7381 |
return Cnil; |
return Cnil; |
7382 |
} |
} |
7388 |
vs_check; |
vs_check; |
7389 |
bds_check; |
bds_check; |
7390 |
if(vs_top-vs_base>1) too_many_arguments(); |
if(vs_top-vs_base>1) too_many_arguments(); |
7391 |
if(vs_base>=vs_top){vs_top=sup;goto T2224;} |
if(vs_base>=vs_top){vs_top=sup;goto T2202;} |
7392 |
bds_bind(VV[154],base[0]); |
bds_bind(VV[170],base[0]); |
7393 |
vs_top=sup; |
vs_top=sup; |
7394 |
goto T2225; |
goto T2203; |
7395 |
goto T2224; |
goto T2202; |
7396 |
T2224:; |
T2202:; |
7397 |
bds_bind(VV[154],small_fixnum(130)); |
bds_bind(VV[170],small_fixnum(130)); |
7398 |
goto T2225; |
goto T2203; |
7399 |
T2225:; |
T2203:; |
7400 |
(VV[152]->s.s_dbind)= Cnil; |
(VV[168]->s.s_dbind)= Cnil; |
7401 |
V1052= (VV[320]->s.s_gfdef); |
V995= (VV[334]->s.s_gfdef); |
7402 |
(void)((*(LnkLI318))(V1052)); |
(void)((*(LnkLI332))(V995)); |
7403 |
base[1]= (VV[152]->s.s_dbind); |
base[1]= (VV[168]->s.s_dbind); |
7404 |
base[2]= (VV[321]->s.s_gfdef); |
base[2]= (VV[335]->s.s_gfdef); |
7405 |
base[3]= VV[155]; |
base[3]= VV[171]; |
7406 |
base[4]= (VV[322]->s.s_gfdef); |
base[4]= (VV[336]->s.s_gfdef); |
7407 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
7408 |
(void) (*Lnk323)(); |
(void) (*Lnk337)(); |
7409 |
vs_top=sup; |
vs_top=sup; |
7410 |
(VV[152]->s.s_dbind)= vs_base[0]; |
(VV[168]->s.s_dbind)= vs_base[0]; |
7411 |
base[1]= (VV[152]->s.s_dbind); |
base[1]= (VV[168]->s.s_dbind); |
7412 |
{ |
{ |
7413 |
object V1053= base[1]; |
object V996= base[1]; |
7414 |
if(V1053==Cnil){ |
if(V996==Cnil){ |
7415 |
goto T2237;} |
goto T2215;} |
7416 |
goto T2238; |
goto T2216; |
7417 |
T2238:; |
T2216:; |
7418 |
(void)(print((V1053->c.c_car),Cnil)); |
(void)(print((V996->c.c_car),Cnil)); |
7419 |
if((V1053=MMcdr(V1053))==Cnil){ |
if((V996=MMcdr(V996))==Cnil){ |
7420 |
goto T2237;} |
goto T2215;} |
7421 |
goto T2238;} |
goto T2216;} |
7422 |
goto T2237; |
goto T2215; |
7423 |
T2237:; |
T2215:; |
7424 |
vs_base=vs_top=base+1; |
vs_base=vs_top=base+1; |
7425 |
vs_base[0]=Cnil; |
vs_base[0]=Cnil; |
7426 |
bds_unwind1; |
bds_unwind1; |
7428 |
} |
} |
7429 |
/* local entry for function COUNT-DFUN */ |
/* local entry for function COUNT-DFUN */ |
7430 |
|
|
7431 |
static object LI135(V1055) |
static object LI135(V998) |
7432 |
|
|
7433 |
object V1055; |
object V998; |
7434 |
{ VMB124 VMS124 VMV124 |
{ VMB124 VMS124 VMV124 |
7435 |
goto TTL; |
goto TTL; |
7436 |
TTL:; |
TTL:; |
7437 |
{object V1056; |
{object V999; |
7438 |
object V1057; |
object V1000; |
7439 |
register object V1058; |
register object V1001; |
7440 |
base[3]= (*(LnkLI218))((V1055)); |
base[3]= (*(LnkLI235))((V998)); |
7441 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7442 |
Ltype_of(); |
Ltype_of(); |
7443 |
vs_top=sup; |
vs_top=sup; |
7444 |
V1056= vs_base[0]; |
V999= vs_base[0]; |
7445 |
V1057= (*(LnkLI220))((V1055)); |
V1000= (*(LnkLI237))((V998)); |
7446 |
{register object x= (V1056),V1059= (VV[156]->s.s_dbind); |
{register object x= (V999),V1002= (VV[172]->s.s_dbind); |
7447 |
while(V1059!=Cnil) |
while(V1002!=Cnil) |
7448 |
if(EQ(x,V1059->c.c_car->c.c_car) &&V1059->c.c_car != Cnil){ |
if(EQ(x,V1002->c.c_car->c.c_car) &&V1002->c.c_car != Cnil){ |
7449 |
V1058= (V1059->c.c_car); |
V1001= (V1002->c.c_car); |
7450 |
goto T2243; |
goto T2221; |
7451 |
}else V1059=V1059->c.c_cdr; |
}else V1002=V1002->c.c_cdr; |
7452 |
V1058= Cnil;} |
V1001= Cnil;} |
7453 |
goto T2243; |
goto T2221; |
7454 |
T2243:; |
T2221:; |
7455 |
if(((V1058))!=Cnil){ |
if(((V1001))!=Cnil){ |
7456 |
goto T2244;} |
goto T2222;} |
7457 |
{object V1060; |
{object V1003; |
7458 |
V1058= list(3,(V1056),small_fixnum(0),Cnil); |
V1001= list(3,(V999),small_fixnum(0),Cnil); |
7459 |
V1060= (V1058); |
V1003= (V1001); |
7460 |
(VV[156]->s.s_dbind)= make_cons((V1060),(VV[156]->s.s_dbind));} |
(VV[172]->s.s_dbind)= make_cons((V1003),(VV[172]->s.s_dbind));} |
7461 |
goto T2244; |
goto T2222; |
7462 |
T2244:; |
T2222:; |
7463 |
{object V1062; |
{object V1005; |
7464 |
V1062= number_plus(CMPcadr(V1058),small_fixnum(1)); |
V1005= number_plus(CMPcadr(V1001),small_fixnum(1)); |
7465 |
(CMPcdr(V1058))->c.c_car = (V1062); |
(CMPcdr(V1001))->c.c_car = (V1005); |
7466 |
(void)(CMPcdr(V1058));} |
(void)(CMPcdr(V1001));} |
7467 |
if(((V1057))==Cnil){ |
if(((V1000))==Cnil){ |
7468 |
goto T2254;} |
goto T2232;} |
7469 |
{object V1063; |
{object V1006; |
7470 |
object V1064; |
object V1007; |
7471 |
V1063= CMPmake_fixnum((long)STREF(fixnum,(V1057),28)); |
V1006= CMPmake_fixnum((long)STREF(fixnum,(V1000),28)); |
7472 |
{register object x= (V1063),V1065= CMPcaddr((V1058)); |
{register object x= (V1006),V1008= CMPcaddr((V1001)); |
7473 |
while(V1065!=Cnil) |
while(V1008!=Cnil) |
7474 |
if(eql(x,V1065->c.c_car->c.c_car) &&V1065->c.c_car != Cnil){ |
if(eql(x,V1008->c.c_car->c.c_car) &&V1008->c.c_car != Cnil){ |
7475 |
V1064= (V1065->c.c_car); |
V1007= (V1008->c.c_car); |
7476 |
goto T2257; |
goto T2235; |
7477 |
}else V1065=V1065->c.c_cdr; |
}else V1008=V1008->c.c_cdr; |
7478 |
V1064= Cnil;} |
V1007= Cnil;} |
7479 |
goto T2257; |
goto T2235; |
7480 |
T2257:; |
T2235:; |
7481 |
if(((V1064))!=Cnil){ |
if(((V1007))!=Cnil){ |
7482 |
goto T2258;} |
goto T2236;} |
7483 |
{object V1066; |
{object V1009; |
7484 |
object V1068; |
object V1011; |
7485 |
V1064= make_cons((V1063),small_fixnum(0)); |
V1007= make_cons((V1006),small_fixnum(0)); |
7486 |
V1066= (V1064); |
V1009= (V1007); |
7487 |
V1068= make_cons((V1066),CMPcaddr(V1058)); |
V1011= make_cons((V1009),CMPcaddr(V1001)); |
7488 |
(CMPcddr(V1058))->c.c_car = (V1068); |
(CMPcddr(V1001))->c.c_car = (V1011); |
7489 |
(void)(CMPcddr(V1058));} |
(void)(CMPcddr(V1001));} |
7490 |
goto T2258; |
goto T2236; |
7491 |
T2258:; |
T2236:; |
7492 |
{object V1070; |
{object V1013; |
7493 |
V1070= number_plus(CMPcdr(V1064),small_fixnum(1)); |
V1013= number_plus(CMPcdr(V1007),small_fixnum(1)); |
7494 |
(V1064)->c.c_cdr = (V1070); |
(V1007)->c.c_cdr = (V1013); |
7495 |
{object V1071 = (V1070); |
{object V1014 = (V1013); |
7496 |
VMR124(V1071)}}} |
VMR124(V1014)}}} |
7497 |
goto T2254; |
goto T2232; |
7498 |
T2254:; |
T2232:; |
7499 |
{object V1072 = Cnil; |
{object V1015 = Cnil; |
7500 |
VMR124(V1072)}} |
VMR124(V1015)}} |
7501 |
base[0]=base[0]; |
base[0]=base[0]; |
7502 |
return Cnil; |
return Cnil; |
7503 |
} |
} |
7511 |
vs_top=sup; |
vs_top=sup; |
7512 |
goto TTL; |
goto TTL; |
7513 |
TTL:; |
TTL:; |
7514 |
{object V1073; |
{object V1016; |
7515 |
object V1074= VV[157]; |
object V1017= VV[173]; |
7516 |
if(V1074==Cnil){ |
if(V1017==Cnil){ |
7517 |
(VV[156]->s.s_dbind)= Cnil; |
(VV[172]->s.s_dbind)= Cnil; |
7518 |
goto T2268;} |
goto T2246;} |
7519 |
base[0]=V1073=MMcons(Cnil,Cnil); |
base[0]=V1016=MMcons(Cnil,Cnil); |
7520 |
goto T2269; |
goto T2247; |
7521 |
T2269:; |
T2247:; |
7522 |
(V1073->c.c_car)= list(3,(V1074->c.c_car),small_fixnum(0),Cnil); |
(V1016->c.c_car)= list(3,(V1017->c.c_car),small_fixnum(0),Cnil); |
7523 |
if((V1074=MMcdr(V1074))==Cnil){ |
if((V1017=MMcdr(V1017))==Cnil){ |
7524 |
(VV[156]->s.s_dbind)= base[0]; |
(VV[172]->s.s_dbind)= base[0]; |
7525 |
goto T2268;} |
goto T2246;} |
7526 |
V1073=MMcdr(V1073)=MMcons(Cnil,Cnil); |
V1016=MMcdr(V1016)=MMcons(Cnil,Cnil); |
7527 |
goto T2269;} |
goto T2247;} |
7528 |
goto T2268; |
goto T2246; |
7529 |
T2268:; |
T2246:; |
7530 |
V1076= (VV[324]->s.s_gfdef); |
V1019= (VV[338]->s.s_gfdef); |
7531 |
(void)((*(LnkLI318))(V1076)); |
(void)((*(LnkLI332))(V1019)); |
7532 |
base[0]= (VV[156]->s.s_dbind); |
base[0]= (VV[172]->s.s_dbind); |
7533 |
{ |
{ |
7534 |
object V1077= base[0]; |
object V1020= base[0]; |
7535 |
if(V1077==Cnil){ |
if(V1020==Cnil){ |
7536 |
goto T2273;} |
goto T2251;} |
7537 |
goto T2274; |
goto T2252; |
7538 |
T2274:; |
T2252:; |
7539 |
{object V1080; |
{object V1023; |
7540 |
base[2]= CMPcaddr((V1077->c.c_car)); |
base[2]= CMPcaddr((V1020->c.c_car)); |
7541 |
base[3]= (VV[321]->s.s_gfdef); |
base[3]= (VV[335]->s.s_gfdef); |
7542 |
base[4]= VV[155]; |
base[4]= VV[171]; |
7543 |
base[5]= (VV[322]->s.s_gfdef); |
base[5]= (VV[336]->s.s_gfdef); |
7544 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
7545 |
(void) (*Lnk323)(); |
(void) (*Lnk337)(); |
7546 |
vs_top=sup; |
vs_top=sup; |
7547 |
V1080= vs_base[0]; |
V1023= vs_base[0]; |
7548 |
(CMPcddr((V1077->c.c_car)))->c.c_car = (V1080); |
(CMPcddr((V1020->c.c_car)))->c.c_car = (V1023); |
7549 |
(void)(CMPcddr((V1077->c.c_car)));} |
(void)(CMPcddr((V1020->c.c_car)));} |
7550 |
if((V1077=MMcdr(V1077))==Cnil){ |
if((V1020=MMcdr(V1020))==Cnil){ |
7551 |
goto T2273;} |
goto T2251;} |
7552 |
goto T2274;} |
goto T2252;} |
7553 |
goto T2273; |
goto T2251; |
7554 |
T2273:; |
T2251:; |
7555 |
base[0]= (VV[156]->s.s_dbind); |
base[0]= (VV[172]->s.s_dbind); |
7556 |
{ |
{ |
7557 |
object V1081= base[0]; |
object V1024= base[0]; |
7558 |
if(V1081==Cnil){ |
if(V1024==Cnil){ |
7559 |
goto T2282;} |
goto T2260;} |
7560 |
goto T2283; |
goto T2261; |
7561 |
T2283:; |
T2261:; |
7562 |
base[1]= Ct; |
base[1]= Ct; |
7563 |
base[2]= VV[158]; |
base[2]= VV[174]; |
7564 |
base[3]= CMPcadr((V1081->c.c_car)); |
base[3]= CMPcadr((V1024->c.c_car)); |
7565 |
base[4]= CMPcar((V1081->c.c_car)); |
base[4]= CMPcar((V1024->c.c_car)); |
7566 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
7567 |
Lformat(); |
Lformat(); |
7568 |
vs_top=sup; |
vs_top=sup; |
7569 |
base[1]= Ct; |
base[1]= Ct; |
7570 |
base[2]= VV[159]; |
base[2]= VV[175]; |
7571 |
base[3]= CMPcaddr((V1081->c.c_car)); |
base[3]= CMPcaddr((V1024->c.c_car)); |
7572 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
7573 |
Lformat(); |
Lformat(); |
7574 |
vs_top=sup; |
vs_top=sup; |
7575 |
if((V1081=MMcdr(V1081))==Cnil){ |
if((V1024=MMcdr(V1024))==Cnil){ |
7576 |
goto T2282;} |
goto T2260;} |
7577 |
goto T2283;} |
goto T2261;} |
7578 |
goto T2282; |
goto T2260; |
7579 |
T2282:; |
T2260:; |
7580 |
vs_base=vs_top=base+0; |
vs_base=vs_top=base+0; |
7581 |
vs_base[0]=Cnil; |
vs_base[0]=Cnil; |
7582 |
return; |
return; |
7583 |
} |
} |
7584 |
/* local entry for function GFS-OF-TYPE */ |
/* local entry for function GFS-OF-TYPE */ |
7585 |
|
|
7586 |
static object LI138(V1084) |
static object LI138(V1027) |
7587 |
|
|
7588 |
object V1084; |
object V1027; |
7589 |
{ VMB126 VMS126 VMV126 |
{ VMB126 VMS126 VMV126 |
7590 |
goto TTL; |
goto TTL; |
7591 |
TTL:; |
TTL:; |
7592 |
base[0]=MMcons((V1084),Cnil); |
base[0]=MMcons((V1027),Cnil); |
7593 |
if(type_of((base[0]->c.c_car))==t_cons){ |
if(type_of((base[0]->c.c_car))==t_cons){ |
7594 |
goto T2293;} |
goto T2271;} |
7595 |
(base[0]->c.c_car)= make_cons((base[0]->c.c_car),Cnil); |
(base[0]->c.c_car)= make_cons((base[0]->c.c_car),Cnil); |
7596 |
goto T2293; |
goto T2271; |
7597 |
T2293:; |
T2271:; |
7598 |
base[1]=MMcons(Cnil,base[0]); |
base[1]=MMcons(Cnil,base[0]); |
7599 |
V1085= |
V1028= |
7600 |
make_cclosure_new(LC167,Cnil,base[1],Cdata); |
make_cclosure_new(LC167,Cnil,base[1],Cdata); |
7601 |
(void)((*(LnkLI318))(V1085)); |
(void)((*(LnkLI332))(V1028)); |
7602 |
{object V1086 = (base[1]->c.c_car); |
{object V1029 = (base[1]->c.c_car); |
7603 |
VMR126(V1086)} |
VMR126(V1029)} |
7604 |
base[0]=base[0]; |
base[0]=base[0]; |
7605 |
return Cnil; |
return Cnil; |
7606 |
} |
} |
7611 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7612 |
register object *sup=base+VM127; VC127 |
register object *sup=base+VM127; VC127 |
7613 |
vs_check; |
vs_check; |
7614 |
{object V1087; |
{object V1030; |
7615 |
check_arg(1); |
check_arg(1); |
7616 |
V1087=(base[0]); |
V1030=(base[0]); |
7617 |
vs_top=sup; |
vs_top=sup; |
7618 |
base[1]= (*(LnkLI218))((V1087)); |
base[1]= (*(LnkLI235))((V1030)); |
7619 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7620 |
Ltype_of(); |
Ltype_of(); |
7621 |
vs_top=sup; |
vs_top=sup; |
7622 |
V1089= vs_base[0]; |
V1032= vs_base[0]; |
7623 |
V1090 = (base0[1]->c.c_car); |
{register object x= V1032,V1031= (base0[1]->c.c_car); |
7624 |
{register object x= V1089,V1088= V1090; |
while(V1031!=Cnil) |
7625 |
while(V1088!=Cnil) |
if(x==(V1031->c.c_car)){ |
7626 |
if(x==(V1088->c.c_car)){ |
goto T2279; |
7627 |
goto T2301; |
}else V1031=V1031->c.c_cdr; |
7628 |
}else V1088=V1088->c.c_cdr; |
goto T2278;} |
7629 |
goto T2300;} |
goto T2279; |
7630 |
goto T2301; |
T2279:; |
7631 |
T2301:; |
(base0[0]->c.c_car)= make_cons(V1030,(base0[0]->c.c_car)); |
|
(base0[0]->c.c_car)= make_cons(V1087,(base0[0]->c.c_car)); |
|
7632 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
7633 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7634 |
return; |
return; |
7635 |
goto T2300; |
goto T2278; |
7636 |
T2300:; |
T2278:; |
7637 |
base[1]= Cnil; |
base[1]= Cnil; |
7638 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7639 |
return; |
return; |
7646 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7647 |
register object *sup=base+VM128; VC128 |
register object *sup=base+VM128; VC128 |
7648 |
vs_check; |
vs_check; |
7649 |
{object V1092; |
{object V1034; |
7650 |
object V1093; |
object V1035; |
7651 |
check_arg(2); |
check_arg(2); |
7652 |
V1092=(base[0]); |
V1034=(base[0]); |
7653 |
V1093=(base[1]); |
V1035=(base[1]); |
7654 |
vs_top=sup; |
vs_top=sup; |
7655 |
base[2]= |
base[2]= |
7656 |
make_cclosure_new(LC168,Cnil,base0[0],Cdata); |
make_cclosure_new(LC168,Cnil,base0[0],Cdata); |
7665 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7666 |
register object *sup=base+VM129; VC129 |
register object *sup=base+VM129; VC129 |
7667 |
vs_check; |
vs_check; |
7668 |
{object V1094; |
{object V1036; |
7669 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
7670 |
{object *p=vs_top; |
{object *p=vs_top; |
7671 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
7672 |
V1094=(base[0]); |
V1036=(base[0]); |
7673 |
vs_top=sup; |
vs_top=sup; |
7674 |
base[1]=VV[250]->s.s_gfdef; |
base[1]=VV[339]->s.s_gfdef; |
7675 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
7676 |
{object V1095; |
{object V1037; |
7677 |
V1095= (V1094); |
V1037= (V1036); |
7678 |
vs_top=base+3; |
vs_top=base+3; |
7679 |
while(V1095!=Cnil) |
while(V1037!=Cnil) |
7680 |
{vs_push((V1095)->c.c_car);V1095=(V1095)->c.c_cdr;} |
{vs_push((V1037)->c.c_car);V1037=(V1037)->c.c_cdr;} |
7681 |
vs_base=base+2;} |
vs_base=base+2;} |
7682 |
(void) (*Lnk250)(Lclptr250); |
(void) (*Lnk339)(Lclptr339); |
7683 |
return; |
return; |
7684 |
} |
} |
7685 |
} |
} |
7690 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7691 |
register object *sup=base+VM130; VC130 |
register object *sup=base+VM130; VC130 |
7692 |
vs_check; |
vs_check; |
7693 |
{object V1096; |
{object V1038; |
7694 |
object V1097; |
object V1039; |
7695 |
check_arg(2); |
check_arg(2); |
7696 |
V1096=(base[0]); |
V1038=(base[0]); |
7697 |
V1097=(base[1]); |
V1039=(base[1]); |
7698 |
vs_top=sup; |
vs_top=sup; |
7699 |
base[2]= |
base[2]= |
7700 |
make_cclosure_new(LC169,Cnil,base0[0],Cdata); |
make_cclosure_new(LC169,Cnil,base0[0],Cdata); |
7709 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7710 |
register object *sup=base+VM131; VC131 |
register object *sup=base+VM131; VC131 |
7711 |
vs_check; |
vs_check; |
7712 |
{object V1098; |
{object V1040; |
7713 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
7714 |
{object *p=vs_top; |
{object *p=vs_top; |
7715 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
7716 |
V1098=(base[0]); |
V1040=(base[0]); |
7717 |
vs_top=sup; |
vs_top=sup; |
7718 |
base[1]=VV[250]->s.s_gfdef; |
base[1]=VV[339]->s.s_gfdef; |
7719 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
7720 |
{object V1099; |
{object V1041; |
7721 |
V1099= (V1098); |
V1041= (V1040); |
7722 |
vs_top=base+3; |
vs_top=base+3; |
7723 |
while(V1099!=Cnil) |
while(V1041!=Cnil) |
7724 |
{vs_push((V1099)->c.c_car);V1099=(V1099)->c.c_cdr;} |
{vs_push((V1041)->c.c_car);V1041=(V1041)->c.c_cdr;} |
7725 |
vs_base=base+2;} |
vs_base=base+2;} |
7726 |
(void) (*Lnk250)(Lclptr250); |
(void) (*Lnk339)(Lclptr339); |
7727 |
return; |
return; |
7728 |
} |
} |
7729 |
} |
} |
7734 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7735 |
register object *sup=base+VM132; VC132 |
register object *sup=base+VM132; VC132 |
7736 |
vs_check; |
vs_check; |
7737 |
{object V1100; |
{object V1042; |
7738 |
check_arg(1); |
check_arg(1); |
7739 |
V1100=(base[0]); |
V1042=(base[0]); |
7740 |
vs_top=sup; |
vs_top=sup; |
7741 |
goto TTL; |
goto TTL; |
7742 |
TTL:; |
TTL:; |
7743 |
if((base0[2])==Cnil){ |
if((base0[2])==Cnil){ |
7744 |
goto T2313;} |
goto T2291;} |
7745 |
base[1]= (V1100); |
base[1]= (V1042); |
7746 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7747 |
(void) (*Lnk293)(Lclptr293); |
(void) (*Lnk309)(Lclptr309); |
7748 |
vs_top=sup; |
vs_top=sup; |
7749 |
V1102= vs_base[0]; |
V1044= vs_base[0]; |
7750 |
goto T2311; |
goto T2289; |
7751 |
goto T2313; |
goto T2291; |
7752 |
T2313:; |
T2291:; |
7753 |
V1102= (*(LnkLI325))((V1100)); |
V1044= (*(LnkLI340))((V1042)); |
7754 |
goto T2311; |
goto T2289; |
7755 |
T2311:; |
T2289:; |
7756 |
{ |
{ |
7757 |
object V1101= V1102; |
object V1043= V1044; |
7758 |
if(V1101==Cnil){ |
if(V1043==Cnil){ |
7759 |
goto T2309;} |
goto T2287;} |
7760 |
goto T2310; |
goto T2288; |
7761 |
T2310:; |
T2288:; |
7762 |
base[1]= (V1101->c.c_car); |
base[1]= (V1043->c.c_car); |
7763 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7764 |
L123(base0); |
L123(base0); |
7765 |
vs_top=sup; |
vs_top=sup; |
7766 |
if((V1101=MMcdr(V1101))==Cnil){ |
if((V1043=MMcdr(V1043))==Cnil){ |
7767 |
goto T2309;} |
goto T2287;} |
7768 |
goto T2310;} |
goto T2288;} |
7769 |
goto T2309; |
goto T2287; |
7770 |
T2309:; |
T2287:; |
7771 |
base[1]= (V1100); |
base[1]= (V1042); |
7772 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7773 |
{object _funobj = base0[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base0[0];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
7774 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
7784 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7785 |
register object *sup=base+VM133; VC133 |
register object *sup=base+VM133; VC133 |
7786 |
vs_check; |
vs_check; |
7787 |
{object V1103; |
{object V1045; |
7788 |
object V1104; |
object V1046; |
7789 |
object V1105; |
object V1047; |
7790 |
check_arg(3); |
check_arg(3); |
7791 |
V1103=(base[0]); |
V1045=(base[0]); |
7792 |
V1104=(base[1]); |
V1046=(base[1]); |
7793 |
V1105=(base[2]); |
V1047=(base[2]); |
7794 |
vs_top=sup; |
vs_top=sup; |
7795 |
{object V1106; |
{object V1048; |
7796 |
V1106= Cnil; |
V1048= Cnil; |
7797 |
{object V1107; |
{object V1049; |
7798 |
register object V1108; |
register object V1050; |
7799 |
V1107= (base0[0]->c.c_car); |
V1049= (base0[0]->c.c_car); |
7800 |
V1108= CMPcar((V1107)); |
V1050= CMPcar((V1049)); |
7801 |
goto T2323; |
goto T2301; |
7802 |
T2323:; |
T2301:; |
7803 |
if(!(((V1107))==Cnil)){ |
if(!(((V1049))==Cnil)){ |
7804 |
goto T2324;} |
goto T2302;} |
7805 |
goto T2319; |
goto T2297; |
7806 |
goto T2324; |
goto T2302; |
7807 |
T2324:; |
T2302:; |
7808 |
if(!((CMPcar((V1108)))==((V1103)))){ |
if(!((CMPcar((V1050)))==((V1045)))){ |
7809 |
|
goto T2308;} |
7810 |
|
if((CMPcadr((V1050)))==((V1046))){ |
7811 |
|
goto T2307;} |
7812 |
|
goto T2308; |
7813 |
|
T2308:; |
7814 |
|
if(!((CMPcar((V1050)))==((V1046)))){ |
7815 |
|
goto T2306;} |
7816 |
|
if(!((CMPcadr((V1050)))==((V1045)))){ |
7817 |
|
goto T2306;} |
7818 |
|
goto T2307; |
7819 |
|
T2307:; |
7820 |
|
V1048= (V1050); |
7821 |
|
goto T2297; |
7822 |
|
goto T2306; |
7823 |
|
T2306:; |
7824 |
|
V1049= CMPcdr((V1049)); |
7825 |
|
V1050= CMPcar((V1049)); |
7826 |
|
goto T2301;} |
7827 |
|
goto T2297; |
7828 |
|
T2297:; |
7829 |
|
if(((V1048))!=Cnil){ |
7830 |
|
goto T2321;} |
7831 |
|
if(((*(LnkLI341))((V1045),(V1046)))==Cnil){ |
7832 |
|
goto T2327;} |
7833 |
|
if(((*(LnkLI341))((V1046),(V1045)))==Cnil){ |
7834 |
goto T2330;} |
goto T2330;} |
7835 |
if((CMPcadr((V1108)))==((V1104))){ |
V1048= list(4,(V1045),(V1046),Cnil,Ct); |
7836 |
goto T2329;} |
goto T2325; |
7837 |
goto T2330; |
goto T2330; |
7838 |
T2330:; |
T2330:; |
7839 |
if(!((CMPcar((V1108)))==((V1104)))){ |
V1048= list(3,(V1045),(V1046),Ct); |
7840 |
goto T2328;} |
goto T2325; |
7841 |
if(!((CMPcadr((V1108)))==((V1103)))){ |
goto T2327; |
7842 |
goto T2328;} |
T2327:; |
7843 |
goto T2329; |
if(((*(LnkLI341))((V1046),(V1045)))==Cnil){ |
7844 |
T2329:; |
goto T2333;} |
7845 |
V1106= (V1108); |
V1048= list(3,(V1046),(V1045),Ct); |
7846 |
goto T2319; |
goto T2325; |
7847 |
goto T2328; |
goto T2333; |
7848 |
T2328:; |
T2333:; |
7849 |
V1107= CMPcdr((V1107)); |
{object V1051; |
7850 |
V1108= CMPcar((V1107)); |
object V1052; |
7851 |
goto T2323;} |
base[3]= (V1045); |
|
goto T2319; |
|
|
T2319:; |
|
|
if(((V1106))!=Cnil){ |
|
|
goto T2343;} |
|
|
if(((*(LnkLI326))((V1103),(V1104)))==Cnil){ |
|
|
goto T2349;} |
|
|
if(((*(LnkLI326))((V1104),(V1103)))==Cnil){ |
|
|
goto T2352;} |
|
|
V1106= list(4,(V1103),(V1104),Cnil,Ct); |
|
|
goto T2347; |
|
|
goto T2352; |
|
|
T2352:; |
|
|
V1106= list(3,(V1103),(V1104),Ct); |
|
|
goto T2347; |
|
|
goto T2349; |
|
|
T2349:; |
|
|
if(((*(LnkLI326))((V1104),(V1103)))==Cnil){ |
|
|
goto T2355;} |
|
|
V1106= list(3,(V1104),(V1103),Ct); |
|
|
goto T2347; |
|
|
goto T2355; |
|
|
T2355:; |
|
|
{object V1109; |
|
|
object V1110; |
|
|
base[3]= (V1103); |
|
7852 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7853 |
(void) (*Lnk327)(Lclptr327); |
(void) (*Lnk342)(Lclptr342); |
7854 |
vs_top=sup; |
vs_top=sup; |
7855 |
V1109= vs_base[0]; |
V1051= vs_base[0]; |
7856 |
base[3]= (V1104); |
base[3]= (V1046); |
7857 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7858 |
(void) (*Lnk327)(Lclptr327); |
(void) (*Lnk342)(Lclptr342); |
7859 |
vs_top=sup; |
vs_top=sup; |
7860 |
V1110= vs_base[0]; |
V1052= vs_base[0]; |
7861 |
if(((V1109))==Cnil){ |
if(((V1051))==Cnil){ |
7862 |
goto T2362;} |
goto T2340;} |
7863 |
if(((V1110))==Cnil){ |
if(((V1052))==Cnil){ |
7864 |
goto T2362;} |
goto T2340;} |
7865 |
if(!(type_of((V1109))==t_symbol)){ |
if(!(type_of((V1051))==t_symbol)){ |
7866 |
goto T2362;} |
goto T2340;} |
7867 |
if(!(type_of((V1110))==t_symbol)){ |
if(!(type_of((V1052))==t_symbol)){ |
7868 |
goto T2362;} |
goto T2340;} |
7869 |
base[3]= symbol_name((V1109)); |
base[3]= symbol_name((V1051)); |
7870 |
base[4]= symbol_name((V1110)); |
base[4]= symbol_name((V1052)); |
7871 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
7872 |
Lstring_l(); |
Lstring_l(); |
7873 |
vs_top=sup; |
vs_top=sup; |
7874 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
7875 |
goto T2362;} |
goto T2340;} |
7876 |
V1106= list(3,(V1103),(V1104),Ct); |
V1048= list(3,(V1045),(V1046),Ct); |
7877 |
goto T2347; |
goto T2325; |
7878 |
goto T2362; |
goto T2340; |
7879 |
T2362:; |
T2340:; |
7880 |
V1106= list(3,(V1104),(V1103),Ct);} |
V1048= list(3,(V1046),(V1045),Ct);} |
7881 |
goto T2347; |
goto T2325; |
7882 |
T2347:; |
T2325:; |
7883 |
(base0[0]->c.c_car)= make_cons(V1106,(base0[0]->c.c_car)); |
(base0[0]->c.c_car)= make_cons(V1048,(base0[0]->c.c_car)); |
7884 |
goto T2343; |
goto T2321; |
7885 |
T2343:; |
T2321:; |
7886 |
base[3]= CMPcar((V1106)); |
base[3]= CMPcar((V1048)); |
7887 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7888 |
return;} |
return;} |
7889 |
} |
} |
7895 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7896 |
register object *sup=base+VM134; VC134 |
register object *sup=base+VM134; VC134 |
7897 |
vs_check; |
vs_check; |
7898 |
{register object V1112; |
{register object V1054; |
7899 |
register object V1113; |
register object V1055; |
7900 |
check_arg(2); |
check_arg(2); |
7901 |
V1112=(base[0]); |
V1054=(base[0]); |
7902 |
V1113=(base[1]); |
V1055=(base[1]); |
7903 |
vs_top=sup; |
vs_top=sup; |
7904 |
{register object V1114; |
{register object V1056; |
7905 |
register object V1115; |
register object V1057; |
7906 |
V1114= (base0[0]->c.c_car); |
V1056= (base0[0]->c.c_car); |
7907 |
V1115= CMPcar((V1114)); |
V1057= CMPcar((V1056)); |
7908 |
goto T2378; |
goto T2356; |
7909 |
T2378:; |
T2356:; |
7910 |
if(!(((V1114))==Cnil)){ |
if(!(((V1056))==Cnil)){ |
7911 |
goto T2379;} |
goto T2357;} |
7912 |
base[3]= Cnil; |
base[3]= Cnil; |
7913 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7914 |
return; |
return; |
7915 |
goto T2379; |
goto T2357; |
7916 |
T2379:; |
T2357:; |
7917 |
{register object V1116; |
{register object V1058; |
7918 |
object V1117; |
object V1059; |
7919 |
register object V1118; |
register object V1060; |
7920 |
V1119 = (V1115); |
if(!(type_of((V1054))==t_cons||((V1054))==Cnil)){ |
7921 |
if(!(type_of((V1112))==t_cons||((V1112))==Cnil)){ |
goto T2365;} |
7922 |
goto T2387;} |
V1061= (VFUN_NARGS=2,(*(LnkLI291))((V1054),Ct)); |
7923 |
V1120= (VFUN_NARGS=2,(*(LnkLI275))((V1112),Ct)); |
goto T2363; |
7924 |
goto T2385; |
goto T2365; |
7925 |
goto T2387; |
T2365:; |
7926 |
T2387:; |
base[6]= (V1054); |
|
base[6]= (V1112); |
|
7927 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
7928 |
(void) (*Lnk242)(Lclptr242); |
(void) (*Lnk259)(Lclptr259); |
7929 |
vs_top=sup; |
vs_top=sup; |
7930 |
V1120= vs_base[0]; |
V1061= vs_base[0]; |
7931 |
goto T2385; |
goto T2363; |
7932 |
T2385:; |
T2363:; |
7933 |
V1116= nth(fix(V1119),V1120); |
V1058= nth(fix((V1057)),V1061); |
7934 |
V1121 = (V1115); |
if(!(type_of((V1055))==t_cons||((V1055))==Cnil)){ |
7935 |
if(!(type_of((V1113))==t_cons||((V1113))==Cnil)){ |
goto T2371;} |
7936 |
goto T2393;} |
V1062= (VFUN_NARGS=2,(*(LnkLI291))((V1055),Ct)); |
7937 |
V1122= (VFUN_NARGS=2,(*(LnkLI275))((V1113),Ct)); |
goto T2369; |
7938 |
goto T2391; |
goto T2371; |
7939 |
goto T2393; |
T2371:; |
7940 |
T2393:; |
base[6]= (V1055); |
|
base[6]= (V1113); |
|
7941 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
7942 |
(void) (*Lnk242)(Lclptr242); |
(void) (*Lnk259)(Lclptr259); |
7943 |
vs_top=sup; |
vs_top=sup; |
7944 |
V1122= vs_base[0]; |
V1062= vs_base[0]; |
7945 |
goto T2391; |
goto T2369; |
7946 |
T2391:; |
T2369:; |
7947 |
V1117= nth(fix(V1121),V1122); |
V1059= nth(fix((V1057)),V1062); |
7948 |
base[6]= (V1116); |
base[6]= (V1058); |
7949 |
base[7]= (V1117); |
base[7]= (V1059); |
7950 |
base[8]= (V1115); |
base[8]= (V1057); |
7951 |
base[9]= (base0[1]->c.c_car); |
base[9]= (base0[1]->c.c_car); |
7952 |
vs_top=(vs_base=base+6)+4; |
vs_top=(vs_base=base+6)+4; |
7953 |
(void) (*Lnk328)(); |
(void) (*Lnk343)(); |
7954 |
vs_top=sup; |
vs_top=sup; |
7955 |
V1118= vs_base[0]; |
V1060= vs_base[0]; |
7956 |
if(((V1118))==Cnil){ |
if(((V1060))==Cnil){ |
7957 |
goto T2383;} |
goto T2361;} |
7958 |
base[6]= (((V1118))==((V1116))?Ct:Cnil); |
base[6]= (((V1060))==((V1058))?Ct:Cnil); |
7959 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
7960 |
return;} |
return;} |
7961 |
goto T2383; |
goto T2361; |
7962 |
T2383:; |
T2361:; |
7963 |
V1114= CMPcdr((V1114)); |
V1056= CMPcdr((V1056)); |
7964 |
V1115= CMPcar((V1114)); |
V1057= CMPcar((V1056)); |
7965 |
goto T2378;} |
goto T2356;} |
7966 |
} |
} |
7967 |
} |
} |
7968 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
7972 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7973 |
register object *sup=base+VM135; VC135 |
register object *sup=base+VM135; VC135 |
7974 |
vs_check; |
vs_check; |
7975 |
{object V1123; |
{object V1063; |
7976 |
object V1124; |
object V1064; |
7977 |
object V1125; |
object V1065; |
7978 |
check_arg(3); |
check_arg(3); |
7979 |
V1123=(base[0]); |
V1063=(base[0]); |
7980 |
V1124=(base[1]); |
V1064=(base[1]); |
7981 |
V1125=(base[2]); |
V1065=(base[2]); |
7982 |
vs_top=sup; |
vs_top=sup; |
7983 |
{object V1126; |
{object V1066; |
7984 |
object V1127; |
object V1067; |
7985 |
V1126= (*(LnkLI289))(nth(fix((V1125)),(base0[0]->c.c_car))); |
V1066= (*(LnkLI305))(nth(fix((V1065)),(base0[0]->c.c_car))); |
7986 |
if(!(((VV[72]->s.s_dbind))==(VV[73]))){ |
if(!(((VV[79]->s.s_dbind))==(VV[80]))){ |
7987 |
goto T2411;} |
goto T2389;} |
7988 |
base[5]= (V1126); |
base[5]= (V1066); |
7989 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
7990 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk280)(Lclptr280); |
7991 |
vs_top=sup; |
vs_top=sup; |
7992 |
V1127= vs_base[0]; |
V1067= vs_base[0]; |
7993 |
goto T2409; |
goto T2387; |
7994 |
goto T2411; |
goto T2389; |
7995 |
T2411:; |
T2389:; |
7996 |
V1127= (*(LnkLI263))((V1126)); |
V1067= (*(LnkLI279))((V1066)); |
7997 |
goto T2409; |
goto T2387; |
7998 |
T2409:; |
T2387:; |
7999 |
V1129 = (V1124); |
{register object x= (V1063),V1070= (V1067); |
8000 |
{register object x= (V1123),V1131= (V1127); |
while(V1070!=Cnil) |
8001 |
while(V1131!=Cnil) |
if(x==(V1070->c.c_car)){ |
8002 |
if(x==(V1131->c.c_car)){ |
V1069= V1070; |
8003 |
V1130= V1131; |
goto T2395; |
8004 |
goto T2417; |
}else V1070=V1070->c.c_cdr; |
8005 |
}else V1131=V1131->c.c_cdr; |
V1069= Cnil;} |
8006 |
V1130= Cnil;} |
goto T2395; |
8007 |
goto T2417; |
T2395:; |
8008 |
T2417:; |
{register object x= (V1064),V1068= V1069; |
8009 |
{register object x= V1129,V1128= V1130; |
while(V1068!=Cnil) |
8010 |
while(V1128!=Cnil) |
if(x==(V1068->c.c_car)){ |
8011 |
if(x==(V1128->c.c_car)){ |
goto T2394; |
8012 |
goto T2416; |
}else V1068=V1068->c.c_cdr; |
8013 |
}else V1128=V1128->c.c_cdr; |
goto T2393;} |
8014 |
goto T2415;} |
goto T2394; |
8015 |
goto T2416; |
T2394:; |
8016 |
T2416:; |
base[5]= (V1063); |
|
base[5]= (V1123); |
|
8017 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
8018 |
return; |
return; |
8019 |
goto T2415; |
goto T2393; |
8020 |
T2415:; |
T2393:; |
8021 |
base[5]= (V1124); |
base[5]= (V1064); |
8022 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
8023 |
return;} |
return;} |
8024 |
} |
} |
8030 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8031 |
register object *sup=base+VM136; VC136 |
register object *sup=base+VM136; VC136 |
8032 |
vs_check; |
vs_check; |
8033 |
{object V1132; |
{object V1071; |
8034 |
object V1133; |
object V1072; |
8035 |
check_arg(2); |
check_arg(2); |
8036 |
V1132=(base[0]); |
V1071=(base[0]); |
8037 |
V1133=(base[1]); |
V1072=(base[1]); |
8038 |
vs_top=sup; |
vs_top=sup; |
8039 |
{register object V1134; |
{register object V1073; |
8040 |
object V1135; |
object V1074; |
8041 |
if(((base0[3]->c.c_car))==Cnil){ |
if(((base0[3]->c.c_car))==Cnil){ |
8042 |
goto T2420;} |
goto T2398;} |
8043 |
V1134= (*(LnkLI263))((V1132)); |
V1073= (*(LnkLI279))((V1071)); |
8044 |
goto T2418; |
goto T2396; |
8045 |
goto T2420; |
goto T2398; |
8046 |
T2420:; |
T2398:; |
8047 |
base[4]= (V1132); |
base[4]= (V1071); |
8048 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
8049 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk280)(Lclptr280); |
8050 |
vs_top=sup; |
vs_top=sup; |
8051 |
V1134= vs_base[0]; |
V1073= vs_base[0]; |
8052 |
goto T2418; |
goto T2396; |
8053 |
T2418:; |
T2396:; |
8054 |
V1135= CMPcar((V1134)); |
V1074= CMPcar((V1073)); |
8055 |
goto T2425; |
goto T2403; |
8056 |
T2425:; |
T2403:; |
8057 |
if(!(((V1134))==Cnil)){ |
if(!(((V1073))==Cnil)){ |
8058 |
goto T2426;} |
goto T2404;} |
8059 |
base[4]= VV[137]; |
base[4]= VV[153]; |
8060 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
8061 |
Lerror(); |
Lerror(); |
8062 |
return; |
return; |
8063 |
goto T2426; |
goto T2404; |
8064 |
T2426:; |
T2404:; |
8065 |
{object V1136; |
{object V1075; |
8066 |
{register object x= (V1135),V1137= (V1133); |
{register object x= (V1074),V1076= (V1072); |
8067 |
while(V1137!=Cnil) |
while(V1076!=Cnil) |
8068 |
if(EQ(x,V1137->c.c_car->c.c_car) &&V1137->c.c_car != Cnil){ |
if(EQ(x,V1076->c.c_car->c.c_car) &&V1076->c.c_car != Cnil){ |
8069 |
V1136= (V1137->c.c_car); |
V1075= (V1076->c.c_car); |
8070 |
goto T2432; |
goto T2410; |
8071 |
}else V1137=V1137->c.c_cdr; |
}else V1076=V1076->c.c_cdr; |
8072 |
V1136= Cnil;} |
V1075= Cnil;} |
8073 |
goto T2432; |
goto T2410; |
8074 |
T2432:; |
T2410:; |
8075 |
if(((V1136))==Cnil){ |
if(((V1075))==Cnil){ |
8076 |
goto T2431;} |
goto T2409;} |
8077 |
{object V1138; |
{object V1077; |
8078 |
register object V1139; |
register object V1078; |
8079 |
V1138= CMPcdr((V1136)); |
V1077= CMPcdr((V1075)); |
8080 |
if(((base0[3]->c.c_car))==Cnil){ |
if(((base0[3]->c.c_car))==Cnil){ |
8081 |
goto T2438;} |
goto T2416;} |
8082 |
V1139= (*(LnkLI273))((V1138)); |
V1078= (*(LnkLI289))((V1077)); |
8083 |
goto T2436; |
goto T2414; |
8084 |
goto T2438; |
goto T2416; |
8085 |
T2438:; |
T2416:; |
8086 |
base[6]= (V1138); |
base[6]= (V1077); |
8087 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
8088 |
(void) (*Lnk274)(Lclptr274); |
(void) (*Lnk290)(Lclptr290); |
8089 |
vs_top=sup; |
vs_top=sup; |
8090 |
V1139= vs_base[0]; |
V1078= vs_base[0]; |
8091 |
goto T2436; |
goto T2414; |
8092 |
T2436:; |
T2414:; |
8093 |
if(((V1139))!=Cnil){ |
if(((V1078))!=Cnil){ |
8094 |
goto T2441;} |
goto T2419;} |
8095 |
{frame_ptr fr; |
{frame_ptr fr; |
8096 |
fr=frs_sch((base0[6]->c.c_car)); |
fr=frs_sch((base0[6]->c.c_car)); |
8097 |
if(fr==NULL) FEerror("The block ~s is missing.",1,VV[235]); |
if(fr==NULL) FEerror("The block ~s is missing.",1,VV[252]); |
8098 |
base[6]= Cnil; |
base[6]= Cnil; |
8099 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
8100 |
unwind(fr,Cnil);} |
unwind(fr,Cnil);} |
8101 |
goto T2441; |
goto T2419; |
8102 |
T2441:; |
T2419:; |
8103 |
{object V1141; |
{object V1080; |
8104 |
V1141= (base0[7]->c.c_car); |
V1080= (base0[7]->c.c_car); |
8105 |
base[6]= V1132; |
base[6]= V1071; |
8106 |
base[7]= (V1141); |
base[7]= (V1080); |
8107 |
base[8]= V1139; |
base[8]= V1078; |
8108 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
8109 |
siLhash_set(); |
siLhash_set(); |
8110 |
vs_top=sup;} |
vs_top=sup;} |
8111 |
if(!(type_of((V1139))==t_cons)){ |
if(!(type_of((V1078))==t_cons)){ |
8112 |
goto T2450;} |
goto T2428;} |
8113 |
(base0[4]->c.c_car)= Cnil; |
(base0[4]->c.c_car)= Cnil; |
8114 |
goto T2450; |
goto T2428; |
8115 |
T2450:; |
T2428:; |
8116 |
if(((base0[5]->c.c_car))==Cnil){ |
if(((base0[5]->c.c_car))==Cnil){ |
8117 |
goto T2456;} |
goto T2434;} |
8118 |
if(!(eql((base0[5]->c.c_car),(V1139)))){ |
if(!(eql((base0[5]->c.c_car),(V1078)))){ |
8119 |
goto T2457;} |
goto T2435;} |
8120 |
goto T2456; |
goto T2434; |
8121 |
T2456:; |
T2434:; |
8122 |
(base0[5]->c.c_car)= (V1139); |
(base0[5]->c.c_car)= (V1078); |
8123 |
goto T2455; |
goto T2433; |
8124 |
goto T2457; |
goto T2435; |
8125 |
T2457:; |
T2435:; |
8126 |
(base0[5]->c.c_car)= Ct; |
(base0[5]->c.c_car)= Ct; |
8127 |
goto T2455; |
goto T2433; |
8128 |
T2455:; |
T2433:; |
8129 |
(base0[0]->c.c_car)= CMPmake_fixnum((long)(fix((base0[0]->c.c_car)))+(1)); |
(base0[0]->c.c_car)= CMPmake_fixnum((long)(fix((base0[0]->c.c_car)))+(1)); |
8130 |
if(!((fix((base0[0]->c.c_car)))==(1))){ |
if(!((fix((base0[0]->c.c_car)))==(1))){ |
8131 |
goto T2465;} |
goto T2443;} |
8132 |
(base0[2]->c.c_car)= (V1132); |
(base0[2]->c.c_car)= (V1071); |
8133 |
goto T2463; |
goto T2441; |
8134 |
goto T2465; |
goto T2443; |
8135 |
T2465:; |
T2443:; |
8136 |
if(!((fix((base0[0]->c.c_car)))==(2))){ |
if(!((fix((base0[0]->c.c_car)))==(2))){ |
8137 |
goto T2463;} |
goto T2441;} |
8138 |
(base0[1]->c.c_car)= (V1132); |
(base0[1]->c.c_car)= (V1071); |
8139 |
goto T2463; |
goto T2441; |
8140 |
T2463:; |
T2441:; |
8141 |
base[6]= Cnil; |
base[6]= Cnil; |
8142 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
8143 |
return;}} |
return;}} |
8144 |
goto T2431; |
goto T2409; |
8145 |
T2431:; |
T2409:; |
8146 |
V1134= CMPcdr((V1134)); |
V1073= CMPcdr((V1073)); |
8147 |
V1135= CMPcar((V1134)); |
V1074= CMPcar((V1073)); |
8148 |
goto T2425;} |
goto T2403;} |
8149 |
} |
} |
8150 |
} |
} |
8151 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
8155 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8156 |
register object *sup=base+VM137; VC137 |
register object *sup=base+VM137; VC137 |
8157 |
vs_check; |
vs_check; |
8158 |
{register object V1143; |
{register object V1082; |
8159 |
object V1144; |
object V1083; |
8160 |
check_arg(2); |
check_arg(2); |
8161 |
V1143=(base[0]); |
V1082=(base[0]); |
8162 |
V1144=(base[1]); |
V1083=(base[1]); |
8163 |
vs_top=sup; |
vs_top=sup; |
8164 |
{object V1145; |
{object V1084; |
8165 |
if(((base0[5]->c.c_car))==Cnil){ |
if(((base0[5]->c.c_car))==Cnil){ |
8166 |
goto T2478;} |
goto T2456;} |
8167 |
V1145= (*(LnkLI263))((V1143)); |
V1084= (*(LnkLI279))((V1082)); |
8168 |
goto T2476; |
goto T2454; |
8169 |
goto T2478; |
goto T2456; |
8170 |
T2478:; |
T2456:; |
8171 |
base[2]= (V1143); |
base[2]= (V1082); |
8172 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
8173 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk280)(Lclptr280); |
8174 |
vs_top=sup; |
vs_top=sup; |
8175 |
V1145= vs_base[0]; |
V1084= vs_base[0]; |
8176 |
goto T2476; |
goto T2454; |
8177 |
T2476:; |
T2454:; |
8178 |
{register object x= (base0[1]->c.c_car),V1146= (V1145); |
{register object x= (base0[1]->c.c_car),V1085= (V1084); |
8179 |
while(V1146!=Cnil) |
while(V1085!=Cnil) |
8180 |
if(x==(V1146->c.c_car)){ |
if(x==(V1085->c.c_car)){ |
8181 |
goto T2483; |
goto T2461; |
8182 |
}else V1146=V1146->c.c_cdr; |
}else V1085=V1085->c.c_cdr; |
8183 |
goto T2482;} |
goto T2460;} |
8184 |
goto T2483; |
goto T2461; |
8185 |
T2483:; |
T2461:; |
8186 |
if(((base0[0]->c.c_car))!=Cnil){ |
if(((base0[0]->c.c_car))!=Cnil){ |
8187 |
goto T2486;} |
goto T2464;} |
8188 |
{register object x= (VV[132]->s.s_dbind),V1147= (V1145); |
{register object x= (VV[148]->s.s_dbind),V1086= (V1084); |
8189 |
while(V1147!=Cnil) |
while(V1086!=Cnil) |
8190 |
if(eql(x,V1147->c.c_car)){ |
if(eql(x,V1086->c.c_car)){ |
8191 |
goto T2489; |
goto T2467; |
8192 |
}else V1147=V1147->c.c_cdr; |
}else V1086=V1086->c.c_cdr; |
8193 |
goto T2485;} |
goto T2463;} |
8194 |
goto T2489; |
goto T2467; |
8195 |
T2489:; |
T2467:; |
8196 |
goto T2486; |
goto T2464; |
8197 |
T2486:; |
T2464:; |
8198 |
if(((base0[5]->c.c_car))!=Cnil){ |
if(((base0[5]->c.c_car))!=Cnil){ |
8199 |
goto T2484;} |
goto T2462;} |
8200 |
base[2]= (V1144); |
base[2]= (V1083); |
8201 |
base[3]= (base0[10]->c.c_car); |
base[3]= (base0[10]->c.c_car); |
8202 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
8203 |
(void) (*Lnk272)(Lclptr272); |
(void) (*Lnk288)(Lclptr288); |
8204 |
vs_top=sup; |
vs_top=sup; |
8205 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
8206 |
goto T2484;} |
goto T2462;} |
8207 |
goto T2485; |
goto T2463; |
8208 |
T2485:; |
T2463:; |
8209 |
{frame_ptr fr; |
{frame_ptr fr; |
8210 |
fr=frs_sch((base0[8]->c.c_car)); |
fr=frs_sch((base0[8]->c.c_car)); |
8211 |
if(fr==NULL) FEerror("The block ~s is missing.",1,VV[235]); |
if(fr==NULL) FEerror("The block ~s is missing.",1,VV[252]); |
8212 |
base[2]= Cnil; |
base[2]= Cnil; |
8213 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
8214 |
unwind(fr,Cnil);} |
unwind(fr,Cnil);} |
8215 |
goto T2484; |
goto T2462; |
8216 |
T2484:; |
T2462:; |
8217 |
{object V1148; |
{object V1087; |
8218 |
object V1150; |
object V1089; |
8219 |
object V1151; |
object V1090; |
8220 |
V1148= make_cons((base0[1]->c.c_car),(V1144)); |
V1087= make_cons((base0[1]->c.c_car),(V1083)); |
8221 |
V1150= (base0[9]->c.c_car); |
V1089= (base0[9]->c.c_car); |
8222 |
V1152 = (V1148); |
base[4]= V1082; |
8223 |
base[4]= V1143; |
base[5]= (V1089); |
|
base[5]= (V1150); |
|
8224 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
8225 |
Lgethash(); |
Lgethash(); |
8226 |
vs_top=sup; |
vs_top=sup; |
8227 |
V1153= vs_base[0]; |
V1091= vs_base[0]; |
8228 |
V1151= make_cons(V1152,V1153); |
V1090= make_cons((V1087),V1091); |
8229 |
base[4]= V1143; |
base[4]= V1082; |
8230 |
base[5]= (V1150); |
base[5]= (V1089); |
8231 |
base[6]= (V1151); |
base[6]= (V1090); |
8232 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
8233 |
siLhash_set(); |
siLhash_set(); |
8234 |
return;} |
return;} |
8235 |
goto T2482; |
goto T2460; |
8236 |
T2482:; |
T2460:; |
8237 |
base[2]= Cnil; |
base[2]= Cnil; |
8238 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
8239 |
return;} |
return;} |
8246 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8247 |
register object *sup=base+VM138; VC138 |
register object *sup=base+VM138; VC138 |
8248 |
vs_check; |
vs_check; |
8249 |
{object V1154; |
{object V1092; |
8250 |
check_arg(1); |
check_arg(1); |
8251 |
V1154=(base[0]); |
V1092=(base[0]); |
8252 |
vs_top=sup; |
vs_top=sup; |
8253 |
base[1]= (base0[2]->c.c_car); |
base[1]= (base0[2]->c.c_car); |
8254 |
base[2]= (V1154); |
base[2]= (V1092); |
8255 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
8256 |
cclosure_call((base0[1]->c.c_car)); |
cclosure_call((base0[1]->c.c_car)); |
8257 |
return; |
return; |
8264 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8265 |
register object *sup=base+VM139; VC139 |
register object *sup=base+VM139; VC139 |
8266 |
vs_check; |
vs_check; |
8267 |
{object V1155; |
{object V1093; |
8268 |
if(vs_top-vs_base>1) too_many_arguments(); |
if(vs_top-vs_base>1) too_many_arguments(); |
8269 |
if(vs_base>=vs_top){vs_top=sup;goto T2507;} |
if(vs_base>=vs_top){vs_top=sup;goto T2485;} |
8270 |
V1155=(base[0]); |
V1093=(base[0]); |
8271 |
vs_top=sup; |
vs_top=sup; |
8272 |
goto T2508; |
goto T2486; |
8273 |
goto T2507; |
goto T2485; |
8274 |
T2507:; |
T2485:; |
8275 |
V1155= Cnil; |
V1093= Cnil; |
8276 |
goto T2508; |
goto T2486; |
8277 |
T2508:; |
T2486:; |
8278 |
if(!(type_of((base0[1]->c.c_car))==t_cons)){ |
if(!(type_of((base0[1]->c.c_car))==t_cons)){ |
8279 |
goto T2511;} |
goto T2489;} |
8280 |
{object V1156; |
{object V1094; |
8281 |
object V1157; |
object V1095; |
8282 |
object V1158; |
object V1096; |
8283 |
base[1]= (base0[4]->c.c_car); |
base[1]= (base0[4]->c.c_car); |
8284 |
base[2]= (base0[3]->c.c_car); |
base[2]= (base0[3]->c.c_car); |
8285 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
8286 |
(void) (*Lnk193)(); |
(void) (*Lnk210)(); |
8287 |
if(vs_base>=vs_top){vs_top=sup;goto T2516;} |
if(vs_base>=vs_top){vs_top=sup;goto T2494;} |
8288 |
V1156= vs_base[0]; |
V1094= vs_base[0]; |
8289 |
vs_base++; |
vs_base++; |
8290 |
if(vs_base>=vs_top){vs_top=sup;goto T2517;} |
if(vs_base>=vs_top){vs_top=sup;goto T2495;} |
8291 |
V1157= vs_base[0]; |
V1095= vs_base[0]; |
8292 |
vs_base++; |
vs_base++; |
8293 |
if(vs_base>=vs_top){vs_top=sup;goto T2518;} |
if(vs_base>=vs_top){vs_top=sup;goto T2496;} |
8294 |
V1158= vs_base[0]; |
V1096= vs_base[0]; |
8295 |
vs_top=sup; |
vs_top=sup; |
8296 |
goto T2519; |
goto T2497; |
8297 |
goto T2516; |
goto T2494; |
8298 |
T2516:; |
T2494:; |
8299 |
V1156= Cnil; |
V1094= Cnil; |
8300 |
goto T2517; |
goto T2495; |
8301 |
T2517:; |
T2495:; |
8302 |
V1157= Cnil; |
V1095= Cnil; |
8303 |
goto T2518; |
goto T2496; |
8304 |
T2518:; |
T2496:; |
8305 |
V1158= Cnil; |
V1096= Cnil; |
8306 |
goto T2519; |
goto T2497; |
8307 |
T2519:; |
T2497:; |
8308 |
base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[4]->c.c_car),(V1156),(V1157),(V1158))); |
base[1]= (VFUN_NARGS=4,(*(LnkLI47))((base0[4]->c.c_car),(V1094),(V1095),(V1096))); |
8309 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8310 |
return;} |
return;} |
8311 |
goto T2511; |
goto T2489; |
8312 |
T2511:; |
T2489:; |
8313 |
{object V1159; |
{object V1097; |
8314 |
object V1160; |
object V1098; |
8315 |
object V1161; |
object V1099; |
8316 |
base[1]= (base0[4]->c.c_car); |
base[1]= (base0[4]->c.c_car); |
8317 |
base[2]= (base0[2]->c.c_car); |
base[2]= (base0[2]->c.c_car); |
8318 |
base[3]= (V1155); |
base[3]= (V1093); |
8319 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
8320 |
(void) (*Lnk182)(); |
(void) (*Lnk199)(); |
8321 |
if(vs_base>=vs_top){vs_top=sup;goto T2524;} |
if(vs_base>=vs_top){vs_top=sup;goto T2502;} |
8322 |
V1159= vs_base[0]; |
V1097= vs_base[0]; |
8323 |
vs_base++; |
vs_base++; |
8324 |
if(vs_base>=vs_top){vs_top=sup;goto T2525;} |
if(vs_base>=vs_top){vs_top=sup;goto T2503;} |
8325 |
V1160= vs_base[0]; |
V1098= vs_base[0]; |
8326 |
vs_base++; |
vs_base++; |
8327 |
if(vs_base>=vs_top){vs_top=sup;goto T2526;} |
if(vs_base>=vs_top){vs_top=sup;goto T2504;} |
8328 |
V1161= vs_base[0]; |
V1099= vs_base[0]; |
8329 |
vs_top=sup; |
vs_top=sup; |
8330 |
goto T2527; |
goto T2505; |
8331 |
goto T2524; |
goto T2502; |
8332 |
T2524:; |
T2502:; |
8333 |
V1159= Cnil; |
V1097= Cnil; |
8334 |
goto T2525; |
goto T2503; |
8335 |
T2525:; |
T2503:; |
8336 |
V1160= Cnil; |
V1098= Cnil; |
8337 |
goto T2526; |
goto T2504; |
8338 |
T2526:; |
T2504:; |
8339 |
V1161= Cnil; |
V1099= Cnil; |
8340 |
goto T2527; |
goto T2505; |
8341 |
T2527:; |
T2505:; |
8342 |
base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[4]->c.c_car),(V1159),(V1160),(V1161))); |
base[1]= (VFUN_NARGS=4,(*(LnkLI47))((base0[4]->c.c_car),(V1097),(V1098),(V1099))); |
8343 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8344 |
return;} |
return;} |
8345 |
} |
} |
8351 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8352 |
register object *sup=base+VM140; VC140 |
register object *sup=base+VM140; VC140 |
8353 |
vs_check; |
vs_check; |
8354 |
{object V1162; |
{object V1100; |
8355 |
object V1163; |
object V1101; |
8356 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
8357 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
8358 |
V1162=(base[0]); |
V1100=(base[0]); |
8359 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
8360 |
if(vs_base>=vs_top){vs_top=sup;goto T2528;} |
if(vs_base>=vs_top){vs_top=sup;goto T2506;} |
8361 |
V1163=(base[1]); |
V1101=(base[1]); |
8362 |
vs_top=sup; |
vs_top=sup; |
8363 |
goto T2529; |
goto T2507; |
8364 |
goto T2528; |
goto T2506; |
8365 |
T2528:; |
T2506:; |
8366 |
V1163= Cnil; |
V1101= Cnil; |
8367 |
goto T2529; |
goto T2507; |
8368 |
T2529:; |
T2507:; |
8369 |
{object V1164; |
{object V1102; |
8370 |
object V1165; |
object V1103; |
8371 |
object V1166; |
object V1104; |
8372 |
base[2]= (base0[3]->c.c_car); |
base[2]= (base0[3]->c.c_car); |
8373 |
base[3]= (base0[1]->c.c_car); |
base[3]= (base0[1]->c.c_car); |
8374 |
base[4]= (V1162); |
base[4]= (V1100); |
8375 |
base[5]= (V1163); |
base[5]= (V1101); |
8376 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
8377 |
(void) (*Lnk178)(); |
(void) (*Lnk195)(); |
8378 |
if(vs_base>=vs_top){vs_top=sup;goto T2536;} |
if(vs_base>=vs_top){vs_top=sup;goto T2514;} |
8379 |
V1164= vs_base[0]; |
V1102= vs_base[0]; |
8380 |
vs_base++; |
vs_base++; |
8381 |
if(vs_base>=vs_top){vs_top=sup;goto T2537;} |
if(vs_base>=vs_top){vs_top=sup;goto T2515;} |
8382 |
V1165= vs_base[0]; |
V1103= vs_base[0]; |
8383 |
vs_base++; |
vs_base++; |
8384 |
if(vs_base>=vs_top){vs_top=sup;goto T2538;} |
if(vs_base>=vs_top){vs_top=sup;goto T2516;} |
8385 |
V1166= vs_base[0]; |
V1104= vs_base[0]; |
8386 |
vs_top=sup; |
vs_top=sup; |
8387 |
goto T2539; |
goto T2517; |
8388 |
goto T2536; |
goto T2514; |
8389 |
T2536:; |
T2514:; |
8390 |
V1164= Cnil; |
V1102= Cnil; |
8391 |
goto T2537; |
goto T2515; |
8392 |
T2537:; |
T2515:; |
8393 |
V1165= Cnil; |
V1103= Cnil; |
8394 |
goto T2538; |
goto T2516; |
8395 |
T2538:; |
T2516:; |
8396 |
V1166= Cnil; |
V1104= Cnil; |
8397 |
goto T2539; |
goto T2517; |
8398 |
T2539:; |
T2517:; |
8399 |
base[2]= (VFUN_NARGS=4,(*(LnkLI49))((base0[3]->c.c_car),(V1164),(V1165),(V1166))); |
base[2]= (VFUN_NARGS=4,(*(LnkLI47))((base0[3]->c.c_car),(V1102),(V1103),(V1104))); |
8400 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
8401 |
return;} |
return;} |
8402 |
} |
} |
8408 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8409 |
register object *sup=base+VM141; VC141 |
register object *sup=base+VM141; VC141 |
8410 |
vs_check; |
vs_check; |
8411 |
{object V1167; |
{object V1105; |
8412 |
check_arg(1); |
check_arg(1); |
8413 |
V1167=(base[0]); |
V1105=(base[0]); |
8414 |
vs_top=sup; |
vs_top=sup; |
8415 |
goto TTL; |
goto TTL; |
8416 |
TTL:; |
TTL:; |
8417 |
{object V1168; |
{object V1106; |
8418 |
V1168= (VFUN_NARGS=3,(*(LnkLI247))(base0[6],base0[9],(base0[11]->c.c_car))); |
V1106= (VFUN_NARGS=3,(*(LnkLI264))(base0[6],base0[9],(base0[11]->c.c_car))); |
8419 |
if(((V1168))==(base0[6])){ |
if(((V1106))==(base0[6])){ |
8420 |
goto T2542;} |
goto T2520;} |
8421 |
base[1]= (V1168); |
base[1]= (V1106); |
8422 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8423 |
{object _funobj = (V1167);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V1105);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
8424 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
8425 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
8426 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
8427 |
return; |
return; |
8428 |
goto T2542; |
goto T2520; |
8429 |
T2542:; |
T2520:; |
8430 |
base[1]= Cnil; |
base[1]= Cnil; |
8431 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8432 |
return;} |
return;} |
8443 |
vs_top=sup; |
vs_top=sup; |
8444 |
goto TTL; |
goto TTL; |
8445 |
TTL:; |
TTL:; |
8446 |
{object V1169; |
{object V1107; |
8447 |
object V1170; |
object V1108; |
8448 |
object V1171; |
object V1109; |
8449 |
base[0]= (base0[0]->c.c_car); |
base[0]= (base0[0]->c.c_car); |
8450 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
8451 |
(void) (*Lnk184)(); |
(void) (*Lnk201)(); |
8452 |
if(vs_base>=vs_top){vs_top=sup;goto T2547;} |
if(vs_base>=vs_top){vs_top=sup;goto T2525;} |
8453 |
V1169= vs_base[0]; |
V1107= vs_base[0]; |
8454 |
vs_base++; |
vs_base++; |
8455 |
if(vs_base>=vs_top){vs_top=sup;goto T2548;} |
if(vs_base>=vs_top){vs_top=sup;goto T2526;} |
8456 |
V1170= vs_base[0]; |
V1108= vs_base[0]; |
8457 |
vs_base++; |
vs_base++; |
8458 |
if(vs_base>=vs_top){vs_top=sup;goto T2549;} |
if(vs_base>=vs_top){vs_top=sup;goto T2527;} |
8459 |
V1171= vs_base[0]; |
V1109= vs_base[0]; |
8460 |
vs_top=sup; |
vs_top=sup; |
8461 |
goto T2550; |
goto T2528; |
8462 |
goto T2547; |
goto T2525; |
8463 |
T2547:; |
T2525:; |
8464 |
V1169= Cnil; |
V1107= Cnil; |
8465 |
goto T2548; |
goto T2526; |
8466 |
T2548:; |
T2526:; |
8467 |
V1170= Cnil; |
V1108= Cnil; |
8468 |
goto T2549; |
goto T2527; |
8469 |
T2549:; |
T2527:; |
8470 |
V1171= Cnil; |
V1109= Cnil; |
8471 |
goto T2550; |
goto T2528; |
8472 |
T2550:; |
T2528:; |
8473 |
base[0]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1169),(V1170),(V1171))); |
base[0]= (VFUN_NARGS=4,(*(LnkLI47))((base0[0]->c.c_car),(V1107),(V1108),(V1109))); |
8474 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
8475 |
return;} |
return;} |
8476 |
} |
} |
8481 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8482 |
register object *sup=base+VM143; VC143 |
register object *sup=base+VM143; VC143 |
8483 |
vs_check; |
vs_check; |
8484 |
{object V1172; |
{object V1110; |
8485 |
if(vs_top-vs_base>1) too_many_arguments(); |
if(vs_top-vs_base>1) too_many_arguments(); |
8486 |
if(vs_base>=vs_top){vs_top=sup;goto T2551;} |
if(vs_base>=vs_top){vs_top=sup;goto T2529;} |
8487 |
V1172=(base[0]); |
V1110=(base[0]); |
8488 |
vs_top=sup; |
vs_top=sup; |
8489 |
goto T2552; |
goto T2530; |
8490 |
goto T2551; |
goto T2529; |
8491 |
T2551:; |
T2529:; |
8492 |
V1172= Cnil; |
V1110= Cnil; |
8493 |
goto T2552; |
goto T2530; |
8494 |
T2552:; |
T2530:; |
8495 |
if(!(type_of((base0[11]->c.c_car))==t_cons)){ |
if(!(type_of((base0[11]->c.c_car))==t_cons)){ |
8496 |
goto T2555;} |
goto T2533;} |
8497 |
{object V1173; |
{object V1111; |
8498 |
object V1174; |
object V1112; |
8499 |
object V1175; |
object V1113; |
8500 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
8501 |
base[2]= (base0[8]->c.c_car); |
base[2]= (base0[8]->c.c_car); |
8502 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
8503 |
(void) (*Lnk193)(); |
(void) (*Lnk210)(); |
8504 |
if(vs_base>=vs_top){vs_top=sup;goto T2560;} |
if(vs_base>=vs_top){vs_top=sup;goto T2538;} |
8505 |
V1173= vs_base[0]; |
V1111= vs_base[0]; |
8506 |
vs_base++; |
vs_base++; |
8507 |
if(vs_base>=vs_top){vs_top=sup;goto T2561;} |
if(vs_base>=vs_top){vs_top=sup;goto T2539;} |
8508 |
V1174= vs_base[0]; |
V1112= vs_base[0]; |
8509 |
vs_base++; |
vs_base++; |
8510 |
if(vs_base>=vs_top){vs_top=sup;goto T2562;} |
if(vs_base>=vs_top){vs_top=sup;goto T2540;} |
8511 |
V1175= vs_base[0]; |
V1113= vs_base[0]; |
8512 |
vs_top=sup; |
vs_top=sup; |
8513 |
goto T2563; |
goto T2541; |
8514 |
goto T2560; |
goto T2538; |
8515 |
T2560:; |
T2538:; |
8516 |
V1173= Cnil; |
V1111= Cnil; |
8517 |
goto T2561; |
goto T2539; |
8518 |
T2561:; |
T2539:; |
8519 |
V1174= Cnil; |
V1112= Cnil; |
8520 |
goto T2562; |
goto T2540; |
8521 |
T2562:; |
T2540:; |
8522 |
V1175= Cnil; |
V1113= Cnil; |
8523 |
goto T2563; |
goto T2541; |
8524 |
T2563:; |
T2541:; |
8525 |
base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1173),(V1174),(V1175))); |
base[1]= (VFUN_NARGS=4,(*(LnkLI47))((base0[0]->c.c_car),(V1111),(V1112),(V1113))); |
8526 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8527 |
return;} |
return;} |
8528 |
goto T2555; |
goto T2533; |
8529 |
T2555:; |
T2533:; |
8530 |
{object V1176; |
{object V1114; |
8531 |
object V1177; |
object V1115; |
8532 |
object V1178; |
object V1116; |
8533 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
8534 |
base[2]= (base0[10]->c.c_car); |
base[2]= (base0[10]->c.c_car); |
8535 |
base[3]= (V1172); |
base[3]= (V1110); |
8536 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
8537 |
(void) (*Lnk182)(); |
(void) (*Lnk199)(); |
8538 |
if(vs_base>=vs_top){vs_top=sup;goto T2568;} |
if(vs_base>=vs_top){vs_top=sup;goto T2546;} |
8539 |
V1176= vs_base[0]; |
V1114= vs_base[0]; |
8540 |
vs_base++; |
vs_base++; |
8541 |
if(vs_base>=vs_top){vs_top=sup;goto T2569;} |
if(vs_base>=vs_top){vs_top=sup;goto T2547;} |
8542 |
V1177= vs_base[0]; |
V1115= vs_base[0]; |
8543 |
vs_base++; |
vs_base++; |
8544 |
if(vs_base>=vs_top){vs_top=sup;goto T2570;} |
if(vs_base>=vs_top){vs_top=sup;goto T2548;} |
8545 |
V1178= vs_base[0]; |
V1116= vs_base[0]; |
8546 |
vs_top=sup; |
vs_top=sup; |
8547 |
goto T2571; |
goto T2549; |
8548 |
goto T2568; |
goto T2546; |
8549 |
T2568:; |
T2546:; |
8550 |
V1176= Cnil; |
V1114= Cnil; |
8551 |
goto T2569; |
goto T2547; |
8552 |
T2569:; |
T2547:; |
8553 |
V1177= Cnil; |
V1115= Cnil; |
8554 |
goto T2570; |
goto T2548; |
8555 |
T2570:; |
T2548:; |
8556 |
V1178= Cnil; |
V1116= Cnil; |
8557 |
goto T2571; |
goto T2549; |
8558 |
T2571:; |
T2549:; |
8559 |
base[1]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1176),(V1177),(V1178))); |
base[1]= (VFUN_NARGS=4,(*(LnkLI47))((base0[0]->c.c_car),(V1114),(V1115),(V1116))); |
8560 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8561 |
return;} |
return;} |
8562 |
} |
} |
8568 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8569 |
register object *sup=base+VM144; VC144 |
register object *sup=base+VM144; VC144 |
8570 |
vs_check; |
vs_check; |
8571 |
{object V1179; |
{object V1117; |
8572 |
object V1180; |
object V1118; |
8573 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
8574 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
8575 |
V1179=(base[0]); |
V1117=(base[0]); |
8576 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
8577 |
if(vs_base>=vs_top){vs_top=sup;goto T2572;} |
if(vs_base>=vs_top){vs_top=sup;goto T2550;} |
8578 |
V1180=(base[1]); |
V1118=(base[1]); |
8579 |
vs_top=sup; |
vs_top=sup; |
8580 |
goto T2573; |
goto T2551; |
8581 |
goto T2572; |
goto T2550; |
8582 |
T2572:; |
T2550:; |
8583 |
V1180= Cnil; |
V1118= Cnil; |
8584 |
goto T2573; |
goto T2551; |
8585 |
T2573:; |
T2551:; |
8586 |
{object V1181; |
{object V1119; |
8587 |
object V1182; |
object V1120; |
8588 |
object V1183; |
object V1121; |
8589 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
8590 |
base[3]= (base0[10]->c.c_car); |
base[3]= (base0[10]->c.c_car); |
8591 |
base[4]= (V1179); |
base[4]= (V1117); |
8592 |
base[5]= (V1180); |
base[5]= (V1118); |
8593 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
8594 |
(void) (*Lnk178)(); |
(void) (*Lnk195)(); |
8595 |
if(vs_base>=vs_top){vs_top=sup;goto T2580;} |
if(vs_base>=vs_top){vs_top=sup;goto T2558;} |
8596 |
V1181= vs_base[0]; |
V1119= vs_base[0]; |
8597 |
vs_base++; |
vs_base++; |
8598 |
if(vs_base>=vs_top){vs_top=sup;goto T2581;} |
if(vs_base>=vs_top){vs_top=sup;goto T2559;} |
8599 |
V1182= vs_base[0]; |
V1120= vs_base[0]; |
8600 |
vs_base++; |
vs_base++; |
8601 |
if(vs_base>=vs_top){vs_top=sup;goto T2582;} |
if(vs_base>=vs_top){vs_top=sup;goto T2560;} |
8602 |
V1183= vs_base[0]; |
V1121= vs_base[0]; |
8603 |
vs_top=sup; |
vs_top=sup; |
8604 |
goto T2583; |
goto T2561; |
8605 |
goto T2580; |
goto T2558; |
8606 |
T2580:; |
T2558:; |
8607 |
V1181= Cnil; |
V1119= Cnil; |
8608 |
goto T2581; |
goto T2559; |
8609 |
T2581:; |
T2559:; |
8610 |
V1182= Cnil; |
V1120= Cnil; |
8611 |
goto T2582; |
goto T2560; |
8612 |
T2582:; |
T2560:; |
8613 |
V1183= Cnil; |
V1121= Cnil; |
8614 |
goto T2583; |
goto T2561; |
8615 |
T2583:; |
T2561:; |
8616 |
base[2]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1181),(V1182),(V1183))); |
base[2]= (VFUN_NARGS=4,(*(LnkLI47))((base0[0]->c.c_car),(V1119),(V1120),(V1121))); |
8617 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
8618 |
return;} |
return;} |
8619 |
} |
} |
8625 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8626 |
register object *sup=base+VM145; VC145 |
register object *sup=base+VM145; VC145 |
8627 |
vs_check; |
vs_check; |
8628 |
{object V1184; |
{object V1122; |
8629 |
object V1185; |
object V1123; |
8630 |
object V1186; |
object V1124; |
8631 |
check_arg(3); |
check_arg(3); |
8632 |
V1184=(base[0]); |
V1122=(base[0]); |
8633 |
V1185=(base[1]); |
V1123=(base[1]); |
8634 |
V1186=(base[2]); |
V1124=(base[2]); |
8635 |
vs_top=sup; |
vs_top=sup; |
8636 |
goto TTL; |
goto TTL; |
8637 |
TTL:; |
TTL:; |
8639 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8640 |
Lrandom(); |
Lrandom(); |
8641 |
vs_top=sup; |
vs_top=sup; |
8642 |
V1187= vs_base[0]; |
V1125= vs_base[0]; |
8643 |
if(!(number_compare(small_fixnum(0),V1187)==0)){ |
if(!(number_compare(small_fixnum(0),V1125)==0)){ |
8644 |
goto T2584;} |
goto T2562;} |
8645 |
{object V1188; |
{object V1126; |
8646 |
object V1189; |
object V1127; |
8647 |
V1188= (V1186); |
V1126= (V1124); |
8648 |
V1189= (V1185); |
V1127= (V1123); |
8649 |
V1185= (V1188); |
V1123= (V1126); |
8650 |
V1186= (V1189);} |
V1124= (V1127);} |
8651 |
goto T2584; |
goto T2562; |
8652 |
T2584:; |
T2562:; |
8653 |
{object V1190; |
{object V1128; |
8654 |
object V1191; |
object V1129; |
8655 |
object V1192; |
object V1130; |
8656 |
base[3]= (base0[0]->c.c_car); |
base[3]= (base0[0]->c.c_car); |
8657 |
base[4]= (base0[10]->c.c_car); |
base[4]= (base0[10]->c.c_car); |
8658 |
base[5]= (V1185); |
base[5]= (V1123); |
8659 |
base[6]= (V1186); |
base[6]= (V1124); |
8660 |
base[7]= (V1184); |
base[7]= (V1122); |
8661 |
vs_top=(vs_base=base+3)+5; |
vs_top=(vs_base=base+3)+5; |
8662 |
(void) (*Lnk237)(); |
(void) (*Lnk254)(); |
8663 |
if(vs_base>=vs_top){vs_top=sup;goto T2601;} |
if(vs_base>=vs_top){vs_top=sup;goto T2579;} |
8664 |
V1190= vs_base[0]; |
V1128= vs_base[0]; |
8665 |
vs_base++; |
vs_base++; |
8666 |
if(vs_base>=vs_top){vs_top=sup;goto T2602;} |
if(vs_base>=vs_top){vs_top=sup;goto T2580;} |
8667 |
V1191= vs_base[0]; |
V1129= vs_base[0]; |
8668 |
vs_base++; |
vs_base++; |
8669 |
if(vs_base>=vs_top){vs_top=sup;goto T2603;} |
if(vs_base>=vs_top){vs_top=sup;goto T2581;} |
8670 |
V1192= vs_base[0]; |
V1130= vs_base[0]; |
8671 |
vs_top=sup; |
vs_top=sup; |
8672 |
goto T2604; |
goto T2582; |
8673 |
goto T2601; |
goto T2579; |
8674 |
T2601:; |
T2579:; |
8675 |
V1190= Cnil; |
V1128= Cnil; |
8676 |
goto T2602; |
goto T2580; |
8677 |
T2602:; |
T2580:; |
8678 |
V1191= Cnil; |
V1129= Cnil; |
8679 |
goto T2603; |
goto T2581; |
8680 |
T2603:; |
T2581:; |
8681 |
V1192= Cnil; |
V1130= Cnil; |
8682 |
goto T2604; |
goto T2582; |
8683 |
T2604:; |
T2582:; |
8684 |
base[3]= (VFUN_NARGS=4,(*(LnkLI49))((base0[0]->c.c_car),(V1190),(V1191),(V1192))); |
base[3]= (VFUN_NARGS=4,(*(LnkLI47))((base0[0]->c.c_car),(V1128),(V1129),(V1130))); |
8685 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8686 |
return;} |
return;} |
8687 |
} |
} |
8693 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8694 |
register object *sup=base+VM146; VC146 |
register object *sup=base+VM146; VC146 |
8695 |
vs_check; |
vs_check; |
8696 |
{object V1193; |
{object V1131; |
8697 |
check_arg(1); |
check_arg(1); |
8698 |
V1193=(base[0]); |
V1131=(base[0]); |
8699 |
vs_top=sup; |
vs_top=sup; |
8700 |
V1194 = (base0[0]->c.c_car); |
base[1]= (V1131); |
|
base[1]= (V1193); |
|
8701 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8702 |
(void) (*Lnk242)(Lclptr242); |
(void) (*Lnk259)(Lclptr259); |
8703 |
vs_top=sup; |
vs_top=sup; |
8704 |
V1195= vs_base[0]; |
V1132= vs_base[0]; |
8705 |
base[1]= (equal(V1194,V1195)?Ct:Cnil); |
base[1]= (equal((base0[0]->c.c_car),V1132)?Ct:Cnil); |
8706 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8707 |
return; |
return; |
8708 |
} |
} |
8714 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8715 |
register object *sup=base+VM147; VC147 |
register object *sup=base+VM147; VC147 |
8716 |
vs_check; |
vs_check; |
8717 |
{object V1196; |
{object V1133; |
8718 |
check_arg(1); |
check_arg(1); |
8719 |
V1196=(base[0]); |
V1133=(base[0]); |
8720 |
vs_top=sup; |
vs_top=sup; |
8721 |
base[1]= (((V1196))==((VV[125]->s.s_dbind))?Ct:Cnil); |
base[1]= (((V1133))==((VV[135]->s.s_dbind))?Ct:Cnil); |
8722 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8723 |
return; |
return; |
8724 |
} |
} |
8730 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8731 |
register object *sup=base+VM148; VC148 |
register object *sup=base+VM148; VC148 |
8732 |
vs_check; |
vs_check; |
8733 |
{object V1197; |
{object V1134; |
8734 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
8735 |
{object *p=vs_top; |
{object *p=vs_top; |
8736 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
8737 |
V1197=(base[0]); |
V1134=(base[0]); |
8738 |
vs_top=sup; |
vs_top=sup; |
8739 |
base[1]=VV[250]->s.s_gfdef; |
base[1]=VV[339]->s.s_gfdef; |
8740 |
base[2]= (base0[1]->c.c_car); |
base[2]= (base0[1]->c.c_car); |
8741 |
{object V1198; |
{object V1135; |
8742 |
V1198= (V1197); |
V1135= (V1134); |
8743 |
vs_top=base+3; |
vs_top=base+3; |
8744 |
while(V1198!=Cnil) |
while(V1135!=Cnil) |
8745 |
{vs_push((V1198)->c.c_car);V1198=(V1198)->c.c_cdr;} |
{vs_push((V1135)->c.c_car);V1135=(V1135)->c.c_cdr;} |
8746 |
vs_base=base+2;} |
vs_base=base+2;} |
8747 |
(void) (*Lnk250)(Lclptr250); |
(void) (*Lnk339)(Lclptr339); |
8748 |
return; |
return; |
8749 |
} |
} |
8750 |
} |
} |
8755 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8756 |
register object *sup=base+VM149; VC149 |
register object *sup=base+VM149; VC149 |
8757 |
vs_check; |
vs_check; |
8758 |
{object V1199; |
{object V1136; |
8759 |
check_arg(1); |
check_arg(1); |
8760 |
V1199=(base[0]); |
V1136=(base[0]); |
8761 |
vs_top=sup; |
vs_top=sup; |
8762 |
if(!(type_of((V1199))==t_cons)){ |
if(!(type_of((V1136))==t_cons)){ |
8763 |
goto T2610;}{object V1200; |
goto T2588;}{object V1137; |
8764 |
V1200= (VV[122]->s.s_dbind); |
V1137= (VV[132]->s.s_dbind); |
8765 |
V1201= (*(LnkLI265))((V1199)); |
V1138= (*(LnkLI281))((V1136)); |
8766 |
base[1]= ((V1200)==(/* INLINE-ARGS */V1201)?Ct:Cnil); |
base[1]= ((V1137)==(/* INLINE-ARGS */V1138)?Ct:Cnil); |
8767 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8768 |
return;} |
return;} |
8769 |
goto T2610; |
goto T2588; |
8770 |
T2610:; |
T2588:; |
8771 |
base[1]= (V1199); |
base[1]= (V1136); |
8772 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8773 |
(void) (*Lnk329)(Lclptr329); |
(void) (*Lnk344)(Lclptr344); |
8774 |
return; |
return; |
8775 |
} |
} |
8776 |
} |
} |
8781 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8782 |
register object *sup=base+VM150; VC150 |
register object *sup=base+VM150; VC150 |
8783 |
vs_check; |
vs_check; |
8784 |
{object V1202; |
{object V1139; |
8785 |
check_arg(1); |
check_arg(1); |
8786 |
V1202=(base[0]); |
V1139=(base[0]); |
8787 |
vs_top=sup; |
vs_top=sup; |
8788 |
if(!(type_of((V1202))==t_cons)){ |
if(!(type_of((V1139))==t_cons)){ |
8789 |
goto T2614;}{object V1203; |
goto T2592;}{object V1140; |
8790 |
V1203= (VV[121]->s.s_dbind); |
V1140= (VV[131]->s.s_dbind); |
8791 |
V1204= (*(LnkLI265))((V1202)); |
V1141= (*(LnkLI281))((V1139)); |
8792 |
base[1]= ((V1203)==(/* INLINE-ARGS */V1204)?Ct:Cnil); |
base[1]= ((V1140)==(/* INLINE-ARGS */V1141)?Ct:Cnil); |
8793 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8794 |
return;} |
return;} |
8795 |
goto T2614; |
goto T2592; |
8796 |
T2614:; |
T2592:; |
8797 |
base[1]= (V1202); |
base[1]= (V1139); |
8798 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8799 |
(void) (*Lnk330)(Lclptr330); |
(void) (*Lnk345)(Lclptr345); |
8800 |
return; |
return; |
8801 |
} |
} |
8802 |
} |
} |
8807 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8808 |
register object *sup=base+VM151; VC151 |
register object *sup=base+VM151; VC151 |
8809 |
vs_check; |
vs_check; |
8810 |
{object V1205; |
{object V1142; |
8811 |
object V1206; |
object V1143; |
8812 |
check_arg(2); |
check_arg(2); |
8813 |
V1205=(base[0]); |
V1142=(base[0]); |
8814 |
V1206=(base[1]); |
V1143=(base[1]); |
8815 |
vs_top=sup; |
vs_top=sup; |
8816 |
{register object V1207; |
{register object V1144; |
8817 |
object V1208; |
object V1145; |
8818 |
V1207= (*(LnkLI290))((V1206)); |
V1144= (*(LnkLI306))((V1143)); |
8819 |
if(type_of(V1207)==t_structure){ |
if(type_of(V1144)==t_structure){ |
8820 |
goto T2623;} |
goto T2601;} |
8821 |
goto T2621; |
goto T2599; |
8822 |
goto T2623; |
goto T2601; |
8823 |
T2623:; |
T2601:; |
8824 |
if(!(((V1207)->str.str_def)==(VV[104]))){ |
if(!(((V1144)->str.str_def)==(VV[112]))){ |
8825 |
goto T2621;} |
goto T2599;} |
8826 |
V1209= STREF(object,(V1207),4); |
V1146= STREF(object,(V1144),4); |
8827 |
goto T2619; |
goto T2597; |
8828 |
goto T2621; |
goto T2599; |
8829 |
T2621:;{object V1211; |
T2599:;{object V1148; |
8830 |
V1211= (VV[65]->s.s_dbind); |
V1148= (VV[73]->s.s_dbind); |
8831 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
8832 |
base[5]= (V1207); |
base[5]= (V1144); |
8833 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
8834 |
(void) (*Lnk197)(); |
(void) (*Lnk214)(); |
8835 |
vs_top=sup; |
vs_top=sup; |
8836 |
V1212= vs_base[0]; |
V1149= vs_base[0]; |
8837 |
if(!((V1211)==(CMPcar(V1212)))){ |
if(!((V1148)==(CMPcar(V1149)))){ |
8838 |
goto T2626;}} |
goto T2604;}} |
8839 |
V1209= CMPcar(((V1207))->cc.cc_turbo[12]); |
V1146= CMPcar(((V1144))->cc.cc_turbo[12]); |
8840 |
goto T2619; |
goto T2597; |
8841 |
goto T2626; |
goto T2604; |
8842 |
T2626:; |
T2604:; |
8843 |
base[4]= VV[66]; |
base[4]= VV[74]; |
8844 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
8845 |
Lerror(); |
Lerror(); |
8846 |
vs_top=sup; |
vs_top=sup; |
8847 |
V1209= vs_base[0]; |
V1146= vs_base[0]; |
8848 |
goto T2619; |
goto T2597; |
8849 |
T2619:; |
T2597:; |
8850 |
V1213= (*(LnkLI281))(VV[10],VV[102]); |
V1150= (*(LnkLI297))(VV[8],VV[110]); |
8851 |
V1208= (V1209)->v.v_self[fix(/* INLINE-ARGS */V1213)]; |
V1145= (V1146)->v.v_self[fix(/* INLINE-ARGS */V1150)]; |
8852 |
base[4]= (*(LnkLI331))((V1208),(V1206),(base0[0]->c.c_car),(V1205)); |
base[4]= (*(LnkLI346))((V1145),(V1143),(base0[0]->c.c_car),(V1142)); |
8853 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
8854 |
return;} |
return;} |
8855 |
} |
} |
8861 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8862 |
register object *sup=base+VM152; VC152 |
register object *sup=base+VM152; VC152 |
8863 |
vs_check; |
vs_check; |
8864 |
{register object V1214; |
{register object V1151; |
8865 |
check_arg(1); |
check_arg(1); |
8866 |
V1214=(base[0]); |
V1151=(base[0]); |
8867 |
vs_top=sup; |
vs_top=sup; |
8868 |
{register object V1215; |
{register object V1152; |
8869 |
object V1216; |
object V1153; |
8870 |
V1215= (*(LnkLI290))((V1214)); |
V1152= (*(LnkLI306))((V1151)); |
8871 |
if(type_of(V1215)==t_structure){ |
if(type_of(V1152)==t_structure){ |
8872 |
goto T2638;} |
goto T2616;} |
8873 |
goto T2636; |
goto T2614; |
8874 |
goto T2638; |
goto T2616; |
8875 |
T2638:; |
T2616:; |
8876 |
if(!(((V1215)->str.str_def)==(VV[101]))){ |
if(!(((V1152)->str.str_def)==(VV[109]))){ |
8877 |
goto T2636;} |
goto T2614;} |
8878 |
V1217= STREF(object,(V1215),4); |
V1154= STREF(object,(V1152),4); |
8879 |
goto T2634; |
goto T2612; |
8880 |
goto T2636; |
goto T2614; |
8881 |
T2636:;{object V1219; |
T2614:;{object V1156; |
8882 |
V1219= (VV[65]->s.s_dbind); |
V1156= (VV[73]->s.s_dbind); |
8883 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
8884 |
base[4]= (V1215); |
base[4]= (V1152); |
8885 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
8886 |
(void) (*Lnk197)(); |
(void) (*Lnk214)(); |
8887 |
vs_top=sup; |
vs_top=sup; |
8888 |
V1220= vs_base[0]; |
V1157= vs_base[0]; |
8889 |
if(!((V1219)==(CMPcar(V1220)))){ |
if(!((V1156)==(CMPcar(V1157)))){ |
8890 |
goto T2641;}} |
goto T2619;}} |
8891 |
V1217= CMPcar(((V1215))->cc.cc_turbo[12]); |
V1154= CMPcar(((V1152))->cc.cc_turbo[12]); |
8892 |
goto T2634; |
goto T2612; |
8893 |
goto T2641; |
goto T2619; |
8894 |
T2641:; |
T2619:; |
8895 |
base[3]= VV[66]; |
base[3]= VV[74]; |
8896 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8897 |
Lerror(); |
Lerror(); |
8898 |
vs_top=sup; |
vs_top=sup; |
8899 |
V1217= vs_base[0]; |
V1154= vs_base[0]; |
8900 |
goto T2634; |
goto T2612; |
8901 |
T2634:; |
T2612:; |
8902 |
V1221= (*(LnkLI281))(VV[10],VV[102]); |
V1158= (*(LnkLI297))(VV[8],VV[110]); |
8903 |
V1216= (V1217)->v.v_self[fix(/* INLINE-ARGS */V1221)]; |
V1153= (V1154)->v.v_self[fix(/* INLINE-ARGS */V1158)]; |
8904 |
if(type_of(V1214)==t_structure){ |
if(type_of(V1151)==t_structure){ |
8905 |
goto T2651;} |
goto T2629;} |
8906 |
goto T2649; |
goto T2627; |
8907 |
goto T2651; |
goto T2629; |
8908 |
T2651:; |
T2629:; |
8909 |
if(!(((V1214)->str.str_def)==(VV[103]))){ |
if(!(((V1151)->str.str_def)==(VV[111]))){ |
8910 |
goto T2649;} |
goto T2627;} |
8911 |
V1222= STREF(object,(V1214),4); |
V1159= STREF(object,(V1151),4); |
8912 |
goto T2647; |
goto T2625; |
8913 |
goto T2649; |
goto T2627; |
8914 |
T2649:;{object V1224; |
T2627:;{object V1161; |
8915 |
V1224= (VV[65]->s.s_dbind); |
V1161= (VV[73]->s.s_dbind); |
8916 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
8917 |
base[4]= (V1214); |
base[4]= (V1151); |
8918 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
8919 |
(void) (*Lnk197)(); |
(void) (*Lnk214)(); |
8920 |
vs_top=sup; |
vs_top=sup; |
8921 |
V1225= vs_base[0]; |
V1162= vs_base[0]; |
8922 |
if(!((V1224)==(CMPcar(V1225)))){ |
if(!((V1161)==(CMPcar(V1162)))){ |
8923 |
goto T2654;}} |
goto T2632;}} |
8924 |
V1222= CMPcar(((V1214))->cc.cc_turbo[12]); |
V1159= CMPcar(((V1151))->cc.cc_turbo[12]); |
8925 |
goto T2647; |
goto T2625; |
8926 |
goto T2654; |
goto T2632; |
8927 |
T2654:; |
T2632:; |
8928 |
base[3]= VV[66]; |
base[3]= VV[74]; |
8929 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8930 |
Lerror(); |
Lerror(); |
8931 |
vs_top=sup; |
vs_top=sup; |
8932 |
V1222= vs_base[0]; |
V1159= vs_base[0]; |
8933 |
goto T2647; |
goto T2625; |
8934 |
T2647:; |
T2625:; |
8935 |
V1226= (*(LnkLI281))((V1216),(base0[0]->c.c_car)); |
V1163= (*(LnkLI297))((V1153),(base0[0]->c.c_car)); |
8936 |
base[3]= (V1222)->v.v_self[fix(/* INLINE-ARGS */V1226)]; |
base[3]= (V1159)->v.v_self[fix(/* INLINE-ARGS */V1163)]; |
8937 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8938 |
return;} |
return;} |
8939 |
} |
} |
8945 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8946 |
register object *sup=base+VM153; VC153 |
register object *sup=base+VM153; VC153 |
8947 |
vs_check; |
vs_check; |
8948 |
{object V1227; |
{object V1164; |
8949 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
8950 |
{object *p=vs_top; |
{object *p=vs_top; |
8951 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
8952 |
V1227=(base[0]); |
V1164=(base[0]); |
8953 |
vs_top=sup; |
vs_top=sup; |
8954 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
8955 |
base[2]= (V1227); |
base[2]= (V1164); |
8956 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
8957 |
(void) (*Lnk332)(); |
(void) (*Lnk347)(); |
8958 |
return; |
return; |
8959 |
} |
} |
8960 |
} |
} |
8965 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8966 |
register object *sup=base+VM154; VC154 |
register object *sup=base+VM154; VC154 |
8967 |
vs_check; |
vs_check; |
8968 |
{object V1228; |
{object V1165; |
8969 |
object V1229; |
object V1166; |
8970 |
check_arg(2); |
check_arg(2); |
8971 |
V1228=(base[0]); |
V1165=(base[0]); |
8972 |
V1229=(base[1]); |
V1166=(base[1]); |
8973 |
vs_top=sup; |
vs_top=sup; |
8974 |
V1230 = (base0[0]->c.c_car); |
base[2]= (V1165); |
|
base[2]= (V1228); |
|
8975 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
8976 |
(void) (*Lnk236)(Lclptr236); |
(void) (*Lnk253)(Lclptr253); |
8977 |
vs_top=sup; |
vs_top=sup; |
8978 |
V1231= vs_base[0]; |
V1167= vs_base[0]; |
8979 |
V1232 = (V1229); |
(base0[0]->c.c_car)= (VFUN_NARGS=4,(*(LnkLI264))((base0[0]->c.c_car),V1167,(V1166),Ct)); |
|
(base0[0]->c.c_car)= (VFUN_NARGS=4,(*(LnkLI247))(V1230,V1231,V1232,Ct)); |
|
8980 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
8981 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
8982 |
return; |
return; |
8989 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8990 |
register object *sup=base+VM155; VC155 |
register object *sup=base+VM155; VC155 |
8991 |
vs_check; |
vs_check; |
8992 |
{object V1233; |
{object V1168; |
8993 |
object V1234; |
object V1169; |
8994 |
object V1235; |
object V1170; |
8995 |
object V1236; |
object V1171; |
8996 |
check_arg(4); |
check_arg(4); |
8997 |
V1233=(base[0]); |
V1168=(base[0]); |
8998 |
V1234=(base[1]); |
V1169=(base[1]); |
8999 |
V1235=(base[2]); |
V1170=(base[2]); |
9000 |
V1236=(base[3]); |
V1171=(base[3]); |
9001 |
vs_top=sup; |
vs_top=sup; |
9002 |
{object V1237; |
{object V1172; |
9003 |
object V1238; |
object V1173; |
9004 |
if(!((VV[10])==(CMPcar((V1234))))){ |
if(!((VV[8])==(CMPcar((V1169))))){ |
9005 |
goto T2667;} |
goto T2645;} |
9006 |
{object V1239; |
{object V1174; |
9007 |
object V1240; |
object V1175; |
9008 |
V1239= (*(LnkLI290))(CMPcadr((V1234))); |
V1174= (*(LnkLI306))(CMPcadr((V1169))); |
9009 |
base[8]= (V1239); |
base[8]= (V1174); |
9010 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
9011 |
(void) (*Lnk264)(Lclptr264); |
(void) (*Lnk280)(Lclptr280); |
9012 |
vs_top=sup; |
vs_top=sup; |
9013 |
V1240= vs_base[0]; |
V1175= vs_base[0]; |
9014 |
{register object x= (VV[76]->s.s_dbind),V1241= (V1240); |
{register object x= (VV[84]->s.s_dbind),V1176= (V1175); |
9015 |
while(V1241!=Cnil) |
while(V1176!=Cnil) |
9016 |
if(x==(V1241->c.c_car)){ |
if(x==(V1176->c.c_car)){ |
9017 |
goto T2674; |
goto T2652; |
9018 |
}else V1241=V1241->c.c_cdr; |
}else V1176=V1176->c.c_cdr; |
9019 |
goto T2673;} |
goto T2651;} |
9020 |
goto T2674; |
goto T2652; |
9021 |
T2674:; |
T2652:; |
9022 |
V1237= (VV[77]->s.s_dbind); |
V1172= (VV[85]->s.s_dbind); |
9023 |
goto T2665; |
goto T2643; |
9024 |
goto T2673; |
goto T2651; |
9025 |
T2673:; |
T2651:; |
9026 |
{register object x= (VV[78]->s.s_dbind),V1242= (V1240); |
{register object x= (VV[86]->s.s_dbind),V1177= (V1175); |
9027 |
while(V1242!=Cnil) |
while(V1177!=Cnil) |
9028 |
if(x==(V1242->c.c_car)){ |
if(x==(V1177->c.c_car)){ |
9029 |
goto T2677; |
goto T2655; |
9030 |
}else V1242=V1242->c.c_cdr; |
}else V1177=V1177->c.c_cdr; |
9031 |
goto T2676;} |
goto T2654;} |
9032 |
goto T2677; |
goto T2655; |
9033 |
T2677:; |
T2655:; |
9034 |
V1237= (VV[79]->s.s_dbind); |
V1172= (VV[87]->s.s_dbind); |
9035 |
goto T2665; |
goto T2643; |
9036 |
goto T2676; |
goto T2654; |
9037 |
T2676:; |
T2654:; |
9038 |
V1237= (VV[80]->s.s_dbind); |
V1172= (VV[88]->s.s_dbind); |
9039 |
goto T2665;} |
goto T2643;} |
9040 |
goto T2667; |
goto T2645; |
9041 |
T2667:; |
T2645:; |
9042 |
V1237= small_fixnum(0); |
V1172= small_fixnum(0); |
9043 |
goto T2665; |
goto T2643; |
9044 |
T2665:; |
T2643:; |
9045 |
V1238= number_plus((number_compare((V1235),(V1236))>=0?((V1235)):(V1236)),(V1237)); |
V1173= number_plus((number_compare((V1170),(V1171))>=0?((V1170)):(V1171)),(V1172)); |
9046 |
if(((base0[1]->c.c_car))==Cnil){ |
if(((base0[1]->c.c_car))==Cnil){ |
9047 |
goto T2679;} |
goto T2657;} |
9048 |
if(!(number_compare((base0[1]->c.c_car),(V1238))<=0)){ |
if(!(number_compare((base0[1]->c.c_car),(V1173))<=0)){ |
9049 |
goto T2679;} |
goto T2657;} |
9050 |
{frame_ptr fr; |
{frame_ptr fr; |
9051 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
9052 |
if(fr==NULL) FEerror("The block ~s is missing.",1,VV[209]); |
if(fr==NULL) FEerror("The block ~s is missing.",1,VV[226]); |
9053 |
base[6]= (V1238); |
base[6]= (V1173); |
9054 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
9055 |
unwind(fr,Cnil);} |
unwind(fr,Cnil);} |
9056 |
goto T2679; |
goto T2657; |
9057 |
T2679:; |
T2657:; |
9058 |
base[6]= (V1238); |
base[6]= (V1173); |
9059 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
9060 |
return;} |
return;} |
9061 |
} |
} |
9067 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9068 |
register object *sup=base+VM156; VC156 |
register object *sup=base+VM156; VC156 |
9069 |
vs_check; |
vs_check; |
9070 |
{object V1243; |
{object V1178; |
9071 |
object V1244; |
object V1179; |
9072 |
check_arg(2); |
check_arg(2); |
9073 |
V1243=(base[0]); |
V1178=(base[0]); |
9074 |
V1244=(base[1]); |
V1179=(base[1]); |
9075 |
vs_top=sup; |
vs_top=sup; |
9076 |
base[2]= small_fixnum(0); |
base[2]= small_fixnum(0); |
9077 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
9085 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9086 |
register object *sup=base+VM157; VC157 |
register object *sup=base+VM157; VC157 |
9087 |
vs_check; |
vs_check; |
9088 |
{object V1245; |
{object V1180; |
9089 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
9090 |
{object *p=vs_top; |
{object *p=vs_top; |
9091 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
9092 |
V1245=(base[0]); |
V1180=(base[0]); |
9093 |
vs_top=sup; |
vs_top=sup; |
9094 |
base[1]= (base0[1]->c.c_car); |
base[1]= (base0[1]->c.c_car); |
9095 |
base[2]= (V1245); |
base[2]= (V1180); |
9096 |
base[3]= (base0[0]->c.c_car); |
base[3]= (base0[0]->c.c_car); |
9097 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
9098 |
(void) (*Lnk333)(); |
(void) (*Lnk348)(); |
9099 |
return; |
return; |
9100 |
} |
} |
9101 |
} |
} |
9106 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9107 |
register object *sup=base+VM158; VC158 |
register object *sup=base+VM158; VC158 |
9108 |
vs_check; |
vs_check; |
9109 |
{register object V1246; |
{register object V1181; |
9110 |
check_arg(1); |
check_arg(1); |
9111 |
V1246=(base[0]); |
V1181=(base[0]); |
9112 |
vs_top=sup;{object V1247; |
vs_top=sup;{object V1182; |
9113 |
if(((VV[72]->s.s_dbind))==(VV[73])){ |
if(((VV[79]->s.s_dbind))==(VV[80])){ |
9114 |
goto T2690;} |
goto T2668;} |
9115 |
V1247= Cnil; |
V1182= Cnil; |
9116 |
goto T2689; |
goto T2667; |
9117 |
goto T2690; |
goto T2668; |
9118 |
T2690:; |
T2668:; |
9119 |
base[1]= (VV[310]->s.s_gfdef); |
base[1]= (VV[326]->s.s_gfdef); |
9120 |
base[3]= (V1246); |
base[3]= (V1181); |
9121 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9122 |
(void) (*Lnk242)(Lclptr242); |
(void) (*Lnk259)(Lclptr259); |
9123 |
vs_top=sup; |
vs_top=sup; |
9124 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
9125 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
9126 |
(void) (*Lnk200)(); |
(void) (*Lnk217)(); |
9127 |
vs_top=sup; |
vs_top=sup; |
9128 |
V1247= vs_base[0]; |
V1182= vs_base[0]; |
9129 |
goto T2689; |
goto T2667; |
9130 |
T2689:; |
T2667:; |
9131 |
if(V1247==Cnil)goto T2688; |
if(V1182==Cnil)goto T2666; |
9132 |
base[1]= V1247; |
base[1]= V1182; |
9133 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9134 |
return; |
return; |
9135 |
goto T2688; |
goto T2666; |
9136 |
T2688:;} |
T2666:;} |
9137 |
{object V1248; |
{object V1183; |
9138 |
if(((base0[1]->c.c_car))==Cnil){ |
if(((base0[1]->c.c_car))==Cnil){ |
9139 |
goto T2698;}{object V1250; |
goto T2676;}{object V1185; |
9140 |
V1250= CMPcaddr((V1246)); |
V1185= CMPcaddr((V1181)); |
9141 |
if(V1250==Cnil)goto T2700; |
if(V1185==Cnil)goto T2678; |
9142 |
V1249= V1250; |
V1184= V1185; |
9143 |
goto T2696; |
goto T2674; |
9144 |
goto T2700; |
goto T2678; |
9145 |
T2700:;} |
T2678:;} |
9146 |
V1249= CMPcadr((V1246)); |
V1184= CMPcadr((V1181)); |
9147 |
goto T2696; |
goto T2674; |
9148 |
goto T2698; |
goto T2676; |
9149 |
T2698:;{object V1251; |
T2676:;{object V1186; |
9150 |
base[1]= (V1246); |
base[1]= (V1181); |
9151 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9152 |
(void) (*Lnk334)(Lclptr334); |
(void) (*Lnk349)(Lclptr349); |
9153 |
vs_top=sup; |
vs_top=sup; |
9154 |
V1251= vs_base[0]; |
V1186= vs_base[0]; |
9155 |
if(V1251==Cnil)goto T2702; |
if(V1186==Cnil)goto T2680; |
9156 |
V1249= V1251; |
V1184= V1186; |
9157 |
goto T2696; |
goto T2674; |
9158 |
goto T2702; |
goto T2680; |
9159 |
T2702:;} |
T2680:;} |
9160 |
base[1]= (V1246); |
base[1]= (V1181); |
9161 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9162 |
(void) (*Lnk335)(Lclptr335); |
(void) (*Lnk350)(Lclptr350); |
9163 |
vs_top=sup; |
vs_top=sup; |
9164 |
V1249= vs_base[0]; |
V1184= vs_base[0]; |
9165 |
goto T2696; |
goto T2674; |
9166 |
T2696:; |
T2674:; |
9167 |
V1252 = (base0[0]->c.c_car); |
V1183= (VFUN_NARGS=3,(*(LnkLI266))(V1184,VV[81],(base0[0]->c.c_car))); |
|
V1248= (VFUN_NARGS=3,(*(LnkLI249))(V1249,VV[74],V1252)); |
|
9168 |
if(((base0[2]->c.c_car))==Cnil){ |
if(((base0[2]->c.c_car))==Cnil){ |
9169 |
goto T2707;} |
goto T2685;} |
9170 |
if(!(((V1248))==(Ct))){ |
if(!(((V1183))==(Ct))){ |
9171 |
goto T2710;} |
goto T2688;} |
9172 |
V1253= Ct; |
V1187= Ct; |
9173 |
goto T2709; |
goto T2687; |
9174 |
goto T2710; |
goto T2688; |
9175 |
T2710:; |
T2688:; |
9176 |
V1253= (((V1248))==(Cnil)?Ct:Cnil); |
V1187= (((V1183))==(Cnil)?Ct:Cnil); |
9177 |
goto T2709; |
goto T2687; |
9178 |
T2709:; |
T2687:; |
9179 |
base[1]= ((V1253)==Cnil?Ct:Cnil); |
base[1]= ((V1187)==Cnil?Ct:Cnil); |
9180 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9181 |
return; |
return; |
9182 |
goto T2707; |
goto T2685; |
9183 |
T2707:; |
T2685:; |
9184 |
base[1]= (((V1248))==((base0[0]->c.c_car))?Ct:Cnil); |
base[1]= (((V1183))==((base0[0]->c.c_car))?Ct:Cnil); |
9185 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9186 |
return;} |
return;} |
9187 |
} |
} |
9193 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9194 |
register object *sup=base+VM159; VC159 |
register object *sup=base+VM159; VC159 |
9195 |
vs_check; |
vs_check; |
9196 |
{object V1254; |
{object V1188; |
9197 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
9198 |
{object *p=vs_top; |
{object *p=vs_top; |
9199 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
9200 |
V1254=(base[0]); |
V1188=(base[0]); |
9201 |
vs_top=sup; |
vs_top=sup; |
9202 |
base[1]= (base0[1]->c.c_car); |
base[1]= (base0[1]->c.c_car); |
9203 |
base[2]= (V1254); |
base[2]= (V1188); |
9204 |
base[3]= (base0[0]->c.c_car); |
base[3]= (base0[0]->c.c_car); |
9205 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
9206 |
(void) (*Lnk336)(); |
(void) (*Lnk351)(); |
9207 |
return; |
return; |
9208 |
} |
} |
9209 |
} |
} |
9214 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9215 |
register object *sup=base+VM160; VC160 |
register object *sup=base+VM160; VC160 |
9216 |
vs_check; |
vs_check; |
9217 |
{object V1255; |
{object V1189; |
9218 |
check_arg(1); |
check_arg(1); |
9219 |
V1255=(base[0]); |
V1189=(base[0]); |
9220 |
vs_top=sup; |
vs_top=sup; |
9221 |
{object V1256; |
{object V1190; |
9222 |
if(!(type_of((V1255))==t_cons||((V1255))==Cnil)){ |
if(!(type_of((V1189))==t_cons||((V1189))==Cnil)){ |
9223 |
goto T2717;} |
goto T2695;} |
9224 |
V1256= CMPcaddr((V1255)); |
V1190= CMPcaddr((V1189)); |
9225 |
goto T2715; |
goto T2693; |
9226 |
goto T2717; |
goto T2695; |
9227 |
T2717:; |
T2695:; |
9228 |
base[1]= (V1255); |
base[1]= (V1189); |
9229 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9230 |
(void) (*Lnk334)(Lclptr334); |
(void) (*Lnk349)(Lclptr349); |
9231 |
vs_top=sup; |
vs_top=sup; |
9232 |
V1256= vs_base[0]; |
V1190= vs_base[0]; |
9233 |
goto T2715; |
goto T2693; |
9234 |
T2715:; |
T2693:; |
9235 |
base[1]= (VFUN_NARGS=2,(*(LnkLI249))((V1256),VV[62])); |
base[1]= (VFUN_NARGS=2,(*(LnkLI266))((V1190),VV[70])); |
9236 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9237 |
return;} |
return;} |
9238 |
} |
} |
9244 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9245 |
register object *sup=base+VM161; VC161 |
register object *sup=base+VM161; VC161 |
9246 |
vs_check; |
vs_check; |
9247 |
{object V1257; |
{object V1191; |
9248 |
check_arg(1); |
check_arg(1); |
9249 |
V1257=(base[0]); |
V1191=(base[0]); |
9250 |
vs_top=sup; |
vs_top=sup; |
9251 |
base[1]= (((V1257))==(Ct)?Ct:Cnil); |
base[1]= (((V1191))==(Ct)?Ct:Cnil); |
9252 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9253 |
return; |
return; |
9254 |
} |
} |
9260 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9261 |
register object *sup=base+VM162; VC162 |
register object *sup=base+VM162; VC162 |
9262 |
vs_check; |
vs_check; |
9263 |
{object V1258; |
{object V1192; |
9264 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
9265 |
{object *p=vs_top; |
{object *p=vs_top; |
9266 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
9267 |
V1258=(base[0]); |
V1192=(base[0]); |
9268 |
vs_top=sup; |
vs_top=sup; |
9269 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
9270 |
base[2]= (V1258); |
base[2]= (V1192); |
9271 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
9272 |
(void) (*Lnk94)(); |
(void) (*Lnk102)(); |
9273 |
return; |
return; |
9274 |
} |
} |
9275 |
} |
} |
9280 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9281 |
register object *sup=base+VM163; VC163 |
register object *sup=base+VM163; VC163 |
9282 |
vs_check; |
vs_check; |
9283 |
{object V1259; |
{object V1193; |
9284 |
check_arg(1); |
check_arg(1); |
9285 |
V1259=(base[0]); |
V1193=(base[0]); |
9286 |
vs_top=sup; |
vs_top=sup; |
9287 |
base[1]= (((V1259))==(Ct)?Ct:Cnil); |
base[1]= (((V1193))==(Ct)?Ct:Cnil); |
9288 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9289 |
return; |
return; |
9290 |
} |
} |
9296 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9297 |
register object *sup=base+VM164; VC164 |
register object *sup=base+VM164; VC164 |
9298 |
vs_check; |
vs_check; |
9299 |
{object V1260; |
{object V1194; |
9300 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
9301 |
{object *p=vs_top; |
{object *p=vs_top; |
9302 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
9303 |
V1260=(base[0]); |
V1194=(base[0]); |
9304 |
vs_top=sup; |
vs_top=sup; |
9305 |
base[1]= (base0[1]->c.c_car); |
base[1]= (base0[1]->c.c_car); |
9306 |
base[2]= (V1260); |
base[2]= (V1194); |
9307 |
base[3]= (base0[0]->c.c_car); |
base[3]= (base0[0]->c.c_car); |
9308 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
9309 |
(void) (*Lnk337)(); |
(void) (*Lnk352)(); |
9310 |
return; |
return; |
9311 |
} |
} |
9312 |
} |
} |
9317 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9318 |
register object *sup=base+VM165; VC165 |
register object *sup=base+VM165; VC165 |
9319 |
vs_check; |
vs_check; |
9320 |
{object V1261; |
{object V1195; |
9321 |
check_arg(1); |
check_arg(1); |
9322 |
V1261=(base[0]); |
V1195=(base[0]); |
9323 |
vs_top=sup; |
vs_top=sup; |
9324 |
base[1]= (((V1261))==(Ct)?Ct:Cnil); |
base[1]= (((V1195))==(Ct)?Ct:Cnil); |
9325 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9326 |
return; |
return; |
9327 |
} |
} |
9333 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9334 |
register object *sup=base+VM166; VC166 |
register object *sup=base+VM166; VC166 |
9335 |
vs_check; |
vs_check; |
9336 |
{object V1262; |
{object V1196; |
9337 |
object V1263; |
object V1197; |
9338 |
check_arg(2); |
check_arg(2); |
9339 |
V1262=(base[0]); |
V1196=(base[0]); |
9340 |
V1263=(base[1]); |
V1197=(base[1]); |
9341 |
vs_top=sup; |
vs_top=sup; |
9342 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
9343 |
base[3]= (V1262); |
base[3]= (V1196); |
9344 |
base[4]= (V1263); |
base[4]= (V1197); |
9345 |
base[5]= (base0[1]->c.c_car); |
base[5]= (base0[1]->c.c_car); |
9346 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
9347 |
(void) (*Lnk338)(); |
(void) (*Lnk353)(); |
9348 |
return; |
return; |
9349 |
} |
} |
9350 |
} |
} |
9355 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9356 |
register object *sup=base+VM167; VC167 |
register object *sup=base+VM167; VC167 |
9357 |
vs_check; |
vs_check; |
9358 |
{object V1264; |
{object V1198; |
9359 |
check_arg(1); |
check_arg(1); |
9360 |
V1264=(base[0]); |
V1198=(base[0]); |
9361 |
vs_top=sup; |
vs_top=sup; |
9362 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
9363 |
base[2]= Cnil; |
base[2]= Cnil; |
9364 |
base[3]= (V1264); |
base[3]= (V1198); |
9365 |
base[4]= (base0[1]->c.c_car); |
base[4]= (base0[1]->c.c_car); |
9366 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
9367 |
(void) (*Lnk338)(); |
(void) (*Lnk353)(); |
9368 |
return; |
return; |
9369 |
} |
} |
9370 |
} |
} |
9371 |
static void LnkT338(){ call_or_link(VV[338],(void **)(void *)&Lnk338);} /* ACCESSOR-MISS */ |
static void LnkT353(){ call_or_link(VV[353],(void **)(void *)&Lnk353);} /* ACCESSOR-MISS */ |
9372 |
static void LnkT337(){ call_or_link(VV[337],(void **)(void *)&Lnk337);} /* CHECKING-MISS */ |
static void LnkT352(){ call_or_link(VV[352],(void **)(void *)&Lnk352);} /* CHECKING-MISS */ |
9373 |
static void LnkT336(){ call_or_link(VV[336],(void **)(void *)&Lnk336);} /* CACHING-MISS */ |
static void LnkT351(){ call_or_link(VV[351],(void **)(void *)&Lnk351);} /* CACHING-MISS */ |
9374 |
static void LnkT335(ptr) object *ptr;{ call_or_link_closure(VV[335],(void **)(void *)&Lnk335,(void **)(void *)&Lclptr335);} /* METHOD-FUNCTION */ |
static void LnkT350(ptr) object *ptr;{ call_or_link_closure(VV[350],(void **)(void *)&Lnk350,(void **)(void *)&Lclptr350);} /* METHOD-FUNCTION */ |
9375 |
static void LnkT334(ptr) object *ptr;{ call_or_link_closure(VV[334],(void **)(void *)&Lnk334,(void **)(void *)&Lclptr334);} /* METHOD-FAST-FUNCTION */ |
static void LnkT349(ptr) object *ptr;{ call_or_link_closure(VV[349],(void **)(void *)&Lnk349,(void **)(void *)&Lclptr349);} /* METHOD-FAST-FUNCTION */ |
9376 |
static void LnkT333(){ call_or_link(VV[333],(void **)(void *)&Lnk333);} /* CONSTANT-VALUE-MISS */ |
static void LnkT348(){ call_or_link(VV[348],(void **)(void *)&Lnk348);} /* CONSTANT-VALUE-MISS */ |
9377 |
static void LnkT332(){ call_or_link(VV[332],(void **)(void *)&Lnk332);} /* INITIAL-DFUN */ |
static void LnkT347(){ call_or_link(VV[347],(void **)(void *)&Lnk347);} /* INITIAL-DFUN */ |
9378 |
static object LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[331],(void **)(void *)&LnkLI331,4,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SET-SLOT */ |
static object LnkTLI346(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[346],(void **)(void *)&LnkLI346,4,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SET-SLOT */ |
9379 |
static void LnkT330(ptr) object *ptr;{ call_or_link_closure(VV[330],(void **)(void *)&Lnk330,(void **)(void *)&Lclptr330);} /* STANDARD-READER-METHOD-P */ |
static void LnkT345(ptr) object *ptr;{ call_or_link_closure(VV[345],(void **)(void *)&Lnk345,(void **)(void *)&Lclptr345);} /* STANDARD-READER-METHOD-P */ |
9380 |
static void LnkT329(ptr) object *ptr;{ call_or_link_closure(VV[329],(void **)(void *)&Lnk329,(void **)(void *)&Lclptr329);} /* STANDARD-WRITER-METHOD-P */ |
static void LnkT344(ptr) object *ptr;{ call_or_link_closure(VV[344],(void **)(void *)&Lnk344,(void **)(void *)&Lclptr344);} /* STANDARD-WRITER-METHOD-P */ |
9381 |
static void LnkT328(){ call_or_link(VV[328],(void **)(void *)&Lnk328);} /* ORDER-SPECIALIZERS */ |
static void LnkT343(){ call_or_link(VV[343],(void **)(void *)&Lnk343);} /* ORDER-SPECIALIZERS */ |
9382 |
static void LnkT327(ptr) object *ptr;{ call_or_link_closure(VV[327],(void **)(void *)&Lnk327,(void **)(void *)&Lclptr327);} /* CLASS-NAME */ |
static void LnkT342(ptr) object *ptr;{ call_or_link_closure(VV[342],(void **)(void *)&Lnk342,(void **)(void *)&Lclptr342);} /* CLASS-NAME */ |
9383 |
static object LnkTLI326(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[326],(void **)(void *)&LnkLI326,2,first,ap);va_end(ap);return V1;} /* CLASS-MIGHT-PRECEDE-P */ |
static object LnkTLI341(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[341],(void **)(void *)&LnkLI341,2,first,ap);va_end(ap);return V1;} /* CLASS-MIGHT-PRECEDE-P */ |
9384 |
static object LnkTLI325(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[325],(void **)(void *)&LnkLI325,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-DIRECT-SUBCLASSES */ |
static object LnkTLI340(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[340],(void **)(void *)&LnkLI340,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-DIRECT-SUBCLASSES */ |
9385 |
static void LnkT323(){ call_or_link(VV[323],(void **)(void *)&Lnk323);} /* SORT */ |
static void LnkT339(ptr) object *ptr;{ call_or_link_closure(VV[339],(void **)(void *)&Lnk339,(void **)(void *)&Lclptr339);} /* NO-APPLICABLE-METHOD */ |
9386 |
static object LnkTLI318(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[318],(void **)(void *)&LnkLI318,1,first,ap);va_end(ap);return V1;} /* MAP-ALL-GENERIC-FUNCTIONS */ |
static void LnkT337(){ call_or_link(VV[337],(void **)(void *)&Lnk337);} /* SORT */ |
9387 |
static object LnkTLI317(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[317],(void **)(void *)&LnkLI317,1,first,ap);va_end(ap);return V1;} /* FREE-CACHE */ |
static object LnkTLI332(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[332],(void **)(void *)&LnkLI332,1,first,ap);va_end(ap);return V1;} /* MAP-ALL-GENERIC-FUNCTIONS */ |
9388 |
static object LnkTLI316(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[316],(void **)(void *)&LnkLI316,2,first,ap);va_end(ap);return V1;} /* SET-FUNCALLABLE-INSTANCE-FUNCTION */ |
static object LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[331],(void **)(void *)&LnkLI331,1,first,ap);va_end(ap);return V1;} /* FREE-CACHE */ |
9389 |
static void LnkT315(){ call_or_link(VV[315],(void **)(void *)&Lnk315);} /* SET-FUNCTION-NAME */ |
static object LnkTLI330(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[330],(void **)(void *)&LnkLI330,2,first,ap);va_end(ap);return V1;} /* SET-FUNCALLABLE-INSTANCE-FUNCTION */ |
9390 |
static object LnkTLI314(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[314],(void **)(void *)&LnkLI314,2,first,ap);va_end(ap);return V1;} /* DOCTOR-DFUN-FOR-THE-DEBUGGER */ |
static void LnkT329(ptr) object *ptr;{ call_or_link_closure(VV[329],(void **)(void *)&Lnk329,(void **)(void *)&Lclptr329);} /* COMPUTE-DISCRIMINATING-FUNCTION */ |
9391 |
static void LnkT313(ptr) object *ptr;{ call_or_link_closure(VV[313],(void **)(void *)&Lnk313,(void **)(void *)&Lclptr313);} /* COMPUTE-DISCRIMINATING-FUNCTION */ |
static object LnkTLI328(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[328],(void **)(void *)&LnkLI328,1,first,ap);va_end(ap);return V1;} /* MAKE-INITIAL-DFUN */ |
9392 |
static object LnkTLI312(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[312],(void **)(void *)&LnkLI312,1,first,ap);va_end(ap);return V1;} /* MAKE-INITIAL-DFUN */ |
static object LnkTLI327(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[327],(void **)(void *)&LnkLI327,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-NAME */ |
9393 |
static object LnkTLI311(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[311],(void **)(void *)&LnkLI311,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-NAME */ |
static void LnkT326(ptr) object *ptr;{ call_or_link_closure(VV[326],(void **)(void *)&Lnk326,(void **)(void *)&Lclptr326);} /* EQL-SPECIALIZER-P */ |
9394 |
static void LnkT310(ptr) object *ptr;{ call_or_link_closure(VV[310],(void **)(void *)&Lnk310,(void **)(void *)&Lclptr310);} /* EQL-SPECIALIZER-P */ |
static object LnkTLI325(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[325],(void **)(void *)&LnkLI325,first,ap);va_end(ap);return V1;} /* COMPUTE-SECONDARY-DISPATCH-FUNCTION1 */ |
9395 |
static object LnkTLI309(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[309],(void **)(void *)&LnkLI309,first,ap);va_end(ap);return V1;} /* COMPUTE-SECONDARY-DISPATCH-FUNCTION1 */ |
static void LnkT324(){ call_or_link(VV[324],(void **)(void *)&Lnk324);} /* GENERATE-DISCRIMINATION-NET */ |
9396 |
static void LnkT308(){ call_or_link(VV[308],(void **)(void *)&Lnk308);} /* GENERATE-DISCRIMINATION-NET */ |
static object LnkTLI323(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[323],(void **)(void *)&LnkLI323,3,first,ap);va_end(ap);return V1;} /* STANDARD-COMPUTE-EFFECTIVE-METHOD */ |
9397 |
static object LnkTLI307(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[307],(void **)(void *)&LnkLI307,3,first,ap);va_end(ap);return V1;} /* STANDARD-COMPUTE-EFFECTIVE-METHOD */ |
static object LnkTLI322(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[322],(void **)(void *)&LnkLI322,4,first,ap);va_end(ap);return V1;} /* MAKE-EFFECTIVE-METHOD-FUNCTION1 */ |
9398 |
static object LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)(void *)&LnkLI306,4,first,ap);va_end(ap);return V1;} /* MAKE-EFFECTIVE-METHOD-FUNCTION1 */ |
static object LnkTLI321(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[321],(void **)(void *)&LnkLI321,3,first,ap);va_end(ap);return V1;} /* COMPUTE-EFFECTIVE-METHOD */ |
9399 |
static object LnkTLI305(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[305],(void **)(void *)&LnkLI305,3,first,ap);va_end(ap);return V1;} /* COMPUTE-EFFECTIVE-METHOD */ |
static void LnkT320(ptr) object *ptr;{ call_or_link_closure(VV[320],(void **)(void *)&Lnk320,(void **)(void *)&Lclptr320);} /* GENERIC-FUNCTION-METHOD-COMBINATION */ |
9400 |
static void LnkT304(ptr) object *ptr;{ call_or_link_closure(VV[304],(void **)(void *)&Lnk304,(void **)(void *)&Lclptr304);} /* GENERIC-FUNCTION-METHOD-COMBINATION */ |
static object LnkTLI319(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[319],(void **)(void *)&LnkLI319,8,first,ap);va_end(ap);return V1;} /* GET-SECONDARY-DISPATCH-FUNCTION2 */ |
9401 |
static object LnkTLI303(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[303],(void **)(void *)&LnkLI303,8,first,ap);va_end(ap);return V1;} /* GET-SECONDARY-DISPATCH-FUNCTION2 */ |
static object LnkTLI318(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[318],(void **)(void *)&LnkLI318,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
9402 |
static object LnkTLI302(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[302],(void **)(void *)&LnkLI302,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
static void LnkT317(){ call_or_link(VV[317],(void **)(void *)&Lnk317);} /* SAUT-EQL */ |
9403 |
static void LnkT301(){ call_or_link(VV[301],(void **)(void *)&Lnk301);} /* SAUT-EQL */ |
static void LnkT316(){ call_or_link(VV[316],(void **)(void *)&Lnk316);} /* SAUT-CLASS-EQ */ |
9404 |
static void LnkT300(){ call_or_link(VV[300],(void **)(void *)&Lnk300);} /* SAUT-CLASS-EQ */ |
static void LnkT315(){ call_or_link(VV[315],(void **)(void *)&Lnk315);} /* SAUT-PROTOTYPE */ |
9405 |
static void LnkT299(){ call_or_link(VV[299],(void **)(void *)&Lnk299);} /* SAUT-PROTOTYPE */ |
static void LnkT314(){ call_or_link(VV[314],(void **)(void *)&Lnk314);} /* SAUT-CLASS */ |
9406 |
static void LnkT298(){ call_or_link(VV[298],(void **)(void *)&Lnk298);} /* SAUT-CLASS */ |
static void LnkT313(){ call_or_link(VV[313],(void **)(void *)&Lnk313);} /* SAUT-NOT */ |
9407 |
static void LnkT297(){ call_or_link(VV[297],(void **)(void *)&Lnk297);} /* SAUT-NOT */ |
static void LnkT312(){ call_or_link(VV[312],(void **)(void *)&Lnk312);} /* SAUT-AND */ |
9408 |
static void LnkT296(){ call_or_link(VV[296],(void **)(void *)&Lnk296);} /* SAUT-AND */ |
static void LnkT311(){ call_or_link(VV[311],(void **)(void *)&Lnk311);} /* TYPE-FROM-SPECIALIZER */ |
9409 |
static void LnkT295(){ call_or_link(VV[295],(void **)(void *)&Lnk295);} /* TYPE-FROM-SPECIALIZER */ |
static void LnkT310(){ call_or_link(VV[310],(void **)(void *)&Lnk310);} /* CLASS-APPLICABLE-USING-CLASS-P */ |
9410 |
static void LnkT294(){ call_or_link(VV[294],(void **)(void *)&Lnk294);} /* CLASS-APPLICABLE-USING-CLASS-P */ |
static void LnkT309(ptr) object *ptr;{ call_or_link_closure(VV[309],(void **)(void *)&Lnk309,(void **)(void *)&Lclptr309);} /* CLASS-DIRECT-SUBCLASSES */ |
9411 |
static void LnkT293(ptr) object *ptr;{ call_or_link_closure(VV[293],(void **)(void *)&Lnk293,(void **)(void *)&Lclptr293);} /* CLASS-DIRECT-SUBCLASSES */ |
static object LnkTLI308(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[308],(void **)(void *)&LnkLI308,2,first,ap);va_end(ap);return V1;} /* CLASSES-HAVE-COMMON-SUBCLASS-P */ |
9412 |
static object LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)(void *)&LnkLI292,2,first,ap);va_end(ap);return V1;} /* CLASSES-HAVE-COMMON-SUBCLASS-P */ |
static object LnkTLI307(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[307],(void **)(void *)&LnkLI307,2,first,ap);va_end(ap);return V1;} /* SUPERCLASSES-COMPATIBLE-P */ |
9413 |
static object LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[291],(void **)(void *)&LnkLI291,2,first,ap);va_end(ap);return V1;} /* SUPERCLASSES-COMPATIBLE-P */ |
static object LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)(void *)&LnkLI306,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */ |
9414 |
static object LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[290],(void **)(void *)&LnkLI290,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */ |
static object LnkTLI305(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[305],(void **)(void *)&LnkLI305,1,first,ap);va_end(ap);return V1;} /* TYPE-CLASS */ |
9415 |
static object LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[289],(void **)(void *)&LnkLI289,1,first,ap);va_end(ap);return V1;} /* TYPE-CLASS */ |
static object LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[304],(void **)(void *)&LnkLI304,2,first,ap);va_end(ap);return V1;} /* SAUT-NOT-EQL */ |
9416 |
static object LnkTLI288(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[288],(void **)(void *)&LnkLI288,2,first,ap);va_end(ap);return V1;} /* SAUT-NOT-EQL */ |
static object LnkTLI303(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[303],(void **)(void *)&LnkLI303,2,first,ap);va_end(ap);return V1;} /* SAUT-NOT-PROTOTYPE */ |
9417 |
static object LnkTLI287(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[287],(void **)(void *)&LnkLI287,2,first,ap);va_end(ap);return V1;} /* SAUT-NOT-PROTOTYPE */ |
static object LnkTLI302(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[302],(void **)(void *)&LnkLI302,2,first,ap);va_end(ap);return V1;} /* SAUT-NOT-CLASS-EQ */ |
9418 |
static object LnkTLI286(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[286],(void **)(void *)&LnkLI286,2,first,ap);va_end(ap);return V1;} /* SAUT-NOT-CLASS-EQ */ |
static object LnkTLI301(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[301],(void **)(void *)&LnkLI301,2,first,ap);va_end(ap);return V1;} /* SAUT-NOT-CLASS */ |
9419 |
static object LnkTLI285(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[285],(void **)(void *)&LnkLI285,2,first,ap);va_end(ap);return V1;} /* SAUT-NOT-CLASS */ |
static void LnkT300(){ call_or_link(VV[300],(void **)(void *)&Lnk300);} /* POSITION */ |
9420 |
static void LnkT284(){ call_or_link(VV[284],(void **)(void *)&Lnk284);} /* POSITION */ |
static object LnkTLI299(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[299],(void **)(void *)&LnkLI299,2,first,ap);va_end(ap);return V1;} /* CLASS-CAN-PRECEDE-P */ |
9421 |
static object LnkTLI283(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[283],(void **)(void *)&LnkLI283,2,first,ap);va_end(ap);return V1;} /* CLASS-CAN-PRECEDE-P */ |
static object LnkTLI297(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[297],(void **)(void *)&LnkLI297,2,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SLOT-INDEX */ |
9422 |
static object LnkTLI281(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[281],(void **)(void *)&LnkLI281,2,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SLOT-INDEX */ |
static void LnkT296(ptr) object *ptr;{ call_or_link_closure(VV[296],(void **)(void *)&Lnk296,(void **)(void *)&Lclptr296);} /* SPECIALIZER-TYPE */ |
9423 |
static void LnkT280(ptr) object *ptr;{ call_or_link_closure(VV[280],(void **)(void *)&Lnk280,(void **)(void *)&Lclptr280);} /* SPECIALIZER-TYPE */ |
static void LnkT295(){ call_or_link(VV[295],(void **)(void *)&Lnk295);} /* STABLE-SORT */ |
9424 |
static void LnkT279(){ call_or_link(VV[279],(void **)(void *)&Lnk279);} /* STABLE-SORT */ |
static object LnkTLI294(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[294],(void **)(void *)&LnkLI294,3,first,ap);va_end(ap);return V1;} /* SORT-METHODS */ |
9425 |
static object LnkTLI278(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[278],(void **)(void *)&LnkLI278,3,first,ap);va_end(ap);return V1;} /* SORT-METHODS */ |
static object LnkTLI293(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[293],(void **)(void *)&LnkLI293,3,first,ap);va_end(ap);return V1;} /* SORT-APPLICABLE-METHODS */ |
9426 |
static object LnkTLI277(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[277],(void **)(void *)&LnkLI277,3,first,ap);va_end(ap);return V1;} /* SORT-APPLICABLE-METHODS */ |
static void LnkT162(){ call_or_link(VV[162],(void **)(void *)&Lnk162);} /* SPECIALIZER-APPLICABLE-USING-TYPE-P */ |
9427 |
static void LnkT146(){ call_or_link(VV[146],(void **)(void *)&Lnk146);} /* SPECIALIZER-APPLICABLE-USING-TYPE-P */ |
static void LnkT292(ptr) object *ptr;{ call_or_link_closure(VV[292],(void **)(void *)&Lnk292,(void **)(void *)&Lclptr292);} /* CLASS-FINALIZED-P */ |
9428 |
static void LnkT276(ptr) object *ptr;{ call_or_link_closure(VV[276],(void **)(void *)&Lnk276,(void **)(void *)&Lclptr276);} /* CLASS-FINALIZED-P */ |
static object LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[291],(void **)(void *)&LnkLI291,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-SPECIALIZERS */ |
9429 |
static object LnkTLI275(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[275],(void **)(void *)&LnkLI275,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-SPECIALIZERS */ |
static void LnkT290(ptr) object *ptr;{ call_or_link_closure(VV[290],(void **)(void *)&Lnk290,(void **)(void *)&Lclptr290);} /* SLOT-DEFINITION-LOCATION */ |
9430 |
static void LnkT274(ptr) object *ptr;{ call_or_link_closure(VV[274],(void **)(void *)&Lnk274,(void **)(void *)&Lclptr274);} /* SLOT-DEFINITION-LOCATION */ |
static object LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[289],(void **)(void *)&LnkLI289,1,first,ap);va_end(ap);return V1;} /* EARLY-SLOT-DEFINITION-LOCATION */ |
9431 |
static object LnkTLI273(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[273],(void **)(void *)&LnkLI273,1,first,ap);va_end(ap);return V1;} /* EARLY-SLOT-DEFINITION-LOCATION */ |
static void LnkT288(ptr) object *ptr;{ call_or_link_closure(VV[288],(void **)(void *)&Lnk288,(void **)(void *)&Lclptr288);} /* SLOT-ACCESSOR-STD-P */ |
9432 |
static void LnkT272(ptr) object *ptr;{ call_or_link_closure(VV[272],(void **)(void *)&Lnk272,(void **)(void *)&Lclptr272);} /* SLOT-ACCESSOR-STD-P */ |
static object LnkTLI287(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[287],(void **)(void *)&LnkLI287,2,first,ap);va_end(ap);return V1;} /* FIND-SLOT-DEFINITION */ |
9433 |
static object LnkTLI271(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[271],(void **)(void *)&LnkLI271,2,first,ap);va_end(ap);return V1;} /* FIND-SLOT-DEFINITION */ |
static object LnkTLI286(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[286],(void **)(void *)&LnkLI286,1,first,ap);va_end(ap);return V1;} /* EARLY-SLOT-DEFINITION-NAME */ |
9434 |
static object LnkTLI270(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[270],(void **)(void *)&LnkLI270,1,first,ap);va_end(ap);return V1;} /* EARLY-SLOT-DEFINITION-NAME */ |
static object LnkTLI285(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[285],(void **)(void *)&LnkLI285,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-SLOTDS */ |
9435 |
static object LnkTLI269(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[269],(void **)(void *)&LnkLI269,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-SLOTDS */ |
static void LnkT284(ptr) object *ptr;{ call_or_link_closure(VV[284],(void **)(void *)&Lnk284,(void **)(void *)&Lclptr284);} /* ACCESSOR-METHOD-SLOT-NAME */ |
9436 |
static void LnkT268(ptr) object *ptr;{ call_or_link_closure(VV[268],(void **)(void *)&Lnk268,(void **)(void *)&Lclptr268);} /* ACCESSOR-METHOD-SLOT-NAME */ |
static object LnkTLI283(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[283],(void **)(void *)&LnkLI283,1,first,ap);va_end(ap);return V1;} /* EARLY-ACCESSOR-METHOD-SLOT-NAME */ |
9437 |
static object LnkTLI267(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[267],(void **)(void *)&LnkLI267,1,first,ap);va_end(ap);return V1;} /* EARLY-ACCESSOR-METHOD-SLOT-NAME */ |
static void LnkT282(ptr) object *ptr;{ call_or_link_closure(VV[282],(void **)(void *)&Lnk282,(void **)(void *)&Lclptr282);} /* STANDARD-ACCESSOR-METHOD-P */ |
9438 |
static void LnkT266(ptr) object *ptr;{ call_or_link_closure(VV[266],(void **)(void *)&Lnk266,(void **)(void *)&Lclptr266);} /* STANDARD-ACCESSOR-METHOD-P */ |
static object LnkTLI281(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[281],(void **)(void *)&LnkLI281,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-CLASS */ |
9439 |
static object LnkTLI265(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[265],(void **)(void *)&LnkLI265,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-CLASS */ |
static void LnkT280(ptr) object *ptr;{ call_or_link_closure(VV[280],(void **)(void *)&Lnk280,(void **)(void *)&Lclptr280);} /* CLASS-PRECEDENCE-LIST */ |
9440 |
static void LnkT264(ptr) object *ptr;{ call_or_link_closure(VV[264],(void **)(void *)&Lnk264,(void **)(void *)&Lclptr264);} /* CLASS-PRECEDENCE-LIST */ |
static object LnkTLI279(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[279],(void **)(void *)&LnkLI279,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-PRECEDENCE-LIST */ |
9441 |
static object LnkTLI263(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[263],(void **)(void *)&LnkLI263,1,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-PRECEDENCE-LIST */ |
static object LnkTLI278(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[278],(void **)(void *)&LnkLI278,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-STANDARD-ACCESSOR-P */ |
9442 |
static object LnkTLI262(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[262],(void **)(void *)&LnkLI262,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-STANDARD-ACCESSOR-P */ |
static void LnkT277(ptr) object *ptr;{ call_or_link_closure(VV[277],(void **)(void *)&Lnk277,(void **)(void *)&Lclptr277);} /* METHOD-QUALIFIERS */ |
9443 |
static void LnkT261(ptr) object *ptr;{ call_or_link_closure(VV[261],(void **)(void *)&Lnk261,(void **)(void *)&Lclptr261);} /* METHOD-QUALIFIERS */ |
static object LnkTLI276(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[276],(void **)(void *)&LnkLI276,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-QUALIFIERS */ |
9444 |
static object LnkTLI260(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[260],(void **)(void *)&LnkLI260,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-QUALIFIERS */ |
static void LnkT275(){ call_or_link(VV[275],(void **)(void *)&Lnk275);} /* ACCESSOR-VALUES-INTERNAL */ |
9445 |
static void LnkT259(){ call_or_link(VV[259],(void **)(void *)&Lnk259);} /* ACCESSOR-VALUES-INTERNAL */ |
static void LnkT273(){ call_or_link(VV[273],(void **)(void *)&Lnk273);} /* ACCESSOR-VALUES */ |
9446 |
static void LnkT257(){ call_or_link(VV[257],(void **)(void *)&Lnk257);} /* ACCESSOR-VALUES */ |
static object LnkTLI272(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[272],(void **)(void *)&LnkLI272,1,first,ap);va_end(ap);return V1;} /* DEFAULT-SECONDARY-DISPATCH-FUNCTION */ |
9447 |
static object LnkTLI256(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[256],(void **)(void *)&LnkLI256,1,first,ap);va_end(ap);return V1;} /* DEFAULT-SECONDARY-DISPATCH-FUNCTION */ |
static void LnkT271(ptr) object *ptr;{ call_or_link_closure(VV[271],(void **)(void *)&Lnk271,(void **)(void *)&Lclptr271);} /* COMPUTE-APPLICABLE-METHODS-USING-CLASSES */ |
9448 |
static void LnkT255(ptr) object *ptr;{ call_or_link_closure(VV[255],(void **)(void *)&Lnk255,(void **)(void *)&Lclptr255);} /* COMPUTE-APPLICABLE-METHODS-USING-CLASSES */ |
static void LnkT270(){ call_or_link(VV[270],(void **)(void *)&Lnk270);} /* COMPUTE-APPLICABLE-METHODS-USING-TYPES */ |
9449 |
static void LnkT254(){ call_or_link(VV[254],(void **)(void *)&Lnk254);} /* COMPUTE-APPLICABLE-METHODS-USING-TYPES */ |
static void LnkT269(){ call_or_link(VV[269],(void **)(void *)&Lnk269);} /* CACHE-MISS-VALUES-INTERNAL */ |
9450 |
static void LnkT253(){ call_or_link(VV[253],(void **)(void *)&Lnk253);} /* CACHE-MISS-VALUES-INTERNAL */ |
static object LnkTLI268(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[268],(void **)(void *)&LnkLI268,1,first,ap);va_end(ap);return V1;} /* CHECK-WRAPPER-VALIDITY */ |
9451 |
static object LnkTLI252(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[252],(void **)(void *)&LnkLI252,1,first,ap);va_end(ap);return V1;} /* CHECK-WRAPPER-VALIDITY */ |
static object LnkTLI267(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[267],(void **)(void *)&LnkLI267,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */ |
9452 |
static object LnkTLI251(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[251],(void **)(void *)&LnkLI251,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */ |
static object LnkTLI266(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[266],(void **)(void *)&LnkLI266,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-GET */ |
9453 |
static void LnkT250(ptr) object *ptr;{ call_or_link_closure(VV[250],(void **)(void *)&Lnk250,(void **)(void *)&Lclptr250);} /* NO-APPLICABLE-METHOD */ |
static void LnkT265(){ call_or_link(VV[265],(void **)(void *)&Lnk265);} /* STRUCTURE-SUBTYPE-P */ |
9454 |
static object LnkTLI249(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[249],(void **)(void *)&LnkLI249,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-GET */ |
static object LnkTLI264(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[264],(void **)(void *)&LnkLI264,first,ap);va_end(ap);return V1;} /* FILL-CACHE */ |
9455 |
static void LnkT248(){ call_or_link(VV[248],(void **)(void *)&Lnk248);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT263(){ call_or_link(VV[263],(void **)(void *)&Lnk263);} /* MAKE-FINAL-CHECKING-DFUN */ |
9456 |
static object LnkTLI247(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[247],(void **)(void *)&LnkLI247,first,ap);va_end(ap);return V1;} /* FILL-CACHE */ |
static void LnkT262(){ call_or_link(VV[262],(void **)(void *)&Lnk262);} /* GET-SECONDARY-DISPATCH-FUNCTION */ |
9457 |
static void LnkT246(){ call_or_link(VV[246],(void **)(void *)&Lnk246);} /* MAKE-FINAL-CHECKING-DFUN */ |
static void LnkT261(){ call_or_link(VV[261],(void **)(void *)&Lnk261);} /* MAKE-FINAL-DISPATCH-DFUN */ |
9458 |
static void LnkT245(){ call_or_link(VV[245],(void **)(void *)&Lnk245);} /* GET-SECONDARY-DISPATCH-FUNCTION */ |
static void LnkT260(){ call_or_link(VV[260],(void **)(void *)&Lnk260);} /* MAKE-FINAL-CONSTANT-VALUE-DFUN */ |
9459 |
static void LnkT244(){ call_or_link(VV[244],(void **)(void *)&Lnk244);} /* MAKE-FINAL-DISPATCH-DFUN */ |
static void LnkT259(ptr) object *ptr;{ call_or_link_closure(VV[259],(void **)(void *)&Lnk259,(void **)(void *)&Lclptr259);} /* METHOD-SPECIALIZERS */ |
9460 |
static void LnkT243(){ call_or_link(VV[243],(void **)(void *)&Lnk243);} /* MAKE-FINAL-CONSTANT-VALUE-DFUN */ |
static object LnkTLI258(){return call_proc0(VV[258],(void **)(void *)&LnkLI258);} /* NO-METHODS-DFUN-INFO */ |
9461 |
static void LnkT242(ptr) object *ptr;{ call_or_link_closure(VV[242],(void **)(void *)&Lnk242,(void **)(void *)&Lclptr242);} /* METHOD-SPECIALIZERS */ |
static void LnkT257(){ call_or_link(VV[257],(void **)(void *)&Lnk257);} /* MAKE-FINAL-CACHING-DFUN */ |
9462 |
static object LnkTLI241(){return call_proc0(VV[241],(void **)(void *)&LnkLI241);} /* NO-METHODS-DFUN-INFO */ |
static void LnkT256(){ call_or_link(VV[256],(void **)(void *)&Lnk256);} /* MAKE-FINAL-N-N-ACCESSOR-DFUN */ |
9463 |
static void LnkT240(){ call_or_link(VV[240],(void **)(void *)&Lnk240);} /* MAKE-FINAL-CACHING-DFUN */ |
static void LnkT255(){ call_or_link(VV[255],(void **)(void *)&Lnk255);} /* MAKE-FINAL-ONE-INDEX-ACCESSOR-DFUN */ |
9464 |
static void LnkT239(){ call_or_link(VV[239],(void **)(void *)&Lnk239);} /* MAKE-FINAL-N-N-ACCESSOR-DFUN */ |
static void LnkT254(){ call_or_link(VV[254],(void **)(void *)&Lnk254);} /* MAKE-TWO-CLASS-ACCESSOR-DFUN */ |
9465 |
static void LnkT238(){ call_or_link(VV[238],(void **)(void *)&Lnk238);} /* MAKE-FINAL-ONE-INDEX-ACCESSOR-DFUN */ |
static void LnkT253(ptr) object *ptr;{ call_or_link_closure(VV[253],(void **)(void *)&Lnk253,(void **)(void *)&Lclptr253);} /* CLASS-WRAPPER */ |
9466 |
static void LnkT237(){ call_or_link(VV[237],(void **)(void *)&Lnk237);} /* MAKE-TWO-CLASS-ACCESSOR-DFUN */ |
static void LnkT252(){ call_or_link(VV[252],(void **)(void *)&Lnk252);} /* MAKE-ACCESSOR-TABLE */ |
9467 |
static void LnkT236(ptr) object *ptr;{ call_or_link_closure(VV[236],(void **)(void *)&Lnk236,(void **)(void *)&Lclptr236);} /* CLASS-WRAPPER */ |
static void LnkT102(){ call_or_link(VV[102],(void **)(void *)&Lnk102);} /* INVOKE-EMF */ |
9468 |
static void LnkT235(){ call_or_link(VV[235],(void **)(void *)&Lnk235);} /* MAKE-ACCESSOR-TABLE */ |
static void LnkT249(){ call_or_link(VV[249],(void **)(void *)&Lnk249);} /* MAKE-ONE-CLASS-ACCESSOR-DFUN */ |
9469 |
static void LnkT94(){ call_or_link(VV[94],(void **)(void *)&Lnk94);} /* INVOKE-EMF */ |
static void LnkT93(){ call_or_link(VV[93],(void **)(void *)&Lnk93);} /* CACHE-MISS-VALUES */ |
9470 |
static void LnkT232(){ call_or_link(VV[232],(void **)(void *)&Lnk232);} /* MAKE-ONE-CLASS-ACCESSOR-DFUN */ |
static void LnkT248(){ call_or_link(VV[248],(void **)(void *)&Lnk248);} /* EARLY-METHOD-STANDARD-ACCESSOR-SLOT-NAME */ |
9471 |
static void LnkT85(){ call_or_link(VV[85],(void **)(void *)&Lnk85);} /* CACHE-MISS-VALUES */ |
static object LnkTLI247(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[247],(void **)(void *)&LnkLI247,first,ap);va_end(ap);return V1;} /* SET-DFUN */ |
9472 |
static void LnkT231(){ call_or_link(VV[231],(void **)(void *)&Lnk231);} /* EARLY-METHOD-STANDARD-ACCESSOR-SLOT-NAME */ |
static void LnkT246(){ call_or_link(VV[246],(void **)(void *)&Lnk246);} /* MAKE-FINAL-ACCESSOR-DFUN */ |
9473 |
static object LnkTLI230(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[230],(void **)(void *)&LnkLI230,first,ap);va_end(ap);return V1;} /* SET-DFUN */ |
static object LnkTLI245(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[245],(void **)(void *)&LnkLI245,2,first,ap);va_end(ap);return V1;} /* MAKE-EARLY-ACCESSOR */ |
9474 |
static void LnkT229(){ call_or_link(VV[229],(void **)(void *)&Lnk229);} /* MAKE-FINAL-ACCESSOR-DFUN */ |
static object LnkTLI244(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[244],(void **)(void *)&LnkLI244,1,first,ap);va_end(ap);return V1;} /* FINAL-ACCESSOR-DFUN-TYPE */ |
9475 |
static object LnkTLI228(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[228],(void **)(void *)&LnkLI228,2,first,ap);va_end(ap);return V1;} /* MAKE-EARLY-ACCESSOR */ |
static void LnkT243(){ call_or_link(VV[243],(void **)(void *)&Lnk243);} /* MAKE-FINAL-DFUN-INTERNAL */ |
9476 |
static object LnkTLI227(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[227],(void **)(void *)&LnkLI227,1,first,ap);va_end(ap);return V1;} /* FINAL-ACCESSOR-DFUN-TYPE */ |
static object LnkTLI242(){return call_proc0(VV[242],(void **)(void *)&LnkLI242);} /* INITIAL-DFUN-INFO */ |
9477 |
static void LnkT226(){ call_or_link(VV[226],(void **)(void *)&Lnk226);} /* MAKE-FINAL-DFUN-INTERNAL */ |
static void LnkT241(){ call_or_link(VV[241],(void **)(void *)&Lnk241);} /* INSURE-CACHING-DFUN */ |
9478 |
static object LnkTLI225(){return call_proc0(VV[225],(void **)(void *)&LnkLI225);} /* INITIAL-DFUN-INFO */ |
static object LnkTLI240(){return call_proc0(VV[240],(void **)(void *)&LnkLI240);} /* INITIAL-DISPATCH-DFUN-INFO */ |
9479 |
static void LnkT224(){ call_or_link(VV[224],(void **)(void *)&Lnk224);} /* INSURE-DFUN */ |
static object LnkTLI239(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[239],(void **)(void *)&LnkLI239,first,ap);va_end(ap);return V1;} /* PRECOMPUTE-EFFECTIVE-METHODS */ |
9480 |
static object LnkTLI223(){return call_proc0(VV[223],(void **)(void *)&LnkLI223);} /* INITIAL-DISPATCH-DFUN-INFO */ |
static object LnkTLI238(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[238],(void **)(void *)&LnkLI238,5,first,ap);va_end(ap);return V1;} /* MAKE-EMF-CACHE */ |
9481 |
static object LnkTLI222(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[222],(void **)(void *)&LnkLI222,first,ap);va_end(ap);return V1;} /* PRECOMPUTE-EFFECTIVE-METHODS */ |
static object LnkTLI237(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[237],(void **)(void *)&LnkLI237,1,first,ap);va_end(ap);return V1;} /* GF-DFUN-CACHE */ |
9482 |
static object LnkTLI221(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[221],(void **)(void *)&LnkLI221,5,first,ap);va_end(ap);return V1;} /* MAKE-EMF-CACHE */ |
static object LnkTLI236(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[236],(void **)(void *)&LnkLI236,1,first,ap);va_end(ap);return V1;} /* COPY-CACHE */ |
9483 |
static object LnkTLI220(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[220],(void **)(void *)&LnkLI220,1,first,ap);va_end(ap);return V1;} /* GF-DFUN-CACHE */ |
static object LnkTLI235(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[235],(void **)(void *)&LnkLI235,1,first,ap);va_end(ap);return V1;} /* GF-DFUN-INFO */ |
9484 |
static object LnkTLI219(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[219],(void **)(void *)&LnkLI219,1,first,ap);va_end(ap);return V1;} /* COPY-CACHE */ |
static object LnkTLI234(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[234],(void **)(void *)&LnkLI234,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-NKEYS */ |
9485 |
static object LnkTLI218(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[218],(void **)(void *)&LnkLI218,1,first,ap);va_end(ap);return V1;} /* GF-DFUN-INFO */ |
static object LnkTLI233(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[233],(void **)(void *)&LnkLI233,first,ap);va_end(ap);return V1;} /* GET-SECONDARY-DISPATCH-FUNCTION1 */ |
9486 |
static object LnkTLI217(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[217],(void **)(void *)&LnkLI217,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-NKEYS */ |
static object LnkTLI232(){return call_proc0(VV[232],(void **)(void *)&LnkLI232);} /* DISPATCH-DFUN-INFO */ |
9487 |
static object LnkTLI216(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[216],(void **)(void *)&LnkLI216,first,ap);va_end(ap);return V1;} /* GET-SECONDARY-DISPATCH-FUNCTION1 */ |
static void LnkT231(){ call_or_link(VV[231],(void **)(void *)&Lnk231);} /* GET-DISPATCH-FUNCTION */ |
9488 |
static object LnkTLI215(){return call_proc0(VV[215],(void **)(void *)&LnkLI215);} /* DISPATCH-DFUN-INFO */ |
static object LnkTLI230(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[230],(void **)(void *)&LnkLI230,1,first,ap);va_end(ap);return V1;} /* METHODS-CONTAIN-EQL-SPECIALIZER-P */ |
9489 |
static void LnkT214(){ call_or_link(VV[214],(void **)(void *)&Lnk214);} /* GET-DISPATCH-FUNCTION */ |
static void LnkT229(){ call_or_link(VV[229],(void **)(void *)&Lnk229);} /* GENERATE-DISCRIMINATION-NET-INTERNAL */ |
9490 |
static object LnkTLI213(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[213],(void **)(void *)&LnkLI213,1,first,ap);va_end(ap);return V1;} /* METHODS-CONTAIN-EQL-SPECIALIZER-P */ |
static object LnkTLI227(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[227],(void **)(void *)&LnkLI227,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */ |
9491 |
static void LnkT212(){ call_or_link(VV[212],(void **)(void *)&Lnk212);} /* GENERATE-DISCRIMINATION-NET-INTERNAL */ |
static void LnkT226(){ call_or_link(VV[226],(void **)(void *)&Lnk226);} /* DISPATCH-DFUN-COST */ |
9492 |
static object LnkTLI210(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[210],(void **)(void *)&LnkLI210,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */ |
static object LnkTLI225(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[225],(void **)(void *)&LnkLI225,1,first,ap);va_end(ap);return V1;} /* CACHING-DFUN-COST */ |
9493 |
static void LnkT209(){ call_or_link(VV[209],(void **)(void *)&Lnk209);} /* DISPATCH-DFUN-COST */ |
static object LnkTLI224(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[224],(void **)(void *)&LnkLI224,1,first,ap);va_end(ap);return V1;} /* CONSTANT-VALUE-DFUN-INFO */ |
9494 |
static object LnkTLI208(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[208],(void **)(void *)&LnkLI208,1,first,ap);va_end(ap);return V1;} /* CACHING-DFUN-COST */ |
static void LnkT223(){ call_or_link(VV[223],(void **)(void *)&Lnk223);} /* NOTANY */ |
9495 |
static object LnkTLI207(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[207],(void **)(void *)&LnkLI207,1,first,ap);va_end(ap);return V1;} /* CONSTANT-VALUE-DFUN-INFO */ |
static object LnkTLI222(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[222],(void **)(void *)&LnkLI222,1,first,ap);va_end(ap);return V1;} /* COMPUTE-APPLICABLE-METHODS-EMF-STD-P */ |
9496 |
static void LnkT206(){ call_or_link(VV[206],(void **)(void *)&Lnk206);} /* NOTANY */ |
static object LnkTLI221(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[221],(void **)(void *)&LnkLI221,1,first,ap);va_end(ap);return V1;} /* CACHING-DFUN-INFO */ |
9497 |
static object LnkTLI205(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[205],(void **)(void *)&LnkLI205,1,first,ap);va_end(ap);return V1;} /* COMPUTE-APPLICABLE-METHODS-EMF-STD-P */ |
static void LnkT219(){ call_or_link(VV[219],(void **)(void *)&Lnk219);} /* MAKE-CONSTANT-VALUE-DFUN */ |
9498 |
static object LnkTLI204(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[204],(void **)(void *)&LnkLI204,1,first,ap);va_end(ap);return V1;} /* CACHING-DFUN-INFO */ |
static object LnkTLI218(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[218],(void **)(void *)&LnkLI218,first,ap);va_end(ap);return V1;} /* USE-CONSTANT-VALUE-DFUN-P */ |
9499 |
static void LnkT202(){ call_or_link(VV[202],(void **)(void *)&Lnk202);} /* MAKE-CONSTANT-VALUE-DFUN */ |
static void LnkT217(){ call_or_link(VV[217],(void **)(void *)&Lnk217);} /* SOME */ |
9500 |
static object LnkTLI201(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[201],(void **)(void *)&LnkLI201,first,ap);va_end(ap);return V1;} /* USE-CONSTANT-VALUE-DFUN-P */ |
static void LnkT216(ptr) object *ptr;{ call_or_link_closure(VV[216],(void **)(void *)&Lnk216,(void **)(void *)&Lclptr216);} /* GENERIC-FUNCTION-METHODS */ |
9501 |
static void LnkT200(){ call_or_link(VV[200],(void **)(void *)&Lnk200);} /* SOME */ |
static object LnkTLI215(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[215],(void **)(void *)&LnkLI215,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ |
9502 |
static void LnkT199(ptr) object *ptr;{ call_or_link_closure(VV[199],(void **)(void *)&Lnk199,(void **)(void *)&Lclptr199);} /* GENERIC-FUNCTION-METHODS */ |
static void LnkT214(){ call_or_link(VV[214],(void **)(void *)&Lnk214);} /* CCLOSURE-ENV-NTHCDR */ |
9503 |
static object LnkTLI198(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[198],(void **)(void *)&LnkLI198,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ |
static object LnkTLI213(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[213],(void **)(void *)&LnkLI213,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-P */ |
9504 |
static void LnkT197(){ call_or_link(VV[197],(void **)(void *)&Lnk197);} /* CCLOSURE-ENV-NTHCDR */ |
static void LnkT210(){ call_or_link(VV[210],(void **)(void *)&Lnk210);} /* MAKE-CHECKING-DFUN */ |
9505 |
static object LnkTLI196(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[196],(void **)(void *)&LnkLI196,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-P */ |
static object LnkTLI209(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[209],(void **)(void *)&LnkLI209,5,first,ap);va_end(ap);return V1;} /* MAKE-FINAL-ORDINARY-DFUN-INTERNAL */ |
9506 |
static void LnkT193(){ call_or_link(VV[193],(void **)(void *)&Lnk193);} /* MAKE-CHECKING-DFUN */ |
static object LnkTLI208(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[208],(void **)(void *)&LnkLI208,2,first,ap);va_end(ap);return V1;} /* CHECKING-DFUN-INFO */ |
9507 |
static object LnkTLI192(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[192],(void **)(void *)&LnkLI192,5,first,ap);va_end(ap);return V1;} /* MAKE-FINAL-ORDINARY-DFUN-INTERNAL */ |
static object LnkTLI206(){return call_proc0(VV[206],(void **)(void *)&LnkLI206);} /* DEFAULT-METHOD-ONLY-DFUN-INFO */ |
9508 |
static object LnkTLI191(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[191],(void **)(void *)&LnkLI191,2,first,ap);va_end(ap);return V1;} /* CHECKING-DFUN-INFO */ |
static void LnkT205(){ call_or_link(VV[205],(void **)(void *)&Lnk205);} /* EVERY */ |
9509 |
static object LnkTLI189(){return call_proc0(VV[189],(void **)(void *)&LnkLI189);} /* DEFAULT-METHOD-ONLY-DFUN-INFO */ |
static void LnkT204(){ call_or_link(VV[204],(void **)(void *)&Lnk204);} /* GET-GENERIC-FUNCTION-INFO */ |
9510 |
static void LnkT188(){ call_or_link(VV[188],(void **)(void *)&Lnk188);} /* EVERY */ |
static void LnkT203(){ call_or_link(VV[203],(void **)(void *)&Lnk203);} /* MAKE-DISPATCH-DFUN */ |
9511 |
static void LnkT187(){ call_or_link(VV[187],(void **)(void *)&Lnk187);} /* GET-GENERIC-FUNCTION-INFO */ |
static object LnkTLI202(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[202],(void **)(void *)&LnkLI202,first,ap);va_end(ap);return V1;} /* USE-DISPATCH-DFUN-P */ |
9512 |
static void LnkT186(){ call_or_link(VV[186],(void **)(void *)&Lnk186);} /* MAKE-DISPATCH-DFUN */ |
static void LnkT201(){ call_or_link(VV[201],(void **)(void *)&Lnk201);} /* MAKE-CACHING-DFUN */ |
9513 |
static object LnkTLI185(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[185],(void **)(void *)&LnkLI185,first,ap);va_end(ap);return V1;} /* USE-DISPATCH-DFUN-P */ |
static object LnkTLI200(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[200],(void **)(void *)&LnkLI200,1,first,ap);va_end(ap);return V1;} /* USE-CACHING-DFUN-P */ |
9514 |
static void LnkT184(){ call_or_link(VV[184],(void **)(void *)&Lnk184);} /* MAKE-CACHING-DFUN */ |
static void LnkT199(){ call_or_link(VV[199],(void **)(void *)&Lnk199);} /* MAKE-N-N-ACCESSOR-DFUN */ |
9515 |
static object LnkTLI183(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[183],(void **)(void *)&LnkLI183,1,first,ap);va_end(ap);return V1;} /* USE-CACHING-DFUN-P */ |
static object LnkTLI198(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[198],(void **)(void *)&LnkLI198,2,first,ap);va_end(ap);return V1;} /* N-N-DFUN-INFO */ |
9516 |
static void LnkT182(){ call_or_link(VV[182],(void **)(void *)&Lnk182);} /* MAKE-N-N-ACCESSOR-DFUN */ |
static object LnkTLI196(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[196],(void **)(void *)&LnkLI196,257,first,ap);va_end(ap);return V1;} /* DEFAULT-LIMIT-FN */ |
9517 |
static object LnkTLI181(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[181],(void **)(void *)&LnkLI181,2,first,ap);va_end(ap);return V1;} /* N-N-DFUN-INFO */ |
static void LnkT195(){ call_or_link(VV[195],(void **)(void *)&Lnk195);} /* MAKE-ONE-INDEX-ACCESSOR-DFUN */ |
9518 |
static object LnkTLI179(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[179],(void **)(void *)&LnkLI179,257,first,ap);va_end(ap);return V1;} /* DEFAULT-LIMIT-FN */ |
static object LnkTLI194(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[194],(void **)(void *)&LnkLI194,first,ap);va_end(ap);return V1;} /* FILL-DFUN-CACHE */ |
9519 |
static void LnkT178(){ call_or_link(VV[178],(void **)(void *)&Lnk178);} /* MAKE-ONE-INDEX-ACCESSOR-DFUN */ |
static object LnkTLI35(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[35],(void **)(void *)&LnkLI35,3,first,ap);va_end(ap);return V1;} /* ONE-INDEX-DFUN-INFO */ |
9520 |
static object LnkTLI177(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[177],(void **)(void *)&LnkLI177,first,ap);va_end(ap);return V1;} /* FILL-DFUN-CACHE */ |
static object LnkTLI192(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[192],(void **)(void *)&LnkLI192,262148,first,ap);va_end(ap);return V1;} /* GET-CACHE */ |
9521 |
static object LnkTLI37(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[37],(void **)(void *)&LnkLI37,3,first,ap);va_end(ap);return V1;} /* ONE-INDEX-DFUN-INFO */ |
static object LnkTLI191(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[191],(void **)(void *)&LnkLI191,4,first,ap);va_end(ap);return V1;} /* TWO-CLASS-DFUN-INFO */ |
9522 |
static object LnkTLI175(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[175],(void **)(void *)&LnkLI175,262148,first,ap);va_end(ap);return V1;} /* GET-CACHE */ |
static object LnkTLI190(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[190],(void **)(void *)&LnkLI190,2,first,ap);va_end(ap);return V1;} /* ACCESSOR-MISS-FUNCTION */ |
9523 |
static object LnkTLI174(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[174],(void **)(void *)&LnkLI174,4,first,ap);va_end(ap);return V1;} /* TWO-CLASS-DFUN-INFO */ |
static void LnkT189(){ call_or_link(VV[189],(void **)(void *)&Lnk189);} /* GET-DFUN-CONSTRUCTOR */ |
9524 |
static object LnkTLI173(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[173],(void **)(void *)&LnkLI173,2,first,ap);va_end(ap);return V1;} /* ACCESSOR-MISS-FUNCTION */ |
static object LnkTLI188(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[188],(void **)(void *)&LnkLI188,3,first,ap);va_end(ap);return V1;} /* ONE-CLASS-DFUN-INFO */ |
9525 |
static void LnkT172(){ call_or_link(VV[172],(void **)(void *)&Lnk172);} /* GET-DFUN-CONSTRUCTOR */ |
static void LnkT187(){ call_or_link(VV[187],(void **)(void *)&Lnk187);} /* ERROR */ |
9526 |
static object LnkTLI171(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[171],(void **)(void *)&LnkLI171,3,first,ap);va_end(ap);return V1;} /* ONE-CLASS-DFUN-INFO */ |
static object LnkTLI181(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[181],(void **)(void *)&LnkLI181,2,first,ap);va_end(ap);return V1;} /* PRINTING-RANDOM-THING-INTERNAL */ |
9527 |
static object LnkTLI165(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[165],(void **)(void *)&LnkLI165,2,first,ap);va_end(ap);return V1;} /* PRINTING-RANDOM-THING-INTERNAL */ |
static object LnkTLI179(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[179],(void **)(void *)&LnkLI179,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */ |
9528 |
static object LnkTLI163(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[163],(void **)(void *)&LnkLI163,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */ |
static object LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[47],(void **)(void *)&LnkLI47,first,ap);va_end(ap);return V1;} /* UPDATE-DFUN */ |
9529 |
static object LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[49],(void **)(void *)&LnkLI49,first,ap);va_end(ap);return V1;} /* UPDATE-DFUN */ |
static void LnkT178(ptr) object *ptr;{ call_or_link_closure(VV[178],(void **)(void *)&Lnk178,(void **)(void *)&Lclptr178);} /* GENERIC-FUNCTION-NAME */ |
9530 |
static void LnkT162(ptr) object *ptr;{ call_or_link_closure(VV[162],(void **)(void *)&Lnk162,(void **)(void *)&Lclptr162);} /* GENERIC-FUNCTION-NAME */ |
static void LnkT177(ptr) object *ptr;{ call_or_link_closure(VV[177],(void **)(void *)&Lnk177,(void **)(void *)&Lclptr177);} /* GF-ARG-INFO */ |
9531 |
static void LnkT161(ptr) object *ptr;{ call_or_link_closure(VV[161],(void **)(void *)&Lnk161,(void **)(void *)&Lclptr161);} /* GF-ARG-INFO */ |
static object LnkTLI176(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[176],(void **)(void *)&LnkLI176,1,first,ap);va_end(ap);return V1;} /* GFS-OF-TYPE */ |
|
static object LnkTLI160(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[160],(void **)(void *)&LnkLI160,1,first,ap);va_end(ap);return V1;} /* GFS-OF-TYPE */ |
|
9532 |
|
|
9533 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
9534 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |