133 |
V29= vs_base[0]; |
V29= vs_base[0]; |
134 |
V32= (VFUN_NARGS=1,(*(LnkLI122))(VV[25])); |
V32= (VFUN_NARGS=1,(*(LnkLI122))(VV[25])); |
135 |
V33= (*(LnkLI123))((V28)); |
V33= (*(LnkLI123))((V28)); |
136 |
V30= list(3,/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,(VV[26]->s.s_dbind)); |
V34 = (VV[26]->s.s_dbind); |
137 |
V34= (VV[125]->s.s_gfdef); |
V30= list(3,/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,V34); |
138 |
V31= (VFUN_NARGS=4,(*(LnkLI124))(V34,Cnil,(V30),Cnil)); |
V35= (VV[125]->s.s_gfdef); |
139 |
|
V36 = (V30); |
140 |
|
V31= (VFUN_NARGS=4,(*(LnkLI124))(V35,Cnil,V36,Cnil)); |
141 |
base[7]=MMcons(Cnil,base[3]); |
base[7]=MMcons(Cnil,base[3]); |
142 |
base[8]= VV[27]; |
base[8]= VV[27]; |
143 |
base[9]= VV[28]; |
base[9]= VV[28]; |
176 |
{register object *base=vs_base; |
{register object *base=vs_base; |
177 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM6; VC6 |
178 |
vs_check; |
vs_check; |
179 |
{object V35; |
{object V37; |
180 |
register object V36; |
register object V38; |
|
object V37; |
|
|
object V38; |
|
181 |
object V39; |
object V39; |
182 |
object V40; |
object V40; |
183 |
|
object V41; |
184 |
|
object V42; |
185 |
check_arg(6); |
check_arg(6); |
186 |
V35=(base[0]); |
V37=(base[0]); |
187 |
V36=(base[1]); |
V38=(base[1]); |
188 |
V37=(base[2]); |
V39=(base[2]); |
189 |
V38=(base[3]); |
V40=(base[3]); |
190 |
V39=(base[4]); |
V41=(base[4]); |
191 |
V40=(base[5]); |
V42=(base[5]); |
192 |
vs_top=sup; |
vs_top=sup; |
193 |
goto TTL; |
goto TTL; |
194 |
TTL:; |
TTL:; |
195 |
if(((V36))!=Cnil){ |
if(((V38))!=Cnil){ |
196 |
goto T59;} |
goto T59;} |
197 |
V36= VV[34]; |
V38= VV[34]; |
198 |
goto T57; |
goto T57; |
199 |
goto T59; |
goto T59; |
200 |
T59:; |
T59:; |
201 |
{object V41; |
{object V43; |
202 |
V41= (equal((V36),VV[35])?Ct:Cnil); |
V43= (equal((V38),VV[35])?Ct:Cnil); |
203 |
if(((V41))==Cnil){ |
if(((V43))==Cnil){ |
204 |
goto T64;} |
goto T64;} |
205 |
goto T57; |
goto T57; |
206 |
goto T64; |
goto T64; |
207 |
T64:; |
T64:; |
208 |
{object V42; |
{object V44; |
209 |
V42= (equal((V36),VV[36])?Ct:Cnil); |
V44= (equal((V38),VV[36])?Ct:Cnil); |
210 |
if(((V42))==Cnil){ |
if(((V44))==Cnil){ |
211 |
goto T68;} |
goto T68;} |
212 |
goto T57; |
goto T57; |
213 |
goto T68; |
goto T68; |
214 |
T68:; |
T68:; |
215 |
base[6]= VV[37]; |
base[6]= VV[37]; |
216 |
base[7]= (V35); |
base[7]= (V37); |
217 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
218 |
(void) (*Lnk118)(); |
(void) (*Lnk118)(); |
219 |
vs_top=sup;}} |
vs_top=sup;}} |
221 |
T57:; |
T57:; |
222 |
base[6]= VV[2]; |
base[6]= VV[2]; |
223 |
base[7]= VV[38]; |
base[7]= VV[38]; |
224 |
base[8]= (V35); |
base[8]= (V37); |
225 |
base[9]= VV[39]; |
base[9]= VV[39]; |
226 |
base[10]= (V36); |
base[10]= (V38); |
227 |
base[11]= VV[20]; |
base[11]= VV[20]; |
228 |
base[12]= (V37); |
base[12]= (V39); |
229 |
base[13]= VV[19]; |
base[13]= VV[19]; |
230 |
base[14]= (V38); |
base[14]= (V40); |
231 |
base[15]= VV[33]; |
base[15]= VV[33]; |
232 |
base[16]= (V39); |
base[16]= (V41); |
233 |
base[17]= VV[17]; |
base[17]= VV[17]; |
234 |
base[18]= (V40); |
base[18]= (V42); |
235 |
vs_top=(vs_base=base+6)+13; |
vs_top=(vs_base=base+6)+13; |
236 |
(void) (*Lnk126)(Lclptr126); |
(void) (*Lnk126)(Lclptr126); |
237 |
return; |
return; |
239 |
} |
} |
240 |
/* local entry for function (FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T)) */ |
/* local entry for function (FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T)) */ |
241 |
|
|
242 |
static object LI7(V48,V49,V50,V51,V52) |
static object LI7(V50,V51,V52,V53,V54) |
243 |
|
|
244 |
object V48;object V49;object V50;object V51;object V52; |
object V50;object V51;object V52;object V53;object V54; |
245 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
246 |
goto TTL; |
goto TTL; |
247 |
TTL:; |
TTL:; |
248 |
{object V54; |
{object V56; |
249 |
object V55; |
object V57; |
250 |
object V56; |
object V58; |
251 |
register object V57; |
register object V59; |
252 |
base[1]= (V51); |
base[1]= (V53); |
253 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
254 |
(void) (*Lnk129)(Lclptr129); |
(void) (*Lnk129)(Lclptr129); |
255 |
vs_top=sup; |
vs_top=sup; |
256 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
257 |
base[1]= (V51); |
base[1]= (V53); |
258 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
259 |
(void) (*Lnk130)(Lclptr130); |
(void) (*Lnk130)(Lclptr130); |
260 |
vs_top=sup; |
vs_top=sup; |
261 |
V54= vs_base[0]; |
V56= vs_base[0]; |
262 |
base[1]= (V51); |
base[1]= (V53); |
263 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
264 |
(void) (*Lnk131)(Lclptr131); |
(void) (*Lnk131)(Lclptr131); |
265 |
vs_top=sup; |
vs_top=sup; |
266 |
V55= vs_base[0]; |
V57= vs_base[0]; |
267 |
V56= Cnil; |
V58= Cnil; |
268 |
V57= Cnil; |
V59= Cnil; |
269 |
{register object V58; |
{register object V60; |
270 |
register object V59; |
register object V61; |
271 |
V58= (V52); |
V60= (V54); |
272 |
V59= CMPcar((V58)); |
V61= CMPcar((V60)); |
273 |
goto T99; |
goto T99; |
274 |
T99:; |
T99:; |
275 |
if(!(((V58))==Cnil)){ |
if(!(((V60))==Cnil)){ |
276 |
goto T100;} |
goto T100;} |
277 |
goto T95; |
goto T95; |
278 |
goto T100; |
goto T100; |
279 |
T100:; |
T100:; |
280 |
{register object V60; |
{register object V62; |
281 |
base[2]= (V59); |
base[2]= (V61); |
282 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
283 |
(void) (*Lnk132)(Lclptr132); |
(void) (*Lnk132)(Lclptr132); |
284 |
vs_top=sup; |
vs_top=sup; |
285 |
V60= vs_base[0]; |
V62= vs_base[0]; |
286 |
if(((V60))!=Cnil){ |
if(((V62))!=Cnil){ |
287 |
goto T108;} |
goto T108;} |
288 |
base[2]= (V59); |
base[2]= (V61); |
289 |
base[3]= VV[40]; |
base[3]= VV[40]; |
290 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
291 |
L8(base); |
L8(base); |
293 |
goto T104; |
goto T104; |
294 |
goto T108; |
goto T108; |
295 |
T108:; |
T108:; |
296 |
if((CMPcdr((V60)))==Cnil){ |
if((CMPcdr((V62)))==Cnil){ |
297 |
goto T113;} |
goto T113;} |
298 |
base[2]= (V59); |
base[2]= (V61); |
299 |
base[3]= VV[41]; |
base[3]= VV[41]; |
300 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
301 |
L8(base); |
L8(base); |
303 |
goto T104; |
goto T104; |
304 |
goto T113; |
goto T113; |
305 |
T113:; |
T113:; |
306 |
if(!((CMPcar((V60)))==(VV[42]))){ |
if(!((CMPcar((V62)))==(VV[42]))){ |
307 |
goto T118;} |
goto T118;} |
308 |
V56= make_cons(V59,(V56)); |
V58= make_cons(V61,(V58)); |
309 |
goto T104; |
goto T104; |
310 |
goto T118; |
goto T118; |
311 |
T118:; |
T118:; |
312 |
if(!((CMPcar((V60)))==(base[0]))){ |
if(!((CMPcar((V62)))==(base[0]))){ |
313 |
goto T122;} |
goto T122;} |
314 |
V57= make_cons(V59,(V57)); |
V59= make_cons(V61,(V59)); |
315 |
goto T104; |
goto T104; |
316 |
goto T122; |
goto T122; |
317 |
T122:; |
T122:; |
318 |
base[2]= (V59); |
base[2]= (V61); |
319 |
base[3]= VV[43]; |
base[3]= VV[43]; |
320 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
321 |
L8(base); |
L8(base); |
322 |
vs_top=sup;} |
vs_top=sup;} |
323 |
goto T104; |
goto T104; |
324 |
T104:; |
T104:; |
325 |
V58= CMPcdr((V58)); |
V60= CMPcdr((V60)); |
326 |
V59= CMPcar((V58)); |
V61= CMPcar((V60)); |
327 |
goto T99;} |
goto T99;} |
328 |
goto T95; |
goto T95; |
329 |
T95:; |
T95:; |
330 |
V56= nreverse((V56)); |
V58= nreverse((V58)); |
331 |
V57= nreverse((V57)); |
V59= nreverse((V59)); |
332 |
{object V63; |
{object V65; |
333 |
if((CMPcdr((V57)))!=Cnil){ |
if((CMPcdr((V59)))!=Cnil){ |
334 |
goto T138;} |
goto T138;} |
335 |
if(((V55))==Cnil){ |
if(((V57))==Cnil){ |
336 |
goto T138;} |
goto T138;} |
337 |
V63= list(3,VV[45],CMPcar((V57)),Cnil); |
V65= list(3,VV[45],CMPcar((V59)),Cnil); |
338 |
goto T136; |
goto T136; |
339 |
goto T138; |
goto T138; |
340 |
T138:; |
T138:; |
341 |
{object V65; |
V66 = (V56); |
342 |
object V66= (V57); |
{object V68; |
343 |
if(V66==Cnil){ |
object V69= (V59); |
344 |
V64= Cnil; |
if(V69==Cnil){ |
345 |
|
V67= Cnil; |
346 |
goto T142;} |
goto T142;} |
347 |
base[1]=V65=MMcons(Cnil,Cnil); |
base[1]=V68=MMcons(Cnil,Cnil); |
348 |
goto T143; |
goto T143; |
349 |
T143:; |
T143:; |
350 |
(V65->c.c_car)= list(3,VV[45],(V66->c.c_car),Cnil); |
(V68->c.c_car)= list(3,VV[45],(V69->c.c_car),Cnil); |
351 |
if((V66=MMcdr(V66))==Cnil){ |
if((V69=MMcdr(V69))==Cnil){ |
352 |
V64= base[1]; |
V67= base[1]; |
353 |
goto T142;} |
goto T142;} |
354 |
V65=MMcdr(V65)=MMcons(Cnil,Cnil); |
V68=MMcdr(V68)=MMcons(Cnil,Cnil); |
355 |
goto T143;} |
goto T143;} |
356 |
goto T142; |
goto T142; |
357 |
T142:; |
T142:; |
358 |
V63= make_cons((V54),V64); |
V65= make_cons(V66,V67); |
359 |
goto T136; |
goto T136; |
360 |
T136:; |
T136:; |
361 |
if(((V57))!=Cnil){ |
if(((V59))!=Cnil){ |
362 |
goto T146;} |
goto T146;} |
363 |
V68= list(2,VV[24],base[0]); |
V71= list(2,VV[24],base[0]); |
364 |
{object V69 = list(4,VV[46],VV[47],/* INLINE-ARGS */V68,list(2,VV[24],(V50))); |
{object V72 = list(4,VV[46],VV[47],/* INLINE-ARGS */V71,list(2,VV[24],(V52))); |
365 |
VMR7(V69)} |
VMR7(V72)} |
366 |
goto T146; |
goto T146; |
367 |
T146:; |
T146:; |
368 |
if(((V56))!=Cnil){ |
if(((V58))!=Cnil){ |
369 |
goto T149;} |
goto T149;} |
370 |
{object V70 = (V63); |
{object V73 = (V65); |
371 |
VMR7(V70)} |
VMR7(V73)} |
372 |
goto T149; |
goto T149; |
373 |
T149:; |
T149:; |
374 |
V71= CMPcar((V56)); |
V74= CMPcar((V58)); |
375 |
V72= CMPcdr((V56)); |
V75= CMPcdr((V58)); |
376 |
V73= list(2,VV[48],(V63)); |
V76= list(2,VV[48],(V65)); |
377 |
V74= make_cons(/* INLINE-ARGS */V73,Cnil); |
V77= make_cons(/* INLINE-ARGS */V76,Cnil); |
378 |
{object V75 = list(3,VV[45],/* INLINE-ARGS */V71,append(/* INLINE-ARGS */V72,/* INLINE-ARGS */V74)); |
{object V78 = list(3,VV[45],/* INLINE-ARGS */V74,append(/* INLINE-ARGS */V75,/* INLINE-ARGS */V77)); |
379 |
VMR7(V75)}}} |
VMR7(V78)}}} |
380 |
base[0]=base[0]; |
base[0]=base[0]; |
381 |
return Cnil; |
return Cnil; |
382 |
} |
} |
393 |
base[0]= VV[49]; |
base[0]= VV[49]; |
394 |
base[1]= VV[3]; |
base[1]= VV[3]; |
395 |
base[2]= VV[50]; |
base[2]= VV[50]; |
396 |
V76= listA(9,VV[5],VV[51],VV[7],VV[52],VV[9],Cnil,VV[10],VV[53],Cnil); |
V79= listA(9,VV[5],VV[51],VV[7],VV[52],VV[9],Cnil,VV[10],VV[53],Cnil); |
397 |
base[3]= make_cons(/* INLINE-ARGS */V76,Cnil); |
base[3]= make_cons(/* INLINE-ARGS */V79,Cnil); |
398 |
base[4]= Cnil; |
base[4]= Cnil; |
399 |
base[5]= Cnil; |
base[5]= Cnil; |
400 |
symlispcall(VV[119],base+0,6); |
symlispcall(VV[119],base+0,6); |
402 |
} |
} |
403 |
/* local entry for function EXPAND-LONG-DEFCOMBIN */ |
/* local entry for function EXPAND-LONG-DEFCOMBIN */ |
404 |
|
|
405 |
static object LI10(V78) |
static object LI10(V81) |
406 |
|
|
407 |
register object V78; |
register object V81; |
408 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
409 |
goto TTL; |
goto TTL; |
410 |
TTL:; |
TTL:; |
411 |
{object V79; |
{object V82; |
|
object V80; |
|
|
object V81; |
|
|
register object V82; |
|
412 |
object V83; |
object V83; |
413 |
object V84; |
object V84; |
414 |
V79= CMPcadr((V78)); |
register object V85; |
415 |
V80= CMPcaddr((V78)); |
object V86; |
416 |
V81= CMPcadddr((V78)); |
object V87; |
417 |
V82= CMPcddddr((V78)); |
V82= CMPcadr((V81)); |
418 |
V83= Cnil; |
V83= CMPcaddr((V81)); |
419 |
V84= Cnil; |
V84= CMPcadddr((V81)); |
420 |
if(!(type_of(CMPcar((V82)))==t_cons)){ |
V85= CMPcddddr((V81)); |
421 |
|
V86= Cnil; |
422 |
|
V87= Cnil; |
423 |
|
if(!(type_of(CMPcar((V85)))==t_cons)){ |
424 |
goto T161;} |
goto T161;} |
425 |
if(!((CMPcaar((V82)))==(VV[54]))){ |
if(!((CMPcaar((V85)))==(VV[54]))){ |
426 |
goto T161;} |
goto T161;} |
427 |
{object V86; |
{object V89; |
428 |
V86= CMPcar((V82)); |
V89= CMPcar((V85)); |
429 |
V82= CMPcdr((V82)); |
V85= CMPcdr((V85)); |
430 |
V85= (V86);} |
V88= (V89);} |
431 |
V83= CMPcdr(V85); |
V86= CMPcdr(V88); |
432 |
goto T161; |
goto T161; |
433 |
T161:; |
T161:; |
434 |
if(!(type_of(CMPcar((V82)))==t_cons)){ |
if(!(type_of(CMPcar((V85)))==t_cons)){ |
435 |
goto T171;} |
goto T171;} |
436 |
if(!((CMPcaar((V82)))==(VV[55]))){ |
if(!((CMPcaar((V85)))==(VV[55]))){ |
437 |
goto T171;} |
goto T171;} |
438 |
{object V88; |
{object V91; |
439 |
V88= CMPcar((V82)); |
V91= CMPcar((V85)); |
440 |
V82= CMPcdr((V82)); |
V85= CMPcdr((V85)); |
441 |
V87= (V88);} |
V90= (V91);} |
442 |
V84= CMPcadr(V87); |
V87= CMPcadr(V90); |
443 |
goto T171; |
goto T171; |
444 |
T171:; |
T171:; |
445 |
{object V89; |
{object V92; |
446 |
object V90; |
object V93; |
447 |
base[0]= (V79); |
base[0]= (V82); |
448 |
base[1]= (V80); |
base[1]= (V83); |
449 |
base[2]= (V81); |
base[2]= (V84); |
450 |
base[3]= (V83); |
base[3]= (V86); |
451 |
base[4]= (V84); |
base[4]= (V87); |
452 |
base[5]= (V82); |
base[5]= (V85); |
453 |
vs_top=(vs_base=base+0)+6; |
vs_top=(vs_base=base+0)+6; |
454 |
(void) (*Lnk133)(); |
(void) (*Lnk133)(); |
455 |
if(vs_base>=vs_top){vs_top=sup;goto T188;} |
if(vs_base>=vs_top){vs_top=sup;goto T188;} |
456 |
V89= vs_base[0]; |
V92= vs_base[0]; |
457 |
vs_base++; |
vs_base++; |
458 |
if(vs_base>=vs_top){vs_top=sup;goto T189;} |
if(vs_base>=vs_top){vs_top=sup;goto T189;} |
459 |
V90= vs_base[0]; |
V93= vs_base[0]; |
460 |
vs_top=sup; |
vs_top=sup; |
461 |
goto T190; |
goto T190; |
462 |
goto T188; |
goto T188; |
463 |
T188:; |
T188:; |
464 |
V89= Cnil; |
V92= Cnil; |
465 |
goto T189; |
goto T189; |
466 |
T189:; |
T189:; |
467 |
V90= Cnil; |
V93= Cnil; |
468 |
goto T190; |
goto T190; |
469 |
T190:; |
T190:; |
470 |
V91= list(2,VV[21],(V79)); |
V94= list(2,VV[21],(V82)); |
471 |
V92= list(2,VV[24],(V79)); |
V95= list(2,VV[24],(V82)); |
472 |
V93= list(2,VV[24],(V89)); |
V96= list(2,VV[24],(V92)); |
473 |
V94= list(4,VV[57],/* INLINE-ARGS */V92,/* INLINE-ARGS */V93,list(2,VV[51],(V90))); |
V97= list(4,VV[57],/* INLINE-ARGS */V95,/* INLINE-ARGS */V96,list(2,VV[51],(V93))); |
474 |
{object V95 = (*(LnkLI120))(/* INLINE-ARGS */V91,VV[56],/* INLINE-ARGS */V94); |
{object V98 = (*(LnkLI120))(/* INLINE-ARGS */V94,VV[56],/* INLINE-ARGS */V97); |
475 |
VMR9(V95)}}} |
VMR9(V98)}}} |
476 |
base[0]=base[0]; |
base[0]=base[0]; |
477 |
return Cnil; |
return Cnil; |
478 |
} |
} |
482 |
{register object *base=vs_base; |
{register object *base=vs_base; |
483 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
484 |
vs_check; |
vs_check; |
485 |
{object V96; |
{object V99; |
486 |
object V97; |
object V100; |
487 |
check_arg(3); |
check_arg(3); |
488 |
V96=(base[0]); |
V99=(base[0]); |
489 |
base[1]=MMcons(base[1],Cnil); |
base[1]=MMcons(base[1],Cnil); |
490 |
V97=(base[2]); |
V100=(base[2]); |
491 |
vs_top=sup; |
vs_top=sup; |
492 |
{object V98; |
{object V101; |
493 |
object V99; |
object V102; |
494 |
object V100; |
object V103; |
495 |
V101= (VFUN_NARGS=1,(*(LnkLI122))(VV[25])); |
V104= (VFUN_NARGS=1,(*(LnkLI122))(VV[25])); |
496 |
V102= (*(LnkLI123))((V96)); |
V105= (*(LnkLI123))((V99)); |
497 |
V98= list(3,/* INLINE-ARGS */V101,/* INLINE-ARGS */V102,(VV[26]->s.s_dbind)); |
V106 = (VV[26]->s.s_dbind); |
498 |
V103= (VV[125]->s.s_gfdef); |
V101= list(3,/* INLINE-ARGS */V104,/* INLINE-ARGS */V105,V106); |
499 |
V99= (VFUN_NARGS=4,(*(LnkLI124))(V103,Cnil,(V98),Cnil)); |
V107= (VV[125]->s.s_gfdef); |
500 |
|
V108 = (V101); |
501 |
|
V102= (VFUN_NARGS=4,(*(LnkLI124))(V107,Cnil,V108,Cnil)); |
502 |
base[6]= VV[27]; |
base[6]= VV[27]; |
503 |
base[7]= VV[28]; |
base[7]= VV[28]; |
504 |
base[8]= Cnil; |
base[8]= Cnil; |
505 |
base[9]= VV[29]; |
base[9]= VV[29]; |
506 |
base[10]= (V98); |
base[10]= (V101); |
507 |
base[11]= VV[30]; |
base[11]= VV[30]; |
508 |
base[12]= VV[58]; |
base[12]= VV[58]; |
509 |
base[13]= VV[32]; |
base[13]= VV[32]; |
510 |
base[14]= |
base[14]= |
511 |
make_cclosure_new(LC21,Cnil,base[1],Cdata); |
make_cclosure_new(LC21,Cnil,base[1],Cdata); |
512 |
base[15]= VV[33]; |
base[15]= VV[33]; |
513 |
V104= list(2,VV[21],(V96)); |
V109= list(2,VV[21],(V99)); |
514 |
vs_base=vs_top; |
vs_base=vs_top; |
515 |
(void) (*Lnk121)(); |
(void) (*Lnk121)(); |
516 |
vs_top=sup; |
vs_top=sup; |
517 |
V105= vs_base[0]; |
V110= vs_base[0]; |
518 |
base[16]= list(2,/* INLINE-ARGS */V104,V105); |
base[16]= list(2,/* INLINE-ARGS */V109,V110); |
519 |
vs_top=(vs_base=base+6)+11; |
vs_top=(vs_base=base+6)+11; |
520 |
(void) (*Lnk126)(Lclptr126); |
(void) (*Lnk126)(Lclptr126); |
521 |
vs_top=sup; |
vs_top=sup; |
522 |
V100= vs_base[0]; |
V103= vs_base[0]; |
523 |
{object V107; |
{object V112; |
524 |
V107= (VV[59]->s.s_dbind); |
V112= (VV[59]->s.s_dbind); |
525 |
base[6]= V96; |
base[6]= V99; |
526 |
base[7]= (V107); |
base[7]= (V112); |
527 |
base[8]= V97; |
base[8]= V100; |
528 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
529 |
siLhash_set(); |
siLhash_set(); |
530 |
vs_top=sup;} |
vs_top=sup;} |
531 |
if(((V99))==Cnil){ |
if(((V102))==Cnil){ |
532 |
goto T212;} |
goto T212;} |
533 |
base[6]=(VV[127]->s.s_gfdef); |
base[6]=(VV[127]->s.s_gfdef); |
534 |
base[7]= (VV[125]->s.s_gfdef); |
base[7]= (VV[125]->s.s_gfdef); |
535 |
base[8]= (V99); |
base[8]= (V102); |
536 |
(void)simple_lispcall(base+6,2); |
(void)simple_lispcall(base+6,2); |
537 |
goto T212; |
goto T212; |
538 |
T212:; |
T212:; |
539 |
base[6]=(VV[128]->s.s_gfdef); |
base[6]=(VV[128]->s.s_gfdef); |
540 |
base[7]= (VV[125]->s.s_gfdef); |
base[7]= (VV[125]->s.s_gfdef); |
541 |
base[8]= (V100); |
base[8]= (V103); |
542 |
lispcall(base+6,2); |
lispcall(base+6,2); |
543 |
return;} |
return;} |
544 |
} |
} |
549 |
{register object *base=vs_base; |
{register object *base=vs_base; |
550 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
551 |
vs_check; |
vs_check; |
552 |
{object V109; |
{object V114; |
553 |
object V110; |
object V115; |
554 |
object V111; |
object V116; |
555 |
object V112; |
object V117; |
556 |
object V113; |
object V118; |
557 |
check_arg(5); |
check_arg(5); |
558 |
V109=(base[0]); |
V114=(base[0]); |
559 |
V110=(base[1]); |
V115=(base[1]); |
560 |
V111=(base[2]); |
V116=(base[2]); |
561 |
V112=(base[3]); |
V117=(base[3]); |
562 |
V113=(base[4]); |
V118=(base[4]); |
563 |
vs_top=sup; |
vs_top=sup; |
564 |
goto TTL; |
goto TTL; |
565 |
TTL:; |
TTL:; |
566 |
base[7]= (V112); |
base[7]= (V117); |
567 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
568 |
(void) (*Lnk129)(Lclptr129); |
(void) (*Lnk129)(Lclptr129); |
569 |
vs_top=sup; |
vs_top=sup; |
573 |
Lgethash(); |
Lgethash(); |
574 |
vs_top=sup; |
vs_top=sup; |
575 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
576 |
base[6]= (V111); |
base[6]= (V116); |
577 |
base[7]= (V112); |
base[7]= (V117); |
578 |
base[8]= (V113); |
base[8]= (V118); |
579 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
580 |
{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)) |
581 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
590 |
{register object *base=vs_base; |
{register object *base=vs_base; |
591 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
592 |
vs_check; |
vs_check; |
593 |
{object V115; |
{object V120; |
594 |
object V116; |
object V121; |
595 |
object V117; |
object V122; |
596 |
object V118; |
object V123; |
597 |
object V119; |
object V124; |
598 |
object V120; |
object V125; |
599 |
check_arg(6); |
check_arg(6); |
600 |
V115=(base[0]); |
V120=(base[0]); |
601 |
V116=(base[1]); |
V121=(base[1]); |
602 |
V117=(base[2]); |
V122=(base[2]); |
603 |
V118=(base[3]); |
V123=(base[3]); |
604 |
V119=(base[4]); |
V124=(base[4]); |
605 |
V120=(base[5]); |
V125=(base[5]); |
606 |
vs_top=sup; |
vs_top=sup; |
607 |
goto TTL; |
goto TTL; |
608 |
TTL:; |
TTL:; |
609 |
{object V121; |
{object V126; |
610 |
object V122; |
object V127; |
611 |
object V123; |
object V128; |
612 |
base[6]= (V120); |
base[6]= (V125); |
613 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
614 |
(void) (*Lnk134)(); |
(void) (*Lnk134)(); |
615 |
if(vs_base>=vs_top){vs_top=sup;goto T232;} |
if(vs_base>=vs_top){vs_top=sup;goto T232;} |
616 |
V121= vs_base[0]; |
V126= vs_base[0]; |
617 |
vs_base++; |
vs_base++; |
618 |
if(vs_base>=vs_top){vs_top=sup;goto T233;} |
if(vs_base>=vs_top){vs_top=sup;goto T233;} |
619 |
V122= vs_base[0]; |
V127= vs_base[0]; |
620 |
vs_base++; |
vs_base++; |
621 |
if(vs_base>=vs_top){vs_top=sup;goto T234;} |
if(vs_base>=vs_top){vs_top=sup;goto T234;} |
622 |
V123= vs_base[0]; |
V128= vs_base[0]; |
623 |
vs_top=sup; |
vs_top=sup; |
624 |
goto T235; |
goto T235; |
625 |
goto T232; |
goto T232; |
626 |
T232:; |
T232:; |
627 |
V121= Cnil; |
V126= Cnil; |
628 |
goto T233; |
goto T233; |
629 |
T233:; |
T233:; |
630 |
V122= Cnil; |
V127= Cnil; |
631 |
goto T234; |
goto T234; |
632 |
T234:; |
T234:; |
633 |
V123= Cnil; |
V128= Cnil; |
634 |
goto T235; |
goto T235; |
635 |
T235:; |
T235:; |
636 |
{register object V124; |
{register object V129; |
637 |
V124= (*(LnkLI135))((V117),(V122),(V123)); |
V129= (*(LnkLI135))((V122),(V127),(V128)); |
638 |
if(((V119))==Cnil){ |
if(((V124))==Cnil){ |
639 |
goto T237;} |
goto T237;} |
640 |
{object V125; |
{object V130; |
641 |
object V127; |
object V132; |
642 |
V125= list(2,(V119),VV[60]); |
V130= list(2,(V124),VV[60]); |
643 |
V127= make_cons((V125),CMPcadr(V124)); |
V132= make_cons((V130),CMPcadr(V129)); |
644 |
(CMPcdr(V124))->c.c_car = (V127); |
(CMPcdr(V129))->c.c_car = (V132); |
645 |
(void)(CMPcdr(V124));} |
(void)(CMPcdr(V129));} |
646 |
goto T237; |
goto T237; |
647 |
T237:; |
T237:; |
648 |
if(((V118))==Cnil){ |
if(((V123))==Cnil){ |
649 |
goto T243;} |
goto T243;} |
650 |
V124= (*(LnkLI136))((V124),(V118)); |
V129= (*(LnkLI136))((V129),(V123)); |
651 |
goto T243; |
goto T243; |
652 |
T243:; |
T243:; |
653 |
if(((V116))==Cnil){ |
if(((V121))==Cnil){ |
654 |
goto T247;} |
goto T247;} |
655 |
V124= list(3,VV[61],list(2,VV[51],list(3,VV[62],(V116),(V124))),VV[63]); |
V129= list(3,VV[61],list(2,VV[51],list(3,VV[62],(V121),(V129))),VV[63]); |
656 |
goto T247; |
goto T247; |
657 |
T247:; |
T247:; |
658 |
base[6]= (V121); |
base[6]= (V126); |
659 |
base[7]= list(4,VV[62],VV[64],VV[65],list(3,VV[66],VV[67],(V124))); |
base[7]= list(4,VV[62],VV[64],VV[65],list(3,VV[66],VV[67],(V129))); |
660 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
661 |
return;}} |
return;}} |
662 |
} |
} |
663 |
} |
} |
664 |
/* local entry for function WRAP-METHOD-GROUP-SPECIFIER-BINDINGS */ |
/* local entry for function WRAP-METHOD-GROUP-SPECIFIER-BINDINGS */ |
665 |
|
|
666 |
static object LI14(V131,V132,V133) |
static object LI14(V136,V137,V138) |
667 |
|
|
668 |
object V131;object V132;object V133; |
object V136;object V137;object V138; |
669 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
670 |
goto TTL; |
goto TTL; |
671 |
TTL:; |
TTL:; |
|
{object V134; |
|
|
object V135; |
|
|
object V136; |
|
|
object V137; |
|
|
object V138; |
|
672 |
{object V139; |
{object V139; |
673 |
register object V140; |
object V140; |
674 |
object V141; |
object V141; |
675 |
register object V142; |
object V142; |
676 |
object V143; |
object V143; |
677 |
register object V144; |
{object V144; |
678 |
object V145; |
register object V145; |
679 |
register object V146; |
object V146; |
680 |
object V147; |
register object V147; |
681 |
register object V148; |
object V148; |
682 |
V139= Cnil; |
register object V149; |
683 |
V140= Cnil; |
object V150; |
684 |
V141= Cnil; |
register object V151; |
685 |
V142= Cnil; |
object V152; |
686 |
V143= Cnil; |
register object V153; |
687 |
V144= Cnil; |
V144= Cnil; |
688 |
V145= Cnil; |
V145= Cnil; |
689 |
V146= Cnil; |
V146= Cnil; |
690 |
V147= Cnil; |
V147= Cnil; |
691 |
V148= Cnil; |
V148= Cnil; |
692 |
{register object V149; |
V149= Cnil; |
693 |
object V150; |
V150= Cnil; |
694 |
V149= (V131); |
V151= Cnil; |
695 |
V150= CMPcar((V149)); |
V152= Cnil; |
696 |
|
V153= Cnil; |
697 |
|
{register object V154; |
698 |
|
object V155; |
699 |
|
V154= (V136); |
700 |
|
V155= CMPcar((V154)); |
701 |
goto T268; |
goto T268; |
702 |
T268:; |
T268:; |
703 |
if(!(((V149))==Cnil)){ |
if(!(((V154))==Cnil)){ |
704 |
goto T269;} |
goto T269;} |
705 |
goto T264; |
goto T264; |
706 |
goto T269; |
goto T269; |
707 |
T269:; |
T269:; |
708 |
{register object V151; |
{register object V156; |
709 |
object V152; |
object V157; |
710 |
register object V153; |
register object V158; |
711 |
register object V154; |
register object V159; |
712 |
object V155; |
object V160; |
713 |
base[1]= (V150); |
base[1]= (V155); |
714 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
715 |
(void) (*Lnk137)(); |
(void) (*Lnk137)(); |
716 |
if(vs_base>=vs_top){vs_top=sup;goto T276;} |
if(vs_base>=vs_top){vs_top=sup;goto T276;} |
717 |
V151= vs_base[0]; |
V156= vs_base[0]; |
718 |
vs_base++; |
vs_base++; |
719 |
if(vs_base>=vs_top){vs_top=sup;goto T277;} |
if(vs_base>=vs_top){vs_top=sup;goto T277;} |
720 |
V152= vs_base[0]; |
V157= vs_base[0]; |
721 |
vs_base++; |
vs_base++; |
722 |
if(vs_base>=vs_top){vs_top=sup;goto T278;} |
if(vs_base>=vs_top){vs_top=sup;goto T278;} |
723 |
V153= vs_base[0]; |
V158= vs_base[0]; |
724 |
vs_base++; |
vs_base++; |
725 |
if(vs_base>=vs_top){vs_top=sup;goto T279;} |
if(vs_base>=vs_top){vs_top=sup;goto T279;} |
726 |
V154= vs_base[0]; |
V159= vs_base[0]; |
727 |
vs_base++; |
vs_base++; |
728 |
if(vs_base>=vs_top){vs_top=sup;goto T280;} |
if(vs_base>=vs_top){vs_top=sup;goto T280;} |
729 |
V155= vs_base[0]; |
V160= vs_base[0]; |
730 |
vs_top=sup; |
vs_top=sup; |
731 |
goto T281; |
goto T281; |
732 |
goto T276; |
goto T276; |
733 |
T276:; |
T276:; |
734 |
V151= Cnil; |
V156= Cnil; |
735 |
goto T277; |
goto T277; |
736 |
T277:; |
T277:; |
737 |
V152= Cnil; |
V157= Cnil; |
738 |
goto T278; |
goto T278; |
739 |
T278:; |
T278:; |
740 |
V153= Cnil; |
V158= Cnil; |
741 |
goto T279; |
goto T279; |
742 |
T279:; |
T279:; |
743 |
V154= Cnil; |
V159= Cnil; |
744 |
goto T280; |
goto T280; |
745 |
T280:; |
T280:; |
746 |
V155= Cnil; |
V160= Cnil; |
747 |
goto T281; |
goto T281; |
748 |
T281:; |
T281:; |
749 |
{register object V156; |
{register object V161; |
750 |
vs_base=vs_top; |
vs_base=vs_top; |
751 |
Lgensym(); |
Lgensym(); |
752 |
vs_top=sup; |
vs_top=sup; |
753 |
V156= vs_base[0]; |
V161= vs_base[0]; |
754 |
if(((V139))!=Cnil){ |
if(((V144))!=Cnil){ |
755 |
goto T285;} |
goto T285;} |
756 |
V140= make_cons(V151,Cnil); |
V145= make_cons(V156,Cnil); |
757 |
V139= (V140); |
V144= (V145); |
758 |
goto T283; |
goto T283; |
759 |
goto T285; |
goto T285; |
760 |
T285:; |
T285:; |
761 |
V159= make_cons(V151,Cnil); |
V164= make_cons(V156,Cnil); |
762 |
((V140))->c.c_cdr = /* INLINE-ARGS */V159; |
((V145))->c.c_cdr = /* INLINE-ARGS */V164; |
763 |
V158= (V140); |
V163= (V145); |
764 |
V140= CMPcdr(V158); |
V145= CMPcdr(V163); |
765 |
goto T283; |
goto T283; |
766 |
T283:; |
T283:; |
767 |
if(((V141))!=Cnil){ |
if(((V146))!=Cnil){ |
768 |
goto T293;} |
goto T293;} |
769 |
V142= make_cons(V156,Cnil); |
V147= make_cons(V161,Cnil); |
770 |
V141= (V142); |
V146= (V147); |
771 |
goto T291; |
goto T291; |
772 |
goto T293; |
goto T293; |
773 |
T293:; |
T293:; |
774 |
V162= make_cons(V156,Cnil); |
V167= make_cons(V161,Cnil); |
775 |
((V142))->c.c_cdr = /* INLINE-ARGS */V162; |
((V147))->c.c_cdr = /* INLINE-ARGS */V167; |
776 |
V161= (V142); |
V166= (V147); |
777 |
V142= CMPcdr(V161); |
V147= CMPcdr(V166); |
778 |
goto T291; |
goto T291; |
779 |
T291:; |
T291:; |
780 |
{object V163; |
{object V168; |
781 |
V164= make_cons(VV[68],(V152)); |
V169= make_cons(VV[68],(V157)); |
782 |
V165= list(3,VV[70],(V156),VV[71]); |
V170= list(3,VV[70],(V161),VV[71]); |
783 |
V166= list(3,VV[72],VV[67],list(2,VV[24],list(3,VV[46],VV[73],list(2,VV[24],(V151))))); |
V171= list(3,VV[72],VV[67],list(2,VV[24],list(3,VV[46],VV[73],list(2,VV[24],(V156))))); |
784 |
V167= list(4,VV[69],/* INLINE-ARGS */V165,/* INLINE-ARGS */V166,list(3,VV[74],(V156),VV[71])); |
V172= list(4,VV[69],/* INLINE-ARGS */V170,/* INLINE-ARGS */V171,list(3,VV[74],(V161),VV[71])); |
785 |
V163= list(3,/* INLINE-ARGS */V164,/* INLINE-ARGS */V167,list(3,VV[75],VV[76],(V151))); |
V168= list(3,/* INLINE-ARGS */V169,/* INLINE-ARGS */V172,list(3,VV[75],VV[76],(V156))); |
786 |
if(((V143))!=Cnil){ |
if(((V148))!=Cnil){ |
787 |
goto T302;} |
goto T302;} |
788 |
V144= make_cons((V163),Cnil); |
V149= make_cons((V168),Cnil); |
789 |
V143= (V144); |
V148= (V149); |
790 |
goto T299; |
goto T299; |
791 |
goto T302; |
goto T302; |
792 |
T302:; |
T302:; |
793 |
V169= make_cons((V163),Cnil); |
V174= make_cons((V168),Cnil); |
794 |
((V144))->c.c_cdr = /* INLINE-ARGS */V169; |
((V149))->c.c_cdr = /* INLINE-ARGS */V174; |
795 |
V168= (V144); |
V173= (V149); |
796 |
V144= CMPcdr(V168);} |
V149= CMPcdr(V173);} |
797 |
goto T299; |
goto T299; |
798 |
T299:; |
T299:; |
799 |
if(((V155))==Cnil){ |
if(((V160))==Cnil){ |
800 |
goto T308;} |
goto T308;} |
801 |
{object V170; |
{object V175; |
802 |
V171= list(2,VV[78],(V151)); |
V176= list(2,VV[78],(V156)); |
803 |
V170= list(3,VV[77],/* INLINE-ARGS */V171,list(3,VV[72],VV[67],list(2,VV[24],list(3,VV[46],VV[79],list(2,VV[24],(V151)))))); |
V175= list(3,VV[77],/* INLINE-ARGS */V176,list(3,VV[72],VV[67],list(2,VV[24],list(3,VV[46],VV[79],list(2,VV[24],(V156)))))); |
804 |
if(((V145))!=Cnil){ |
if(((V150))!=Cnil){ |
805 |
goto T313;} |
goto T313;} |
806 |
V146= make_cons((V170),Cnil); |
V151= make_cons((V175),Cnil); |
807 |
V145= (V146); |
V150= (V151); |
808 |
goto T308; |
goto T308; |
809 |
goto T313; |
goto T313; |
810 |
T313:; |
T313:; |
811 |
V173= make_cons((V170),Cnil); |
V178= make_cons((V175),Cnil); |
812 |
((V146))->c.c_cdr = /* INLINE-ARGS */V173; |
((V151))->c.c_cdr = /* INLINE-ARGS */V178; |
813 |
V172= (V146); |
V177= (V151); |
814 |
V146= CMPcdr(V172);} |
V151= CMPcdr(V177);} |
815 |
goto T308; |
goto T308; |
816 |
T308:; |
T308:; |
817 |
goto T321; |
goto T321; |
818 |
T321:; |
T321:; |
819 |
base[1]= (V154); |
base[1]= (V159); |
820 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
821 |
Lconstantp(); |
Lconstantp(); |
822 |
vs_top=sup; |
vs_top=sup; |
823 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
824 |
goto T323;}{object V174; |
goto T323;}{object V179; |
825 |
V174= (V154); |
V179= (V159); |
826 |
base[1]= (V154); |
base[1]= (V159); |
827 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
828 |
Leval(); |
Leval(); |
829 |
vs_top=sup; |
vs_top=sup; |
830 |
V154= vs_base[0]; |
V159= vs_base[0]; |
831 |
if((((V174)==((V154))?Ct:Cnil))==Cnil){ |
V180 = (V159); |
832 |
|
if((((V179)==(V180)?Ct:Cnil))==Cnil){ |
833 |
goto T322;}} |
goto T322;}} |
834 |
goto T323; |
goto T323; |
835 |
T323:; |
T323:; |
839 |
goto T321; |
goto T321; |
840 |
goto T319; |
goto T319; |
841 |
T319:; |
T319:; |
842 |
{object V175; |
{object V181; |
843 |
if(!(((V154))==(VV[80]))){ |
if(!(((V159))==(VV[80]))){ |
844 |
goto T333;} |
goto T333;} |
845 |
V175= list(3,VV[74],(V151),list(2,VV[81],(V151))); |
V181= list(3,VV[74],(V156),list(2,VV[81],(V156))); |
846 |
goto T331; |
goto T331; |
847 |
goto T333; |
goto T333; |
848 |
T333:; |
T333:; |
849 |
if(!(((V154))==(VV[82]))){ |
if(!(((V159))==(VV[82]))){ |
850 |
goto T336;} |
goto T336;} |
851 |
V175= Cnil; |
V181= Cnil; |
852 |
goto T331; |
goto T331; |
853 |
goto T336; |
goto T336; |
854 |
T336:; |
T336:; |
855 |
V175= list(4,VV[83],(V154),list(2,VV[80],list(3,VV[74],(V151),list(2,VV[81],(V151)))),VV[84]); |
V181= list(4,VV[83],(V159),list(2,VV[80],list(3,VV[74],(V156),list(2,VV[81],(V156)))),VV[84]); |
856 |
goto T331; |
goto T331; |
857 |
T331:; |
T331:; |
858 |
if(((V147))!=Cnil){ |
if(((V152))!=Cnil){ |
859 |
goto T339;} |
goto T339;} |
860 |
V148= make_cons((V175),Cnil); |
V153= make_cons((V181),Cnil); |
861 |
V147= (V148); |
V152= (V153); |
862 |
goto T273; |
goto T273; |
863 |
goto T339; |
goto T339; |
864 |
T339:; |
T339:; |
865 |
V177= make_cons((V175),Cnil); |
V183= make_cons((V181),Cnil); |
866 |
((V148))->c.c_cdr = /* INLINE-ARGS */V177; |
((V153))->c.c_cdr = /* INLINE-ARGS */V183; |
867 |
V176= (V148); |
V182= (V153); |
868 |
V148= CMPcdr(V176);}}} |
V153= CMPcdr(V182);}}} |
869 |
goto T273; |
goto T273; |
870 |
T273:; |
T273:; |
871 |
V149= CMPcdr((V149)); |
V154= CMPcdr((V154)); |
872 |
V150= CMPcar((V149)); |
V155= CMPcar((V154)); |
873 |
goto T268;} |
goto T268;} |
874 |
goto T264; |
goto T264; |
875 |
T264:; |
T264:; |
876 |
base[0]= (V139); |
base[0]= (V144); |
877 |
base[1]= (V141); |
base[1]= (V146); |
878 |
base[2]= (V143); |
base[2]= (V148); |
879 |
base[3]= (V145); |
base[3]= (V150); |
880 |
base[4]= (V147); |
base[4]= (V152); |
881 |
vs_top=(vs_base=base+0)+5;} |
vs_top=(vs_base=base+0)+5;} |
882 |
if(vs_base>=vs_top){vs_top=sup;goto T355;} |
if(vs_base>=vs_top){vs_top=sup;goto T355;} |
883 |
V134= vs_base[0]; |
V139= vs_base[0]; |
884 |
vs_base++; |
vs_base++; |
885 |
if(vs_base>=vs_top){vs_top=sup;goto T356;} |
if(vs_base>=vs_top){vs_top=sup;goto T356;} |
886 |
V135= vs_base[0]; |
V140= vs_base[0]; |
887 |
vs_base++; |
vs_base++; |
888 |
if(vs_base>=vs_top){vs_top=sup;goto T357;} |
if(vs_base>=vs_top){vs_top=sup;goto T357;} |
889 |
V136= vs_base[0]; |
V141= vs_base[0]; |
890 |
vs_base++; |
vs_base++; |
891 |
if(vs_base>=vs_top){vs_top=sup;goto T358;} |
if(vs_base>=vs_top){vs_top=sup;goto T358;} |
892 |
V137= vs_base[0]; |
V142= vs_base[0]; |
893 |
vs_base++; |
vs_base++; |
894 |
if(vs_base>=vs_top){vs_top=sup;goto T359;} |
if(vs_base>=vs_top){vs_top=sup;goto T359;} |
895 |
V138= vs_base[0]; |
V143= vs_base[0]; |
896 |
vs_top=sup; |
vs_top=sup; |
897 |
goto T360; |
goto T360; |
898 |
goto T355; |
goto T355; |
899 |
T355:; |
T355:; |
900 |
V134= Cnil; |
V139= Cnil; |
901 |
goto T356; |
goto T356; |
902 |
T356:; |
T356:; |
903 |
V135= Cnil; |
V140= Cnil; |
904 |
goto T357; |
goto T357; |
905 |
T357:; |
T357:; |
906 |
V136= Cnil; |
V141= Cnil; |
907 |
goto T358; |
goto T358; |
908 |
T358:; |
T358:; |
909 |
V137= Cnil; |
V142= Cnil; |
910 |
goto T359; |
goto T359; |
911 |
T359:; |
T359:; |
912 |
V138= Cnil; |
V143= Cnil; |
913 |
goto T360; |
goto T360; |
914 |
T360:; |
T360:; |
915 |
V178= append((V134),(V135)); |
V184= append((V139),(V140)); |
916 |
V179= list(3,VV[86],VV[87],list(4,VV[85],VV[88],VV[89],make_cons(VV[90],(V136)))); |
V185= list(3,VV[86],VV[87],list(4,VV[85],VV[88],VV[89],make_cons(VV[90],(V141)))); |
917 |
base[0]= (V137); |
base[0]= (V142); |
918 |
base[1]= (V138); |
base[1]= (V143); |
919 |
base[2]= (V133); |
base[2]= (V138); |
920 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
921 |
Lappend(); |
Lappend(); |
922 |
vs_top=sup; |
vs_top=sup; |
923 |
V180= vs_base[0]; |
V186= vs_base[0]; |
924 |
V181= make_cons(/* INLINE-ARGS */V179,V180); |
V187= make_cons(/* INLINE-ARGS */V185,V186); |
925 |
{object V182 = listA(3,VV[85],/* INLINE-ARGS */V178,append((V132),/* INLINE-ARGS */V181)); |
{object V188 = listA(3,VV[85],/* INLINE-ARGS */V184,append((V137),/* INLINE-ARGS */V187)); |
926 |
VMR13(V182)}} |
VMR13(V188)}} |
927 |
base[0]=base[0]; |
base[0]=base[0]; |
928 |
return Cnil; |
return Cnil; |
929 |
} |
} |
933 |
{register object *base=vs_base; |
{register object *base=vs_base; |
934 |
register object *sup=base+VM14; VC14 |
register object *sup=base+VM14; VC14 |
935 |
vs_check; |
vs_check; |
936 |
{register object V183; |
{register object V189; |
937 |
check_arg(1); |
check_arg(1); |
938 |
V183=(base[0]); |
V189=(base[0]); |
939 |
vs_top=sup; |
vs_top=sup; |
940 |
goto TTL; |
goto TTL; |
941 |
TTL:; |
TTL:; |
942 |
{object V184; |
{object V190; |
943 |
register object V185; |
register object V191; |
944 |
object V186; |
object V192; |
945 |
{object V187; |
{object V193; |
946 |
V187= CMPcar((V183)); |
V193= CMPcar((V189)); |
947 |
V183= CMPcdr((V183)); |
V189= CMPcdr((V189)); |
948 |
V184= (V187);} |
V190= (V193);} |
949 |
V185= Cnil; |
V191= Cnil; |
950 |
{register object V188; |
{register object V194; |
951 |
register object V189; |
register object V195; |
952 |
V188= Cnil; |
V194= Cnil; |
953 |
V189= Cnil; |
V195= Cnil; |
954 |
goto T375; |
goto T375; |
955 |
T375:; |
T375:; |
956 |
if(((V183))==Cnil){ |
if(((V189))==Cnil){ |
957 |
goto T377;} |
goto T377;} |
958 |
{register object x= CMPcar((V183)),V190= VV[91]; |
{register object x= CMPcar((V189)),V196= VV[91]; |
959 |
while(V190!=Cnil) |
while(V196!=Cnil) |
960 |
if(x==(V190->c.c_car)){ |
if(x==(V196->c.c_car)){ |
961 |
goto T381; |
goto T381; |
962 |
}else V190=V190->c.c_cdr; |
}else V196=V196->c.c_cdr; |
963 |
goto T378;} |
goto T378;} |
964 |
goto T381; |
goto T381; |
965 |
T381:; |
T381:; |
968 |
goto T373; |
goto T373; |
969 |
goto T378; |
goto T378; |
970 |
T378:; |
T378:; |
971 |
{register object V191; |
{register object V197; |
972 |
{object V192; |
{object V198; |
973 |
V192= CMPcar((V183)); |
V198= CMPcar((V189)); |
974 |
V183= CMPcdr((V183)); |
V189= CMPcdr((V189)); |
975 |
V191= (V192);} |
V197= (V198);} |
976 |
V185= make_cons(V191,(V185)); |
V191= make_cons(V197,(V191)); |
977 |
{register object V194; |
{register object V200; |
978 |
V194= (*(LnkLI138))((V184),(V191)); |
V200= (*(LnkLI138))((V190),(V197)); |
979 |
if(((V188))!=Cnil){ |
if(((V194))!=Cnil){ |
980 |
goto T390;} |
goto T390;} |
981 |
V189= make_cons((V194),Cnil); |
V195= make_cons((V200),Cnil); |
982 |
V188= (V189); |
V194= (V195); |
983 |
goto T376; |
goto T376; |
984 |
goto T390; |
goto T390; |
985 |
T390:; |
T390:; |
986 |
V196= make_cons((V194),Cnil); |
V202= make_cons((V200),Cnil); |
987 |
((V189))->c.c_cdr = /* INLINE-ARGS */V196; |
((V195))->c.c_cdr = /* INLINE-ARGS */V202; |
988 |
V195= (V189); |
V201= (V195); |
989 |
V189= CMPcdr(V195);}} |
V195= CMPcdr(V201);}} |
990 |
goto T376; |
goto T376; |
991 |
T376:; |
T376:; |
992 |
goto T375; |
goto T375; |
993 |
goto T373; |
goto T373; |
994 |
T373:; |
T373:; |
995 |
V186= (V188);} |
V192= (V194);} |
996 |
base[3]= (V184); |
base[3]= (V190); |
997 |
base[4]= (V186); |
base[4]= (V192); |
998 |
base[6]= (V183); |
base[6]= (V189); |
999 |
base[7]= VV[92]; |
base[7]= VV[92]; |
1000 |
base[8]= (*(LnkLI139))((V185)); |
base[8]= (*(LnkLI139))((V191)); |
1001 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
1002 |
Lgetf(); |
Lgetf(); |
1003 |
vs_top=sup; |
vs_top=sup; |
1004 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1005 |
base[7]= (V183); |
base[7]= (V189); |
1006 |
base[8]= VV[93]; |
base[8]= VV[93]; |
1007 |
base[9]= VV[80]; |
base[9]= VV[80]; |
1008 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
1009 |
Lgetf(); |
Lgetf(); |
1010 |
vs_top=sup; |
vs_top=sup; |
1011 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
1012 |
base[8]= (V183); |
base[8]= (V189); |
1013 |
base[9]= VV[94]; |
base[9]= VV[94]; |
1014 |
base[10]= Cnil; |
base[10]= Cnil; |
1015 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
1022 |
} |
} |
1023 |
/* local entry for function PARSE-QUALIFIER-PATTERN */ |
/* local entry for function PARSE-QUALIFIER-PATTERN */ |
1024 |
|
|
1025 |
static object LI16(V199,V200) |
static object LI16(V205,V206) |
1026 |
|
|
1027 |
object V199;register object V200; |
object V205;register object V206; |
1028 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
1029 |
goto TTL; |
goto TTL; |
1030 |
TTL:; |
TTL:; |
1031 |
if(!(((V200))==(Cnil))){ |
if(!(((V206))==(Cnil))){ |
1032 |
goto T412;} |
goto T412;} |
1033 |
{object V201 = VV[95]; |
{object V207 = VV[95]; |
1034 |
VMR15(V201)} |
VMR15(V207)} |
1035 |
goto T412; |
goto T412; |
1036 |
T412:; |
T412:; |
1037 |
if(!(((V200))==(VV[96]))){ |
if(!(((V206))==(VV[96]))){ |
1038 |
goto T415;} |
goto T415;} |
1039 |
{object V202 = Ct; |
{object V208 = Ct; |
1040 |
VMR15(V202)} |
VMR15(V208)} |
1041 |
goto T415; |
goto T415; |
1042 |
T415:; |
T415:; |
1043 |
if(!(type_of((V200))==t_symbol)){ |
if(!(type_of((V206))==t_symbol)){ |
1044 |
goto T418;} |
goto T418;} |
1045 |
{object V203 = list(2,(V200),VV[97]); |
{object V209 = list(2,(V206),VV[97]); |
1046 |
VMR15(V203)} |
VMR15(V209)} |
1047 |
goto T418; |
goto T418; |
1048 |
T418:; |
T418:; |
1049 |
if(!(type_of((V200))==t_cons||((V200))==Cnil)){ |
if(!(type_of((V206))==t_cons||((V206))==Cnil)){ |
1050 |
goto T421;} |
goto T421;} |
1051 |
{object V204 = list(3,VV[98],list(2,VV[24],(V200)),VV[97]); |
{object V210 = list(3,VV[98],list(2,VV[24],(V206)),VV[97]); |
1052 |
VMR15(V204)} |
VMR15(V210)} |
1053 |
goto T421; |
goto T421; |
1054 |
T421:; |
T421:; |
1055 |
base[0]= VV[99]; |
base[0]= VV[99]; |
1056 |
base[1]= (V199); |
base[1]= (V205); |
1057 |
base[2]= (V200); |
base[2]= (V206); |
1058 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1059 |
Lerror(); |
Lerror(); |
1060 |
vs_top=sup; |
vs_top=sup; |
1061 |
{object V205 = vs_base[0]; |
{object V211 = vs_base[0]; |
1062 |
VMR15(V205)} |
VMR15(V211)} |
1063 |
base[0]=base[0]; |
base[0]=base[0]; |
1064 |
return Cnil; |
return Cnil; |
1065 |
} |
} |
1066 |
/* local entry for function QUALIFIER-CHECK-RUNTIME */ |
/* local entry for function QUALIFIER-CHECK-RUNTIME */ |
1067 |
|
|
1068 |
static object LI17(V208,V209) |
static object LI17(V214,V215) |
1069 |
|
|
1070 |
register object V208;register object V209; |
register object V214;register object V215; |
1071 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
1072 |
goto TTL; |
goto TTL; |
1073 |
TTL:; |
TTL:; |
1074 |
goto T427; |
goto T427; |
1075 |
T427:; |
T427:; |
1076 |
if(((V208))!=Cnil){ |
if(((V214))!=Cnil){ |
1077 |
goto T430;} |
goto T430;} |
1078 |
if(((V209))!=Cnil){ |
if(((V215))!=Cnil){ |
1079 |
goto T430;} |
goto T430;} |
1080 |
{object V210 = Ct; |
{object V216 = Ct; |
1081 |
VMR16(V210)} |
VMR16(V216)} |
1082 |
goto T430; |
goto T430; |
1083 |
T430:; |
T430:; |
1084 |
if(!(((V208))==(VV[96]))){ |
if(!(((V214))==(VV[96]))){ |
1085 |
goto T435;} |
goto T435;} |
1086 |
{object V211 = Ct; |
{object V217 = Ct; |
1087 |
VMR16(V211)} |
VMR16(V217)} |
1088 |
goto T435; |
goto T435; |
1089 |
T435:; |
T435:; |
1090 |
if(((V208))==Cnil){ |
if(((V214))==Cnil){ |
1091 |
goto T438;} |
goto T438;} |
1092 |
if(((V209))==Cnil){ |
if(((V215))==Cnil){ |
1093 |
goto T438;} |
goto T438;} |
1094 |
if(!((CMPcar((V208)))==(CMPcar((V209))))){ |
if(!((CMPcar((V214)))==(CMPcar((V215))))){ |
1095 |
goto T438;} |
goto T438;} |
1096 |
{register object V212; |
{register object V218; |
1097 |
V212= CMPcar((V208)); |
V218= CMPcar((V214)); |
1098 |
V208= CMPcdr((V208));} |
V214= CMPcdr((V214));} |
1099 |
{register object V213; |
{register object V219; |
1100 |
V213= CMPcar((V209)); |
V219= CMPcar((V215)); |
1101 |
V209= CMPcdr((V209)); |
V215= CMPcdr((V215)); |
1102 |
goto T428;} |
goto T428;} |
1103 |
goto T438; |
goto T438; |
1104 |
T438:; |
T438:; |
1105 |
{object V214 = Cnil; |
{object V220 = Cnil; |
1106 |
VMR16(V214)} |
VMR16(V220)} |
1107 |
goto T428; |
goto T428; |
1108 |
T428:; |
T428:; |
1109 |
goto T427; |
goto T427; |
1111 |
} |
} |
1112 |
/* local entry for function MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION */ |
/* local entry for function MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION */ |
1113 |
|
|
1114 |
static object LI18(V216) |
static object LI18(V222) |
1115 |
|
|
1116 |
register object V216; |
register object V222; |
1117 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
1118 |
goto TTL; |
goto TTL; |
1119 |
TTL:; |
TTL:; |
1120 |
if((CMPcdr((V216)))==Cnil){ |
if((CMPcdr((V222)))==Cnil){ |
1121 |
goto T453;} |
goto T453;} |
1122 |
base[0]= Cnil; |
base[0]= Cnil; |
1123 |
base[1]= VV[100]; |
base[1]= VV[100]; |
1124 |
base[3]= (V216); |
base[3]= (V222); |
1125 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1126 |
Lbutlast(); |
Lbutlast(); |
1127 |
vs_top=sup; |
vs_top=sup; |
1128 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
1129 |
base[4]= (V216); |
base[4]= (V222); |
1130 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1131 |
Llast(); |
Llast(); |
1132 |
vs_top=sup; |
vs_top=sup; |
1133 |
V217= vs_base[0]; |
V223= vs_base[0]; |
1134 |
base[3]= CMPcar(V217); |
base[3]= CMPcar(V223); |
1135 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
1136 |
Lformat(); |
Lformat(); |
1137 |
vs_top=sup; |
vs_top=sup; |
1138 |
{object V218 = vs_base[0]; |
{object V224 = vs_base[0]; |
1139 |
VMR17(V218)} |
VMR17(V224)} |
1140 |
goto T453; |
goto T453; |
1141 |
T453:; |
T453:; |
1142 |
base[0]= Cnil; |
base[0]= Cnil; |
1143 |
base[1]= VV[101]; |
base[1]= VV[101]; |
1144 |
base[2]= CMPcar((V216)); |
base[2]= CMPcar((V222)); |
1145 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1146 |
Lformat(); |
Lformat(); |
1147 |
vs_top=sup; |
vs_top=sup; |
1148 |
{object V219 = vs_base[0]; |
{object V225 = vs_base[0]; |
1149 |
VMR17(V219)} |
VMR17(V225)} |
1150 |
base[0]=base[0]; |
base[0]=base[0]; |
1151 |
return Cnil; |
return Cnil; |
1152 |
} |
} |
1153 |
/* local entry for function DEAL-WITH-ARGUMENTS-OPTION */ |
/* local entry for function DEAL-WITH-ARGUMENTS-OPTION */ |
1154 |
|
|
1155 |
static object LI19(V222,V223) |
static object LI19(V228,V229) |
1156 |
|
|
1157 |
object V222;object V223; |
object V228;object V229; |
1158 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1159 |
goto TTL; |
goto TTL; |
1160 |
TTL:; |
TTL:; |
1161 |
{object V224; |
{object V230; |
1162 |
object V225; |
object V231; |
1163 |
{register object V226; |
{register object V232; |
1164 |
register object V227; |
register object V233; |
1165 |
V226= Cnil; |
V232= Cnil; |
1166 |
V227= Cnil; |
V233= Cnil; |
1167 |
{register object V228; |
{register object V234; |
1168 |
register object V229; |
register object V235; |
1169 |
V228= (V223); |
V234= (V229); |
1170 |
V229= CMPcar((V228)); |
V235= CMPcar((V234)); |
1171 |
goto T472; |
goto T472; |
1172 |
T472:; |
T472:; |
1173 |
if(!(((V228))==Cnil)){ |
if(!(((V234))==Cnil)){ |
1174 |
goto T473;} |
goto T473;} |
1175 |
goto T468; |
goto T468; |
1176 |
goto T473; |
goto T473; |
1177 |
T473:; |
T473:; |
1178 |
{register object x= (V229),V230= VV[102]; |
{register object x= (V235),V236= VV[102]; |
1179 |
while(V230!=Cnil) |
while(V236!=Cnil) |
1180 |
if(x==(V230->c.c_car)){ |
if(x==(V236->c.c_car)){ |
1181 |
goto T480; |
goto T480; |
1182 |
}else V230=V230->c.c_cdr; |
}else V236=V236->c.c_cdr; |
1183 |
goto T479;} |
goto T479;} |
1184 |
goto T480; |
goto T480; |
1185 |
T480:; |
T480:; |
1186 |
if(((V226))!=Cnil){ |
if(((V232))!=Cnil){ |
1187 |
goto T482;} |
goto T482;} |
1188 |
V227= make_cons(V229,Cnil); |
V233= make_cons(V235,Cnil); |
1189 |
V226= (V227); |
V232= (V233); |
1190 |
goto T477; |
goto T477; |
1191 |
goto T482; |
goto T482; |
1192 |
T482:; |
T482:; |
1193 |
V233= make_cons(V229,Cnil); |
V239= make_cons(V235,Cnil); |
1194 |
((V227))->c.c_cdr = /* INLINE-ARGS */V233; |
((V233))->c.c_cdr = /* INLINE-ARGS */V239; |
1195 |
V232= (V227); |
V238= (V233); |
1196 |
V227= CMPcdr(V232); |
V233= CMPcdr(V238); |
1197 |
goto T477; |
goto T477; |
1198 |
goto T479; |
goto T479; |
1199 |
T479:; |
T479:; |
1200 |
{object V234; |
{object V240; |
1201 |
vs_base=vs_top; |
vs_base=vs_top; |
1202 |
Lgensym(); |
Lgensym(); |
1203 |
vs_top=sup; |
vs_top=sup; |
1204 |
V234= vs_base[0]; |
V240= vs_base[0]; |
1205 |
if(((V226))!=Cnil){ |
if(((V232))!=Cnil){ |
1206 |
goto T490;} |
goto T490;} |
1207 |
V227= make_cons((V234),Cnil); |
V233= make_cons((V240),Cnil); |
1208 |
V226= (V227); |
V232= (V233); |
1209 |
goto T477; |
goto T477; |
1210 |
goto T490; |
goto T490; |
1211 |
T490:; |
T490:; |
1212 |
V236= make_cons((V234),Cnil); |
V242= make_cons((V240),Cnil); |
1213 |
((V227))->c.c_cdr = /* INLINE-ARGS */V236; |
((V233))->c.c_cdr = /* INLINE-ARGS */V242; |
1214 |
V235= (V227); |
V241= (V233); |
1215 |
V227= CMPcdr(V235);} |
V233= CMPcdr(V241);} |
1216 |
goto T477; |
goto T477; |
1217 |
T477:; |
T477:; |
1218 |
V228= CMPcdr((V228)); |
V234= CMPcdr((V234)); |
1219 |
V229= CMPcar((V228)); |
V235= CMPcar((V234)); |
1220 |
goto T472;} |
goto T472;} |
1221 |
goto T468; |
goto T468; |
1222 |
T468:; |
T468:; |
1223 |
V224= (V226);} |
V230= (V232);} |
1224 |
{object V237; |
{object V243; |
1225 |
register object V238; |
register object V244; |
1226 |
V237= Cnil; |
V243= Cnil; |
1227 |
V238= Cnil; |
V244= Cnil; |
1228 |
{register object V239; |
{register object V245; |
1229 |
register object V240; |
register object V246; |
1230 |
register object V241; |
register object V247; |
1231 |
object V242; |
object V248; |
1232 |
V239= (V223); |
V245= (V229); |
1233 |
V240= Cnil; |
V246= Cnil; |
1234 |
V241= (V224); |
V247= (V230); |
1235 |
V242= Cnil; |
V248= Cnil; |
1236 |
goto T510; |
goto T510; |
1237 |
T510:; |
T510:; |
1238 |
{object V243; |
{object V249; |
1239 |
if(!(((V239))==Cnil)){ |
if(!(((V245))==Cnil)){ |
1240 |
goto T516;} |
goto T516;} |
1241 |
goto T504; |
goto T504; |
1242 |
goto T516; |
goto T516; |
1243 |
T516:; |
T516:; |
1244 |
V243= CMPcar((V239)); |
V249= CMPcar((V245)); |
1245 |
V239= CMPcdr((V239)); |
V245= CMPcdr((V245)); |
1246 |
V240= (V243);} |
V246= (V249);} |
1247 |
{object V244; |
{object V250; |
1248 |
if(!(((V241))==Cnil)){ |
if(!(((V247))==Cnil)){ |
1249 |
goto T524;} |
goto T524;} |
1250 |
goto T504; |
goto T504; |
1251 |
goto T524; |
goto T524; |
1252 |
T524:; |
T524:; |
1253 |
V244= CMPcar((V241)); |
V250= CMPcar((V247)); |
1254 |
V241= CMPcdr((V241)); |
V247= CMPcdr((V247)); |
1255 |
V242= (V244);} |
V248= (V250);} |
1256 |
{register object x= (V240),V245= VV[102]; |
{register object x= (V246),V251= VV[102]; |
1257 |
while(V245!=Cnil) |
while(V251!=Cnil) |
1258 |
if(x==(V245->c.c_car)){ |
if(x==(V251->c.c_car)){ |
1259 |
goto T511; |
goto T511; |
1260 |
}else V245=V245->c.c_cdr;} |
}else V251=V251->c.c_cdr;} |
1261 |
{object V246; |
{object V252; |
1262 |
V246= list(2,(V240),list(2,VV[24],(V242))); |
V252= list(2,(V246),list(2,VV[24],(V248))); |
1263 |
if(((V237))!=Cnil){ |
if(((V243))!=Cnil){ |
1264 |
goto T532;} |
goto T532;} |
1265 |
V238= make_cons((V246),Cnil); |
V244= make_cons((V252),Cnil); |
1266 |
V237= (V238); |
V243= (V244); |
1267 |
goto T511; |
goto T511; |
1268 |
goto T532; |
goto T532; |
1269 |
T532:; |
T532:; |
1270 |
V248= make_cons((V246),Cnil); |
V254= make_cons((V252),Cnil); |
1271 |
((V238))->c.c_cdr = /* INLINE-ARGS */V248; |
((V244))->c.c_cdr = /* INLINE-ARGS */V254; |
1272 |
V247= (V238); |
V253= (V244); |
1273 |
V238= CMPcdr(V247);} |
V244= CMPcdr(V253);} |
1274 |
goto T511; |
goto T511; |
1275 |
T511:; |
T511:; |
1276 |
goto T510;} |
goto T510;} |
1277 |
goto T504; |
goto T504; |
1278 |
T504:; |
T504:; |
1279 |
V225= (V237);} |
V231= (V243);} |
1280 |
{object V250; |
{object V256; |
1281 |
V250= append((V225),CMPcadr((V222))); |
V256= append((V231),CMPcadr((V228))); |
1282 |
(CMPcdr(V222))->c.c_car = (V250); |
(CMPcdr(V228))->c.c_car = (V256); |
1283 |
(void)(CMPcdr(V222));} |
(void)(CMPcdr(V228));} |
1284 |
{object V251; |
{object V257; |
1285 |
{register object x= VV[103],V252= (V224); |
{register object x= VV[103],V258= (V230); |
1286 |
while(V252!=Cnil) |
while(V258!=Cnil) |
1287 |
if(x==(V252->c.c_car)){ |
if(x==(V258->c.c_car)){ |
1288 |
V251= V252; |
V257= V258; |
1289 |
goto T543; |
goto T543; |
1290 |
}else V252=V252->c.c_cdr; |
}else V258=V258->c.c_cdr; |
1291 |
V251= Cnil;} |
V257= Cnil;} |
1292 |
goto T543; |
goto T543; |
1293 |
T543:; |
T543:; |
1294 |
if(((V251))==Cnil){ |
if(((V257))==Cnil){ |
1295 |
goto T545;} |
goto T545;} |
1296 |
goto T542; |
goto T542; |
1297 |
goto T545; |
goto T545; |
1298 |
T545:; |
T545:; |
1299 |
{object V253; |
{object V259; |
1300 |
{register object x= VV[104],V254= (V224); |
{register object x= VV[104],V260= (V230); |
1301 |
while(V254!=Cnil) |
while(V260!=Cnil) |
1302 |
if(x==(V254->c.c_car)){ |
if(x==(V260->c.c_car)){ |
1303 |
V253= V254; |
V259= V260; |
1304 |
goto T547; |
goto T547; |
1305 |
}else V254=V254->c.c_cdr; |
}else V260=V260->c.c_cdr; |
1306 |
V253= Cnil;} |
V259= Cnil;} |
1307 |
goto T547; |
goto T547; |
1308 |
T547:; |
T547:; |
1309 |
if(((V253))==Cnil){ |
if(((V259))==Cnil){ |
1310 |
goto T549;} |
goto T549;} |
1311 |
goto T542; |
goto T542; |
1312 |
goto T549; |
goto T549; |
1313 |
T549:; |
T549:; |
1314 |
{register object x= VV[105],V255= (V224); |
{register object x= VV[105],V261= (V230); |
1315 |
while(V255!=Cnil) |
while(V261!=Cnil) |
1316 |
if(x==(V255->c.c_car)){ |
if(x==(V261->c.c_car)){ |
1317 |
goto T553; |
goto T553; |
1318 |
}else V255=V255->c.c_cdr; |
}else V261=V261->c.c_cdr; |
1319 |
goto T552;} |
goto T552;} |
1320 |
goto T553; |
goto T553; |
1321 |
T553:; |
T553:; |
1322 |
V224= append((V224),VV[106]); |
V230= append((V230),VV[106]); |
1323 |
goto T542; |
goto T542; |
1324 |
goto T552; |
goto T552; |
1325 |
T552:; |
T552:; |
1326 |
V224= append((V224),VV[107]);}} |
V230= append((V230),VV[107]);}} |
1327 |
goto T542; |
goto T542; |
1328 |
T542:; |
T542:; |
1329 |
V256= list(2,VV[108],(V222)); |
V262= list(2,VV[108],(V228)); |
1330 |
V257= make_cons(/* INLINE-ARGS */V256,Cnil); |
V263= make_cons(/* INLINE-ARGS */V262,Cnil); |
1331 |
V258= list(2,VV[24],(V224)); |
V264= list(2,VV[24],(V230)); |
1332 |
{register object x= VV[113],V260= (V224); |
{register object x= VV[113],V266= (V230); |
1333 |
while(V260!=Cnil) |
while(V266!=Cnil) |
1334 |
if(x==(V260->c.c_car)){ |
if(x==(V266->c.c_car)){ |
1335 |
goto T559; |
goto T559; |
1336 |
}else V260=V260->c.c_cdr; |
}else V266=V266->c.c_cdr; |
1337 |
goto T558;} |
goto T558;} |
1338 |
goto T559; |
goto T559; |
1339 |
T559:; |
T559:; |
1340 |
V259= VV[114]; |
V265= VV[114]; |
1341 |
goto T556; |
goto T556; |
1342 |
goto T558; |
goto T558; |
1343 |
T558:; |
T558:; |
1344 |
V259= Cnil; |
V265= Cnil; |
1345 |
goto T556; |
goto T556; |
1346 |
T556:; |
T556:; |
1347 |
{object V261 = list(3,VV[85],/* INLINE-ARGS */V257,list(4,VV[109],VV[110],list(3,VV[109],VV[111],list(5,VV[109],VV[112],/* INLINE-ARGS */V258,V259,VV[108])),VV[115])); |
{object V267 = list(3,VV[85],/* INLINE-ARGS */V263,list(4,VV[109],VV[110],list(3,VV[109],VV[111],list(5,VV[109],VV[112],/* INLINE-ARGS */V264,V265,VV[108])),VV[115])); |
1348 |
VMR18(V261)}} |
VMR18(V267)}} |
1349 |
base[0]=base[0]; |
base[0]=base[0]; |
1350 |
return Cnil; |
return Cnil; |
1351 |
} |
} |
1356 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1357 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
1358 |
vs_check; |
vs_check; |
1359 |
{object V262; |
{object V268; |
1360 |
object V263; |
object V269; |
1361 |
object V264; |
object V270; |
1362 |
check_arg(3); |
check_arg(3); |
1363 |
V262=(base[0]); |
V268=(base[0]); |
1364 |
V263=(base[1]); |
V269=(base[1]); |
1365 |
V264=(base[2]); |
V270=(base[2]); |
1366 |
vs_top=sup; |
vs_top=sup; |
1367 |
base[3]= VV[49]; |
base[3]= VV[49]; |
1368 |
base[4]= VV[38]; |
base[4]= VV[38]; |
1369 |
base[5]= (V263); |
base[5]= (V269); |
1370 |
base[6]= VV[17]; |
base[6]= VV[17]; |
1371 |
base[7]= (base0[0]->c.c_car); |
base[7]= (base0[0]->c.c_car); |
1372 |
base[8]= VV[39]; |
base[8]= VV[39]; |
1373 |
base[9]= (V264); |
base[9]= (V270); |
1374 |
vs_top=(vs_base=base+3)+7; |
vs_top=(vs_base=base+3)+7; |
1375 |
(void) (*Lnk126)(Lclptr126); |
(void) (*Lnk126)(Lclptr126); |
1376 |
return; |
return; |
1383 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1384 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
1385 |
vs_check; |
vs_check; |
1386 |
{register object V265; |
{register object V271; |
1387 |
object V266; |
object V272; |
1388 |
check_arg(2); |
check_arg(2); |
1389 |
V265=(base[0]); |
V271=(base[0]); |
1390 |
V266=(base[1]); |
V272=(base[1]); |
1391 |
vs_top=sup; |
vs_top=sup; |
1392 |
goto TTL; |
goto TTL; |
1393 |
TTL:; |
TTL:; |
1394 |
base[2]= (V265); |
base[2]= (V271); |
1395 |
base[3]= VV[44]; |
base[3]= VV[44]; |
1396 |
base[4]= (V265); |
base[4]= (V271); |
1397 |
base[5]= (V266); |
base[5]= (V272); |
1398 |
base[6]= base0[0]; |
base[6]= base0[0]; |
1399 |
base[7]= base0[0]; |
base[7]= base0[0]; |
1400 |
vs_top=(vs_base=base+2)+6; |
vs_top=(vs_base=base+2)+6; |
1409 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1410 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM21; VC21 |
1411 |
vs_check; |
vs_check; |
1412 |
{object V267; |
{object V273; |
1413 |
object V268; |
object V274; |
1414 |
object V269; |
object V275; |
1415 |
check_arg(3); |
check_arg(3); |
1416 |
V267=(base[0]); |
V273=(base[0]); |
1417 |
V268=(base[1]); |
V274=(base[1]); |
1418 |
V269=(base[2]); |
V275=(base[2]); |
1419 |
vs_top=sup; |
vs_top=sup; |
1420 |
base[3]= (V268); |
base[3]= (V274); |
1421 |
base[4]= (V269); |
base[4]= (V275); |
1422 |
base[5]= (base0[3]->c.c_car); |
base[5]= (base0[3]->c.c_car); |
1423 |
base[6]= (base0[2]->c.c_car); |
base[6]= (base0[2]->c.c_car); |
1424 |
base[7]= (base0[0]->c.c_car); |
base[7]= (base0[0]->c.c_car); |