20 |
vs_top=sup; |
vs_top=sup; |
21 |
goto TTL; |
goto TTL; |
22 |
TTL:; |
TTL:; |
23 |
base[4]=VV[21]->s.s_gfdef; |
base[4]=VV[24]->s.s_gfdef; |
24 |
base[5]= (VFUN_NARGS=1,(*(LnkLI22))((V3))); |
base[5]= (VFUN_NARGS=1,(*(LnkLI25))((V3))); |
25 |
{object V7; |
{object V7; |
26 |
V7= V4; |
V7= V4; |
27 |
vs_top=base+6; |
vs_top=base+6; |
28 |
while(V7!=Cnil) |
while(V7!=Cnil) |
29 |
{vs_push((V7)->c.c_car);V7=(V7)->c.c_cdr;} |
{vs_push((V7)->c.c_car);V7=(V7)->c.c_cdr;} |
30 |
vs_base=base+5;} |
vs_base=base+5;} |
31 |
(void) (*Lnk21)(Lclptr21); |
(void) (*Lnk24)(Lclptr24); |
32 |
return; |
return; |
33 |
} |
} |
34 |
} |
} |
44 |
V17= V15; |
V17= V15; |
45 |
base[0]= (V14); |
base[0]= (V14); |
46 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
47 |
(void) (*Lnk23)(Lclptr23); |
(void) (*Lnk26)(Lclptr26); |
48 |
vs_top=sup; |
vs_top=sup; |
49 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
50 |
goto T10;} |
goto T8;} |
51 |
base[0]= (V14); |
base[0]= (V14); |
52 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
53 |
(void) (*Lnk24)(Lclptr24); |
(void) (*Lnk27)(Lclptr27); |
54 |
vs_top=sup; |
vs_top=sup; |
55 |
goto T10; |
goto T8; |
56 |
T10:; |
T8:; |
57 |
base[0]= (V14); |
base[0]= (V14); |
58 |
base[1]= (V17); |
base[1]= (V17); |
59 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
60 |
(void) (*Lnk25)(Lclptr25); |
(void) (*Lnk28)(Lclptr28); |
61 |
vs_top=sup; |
vs_top=sup; |
62 |
V17= vs_base[0]; |
V17= vs_base[0]; |
63 |
{object V18; |
{object V18; |
66 |
{object V20; |
{object V20; |
67 |
V20= STREF(object,(V18),8); |
V20= STREF(object,(V18),8); |
68 |
if(!(((V20))==(VV[1]))){ |
if(!(((V20))==(VV[1]))){ |
69 |
goto T24;} |
goto T22;} |
70 |
(void)((*(LnkLI26))((V18),VV[2])); |
(void)((*(LnkLI29))((V18),VV[2])); |
71 |
V19= STREF(object,(V18),8); |
V19= STREF(object,(V18),8); |
72 |
goto T21; |
goto T19; |
73 |
goto T24; |
goto T22; |
74 |
T24:; |
T22:; |
75 |
V19= (V20);} |
V19= (V20);} |
76 |
goto T21; |
goto T19; |
77 |
T21:; |
T19:; |
78 |
if(!(type_of((V19))==t_cons)){ |
if(!(type_of((V19))==t_cons)){ |
79 |
goto T19;} |
goto T17;} |
80 |
if(!((CMPcar((V19)))==(VV[3]))){ |
if(!((CMPcar((V19)))==(VV[3]))){ |
81 |
goto T19;} |
goto T17;} |
82 |
base[2]= VV[4]; |
base[2]= VV[4]; |
83 |
base[3]= CMPcdr((V19)); |
base[3]= VV[5]; |
84 |
base[5]= (V14); |
base[4]= CMPcdr((V19)); |
85 |
vs_top=(vs_base=base+5)+1; |
base[6]= (V14); |
86 |
(void) (*Lnk27)(Lclptr27); |
vs_top=(vs_base=base+6)+1; |
87 |
|
(void) (*Lnk30)(Lclptr30); |
88 |
vs_top=sup; |
vs_top=sup; |
89 |
base[4]= vs_base[0]; |
base[5]= vs_base[0]; |
90 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+4; |
91 |
Lerror(); |
(void) (*Lnk31)(); |
92 |
vs_top=sup;} |
vs_top=sup;} |
93 |
goto T19; |
goto T17; |
94 |
T19:; |
T17:; |
95 |
{object V21; |
{object V21; |
96 |
base[0]=VV[28]->s.s_gfdef; |
base[0]=VV[32]->s.s_gfdef; |
97 |
base[1]= (V14); |
base[1]= (V14); |
98 |
{object V22; |
{object V22; |
99 |
V22= (V17); |
V22= (V17); |
101 |
while(V22!=Cnil) |
while(V22!=Cnil) |
102 |
{vs_push((V22)->c.c_car);V22=(V22)->c.c_cdr;} |
{vs_push((V22)->c.c_car);V22=(V22)->c.c_cdr;} |
103 |
vs_base=base+1;} |
vs_base=base+1;} |
104 |
(void) (*Lnk28)(Lclptr28); |
(void) (*Lnk32)(Lclptr32); |
105 |
vs_top=sup; |
vs_top=sup; |
106 |
V21= vs_base[0]; |
V21= vs_base[0]; |
107 |
base[0]=VV[29]->s.s_gfdef; |
base[0]=VV[33]->s.s_gfdef; |
108 |
base[1]= (V21); |
base[1]= (V21); |
109 |
{object V23; |
{object V23; |
110 |
V23= (V17); |
V23= (V17); |
112 |
while(V23!=Cnil) |
while(V23!=Cnil) |
113 |
{vs_push((V23)->c.c_car);V23=(V23)->c.c_cdr;} |
{vs_push((V23)->c.c_car);V23=(V23)->c.c_cdr;} |
114 |
vs_base=base+1;} |
vs_base=base+1;} |
115 |
(void) (*Lnk29)(Lclptr29); |
(void) (*Lnk33)(Lclptr33); |
116 |
vs_top=sup; |
vs_top=sup; |
117 |
{object V24 = (V21); |
{object V24 = (V21); |
118 |
VMR2(V24)}}} |
VMR2(V24)}}} |
142 |
V32= (VFUN_NARGS=2,(*(LnkLI0))((V27),(V28))); |
V32= (VFUN_NARGS=2,(*(LnkLI0))((V27),(V28))); |
143 |
V31= STREF(object,/* INLINE-ARGS */V32,28); |
V31= STREF(object,/* INLINE-ARGS */V32,28); |
144 |
if(!(((V31))==(VV[1]))){ |
if(!(((V31))==(VV[1]))){ |
145 |
goto T47;} |
goto T45;} |
146 |
V33= (VFUN_NARGS=2,(*(LnkLI0))((V27),(V28))); |
V33= (VFUN_NARGS=2,(*(LnkLI0))((V27),(V28))); |
147 |
(void)((*(LnkLI26))(/* INLINE-ARGS */V33,VV[5])); |
(void)((*(LnkLI29))(/* INLINE-ARGS */V33,VV[6])); |
148 |
V34= (VFUN_NARGS=2,(*(LnkLI0))((V27),(V28))); |
V34= (VFUN_NARGS=2,(*(LnkLI0))((V27),(V28))); |
149 |
V30= STREF(object,/* INLINE-ARGS */V34,28); |
V30= STREF(object,/* INLINE-ARGS */V34,28); |
150 |
goto T44; |
goto T42; |
151 |
goto T47; |
goto T45; |
152 |
T47:; |
T45:; |
153 |
V30= (V31);} |
V30= (V31);} |
154 |
goto T44; |
goto T42; |
155 |
T44:; |
T42:; |
156 |
if(!(type_of((V30))==t_cons)){ |
if(!(type_of((V30))==t_cons)){ |
157 |
goto T51;} |
goto T49;} |
158 |
if(!((CMPcar((V30)))==(VV[6]))){ |
if(!((CMPcar((V30)))==(VV[7]))){ |
159 |
goto T51;} |
goto T49;} |
160 |
base[4]= (*(LnkLI30))(CMPcadr((V30)),CMPcaddr((V30)),Cnil,(V28)); |
base[4]= (*(LnkLI34))(CMPcadr((V30)),CMPcaddr((V30)),Cnil,(V28)); |
161 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
162 |
return; |
return; |
163 |
goto T51; |
goto T49; |
164 |
T51:; |
T49:; |
165 |
base[4]= Cnil; |
base[4]= Cnil; |
166 |
base[5]= (V28); |
base[5]= (V28); |
167 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
190 |
vs_top=sup; |
vs_top=sup; |
191 |
goto TTL; |
goto TTL; |
192 |
TTL:; |
TTL:; |
193 |
base[4]=VV[11]->s.s_gfdef; |
base[4]=VV[12]->s.s_gfdef; |
194 |
base[5]= (V37); |
base[5]= (V37); |
195 |
base[6]= Ct; |
base[6]= Ct; |
196 |
{object V41; |
{object V41; |
199 |
while(V41!=Cnil) |
while(V41!=Cnil) |
200 |
{vs_push((V41)->c.c_car);V41=(V41)->c.c_cdr;} |
{vs_push((V41)->c.c_car);V41=(V41)->c.c_cdr;} |
201 |
vs_base=base+5;} |
vs_base=base+5;} |
202 |
(void) (*Lnk11)(Lclptr11); |
(void) (*Lnk12)(Lclptr12); |
203 |
return; |
return; |
204 |
} |
} |
205 |
} |
} |
214 |
{object V52; |
{object V52; |
215 |
object V53; |
object V53; |
216 |
object V54; |
object V54; |
217 |
V52= (*(LnkLI31))((V48)); |
V52= (*(LnkLI35))((V48)); |
218 |
V53= (VFUN_NARGS=2,(*(LnkLI0))((V52),V49)); |
V53= (VFUN_NARGS=2,(*(LnkLI0))((V52),V49)); |
219 |
{object V55; |
{object V55; |
220 |
V55= STREF(object,(V53),12); |
V55= STREF(object,(V53),12); |
221 |
if(!(((V55))==(VV[1]))){ |
if(!(((V55))==(VV[1]))){ |
222 |
goto T72;} |
goto T68;} |
223 |
(void)((*(LnkLI26))((V53),VV[7])); |
(void)((*(LnkLI29))((V53),VV[8])); |
224 |
V54= STREF(object,(V53),12); |
V54= STREF(object,(V53),12); |
225 |
goto T69; |
goto T65; |
226 |
goto T72; |
goto T68; |
227 |
T72:; |
T68:; |
228 |
V54= (V55);} |
V54= (V55);} |
229 |
goto T69; |
goto T65; |
230 |
T69:; |
T65:; |
231 |
if(!(type_of((V54))==t_cons)){ |
if(!(type_of((V54))==t_cons)){ |
232 |
goto T66;} |
goto T62;} |
233 |
if(!((CMPcar((V54)))==(VV[3]))){ |
if(!((CMPcar((V54)))==(VV[3]))){ |
234 |
goto T66;} |
goto T62;} |
235 |
base[3]= VV[8]; |
base[3]= VV[4]; |
236 |
base[4]= CMPcdr((V54)); |
base[4]= VV[9]; |
237 |
base[6]= (V52); |
base[5]= CMPcdr((V54)); |
238 |
vs_top=(vs_base=base+6)+1; |
base[7]= (V52); |
239 |
(void) (*Lnk27)(Lclptr27); |
vs_top=(vs_base=base+7)+1; |
240 |
|
(void) (*Lnk30)(Lclptr30); |
241 |
vs_top=sup; |
vs_top=sup; |
242 |
base[5]= vs_base[0]; |
base[6]= vs_base[0]; |
243 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+4; |
244 |
Lerror(); |
(void) (*Lnk31)(); |
245 |
vs_top=sup;} |
vs_top=sup;} |
246 |
goto T66; |
goto T62; |
247 |
T66:; |
T62:; |
248 |
base[0]=VV[11]->s.s_gfdef; |
base[0]=VV[12]->s.s_gfdef; |
249 |
base[1]= (V48); |
base[1]= (V48); |
250 |
base[2]= Cnil; |
base[2]= Cnil; |
251 |
{object V56; |
{object V56; |
254 |
while(V56!=Cnil) |
while(V56!=Cnil) |
255 |
{vs_push((V56)->c.c_car);V56=(V56)->c.c_cdr;} |
{vs_push((V56)->c.c_car);V56=(V56)->c.c_cdr;} |
256 |
vs_base=base+1;} |
vs_base=base+1;} |
257 |
(void) (*Lnk11)(Lclptr11); |
(void) (*Lnk12)(Lclptr12); |
258 |
vs_top=sup; |
vs_top=sup; |
259 |
{object V57 = (V48); |
{object V57 = (V48); |
260 |
VMR5(V57)} |
VMR5(V57)} |
284 |
{register object V65; |
{register object V65; |
285 |
object V66; |
object V66; |
286 |
register object V67; |
register object V67; |
287 |
base[5]= (*(LnkLI31))((V61)); |
base[5]= (*(LnkLI35))((V61)); |
288 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
289 |
(void) (*Lnk32)(Lclptr32); |
(void) (*Lnk36)(Lclptr36); |
290 |
vs_top=sup; |
vs_top=sup; |
291 |
V66= vs_base[0]; |
V66= vs_base[0]; |
292 |
base[6]=VV[33]->s.s_gfdef; |
base[6]=VV[37]->s.s_gfdef; |
293 |
base[7]= (*(LnkLI31))((V60)); |
base[7]= (*(LnkLI35))((V60)); |
294 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
295 |
(void) (*Lnk32)(Lclptr32); |
(void) (*Lnk36)(Lclptr36); |
296 |
vs_top=sup; |
vs_top=sup; |
297 |
V70= vs_base[0]; |
V70= vs_base[0]; |
298 |
{object V68; |
{object V68; |
299 |
object V69= V70; |
object V69= V70; |
300 |
if(V69==Cnil){ |
if(V69==Cnil){ |
301 |
V67= Cnil; |
V67= Cnil; |
302 |
goto T93;} |
goto T88;} |
303 |
base[5]=V68=MMcons(Cnil,Cnil); |
base[5]=V68=MMcons(Cnil,Cnil); |
304 |
goto T94; |
goto T89; |
305 |
T94:; |
T89:; |
306 |
base[7]= (V69->c.c_car); |
base[7]= (V69->c.c_car); |
307 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
308 |
(void) (*Lnk33)(Lclptr33); |
(void) (*Lnk37)(Lclptr37); |
309 |
vs_top=sup; |
vs_top=sup; |
310 |
(V68->c.c_car)= vs_base[0]; |
(V68->c.c_car)= vs_base[0]; |
311 |
if((V69=MMcdr(V69))==Cnil){ |
if((V69=MMcdr(V69))==Cnil){ |
312 |
V67= base[5]; |
V67= base[5]; |
313 |
goto T93;} |
goto T88;} |
314 |
V68=MMcdr(V68)=MMcons(Cnil,Cnil); |
V68=MMcdr(V68)=MMcons(Cnil,Cnil); |
315 |
goto T94;} |
goto T89;} |
316 |
goto T93; |
goto T88; |
317 |
T93:; |
T88:; |
318 |
V65= Cnil; |
V65= Cnil; |
319 |
{register object V71; |
{register object V71; |
320 |
register object V72; |
register object V72; |
321 |
V71= (V66); |
V71= (V66); |
322 |
V72= CMPcar((V71)); |
V72= CMPcar((V71)); |
323 |
goto T103; |
goto T98; |
324 |
T103:; |
T98:; |
325 |
if(!(((V71))==Cnil)){ |
if(!(((V71))==Cnil)){ |
326 |
goto T104;} |
goto T99;} |
327 |
|
goto T94; |
328 |
goto T99; |
goto T99; |
329 |
goto T104; |
T99:; |
|
T104:; |
|
330 |
base[6]= (V72); |
base[6]= (V72); |
331 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
332 |
(void) (*Lnk33)(Lclptr33); |
(void) (*Lnk37)(Lclptr37); |
333 |
vs_top=sup; |
vs_top=sup; |
334 |
V74= vs_base[0]; |
V74= vs_base[0]; |
335 |
V75 = (V67); |
{register object x= V74,V73= (V67); |
|
{register object x= V74,V73= V75; |
|
336 |
while(V73!=Cnil) |
while(V73!=Cnil) |
337 |
if(x==(V73->c.c_car)){ |
if(x==(V73->c.c_car)){ |
338 |
goto T108; |
goto T103; |
339 |
}else V73=V73->c.c_cdr;} |
}else V73=V73->c.c_cdr;} |
340 |
base[6]= (V72); |
base[6]= (V72); |
341 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
342 |
(void) (*Lnk34)(Lclptr34); |
(void) (*Lnk38)(Lclptr38); |
343 |
vs_top=sup; |
vs_top=sup; |
344 |
V76= vs_base[0]; |
V75= vs_base[0]; |
345 |
if(!((V76)==(VV[9]))){ |
if(!((V75)==(VV[10]))){ |
346 |
goto T108;} |
goto T103;} |
347 |
{register object V77; |
{register object V76; |
348 |
base[7]= (V72); |
base[7]= (V72); |
349 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
350 |
(void) (*Lnk33)(Lclptr33); |
(void) (*Lnk37)(Lclptr37); |
351 |
vs_top=sup; |
vs_top=sup; |
352 |
V77= vs_base[0]; |
V76= vs_base[0]; |
353 |
V65= make_cons((V77),(V65));} |
V65= make_cons((V76),(V65));} |
354 |
goto T108; |
goto T103; |
355 |
T108:; |
T103:; |
356 |
V71= CMPcdr((V71)); |
V71= CMPcdr((V71)); |
357 |
V72= CMPcar((V71)); |
V72= CMPcar((V71)); |
358 |
goto T103;} |
goto T98;} |
359 |
goto T99; |
goto T94; |
360 |
T99:; |
T94:; |
361 |
V78= (*(LnkLI31))((V61)); |
V77= (*(LnkLI35))((V61)); |
362 |
V79 = V62; |
V78= listA(4,VV[11],(V60),(V61),V62); |
363 |
V80= listA(4,VV[10],(V60),(V61),V62); |
V79= list(2,/* INLINE-ARGS */V78,listA(4,VV[12],(V61),(V65),V62)); |
364 |
V81= list(2,/* INLINE-ARGS */V80,listA(4,VV[11],(V61),(V65),V62)); |
(void)((VFUN_NARGS=3,(*(LnkLI39))(/* INLINE-ARGS */V77,V62,/* INLINE-ARGS */V79))); |
365 |
(void)((VFUN_NARGS=3,(*(LnkLI35))(/* INLINE-ARGS */V78,V79,/* INLINE-ARGS */V81))); |
base[5]=VV[12]->s.s_gfdef; |
|
base[5]=VV[11]->s.s_gfdef; |
|
366 |
base[6]= (V61); |
base[6]= (V61); |
367 |
base[7]= (V65); |
base[7]= (V65); |
368 |
{object V82; |
{object V80; |
369 |
V82= V62; |
V80= V62; |
370 |
vs_top=base+8; |
vs_top=base+8; |
371 |
while(V82!=Cnil) |
while(V80!=Cnil) |
372 |
{vs_push((V82)->c.c_car);V82=(V82)->c.c_cdr;} |
{vs_push((V80)->c.c_car);V80=(V80)->c.c_cdr;} |
373 |
vs_base=base+6;} |
vs_base=base+6;} |
374 |
(void) (*Lnk11)(Lclptr11); |
(void) (*Lnk12)(Lclptr12); |
375 |
return;} |
return;} |
376 |
} |
} |
377 |
} |
} |
381 |
{register object *base=vs_base; |
{register object *base=vs_base; |
382 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM7; VC7 |
383 |
vs_check; |
vs_check; |
384 |
{object V83; |
{object V81; |
385 |
object V84; |
object V82; |
386 |
register object V85; |
register object V83; |
387 |
|
register object V84; |
388 |
|
object V85; |
389 |
object V86; |
object V86; |
390 |
object V87; |
object V87; |
|
object V88; |
|
|
object V89; |
|
391 |
check_arg(7); |
check_arg(7); |
392 |
V83=(base[0]); |
V81=(base[0]); |
393 |
V84=(base[1]); |
V82=(base[1]); |
394 |
V85=(base[2]); |
V83=(base[2]); |
395 |
V86=(base[3]); |
V84=(base[3]); |
396 |
V87=(base[4]); |
V85=(base[4]); |
397 |
V88=(base[5]); |
V86=(base[5]); |
398 |
V89=(base[6]); |
V87=(base[6]); |
399 |
vs_top=sup; |
vs_top=sup; |
400 |
goto TTL; |
goto TTL; |
401 |
TTL:; |
TTL:; |
402 |
{register object V91; |
{register object V89; |
403 |
V91= V89; |
V89= V87; |
404 |
V92= (*(LnkLI31))((V85)); |
V90= (*(LnkLI35))((V83)); |
405 |
V93 = (V91); |
V91= listA(6,VV[13],(V83),(V84),(V85),(V86),(V89)); |
406 |
V94= listA(6,VV[12],(V85),(V86),(V87),(V88),(V91)); |
V92= list(2,/* INLINE-ARGS */V91,listA(4,VV[12],(V83),(V84),(V89))); |
407 |
V95= list(2,/* INLINE-ARGS */V94,listA(4,VV[11],(V85),(V86),(V91))); |
(void)((VFUN_NARGS=3,(*(LnkLI39))(/* INLINE-ARGS */V90,(V89),/* INLINE-ARGS */V92))); |
408 |
(void)((VFUN_NARGS=3,(*(LnkLI35))(/* INLINE-ARGS */V92,V93,/* INLINE-ARGS */V95))); |
base[7]=VV[12]->s.s_gfdef; |
409 |
base[7]=VV[11]->s.s_gfdef; |
base[8]= (V83); |
410 |
base[8]= (V85); |
base[9]= (V84); |
411 |
base[9]= (V86); |
{object V93; |
412 |
{object V96; |
V93= (V89); |
|
V96= (V91); |
|
413 |
vs_top=base+10; |
vs_top=base+10; |
414 |
while(V96!=Cnil) |
while(V93!=Cnil) |
415 |
{vs_push((V96)->c.c_car);V96=(V96)->c.c_cdr;} |
{vs_push((V93)->c.c_car);V93=(V93)->c.c_cdr;} |
416 |
vs_base=base+8;} |
vs_base=base+8;} |
417 |
(void) (*Lnk11)(Lclptr11); |
(void) (*Lnk12)(Lclptr12); |
418 |
return;} |
return;} |
419 |
} |
} |
420 |
} |
} |
421 |
/* function definition for (FAST-METHOD SHARED-INITIALIZE (SLOT-OBJECT T)) */ |
/* local entry for function (FAST-METHOD SHARED-INITIALIZE (SLOT-OBJECT T)) */ |
422 |
|
|
423 |
static void L8() |
static object LI8(V99,V100,V101,V102,V103) |
424 |
{register object *base=vs_base; |
|
425 |
register object *sup=base+VM8; VC8 |
object V99;object V100;register object V101;register object V102;object V103; |
426 |
vs_check; |
{ VMB8 VMS8 VMV8 |
|
{object V97; |
|
|
object V98; |
|
|
register object V99; |
|
|
register object V100; |
|
|
object V101; |
|
|
check_arg(5); |
|
|
V97=(base[0]); |
|
|
V98=(base[1]); |
|
|
V99=(base[2]); |
|
|
V100=(base[3]); |
|
|
V101=(base[4]); |
|
|
vs_top=sup; |
|
427 |
goto TTL; |
goto TTL; |
428 |
TTL:; |
TTL:; |
429 |
if(!(((V100))==(Ct))){ |
if(!(((V102))==(Ct))){ |
430 |
|
goto T133;} |
431 |
|
{register object V106; |
432 |
|
object V107; |
433 |
|
register object V108; |
434 |
|
V106= V103; |
435 |
|
V107= Cnil; |
436 |
|
V108= Cnil; |
437 |
|
goto T138; |
438 |
|
T138:; |
439 |
|
if(((V106))!=Cnil){ |
440 |
goto T140;} |
goto T140;} |
441 |
{object V104; |
goto T136; |
|
{object V105; |
|
|
V106= (*(LnkLI31))((V99)); |
|
|
V107 = V101; |
|
|
V108= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V106,V107)); |
|
|
V105= STREF(object,/* INLINE-ARGS */V108,32); |
|
|
if(!(((V105))==(VV[1]))){ |
|
|
goto T146;} |
|
|
V109= (*(LnkLI31))((V99)); |
|
|
V110 = V101; |
|
|
V111= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V109,V110)); |
|
|
(void)((*(LnkLI26))(/* INLINE-ARGS */V111,VV[13])); |
|
|
V112= (*(LnkLI31))((V99)); |
|
|
V113 = V101; |
|
|
V114= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V112,V113)); |
|
|
V104= STREF(object,/* INLINE-ARGS */V114,32); |
|
|
goto T143; |
|
|
goto T146; |
|
|
T146:; |
|
|
V104= (V105);} |
|
|
goto T143; |
|
|
T143:; |
|
|
if(!(type_of((V104))==t_cons)){ |
|
|
goto T150;} |
|
|
if(!((CMPcar((V104)))==(VV[6]))){ |
|
|
goto T150;} |
|
|
base[5]= (*(LnkLI30))(CMPcadr((V104)),CMPcaddr((V104)),(V99),V101); |
|
|
vs_top=(vs_base=base+5)+1; |
|
|
return; |
|
|
goto T150; |
|
|
T150:; |
|
|
base[5]= (V99); |
|
|
base[6]= V101; |
|
|
vs_top=(vs_base=base+5)+2; |
|
|
{object _funobj = (V104);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
|
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
|
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
|
|
else super_funcall_no_event(_funobj);} |
|
|
return;} |
|
442 |
goto T140; |
goto T140; |
443 |
T140:; |
T140:; |
444 |
if(!(((V100))==(Cnil))){ |
{object V109; |
445 |
goto T156;} |
V109= CMPcar((V106)); |
446 |
{object V115; |
V106= CMPcdr((V106)); |
447 |
{object V116; |
V107= (V109);} |
448 |
V117= (*(LnkLI31))((V99)); |
if(((V106))!=Cnil){ |
449 |
V118 = V101; |
goto T148;} |
450 |
V119= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V117,V118)); |
base[0]= VV[4]; |
451 |
V116= STREF(object,/* INLINE-ARGS */V119,36); |
base[1]= VV[14]; |
452 |
if(!(((V116))==(VV[1]))){ |
vs_top=(vs_base=base+0)+2; |
453 |
goto T162;} |
(void) (*Lnk31)(); |
|
V120= (*(LnkLI31))((V99)); |
|
|
V121 = V101; |
|
|
V122= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V120,V121)); |
|
|
(void)((*(LnkLI26))(/* INLINE-ARGS */V122,VV[14])); |
|
|
V123= (*(LnkLI31))((V99)); |
|
|
V124 = V101; |
|
|
V125= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V123,V124)); |
|
|
V115= STREF(object,/* INLINE-ARGS */V125,36); |
|
|
goto T159; |
|
|
goto T162; |
|
|
T162:; |
|
|
V115= (V116);} |
|
|
goto T159; |
|
|
T159:; |
|
|
if(!(type_of((V115))==t_cons)){ |
|
|
goto T166;} |
|
|
if(!((CMPcar((V115)))==(VV[6]))){ |
|
|
goto T166;} |
|
|
base[5]= (*(LnkLI30))(CMPcadr((V115)),CMPcaddr((V115)),(V99),V101); |
|
|
vs_top=(vs_base=base+5)+1; |
|
|
return; |
|
|
goto T166; |
|
|
T166:; |
|
|
base[5]= (V99); |
|
|
base[6]= V101; |
|
|
vs_top=(vs_base=base+5)+2; |
|
|
{object _funobj = (V115);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
|
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
|
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
|
|
else super_funcall_no_event(_funobj);} |
|
|
return;} |
|
|
goto T156; |
|
|
T156:; |
|
|
{object V126; |
|
|
object V127; |
|
|
object V128; |
|
|
V126= (*(LnkLI31))((V99)); |
|
|
base[8]= (V126); |
|
|
vs_top=(vs_base=base+8)+1; |
|
|
(void) (*Lnk32)(Lclptr32); |
|
454 |
vs_top=sup; |
vs_top=sup; |
455 |
V127= vs_base[0];{object V129; |
goto T148; |
456 |
if(type_of(V99)==t_structure){ |
T148:; |
457 |
goto T178;} |
if(type_of((V107))==t_symbol){ |
458 |
V129= Cnil; |
goto T153;} |
459 |
goto T177; |
base[0]= VV[4]; |
460 |
goto T178; |
base[1]= VV[15]; |
461 |
T178:; |
vs_top=(vs_base=base+0)+2; |
462 |
V129= (((V99)->str.str_def)==(VV[15])?Ct:Cnil); |
(void) (*Lnk31)(); |
463 |
goto T177; |
vs_top=sup; |
464 |
T177:; |
goto T153; |
465 |
if(V129==Cnil)goto T176; |
T153:; |
466 |
V128= V129; |
{object V110; |
467 |
goto T175; |
V110= CMPcar((V106)); |
468 |
goto T176; |
V106= CMPcdr((V106)); |
469 |
T176:;}{object V131; |
V108= (V110);} |
470 |
V131= (VV[16]->s.s_dbind); |
goto T138;} |
471 |
base[8]= small_fixnum(14); |
goto T136; |
472 |
base[9]= (V99); |
T136:; |
473 |
vs_top=(vs_base=base+8)+2; |
{object V111; |
474 |
(void) (*Lnk36)(); |
{object V112; |
475 |
vs_top=sup; |
V113= (*(LnkLI35))((V101)); |
476 |
V132= vs_base[0]; |
V114= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V113,V103)); |
477 |
V128= ((V131)==(CMPcar(V132))?Ct:Cnil);} |
V112= STREF(object,/* INLINE-ARGS */V114,32); |
478 |
goto T175; |
if(!(((V112))==(VV[1]))){ |
479 |
T175:; |
goto T168;} |
480 |
{object V133; |
V115= (*(LnkLI35))((V101)); |
481 |
register object V134; |
V116= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V115,V103)); |
482 |
V133= (V127); |
(void)((*(LnkLI29))(/* INLINE-ARGS */V116,VV[16])); |
483 |
V134= CMPcar((V133)); |
V117= (*(LnkLI35))((V101)); |
484 |
goto T187; |
V118= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V117,V103)); |
485 |
T187:; |
V111= STREF(object,/* INLINE-ARGS */V118,32); |
486 |
if(!(((V133))==Cnil)){ |
goto T165; |
487 |
goto T188;} |
goto T168; |
488 |
|
T168:; |
489 |
|
V111= (V112);} |
490 |
|
goto T165; |
491 |
|
T165:; |
492 |
|
if(!(type_of((V111))==t_cons)){ |
493 |
|
goto T172;} |
494 |
|
if(!((CMPcar((V111)))==(VV[7]))){ |
495 |
|
goto T172;} |
496 |
|
(void)((*(LnkLI34))(CMPcadr((V111)),CMPcaddr((V111)),(V101),V103)); |
497 |
|
goto T164; |
498 |
|
goto T172; |
499 |
|
T172:; |
500 |
|
(void)(( |
501 |
|
(type_of((V111)) == t_sfun ?(*(((V111))->sfn.sfn_self)): |
502 |
|
(fcall.argd=2,type_of((V111))==t_vfun) ? |
503 |
|
(*(((V111))->sfn.sfn_self)): |
504 |
|
(fcall.fun=((V111)),fcalln))((V101),V103)));} |
505 |
|
goto T164; |
506 |
|
T164:; |
507 |
|
{object V119 = (V101); |
508 |
|
VMR8(V119)} |
509 |
|
goto T133; |
510 |
|
T133:; |
511 |
|
if(!(((V102))==(Cnil))){ |
512 |
|
goto T176;} |
513 |
|
{register object V120; |
514 |
|
object V121; |
515 |
|
register object V122; |
516 |
|
V120= V103; |
517 |
|
V121= Cnil; |
518 |
|
V122= Cnil; |
519 |
|
goto T181; |
520 |
|
T181:; |
521 |
|
if(((V120))!=Cnil){ |
522 |
|
goto T183;} |
523 |
|
goto T179; |
524 |
goto T183; |
goto T183; |
525 |
goto T188; |
T183:; |
526 |
T188:; |
{object V123; |
527 |
{object V135; |
V123= CMPcar((V120)); |
528 |
|
V120= CMPcdr((V120)); |
529 |
|
V121= (V123);} |
530 |
|
if(((V120))!=Cnil){ |
531 |
|
goto T191;} |
532 |
|
base[0]= VV[4]; |
533 |
|
base[1]= VV[14]; |
534 |
|
vs_top=(vs_base=base+0)+2; |
535 |
|
(void) (*Lnk31)(); |
536 |
|
vs_top=sup; |
537 |
|
goto T191; |
538 |
|
T191:; |
539 |
|
if(type_of((V121))==t_symbol){ |
540 |
|
goto T196;} |
541 |
|
base[0]= VV[4]; |
542 |
|
base[1]= VV[15]; |
543 |
|
vs_top=(vs_base=base+0)+2; |
544 |
|
(void) (*Lnk31)(); |
545 |
|
vs_top=sup; |
546 |
|
goto T196; |
547 |
|
T196:; |
548 |
|
{object V124; |
549 |
|
V124= CMPcar((V120)); |
550 |
|
V120= CMPcdr((V120)); |
551 |
|
V122= (V124);} |
552 |
|
goto T181;} |
553 |
|
goto T179; |
554 |
|
T179:; |
555 |
|
{object V125; |
556 |
|
{object V126; |
557 |
|
V127= (*(LnkLI35))((V101)); |
558 |
|
V128= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V127,V103)); |
559 |
|
V126= STREF(object,/* INLINE-ARGS */V128,36); |
560 |
|
if(!(((V126))==(VV[1]))){ |
561 |
|
goto T211;} |
562 |
|
V129= (*(LnkLI35))((V101)); |
563 |
|
V130= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V129,V103)); |
564 |
|
(void)((*(LnkLI29))(/* INLINE-ARGS */V130,VV[17])); |
565 |
|
V131= (*(LnkLI35))((V101)); |
566 |
|
V132= (VFUN_NARGS=2,(*(LnkLI0))(/* INLINE-ARGS */V131,V103)); |
567 |
|
V125= STREF(object,/* INLINE-ARGS */V132,36); |
568 |
|
goto T208; |
569 |
|
goto T211; |
570 |
|
T211:; |
571 |
|
V125= (V126);} |
572 |
|
goto T208; |
573 |
|
T208:; |
574 |
|
if(!(type_of((V125))==t_cons)){ |
575 |
|
goto T215;} |
576 |
|
if(!((CMPcar((V125)))==(VV[7]))){ |
577 |
|
goto T215;} |
578 |
|
(void)((*(LnkLI34))(CMPcadr((V125)),CMPcaddr((V125)),(V101),V103)); |
579 |
|
goto T207; |
580 |
|
goto T215; |
581 |
|
T215:; |
582 |
|
(void)(( |
583 |
|
(type_of((V125)) == t_sfun ?(*(((V125))->sfn.sfn_self)): |
584 |
|
(fcall.argd=2,type_of((V125))==t_vfun) ? |
585 |
|
(*(((V125))->sfn.sfn_self)): |
586 |
|
(fcall.fun=((V125)),fcalln))((V101),V103)));} |
587 |
|
goto T207; |
588 |
|
T207:; |
589 |
|
{object V133 = (V101); |
590 |
|
VMR8(V133)} |
591 |
|
goto T176; |
592 |
|
T176:; |
593 |
|
{object V134; |
594 |
|
object V135; |
595 |
object V136; |
object V136; |
596 |
base[9]= (V134); |
V134= (*(LnkLI35))((V101)); |
597 |
vs_top=(vs_base=base+9)+1; |
base[3]= (V134); |
598 |
(void) (*Lnk33)(Lclptr33); |
vs_top=(vs_base=base+3)+1; |
599 |
|
(void) (*Lnk36)(Lclptr36); |
600 |
|
vs_top=sup; |
601 |
|
V135= vs_base[0];{object V137; |
602 |
|
if(type_of(V101)==t_structure){ |
603 |
|
goto T225;} |
604 |
|
V137= Cnil; |
605 |
|
goto T224; |
606 |
|
goto T225; |
607 |
|
T225:; |
608 |
|
V137= (((V101)->str.str_def)==(VV[20])?Ct:Cnil); |
609 |
|
goto T224; |
610 |
|
T224:; |
611 |
|
if(V137==Cnil)goto T223; |
612 |
|
V136= V137; |
613 |
|
goto T222; |
614 |
|
goto T223; |
615 |
|
T223:;}{object V139; |
616 |
|
V139= (VV[19]->s.s_dbind); |
617 |
|
base[3]= small_fixnum(14); |
618 |
|
base[4]= (V101); |
619 |
|
vs_top=(vs_base=base+3)+2; |
620 |
|
(void) (*Lnk40)(); |
621 |
vs_top=sup; |
vs_top=sup; |
622 |
V135= vs_base[0]; |
V140= vs_base[0]; |
623 |
base[9]= (V134); |
V136= ((V139)==(CMPcar(V140))?Ct:Cnil);} |
624 |
vs_top=(vs_base=base+9)+1; |
goto T222; |
625 |
|
T222:; |
626 |
|
{object V141; |
627 |
|
register object V142; |
628 |
|
V141= (V135); |
629 |
|
V142= CMPcar((V141)); |
630 |
|
goto T234; |
631 |
|
T234:; |
632 |
|
if(!(((V141))==Cnil)){ |
633 |
|
goto T235;} |
634 |
|
goto T230; |
635 |
|
goto T235; |
636 |
|
T235:; |
637 |
|
{object V143; |
638 |
|
object V144; |
639 |
|
base[4]= (V142); |
640 |
|
vs_top=(vs_base=base+4)+1; |
641 |
(void) (*Lnk37)(Lclptr37); |
(void) (*Lnk37)(Lclptr37); |
642 |
vs_top=sup; |
vs_top=sup; |
643 |
V136= vs_base[0]; |
V143= vs_base[0]; |
644 |
{register object V137; |
base[4]= (V142); |
645 |
register object V138; |
vs_top=(vs_base=base+4)+1; |
646 |
register object V139; |
(void) (*Lnk41)(Lclptr41); |
|
V137= V101; |
|
|
V138= Cnil; |
|
|
V139= Cnil; |
|
|
goto T200; |
|
|
T200:; |
|
|
if(((V137))!=Cnil){ |
|
|
goto T202;} |
|
|
goto T198; |
|
|
goto T202; |
|
|
T202:; |
|
|
{object V140; |
|
|
V140= CMPcar((V137)); |
|
|
V137= CMPcdr((V137)); |
|
|
V138= (V140);} |
|
|
if(((V137))!=Cnil){ |
|
|
goto T210;} |
|
|
base[9]= VV[17]; |
|
|
vs_top=(vs_base=base+9)+1; |
|
|
Lerror(); |
|
647 |
vs_top=sup; |
vs_top=sup; |
648 |
goto T210; |
V144= vs_base[0]; |
649 |
T210:; |
{register object V145; |
650 |
{object V141; |
object V146; |
651 |
V141= CMPcar((V137)); |
object V147; |
652 |
V137= CMPcdr((V137)); |
V145= V103; |
653 |
V139= (V141);} |
V146= Cnil; |
654 |
{register object x= (V138),V142= (V136); |
V147= Cnil; |
655 |
while(V142!=Cnil) |
goto T247; |
656 |
if(x==(V142->c.c_car)){ |
T247:; |
657 |
goto T220; |
if(((V145))!=Cnil){ |
658 |
}else V142=V142->c.c_cdr; |
goto T249;} |
659 |
goto T201;} |
goto T245; |
660 |
goto T220; |
goto T249; |
661 |
T220:; |
T249:; |
662 |
V147= ({object _tmp=get(VV[38],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[38])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[38])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
{object V148; |
663 |
V148 = V139; |
V148= CMPcar((V145)); |
664 |
V149 = V126; |
V145= CMPcdr((V145)); |
665 |
V150 = V99; |
V146= (V148);} |
666 |
V151 = V134; |
if(((V145))!=Cnil){ |
667 |
|
goto T257;} |
668 |
|
base[4]= VV[4]; |
669 |
|
base[5]= VV[14]; |
670 |
|
vs_top=(vs_base=base+4)+2; |
671 |
|
(void) (*Lnk31)(); |
672 |
|
vs_top=sup; |
673 |
|
goto T257; |
674 |
|
T257:; |
675 |
|
if(type_of((V146))==t_symbol){ |
676 |
|
goto T262;} |
677 |
|
base[4]= VV[4]; |
678 |
|
base[5]= VV[15]; |
679 |
|
vs_top=(vs_base=base+4)+2; |
680 |
|
(void) (*Lnk31)(); |
681 |
|
vs_top=sup; |
682 |
|
goto T262; |
683 |
|
T262:; |
684 |
|
{object V149; |
685 |
|
V149= CMPcar((V145)); |
686 |
|
V145= CMPcdr((V145)); |
687 |
|
V147= (V149);} |
688 |
|
{register object x= (V146),V150= (V144); |
689 |
|
while(V150!=Cnil) |
690 |
|
if(x==(V150->c.c_car)){ |
691 |
|
goto T273; |
692 |
|
}else V150=V150->c.c_cdr; |
693 |
|
goto T248;} |
694 |
|
goto T273; |
695 |
|
T273:; |
696 |
|
V155= ({object _tmp=get(VV[42],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[42])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[42])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
697 |
(void)(( |
(void)(( |
698 |
V152 = V147, |
V156 = V155, |
699 |
(type_of(V152) == t_sfun ?(*((V152)->sfn.sfn_self)): |
(type_of(V156) == t_sfun ?(*((V156)->sfn.sfn_self)): |
700 |
(fcall.argd=4,type_of(V152)==t_vfun) ? |
(fcall.argd=4,type_of(V156)==t_vfun) ? |
701 |
(*((V152)->sfn.sfn_self)): |
(*((V156)->sfn.sfn_self)): |
702 |
(fcall.fun=(V152),fcalln))(V148,V149,V150,V151))); |
(fcall.fun=(V156),fcalln))(V147,V134,V101,V142))); |
703 |
goto T192; |
goto T239; |
704 |
goto T201; |
goto T248; |
705 |
T201:; |
T248:; |
706 |
goto T200;} |
goto T247;} |
707 |
goto T198; |
goto T245; |
708 |
T198:; |
T245:; |
709 |
if(((V100))==Cnil){ |
if(((V102))==Cnil){ |
710 |
goto T192;} |
goto T239;} |
711 |
if(((V100))==(Ct)){ |
if(((V102))==(Ct)){ |
712 |
goto T227;} |
goto T280;} |
713 |
{register object x= (V135),V153= (V100); |
{register object x= (V143),V157= (V102); |
714 |
while(V153!=Cnil) |
while(V157!=Cnil) |
715 |
if(x==(V153->c.c_car)){ |
if(x==(V157->c.c_car)){ |
716 |
goto T230; |
goto T283; |
717 |
}else V153=V153->c.c_cdr; |
}else V157=V157->c.c_cdr; |
718 |
goto T192;} |
goto T239;} |
719 |
goto T230; |
goto T283; |
720 |
T230:; |
T283:; |
721 |
goto T227; |
goto T280; |
722 |
T227:; |
T280:; |
723 |
if(((V128))!=Cnil){ |
if(((V136))!=Cnil){ |
724 |
goto T231;} |
goto T284;} |
725 |
if(((V100))==(Ct)){ |
if(((V102))==(Ct)){ |
726 |
goto T224;} |
goto T277;} |
727 |
goto T231; |
goto T284; |
728 |
T231:; |
T284:; |
729 |
base[9]= (V126); |
base[4]= (V134); |
730 |
base[10]= (V99); |
base[5]= (V101); |
731 |
base[11]= (V134); |
base[6]= (V142); |
732 |
vs_top=(vs_base=base+9)+3; |
vs_top=(vs_base=base+4)+3; |
733 |
(void) (*Lnk39)(Lclptr39); |
(void) (*Lnk43)(Lclptr43); |
734 |
vs_top=sup; |
vs_top=sup; |
735 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
736 |
goto T192;} |
goto T239;} |
737 |
goto T224; |
goto T277; |
738 |
T224:; |
T277:; |
|
{object V154; |
|
|
base[9]= (V134); |
|
|
vs_top=(vs_base=base+9)+1; |
|
|
(void) (*Lnk40)(Lclptr40); |
|
|
vs_top=sup; |
|
|
V154= vs_base[0]; |
|
|
if(((V154))==Cnil){ |
|
|
goto T192;} |
|
739 |
{object V158; |
{object V158; |
740 |
V158= ( |
base[4]= (V142); |
741 |
(type_of((V154)) == t_sfun ?(*(((V154))->sfn.sfn_self)): |
vs_top=(vs_base=base+4)+1; |
742 |
(fcall.argd=0,type_of((V154))==t_vfun) ? |
(void) (*Lnk44)(Lclptr44); |
743 |
(*(((V154))->sfn.sfn_self)): |
vs_top=sup; |
744 |
(fcall.fun=((V154)),fcalln))()); |
V158= vs_base[0]; |
745 |
V159= ({object _tmp=get(VV[38],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[38])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[38])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
if(((V158))==Cnil){ |
746 |
V160 = (V158); |
goto T239;} |
747 |
V161 = V126; |
{object V162; |
748 |
V162 = V99; |
V162= ( |
749 |
V163 = V134; |
(type_of((V158)) == t_sfun ?(*(((V158))->sfn.sfn_self)): |
750 |
|
(fcall.argd=0,type_of((V158))==t_vfun) ? |
751 |
|
(*(((V158))->sfn.sfn_self)): |
752 |
|
(fcall.fun=((V158)),fcalln))()); |
753 |
|
V163= ({object _tmp=get(VV[42],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[42])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[42])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
754 |
(void)(( |
(void)(( |
755 |
V164 = V159, |
V164 = V163, |
756 |
(type_of(V164) == t_sfun ?(*((V164)->sfn.sfn_self)): |
(type_of(V164) == t_sfun ?(*((V164)->sfn.sfn_self)): |
757 |
(fcall.argd=4,type_of(V164)==t_vfun) ? |
(fcall.argd=4,type_of(V164)==t_vfun) ? |
758 |
(*((V164)->sfn.sfn_self)): |
(*((V164)->sfn.sfn_self)): |
759 |
(fcall.fun=(V164),fcalln))(V160,V161,V162,V163)));}}} |
(fcall.fun=(V164),fcalln))((V162),V134,V101,V142)));}}} |
760 |
goto T192; |
goto T239; |
761 |
T192:; |
T239:; |
762 |
V133= CMPcdr((V133)); |
V141= CMPcdr((V141)); |
763 |
V134= CMPcar((V133)); |
V142= CMPcar((V141)); |
764 |
goto T187;} |
goto T234;} |
765 |
goto T183; |
goto T230; |
766 |
T183:; |
T230:; |
767 |
base[8]= (V99); |
{object V165 = (V101); |
768 |
vs_top=(vs_base=base+8)+1; |
VMR8(V165)}} |
769 |
return;} |
base[0]=base[0]; |
770 |
} |
return Cnil; |
771 |
} |
} |
772 |
/* local entry for function CHECK-INITARGS-1 */ |
/* local entry for function CHECK-INITARGS-1 */ |
773 |
|
|
774 |
static object LI9(object V167,object V166,object V165,object first,...) |
static object LI9(object V168,object V167,object V166,object first,...) |
775 |
{ |
{ |
776 |
va_list ap; |
va_list ap; |
777 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
778 |
{object V168; |
{object V169; |
|
object V169; |
|
779 |
object V170; |
object V170; |
780 |
object V171; |
object V171; |
781 |
object V172; |
object V172; |
782 |
|
object V173; |
783 |
va_start(ap,first); |
va_start(ap,first); |
784 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
785 |
V168= V167; |
V169= V168; |
786 |
V169= V166; |
V170= V167; |
787 |
V170= V165; |
V171= V166; |
788 |
narg = narg - 3; |
narg = narg - 3; |
789 |
if (narg <= 0) goto T250; |
if (narg <= 0) goto T303; |
790 |
else { |
else { |
791 |
V171= first;} |
V172= first;} |
792 |
if (--narg <= 0) goto T251; |
if (--narg <= 0) goto T304; |
793 |
else { |
else { |
794 |
V172= va_arg(ap,object);} |
V173= va_arg(ap,object);} |
795 |
--narg; goto T252; |
--narg; goto T305; |
796 |
goto T250; |
goto T303; |
797 |
T250:; |
T303:; |
|
V171= Ct; |
|
|
goto T251; |
|
|
T251:; |
|
798 |
V172= Ct; |
V172= Ct; |
799 |
goto T252; |
goto T304; |
800 |
T252:; |
T304:; |
801 |
{object V173; |
V173= Ct; |
802 |
object V174; |
goto T305; |
803 |
base[0]= (V168); |
T305:; |
804 |
base[1]= (V170); |
{object V174; |
805 |
|
object V175; |
806 |
|
base[0]= (V169); |
807 |
|
base[1]= (V171); |
808 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
809 |
(void) (*Lnk41)(); |
(void) (*Lnk45)(); |
810 |
if(vs_base>=vs_top){vs_top=sup;goto T258;} |
if(vs_base>=vs_top){vs_top=sup;goto T311;} |
|
V173= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T259;} |
|
811 |
V174= vs_base[0]; |
V174= vs_base[0]; |
812 |
|
vs_base++; |
813 |
|
if(vs_base>=vs_top){vs_top=sup;goto T312;} |
814 |
|
V175= vs_base[0]; |
815 |
vs_top=sup; |
vs_top=sup; |
816 |
goto T260; |
goto T313; |
817 |
goto T258; |
goto T311; |
818 |
T258:; |
T311:; |
|
V173= Cnil; |
|
|
goto T259; |
|
|
T259:; |
|
819 |
V174= Cnil; |
V174= Cnil; |
820 |
goto T260; |
goto T312; |
821 |
T260:; |
T312:; |
822 |
if(((V174))!=Cnil){ |
V175= Cnil; |
823 |
goto T262;} |
goto T313; |
824 |
if(((V171))==Cnil){ |
T313:; |
825 |
goto T265;} |
if(((V175))!=Cnil){ |
826 |
{object V175 = (VFUN_NARGS=4,(*(LnkLI42))((V169),(V168),(V173),(V172))); |
goto T315;} |
827 |
VMR9(V175)} |
if(((V172))==Cnil){ |
828 |
goto T265; |
goto T318;} |
829 |
T265:; |
{object V176 = (VFUN_NARGS=4,(*(LnkLI46))((V170),(V169),(V174),(V173))); |
|
{object V176 = (VFUN_NARGS=4,(*(LnkLI43))((V169),(V168),(V173),(V172))); |
|
830 |
VMR9(V176)} |
VMR9(V176)} |
831 |
goto T262; |
goto T318; |
832 |
T262:; |
T318:; |
833 |
{object V177 = Cnil; |
{object V177 = (VFUN_NARGS=4,(*(LnkLI47))((V170),(V169),(V174),(V173))); |
834 |
VMR9(V177)}} |
VMR9(V177)} |
835 |
|
goto T315; |
836 |
|
T315:; |
837 |
|
{object V178 = Cnil; |
838 |
|
VMR9(V178)}} |
839 |
va_end(ap); |
va_end(ap); |
840 |
base[0]=base[0]; |
base[0]=base[0]; |
841 |
return Cnil;} |
return Cnil;} |
846 |
{register object *base=vs_base; |
{register object *base=vs_base; |
847 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
848 |
vs_check; |
vs_check; |
849 |
{object V178; |
{object V179; |
850 |
object V179; |
object V180; |
851 |
check_arg(2); |
check_arg(2); |
852 |
V178=(base[0]); |
V179=(base[0]); |
853 |
V179=(base[1]); |
V180=(base[1]); |
854 |
vs_top=sup; |
vs_top=sup; |
855 |
goto TTL; |
goto TTL; |
856 |
TTL:; |
TTL:; |
857 |
{object V180; |
{object V181; |
858 |
register object V181; |
register object V182; |
859 |
{object V182; |
{object V183; |
860 |
object V183= (V179); |
object V184= (V180); |
861 |
if(V183==Cnil){ |
if(V184==Cnil){ |
862 |
V180= Cnil; |
V181= Cnil; |
863 |
goto T267;} |
goto T320;} |
864 |
base[2]=V182=MMcons(Cnil,Cnil); |
base[2]=V183=MMcons(Cnil,Cnil); |
865 |
goto T268; |
goto T321; |
866 |
T268:; |
T321:; |
867 |
{register object V184; |
{register object V185; |
868 |
V184= (V183->c.c_car); |
V185= (V184->c.c_car); |
869 |
if(!(type_of((V184))==t_cons)){ |
if(!(type_of((V185))==t_cons)){ |
870 |
goto T271;} |
goto T324;} |
871 |
base[4]= (*(LnkLI44))(CMPcar((V184))); |
base[4]= (*(LnkLI48))(CMPcar((V185))); |
872 |
base[5]= CMPcdr((V184)); |
base[5]= CMPcdr((V185)); |
873 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
874 |
(void) (*Lnk45)(Lclptr45); |
(void) (*Lnk49)(Lclptr49); |
875 |
vs_top=sup; |
vs_top=sup; |
876 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
877 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
878 |
Lcopy_list(); |
Lcopy_list(); |
879 |
vs_top=sup; |
vs_top=sup; |
880 |
(V182->c.c_cdr)= vs_base[0]; |
(V183->c.c_cdr)= vs_base[0]; |
881 |
goto T269; |
goto T322; |
882 |
goto T271; |
goto T324; |
883 |
T271:; |
T324:; |
884 |
(V182->c.c_cdr)= make_cons((V184),Cnil);} |
(V183->c.c_cdr)= make_cons((V185),Cnil);} |
885 |
goto T269; |
goto T322; |
886 |
T269:; |
T322:; |
887 |
while(MMcdr(V182)!=Cnil)V182=MMcdr(V182); |
while(MMcdr(V183)!=Cnil)V183=MMcdr(V183); |
888 |
if((V183=MMcdr(V183))==Cnil){ |
if((V184=MMcdr(V184))==Cnil){ |
889 |
base[2]=base[2]->c.c_cdr; |
base[2]=base[2]->c.c_cdr; |
890 |
V180= base[2]; |
V181= base[2]; |
891 |
goto T267;} |
goto T320;} |
892 |
goto T268;} |
goto T321;} |
893 |
goto T267; |
goto T320; |
894 |
T267:; |
T320:; |
895 |
{object V185; |
{object V186; |
896 |
base[3]=VV[37]->s.s_gfdef; |
base[3]=VV[41]->s.s_gfdef; |
897 |
base[4]= (V178); |
base[4]= (V179); |
898 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
899 |
(void) (*Lnk32)(Lclptr32); |
(void) (*Lnk36)(Lclptr36); |
900 |
vs_top=sup; |
vs_top=sup; |
901 |
V188= vs_base[0]; |
V189= vs_base[0]; |
902 |
{object V186; |
{object V187; |
903 |
object V187= V188; |
object V188= V189; |
904 |
if(V187==Cnil){ |
if(V188==Cnil){ |
905 |
V185= Cnil; |
V186= Cnil; |
906 |
goto T277;} |
goto T330;} |
907 |
base[2]=V186=MMcons(Cnil,Cnil); |
base[2]=V187=MMcons(Cnil,Cnil); |
908 |
goto T278; |
goto T331; |
909 |
T278:; |
T331:; |
910 |
base[4]= (V187->c.c_car); |
base[4]= (V188->c.c_car); |
911 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
912 |
(void) (*Lnk37)(Lclptr37); |
(void) (*Lnk41)(Lclptr41); |
913 |
vs_top=sup; |
vs_top=sup; |
914 |
(V186->c.c_car)= vs_base[0]; |
(V187->c.c_car)= vs_base[0]; |
915 |
if((V187=MMcdr(V187))==Cnil){ |
if((V188=MMcdr(V188))==Cnil){ |
916 |
V185= base[2]; |
V186= base[2]; |
917 |
goto T277;} |
goto T330;} |
918 |
V186=MMcdr(V186)=MMcons(Cnil,Cnil); |
V187=MMcdr(V187)=MMcons(Cnil,Cnil); |
919 |
goto T278;} |
goto T331;} |
920 |
goto T277; |
goto T330; |
921 |
T277:; |
T330:; |
922 |
vs_top=base+2; |
vs_top=base+2; |
923 |
while(V185!=Cnil) |
while(V186!=Cnil) |
924 |
{vs_push((V185)->c.c_car);V185=(V185)->c.c_cdr;} |
{vs_push((V186)->c.c_car);V186=(V186)->c.c_cdr;} |
925 |
vs_base=base+2;} |
vs_base=base+2;} |
926 |
Lappend(); |
Lappend(); |
927 |
vs_top=sup; |
vs_top=sup; |
928 |
V181= vs_base[0]; |
V182= vs_base[0]; |
929 |
{register object V189; |
{register object V190; |
930 |
register object V190; |
register object V191; |
931 |
V189= (V180); |
V190= (V181); |
932 |
V190= CMPcar((V189)); |
V191= CMPcar((V190)); |
933 |
goto T287; |
goto T340; |
934 |
T287:; |
T340:; |
935 |
if(!(((V189))==Cnil)){ |
if(!(((V190))==Cnil)){ |
936 |
goto T288;} |
goto T341;} |
937 |
goto T283; |
goto T336; |
938 |
goto T288; |
goto T341; |
939 |
T288:; |
T341:; |
940 |
{register object V191; |
{register object V192; |
|
register object V192; |
|
941 |
register object V193; |
register object V193; |
942 |
register object V194; |
register object V194; |
943 |
register object V195; |
register object V195; |
944 |
register object V196; |
register object V196; |
945 |
if(!(type_of((V190))==t_cons)){ |
register object V197; |
946 |
goto T296;} |
if(!(type_of((V191))==t_cons)){ |
947 |
base[3]= (*(LnkLI46))((V190)); |
goto T349;} |
948 |
goto T294; |
base[3]= (*(LnkLI50))((V191)); |
949 |
goto T296; |
goto T347; |
950 |
T296:; |
goto T349; |
951 |
base[4]= (V190); |
T349:; |
952 |
|
base[4]= (V191); |
953 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
954 |
(void) (*Lnk47)(Lclptr47); |
(void) (*Lnk51)(Lclptr51); |
955 |
vs_top=sup; |
vs_top=sup; |
956 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
957 |
goto T294; |
goto T347; |
958 |
T294:; |
T347:; |
959 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
960 |
(void) (*Lnk48)(); |
(void) (*Lnk52)(); |
961 |
if(vs_base>=vs_top){vs_top=sup;goto T299;} |
if(vs_base>=vs_top){vs_top=sup;goto T352;} |
|
V191= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T300;} |
|
962 |
V192= vs_base[0]; |
V192= vs_base[0]; |
963 |
vs_base++; |
vs_base++; |
964 |
if(vs_base>=vs_top){vs_top=sup;goto T301;} |
if(vs_base>=vs_top){vs_top=sup;goto T353;} |
965 |
V193= vs_base[0]; |
V193= vs_base[0]; |
966 |
vs_base++; |
vs_base++; |
967 |
if(vs_base>=vs_top){vs_top=sup;goto T302;} |
if(vs_base>=vs_top){vs_top=sup;goto T354;} |
968 |
V194= vs_base[0]; |
V194= vs_base[0]; |
969 |
vs_base++; |
vs_base++; |
970 |
if(vs_base>=vs_top){vs_top=sup;goto T303;} |
if(vs_base>=vs_top){vs_top=sup;goto T355;} |
971 |
V195= vs_base[0]; |
V195= vs_base[0]; |
972 |
vs_base++; |
vs_base++; |
973 |
if(vs_base>=vs_top){vs_top=sup;goto T304;} |
if(vs_base>=vs_top){vs_top=sup;goto T356;} |
974 |
V196= vs_base[0]; |
V196= vs_base[0]; |
975 |
|
vs_base++; |
976 |
|
if(vs_base>=vs_top){vs_top=sup;goto T357;} |
977 |
|
V197= vs_base[0]; |
978 |
vs_top=sup; |
vs_top=sup; |
979 |
goto T305; |
goto T358; |
980 |
goto T299; |
goto T352; |
981 |
T299:; |
T352:; |
|
V191= Cnil; |
|
|
goto T300; |
|
|
T300:; |
|
982 |
V192= Cnil; |
V192= Cnil; |
983 |
goto T301; |
goto T353; |
984 |
T301:; |
T353:; |
985 |
V193= Cnil; |
V193= Cnil; |
986 |
goto T302; |
goto T354; |
987 |
T302:; |
T354:; |
988 |
V194= Cnil; |
V194= Cnil; |
989 |
goto T303; |
goto T355; |
990 |
T303:; |
T355:; |
991 |
V195= Cnil; |
V195= Cnil; |
992 |
goto T304; |
goto T356; |
993 |
T304:; |
T356:; |
994 |
V196= Cnil; |
V196= Cnil; |
995 |
goto T305; |
goto T357; |
996 |
T305:; |
T357:; |
997 |
if(((V195))==Cnil){ |
V197= Cnil; |
998 |
goto T306;} |
goto T358; |
999 |
|
T358:; |
1000 |
|
if(((V196))==Cnil){ |
1001 |
|
goto T359;} |
1002 |
base[3]= Cnil; |
base[3]= Cnil; |
1003 |
base[4]= Ct; |
base[4]= Ct; |
1004 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1005 |
return; |
return; |
1006 |
goto T306; |
goto T359; |
1007 |
T306:; |
T359:; |
1008 |
V181= append((V196),(V181));} |
V182= append((V197),(V182));} |
1009 |
V189= CMPcdr((V189)); |
V190= CMPcdr((V190)); |
1010 |
V190= CMPcar((V189)); |
V191= CMPcar((V190)); |
1011 |
goto T287;} |
goto T340;} |
1012 |
goto T283; |
goto T336; |
1013 |
T283:; |
T336:; |
1014 |
base[2]= (V181); |
base[2]= (V182); |
1015 |
base[3]= Cnil; |
base[3]= Cnil; |
1016 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1017 |
return;} |
return;} |
1019 |
} |
} |
1020 |
/* local entry for function CHECK-INITARGS-2-PLIST */ |
/* local entry for function CHECK-INITARGS-2-PLIST */ |
1021 |
|
|
1022 |
static object LI11(object V199,object V198,object V197,object first,...) |
static object LI11(object V200,object V199,object V198,object first,...) |
1023 |
{ |
{ |
1024 |
va_list ap; |
va_list ap; |
1025 |
int narg = VFUN_NARGS; VMB11 VMS11 VMV11 |
int narg = VFUN_NARGS; VMB11 VMS11 VMV11 |
1026 |
{object V200; |
{object V201; |
|
register object V201; |
|
1027 |
register object V202; |
register object V202; |
1028 |
register object V203; |
register object V203; |
1029 |
|
register object V204; |
1030 |
va_start(ap,first); |
va_start(ap,first); |
1031 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
1032 |
V200= V199; |
V201= V200; |
1033 |
V201= V198; |
V202= V199; |
1034 |
V202= V197; |
V203= V198; |
1035 |
narg = narg - 3; |
narg = narg - 3; |
1036 |
if (narg <= 0) goto T319; |
if (narg <= 0) goto T372; |
1037 |
else { |
else { |
1038 |
V203= first;} |
V204= first;} |
1039 |
--narg; goto T320; |
--narg; goto T373; |
1040 |
goto T319; |
goto T372; |
1041 |
T319:; |
T372:; |
1042 |
V203= Ct; |
V204= Ct; |
1043 |
goto T320; |
goto T373; |
1044 |
T320:; |
T373:; |
1045 |
base[0]= (V200); |
base[0]= (V201); |
1046 |
base[1]= VV[18]; |
base[1]= VV[21]; |
1047 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1048 |
Lgetf(); |
Lgetf(); |
1049 |
vs_top=sup; |
vs_top=sup; |
1050 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1051 |
goto T322;} |
goto T375;} |
1052 |
{register object V204; |
{register object V205; |
|
register object V205; |
|
1053 |
register object V206; |
register object V206; |
1054 |
V204= (V200); |
register object V207; |
1055 |
V205= Cnil; |
V205= (V201); |
1056 |
V206= Cnil; |
V206= Cnil; |
1057 |
goto T328; |
V207= Cnil; |
1058 |
T328:; |
goto T381; |
1059 |
if(((V204))!=Cnil){ |
T381:; |
1060 |
goto T330;} |
if(((V205))!=Cnil){ |
1061 |
goto T322; |
goto T383;} |
1062 |
goto T330; |
goto T375; |
1063 |
T330:; |
goto T383; |
1064 |
{register object V207; |
T383:; |
|
V207= CMPcar((V204)); |
|
|
V204= CMPcdr((V204)); |
|
|
V205= (V207);} |
|
|
if(((V204))!=Cnil){ |
|
|
goto T338;} |
|
|
base[0]= VV[17]; |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
Lerror(); |
|
|
vs_top=sup; |
|
|
goto T338; |
|
|
T338:; |
|
1065 |
{register object V208; |
{register object V208; |
1066 |
V208= CMPcar((V204)); |
V208= CMPcar((V205)); |
1067 |
V204= CMPcdr((V204)); |
V205= CMPcdr((V205)); |
1068 |
V206= (V208);} |
V206= (V208);} |
1069 |
{register object x= (V205),V209= (V202); |
if(((V205))!=Cnil){ |
1070 |
while(V209!=Cnil) |
goto T391;} |
1071 |
if(x==(V209->c.c_car)){ |
base[0]= VV[4]; |
1072 |
goto T329; |
base[1]= VV[14]; |
1073 |
}else V209=V209->c.c_cdr;} |
vs_top=(vs_base=base+0)+2; |
1074 |
if(((V203))==Cnil){ |
(void) (*Lnk31)(); |
|
goto T350;} |
|
|
base[0]= VV[19]; |
|
|
base[1]= (V205); |
|
|
base[3]= (V201); |
|
|
vs_top=(vs_base=base+3)+1; |
|
|
(void) (*Lnk27)(Lclptr27); |
|
1075 |
vs_top=sup; |
vs_top=sup; |
1076 |
base[2]= vs_base[0]; |
goto T391; |
1077 |
vs_top=(vs_base=base+0)+3; |
T391:; |
1078 |
Lerror(); |
if(type_of((V206))==t_symbol){ |
1079 |
vs_top=sup; |
goto T396;} |
1080 |
goto T329; |
base[0]= VV[4]; |
1081 |
goto T350; |
base[1]= VV[15]; |
1082 |
T350:; |
vs_top=(vs_base=base+0)+2; |
1083 |
{object V210 = Cnil; |
(void) (*Lnk31)(); |
1084 |
VMR11(V210)} |
vs_top=sup; |
1085 |
goto T329; |
goto T396; |
1086 |
T329:; |
T396:; |
1087 |
goto T328;} |
{register object V209; |
1088 |
goto T322; |
V209= CMPcar((V205)); |
1089 |
T322:; |
V205= CMPcdr((V205)); |
1090 |
{object V211 = Ct; |
V207= (V209);} |
1091 |
|
{register object x= (V206),V210= (V203); |
1092 |
|
while(V210!=Cnil) |
1093 |
|
if(x==(V210->c.c_car)){ |
1094 |
|
goto T382; |
1095 |
|
}else V210=V210->c.c_cdr;} |
1096 |
|
if(((V204))==Cnil){ |
1097 |
|
goto T409;} |
1098 |
|
base[0]= VV[4]; |
1099 |
|
base[1]= VV[22]; |
1100 |
|
base[2]= (V206); |
1101 |
|
base[4]= (V202); |
1102 |
|
vs_top=(vs_base=base+4)+1; |
1103 |
|
(void) (*Lnk30)(Lclptr30); |
1104 |
|
vs_top=sup; |
1105 |
|
base[3]= vs_base[0]; |
1106 |
|
vs_top=(vs_base=base+0)+4; |
1107 |
|
(void) (*Lnk31)(); |
1108 |
|
vs_top=sup; |
1109 |
|
goto T382; |
1110 |
|
goto T409; |
1111 |
|
T409:; |
1112 |
|
{object V211 = Cnil; |
1113 |
VMR11(V211)} |
VMR11(V211)} |
1114 |
|
goto T382; |
1115 |
|
T382:; |
1116 |
|
goto T381;} |
1117 |
|
goto T375; |
1118 |
|
T375:; |
1119 |
|
{object V212 = Ct; |
1120 |
|
VMR11(V212)} |
1121 |
va_end(ap); |
va_end(ap); |
1122 |
base[0]=base[0]; |
base[0]=base[0]; |
1123 |
return Cnil;} |
return Cnil;} |
1124 |
} |
} |
1125 |
/* local entry for function CHECK-INITARGS-2-LIST */ |
/* local entry for function CHECK-INITARGS-2-LIST */ |
1126 |
|
|
1127 |
static object LI12(object V214,object V213,object V212,object first,...) |
static object LI12(object V215,object V214,object V213,object first,...) |
1128 |
{ |
{ |
1129 |
va_list ap; |
va_list ap; |
1130 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
int narg = VFUN_NARGS; VMB12 VMS12 VMV12 |
1131 |
{object V215; |
{object V216; |
|
register object V216; |
|
1132 |
register object V217; |
register object V217; |
1133 |
register object V218; |
register object V218; |
1134 |
|
register object V219; |
1135 |
va_start(ap,first); |
va_start(ap,first); |
1136 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
1137 |
V215= V214; |
V216= V215; |
1138 |
V216= V213; |
V217= V214; |
1139 |
V217= V212; |
V218= V213; |
1140 |
narg = narg - 3; |
narg = narg - 3; |
1141 |
if (narg <= 0) goto T357; |
if (narg <= 0) goto T417; |
1142 |
else { |
else { |
1143 |
V218= first;} |
V219= first;} |
1144 |
--narg; goto T358; |
--narg; goto T418; |
1145 |
goto T357; |
goto T417; |
1146 |
T357:; |
T417:; |
1147 |
V218= Ct; |
V219= Ct; |
1148 |
goto T358; |
goto T418; |
1149 |
T358:; |
T418:; |
1150 |
{register object x= VV[18],V219= (V215); |
{register object x= VV[21],V220= (V216); |
1151 |
while(V219!=Cnil) |
while(V220!=Cnil) |
1152 |
if(x==(V219->c.c_car)){ |
if(x==(V220->c.c_car)){ |
1153 |
goto T360; |
goto T420; |
1154 |
}else V219=V219->c.c_cdr;} |
}else V220=V220->c.c_cdr;} |
1155 |
{register object V220; |
{register object V221; |
1156 |
register object V221; |
register object V222; |
1157 |
V220= (V215); |
V221= (V216); |
1158 |
V221= CMPcar((V220)); |
V222= CMPcar((V221)); |
1159 |
goto T366; |
goto T426; |
1160 |
T366:; |
T426:; |
1161 |
if(!(((V220))==Cnil)){ |
if(!(((V221))==Cnil)){ |
1162 |
goto T367;} |
goto T427;} |
1163 |
goto T360; |
goto T420; |
1164 |
goto T367; |
goto T427; |
1165 |
T367:; |
T427:; |
1166 |
{register object x= (V221),V222= (V217); |
{register object x= (V222),V223= (V218); |
1167 |
while(V222!=Cnil) |
while(V223!=Cnil) |
1168 |
if(x==(V222->c.c_car)){ |
if(x==(V223->c.c_car)){ |
1169 |
goto T371; |
goto T431; |
1170 |
}else V222=V222->c.c_cdr;} |
}else V223=V223->c.c_cdr;} |
1171 |
if(((V218))==Cnil){ |
if(((V219))==Cnil){ |
1172 |
goto T375;} |
goto T435;} |
1173 |
base[1]= VV[20]; |
base[1]= VV[4]; |
1174 |
base[2]= (V221); |
base[2]= VV[23]; |
1175 |
base[4]= (V216); |
base[3]= (V222); |
1176 |
vs_top=(vs_base=base+4)+1; |
base[5]= (V217); |
1177 |
(void) (*Lnk27)(Lclptr27); |
vs_top=(vs_base=base+5)+1; |
1178 |
|
(void) (*Lnk30)(Lclptr30); |
1179 |
vs_top=sup; |
vs_top=sup; |
1180 |
base[3]= vs_base[0]; |
base[4]= vs_base[0]; |
1181 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+4; |
1182 |
Lerror(); |
(void) (*Lnk31)(); |
1183 |
vs_top=sup; |
vs_top=sup; |
1184 |
goto T371; |
goto T431; |
1185 |
goto T375; |
goto T435; |
1186 |
T375:; |
T435:; |
1187 |
{object V223 = Cnil; |
{object V224 = Cnil; |
|
VMR12(V223)} |
|
|
goto T371; |
|
|
T371:; |
|
|
V220= CMPcdr((V220)); |
|
|
V221= CMPcar((V220)); |
|
|
goto T366;} |
|
|
goto T360; |
|
|
T360:; |
|
|
{object V224 = Ct; |
|
1188 |
VMR12(V224)} |
VMR12(V224)} |
1189 |
|
goto T431; |
1190 |
|
T431:; |
1191 |
|
V221= CMPcdr((V221)); |
1192 |
|
V222= CMPcar((V221)); |
1193 |
|
goto T426;} |
1194 |
|
goto T420; |
1195 |
|
T420:; |
1196 |
|
{object V225 = Ct; |
1197 |
|
VMR12(V225)} |
1198 |
va_end(ap); |
va_end(ap); |
1199 |
base[0]=base[0]; |
base[0]=base[0]; |
1200 |
return Cnil;} |
return Cnil;} |
1201 |
} |
} |
1202 |
static void LnkT48(){ call_or_link(VV[48],(void **)(void *)&Lnk48);} /* ANALYZE-LAMBDA-LIST */ |
static void LnkT52(){ call_or_link(VV[52],(void **)(void *)&Lnk52);} /* ANALYZE-LAMBDA-LIST */ |
1203 |
static void LnkT47(ptr) object *ptr;{ call_or_link_closure(VV[47],(void **)(void *)&Lnk47,(void **)(void *)&Lclptr47);} /* METHOD-LAMBDA-LIST */ |
static void LnkT51(ptr) object *ptr;{ call_or_link_closure(VV[51],(void **)(void *)&Lnk51,(void **)(void *)&Lclptr51);} /* METHOD-LAMBDA-LIST */ |
1204 |
static object LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)(void *)&LnkLI46,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-LAMBDA-LIST */ |
static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)(void *)&LnkLI50,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-LAMBDA-LIST */ |
1205 |
static void LnkT45(ptr) object *ptr;{ call_or_link_closure(VV[45],(void **)(void *)&Lnk45,(void **)(void *)&Lclptr45);} /* COMPUTE-APPLICABLE-METHODS */ |
static void LnkT49(ptr) object *ptr;{ call_or_link_closure(VV[49],(void **)(void *)&Lnk49,(void **)(void *)&Lclptr49);} /* COMPUTE-APPLICABLE-METHODS */ |
1206 |
static object LnkTLI44(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[44],(void **)(void *)&LnkLI44,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */ |
static object LnkTLI48(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[48],(void **)(void *)&LnkLI48,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */ |
1207 |
static object LnkTLI43(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[43],(void **)(void *)&LnkLI43,first,ap);va_end(ap);return V1;} /* CHECK-INITARGS-2-LIST */ |
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;} /* CHECK-INITARGS-2-LIST */ |
1208 |
static object LnkTLI42(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[42],(void **)(void *)&LnkLI42,first,ap);va_end(ap);return V1;} /* CHECK-INITARGS-2-PLIST */ |
static object LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[46],(void **)(void *)&LnkLI46,first,ap);va_end(ap);return V1;} /* CHECK-INITARGS-2-PLIST */ |
1209 |
static void LnkT41(){ call_or_link(VV[41],(void **)(void *)&Lnk41);} /* CHECK-INITARGS-VALUES */ |
static void LnkT45(){ call_or_link(VV[45],(void **)(void *)&Lnk45);} /* CHECK-INITARGS-VALUES */ |
1210 |
static void LnkT40(ptr) object *ptr;{ call_or_link_closure(VV[40],(void **)(void *)&Lnk40,(void **)(void *)&Lclptr40);} /* SLOT-DEFINITION-INITFUNCTION */ |
static void LnkT44(ptr) object *ptr;{ call_or_link_closure(VV[44],(void **)(void *)&Lnk44,(void **)(void *)&Lclptr44);} /* SLOT-DEFINITION-INITFUNCTION */ |
1211 |
static void LnkT39(ptr) object *ptr;{ call_or_link_closure(VV[39],(void **)(void *)&Lnk39,(void **)(void *)&Lclptr39);} /* SLOT-BOUNDP-USING-CLASS */ |
static void LnkT43(ptr) object *ptr;{ call_or_link_closure(VV[43],(void **)(void *)&Lnk43,(void **)(void *)&Lclptr43);} /* SLOT-BOUNDP-USING-CLASS */ |
1212 |
static void LnkT37(ptr) object *ptr;{ call_or_link_closure(VV[37],(void **)(void *)&Lnk37,(void **)(void *)&Lclptr37);} /* SLOT-DEFINITION-INITARGS */ |
static void LnkT41(ptr) object *ptr;{ call_or_link_closure(VV[41],(void **)(void *)&Lnk41,(void **)(void *)&Lclptr41);} /* SLOT-DEFINITION-INITARGS */ |
1213 |
static void LnkT36(){ call_or_link(VV[36],(void **)(void *)&Lnk36);} /* CCLOSURE-ENV-NTHCDR */ |
static void LnkT40(){ call_or_link(VV[40],(void **)(void *)&Lnk40);} /* CCLOSURE-ENV-NTHCDR */ |
1214 |
static object LnkTLI35(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[35],(void **)(void *)&LnkLI35,first,ap);va_end(ap);return V1;} /* CHECK-INITARGS-1 */ |
static object LnkTLI39(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[39],(void **)(void *)&LnkLI39,first,ap);va_end(ap);return V1;} /* CHECK-INITARGS-1 */ |
1215 |
static void LnkT34(ptr) object *ptr;{ call_or_link_closure(VV[34],(void **)(void *)&Lnk34,(void **)(void *)&Lclptr34);} /* SLOT-DEFINITION-ALLOCATION */ |
static void LnkT38(ptr) object *ptr;{ call_or_link_closure(VV[38],(void **)(void *)&Lnk38,(void **)(void *)&Lclptr38);} /* SLOT-DEFINITION-ALLOCATION */ |
1216 |
static void LnkT33(ptr) object *ptr;{ call_or_link_closure(VV[33],(void **)(void *)&Lnk33,(void **)(void *)&Lclptr33);} /* SLOT-DEFINITION-NAME */ |
static void LnkT37(ptr) object *ptr;{ call_or_link_closure(VV[37],(void **)(void *)&Lnk37,(void **)(void *)&Lclptr37);} /* SLOT-DEFINITION-NAME */ |
1217 |
static void LnkT32(ptr) object *ptr;{ call_or_link_closure(VV[32],(void **)(void *)&Lnk32,(void **)(void *)&Lclptr32);} /* CLASS-SLOTS */ |
static void LnkT36(ptr) object *ptr;{ call_or_link_closure(VV[36],(void **)(void *)&Lnk36,(void **)(void *)&Lclptr36);} /* CLASS-SLOTS */ |
1218 |
static object LnkTLI31(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[31],(void **)(void *)&LnkLI31,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */ |
static object LnkTLI35(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[35],(void **)(void *)&LnkLI35,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */ |
1219 |
static void LnkT11(ptr) object *ptr;{ call_or_link_closure(VV[11],(void **)(void *)&Lnk11,(void **)(void *)&Lclptr11);} /* SHARED-INITIALIZE */ |
static void LnkT12(ptr) object *ptr;{ call_or_link_closure(VV[12],(void **)(void *)&Lnk12,(void **)(void *)&Lclptr12);} /* SHARED-INITIALIZE */ |
1220 |
static object LnkTLI30(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[30],(void **)(void *)&LnkLI30,4,first,ap);va_end(ap);return V1;} /* INITIALIZE-INSTANCE-SIMPLE */ |
static object LnkTLI34(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[34],(void **)(void *)&LnkLI34,4,first,ap);va_end(ap);return V1;} /* INITIALIZE-INSTANCE-SIMPLE */ |
1221 |
static void LnkT29(ptr) object *ptr;{ call_or_link_closure(VV[29],(void **)(void *)&Lnk29,(void **)(void *)&Lclptr29);} /* INITIALIZE-INSTANCE */ |
static void LnkT33(ptr) object *ptr;{ call_or_link_closure(VV[33],(void **)(void *)&Lnk33,(void **)(void *)&Lclptr33);} /* INITIALIZE-INSTANCE */ |
1222 |
static void LnkT28(ptr) object *ptr;{ call_or_link_closure(VV[28],(void **)(void *)&Lnk28,(void **)(void *)&Lclptr28);} /* ALLOCATE-INSTANCE */ |
static void LnkT32(ptr) object *ptr;{ call_or_link_closure(VV[32],(void **)(void *)&Lnk32,(void **)(void *)&Lclptr32);} /* ALLOCATE-INSTANCE */ |
1223 |
static void LnkT27(ptr) object *ptr;{ call_or_link_closure(VV[27],(void **)(void *)&Lnk27,(void **)(void *)&Lclptr27);} /* CLASS-NAME */ |
static void LnkT31(){ call_or_link(VV[31],(void **)(void *)&Lnk31);} /* SPECIFIC-ERROR */ |
1224 |
static object LnkTLI26(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[26],(void **)(void *)&LnkLI26,2,first,ap);va_end(ap);return V1;} /* UPDATE-INITIALIZE-INFO-INTERNAL */ |
static void LnkT30(ptr) object *ptr;{ call_or_link_closure(VV[30],(void **)(void *)&Lnk30,(void **)(void *)&Lclptr30);} /* CLASS-NAME */ |
1225 |
|
static object LnkTLI29(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[29],(void **)(void *)&LnkLI29,2,first,ap);va_end(ap);return V1;} /* UPDATE-INITIALIZE-INFO-INTERNAL */ |
1226 |
static object LnkTLI0(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[0],(void **)(void *)&LnkLI0,first,ap);va_end(ap);return V1;} /* INITIALIZE-INFO */ |
static object LnkTLI0(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[0],(void **)(void *)&LnkLI0,first,ap);va_end(ap);return V1;} /* INITIALIZE-INFO */ |
1227 |
static void LnkT25(ptr) object *ptr;{ call_or_link_closure(VV[25],(void **)(void *)&Lnk25,(void **)(void *)&Lclptr25);} /* DEFAULT-INITARGS */ |
static void LnkT28(ptr) object *ptr;{ call_or_link_closure(VV[28],(void **)(void *)&Lnk28,(void **)(void *)&Lclptr28);} /* DEFAULT-INITARGS */ |
1228 |
static void LnkT24(ptr) object *ptr;{ call_or_link_closure(VV[24],(void **)(void *)&Lnk24,(void **)(void *)&Lclptr24);} /* FINALIZE-INHERITANCE */ |
static void LnkT27(ptr) object *ptr;{ call_or_link_closure(VV[27],(void **)(void *)&Lnk27,(void **)(void *)&Lclptr27);} /* FINALIZE-INHERITANCE */ |
1229 |
static void LnkT23(ptr) object *ptr;{ call_or_link_closure(VV[23],(void **)(void *)&Lnk23,(void **)(void *)&Lclptr23);} /* CLASS-FINALIZED-P */ |
static void LnkT26(ptr) object *ptr;{ call_or_link_closure(VV[26],(void **)(void *)&Lnk26,(void **)(void *)&Lclptr26);} /* CLASS-FINALIZED-P */ |
1230 |
static void LnkT21(ptr) object *ptr;{ call_or_link_closure(VV[21],(void **)(void *)&Lnk21,(void **)(void *)&Lclptr21);} /* MAKE-INSTANCE */ |
static void LnkT24(ptr) object *ptr;{ call_or_link_closure(VV[24],(void **)(void *)&Lnk24,(void **)(void *)&Lclptr24);} /* MAKE-INSTANCE */ |
1231 |
static object LnkTLI22(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[22],(void **)(void *)&LnkLI22,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
static object LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[25],(void **)(void *)&LnkLI25,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
1232 |
|
|
1233 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1234 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |