18 |
(void) (*Lnk346)(); |
(void) (*Lnk346)(); |
19 |
vs_top=sup; |
vs_top=sup; |
20 |
V6= vs_base[0]; |
V6= vs_base[0]; |
21 |
{object V7 = (*(LnkLI345))(V6,V3); |
V7 = V3; |
22 |
VMR1(V7)} |
{object V8 = (*(LnkLI345))(V6,V7); |
23 |
|
VMR1(V8)} |
24 |
base[0]=base[0]; |
base[0]=base[0]; |
25 |
return Cnil; |
return Cnil; |
26 |
} |
} |
32 |
vs_check; |
vs_check; |
33 |
check_arg(2); |
check_arg(2); |
34 |
vs_top=sup; |
vs_top=sup; |
35 |
{object V8=base[0]->c.c_cdr; |
{object V9=base[0]->c.c_cdr; |
36 |
if(endp(V8))invalid_macro_call(); |
if(endp(V9))invalid_macro_call(); |
37 |
base[2]= (V8->c.c_car); |
base[2]= (V9->c.c_car); |
38 |
V8=V8->c.c_cdr; |
V9=V9->c.c_cdr; |
39 |
if(endp(V8))invalid_macro_call(); |
if(endp(V9))invalid_macro_call(); |
40 |
base[3]= (V8->c.c_car); |
base[3]= (V9->c.c_car); |
41 |
V8=V8->c.c_cdr; |
V9=V9->c.c_cdr; |
42 |
base[4]= V8;} |
base[4]= V9;} |
43 |
base[5]= (*(LnkLI347))(base[2],base[3],base[4]); |
base[5]= (*(LnkLI347))(base[2],base[3],base[4]); |
44 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
45 |
return; |
return; |
46 |
} |
} |
47 |
/* local entry for function EXPAND-DEFGENERIC */ |
/* local entry for function EXPAND-DEFGENERIC */ |
48 |
|
|
49 |
static object LI4(V12,V13,V14) |
static object LI4(V13,V14,V15) |
50 |
|
|
51 |
object V12;object V13;object V14; |
object V13;object V14;object V15; |
52 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
53 |
goto TTL; |
goto TTL; |
54 |
TTL:; |
TTL:; |
55 |
if(!(type_of((V12))==t_cons||((V12))==Cnil)){ |
if(!(type_of((V13))==t_cons||((V13))==Cnil)){ |
56 |
goto T4;} |
goto T4;} |
57 |
(void)((*(LnkLI348))(CMPcadr((V12)))); |
(void)((*(LnkLI348))(CMPcadr((V13)))); |
58 |
goto T4; |
goto T4; |
59 |
T4:; |
T4:; |
|
{register object V15; |
|
|
V15= Cnil; |
|
60 |
{register object V16; |
{register object V16; |
61 |
register object V17; |
V16= Cnil; |
62 |
V16= (V14); |
{register object V17; |
63 |
V17= CMPcar((V16)); |
register object V18; |
64 |
|
V17= (V15); |
65 |
|
V18= CMPcar((V17)); |
66 |
goto T12; |
goto T12; |
67 |
T12:; |
T12:; |
68 |
if(!(((V16))==Cnil)){ |
if(!(((V17))==Cnil)){ |
69 |
goto T13;} |
goto T13;} |
70 |
goto T8; |
goto T8; |
71 |
goto T13; |
goto T13; |
72 |
T13:; |
T13:; |
73 |
{object V18= CMPcar((V17)); |
{object V19= CMPcar((V18)); |
74 |
if((V18!= VV[0]))goto T18; |
if((V19!= VV[0]))goto T18; |
75 |
base[1]= (V15); |
base[1]= (V16); |
76 |
base[2]= VV[0]; |
base[2]= VV[0]; |
77 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
78 |
Lgetf(); |
Lgetf(); |
86 |
goto T17; |
goto T17; |
87 |
goto T20; |
goto T20; |
88 |
T20:; |
T20:; |
89 |
{register object V20; |
{register object V21; |
90 |
V20= list(2,VV[1],CMPcdr((V17))); |
V21= list(2,VV[1],CMPcdr((V18))); |
91 |
{object V21; |
{object V22; |
92 |
base[2]= (V15); |
base[2]= (V16); |
93 |
base[3]= (V20); |
base[3]= (V21); |
94 |
base[4]= VV[0]; |
base[4]= VV[0]; |
95 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
96 |
siLput_f(); |
siLput_f(); |
97 |
vs_top=sup; |
vs_top=sup; |
98 |
V21= vs_base[0]; |
V22= vs_base[0]; |
99 |
V15= (V21); |
V16= (V22); |
100 |
goto T17;}} |
goto T17;}} |
101 |
goto T18; |
goto T18; |
102 |
T18:; |
T18:; |
103 |
if((V18!= VV[46]))goto T32; |
if((V19!= VV[46]))goto T32; |
104 |
{register object V23; |
{register object V24; |
105 |
V24= CMPcdr((V17)); |
V25= CMPcdr((V18)); |
106 |
base[2]= (V15); |
base[2]= (V16); |
107 |
base[3]= VV[2]; |
base[3]= VV[2]; |
108 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
109 |
Lgetf(); |
Lgetf(); |
110 |
vs_top=sup; |
vs_top=sup; |
111 |
V25= vs_base[0]; |
V26= vs_base[0]; |
112 |
V23= append(/* INLINE-ARGS */V24,V25); |
V24= append(/* INLINE-ARGS */V25,V26); |
113 |
{object V26; |
{object V27; |
114 |
base[2]= (V15); |
base[2]= (V16); |
115 |
base[3]= (V23); |
base[3]= (V24); |
116 |
base[4]= VV[2]; |
base[4]= VV[2]; |
117 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
118 |
siLput_f(); |
siLput_f(); |
119 |
vs_top=sup; |
vs_top=sup; |
120 |
V26= vs_base[0]; |
V27= vs_base[0]; |
121 |
V15= (V26); |
V16= (V27); |
122 |
goto T17;}} |
goto T17;}} |
123 |
goto T32; |
goto T32; |
124 |
T32:; |
T32:; |
125 |
if((V18!= VV[3]))goto T43; |
if((V19!= VV[3]))goto T43; |
126 |
base[1]= (V15); |
base[1]= (V16); |
127 |
base[2]= VV[3]; |
base[2]= VV[3]; |
128 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
129 |
Lgetf(); |
Lgetf(); |
137 |
goto T17; |
goto T17; |
138 |
goto T45; |
goto T45; |
139 |
T45:; |
T45:; |
140 |
{register object V28; |
{register object V29; |
141 |
V28= list(2,VV[1],CMPcadr((V17))); |
V29= list(2,VV[1],CMPcadr((V18))); |
142 |
{object V29; |
{object V30; |
143 |
base[2]= (V15); |
base[2]= (V16); |
144 |
base[3]= (V28); |
base[3]= (V29); |
145 |
base[4]= VV[3]; |
base[4]= VV[3]; |
146 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
147 |
siLput_f(); |
siLput_f(); |
148 |
vs_top=sup; |
vs_top=sup; |
149 |
V29= vs_base[0]; |
V30= vs_base[0]; |
150 |
V15= (V29); |
V16= (V30); |
151 |
goto T17;}} |
goto T17;}} |
152 |
goto T43; |
goto T43; |
153 |
T43:; |
T43:; |
154 |
if((V18!= VV[4]))goto T57; |
if((V19!= VV[4]))goto T57; |
155 |
base[1]= (V15); |
base[1]= (V16); |
156 |
base[2]= VV[4]; |
base[2]= VV[4]; |
157 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
158 |
Lgetf(); |
Lgetf(); |
166 |
goto T17; |
goto T17; |
167 |
goto T59; |
goto T59; |
168 |
T59:; |
T59:; |
169 |
{register object V31; |
{register object V32; |
170 |
V31= list(2,VV[1],CMPcdr((V17))); |
V32= list(2,VV[1],CMPcdr((V18))); |
171 |
{object V32; |
{object V33; |
172 |
base[2]= (V15); |
base[2]= (V16); |
173 |
base[3]= (V31); |
base[3]= (V32); |
174 |
base[4]= VV[4]; |
base[4]= VV[4]; |
175 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
176 |
siLput_f(); |
siLput_f(); |
177 |
vs_top=sup; |
vs_top=sup; |
178 |
V32= vs_base[0]; |
V33= vs_base[0]; |
179 |
V15= (V32); |
V16= (V33); |
180 |
goto T17;}} |
goto T17;}} |
181 |
goto T57; |
goto T57; |
182 |
T57:; |
T57:; |
183 |
if((V18!= VV[5]))goto T71; |
if((V19!= VV[5]))goto T71; |
184 |
base[1]= (V15); |
base[1]= (V16); |
185 |
base[2]= VV[5]; |
base[2]= VV[5]; |
186 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
187 |
Lgetf(); |
Lgetf(); |
195 |
goto T17; |
goto T17; |
196 |
goto T73; |
goto T73; |
197 |
T73:; |
T73:; |
198 |
{register object V34; |
{register object V35; |
199 |
V34= list(2,VV[1],CMPcadr((V17))); |
V35= list(2,VV[1],CMPcadr((V18))); |
200 |
{object V35; |
{object V36; |
201 |
base[2]= (V15); |
base[2]= (V16); |
202 |
base[3]= (V34); |
base[3]= (V35); |
203 |
base[4]= VV[5]; |
base[4]= VV[5]; |
204 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
205 |
siLput_f(); |
siLput_f(); |
206 |
vs_top=sup; |
vs_top=sup; |
207 |
V35= vs_base[0]; |
V36= vs_base[0]; |
208 |
V15= (V35); |
V16= (V36); |
209 |
goto T17;}} |
goto T17;}} |
210 |
goto T71; |
goto T71; |
211 |
T71:; |
T71:; |
212 |
if((V18!= VV[6]))goto T85; |
if((V19!= VV[6]))goto T85; |
213 |
base[1]= (V15); |
base[1]= (V16); |
214 |
base[2]= VV[6]; |
base[2]= VV[6]; |
215 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
216 |
Lgetf(); |
Lgetf(); |
224 |
goto T17; |
goto T17; |
225 |
goto T87; |
goto T87; |
226 |
T87:; |
T87:; |
227 |
{register object V37; |
{register object V38; |
228 |
V37= list(2,VV[1],CMPcadr((V17))); |
V38= list(2,VV[1],CMPcadr((V18))); |
229 |
{object V38; |
{object V39; |
230 |
base[2]= (V15); |
base[2]= (V16); |
231 |
base[3]= (V37); |
base[3]= (V38); |
232 |
base[4]= VV[6]; |
base[4]= VV[6]; |
233 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
234 |
siLput_f(); |
siLput_f(); |
235 |
vs_top=sup; |
vs_top=sup; |
236 |
V38= vs_base[0]; |
V39= vs_base[0]; |
237 |
V15= (V38); |
V16= (V39); |
238 |
goto T17;}} |
goto T17;}} |
239 |
goto T85; |
goto T85; |
240 |
T85:; |
T85:; |
241 |
if((V18!= VV[210]))goto T99; |
if((V19!= VV[210]))goto T99; |
242 |
{object V39; |
{object V40; |
243 |
V39= listA(3,VV[7],(V12),CMPcdr((V17))); |
V40= listA(3,VV[7],(V13),CMPcdr((V18))); |
244 |
(VV[8]->s.s_dbind)= make_cons((V39),(VV[8]->s.s_dbind)); |
(VV[8]->s.s_dbind)= make_cons((V40),(VV[8]->s.s_dbind)); |
245 |
goto T17;} |
goto T17;} |
246 |
goto T99; |
goto T99; |
247 |
T99:; |
T99:; |
248 |
FEerror("The ECASE key value ~s is illegal.",1,V18); |
FEerror("The ECASE key value ~s is illegal.",1,V19); |
249 |
goto T17;} |
goto T17;} |
250 |
goto T17; |
goto T17; |
251 |
T17:; |
T17:; |
252 |
V16= CMPcdr((V16)); |
V17= CMPcdr((V17)); |
253 |
V17= CMPcar((V16)); |
V18= CMPcar((V17)); |
254 |
goto T12;} |
goto T12;} |
255 |
goto T8; |
goto T8; |
256 |
T8:; |
T8:; |
257 |
{object V40; |
{object V41; |
258 |
base[0]= (V15); |
base[0]= (V16); |
259 |
base[1]= VV[2]; |
base[1]= VV[2]; |
260 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
261 |
Lgetf(); |
Lgetf(); |
262 |
vs_top=sup; |
vs_top=sup; |
263 |
V40= vs_base[0]; |
V41= vs_base[0]; |
264 |
if(((V40))==Cnil){ |
if(((V41))==Cnil){ |
265 |
goto T7;} |
goto T7;} |
|
{object V42; |
|
|
V42= list(2,VV[1],(V40)); |
|
266 |
{object V43; |
{object V43; |
267 |
base[1]= (V15); |
V43= list(2,VV[1],(V41)); |
268 |
base[2]= (V42); |
{object V44; |
269 |
|
base[1]= (V16); |
270 |
|
base[2]= (V43); |
271 |
base[3]= VV[2]; |
base[3]= VV[2]; |
272 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
273 |
siLput_f(); |
siLput_f(); |
274 |
vs_top=sup; |
vs_top=sup; |
275 |
V43= vs_base[0]; |
V44= vs_base[0]; |
276 |
V15= (V43);}}} |
V16= (V44);}}} |
277 |
goto T7; |
goto T7; |
278 |
T7:; |
T7:; |
279 |
V44= list(2,VV[1],(V12)); |
V45= list(2,VV[1],(V13)); |
280 |
V45= list(3,VV[11],/* INLINE-ARGS */V44,list(2,VV[1],(V13))); |
V46= list(3,VV[11],/* INLINE-ARGS */V45,list(2,VV[1],(V14))); |
281 |
V46= list(2,VV[12],(V12));{object V47; |
V47= list(2,VV[12],(V13));{object V48; |
282 |
V47= (VV[13]->s.s_dbind); |
V48= (VV[13]->s.s_dbind); |
283 |
V48= list(2,VV[1],(V12)); |
V49= list(2,VV[1],(V13)); |
284 |
V49= listA(4,VV[14],/* INLINE-ARGS */V48,list(2,VV[1],(V13)),(V15)); |
V50= listA(4,VV[14],/* INLINE-ARGS */V49,list(2,VV[1],(V14)),(V16)); |
285 |
{object V50 = list(3,VV[10],/* INLINE-ARGS */V45,(*(LnkLI349))(/* INLINE-ARGS */V46,V47,/* INLINE-ARGS */V49)); |
{object V51 = list(3,VV[10],/* INLINE-ARGS */V46,(*(LnkLI349))(/* INLINE-ARGS */V47,V48,/* INLINE-ARGS */V50)); |
286 |
VMR3(V50)}}} |
VMR3(V51)}}} |
287 |
base[0]=base[0]; |
base[0]=base[0]; |
288 |
return Cnil; |
return Cnil; |
289 |
} |
} |
293 |
{register object *base=vs_base; |
{register object *base=vs_base; |
294 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
295 |
vs_check; |
vs_check; |
296 |
{register object V51; |
{register object V52; |
|
object V52; |
|
297 |
object V53; |
object V53; |
298 |
|
object V54; |
299 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
300 |
V51=(base[0]); |
V52=(base[0]); |
301 |
V52=(base[1]); |
V53=(base[1]); |
302 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
303 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
304 |
{object *p=vs_top; |
{object *p=vs_top; |
305 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
306 |
V53=(base[2]); |
V54=(base[2]); |
307 |
vs_top=sup; |
vs_top=sup; |
308 |
if(!(type_of((V51))==t_cons||((V51))==Cnil)){ |
if(!(type_of((V52))==t_cons||((V52))==Cnil)){ |
309 |
goto T119;} |
goto T119;} |
310 |
(void)((*(LnkLI348))(CMPcadr((V51)))); |
(void)((*(LnkLI348))(CMPcadr((V52)))); |
311 |
goto T119; |
goto T119; |
312 |
T119:; |
T119:; |
313 |
base[3]= (V51); |
base[3]= (V52); |
314 |
base[4]= VV[15]; |
base[4]= VV[15]; |
315 |
base[5]= (V52); |
base[5]= (V53); |
316 |
base[6]= VV[16]; |
base[6]= VV[16]; |
317 |
V55= list(2,VV[12],(V51)); |
V56= list(2,VV[12],(V52)); |
318 |
vs_base=vs_top; |
vs_base=vs_top; |
319 |
(void) (*Lnk350)(); |
(void) (*Lnk350)(); |
320 |
vs_top=sup; |
vs_top=sup; |
321 |
V56= vs_base[0]; |
V57= vs_base[0]; |
322 |
base[7]= list(2,/* INLINE-ARGS */V55,V56); |
base[7]= list(2,/* INLINE-ARGS */V56,V57); |
323 |
{object V54; |
{object V55; |
324 |
V54= (V53); |
V55= (V54); |
325 |
vs_top=base+8; |
vs_top=base+8; |
326 |
while(V54!=Cnil) |
while(V55!=Cnil) |
327 |
{vs_push((V54)->c.c_car);V54=(V54)->c.c_cdr;} |
{vs_push((V55)->c.c_car);V55=(V55)->c.c_cdr;} |
328 |
vs_base=base+3;} |
vs_base=base+3;} |
329 |
(void) (*Lnk351)(); |
(void) (*Lnk351)(); |
330 |
return; |
return; |
338 |
vs_check; |
vs_check; |
339 |
check_arg(2); |
check_arg(2); |
340 |
vs_top=sup; |
vs_top=sup; |
341 |
{object V57=base[0]->c.c_cdr; |
{object V58=base[0]->c.c_cdr; |
342 |
base[2]= V57;} |
base[2]= V58;} |
343 |
{object V58; |
{object V59; |
|
object V59; |
|
344 |
object V60; |
object V60; |
345 |
object V61; |
object V61; |
346 |
|
object V62; |
347 |
base[3]= base[2]; |
base[3]= base[2]; |
348 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
349 |
(void) (*Lnk352)(); |
(void) (*Lnk352)(); |
350 |
if(vs_base>=vs_top){vs_top=sup;goto T131;} |
if(vs_base>=vs_top){vs_top=sup;goto T131;} |
351 |
V58= vs_base[0]; |
V59= vs_base[0]; |
352 |
vs_base++; |
vs_base++; |
353 |
if(vs_base>=vs_top){vs_top=sup;goto T132;} |
if(vs_base>=vs_top){vs_top=sup;goto T132;} |
354 |
V59= vs_base[0]; |
V60= vs_base[0]; |
355 |
vs_base++; |
vs_base++; |
356 |
if(vs_base>=vs_top){vs_top=sup;goto T133;} |
if(vs_base>=vs_top){vs_top=sup;goto T133;} |
357 |
V60= vs_base[0]; |
V61= vs_base[0]; |
358 |
vs_base++; |
vs_base++; |
359 |
if(vs_base>=vs_top){vs_top=sup;goto T134;} |
if(vs_base>=vs_top){vs_top=sup;goto T134;} |
360 |
V61= vs_base[0]; |
V62= vs_base[0]; |
361 |
vs_top=sup; |
vs_top=sup; |
362 |
goto T135; |
goto T135; |
363 |
goto T131; |
goto T131; |
364 |
T131:; |
T131:; |
365 |
V58= Cnil; |
V59= Cnil; |
366 |
goto T132; |
goto T132; |
367 |
T132:; |
T132:; |
368 |
V59= Cnil; |
V60= Cnil; |
369 |
goto T133; |
goto T133; |
370 |
T133:; |
T133:; |
371 |
V60= Cnil; |
V61= Cnil; |
372 |
goto T134; |
goto T134; |
373 |
T134:; |
T134:; |
374 |
V61= Cnil; |
V62= Cnil; |
375 |
goto T135; |
goto T135; |
376 |
T135:; |
T135:; |
377 |
{object V62; |
{object V63; |
378 |
object V63; |
object V64; |
379 |
base[3]= (V58); |
base[3]= (V59); |
380 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
381 |
(void) (*Lnk353)(); |
(void) (*Lnk353)(); |
382 |
if(vs_base>=vs_top){vs_top=sup;goto T138;} |
if(vs_base>=vs_top){vs_top=sup;goto T138;} |
383 |
V62= vs_base[0]; |
V63= vs_base[0]; |
384 |
vs_base++; |
vs_base++; |
385 |
if(vs_base>=vs_top){vs_top=sup;goto T139;} |
if(vs_base>=vs_top){vs_top=sup;goto T139;} |
386 |
V63= vs_base[0]; |
V64= vs_base[0]; |
387 |
vs_top=sup; |
vs_top=sup; |
388 |
goto T140; |
goto T140; |
389 |
goto T138; |
goto T138; |
390 |
T138:; |
T138:; |
391 |
V62= Cnil; |
V63= Cnil; |
392 |
goto T139; |
goto T139; |
393 |
T139:; |
T139:; |
394 |
V63= Cnil; |
V64= Cnil; |
395 |
goto T140; |
goto T140; |
396 |
T140:; |
T140:; |
397 |
base[3]= (*(LnkLI354))((V58),(V62),(V63),(V59),(V60),(V61),base[1]); |
base[3]= (*(LnkLI354))((V59),(V63),(V64),(V60),(V61),(V62),base[1]); |
398 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
399 |
return;}} |
return;}} |
400 |
} |
} |
404 |
{register object *base=vs_base; |
{register object *base=vs_base; |
405 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM6; VC6 |
406 |
vs_check; |
vs_check; |
407 |
{object V64; |
{object V65; |
408 |
check_arg(1); |
check_arg(1); |
409 |
V64=(base[0]); |
V65=(base[0]); |
410 |
vs_top=sup; |
vs_top=sup; |
411 |
goto TTL; |
goto TTL; |
412 |
TTL:; |
TTL:; |
418 |
return; |
return; |
419 |
goto T142; |
goto T142; |
420 |
T142:; |
T142:; |
421 |
{register object V65; |
{register object V66; |
422 |
if(((*(LnkLI355))((V64)))!=Cnil){ |
if(((*(LnkLI355))((V65)))!=Cnil){ |
423 |
goto T147;} |
goto T147;} |
424 |
V65= Cnil; |
V66= Cnil; |
425 |
goto T146; |
goto T146; |
426 |
goto T147; |
goto T147; |
427 |
T147:; |
T147:; |
428 |
V65= (*(LnkLI356))((V64)); |
V66= (*(LnkLI356))((V65)); |
429 |
goto T146; |
goto T146; |
430 |
T146:; |
T146:; |
431 |
if(((V65))==Cnil){ |
if(((V66))==Cnil){ |
432 |
goto T149;} |
goto T149;} |
433 |
base[1]= (V65); |
base[1]= (V66); |
434 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
435 |
(void) (*Lnk357)(Lclptr357); |
(void) (*Lnk357)(Lclptr357); |
436 |
vs_top=sup; |
vs_top=sup; |
452 |
return; |
return; |
453 |
goto T150; |
goto T150; |
454 |
T150:; |
T150:; |
455 |
base[1]= (V65);{object V66; |
base[1]= (V66);{object V67; |
456 |
base[4]= (V65); |
base[4]= (V66); |
457 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
458 |
(void) (*Lnk358)(Lclptr358); |
(void) (*Lnk358)(Lclptr358); |
459 |
vs_top=sup; |
vs_top=sup; |
460 |
V66= vs_base[0]; |
V67= vs_base[0]; |
461 |
if(V66==Cnil)goto T162; |
if(V67==Cnil)goto T162; |
462 |
base[3]= V66; |
base[3]= V67; |
463 |
goto T161; |
goto T161; |
464 |
goto T162; |
goto T162; |
465 |
T162:;} |
T162:;} |
480 |
{register object *base=vs_base; |
{register object *base=vs_base; |
481 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM7; VC7 |
482 |
vs_check; |
vs_check; |
483 |
{object V67; |
{object V68; |
484 |
check_arg(1); |
check_arg(1); |
485 |
V67=(base[0]); |
V68=(base[0]); |
486 |
vs_top=sup; |
vs_top=sup; |
487 |
goto TTL; |
goto TTL; |
488 |
TTL:; |
TTL:; |
489 |
{object V68; |
{object V69; |
490 |
if(((*(LnkLI355))((V67)))!=Cnil){ |
if(((*(LnkLI355))((V68)))!=Cnil){ |
491 |
goto T166;} |
goto T166;} |
492 |
V68= Cnil; |
V69= Cnil; |
493 |
goto T165; |
goto T165; |
494 |
goto T166; |
goto T166; |
495 |
T166:; |
T166:; |
496 |
V68= (*(LnkLI356))((V67)); |
V69= (*(LnkLI356))((V68)); |
497 |
goto T165; |
goto T165; |
498 |
T165:; |
T165:; |
499 |
if(!(((((VV[17]->s.s_dbind))==(VV[18])?Ct:Cnil))==Cnil)){ |
if(!(((((VV[17]->s.s_dbind))==(VV[18])?Ct:Cnil))==Cnil)){ |
503 |
return; |
return; |
504 |
goto T169; |
goto T169; |
505 |
T169:; |
T169:; |
506 |
if(((V68))==Cnil){ |
if(((V69))==Cnil){ |
507 |
goto T171;} |
goto T171;} |
508 |
base[1]= (V68); |
base[1]= (V69); |
509 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
510 |
(void) (*Lnk357)(Lclptr357); |
(void) (*Lnk357)(Lclptr357); |
511 |
vs_top=sup; |
vs_top=sup; |
518 |
(void) (*Lnk301)(Lclptr301); |
(void) (*Lnk301)(Lclptr301); |
519 |
return; |
return; |
520 |
goto T172; |
goto T172; |
521 |
T172:;{object V69; |
T172:;{object V70; |
522 |
base[2]= (V68); |
base[2]= (V69); |
523 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
524 |
(void) (*Lnk358)(Lclptr358); |
(void) (*Lnk358)(Lclptr358); |
525 |
vs_top=sup; |
vs_top=sup; |
526 |
V69= vs_base[0]; |
V70= vs_base[0]; |
527 |
if(V69==Cnil)goto T179; |
if(V70==Cnil)goto T179; |
528 |
base[1]= V69; |
base[1]= V70; |
529 |
goto T178; |
goto T178; |
530 |
goto T179; |
goto T179; |
531 |
T179:;} |
T179:;} |
539 |
} |
} |
540 |
/* local entry for function EXPAND-DEFMETHOD */ |
/* local entry for function EXPAND-DEFMETHOD */ |
541 |
|
|
542 |
static object LI10(V77,V78,V79,V80,V81,V82,V83) |
static object LI10(V78,V79,V80,V81,V82,V83,V84) |
543 |
|
|
544 |
register object V77;object V78;register object V79;object V80;object V81;object V82;object V83; |
register object V78;object V79;register object V80;object V81;object V82;object V83;object V84; |
545 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
546 |
bds_check; |
bds_check; |
547 |
goto TTL; |
goto TTL; |
548 |
TTL:; |
TTL:; |
549 |
if(!(type_of((V77))==t_cons||((V77))==Cnil)){ |
if(!(type_of((V78))==t_cons||((V78))==Cnil)){ |
550 |
goto T182;} |
goto T182;} |
551 |
(void)((*(LnkLI348))(CMPcadr((V77)))); |
(void)((*(LnkLI348))(CMPcadr((V78)))); |
552 |
goto T182; |
goto T182; |
553 |
T182:; |
T182:; |
554 |
bds_bind(VV[21],Cnil); |
bds_bind(VV[21],Cnil); |
556 |
bds_bind(VV[23],Cnil); |
bds_bind(VV[23],Cnil); |
557 |
bds_bind(VV[24],Cnil); |
bds_bind(VV[24],Cnil); |
558 |
bds_bind(VV[25],Cnil); |
bds_bind(VV[25],Cnil); |
559 |
{object V84; |
{object V85; |
|
object V85; |
|
560 |
object V86; |
object V86; |
561 |
base[5]= (V77); |
object V87; |
562 |
base[6]= (V80); |
base[5]= (V78); |
563 |
base[7]= (V81); |
base[6]= (V81); |
564 |
base[8]= (V82); |
base[7]= (V82); |
565 |
base[9]= (V83); |
base[8]= (V83); |
566 |
|
base[9]= (V84); |
567 |
vs_top=(vs_base=base+5)+5; |
vs_top=(vs_base=base+5)+5; |
568 |
(void) (*Lnk359)(); |
(void) (*Lnk359)(); |
569 |
if(vs_base>=vs_top){vs_top=sup;goto T191;} |
if(vs_base>=vs_top){vs_top=sup;goto T191;} |
570 |
V84= vs_base[0]; |
V85= vs_base[0]; |
571 |
vs_base++; |
vs_base++; |
572 |
if(vs_base>=vs_top){vs_top=sup;goto T192;} |
if(vs_base>=vs_top){vs_top=sup;goto T192;} |
573 |
V85= vs_base[0]; |
V86= vs_base[0]; |
574 |
vs_base++; |
vs_base++; |
575 |
if(vs_base>=vs_top){vs_top=sup;goto T193;} |
if(vs_base>=vs_top){vs_top=sup;goto T193;} |
576 |
V86= vs_base[0]; |
V87= vs_base[0]; |
577 |
vs_top=sup; |
vs_top=sup; |
578 |
goto T194; |
goto T194; |
579 |
goto T191; |
goto T191; |
580 |
T191:; |
T191:; |
581 |
V84= Cnil; |
V85= Cnil; |
582 |
goto T192; |
goto T192; |
583 |
T192:; |
T192:; |
584 |
V85= Cnil; |
V86= Cnil; |
585 |
goto T193; |
goto T193; |
586 |
T193:; |
T193:; |
587 |
V86= Cnil; |
V87= Cnil; |
588 |
goto T194; |
goto T194; |
589 |
T194:; |
T194:; |
590 |
{object V87; |
{object V88; |
591 |
object V88; |
object V89; |
592 |
base[5]= (V78); |
base[5]= (V79); |
593 |
base[6]= (V79); |
base[6]= (V80); |
594 |
base[7]= (V84); |
base[7]= (V85); |
595 |
base[8]= (V83); |
base[8]= (V84); |
596 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
597 |
(void) (*Lnk360)(Lclptr360); |
(void) (*Lnk360)(Lclptr360); |
598 |
if(vs_base>=vs_top){vs_top=sup;goto T200;} |
if(vs_base>=vs_top){vs_top=sup;goto T200;} |
599 |
V87= vs_base[0]; |
V88= vs_base[0]; |
600 |
vs_base++; |
vs_base++; |
601 |
if(vs_base>=vs_top){vs_top=sup;goto T201;} |
if(vs_base>=vs_top){vs_top=sup;goto T201;} |
602 |
V88= vs_base[0]; |
V89= vs_base[0]; |
603 |
vs_top=sup; |
vs_top=sup; |
604 |
goto T202; |
goto T202; |
605 |
goto T200; |
goto T200; |
606 |
T200:; |
T200:; |
607 |
V87= Cnil; |
V88= Cnil; |
608 |
goto T201; |
goto T201; |
609 |
T201:; |
T201:; |
610 |
V88= Cnil; |
V89= Cnil; |
611 |
goto T202; |
goto T202; |
612 |
T202:; |
T202:; |
613 |
{object V89; |
{object V90; |
614 |
base[5]= (V78); |
base[5]= (V79); |
615 |
base[6]= (V79); |
base[6]= (V80); |
616 |
base[7]= (V87); |
base[7]= (V88); |
617 |
base[8]= (V88); |
base[8]= (V89); |
618 |
base[9]= (V83); |
base[9]= (V84); |
619 |
vs_top=(vs_base=base+5)+5; |
vs_top=(vs_base=base+5)+5; |
620 |
(void) (*Lnk361)(Lclptr361); |
(void) (*Lnk361)(Lclptr361); |
621 |
vs_top=sup; |
vs_top=sup; |
622 |
V89= vs_base[0]; |
V90= vs_base[0]; |
623 |
V90= list(2,VV[1],(V77)); |
V91= list(2,VV[1],(V78)); |
624 |
V91= list(3,VV[11],/* INLINE-ARGS */V90,list(2,VV[1],(V81))); |
V92= list(3,VV[11],/* INLINE-ARGS */V91,list(2,VV[1],(V82))); |
625 |
if(((VV[21]->s.s_dbind))==Cnil){ |
if(((VV[21]->s.s_dbind))==Cnil){ |
626 |
goto T212;} |
goto T212;} |
627 |
V93= list(2,VV[26],list(2,VV[1],(VV[21]->s.s_dbind))); |
V94= list(2,VV[26],list(2,VV[1],(VV[21]->s.s_dbind))); |
628 |
base[5]= make_cons(/* INLINE-ARGS */V93,Cnil); |
base[5]= make_cons(/* INLINE-ARGS */V94,Cnil); |
629 |
goto T210; |
goto T210; |
630 |
goto T212; |
goto T212; |
631 |
T212:; |
T212:; |
640 |
goto T216;} |
goto T216;} |
641 |
goto T215; |
goto T215; |
642 |
T215:; |
T215:; |
643 |
V94= list(2,VV[1],(VV[23]->s.s_dbind)); |
V95= list(2,VV[1],(VV[23]->s.s_dbind)); |
644 |
V95= list(2,VV[1],(VV[24]->s.s_dbind)); |
V96= list(2,VV[1],(VV[24]->s.s_dbind)); |
645 |
V96= list(4,VV[27],/* INLINE-ARGS */V94,/* INLINE-ARGS */V95,list(2,VV[1],(VV[25]->s.s_dbind))); |
V97= list(4,VV[27],/* INLINE-ARGS */V95,/* INLINE-ARGS */V96,list(2,VV[1],(VV[25]->s.s_dbind))); |
646 |
base[6]= make_cons(/* INLINE-ARGS */V96,Cnil); |
base[6]= make_cons(/* INLINE-ARGS */V97,Cnil); |
647 |
goto T214; |
goto T214; |
648 |
goto T216; |
goto T216; |
649 |
T216:; |
T216:; |
650 |
base[6]= Cnil; |
base[6]= Cnil; |
651 |
goto T214; |
goto T214; |
652 |
T214:; |
T214:; |
653 |
if(((V79))==Cnil){ |
V98 = (V78); |
654 |
|
V99 = (V81); |
655 |
|
V100 = (V87); |
656 |
|
V101 = (V86); |
657 |
|
if(((V80))==Cnil){ |
658 |
goto T225;} |
goto T225;} |
659 |
base[8]= (*(LnkLI363))((V79)); |
base[8]= (*(LnkLI363))((V80)); |
660 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
661 |
(void) (*Lnk364)(Lclptr364); |
(void) (*Lnk364)(Lclptr364); |
662 |
vs_top=sup; |
vs_top=sup; |
663 |
V97= vs_base[0]; |
V102= vs_base[0]; |
664 |
goto T223; |
goto T223; |
665 |
goto T225; |
goto T225; |
666 |
T225:; |
T225:; |
667 |
V97= VV[20]; |
V102= VV[20]; |
668 |
goto T223; |
goto T223; |
669 |
T223:; |
T223:; |
670 |
base[9]= (V88); |
V103 = (V90); |
671 |
|
base[9]= (V89); |
672 |
base[10]= VV[28]; |
base[10]= VV[28]; |
673 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+9)+2; |
674 |
Lgetf(); |
Lgetf(); |
678 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
679 |
Lgetf(); |
Lgetf(); |
680 |
vs_top=sup; |
vs_top=sup; |
681 |
V98= vs_base[0]; |
V104= vs_base[0]; |
682 |
V99= (VFUN_NARGS=7,(*(LnkLI362))((V77),(V80),(V86),(V85),V97,(V89),V98)); |
V105= (VFUN_NARGS=7,(*(LnkLI362))(V98,V99,V100,V101,V102,V103,V104)); |
683 |
base[7]= make_cons(/* INLINE-ARGS */V99,Cnil); |
base[7]= make_cons(/* INLINE-ARGS */V105,Cnil); |
684 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
685 |
Lappend(); |
Lappend(); |
686 |
vs_top=sup; |
vs_top=sup; |
687 |
V92= vs_base[0]; |
V93= vs_base[0]; |
688 |
{object V100 = listA(3,VV[10],/* INLINE-ARGS */V91,V92); |
{object V106 = listA(3,VV[10],/* INLINE-ARGS */V92,V93); |
689 |
bds_unwind1; |
bds_unwind1; |
690 |
bds_unwind1; |
bds_unwind1; |
691 |
bds_unwind1; |
bds_unwind1; |
692 |
bds_unwind1; |
bds_unwind1; |
693 |
bds_unwind1; |
bds_unwind1; |
694 |
VMR8(V100)}}}} |
VMR8(V106)}}}} |
695 |
base[0]=base[0]; |
base[0]=base[0]; |
696 |
return Cnil; |
return Cnil; |
697 |
} |
} |
698 |
/* local entry for function INTERNED-SYMBOL-P */ |
/* local entry for function INTERNED-SYMBOL-P */ |
699 |
|
|
700 |
static object LI11(V102) |
static object LI11(V108) |
701 |
|
|
702 |
object V102; |
object V108; |
703 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
704 |
goto TTL; |
goto TTL; |
705 |
TTL:; |
TTL:; |
706 |
if(type_of((V102))==t_symbol){ |
if(type_of((V108))==t_symbol){ |
707 |
goto T233;} |
goto T233;} |
708 |
{object V103 = Cnil; |
{object V109 = Cnil; |
709 |
VMR9(V103)} |
VMR9(V109)} |
710 |
goto T233; |
goto T233; |
711 |
T233:; |
T233:; |
712 |
base[0]= (V102); |
base[0]= (V108); |
713 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
714 |
Lsymbol_package(); |
Lsymbol_package(); |
715 |
vs_top=sup; |
vs_top=sup; |
716 |
{object V104 = vs_base[0]; |
{object V110 = vs_base[0]; |
717 |
VMR9(V104)} |
VMR9(V110)} |
718 |
base[0]=base[0]; |
base[0]=base[0]; |
719 |
return Cnil; |
return Cnil; |
720 |
} |
} |
721 |
/* local entry for function MAKE-DEFMETHOD-FORM */ |
/* local entry for function MAKE-DEFMETHOD-FORM */ |
722 |
|
|
723 |
static object LI12(object V110,object V109,object V108,object V107,object V106,object V105,object first,...) |
static object LI12(object V116,object V115,object V114,object V113,object V112,object V111,object first,...) |
724 |
{ |
{ |
725 |
va_list ap; |
va_list ap; |
726 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
727 |
bds_check; |
bds_check; |
728 |
{register object V111; |
{register object V117; |
729 |
register object V112; |
register object V118; |
730 |
register object V113; |
register object V119; |
731 |
object V114; |
object V120; |
732 |
object V115; |
object V121; |
733 |
register object V116; |
register object V122; |
734 |
object V117; |
object V123; |
735 |
va_start(ap,first); |
va_start(ap,first); |
736 |
if(narg <6) too_few_arguments(); |
if(narg <6) too_few_arguments(); |
737 |
V111= V110; |
V117= V116; |
738 |
V112= V109; |
V118= V115; |
739 |
V113= V108; |
V119= V114; |
740 |
V114= V107; |
V120= V113; |
741 |
V115= V106; |
V121= V112; |
742 |
V116= V105; |
V122= V111; |
743 |
narg = narg - 6; |
narg = narg - 6; |
744 |
if (narg <= 0) goto T236; |
if (narg <= 0) goto T236; |
745 |
else { |
else { |
746 |
V117= first;} |
V123= first;} |
747 |
--narg; goto T237; |
--narg; goto T237; |
748 |
goto T236; |
goto T236; |
749 |
T236:; |
T236:; |
750 |
V117= Cnil; |
V123= Cnil; |
751 |
goto T237; |
goto T237; |
752 |
T237:; |
T237:; |
753 |
{object V118; |
{object V124; |
754 |
register object V119; |
register object V125; |
755 |
V118= Cnil; |
V124= Cnil; |
756 |
V119= Cnil; |
V125= Cnil; |
757 |
if(!(type_of((V111))==t_cons)){ |
if(!(type_of((V117))==t_cons)){ |
758 |
goto T245;} |
goto T245;} |
759 |
if((CMPcar((V111)))==(VV[30])){ |
if((CMPcar((V117)))==(VV[30])){ |
760 |
goto T247;} |
goto T247;} |
761 |
V120= Cnil; |
V126= Cnil; |
762 |
goto T243; |
goto T243; |
763 |
goto T247; |
goto T247; |
764 |
T247:; |
T247:; |
765 |
V120= CMPcadr((V111)); |
V126= CMPcadr((V117)); |
766 |
goto T243; |
goto T243; |
767 |
goto T245; |
goto T245; |
768 |
T245:; |
T245:; |
769 |
V120= (V111); |
V126= (V117); |
770 |
goto T243; |
goto T243; |
771 |
T243:; |
T243:; |
772 |
if(((*(LnkLI365))(V120))==Cnil){ |
if(((*(LnkLI365))(V126))==Cnil){ |
773 |
goto T240;} |
goto T240;} |
774 |
base[0]= (VV[365]->s.s_gfdef); |
base[0]= (VV[365]->s.s_gfdef); |
775 |
base[1]= (V112); |
base[1]= (V118); |
776 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
777 |
(void) (*Lnk366)(); |
(void) (*Lnk366)(); |
778 |
vs_top=sup; |
vs_top=sup; |
779 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
780 |
goto T240;} |
goto T240;} |
781 |
base[0]= VV[367]; |
base[0]= VV[367]; |
782 |
base[1]= (V113); |
base[1]= (V119); |
783 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
784 |
(void) (*Lnk366)(); |
(void) (*Lnk366)(); |
785 |
vs_top=sup; |
vs_top=sup; |
786 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
787 |
goto T240;} |
goto T240;} |
788 |
if(!(type_of((V116))==t_cons)){ |
if(!(type_of((V122))==t_cons)){ |
789 |
goto T240;} |
goto T240;} |
790 |
if(!((CMPcar((V116)))==(VV[32]))){ |
if(!((CMPcar((V122)))==(VV[32]))){ |
791 |
goto T240;} |
goto T240;} |
792 |
{register object x= CMPcadr((V116)),V121= VV[33]; |
{register object x= CMPcadr((V122)),V127= VV[33]; |
793 |
while(V121!=Cnil) |
while(V127!=Cnil) |
794 |
if(x==(V121->c.c_car)){ |
if(x==(V127->c.c_car)){ |
795 |
goto T262; |
goto T262; |
796 |
}else V121=V121->c.c_cdr; |
}else V127=V127->c.c_cdr; |
797 |
goto T240;} |
goto T240;} |
798 |
goto T262; |
goto T262; |
799 |
T262:; |
T262:; |
800 |
V118= CMPcaddr((V116)); |
V124= CMPcaddr((V122)); |
801 |
if(!(type_of((V118))==t_cons)){ |
V128 = (V124); |
802 |
|
if(!(type_of(V128)==t_cons)){ |
803 |
goto T240;} |
goto T240;} |
804 |
if(!((CMPcar((V118)))==(VV[34]))){ |
if(!((CMPcar((V124)))==(VV[34]))){ |
805 |
goto T240;} |
goto T240;} |
806 |
V119= CMPcadr((V118)); |
V125= CMPcadr((V124)); |
807 |
if(!(type_of((V119))==t_cons)){ |
V129 = (V125); |
808 |
|
if(!(type_of(V129)==t_cons)){ |
809 |
goto T240;} |
goto T240;} |
810 |
if(!((CMPcar((V119)))==(VV[35]))){ |
if(!((CMPcar((V125)))==(VV[35]))){ |
811 |
goto T240;} |
goto T240;} |
812 |
{object V122; |
{object V130; |
813 |
object V123; |
object V131; |
814 |
object V124; |
object V132; |
815 |
{object V125; |
{object V133; |
816 |
object V126= (V113); |
object V134= (V119); |
817 |
if(V126==Cnil){ |
if(V134==Cnil){ |
818 |
V122= Cnil; |
V130= Cnil; |
819 |
goto T272;} |
goto T272;} |
820 |
base[3]=V125=MMcons(Cnil,Cnil); |
base[3]=V133=MMcons(Cnil,Cnil); |
821 |
goto T273; |
goto T273; |
822 |
T273:; |
T273:; |
823 |
{register object V127; |
{register object V135; |
824 |
V127= (V126->c.c_car); |
V135= (V134->c.c_car); |
825 |
if(!(type_of((V127))==t_cons)){ |
if(!(type_of((V135))==t_cons)){ |
826 |
goto T276;} |
goto T276;} |
827 |
V128= CMPcar((V127)); |
V136= CMPcar((V135)); |
828 |
base[4]= CMPcadr((V127)); |
base[4]= CMPcadr((V135)); |
829 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
830 |
Leval(); |
Leval(); |
831 |
vs_top=sup; |
vs_top=sup; |
832 |
V129= vs_base[0]; |
V137= vs_base[0]; |
833 |
(V125->c.c_car)= list(2,/* INLINE-ARGS */V128,V129); |
(V133->c.c_car)= list(2,/* INLINE-ARGS */V136,V137); |
834 |
goto T274; |
goto T274; |
835 |
goto T276; |
goto T276; |
836 |
T276:; |
T276:; |
837 |
(V125->c.c_car)= (V127);} |
(V133->c.c_car)= (V135);} |
838 |
goto T274; |
goto T274; |
839 |
T274:; |
T274:; |
840 |
if((V126=MMcdr(V126))==Cnil){ |
if((V134=MMcdr(V134))==Cnil){ |
841 |
V122= base[3]; |
V130= base[3]; |
842 |
goto T272;} |
goto T272;} |
843 |
V125=MMcdr(V125)=MMcons(Cnil,Cnil); |
V133=MMcdr(V133)=MMcons(Cnil,Cnil); |
844 |
goto T273;} |
goto T273;} |
845 |
goto T272; |
goto T272; |
846 |
T272:; |
T272:; |
847 |
if(!((CMPcadr((V116)))==(VV[36]))){ |
if(!((CMPcadr((V122)))==(VV[36]))){ |
848 |
goto T283;} |
goto T283;} |
849 |
V130= VV[37]; |
V138= VV[37]; |
850 |
goto T281; |
goto T281; |
851 |
goto T283; |
goto T283; |
852 |
T283:; |
T283:; |
853 |
V130= VV[38]; |
V138= VV[38]; |
854 |
goto T281; |
goto T281; |
855 |
T281:; |
T281:; |
856 |
V131= make_cons((V122),Cnil); |
V139 = (V117); |
857 |
V123= listA(3,V130,(V111),append((V112),/* INLINE-ARGS */V131)); |
V140= make_cons((V130),Cnil); |
858 |
|
V131= listA(3,V138,V139,append((V118),/* INLINE-ARGS */V140)); |
859 |
bds_bind(VV[39],Cnil); |
bds_bind(VV[39],Cnil); |
860 |
base[5]= Cnil; |
base[5]= Cnil; |
861 |
base[6]= VV[40]; |
base[6]= VV[40]; |
862 |
base[7]= (V123); |
base[7]= (V131); |
863 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
864 |
Lformat(); |
Lformat(); |
865 |
vs_top=sup; |
vs_top=sup; |
868 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
869 |
Lintern(); |
Lintern(); |
870 |
vs_top=sup; |
vs_top=sup; |
871 |
V124= vs_base[0];{object V132; |
V132= vs_base[0];{object V141; |
872 |
V132= (VV[42]->s.s_dbind); |
V141= (VV[42]->s.s_dbind); |
873 |
V133= listA(4,VV[43],(V124),CMPcadr((V119)),CMPcddr((V119))); |
V142= listA(4,VV[43],(V132),CMPcadr((V125)),CMPcddr((V125))); |
874 |
V134= list(2,VV[1],(V122)); |
V143= list(2,VV[1],(V130)); |
875 |
V135= CMPcadr((V116)); |
V144= CMPcadr((V122)); |
876 |
V136= listA(4,VV[32],/* INLINE-ARGS */V135,list(2,VV[34],(V124)),CMPcdddr((V116))); |
V145= listA(4,VV[32],/* INLINE-ARGS */V144,list(2,VV[34],(V132)),CMPcdddr((V122))); |
877 |
{object V137 = list(4,VV[41],V132,/* INLINE-ARGS */V133,(VFUN_NARGS=7,(*(LnkLI368))((V111),(V112),/* INLINE-ARGS */V134,(V114),(V115),/* INLINE-ARGS */V136,(V117)))); |
{object V146 = list(4,VV[41],V141,/* INLINE-ARGS */V142,(VFUN_NARGS=7,(*(LnkLI368))((V117),(V118),/* INLINE-ARGS */V143,(V120),(V121),/* INLINE-ARGS */V145,(V123)))); |
878 |
VMR10(V137)}}} |
VMR10(V146)}}} |
879 |
goto T240; |
goto T240; |
880 |
T240:; |
T240:; |
881 |
V138= make_cons((V113),Cnil); |
V147= make_cons((V119),Cnil); |
882 |
V139= listA(3,VV[7],(V111),append((V112),/* INLINE-ARGS */V138));{object V140; |
V148= listA(3,VV[7],(V117),append((V118),/* INLINE-ARGS */V147));{object V149; |
883 |
V140= (VV[42]->s.s_dbind); |
V149= (VV[42]->s.s_dbind); |
884 |
{object V142; |
{object V151; |
885 |
object V143= (V113); |
object V152= (V119); |
886 |
if(V143==Cnil){ |
if(V152==Cnil){ |
887 |
V141= Cnil; |
V150= Cnil; |
888 |
goto T290;} |
goto T290;} |
889 |
base[0]=V142=MMcons(Cnil,Cnil); |
base[0]=V151=MMcons(Cnil,Cnil); |
890 |
goto T291; |
goto T291; |
891 |
T291:; |
T291:; |
892 |
{register object V144; |
{register object V153; |
893 |
V144= (V143->c.c_car); |
V153= (V152->c.c_car); |
894 |
if(!(type_of((V144))==t_cons)){ |
if(!(type_of((V153))==t_cons)){ |
895 |
goto T294;} |
goto T294;} |
896 |
(V142->c.c_car)= list(3,VV[44],list(2,VV[1],CMPcar((V144))),CMPcadr((V144))); |
(V151->c.c_car)= list(3,VV[44],list(2,VV[1],CMPcar((V153))),CMPcadr((V153))); |
897 |
goto T292; |
goto T292; |
898 |
goto T294; |
goto T294; |
899 |
T294:; |
T294:; |
900 |
(V142->c.c_car)= list(2,VV[1],(V144));} |
(V151->c.c_car)= list(2,VV[1],(V153));} |
901 |
goto T292; |
goto T292; |
902 |
T292:; |
T292:; |
903 |
if((V143=MMcdr(V143))==Cnil){ |
if((V152=MMcdr(V152))==Cnil){ |
904 |
V141= base[0]; |
V150= base[0]; |
905 |
goto T290;} |
goto T290;} |
906 |
V142=MMcdr(V142)=MMcons(Cnil,Cnil); |
V151=MMcdr(V151)=MMcons(Cnil,Cnil); |
907 |
goto T291;} |
goto T291;} |
908 |
goto T290; |
goto T290; |
909 |
T290:; |
T290:; |
910 |
V145= make_cons(VV[44],V141); |
V154= make_cons(VV[44],V150); |
911 |
V146= (VFUN_NARGS=7,(*(LnkLI368))((V111),(V112),/* INLINE-ARGS */V145,(V114),(V115),(V116),(V117))); |
V155= (VFUN_NARGS=7,(*(LnkLI368))((V117),(V118),/* INLINE-ARGS */V154,(V120),(V121),(V122),(V123))); |
912 |
{object V147 = (*(LnkLI349))(/* INLINE-ARGS */V139,V140,/* INLINE-ARGS */V146); |
{object V156 = (*(LnkLI349))(/* INLINE-ARGS */V148,V149,/* INLINE-ARGS */V155); |
913 |
VMR10(V147)}}} |
VMR10(V156)}}} |
914 |
va_end(ap); |
va_end(ap); |
915 |
base[0]=base[0]; |
base[0]=base[0]; |
916 |
return Cnil;} |
return Cnil;} |
917 |
} |
} |
918 |
/* local entry for function MAKE-DEFMETHOD-FORM-INTERNAL */ |
/* local entry for function MAKE-DEFMETHOD-FORM-INTERNAL */ |
919 |
|
|
920 |
static object LI13(object V153,object V152,object V151,object V150,object V149,object V148,object first,...) |
static object LI13(object V162,object V161,object V160,object V159,object V158,object V157,object first,...) |
921 |
{ |
{ |
922 |
va_list ap; |
va_list ap; |
923 |
int narg = VFUN_NARGS; VMB11 VMS11 VMV11 |
int narg = VFUN_NARGS; VMB11 VMS11 VMV11 |
924 |
{object V154; |
{object V163; |
925 |
object V155; |
object V164; |
926 |
object V156; |
object V165; |
927 |
object V157; |
object V166; |
928 |
object V158; |
object V167; |
929 |
object V159; |
object V168; |
930 |
object V160; |
object V169; |
931 |
va_start(ap,first); |
va_start(ap,first); |
932 |
if(narg <6) too_few_arguments(); |
if(narg <6) too_few_arguments(); |
933 |
V154= V153; |
V163= V162; |
934 |
V155= V152; |
V164= V161; |
935 |
V156= V151; |
V165= V160; |
936 |
V157= V150; |
V166= V159; |
937 |
V158= V149; |
V167= V158; |
938 |
V159= V148; |
V168= V157; |
939 |
narg = narg - 6; |
narg = narg - 6; |
940 |
if (narg <= 0) goto T296; |
if (narg <= 0) goto T296; |
941 |
else { |
else { |
942 |
V160= first;} |
V169= first;} |
943 |
--narg; goto T297; |
--narg; goto T297; |
944 |
goto T296; |
goto T296; |
945 |
T296:; |
T296:; |
946 |
V160= Cnil; |
V169= Cnil; |
947 |
goto T297; |
goto T297; |
948 |
T297:; |
T297:; |
949 |
V161= list(2,VV[1],(V158)); |
V170= list(2,VV[1],(V167)); |
950 |
V162= list(2,VV[1],(V154)); |
V171= list(2,VV[1],(V163)); |
951 |
V163= list(2,VV[1],(V155)); |
V172= list(2,VV[1],(V164)); |
952 |
V164= list(2,VV[1],(V157)); |
V173= list(2,VV[1],(V166)); |
953 |
{object V165 = list(8,VV[45],/* INLINE-ARGS */V161,/* INLINE-ARGS */V162,/* INLINE-ARGS */V163,(V156),/* INLINE-ARGS */V164,(V159),list(2,VV[1],(V160))); |
{object V174 = list(8,VV[45],/* INLINE-ARGS */V170,/* INLINE-ARGS */V171,/* INLINE-ARGS */V172,(V165),/* INLINE-ARGS */V173,(V168),list(2,VV[1],(V169))); |
954 |
VMR11(V165)} |
VMR11(V174)} |
955 |
va_end(ap); |
va_end(ap); |
956 |
return Cnil;} |
return Cnil;} |
957 |
} |
} |
963 |
vs_check; |
vs_check; |
964 |
check_arg(2); |
check_arg(2); |
965 |
vs_top=sup; |
vs_top=sup; |
966 |
{object V166=base[0]->c.c_cdr; |
{object V175=base[0]->c.c_cdr; |
967 |
if(endp(V166))invalid_macro_call(); |
if(endp(V175))invalid_macro_call(); |
968 |
base[2]= (V166->c.c_car); |
base[2]= (V175->c.c_car); |
969 |
V166=V166->c.c_cdr; |
V175=V175->c.c_cdr; |
970 |
if(!endp(V166))invalid_macro_call();} |
if(!endp(V175))invalid_macro_call();} |
971 |
base[3]= base[2]; |
base[3]= base[2]; |
972 |
base[4]= base[1]; |
base[4]= base[1]; |
973 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
980 |
{register object *base=vs_base; |
{register object *base=vs_base; |
981 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM13; VC13 |
982 |
vs_check; |
vs_check; |
983 |
{object V167; |
{object V176; |
984 |
object V168; |
object V177; |
985 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
986 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
987 |
V167=(base[0]); |
V176=(base[0]); |
988 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
989 |
if(vs_base>=vs_top){vs_top=sup;goto T301;} |
if(vs_base>=vs_top){vs_top=sup;goto T301;} |
990 |
V168=(base[1]); |
V177=(base[1]); |
991 |
vs_top=sup; |
vs_top=sup; |
992 |
goto T302; |
goto T302; |
993 |
goto T301; |
goto T301; |
994 |
T301:; |
T301:; |
995 |
V168= Cnil; |
V177= Cnil; |
996 |
goto T302; |
goto T302; |
997 |
T302:; |
T302:; |
998 |
{object V169; |
{object V178; |
999 |
object V170; |
object V179; |
1000 |
base[2]= Cnil; |
base[2]= Cnil; |
1001 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1002 |
(void) (*Lnk353)(); |
(void) (*Lnk353)(); |
1003 |
if(vs_base>=vs_top){vs_top=sup;goto T306;} |
if(vs_base>=vs_top){vs_top=sup;goto T306;} |
1004 |
V169= vs_base[0]; |
V178= vs_base[0]; |
1005 |
vs_base++; |
vs_base++; |
1006 |
if(vs_base>=vs_top){vs_top=sup;goto T307;} |
if(vs_base>=vs_top){vs_top=sup;goto T307;} |
1007 |
V170= vs_base[0]; |
V179= vs_base[0]; |
1008 |
vs_top=sup; |
vs_top=sup; |
1009 |
goto T308; |
goto T308; |
1010 |
goto T306; |
goto T306; |
1011 |
T306:; |
T306:; |
1012 |
V169= Cnil; |
V178= Cnil; |
1013 |
goto T307; |
goto T307; |
1014 |
T307:; |
T307:; |
1015 |
V170= Cnil; |
V179= Cnil; |
1016 |
goto T308; |
goto T308; |
1017 |
T308:; |
T308:; |
1018 |
{object V171; |
{object V180; |
1019 |
object V172; |
object V181; |
1020 |
base[2]= (V169); |
base[2]= (V178); |
1021 |
base[3]= (V170); |
base[3]= (V179); |
1022 |
base[4]= (V167); |
base[4]= (V176); |
1023 |
base[5]= (V168); |
base[5]= (V177); |
1024 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1025 |
(void) (*Lnk360)(Lclptr360); |
(void) (*Lnk360)(Lclptr360); |
1026 |
if(vs_base>=vs_top){vs_top=sup;goto T314;} |
if(vs_base>=vs_top){vs_top=sup;goto T314;} |
1027 |
V171= vs_base[0]; |
V180= vs_base[0]; |
1028 |
vs_base++; |
vs_base++; |
1029 |
if(vs_base>=vs_top){vs_top=sup;goto T315;} |
if(vs_base>=vs_top){vs_top=sup;goto T315;} |
1030 |
V172= vs_base[0]; |
V181= vs_base[0]; |
1031 |
vs_top=sup; |
vs_top=sup; |
1032 |
goto T316; |
goto T316; |
1033 |
goto T314; |
goto T314; |
1034 |
T314:; |
T314:; |
1035 |
V171= Cnil; |
V180= Cnil; |
1036 |
goto T315; |
goto T315; |
1037 |
T315:; |
T315:; |
1038 |
V172= Cnil; |
V181= Cnil; |
1039 |
goto T316; |
goto T316; |
1040 |
T316:; |
T316:; |
1041 |
base[2]= (V169); |
base[2]= (V178); |
1042 |
base[3]= (V170); |
base[3]= (V179); |
1043 |
base[4]= (V171); |
base[4]= (V180); |
1044 |
base[5]= (V172); |
base[5]= (V181); |
1045 |
base[6]= (V168); |
base[6]= (V177); |
1046 |
vs_top=(vs_base=base+2)+5; |
vs_top=(vs_base=base+2)+5; |
1047 |
(void) (*Lnk361)(Lclptr361); |
(void) (*Lnk361)(Lclptr361); |
1048 |
return;}} |
return;}} |
1054 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1055 |
register object *sup=base+VM14; VC14 |
register object *sup=base+VM14; VC14 |
1056 |
vs_check; |
vs_check; |
1057 |
{object V173; |
{object V182; |
1058 |
object V174; |
object V183; |
1059 |
object V175; |
object V184; |
1060 |
object V176; |
object V185; |
1061 |
object V177; |
object V186; |
1062 |
check_arg(5); |
check_arg(5); |
1063 |
V173=(base[0]); |
V182=(base[0]); |
1064 |
V174=(base[1]); |
V183=(base[1]); |
1065 |
V175=(base[2]); |
V184=(base[2]); |
1066 |
V176=(base[3]); |
V185=(base[3]); |
1067 |
V177=(base[4]); |
V186=(base[4]); |
1068 |
vs_top=sup; |
vs_top=sup; |
1069 |
goto TTL; |
goto TTL; |
1070 |
TTL:; |
TTL:; |
1071 |
{object V178; |
{object V187; |
1072 |
object V179; |
object V188; |
1073 |
object V180; |
object V189; |
1074 |
base[5]= (V175); |
base[5]= (V184); |
1075 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1076 |
(void) (*Lnk370)(); |
(void) (*Lnk370)(); |
1077 |
if(vs_base>=vs_top){vs_top=sup;goto T324;} |
if(vs_base>=vs_top){vs_top=sup;goto T324;} |
1078 |
V178= vs_base[0]; |
V187= vs_base[0]; |
1079 |
vs_base++; |
vs_base++; |
1080 |
if(vs_base>=vs_top){vs_top=sup;goto T325;} |
if(vs_base>=vs_top){vs_top=sup;goto T325;} |
1081 |
V179= vs_base[0]; |
V188= vs_base[0]; |
1082 |
vs_base++; |
vs_base++; |
1083 |
if(vs_base>=vs_top){vs_top=sup;goto T326;} |
if(vs_base>=vs_top){vs_top=sup;goto T326;} |
1084 |
V180= vs_base[0]; |
V189= vs_base[0]; |
1085 |
vs_top=sup; |
vs_top=sup; |
1086 |
goto T327; |
goto T327; |
1087 |
goto T324; |
goto T324; |
1088 |
T324:; |
T324:; |
1089 |
V178= Cnil; |
V187= Cnil; |
1090 |
goto T325; |
goto T325; |
1091 |
T325:; |
T325:; |
1092 |
V179= Cnil; |
V188= Cnil; |
1093 |
goto T326; |
goto T326; |
1094 |
T326:; |
T326:; |
1095 |
V180= Cnil; |
V189= Cnil; |
1096 |
goto T327; |
goto T327; |
1097 |
T327:; |
T327:; |
1098 |
{object V181; |
{object V190; |
1099 |
object V182; |
object V191; |
1100 |
object V183; |
object V192; |
1101 |
base[5]= (V176); |
base[5]= (V185); |
1102 |
base[6]= (V177); |
base[6]= (V186); |
1103 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1104 |
(void) (*Lnk371)(); |
(void) (*Lnk371)(); |
1105 |
if(vs_base>=vs_top){vs_top=sup;goto T331;} |
if(vs_base>=vs_top){vs_top=sup;goto T331;} |
1106 |
V181= vs_base[0]; |
V190= vs_base[0]; |
1107 |
vs_base++; |
vs_base++; |
1108 |
if(vs_base>=vs_top){vs_top=sup;goto T332;} |
if(vs_base>=vs_top){vs_top=sup;goto T332;} |
1109 |
V182= vs_base[0]; |
V191= vs_base[0]; |
1110 |
vs_base++; |
vs_base++; |
1111 |
if(vs_base>=vs_top){vs_top=sup;goto T333;} |
if(vs_base>=vs_top){vs_top=sup;goto T333;} |
1112 |
V183= vs_base[0]; |
V192= vs_base[0]; |
1113 |
vs_top=sup; |
vs_top=sup; |
1114 |
goto T334; |
goto T334; |
1115 |
goto T331; |
goto T331; |
1116 |
T331:; |
T331:; |
1117 |
V181= Cnil; |
V190= Cnil; |
1118 |
goto T332; |
goto T332; |
1119 |
T332:; |
T332:; |
1120 |
V182= Cnil; |
V191= Cnil; |
1121 |
goto T333; |
goto T333; |
1122 |
T333:; |
T333:; |
1123 |
V183= Cnil; |
V192= Cnil; |
1124 |
goto T334; |
goto T334; |
1125 |
T334:; |
T334:; |
1126 |
if(((V181))==Cnil){ |
if(((V190))==Cnil){ |
1127 |
goto T338;} |
goto T338;} |
1128 |
V184= make_cons((V181),Cnil); |
V193= make_cons((V190),Cnil); |
1129 |
goto T336; |
goto T336; |
1130 |
goto T338; |
goto T338; |
1131 |
T338:; |
T338:; |
1132 |
V184= Cnil; |
V193= Cnil; |
1133 |
goto T336; |
goto T336; |
1134 |
T336:; |
T336:; |
1135 |
V185= list(2,VV[46],list(2,VV[47],list(3,(V173),(V174),(V180)))); |
V194= list(2,VV[46],list(2,VV[47],list(3,(V182),(V183),(V189)))); |
1136 |
V186= list(2,VV[46],make_cons(VV[48],(V175))); |
V195= list(2,VV[46],make_cons(VV[48],(V184))); |
1137 |
V187= listA(3,/* INLINE-ARGS */V185,/* INLINE-ARGS */V186,append((V182),(V183))); |
V196= listA(3,/* INLINE-ARGS */V194,/* INLINE-ARGS */V195,append((V191),(V192))); |
1138 |
base[5]= listA(3,VV[35],(V179),append(V184,/* INLINE-ARGS */V187)); |
base[5]= listA(3,VV[35],(V188),append(V193,/* INLINE-ARGS */V196)); |
1139 |
base[6]= (V179); |
base[6]= (V188); |
1140 |
base[7]= (V180); |
base[7]= (V189); |
1141 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
1142 |
return;}} |
return;}} |
1143 |
} |
} |
1144 |
} |
} |
1145 |
/* local entry for function REAL-MAKE-METHOD-INITARGS-FORM */ |
/* local entry for function REAL-MAKE-METHOD-INITARGS-FORM */ |
1146 |
|
|
1147 |
static object LI17(V193,V194,V195,V196,V197) |
static object LI17(V202,V203,V204,V205,V206) |
1148 |
|
|
1149 |
object V193;object V194;register object V195;object V196;object V197; |
object V202;object V203;register object V204;object V205;object V206; |
1150 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
1151 |
goto TTL; |
goto TTL; |
1152 |
TTL:; |
TTL:; |
1153 |
if(!(type_of((V195))==t_cons)){ |
if(!(type_of((V204))==t_cons)){ |
1154 |
goto T343;} |
goto T343;} |
1155 |
if((CMPcar((V195)))==(VV[35])){ |
if((CMPcar((V204)))==(VV[35])){ |
1156 |
goto T342;} |
goto T342;} |
1157 |
goto T343; |
goto T343; |
1158 |
T343:; |
T343:; |
1159 |
base[0]= VV[49]; |
base[0]= VV[49]; |
1160 |
base[1]= (V195); |
base[1]= (V204); |
1161 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1162 |
Lerror(); |
Lerror(); |
1163 |
vs_top=sup; |
vs_top=sup; |
1164 |
goto T342; |
goto T342; |
1165 |
T342:; |
T342:; |
1166 |
{object V198 = (*(LnkLI372))((V195),(V196),(V197)); |
{object V207 = (*(LnkLI372))((V204),(V205),(V206)); |
1167 |
VMR15(V198)} |
VMR15(V207)} |
1168 |
base[0]=base[0]; |
base[0]=base[0]; |
1169 |
return Cnil; |
return Cnil; |
1170 |
} |
} |
1174 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1175 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM16; VC16 |
1176 |
vs_check; |
vs_check; |
1177 |
{object V199; |
{object V208; |
1178 |
object V200; |
object V209; |
1179 |
object V201; |
object V210; |
1180 |
object V202; |
object V211; |
1181 |
check_arg(4); |
check_arg(4); |
1182 |
V199=(base[0]); |
V208=(base[0]); |
1183 |
V200=(base[1]); |
V209=(base[1]); |
1184 |
V201=(base[2]); |
V210=(base[2]); |
1185 |
V202=(base[3]); |
V211=(base[3]); |
1186 |
vs_top=sup; |
vs_top=sup; |
1187 |
goto TTL; |
goto TTL; |
1188 |
TTL:; |
TTL:; |
1189 |
base[4]= (V201); |
base[4]= (V210); |
1190 |
base[5]= (V202); |
base[5]= (V211); |
1191 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1192 |
(void) (*Lnk373)(); |
(void) (*Lnk373)(); |
1193 |
return; |
return; |
1199 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1200 |
register object *sup=base+VM17; VC17 |
register object *sup=base+VM17; VC17 |
1201 |
vs_check; |
vs_check; |
1202 |
{register object V203; |
{register object V212; |
1203 |
object V204; |
object V213; |
1204 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
1205 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
1206 |
V203=(base[0]); |
V212=(base[0]); |
1207 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
1208 |
if(vs_base>=vs_top){vs_top=sup;goto T351;} |
if(vs_base>=vs_top){vs_top=sup;goto T351;} |
1209 |
V204=(base[1]); |
V213=(base[1]); |
1210 |
vs_top=sup; |
vs_top=sup; |
1211 |
goto T352; |
goto T352; |
1212 |
goto T351; |
goto T351; |
1213 |
T351:; |
T351:; |
1214 |
V204= Cnil; |
V213= Cnil; |
1215 |
goto T352; |
goto T352; |
1216 |
T352:; |
T352:; |
1217 |
if(!(type_of((V203))==t_cons)){ |
if(!(type_of((V212))==t_cons)){ |
1218 |
goto T355;} |
goto T355;} |
1219 |
if((CMPcar((V203)))==(VV[35])){ |
if((CMPcar((V212)))==(VV[35])){ |
1220 |
goto T354;} |
goto T354;} |
1221 |
goto T355; |
goto T355; |
1222 |
T355:; |
T355:; |
1223 |
base[2]= VV[50]; |
base[2]= VV[50]; |
1224 |
base[3]= (V203); |
base[3]= (V212); |
1225 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1226 |
Lerror(); |
Lerror(); |
1227 |
vs_top=sup; |
vs_top=sup; |
1228 |
goto T354; |
goto T354; |
1229 |
T354:; |
T354:; |
1230 |
{object V205; |
{object V214; |
1231 |
object V206; |
object V215; |
1232 |
object V207; |
object V216; |
1233 |
base[2]= CMPcddr((V203)); |
base[2]= CMPcddr((V212)); |
1234 |
base[3]= (V204); |
base[3]= (V213); |
1235 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1236 |
(void) (*Lnk371)(); |
(void) (*Lnk371)(); |
1237 |
if(vs_base>=vs_top){vs_top=sup;goto T364;} |
if(vs_base>=vs_top){vs_top=sup;goto T364;} |
1238 |
V205= vs_base[0]; |
V214= vs_base[0]; |
1239 |
vs_base++; |
vs_base++; |
1240 |
if(vs_base>=vs_top){vs_top=sup;goto T365;} |
if(vs_base>=vs_top){vs_top=sup;goto T365;} |
1241 |
V206= vs_base[0]; |
V215= vs_base[0]; |
1242 |
vs_base++; |
vs_base++; |
1243 |
if(vs_base>=vs_top){vs_top=sup;goto T366;} |
if(vs_base>=vs_top){vs_top=sup;goto T366;} |
1244 |
V207= vs_base[0]; |
V216= vs_base[0]; |
1245 |
vs_top=sup; |
vs_top=sup; |
1246 |
goto T367; |
goto T367; |
1247 |
goto T364; |
goto T364; |
1248 |
T364:; |
T364:; |
1249 |
V205= Cnil; |
V214= Cnil; |
1250 |
goto T365; |
goto T365; |
1251 |
T365:; |
T365:; |
1252 |
V206= Cnil; |
V215= Cnil; |
1253 |
goto T366; |
goto T366; |
1254 |
T366:; |
T366:; |
1255 |
V207= Cnil; |
V216= Cnil; |
1256 |
goto T367; |
goto T367; |
1257 |
T367:; |
T367:; |
1258 |
{object V208; |
{object V217; |
1259 |
object V209; |
object V218; |
1260 |
object V210; |
object V219; |
1261 |
object V211; |
object V220; |
1262 |
object V212; |
object V221; |
1263 |
V208= (VFUN_NARGS=2,(*(LnkLI374))(VV[47],(V206))); |
V217= (VFUN_NARGS=2,(*(LnkLI374))(VV[47],(V215))); |
1264 |
V209= (VFUN_NARGS=2,(*(LnkLI374))(VV[48],(V206))); |
V218= (VFUN_NARGS=2,(*(LnkLI374))(VV[48],(V215))); |
1265 |
if(!(type_of((V208))==t_cons)){ |
if(!(type_of((V217))==t_cons)){ |
1266 |
goto T372;} |
goto T372;} |
1267 |
V210= CMPcar((V208)); |
V219= CMPcar((V217)); |
1268 |
goto T370; |
goto T370; |
1269 |
goto T372; |
goto T372; |
1270 |
T372:; |
T372:; |
1271 |
V210= Cnil; |
V219= Cnil; |
1272 |
goto T370; |
goto T370; |
1273 |
T370:; |
T370:; |
1274 |
if(((V210))==Cnil){ |
if(((V219))==Cnil){ |
1275 |
goto T376;} |
goto T376;} |
1276 |
V211= CMPcar((V210)); |
V220= CMPcar((V219)); |
1277 |
goto T374; |
goto T374; |
1278 |
goto T376; |
goto T376; |
1279 |
T376:; |
T376:; |
1280 |
V211= Cnil; |
V220= Cnil; |
1281 |
goto T374; |
goto T374; |
1282 |
T374:; |
T374:; |
1283 |
if((V209)!=Cnil){ |
if((V218)!=Cnil){ |
1284 |
V212= (V209); |
V221= (V218); |
1285 |
goto T378;} |
goto T378;} |
1286 |
V212= CMPcadr((V203)); |
V221= CMPcadr((V212)); |
1287 |
goto T378; |
goto T378; |
1288 |
T378:; |
T378:; |
1289 |
{object V213; |
{object V222; |
1290 |
register object V214; |
register object V223; |
1291 |
object V215; |
object V224; |
1292 |
base[7]= (V212); |
base[7]= (V221); |
1293 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1294 |
(void) (*Lnk370)(); |
(void) (*Lnk370)(); |
1295 |
if(vs_base>=vs_top){vs_top=sup;goto T381;} |
if(vs_base>=vs_top){vs_top=sup;goto T381;} |
1296 |
V213= vs_base[0]; |
V222= vs_base[0]; |
1297 |
vs_base++; |
vs_base++; |
1298 |
if(vs_base>=vs_top){vs_top=sup;goto T382;} |
if(vs_base>=vs_top){vs_top=sup;goto T382;} |
1299 |
V214= vs_base[0]; |
V223= vs_base[0]; |
1300 |
vs_base++; |
vs_base++; |
1301 |
if(vs_base>=vs_top){vs_top=sup;goto T383;} |
if(vs_base>=vs_top){vs_top=sup;goto T383;} |
1302 |
V215= vs_base[0]; |
V224= vs_base[0]; |
1303 |
vs_top=sup; |
vs_top=sup; |
1304 |
goto T384; |
goto T384; |
1305 |
goto T381; |
goto T381; |
1306 |
T381:; |
T381:; |
1307 |
V213= Cnil; |
V222= Cnil; |
1308 |
goto T382; |
goto T382; |
1309 |
T382:; |
T382:; |
1310 |
V214= Cnil; |
V223= Cnil; |
1311 |
goto T383; |
goto T383; |
1312 |
T383:; |
T383:; |
1313 |
V215= Cnil; |
V224= Cnil; |
1314 |
goto T384; |
goto T384; |
1315 |
T384:; |
T384:; |
1316 |
{object V216; |
{object V225; |
1317 |
object V217; |
object V226; |
1318 |
object V218; |
object V227; |
1319 |
object V219; |
object V228; |
1320 |
object V220; |
object V229; |
1321 |
object V221; |
object V230; |
1322 |
object V222; |
object V231; |
1323 |
register object V223; |
register object V232; |
1324 |
register object V224; |
register object V233; |
1325 |
object V225; |
object V234; |
1326 |
{object V226; |
{object V235; |
1327 |
object V227= (V213); |
object V236= (V222); |
1328 |
object V228= (V215); |
object V237= (V224); |
1329 |
if(V227==Cnil||V228==Cnil){ |
if(V236==Cnil||V237==Cnil){ |
1330 |
V216= Cnil; |
V225= Cnil; |
1331 |
goto T385;} |
goto T385;} |
1332 |
base[17]=V226=MMcons(Cnil,Cnil); |
base[17]=V235=MMcons(Cnil,Cnil); |
1333 |
goto T386; |
goto T386; |
1334 |
T386:; |
T386:; |
1335 |
(V226->c.c_car)= (V227->c.c_car); |
(V235->c.c_car)= (V236->c.c_car); |
1336 |
if((V227=MMcdr(V227))==Cnil||(V228=MMcdr(V228))==Cnil){ |
if((V236=MMcdr(V236))==Cnil||(V237=MMcdr(V237))==Cnil){ |
1337 |
V216= base[17]; |
V225= base[17]; |
1338 |
goto T385;} |
goto T385;} |
1339 |
V226=MMcdr(V226)=MMcons(Cnil,Cnil); |
V235=MMcdr(V235)=MMcons(Cnil,Cnil); |
1340 |
goto T386;} |
goto T386;} |
1341 |
goto T385; |
goto T385; |
1342 |
T385:; |
T385:; |
1343 |
{object V231; |
{object V240; |
1344 |
object V232= (V216); |
object V241= (V225); |
1345 |
if(V232==Cnil){ |
if(V241==Cnil){ |
1346 |
V217= Cnil; |
V226= Cnil; |
1347 |
goto T388;} |
goto T388;} |
1348 |
base[17]=V231=MMcons(Cnil,Cnil); |
base[17]=V240=MMcons(Cnil,Cnil); |
1349 |
goto T389; |
goto T389; |
1350 |
T389:; |
T389:; |
1351 |
(V231->c.c_car)= make_cons((V232->c.c_car),Cnil); |
(V240->c.c_car)= make_cons((V241->c.c_car),Cnil); |
1352 |
if((V232=MMcdr(V232))==Cnil){ |
if((V241=MMcdr(V241))==Cnil){ |
1353 |
V217= base[17]; |
V226= base[17]; |
1354 |
goto T388;} |
goto T388;} |
1355 |
V231=MMcdr(V231)=MMcons(Cnil,Cnil); |
V240=MMcdr(V240)=MMcons(Cnil,Cnil); |
1356 |
goto T389;} |
goto T389;} |
1357 |
goto T388; |
goto T388; |
1358 |
T388:; |
T388:; |
1359 |
V218= make_cons(Cnil,Cnil); |
V227= make_cons(Cnil,Cnil); |
1360 |
V219= (*(LnkLI375))((V212),(V216),(V206),(V210),(V215)); |
V228= (*(LnkLI375))((V221),(V225),(V215),(V219),(V224)); |
1361 |
base[17]= Cnil; |
base[17]= Cnil; |
1362 |
{object V234; |
{object V243; |
1363 |
object V235= (V213); |
object V244= (V222); |
1364 |
object V236= (V215); |
object V245= (V224); |
1365 |
if(V235==Cnil||V236==Cnil){ |
if(V244==Cnil||V245==Cnil){ |
1366 |
base[18]= Cnil; |
base[18]= Cnil; |
1367 |
goto T396;} |
goto T396;} |
1368 |
base[19]=V234=MMcons(Cnil,Cnil); |
base[19]=V243=MMcons(Cnil,Cnil); |
1369 |
goto T397; |
goto T397; |
1370 |
T397:; |
T397:; |
1371 |
if(type_of((V236->c.c_car))==t_symbol){ |
if(type_of((V245->c.c_car))==t_symbol){ |
1372 |
goto T399;} |
goto T399;} |
1373 |
(V234->c.c_car)= Cnil; |
(V243->c.c_car)= Cnil; |
1374 |
goto T398; |
goto T398; |
1375 |
goto T399; |
goto T399; |
1376 |
T399:; |
T399:; |
1377 |
if(((((V236->c.c_car))==(Ct)?Ct:Cnil))==Cnil){ |
if(((((V245->c.c_car))==(Ct)?Ct:Cnil))==Cnil){ |
1378 |
goto T401;} |
goto T401;} |
1379 |
(V234->c.c_car)= Cnil; |
(V243->c.c_car)= Cnil; |
1380 |
goto T398; |
goto T398; |
1381 |
goto T401; |
goto T401; |
1382 |
T401:; |
T401:; |
1383 |
(V234->c.c_car)= list(3,VV[51],(V235->c.c_car),(V236->c.c_car)); |
(V243->c.c_car)= list(3,VV[51],(V244->c.c_car),(V245->c.c_car)); |
1384 |
goto T398; |
goto T398; |
1385 |
T398:; |
T398:; |
1386 |
if((V235=MMcdr(V235))==Cnil||(V236=MMcdr(V236))==Cnil){ |
if((V244=MMcdr(V244))==Cnil||(V245=MMcdr(V245))==Cnil){ |
1387 |
base[18]= base[19]; |
base[18]= base[19]; |
1388 |
goto T396;} |
goto T396;} |
1389 |
V234=MMcdr(V234)=MMcons(Cnil,Cnil); |
V243=MMcdr(V243)=MMcons(Cnil,Cnil); |
1390 |
goto T397;} |
goto T397;} |
1391 |
goto T396; |
goto T396; |
1392 |
T396:; |
T396:; |
1393 |
vs_top=(vs_base=base+17)+2; |
vs_top=(vs_base=base+17)+2; |
1394 |
(void) (*Lnk376)(); |
(void) (*Lnk376)(); |
1395 |
vs_top=sup; |
vs_top=sup; |
1396 |
V233= vs_base[0]; |
V242= vs_base[0]; |
1397 |
V220= make_cons(VV[46],V233); |
V229= make_cons(VV[46],V242); |
1398 |
V239= make_cons(VV[10],(V219)); |
V248= make_cons(VV[10],(V228)); |
1399 |
if(!(type_of((V211))==t_cons||((V211))==Cnil)){ |
if(!(type_of((V220))==t_cons||((V220))==Cnil)){ |
1400 |
goto T406;} |
goto T406;} |
1401 |
V240= CMPcadr((V211)); |
V249= CMPcadr((V220)); |
1402 |
goto T404; |
goto T404; |
1403 |
goto T406; |
goto T406; |
1404 |
T406:; |
T406:; |
1405 |
V240= (V211); |
V249= (V220); |
1406 |
goto T404; |
goto T404; |
1407 |
T404:; |
T404:; |
1408 |
V241= list(2,/* INLINE-ARGS */V239,listA(3,VV[52],V240,(V207))); |
V250 = (V216); |
1409 |
V221= listA(4,VV[35],(V214),(V220),append((V206),/* INLINE-ARGS */V241)); |
V251= list(2,/* INLINE-ARGS */V248,listA(3,VV[52],V249,V250)); |
1410 |
if((CMPcdr((V207)))==Cnil){ |
V230= listA(4,VV[35],(V223),(V229),append((V215),/* INLINE-ARGS */V251)); |
1411 |
|
if((CMPcdr((V216)))==Cnil){ |
1412 |
goto T409;} |
goto T409;} |
1413 |
V222= Cnil; |
V231= Cnil; |
1414 |
goto T408; |
goto T408; |
1415 |
goto T409; |
goto T409; |
1416 |
T409:; |
T409:; |
1417 |
base[17]= CMPcar((V207)); |
base[17]= CMPcar((V216)); |
1418 |
vs_top=(vs_base=base+17)+1; |
vs_top=(vs_base=base+17)+1; |
1419 |
Lconstantp(); |
Lconstantp(); |
1420 |
vs_top=sup; |
vs_top=sup; |
1421 |
V222= vs_base[0]; |
V231= vs_base[0]; |
1422 |
goto T408; |
goto T408; |
1423 |
T408:; |
T408:; |
1424 |
if((V222)==Cnil){ |
if((V231)==Cnil){ |
1425 |
V223= Cnil; |
V232= Cnil; |
1426 |
goto T412;} |
goto T412;} |
1427 |
base[17]= CMPcar((V207)); |
base[17]= CMPcar((V216)); |
1428 |
vs_top=(vs_base=base+17)+1; |
vs_top=(vs_base=base+17)+1; |
1429 |
Leval(); |
Leval(); |
1430 |
vs_top=sup; |
vs_top=sup; |
1431 |
V223= vs_base[0]; |
V232= vs_base[0]; |
1432 |
goto T412; |
goto T412; |
1433 |
T412:; |
T412:; |
1434 |
if(((V222))==Cnil){ |
if(((V231))==Cnil){ |
1435 |
goto T416;} |
goto T416;} |
1436 |
base[17]= (V223); |
base[17]= (V232); |
1437 |
base[18]= VV[53]; |
base[18]= VV[53]; |
1438 |
vs_top=(vs_base=base+17)+2; |
vs_top=(vs_base=base+17)+2; |
1439 |
(void) (*Lnk122)(); |
(void) (*Lnk122)(); |
1440 |
vs_top=sup; |
vs_top=sup; |
1441 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1442 |
goto T415;} |
goto T415;} |
1443 |
if(!(type_of((V223))==t_symbol)){ |
if(!(type_of((V232))==t_symbol)){ |
1444 |
goto T416;} |
goto T416;} |
1445 |
base[17]= (V223); |
base[17]= (V232); |
1446 |
vs_top=(vs_base=base+17)+1; |
vs_top=(vs_base=base+17)+1; |
1447 |
Lsymbol_package(); |
Lsymbol_package(); |
1448 |
vs_top=sup; |
vs_top=sup; |
1450 |
goto T416;} |
goto T416;} |
1451 |
goto T415; |
goto T415; |
1452 |
T415:; |
T415:; |
1453 |
V224= list(2,VV[54],(V223)); |
V233= list(2,VV[54],(V232)); |
1454 |
goto T414; |
goto T414; |
1455 |
goto T416; |
goto T416; |
1456 |
T416:; |
T416:; |
1457 |
V224= Cnil; |
V233= Cnil; |
1458 |
goto T414; |
goto T414; |
1459 |
T414:; |
T414:; |
1460 |
{register object V242; |
{register object V252; |
1461 |
register object V243; |
register object V253; |
1462 |
V242= (V214); |
V252= (V223); |
1463 |
V243= CMPcar((V242)); |
V253= CMPcar((V252)); |
1464 |
goto T431; |
goto T431; |
1465 |
T431:; |
T431:; |
1466 |
if(!(((V242))==Cnil)){ |
if(!(((V252))==Cnil)){ |
1467 |
goto T432;} |
goto T432;} |
1468 |
V225= Cnil; |
V234= Cnil; |
1469 |
goto T427; |
goto T427; |
1470 |
goto T432; |
goto T432; |
1471 |
T432:; |
T432:; |
1472 |
{register object x= (V243),V244= VV[55]; |
{register object x= (V253),V254= VV[55]; |
1473 |
while(V244!=Cnil) |
while(V254!=Cnil) |
1474 |
if(x==(V244->c.c_car)){ |
if(x==(V254->c.c_car)){ |
1475 |
goto T439; |
goto T439; |
1476 |
}else V244=V244->c.c_cdr; |
}else V254=V254->c.c_cdr; |
1477 |
goto T438;} |
goto T438;} |
1478 |
goto T439; |
goto T439; |
1479 |
T439:; |
T439:; |
1480 |
V225= Ct; |
V234= Ct; |
1481 |
goto T427; |
goto T427; |
1482 |
goto T438; |
goto T438; |
1483 |
T438:; |
T438:; |
1484 |
if(!(((V243))==(VV[56]))){ |
if(!(((V253))==(VV[56]))){ |
1485 |
goto T436;} |
goto T436;} |
1486 |
V225= Cnil; |
V234= Cnil; |
1487 |
goto T427; |
goto T427; |
1488 |
goto T436; |
goto T436; |
1489 |
T436:; |
T436:; |
1490 |
V242= CMPcdr((V242)); |
V252= CMPcdr((V252)); |
1491 |
V243= CMPcar((V242)); |
V253= CMPcar((V252)); |
1492 |
goto T431;} |
goto T431;} |
1493 |
goto T427; |
goto T427; |
1494 |
T427:; |
T427:; |
1495 |
{object V245; |
{object V255; |
1496 |
object V246; |
object V256; |
1497 |
object V247; |
object V257; |
1498 |
object V248; |
object V258; |
1499 |
base[17]= (V221); |
base[17]= (V230); |
1500 |
base[18]= (V216); |
base[18]= (V225); |
1501 |
base[19]= (V204); |
base[19]= (V213); |
1502 |
base[20]= (V217); |
base[20]= (V226); |
1503 |
base[21]= (V218); |
base[21]= (V227); |
1504 |
vs_top=(vs_base=base+17)+5; |
vs_top=(vs_base=base+17)+5; |
1505 |
(void) (*Lnk377)(); |
(void) (*Lnk377)(); |
1506 |
if(vs_base>=vs_top){vs_top=sup;goto T453;} |
if(vs_base>=vs_top){vs_top=sup;goto T453;} |
1507 |
V245= vs_base[0]; |
V255= vs_base[0]; |
1508 |
vs_base++; |
vs_base++; |
1509 |
if(vs_base>=vs_top){vs_top=sup;goto T454;} |
if(vs_base>=vs_top){vs_top=sup;goto T454;} |
1510 |
V246= vs_base[0]; |
V256= vs_base[0]; |
1511 |
vs_base++; |
vs_base++; |
1512 |
if(vs_base>=vs_top){vs_top=sup;goto T455;} |
if(vs_base>=vs_top){vs_top=sup;goto T455;} |
1513 |
V247= vs_base[0]; |
V257= vs_base[0]; |
1514 |
vs_base++; |
vs_base++; |
1515 |
if(vs_base>=vs_top){vs_top=sup;goto T456;} |
if(vs_base>=vs_top){vs_top=sup;goto T456;} |
1516 |
V248= vs_base[0]; |
V258= vs_base[0]; |
1517 |
vs_top=sup; |
vs_top=sup; |
1518 |
goto T457; |
goto T457; |
1519 |
goto T453; |
goto T453; |
1520 |
T453:; |
T453:; |
1521 |
V245= Cnil; |
V255= Cnil; |
1522 |
goto T454; |
goto T454; |
1523 |
T454:; |
T454:; |
1524 |
V246= Cnil; |
V256= Cnil; |
1525 |
goto T455; |
goto T455; |
1526 |
T455:; |
T455:; |
1527 |
V247= Cnil; |
V257= Cnil; |
1528 |
goto T456; |
goto T456; |
1529 |
T456:; |
T456:; |
1530 |
V248= Cnil; |
V258= Cnil; |
1531 |
goto T457; |
goto T457; |
1532 |
T457:; |
T457:; |
1533 |
{object V249; |
{object V259; |
1534 |
object V250; |
object V260; |
1535 |
object V251; |
object V261; |
1536 |
base[17]= CMPcddr((V245)); |
base[17]= CMPcddr((V255)); |
1537 |
vs_top=(vs_base=base+17)+1; |
vs_top=(vs_base=base+17)+1; |
1538 |
(void) (*Lnk371)(); |
(void) (*Lnk371)(); |
1539 |
if(vs_base>=vs_top){vs_top=sup;goto T460;} |
if(vs_base>=vs_top){vs_top=sup;goto T460;} |
1540 |
V249= vs_base[0]; |
V259= vs_base[0]; |
1541 |
vs_base++; |
vs_base++; |
1542 |
if(vs_base>=vs_top){vs_top=sup;goto T461;} |
if(vs_base>=vs_top){vs_top=sup;goto T461;} |
1543 |
V250= vs_base[0]; |
V260= vs_base[0]; |
1544 |
vs_base++; |
vs_base++; |
1545 |
if(vs_base>=vs_top){vs_top=sup;goto T462;} |
if(vs_base>=vs_top){vs_top=sup;goto T462;} |
1546 |
V251= vs_base[0]; |
V261= vs_base[0]; |
1547 |
vs_top=sup; |
vs_top=sup; |
1548 |
goto T463; |
goto T463; |
1549 |
goto T460; |
goto T460; |
1550 |
T460:; |
T460:; |
1551 |
V249= Cnil; |
V259= Cnil; |
1552 |
goto T461; |
goto T461; |
1553 |
T461:; |
T461:; |
1554 |
V250= Cnil; |
V260= Cnil; |
1555 |
goto T462; |
goto T462; |
1556 |
T462:; |
T462:; |
1557 |
V251= Cnil; |
V261= Cnil; |
1558 |
goto T463; |
goto T463; |
1559 |
T463:; |
T463:; |
1560 |
if(((V248))!=Cnil){ |
if(((V258))!=Cnil){ |
1561 |
goto T465;} |
goto T465;} |
1562 |
if(((V246))==Cnil){ |
if(((V256))==Cnil){ |
1563 |
goto T464;} |
goto T464;} |
1564 |
goto T465; |
goto T465; |
1565 |
T465:; |
T465:; |
1566 |
V224= listA(3,VV[57],Ct,(V224)); |
V233= listA(3,VV[57],Ct,(V233)); |
1567 |
goto T464; |
goto T464; |
1568 |
T464:; |
T464:; |
1569 |
base[17]= (VV[378]->s.s_gfdef); |
base[17]= (VV[378]->s.s_gfdef); |
1570 |
base[18]= (V217); |
base[18]= (V226); |
1571 |
vs_top=(vs_base=base+17)+2; |
vs_top=(vs_base=base+17)+2; |
1572 |
(void) (*Lnk379)(); |
(void) (*Lnk379)(); |
1573 |
vs_top=sup; |
vs_top=sup; |
1574 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1575 |
goto T470;} |
goto T470;} |
1576 |
{object V252; |
{object V262; |
1577 |
object V253; |
object V263; |
1578 |
base[17]= (V217); |
base[17]= (V226); |
1579 |
base[18]= (V218); |
base[18]= (V227); |
1580 |
vs_top=(vs_base=base+17)+2; |
vs_top=(vs_base=base+17)+2; |
1581 |
(void) (*Lnk380)(); |
(void) (*Lnk380)(); |
1582 |
if(vs_base>=vs_top){vs_top=sup;goto T478;} |
if(vs_base>=vs_top){vs_top=sup;goto T478;} |
1583 |
V252= vs_base[0]; |
V262= vs_base[0]; |
1584 |
vs_base++; |
vs_base++; |
1585 |
if(vs_base>=vs_top){vs_top=sup;goto T479;} |
if(vs_base>=vs_top){vs_top=sup;goto T479;} |
1586 |
V253= vs_base[0]; |
V263= vs_base[0]; |
1587 |
vs_top=sup; |
vs_top=sup; |
1588 |
goto T480; |
goto T480; |
1589 |
goto T478; |
goto T478; |
1590 |
T478:; |
T478:; |
1591 |
V252= Cnil; |
V262= Cnil; |
1592 |
goto T479; |
goto T479; |
1593 |
T479:; |
T479:; |
1594 |
V253= Cnil; |
V263= Cnil; |
1595 |
goto T480; |
goto T480; |
1596 |
T480:; |
T480:; |
1597 |
{object V254; |
{object V264; |
1598 |
base[17]= VV[58]; |
base[17]= VV[58]; |
1599 |
vs_top=(vs_base=base+17)+1; |
vs_top=(vs_base=base+17)+1; |
1600 |
Lmake_symbol(); |
Lmake_symbol(); |
1601 |
vs_top=sup; |
vs_top=sup; |
1602 |
V254= vs_base[0]; |
V264= vs_base[0]; |
1603 |
if(((V252))==Cnil){ |
if(((V262))==Cnil){ |
1604 |
goto T487;} |
goto T487;} |
1605 |
base[17]= list(2,VV[59],(V252)); |
base[17]= list(2,VV[59],(V262)); |
1606 |
goto T485; |
goto T485; |
1607 |
goto T487; |
goto T487; |
1608 |
T487:; |
T487:; |
1609 |
base[17]= Cnil; |
base[17]= Cnil; |
1610 |
goto T485; |
goto T485; |
1611 |
T485:; |
T485:; |
1612 |
if(((V253))==Cnil){ |
if(((V263))==Cnil){ |
1613 |
goto T491;} |
goto T491;} |
1614 |
base[18]= list(2,VV[60],(V253)); |
base[18]= list(2,VV[60],(V263)); |
1615 |
goto T489; |
goto T489; |
1616 |
goto T491; |
goto T491; |
1617 |
T491:; |
T491:; |
1618 |
base[18]= Cnil; |
base[18]= Cnil; |
1619 |
goto T489; |
goto T489; |
1620 |
T489:; |
T489:; |
1621 |
base[19]= listA(3,VV[29],(V254),(V224)); |
base[19]= listA(3,VV[29],(V264),(V233)); |
1622 |
vs_top=(vs_base=base+17)+3; |
vs_top=(vs_base=base+17)+3; |
1623 |
Lappend(); |
Lappend(); |
1624 |
vs_top=sup; |
vs_top=sup; |
1625 |
V224= vs_base[0]; |
V233= vs_base[0]; |
1626 |
V255= listA(3,VV[61],list(3,(V216),(V252),(V254)),(V251)); |
V265= listA(3,VV[61],list(3,(V225),(V262),(V264)),(V261)); |
1627 |
V251= make_cons(/* INLINE-ARGS */V255,Cnil);}} |
V261= make_cons(/* INLINE-ARGS */V265,Cnil);}} |
1628 |
goto T470; |
goto T470; |
1629 |
T470:; |
T470:; |
1630 |
{register object x= VV[62],V256= (V214); |
{register object x= VV[62],V266= (V223); |
1631 |
while(V256!=Cnil) |
while(V266!=Cnil) |
1632 |
if(x==(V256->c.c_car)){ |
if(x==(V266->c.c_car)){ |
1633 |
goto T498; |
goto T498; |
1634 |
}else V256=V256->c.c_cdr; |
}else V266=V266->c.c_cdr; |
1635 |
goto T495;} |
goto T495;} |
1636 |
goto T498; |
goto T498; |
1637 |
T498:; |
T498:; |
1638 |
{register object x= VV[63],V257= (V214); |
{register object x= VV[63],V267= (V223); |
1639 |
while(V257!=Cnil) |
while(V267!=Cnil) |
1640 |
if(x==(V257->c.c_car)){ |
if(x==(V267->c.c_car)){ |
1641 |
goto T495; |
goto T495; |
1642 |
}else V257=V257->c.c_cdr;} |
}else V267=V267->c.c_cdr;} |
1643 |
{object V258; |
{object V268; |
1644 |
{register object x= VV[56],V259= (V214); |
{register object x= VV[56],V269= (V223); |
1645 |
while(V259!=Cnil) |
while(V269!=Cnil) |
1646 |
if(x==(V259->c.c_car)){ |
if(x==(V269->c.c_car)){ |
1647 |
V258= V259; |
V268= V269; |
1648 |
goto T500; |
goto T500; |
1649 |
}else V259=V259->c.c_cdr; |
}else V269=V269->c.c_cdr; |
1650 |
V258= Cnil;} |
V268= Cnil;} |
1651 |
goto T500; |
goto T500; |
1652 |
T500:; |
T500:; |
1653 |
base[18]= (V214); |
base[18]= (V223); |
1654 |
base[19]= (V258); |
base[19]= (V268); |
1655 |
vs_top=(vs_base=base+18)+2; |
vs_top=(vs_base=base+18)+2; |
1656 |
Lldiff(); |
Lldiff(); |
1657 |
vs_top=sup; |
vs_top=sup; |
1658 |
base[17]= vs_base[0]; |
base[17]= vs_base[0]; |
1659 |
base[18]= make_cons(VV[63],Cnil); |
base[18]= make_cons(VV[63],Cnil); |
1660 |
base[19]= (V258); |
base[19]= (V268); |
1661 |
vs_top=(vs_base=base+17)+3; |
vs_top=(vs_base=base+17)+3; |
1662 |
Lnconc(); |
Lnconc(); |
1663 |
vs_top=sup; |
vs_top=sup; |
1664 |
V214= vs_base[0];} |
V223= vs_base[0];} |
1665 |
goto T495; |
goto T495; |
1666 |
T495:; |
T495:; |
1667 |
base[18]= (V214); |
base[18]= (V223); |
1668 |
base[19]= VV[66]; |
base[19]= VV[66]; |
1669 |
base[20]= VV[67]; |
base[20]= VV[67]; |
1670 |
base[21]= VV[68]; |
base[21]= VV[68]; |
1671 |
base[22]= (V246); |
base[22]= (V256); |
1672 |
base[23]= VV[69]; |
base[23]= VV[69]; |
1673 |
base[24]= (V248); |
base[24]= (V258); |
1674 |
base[25]= VV[70]; |
base[25]= VV[70]; |
1675 |
base[26]= (V247); |
base[26]= (V257); |
1676 |
base[27]= VV[71]; |
base[27]= VV[71]; |
1677 |
base[28]= (V225); |
base[28]= (V234); |
1678 |
vs_top=(vs_base=base+18)+11; |
vs_top=(vs_base=base+18)+11; |
1679 |
Llist(); |
Llist(); |
1680 |
vs_top=sup; |
vs_top=sup; |
1681 |
V260= vs_base[0]; |
V270= vs_base[0]; |
1682 |
base[17]= list(3,VV[35],VV[64],listA(3,VV[65],V260,append((V250),(V251)))); |
base[17]= list(3,VV[35],VV[64],listA(3,VV[65],V270,append((V260),(V261)))); |
1683 |
if(((V224))==Cnil){ |
if(((V233))==Cnil){ |
1684 |
goto T523;} |
goto T523;} |
1685 |
V261= list(2,VV[28],(V224)); |
V271= list(2,VV[28],(V233)); |
1686 |
goto T521; |
goto T521; |
1687 |
goto T523; |
goto T523; |
1688 |
T523:; |
T523:; |
1689 |
V261= Cnil; |
V271= Cnil; |
1690 |
goto T521; |
goto T521; |
1691 |
T521:; |
T521:; |
1692 |
if(((V205))==Cnil){ |
if(((V214))==Cnil){ |
1693 |
goto T527;} |
goto T527;} |
1694 |
V262= list(2,VV[3],(V205)); |
V272= list(2,VV[3],(V214)); |
1695 |
goto T525; |
goto T525; |
1696 |
goto T527; |
goto T527; |
1697 |
T527:; |
T527:; |
1698 |
V262= Cnil; |
V272= Cnil; |
1699 |
goto T525; |
goto T525; |
1700 |
T525:; |
T525:; |
1701 |
base[18]= append(V261,V262); |
base[18]= append(V271,V272); |
1702 |
vs_top=(vs_base=base+17)+2; |
vs_top=(vs_base=base+17)+2; |
1703 |
return;}}}}}} |
return;}}}}}} |
1704 |
} |
} |
1711 |
vs_check; |
vs_check; |
1712 |
check_arg(2); |
check_arg(2); |
1713 |
vs_top=sup; |
vs_top=sup; |
1714 |
{object V263=base[0]->c.c_cdr; |
{object V273=base[0]->c.c_cdr; |
1715 |
if(endp(V263))invalid_macro_call(); |
if(endp(V273))invalid_macro_call(); |
1716 |
{object V264= (V263->c.c_car); |
{object V274= (V273->c.c_car); |
1717 |
if(endp(V264))invalid_macro_call(); |
if(endp(V274))invalid_macro_call(); |
1718 |
base[2]= (V264->c.c_car); |
base[2]= (V274->c.c_car); |
1719 |
V264=V264->c.c_cdr; |
V274=V274->c.c_cdr; |
1720 |
if(endp(V264))invalid_macro_call(); |
if(endp(V274))invalid_macro_call(); |
1721 |
base[3]= (V264->c.c_car); |
base[3]= (V274->c.c_car); |
1722 |
V264=V264->c.c_cdr; |
V274=V274->c.c_cdr; |
1723 |
if(endp(V264))invalid_macro_call(); |
if(endp(V274))invalid_macro_call(); |
1724 |
base[4]= (V264->c.c_car); |
base[4]= (V274->c.c_car); |
1725 |
V264=V264->c.c_cdr; |
V274=V274->c.c_cdr; |
1726 |
base[5]= V264;} |
base[5]= V274;} |
1727 |
V263=V263->c.c_cdr; |
V273=V273->c.c_cdr; |
1728 |
base[6]= V263;} |
base[6]= V273;} |
1729 |
V265= list(2,base[3],base[4]); |
V275= list(2,base[3],base[4]); |
1730 |
base[7]= list(4,VV[10],base[3],base[4],list(3,VV[72],/* INLINE-ARGS */V265,list(3,VV[73],base[5],listA(3,VV[74],list(2,base[2],base[3]),base[6])))); |
base[7]= list(4,VV[10],base[3],base[4],list(3,VV[72],/* INLINE-ARGS */V275,list(3,VV[73],base[5],listA(3,VV[74],list(2,base[2],base[3]),base[6])))); |
1731 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1732 |
return; |
return; |
1733 |
} |
} |
1739 |
vs_check; |
vs_check; |
1740 |
check_arg(2); |
check_arg(2); |
1741 |
vs_top=sup; |
vs_top=sup; |
1742 |
{object V266=base[0]->c.c_cdr; |
{object V276=base[0]->c.c_cdr; |
1743 |
if(endp(V266))invalid_macro_call(); |
if(endp(V276))invalid_macro_call(); |
1744 |
{object V267= (V266->c.c_car); |
{object V277= (V276->c.c_car); |
1745 |
if(endp(V267))invalid_macro_call(); |
if(endp(V277))invalid_macro_call(); |
1746 |
base[2]= (V267->c.c_car); |
base[2]= (V277->c.c_car); |
1747 |
V267=V267->c.c_cdr; |
V277=V277->c.c_cdr; |
1748 |
if(endp(V267))invalid_macro_call(); |
if(endp(V277))invalid_macro_call(); |
1749 |
base[3]= (V267->c.c_car); |
base[3]= (V277->c.c_car); |
1750 |
V267=V267->c.c_cdr; |
V277=V277->c.c_cdr; |
1751 |
if(endp(V267))invalid_macro_call(); |
if(endp(V277))invalid_macro_call(); |
1752 |
base[4]= (V267->c.c_car); |
base[4]= (V277->c.c_car); |
1753 |
V267=V267->c.c_cdr; |
V277=V277->c.c_cdr; |
1754 |
if(endp(V267))invalid_macro_call(); |
if(endp(V277))invalid_macro_call(); |
1755 |
base[5]= (V267->c.c_car); |
base[5]= (V277->c.c_car); |
1756 |
V267=V267->c.c_cdr; |
V277=V277->c.c_cdr; |
1757 |
base[6]= V267;} |
base[6]= V277;} |
1758 |
V266=V266->c.c_cdr; |
V276=V276->c.c_cdr; |
1759 |
base[7]= V266;} |
base[7]= V276;} |
1760 |
V268= list(3,base[4],base[5],base[3]); |
V278= list(3,base[4],base[5],base[3]); |
1761 |
V269 = CMPmake_fixnum((long)length(base[4])); |
V279 = CMPmake_fixnum((long)length(base[4])); |
1762 |
base[8]= list(3,VV[75],/* INLINE-ARGS */V268,list(3,VV[73],base[6],listA(3,VV[74],list(2,nthcdr(fix(V269),base[2]),base[5]),base[7]))); |
base[8]= list(3,VV[75],/* INLINE-ARGS */V278,list(3,VV[73],base[6],listA(3,VV[74],list(2,nthcdr(fix(V279),base[2]),base[5]),base[7]))); |
1763 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1764 |
return; |
return; |
1765 |
} |
} |
1771 |
vs_check; |
vs_check; |
1772 |
check_arg(2); |
check_arg(2); |
1773 |
vs_top=sup; |
vs_top=sup; |
1774 |
{object V270=base[0]->c.c_cdr; |
{object V280=base[0]->c.c_cdr; |
1775 |
if(endp(V270))invalid_macro_call(); |
if(endp(V280))invalid_macro_call(); |
1776 |
{object V271= (V270->c.c_car); |
{object V281= (V280->c.c_car); |
1777 |
if(endp(V271))invalid_macro_call(); |
if(endp(V281))invalid_macro_call(); |
1778 |
base[2]= (V271->c.c_car); |
base[2]= (V281->c.c_car); |
1779 |
V271=V271->c.c_cdr; |
V281=V281->c.c_cdr; |
1780 |
if(endp(V271))invalid_macro_call(); |
if(endp(V281))invalid_macro_call(); |
1781 |
base[3]= (V271->c.c_car); |
base[3]= (V281->c.c_car); |
1782 |
V271=V271->c.c_cdr; |
V281=V281->c.c_cdr; |
1783 |
if(!endp(V271))invalid_macro_call();} |
if(!endp(V281))invalid_macro_call();} |
1784 |
V270=V270->c.c_cdr; |
V280=V280->c.c_cdr; |
1785 |
base[4]= V270;} |
base[4]= V280;} |
1786 |
V272= list(3,VV[44],VV[80],list(3,VV[44],VV[81],list(2,VV[1],base[3]))); |
V282= list(3,VV[44],VV[80],list(3,VV[44],VV[81],list(2,VV[1],base[3]))); |
1787 |
V273= list(2,VV[1],base[3]); |
V283= list(2,VV[1],base[3]); |
1788 |
V274= list(3,VV[44],/* INLINE-ARGS */V272,list(3,VV[44],/* INLINE-ARGS */V273,list(3,VV[44],VV[82],list(2,VV[1],base[3])))); |
V284= list(3,VV[44],/* INLINE-ARGS */V282,list(3,VV[44],/* INLINE-ARGS */V283,list(3,VV[44],VV[82],list(2,VV[1],base[3])))); |
1789 |
V275= list(3,VV[77],VV[78],list(6,VV[32],VV[79],/* INLINE-ARGS */V274,VV[83],list(2,VV[1],base[3]),VV[84])); |
V285= list(3,VV[77],VV[78],list(6,VV[32],VV[79],/* INLINE-ARGS */V284,VV[83],list(2,VV[1],base[3]),VV[84])); |
1790 |
V276= list(4,VV[44],VV[91],VV[92],list(2,VV[1],base[2])); |
V286= list(4,VV[44],VV[91],VV[92],list(2,VV[1],base[2])); |
1791 |
base[5]= listA(3,VV[76],list(3,/* INLINE-ARGS */V275,list(3,VV[85],VV[86],list(5,VV[44],VV[87],VV[88],list(5,VV[44],VV[89],VV[90],/* INLINE-ARGS */V276,list(2,VV[1],base[3])),VV[93])),VV[94]),base[4]); |
base[5]= listA(3,VV[76],list(3,/* INLINE-ARGS */V285,list(3,VV[85],VV[86],list(5,VV[44],VV[87],VV[88],list(5,VV[44],VV[89],VV[90],/* INLINE-ARGS */V286,list(2,VV[1],base[3])),VV[93])),VV[94]),base[4]); |
1792 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1793 |
return; |
return; |
1794 |
} |
} |
1798 |
{ |
{ |
1799 |
va_list ap; |
va_list ap; |
1800 |
int narg = VFUN_NARGS; VMB21 VMS21 VMV21 |
int narg = VFUN_NARGS; VMB21 VMS21 VMV21 |
1801 |
{object V277; |
{object V287; |
1802 |
object V278; |
object V288; |
1803 |
va_start(ap,first); |
va_start(ap,first); |
1804 |
narg= narg - 0; |
narg= narg - 0; |
1805 |
{ |
{ |
1806 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI23key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI23key,first,ap); |
1807 |
if(Vcs[0]==0){ |
if(Vcs[0]==0){ |
1808 |
V277= (VV[382]->s.s_gfdef); |
V287= (VV[382]->s.s_gfdef); |
1809 |
}else{ |
}else{ |
1810 |
V277=(Vcs[0]);} |
V287=(Vcs[0]);} |
1811 |
V278=(Vcs[1]); |
V288=(Vcs[1]); |
1812 |
base[0]= VV[95]; |
base[0]= VV[95]; |
1813 |
base[1]= (V277); |
base[1]= (V287); |
1814 |
base[2]= (V278); |
base[2]= (V288); |
1815 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1816 |
siLmake_structure(); |
siLmake_structure(); |
1817 |
vs_top=sup; |
vs_top=sup; |
1818 |
{object V279 = vs_base[0]; |
{object V289 = vs_base[0]; |
1819 |
VMR21(V279)} |
VMR21(V289)} |
1820 |
va_end(ap); |
va_end(ap); |
1821 |
base[0]=base[0]; |
base[0]=base[0]; |
1822 |
return Cnil;} |
return Cnil;} |
1829 |
vs_check; |
vs_check; |
1830 |
check_arg(2); |
check_arg(2); |
1831 |
vs_top=sup; |
vs_top=sup; |
1832 |
{object V280=base[0]->c.c_cdr; |
{object V290=base[0]->c.c_cdr; |
1833 |
if(endp(V280))invalid_macro_call(); |
if(endp(V290))invalid_macro_call(); |
1834 |
base[2]= (V280->c.c_car); |
base[2]= (V290->c.c_car); |
1835 |
V280=V280->c.c_cdr; |
V290=V290->c.c_cdr; |
1836 |
if(endp(V280))invalid_macro_call(); |
if(endp(V290))invalid_macro_call(); |
1837 |
base[3]= (V280->c.c_car); |
base[3]= (V290->c.c_car); |
1838 |
V280=V280->c.c_cdr; |
V290=V290->c.c_cdr; |
1839 |
if(endp(V280))invalid_macro_call(); |
if(endp(V290))invalid_macro_call(); |
1840 |
base[4]= (V280->c.c_car); |
base[4]= (V290->c.c_car); |
1841 |
V280=V280->c.c_cdr; |
V290=V290->c.c_cdr; |
1842 |
if(!endp(V280))invalid_macro_call();} |
if(!endp(V290))invalid_macro_call();} |
1843 |
V281= list(2,VV[97],base[2]); |
V291= list(2,VV[97],base[2]); |
1844 |
V282= list(2,VV[98],base[3]); |
V292= list(2,VV[98],base[3]); |
1845 |
base[5]= listA(3,VV[96],list(3,/* INLINE-ARGS */V281,/* INLINE-ARGS */V282,list(2,VV[99],base[4])),VV[100]); |
base[5]= listA(3,VV[96],list(3,/* INLINE-ARGS */V291,/* INLINE-ARGS */V292,list(2,VV[99],base[4])),VV[100]); |
1846 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1847 |
return; |
return; |
1848 |
} |
} |
1854 |
vs_check; |
vs_check; |
1855 |
check_arg(2); |
check_arg(2); |
1856 |
vs_top=sup; |
vs_top=sup; |
1857 |
{object V283=base[0]->c.c_cdr; |
{object V293=base[0]->c.c_cdr; |
1858 |
if(endp(V283))invalid_macro_call(); |
if(endp(V293))invalid_macro_call(); |
1859 |
base[2]= (V283->c.c_car); |
base[2]= (V293->c.c_car); |
1860 |
V283=V283->c.c_cdr; |
V293=V293->c.c_cdr; |
1861 |
if(endp(V283))invalid_macro_call(); |
if(endp(V293))invalid_macro_call(); |
1862 |
base[3]= (V283->c.c_car); |
base[3]= (V293->c.c_car); |
1863 |
V283=V283->c.c_cdr; |
V293=V293->c.c_cdr; |
1864 |
base[4]= V283;} |
base[4]= V293;} |
1865 |
V284= list(2,VV[102],base[2]); |
V294= list(2,VV[102],base[2]); |
1866 |
if((base[3])==Cnil){ |
if((base[3])==Cnil){ |
1867 |
goto T535;} |
goto T535;} |
1868 |
V285= make_cons(VV[32],base[4]); |
V295= make_cons(VV[32],base[4]); |
1869 |
goto T533; |
goto T533; |
1870 |
goto T535; |
goto T535; |
1871 |
T535:; |
T535:; |
1872 |
V285= make_cons(VV[44],base[4]); |
V295= make_cons(VV[44],base[4]); |
1873 |
goto T533; |
goto T533; |
1874 |
T533:; |
T533:; |
1875 |
base[5]= list(4,VV[101],/* INLINE-ARGS */V284,V285,list(2,VV[103],base[2])); |
base[5]= list(4,VV[101],/* INLINE-ARGS */V294,V295,list(2,VV[103],base[2])); |
1876 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1877 |
return; |
return; |
1878 |
} |
} |
1882 |
{ |
{ |
1883 |
va_list ap; |
va_list ap; |
1884 |
int narg = VFUN_NARGS; VMB24 VMS24 VMV24 |
int narg = VFUN_NARGS; VMB24 VMS24 VMV24 |
1885 |
{object V286; |
{object V296; |
1886 |
object V287; |
object V297; |
1887 |
object V288; |
object V298; |
1888 |
object V289; |
object V299; |
1889 |
va_start(ap,first); |
va_start(ap,first); |
1890 |
narg= narg - 0; |
narg= narg - 0; |
1891 |
{ |
{ |
1892 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI26key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI26key,first,ap); |
1893 |
if(Vcs[0]==0){ |
if(Vcs[0]==0){ |
1894 |
V286= (VV[382]->s.s_gfdef); |
V296= (VV[382]->s.s_gfdef); |
1895 |
}else{ |
}else{ |
1896 |
V286=(Vcs[0]);} |
V296=(Vcs[0]);} |
1897 |
V287=(Vcs[1]); |
V297=(Vcs[1]); |
1898 |
V288=(Vcs[2]); |
V298=(Vcs[2]); |
1899 |
V289=(Vcs[3]); |
V299=(Vcs[3]); |
1900 |
base[0]= VV[104]; |
base[0]= VV[104]; |
1901 |
base[1]= (V286); |
base[1]= (V296); |
1902 |
base[2]= (V287); |
base[2]= (V297); |
1903 |
base[3]= (V288); |
base[3]= (V298); |
1904 |
base[4]= (V289); |
base[4]= (V299); |
1905 |
vs_top=(vs_base=base+0)+5; |
vs_top=(vs_base=base+0)+5; |
1906 |
siLmake_structure(); |
siLmake_structure(); |
1907 |
vs_top=sup; |
vs_top=sup; |
1908 |
{object V290 = vs_base[0]; |
{object V300 = vs_base[0]; |
1909 |
VMR24(V290)} |
VMR24(V300)} |
1910 |
va_end(ap); |
va_end(ap); |
1911 |
base[0]=base[0]; |
base[0]=base[0]; |
1912 |
return Cnil;} |
return Cnil;} |
1919 |
vs_check; |
vs_check; |
1920 |
check_arg(2); |
check_arg(2); |
1921 |
vs_top=sup; |
vs_top=sup; |
1922 |
{object V291=base[0]->c.c_cdr; |
{object V301=base[0]->c.c_cdr; |
1923 |
if(endp(V291))invalid_macro_call(); |
if(endp(V301))invalid_macro_call(); |
1924 |
base[2]= (V291->c.c_car); |
base[2]= (V301->c.c_car); |
1925 |
V291=V291->c.c_cdr; |
V301=V301->c.c_cdr; |
1926 |
base[3]= V291;} |
base[3]= V301;} |
1927 |
V292= list(2,VV[106],base[2]); |
V302= list(2,VV[106],base[2]); |
1928 |
V293= list(2,VV[107],base[2]); |
V303= list(2,VV[107],base[2]); |
1929 |
base[4]= listA(5,VV[105],/* INLINE-ARGS */V292,/* INLINE-ARGS */V293,list(2,VV[108],base[2]),base[3]); |
base[4]= listA(5,VV[105],/* INLINE-ARGS */V302,/* INLINE-ARGS */V303,list(2,VV[108],base[2]),base[3]); |
1930 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1931 |
return; |
return; |
1932 |
} |
} |
1936 |
{ |
{ |
1937 |
va_list ap; |
va_list ap; |
1938 |
int narg = VFUN_NARGS; VMB26 VMS26 VMV26 |
int narg = VFUN_NARGS; VMB26 VMS26 VMV26 |
1939 |
{object V294; |
{object V304; |
1940 |
va_start(ap,first); |
va_start(ap,first); |
1941 |
narg= narg - 0; |
narg= narg - 0; |
1942 |
{ |
{ |
1943 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI28key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI28key,first,ap); |
1944 |
V294=(Vcs[0]); |
V304=(Vcs[0]); |
1945 |
base[0]= VV[109]; |
base[0]= VV[109]; |
1946 |
base[1]= (V294); |
base[1]= (V304); |
1947 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1948 |
siLmake_structure(); |
siLmake_structure(); |
1949 |
vs_top=sup; |
vs_top=sup; |
1950 |
{object V295 = vs_base[0]; |
{object V305 = vs_base[0]; |
1951 |
VMR26(V295)} |
VMR26(V305)} |
1952 |
va_end(ap); |
va_end(ap); |
1953 |
base[0]=base[0]; |
base[0]=base[0]; |
1954 |
return Cnil;} |
return Cnil;} |
1963 |
TTL:; |
TTL:; |
1964 |
if(((VV[110]->s.s_dbind))==Cnil){ |
if(((VV[110]->s.s_dbind))==Cnil){ |
1965 |
goto T546;} |
goto T546;} |
1966 |
{register object V296; |
{register object V306; |
1967 |
V296= (VV[111]->s.s_dbind); |
V306= (VV[111]->s.s_dbind); |
1968 |
bds_bind(VV[112],Cnil); |
bds_bind(VV[112],Cnil); |
1969 |
base[1]= Ct; |
base[1]= Ct; |
1970 |
base[2]= VV[113]; |
base[2]= VV[113]; |
1971 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1972 |
Lformat(); |
Lformat(); |
1973 |
vs_top=sup; |
vs_top=sup; |
1974 |
{register long V297; |
{register long V307; |
1975 |
register long V298; |
register long V308; |
1976 |
V297= fix((VV[114]->s.s_dbind)); |
V307= fix((VV[114]->s.s_dbind)); |
1977 |
V298= 0; |
V308= 0; |
1978 |
goto T554; |
goto T554; |
1979 |
T554:; |
T554:; |
1980 |
if(!((V298)>=(V297))){ |
if(!((V308)>=(V307))){ |
1981 |
goto T555;} |
goto T555;} |
1982 |
{object V299 = Cnil; |
{object V309 = Cnil; |
1983 |
bds_unwind1; |
bds_unwind1; |
1984 |
VMR27(V299)} |
VMR27(V309)} |
1985 |
goto T555; |
goto T555; |
1986 |
T555:; |
T555:; |
1987 |
{register object V300; |
{register object V310; |
1988 |
V300= aref1((VV[110]->s.s_dbind),fix((V296))); |
V310= aref1((VV[110]->s.s_dbind),fix((V306))); |
1989 |
if(((V300))==Cnil){ |
if(((V310))==Cnil){ |
1990 |
goto T558;} |
goto T558;} |
1991 |
(void)(print((V300),Cnil));} |
(void)(print((V310),Cnil));} |
1992 |
goto T558; |
goto T558; |
1993 |
T558:; |
T558:; |
1994 |
V296= number_plus((V296),small_fixnum(1)); |
V306= number_plus((V306),small_fixnum(1)); |
1995 |
if(!(number_compare((V296),(VV[114]->s.s_dbind))==0)){ |
if(!(number_compare((V306),(VV[114]->s.s_dbind))==0)){ |
1996 |
goto T564;} |
goto T564;} |
1997 |
V296= small_fixnum(0); |
V306= small_fixnum(0); |
1998 |
goto T564; |
goto T564; |
1999 |
T564:; |
T564:; |
2000 |
V298= (long)(V298)+1; |
V308= (long)(V308)+1; |
2001 |
goto T554;}} |
goto T554;}} |
2002 |
goto T546; |
goto T546; |
2003 |
T546:; |
T546:; |
2004 |
{object V301 = Cnil; |
{object V311 = Cnil; |
2005 |
VMR27(V301)} |
VMR27(V311)} |
2006 |
base[0]=base[0]; |
base[0]=base[0]; |
2007 |
return Cnil; |
return Cnil; |
2008 |
} |
} |
2009 |
/* local entry for function TRACE-EMF-CALL-INTERNAL */ |
/* local entry for function TRACE-EMF-CALL-INTERNAL */ |
2010 |
|
|
2011 |
static object LI30(V305,V306,V307) |
static object LI30(V315,V316,V317) |
2012 |
|
|
2013 |
object V305;object V306;object V307; |
object V315;object V316;object V317; |
2014 |
{ VMB28 VMS28 VMV28 |
{ VMB28 VMS28 VMV28 |
2015 |
goto TTL; |
goto TTL; |
2016 |
TTL:; |
TTL:; |
2022 |
vs_top=sup; |
vs_top=sup; |
2023 |
(VV[110]->s.s_dbind)= vs_base[0]; |
(VV[110]->s.s_dbind)= vs_base[0]; |
2024 |
goto T571; |
goto T571; |
2025 |
T571:;{object V308; |
T571:;{object V318; |
2026 |
V308= (VV[110]->s.s_dbind);{object V309; |
V318= (VV[110]->s.s_dbind);{object V319; |
2027 |
V309= (VV[111]->s.s_dbind); |
V319= (VV[111]->s.s_dbind); |
2028 |
V310= listA(3,(V305),(V306),(V307)); |
V320= listA(3,(V315),(V316),(V317)); |
2029 |
(void)(aset1(V308,fix(V309),/* INLINE-ARGS */V310));}} |
(void)(aset1(V318,fix(V319),/* INLINE-ARGS */V320));}} |
2030 |
(VV[111]->s.s_dbind)= number_plus((VV[111]->s.s_dbind),small_fixnum(1)); |
(VV[111]->s.s_dbind)= number_plus((VV[111]->s.s_dbind),small_fixnum(1)); |
2031 |
if(!(number_compare((VV[111]->s.s_dbind),(VV[114]->s.s_dbind))==0)){ |
if(!(number_compare((VV[111]->s.s_dbind),(VV[114]->s.s_dbind))==0)){ |
2032 |
goto T580;} |
goto T580;} |
2033 |
(VV[111]->s.s_dbind)= small_fixnum(0); |
(VV[111]->s.s_dbind)= small_fixnum(0); |
2034 |
{object V311 = small_fixnum(0); |
{object V321 = small_fixnum(0); |
2035 |
VMR28(V311)} |
VMR28(V321)} |
2036 |
goto T580; |
goto T580; |
2037 |
T580:; |
T580:; |
2038 |
{object V312 = Cnil; |
{object V322 = Cnil; |
2039 |
VMR28(V312)} |
VMR28(V322)} |
2040 |
base[0]=base[0]; |
base[0]=base[0]; |
2041 |
return Cnil; |
return Cnil; |
2042 |
} |
} |
2048 |
vs_check; |
vs_check; |
2049 |
check_arg(2); |
check_arg(2); |
2050 |
vs_top=sup; |
vs_top=sup; |
2051 |
{object V313=base[0]->c.c_cdr; |
{object V323=base[0]->c.c_cdr; |
2052 |
if(endp(V313))invalid_macro_call(); |
if(endp(V323))invalid_macro_call(); |
2053 |
base[2]= (V313->c.c_car); |
base[2]= (V323->c.c_car); |
2054 |
V313=V313->c.c_cdr; |
V323=V323->c.c_cdr; |
2055 |
if(endp(V313))invalid_macro_call(); |
if(endp(V323))invalid_macro_call(); |
2056 |
base[3]= (V313->c.c_car); |
base[3]= (V323->c.c_car); |
2057 |
V313=V313->c.c_cdr; |
V323=V323->c.c_cdr; |
2058 |
if(endp(V313))invalid_macro_call(); |
if(endp(V323))invalid_macro_call(); |
2059 |
base[4]= (V313->c.c_car); |
base[4]= (V323->c.c_car); |
2060 |
V313=V313->c.c_cdr; |
V323=V323->c.c_cdr; |
2061 |
if(!endp(V313))invalid_macro_call();} |
if(!endp(V323))invalid_macro_call();} |
2062 |
if(((VV[115]->s.s_dbind))==Cnil){ |
if(((VV[115]->s.s_dbind))==Cnil){ |
2063 |
goto T584;} |
goto T584;} |
2064 |
base[5]= list(3,VV[116],VV[112],list(4,VV[117],base[2],base[3],base[4])); |
base[5]= list(3,VV[116],VV[112],list(4,VV[117],base[2],base[3],base[4])); |
2078 |
vs_check; |
vs_check; |
2079 |
check_arg(2); |
check_arg(2); |
2080 |
vs_top=sup; |
vs_top=sup; |
2081 |
{object V314=base[0]->c.c_cdr; |
{object V324=base[0]->c.c_cdr; |
2082 |
if(endp(V314))invalid_macro_call(); |
if(endp(V324))invalid_macro_call(); |
2083 |
base[2]= (V314->c.c_car); |
base[2]= (V324->c.c_car); |
2084 |
V314=V314->c.c_cdr; |
V324=V324->c.c_cdr; |
2085 |
if(endp(V314))invalid_macro_call(); |
if(endp(V324))invalid_macro_call(); |
2086 |
base[3]= (V314->c.c_car); |
base[3]= (V324->c.c_car); |
2087 |
V314=V314->c.c_cdr; |
V324=V324->c.c_cdr; |
2088 |
base[4]= V314;} |
base[4]= V324;} |
2089 |
V315= list(4,VV[118],base[2],base[3],make_cons(VV[44],base[4])); |
V325= list(4,VV[118],base[2],base[3],make_cons(VV[44],base[4])); |
2090 |
base[5]= list(3,VV[10],/* INLINE-ARGS */V315,listA(3,VV[119],base[2],base[4])); |
base[5]= list(3,VV[10],/* INLINE-ARGS */V325,listA(3,VV[119],base[2],base[4])); |
2091 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2092 |
return; |
return; |
2093 |
} |
} |
2099 |
vs_check; |
vs_check; |
2100 |
check_arg(2); |
check_arg(2); |
2101 |
vs_top=sup; |
vs_top=sup; |
2102 |
{object V316=base[0]->c.c_cdr; |
{object V326=base[0]->c.c_cdr; |
2103 |
if(endp(V316))invalid_macro_call(); |
if(endp(V326))invalid_macro_call(); |
2104 |
base[2]= (V316->c.c_car); |
base[2]= (V326->c.c_car); |
2105 |
V316=V316->c.c_cdr; |
V326=V326->c.c_cdr; |
2106 |
if(endp(V316))invalid_macro_call(); |
if(endp(V326))invalid_macro_call(); |
2107 |
base[3]= (V316->c.c_car); |
base[3]= (V326->c.c_car); |
2108 |
V316=V316->c.c_cdr; |
V326=V326->c.c_cdr; |
2109 |
base[4]= V316;} |
base[4]= V326;} |
2110 |
base[5]= base[3]; |
base[5]= base[3]; |
2111 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2112 |
Lconstantp(); |
Lconstantp(); |
2124 |
Leval(); |
Leval(); |
2125 |
vs_top=sup; |
vs_top=sup; |
2126 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
2127 |
V317= list(4,VV[118],base[2],base[3],make_cons(VV[44],base[4])); |
V327= list(4,VV[118],base[2],base[3],make_cons(VV[44],base[4])); |
2128 |
V318= list(3,VV[122],base[2],VV[123]); |
V328= list(3,VV[122],base[2],VV[123]); |
2129 |
V319= list(2,/* INLINE-ARGS */V318,listA(3,VV[119],base[2],base[4])); |
V329= list(2,/* INLINE-ARGS */V328,listA(3,VV[119],base[2],base[4])); |
2130 |
if((base[3])!=Cnil){ |
if((base[3])!=Cnil){ |
2131 |
goto T597;} |
goto T597;} |
2132 |
if(!((1)==((long)length(base[4])))){ |
if(!((1)==((long)length(base[4])))){ |
2133 |
goto T597;} |
goto T597;} |
2134 |
V321= list(3,VV[122],base[2],VV[124]); |
V331= list(3,VV[122],base[2],VV[124]); |
2135 |
V322= list(2,VV[126],list(2,VV[127],CMPcar(base[4]))); |
V332= list(2,VV[126],list(2,VV[127],CMPcar(base[4]))); |
2136 |
V323= list(2,/* INLINE-ARGS */V322,list(2,VV[128],list(3,VV[116],VV[126],list(3,VV[129],VV[126],base[2])))); |
V333= list(2,/* INLINE-ARGS */V332,list(2,VV[128],list(3,VV[116],VV[126],list(3,VV[129],VV[126],base[2])))); |
2137 |
V324= list(3,VV[131],VV[128],list(2,VV[1],(VV[132]->s.s_dbind))); |
V334= list(3,VV[131],VV[128],list(2,VV[1],(VV[132]->s.s_dbind))); |
2138 |
V325= list(2,/* INLINE-ARGS */V321,list(3,VV[125],/* INLINE-ARGS */V323,list(4,VV[130],/* INLINE-ARGS */V324,list(3,VV[133],CMPcar(base[4]),base[2]),VV[128]))); |
V335= list(2,/* INLINE-ARGS */V331,list(3,VV[125],/* INLINE-ARGS */V333,list(4,VV[130],/* INLINE-ARGS */V334,list(3,VV[133],CMPcar(base[4]),base[2]),VV[128]))); |
2139 |
base[5]= make_cons(/* INLINE-ARGS */V325,Cnil); |
base[5]= make_cons(/* INLINE-ARGS */V335,Cnil); |
2140 |
goto T595; |
goto T595; |
2141 |
goto T597; |
goto T597; |
2142 |
T597:; |
T597:; |
2147 |
goto T603;} |
goto T603;} |
2148 |
if(!((2)==((long)length(base[4])))){ |
if(!((2)==((long)length(base[4])))){ |
2149 |
goto T603;} |
goto T603;} |
2150 |
V326= list(3,VV[122],base[2],VV[134]); |
V336= list(3,VV[122],base[2],VV[134]); |
2151 |
V327= list(2,VV[135],CMPcar(base[4])); |
V337= list(2,VV[135],CMPcar(base[4])); |
2152 |
V328= list(2,/* INLINE-ARGS */V327,list(2,VV[126],list(2,VV[127],CMPcar(base[4])))); |
V338= list(2,/* INLINE-ARGS */V337,list(2,VV[126],list(2,VV[127],CMPcar(base[4])))); |
2153 |
V329= list(2,/* INLINE-ARGS */V326,list(3,VV[96],/* INLINE-ARGS */V328,list(3,VV[116],VV[126],list(3,VV[30],list(3,VV[129],VV[126],base[2]),VV[135])))); |
V339= list(2,/* INLINE-ARGS */V336,list(3,VV[96],/* INLINE-ARGS */V338,list(3,VV[116],VV[126],list(3,VV[30],list(3,VV[129],VV[126],base[2]),VV[135])))); |
2154 |
base[6]= make_cons(/* INLINE-ARGS */V329,Cnil); |
base[6]= make_cons(/* INLINE-ARGS */V339,Cnil); |
2155 |
goto T601; |
goto T601; |
2156 |
goto T603; |
goto T603; |
2157 |
T603:; |
T603:; |
2158 |
base[6]= Cnil; |
base[6]= Cnil; |
2159 |
goto T601; |
goto T601; |
2160 |
T601:; |
T601:; |
2161 |
V330= list(2,VV[95],listA(4,VV[137],base[2],base[3],base[4])); |
V340= list(2,VV[95],listA(4,VV[137],base[2],base[3],base[4])); |
2162 |
if((base[3])==Cnil){ |
if((base[3])==Cnil){ |
2163 |
goto T610;} |
goto T610;} |
2164 |
V331= listA(3,VV[138],list(3,VV[139],VV[34],base[2]),base[4]); |
V341= listA(3,VV[138],list(3,VV[139],VV[34],base[2]),base[4]); |
2165 |
goto T608; |
goto T608; |
2166 |
goto T610; |
goto T610; |
2167 |
T610:; |
T610:; |
2168 |
V331= listA(3,VV[140],list(3,VV[139],VV[34],base[2]),base[4]); |
V341= listA(3,VV[140],list(3,VV[139],VV[34],base[2]),base[4]); |
2169 |
goto T608; |
goto T608; |
2170 |
T608:; |
T608:; |
2171 |
V332= list(2,Ct,list(4,VV[136],base[2],/* INLINE-ARGS */V330,list(2,VV[34],V331))); |
V342= list(2,Ct,list(4,VV[136],base[2],/* INLINE-ARGS */V340,list(2,VV[34],V341))); |
2172 |
base[7]= make_cons(/* INLINE-ARGS */V332,Cnil); |
base[7]= make_cons(/* INLINE-ARGS */V342,Cnil); |
2173 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
2174 |
Lappend(); |
Lappend(); |
2175 |
vs_top=sup; |
vs_top=sup; |
2176 |
V320= vs_base[0]; |
V330= vs_base[0]; |
2177 |
base[5]= list(3,VV[10],/* INLINE-ARGS */V317,listA(3,VV[121],/* INLINE-ARGS */V319,V320)); |
base[5]= list(3,VV[10],/* INLINE-ARGS */V327,listA(3,VV[121],/* INLINE-ARGS */V329,V330)); |
2178 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2179 |
return; |
return; |
2180 |
} |
} |
2184 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2185 |
register object *sup=base+VM32; VC32 |
register object *sup=base+VM32; VC32 |
2186 |
vs_check; |
vs_check; |
2187 |
{register object V333; |
{register object V343; |
2188 |
register object V334; |
register object V344; |
2189 |
check_arg(2); |
check_arg(2); |
2190 |
V333=(base[0]); |
V343=(base[0]); |
2191 |
V334=(base[1]); |
V344=(base[1]); |
2192 |
vs_top=sup; |
vs_top=sup; |
2193 |
goto TTL; |
goto TTL; |
2194 |
TTL:; |
TTL:; |
2195 |
{register object V335; |
{register object V345; |
2196 |
V335= (V333); |
V345= (V343); |
2197 |
base[2]= (V335); |
base[2]= (V345); |
2198 |
base[3]= VV[104]; |
base[3]= VV[104]; |
2199 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2200 |
(void) (*Lnk389)(); |
(void) (*Lnk389)(); |
2201 |
vs_top=sup; |
vs_top=sup; |
2202 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2203 |
goto T614;} |
goto T614;} |
2204 |
{object V336; |
{object V346; |
2205 |
object V337; |
object V347; |
2206 |
register object V338; |
register object V348; |
2207 |
V336= STREF(object,(V333),12); |
V346= STREF(object,(V343),12); |
2208 |
V337= CMPcdr((V336)); |
V347= CMPcdr((V346)); |
2209 |
V338= CMPcar((V336)); |
V348= CMPcar((V346)); |
2210 |
if(((V337))==Cnil){ |
if(((V347))==Cnil){ |
2211 |
goto T622;} |
goto T622;} |
2212 |
{object V339; |
{object V349; |
2213 |
object V340; |
object V350; |
2214 |
V339= nthcdr(fix((V338)),(V334)); |
V349= nthcdr(fix((V348)),(V344)); |
2215 |
base[7]= (V334); |
base[7]= (V344); |
2216 |
base[8]= (V339); |
base[8]= (V349); |
2217 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
2218 |
Lldiff(); |
Lldiff(); |
2219 |
vs_top=sup; |
vs_top=sup; |
2220 |
V340= vs_base[0]; |
V350= vs_base[0]; |
2221 |
base[7]= STREF(object,(V333),0); |
base[7]= STREF(object,(V343),0); |
2222 |
base[8]= STREF(object,(V333),4); |
base[8]= STREF(object,(V343),4); |
2223 |
base[9]= STREF(object,(V333),8); |
base[9]= STREF(object,(V343),8); |
2224 |
{object V341; |
{object V351; |
2225 |
V342= make_cons((V339),Cnil); |
V352= make_cons((V349),Cnil); |
2226 |
V341= nconc((V340),/* INLINE-ARGS */V342); |
V351= nconc((V350),/* INLINE-ARGS */V352); |
2227 |
vs_top=base+10; |
vs_top=base+10; |
2228 |
while(V341!=Cnil) |
while(V351!=Cnil) |
2229 |
{vs_push((V341)->c.c_car);V341=(V341)->c.c_cdr;} |
{vs_push((V351)->c.c_car);V351=(V351)->c.c_cdr;} |
2230 |
vs_base=base+8;} |
vs_base=base+8;} |
2231 |
{object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2232 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2235 |
return;} |
return;} |
2236 |
goto T622; |
goto T622; |
2237 |
T622:; |
T622:; |
2238 |
if(((V334))!=Cnil){ |
if(((V344))!=Cnil){ |
2239 |
goto T633;} |
goto T633;} |
2240 |
if(!(eql((V338),small_fixnum(0)))){ |
if(!(eql((V348),small_fixnum(0)))){ |
2241 |
goto T636;} |
goto T636;} |
2242 |
base[5]= STREF(object,(V333),0); |
base[5]= STREF(object,(V343),0); |
2243 |
base[6]= STREF(object,(V333),4); |
base[6]= STREF(object,(V343),4); |
2244 |
base[7]= STREF(object,(V333),8); |
base[7]= STREF(object,(V343),8); |
2245 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
2246 |
{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)) |
2247 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2256 |
return; |
return; |
2257 |
goto T633; |
goto T633; |
2258 |
T633:; |
T633:; |
2259 |
if((CMPcdr((V334)))!=Cnil){ |
if((CMPcdr((V344)))!=Cnil){ |
2260 |
goto T643;} |
goto T643;} |
2261 |
if(!(eql((V338),small_fixnum(1)))){ |
if(!(eql((V348),small_fixnum(1)))){ |
2262 |
goto T646;} |
goto T646;} |
2263 |
base[5]= STREF(object,(V333),0); |
base[5]= STREF(object,(V343),0); |
2264 |
base[6]= STREF(object,(V333),4); |
base[6]= STREF(object,(V343),4); |
2265 |
base[7]= STREF(object,(V333),8); |
base[7]= STREF(object,(V343),8); |
2266 |
base[8]= CMPcar((V334)); |
base[8]= CMPcar((V344)); |
2267 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
2268 |
{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)) |
2269 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2278 |
return; |
return; |
2279 |
goto T643; |
goto T643; |
2280 |
T643:; |
T643:; |
2281 |
if((CMPcddr((V334)))!=Cnil){ |
if((CMPcddr((V344)))!=Cnil){ |
2282 |
goto T654;} |
goto T654;} |
2283 |
if(!(eql((V338),small_fixnum(2)))){ |
if(!(eql((V348),small_fixnum(2)))){ |
2284 |
goto T657;} |
goto T657;} |
2285 |
base[5]= STREF(object,(V333),0); |
base[5]= STREF(object,(V343),0); |
2286 |
base[6]= STREF(object,(V333),4); |
base[6]= STREF(object,(V343),4); |
2287 |
base[7]= STREF(object,(V333),8); |
base[7]= STREF(object,(V343),8); |
2288 |
base[8]= CMPcar((V334)); |
base[8]= CMPcar((V344)); |
2289 |
base[9]= CMPcadr((V334)); |
base[9]= CMPcadr((V344)); |
2290 |
vs_top=(vs_base=base+6)+4; |
vs_top=(vs_base=base+6)+4; |
2291 |
{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)) |
2292 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2301 |
return; |
return; |
2302 |
goto T654; |
goto T654; |
2303 |
T654:; |
T654:; |
2304 |
base[5]= STREF(object,(V333),0); |
base[5]= STREF(object,(V343),0); |
2305 |
base[6]= STREF(object,(V333),4); |
base[6]= STREF(object,(V343),4); |
2306 |
base[7]= STREF(object,(V333),8); |
base[7]= STREF(object,(V343),8); |
2307 |
{object V343; |
{object V353; |
2308 |
V343= (V334); |
V353= (V344); |
2309 |
vs_top=base+8; |
vs_top=base+8; |
2310 |
while(V343!=Cnil) |
while(V353!=Cnil) |
2311 |
{vs_push((V343)->c.c_car);V343=(V343)->c.c_cdr;} |
{vs_push((V353)->c.c_car);V353=(V353)->c.c_cdr;} |
2312 |
vs_base=base+6;} |
vs_base=base+6;} |
2313 |
{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)) |
2314 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2317 |
return;} |
return;} |
2318 |
goto T614; |
goto T614; |
2319 |
T614:; |
T614:; |
2320 |
base[2]= (V335); |
base[2]= (V345); |
2321 |
base[3]= VV[95]; |
base[3]= VV[95]; |
2322 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2323 |
(void) (*Lnk389)(); |
(void) (*Lnk389)(); |
2324 |
vs_top=sup; |
vs_top=sup; |
2325 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2326 |
goto T670;} |
goto T670;} |
2327 |
base[2]= STREF(object,(V333),0); |
base[2]= STREF(object,(V343),0); |
2328 |
base[3]= (V334); |
base[3]= (V344); |
2329 |
{object V344; |
{object V354; |
2330 |
V344= STREF(object,(V333),4); |
V354= STREF(object,(V343),4); |
2331 |
vs_top=base+4; |
vs_top=base+4; |
2332 |
while(V344!=Cnil) |
while(V354!=Cnil) |
2333 |
{vs_push((V344)->c.c_car);V344=(V344)->c.c_cdr;} |
{vs_push((V354)->c.c_car);V354=(V354)->c.c_cdr;} |
2334 |
vs_base=base+3;} |
vs_base=base+3;} |
2335 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2336 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2339 |
return; |
return; |
2340 |
goto T670; |
goto T670; |
2341 |
T670:; |
T670:; |
2342 |
if(!(type_of((V335))==t_fixnum)){ |
if(!(type_of((V345))==t_fixnum)){ |
2343 |
goto T678;} |
goto T678;} |
2344 |
if(((V334))!=Cnil){ |
if(((V344))!=Cnil){ |
2345 |
goto T681;} |
goto T681;} |
2346 |
base[2]= VV[144]; |
base[2]= VV[144]; |
2347 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2349 |
return; |
return; |
2350 |
goto T681; |
goto T681; |
2351 |
T681:; |
T681:; |
2352 |
if((CMPcdr((V334)))!=Cnil){ |
if((CMPcdr((V344)))!=Cnil){ |
2353 |
goto T685;} |
goto T685;} |
2354 |
{object V345; |
{object V355; |
2355 |
{object V347; |
{object V357; |
2356 |
V347= CMPcar((V334)); |
V357= CMPcar((V344)); |
2357 |
if(type_of((V347))==t_structure){ |
if(type_of((V357))==t_structure){ |
2358 |
goto T693;} |
goto T693;} |
2359 |
goto T690; |
goto T690; |
2360 |
goto T693; |
goto T693; |
2361 |
T693:; |
T693:; |
2362 |
if(!((((V347))->str.str_def)==(VV[145]))){ |
if(!((((V357))->str.str_def)==(VV[145]))){ |
2363 |
goto T690;}} |
goto T690;}} |
2364 |
V346= STREF(object,CMPcar((V334)),4); |
V356= STREF(object,CMPcar((V344)),4); |
2365 |
goto T688; |
goto T688; |
2366 |
goto T690; |
goto T690; |
2367 |
T690:;{object V348; |
T690:;{object V358; |
2368 |
V348= (VV[147]->s.s_dbind); |
V358= (VV[147]->s.s_dbind); |
2369 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
2370 |
base[3]= CMPcar((V334)); |
base[3]= CMPcar((V344)); |
2371 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2372 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
2373 |
vs_top=sup; |
vs_top=sup; |
2374 |
V349= vs_base[0]; |
V359= vs_base[0]; |
2375 |
if(!((V348)==(CMPcar(V349)))){ |
if(!((V358)==(CMPcar(V359)))){ |
2376 |
goto T696;}} |
goto T696;}} |
2377 |
V346= CMPcar((CMPcar((V334)))->cc.cc_turbo[12]); |
V356= CMPcar((CMPcar((V344)))->cc.cc_turbo[12]); |
2378 |
goto T688; |
goto T688; |
2379 |
goto T696; |
goto T696; |
2380 |
T696:; |
T696:; |
2382 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2383 |
Lerror(); |
Lerror(); |
2384 |
vs_top=sup; |
vs_top=sup; |
2385 |
V346= vs_base[0]; |
V356= vs_base[0]; |
2386 |
goto T688; |
goto T688; |
2387 |
T688:; |
T688:; |
2388 |
V345= (V346)->v.v_self[fix((V333))]; |
V360 = fix((V343)); |
2389 |
if(!(((V345))==((VV[132]->s.s_dbind)))){ |
V355= (V356)->v.v_self[V360]; |
2390 |
|
if(!(((V355))==((VV[132]->s.s_dbind)))){ |
2391 |
goto T703;} |
goto T703;} |
2392 |
base[2]= CMPcar((V334)); |
base[2]= CMPcar((V344)); |
2393 |
base[3]= (V333); |
base[3]= (V343); |
2394 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2395 |
(void) (*Lnk133)(); |
(void) (*Lnk133)(); |
2396 |
return; |
return; |
2397 |
goto T703; |
goto T703; |
2398 |
T703:; |
T703:; |
2399 |
base[2]= (V345); |
base[2]= (V355); |
2400 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2401 |
return;} |
return;} |
2402 |
goto T685; |
goto T685; |
2403 |
T685:; |
T685:; |
2404 |
if((CMPcddr((V334)))!=Cnil){ |
if((CMPcddr((V344)))!=Cnil){ |
2405 |
goto T708;} |
goto T708;} |
2406 |
{object V351; |
{object V362; |
2407 |
V351= CMPcadr((V334)); |
V362= CMPcadr((V344)); |
2408 |
if(type_of((V351))==t_structure){ |
if(type_of((V362))==t_structure){ |
2409 |
goto T715;} |
goto T715;} |
2410 |
goto T712; |
goto T712; |
2411 |
goto T715; |
goto T715; |
2412 |
T715:; |
T715:; |
2413 |
if(!((((V351))->str.str_def)==(VV[149]))){ |
if(!((((V362))->str.str_def)==(VV[149]))){ |
2414 |
goto T712;}} |
goto T712;}} |
2415 |
V350= STREF(object,CMPcadr((V334)),4); |
V361= STREF(object,CMPcadr((V344)),4); |
2416 |
goto T710; |
goto T710; |
2417 |
goto T712; |
goto T712; |
2418 |
T712:;{object V352; |
T712:;{object V363; |
2419 |
V352= (VV[147]->s.s_dbind); |
V363= (VV[147]->s.s_dbind); |
2420 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
2421 |
base[3]= CMPcadr((V334)); |
base[3]= CMPcadr((V344)); |
2422 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2423 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
2424 |
vs_top=sup; |
vs_top=sup; |
2425 |
V353= vs_base[0]; |
V364= vs_base[0]; |
2426 |
if(!((V352)==(CMPcar(V353)))){ |
if(!((V363)==(CMPcar(V364)))){ |
2427 |
goto T718;}} |
goto T718;}} |
2428 |
V350= CMPcar((CMPcadr((V334)))->cc.cc_turbo[12]); |
V361= CMPcar((CMPcadr((V344)))->cc.cc_turbo[12]); |
2429 |
goto T710; |
goto T710; |
2430 |
goto T718; |
goto T718; |
2431 |
T718:; |
T718:; |
2433 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2434 |
Lerror(); |
Lerror(); |
2435 |
vs_top=sup; |
vs_top=sup; |
2436 |
V350= vs_base[0]; |
V361= vs_base[0]; |
2437 |
goto T710; |
goto T710; |
2438 |
T710:; |
T710:; |
2439 |
base[2]= (V350)->v.v_self[fix((V333))]= (CMPcar((V334))); |
V365 = fix((V343)); |
2440 |
|
base[2]= (V361)->v.v_self[V365]= (CMPcar((V344))); |
2441 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2442 |
return; |
return; |
2443 |
goto T708; |
goto T708; |
2448 |
return; |
return; |
2449 |
goto T678; |
goto T678; |
2450 |
T678:; |
T678:; |
2451 |
base[2]= (V335); |
base[2]= (V345); |
2452 |
base[3]= VV[109]; |
base[3]= VV[109]; |
2453 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2454 |
(void) (*Lnk389)(); |
(void) (*Lnk389)(); |
2455 |
vs_top=sup; |
vs_top=sup; |
2456 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2457 |
goto T726;} |
goto T726;} |
2458 |
if(((V334))==Cnil){ |
if(((V344))==Cnil){ |
2459 |
goto T730;} |
goto T730;} |
2460 |
if((CMPcdr((V334)))==Cnil){ |
if((CMPcdr((V344)))==Cnil){ |
2461 |
goto T731;} |
goto T731;} |
2462 |
goto T730; |
goto T730; |
2463 |
T730:; |
T730:; |
2467 |
return; |
return; |
2468 |
goto T731; |
goto T731; |
2469 |
T731:; |
T731:; |
2470 |
{object V355; |
{object V367; |
2471 |
V355= CMPcar((V334)); |
V367= CMPcar((V344)); |
2472 |
if(type_of((V355))==t_structure){ |
if(type_of((V367))==t_structure){ |
2473 |
goto T741;} |
goto T741;} |
2474 |
goto T738; |
goto T738; |
2475 |
goto T741; |
goto T741; |
2476 |
T741:; |
T741:; |
2477 |
if(!((((V355))->str.str_def)==(VV[152]))){ |
if(!((((V367))->str.str_def)==(VV[152]))){ |
2478 |
goto T738;}} |
goto T738;}} |
2479 |
V354= STREF(object,CMPcar((V334)),4); |
V366= STREF(object,CMPcar((V344)),4); |
2480 |
goto T736; |
goto T736; |
2481 |
goto T738; |
goto T738; |
2482 |
T738:;{object V356; |
T738:;{object V368; |
2483 |
V356= (VV[147]->s.s_dbind); |
V368= (VV[147]->s.s_dbind); |
2484 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
2485 |
base[3]= CMPcar((V334)); |
base[3]= CMPcar((V344)); |
2486 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2487 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
2488 |
vs_top=sup; |
vs_top=sup; |
2489 |
V357= vs_base[0]; |
V369= vs_base[0]; |
2490 |
if(!((V356)==(CMPcar(V357)))){ |
if(!((V368)==(CMPcar(V369)))){ |
2491 |
goto T744;}} |
goto T744;}} |
2492 |
V354= CMPcar((CMPcar((V334)))->cc.cc_turbo[12]); |
V366= CMPcar((CMPcar((V344)))->cc.cc_turbo[12]); |
2493 |
goto T736; |
goto T736; |
2494 |
goto T744; |
goto T744; |
2495 |
T744:; |
T744:; |
2497 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2498 |
Lerror(); |
Lerror(); |
2499 |
vs_top=sup; |
vs_top=sup; |
2500 |
V354= vs_base[0]; |
V366= vs_base[0]; |
2501 |
goto T736; |
goto T736; |
2502 |
T736:; |
T736:; |
2503 |
base[2]= (((((V354)->v.v_self[(long)STREF(fixnum,(V333),0)])==((VV[132]->s.s_dbind))?Ct:Cnil))==Cnil?Ct:Cnil); |
base[2]= (((((V366)->v.v_self[(long)STREF(fixnum,(V343),0)])==((VV[132]->s.s_dbind))?Ct:Cnil))==Cnil?Ct:Cnil); |
2504 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2505 |
return; |
return; |
2506 |
goto T726; |
goto T726; |
2507 |
T726:; |
T726:; |
2508 |
base[2]= (V335); |
base[2]= (V345); |
2509 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2510 |
Lfunctionp(); |
Lfunctionp(); |
2511 |
vs_top=sup; |
vs_top=sup; |
2512 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2513 |
goto T751;} |
goto T751;} |
2514 |
base[2]= (V333); |
base[2]= (V343); |
2515 |
{object V358; |
{object V370; |
2516 |
V358= (V334); |
V370= (V344); |
2517 |
vs_top=base+3; |
vs_top=base+3; |
2518 |
while(V358!=Cnil) |
while(V370!=Cnil) |
2519 |
{vs_push((V358)->c.c_car);V358=(V358)->c.c_cdr;} |
{vs_push((V370)->c.c_car);V370=(V370)->c.c_cdr;} |
2520 |
vs_base=base+3;} |
vs_base=base+3;} |
2521 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2522 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2526 |
goto T751; |
goto T751; |
2527 |
T751:; |
T751:; |
2528 |
base[3]= VV[153]; |
base[3]= VV[153]; |
2529 |
base[4]= (V335); |
base[4]= (V345); |
2530 |
base[5]= VV[154]; |
base[5]= VV[154]; |
2531 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
2532 |
(void) (*Lnk392)(); |
(void) (*Lnk392)(); |
2539 |
} |
} |
2540 |
/* local entry for function GF-MAKE-FUNCTION-FROM-EMF */ |
/* local entry for function GF-MAKE-FUNCTION-FROM-EMF */ |
2541 |
|
|
2542 |
static object LI36(V361,V362) |
static object LI36(V373,V374) |
2543 |
|
|
2544 |
object V361;object V362; |
object V373;object V374; |
2545 |
{ VMB33 VMS33 VMV33 |
{ VMB33 VMS33 VMV33 |
2546 |
goto TTL; |
goto TTL; |
2547 |
TTL:; |
TTL:; |
2548 |
base[0]=MMcons((V362),Cnil); |
base[0]=MMcons((V374),Cnil); |
2549 |
{register object V363; |
{register object V375; |
2550 |
V363= (base[0]->c.c_car); |
V375= (base[0]->c.c_car); |
2551 |
base[1]= (V363); |
base[1]= (V375); |
2552 |
base[2]= VV[104]; |
base[2]= VV[104]; |
2553 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2554 |
(void) (*Lnk389)(); |
(void) (*Lnk389)(); |
2555 |
vs_top=sup; |
vs_top=sup; |
2556 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2557 |
goto T761;} |
goto T761;} |
2558 |
{object V364; |
{object V376; |
2559 |
base[4]= (V361); |
base[4]= (V373); |
2560 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2561 |
(void) (*Lnk393)(Lclptr393); |
(void) (*Lnk393)(Lclptr393); |
2562 |
vs_top=sup; |
vs_top=sup; |
2563 |
V364= vs_base[0]; |
V376= vs_base[0]; |
2564 |
base[2]= CMPmake_fixnum((long)(*(LnkLI394))((V364))); |
base[2]= CMPmake_fixnum((long)(*(LnkLI394))((V376))); |
2565 |
base[2]=MMcons(base[2],base[0]); |
base[2]=MMcons(base[2],base[0]); |
2566 |
base[3]= (*(LnkLI395))((V364)); |
base[3]= (*(LnkLI395))((V376)); |
2567 |
base[3]=MMcons(base[3],base[2]); |
base[3]=MMcons(base[3],base[2]); |
2568 |
{object V365 = |
{object V377 = |
2569 |
make_cclosure_new(LC130,Cnil,base[3],Cdata); |
make_cclosure_new(LC130,Cnil,base[3],Cdata); |
2570 |
VMR33(V365)}} |
VMR33(V377)}} |
2571 |
goto T761; |
goto T761; |
2572 |
T761:; |
T761:; |
2573 |
base[1]= (V363); |
base[1]= (V375); |
2574 |
base[2]= VV[95]; |
base[2]= VV[95]; |
2575 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2576 |
(void) (*Lnk389)(); |
(void) (*Lnk389)(); |
2577 |
vs_top=sup; |
vs_top=sup; |
2578 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2579 |
goto T770;} |
goto T770;} |
2580 |
{object V366 = |
{object V378 = |
2581 |
make_cclosure_new(LC131,Cnil,base[0],Cdata); |
make_cclosure_new(LC131,Cnil,base[0],Cdata); |
2582 |
VMR33(V366)} |
VMR33(V378)} |
2583 |
goto T770; |
goto T770; |
2584 |
T770:; |
T770:; |
2585 |
base[1]= (V363); |
base[1]= (V375); |
2586 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2587 |
Lfunctionp(); |
Lfunctionp(); |
2588 |
vs_top=sup; |
vs_top=sup; |
2589 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2590 |
goto T775;} |
goto T775;} |
2591 |
{object V367 = (base[0]->c.c_car); |
{object V379 = (base[0]->c.c_car); |
2592 |
VMR33(V367)} |
VMR33(V379)} |
2593 |
goto T775; |
goto T775; |
2594 |
T775:; |
T775:; |
2595 |
base[2]= VV[153]; |
base[2]= VV[153]; |
2596 |
base[3]= (V363); |
base[3]= (V375); |
2597 |
base[4]= VV[156]; |
base[4]= VV[156]; |
2598 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
2599 |
(void) (*Lnk392)(); |
(void) (*Lnk392)(); |
2602 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2603 |
Lerror(); |
Lerror(); |
2604 |
vs_top=sup; |
vs_top=sup; |
2605 |
{object V368 = vs_base[0]; |
{object V380 = vs_base[0]; |
2606 |
VMR33(V368)}} |
VMR33(V380)}} |
2607 |
base[0]=base[0]; |
base[0]=base[0]; |
2608 |
return Cnil; |
return Cnil; |
2609 |
} |
} |
2615 |
vs_check; |
vs_check; |
2616 |
check_arg(2); |
check_arg(2); |
2617 |
vs_top=sup; |
vs_top=sup; |
2618 |
{object V369=base[0]->c.c_cdr; |
{object V381=base[0]->c.c_cdr; |
2619 |
if(endp(V369))invalid_macro_call(); |
if(endp(V381))invalid_macro_call(); |
2620 |
{object V370= (V369->c.c_car); |
{object V382= (V381->c.c_car); |
2621 |
if(endp(V370))invalid_macro_call(); |
if(endp(V382))invalid_macro_call(); |
2622 |
base[2]= (V370->c.c_car); |
base[2]= (V382->c.c_car); |
2623 |
V370=V370->c.c_cdr; |
V382=V382->c.c_cdr; |
2624 |
if(endp(V370))invalid_macro_call(); |
if(endp(V382))invalid_macro_call(); |
2625 |
base[3]= (V370->c.c_car); |
base[3]= (V382->c.c_car); |
2626 |
V370=V370->c.c_cdr; |
V382=V382->c.c_cdr; |
2627 |
if(endp(V370))invalid_macro_call(); |
if(endp(V382))invalid_macro_call(); |
2628 |
base[4]= (V370->c.c_car); |
base[4]= (V382->c.c_car); |
2629 |
V370=V370->c.c_cdr; |
V382=V382->c.c_cdr; |
2630 |
if(!endp(V370))invalid_macro_call();} |
if(!endp(V382))invalid_macro_call();} |
2631 |
V369=V369->c.c_cdr; |
V381=V381->c.c_cdr; |
2632 |
base[5]= V369;} |
base[5]= V381;} |
2633 |
V371= list(2,VV[1],base[4]); |
V383= list(2,VV[1],base[4]); |
2634 |
V372= listA(3,VV[160],list(2,VV[161],list(2,VV[1],base[3])),VV[162]); |
V384= listA(3,VV[160],list(2,VV[161],list(2,VV[1],base[3])),VV[162]); |
2635 |
V373= listA(4,VV[32],VV[163],list(2,VV[1],base[4]),VV[164]); |
V385= listA(4,VV[32],VV[163],list(2,VV[1],base[4]),VV[164]); |
2636 |
V374= list(2,VV[1],base[4]); |
V386= list(2,VV[1],base[4]); |
2637 |
V375= list(2,VV[1],((((base[3])==Cnil?Ct:Cnil))==Cnil?Ct:Cnil)); |
V387= list(2,VV[1],((((base[3])==Cnil?Ct:Cnil))==Cnil?Ct:Cnil)); |
2638 |
V376= list(2,VV[1],base[2]); |
V388= list(2,VV[1],base[2]); |
2639 |
if((base[3])==Cnil){ |
if((base[3])==Cnil){ |
2640 |
goto T784;} |
goto T784;} |
2641 |
V377= make_cons(base[3],Cnil); |
V389= make_cons(base[3],Cnil); |
2642 |
goto T782; |
goto T782; |
2643 |
goto T784; |
goto T784; |
2644 |
T784:; |
T784:; |
2645 |
V377= Cnil; |
V389= Cnil; |
2646 |
goto T782; |
goto T782; |
2647 |
T782:; |
T782:; |
2648 |
V378= list(2,VV[165],list(5,VV[32],VV[166],/* INLINE-ARGS */V374,/* INLINE-ARGS */V375,list(3,VV[167],/* INLINE-ARGS */V376,list(2,VV[1],V377)))); |
V390= list(2,VV[165],list(5,VV[32],VV[166],/* INLINE-ARGS */V386,/* INLINE-ARGS */V387,list(3,VV[167],/* INLINE-ARGS */V388,list(2,VV[1],V389)))); |
2649 |
V379= make_cons(/* INLINE-ARGS */V378,Cnil); |
V391= make_cons(/* INLINE-ARGS */V390,Cnil); |
2650 |
V380= list(2,VV[1],base[2]); |
V392= list(2,VV[1],base[2]); |
2651 |
if((base[3])==Cnil){ |
if((base[3])==Cnil){ |
2652 |
goto T788;} |
goto T788;} |
2653 |
V381= list(2,VV[170],base[3]); |
V393= list(2,VV[170],base[3]); |
2654 |
goto T786; |
goto T786; |
2655 |
goto T788; |
goto T788; |
2656 |
T788:; |
T788:; |
2657 |
V381= Cnil; |
V393= Cnil; |
2658 |
goto T786; |
goto T786; |
2659 |
T786:; |
T786:; |
2660 |
V382= list(3,VV[85],VV[158],list(5,VV[44],VV[159],/* INLINE-ARGS */V371,list(4,VV[130],/* INLINE-ARGS */V372,/* INLINE-ARGS */V373,list(3,VV[96],/* INLINE-ARGS */V379,list(5,VV[44],VV[168],VV[92],list(4,VV[44],VV[169],list(3,VV[44],list(3,VV[167],/* INLINE-ARGS */V380,list(2,VV[1],V381)),VV[92]),VV[165]),VV[165]))),VV[171])); |
V394= list(3,VV[85],VV[158],list(5,VV[44],VV[159],/* INLINE-ARGS */V383,list(4,VV[130],/* INLINE-ARGS */V384,/* INLINE-ARGS */V385,list(3,VV[96],/* INLINE-ARGS */V391,list(5,VV[44],VV[168],VV[92],list(4,VV[44],VV[169],list(3,VV[44],list(3,VV[167],/* INLINE-ARGS */V392,list(2,VV[1],V393)),VV[92]),VV[165]),VV[165]))),VV[171])); |
2661 |
base[6]= listA(3,VV[76],list(3,VV[157],/* INLINE-ARGS */V382,list(3,VV[172],Cnil,list(3,VV[44],VV[173],list(3,VV[44],VV[174],list(2,VV[1],base[4]))))),base[5]); |
base[6]= listA(3,VV[76],list(3,VV[157],/* INLINE-ARGS */V394,list(3,VV[172],Cnil,list(3,VV[44],VV[173],list(3,VV[44],VV[174],list(2,VV[1],base[4]))))),base[5]); |
2662 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
2663 |
return; |
return; |
2664 |
} |
} |
2670 |
vs_check; |
vs_check; |
2671 |
check_arg(2); |
check_arg(2); |
2672 |
vs_top=sup; |
vs_top=sup; |
2673 |
{object V383=base[0]->c.c_cdr; |
{object V395=base[0]->c.c_cdr; |
2674 |
if(endp(V383))invalid_macro_call(); |
if(endp(V395))invalid_macro_call(); |
2675 |
{object V384= (V383->c.c_car); |
{object V396= (V395->c.c_car); |
2676 |
{object V385=getf(V384,VV[68],OBJNULL); |
{object V397=getf(V396,VV[68],OBJNULL); |
2677 |
if(V385==OBJNULL){ |
if(V397==OBJNULL){ |
2678 |
base[2]= Cnil;} else { |
base[2]= Cnil;} else { |
2679 |
base[2]= V385; |
base[2]= V397; |
2680 |
}} |
}} |
2681 |
{object V386=getf(V384,VV[69],OBJNULL); |
{object V398=getf(V396,VV[69],OBJNULL); |
2682 |
if(V386==OBJNULL){ |
if(V398==OBJNULL){ |
2683 |
base[3]= Cnil;} else { |
base[3]= Cnil;} else { |
2684 |
base[3]= V386; |
base[3]= V398; |
2685 |
}} |
}} |
2686 |
{object V387=getf(V384,VV[70],OBJNULL); |
{object V399=getf(V396,VV[70],OBJNULL); |
2687 |
if(V387==OBJNULL){ |
if(V399==OBJNULL){ |
2688 |
base[4]= Cnil;} else { |
base[4]= Cnil;} else { |
2689 |
base[4]= V387; |
base[4]= V399; |
2690 |
}} |
}} |
2691 |
{object V388=getf(V384,VV[71],OBJNULL); |
{object V400=getf(V396,VV[71],OBJNULL); |
2692 |
if(V388==OBJNULL){ |
if(V400==OBJNULL){ |
2693 |
base[5]= Cnil;} else { |
base[5]= Cnil;} else { |
2694 |
base[5]= V388; |
base[5]= V400; |
2695 |
}} |
}} |
2696 |
check_other_key(V384,4,VV[68],VV[69],VV[70],VV[71]);} |
check_other_key(V396,4,VV[68],VV[69],VV[70],VV[71]);} |
2697 |
V383=V383->c.c_cdr; |
V395=V395->c.c_cdr; |
2698 |
base[6]= V383;} |
base[6]= V395;} |
2699 |
if((base[2])!=Cnil){ |
if((base[2])!=Cnil){ |
2700 |
goto T795;} |
goto T795;} |
2701 |
if((base[3])!=Cnil){ |
if((base[3])!=Cnil){ |
2719 |
goto T804; |
goto T804; |
2720 |
T804:; |
T804:; |
2721 |
if(base[2]==Cnil){ |
if(base[2]==Cnil){ |
2722 |
V389= Cnil; |
V401= Cnil; |
2723 |
goto T808;} |
goto T808;} |
2724 |
V389= VV[177]; |
V401= VV[177]; |
2725 |
goto T808; |
goto T808; |
2726 |
T808:; |
T808:; |
2727 |
if(base[3]==Cnil){ |
if(base[3]==Cnil){ |
2728 |
V390= Cnil; |
V402= Cnil; |
2729 |
goto T809;} |
goto T809;} |
2730 |
V390= VV[178]; |
V402= VV[178]; |
2731 |
goto T809; |
goto T809; |
2732 |
T809:; |
T809:; |
2733 |
base[7]= list(2,VV[77],listA(3,VV[176],append(V389,V390),base[6])); |
base[7]= list(2,VV[77],listA(3,VV[176],append(V401,V402),base[6])); |
2734 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
2735 |
return; |
return; |
2736 |
} |
} |
2742 |
vs_check; |
vs_check; |
2743 |
check_arg(2); |
check_arg(2); |
2744 |
vs_top=sup; |
vs_top=sup; |
2745 |
{object V391=base[0]->c.c_cdr; |
{object V403=base[0]->c.c_cdr; |
2746 |
if(endp(V391))invalid_macro_call(); |
if(endp(V403))invalid_macro_call(); |
2747 |
{object V392= (V391->c.c_car); |
{object V404= (V403->c.c_car); |
2748 |
if(endp(V392))invalid_macro_call(); |
if(endp(V404))invalid_macro_call(); |
2749 |
base[2]= (V392->c.c_car); |
base[2]= (V404->c.c_car); |
2750 |
V392=V392->c.c_cdr; |
V404=V404->c.c_cdr; |
2751 |
if(endp(V392))invalid_macro_call(); |
if(endp(V404))invalid_macro_call(); |
2752 |
base[3]= (V392->c.c_car); |
base[3]= (V404->c.c_car); |
2753 |
V392=V392->c.c_cdr; |
V404=V404->c.c_cdr; |
2754 |
if(!endp(V392))invalid_macro_call();} |
if(!endp(V404))invalid_macro_call();} |
2755 |
V391=V391->c.c_cdr; |
V403=V403->c.c_cdr; |
2756 |
base[4]= V391;} |
base[4]= V403;} |
2757 |
base[5]= VV[179]; |
base[5]= VV[179]; |
2758 |
base[6]= VV[180]; |
base[6]= VV[180]; |
2759 |
base[7]= VV[181]; |
base[7]= VV[181]; |
2760 |
{object V393; |
{object V405; |
2761 |
{object V394; |
{object V406; |
2762 |
object V395= base[2]; |
object V407= base[2]; |
2763 |
if(V395==Cnil){ |
if(V407==Cnil){ |
2764 |
V393= Cnil; |
V405= Cnil; |
2765 |
goto T810;} |
goto T810;} |
2766 |
base[8]=V394=MMcons(Cnil,Cnil); |
base[8]=V406=MMcons(Cnil,Cnil); |
2767 |
goto T811; |
goto T811; |
2768 |
T811:; |
T811:; |
2769 |
base[9]= (V395->c.c_car); |
base[9]= (V407->c.c_car); |
2770 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2771 |
L40(base); |
L40(base); |
2772 |
vs_top=sup; |
vs_top=sup; |
2773 |
(V394->c.c_cdr)= vs_base[0]; |
(V406->c.c_cdr)= vs_base[0]; |
2774 |
while(MMcdr(V394)!=Cnil)V394=MMcdr(V394); |
while(MMcdr(V406)!=Cnil)V406=MMcdr(V406); |
2775 |
if((V395=MMcdr(V395))==Cnil){ |
if((V407=MMcdr(V407))==Cnil){ |
2776 |
base[8]=base[8]->c.c_cdr; |
base[8]=base[8]->c.c_cdr; |
2777 |
V393= base[8]; |
V405= base[8]; |
2778 |
goto T810;} |
goto T810;} |
2779 |
goto T811;} |
goto T811;} |
2780 |
goto T810; |
goto T810; |
2781 |
T810:; |
T810:; |
2782 |
V396= list(2,base[5],base[3]); |
V408= list(2,base[5],base[3]); |
2783 |
V397= make_cons(/* INLINE-ARGS */V396,(V393)); |
V409= make_cons(/* INLINE-ARGS */V408,(V405)); |
2784 |
if(((V393))!=Cnil){ |
if(((V405))!=Cnil){ |
2785 |
goto T816;} |
goto T816;} |
2786 |
V399= list(2,VV[46],list(2,VV[182],base[5])); |
V411= list(2,VV[46],list(2,VV[182],base[5])); |
2787 |
V398= make_cons(/* INLINE-ARGS */V399,Cnil); |
V410= make_cons(/* INLINE-ARGS */V411,Cnil); |
2788 |
goto T814; |
goto T814; |
2789 |
goto T816; |
goto T816; |
2790 |
T816:; |
T816:; |
2791 |
V398= Cnil; |
V410= Cnil; |
2792 |
goto T814; |
goto T814; |
2793 |
T814:; |
T814:; |
2794 |
base[8]= listA(3,VV[125],/* INLINE-ARGS */V397,append(V398,base[4])); |
V412 = base[4]; |
2795 |
|
base[8]= listA(3,VV[125],/* INLINE-ARGS */V409,append(V410,V412)); |
2796 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
2797 |
return;} |
return;} |
2798 |
} |
} |
2799 |
/* local entry for function GET-KEY-ARG */ |
/* local entry for function GET-KEY-ARG */ |
2800 |
|
|
2801 |
static object LI41(V402,V403) |
static object LI41(V415,V416) |
2802 |
|
|
2803 |
register object V402;register object V403; |
register object V415;register object V416; |
2804 |
{ VMB37 VMS37 VMV37 |
{ VMB37 VMS37 VMV37 |
2805 |
goto TTL; |
goto TTL; |
2806 |
TTL:; |
TTL:; |
2807 |
goto T819; |
goto T819; |
2808 |
T819:; |
T819:; |
2809 |
if(!(type_of((V403))!=t_cons)){ |
if(!(type_of((V416))!=t_cons)){ |
2810 |
goto T821;} |
goto T821;} |
2811 |
{object V404 = Cnil; |
{object V417 = Cnil; |
2812 |
VMR37(V404)} |
VMR37(V417)} |
2813 |
goto T821; |
goto T821; |
2814 |
T821:; |
T821:; |
2815 |
if(!((CMPcar((V403)))==((V402)))){ |
if(!((CMPcar((V416)))==((V415)))){ |
2816 |
goto T824;} |
goto T824;} |
2817 |
{object V405 = CMPcadr((V403)); |
{object V418 = CMPcadr((V416)); |
2818 |
VMR37(V405)} |
VMR37(V418)} |
2819 |
goto T824; |
goto T824; |
2820 |
T824:; |
T824:; |
2821 |
V403= CMPcddr((V403)); |
V416= CMPcddr((V416)); |
2822 |
goto T819; |
goto T819; |
2823 |
return Cnil; |
return Cnil; |
2824 |
} |
} |
2825 |
/* local entry for function GET-KEY-ARG1 */ |
/* local entry for function GET-KEY-ARG1 */ |
2826 |
|
|
2827 |
static object LI42(V408,V409) |
static object LI42(V421,V422) |
2828 |
|
|
2829 |
register object V408;register object V409; |
register object V421;register object V422; |
2830 |
{ VMB38 VMS38 VMV38 |
{ VMB38 VMS38 VMV38 |
2831 |
goto TTL; |
goto TTL; |
2832 |
TTL:; |
TTL:; |
2833 |
goto T830; |
goto T830; |
2834 |
T830:; |
T830:; |
2835 |
if(!(type_of((V409))!=t_cons)){ |
if(!(type_of((V422))!=t_cons)){ |
2836 |
goto T832;} |
goto T832;} |
2837 |
{object V410 = Cnil; |
{object V423 = Cnil; |
2838 |
VMR38(V410)} |
VMR38(V423)} |
2839 |
goto T832; |
goto T832; |
2840 |
T832:; |
T832:; |
2841 |
if(!((CMPcar((V409)))==((V408)))){ |
if(!((CMPcar((V422)))==((V421)))){ |
2842 |
goto T835;} |
goto T835;} |
2843 |
{object V411 = CMPcdr((V409)); |
{object V424 = CMPcdr((V422)); |
2844 |
VMR38(V411)} |
VMR38(V424)} |
2845 |
goto T835; |
goto T835; |
2846 |
T835:; |
T835:; |
2847 |
V409= CMPcddr((V409)); |
V422= CMPcddr((V422)); |
2848 |
goto T830; |
goto T830; |
2849 |
return Cnil; |
return Cnil; |
2850 |
} |
} |
2854 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2855 |
register object *sup=base+VM39; VC39 |
register object *sup=base+VM39; VC39 |
2856 |
vs_check; |
vs_check; |
2857 |
{object V412; |
{object V425; |
2858 |
object V413; |
object V426; |
2859 |
check_arg(5); |
check_arg(5); |
2860 |
V412=(base[0]); |
V425=(base[0]); |
2861 |
base[1]=MMcons(base[1],Cnil); |
base[1]=MMcons(base[1],Cnil); |
2862 |
V413=(base[2]); |
V426=(base[2]); |
2863 |
base[3]=MMcons(base[3],base[1]); |
base[3]=MMcons(base[3],base[1]); |
2864 |
base[4]=MMcons(base[4],base[3]); |
base[4]=MMcons(base[4],base[3]); |
2865 |
vs_top=sup; |
vs_top=sup; |
2868 |
base[7]=MMcons(Cnil,base[6]); |
base[7]=MMcons(Cnil,base[6]); |
2869 |
base[8]=make_cclosure_new(LC44,Cnil,base[7],Cdata); |
base[8]=make_cclosure_new(LC44,Cnil,base[7],Cdata); |
2870 |
base[8]=MMcons(base[8],base[7]); |
base[8]=MMcons(base[8],base[7]); |
2871 |
{object V414; |
{object V427; |
2872 |
base[9]= (V412); |
base[9]= (V425); |
2873 |
base[10]= (V413); |
base[10]= (V426); |
2874 |
base[11]= (base[8]->c.c_car); |
base[11]= (base[8]->c.c_car); |
2875 |
vs_top=(vs_base=base+9)+3; |
vs_top=(vs_base=base+9)+3; |
2876 |
(void) (*Lnk396)(); |
(void) (*Lnk396)(); |
2877 |
vs_top=sup; |
vs_top=sup; |
2878 |
V414= vs_base[0]; |
V427= vs_base[0]; |
2879 |
base[9]= (V414); |
base[9]= (V427); |
2880 |
base[10]= (base[5]->c.c_car); |
base[10]= (base[5]->c.c_car); |
2881 |
base[11]= (base[6]->c.c_car); |
base[11]= (base[6]->c.c_car); |
2882 |
base[12]= (base[7]->c.c_car); |
base[12]= (base[7]->c.c_car); |
2890 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2891 |
register object *sup=base+VM40; VC40 |
register object *sup=base+VM40; VC40 |
2892 |
vs_check; |
vs_check; |
2893 |
{register object V415; |
{register object V428; |
2894 |
check_arg(1); |
check_arg(1); |
2895 |
V415=(base[0]); |
V428=(base[0]); |
2896 |
vs_top=sup; |
vs_top=sup; |
2897 |
goto TTL; |
goto TTL; |
2898 |
TTL:; |
TTL:; |
2899 |
if(!(type_of((V415))==t_symbol)){ |
if(!(type_of((V428))==t_symbol)){ |
2900 |
goto T850;} |
goto T850;} |
2901 |
goto T848; |
goto T848; |
2902 |
goto T850; |
goto T850; |
2903 |
T850:; |
T850:; |
2904 |
if(type_of((V415))==t_cons){ |
if(type_of((V428))==t_cons){ |
2905 |
goto T852;} |
goto T852;} |
2906 |
goto T849; |
goto T849; |
2907 |
goto T852; |
goto T852; |
2908 |
T852:; |
T852:; |
2909 |
if((CMPcar((V415)))==(VV[30])){ |
if((CMPcar((V428)))==(VV[30])){ |
2910 |
goto T854;} |
goto T854;} |
2911 |
goto T849; |
goto T849; |
2912 |
goto T854; |
goto T854; |
2913 |
T854:; |
T854:; |
2914 |
if(type_of(CMPcdr((V415)))==t_cons){ |
if(type_of(CMPcdr((V428)))==t_cons){ |
2915 |
goto T856;} |
goto T856;} |
2916 |
goto T849; |
goto T849; |
2917 |
goto T856; |
goto T856; |
2918 |
T856:; |
T856:; |
2919 |
if(type_of(CMPcadr((V415)))==t_symbol){ |
if(type_of(CMPcadr((V428)))==t_symbol){ |
2920 |
goto T858;} |
goto T858;} |
2921 |
goto T849; |
goto T849; |
2922 |
goto T858; |
goto T858; |
2923 |
T858:; |
T858:; |
2924 |
if((CMPcddr((V415)))==Cnil){ |
if((CMPcddr((V428)))==Cnil){ |
2925 |
goto T848;} |
goto T848;} |
2926 |
goto T849; |
goto T849; |
2927 |
T849:; |
T849:; |
2930 |
return; |
return; |
2931 |
goto T848; |
goto T848; |
2932 |
T848:; |
T848:; |
2933 |
if(((*(LnkLI355))((V415)))!=Cnil){ |
if(((*(LnkLI355))((V428)))!=Cnil){ |
2934 |
goto T860;} |
goto T860;} |
2935 |
base[1]= Cnil; |
base[1]= Cnil; |
2936 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2939 |
T860:; |
T860:; |
2940 |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
2941 |
goto T863;} |
goto T863;} |
2942 |
base[1]= (*(LnkLI356))((V415)); |
base[1]= (*(LnkLI356))((V428)); |
2943 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2944 |
(void) (*Lnk397)(Lclptr397); |
(void) (*Lnk397)(Lclptr397); |
2945 |
return; |
return; |
2946 |
goto T863; |
goto T863; |
2947 |
T863:;{object V416; |
T863:;{object V429; |
2948 |
V416= (VV[147]->s.s_dbind); |
V429= (VV[147]->s.s_dbind); |
2949 |
base[1]= small_fixnum(14); |
base[1]= small_fixnum(14); |
2950 |
base[2]= (*(LnkLI356))((V415)); |
base[2]= (*(LnkLI356))((V428)); |
2951 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2952 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
2953 |
vs_top=sup; |
vs_top=sup; |
2954 |
V417= vs_base[0]; |
V430= vs_base[0]; |
2955 |
base[1]= ((V416)==(CMPcar(V417))?Ct:Cnil); |
base[1]= ((V429)==(CMPcar(V430))?Ct:Cnil); |
2956 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2957 |
return;} |
return;} |
2958 |
} |
} |
2959 |
} |
} |
2960 |
/* local entry for function MAKE-PARAMETER-REFERENCES */ |
/* local entry for function MAKE-PARAMETER-REFERENCES */ |
2961 |
|
|
2962 |
static object LI48(V423,V424,V425,V426,V427) |
static object LI48(V436,V437,V438,V439,V440) |
2963 |
|
|
2964 |
object V423;object V424;object V425;object V426;object V427; |
object V436;object V437;object V438;object V439;object V440; |
2965 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
2966 |
goto TTL; |
goto TTL; |
2967 |
TTL:; |
TTL:; |
2968 |
base[0]= (V425); |
base[0]= (V438); |
2969 |
{object V428; |
{object V441; |
2970 |
register object V429; |
register object V442; |
2971 |
V428= Cnil; |
V441= Cnil; |
2972 |
V429= Cnil; |
V442= Cnil; |
2973 |
{register object V430; |
{register object V443; |
2974 |
register object V431; |
register object V444; |
2975 |
register object V432; |
register object V445; |
2976 |
object V433; |
object V446; |
2977 |
V430= (V423); |
V443= (V436); |
2978 |
V431= Cnil; |
V444= Cnil; |
2979 |
V432= (V424); |
V445= (V437); |
2980 |
V433= Cnil; |
V446= Cnil; |
2981 |
goto T877; |
goto T877; |
2982 |
T877:; |
T877:; |
2983 |
{object V434; |
{object V447; |
2984 |
if(!(((V430))==Cnil)){ |
if(!(((V443))==Cnil)){ |
2985 |
goto T883;} |
goto T883;} |
2986 |
goto T871; |
goto T871; |
2987 |
goto T883; |
goto T883; |
2988 |
T883:; |
T883:; |
2989 |
V434= CMPcar((V430)); |
V447= CMPcar((V443)); |
2990 |
V430= CMPcdr((V430)); |
V443= CMPcdr((V443)); |
2991 |
V431= (V434);} |
V444= (V447);} |
2992 |
{object V435; |
{object V448; |
2993 |
if(!(((V432))==Cnil)){ |
if(!(((V445))==Cnil)){ |
2994 |
goto T891;} |
goto T891;} |
2995 |
goto T871; |
goto T871; |
2996 |
goto T891; |
goto T891; |
2997 |
T891:; |
T891:; |
2998 |
V435= CMPcar((V432)); |
V448= CMPcar((V445)); |
2999 |
V432= CMPcdr((V432)); |
V445= CMPcdr((V445)); |
3000 |
V433= (V435);} |
V446= (V448);} |
3001 |
{object V436; |
{object V449; |
3002 |
V436= (((type_of((V431))==t_cons||((V431))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
V449= (((type_of((V444))==t_cons||((V444))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
3003 |
if(((V436))==Cnil){ |
if(((V449))==Cnil){ |
3004 |
goto T898;} |
goto T898;} |
3005 |
goto T878; |
goto T878; |
3006 |
goto T898; |
goto T898; |
3007 |
T898:; |
T898:; |
3008 |
base[1]= CMPcar((V431)); |
base[1]= CMPcar((V444)); |
3009 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3010 |
L49(base); |
L49(base); |
3011 |
vs_top=sup; |
vs_top=sup; |
3012 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3013 |
goto T901;} |
goto T901;} |
3014 |
base[1]= VV[201]; |
base[1]= VV[201]; |
3015 |
base[2]= (V426); |
base[2]= (V439); |
3016 |
base[3]= (V427); |
base[3]= (V440); |
3017 |
base[4]= CMPcar((V431)); |
base[4]= CMPcar((V444)); |
3018 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
3019 |
(void) (*Lnk398)(); |
(void) (*Lnk398)(); |
3020 |
vs_top=sup; |
vs_top=sup; |
3021 |
goto T878; |
goto T878; |
3022 |
goto T901; |
goto T901; |
3023 |
T901:; |
T901:; |
3024 |
{object V437; |
{object V450; |
3025 |
V437= CMPcar((V431)); |
V450= CMPcar((V444)); |
3026 |
if(((V428))!=Cnil){ |
if(((V441))!=Cnil){ |
3027 |
goto T910;} |
goto T910;} |
3028 |
V429= make_cons((V437),Cnil); |
V442= make_cons((V450),Cnil); |
3029 |
V428= (V429); |
V441= (V442); |
3030 |
goto T878; |
goto T878; |
3031 |
goto T910; |
goto T910; |
3032 |
T910:; |
T910:; |
3033 |
V439= make_cons((V437),Cnil); |
V452= make_cons((V450),Cnil); |
3034 |
((V429))->c.c_cdr = /* INLINE-ARGS */V439; |
((V442))->c.c_cdr = /* INLINE-ARGS */V452; |
3035 |
V438= (V429); |
V451= (V442); |
3036 |
V429= CMPcdr(V438);}} |
V442= CMPcdr(V451);}} |
3037 |
goto T878; |
goto T878; |
3038 |
T878:; |
T878:; |
3039 |
goto T877;} |
goto T877;} |
3040 |
goto T871; |
goto T871; |
3041 |
T871:; |
T871:; |
3042 |
{object V440 = (V428); |
{object V453 = (V441); |
3043 |
VMR41(V440)}} |
VMR41(V453)}} |
3044 |
base[0]=base[0]; |
base[0]=base[0]; |
3045 |
return Cnil; |
return Cnil; |
3046 |
} |
} |
3047 |
/* local entry for function METHOD-FUNCTION-PLIST */ |
/* local entry for function METHOD-FUNCTION-PLIST */ |
3048 |
|
|
3049 |
static object LI50(V442) |
static object LI50(V455) |
3050 |
|
|
3051 |
register object V442; |
register object V455; |
3052 |
{ VMB42 VMS42 VMV42 |
{ VMB42 VMS42 VMV42 |
3053 |
goto TTL; |
goto TTL; |
3054 |
TTL:; |
TTL:; |
3055 |
if(((V442))==((VV[202]->s.s_dbind))){ |
if(((V455))==((VV[202]->s.s_dbind))){ |
3056 |
goto T917;} |
goto T917;} |
3057 |
{object V443; |
{object V456; |
3058 |
object V444; |
object V457; |
3059 |
V443= (VV[203]->s.s_dbind); |
V456= (VV[203]->s.s_dbind); |
3060 |
V444= (VV[202]->s.s_dbind); |
V457= (VV[202]->s.s_dbind); |
3061 |
(VV[202]->s.s_dbind)= (V443); |
(VV[202]->s.s_dbind)= (V456); |
3062 |
(VV[203]->s.s_dbind)= (V444);} |
(VV[203]->s.s_dbind)= (V457);} |
3063 |
{object V445; |
{object V458; |
3064 |
object V446; |
object V459; |
3065 |
V445= (VV[204]->s.s_dbind); |
V458= (VV[204]->s.s_dbind); |
3066 |
V446= (VV[205]->s.s_dbind); |
V459= (VV[205]->s.s_dbind); |
3067 |
(VV[205]->s.s_dbind)= (V445); |
(VV[205]->s.s_dbind)= (V458); |
3068 |
(VV[204]->s.s_dbind)= (V446);} |
(VV[204]->s.s_dbind)= (V459);} |
3069 |
{object V447; |
{object V460; |
3070 |
object V448; |
object V461; |
3071 |
V447= (VV[206]->s.s_dbind); |
V460= (VV[206]->s.s_dbind); |
3072 |
V448= (VV[207]->s.s_dbind); |
V461= (VV[207]->s.s_dbind); |
3073 |
(VV[207]->s.s_dbind)= (V447); |
(VV[207]->s.s_dbind)= (V460); |
3074 |
(VV[206]->s.s_dbind)= (V448);} |
(VV[206]->s.s_dbind)= (V461);} |
3075 |
goto T917; |
goto T917; |
3076 |
T917:; |
T917:; |
3077 |
if(((V442))==((VV[202]->s.s_dbind))){ |
if(((V455))==((VV[202]->s.s_dbind))){ |
3078 |
goto T940;} |
goto T940;} |
3079 |
if(((VV[207]->s.s_dbind))==Cnil){ |
if(((VV[207]->s.s_dbind))==Cnil){ |
3080 |
goto T940;} |
goto T940;} |
3081 |
{object V449; |
{object V462; |
3082 |
object V450; |
object V463; |
3083 |
object V451; |
object V464; |
3084 |
V449= (VV[202]->s.s_dbind); |
V462= (VV[202]->s.s_dbind); |
3085 |
V450= (VV[208]->s.s_dbind); |
V463= (VV[208]->s.s_dbind); |
3086 |
V451= (VV[205]->s.s_dbind); |
V464= (VV[205]->s.s_dbind); |
3087 |
base[0]= (V449); |
base[0]= (V462); |
3088 |
base[1]= (V450); |
base[1]= (V463); |
3089 |
base[2]= (V451); |
base[2]= (V464); |
3090 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3091 |
siLhash_set(); |
siLhash_set(); |
3092 |
vs_top=sup;} |
vs_top=sup;} |
3093 |
goto T940; |
goto T940; |
3094 |
T940:; |
T940:; |
3095 |
if(((V442))==((VV[202]->s.s_dbind))){ |
if(((V455))==((VV[202]->s.s_dbind))){ |
3096 |
goto T951;} |
goto T951;} |
3097 |
(VV[202]->s.s_dbind)= (V442); |
(VV[202]->s.s_dbind)= (V455); |
3098 |
(VV[207]->s.s_dbind)= Cnil; |
(VV[207]->s.s_dbind)= Cnil; |
3099 |
base[0]= (V442); |
base[0]= (V455); |
3100 |
base[1]= (VV[208]->s.s_dbind); |
base[1]= (VV[208]->s.s_dbind); |
3101 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3102 |
Lgethash(); |
Lgethash(); |
3104 |
(VV[205]->s.s_dbind)= vs_base[0]; |
(VV[205]->s.s_dbind)= vs_base[0]; |
3105 |
goto T951; |
goto T951; |
3106 |
T951:; |
T951:; |
3107 |
{object V452 = (VV[205]->s.s_dbind); |
{object V465 = (VV[205]->s.s_dbind); |
3108 |
VMR42(V452)} |
VMR42(V465)} |
3109 |
base[0]=base[0]; |
base[0]=base[0]; |
3110 |
return Cnil; |
return Cnil; |
3111 |
} |
} |
3112 |
/* local entry for function SETF PCL METHOD-FUNCTION-PLIST */ |
/* local entry for function SETF PCL METHOD-FUNCTION-PLIST */ |
3113 |
|
|
3114 |
static object LI51(V455,V456) |
static object LI51(V468,V469) |
3115 |
|
|
3116 |
object V455;object V456; |
object V468;object V469; |
3117 |
{ VMB43 VMS43 VMV43 |
{ VMB43 VMS43 VMV43 |
3118 |
goto TTL; |
goto TTL; |
3119 |
TTL:; |
TTL:; |
3120 |
if(((V456))==((VV[202]->s.s_dbind))){ |
if(((V469))==((VV[202]->s.s_dbind))){ |
3121 |
goto T961;} |
goto T961;} |
3122 |
{object V457; |
{object V470; |
3123 |
object V458; |
object V471; |
3124 |
V457= (VV[203]->s.s_dbind); |
V470= (VV[203]->s.s_dbind); |
3125 |
V458= (VV[202]->s.s_dbind); |
V471= (VV[202]->s.s_dbind); |
3126 |
(VV[202]->s.s_dbind)= (V457); |
(VV[202]->s.s_dbind)= (V470); |
3127 |
(VV[203]->s.s_dbind)= (V458);} |
(VV[203]->s.s_dbind)= (V471);} |
3128 |
{object V459; |
{object V472; |
3129 |
object V460; |
object V473; |
3130 |
V459= (VV[206]->s.s_dbind); |
V472= (VV[206]->s.s_dbind); |
3131 |
V460= (VV[207]->s.s_dbind); |
V473= (VV[207]->s.s_dbind); |
3132 |
(VV[207]->s.s_dbind)= (V459); |
(VV[207]->s.s_dbind)= (V472); |
3133 |
(VV[206]->s.s_dbind)= (V460);} |
(VV[206]->s.s_dbind)= (V473);} |
3134 |
{object V461; |
{object V474; |
3135 |
object V462; |
object V475; |
3136 |
V461= (VV[204]->s.s_dbind); |
V474= (VV[204]->s.s_dbind); |
3137 |
V462= (VV[205]->s.s_dbind); |
V475= (VV[205]->s.s_dbind); |
3138 |
(VV[205]->s.s_dbind)= (V461); |
(VV[205]->s.s_dbind)= (V474); |
3139 |
(VV[204]->s.s_dbind)= (V462);} |
(VV[204]->s.s_dbind)= (V475);} |
3140 |
goto T961; |
goto T961; |
3141 |
T961:; |
T961:; |
3142 |
if(((V456))==((VV[202]->s.s_dbind))){ |
if(((V469))==((VV[202]->s.s_dbind))){ |
3143 |
goto T984;} |
goto T984;} |
3144 |
if(((VV[207]->s.s_dbind))==Cnil){ |
if(((VV[207]->s.s_dbind))==Cnil){ |
3145 |
goto T984;} |
goto T984;} |
3146 |
{object V463; |
{object V476; |
3147 |
object V464; |
object V477; |
3148 |
object V465; |
object V478; |
3149 |
V463= (VV[202]->s.s_dbind); |
V476= (VV[202]->s.s_dbind); |
3150 |
V464= (VV[208]->s.s_dbind); |
V477= (VV[208]->s.s_dbind); |
3151 |
V465= (VV[205]->s.s_dbind); |
V478= (VV[205]->s.s_dbind); |
3152 |
base[0]= (V463); |
base[0]= (V476); |
3153 |
base[1]= (V464); |
base[1]= (V477); |
3154 |
base[2]= (V465); |
base[2]= (V478); |
3155 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3156 |
siLhash_set(); |
siLhash_set(); |
3157 |
vs_top=sup;} |
vs_top=sup;} |
3158 |
goto T984; |
goto T984; |
3159 |
T984:; |
T984:; |
3160 |
(VV[202]->s.s_dbind)= (V456); |
(VV[202]->s.s_dbind)= (V469); |
3161 |
(VV[207]->s.s_dbind)= Ct; |
(VV[207]->s.s_dbind)= Ct; |
3162 |
(VV[205]->s.s_dbind)= (V455); |
(VV[205]->s.s_dbind)= (V468); |
3163 |
{object V466 = (VV[205]->s.s_dbind); |
{object V479 = (VV[205]->s.s_dbind); |
3164 |
VMR43(V466)} |
VMR43(V479)} |
3165 |
base[0]=base[0]; |
base[0]=base[0]; |
3166 |
return Cnil; |
return Cnil; |
3167 |
} |
} |
3168 |
/* local entry for function METHOD-FUNCTION-GET */ |
/* local entry for function METHOD-FUNCTION-GET */ |
3169 |
|
|
3170 |
static object LI52(object V468,object V467,object first,...) |
static object LI52(object V481,object V480,object first,...) |
3171 |
{ |
{ |
3172 |
va_list ap; |
va_list ap; |
3173 |
int narg = VFUN_NARGS; VMB44 VMS44 VMV44 |
int narg = VFUN_NARGS; VMB44 VMS44 VMV44 |
3174 |
{object V469; |
{object V482; |
3175 |
object V470; |
object V483; |
3176 |
object V471; |
object V484; |
3177 |
va_start(ap,first); |
va_start(ap,first); |
3178 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
3179 |
V469= V468; |
V482= V481; |
3180 |
V470= V467; |
V483= V480; |
3181 |
narg = narg - 2; |
narg = narg - 2; |
3182 |
if (narg <= 0) goto T1000; |
if (narg <= 0) goto T1000; |
3183 |
else { |
else { |
3184 |
V471= first;} |
V484= first;} |
3185 |
--narg; goto T1001; |
--narg; goto T1001; |
3186 |
goto T1000; |
goto T1000; |
3187 |
T1000:; |
T1000:; |
3188 |
V471= Cnil; |
V484= Cnil; |
3189 |
goto T1001; |
goto T1001; |
3190 |
T1001:; |
T1001:; |
3191 |
base[0]= (*(LnkLI399))((V469)); |
base[0]= (*(LnkLI399))((V482)); |
3192 |
base[1]= (V470); |
base[1]= (V483); |
3193 |
base[2]= (V471); |
base[2]= (V484); |
3194 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3195 |
Lgetf(); |
Lgetf(); |
3196 |
vs_top=sup; |
vs_top=sup; |
3197 |
{object V472 = vs_base[0]; |
{object V485 = vs_base[0]; |
3198 |
VMR44(V472)} |
VMR44(V485)} |
3199 |
va_end(ap); |
va_end(ap); |
3200 |
base[0]=base[0]; |
base[0]=base[0]; |
3201 |
return Cnil;} |
return Cnil;} |
3202 |
} |
} |
3203 |
/* local entry for function SETF PCL METHOD-FUNCTION-GET */ |
/* local entry for function SETF PCL METHOD-FUNCTION-GET */ |
3204 |
|
|
3205 |
static object LI53(V476,V477,V478) |
static object LI53(V489,V490,V491) |
3206 |
|
|
3207 |
object V476;object V477;object V478; |
object V489;object V490;object V491; |
3208 |
{ VMB45 VMS45 VMV45 |
{ VMB45 VMS45 VMV45 |
3209 |
goto TTL; |
goto TTL; |
3210 |
TTL:; |
TTL:; |
3211 |
{object V482; |
{object V495; |
3212 |
base[0]= (*(LnkLI399))(V477); |
base[0]= (*(LnkLI399))(V490); |
3213 |
base[1]= V476; |
base[1]= V489; |
3214 |
base[2]= V478; |
base[2]= V491; |
3215 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3216 |
siLput_f(); |
siLput_f(); |
3217 |
vs_top=sup; |
vs_top=sup; |
3218 |
V482= vs_base[0]; |
V495= vs_base[0]; |
3219 |
(void)((*(LnkLI400))((V482),V477)); |
(void)((*(LnkLI400))((V495),V490)); |
3220 |
{object V484 = V476; |
{object V497 = V489; |
3221 |
VMR45(V484)}} |
VMR45(V497)}} |
3222 |
base[0]=base[0]; |
base[0]=base[0]; |
3223 |
return Cnil; |
return Cnil; |
3224 |
} |
} |
3225 |
/* local entry for function METHOD-FUNCTION-PV-TABLE */ |
/* local entry for function METHOD-FUNCTION-PV-TABLE */ |
3226 |
|
|
3227 |
static object LI54(V486) |
static object LI54(V499) |
3228 |
|
|
3229 |
object V486; |
object V499; |
3230 |
{ VMB46 VMS46 VMV46 |
{ VMB46 VMS46 VMV46 |
3231 |
goto TTL; |
goto TTL; |
3232 |
TTL:; |
TTL:; |
3233 |
{object V487 = (VFUN_NARGS=2,(*(LnkLI211))((V486),VV[209])); |
{object V500 = (VFUN_NARGS=2,(*(LnkLI211))((V499),VV[209])); |
3234 |
VMR46(V487)} |
VMR46(V500)} |
3235 |
return Cnil; |
return Cnil; |
3236 |
} |
} |
3237 |
/* local entry for function METHOD-FUNCTION-METHOD */ |
/* local entry for function METHOD-FUNCTION-METHOD */ |
3238 |
|
|
3239 |
static object LI55(V489) |
static object LI55(V502) |
3240 |
|
|
3241 |
object V489; |
object V502; |
3242 |
{ VMB47 VMS47 VMV47 |
{ VMB47 VMS47 VMV47 |
3243 |
goto TTL; |
goto TTL; |
3244 |
TTL:; |
TTL:; |
3245 |
{object V490 = (VFUN_NARGS=2,(*(LnkLI211))((V489),VV[210])); |
{object V503 = (VFUN_NARGS=2,(*(LnkLI211))((V502),VV[210])); |
3246 |
VMR47(V490)} |
VMR47(V503)} |
3247 |
return Cnil; |
return Cnil; |
3248 |
} |
} |
3249 |
/* local entry for function METHOD-FUNCTION-NEEDS-NEXT-METHODS-P */ |
/* local entry for function METHOD-FUNCTION-NEEDS-NEXT-METHODS-P */ |
3250 |
|
|
3251 |
static object LI56(V492) |
static object LI56(V505) |
3252 |
|
|
3253 |
object V492; |
object V505; |
3254 |
{ VMB48 VMS48 VMV48 |
{ VMB48 VMS48 VMV48 |
3255 |
goto TTL; |
goto TTL; |
3256 |
TTL:; |
TTL:; |
3257 |
{object V493 = (VFUN_NARGS=3,(*(LnkLI211))((V492),VV[57],Ct)); |
{object V506 = (VFUN_NARGS=3,(*(LnkLI211))((V505),VV[57],Ct)); |
3258 |
VMR48(V493)} |
VMR48(V506)} |
3259 |
return Cnil; |
return Cnil; |
3260 |
} |
} |
3261 |
/* macro definition for METHOD-FUNCTION-CLOSURE-GENERATOR */ |
/* macro definition for METHOD-FUNCTION-CLOSURE-GENERATOR */ |
3266 |
vs_check; |
vs_check; |
3267 |
check_arg(2); |
check_arg(2); |
3268 |
vs_top=sup; |
vs_top=sup; |
3269 |
{object V494=base[0]->c.c_cdr; |
{object V507=base[0]->c.c_cdr; |
3270 |
if(endp(V494))invalid_macro_call(); |
if(endp(V507))invalid_macro_call(); |
3271 |
base[2]= (V494->c.c_car); |
base[2]= (V507->c.c_car); |
3272 |
V494=V494->c.c_cdr; |
V507=V507->c.c_cdr; |
3273 |
if(!endp(V494))invalid_macro_call();} |
if(!endp(V507))invalid_macro_call();} |
3274 |
base[3]= list(3,VV[211],base[2],VV[212]); |
base[3]= list(3,VV[211],base[2],VV[212]); |
3275 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3276 |
return; |
return; |
3277 |
} |
} |
3278 |
/* local entry for function LOAD-DEFMETHOD */ |
/* local entry for function LOAD-DEFMETHOD */ |
3279 |
|
|
3280 |
static object LI58(object V500,object V499,object V498,object V497,object V496,object V495,object first,...) |
static object LI58(object V513,object V512,object V511,object V510,object V509,object V508,object first,...) |
3281 |
{ |
{ |
3282 |
va_list ap; |
va_list ap; |
3283 |
int narg = VFUN_NARGS; VMB50 VMS50 VMV50 |
int narg = VFUN_NARGS; VMB50 VMS50 VMV50 |
3284 |
{object V501; |
{object V514; |
3285 |
register object V502; |
register object V515; |
3286 |
object V503; |
object V516; |
3287 |
object V504; |
object V517; |
3288 |
object V505; |
object V518; |
3289 |
register object V506; |
register object V519; |
3290 |
object V507; |
object V520; |
3291 |
va_start(ap,first); |
va_start(ap,first); |
3292 |
if(narg <6) too_few_arguments(); |
if(narg <6) too_few_arguments(); |
3293 |
V501= V500; |
V514= V513; |
3294 |
V502= V499; |
V515= V512; |
3295 |
V503= V498; |
V516= V511; |
3296 |
V504= V497; |
V517= V510; |
3297 |
V505= V496; |
V518= V509; |
3298 |
V506= V495; |
V519= V508; |
3299 |
narg = narg - 6; |
narg = narg - 6; |
3300 |
if (narg <= 0) goto T1011; |
if (narg <= 0) goto T1011; |
3301 |
else { |
else { |
3302 |
V507= first;} |
V520= first;} |
3303 |
--narg; goto T1012; |
--narg; goto T1012; |
3304 |
goto T1011; |
goto T1011; |
3305 |
T1011:; |
T1011:; |
3306 |
V507= Cnil; |
V520= Cnil; |
3307 |
goto T1012; |
goto T1012; |
3308 |
T1012:; |
T1012:; |
3309 |
if(!(type_of((V502))==t_cons||((V502))==Cnil)){ |
if(!(type_of((V515))==t_cons||((V515))==Cnil)){ |
3310 |
goto T1014;} |
goto T1014;} |
3311 |
(void)((*(LnkLI348))(CMPcadr((V502)))); |
(void)((*(LnkLI348))(CMPcadr((V515)))); |
3312 |
goto T1014; |
goto T1014; |
3313 |
T1014:; |
T1014:; |
3314 |
base[0]= (V506); |
base[0]= (V519); |
3315 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3316 |
Lcopy_tree(); |
Lcopy_tree(); |
3317 |
vs_top=sup; |
vs_top=sup; |
3318 |
V506= vs_base[0]; |
V519= vs_base[0]; |
3319 |
{object V508;{object V509; |
{object V521;{object V522; |
3320 |
base[0]= (V506); |
base[0]= (V519); |
3321 |
base[1]= VV[213]; |
base[1]= VV[213]; |
3322 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3323 |
Lgetf(); |
Lgetf(); |
3324 |
vs_top=sup; |
vs_top=sup; |
3325 |
V509= vs_base[0]; |
V522= vs_base[0]; |
3326 |
if(V509==Cnil)goto T1021; |
if(V522==Cnil)goto T1021; |
3327 |
V508= V509; |
V521= V522; |
3328 |
goto T1020; |
goto T1020; |
3329 |
goto T1021; |
goto T1021; |
3330 |
T1021:;} |
T1021:;} |
3331 |
V508= (*(LnkLI401))((V502),(V503),(V504)); |
V521= (*(LnkLI401))((V515),(V516),(V517)); |
3332 |
goto T1020; |
goto T1020; |
3333 |
T1020:; |
T1020:; |
3334 |
{object V512; |
{object V525; |
3335 |
base[0]= (V506); |
base[0]= (V519); |
3336 |
base[1]= V508; |
base[1]= V521; |
3337 |
base[2]= VV[213]; |
base[2]= VV[213]; |
3338 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3339 |
siLput_f(); |
siLput_f(); |
3340 |
vs_top=sup; |
vs_top=sup; |
3341 |
V512= vs_base[0]; |
V525= vs_base[0]; |
3342 |
V506= (V512);} |
V519= (V525);} |
3343 |
(void)((VFUN_NARGS=2,(*(LnkLI402))(VV[37],(V508)))); |
(void)((VFUN_NARGS=2,(*(LnkLI402))(VV[37],(V521)))); |
3344 |
{object V513 = (*(LnkLI403))((V501),(V502),(V503),(V504),(V505),(V506),(V507)); |
{object V526 = (*(LnkLI403))((V514),(V515),(V516),(V517),(V518),(V519),(V520)); |
3345 |
VMR50(V513)}} |
VMR50(V526)}} |
3346 |
va_end(ap); |
va_end(ap); |
3347 |
base[0]=base[0]; |
base[0]=base[0]; |
3348 |
return Cnil;} |
return Cnil;} |
3349 |
} |
} |
3350 |
/* local entry for function LOAD-DEFMETHOD-INTERNAL */ |
/* local entry for function LOAD-DEFMETHOD-INTERNAL */ |
3351 |
|
|
3352 |
static object LI59(V521,V522,V523,V524,V525,V526,V527) |
static object LI59(V534,V535,V536,V537,V538,V539,V540) |
3353 |
|
|
3354 |
object V521;register object V522;object V523;object V524;object V525;register object V526;object V527; |
object V534;register object V535;object V536;object V537;object V538;register object V539;object V540; |
3355 |
{ VMB51 VMS51 VMV51 |
{ VMB51 VMS51 VMV51 |
3356 |
goto TTL; |
goto TTL; |
3357 |
TTL:; |
TTL:; |
3358 |
if(!(type_of((V522))==t_cons||((V522))==Cnil)){ |
if(!(type_of((V535))==t_cons||((V535))==Cnil)){ |
3359 |
goto T1033;} |
goto T1033;} |
3360 |
(void)((*(LnkLI348))(CMPcadr((V522)))); |
(void)((*(LnkLI348))(CMPcadr((V535)))); |
3361 |
goto T1033; |
goto T1033; |
3362 |
T1033:; |
T1033:; |
3363 |
if(((V527))==Cnil){ |
if(((V540))==Cnil){ |
3364 |
goto T1036;} |
goto T1036;} |
3365 |
{object V531; |
{object V544; |
3366 |
base[1]= (V526); |
base[1]= (V539); |
3367 |
base[2]= VV[28]; |
base[2]= VV[28]; |
3368 |
base[3]= Cnil; |
base[3]= Cnil; |
3369 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
3370 |
Lgetf(); |
Lgetf(); |
3371 |
vs_top=sup; |
vs_top=sup; |
3372 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
3373 |
base[1]= V527; |
base[1]= V540; |
3374 |
base[2]= VV[29]; |
base[2]= VV[29]; |
3375 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3376 |
siLput_f(); |
siLput_f(); |
3377 |
vs_top=sup; |
vs_top=sup; |
3378 |
V531= vs_base[0]; |
V544= vs_base[0]; |
3379 |
{object V532; |
{object V545; |
3380 |
base[0]= (V526); |
base[0]= (V539); |
3381 |
base[1]= (V531); |
base[1]= (V544); |
3382 |
base[2]= VV[28]; |
base[2]= VV[28]; |
3383 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3384 |
siLput_f(); |
siLput_f(); |
3385 |
vs_top=sup; |
vs_top=sup; |
3386 |
V532= vs_base[0]; |
V545= vs_base[0]; |
3387 |
V526= (V532);}} |
V539= (V545);}} |
3388 |
goto T1036; |
goto T1036; |
3389 |
T1036:; |
T1036:; |
3390 |
{object V533; |
{object V546; |
3391 |
base[0]=VV[404]->s.s_gfdef; |
base[0]=VV[404]->s.s_gfdef; |
3392 |
base[1]= (V522); |
base[1]= (V535); |
3393 |
base[2]= (V523); |
base[2]= (V536); |
3394 |
base[3]= (V524); |
base[3]= (V537); |
3395 |
base[4]= (V525); |
base[4]= (V538); |
3396 |
base[5]= VV[16]; |
base[5]= VV[16]; |
3397 |
V535= make_cons((V524),Cnil); |
V548= make_cons((V537),Cnil); |
3398 |
V536= listA(3,VV[7],(V522),append((V523),/* INLINE-ARGS */V535)); |
V549= listA(3,VV[7],(V535),append((V536),/* INLINE-ARGS */V548)); |
3399 |
vs_base=vs_top; |
vs_base=vs_top; |
3400 |
(void) (*Lnk350)(); |
(void) (*Lnk350)(); |
3401 |
vs_top=sup; |
vs_top=sup; |
3402 |
V537= vs_base[0]; |
V550= vs_base[0]; |
3403 |
base[6]= list(2,/* INLINE-ARGS */V536,V537); |
base[6]= list(2,/* INLINE-ARGS */V549,V550); |
3404 |
{object V534; |
{object V547; |
3405 |
V534= (V526); |
V547= (V539); |
3406 |
vs_top=base+7; |
vs_top=base+7; |
3407 |
while(V534!=Cnil) |
while(V547!=Cnil) |
3408 |
{vs_push((V534)->c.c_car);V534=(V534)->c.c_cdr;} |
{vs_push((V547)->c.c_car);V547=(V547)->c.c_cdr;} |
3409 |
vs_base=base+1;} |
vs_base=base+1;} |
3410 |
funcall(base[0]); |
funcall(base[0]); |
3411 |
vs_top=sup; |
vs_top=sup; |
3412 |
V533= vs_base[0]; |
V546= vs_base[0]; |
3413 |
if(((V521))==(VV[20])){ |
if(((V534))==(VV[20])){ |
3414 |
goto T1062;} |
goto T1062;} |
3415 |
V538= (VFUN_NARGS=2,(*(LnkLI290))((V521),Cnil)); |
V551= (VFUN_NARGS=2,(*(LnkLI290))((V534),Cnil)); |
3416 |
V539= (*(LnkLI363))((V533)); |
V552= (*(LnkLI363))((V546)); |
3417 |
if((/* INLINE-ARGS */V538)==(/* INLINE-ARGS */V539)){ |
if((/* INLINE-ARGS */V551)==(/* INLINE-ARGS */V552)){ |
3418 |
goto T1062;} |
goto T1062;} |
3419 |
base[0]= (VV[214]->s.s_dbind); |
base[0]= (VV[214]->s.s_dbind); |
3420 |
base[1]= VV[215]; |
base[1]= VV[215]; |
3421 |
base[2]= (V523); |
base[2]= (V536); |
3422 |
base[3]= (V524); |
base[3]= (V537); |
3423 |
base[4]= (V522); |
base[4]= (V535); |
3424 |
base[5]= (V521); |
base[5]= (V534); |
3425 |
base[7]= (*(LnkLI363))((V533)); |
base[7]= (*(LnkLI363))((V546)); |
3426 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
3427 |
(void) (*Lnk364)(Lclptr364); |
(void) (*Lnk364)(Lclptr364); |
3428 |
vs_top=sup; |
vs_top=sup; |
3432 |
vs_top=sup; |
vs_top=sup; |
3433 |
goto T1062; |
goto T1062; |
3434 |
T1062:; |
T1062:; |
3435 |
{object V540 = (V533); |
{object V553 = (V546); |
3436 |
VMR51(V540)}} |
VMR51(V553)}} |
3437 |
base[0]=base[0]; |
base[0]=base[0]; |
3438 |
return Cnil; |
return Cnil; |
3439 |
} |
} |
3440 |
/* local entry for function MAKE-METHOD-SPEC */ |
/* local entry for function MAKE-METHOD-SPEC */ |
3441 |
|
|
3442 |
static object LI60(V544,V545,V546) |
static object LI60(V557,V558,V559) |
3443 |
|
|
3444 |
object V544;object V545;object V546; |
object V557;object V558;object V559; |
3445 |
{ VMB52 VMS52 VMV52 |
{ VMB52 VMS52 VMV52 |
3446 |
goto TTL; |
goto TTL; |
3447 |
TTL:; |
TTL:; |
3448 |
V547= make_cons((V546),Cnil); |
V560= make_cons((V559),Cnil); |
3449 |
{object V548 = listA(3,VV[37],(V544),append((V545),/* INLINE-ARGS */V547)); |
{object V561 = listA(3,VV[37],(V557),append((V558),/* INLINE-ARGS */V560)); |
3450 |
VMR52(V548)} |
VMR52(V561)} |
3451 |
return Cnil; |
return Cnil; |
3452 |
} |
} |
3453 |
/* local entry for function INITIALIZE-METHOD-FUNCTION */ |
/* local entry for function INITIALIZE-METHOD-FUNCTION */ |
3454 |
|
|
3455 |
static object LI61(object V549,object first,...) |
static object LI61(object V562,object first,...) |
3456 |
{ |
{ |
3457 |
va_list ap; |
va_list ap; |
3458 |
int narg = VFUN_NARGS; VMB53 VMS53 VMV53 |
int narg = VFUN_NARGS; VMB53 VMS53 VMV53 |
3459 |
{register object V550; |
{register object V563; |
3460 |
object V551; |
object V564; |
3461 |
object V552; |
object V565; |
3462 |
va_start(ap,first); |
va_start(ap,first); |
3463 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
3464 |
V550= V549; |
V563= V562; |
3465 |
narg = narg - 1; |
narg = narg - 1; |
3466 |
if (narg <= 0) goto T1075; |
if (narg <= 0) goto T1075; |
3467 |
else { |
else { |
3468 |
V551= first;} |
V564= first;} |
3469 |
if (--narg <= 0) goto T1076; |
if (--narg <= 0) goto T1076; |
3470 |
else { |
else { |
3471 |
V552= va_arg(ap,object);} |
V565= va_arg(ap,object);} |
3472 |
--narg; goto T1077; |
--narg; goto T1077; |
3473 |
goto T1075; |
goto T1075; |
3474 |
T1075:; |
T1075:; |
3475 |
V551= Cnil; |
V564= Cnil; |
3476 |
goto T1076; |
goto T1076; |
3477 |
T1076:; |
T1076:; |
3478 |
V552= Cnil; |
V565= Cnil; |
3479 |
goto T1077; |
goto T1077; |
3480 |
T1077:; |
T1077:; |
3481 |
{register object V553; |
{register object V566; |
3482 |
register object V554; |
register object V567; |
3483 |
object V555; |
object V568; |
3484 |
register object V556; |
register object V569; |
3485 |
base[5]= (V550); |
base[5]= (V563); |
3486 |
base[6]= VV[36]; |
base[6]= VV[36]; |
3487 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3488 |
Lgetf(); |
Lgetf(); |
3489 |
vs_top=sup; |
vs_top=sup; |
3490 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
3491 |
base[5]= (V550); |
base[5]= (V563); |
3492 |
base[6]= VV[213]; |
base[6]= VV[213]; |
3493 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3494 |
Lgetf(); |
Lgetf(); |
3495 |
vs_top=sup; |
vs_top=sup; |
3496 |
V553= vs_base[0]; |
V566= vs_base[0]; |
3497 |
base[5]= (V550); |
base[5]= (V563); |
3498 |
base[6]= VV[28]; |
base[6]= VV[28]; |
3499 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3500 |
Lgetf(); |
Lgetf(); |
3501 |
vs_top=sup; |
vs_top=sup; |
3502 |
V554= vs_base[0]; |
V567= vs_base[0]; |
3503 |
base[5]= (V554); |
base[5]= (V567); |
3504 |
base[6]= VV[29]; |
base[6]= VV[29]; |
3505 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3506 |
Lgetf(); |
Lgetf(); |
3507 |
vs_top=sup; |
vs_top=sup; |
3508 |
V555= vs_base[0]; |
V568= vs_base[0]; |
3509 |
V556= Cnil; |
V569= Cnil; |
3510 |
base[5]= (V550); |
base[5]= (V563); |
3511 |
base[6]= VV[216]; |
base[6]= VV[216]; |
3512 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3513 |
Lgetf(); |
Lgetf(); |
3514 |
vs_top=sup; |
vs_top=sup; |
3515 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
3516 |
if(((V553))==Cnil){ |
if(((V566))==Cnil){ |
3517 |
goto T1096;} |
goto T1096;} |
3518 |
if((base[0])==Cnil){ |
if((base[0])==Cnil){ |
3519 |
goto T1099;} |
goto T1099;} |
3520 |
base[5]= base[0]; |
base[5]= base[0]; |
3521 |
base[6]= (V553); |
base[6]= (V566); |
3522 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3523 |
(void) (*Lnk346)(); |
(void) (*Lnk346)(); |
3524 |
vs_top=sup; |
vs_top=sup; |
3527 |
T1099:; |
T1099:; |
3528 |
if((base[4])==Cnil){ |
if((base[4])==Cnil){ |
3529 |
goto T1096;} |
goto T1096;} |
3530 |
{object V557;{object V559; |
{object V570;{object V572; |
3531 |
{object V560 =(CMPcar((V553)))->s.s_plist; |
{object V573 =(CMPcar((V566)))->s.s_plist; |
3532 |
object ind= VV[217]; |
object ind= VV[217]; |
3533 |
while(V560!=Cnil){ |
while(V573!=Cnil){ |
3534 |
if(V560->c.c_car==ind){ |
if(V573->c.c_car==ind){ |
3535 |
V559= (V560->c.c_cdr->c.c_car); |
V572= (V573->c.c_cdr->c.c_car); |
3536 |
goto T1110; |
goto T1110; |
3537 |
}else V560=V560->c.c_cdr->c.c_cdr;} |
}else V573=V573->c.c_cdr->c.c_cdr;} |
3538 |
V559= Cnil;} |
V572= Cnil;} |
3539 |
goto T1110; |
goto T1110; |
3540 |
T1110:; |
T1110:; |
3541 |
if(V559==Cnil)goto T1109; |
if(V572==Cnil)goto T1109; |
3542 |
V558= V559; |
V571= V572; |
3543 |
goto T1108; |
goto T1108; |
3544 |
goto T1109; |
goto T1109; |
3545 |
T1109:;} |
T1109:;} |
3546 |
V561= CMPcar((V553)); |
V574= CMPcar((V566)); |
3547 |
base[6]= Cnil; |
base[6]= Cnil; |
3548 |
base[7]= VV[218]; |
base[7]= VV[218]; |
3549 |
base[8]= CMPcar((V553)); |
base[8]= CMPcar((V566)); |
3550 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
3551 |
Lformat(); |
Lformat(); |
3552 |
vs_top=sup; |
vs_top=sup; |
3555 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3556 |
Lintern(); |
Lintern(); |
3557 |
vs_top=sup; |
vs_top=sup; |
3558 |
V562= vs_base[0]; |
V575= vs_base[0]; |
3559 |
V558= sputprop(/* INLINE-ARGS */V561,VV[217],V562); |
V571= sputprop(/* INLINE-ARGS */V574,VV[217],V575); |
3560 |
goto T1108; |
goto T1108; |
3561 |
T1108:; |
T1108:; |
3562 |
V557= make_cons(V558,CMPcdr((V553))); |
V570= make_cons(V571,CMPcdr((V566))); |
3563 |
base[5]= base[4]; |
base[5]= base[4]; |
3564 |
base[6]= (V557); |
base[6]= (V570); |
3565 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3566 |
(void) (*Lnk346)(); |
(void) (*Lnk346)(); |
3567 |
vs_top=sup; |
vs_top=sup; |
3568 |
if((base[0])!=Cnil){ |
if((base[0])!=Cnil){ |
3569 |
goto T1096;} |
goto T1096;} |
3570 |
base[5]= VV[220]; |
base[5]= VV[220]; |
3571 |
base[6]= (V557); |
base[6]= (V570); |
3572 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3573 |
L62(base); |
L62(base); |
3574 |
vs_top=sup;} |
vs_top=sup;} |
3575 |
goto T1096; |
goto T1096; |
3576 |
T1096:; |
T1096:; |
3577 |
if(((V554))==Cnil){ |
if(((V567))==Cnil){ |
3578 |
goto T1125;} |
goto T1125;} |
3579 |
{object V563; |
{object V576; |
3580 |
object V564; |
object V577; |
3581 |
base[5]= (V554); |
base[5]= (V567); |
3582 |
base[6]= VV[59]; |
base[6]= VV[59]; |
3583 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3584 |
Lgetf(); |
Lgetf(); |
3585 |
vs_top=sup; |
vs_top=sup; |
3586 |
V563= vs_base[0]; |
V576= vs_base[0]; |
3587 |
base[5]= (V554); |
base[5]= (V567); |
3588 |
base[6]= VV[60]; |
base[6]= VV[60]; |
3589 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3590 |
Lgetf(); |
Lgetf(); |
3591 |
vs_top=sup; |
vs_top=sup; |
3592 |
V564= vs_base[0]; |
V577= vs_base[0]; |
3593 |
if(((V563))!=Cnil){ |
if(((V576))!=Cnil){ |
3594 |
goto T1134;} |
goto T1134;} |
3595 |
if(((V564))==Cnil){ |
if(((V577))==Cnil){ |
3596 |
goto T1127;} |
goto T1127;} |
3597 |
goto T1134; |
goto T1134; |
3598 |
T1134:; |
T1134:; |
3599 |
V556= (VFUN_NARGS=4,(*(LnkLI405))(VV[59],(V563),VV[60],(V564))); |
V569= (VFUN_NARGS=4,(*(LnkLI405))(VV[59],(V576),VV[60],(V577))); |
3600 |
if(((V556))==Cnil){ |
if(((V569))==Cnil){ |
3601 |
goto T1140;} |
goto T1140;} |
3602 |
base[5]= (V555); |
base[5]= (V568); |
3603 |
base[6]= (V556); |
base[6]= (V569); |
3604 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3605 |
Lset(); |
Lset(); |
3606 |
vs_top=sup; |
vs_top=sup; |
3607 |
goto T1140; |
goto T1140; |
3608 |
T1140:; |
T1140:; |
3609 |
base[5]= VV[209]; |
base[5]= VV[209]; |
3610 |
base[6]= (V556); |
base[6]= (V569); |
3611 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3612 |
L62(base); |
L62(base); |
3613 |
vs_top=sup;} |
vs_top=sup;} |
3615 |
T1127:; |
T1127:; |
3616 |
goto T1149; |
goto T1149; |
3617 |
T1149:; |
T1149:; |
3618 |
if(((V554))!=Cnil){ |
if(((V567))!=Cnil){ |
3619 |
goto T1151;} |
goto T1151;} |
3620 |
goto T1147; |
goto T1147; |
3621 |
goto T1151; |
goto T1151; |
3622 |
T1151:; |
T1151:; |
3623 |
{register object V565; |
{register object V578; |
3624 |
V565= CMPcar((V554)); |
V578= CMPcar((V567)); |
3625 |
V554= CMPcdr((V554)); |
V567= CMPcdr((V567)); |
3626 |
base[5]= (V565);} |
base[5]= (V578);} |
3627 |
{register object V566; |
{register object V579; |
3628 |
V566= CMPcar((V554)); |
V579= CMPcar((V567)); |
3629 |
V554= CMPcdr((V554)); |
V567= CMPcdr((V567)); |
3630 |
base[6]= (V566);} |
base[6]= (V579);} |
3631 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3632 |
L62(base); |
L62(base); |
3633 |
vs_top=sup; |
vs_top=sup; |
3634 |
goto T1149; |
goto T1149; |
3635 |
goto T1147; |
goto T1147; |
3636 |
T1147:; |
T1147:; |
3637 |
if(((V552))==Cnil){ |
if(((V565))==Cnil){ |
3638 |
goto T1163;} |
goto T1163;} |
3639 |
base[5]= VV[210]; |
base[5]= VV[210]; |
3640 |
base[6]= (V552); |
base[6]= (V565); |
3641 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3642 |
L62(base); |
L62(base); |
3643 |
vs_top=sup; |
vs_top=sup; |
3644 |
goto T1163; |
goto T1163; |
3645 |
T1163:; |
T1163:; |
3646 |
if(((V551))==Cnil){ |
if(((V564))==Cnil){ |
3647 |
goto T1169;} |
goto T1169;} |
3648 |
if(base[0]!=Cnil){ |
if(base[0]!=Cnil){ |
3649 |
{object V567 = base[0]; |
{object V580 = base[0]; |
3650 |
VMR53(V567)}} |
VMR53(V580)}} |
3651 |
{object V568 = (*(LnkLI406))(base[4]); |
{object V581 = (*(LnkLI406))(base[4]); |
3652 |
VMR53(V568)} |
VMR53(V581)} |
3653 |
goto T1169; |
goto T1169; |
3654 |
T1169:; |
T1169:; |
3655 |
{object V569 = Cnil; |
{object V582 = Cnil; |
3656 |
VMR53(V569)} |
VMR53(V582)} |
3657 |
goto T1125; |
goto T1125; |
3658 |
T1125:; |
T1125:; |
3659 |
{object V570 = Cnil; |
{object V583 = Cnil; |
3660 |
VMR53(V570)}} |
VMR53(V583)}} |
3661 |
va_end(ap); |
va_end(ap); |
3662 |
base[0]=base[0]; |
base[0]=base[0]; |
3663 |
return Cnil;} |
return Cnil;} |
3668 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3669 |
register object *sup=base+VM54; VC54 |
register object *sup=base+VM54; VC54 |
3670 |
vs_check; |
vs_check; |
3671 |
{object V571; |
{object V584; |
3672 |
check_arg(1); |
check_arg(1); |
3673 |
V571=(base[0]); |
V584=(base[0]); |
3674 |
vs_top=sup; |
vs_top=sup; |
3675 |
goto TTL; |
goto TTL; |
3676 |
TTL:; |
TTL:; |
3677 |
{register object V572; |
{register object V585; |
3678 |
register object V573; |
register object V586; |
3679 |
object V574; |
object V587; |
3680 |
object V575; |
object V588; |
3681 |
object V576; |
object V589; |
3682 |
register object V577; |
register object V590; |
3683 |
register object V578; |
register object V591; |
3684 |
register object V579; |
register object V592; |
3685 |
V572= small_fixnum(0); |
V585= small_fixnum(0); |
3686 |
V573= small_fixnum(0); |
V586= small_fixnum(0); |
3687 |
V574= Cnil; |
V587= Cnil; |
3688 |
V575= Cnil; |
V588= Cnil; |
3689 |
V576= Cnil; |
V589= Cnil; |
3690 |
V577= Cnil; |
V590= Cnil; |
3691 |
V578= Cnil; |
V591= Cnil; |
3692 |
V579= VV[181]; |
V592= VV[181]; |
3693 |
{register object V580; |
{register object V593; |
3694 |
register object V581; |
register object V594; |
3695 |
V580= (V571); |
V593= (V584); |
3696 |
V581= CMPcar((V580)); |
V594= CMPcar((V593)); |
3697 |
goto T1175; |
goto T1175; |
3698 |
T1175:; |
T1175:; |
3699 |
if(!(((V580))==Cnil)){ |
if(!(((V593))==Cnil)){ |
3700 |
goto T1176;} |
goto T1176;} |
3701 |
goto T1171; |
goto T1171; |
3702 |
goto T1176; |
goto T1176; |
3703 |
T1176:; |
T1176:; |
3704 |
{register object x= (V581),V582= VV[183]; |
{register object x= (V594),V595= VV[183]; |
3705 |
while(V582!=Cnil) |
while(V595!=Cnil) |
3706 |
if(x==(V582->c.c_car)){ |
if(x==(V595->c.c_car)){ |
3707 |
goto T1183; |
goto T1183; |
3708 |
}else V582=V582->c.c_cdr; |
}else V595=V595->c.c_cdr; |
3709 |
goto T1182;} |
goto T1182;} |
3710 |
goto T1183; |
goto T1183; |
3711 |
T1183:; |
T1183:; |
3712 |
{object V583= (V581); |
{object V596= (V594); |
3713 |
if((V583!= VV[407]))goto T1184; |
if((V596!= VV[407]))goto T1184; |
3714 |
V579= VV[184]; |
V592= VV[184]; |
3715 |
goto T1180; |
goto T1180; |
3716 |
goto T1184; |
goto T1184; |
3717 |
T1184:; |
T1184:; |
3718 |
if((V583!= VV[62]))goto T1186; |
if((V596!= VV[62]))goto T1186; |
3719 |
V574= Ct; |
V587= Ct; |
3720 |
V579= VV[185]; |
V592= VV[185]; |
3721 |
goto T1180; |
goto T1180; |
3722 |
goto T1186; |
goto T1186; |
3723 |
T1186:; |
T1186:; |
3724 |
if((V583!= VV[63]))goto T1190; |
if((V596!= VV[63]))goto T1190; |
3725 |
V576= Ct; |
V589= Ct; |
3726 |
goto T1180; |
goto T1180; |
3727 |
goto T1190; |
goto T1190; |
3728 |
T1190:; |
T1190:; |
3729 |
if((V583!= VV[170]))goto T1192; |
if((V596!= VV[170]))goto T1192; |
3730 |
V575= Ct; |
V588= Ct; |
3731 |
V579= VV[186]; |
V592= VV[186]; |
3732 |
goto T1180; |
goto T1180; |
3733 |
goto T1192; |
goto T1192; |
3734 |
T1192:; |
T1192:; |
3735 |
if((V583!= VV[56]))goto T1196; |
if((V596!= VV[56]))goto T1196; |
3736 |
goto T1171; |
goto T1171; |
3737 |
goto T1196; |
goto T1196; |
3738 |
T1196:; |
T1196:; |
3739 |
base[2]= VV[221]; |
base[2]= VV[221]; |
3740 |
base[3]= (V581); |
base[3]= (V594); |
3741 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3742 |
Lerror(); |
Lerror(); |
3743 |
vs_top=sup; |
vs_top=sup; |
3744 |
goto T1180;} |
goto T1180;} |
3745 |
goto T1182; |
goto T1182; |
3746 |
T1182:; |
T1182:; |
3747 |
{object V584= (V579); |
{object V597= (V592); |
3748 |
if((V584!= VV[181]))goto T1199; |
if((V597!= VV[181]))goto T1199; |
3749 |
V572= number_plus((V572),small_fixnum(1)); |
V585= number_plus((V585),small_fixnum(1)); |
3750 |
goto T1180; |
goto T1180; |
3751 |
goto T1199; |
goto T1199; |
3752 |
T1199:; |
T1199:; |
3753 |
if((V584!= VV[184]))goto T1201; |
if((V597!= VV[184]))goto T1201; |
3754 |
V573= number_plus((V573),small_fixnum(1)); |
V586= number_plus((V586),small_fixnum(1)); |
3755 |
goto T1180; |
goto T1180; |
3756 |
goto T1201; |
goto T1201; |
3757 |
T1201:; |
T1201:; |
3758 |
if((V584!= VV[185]))goto T1203; |
if((V597!= VV[185]))goto T1203; |
3759 |
{object V585; |
{object V598; |
3760 |
base[3]= (V581); |
base[3]= (V594); |
3761 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3762 |
L64(base); |
L64(base); |
3763 |
vs_top=sup; |
vs_top=sup; |
3764 |
V585= vs_base[0]; |
V598= vs_base[0]; |
3765 |
V577= make_cons((V585),(V577));} |
V590= make_cons((V598),(V590));} |
3766 |
V578= make_cons(V581,(V578)); |
V591= make_cons(V594,(V591)); |
3767 |
goto T1180; |
goto T1180; |
3768 |
goto T1203; |
goto T1203; |
3769 |
T1203:; |
T1203:; |
3770 |
if((V584!= VV[186]))goto T1209; |
if((V597!= VV[186]))goto T1209; |
3771 |
goto T1180; |
goto T1180; |
3772 |
goto T1209; |
goto T1209; |
3773 |
T1209:; |
T1209:; |
3774 |
FEerror("The ECASE key value ~s is illegal.",1,V584); |
FEerror("The ECASE key value ~s is illegal.",1,V597); |
3775 |
goto T1180;} |
goto T1180;} |
3776 |
goto T1180; |
goto T1180; |
3777 |
T1180:; |
T1180:; |
3778 |
V580= CMPcdr((V580)); |
V593= CMPcdr((V593)); |
3779 |
V581= CMPcar((V580)); |
V594= CMPcar((V593)); |
3780 |
goto T1175;} |
goto T1175;} |
3781 |
goto T1171; |
goto T1171; |
3782 |
T1171:; |
T1171:; |
3783 |
base[1]= (V572); |
base[1]= (V585); |
3784 |
base[2]= (V573); |
base[2]= (V586); |
3785 |
base[3]= (V574); |
base[3]= (V587); |
3786 |
base[4]= (V575); |
base[4]= (V588); |
3787 |
base[5]= (V576); |
base[5]= (V589); |
3788 |
base[6]= reverse((V577)); |
base[6]= reverse((V590)); |
3789 |
base[7]= reverse((V578)); |
base[7]= reverse((V591)); |
3790 |
vs_top=(vs_base=base+1)+7; |
vs_top=(vs_base=base+1)+7; |
3791 |
return;} |
return;} |
3792 |
} |
} |
3793 |
} |
} |
3794 |
/* local entry for function KEYWORD-SPEC-NAME */ |
/* local entry for function KEYWORD-SPEC-NAME */ |
3795 |
|
|
3796 |
static object LI65(V588) |
static object LI65(V601) |
3797 |
|
|
3798 |
object V588; |
object V601; |
3799 |
{ VMB55 VMS55 VMV55 |
{ VMB55 VMS55 VMV55 |
3800 |
goto TTL; |
goto TTL; |
3801 |
TTL:; |
TTL:; |
3802 |
{object V589; |
{object V602; |
3803 |
if(!(type_of((V588))!=t_cons)){ |
if(!(type_of((V601))!=t_cons)){ |
3804 |
goto T1224;} |
goto T1224;} |
3805 |
V589= (V588); |
V602= (V601); |
3806 |
goto T1222; |
goto T1222; |
3807 |
goto T1224; |
goto T1224; |
3808 |
T1224:; |
T1224:; |
3809 |
V589= CMPcar((V588)); |
V602= CMPcar((V601)); |
3810 |
goto T1222; |
goto T1222; |
3811 |
T1222:; |
T1222:; |
3812 |
if(!(type_of((V589))!=t_cons)){ |
if(!(type_of((V602))!=t_cons)){ |
3813 |
goto T1227;} |
goto T1227;} |
3814 |
base[0]= symbol_name((V589)); |
base[0]= symbol_name((V602)); |
3815 |
base[2]= VV[222]; |
base[2]= VV[222]; |
3816 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3817 |
Lfind_package(); |
Lfind_package(); |
3820 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3821 |
Lintern(); |
Lintern(); |
3822 |
vs_top=sup; |
vs_top=sup; |
3823 |
{object V590 = vs_base[0]; |
{object V603 = vs_base[0]; |
3824 |
VMR55(V590)} |
VMR55(V603)} |
3825 |
goto T1227; |
goto T1227; |
3826 |
T1227:; |
T1227:; |
3827 |
{object V591 = CMPcar((V589)); |
{object V604 = CMPcar((V602)); |
3828 |
VMR55(V591)}} |
VMR55(V604)}} |
3829 |
base[0]=base[0]; |
base[0]=base[0]; |
3830 |
return Cnil; |
return Cnil; |
3831 |
} |
} |
3832 |
/* local entry for function FTYPE-DECLARATION-FROM-LAMBDA-LIST */ |
/* local entry for function FTYPE-DECLARATION-FROM-LAMBDA-LIST */ |
3833 |
|
|
3834 |
static object LI66(V593) |
static object LI66(V606) |
3835 |
|
|
3836 |
object V593; |
object V606; |
3837 |
{ VMB56 VMS56 VMV56 |
{ VMB56 VMS56 VMV56 |
3838 |
goto TTL; |
goto TTL; |
3839 |
TTL:; |
TTL:; |
3840 |
{object V594; |
{object V607; |
3841 |
object V595; |
object V608; |
3842 |
object V596; |
object V609; |
3843 |
object V597; |
object V610; |
3844 |
object V598; |
object V611; |
3845 |
object V599; |
object V612; |
3846 |
object V600; |
object V613; |
3847 |
base[0]= (V593); |
base[0]= (V606); |
3848 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3849 |
(void) (*Lnk408)(); |
(void) (*Lnk408)(); |
3850 |
if(vs_base>=vs_top){vs_top=sup;goto T1234;} |
if(vs_base>=vs_top){vs_top=sup;goto T1234;} |
3851 |
V594= vs_base[0]; |
V607= vs_base[0]; |
3852 |
vs_base++; |
vs_base++; |
3853 |
if(vs_base>=vs_top){vs_top=sup;goto T1235;} |
if(vs_base>=vs_top){vs_top=sup;goto T1235;} |
3854 |
V595= vs_base[0]; |
V608= vs_base[0]; |
3855 |
vs_base++; |
vs_base++; |
3856 |
if(vs_base>=vs_top){vs_top=sup;goto T1236;} |
if(vs_base>=vs_top){vs_top=sup;goto T1236;} |
3857 |
V596= vs_base[0]; |
V609= vs_base[0]; |
3858 |
vs_base++; |
vs_base++; |
3859 |
if(vs_base>=vs_top){vs_top=sup;goto T1237;} |
if(vs_base>=vs_top){vs_top=sup;goto T1237;} |
3860 |
V597= vs_base[0]; |
V610= vs_base[0]; |
3861 |
vs_base++; |
vs_base++; |
3862 |
if(vs_base>=vs_top){vs_top=sup;goto T1238;} |
if(vs_base>=vs_top){vs_top=sup;goto T1238;} |
3863 |
V598= vs_base[0]; |
V611= vs_base[0]; |
3864 |
vs_base++; |
vs_base++; |
3865 |
if(vs_base>=vs_top){vs_top=sup;goto T1239;} |
if(vs_base>=vs_top){vs_top=sup;goto T1239;} |
3866 |
V599= vs_base[0]; |
V612= vs_base[0]; |
3867 |
vs_base++; |
vs_base++; |
3868 |
if(vs_base>=vs_top){vs_top=sup;goto T1240;} |
if(vs_base>=vs_top){vs_top=sup;goto T1240;} |
3869 |
V600= vs_base[0]; |
V613= vs_base[0]; |
3870 |
vs_top=sup; |
vs_top=sup; |
3871 |
goto T1241; |
goto T1241; |
3872 |
goto T1234; |
goto T1234; |
3873 |
T1234:; |
T1234:; |
3874 |
V594= Cnil; |
V607= Cnil; |
3875 |
goto T1235; |
goto T1235; |
3876 |
T1235:; |
T1235:; |
3877 |
V595= Cnil; |
V608= Cnil; |
3878 |
goto T1236; |
goto T1236; |
3879 |
T1236:; |
T1236:; |
3880 |
V596= Cnil; |
V609= Cnil; |
3881 |
goto T1237; |
goto T1237; |
3882 |
T1237:; |
T1237:; |
3883 |
V597= Cnil; |
V610= Cnil; |
3884 |
goto T1238; |
goto T1238; |
3885 |
T1238:; |
T1238:; |
3886 |
V598= Cnil; |
V611= Cnil; |
3887 |
goto T1239; |
goto T1239; |
3888 |
T1239:; |
T1239:; |
3889 |
V599= Cnil; |
V612= Cnil; |
3890 |
goto T1240; |
goto T1240; |
3891 |
T1240:; |
T1240:; |
3892 |
V600= Cnil; |
V613= Cnil; |
3893 |
goto T1241; |
goto T1241; |
3894 |
T1241:; |
T1241:; |
3895 |
{object V601; |
{object V614; |
3896 |
{object V602; |
{object V615; |
3897 |
object V603= (V599); |
object V616= (V612); |
3898 |
if(V603==Cnil){ |
if(V616==Cnil){ |
3899 |
V601= Cnil; |
V614= Cnil; |
3900 |
goto T1242;} |
goto T1242;} |
3901 |
base[1]=V602=MMcons(Cnil,Cnil); |
base[1]=V615=MMcons(Cnil,Cnil); |
3902 |
goto T1243; |
goto T1243; |
3903 |
T1243:; |
T1243:; |
3904 |
(V602->c.c_car)= (*(LnkLI409))((V603->c.c_car)); |
(V615->c.c_car)= (*(LnkLI409))((V616->c.c_car)); |
3905 |
if((V603=MMcdr(V603))==Cnil){ |
if((V616=MMcdr(V616))==Cnil){ |
3906 |
V601= base[1]; |
V614= base[1]; |
3907 |
goto T1242;} |
goto T1242;} |
3908 |
V602=MMcdr(V602)=MMcons(Cnil,Cnil); |
V615=MMcdr(V615)=MMcons(Cnil,Cnil); |
3909 |
goto T1243;} |
goto T1243;} |
3910 |
goto T1242; |
goto T1242; |
3911 |
T1242:; |
T1242:; |
3912 |
base[2]= (V594); |
base[2]= (V607); |
3913 |
base[3]= VV[223]; |
base[3]= VV[223]; |
3914 |
base[4]= Ct; |
base[4]= Ct; |
3915 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
3916 |
Lmake_list(); |
Lmake_list(); |
3917 |
vs_top=sup; |
vs_top=sup; |
3918 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
3919 |
if(!(number_compare(small_fixnum(0),(V595))<0)){ |
if(!(number_compare(small_fixnum(0),(V608))<0)){ |
3920 |
goto T1252;} |
goto T1252;} |
3921 |
base[3]= (V595); |
base[3]= (V608); |
3922 |
base[4]= VV[223]; |
base[4]= VV[223]; |
3923 |
base[5]= Ct; |
base[5]= Ct; |
3924 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
3925 |
Lmake_list(); |
Lmake_list(); |
3926 |
vs_top=sup; |
vs_top=sup; |
3927 |
V605= vs_base[0]; |
V618= vs_base[0]; |
3928 |
base[2]= append(VV[224],V605); |
base[2]= append(VV[224],V618); |
3929 |
goto T1250; |
goto T1250; |
3930 |
goto T1252; |
goto T1252; |
3931 |
T1252:; |
T1252:; |
3932 |
base[2]= Cnil; |
base[2]= Cnil; |
3933 |
goto T1250; |
goto T1250; |
3934 |
T1250:; |
T1250:; |
3935 |
if(((V597))==Cnil){ |
if(((V610))==Cnil){ |
3936 |
goto T1260;} |
goto T1260;} |
3937 |
base[3]= VV[225]; |
base[3]= VV[225]; |
3938 |
goto T1258; |
goto T1258; |
3941 |
base[3]= Cnil; |
base[3]= Cnil; |
3942 |
goto T1258; |
goto T1258; |
3943 |
T1258:; |
T1258:; |
3944 |
if(((V596))==Cnil){ |
if(((V609))==Cnil){ |
3945 |
goto T1264;} |
goto T1264;} |
3946 |
base[5]= VV[226]; |
base[5]= VV[226]; |
3947 |
{object V606; |
{object V619; |
3948 |
object V607= (V601); |
object V620= (V614); |
3949 |
if(V607==Cnil){ |
if(V620==Cnil){ |
3950 |
base[6]= Cnil; |
base[6]= Cnil; |
3951 |
goto T1267;} |
goto T1267;} |
3952 |
base[7]=V606=MMcons(Cnil,Cnil); |
base[7]=V619=MMcons(Cnil,Cnil); |
3953 |
goto T1268; |
goto T1268; |
3954 |
T1268:; |
T1268:; |
3955 |
(V606->c.c_car)= list(2,(V607->c.c_car),Ct); |
(V619->c.c_car)= list(2,(V620->c.c_car),Ct); |
3956 |
if((V607=MMcdr(V607))==Cnil){ |
if((V620=MMcdr(V620))==Cnil){ |
3957 |
base[6]= base[7]; |
base[6]= base[7]; |
3958 |
goto T1267;} |
goto T1267;} |
3959 |
V606=MMcdr(V606)=MMcons(Cnil,Cnil); |
V619=MMcdr(V619)=MMcons(Cnil,Cnil); |
3960 |
goto T1268;} |
goto T1268;} |
3961 |
goto T1267; |
goto T1267; |
3962 |
T1267:; |
T1267:; |
3963 |
if(((V598))==Cnil){ |
if(((V611))==Cnil){ |
3964 |
goto T1272;} |
goto T1272;} |
3965 |
base[7]= VV[227]; |
base[7]= VV[227]; |
3966 |
goto T1270; |
goto T1270; |
3982 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
3983 |
Lappend(); |
Lappend(); |
3984 |
vs_top=sup; |
vs_top=sup; |
3985 |
V604= vs_base[0]; |
V617= vs_base[0]; |
3986 |
{object V609 = list(3,VV[34],V604,VV[228]); |
{object V622 = list(3,VV[34],V617,VV[228]); |
3987 |
VMR56(V609)}}} |
VMR56(V622)}}} |
3988 |
base[0]=base[0]; |
base[0]=base[0]; |
3989 |
return Cnil; |
return Cnil; |
3990 |
} |
} |
3991 |
/* local entry for function PROCLAIM-DEFGENERIC */ |
/* local entry for function PROCLAIM-DEFGENERIC */ |
3992 |
|
|
3993 |
static object LI67(V612,V613) |
static object LI67(V625,V626) |
3994 |
|
|
3995 |
register object V612;object V613; |
register object V625;object V626; |
3996 |
{ VMB57 VMS57 VMV57 |
{ VMB57 VMS57 VMV57 |
3997 |
goto TTL; |
goto TTL; |
3998 |
TTL:; |
TTL:; |
3999 |
if(!(type_of((V612))==t_cons)){ |
if(!(type_of((V625))==t_cons)){ |
4000 |
goto T1274;} |
goto T1274;} |
4001 |
V612= (*(LnkLI410))(CMPcadr((V612))); |
V625= (*(LnkLI410))(CMPcadr((V625))); |
4002 |
goto T1274; |
goto T1274; |
4003 |
T1274:; |
T1274:; |
4004 |
{object V614 = sputprop((V612),VV[229],Ct); |
{object V627 = sputprop((V625),VV[229],Ct); |
4005 |
VMR57(V614)} |
VMR57(V627)} |
4006 |
return Cnil; |
return Cnil; |
4007 |
} |
} |
4008 |
/* function definition for ENSURE-GENERIC-FUNCTION */ |
/* function definition for ENSURE-GENERIC-FUNCTION */ |
4011 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4012 |
register object *sup=base+VM58; VC58 |
register object *sup=base+VM58; VC58 |
4013 |
vs_check; |
vs_check; |
4014 |
{register object V615; |
{register object V628; |
4015 |
object V616; |
object V629; |
4016 |
object V617; |
object V630; |
4017 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
4018 |
parse_key(vs_base+1,TRUE,TRUE,1,VV[295]); |
parse_key(vs_base+1,TRUE,TRUE,1,VV[295]); |
4019 |
V615=(base[0]); |
V628=(base[0]); |
4020 |
vs_top=sup; |
vs_top=sup; |
4021 |
V616=(base[1]); |
V629=(base[1]); |
4022 |
V617=(base[2]); |
V630=(base[2]); |
4023 |
{object V618; |
{object V631; |
4024 |
if(((*(LnkLI355))((V615)))!=Cnil){ |
if(((*(LnkLI355))((V628)))!=Cnil){ |
4025 |
goto T1279;} |
goto T1279;} |
4026 |
V618= Cnil; |
V631= Cnil; |
4027 |
goto T1278; |
goto T1278; |
4028 |
goto T1279; |
goto T1279; |
4029 |
T1279:; |
T1279:; |
4030 |
V618= (*(LnkLI356))((V615)); |
V631= (*(LnkLI356))((V628)); |
4031 |
goto T1278; |
goto T1278; |
4032 |
T1278:; |
T1278:; |
4033 |
if(((V618))==Cnil){ |
if(((V631))==Cnil){ |
4034 |
goto T1282;} |
goto T1282;} |
4035 |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
4036 |
goto T1282;} |
goto T1282;} |
4037 |
base[4]= (V618); |
base[4]= (V631); |
4038 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4039 |
(void) (*Lnk357)(Lclptr357); |
(void) (*Lnk357)(Lclptr357); |
4040 |
vs_top=sup; |
vs_top=sup; |
4041 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
4042 |
goto T1282;} |
goto T1282;} |
4043 |
base[4]= (*(LnkLI411))((V615)); |
base[4]= (*(LnkLI411))((V628)); |
4044 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4045 |
return; |
return; |
4046 |
goto T1282; |
goto T1282; |
4047 |
T1282:; |
T1282:; |
4048 |
base[4]=VV[412]->s.s_gfdef; |
base[4]=VV[412]->s.s_gfdef; |
4049 |
base[5]= (V618); |
base[5]= (V631); |
4050 |
base[6]= (V615); |
base[6]= (V628); |
4051 |
{object V619; |
{object V632; |
4052 |
V619= (V616); |
V632= (V629); |
4053 |
vs_top=base+7; |
vs_top=base+7; |
4054 |
while(V619!=Cnil) |
while(V632!=Cnil) |
4055 |
{vs_push((V619)->c.c_car);V619=(V619)->c.c_cdr;} |
{vs_push((V632)->c.c_car);V632=(V632)->c.c_cdr;} |
4056 |
vs_base=base+5;} |
vs_base=base+5;} |
4057 |
funcall(base[4]); |
funcall(base[4]); |
4058 |
return;} |
return;} |
4060 |
} |
} |
4061 |
/* local entry for function GENERIC-CLOBBERS-FUNCTION */ |
/* local entry for function GENERIC-CLOBBERS-FUNCTION */ |
4062 |
|
|
4063 |
static object LI69(V621) |
static object LI69(V634) |
4064 |
|
|
4065 |
object V621; |
object V634; |
4066 |
{ VMB59 VMS59 VMV59 |
{ VMB59 VMS59 VMV59 |
4067 |
goto TTL; |
goto TTL; |
4068 |
TTL:; |
TTL:; |
4069 |
base[0]= VV[230]; |
base[0]= VV[230]; |
4070 |
base[1]= (V621); |
base[1]= (V634); |
4071 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4072 |
Lerror(); |
Lerror(); |
4073 |
vs_top=sup; |
vs_top=sup; |
4074 |
{object V622 = vs_base[0]; |
{object V635 = vs_base[0]; |
4075 |
VMR59(V622)} |
VMR59(V635)} |
4076 |
base[0]=base[0]; |
base[0]=base[0]; |
4077 |
return Cnil; |
return Cnil; |
4078 |
} |
} |
4079 |
/* local entry for function EARLY-GF-P */ |
/* local entry for function EARLY-GF-P */ |
4080 |
|
|
4081 |
static object LI70(V624) |
static object LI70(V637) |
4082 |
|
|
4083 |
register object V624; |
register object V637; |
4084 |
{ VMB60 VMS60 VMV60 |
{ VMB60 VMS60 VMV60 |
4085 |
goto TTL; |
goto TTL; |
4086 |
TTL:;{object V625; |
TTL:;{object V638; |
4087 |
V625= (VV[147]->s.s_dbind); |
V638= (VV[147]->s.s_dbind); |
4088 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
4089 |
base[1]= (V624); |
base[1]= (V637); |
4090 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4091 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
4092 |
vs_top=sup; |
vs_top=sup; |
4093 |
V626= vs_base[0]; |
V639= vs_base[0]; |
4094 |
if((V625)==(CMPcar(V626))){ |
if((V638)==(CMPcar(V639))){ |
4095 |
goto T1294;}} |
goto T1294;}} |
4096 |
{object V627 = Cnil; |
{object V640 = Cnil; |
4097 |
VMR60(V627)} |
VMR60(V640)} |
4098 |
goto T1294; |
goto T1294; |
4099 |
T1294:; |
T1294:; |
4100 |
if(type_of(V624)==t_structure){ |
if(type_of(V637)==t_structure){ |
4101 |
goto T1303;} |
goto T1303;} |
4102 |
goto T1301; |
goto T1301; |
4103 |
goto T1303; |
goto T1303; |
4104 |
T1303:; |
T1303:; |
4105 |
if(!(((V624)->str.str_def)==(VV[231]))){ |
if(!(((V637)->str.str_def)==(VV[231]))){ |
4106 |
goto T1301;} |
goto T1301;} |
4107 |
V628= STREF(object,(V624),4); |
V641= STREF(object,(V637),4); |
4108 |
goto T1299; |
goto T1299; |
4109 |
goto T1301; |
goto T1301; |
4110 |
T1301:;{object V630; |
T1301:;{object V643; |
4111 |
V630= (VV[147]->s.s_dbind); |
V643= (VV[147]->s.s_dbind); |
4112 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
4113 |
base[1]= (V624); |
base[1]= (V637); |
4114 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4115 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
4116 |
vs_top=sup; |
vs_top=sup; |
4117 |
V631= vs_base[0]; |
V644= vs_base[0]; |
4118 |
if(!((V630)==(CMPcar(V631)))){ |
if(!((V643)==(CMPcar(V644)))){ |
4119 |
goto T1306;}} |
goto T1306;}} |
4120 |
V628= CMPcar(((V624))->cc.cc_turbo[12]); |
V641= CMPcar(((V637))->cc.cc_turbo[12]); |
4121 |
goto T1299; |
goto T1299; |
4122 |
goto T1306; |
goto T1306; |
4123 |
T1306:; |
T1306:; |
4125 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4126 |
Lerror(); |
Lerror(); |
4127 |
vs_top=sup; |
vs_top=sup; |
4128 |
V628= vs_base[0]; |
V641= vs_base[0]; |
4129 |
goto T1299; |
goto T1299; |
4130 |
T1299:; |
T1299:; |
4131 |
{object V632 = (((V628)->v.v_self[fix((VV[232]->s.s_dbind))])==((VV[132]->s.s_dbind))?Ct:Cnil); |
V645 = (VV[232]->s.s_dbind); |
4132 |
VMR60(V632)} |
{object V646 = (((V641)->v.v_self[fix(V645)])==((VV[132]->s.s_dbind))?Ct:Cnil); |
4133 |
|
VMR60(V646)} |
4134 |
base[0]=base[0]; |
base[0]=base[0]; |
4135 |
return Cnil; |
return Cnil; |
4136 |
} |
} |
4142 |
vs_check; |
vs_check; |
4143 |
check_arg(2); |
check_arg(2); |
4144 |
vs_top=sup; |
vs_top=sup; |
4145 |
{object V633=base[0]->c.c_cdr; |
{object V647=base[0]->c.c_cdr; |
4146 |
if(endp(V633))invalid_macro_call(); |
if(endp(V647))invalid_macro_call(); |
4147 |
base[2]= (V633->c.c_car); |
base[2]= (V647->c.c_car); |
4148 |
V633=V633->c.c_cdr; |
V647=V647->c.c_cdr; |
4149 |
if(!endp(V633))invalid_macro_call();} |
if(!endp(V647))invalid_macro_call();} |
4150 |
base[3]= list(3,VV[233],list(2,VV[234],base[2]),VV[235]); |
base[3]= list(3,VV[233],list(2,VV[234],base[2]),VV[235]); |
4151 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4152 |
return; |
return; |
4159 |
vs_check; |
vs_check; |
4160 |
check_arg(2); |
check_arg(2); |
4161 |
vs_top=sup; |
vs_top=sup; |
4162 |
{object V634=base[0]->c.c_cdr; |
{object V648=base[0]->c.c_cdr; |
4163 |
if(endp(V634))invalid_macro_call(); |
if(endp(V648))invalid_macro_call(); |
4164 |
base[2]= (V634->c.c_car); |
base[2]= (V648->c.c_car); |
4165 |
V634=V634->c.c_cdr; |
V648=V648->c.c_cdr; |
4166 |
if(!endp(V634))invalid_macro_call();} |
if(!endp(V648))invalid_macro_call();} |
4167 |
base[3]= list(3,VV[233],list(2,VV[234],base[2]),VV[236]); |
base[3]= list(3,VV[233],list(2,VV[234],base[2]),VV[236]); |
4168 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4169 |
return; |
return; |
4174 |
{ |
{ |
4175 |
va_list ap; |
va_list ap; |
4176 |
int narg = VFUN_NARGS; VMB63 VMS63 VMV63 |
int narg = VFUN_NARGS; VMB63 VMS63 VMV63 |
4177 |
{object V635; |
{object V649; |
4178 |
object V636; |
object V650; |
4179 |
object V637; |
object V651; |
4180 |
object V638; |
object V652; |
4181 |
object V639; |
object V653; |
4182 |
object V640; |
object V654; |
4183 |
object V641; |
object V655; |
4184 |
object V642; |
object V656; |
4185 |
object V643; |
object V657; |
4186 |
object V644; |
object V658; |
4187 |
object V645; |
object V659; |
4188 |
va_start(ap,first); |
va_start(ap,first); |
4189 |
narg= narg - 0; |
narg= narg - 0; |
4190 |
{ |
{ |
4191 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI73key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI73key,first,ap); |
4192 |
V635=(Vcs[0]); |
V649=(Vcs[0]); |
4193 |
V636=(Vcs[1]); |
V650=(Vcs[1]); |
4194 |
V637=(Vcs[2]); |
V651=(Vcs[2]); |
4195 |
V638=(Vcs[3]); |
V652=(Vcs[3]); |
4196 |
V639=(Vcs[4]); |
V653=(Vcs[4]); |
4197 |
V640=(Vcs[5]); |
V654=(Vcs[5]); |
4198 |
V641=(Vcs[6]); |
V655=(Vcs[6]); |
4199 |
V642=(Vcs[7]); |
V656=(Vcs[7]); |
4200 |
V643=(Vcs[8]); |
V657=(Vcs[8]); |
4201 |
if(Vcs[9]==0){ |
if(Vcs[9]==0){ |
4202 |
V644= Ct; |
V658= Ct; |
4203 |
}else{ |
}else{ |
4204 |
V644=(Vcs[9]);} |
V658=(Vcs[9]);} |
4205 |
V645=(Vcs[10]); |
V659=(Vcs[10]); |
4206 |
base[0]= VV[238]; |
base[0]= VV[238]; |
4207 |
base[1]= (V635); |
base[1]= (V649); |
4208 |
base[2]= (V636); |
base[2]= (V650); |
4209 |
base[3]= (V637); |
base[3]= (V651); |
4210 |
base[4]= (V638); |
base[4]= (V652); |
4211 |
base[5]= (V639); |
base[5]= (V653); |
4212 |
base[6]= (V640); |
base[6]= (V654); |
4213 |
base[7]= (V641); |
base[7]= (V655); |
4214 |
base[8]= (V642); |
base[8]= (V656); |
4215 |
base[9]= (V643); |
base[9]= (V657); |
4216 |
base[10]= (V644); |
base[10]= (V658); |
4217 |
base[11]= (V645); |
base[11]= (V659); |
4218 |
vs_top=(vs_base=base+0)+12; |
vs_top=(vs_base=base+0)+12; |
4219 |
siLmake_structure(); |
siLmake_structure(); |
4220 |
vs_top=sup; |
vs_top=sup; |
4221 |
{object V646 = vs_base[0]; |
{object V660 = vs_base[0]; |
4222 |
VMR63(V646)} |
VMR63(V660)} |
4223 |
va_end(ap); |
va_end(ap); |
4224 |
base[0]=base[0]; |
base[0]=base[0]; |
4225 |
return Cnil;} |
return Cnil;} |
4246 |
vs_top=(vs_base=base+0)+12; |
vs_top=(vs_base=base+0)+12; |
4247 |
siLmake_structure(); |
siLmake_structure(); |
4248 |
vs_top=sup; |
vs_top=sup; |
4249 |
{object V658 = vs_base[0]; |
{object V672 = vs_base[0]; |
4250 |
VMR64(V658)} |
VMR64(V672)} |
4251 |
base[0]=base[0]; |
base[0]=base[0]; |
4252 |
return Cnil; |
return Cnil; |
4253 |
} |
} |
4254 |
/* local entry for function ARG-INFO-VALID-P */ |
/* local entry for function ARG-INFO-VALID-P */ |
4255 |
|
|
4256 |
static object LI75(V660) |
static object LI75(V674) |
4257 |
|
|
4258 |
object V660; |
object V674; |
4259 |
{ VMB65 VMS65 VMV65 |
{ VMB65 VMS65 VMV65 |
4260 |
goto TTL; |
goto TTL; |
4261 |
TTL:; |
TTL:; |
4262 |
{object V661 = ((((STREF(object,(V660),12))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
{object V675 = ((((STREF(object,(V674),12))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
4263 |
VMR65(V661)} |
VMR65(V675)} |
4264 |
return Cnil; |
return Cnil; |
4265 |
} |
} |
4266 |
/* local entry for function ARG-INFO-APPLYP */ |
/* local entry for function ARG-INFO-APPLYP */ |
4267 |
|
|
4268 |
static object LI76(V663) |
static object LI76(V677) |
4269 |
|
|
4270 |
object V663; |
object V677; |
4271 |
{ VMB66 VMS66 VMV66 |
{ VMB66 VMS66 VMV66 |
4272 |
goto TTL; |
goto TTL; |
4273 |
TTL:; |
TTL:; |
4274 |
if(!((fix(STREF(object,(V663),12)))>0)){ |
if(!((fix(STREF(object,(V677),12)))>0)){ |
4275 |
goto T1337;} |
goto T1337;} |
4276 |
{object V664 = Ct; |
{object V678 = Ct; |
4277 |
VMR66(V664)} |
VMR66(V678)} |
4278 |
goto T1337; |
goto T1337; |
4279 |
T1337:; |
T1337:; |
4280 |
{object V665 = STREF(object,(V663),16); |
{object V679 = STREF(object,(V677),16); |
4281 |
VMR66(V665)} |
VMR66(V679)} |
4282 |
return Cnil; |
return Cnil; |
4283 |
} |
} |
4284 |
/* local entry for function ARG-INFO-NUMBER-REQUIRED */ |
/* local entry for function ARG-INFO-NUMBER-REQUIRED */ |
4285 |
|
|
4286 |
static object LI77(V667) |
static object LI77(V681) |
4287 |
|
|
4288 |
object V667; |
object V681; |
4289 |
{ VMB67 VMS67 VMV67 |
{ VMB67 VMS67 VMV67 |
4290 |
goto TTL; |
goto TTL; |
4291 |
TTL:; |
TTL:; |
4292 |
{long V668 = (long)length(STREF(object,(V667),8)); |
{long V682 = (long)length(STREF(object,(V681),8)); |
4293 |
VMR67((object)V668)} |
VMR67((object)V682)} |
4294 |
} |
} |
4295 |
/* local entry for function ARG-INFO-NKEYS */ |
/* local entry for function ARG-INFO-NKEYS */ |
4296 |
|
|
4297 |
static object LI78(V670) |
static object LI78(V684) |
4298 |
|
|
4299 |
object V670; |
object V684; |
4300 |
{ VMB68 VMS68 VMV68 |
{ VMB68 VMS68 VMV68 |
4301 |
goto TTL; |
goto TTL; |
4302 |
TTL:; |
TTL:; |
4303 |
base[0]= VV[424]; |
base[0]= VV[424]; |
4304 |
base[1]= STREF(object,(V670),8); |
base[1]= STREF(object,(V684),8); |
4305 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4306 |
(void) (*Lnk425)(); |
(void) (*Lnk425)(); |
4307 |
vs_top=sup; |
vs_top=sup; |
4308 |
{object V671 = vs_base[0]; |
{object V685 = vs_base[0]; |
4309 |
VMR68(V671)} |
VMR68(V685)} |
4310 |
base[0]=base[0]; |
base[0]=base[0]; |
4311 |
return Cnil; |
return Cnil; |
4312 |
} |
} |
4318 |
vs_check; |
vs_check; |
4319 |
check_arg(2); |
check_arg(2); |
4320 |
vs_top=sup; |
vs_top=sup; |
4321 |
{object V672=base[0]->c.c_cdr; |
{object V686=base[0]->c.c_cdr; |
4322 |
if(endp(V672))invalid_macro_call(); |
if(endp(V686))invalid_macro_call(); |
4323 |
base[2]= (V672->c.c_car); |
base[2]= (V686->c.c_car); |
4324 |
V672=V672->c.c_cdr; |
V686=V686->c.c_cdr; |
4325 |
if(endp(V672))invalid_macro_call(); |
if(endp(V686))invalid_macro_call(); |
4326 |
base[3]= (V672->c.c_car); |
base[3]= (V686->c.c_car); |
4327 |
V672=V672->c.c_cdr; |
V686=V686->c.c_cdr; |
4328 |
if(!endp(V672))invalid_macro_call();} |
if(!endp(V686))invalid_macro_call();} |
4329 |
{object V673; |
{object V687; |
4330 |
base[4]= VV[239]; |
base[4]= VV[239]; |
4331 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4332 |
Lgensym(); |
Lgensym(); |
4333 |
vs_top=sup; |
vs_top=sup; |
4334 |
V673= vs_base[0]; |
V687= vs_base[0]; |
4335 |
V674= list(2,(V673),base[3]); |
V688= list(2,(V687),base[3]); |
4336 |
V675= make_cons(/* INLINE-ARGS */V674,Cnil); |
V689= make_cons(/* INLINE-ARGS */V688,Cnil); |
4337 |
V676= list(3,VV[241],base[2],(V673)); |
V690= list(3,VV[241],base[2],(V687)); |
4338 |
base[4]= list(3,VV[96],/* INLINE-ARGS */V675,list(3,VV[240],/* INLINE-ARGS */V676,list(3,VV[30],base[2],(V673)))); |
base[4]= list(3,VV[96],/* INLINE-ARGS */V689,list(3,VV[240],/* INLINE-ARGS */V690,list(3,VV[30],base[2],(V687)))); |
4339 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4340 |
return;} |
return;} |
4341 |
} |
} |
4342 |
/* local entry for function SET-ARG-INFO */ |
/* local entry for function SET-ARG-INFO */ |
4343 |
|
|
4344 |
static object LI80(object V677,object first,...) |
static object LI80(object V691,object first,...) |
4345 |
{ |
{ |
4346 |
va_list ap; |
va_list ap; |
4347 |
int narg = VFUN_NARGS; VMB70 VMS70 VMV70 |
int narg = VFUN_NARGS; VMB70 VMS70 VMV70 |
4348 |
{register object V678; |
{register object V692; |
4349 |
object V679; |
object V693; |
4350 |
register object V680; |
register object V694; |
4351 |
register object V681; |
register object V695; |
4352 |
object V682; |
object V696; |
4353 |
va_start(ap,first); |
va_start(ap,first); |
4354 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
4355 |
V678= V677; |
V692= V691; |
4356 |
narg= narg - 1; |
narg= narg - 1; |
4357 |
{ |
{ |
4358 |
parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI80key,first,ap); |
parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI80key,first,ap); |
4359 |
V679=(Vcs[1]); |
V693=(Vcs[1]); |
4360 |
if(Vcs[2]==0){ |
if(Vcs[2]==0){ |
4361 |
V680= Cnil; |
V694= Cnil; |
4362 |
V681= Cnil; |
V695= Cnil; |
4363 |
}else{ |
}else{ |
4364 |
V680=(Vcs[2]); |
V694=(Vcs[2]); |
4365 |
V681= Ct;} |
V695= Ct;} |
4366 |
V682=(Vcs[3]); |
V696=(Vcs[3]); |
4367 |
{register object V683; |
{register object V697; |
4368 |
object V684; |
object V698; |
4369 |
object V685; |
object V699; |
4370 |
object V686; |
object V700; |
4371 |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
4372 |
goto T1346;} |
goto T1346;} |
4373 |
base[4]= (V678); |
base[4]= (V692); |
4374 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4375 |
(void) (*Lnk393)(Lclptr393); |
(void) (*Lnk393)(Lclptr393); |
4376 |
vs_top=sup; |
vs_top=sup; |
4377 |
V683= vs_base[0]; |
V697= vs_base[0]; |
4378 |
goto T1344; |
goto T1344; |
4379 |
goto T1346; |
goto T1346; |
4380 |
T1346:; |
T1346:; |
4381 |
if(type_of(V678)==t_structure){ |
if(type_of(V692)==t_structure){ |
4382 |
goto T1353;} |
goto T1353;} |
4383 |
goto T1351; |
goto T1351; |
4384 |
goto T1353; |
goto T1353; |
4385 |
T1353:; |
T1353:; |
4386 |
if(!(((V678)->str.str_def)==(VV[242]))){ |
if(!(((V692)->str.str_def)==(VV[242]))){ |
4387 |
goto T1351;} |
goto T1351;} |
4388 |
V687= STREF(object,(V678),4); |
V701= STREF(object,(V692),4); |
4389 |
goto T1349; |
goto T1349; |
4390 |
goto T1351; |
goto T1351; |
4391 |
T1351:;{object V689; |
T1351:;{object V703; |
4392 |
V689= (VV[147]->s.s_dbind); |
V703= (VV[147]->s.s_dbind); |
4393 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
4394 |
base[5]= (V678); |
base[5]= (V692); |
4395 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4396 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
4397 |
vs_top=sup; |
vs_top=sup; |
4398 |
V690= vs_base[0]; |
V704= vs_base[0]; |
4399 |
if(!((V689)==(CMPcar(V690)))){ |
if(!((V703)==(CMPcar(V704)))){ |
4400 |
goto T1356;}} |
goto T1356;}} |
4401 |
V687= CMPcar(((V678))->cc.cc_turbo[12]); |
V701= CMPcar(((V692))->cc.cc_turbo[12]); |
4402 |
goto T1349; |
goto T1349; |
4403 |
goto T1356; |
goto T1356; |
4404 |
T1356:; |
T1356:; |
4406 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4407 |
Lerror(); |
Lerror(); |
4408 |
vs_top=sup; |
vs_top=sup; |
4409 |
V687= vs_base[0]; |
V701= vs_base[0]; |
4410 |
goto T1349; |
goto T1349; |
4411 |
T1349:; |
T1349:; |
4412 |
V683= (V687)->v.v_self[fix((VV[236]->s.s_dbind))]; |
V705 = (VV[236]->s.s_dbind); |
4413 |
|
V697= (V701)->v.v_self[fix(V705)]; |
4414 |
goto T1344; |
goto T1344; |
4415 |
T1344:; |
T1344:; |
4416 |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
4417 |
goto T1364;} |
goto T1364;} |
4418 |
base[4]= (V678); |
base[4]= (V692); |
4419 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4420 |
(void) (*Lnk426)(Lclptr426); |
(void) (*Lnk426)(Lclptr426); |
4421 |
vs_top=sup; |
vs_top=sup; |
4422 |
V684= vs_base[0]; |
V698= vs_base[0]; |
4423 |
goto T1362; |
goto T1362; |
4424 |
goto T1364; |
goto T1364; |
4425 |
T1364:; |
T1364:; |
4426 |
if(type_of(V678)==t_structure){ |
if(type_of(V692)==t_structure){ |
4427 |
goto T1371;} |
goto T1371;} |
4428 |
goto T1369; |
goto T1369; |
4429 |
goto T1371; |
goto T1371; |
4430 |
T1371:; |
T1371:; |
4431 |
if(!(((V678)->str.str_def)==(VV[243]))){ |
if(!(((V692)->str.str_def)==(VV[243]))){ |
4432 |
goto T1369;} |
goto T1369;} |
4433 |
V691= STREF(object,(V678),4); |
V706= STREF(object,(V692),4); |
4434 |
goto T1367; |
goto T1367; |
4435 |
goto T1369; |
goto T1369; |
4436 |
T1369:;{object V693; |
T1369:;{object V708; |
4437 |
V693= (VV[147]->s.s_dbind); |
V708= (VV[147]->s.s_dbind); |
4438 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
4439 |
base[5]= (V678); |
base[5]= (V692); |
4440 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4441 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
4442 |
vs_top=sup; |
vs_top=sup; |
4443 |
V694= vs_base[0]; |
V709= vs_base[0]; |
4444 |
if(!((V693)==(CMPcar(V694)))){ |
if(!((V708)==(CMPcar(V709)))){ |
4445 |
goto T1374;}} |
goto T1374;}} |
4446 |
V691= CMPcar(((V678))->cc.cc_turbo[12]); |
V706= CMPcar(((V692))->cc.cc_turbo[12]); |
4447 |
goto T1367; |
goto T1367; |
4448 |
goto T1374; |
goto T1374; |
4449 |
T1374:; |
T1374:; |
4451 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4452 |
Lerror(); |
Lerror(); |
4453 |
vs_top=sup; |
vs_top=sup; |
4454 |
V691= vs_base[0]; |
V706= vs_base[0]; |
4455 |
goto T1367; |
goto T1367; |
4456 |
T1367:; |
T1367:; |
4457 |
V684= (V691)->v.v_self[fix((VV[235]->s.s_dbind))]; |
V710 = (VV[235]->s.s_dbind); |
4458 |
|
V698= (V706)->v.v_self[fix(V710)]; |
4459 |
goto T1362; |
goto T1362; |
4460 |
T1362:; |
T1362:; |
4461 |
{object V695= STREF(object,(V683),12); |
{object V711= STREF(object,(V697),12); |
4462 |
V685= (type_of(V695)==t_fixnum||type_of(V695)==t_bignum?Ct:Cnil);} |
V699= (type_of(V711)==t_fixnum||type_of(V711)==t_bignum?Ct:Cnil);} |
4463 |
if((V679)==Cnil){ |
if((V693)==Cnil){ |
4464 |
V686= Cnil; |
V700= Cnil; |
4465 |
goto T1381;} |
goto T1381;} |
4466 |
V686= ((CMPcdr((V684)))==Cnil?Ct:Cnil); |
V700= ((CMPcdr((V698)))==Cnil?Ct:Cnil); |
4467 |
goto T1381; |
goto T1381; |
4468 |
T1381:; |
T1381:; |
4469 |
if(((V681))!=Cnil){ |
if(((V695))!=Cnil){ |
4470 |
goto T1382;} |
goto T1382;} |
4471 |
if(((V684))==Cnil){ |
if(((V698))==Cnil){ |
4472 |
goto T1382;} |
goto T1382;} |
4473 |
V680= (*(LnkLI427))((V678)); |
V694= (*(LnkLI427))((V692)); |
4474 |
goto T1382; |
goto T1382; |
4475 |
T1382:; |
T1382:; |
4476 |
if(((V681))!=Cnil){ |
if(((V695))!=Cnil){ |
4477 |
goto T1389;} |
goto T1389;} |
4478 |
if(((V686))==Cnil){ |
if(((V700))==Cnil){ |
4479 |
goto T1388;} |
goto T1388;} |
4480 |
if(!((STREF(object,(V683),0))==(VV[237]))){ |
if(!((STREF(object,(V697),0))==(VV[237]))){ |
4481 |
goto T1388;} |
goto T1388;} |
4482 |
goto T1389; |
goto T1389; |
4483 |
T1389:; |
T1389:; |
4484 |
{object V696; |
{object V712; |
4485 |
object V697; |
object V713; |
4486 |
object V698; |
object V714; |
4487 |
object V699; |
object V715; |
4488 |
object V700; |
object V716; |
4489 |
object V701; |
object V717; |
4490 |
base[4]= (V680); |
base[4]= (V694); |
4491 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4492 |
(void) (*Lnk408)(); |
(void) (*Lnk408)(); |
4493 |
if(vs_base>=vs_top){vs_top=sup;goto T1397;} |
if(vs_base>=vs_top){vs_top=sup;goto T1397;} |
4494 |
V696= vs_base[0]; |
V712= vs_base[0]; |
4495 |
vs_base++; |
vs_base++; |
4496 |
if(vs_base>=vs_top){vs_top=sup;goto T1398;} |
if(vs_base>=vs_top){vs_top=sup;goto T1398;} |
4497 |
V697= vs_base[0]; |
V713= vs_base[0]; |
4498 |
vs_base++; |
vs_base++; |
4499 |
if(vs_base>=vs_top){vs_top=sup;goto T1399;} |
if(vs_base>=vs_top){vs_top=sup;goto T1399;} |
4500 |
V698= vs_base[0]; |
V714= vs_base[0]; |
4501 |
vs_base++; |
vs_base++; |
4502 |
if(vs_base>=vs_top){vs_top=sup;goto T1400;} |
if(vs_base>=vs_top){vs_top=sup;goto T1400;} |
4503 |
V699= vs_base[0]; |
V715= vs_base[0]; |
4504 |
vs_base++; |
vs_base++; |
4505 |
if(vs_base>=vs_top){vs_top=sup;goto T1401;} |
if(vs_base>=vs_top){vs_top=sup;goto T1401;} |
4506 |
V700= vs_base[0]; |
V716= vs_base[0]; |
4507 |
vs_base++; |
vs_base++; |
4508 |
if(vs_base>=vs_top){vs_top=sup;goto T1402;} |
if(vs_base>=vs_top){vs_top=sup;goto T1402;} |
4509 |
V701= vs_base[0]; |
V717= vs_base[0]; |
4510 |
vs_top=sup; |
vs_top=sup; |
4511 |
goto T1403; |
goto T1403; |
4512 |
goto T1397; |
goto T1397; |
4513 |
T1397:; |
T1397:; |
4514 |
V696= Cnil; |
V712= Cnil; |
4515 |
goto T1398; |
goto T1398; |
4516 |
T1398:; |
T1398:; |
4517 |
V697= Cnil; |
V713= Cnil; |
4518 |
goto T1399; |
goto T1399; |
4519 |
T1399:; |
T1399:; |
4520 |
V698= Cnil; |
V714= Cnil; |
4521 |
goto T1400; |
goto T1400; |
4522 |
T1400:; |
T1400:; |
4523 |
V699= Cnil; |
V715= Cnil; |
4524 |
goto T1401; |
goto T1401; |
4525 |
T1401:; |
T1401:; |
4526 |
V700= Cnil; |
V716= Cnil; |
4527 |
goto T1402; |
goto T1402; |
4528 |
T1402:; |
T1402:; |
4529 |
V701= Cnil; |
V717= Cnil; |
4530 |
goto T1403; |
goto T1403; |
4531 |
T1403:; |
T1403:; |
4532 |
if(((V684))==Cnil){ |
if(((V698))==Cnil){ |
4533 |
goto T1404;} |
goto T1404;} |
4534 |
if(((V686))!=Cnil){ |
if(((V700))!=Cnil){ |
4535 |
goto T1404;} |
goto T1404;} |
4536 |
{object V702; |
{object V718; |
4537 |
object V703; |
object V719; |
4538 |
object V704; |
object V720; |
4539 |
V702= CMPmake_fixnum((long)(*(LnkLI394))((V683))); |
V718= CMPmake_fixnum((long)(*(LnkLI394))((V697))); |
4540 |
V703= STREF(object,(V683),12); |
V719= STREF(object,(V697),12); |
4541 |
V704= STREF(object,(V683),16); |
V720= STREF(object,(V697),16); |
4542 |
if(!(number_compare((V696),(V702))==0)){ |
if(!(number_compare((V712),(V718))==0)){ |
4543 |
goto T1412;} |
goto T1412;} |
4544 |
if(!(number_compare((V697),(V703))==0)){ |
if(!(number_compare((V713),(V719))==0)){ |
4545 |
goto T1412;} |
goto T1412;} |
4546 |
if((V698)!=Cnil){ |
if((V714)!=Cnil){ |
4547 |
V705= (V698); |
V721= (V714); |
4548 |
goto T1418;} |
goto T1418;} |
4549 |
V705= (V699); |
V721= (V715); |
4550 |
goto T1418; |
goto T1418; |
4551 |
T1418:; |
T1418:; |
4552 |
if((V705)==((V704))){ |
V722 = (V720); |
4553 |
|
if((V721)==(V722)){ |
4554 |
goto T1404;} |
goto T1404;} |
4555 |
goto T1412; |
goto T1412; |
4556 |
T1412:; |
T1412:; |
4557 |
base[4]= VV[244]; |
base[4]= VV[244]; |
4558 |
base[5]= (V680); |
base[5]= (V694); |
4559 |
base[6]= (V678); |
base[6]= (V692); |
4560 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
4561 |
Lerror(); |
Lerror(); |
4562 |
vs_top=sup;} |
vs_top=sup;} |
4563 |
goto T1404; |
goto T1404; |
4564 |
T1404:; |
T1404:; |
4565 |
if(((V681))==Cnil){ |
if(((V695))==Cnil){ |
4566 |
goto T1422;} |
goto T1422;} |
4567 |
if(equal(STREF(object,(V683),0),V680)){ |
if(equal(STREF(object,(V697),0),V694)){ |
4568 |
goto T1422;} |
goto T1422;} |
4569 |
V707= Ct; |
V724 = (V697); |
4570 |
STSET(object,(V683),0, V680); |
V725 = V694; |
4571 |
(void)(V680); |
V726= Ct; |
4572 |
|
STSET(object,V724,0, V725); |
4573 |
|
(void)(V725); |
4574 |
goto T1422; |
goto T1422; |
4575 |
T1422:; |
T1422:; |
4576 |
if(((V681))!=Cnil){ |
if(((V695))!=Cnil){ |
4577 |
goto T1428;} |
goto T1428;} |
4578 |
if(((V682))!=Cnil){ |
if(((V696))!=Cnil){ |
4579 |
goto T1428;} |
goto T1428;} |
4580 |
if((STREF(object,(V683),4))!=Cnil){ |
if((STREF(object,(V697),4))!=Cnil){ |
4581 |
goto T1427;} |
goto T1427;} |
4582 |
goto T1428; |
goto T1428; |
4583 |
T1428:; |
T1428:; |
4584 |
{object V708; |
{object V727; |
4585 |
V708= (*(LnkLI428))((V680),(V696),(V682)); |
V727= (*(LnkLI428))((V694),(V712),(V696)); |
4586 |
if(equal(STREF(object,(V683),4),(V708))){ |
if(equal(STREF(object,(V697),4),(V727))){ |
4587 |
goto T1427;} |
goto T1427;} |
4588 |
V709= Ct; |
V728 = (V697); |
4589 |
STSET(object,(V683),4, (V708)); |
V729 = (V727); |
4590 |
(void)((V708));} |
V730= Ct; |
4591 |
|
STSET(object,V728,4, V729); |
4592 |
|
(void)(V729);} |
4593 |
goto T1427; |
goto T1427; |
4594 |
T1427:; |
T1427:; |
4595 |
{object V710; |
{object V731; |
4596 |
base[4]= (V696); |
base[4]= (V712); |
4597 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4598 |
Lmake_list(); |
Lmake_list(); |
4599 |
vs_top=sup; |
vs_top=sup; |
4600 |
V710= vs_base[0]; |
V731= vs_base[0]; |
4601 |
if(equal(STREF(object,(V683),8),(V710))){ |
if(equal(STREF(object,(V697),8),(V731))){ |
4602 |
goto T1437;} |
goto T1437;} |
4603 |
V711= Ct; |
V732 = (V697); |
4604 |
STSET(object,(V683),8, (V710)); |
V733 = (V731); |
4605 |
(void)((V710));} |
V734= Ct; |
4606 |
|
STSET(object,V732,8, V733); |
4607 |
|
(void)(V733);} |
4608 |
goto T1437; |
goto T1437; |
4609 |
T1437:; |
T1437:; |
4610 |
if(equal(STREF(object,(V683),12),V697)){ |
if(equal(STREF(object,(V697),12),V713)){ |
4611 |
goto T1442;} |
goto T1442;} |
4612 |
V713= Ct; |
V736 = (V697); |
4613 |
STSET(object,(V683),12, V697); |
V737 = V713; |
4614 |
(void)(V697); |
V738= Ct; |
4615 |
|
STSET(object,V736,12, V737); |
4616 |
|
(void)(V737); |
4617 |
goto T1442; |
goto T1442; |
4618 |
T1442:; |
T1442:; |
4619 |
{object V714; |
{object V739; |
4620 |
if((V698)!=Cnil){ |
if((V714)!=Cnil){ |
4621 |
V715= (V698); |
V740= (V714); |
4622 |
goto T1447;} |
goto T1447;} |
4623 |
V715= (V699); |
V740= (V715); |
4624 |
goto T1447; |
goto T1447; |
4625 |
T1447:; |
T1447:; |
4626 |
V714= ((((V715)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
V739= ((((V740)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
4627 |
if(equal(STREF(object,(V683),16),(V714))){ |
if(equal(STREF(object,(V697),16),(V739))){ |
4628 |
goto T1445;} |
goto T1445;} |
4629 |
V716= Ct; |
V741 = (V697); |
4630 |
STSET(object,(V683),16, (V714)); |
V742 = (V739); |
4631 |
(void)((V714));} |
V743= Ct; |
4632 |
|
STSET(object,V741,16, V742); |
4633 |
|
(void)(V742);} |
4634 |
goto T1445; |
goto T1445; |
4635 |
T1445:; |
T1445:; |
4636 |
{object V717; |
{object V744; |
4637 |
if(((V681))==Cnil){ |
if(((V695))==Cnil){ |
4638 |
goto T1452;} |
goto T1452;} |
4639 |
if(((V700))==Cnil){ |
if(((V716))==Cnil){ |
4640 |
goto T1455;} |
goto T1455;} |
4641 |
V717= Ct; |
V744= Ct; |
4642 |
goto T1450; |
goto T1450; |
4643 |
goto T1455; |
goto T1455; |
4644 |
T1455:; |
T1455:; |
4645 |
V717= (V701); |
V744= (V717); |
4646 |
goto T1450; |
goto T1450; |
4647 |
goto T1452; |
goto T1452; |
4648 |
T1452:; |
T1452:; |
4649 |
V717= STREF(object,(V683),16); |
V744= STREF(object,(V697),16); |
4650 |
goto T1450; |
goto T1450; |
4651 |
T1450:; |
T1450:; |
4652 |
if(equal(STREF(object,(V683),20),(V717))){ |
if(equal(STREF(object,(V697),20),(V744))){ |
4653 |
goto T1388;} |
goto T1388;} |
4654 |
V718= Ct; |
V745 = (V697); |
4655 |
STSET(object,(V683),20, (V717)); |
V746 = (V744); |
4656 |
(void)((V717));}} |
V747= Ct; |
4657 |
|
STSET(object,V745,20, V746); |
4658 |
|
(void)(V746);}} |
4659 |
goto T1388; |
goto T1388; |
4660 |
T1388:; |
T1388:; |
4661 |
if(((V679))==Cnil){ |
if(((V693))==Cnil){ |
4662 |
goto T1459;} |
goto T1459;} |
4663 |
base[4]= (V678); |
base[4]= (V692); |
4664 |
base[5]= (V683); |
base[5]= (V697); |
4665 |
base[6]= (V679); |
base[6]= (V693); |
4666 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
4667 |
(void) (*Lnk429)(); |
(void) (*Lnk429)(); |
4668 |
vs_top=sup; |
vs_top=sup; |
4669 |
goto T1459; |
goto T1459; |
4670 |
T1459:; |
T1459:; |
4671 |
(void)((*(LnkLI430))((V678),(V683),(V679),(V684),(V685),(V686))); |
(void)((*(LnkLI430))((V692),(V697),(V693),(V698),(V699),(V700))); |
4672 |
{object V719 = (V683); |
{object V748 = (V697); |
4673 |
VMR70(V719)}} |
VMR70(V748)}} |
4674 |
va_end(ap); |
va_end(ap); |
4675 |
base[0]=base[0]; |
base[0]=base[0]; |
4676 |
return Cnil;} |
return Cnil;} |
4681 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4682 |
register object *sup=base+VM71; VC71 |
register object *sup=base+VM71; VC71 |
4683 |
vs_check; |
vs_check; |
4684 |
{register object V720; |
{register object V749; |
4685 |
check_arg(3); |
check_arg(3); |
4686 |
V720=(base[1]); |
V749=(base[1]); |
4687 |
vs_top=sup; |
vs_top=sup; |
4688 |
goto TTL; |
goto TTL; |
4689 |
TTL:; |
TTL:; |
4690 |
{object V721; |
{object V750; |
4691 |
object V722; |
object V751; |
4692 |
object V723; |
object V752; |
4693 |
object V724; |
object V753; |
4694 |
object V725; |
object V754; |
4695 |
if(!(type_of(base[2])==t_cons)){ |
if(!(type_of(base[2])==t_cons)){ |
4696 |
goto T1469;} |
goto T1469;} |
4697 |
base[4]= (*(LnkLI431))(base[2]); |
base[4]= (*(LnkLI431))(base[2]); |
4708 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4709 |
(void) (*Lnk408)(); |
(void) (*Lnk408)(); |
4710 |
if(vs_base>=vs_top){vs_top=sup;goto T1472;} |
if(vs_base>=vs_top){vs_top=sup;goto T1472;} |
4711 |
V721= vs_base[0]; |
V750= vs_base[0]; |
4712 |
vs_base++; |
vs_base++; |
4713 |
if(vs_base>=vs_top){vs_top=sup;goto T1473;} |
if(vs_base>=vs_top){vs_top=sup;goto T1473;} |
4714 |
V722= vs_base[0]; |
V751= vs_base[0]; |
4715 |
vs_base++; |
vs_base++; |
4716 |
if(vs_base>=vs_top){vs_top=sup;goto T1474;} |
if(vs_base>=vs_top){vs_top=sup;goto T1474;} |
4717 |
V723= vs_base[0]; |
V752= vs_base[0]; |
4718 |
vs_base++; |
vs_base++; |
4719 |
if(vs_base>=vs_top){vs_top=sup;goto T1475;} |
if(vs_base>=vs_top){vs_top=sup;goto T1475;} |
4720 |
V724= vs_base[0]; |
V753= vs_base[0]; |
4721 |
vs_base++; |
vs_base++; |
4722 |
if(vs_base>=vs_top){vs_top=sup;goto T1476;} |
if(vs_base>=vs_top){vs_top=sup;goto T1476;} |
4723 |
V725= vs_base[0]; |
V754= vs_base[0]; |
4724 |
vs_base++; |
vs_base++; |
4725 |
if(vs_base>=vs_top){vs_top=sup;goto T1477;} |
if(vs_base>=vs_top){vs_top=sup;goto T1477;} |
4726 |
base[3]=MMcons(vs_base[0],Cnil); |
base[3]=MMcons(vs_base[0],Cnil); |
4728 |
goto T1478; |
goto T1478; |
4729 |
goto T1472; |
goto T1472; |
4730 |
T1472:; |
T1472:; |
4731 |
V721= Cnil; |
V750= Cnil; |
4732 |
goto T1473; |
goto T1473; |
4733 |
T1473:; |
T1473:; |
4734 |
V722= Cnil; |
V751= Cnil; |
4735 |
goto T1474; |
goto T1474; |
4736 |
T1474:; |
T1474:; |
4737 |
V723= Cnil; |
V752= Cnil; |
4738 |
goto T1475; |
goto T1475; |
4739 |
T1475:; |
T1475:; |
4740 |
V724= Cnil; |
V753= Cnil; |
4741 |
goto T1476; |
goto T1476; |
4742 |
T1476:; |
T1476:; |
4743 |
V725= Cnil; |
V754= Cnil; |
4744 |
goto T1477; |
goto T1477; |
4745 |
T1477:; |
T1477:; |
4746 |
base[3]=MMcons(Cnil,Cnil); |
base[3]=MMcons(Cnil,Cnil); |
4747 |
goto T1478; |
goto T1478; |
4748 |
T1478:; |
T1478:; |
4749 |
{object V726; |
{object V755; |
4750 |
object V727; |
object V756; |
4751 |
object V728; |
object V757; |
4752 |
object V729; |
object V758; |
4753 |
V726= CMPmake_fixnum((long)(*(LnkLI394))((V720))); |
V755= CMPmake_fixnum((long)(*(LnkLI394))((V749))); |
4754 |
V727= STREF(object,(V720),12); |
V756= STREF(object,(V749),12); |
4755 |
V728= STREF(object,(V720),16); |
V757= STREF(object,(V749),16); |
4756 |
V729= STREF(object,(V720),20); |
V758= STREF(object,(V749),20); |
4757 |
if(number_compare((V721),(V726))==0){ |
if(number_compare((V750),(V755))==0){ |
4758 |
goto T1483;} |
goto T1483;} |
4759 |
base[4]= VV[245]; |
base[4]= VV[245]; |
4760 |
base[6]= (V721); |
base[6]= (V750); |
4761 |
base[7]= (V726); |
base[7]= (V755); |
4762 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
4763 |
L83(base); |
L83(base); |
4764 |
vs_top=sup; |
vs_top=sup; |
4768 |
vs_top=sup; |
vs_top=sup; |
4769 |
goto T1483; |
goto T1483; |
4770 |
T1483:; |
T1483:; |
4771 |
if(number_compare((V722),(V727))==0){ |
if(number_compare((V751),(V756))==0){ |
4772 |
goto T1490;} |
goto T1490;} |
4773 |
base[4]= VV[246]; |
base[4]= VV[246]; |
4774 |
base[6]= (V722); |
base[6]= (V751); |
4775 |
base[7]= (V727); |
base[7]= (V756); |
4776 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
4777 |
L83(base); |
L83(base); |
4778 |
vs_top=sup; |
vs_top=sup; |
4782 |
vs_top=sup; |
vs_top=sup; |
4783 |
goto T1490; |
goto T1490; |
4784 |
T1490:; |
T1490:; |
4785 |
if((V723)!=Cnil){ |
if((V752)!=Cnil){ |
4786 |
V730= (V723); |
V759= (V752); |
4787 |
goto T1500;} |
goto T1500;} |
4788 |
V730= (V724); |
V759= (V753); |
4789 |
goto T1500; |
goto T1500; |
4790 |
T1500:; |
T1500:; |
4791 |
if((V730)==((V728))){ |
V760 = (V757); |
4792 |
|
if((V759)==(V760)){ |
4793 |
goto T1497;} |
goto T1497;} |
4794 |
base[4]= VV[247]; |
base[4]= VV[247]; |
4795 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4797 |
vs_top=sup; |
vs_top=sup; |
4798 |
goto T1497; |
goto T1497; |
4799 |
T1497:; |
T1497:; |
4800 |
if(!(type_of((V729))==t_cons)){ |
if(!(type_of((V758))==t_cons)){ |
4801 |
goto T1503;} |
goto T1503;} |
4802 |
if(((V724))==Cnil){ |
if(((V753))==Cnil){ |
4803 |
goto T1507;} |
goto T1507;} |
4804 |
if(((V723))==Cnil){ |
if(((V752))==Cnil){ |
4805 |
goto T1506;} |
goto T1506;} |
4806 |
goto T1507; |
goto T1507; |
4807 |
T1507:; |
T1507:; |
4808 |
if(((V725))!=Cnil){ |
if(((V754))!=Cnil){ |
4809 |
goto T1506;} |
goto T1506;} |
4810 |
base[4]= |
base[4]= |
4811 |
make_cclosure_new(LC133,Cnil,base[3],Cdata); |
make_cclosure_new(LC133,Cnil,base[3],Cdata); |
4812 |
base[5]= (V729); |
base[5]= (V758); |
4813 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4814 |
(void) (*Lnk366)(); |
(void) (*Lnk366)(); |
4815 |
vs_top=sup; |
vs_top=sup; |
4816 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
4817 |
goto T1506;} |
goto T1506;} |
4818 |
base[4]= VV[248]; |
base[4]= VV[248]; |
4819 |
base[5]= (V729); |
base[5]= (V758); |
4820 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4821 |
L82(base); |
L82(base); |
4822 |
return; |
return; |
4834 |
} |
} |
4835 |
/* local entry for function SET-ARG-INFO1 */ |
/* local entry for function SET-ARG-INFO1 */ |
4836 |
|
|
4837 |
static object LI84(V737,V738,V739,V740,V741,V742) |
static object LI84(V767,V768,V769,V770,V771,V772) |
4838 |
|
|
4839 |
object V737;object V738;object V739;object V740;object V741;object V742; |
object V767;object V768;object V769;object V770;object V771;object V772; |
4840 |
{ VMB72 VMS72 VMV72 |
{ VMB72 VMS72 VMV72 |
4841 |
goto TTL; |
goto TTL; |
4842 |
TTL:; |
TTL:; |
4843 |
{object V743; |
{object V773; |
4844 |
object V744; |
object V774; |
4845 |
object V745; |
object V775; |
4846 |
register object V746; |
register object V776; |
4847 |
if((V740)==Cnil){ |
if((V770)==Cnil){ |
4848 |
V743= Cnil; |
V773= Cnil; |
4849 |
goto T1519;} |
goto T1519;} |
4850 |
if((CMPcdr((V740)))!=Cnil){ |
if((CMPcdr((V770)))!=Cnil){ |
4851 |
goto T1520;} |
goto T1520;} |
4852 |
V743= Cnil; |
V773= Cnil; |
4853 |
goto T1519; |
goto T1519; |
4854 |
goto T1520; |
goto T1520; |
4855 |
T1520:; |
T1520:; |
4856 |
V743= (V739); |
V773= (V769); |
4857 |
goto T1519; |
goto T1519; |
4858 |
T1519:; |
T1519:; |
4859 |
V744= CMPmake_fixnum((long)length(STREF(object,(V738),8))); |
V774= CMPmake_fixnum((long)length(STREF(object,(V768),8))); |
4860 |
if(((V743))==Cnil){ |
if(((V773))==Cnil){ |
4861 |
goto T1525;} |
goto T1525;} |
4862 |
V745= STREF(object,(V738),8); |
V775= STREF(object,(V768),8); |
4863 |
goto T1523; |
goto T1523; |
4864 |
goto T1525; |
goto T1525; |
4865 |
T1525:; |
T1525:; |
4866 |
base[4]= (V744); |
base[4]= (V774); |
4867 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4868 |
Lmake_list(); |
Lmake_list(); |
4869 |
vs_top=sup; |
vs_top=sup; |
4870 |
V745= vs_base[0]; |
V775= vs_base[0]; |
4871 |
goto T1523; |
goto T1523; |
4872 |
T1523:; |
T1523:; |
4873 |
if(((V743))==Cnil){ |
if(((V773))==Cnil){ |
4874 |
goto T1530;} |
goto T1530;} |
4875 |
V746= STREF(object,(V738),24); |
V776= STREF(object,(V768),24); |
4876 |
goto T1528; |
goto T1528; |
4877 |
goto T1530; |
goto T1530; |
4878 |
T1530:; |
T1530:; |
4879 |
V746= Cnil; |
V776= Cnil; |
4880 |
goto T1528; |
goto T1528; |
4881 |
T1528:; |
T1528:; |
4882 |
if(((*(LnkLI432))((V738)))==Cnil){ |
if(((*(LnkLI432))((V768)))==Cnil){ |
4883 |
goto T1518;} |
goto T1518;} |
4884 |
{register object V747; |
{register object V777; |
4885 |
register object V748; |
register object V778; |
4886 |
if(((V739))==Cnil){ |
if(((V769))==Cnil){ |
4887 |
goto T1537;} |
goto T1537;} |
4888 |
V747= make_cons((V739),Cnil); |
V777= make_cons((V769),Cnil); |
4889 |
goto T1535; |
goto T1535; |
4890 |
goto T1537; |
goto T1537; |
4891 |
T1537:; |
T1537:; |
4892 |
V747= (V740); |
V777= (V770); |
4893 |
goto T1535; |
goto T1535; |
4894 |
T1535:; |
T1535:; |
4895 |
V748= CMPcar((V747)); |
V778= CMPcar((V777)); |
4896 |
goto T1541; |
goto T1541; |
4897 |
T1541:; |
T1541:; |
4898 |
if(!(((V747))==Cnil)){ |
if(!(((V777))==Cnil)){ |
4899 |
goto T1542;} |
goto T1542;} |
4900 |
goto T1534; |
goto T1534; |
4901 |
goto T1542; |
goto T1542; |
4902 |
T1542:; |
T1542:; |
4903 |
{object V749; |
{object V779; |
4904 |
register object V750; |
register object V780; |
4905 |
register object V751; |
register object V781; |
4906 |
if(((VV[17]->s.s_dbind))==(VV[18])){ |
if(((VV[17]->s.s_dbind))==(VV[18])){ |
4907 |
goto T1548;} |
goto T1548;} |
4908 |
if(type_of((V748))==t_cons){ |
if(type_of((V778))==t_cons){ |
4909 |
goto T1549;} |
goto T1549;} |
4910 |
goto T1548; |
goto T1548; |
4911 |
T1548:; |
T1548:; |
4912 |
base[9]= (V748); |
base[9]= (V778); |
4913 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
4914 |
(void) (*Lnk433)(Lclptr433); |
(void) (*Lnk433)(Lclptr433); |
4915 |
vs_top=sup; |
vs_top=sup; |
4916 |
V749= vs_base[0]; |
V779= vs_base[0]; |
4917 |
goto T1547; |
goto T1547; |
4918 |
goto T1549; |
goto T1549; |
4919 |
T1549:; |
T1549:; |
4920 |
V749= (VFUN_NARGS=2,(*(LnkLI434))((V748),Ct)); |
V779= (VFUN_NARGS=2,(*(LnkLI434))((V778),Ct)); |
4921 |
goto T1547; |
goto T1547; |
4922 |
T1547:; |
T1547:; |
4923 |
if(((VV[17]->s.s_dbind))==(VV[18])){ |
if(((VV[17]->s.s_dbind))==(VV[18])){ |
4924 |
goto T1555;} |
goto T1555;} |
4925 |
if(type_of((V748))==t_cons){ |
if(type_of((V778))==t_cons){ |
4926 |
goto T1556;} |
goto T1556;} |
4927 |
goto T1555; |
goto T1555; |
4928 |
T1555:; |
T1555:; |
4929 |
V750= (*(LnkLI363))((V748)); |
V780= (*(LnkLI363))((V778)); |
4930 |
goto T1554; |
goto T1554; |
4931 |
goto T1556; |
goto T1556; |
4932 |
T1556:; |
T1556:; |
4933 |
V750= (*(LnkLI435))((V748)); |
V780= (*(LnkLI435))((V778)); |
4934 |
goto T1554; |
goto T1554; |
4935 |
T1554:; |
T1554:; |
4936 |
if(((V750))==Cnil){ |
if(((V780))==Cnil){ |
4937 |
goto T1562;} |
goto T1562;} |
4938 |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
4939 |
goto T1561;} |
goto T1561;} |
4940 |
base[9]= (V737); |
base[9]= (V767); |
4941 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
4942 |
(void) (*Lnk436)(Lclptr436); |
(void) (*Lnk436)(Lclptr436); |
4943 |
vs_top=sup; |
vs_top=sup; |
4944 |
V752= vs_base[0]; |
V782= vs_base[0]; |
4945 |
if(!((V752)==((VV[252]->s.s_dbind)))){ |
V783 = (VV[252]->s.s_dbind); |
4946 |
|
if(!((V782)==(V783))){ |
4947 |
goto T1562;} |
goto T1562;} |
4948 |
goto T1561; |
goto T1561; |
4949 |
T1561:; |
T1561:; |
4950 |
if(!(((V750))==((VV[253]->s.s_dbind)))){ |
if(!(((V780))==((VV[253]->s.s_dbind)))){ |
4951 |
goto T1571;} |
goto T1571;} |
4952 |
V751= VV[254]; |
V781= VV[254]; |
4953 |
goto T1560; |
goto T1560; |
4954 |
goto T1571; |
goto T1571; |
4955 |
T1571:; |
T1571:; |
4956 |
if(!(((V750))==((VV[255]->s.s_dbind)))){ |
if(!(((V780))==((VV[255]->s.s_dbind)))){ |
4957 |
goto T1574;} |
goto T1574;} |
4958 |
V751= VV[256]; |
V781= VV[256]; |
4959 |
goto T1560; |
goto T1560; |
4960 |
goto T1574; |
goto T1574; |
4961 |
T1574:; |
T1574:; |
4962 |
if(!(((V750))==((VV[257]->s.s_dbind)))){ |
if(!(((V780))==((VV[257]->s.s_dbind)))){ |
4963 |
goto T1577;} |
goto T1577;} |
4964 |
V751= VV[258]; |
V781= VV[258]; |
4965 |
goto T1560; |
goto T1560; |
4966 |
goto T1577; |
goto T1577; |
4967 |
T1577:; |
T1577:; |
4968 |
V751= Cnil; |
V781= Cnil; |
4969 |
goto T1560; |
goto T1560; |
4970 |
goto T1562; |
goto T1562; |
4971 |
T1562:; |
T1562:; |
4972 |
V751= Cnil; |
V781= Cnil; |
4973 |
goto T1560; |
goto T1560; |
4974 |
T1560:; |
T1560:; |
4975 |
base[10]=VV[437]->s.s_gfdef; |
base[10]=VV[437]->s.s_gfdef; |
4976 |
{object V753; |
{object V784; |
4977 |
object V754= (V745); |
object V785= (V775); |
4978 |
object V755= (V749); |
object V786= (V779); |
4979 |
if(V754==Cnil||V755==Cnil){ |
if(V785==Cnil||V786==Cnil){ |
4980 |
V745= Cnil; |
V775= Cnil; |
4981 |
goto T1580;} |
goto T1580;} |
4982 |
base[9]=V753=MMcons(Cnil,Cnil); |
base[9]=V784=MMcons(Cnil,Cnil); |
4983 |
goto T1581; |
goto T1581; |
4984 |
T1581:; |
T1581:; |
4985 |
base[11]= (V754->c.c_car); |
base[11]= (V785->c.c_car); |
4986 |
base[12]= (V755->c.c_car); |
base[12]= (V786->c.c_car); |
4987 |
vs_top=(vs_base=base+11)+2; |
vs_top=(vs_base=base+11)+2; |
4988 |
(void) (*Lnk437)(); |
(void) (*Lnk437)(); |
4989 |
vs_top=sup; |
vs_top=sup; |
4990 |
(V753->c.c_car)= vs_base[0]; |
(V784->c.c_car)= vs_base[0]; |
4991 |
if((V754=MMcdr(V754))==Cnil||(V755=MMcdr(V755))==Cnil){ |
if((V785=MMcdr(V785))==Cnil||(V786=MMcdr(V786))==Cnil){ |
4992 |
V745= base[9]; |
V775= base[9]; |
4993 |
goto T1580;} |
goto T1580;} |
4994 |
V753=MMcdr(V753)=MMcons(Cnil,Cnil); |
V784=MMcdr(V784)=MMcons(Cnil,Cnil); |
4995 |
goto T1581;} |
goto T1581;} |
4996 |
goto T1580; |
goto T1580; |
4997 |
T1580:; |
T1580:; |
4998 |
if(((V746))!=Cnil){ |
if(((V776))!=Cnil){ |
4999 |
goto T1587;} |
goto T1587;} |
5000 |
V746= (V751); |
V776= (V781); |
5001 |
goto T1585; |
goto T1585; |
5002 |
goto T1587; |
goto T1587; |
5003 |
T1587:; |
T1587:; |
5004 |
if(!(((V746))==((V751)))){ |
if(!(((V776))==((V781)))){ |
5005 |
goto T1590;} |
goto T1590;} |
5006 |
goto T1585; |
goto T1585; |
5007 |
goto T1590; |
goto T1590; |
5008 |
T1590:; |
T1590:; |
5009 |
V746= Cnil; |
V776= Cnil; |
5010 |
goto T1585; |
goto T1585; |
5011 |
T1585:;} |
T1585:;} |
5012 |
V747= CMPcdr((V747)); |
V777= CMPcdr((V777)); |
5013 |
V748= CMPcar((V747)); |
V778= CMPcar((V777)); |
5014 |
goto T1541;} |
goto T1541;} |
5015 |
goto T1534; |
goto T1534; |
5016 |
T1534:; |
T1534:; |
5017 |
if(equal(STREF(object,(V738),8),V745)){ |
if(equal(STREF(object,(V768),8),V775)){ |
5018 |
goto T1597;} |
goto T1597;} |
5019 |
V757= Ct; |
V788 = (V768); |
5020 |
STSET(object,(V738),8, V745); |
V789 = V775; |
5021 |
(void)(V745); |
V790= Ct; |
5022 |
|
STSET(object,V788,8, V789); |
5023 |
|
(void)(V789); |
5024 |
goto T1597; |
goto T1597; |
5025 |
T1597:; |
T1597:; |
5026 |
if(equal(STREF(object,(V738),24),V746)){ |
if(equal(STREF(object,(V768),24),V776)){ |
5027 |
goto T1518;} |
goto T1518;} |
5028 |
V759= Ct; |
V792 = (V768); |
5029 |
STSET(object,(V738),24, V746); |
V793 = V776; |
5030 |
(void)(V746);} |
V794= Ct; |
5031 |
|
STSET(object,V792,24, V793); |
5032 |
|
(void)(V793);} |
5033 |
goto T1518; |
goto T1518; |
5034 |
T1518:; |
T1518:; |
5035 |
if(((V741))==Cnil){ |
if(((V771))==Cnil){ |
5036 |
goto T1603;} |
goto T1603;} |
5037 |
if(((V742))==Cnil){ |
if(((V772))==Cnil){ |
5038 |
goto T1602;} |
goto T1602;} |
5039 |
goto T1603; |
goto T1603; |
5040 |
T1603:; |
T1603:; |
5041 |
{object V760; |
{object V795; |
5042 |
object V761; |
object V796; |
5043 |
if(((*(LnkLI438))((V737)))==Cnil){ |
if(((*(LnkLI438))((V767)))==Cnil){ |
5044 |
goto T1609;} |
goto T1609;} |
5045 |
base[0]= Ct; |
base[0]= Ct; |
5046 |
base[1]= Ct; |
base[1]= Ct; |
5048 |
goto T1607; |
goto T1607; |
5049 |
goto T1609; |
goto T1609; |
5050 |
T1609:; |
T1609:; |
5051 |
base[0]= (V737); |
base[0]= (V767); |
5052 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5053 |
(void) (*Lnk439)(); |
(void) (*Lnk439)(); |
5054 |
goto T1607; |
goto T1607; |
5055 |
T1607:; |
T1607:; |
5056 |
if(vs_base>=vs_top){vs_top=sup;goto T1614;} |
if(vs_base>=vs_top){vs_top=sup;goto T1614;} |
5057 |
V760= vs_base[0]; |
V795= vs_base[0]; |
5058 |
vs_base++; |
vs_base++; |
5059 |
if(vs_base>=vs_top){vs_top=sup;goto T1615;} |
if(vs_base>=vs_top){vs_top=sup;goto T1615;} |
5060 |
V761= vs_base[0]; |
V796= vs_base[0]; |
5061 |
vs_top=sup; |
vs_top=sup; |
5062 |
goto T1616; |
goto T1616; |
5063 |
goto T1614; |
goto T1614; |
5064 |
T1614:; |
T1614:; |
5065 |
V760= Cnil; |
V795= Cnil; |
5066 |
goto T1615; |
goto T1615; |
5067 |
T1615:; |
T1615:; |
5068 |
V761= Cnil; |
V796= Cnil; |
5069 |
goto T1616; |
goto T1616; |
5070 |
T1616:; |
T1616:; |
5071 |
if(equal(STREF(object,(V738),32),V760)){ |
if(equal(STREF(object,(V768),32),V795)){ |
5072 |
goto T1617;} |
goto T1617;} |
5073 |
V763= Ct; |
V798 = (V768); |
5074 |
STSET(object,(V738),32, V760); |
V799 = V795; |
5075 |
(void)(V760); |
V800= Ct; |
5076 |
|
STSET(object,V798,32, V799); |
5077 |
|
(void)(V799); |
5078 |
goto T1617; |
goto T1617; |
5079 |
T1617:; |
T1617:; |
5080 |
if(equal(STREF(object,(V738),36),V761)){ |
if(equal(STREF(object,(V768),36),V796)){ |
5081 |
goto T1620;} |
goto T1620;} |
5082 |
V765= Ct; |
V802 = (V768); |
5083 |
STSET(object,(V738),36, V761); |
V803 = V796; |
5084 |
(void)(V761); |
V804= Ct; |
5085 |
|
STSET(object,V802,36, V803); |
5086 |
|
(void)(V803); |
5087 |
goto T1620; |
goto T1620; |
5088 |
T1620:; |
T1620:; |
5089 |
if((STREF(object,(V738),36))!=Cnil){ |
if((STREF(object,(V768),36))!=Cnil){ |
5090 |
goto T1602;} |
goto T1602;} |
5091 |
if(equal(STREF(object,(V738),24),Ct)){ |
if(equal(STREF(object,(V768),24),Ct)){ |
5092 |
goto T1602;} |
goto T1602;} |
5093 |
V767= Ct; |
V806 = (V768); |
5094 |
STSET(object,(V738),24, Ct); |
V807 = Ct; |
5095 |
(void)(Ct);} |
V808= Ct; |
5096 |
|
STSET(object,V806,24, V807); |
5097 |
|
(void)(V807);} |
5098 |
goto T1602; |
goto T1602; |
5099 |
T1602:; |
T1602:; |
5100 |
if(((V741))!=Cnil){ |
if(((V771))!=Cnil){ |
5101 |
goto T1627;} |
goto T1627;} |
5102 |
{object V768; |
{object V809; |
5103 |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
5104 |
goto T1632;} |
goto T1632;} |
5105 |
base[0]= (V737); |
base[0]= (V767); |
5106 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5107 |
(void) (*Lnk440)(Lclptr440); |
(void) (*Lnk440)(Lclptr440); |
5108 |
vs_top=sup; |
vs_top=sup; |
5109 |
V768= vs_base[0]; |
V809= vs_base[0]; |
5110 |
goto T1630; |
goto T1630; |
5111 |
goto T1632; |
goto T1632; |
5112 |
T1632:; |
T1632:; |
5113 |
V768= (*(LnkLI441))((V737)); |
V809= (*(LnkLI441))((V767)); |
5114 |
goto T1630; |
goto T1630; |
5115 |
T1630:; |
T1630:; |
5116 |
{object V769; |
{object V810; |
5117 |
{object V770; |
{object V811; |
5118 |
object V771; |
object V812; |
5119 |
if(!(type_of((V768))!=t_cons)){ |
if(!(type_of((V809))!=t_cons)){ |
5120 |
goto T1638;} |
goto T1638;} |
5121 |
V770= (V768); |
V811= (V809); |
5122 |
goto T1636; |
goto T1636; |
5123 |
goto T1638; |
goto T1638; |
5124 |
T1638:; |
T1638:; |
5125 |
V770= CMPcadr((V768)); |
V811= CMPcadr((V809)); |
5126 |
goto T1636; |
goto T1636; |
5127 |
T1636:;{object V772; |
T1636:;{object V813; |
5128 |
V772= (VV[219]->s.s_dbind); |
V813= (VV[219]->s.s_dbind); |
5129 |
base[2]= (VV[219]->s.s_dbind); |
base[2]= (VV[219]->s.s_dbind); |
5130 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5131 |
Lpackage_use_list(); |
Lpackage_use_list(); |
5132 |
vs_top=sup; |
vs_top=sup; |
5133 |
V773= vs_base[0]; |
V814= vs_base[0]; |
5134 |
V771= make_cons(V772,V773);} |
V812= make_cons(V813,V814);} |
5135 |
if((V770)==Cnil){ |
if((V811)==Cnil){ |
5136 |
V769= Cnil; |
V810= Cnil; |
5137 |
goto T1635;} |
goto T1635;} |
5138 |
if(type_of((V770))==t_symbol){ |
if(type_of((V811))==t_symbol){ |
5139 |
goto T1643;} |
goto T1643;} |
5140 |
V769= Cnil; |
V810= Cnil; |
5141 |
goto T1635; |
goto T1635; |
5142 |
goto T1643; |
goto T1643; |
5143 |
T1643:; |
T1643:; |
5144 |
base[2]= (V770); |
base[2]= (V811); |
5145 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5146 |
Lsymbol_package(); |
Lsymbol_package(); |
5147 |
vs_top=sup; |
vs_top=sup; |
5148 |
V776= vs_base[0]; |
V817= vs_base[0]; |
5149 |
{register object x= V776,V775= (V771); |
V818 = (V812); |
5150 |
while(V775!=Cnil) |
{register object x= V817,V816= V818; |
5151 |
if(x==(V775->c.c_car)){ |
while(V816!=Cnil) |
5152 |
V774= V775; |
if(x==(V816->c.c_car)){ |
5153 |
|
V815= V816; |
5154 |
goto T1647; |
goto T1647; |
5155 |
}else V775=V775->c.c_cdr; |
}else V816=V816->c.c_cdr; |
5156 |
V774= Cnil;} |
V815= Cnil;} |
5157 |
goto T1647; |
goto T1647; |
5158 |
T1647:; |
T1647:; |
5159 |
if((((V774)==Cnil?Ct:Cnil))==Cnil){ |
if((((V815)==Cnil?Ct:Cnil))==Cnil){ |
5160 |
goto T1645;} |
goto T1645;} |
5161 |
V769= Cnil; |
V810= Cnil; |
5162 |
goto T1635; |
goto T1635; |
5163 |
goto T1645; |
goto T1645; |
5164 |
T1645:; |
T1645:; |
5165 |
base[2]= VV[259]; |
base[2]= VV[259]; |
5166 |
base[3]= symbol_name((V770)); |
base[3]= symbol_name((V811)); |
5167 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
5168 |
(void) (*Lnk442)(); |
(void) (*Lnk442)(); |
5169 |
vs_top=sup; |
vs_top=sup; |
5170 |
V777= vs_base[0]; |
V819= vs_base[0]; |
5171 |
V769= ((V777)==Cnil?Ct:Cnil);} |
V810= ((V819)==Cnil?Ct:Cnil);} |
5172 |
goto T1635; |
goto T1635; |
5173 |
T1635:; |
T1635:; |
5174 |
if(equal(STREF(object,(V738),28),(V769))){ |
if(equal(STREF(object,(V768),28),(V810))){ |
5175 |
goto T1627;} |
goto T1627;} |
5176 |
V778= Ct; |
V820 = (V768); |
5177 |
STSET(object,(V738),28, (V769)); |
V821 = (V810); |
5178 |
(void)((V769));}} |
V822= Ct; |
5179 |
|
STSET(object,V820,28, V821); |
5180 |
|
(void)(V821);}} |
5181 |
goto T1627; |
goto T1627; |
5182 |
T1627:; |
T1627:; |
5183 |
{object V779; |
{object V823; |
5184 |
if(!(((((VV[17]->s.s_dbind))==(VV[18])?Ct:Cnil))==Cnil)){ |
if(!(((((VV[17]->s.s_dbind))==(VV[18])?Ct:Cnil))==Cnil)){ |
5185 |
goto T1657;} |
goto T1657;} |
5186 |
V779= Ct; |
V823= Ct; |
5187 |
goto T1656; |
goto T1656; |
5188 |
goto T1657; |
goto T1657; |
5189 |
T1657:; |
T1657:; |
5190 |
{object V780; |
{object V824; |
5191 |
object V781; |
object V825; |
5192 |
base[2]= (V737); |
base[2]= (V767); |
5193 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5194 |
(void) (*Lnk358)(Lclptr358); |
(void) (*Lnk358)(Lclptr358); |
5195 |
vs_top=sup; |
vs_top=sup; |
5196 |
V780= vs_base[0]; |
V824= vs_base[0]; |
5197 |
base[2]= (VV[360]->s.s_gfdef); |
base[2]= (VV[360]->s.s_gfdef); |
5198 |
base[4]= (V780); |
V826 = (V767); |
5199 |
|
base[4]= (V824); |
5200 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5201 |
(void) (*Lnk301)(Lclptr301); |
(void) (*Lnk301)(Lclptr301); |
5202 |
vs_top=sup; |
vs_top=sup; |
5203 |
V782= vs_base[0]; |
V827= vs_base[0]; |
5204 |
base[3]= list(4,(V737),V782,VV[260],Cnil); |
base[3]= list(4,V826,V827,VV[260],Cnil); |
5205 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
5206 |
(void) (*Lnk443)(Lclptr443); |
(void) (*Lnk443)(Lclptr443); |
5207 |
vs_top=sup; |
vs_top=sup; |
5208 |
V781= vs_base[0]; |
V825= vs_base[0]; |
5209 |
if((V781)==Cnil){ |
if((V825)==Cnil){ |
5210 |
V779= Cnil; |
V823= Cnil; |
5211 |
goto T1656;} |
goto T1656;} |
5212 |
if((CMPcdr((V781)))==Cnil){ |
if((CMPcdr((V825)))==Cnil){ |
5213 |
goto T1666;} |
goto T1666;} |
5214 |
V779= Cnil; |
V823= Cnil; |
5215 |
goto T1656; |
goto T1656; |
5216 |
goto T1666; |
goto T1666; |
5217 |
T1666:; |
T1666:; |
5218 |
{object V783; |
{object V828; |
5219 |
base[2]= CMPcar((V781)); |
base[2]= CMPcar((V825)); |
5220 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5221 |
(void) (*Lnk433)(Lclptr433); |
(void) (*Lnk433)(Lclptr433); |
5222 |
vs_top=sup; |
vs_top=sup; |
5223 |
V783= vs_base[0]; |
V828= vs_base[0]; |
5224 |
base[2]= CMPcar((V783)); |
base[2]= CMPcar((V828)); |
5225 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5226 |
(void) (*Lnk291)(Lclptr291); |
(void) (*Lnk291)(Lclptr291); |
5227 |
vs_top=sup; |
vs_top=sup; |
5228 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
5229 |
goto T1670;} |
goto T1670;} |
5230 |
V779= Cnil; |
V823= Cnil; |
5231 |
goto T1656; |
goto T1656; |
5232 |
goto T1670; |
goto T1670; |
5233 |
T1670:; |
T1670:; |
5234 |
base[2]= CMPcar((V783)); |
base[2]= CMPcar((V828)); |
5235 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5236 |
(void) (*Lnk364)(Lclptr364); |
(void) (*Lnk364)(Lclptr364); |
5237 |
vs_top=sup; |
vs_top=sup; |
5238 |
V784= vs_base[0]; |
V829= vs_base[0]; |
5239 |
if((VV[19])==(V784)){ |
if((VV[19])==(V829)){ |
5240 |
goto T1673;} |
goto T1673;} |
5241 |
V779= Cnil; |
V823= Cnil; |
5242 |
goto T1656; |
goto T1656; |
5243 |
goto T1673; |
goto T1673; |
5244 |
T1673:; |
T1673:; |
5245 |
base[2]= CMPcadr((V783)); |
base[2]= CMPcadr((V828)); |
5246 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5247 |
(void) (*Lnk291)(Lclptr291); |
(void) (*Lnk291)(Lclptr291); |
5248 |
vs_top=sup; |
vs_top=sup; |
5249 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
5250 |
goto T1677;} |
goto T1677;} |
5251 |
V779= Cnil; |
V823= Cnil; |
5252 |
goto T1656; |
goto T1656; |
5253 |
goto T1677; |
goto T1677; |
5254 |
T1677:; |
T1677:; |
5255 |
base[2]= CMPcadr((V783)); |
base[2]= CMPcadr((V828)); |
5256 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5257 |
(void) (*Lnk364)(Lclptr364); |
(void) (*Lnk364)(Lclptr364); |
5258 |
vs_top=sup; |
vs_top=sup; |
5259 |
V785= vs_base[0]; |
V830= vs_base[0]; |
5260 |
V779= ((VV[20])==(V785)?Ct:Cnil);}} |
V823= ((VV[20])==(V830)?Ct:Cnil);}} |
5261 |
goto T1656; |
goto T1656; |
5262 |
T1656:; |
T1656:; |
5263 |
if(equal(STREF(object,(V738),40),(V779))){ |
if(equal(STREF(object,(V768),40),(V823))){ |
5264 |
goto T1655;} |
goto T1655;} |
5265 |
V786= Ct; |
V831 = (V768); |
5266 |
STSET(object,(V738),40, (V779)); |
V832 = (V823); |
5267 |
(void)((V779));} |
V833= Ct; |
5268 |
|
STSET(object,V831,40, V832); |
5269 |
|
(void)(V832);} |
5270 |
goto T1655; |
goto T1655; |
5271 |
T1655:; |
T1655:; |
5272 |
{object V787 = (V738); |
{object V834 = (V768); |
5273 |
VMR72(V787)} |
VMR72(V834)} |
5274 |
base[0]=base[0]; |
base[0]=base[0]; |
5275 |
return Cnil; |
return Cnil; |
5276 |
} |
} |
5277 |
/* local entry for function ENSURE-GENERIC-FUNCTION-USING-CLASS */ |
/* local entry for function ENSURE-GENERIC-FUNCTION-USING-CLASS */ |
5278 |
|
|
5279 |
static object LI85(object V789,object V788,object first,...) |
static object LI85(object V836,object V835,object first,...) |
5280 |
{ |
{ |
5281 |
va_list ap; |
va_list ap; |
5282 |
int narg = VFUN_NARGS; VMB73 VMS73 VMV73 |
int narg = VFUN_NARGS; VMB73 VMS73 VMV73 |
5283 |
{register object V790; |
{register object V837; |
5284 |
register object V791; |
register object V838; |
5285 |
object V792; |
object V839; |
5286 |
object V793; |
object V840; |
5287 |
object V794; |
object V841; |
5288 |
va_start(ap,first); |
va_start(ap,first); |
5289 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
5290 |
V790= V789; |
V837= V836; |
5291 |
V791= V788; |
V838= V835; |
5292 |
narg= narg - 2; |
narg= narg - 2; |
5293 |
V795 = make_list(narg); |
V842 = make_list(narg); |
5294 |
V792= V795; |
V839= V842; |
5295 |
{ |
{ |
5296 |
parse_key_rest_new(V795,narg,Vcs +3,(struct key *)(void *)&LI85key,first,ap); |
parse_key_rest_new(V842,narg,Vcs +3,(struct key *)(void *)&LI85key,first,ap); |
5297 |
if(Vcs[3]==0){ |
if(Vcs[3]==0){ |
5298 |
V793= Cnil; |
V840= Cnil; |
5299 |
V794= Cnil; |
V841= Cnil; |
5300 |
}else{ |
}else{ |
5301 |
V793=(Vcs[3]); |
V840=(Vcs[3]); |
5302 |
V794= Ct;} |
V841= Ct;} |
5303 |
if(((V790))==Cnil){ |
if(((V837))==Cnil){ |
5304 |
goto T1686;} |
goto T1686;} |
5305 |
if(((*(LnkLI438))((V790)))==Cnil){ |
if(((*(LnkLI438))((V837)))==Cnil){ |
5306 |
goto T1686;} |
goto T1686;} |
5307 |
{object V796 = (V790); |
{object V843 = (V837); |
5308 |
VMR73(V796)} |
VMR73(V843)} |
5309 |
goto T1686; |
goto T1686; |
5310 |
T1686:; |
T1686:; |
5311 |
{register object x= (V791),V797= (VV[261]->s.s_dbind); |
{register object x= (V838),V844= (VV[261]->s.s_dbind); |
5312 |
while(V797!=Cnil) |
while(V844!=Cnil) |
5313 |
if(equal(x,V797->c.c_car->c.c_car) &&V797->c.c_car != Cnil){ |
if(equal(x,V844->c.c_car->c.c_car) &&V844->c.c_car != Cnil){ |
5314 |
goto T1692; |
goto T1692; |
5315 |
}else V797=V797->c.c_cdr; |
}else V844=V844->c.c_cdr; |
5316 |
goto T1691;} |
goto T1691;} |
5317 |
goto T1692; |
goto T1692; |
5318 |
T1692:; |
T1692:; |
5319 |
if(((V790))==Cnil){ |
if(((V837))==Cnil){ |
5320 |
goto T1694;} |
goto T1694;} |
5321 |
{object V798 = (VFUN_NARGS=4,(*(LnkLI444))((V791),(V793),(V794),(V790))); |
{object V845 = (VFUN_NARGS=4,(*(LnkLI444))((V838),(V840),(V841),(V837))); |
5322 |
VMR73(V798)} |
VMR73(V845)} |
5323 |
goto T1694; |
goto T1694; |
5324 |
T1694:; |
T1694:; |
5325 |
base[0]= VV[262]; |
base[0]= VV[262]; |
5326 |
base[1]= (V791); |
base[1]= (V838); |
5327 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5328 |
Lerror(); |
Lerror(); |
5329 |
vs_top=sup; |
vs_top=sup; |
5330 |
{object V799 = vs_base[0]; |
{object V846 = vs_base[0]; |
5331 |
VMR73(V799)} |
VMR73(V846)} |
5332 |
goto T1691; |
goto T1691; |
5333 |
T1691:; |
T1691:; |
5334 |
if(((V790))==Cnil){ |
if(((V837))==Cnil){ |
5335 |
goto T1699;} |
goto T1699;} |
5336 |
base[0]= VV[263]; |
base[0]= VV[263]; |
5337 |
base[1]= (V791); |
base[1]= (V838); |
5338 |
base[2]= VV[261]; |
base[2]= VV[261]; |
5339 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
5340 |
Lerror(); |
Lerror(); |
5341 |
vs_top=sup; |
vs_top=sup; |
5342 |
{object V800 = vs_base[0]; |
{object V847 = vs_base[0]; |
5343 |
VMR73(V800)} |
VMR73(V847)} |
5344 |
goto T1699; |
goto T1699; |
5345 |
T1699:; |
T1699:; |
5346 |
base[0]= V791; |
base[0]= V838; |
5347 |
base[1]= (VV[264]->s.s_dbind); |
base[1]= (VV[264]->s.s_dbind); |
5348 |
base[2]= VV[265]; |
base[2]= VV[265]; |
5349 |
base[3]= (VV[241]->s.s_gfdef); |
base[3]= (VV[241]->s.s_gfdef); |
5351 |
Ladjoin(); |
Ladjoin(); |
5352 |
vs_top=sup; |
vs_top=sup; |
5353 |
(VV[264]->s.s_dbind)= vs_base[0]; |
(VV[264]->s.s_dbind)= vs_base[0]; |
5354 |
{object V802 = (VFUN_NARGS=3,(*(LnkLI444))((V791),(V793),(V794))); |
{object V849 = (VFUN_NARGS=3,(*(LnkLI444))((V838),(V840),(V841))); |
5355 |
VMR73(V802)} |
VMR73(V849)} |
5356 |
va_end(ap); |
va_end(ap); |
5357 |
base[0]=base[0]; |
base[0]=base[0]; |
5358 |
return Cnil;} |
return Cnil;} |
5359 |
}} |
}} |
5360 |
/* local entry for function MAKE-EARLY-GF */ |
/* local entry for function MAKE-EARLY-GF */ |
5361 |
|
|
5362 |
static object LI86(object V803,object first,...) |
static object LI86(object V850,object first,...) |
5363 |
{ |
{ |
5364 |
va_list ap; |
va_list ap; |
5365 |
int narg = VFUN_NARGS; VMB74 VMS74 VMV74 |
int narg = VFUN_NARGS; VMB74 VMS74 VMV74 |
5366 |
{register object V804; |
{register object V851; |
5367 |
object V805; |
object V852; |
5368 |
object V806; |
object V853; |
5369 |
object V807; |
object V854; |
5370 |
va_start(ap,first); |
va_start(ap,first); |
5371 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
5372 |
V804= V803; |
V851= V850; |
5373 |
narg = narg - 1; |
narg = narg - 1; |
5374 |
if (narg <= 0) goto T1710; |
if (narg <= 0) goto T1710; |
5375 |
else { |
else { |
5376 |
V805= first;} |
V852= first;} |
5377 |
if (--narg <= 0) goto T1711; |
if (--narg <= 0) goto T1711; |
5378 |
else { |
else { |
5379 |
V806= va_arg(ap,object);} |
V853= va_arg(ap,object);} |
5380 |
if (--narg <= 0) goto T1712; |
if (--narg <= 0) goto T1712; |
5381 |
else { |
else { |
5382 |
V807= va_arg(ap,object);} |
V854= va_arg(ap,object);} |
5383 |
--narg; goto T1713; |
--narg; goto T1713; |
5384 |
goto T1710; |
goto T1710; |
5385 |
T1710:; |
T1710:; |
5386 |
V805= Cnil; |
V852= Cnil; |
5387 |
goto T1711; |
goto T1711; |
5388 |
T1711:; |
T1711:; |
5389 |
V806= Cnil; |
V853= Cnil; |
5390 |
goto T1712; |
goto T1712; |
5391 |
T1712:; |
T1712:; |
5392 |
V807= Cnil; |
V854= Cnil; |
5393 |
goto T1713; |
goto T1713; |
5394 |
T1713:; |
T1713:; |
5395 |
base[0]= (VFUN_NARGS=2,(*(LnkLI445))((VV[266]->s.s_dbind),(VV[267]->s.s_dbind))); |
base[0]= (VFUN_NARGS=2,(*(LnkLI445))((VV[266]->s.s_dbind),(VV[267]->s.s_dbind))); |
5396 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
5397 |
if((V807)!=Cnil){ |
V855 = (base[0]->c.c_car); |
5398 |
V808= (V807); |
if((V854)!=Cnil){ |
5399 |
|
V856= (V854); |
5400 |
goto T1719;} |
goto T1719;} |
5401 |
if(!(((V804))==(VV[268]))){ |
if(!(((V851))==(VV[268]))){ |
5402 |
goto T1721;} |
goto T1721;} |
5403 |
V808= |
V856= |
5404 |
make_cclosure_new(LC134,Cnil,base[0],Cdata); |
make_cclosure_new(LC134,Cnil,base[0],Cdata); |
5405 |
goto T1719; |
goto T1719; |
5406 |
goto T1721; |
goto T1721; |
5407 |
T1721:; |
T1721:; |
5408 |
V808= |
V856= |
5409 |
make_cclosure_new(LC135,Cnil,base[0],Cdata); |
make_cclosure_new(LC135,Cnil,base[0],Cdata); |
5410 |
goto T1719; |
goto T1719; |
5411 |
T1719:; |
T1719:; |
5412 |
(void)((*(LnkLI446))((base[0]->c.c_car),V808)); |
(void)((*(LnkLI446))(V855,V856)); |
5413 |
(void)((*(LnkLI345))((base[0]->c.c_car),V804)); |
(void)((*(LnkLI345))((base[0]->c.c_car),V851)); |
5414 |
(void)((*(LnkLI447))(VV[19],(base[0]->c.c_car),VV[274],(V804))); |
(void)((*(LnkLI447))(VV[19],(base[0]->c.c_car),VV[274],(V851))); |
5415 |
|
V858 = (base[0]->c.c_car); |
5416 |
vs_base=vs_top; |
vs_base=vs_top; |
5417 |
(void) (*Lnk350)(); |
(void) (*Lnk350)(); |
5418 |
vs_top=sup; |
vs_top=sup; |
5419 |
V810= vs_base[0]; |
V859= vs_base[0]; |
5420 |
(void)((*(LnkLI447))(VV[19],(base[0]->c.c_car),VV[275],V810)); |
(void)((*(LnkLI447))(VV[19],V858,VV[275],V859)); |
5421 |
base[1]= (base[0]->c.c_car); |
base[1]= (base[0]->c.c_car); |
5422 |
base[2]= (V804); |
base[2]= (V851); |
5423 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5424 |
(void) (*Lnk346)(); |
(void) (*Lnk346)(); |
5425 |
vs_top=sup; |
vs_top=sup; |
5426 |
{object V811; |
{object V860; |
5427 |
V811= (*(LnkLI448))(); |
V860= (*(LnkLI448))(); |
5428 |
{object V813; |
{object V862; |
5429 |
V813= (base[0]->c.c_car); |
V862= (base[0]->c.c_car); |
5430 |
if(type_of((V813))==t_structure){ |
if(type_of((V862))==t_structure){ |
5431 |
goto T1737;} |
goto T1737;} |
5432 |
goto T1735; |
goto T1735; |
5433 |
goto T1737; |
goto T1737; |
5434 |
T1737:; |
T1737:; |
5435 |
if(!((((V813))->str.str_def)==(VV[276]))){ |
if(!((((V862))->str.str_def)==(VV[276]))){ |
5436 |
goto T1735;}} |
goto T1735;}} |
5437 |
V812= STREF(object,(base[0]->c.c_car),4); |
V861= STREF(object,(base[0]->c.c_car),4); |
5438 |
goto T1733; |
goto T1733; |
5439 |
goto T1735; |
goto T1735; |
5440 |
T1735:;{object V814; |
T1735:;{object V863; |
5441 |
V814= (VV[147]->s.s_dbind); |
V863= (VV[147]->s.s_dbind); |
5442 |
base[1]= small_fixnum(14); |
base[1]= small_fixnum(14); |
5443 |
base[2]= (base[0]->c.c_car); |
base[2]= (base[0]->c.c_car); |
5444 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5445 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
5446 |
vs_top=sup; |
vs_top=sup; |
5447 |
V815= vs_base[0]; |
V864= vs_base[0]; |
5448 |
if(!((V814)==(CMPcar(V815)))){ |
if(!((V863)==(CMPcar(V864)))){ |
5449 |
goto T1740;}} |
goto T1740;}} |
5450 |
V812= CMPcar(((base[0]->c.c_car))->cc.cc_turbo[12]); |
V861= CMPcar(((base[0]->c.c_car))->cc.cc_turbo[12]); |
5451 |
goto T1733; |
goto T1733; |
5452 |
goto T1740; |
goto T1740; |
5453 |
T1740:; |
T1740:; |
5455 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5456 |
Lerror(); |
Lerror(); |
5457 |
vs_top=sup; |
vs_top=sup; |
5458 |
V812= vs_base[0]; |
V861= vs_base[0]; |
5459 |
goto T1733; |
goto T1733; |
5460 |
T1733:; |
T1733:; |
5461 |
(void)(((V812)->v.v_self[fix((VV[236]->s.s_dbind))]=((V811)))); |
V865 = (VV[236]->s.s_dbind); |
5462 |
if(((V806))==Cnil){ |
V866 = (V860); |
5463 |
|
(void)(((V861)->v.v_self[fix(V865)]=(V866))); |
5464 |
|
if(((V853))==Cnil){ |
5465 |
goto T1730;} |
goto T1730;} |
5466 |
(void)((*(LnkLI11))((V804),(V805))); |
(void)((*(LnkLI11))((V851),(V852))); |
5467 |
(void)((VFUN_NARGS=3,(*(LnkLI449))((base[0]->c.c_car),VV[15],(V805))));} |
(void)((VFUN_NARGS=3,(*(LnkLI449))((base[0]->c.c_car),VV[15],(V852))));} |
5468 |
goto T1730; |
goto T1730; |
5469 |
T1730:; |
T1730:; |
5470 |
{object V816 = (base[0]->c.c_car); |
{object V867 = (base[0]->c.c_car); |
5471 |
VMR74(V816)} |
VMR74(V867)} |
5472 |
va_end(ap); |
va_end(ap); |
5473 |
base[0]=base[0]; |
base[0]=base[0]; |
5474 |
return Cnil;} |
return Cnil;} |
5475 |
} |
} |
5476 |
/* local entry for function SET-DFUN */ |
/* local entry for function SET-DFUN */ |
5477 |
|
|
5478 |
static object LI87(object V817,object first,...) |
static object LI87(object V868,object first,...) |
5479 |
{ |
{ |
5480 |
va_list ap; |
va_list ap; |
5481 |
int narg = VFUN_NARGS; VMB75 VMS75 VMV75 |
int narg = VFUN_NARGS; VMB75 VMS75 VMV75 |
5482 |
{register object V818; |
{register object V869; |
5483 |
register object V819; |
register object V870; |
5484 |
register object V820; |
register object V871; |
5485 |
object V821; |
object V872; |
5486 |
va_start(ap,first); |
va_start(ap,first); |
5487 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
5488 |
V818= V817; |
V869= V868; |
5489 |
narg = narg - 1; |
narg = narg - 1; |
5490 |
if (narg <= 0) goto T1749; |
if (narg <= 0) goto T1749; |
5491 |
else { |
else { |
5492 |
V819= first;} |
V870= first;} |
5493 |
if (--narg <= 0) goto T1750; |
if (--narg <= 0) goto T1750; |
5494 |
else { |
else { |
5495 |
V820= va_arg(ap,object);} |
V871= va_arg(ap,object);} |
5496 |
if (--narg <= 0) goto T1751; |
if (--narg <= 0) goto T1751; |
5497 |
else { |
else { |
5498 |
V821= va_arg(ap,object);} |
V872= va_arg(ap,object);} |
5499 |
--narg; goto T1752; |
--narg; goto T1752; |
5500 |
goto T1749; |
goto T1749; |
5501 |
T1749:; |
T1749:; |
5502 |
V819= Cnil; |
V870= Cnil; |
5503 |
goto T1750; |
goto T1750; |
5504 |
T1750:; |
T1750:; |
5505 |
V820= Cnil; |
V871= Cnil; |
5506 |
goto T1751; |
goto T1751; |
5507 |
T1751:; |
T1751:; |
5508 |
V821= Cnil; |
V872= Cnil; |
5509 |
goto T1752; |
goto T1752; |
5510 |
T1752:; |
T1752:; |
5511 |
if(((V820))==Cnil){ |
if(((V871))==Cnil){ |
5512 |
goto T1756;} |
goto T1756;} |
5513 |
V822= Ct; |
V873 = (V871); |
5514 |
STSET(object,(V820),0, (V818)); |
V874 = (V869); |
5515 |
(void)((V818)); |
V875= Ct; |
5516 |
|
STSET(object,V873,0, V874); |
5517 |
|
(void)(V874); |
5518 |
goto T1756; |
goto T1756; |
5519 |
T1756:; |
T1756:; |
5520 |
{object V823; |
{object V876; |
5521 |
if(((V819))==Cnil){ |
if(((V870))==Cnil){ |
5522 |
goto T1762;} |
goto T1762;} |
5523 |
if(((V820))!=Cnil){ |
if(((V871))!=Cnil){ |
5524 |
goto T1761;} |
goto T1761;} |
5525 |
if(((V821))==Cnil){ |
if(((V872))==Cnil){ |
5526 |
goto T1762;} |
goto T1762;} |
5527 |
goto T1761; |
goto T1761; |
5528 |
T1761:; |
T1761:; |
5529 |
V823= listA(3,(V819),(V820),(V821)); |
V876= listA(3,(V870),(V871),(V872)); |
5530 |
goto T1760; |
goto T1760; |
5531 |
goto T1762; |
goto T1762; |
5532 |
T1762:; |
T1762:; |
5533 |
V823= (V819); |
V876= (V870); |
5534 |
goto T1760; |
goto T1760; |
5535 |
T1760:; |
T1760:; |
5536 |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
5537 |
goto T1769;} |
goto T1769;} |
5538 |
base[0]= (V823); |
base[0]= (V876); |
5539 |
base[1]= V818; |
base[1]= V869; |
5540 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5541 |
(void) (*Lnk450)(Lclptr450); |
(void) (*Lnk450)(Lclptr450); |
5542 |
vs_top=sup; |
vs_top=sup; |
5543 |
goto T1759; |
goto T1759; |
5544 |
goto T1769; |
goto T1769; |
5545 |
T1769:; |
T1769:; |
5546 |
if(type_of(V818)==t_structure){ |
if(type_of(V869)==t_structure){ |
5547 |
goto T1777;} |
goto T1777;} |
5548 |
goto T1775; |
goto T1775; |
5549 |
goto T1777; |
goto T1777; |
5550 |
T1777:; |
T1777:; |
5551 |
if(!(((V818)->str.str_def)==(VV[278]))){ |
if(!(((V869)->str.str_def)==(VV[278]))){ |
5552 |
goto T1775;} |
goto T1775;} |
5553 |
V825= STREF(object,(V818),4); |
V878= STREF(object,(V869),4); |
5554 |
goto T1773; |
goto T1773; |
5555 |
goto T1775; |
goto T1775; |
5556 |
T1775:;{object V827; |
T1775:;{object V880; |
5557 |
V827= (VV[147]->s.s_dbind); |
V880= (VV[147]->s.s_dbind); |
5558 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
5559 |
base[1]= (V818); |
base[1]= (V869); |
5560 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5561 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
5562 |
vs_top=sup; |
vs_top=sup; |
5563 |
V828= vs_base[0]; |
V881= vs_base[0]; |
5564 |
if(!((V827)==(CMPcar(V828)))){ |
if(!((V880)==(CMPcar(V881)))){ |
5565 |
goto T1780;}} |
goto T1780;}} |
5566 |
V825= CMPcar(((V818))->cc.cc_turbo[12]); |
V878= CMPcar(((V869))->cc.cc_turbo[12]); |
5567 |
goto T1773; |
goto T1773; |
5568 |
goto T1780; |
goto T1780; |
5569 |
T1780:; |
T1780:; |
5571 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5572 |
Lerror(); |
Lerror(); |
5573 |
vs_top=sup; |
vs_top=sup; |
5574 |
V825= vs_base[0]; |
V878= vs_base[0]; |
5575 |
goto T1773; |
goto T1773; |
5576 |
T1773:; |
T1773:; |
5577 |
(void)(((V825)->v.v_self[fix((VV[279]->s.s_dbind))]=((V823))));} |
V882 = (VV[279]->s.s_dbind); |
5578 |
|
V883 = (V876); |
5579 |
|
(void)(((V878)->v.v_self[fix(V882)]=(V883)));} |
5580 |
goto T1759; |
goto T1759; |
5581 |
T1759:; |
T1759:; |
5582 |
{object V829 = (V819); |
{object V884 = (V870); |
5583 |
VMR75(V829)} |
VMR75(V884)} |
5584 |
va_end(ap); |
va_end(ap); |
5585 |
base[0]=base[0]; |
base[0]=base[0]; |
5586 |
return Cnil;} |
return Cnil;} |
5587 |
} |
} |
5588 |
/* local entry for function GF-DFUN-CACHE */ |
/* local entry for function GF-DFUN-CACHE */ |
5589 |
|
|
5590 |
static object LI88(V831) |
static object LI88(V886) |
5591 |
|
|
5592 |
register object V831; |
register object V886; |
5593 |
{ VMB76 VMS76 VMV76 |
{ VMB76 VMS76 VMV76 |
5594 |
goto TTL; |
goto TTL; |
5595 |
TTL:; |
TTL:; |
5596 |
{object V832; |
{object V887; |
5597 |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
5598 |
goto T1788;} |
goto T1788;} |
5599 |
base[0]= (V831); |
base[0]= (V886); |
5600 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5601 |
(void) (*Lnk451)(Lclptr451); |
(void) (*Lnk451)(Lclptr451); |
5602 |
vs_top=sup; |
vs_top=sup; |
5603 |
V832= vs_base[0]; |
V887= vs_base[0]; |
5604 |
goto T1786; |
goto T1786; |
5605 |
goto T1788; |
goto T1788; |
5606 |
T1788:; |
T1788:; |
5607 |
if(type_of(V831)==t_structure){ |
if(type_of(V886)==t_structure){ |
5608 |
goto T1795;} |
goto T1795;} |
5609 |
goto T1793; |
goto T1793; |
5610 |
goto T1795; |
goto T1795; |
5611 |
T1795:; |
T1795:; |
5612 |
if(!(((V831)->str.str_def)==(VV[280]))){ |
if(!(((V886)->str.str_def)==(VV[280]))){ |
5613 |
goto T1793;} |
goto T1793;} |
5614 |
V833= STREF(object,(V831),4); |
V888= STREF(object,(V886),4); |
5615 |
goto T1791; |
goto T1791; |
5616 |
goto T1793; |
goto T1793; |
5617 |
T1793:;{object V835; |
T1793:;{object V890; |
5618 |
V835= (VV[147]->s.s_dbind); |
V890= (VV[147]->s.s_dbind); |
5619 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
5620 |
base[1]= (V831); |
base[1]= (V886); |
5621 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5622 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
5623 |
vs_top=sup; |
vs_top=sup; |
5624 |
V836= vs_base[0]; |
V891= vs_base[0]; |
5625 |
if(!((V835)==(CMPcar(V836)))){ |
if(!((V890)==(CMPcar(V891)))){ |
5626 |
goto T1798;}} |
goto T1798;}} |
5627 |
V833= CMPcar(((V831))->cc.cc_turbo[12]); |
V888= CMPcar(((V886))->cc.cc_turbo[12]); |
5628 |
goto T1791; |
goto T1791; |
5629 |
goto T1798; |
goto T1798; |
5630 |
T1798:; |
T1798:; |
5632 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5633 |
Lerror(); |
Lerror(); |
5634 |
vs_top=sup; |
vs_top=sup; |
5635 |
V833= vs_base[0]; |
V888= vs_base[0]; |
5636 |
goto T1791; |
goto T1791; |
5637 |
T1791:; |
T1791:; |
5638 |
V832= (V833)->v.v_self[fix((VV[279]->s.s_dbind))]; |
V892 = (VV[279]->s.s_dbind); |
5639 |
|
V887= (V888)->v.v_self[fix(V892)]; |
5640 |
goto T1786; |
goto T1786; |
5641 |
T1786:; |
T1786:; |
5642 |
{register object V837; |
{register object V893; |
5643 |
V837= (V832); |
V893= (V887); |
5644 |
base[0]= (V837); |
base[0]= (V893); |
5645 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5646 |
Lfunctionp(); |
Lfunctionp(); |
5647 |
vs_top=sup; |
vs_top=sup; |
5648 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5649 |
goto T1805;} |
goto T1805;} |
5650 |
{object V838 = Cnil; |
{object V894 = Cnil; |
5651 |
VMR76(V838)} |
VMR76(V894)} |
5652 |
goto T1805; |
goto T1805; |
5653 |
T1805:; |
T1805:; |
5654 |
if(!(type_of((V837))==t_cons)){ |
if(!(type_of((V893))==t_cons)){ |
5655 |
goto T1809;} |
goto T1809;} |
5656 |
{object V839 = CMPcadr((V832)); |
{object V895 = CMPcadr((V887)); |
5657 |
VMR76(V839)} |
VMR76(V895)} |
5658 |
goto T1809; |
goto T1809; |
5659 |
T1809:; |
T1809:; |
5660 |
{object V840 = Cnil; |
{object V896 = Cnil; |
5661 |
VMR76(V840)}}} |
VMR76(V896)}}} |
5662 |
base[0]=base[0]; |
base[0]=base[0]; |
5663 |
return Cnil; |
return Cnil; |
5664 |
} |
} |
5665 |
/* local entry for function GF-DFUN-INFO */ |
/* local entry for function GF-DFUN-INFO */ |
5666 |
|
|
5667 |
static object LI89(V842) |
static object LI89(V898) |
5668 |
|
|
5669 |
register object V842; |
register object V898; |
5670 |
{ VMB77 VMS77 VMV77 |
{ VMB77 VMS77 VMV77 |
5671 |
goto TTL; |
goto TTL; |
5672 |
TTL:; |
TTL:; |
5673 |
{object V843; |
{object V899; |
5674 |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
5675 |
goto T1813;} |
goto T1813;} |
5676 |
base[0]= (V842); |
base[0]= (V898); |
5677 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5678 |
(void) (*Lnk451)(Lclptr451); |
(void) (*Lnk451)(Lclptr451); |
5679 |
vs_top=sup; |
vs_top=sup; |
5680 |
V843= vs_base[0]; |
V899= vs_base[0]; |
5681 |
goto T1811; |
goto T1811; |
5682 |
goto T1813; |
goto T1813; |
5683 |
T1813:; |
T1813:; |
5684 |
if(type_of(V842)==t_structure){ |
if(type_of(V898)==t_structure){ |
5685 |
goto T1820;} |
goto T1820;} |
5686 |
goto T1818; |
goto T1818; |
5687 |
goto T1820; |
goto T1820; |
5688 |
T1820:; |
T1820:; |
5689 |
if(!(((V842)->str.str_def)==(VV[281]))){ |
if(!(((V898)->str.str_def)==(VV[281]))){ |
5690 |
goto T1818;} |
goto T1818;} |
5691 |
V844= STREF(object,(V842),4); |
V900= STREF(object,(V898),4); |
5692 |
goto T1816; |
goto T1816; |
5693 |
goto T1818; |
goto T1818; |
5694 |
T1818:;{object V846; |
T1818:;{object V902; |
5695 |
V846= (VV[147]->s.s_dbind); |
V902= (VV[147]->s.s_dbind); |
5696 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
5697 |
base[1]= (V842); |
base[1]= (V898); |
5698 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5699 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
5700 |
vs_top=sup; |
vs_top=sup; |
5701 |
V847= vs_base[0]; |
V903= vs_base[0]; |
5702 |
if(!((V846)==(CMPcar(V847)))){ |
if(!((V902)==(CMPcar(V903)))){ |
5703 |
goto T1823;}} |
goto T1823;}} |
5704 |
V844= CMPcar(((V842))->cc.cc_turbo[12]); |
V900= CMPcar(((V898))->cc.cc_turbo[12]); |
5705 |
goto T1816; |
goto T1816; |
5706 |
goto T1823; |
goto T1823; |
5707 |
T1823:; |
T1823:; |
5709 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5710 |
Lerror(); |
Lerror(); |
5711 |
vs_top=sup; |
vs_top=sup; |
5712 |
V844= vs_base[0]; |
V900= vs_base[0]; |
5713 |
goto T1816; |
goto T1816; |
5714 |
T1816:; |
T1816:; |
5715 |
V843= (V844)->v.v_self[fix((VV[279]->s.s_dbind))]; |
V904 = (VV[279]->s.s_dbind); |
5716 |
|
V899= (V900)->v.v_self[fix(V904)]; |
5717 |
goto T1811; |
goto T1811; |
5718 |
T1811:; |
T1811:; |
5719 |
{register object V848; |
{register object V905; |
5720 |
V848= (V843); |
V905= (V899); |
5721 |
base[0]= (V848); |
base[0]= (V905); |
5722 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5723 |
Lfunctionp(); |
Lfunctionp(); |
5724 |
vs_top=sup; |
vs_top=sup; |
5725 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5726 |
goto T1830;} |
goto T1830;} |
5727 |
{object V849 = Cnil; |
{object V906 = Cnil; |
5728 |
VMR77(V849)} |
VMR77(V906)} |
5729 |
goto T1830; |
goto T1830; |
5730 |
T1830:; |
T1830:; |
5731 |
if(!(type_of((V848))==t_cons)){ |
if(!(type_of((V905))==t_cons)){ |
5732 |
goto T1834;} |
goto T1834;} |
5733 |
{object V850 = CMPcddr((V843)); |
{object V907 = CMPcddr((V899)); |
5734 |
VMR77(V850)} |
VMR77(V907)} |
5735 |
goto T1834; |
goto T1834; |
5736 |
T1834:; |
T1834:; |
5737 |
{object V851 = Cnil; |
{object V908 = Cnil; |
5738 |
VMR77(V851)}}} |
VMR77(V908)}}} |
5739 |
base[0]=base[0]; |
base[0]=base[0]; |
5740 |
return Cnil; |
return Cnil; |
5741 |
} |
} |
5742 |
/* local entry for function EARLY-GF-NAME */ |
/* local entry for function EARLY-GF-NAME */ |
5743 |
|
|
5744 |
static object LI90(V853) |
static object LI90(V910) |
5745 |
|
|
5746 |
register object V853; |
register object V910; |
5747 |
{ VMB78 VMS78 VMV78 |
{ VMB78 VMS78 VMV78 |
5748 |
goto TTL; |
goto TTL; |
5749 |
TTL:; |
TTL:; |
5750 |
if(type_of(V853)==t_structure){ |
if(type_of(V910)==t_structure){ |
5751 |
goto T1840;} |
goto T1840;} |
5752 |
goto T1838; |
goto T1838; |
5753 |
goto T1840; |
goto T1840; |
5754 |
T1840:; |
T1840:; |
5755 |
if(!(((V853)->str.str_def)==(VV[282]))){ |
if(!(((V910)->str.str_def)==(VV[282]))){ |
5756 |
goto T1838;} |
goto T1838;} |
5757 |
V854= STREF(object,(V853),4); |
V911= STREF(object,(V910),4); |
5758 |
goto T1836; |
goto T1836; |
5759 |
goto T1838; |
goto T1838; |
5760 |
T1838:;{object V856; |
T1838:;{object V913; |
5761 |
V856= (VV[147]->s.s_dbind); |
V913= (VV[147]->s.s_dbind); |
5762 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
5763 |
base[1]= (V853); |
base[1]= (V910); |
5764 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5765 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
5766 |
vs_top=sup; |
vs_top=sup; |
5767 |
V857= vs_base[0]; |
V914= vs_base[0]; |
5768 |
if(!((V856)==(CMPcar(V857)))){ |
if(!((V913)==(CMPcar(V914)))){ |
5769 |
goto T1843;}} |
goto T1843;}} |
5770 |
V854= CMPcar(((V853))->cc.cc_turbo[12]); |
V911= CMPcar(((V910))->cc.cc_turbo[12]); |
5771 |
goto T1836; |
goto T1836; |
5772 |
goto T1843; |
goto T1843; |
5773 |
T1843:; |
T1843:; |
5775 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5776 |
Lerror(); |
Lerror(); |
5777 |
vs_top=sup; |
vs_top=sup; |
5778 |
V854= vs_base[0]; |
V911= vs_base[0]; |
5779 |
goto T1836; |
goto T1836; |
5780 |
T1836:; |
T1836:; |
5781 |
{object V858 = (V854)->v.v_self[fix((VV[283]->s.s_dbind))]; |
V915 = (VV[283]->s.s_dbind); |
5782 |
VMR78(V858)} |
{object V916 = (V911)->v.v_self[fix(V915)]; |
5783 |
|
VMR78(V916)} |
5784 |
base[0]=base[0]; |
base[0]=base[0]; |
5785 |
return Cnil; |
return Cnil; |
5786 |
} |
} |
5787 |
/* local entry for function GF-LAMBDA-LIST */ |
/* local entry for function GF-LAMBDA-LIST */ |
5788 |
|
|
5789 |
static object LI91(V860) |
static object LI91(V918) |
5790 |
|
|
5791 |
register object V860; |
register object V918; |
5792 |
{ VMB79 VMS79 VMV79 |
{ VMB79 VMS79 VMV79 |
5793 |
goto TTL; |
goto TTL; |
5794 |
TTL:; |
TTL:; |
5795 |
{object V861; |
{object V919; |
5796 |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
5797 |
goto T1851;} |
goto T1851;} |
5798 |
base[0]= (V860); |
base[0]= (V918); |
5799 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5800 |
(void) (*Lnk393)(Lclptr393); |
(void) (*Lnk393)(Lclptr393); |
5801 |
vs_top=sup; |
vs_top=sup; |
5802 |
V861= vs_base[0]; |
V919= vs_base[0]; |
5803 |
goto T1849; |
goto T1849; |
5804 |
goto T1851; |
goto T1851; |
5805 |
T1851:; |
T1851:; |
5806 |
if(type_of(V860)==t_structure){ |
if(type_of(V918)==t_structure){ |
5807 |
goto T1858;} |
goto T1858;} |
5808 |
goto T1856; |
goto T1856; |
5809 |
goto T1858; |
goto T1858; |
5810 |
T1858:; |
T1858:; |
5811 |
if(!(((V860)->str.str_def)==(VV[284]))){ |
if(!(((V918)->str.str_def)==(VV[284]))){ |
5812 |
goto T1856;} |
goto T1856;} |
5813 |
V862= STREF(object,(V860),4); |
V920= STREF(object,(V918),4); |
5814 |
goto T1854; |
goto T1854; |
5815 |
goto T1856; |
goto T1856; |
5816 |
T1856:;{object V864; |
T1856:;{object V922; |
5817 |
V864= (VV[147]->s.s_dbind); |
V922= (VV[147]->s.s_dbind); |
5818 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
5819 |
base[1]= (V860); |
base[1]= (V918); |
5820 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5821 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
5822 |
vs_top=sup; |
vs_top=sup; |
5823 |
V865= vs_base[0]; |
V923= vs_base[0]; |
5824 |
if(!((V864)==(CMPcar(V865)))){ |
if(!((V922)==(CMPcar(V923)))){ |
5825 |
goto T1861;}} |
goto T1861;}} |
5826 |
V862= CMPcar(((V860))->cc.cc_turbo[12]); |
V920= CMPcar(((V918))->cc.cc_turbo[12]); |
5827 |
goto T1854; |
goto T1854; |
5828 |
goto T1861; |
goto T1861; |
5829 |
T1861:; |
T1861:; |
5831 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5832 |
Lerror(); |
Lerror(); |
5833 |
vs_top=sup; |
vs_top=sup; |
5834 |
V862= vs_base[0]; |
V920= vs_base[0]; |
5835 |
goto T1854; |
goto T1854; |
5836 |
T1854:; |
T1854:; |
5837 |
V861= (V862)->v.v_self[fix((VV[236]->s.s_dbind))]; |
V924 = (VV[236]->s.s_dbind); |
5838 |
|
V919= (V920)->v.v_self[fix(V924)]; |
5839 |
goto T1849; |
goto T1849; |
5840 |
T1849:; |
T1849:; |
5841 |
if(!((VV[237])==(STREF(object,(V861),0)))){ |
if(!((VV[237])==(STREF(object,(V919),0)))){ |
5842 |
goto T1868;} |
goto T1868;} |
5843 |
{object V866; |
{object V925; |
5844 |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
5845 |
goto T1872;} |
goto T1872;} |
5846 |
base[0]= (V860); |
base[0]= (V918); |
5847 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5848 |
(void) (*Lnk426)(Lclptr426); |
(void) (*Lnk426)(Lclptr426); |
5849 |
vs_top=sup; |
vs_top=sup; |
5850 |
V866= vs_base[0]; |
V925= vs_base[0]; |
5851 |
goto T1870; |
goto T1870; |
5852 |
goto T1872; |
goto T1872; |
5853 |
T1872:; |
T1872:; |
5854 |
if(type_of(V860)==t_structure){ |
if(type_of(V918)==t_structure){ |
5855 |
goto T1879;} |
goto T1879;} |
5856 |
goto T1877; |
goto T1877; |
5857 |
goto T1879; |
goto T1879; |
5858 |
T1879:; |
T1879:; |
5859 |
if(!(((V860)->str.str_def)==(VV[285]))){ |
if(!(((V918)->str.str_def)==(VV[285]))){ |
5860 |
goto T1877;} |
goto T1877;} |
5861 |
V867= STREF(object,(V860),4); |
V926= STREF(object,(V918),4); |
5862 |
goto T1875; |
goto T1875; |
5863 |
goto T1877; |
goto T1877; |
5864 |
T1877:;{object V869; |
T1877:;{object V928; |
5865 |
V869= (VV[147]->s.s_dbind); |
V928= (VV[147]->s.s_dbind); |
5866 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
5867 |
base[1]= (V860); |
base[1]= (V918); |
5868 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5869 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
5870 |
vs_top=sup; |
vs_top=sup; |
5871 |
V870= vs_base[0]; |
V929= vs_base[0]; |
5872 |
if(!((V869)==(CMPcar(V870)))){ |
if(!((V928)==(CMPcar(V929)))){ |
5873 |
goto T1882;}} |
goto T1882;}} |
5874 |
V867= CMPcar(((V860))->cc.cc_turbo[12]); |
V926= CMPcar(((V918))->cc.cc_turbo[12]); |
5875 |
goto T1875; |
goto T1875; |
5876 |
goto T1882; |
goto T1882; |
5877 |
T1882:; |
T1882:; |
5879 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5880 |
Lerror(); |
Lerror(); |
5881 |
vs_top=sup; |
vs_top=sup; |
5882 |
V867= vs_base[0]; |
V926= vs_base[0]; |
5883 |
goto T1875; |
goto T1875; |
5884 |
T1875:; |
T1875:; |
5885 |
V866= (V867)->v.v_self[fix((VV[235]->s.s_dbind))]; |
V930 = (VV[235]->s.s_dbind); |
5886 |
|
V925= (V926)->v.v_self[fix(V930)]; |
5887 |
goto T1870; |
goto T1870; |
5888 |
T1870:; |
T1870:; |
5889 |
if(((V866))!=Cnil){ |
if(((V925))!=Cnil){ |
5890 |
goto T1889;} |
goto T1889;} |
5891 |
base[0]= VV[286]; |
base[0]= VV[286]; |
5892 |
base[1]= (V860); |
base[1]= (V918); |
5893 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5894 |
(void) (*Lnk398)(); |
(void) (*Lnk398)(); |
5895 |
vs_top=sup; |
vs_top=sup; |
5896 |
{object V871 = Cnil; |
{object V931 = Cnil; |
5897 |
VMR79(V871)} |
VMR79(V931)} |
5898 |
goto T1889; |
goto T1889; |
5899 |
T1889:; |
T1889:; |
5900 |
{object V872; |
{object V932; |
5901 |
object V873; |
object V933; |
5902 |
object V874; |
object V934; |
5903 |
base[3]= (V866); |
base[3]= (V925); |
5904 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5905 |
Llast(); |
Llast(); |
5906 |
vs_top=sup; |
vs_top=sup; |
5907 |
V875= vs_base[0]; |
V935= vs_base[0]; |
5908 |
V872= CMPcar(V875); |
V932= CMPcar(V935); |
5909 |
if(!(type_of((V872))==t_cons)){ |
if(!(type_of((V932))==t_cons)){ |
5910 |
goto T1899;} |
goto T1899;} |
5911 |
V873= (*(LnkLI431))((V872)); |
V933= (*(LnkLI431))((V932)); |
5912 |
goto T1897; |
goto T1897; |
5913 |
goto T1899; |
goto T1899; |
5914 |
T1899:; |
T1899:; |
5915 |
base[3]= (V872); |
base[3]= (V932); |
5916 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5917 |
(void) (*Lnk48)(Lclptr48); |
(void) (*Lnk48)(Lclptr48); |
5918 |
vs_top=sup; |
vs_top=sup; |
5919 |
V873= vs_base[0]; |
V933= vs_base[0]; |
5920 |
goto T1897; |
goto T1897; |
5921 |
T1897:; |
T1897:; |
5922 |
{register object x= VV[62],V876= (V873); |
{register object x= VV[62],V936= (V933); |
5923 |
while(V876!=Cnil) |
while(V936!=Cnil) |
5924 |
if(eql(x,V876->c.c_car)){ |
if(eql(x,V936->c.c_car)){ |
5925 |
V874= V876; |
V934= V936; |
5926 |
goto T1902; |
goto T1902; |
5927 |
}else V876=V876->c.c_cdr; |
}else V936=V936->c.c_cdr; |
5928 |
V874= Cnil;} |
V934= Cnil;} |
5929 |
goto T1902; |
goto T1902; |
5930 |
T1902:; |
T1902:; |
5931 |
if(((V874))==Cnil){ |
if(((V934))==Cnil){ |
5932 |
goto T1904;} |
goto T1904;} |
5933 |
base[3]= (V873); |
base[3]= (V933); |
5934 |
base[4]= CMPcdr((V874)); |
base[4]= CMPcdr((V934)); |
5935 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5936 |
Lldiff(); |
Lldiff(); |
5937 |
vs_top=sup; |
vs_top=sup; |
5938 |
V877= vs_base[0]; |
V937= vs_base[0]; |
5939 |
{object V878 = append(V877,VV[287]); |
{object V938 = append(V937,VV[287]); |
5940 |
VMR79(V878)} |
VMR79(V938)} |
5941 |
goto T1904; |
goto T1904; |
5942 |
T1904:; |
T1904:; |
5943 |
{object V879 = (V873); |
{object V939 = (V933); |
5944 |
VMR79(V879)}}} |
VMR79(V939)}}} |
5945 |
goto T1868; |
goto T1868; |
5946 |
T1868:; |
T1868:; |
5947 |
{object V880 = STREF(object,(V861),0); |
{object V940 = STREF(object,(V919),0); |
5948 |
VMR79(V880)}} |
VMR79(V940)}} |
5949 |
base[0]=base[0]; |
base[0]=base[0]; |
5950 |
return Cnil; |
return Cnil; |
5951 |
} |
} |
5957 |
vs_check; |
vs_check; |
5958 |
check_arg(2); |
check_arg(2); |
5959 |
vs_top=sup; |
vs_top=sup; |
5960 |
{object V881=base[0]->c.c_cdr; |
{object V941=base[0]->c.c_cdr; |
5961 |
if(endp(V881))invalid_macro_call(); |
if(endp(V941))invalid_macro_call(); |
5962 |
base[2]= (V881->c.c_car); |
base[2]= (V941->c.c_car); |
5963 |
V881=V881->c.c_cdr; |
V941=V941->c.c_cdr; |
5964 |
if(endp(V881))invalid_macro_call(); |
if(endp(V941))invalid_macro_call(); |
5965 |
base[3]= (V881->c.c_car); |
base[3]= (V941->c.c_car); |
5966 |
V881=V881->c.c_cdr; |
V941=V941->c.c_cdr; |
5967 |
if(endp(V881))invalid_macro_call(); |
if(endp(V941))invalid_macro_call(); |
5968 |
base[4]= (V881->c.c_car); |
base[4]= (V941->c.c_car); |
5969 |
V881=V881->c.c_cdr; |
V941=V941->c.c_cdr; |
5970 |
if(!endp(V881))invalid_macro_call();} |
if(!endp(V941))invalid_macro_call();} |
5971 |
V882= list(2,VV[288],base[2]); |
V942= list(2,VV[288],base[2]); |
5972 |
V883= list(2,/* INLINE-ARGS */V882,list(3,VV[289],base[2],list(4,VV[290],base[2],Ct,base[4]))); |
V943= list(2,/* INLINE-ARGS */V942,list(3,VV[289],base[2],list(4,VV[290],base[2],Ct,base[4]))); |
5973 |
V884= list(2,VV[291],base[2]); |
V944= list(2,VV[291],base[2]); |
5974 |
V885= make_cons(/* INLINE-ARGS */V884,Cnil); |
V945= make_cons(/* INLINE-ARGS */V944,Cnil); |
5975 |
V886= list(4,VV[121],/* INLINE-ARGS */V883,/* INLINE-ARGS */V885,list(2,Ct,list(3,VV[292],VV[293],base[2]))); |
V946= list(4,VV[121],/* INLINE-ARGS */V943,/* INLINE-ARGS */V945,list(2,Ct,list(3,VV[292],VV[293],base[2]))); |
5976 |
V887= list(3,VV[294],base[3],VV[5]); |
V947= list(3,VV[294],base[3],VV[5]); |
5977 |
V888= list(3,VV[294],base[3],VV[295]); |
V948= list(3,VV[294],base[3],VV[295]); |
5978 |
V889= list(2,VV[296],listA(3,VV[297],base[3],VV[298])); |
V949= list(2,VV[296],listA(3,VV[297],base[3],VV[298])); |
5979 |
V890= make_cons(/* INLINE-ARGS */V889,Cnil); |
V950= make_cons(/* INLINE-ARGS */V949,Cnil); |
5980 |
V891= list(3,VV[297],base[3],VV[4]); |
V951= list(3,VV[297],base[3],VV[4]); |
5981 |
base[5]= list(5,VV[10],/* INLINE-ARGS */V886,/* INLINE-ARGS */V887,/* INLINE-ARGS */V888,list(3,VV[96],/* INLINE-ARGS */V890,list(3,VV[240],VV[299],list(3,VV[30],/* INLINE-ARGS */V891,listA(3,VV[300],list(2,VV[301],base[2]),VV[302]))))); |
base[5]= list(5,VV[10],/* INLINE-ARGS */V946,/* INLINE-ARGS */V947,/* INLINE-ARGS */V948,list(3,VV[96],/* INLINE-ARGS */V950,list(3,VV[240],VV[299],list(3,VV[30],/* INLINE-ARGS */V951,listA(3,VV[300],list(2,VV[301],base[2]),VV[302]))))); |
5982 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
5983 |
return; |
return; |
5984 |
} |
} |
5985 |
/* local entry for function REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION */ |
/* local entry for function REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION */ |
5986 |
|
|
5987 |
static object LI93(object V893,object V892,object first,...) |
static object LI93(object V953,object V952,object first,...) |
5988 |
{ |
{ |
5989 |
va_list ap; |
va_list ap; |
5990 |
int narg = VFUN_NARGS; VMB81 VMS81 VMV81 |
int narg = VFUN_NARGS; VMB81 VMS81 VMV81 |
5991 |
{object V894; |
{object V954; |
5992 |
object V895; |
object V955; |
5993 |
register object V896; |
register object V956; |
5994 |
object V897; |
object V957; |
5995 |
object V898; |
object V958; |
5996 |
object V899; |
object V959; |
5997 |
register object V900; |
register object V960; |
5998 |
object V901; |
object V961; |
5999 |
va_start(ap,first); |
va_start(ap,first); |
6000 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
6001 |
V894= V893; |
V954= V953; |
6002 |
V895= V892; |
V955= V952; |
6003 |
narg= narg - 2; |
narg= narg - 2; |
6004 |
V902 = make_list(narg); |
V962 = make_list(narg); |
6005 |
V896= V902; |
V956= V962; |
6006 |
{ |
{ |
6007 |
parse_key_rest_new(V902,narg,Vcs +3,(struct key *)(void *)&LI93key,first,ap); |
parse_key_rest_new(V962,narg,Vcs +3,(struct key *)(void *)&LI93key,first,ap); |
6008 |
V897=(Vcs[3]); |
V957=(Vcs[3]); |
6009 |
if(Vcs[4]==0){ |
if(Vcs[4]==0){ |
6010 |
V898= Cnil; |
V958= Cnil; |
6011 |
V899= Cnil; |
V959= Cnil; |
6012 |
}else{ |
}else{ |
6013 |
V898=(Vcs[4]); |
V958=(Vcs[4]); |
6014 |
V899= Ct;} |
V959= Ct;} |
6015 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
6016 |
V900= VV[19]; |
V960= VV[19]; |
6017 |
V901= Cnil; |
V961= Cnil; |
6018 |
}else{ |
}else{ |
6019 |
V900=(Vcs[5]); |
V960=(Vcs[5]); |
6020 |
V901= Ct;} |
V961= Ct;} |
6021 |
if(!(type_of((V900))==t_symbol)){ |
if(!(type_of((V960))==t_symbol)){ |
6022 |
goto T1914;} |
goto T1914;} |
6023 |
V900= (VFUN_NARGS=3,(*(LnkLI290))((V900),Ct,(V897))); |
V960= (VFUN_NARGS=3,(*(LnkLI290))((V960),Ct,(V957))); |
6024 |
goto T1912; |
goto T1912; |
6025 |
goto T1914; |
goto T1914; |
6026 |
T1914:; |
T1914:; |
6027 |
{object V903; |
{object V963; |
6028 |
base[0]= (V900); |
base[0]= (V960); |
6029 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6030 |
(void) (*Lnk291)(Lclptr291); |
(void) (*Lnk291)(Lclptr291); |
6031 |
vs_top=sup; |
vs_top=sup; |
6032 |
V903= vs_base[0]; |
V963= vs_base[0]; |
6033 |
if(((V903))==Cnil){ |
if(((V963))==Cnil){ |
6034 |
goto T1920;} |
goto T1920;} |
6035 |
goto T1912; |
goto T1912; |
6036 |
goto T1920; |
goto T1920; |
6037 |
T1920:; |
T1920:; |
6038 |
base[0]= VV[293]; |
base[0]= VV[293]; |
6039 |
base[1]= (V900); |
base[1]= (V960); |
6040 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6041 |
Lerror(); |
Lerror(); |
6042 |
vs_top=sup;} |
vs_top=sup;} |
6043 |
goto T1912; |
goto T1912; |
6044 |
T1912:; |
T1912:; |
6045 |
{object V904; |
{object V964; |
6046 |
object V905; |
object V965; |
6047 |
base[0]= (V896); |
base[0]= (V956); |
6048 |
base[1]= VV[5]; |
base[1]= VV[5]; |
6049 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6050 |
siLrem_f(); |
siLrem_f(); |
6051 |
if(vs_base>=vs_top){vs_top=sup;goto T1928;} |
if(vs_base>=vs_top){vs_top=sup;goto T1928;} |
6052 |
V904= vs_base[0]; |
V964= vs_base[0]; |
6053 |
vs_base++; |
vs_base++; |
6054 |
if(vs_base>=vs_top){vs_top=sup;goto T1929;} |
if(vs_base>=vs_top){vs_top=sup;goto T1929;} |
6055 |
V905= vs_base[0]; |
V965= vs_base[0]; |
6056 |
vs_top=sup; |
vs_top=sup; |
6057 |
goto T1930; |
goto T1930; |
6058 |
goto T1928; |
goto T1928; |
6059 |
T1928:; |
T1928:; |
6060 |
V904= Cnil; |
V964= Cnil; |
6061 |
goto T1929; |
goto T1929; |
6062 |
T1929:; |
T1929:; |
6063 |
V905= Cnil; |
V965= Cnil; |
6064 |
goto T1930; |
goto T1930; |
6065 |
T1930:; |
T1930:; |
6066 |
V896= (V904);} |
V956= (V964);} |
6067 |
{object V906; |
{object V966; |
6068 |
object V907; |
object V967; |
6069 |
base[0]= (V896); |
base[0]= (V956); |
6070 |
base[1]= VV[295]; |
base[1]= VV[295]; |
6071 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6072 |
siLrem_f(); |
siLrem_f(); |
6073 |
if(vs_base>=vs_top){vs_top=sup;goto T1937;} |
if(vs_base>=vs_top){vs_top=sup;goto T1937;} |
6074 |
V906= vs_base[0]; |
V966= vs_base[0]; |
6075 |
vs_base++; |
vs_base++; |
6076 |
if(vs_base>=vs_top){vs_top=sup;goto T1938;} |
if(vs_base>=vs_top){vs_top=sup;goto T1938;} |
6077 |
V907= vs_base[0]; |
V967= vs_base[0]; |
6078 |
vs_top=sup; |
vs_top=sup; |
6079 |
goto T1939; |
goto T1939; |
6080 |
goto T1937; |
goto T1937; |
6081 |
T1937:; |
T1937:; |
6082 |
V906= Cnil; |
V966= Cnil; |
6083 |
goto T1938; |
goto T1938; |
6084 |
T1938:; |
T1938:; |
6085 |
V907= Cnil; |
V967= Cnil; |
6086 |
goto T1939; |
goto T1939; |
6087 |
T1939:; |
T1939:; |
6088 |
V896= (V906);} |
V956= (V966);} |
6089 |
{object V908; |
{object V968; |
6090 |
base[0]= (V896); |
base[0]= (V956); |
6091 |
base[1]= VV[4]; |
base[1]= VV[4]; |
6092 |
base[2]= VV[303]; |
base[2]= VV[303]; |
6093 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
6094 |
Lgetf(); |
Lgetf(); |
6095 |
vs_top=sup; |
vs_top=sup; |
6096 |
V908= vs_base[0]; |
V968= vs_base[0]; |
6097 |
if(((V908))==(VV[303])){ |
if(((V968))==(VV[303])){ |
6098 |
goto T1911;} |
goto T1911;} |
6099 |
{object V910; |
{object V970; |
6100 |
base[2]= (V900); |
base[2]= (V960); |
6101 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6102 |
(void) (*Lnk301)(Lclptr301); |
(void) (*Lnk301)(Lclptr301); |
6103 |
vs_top=sup; |
vs_top=sup; |
6104 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
6105 |
base[2]= CMPcar((V908)); |
base[2]= CMPcar((V968)); |
6106 |
base[3]= CMPcdr((V908)); |
base[3]= CMPcdr((V968)); |
6107 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
6108 |
(void) (*Lnk300)(Lclptr300); |
(void) (*Lnk300)(Lclptr300); |
6109 |
vs_top=sup; |
vs_top=sup; |
6110 |
V910= vs_base[0]; |
V970= vs_base[0]; |
6111 |
{object V911; |
{object V971; |
6112 |
base[1]= (V896); |
base[1]= (V956); |
6113 |
base[2]= (V910); |
base[2]= (V970); |
6114 |
base[3]= VV[4]; |
base[3]= VV[4]; |
6115 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
6116 |
siLput_f(); |
siLput_f(); |
6117 |
vs_top=sup; |
vs_top=sup; |
6118 |
V911= vs_base[0]; |
V971= vs_base[0]; |
6119 |
V896= (V911);}}} |
V956= (V971);}}} |
6120 |
goto T1911; |
goto T1911; |
6121 |
T1911:; |
T1911:; |
6122 |
if(((V901))==Cnil){ |
if(((V961))==Cnil){ |
6123 |
goto T1959;} |
goto T1959;} |
6124 |
V912= (*(LnkLI363))((V894)); |
V972= (*(LnkLI363))((V954)); |
6125 |
if((/* INLINE-ARGS */V912)==((V900))){ |
V973 = (V960); |
6126 |
|
if((/* INLINE-ARGS */V972)==(V973)){ |
6127 |
goto T1959;} |
goto T1959;} |
6128 |
base[0]= (V894); |
base[0]= (V954); |
6129 |
base[1]= (V900); |
base[1]= (V960); |
6130 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6131 |
(void) (*Lnk452)(Lclptr452); |
(void) (*Lnk452)(Lclptr452); |
6132 |
vs_top=sup; |
vs_top=sup; |
6133 |
goto T1959; |
goto T1959; |
6134 |
T1959:; |
T1959:; |
6135 |
{object V913; |
{object V974; |
6136 |
base[0]=VV[453]->s.s_gfdef; |
base[0]=VV[453]->s.s_gfdef; |
6137 |
base[1]= (V894); |
base[1]= (V954); |
6138 |
{object V914; |
{object V975; |
6139 |
V914= (V896); |
V975= (V956); |
6140 |
vs_top=base+2; |
vs_top=base+2; |
6141 |
while(V914!=Cnil) |
while(V975!=Cnil) |
6142 |
{vs_push((V914)->c.c_car);V914=(V914)->c.c_cdr;} |
{vs_push((V975)->c.c_car);V975=(V975)->c.c_cdr;} |
6143 |
vs_base=base+1;} |
vs_base=base+1;} |
6144 |
(void) (*Lnk453)(Lclptr453); |
(void) (*Lnk453)(Lclptr453); |
6145 |
vs_top=sup; |
vs_top=sup; |
6146 |
V913= vs_base[0]; |
V974= vs_base[0]; |
6147 |
if(((V899))==Cnil){ |
if(((V959))==Cnil){ |
6148 |
goto T1969;} |
goto T1969;} |
6149 |
(void)((*(LnkLI11))((V895),(V898))); |
(void)((*(LnkLI11))((V955),(V958))); |
6150 |
goto T1969; |
goto T1969; |
6151 |
T1969:; |
T1969:; |
6152 |
{object V915 = (V913); |
{object V976 = (V974); |
6153 |
VMR81(V915)}} |
VMR81(V976)}} |
6154 |
va_end(ap); |
va_end(ap); |
6155 |
base[0]=base[0]; |
base[0]=base[0]; |
6156 |
return Cnil;} |
return Cnil;} |
6157 |
}} |
}} |
6158 |
/* local entry for function REAL-ENSURE-GF-USING-CLASS--NULL */ |
/* local entry for function REAL-ENSURE-GF-USING-CLASS--NULL */ |
6159 |
|
|
6160 |
static object LI94(object V917,object V916,object first,...) |
static object LI94(object V978,object V977,object first,...) |
6161 |
{ |
{ |
6162 |
va_list ap; |
va_list ap; |
6163 |
int narg = VFUN_NARGS; VMB82 VMS82 VMV82 |
int narg = VFUN_NARGS; VMB82 VMS82 VMV82 |
6164 |
{object V918; |
{object V979; |
6165 |
object V919; |
object V980; |
6166 |
register object V920; |
register object V981; |
6167 |
object V921; |
object V982; |
6168 |
object V922; |
object V983; |
6169 |
object V923; |
object V984; |
6170 |
register object V924; |
register object V985; |
6171 |
va_start(ap,first); |
va_start(ap,first); |
6172 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
6173 |
V918= V917; |
V979= V978; |
6174 |
V919= V916; |
V980= V977; |
6175 |
narg= narg - 2; |
narg= narg - 2; |
6176 |
V925 = make_list(narg); |
V986 = make_list(narg); |
6177 |
V920= V925; |
V981= V986; |
6178 |
{ |
{ |
6179 |
parse_key_rest_new(V925,narg,Vcs +3,(struct key *)(void *)&LI94key,first,ap); |
parse_key_rest_new(V986,narg,Vcs +3,(struct key *)(void *)&LI94key,first,ap); |
6180 |
V921=(Vcs[3]); |
V982=(Vcs[3]); |
6181 |
if(Vcs[4]==0){ |
if(Vcs[4]==0){ |
6182 |
V922= Cnil; |
V983= Cnil; |
6183 |
V923= Cnil; |
V984= Cnil; |
6184 |
}else{ |
}else{ |
6185 |
V922=(Vcs[4]); |
V983=(Vcs[4]); |
6186 |
V923= Ct;} |
V984= Ct;} |
6187 |
V924=(Vcs[5]); |
V985=(Vcs[5]); |
6188 |
if(!(type_of((V924))==t_symbol)){ |
if(!(type_of((V985))==t_symbol)){ |
6189 |
goto T1976;} |
goto T1976;} |
6190 |
V924= (VFUN_NARGS=3,(*(LnkLI290))((V924),Ct,(V921))); |
V985= (VFUN_NARGS=3,(*(LnkLI290))((V985),Ct,(V982))); |
6191 |
goto T1974; |
goto T1974; |
6192 |
goto T1976; |
goto T1976; |
6193 |
T1976:; |
T1976:; |
6194 |
{object V926; |
{object V987; |
6195 |
base[0]= (V924); |
base[0]= (V985); |
6196 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6197 |
(void) (*Lnk291)(Lclptr291); |
(void) (*Lnk291)(Lclptr291); |
6198 |
vs_top=sup; |
vs_top=sup; |
6199 |
V926= vs_base[0]; |
V987= vs_base[0]; |
6200 |
if(((V926))==Cnil){ |
if(((V987))==Cnil){ |
6201 |
goto T1982;} |
goto T1982;} |
6202 |
goto T1974; |
goto T1974; |
6203 |
goto T1982; |
goto T1982; |
6204 |
T1982:; |
T1982:; |
6205 |
base[0]= VV[293]; |
base[0]= VV[293]; |
6206 |
base[1]= (V924); |
base[1]= (V985); |
6207 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6208 |
Lerror(); |
Lerror(); |
6209 |
vs_top=sup;} |
vs_top=sup;} |
6210 |
goto T1974; |
goto T1974; |
6211 |
T1974:; |
T1974:; |
6212 |
{object V927; |
{object V988; |
6213 |
object V928; |
object V989; |
6214 |
base[0]= (V920); |
base[0]= (V981); |
6215 |
base[1]= VV[5]; |
base[1]= VV[5]; |
6216 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6217 |
siLrem_f(); |
siLrem_f(); |
6218 |
if(vs_base>=vs_top){vs_top=sup;goto T1990;} |
if(vs_base>=vs_top){vs_top=sup;goto T1990;} |
6219 |
V927= vs_base[0]; |
V988= vs_base[0]; |
6220 |
vs_base++; |
vs_base++; |
6221 |
if(vs_base>=vs_top){vs_top=sup;goto T1991;} |
if(vs_base>=vs_top){vs_top=sup;goto T1991;} |
6222 |
V928= vs_base[0]; |
V989= vs_base[0]; |
6223 |
vs_top=sup; |
vs_top=sup; |
6224 |
goto T1992; |
goto T1992; |
6225 |
goto T1990; |
goto T1990; |
6226 |
T1990:; |
T1990:; |
6227 |
V927= Cnil; |
V988= Cnil; |
6228 |
goto T1991; |
goto T1991; |
6229 |
T1991:; |
T1991:; |
6230 |
V928= Cnil; |
V989= Cnil; |
6231 |
goto T1992; |
goto T1992; |
6232 |
T1992:; |
T1992:; |
6233 |
V920= (V927);} |
V981= (V988);} |
6234 |
{object V929; |
{object V990; |
6235 |
object V930; |
object V991; |
6236 |
base[0]= (V920); |
base[0]= (V981); |
6237 |
base[1]= VV[295]; |
base[1]= VV[295]; |
6238 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6239 |
siLrem_f(); |
siLrem_f(); |
6240 |
if(vs_base>=vs_top){vs_top=sup;goto T1999;} |
if(vs_base>=vs_top){vs_top=sup;goto T1999;} |
6241 |
V929= vs_base[0]; |
V990= vs_base[0]; |
6242 |
vs_base++; |
vs_base++; |
6243 |
if(vs_base>=vs_top){vs_top=sup;goto T2000;} |
if(vs_base>=vs_top){vs_top=sup;goto T2000;} |
6244 |
V930= vs_base[0]; |
V991= vs_base[0]; |
6245 |
vs_top=sup; |
vs_top=sup; |
6246 |
goto T2001; |
goto T2001; |
6247 |
goto T1999; |
goto T1999; |
6248 |
T1999:; |
T1999:; |
6249 |
V929= Cnil; |
V990= Cnil; |
6250 |
goto T2000; |
goto T2000; |
6251 |
T2000:; |
T2000:; |
6252 |
V930= Cnil; |
V991= Cnil; |
6253 |
goto T2001; |
goto T2001; |
6254 |
T2001:; |
T2001:; |
6255 |
V920= (V929);} |
V981= (V990);} |
6256 |
{object V931; |
{object V992; |
6257 |
base[0]= (V920); |
base[0]= (V981); |
6258 |
base[1]= VV[4]; |
base[1]= VV[4]; |
6259 |
base[2]= VV[303]; |
base[2]= VV[303]; |
6260 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
6261 |
Lgetf(); |
Lgetf(); |
6262 |
vs_top=sup; |
vs_top=sup; |
6263 |
V931= vs_base[0]; |
V992= vs_base[0]; |
6264 |
if(((V931))==(VV[303])){ |
if(((V992))==(VV[303])){ |
6265 |
goto T1973;} |
goto T1973;} |
6266 |
{object V933; |
{object V994; |
6267 |
base[2]= (V924); |
base[2]= (V985); |
6268 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6269 |
(void) (*Lnk301)(Lclptr301); |
(void) (*Lnk301)(Lclptr301); |
6270 |
vs_top=sup; |
vs_top=sup; |
6271 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
6272 |
base[2]= CMPcar((V931)); |
base[2]= CMPcar((V992)); |
6273 |
base[3]= CMPcdr((V931)); |
base[3]= CMPcdr((V992)); |
6274 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
6275 |
(void) (*Lnk300)(Lclptr300); |
(void) (*Lnk300)(Lclptr300); |
6276 |
vs_top=sup; |
vs_top=sup; |
6277 |
V933= vs_base[0]; |
V994= vs_base[0]; |
6278 |
{object V934; |
{object V995; |
6279 |
base[1]= (V920); |
base[1]= (V981); |
6280 |
base[2]= (V933); |
base[2]= (V994); |
6281 |
base[3]= VV[4]; |
base[3]= VV[4]; |
6282 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
6283 |
siLput_f(); |
siLput_f(); |
6284 |
vs_top=sup; |
vs_top=sup; |
6285 |
V934= vs_base[0]; |
V995= vs_base[0]; |
6286 |
V920= (V934);}}} |
V981= (V995);}}} |
6287 |
goto T1973; |
goto T1973; |
6288 |
T1973:; |
T1973:; |
6289 |
{object V935; |
{object V996; |
6290 |
base[0]=VV[454]->s.s_gfdef; |
base[0]=VV[454]->s.s_gfdef; |
6291 |
base[1]= (V924); |
base[1]= (V985); |
6292 |
base[2]= VV[220]; |
base[2]= VV[220]; |
6293 |
base[3]= (V919); |
base[3]= (V980); |
6294 |
{object V938; |
{object V999; |
6295 |
V938= (V920); |
V999= (V981); |
6296 |
vs_top=base+4; |
vs_top=base+4; |
6297 |
while(V938!=Cnil) |
while(V999!=Cnil) |
6298 |
{vs_push((V938)->c.c_car);V938=(V938)->c.c_cdr;} |
{vs_push((V999)->c.c_car);V999=(V999)->c.c_cdr;} |
6299 |
vs_base=base+1;} |
vs_base=base+1;} |
6300 |
(void) (*Lnk454)(Lclptr454); |
(void) (*Lnk454)(Lclptr454); |
6301 |
vs_top=sup; |
vs_top=sup; |
6302 |
V937= vs_base[0]; |
V998= vs_base[0]; |
6303 |
V935= (*(LnkLI345))(V937,V919); |
V1000 = V980; |
6304 |
if(((V923))==Cnil){ |
V996= (*(LnkLI345))(V998,V1000); |
6305 |
|
if(((V984))==Cnil){ |
6306 |
goto T2027;} |
goto T2027;} |
6307 |
(void)((*(LnkLI11))((V919),(V922))); |
(void)((*(LnkLI11))((V980),(V983))); |
6308 |
goto T2027; |
goto T2027; |
6309 |
T2027:; |
T2027:; |
6310 |
{object V939 = (V935); |
{object V1001 = (V996); |
6311 |
VMR82(V939)}} |
VMR82(V1001)}} |
6312 |
va_end(ap); |
va_end(ap); |
6313 |
base[0]=base[0]; |
base[0]=base[0]; |
6314 |
return Cnil;} |
return Cnil;} |
6319 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6320 |
register object *sup=base+VM83; VC83 |
register object *sup=base+VM83; VC83 |
6321 |
vs_check; |
vs_check; |
6322 |
{register object V940; |
{register object V1002; |
6323 |
check_arg(1); |
check_arg(1); |
6324 |
V940=(base[0]); |
V1002=(base[0]); |
6325 |
vs_top=sup; |
vs_top=sup; |
6326 |
goto TTL; |
goto TTL; |
6327 |
TTL:; |
TTL:; |
6328 |
{object V941; |
{object V1003; |
6329 |
object V942; |
object V1004; |
6330 |
object V943; |
object V1005; |
6331 |
{object V944; |
{object V1006; |
6332 |
object V945; |
object V1007; |
6333 |
if(((*(LnkLI438))((V940)))==Cnil){ |
if(((*(LnkLI438))((V1002)))==Cnil){ |
6334 |
goto T2033;} |
goto T2033;} |
6335 |
if(type_of(V940)==t_structure){ |
if(type_of(V1002)==t_structure){ |
6336 |
goto T2039;} |
goto T2039;} |
6337 |
goto T2037; |
goto T2037; |
6338 |
goto T2039; |
goto T2039; |
6339 |
T2039:; |
T2039:; |
6340 |
if(!(((V940)->str.str_def)==(VV[304]))){ |
if(!(((V1002)->str.str_def)==(VV[304]))){ |
6341 |
goto T2037;} |
goto T2037;} |
6342 |
V946= STREF(object,(V940),4); |
V1008= STREF(object,(V1002),4); |
6343 |
goto T2035; |
goto T2035; |
6344 |
goto T2037; |
goto T2037; |
6345 |
T2037:;{object V948; |
T2037:;{object V1010; |
6346 |
V948= (VV[147]->s.s_dbind); |
V1010= (VV[147]->s.s_dbind); |
6347 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
6348 |
base[4]= (V940); |
base[4]= (V1002); |
6349 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
6350 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
6351 |
vs_top=sup; |
vs_top=sup; |
6352 |
V949= vs_base[0]; |
V1011= vs_base[0]; |
6353 |
if(!((V948)==(CMPcar(V949)))){ |
if(!((V1010)==(CMPcar(V1011)))){ |
6354 |
goto T2042;}} |
goto T2042;}} |
6355 |
V946= CMPcar(((V940))->cc.cc_turbo[12]); |
V1008= CMPcar(((V1002))->cc.cc_turbo[12]); |
6356 |
goto T2035; |
goto T2035; |
6357 |
goto T2042; |
goto T2042; |
6358 |
T2042:; |
T2042:; |
6360 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6361 |
Lerror(); |
Lerror(); |
6362 |
vs_top=sup; |
vs_top=sup; |
6363 |
V946= vs_base[0]; |
V1008= vs_base[0]; |
6364 |
goto T2035; |
goto T2035; |
6365 |
T2035:; |
T2035:; |
6366 |
V944= (V946)->v.v_self[fix((VV[236]->s.s_dbind))]; |
V1012 = (VV[236]->s.s_dbind); |
6367 |
|
V1006= (V1008)->v.v_self[fix(V1012)]; |
6368 |
goto T2031; |
goto T2031; |
6369 |
goto T2033; |
goto T2033; |
6370 |
T2033:; |
T2033:; |
6371 |
base[3]= (V940); |
base[3]= (V1002); |
6372 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6373 |
(void) (*Lnk393)(Lclptr393); |
(void) (*Lnk393)(Lclptr393); |
6374 |
vs_top=sup; |
vs_top=sup; |
6375 |
V944= vs_base[0]; |
V1006= vs_base[0]; |
6376 |
goto T2031; |
goto T2031; |
6377 |
T2031:; |
T2031:; |
6378 |
V945= STREF(object,(V944),8); |
V1007= STREF(object,(V1006),8); |
6379 |
base[3]= (*(LnkLI395))((V944)); |
base[3]= (*(LnkLI395))((V1006)); |
6380 |
base[4]= (V945); |
base[4]= (V1007); |
6381 |
base[5]= (V944); |
base[5]= (V1006); |
6382 |
vs_top=(vs_base=base+3)+3;} |
vs_top=(vs_base=base+3)+3;} |
6383 |
if(vs_base>=vs_top){vs_top=sup;goto T2053;} |
if(vs_base>=vs_top){vs_top=sup;goto T2053;} |
6384 |
V941= vs_base[0]; |
V1003= vs_base[0]; |
6385 |
vs_base++; |
vs_base++; |
6386 |
if(vs_base>=vs_top){vs_top=sup;goto T2054;} |
if(vs_base>=vs_top){vs_top=sup;goto T2054;} |
6387 |
V942= vs_base[0]; |
V1004= vs_base[0]; |
6388 |
vs_base++; |
vs_base++; |
6389 |
if(vs_base>=vs_top){vs_top=sup;goto T2055;} |
if(vs_base>=vs_top){vs_top=sup;goto T2055;} |
6390 |
V943= vs_base[0]; |
V1005= vs_base[0]; |
6391 |
vs_top=sup; |
vs_top=sup; |
6392 |
goto T2056; |
goto T2056; |
6393 |
goto T2053; |
goto T2053; |
6394 |
T2053:; |
T2053:; |
6395 |
V941= Cnil; |
V1003= Cnil; |
6396 |
goto T2054; |
goto T2054; |
6397 |
T2054:; |
T2054:; |
6398 |
V942= Cnil; |
V1004= Cnil; |
6399 |
goto T2055; |
goto T2055; |
6400 |
T2055:; |
T2055:; |
6401 |
V943= Cnil; |
V1005= Cnil; |
6402 |
goto T2056; |
goto T2056; |
6403 |
T2056:; |
T2056:; |
6404 |
base[1]= CMPmake_fixnum((long)length((V942))); |
base[1]= CMPmake_fixnum((long)length((V1004))); |
6405 |
base[2]= (V941); |
base[2]= (V1003); |
6406 |
base[3]= (V942); |
base[3]= (V1004); |
6407 |
base[5]= VV[455]; |
base[5]= VV[455]; |
6408 |
base[6]= (V942); |
base[6]= (V1004); |
6409 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
6410 |
(void) (*Lnk425)(); |
(void) (*Lnk425)(); |
6411 |
vs_top=sup; |
vs_top=sup; |
6412 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
6413 |
base[5]= (V943); |
base[5]= (V1005); |
6414 |
vs_top=(vs_base=base+1)+5; |
vs_top=(vs_base=base+1)+5; |
6415 |
return;} |
return;} |
6416 |
} |
} |
6417 |
} |
} |
6418 |
/* local entry for function EARLY-MAKE-A-METHOD */ |
/* local entry for function EARLY-MAKE-A-METHOD */ |
6419 |
|
|
6420 |
static object LI96(object V955,object V954,object V953,object V952,object V951,object V950,object first,...) |
static object LI96(object V1018,object V1017,object V1016,object V1015,object V1014,object V1013,object first,...) |
6421 |
{ |
{ |
6422 |
va_list ap; |
va_list ap; |
6423 |
int narg = VFUN_NARGS; VMB84 VMS84 VMV84 |
int narg = VFUN_NARGS; VMB84 VMS84 VMV84 |
6424 |
{object V956; |
{object V1019; |
6425 |
object V957; |
object V1020; |
6426 |
object V958; |
object V1021; |
6427 |
register object V959; |
register object V1022; |
6428 |
register object V960; |
register object V1023; |
6429 |
object V961; |
object V1024; |
6430 |
object V962; |
object V1025; |
6431 |
va_start(ap,first); |
va_start(ap,first); |
6432 |
if(narg <6) too_few_arguments(); |
if(narg <6) too_few_arguments(); |
6433 |
V956= V955; |
V1019= V1018; |
6434 |
V957= V954; |
V1020= V1017; |
6435 |
V958= V953; |
V1021= V1016; |
6436 |
V959= V952; |
V1022= V1015; |
6437 |
V960= V951; |
V1023= V1014; |
6438 |
V961= V950; |
V1024= V1013; |
6439 |
narg = narg - 6; |
narg = narg - 6; |
6440 |
if (narg <= 0) goto T2064; |
if (narg <= 0) goto T2064; |
6441 |
else { |
else { |
6442 |
V962= first;} |
V1025= first;} |
6443 |
--narg; goto T2065; |
--narg; goto T2065; |
6444 |
goto T2064; |
goto T2064; |
6445 |
T2064:; |
T2064:; |
6446 |
V962= Cnil; |
V1025= Cnil; |
6447 |
goto T2065; |
goto T2065; |
6448 |
T2065:; |
T2065:; |
6449 |
(void)((VFUN_NARGS=1,(*(LnkLI456))((V960)))); |
(void)((VFUN_NARGS=1,(*(LnkLI456))((V1023)))); |
6450 |
{object V963; |
{object V1026; |
6451 |
object V964; |
object V1027; |
6452 |
V963= Cnil; |
V1026= Cnil; |
6453 |
V964= Cnil; |
V1027= Cnil; |
6454 |
base[0]= VV[457]; |
base[0]= VV[457]; |
6455 |
base[1]= (V959); |
base[1]= (V1022); |
6456 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6457 |
(void) (*Lnk366)(); |
(void) (*Lnk366)(); |
6458 |
vs_top=sup; |
vs_top=sup; |
6459 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
6460 |
goto T2070;} |
goto T2070;} |
6461 |
V963= (V959); |
V1026= (V1022); |
6462 |
{object V965; |
{object V1028; |
6463 |
object V966= (V959); |
object V1029= (V1022); |
6464 |
if(V966==Cnil){ |
if(V1029==Cnil){ |
6465 |
V964= Cnil; |
V1027= Cnil; |
6466 |
goto T2076;} |
goto T2076;} |
6467 |
base[0]=V965=MMcons(Cnil,Cnil); |
base[0]=V1028=MMcons(Cnil,Cnil); |
6468 |
goto T2077; |
goto T2077; |
6469 |
T2077:; |
T2077:; |
6470 |
if(!(((V966->c.c_car))==(Ct))){ |
if(!(((V1029->c.c_car))==(Ct))){ |
6471 |
goto T2080;} |
goto T2080;} |
6472 |
(V965->c.c_car)= Ct; |
(V1028->c.c_car)= Ct; |
6473 |
goto T2078; |
goto T2078; |
6474 |
goto T2080; |
goto T2080; |
6475 |
T2080:; |
T2080:; |
6476 |
base[1]= (V966->c.c_car); |
base[1]= (V1029->c.c_car); |
6477 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6478 |
(void) (*Lnk364)(Lclptr364); |
(void) (*Lnk364)(Lclptr364); |
6479 |
vs_top=sup; |
vs_top=sup; |
6480 |
(V965->c.c_car)= vs_base[0]; |
(V1028->c.c_car)= vs_base[0]; |
6481 |
goto T2078; |
goto T2078; |
6482 |
T2078:; |
T2078:; |
6483 |
if((V966=MMcdr(V966))==Cnil){ |
if((V1029=MMcdr(V1029))==Cnil){ |
6484 |
V964= base[0]; |
V1027= base[0]; |
6485 |
goto T2076;} |
goto T2076;} |
6486 |
V965=MMcdr(V965)=MMcons(Cnil,Cnil); |
V1028=MMcdr(V1028)=MMcons(Cnil,Cnil); |
6487 |
goto T2077;} |
goto T2077;} |
6488 |
goto T2076; |
goto T2076; |
6489 |
T2076:; |
T2076:; |
6490 |
goto T2068; |
goto T2068; |
6491 |
goto T2070; |
goto T2070; |
6492 |
T2070:; |
T2070:; |
6493 |
V964= (V959); |
V1027= (V1022); |
6494 |
V963= Cnil; |
V1026= Cnil; |
6495 |
goto T2068; |
goto T2068; |
6496 |
T2068:; |
T2068:; |
6497 |
base[0]= (V960); |
base[0]= (V1023); |
6498 |
base[1]= VV[36]; |
base[1]= VV[36]; |
6499 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6500 |
Lgetf(); |
Lgetf(); |
6501 |
vs_top=sup; |
vs_top=sup; |
6502 |
V968= vs_base[0]; |
V1031= vs_base[0]; |
6503 |
base[0]= (V960); |
base[0]= (V1023); |
6504 |
base[1]= VV[216]; |
base[1]= VV[216]; |
6505 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6506 |
Lgetf(); |
Lgetf(); |
6507 |
vs_top=sup; |
vs_top=sup; |
6508 |
V969= vs_base[0]; |
V1032= vs_base[0]; |
6509 |
{object V970 = list(5,VV[305],V968,V969,(V963),list(7,(V956),(V957),(V958),(V964),(V960),(V961),(V962))); |
V1033 = (V1026); |
6510 |
VMR84(V970)}} |
{object V1034 = list(5,VV[305],V1031,V1032,V1033,list(7,(V1019),(V1020),(V1021),(V1027),(V1023),(V1024),(V1025))); |
6511 |
|
VMR84(V1034)}} |
6512 |
va_end(ap); |
va_end(ap); |
6513 |
base[0]=base[0]; |
base[0]=base[0]; |
6514 |
return Cnil;} |
return Cnil;} |
6519 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6520 |
register object *sup=base+VM85; VC85 |
register object *sup=base+VM85; VC85 |
6521 |
vs_check; |
vs_check; |
6522 |
{object V971; |
{object V1035; |
6523 |
object V972; |
object V1036; |
6524 |
object V973; |
object V1037; |
6525 |
object V974; |
object V1038; |
6526 |
object V975; |
object V1039; |
6527 |
object V976; |
object V1040; |
6528 |
object V977; |
object V1041; |
6529 |
if(vs_top-vs_base<6) too_few_arguments(); |
if(vs_top-vs_base<6) too_few_arguments(); |
6530 |
if(vs_top-vs_base>7) too_many_arguments(); |
if(vs_top-vs_base>7) too_many_arguments(); |
6531 |
V971=(base[0]); |
V1035=(base[0]); |
6532 |
V972=(base[1]); |
V1036=(base[1]); |
6533 |
V973=(base[2]); |
V1037=(base[2]); |
6534 |
V974=(base[3]); |
V1038=(base[3]); |
6535 |
V975=(base[4]); |
V1039=(base[4]); |
6536 |
V976=(base[5]); |
V1040=(base[5]); |
6537 |
vs_base=vs_base+6; |
vs_base=vs_base+6; |
6538 |
if(vs_base>=vs_top){vs_top=sup;goto T2092;} |
if(vs_base>=vs_top){vs_top=sup;goto T2092;} |
6539 |
V977=(base[6]); |
V1041=(base[6]); |
6540 |
vs_top=sup; |
vs_top=sup; |
6541 |
goto T2093; |
goto T2093; |
6542 |
goto T2092; |
goto T2092; |
6543 |
T2092:; |
T2092:; |
6544 |
V977= Cnil; |
V1041= Cnil; |
6545 |
goto T2093; |
goto T2093; |
6546 |
T2093:; |
T2093:; |
6547 |
V974= (*(LnkLI458))((V974)); |
V1038= (*(LnkLI458))((V1038)); |
6548 |
base[7]=VV[454]->s.s_gfdef; |
base[7]=VV[454]->s.s_gfdef; |
6549 |
base[8]= (V971); |
base[8]= (V1035); |
6550 |
base[9]= VV[306]; |
base[9]= VV[306]; |
6551 |
base[10]= (V972); |
base[10]= (V1036); |
6552 |
base[11]= VV[15]; |
base[11]= VV[15]; |
6553 |
base[12]= (V973); |
base[12]= (V1037); |
6554 |
base[13]= VV[307]; |
base[13]= VV[307]; |
6555 |
base[14]= (V974); |
base[14]= (V1038); |
6556 |
base[15]= VV[3]; |
base[15]= VV[3]; |
6557 |
base[16]= (V976); |
base[16]= (V1040); |
6558 |
base[17]= VV[308]; |
base[17]= VV[308]; |
6559 |
base[18]= (V977); |
base[18]= (V1041); |
6560 |
base[19]= VV[309]; |
base[19]= VV[309]; |
6561 |
base[20]= Ct; |
base[20]= Ct; |
6562 |
{object V978; |
{object V1042; |
6563 |
V978= (V975); |
V1042= (V1039); |
6564 |
vs_top=base+21; |
vs_top=base+21; |
6565 |
while(V978!=Cnil) |
while(V1042!=Cnil) |
6566 |
{vs_push((V978)->c.c_car);V978=(V978)->c.c_cdr;} |
{vs_push((V1042)->c.c_car);V1042=(V1042)->c.c_cdr;} |
6567 |
vs_base=base+8;} |
vs_base=base+8;} |
6568 |
(void) (*Lnk454)(Lclptr454); |
(void) (*Lnk454)(Lclptr454); |
6569 |
return; |
return; |
6575 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6576 |
register object *sup=base+VM86; VC86 |
register object *sup=base+VM86; VC86 |
6577 |
vs_check; |
vs_check; |
6578 |
{object V979; |
{object V1043; |
6579 |
check_arg(1); |
check_arg(1); |
6580 |
V979=(base[0]); |
V1043=(base[0]); |
6581 |
vs_top=sup; |
vs_top=sup; |
6582 |
goto TTL; |
goto TTL; |
6583 |
TTL:; |
TTL:; |
6584 |
base[1]= CMPcadr((V979)); |
base[1]= CMPcadr((V1043)); |
6585 |
base[2]= CMPcaddr((V979)); |
base[2]= CMPcaddr((V1043)); |
6586 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
6587 |
return; |
return; |
6588 |
} |
} |
6589 |
} |
} |
6590 |
/* local entry for function EARLY-METHOD-CLASS */ |
/* local entry for function EARLY-METHOD-CLASS */ |
6591 |
|
|
6592 |
static object LI99(V981) |
static object LI99(V1045) |
6593 |
|
|
6594 |
object V981; |
object V1045; |
6595 |
{ VMB87 VMS87 VMV87 |
{ VMB87 VMS87 VMV87 |
6596 |
goto TTL; |
goto TTL; |
6597 |
TTL:; |
TTL:; |
6598 |
base[0]= (V981); |
base[0]= (V1045); |
6599 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6600 |
(void) (*Lnk459)(); |
(void) (*Lnk459)(); |
6601 |
vs_top=sup; |
vs_top=sup; |
6602 |
V982= vs_base[0]; |
V1046= vs_base[0]; |
6603 |
{object V983 = (VFUN_NARGS=1,(*(LnkLI290))(CMPcar(V982))); |
{object V1047 = (VFUN_NARGS=1,(*(LnkLI290))(CMPcar(V1046))); |
6604 |
VMR87(V983)} |
VMR87(V1047)} |
6605 |
base[0]=base[0]; |
base[0]=base[0]; |
6606 |
return Cnil; |
return Cnil; |
6607 |
} |
} |
6608 |
/* local entry for function EARLY-METHOD-STANDARD-ACCESSOR-P */ |
/* local entry for function EARLY-METHOD-STANDARD-ACCESSOR-P */ |
6609 |
|
|
6610 |
static object LI100(V985) |
static object LI100(V1049) |
6611 |
|
|
6612 |
object V985; |
object V1049; |
6613 |
{ VMB88 VMS88 VMV88 |
{ VMB88 VMS88 VMV88 |
6614 |
goto TTL; |
goto TTL; |
6615 |
TTL:; |
TTL:; |
6616 |
{object V986; |
{object V1050; |
6617 |
base[0]= (V985); |
base[0]= (V1049); |
6618 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6619 |
(void) (*Lnk459)(); |
(void) (*Lnk459)(); |
6620 |
vs_top=sup; |
vs_top=sup; |
6621 |
V987= vs_base[0]; |
V1051= vs_base[0]; |
6622 |
V986= CMPcar(V987); |
V1050= CMPcar(V1051); |
6623 |
if(!(((V986))==(VV[310]))){ |
if(!(((V1050))==(VV[310]))){ |
6624 |
goto T2118;} |
goto T2118;} |
6625 |
{object V988 = Ct; |
{object V1052 = Ct; |
6626 |
VMR88(V988)} |
VMR88(V1052)} |
6627 |
goto T2118; |
goto T2118; |
6628 |
T2118:; |
T2118:; |
6629 |
if(!(((V986))==(VV[311]))){ |
if(!(((V1050))==(VV[311]))){ |
6630 |
goto T2120;} |
goto T2120;} |
6631 |
{object V989 = Ct; |
{object V1053 = Ct; |
6632 |
VMR88(V989)} |
VMR88(V1053)} |
6633 |
goto T2120; |
goto T2120; |
6634 |
T2120:; |
T2120:; |
6635 |
{object V990 = (((V986))==(VV[312])?Ct:Cnil); |
{object V1054 = (((V1050))==(VV[312])?Ct:Cnil); |
6636 |
VMR88(V990)}} |
VMR88(V1054)}} |
6637 |
base[0]=base[0]; |
base[0]=base[0]; |
6638 |
return Cnil; |
return Cnil; |
6639 |
} |
} |
6643 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6644 |
register object *sup=base+VM89; VC89 |
register object *sup=base+VM89; VC89 |
6645 |
vs_check; |
vs_check; |
6646 |
{object V991; |
{object V1055; |
6647 |
check_arg(1); |
check_arg(1); |
6648 |
V991=(base[0]); |
V1055=(base[0]); |
6649 |
vs_top=sup; |
vs_top=sup; |
6650 |
goto TTL; |
goto TTL; |
6651 |
TTL:; |
TTL:; |
6652 |
base[2]= (V991); |
base[2]= (V1055); |
6653 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6654 |
(void) (*Lnk459)(); |
(void) (*Lnk459)(); |
6655 |
vs_top=sup; |
vs_top=sup; |
6661 |
} |
} |
6662 |
/* local entry for function EARLY-METHOD-SPECIALIZERS */ |
/* local entry for function EARLY-METHOD-SPECIALIZERS */ |
6663 |
|
|
6664 |
static object LI102(object V992,object first,...) |
static object LI102(object V1056,object first,...) |
6665 |
{ |
{ |
6666 |
va_list ap; |
va_list ap; |
6667 |
int narg = VFUN_NARGS; VMB90 VMS90 VMV90 |
int narg = VFUN_NARGS; VMB90 VMS90 VMV90 |
6668 |
{register object V993; |
{register object V1057; |
6669 |
object V994; |
object V1058; |
6670 |
va_start(ap,first); |
va_start(ap,first); |
6671 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
6672 |
V993= V992; |
V1057= V1056; |
6673 |
narg = narg - 1; |
narg = narg - 1; |
6674 |
if (narg <= 0) goto T2124; |
if (narg <= 0) goto T2124; |
6675 |
else { |
else { |
6676 |
V994= first;} |
V1058= first;} |
6677 |
--narg; goto T2125; |
--narg; goto T2125; |
6678 |
goto T2124; |
goto T2124; |
6679 |
T2124:; |
T2124:; |
6680 |
V994= Cnil; |
V1058= Cnil; |
6681 |
goto T2125; |
goto T2125; |
6682 |
T2125:; |
T2125:; |
6683 |
if(!(type_of((V993))==t_cons||((V993))==Cnil)){ |
if(!(type_of((V1057))==t_cons||((V1057))==Cnil)){ |
6684 |
goto T2128;} |
goto T2128;} |
6685 |
if(!((CMPcar((V993)))==(VV[305]))){ |
if(!((CMPcar((V1057)))==(VV[305]))){ |
6686 |
goto T2128;} |
goto T2128;} |
6687 |
if(!(((V994))==(Ct))){ |
if(!(((V1058))==(Ct))){ |
6688 |
goto T2133;}{object V995; |
goto T2133;}{object V1059; |
6689 |
V995= CMPcadddr((V993)); |
V1059= CMPcadddr((V1057)); |
6690 |
if(V995==Cnil)goto T2135; |
if(V1059==Cnil)goto T2135; |
6691 |
{object V996 = V995; |
{object V1060 = V1059; |
6692 |
VMR90(V996)} |
VMR90(V1060)} |
6693 |
goto T2135; |
goto T2135; |
6694 |
T2135:;} |
T2135:;} |
6695 |
{object V998; |
{object V1062; |
6696 |
base[2]=VV[290]->s.s_gfdef; |
base[2]=VV[290]->s.s_gfdef; |
6697 |
base[3]= (V993); |
base[3]= (V1057); |
6698 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6699 |
(void) (*Lnk459)(); |
(void) (*Lnk459)(); |
6700 |
vs_top=sup; |
vs_top=sup; |
6701 |
V1001= vs_base[0]; |
V1065= vs_base[0]; |
6702 |
{object V999; |
{object V1063; |
6703 |
object V1000= CMPcadddr(V1001); |
object V1064= CMPcadddr(V1065); |
6704 |
if(V1000==Cnil){ |
if(V1064==Cnil){ |
6705 |
V998= Cnil; |
V1062= Cnil; |
6706 |
goto T2137;} |
goto T2137;} |
6707 |
base[1]=V999=MMcons(Cnil,Cnil); |
base[1]=V1063=MMcons(Cnil,Cnil); |
6708 |
goto T2138; |
goto T2138; |
6709 |
T2138:; |
T2138:; |
6710 |
base[3]= (V1000->c.c_car); |
base[3]= (V1064->c.c_car); |
6711 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6712 |
(void) (*Lnk290)(); |
(void) (*Lnk290)(); |
6713 |
vs_top=sup; |
vs_top=sup; |
6714 |
(V999->c.c_car)= vs_base[0]; |
(V1063->c.c_car)= vs_base[0]; |
6715 |
if((V1000=MMcdr(V1000))==Cnil){ |
if((V1064=MMcdr(V1064))==Cnil){ |
6716 |
V998= base[1]; |
V1062= base[1]; |
6717 |
goto T2137;} |
goto T2137;} |
6718 |
V999=MMcdr(V999)=MMcons(Cnil,Cnil); |
V1063=MMcdr(V1063)=MMcons(Cnil,Cnil); |
6719 |
goto T2138;} |
goto T2138;} |
6720 |
goto T2137; |
goto T2137; |
6721 |
T2137:; |
T2137:; |
6722 |
(CMPcdddr(V993))->c.c_car = (V998); |
(CMPcdddr(V1057))->c.c_car = (V1062); |
6723 |
(void)(CMPcdddr(V993)); |
(void)(CMPcdddr(V1057)); |
6724 |
{object V1002 = (V998); |
{object V1066 = (V1062); |
6725 |
VMR90(V1002)}} |
VMR90(V1066)}} |
6726 |
goto T2133; |
goto T2133; |
6727 |
T2133:; |
T2133:; |
6728 |
base[0]= (V993); |
base[0]= (V1057); |
6729 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6730 |
(void) (*Lnk459)(); |
(void) (*Lnk459)(); |
6731 |
vs_top=sup; |
vs_top=sup; |
6732 |
V1003= vs_base[0]; |
V1067= vs_base[0]; |
6733 |
{object V1004 = CMPcadddr(V1003); |
{object V1068 = CMPcadddr(V1067); |
6734 |
VMR90(V1004)} |
VMR90(V1068)} |
6735 |
goto T2128; |
goto T2128; |
6736 |
T2128:; |
T2128:; |
6737 |
base[0]= VV[313]; |
base[0]= VV[313]; |
6738 |
base[1]= (V993); |
base[1]= (V1057); |
6739 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6740 |
Lerror(); |
Lerror(); |
6741 |
vs_top=sup; |
vs_top=sup; |
6742 |
{object V1005 = vs_base[0]; |
{object V1069 = vs_base[0]; |
6743 |
VMR90(V1005)} |
VMR90(V1069)} |
6744 |
va_end(ap); |
va_end(ap); |
6745 |
base[0]=base[0]; |
base[0]=base[0]; |
6746 |
return Cnil;} |
return Cnil;} |
6747 |
} |
} |
6748 |
/* local entry for function EARLY-METHOD-QUALIFIERS */ |
/* local entry for function EARLY-METHOD-QUALIFIERS */ |
6749 |
|
|
6750 |
static object LI103(V1007) |
static object LI103(V1071) |
6751 |
|
|
6752 |
object V1007; |
object V1071; |
6753 |
{ VMB91 VMS91 VMV91 |
{ VMB91 VMS91 VMV91 |
6754 |
goto TTL; |
goto TTL; |
6755 |
TTL:; |
TTL:; |
6756 |
base[0]= (V1007); |
base[0]= (V1071); |
6757 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6758 |
(void) (*Lnk459)(); |
(void) (*Lnk459)(); |
6759 |
vs_top=sup; |
vs_top=sup; |
6760 |
V1008= vs_base[0]; |
V1072= vs_base[0]; |
6761 |
{object V1009 = CMPcadr(V1008); |
{object V1073 = CMPcadr(V1072); |
6762 |
VMR91(V1009)} |
VMR91(V1073)} |
6763 |
base[0]=base[0]; |
base[0]=base[0]; |
6764 |
return Cnil; |
return Cnil; |
6765 |
} |
} |
6766 |
/* local entry for function EARLY-METHOD-LAMBDA-LIST */ |
/* local entry for function EARLY-METHOD-LAMBDA-LIST */ |
6767 |
|
|
6768 |
static object LI104(V1011) |
static object LI104(V1075) |
6769 |
|
|
6770 |
object V1011; |
object V1075; |
6771 |
{ VMB92 VMS92 VMV92 |
{ VMB92 VMS92 VMV92 |
6772 |
goto TTL; |
goto TTL; |
6773 |
TTL:; |
TTL:; |
6774 |
base[0]= (V1011); |
base[0]= (V1075); |
6775 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6776 |
(void) (*Lnk459)(); |
(void) (*Lnk459)(); |
6777 |
vs_top=sup; |
vs_top=sup; |
6778 |
V1012= vs_base[0]; |
V1076= vs_base[0]; |
6779 |
{object V1013 = CMPcaddr(V1012); |
{object V1077 = CMPcaddr(V1076); |
6780 |
VMR92(V1013)} |
VMR92(V1077)} |
6781 |
base[0]=base[0]; |
base[0]=base[0]; |
6782 |
return Cnil; |
return Cnil; |
6783 |
} |
} |
6784 |
/* local entry for function EARLY-ADD-NAMED-METHOD */ |
/* local entry for function EARLY-ADD-NAMED-METHOD */ |
6785 |
|
|
6786 |
static object LI105(object V1017,object V1016,object V1015,object V1014,object first,...) |
static object LI105(object V1081,object V1080,object V1079,object V1078,object first,...) |
6787 |
{ |
{ |
6788 |
va_list ap; |
va_list ap; |
6789 |
int narg = VFUN_NARGS; VMB93 VMS93 VMV93 |
int narg = VFUN_NARGS; VMB93 VMS93 VMV93 |
6790 |
{object V1018; |
{object V1082; |
6791 |
register object V1019; |
register object V1083; |
6792 |
register object V1020; |
register object V1084; |
6793 |
object V1021; |
object V1085; |
6794 |
object V1022; |
object V1086; |
6795 |
va_start(ap,first); |
va_start(ap,first); |
6796 |
if(narg <4) too_few_arguments(); |
if(narg <4) too_few_arguments(); |
6797 |
V1018= V1017; |
V1082= V1081; |
6798 |
V1019= V1016; |
V1083= V1080; |
6799 |
V1020= V1015; |
V1084= V1079; |
6800 |
V1021= V1014; |
V1085= V1078; |
6801 |
narg= narg - 4; |
narg= narg - 4; |
6802 |
V1023 = list_vector_new(narg,first,ap); |
V1087 = list_vector_new(narg,first,ap); |
6803 |
V1022= V1023; |
V1086= V1087; |
6804 |
{object V1024; |
{object V1088; |
6805 |
object V1025; |
object V1089; |
6806 |
object V1026; |
object V1090; |
6807 |
base[3]= (V1018); |
base[3]= (V1082); |
6808 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6809 |
(void) (*Lnk351)(); |
(void) (*Lnk351)(); |
6810 |
vs_top=sup; |
vs_top=sup; |
6811 |
V1024= vs_base[0]; |
V1088= vs_base[0]; |
6812 |
{register object V1027; |
{register object V1091; |
6813 |
register object V1028; |
register object V1092; |
6814 |
if(type_of(V1024)==t_structure){ |
if(type_of(V1088)==t_structure){ |
6815 |
goto T2160;} |
goto T2160;} |
6816 |
goto T2158; |
goto T2158; |
6817 |
goto T2160; |
goto T2160; |
6818 |
T2160:; |
T2160:; |
6819 |
if(!(((V1024)->str.str_def)==(VV[314]))){ |
if(!(((V1088)->str.str_def)==(VV[314]))){ |
6820 |
goto T2158;} |
goto T2158;} |
6821 |
V1029= STREF(object,(V1024),4); |
V1093= STREF(object,(V1088),4); |
6822 |
goto T2156; |
goto T2156; |
6823 |
goto T2158; |
goto T2158; |
6824 |
T2158:;{object V1031; |
T2158:;{object V1095; |
6825 |
V1031= (VV[147]->s.s_dbind); |
V1095= (VV[147]->s.s_dbind); |
6826 |
base[5]= small_fixnum(14); |
base[5]= small_fixnum(14); |
6827 |
base[6]= (V1024); |
base[6]= (V1088); |
6828 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
6829 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
6830 |
vs_top=sup; |
vs_top=sup; |
6831 |
V1032= vs_base[0]; |
V1096= vs_base[0]; |
6832 |
if(!((V1031)==(CMPcar(V1032)))){ |
if(!((V1095)==(CMPcar(V1096)))){ |
6833 |
goto T2163;}} |
goto T2163;}} |
6834 |
V1029= CMPcar(((V1024))->cc.cc_turbo[12]); |
V1093= CMPcar(((V1088))->cc.cc_turbo[12]); |
6835 |
goto T2156; |
goto T2156; |
6836 |
goto T2163; |
goto T2163; |
6837 |
T2163:; |
T2163:; |
6839 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6840 |
Lerror(); |
Lerror(); |
6841 |
vs_top=sup; |
vs_top=sup; |
6842 |
V1029= vs_base[0]; |
V1093= vs_base[0]; |
6843 |
goto T2156; |
goto T2156; |
6844 |
T2156:; |
T2156:; |
6845 |
V1027= (V1029)->v.v_self[fix((VV[235]->s.s_dbind))]; |
V1097 = (VV[235]->s.s_dbind); |
6846 |
V1028= CMPcar((V1027)); |
V1091= (V1093)->v.v_self[fix(V1097)]; |
6847 |
|
V1092= CMPcar((V1091)); |
6848 |
goto T2171; |
goto T2171; |
6849 |
T2171:; |
T2171:; |
6850 |
if(!(((V1027))==Cnil)){ |
if(!(((V1091))==Cnil)){ |
6851 |
goto T2172;} |
goto T2172;} |
6852 |
V1025= Cnil; |
V1089= Cnil; |
6853 |
goto T2154; |
goto T2154; |
6854 |
goto T2172; |
goto T2172; |
6855 |
T2172:; |
T2172:; |
6856 |
V1033= (VFUN_NARGS=1,(*(LnkLI434))((V1028))); |
V1098= (VFUN_NARGS=1,(*(LnkLI434))((V1092))); |
6857 |
if(!(equal(/* INLINE-ARGS */V1033,(V1020)))){ |
V1099 = (V1084); |
6858 |
|
if(!(equal(/* INLINE-ARGS */V1098,V1099))){ |
6859 |
goto T2176;} |
goto T2176;} |
6860 |
V1034= (*(LnkLI461))((V1028)); |
V1100= (*(LnkLI461))((V1092)); |
6861 |
if(!(equal(/* INLINE-ARGS */V1034,(V1019)))){ |
V1101 = (V1083); |
6862 |
|
if(!(equal(/* INLINE-ARGS */V1100,V1101))){ |
6863 |
goto T2176;} |
goto T2176;} |
6864 |
V1025= (V1028); |
V1089= (V1092); |
6865 |
goto T2154; |
goto T2154; |
6866 |
goto T2176; |
goto T2176; |
6867 |
T2176:; |
T2176:; |
6868 |
V1027= CMPcdr((V1027)); |
V1091= CMPcdr((V1091)); |
6869 |
V1028= CMPcar((V1027)); |
V1092= CMPcar((V1091)); |
6870 |
goto T2171;} |
goto T2171;} |
6871 |
goto T2154; |
goto T2154; |
6872 |
T2154:; |
T2154:; |
6873 |
base[3]= VV[20]; |
base[3]= VV[20]; |
6874 |
base[4]= (V1019); |
base[4]= (V1083); |
6875 |
base[5]= (V1021); |
base[5]= (V1085); |
6876 |
base[6]= (V1020); |
base[6]= (V1084); |
6877 |
base[7]= (V1022); |
base[7]= (V1086); |
6878 |
base[8]= Cnil; |
base[8]= Cnil; |
6879 |
V1026= simple_symlispcall(VV[462],base+3,6); |
V1090= simple_symlispcall(VV[462],base+3,6); |
6880 |
if(((V1025))==Cnil){ |
if(((V1089))==Cnil){ |
6881 |
goto T2193;} |
goto T2193;} |
6882 |
base[3]= (V1024); |
base[3]= (V1088); |
6883 |
base[4]= (V1025); |
base[4]= (V1089); |
6884 |
(void)simple_symlispcall(VV[463],base+3,2); |
(void)simple_symlispcall(VV[463],base+3,2); |
6885 |
goto T2193; |
goto T2193; |
6886 |
T2193:; |
T2193:; |
6887 |
base[3]= (V1024); |
base[3]= (V1088); |
6888 |
base[4]= (V1026); |
base[4]= (V1090); |
6889 |
{object V1035 = simple_symlispcall(VV[464],base+3,2); |
{object V1102 = simple_symlispcall(VV[464],base+3,2); |
6890 |
VMR93(V1035)}} |
VMR93(V1102)}} |
6891 |
va_end(ap); |
va_end(ap); |
6892 |
base[0]=base[0]; |
base[0]=base[0]; |
6893 |
return Cnil;} |
return Cnil;} |
6894 |
} |
} |
6895 |
/* local entry for function ADD-METHOD */ |
/* local entry for function ADD-METHOD */ |
6896 |
|
|
6897 |
static object LI106(V1038,V1039) |
static object LI106(V1105,V1106) |
6898 |
|
|
6899 |
register object V1038;register object V1039; |
register object V1105;register object V1106; |
6900 |
{ VMB94 VMS94 VMV94 |
{ VMB94 VMS94 VMV94 |
6901 |
goto TTL; |
goto TTL; |
6902 |
TTL:;{object V1040; |
TTL:;{object V1107; |
6903 |
V1040= (VV[147]->s.s_dbind); |
V1107= (VV[147]->s.s_dbind); |
6904 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
6905 |
base[1]= (V1038); |
base[1]= (V1105); |
6906 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6907 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
6908 |
vs_top=sup; |
vs_top=sup; |
6909 |
V1041= vs_base[0]; |
V1108= vs_base[0]; |
6910 |
if((V1040)==(CMPcar(V1041))){ |
if((V1107)==(CMPcar(V1108))){ |
6911 |
goto T2200;}} |
goto T2200;}} |
6912 |
base[0]= VV[315]; |
base[0]= VV[315]; |
6913 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6915 |
vs_top=sup; |
vs_top=sup; |
6916 |
goto T2200; |
goto T2200; |
6917 |
T2200:; |
T2200:; |
6918 |
if(!(type_of((V1039))==t_cons||((V1039))==Cnil)){ |
if(!(type_of((V1106))==t_cons||((V1106))==Cnil)){ |
6919 |
goto T2208;} |
goto T2208;} |
6920 |
if((CMPcar((V1039)))==(VV[305])){ |
if((CMPcar((V1106)))==(VV[305])){ |
6921 |
goto T2207;} |
goto T2207;} |
6922 |
goto T2208; |
goto T2208; |
6923 |
T2208:; |
T2208:; |
6927 |
vs_top=sup; |
vs_top=sup; |
6928 |
goto T2207; |
goto T2207; |
6929 |
T2207:; |
T2207:; |
6930 |
{object V1043; |
{object V1110; |
6931 |
object V1044; |
object V1111; |
6932 |
object V1045; |
object V1112; |
6933 |
if(type_of(V1038)==t_structure){ |
if(type_of(V1105)==t_structure){ |
6934 |
goto T2218;} |
goto T2218;} |
6935 |
goto T2216; |
goto T2216; |
6936 |
goto T2218; |
goto T2218; |
6937 |
T2218:; |
T2218:; |
6938 |
if(!(((V1038)->str.str_def)==(VV[317]))){ |
if(!(((V1105)->str.str_def)==(VV[317]))){ |
6939 |
goto T2216;} |
goto T2216;} |
6940 |
V1043= STREF(object,(V1038),4); |
V1110= STREF(object,(V1105),4); |
6941 |
goto T2214; |
goto T2214; |
6942 |
goto T2216; |
goto T2216; |
6943 |
T2216:;{object V1047; |
T2216:;{object V1114; |
6944 |
V1047= (VV[147]->s.s_dbind); |
V1114= (VV[147]->s.s_dbind); |
6945 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
6946 |
base[3]= (V1038); |
base[3]= (V1105); |
6947 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6948 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
6949 |
vs_top=sup; |
vs_top=sup; |
6950 |
V1048= vs_base[0]; |
V1115= vs_base[0]; |
6951 |
if(!((V1047)==(CMPcar(V1048)))){ |
if(!((V1114)==(CMPcar(V1115)))){ |
6952 |
goto T2221;}} |
goto T2221;}} |
6953 |
V1043= CMPcar(((V1038))->cc.cc_turbo[12]); |
V1110= CMPcar(((V1105))->cc.cc_turbo[12]); |
6954 |
goto T2214; |
goto T2214; |
6955 |
goto T2221; |
goto T2221; |
6956 |
T2221:; |
T2221:; |
6958 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6959 |
Lerror(); |
Lerror(); |
6960 |
vs_top=sup; |
vs_top=sup; |
6961 |
V1043= vs_base[0]; |
V1110= vs_base[0]; |
6962 |
goto T2214; |
goto T2214; |
6963 |
T2214:; |
T2214:; |
6964 |
V1044= (VV[235]->s.s_dbind); |
V1111= (VV[235]->s.s_dbind); |
6965 |
V1045= make_cons(V1039,((V1043))->v.v_self[fix((V1044))]); |
V1112= make_cons(V1106,((V1110))->v.v_self[fix((V1111))]); |
6966 |
(void)((((V1043))->v.v_self[fix((V1044))]=((V1045))));} |
(void)((((V1110))->v.v_self[fix((V1111))]=((V1112))));} |
6967 |
(void)((VFUN_NARGS=3,(*(LnkLI449))((V1038),VV[318],(V1039)))); |
(void)((VFUN_NARGS=3,(*(LnkLI449))((V1105),VV[318],(V1106)))); |
6968 |
V1050= (*(LnkLI441))((V1038)); |
V1117= (*(LnkLI441))((V1105)); |
6969 |
{register object x= /* INLINE-ARGS */V1050,V1049= (VV[261]->s.s_dbind); |
V1118 = (VV[261]->s.s_dbind); |
6970 |
while(V1049!=Cnil) |
{register object x= /* INLINE-ARGS */V1117,V1116= V1118; |
6971 |
if(equal(x,V1049->c.c_car->c.c_car) &&V1049->c.c_car != Cnil){ |
while(V1116!=Cnil) |
6972 |
|
if(equal(x,V1116->c.c_car->c.c_car) &&V1116->c.c_car != Cnil){ |
6973 |
goto T2231; |
goto T2231; |
6974 |
}else V1049=V1049->c.c_cdr;} |
}else V1116=V1116->c.c_cdr;} |
6975 |
{object V1051 = (VFUN_NARGS=1,(*(LnkLI465))((V1038))); |
{object V1119 = (VFUN_NARGS=1,(*(LnkLI465))((V1105))); |
6976 |
VMR94(V1051)} |
VMR94(V1119)} |
6977 |
goto T2231; |
goto T2231; |
6978 |
T2231:; |
T2231:; |
6979 |
{object V1052 = Cnil; |
{object V1120 = Cnil; |
6980 |
VMR94(V1052)} |
VMR94(V1120)} |
6981 |
base[0]=base[0]; |
base[0]=base[0]; |
6982 |
return Cnil; |
return Cnil; |
6983 |
} |
} |
6984 |
/* local entry for function REMOVE-METHOD */ |
/* local entry for function REMOVE-METHOD */ |
6985 |
|
|
6986 |
static object LI107(V1055,V1056) |
static object LI107(V1123,V1124) |
6987 |
|
|
6988 |
register object V1055;object V1056; |
register object V1123;object V1124; |
6989 |
{ VMB95 VMS95 VMV95 |
{ VMB95 VMS95 VMV95 |
6990 |
goto TTL; |
goto TTL; |
6991 |
TTL:;{object V1057; |
TTL:;{object V1125; |
6992 |
V1057= (VV[147]->s.s_dbind); |
V1125= (VV[147]->s.s_dbind); |
6993 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
6994 |
base[1]= (V1055); |
base[1]= (V1123); |
6995 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6996 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
6997 |
vs_top=sup; |
vs_top=sup; |
6998 |
V1058= vs_base[0]; |
V1126= vs_base[0]; |
6999 |
if((V1057)==(CMPcar(V1058))){ |
if((V1125)==(CMPcar(V1126))){ |
7000 |
goto T2233;}} |
goto T2233;}} |
7001 |
base[0]= VV[319]; |
base[0]= VV[319]; |
7002 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7004 |
vs_top=sup; |
vs_top=sup; |
7005 |
goto T2233; |
goto T2233; |
7006 |
T2233:; |
T2233:; |
7007 |
if(!(type_of((V1056))==t_cons||((V1056))==Cnil)){ |
if(!(type_of((V1124))==t_cons||((V1124))==Cnil)){ |
7008 |
goto T2241;} |
goto T2241;} |
7009 |
if((CMPcar((V1056)))==(VV[305])){ |
if((CMPcar((V1124)))==(VV[305])){ |
7010 |
goto T2240;} |
goto T2240;} |
7011 |
goto T2241; |
goto T2241; |
7012 |
T2241:; |
T2241:; |
7016 |
vs_top=sup; |
vs_top=sup; |
7017 |
goto T2240; |
goto T2240; |
7018 |
T2240:; |
T2240:; |
7019 |
if(type_of(V1055)==t_structure){ |
if(type_of(V1123)==t_structure){ |
7020 |
goto T2251;} |
goto T2251;} |
7021 |
goto T2249; |
goto T2249; |
7022 |
goto T2251; |
goto T2251; |
7023 |
T2251:; |
T2251:; |
7024 |
if(!(((V1055)->str.str_def)==(VV[321]))){ |
if(!(((V1123)->str.str_def)==(VV[321]))){ |
7025 |
goto T2249;} |
goto T2249;} |
7026 |
V1059= STREF(object,(V1055),4); |
V1127= STREF(object,(V1123),4); |
7027 |
goto T2247; |
goto T2247; |
7028 |
goto T2249; |
goto T2249; |
7029 |
T2249:;{object V1061; |
T2249:;{object V1129; |
7030 |
V1061= (VV[147]->s.s_dbind); |
V1129= (VV[147]->s.s_dbind); |
7031 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
7032 |
base[1]= (V1055); |
base[1]= (V1123); |
7033 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
7034 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
7035 |
vs_top=sup; |
vs_top=sup; |
7036 |
V1062= vs_base[0]; |
V1130= vs_base[0]; |
7037 |
if(!((V1061)==(CMPcar(V1062)))){ |
if(!((V1129)==(CMPcar(V1130)))){ |
7038 |
goto T2254;}} |
goto T2254;}} |
7039 |
V1059= CMPcar(((V1055))->cc.cc_turbo[12]); |
V1127= CMPcar(((V1123))->cc.cc_turbo[12]); |
7040 |
goto T2247; |
goto T2247; |
7041 |
goto T2254; |
goto T2254; |
7042 |
T2254:; |
T2254:; |
7044 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7045 |
Lerror(); |
Lerror(); |
7046 |
vs_top=sup; |
vs_top=sup; |
7047 |
V1059= vs_base[0]; |
V1127= vs_base[0]; |
7048 |
goto T2247; |
goto T2247; |
7049 |
T2247:;{object V1063; |
T2247:;{object V1131; |
7050 |
V1063= (VV[235]->s.s_dbind); |
V1131= (VV[235]->s.s_dbind); |
7051 |
base[0]= (V1056); |
base[0]= (V1124); |
7052 |
if(type_of(V1055)==t_structure){ |
if(type_of(V1123)==t_structure){ |
7053 |
goto T2267;} |
goto T2267;} |
7054 |
goto T2265; |
goto T2265; |
7055 |
goto T2267; |
goto T2267; |
7056 |
T2267:; |
T2267:; |
7057 |
if(!(((V1055)->str.str_def)==(VV[322]))){ |
if(!(((V1123)->str.str_def)==(VV[322]))){ |
7058 |
goto T2265;} |
goto T2265;} |
7059 |
V1065= STREF(object,(V1055),4); |
V1133= STREF(object,(V1123),4); |
7060 |
goto T2263; |
goto T2263; |
7061 |
goto T2265; |
goto T2265; |
7062 |
T2265:;{object V1067; |
T2265:;{object V1135; |
7063 |
V1067= (VV[147]->s.s_dbind); |
V1135= (VV[147]->s.s_dbind); |
7064 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
7065 |
base[3]= (V1055); |
base[3]= (V1123); |
7066 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
7067 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
7068 |
vs_top=sup; |
vs_top=sup; |
7069 |
V1068= vs_base[0]; |
V1136= vs_base[0]; |
7070 |
if(!((V1067)==(CMPcar(V1068)))){ |
if(!((V1135)==(CMPcar(V1136)))){ |
7071 |
goto T2270;}} |
goto T2270;}} |
7072 |
V1065= CMPcar(((V1055))->cc.cc_turbo[12]); |
V1133= CMPcar(((V1123))->cc.cc_turbo[12]); |
7073 |
goto T2263; |
goto T2263; |
7074 |
goto T2270; |
goto T2270; |
7075 |
T2270:; |
T2270:; |
7077 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7078 |
Lerror(); |
Lerror(); |
7079 |
vs_top=sup; |
vs_top=sup; |
7080 |
V1065= vs_base[0]; |
V1133= vs_base[0]; |
7081 |
goto T2263; |
goto T2263; |
7082 |
T2263:; |
T2263:; |
7083 |
base[1]= (V1065)->v.v_self[fix((VV[235]->s.s_dbind))]; |
V1137 = (VV[235]->s.s_dbind); |
7084 |
|
base[1]= (V1133)->v.v_self[fix(V1137)]; |
7085 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
7086 |
(void) (*Lnk376)(); |
(void) (*Lnk376)(); |
7087 |
vs_top=sup; |
vs_top=sup; |
7088 |
V1064= vs_base[0]; |
V1132= vs_base[0]; |
7089 |
(void)(((V1059)->v.v_self[fix(V1063)]=(V1064)));} |
(void)(((V1127)->v.v_self[fix(V1131)]=(V1132)));} |
7090 |
(void)((VFUN_NARGS=1,(*(LnkLI449))((V1055)))); |
(void)((VFUN_NARGS=1,(*(LnkLI449))((V1123)))); |
7091 |
V1070= (*(LnkLI441))((V1055)); |
V1139= (*(LnkLI441))((V1123)); |
7092 |
{register object x= /* INLINE-ARGS */V1070,V1069= (VV[261]->s.s_dbind); |
V1140 = (VV[261]->s.s_dbind); |
7093 |
while(V1069!=Cnil) |
{register object x= /* INLINE-ARGS */V1139,V1138= V1140; |
7094 |
if(equal(x,V1069->c.c_car->c.c_car) &&V1069->c.c_car != Cnil){ |
while(V1138!=Cnil) |
7095 |
|
if(equal(x,V1138->c.c_car->c.c_car) &&V1138->c.c_car != Cnil){ |
7096 |
goto T2278; |
goto T2278; |
7097 |
}else V1069=V1069->c.c_cdr;} |
}else V1138=V1138->c.c_cdr;} |
7098 |
{object V1071 = (VFUN_NARGS=1,(*(LnkLI465))((V1055))); |
{object V1141 = (VFUN_NARGS=1,(*(LnkLI465))((V1123))); |
7099 |
VMR95(V1071)} |
VMR95(V1141)} |
7100 |
goto T2278; |
goto T2278; |
7101 |
T2278:; |
T2278:; |
7102 |
{object V1072 = Cnil; |
{object V1142 = Cnil; |
7103 |
VMR95(V1072)} |
VMR95(V1142)} |
7104 |
base[0]=base[0]; |
base[0]=base[0]; |
7105 |
return Cnil; |
return Cnil; |
7106 |
} |
} |
7107 |
/* local entry for function GET-METHOD */ |
/* local entry for function GET-METHOD */ |
7108 |
|
|
7109 |
static object LI108(object V1075,object V1074,object V1073,object first,...) |
static object LI108(object V1145,object V1144,object V1143,object first,...) |
7110 |
{ |
{ |
7111 |
va_list ap; |
va_list ap; |
7112 |
int narg = VFUN_NARGS; VMB96 VMS96 VMV96 |
int narg = VFUN_NARGS; VMB96 VMS96 VMV96 |
7113 |
{object V1076; |
{object V1146; |
7114 |
register object V1077; |
register object V1147; |
7115 |
register object V1078; |
register object V1148; |
7116 |
object V1079; |
object V1149; |
7117 |
va_start(ap,first); |
va_start(ap,first); |
7118 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
7119 |
V1076= V1075; |
V1146= V1145; |
7120 |
V1077= V1074; |
V1147= V1144; |
7121 |
V1078= V1073; |
V1148= V1143; |
7122 |
narg = narg - 3; |
narg = narg - 3; |
7123 |
if (narg <= 0) goto T2280; |
if (narg <= 0) goto T2280; |
7124 |
else { |
else { |
7125 |
V1079= first;} |
V1149= first;} |
7126 |
--narg; goto T2281; |
--narg; goto T2281; |
7127 |
goto T2280; |
goto T2280; |
7128 |
T2280:; |
T2280:; |
7129 |
V1079= Ct; |
V1149= Ct; |
7130 |
goto T2281; |
goto T2281; |
7131 |
T2281:; |
T2281:; |
7132 |
if(((*(LnkLI438))((V1076)))==Cnil){ |
if(((*(LnkLI438))((V1146)))==Cnil){ |
7133 |
goto T2284;}{object V1080; |
goto T2284;}{object V1150; |
7134 |
{register object V1081; |
{register object V1151; |
7135 |
register object V1082; |
register object V1152; |
7136 |
if(type_of(V1076)==t_structure){ |
if(type_of(V1146)==t_structure){ |
7137 |
goto T2293;} |
goto T2293;} |
7138 |
goto T2291; |
goto T2291; |
7139 |
goto T2293; |
goto T2293; |
7140 |
T2293:; |
T2293:; |
7141 |
if(!(((V1076)->str.str_def)==(VV[323]))){ |
if(!(((V1146)->str.str_def)==(VV[323]))){ |
7142 |
goto T2291;} |
goto T2291;} |
7143 |
V1083= STREF(object,(V1076),4); |
V1153= STREF(object,(V1146),4); |
7144 |
goto T2289; |
goto T2289; |
7145 |
goto T2291; |
goto T2291; |
7146 |
T2291:;{object V1085; |
T2291:;{object V1155; |
7147 |
V1085= (VV[147]->s.s_dbind); |
V1155= (VV[147]->s.s_dbind); |
7148 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
7149 |
base[3]= (V1076); |
base[3]= (V1146); |
7150 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
7151 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
7152 |
vs_top=sup; |
vs_top=sup; |
7153 |
V1086= vs_base[0]; |
V1156= vs_base[0]; |
7154 |
if(!((V1085)==(CMPcar(V1086)))){ |
if(!((V1155)==(CMPcar(V1156)))){ |
7155 |
goto T2296;}} |
goto T2296;}} |
7156 |
V1083= CMPcar(((V1076))->cc.cc_turbo[12]); |
V1153= CMPcar(((V1146))->cc.cc_turbo[12]); |
7157 |
goto T2289; |
goto T2289; |
7158 |
goto T2296; |
goto T2296; |
7159 |
T2296:; |
T2296:; |
7161 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7162 |
Lerror(); |
Lerror(); |
7163 |
vs_top=sup; |
vs_top=sup; |
7164 |
V1083= vs_base[0]; |
V1153= vs_base[0]; |
7165 |
goto T2289; |
goto T2289; |
7166 |
T2289:; |
T2289:; |
7167 |
V1081= (V1083)->v.v_self[fix((VV[235]->s.s_dbind))]; |
V1157 = (VV[235]->s.s_dbind); |
7168 |
V1082= CMPcar((V1081)); |
V1151= (V1153)->v.v_self[fix(V1157)]; |
7169 |
|
V1152= CMPcar((V1151)); |
7170 |
goto T2304; |
goto T2304; |
7171 |
T2304:; |
T2304:; |
7172 |
if(!(((V1081))==Cnil)){ |
if(!(((V1151))==Cnil)){ |
7173 |
goto T2305;} |
goto T2305;} |
7174 |
V1080= Cnil; |
V1150= Cnil; |
7175 |
goto T2287; |
goto T2287; |
7176 |
goto T2305; |
goto T2305; |
7177 |
T2305:; |
T2305:; |
7178 |
V1087= (VFUN_NARGS=2,(*(LnkLI434))((V1082),Cnil)); |
V1158= (VFUN_NARGS=2,(*(LnkLI434))((V1152),Cnil)); |
7179 |
if(equal(/* INLINE-ARGS */V1087,(V1078))){ |
V1159 = (V1148); |
7180 |
|
if(equal(/* INLINE-ARGS */V1158,V1159)){ |
7181 |
goto T2311;} |
goto T2311;} |
7182 |
V1088= (VFUN_NARGS=2,(*(LnkLI434))((V1082),Ct)); |
V1160= (VFUN_NARGS=2,(*(LnkLI434))((V1152),Ct)); |
7183 |
if(!(equal(/* INLINE-ARGS */V1088,(V1078)))){ |
V1161 = (V1148); |
7184 |
|
if(!(equal(/* INLINE-ARGS */V1160,V1161))){ |
7185 |
goto T2309;} |
goto T2309;} |
7186 |
goto T2311; |
goto T2311; |
7187 |
T2311:; |
T2311:; |
7188 |
V1089= (*(LnkLI461))((V1082)); |
V1162= (*(LnkLI461))((V1152)); |
7189 |
if(!(equal(/* INLINE-ARGS */V1089,(V1077)))){ |
V1163 = (V1147); |
7190 |
|
if(!(equal(/* INLINE-ARGS */V1162,V1163))){ |
7191 |
goto T2309;} |
goto T2309;} |
7192 |
V1080= (V1082); |
V1150= (V1152); |
7193 |
goto T2287; |
goto T2287; |
7194 |
goto T2309; |
goto T2309; |
7195 |
T2309:; |
T2309:; |
7196 |
V1081= CMPcdr((V1081)); |
V1151= CMPcdr((V1151)); |
7197 |
V1082= CMPcar((V1081)); |
V1152= CMPcar((V1151)); |
7198 |
goto T2304;} |
goto T2304;} |
7199 |
goto T2287; |
goto T2287; |
7200 |
T2287:; |
T2287:; |
7201 |
if(V1080==Cnil)goto T2286; |
if(V1150==Cnil)goto T2286; |
7202 |
{object V1090 = V1080; |
{object V1164 = V1150; |
7203 |
VMR96(V1090)} |
VMR96(V1164)} |
7204 |
goto T2286; |
goto T2286; |
7205 |
T2286:;} |
T2286:;} |
7206 |
if(((V1079))==Cnil){ |
if(((V1149))==Cnil){ |
7207 |
goto T2322;} |
goto T2322;} |
7208 |
base[0]= VV[324]; |
base[0]= VV[324]; |
7209 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7210 |
Lerror(); |
Lerror(); |
7211 |
vs_top=sup; |
vs_top=sup; |
7212 |
{object V1091 = vs_base[0]; |
{object V1165 = vs_base[0]; |
7213 |
VMR96(V1091)} |
VMR96(V1165)} |
7214 |
goto T2322; |
goto T2322; |
7215 |
T2322:; |
T2322:; |
7216 |
{object V1092 = Cnil; |
{object V1166 = Cnil; |
7217 |
VMR96(V1092)} |
VMR96(V1166)} |
7218 |
goto T2284; |
goto T2284; |
7219 |
T2284:; |
T2284:; |
7220 |
{object V1093 = (VFUN_NARGS=4,(*(LnkLI466))((V1076),(V1077),(V1078),(V1079))); |
{object V1167 = (VFUN_NARGS=4,(*(LnkLI466))((V1146),(V1147),(V1148),(V1149))); |
7221 |
VMR96(V1093)} |
VMR96(V1167)} |
7222 |
va_end(ap); |
va_end(ap); |
7223 |
base[0]=base[0]; |
base[0]=base[0]; |
7224 |
return Cnil;} |
return Cnil;} |
7229 |
{ |
{ |
7230 |
va_list ap; |
va_list ap; |
7231 |
int narg = VFUN_NARGS; VMB97 VMS97 VMV97 |
int narg = VFUN_NARGS; VMB97 VMS97 VMV97 |
7232 |
{object V1094; |
{object V1168; |
7233 |
va_start(ap,first); |
va_start(ap,first); |
7234 |
narg = narg - 0; |
narg = narg - 0; |
7235 |
if (narg <= 0) goto T2325; |
if (narg <= 0) goto T2325; |
7236 |
else { |
else { |
7237 |
V1094= first;} |
V1168= first;} |
7238 |
--narg; goto T2326; |
--narg; goto T2326; |
7239 |
goto T2325; |
goto T2325; |
7240 |
T2325:; |
T2325:; |
7241 |
V1094= (VV[325]->s.s_dbind); |
V1168= (VV[325]->s.s_dbind); |
7242 |
goto T2326; |
goto T2326; |
7243 |
T2326:; |
T2326:; |
7244 |
(VV[326]->s.s_dbind)= Ct; |
(VV[326]->s.s_dbind)= Ct; |
7245 |
{object V1095; |
{object V1169; |
7246 |
V1095= Cnil; |
V1169= Cnil; |
7247 |
{register object V1096; |
{register object V1170; |
7248 |
register object V1097; |
register object V1171; |
7249 |
V1096= (VV[264]->s.s_dbind); |
V1170= (VV[264]->s.s_dbind); |
7250 |
V1097= CMPcar((V1096)); |
V1171= CMPcar((V1170)); |
7251 |
goto T2334; |
goto T2334; |
7252 |
T2334:; |
T2334:; |
7253 |
if(!(((V1096))==Cnil)){ |
if(!(((V1170))==Cnil)){ |
7254 |
goto T2335;} |
goto T2335;} |
7255 |
goto T2330; |
goto T2330; |
7256 |
goto T2335; |
goto T2335; |
7257 |
T2335:; |
T2335:; |
7258 |
base[1]= (VV[467]->s.s_gfdef); |
base[1]= (VV[467]->s.s_gfdef); |
7259 |
{object V1099; |
{object V1173; |
7260 |
V1099= (*(LnkLI356))((V1097)); |
V1173= (*(LnkLI356))((V1171)); |
7261 |
if(type_of((V1099))==t_structure){ |
if(type_of((V1173))==t_structure){ |
7262 |
goto T2349;} |
goto T2349;} |
7263 |
goto T2346; |
goto T2346; |
7264 |
goto T2349; |
goto T2349; |
7265 |
T2349:; |
T2349:; |
7266 |
if(!((((V1099))->str.str_def)==(VV[327]))){ |
if(!((((V1173))->str.str_def)==(VV[327]))){ |
7267 |
goto T2346;}} |
goto T2346;}} |
7268 |
V1100= (*(LnkLI356))((V1097)); |
V1174= (*(LnkLI356))((V1171)); |
7269 |
V1098= STREF(object,/* INLINE-ARGS */V1100,4); |
V1172= STREF(object,/* INLINE-ARGS */V1174,4); |
7270 |
goto T2344; |
goto T2344; |
7271 |
goto T2346; |
goto T2346; |
7272 |
T2346:;{object V1101; |
T2346:;{object V1175; |
7273 |
V1101= (VV[147]->s.s_dbind); |
V1175= (VV[147]->s.s_dbind); |
7274 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
7275 |
base[4]= (*(LnkLI356))((V1097)); |
base[4]= (*(LnkLI356))((V1171)); |
7276 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
7277 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
7278 |
vs_top=sup; |
vs_top=sup; |
7279 |
V1102= vs_base[0]; |
V1176= vs_base[0]; |
7280 |
if(!((V1101)==(CMPcar(V1102)))){ |
if(!((V1175)==(CMPcar(V1176)))){ |
7281 |
goto T2352;}} |
goto T2352;}} |
7282 |
V1103= (*(LnkLI356))((V1097)); |
V1177= (*(LnkLI356))((V1171)); |
7283 |
V1098= CMPcar((/* INLINE-ARGS */V1103)->cc.cc_turbo[12]); |
V1172= CMPcar((/* INLINE-ARGS */V1177)->cc.cc_turbo[12]); |
7284 |
goto T2344; |
goto T2344; |
7285 |
goto T2352; |
goto T2352; |
7286 |
T2352:; |
T2352:; |
7288 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7289 |
Lerror(); |
Lerror(); |
7290 |
vs_top=sup; |
vs_top=sup; |
7291 |
V1098= vs_base[0]; |
V1172= vs_base[0]; |
7292 |
goto T2344; |
goto T2344; |
7293 |
T2344:; |
T2344:; |
7294 |
base[2]= (V1098)->v.v_self[fix((VV[235]->s.s_dbind))]; |
V1178 = (VV[235]->s.s_dbind); |
7295 |
|
base[2]= (V1172)->v.v_self[fix(V1178)]; |
7296 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
7297 |
(void) (*Lnk366)(); |
(void) (*Lnk366)(); |
7298 |
vs_top=sup; |
vs_top=sup; |
7299 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
7300 |
goto T2339;} |
goto T2339;} |
7301 |
V1095= make_cons(V1097,(V1095)); |
V1169= make_cons(V1171,(V1169)); |
7302 |
goto T2339; |
goto T2339; |
7303 |
T2339:; |
T2339:; |
7304 |
V1096= CMPcdr((V1096)); |
V1170= CMPcdr((V1170)); |
7305 |
V1097= CMPcar((V1096)); |
V1171= CMPcar((V1170)); |
7306 |
goto T2334;} |
goto T2334;} |
7307 |
goto T2330; |
goto T2330; |
7308 |
T2330:; |
T2330:; |
7309 |
{register object V1105; |
{register object V1180; |
7310 |
object V1106; |
object V1181; |
7311 |
V1105= nconc((V1095),VV[328]); |
V1180= nconc((V1169),VV[328]); |
7312 |
V1106= CMPcar((V1105)); |
V1181= CMPcar((V1180)); |
7313 |
goto T2368; |
goto T2368; |
7314 |
T2368:; |
T2368:; |
7315 |
if(!(((V1105))==Cnil)){ |
if(!(((V1180))==Cnil)){ |
7316 |
goto T2369;} |
goto T2369;} |
7317 |
goto T2364; |
goto T2364; |
7318 |
goto T2369; |
goto T2369; |
7319 |
T2369:; |
T2369:; |
7320 |
base[2]= (V1106); |
V1182 = (V1181); |
7321 |
|
base[2]= (V1181); |
7322 |
base[3]= (VV[264]->s.s_dbind); |
base[3]= (VV[264]->s.s_dbind); |
7323 |
base[4]= VV[265]; |
base[4]= VV[265]; |
7324 |
base[5]= (VV[241]->s.s_gfdef); |
base[5]= (VV[241]->s.s_gfdef); |
7325 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
7326 |
(void) (*Lnk468)(); |
(void) (*Lnk468)(); |
7327 |
vs_top=sup; |
vs_top=sup; |
7328 |
V1107= vs_base[0]; |
V1183= vs_base[0]; |
7329 |
(VV[264]->s.s_dbind)= make_cons((V1106),V1107); |
(VV[264]->s.s_dbind)= make_cons(V1182,V1183); |
7330 |
V1105= CMPcdr((V1105)); |
V1180= CMPcdr((V1180)); |
7331 |
V1106= CMPcar((V1105)); |
V1181= CMPcar((V1180)); |
7332 |
goto T2368;} |
goto T2368;} |
7333 |
goto T2364; |
goto T2364; |
7334 |
T2364:; |
T2364:; |
7335 |
{register object V1108; |
{register object V1184; |
7336 |
object V1109; |
object V1185; |
7337 |
V1108= (VV[264]->s.s_dbind); |
V1184= (VV[264]->s.s_dbind); |
7338 |
V1109= CMPcar((V1108)); |
V1185= CMPcar((V1184)); |
7339 |
goto T2389; |
goto T2389; |
7340 |
T2389:; |
T2389:; |
7341 |
if(!(((V1108))==Cnil)){ |
if(!(((V1184))==Cnil)){ |
7342 |
goto T2390;} |
goto T2390;} |
7343 |
goto T2385; |
goto T2385; |
7344 |
goto T2390; |
goto T2390; |
7345 |
T2390:; |
T2390:; |
7346 |
if(((V1094))==Cnil){ |
if(((V1168))==Cnil){ |
7347 |
goto T2394;} |
goto T2394;} |
7348 |
base[1]= Ct; |
base[1]= Ct; |
7349 |
base[2]= VV[329]; |
base[2]= VV[329]; |
7350 |
base[3]= (V1109); |
base[3]= (V1185); |
7351 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
7352 |
Lformat(); |
Lformat(); |
7353 |
vs_top=sup; |
vs_top=sup; |
7354 |
goto T2394; |
goto T2394; |
7355 |
T2394:; |
T2394:; |
7356 |
{register object V1110; |
{register object V1186; |
7357 |
object V1111; |
object V1187; |
7358 |
V1110= (*(LnkLI356))((V1109)); |
V1186= (*(LnkLI356))((V1185)); |
7359 |
if(type_of(V1110)==t_structure){ |
if(type_of(V1186)==t_structure){ |
7360 |
goto T2408;} |
goto T2408;} |
7361 |
goto T2406; |
goto T2406; |
7362 |
goto T2408; |
goto T2408; |
7363 |
T2408:; |
T2408:; |
7364 |
if(!(((V1110)->str.str_def)==(VV[330]))){ |
if(!(((V1186)->str.str_def)==(VV[330]))){ |
7365 |
goto T2406;} |
goto T2406;} |
7366 |
V1114= STREF(object,(V1110),4); |
V1190= STREF(object,(V1186),4); |
7367 |
goto T2404; |
goto T2404; |
7368 |
goto T2406; |
goto T2406; |
7369 |
T2406:;{object V1116; |
T2406:;{object V1192; |
7370 |
V1116= (VV[147]->s.s_dbind); |
V1192= (VV[147]->s.s_dbind); |
7371 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
7372 |
base[5]= (V1110); |
base[5]= (V1186); |
7373 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
7374 |
(void) (*Lnk390)(); |
(void) (*Lnk390)(); |
7375 |
vs_top=sup; |
vs_top=sup; |
7376 |
V1117= vs_base[0]; |
V1193= vs_base[0]; |
7377 |
if(!((V1116)==(CMPcar(V1117)))){ |
if(!((V1192)==(CMPcar(V1193)))){ |
7378 |
goto T2411;}} |
goto T2411;}} |
7379 |
V1114= CMPcar(((V1110))->cc.cc_turbo[12]); |
V1190= CMPcar(((V1186))->cc.cc_turbo[12]); |
7380 |
goto T2404; |
goto T2404; |
7381 |
goto T2411; |
goto T2411; |
7382 |
T2411:; |
T2411:; |
7384 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
7385 |
Lerror(); |
Lerror(); |
7386 |
vs_top=sup; |
vs_top=sup; |
7387 |
V1114= vs_base[0]; |
V1190= vs_base[0]; |
7388 |
goto T2404; |
goto T2404; |
7389 |
T2404:; |
T2404:; |
7390 |
{object V1112; |
V1194 = (VV[235]->s.s_dbind); |
7391 |
object V1113= (V1114)->v.v_self[fix((VV[235]->s.s_dbind))]; |
{object V1188; |
7392 |
if(V1113==Cnil){ |
object V1189= (V1190)->v.v_self[fix(V1194)]; |
7393 |
V1111= Cnil; |
if(V1189==Cnil){ |
7394 |
|
V1187= Cnil; |
7395 |
goto T2402;} |
goto T2402;} |
7396 |
base[3]=V1112=MMcons(Cnil,Cnil); |
base[3]=V1188=MMcons(Cnil,Cnil); |
7397 |
goto T2403; |
goto T2403; |
7398 |
T2403:; |
T2403:; |
7399 |
{object V1119; |
{object V1196; |
7400 |
base[5]= (V1113->c.c_car); |
base[5]= (V1189->c.c_car); |
7401 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
7402 |
(void) (*Lnk459)(); |
(void) (*Lnk459)(); |
7403 |
vs_top=sup; |
vs_top=sup; |
7405 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
7406 |
Lcopy_list(); |
Lcopy_list(); |
7407 |
vs_top=sup; |
vs_top=sup; |
7408 |
V1119= vs_base[0]; |
V1196= vs_base[0]; |
7409 |
{object V1121; |
{object V1198; |
7410 |
V1121= (VFUN_NARGS=2,(*(LnkLI434))((V1113->c.c_car),Ct)); |
V1198= (VFUN_NARGS=2,(*(LnkLI434))((V1189->c.c_car),Ct)); |
7411 |
(CMPcdddr(V1119))->c.c_car = (V1121); |
(CMPcdddr(V1196))->c.c_car = (V1198); |
7412 |
(void)(CMPcdddr(V1119));} |
(void)(CMPcdddr(V1196));} |
7413 |
{object V1122; |
{object V1199; |
7414 |
V1122= (V1119); |
V1199= (V1196); |
7415 |
vs_top=base+4; |
vs_top=base+4; |
7416 |
while(V1122!=Cnil) |
while(V1199!=Cnil) |
7417 |
{vs_push((V1122)->c.c_car);V1122=(V1122)->c.c_cdr;} |
{vs_push((V1199)->c.c_car);V1199=(V1199)->c.c_cdr;} |
7418 |
vs_base=base+4;} |
vs_base=base+4;} |
7419 |
(void) (*Lnk469)(); |
(void) (*Lnk469)(); |
7420 |
vs_top=sup; |
vs_top=sup; |
7421 |
(V1112->c.c_car)= vs_base[0];} |
(V1188->c.c_car)= vs_base[0];} |
7422 |
if((V1113=MMcdr(V1113))==Cnil){ |
if((V1189=MMcdr(V1189))==Cnil){ |
7423 |
V1111= base[3]; |
V1187= base[3]; |
7424 |
goto T2402;} |
goto T2402;} |
7425 |
V1112=MMcdr(V1112)=MMcons(Cnil,Cnil); |
V1188=MMcdr(V1188)=MMcons(Cnil,Cnil); |
7426 |
goto T2403;} |
goto T2403;} |
7427 |
goto T2402; |
goto T2402; |
7428 |
T2402:; |
T2402:; |
7429 |
base[3]= (VV[331]->s.s_dbind); |
base[3]= (VV[331]->s.s_dbind); |
7430 |
base[4]= V1110; |
base[4]= V1186; |
7431 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
7432 |
(void) (*Lnk470)(Lclptr470); |
(void) (*Lnk470)(Lclptr470); |
7433 |
vs_top=sup; |
vs_top=sup; |
7434 |
base[3]= (VV[252]->s.s_dbind); |
base[3]= (VV[252]->s.s_dbind); |
7435 |
base[4]= V1110; |
base[4]= V1186; |
7436 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
7437 |
(void) (*Lnk471)(Lclptr471); |
(void) (*Lnk471)(Lclptr471); |
7438 |
vs_top=sup; |
vs_top=sup; |
7439 |
(void)((*(LnkLI472))((V1110),(V1111)));} |
(void)((*(LnkLI472))((V1186),(V1187)));} |
7440 |
V1108= CMPcdr((V1108)); |
V1184= CMPcdr((V1184)); |
7441 |
V1109= CMPcar((V1108)); |
V1185= CMPcar((V1184)); |
7442 |
goto T2389;} |
goto T2389;} |
7443 |
goto T2385; |
goto T2385; |
7444 |
T2385:; |
T2385:; |
7445 |
{register object V1125; |
{register object V1202; |
7446 |
object V1126; |
object V1203; |
7447 |
V1125= (VV[332]->s.s_dbind); |
V1202= (VV[332]->s.s_dbind); |
7448 |
V1126= CMPcar((V1125)); |
V1203= CMPcar((V1202)); |
7449 |
goto T2440; |
goto T2440; |
7450 |
T2440:; |
T2440:; |
7451 |
if(!(((V1125))==Cnil)){ |
if(!(((V1202))==Cnil)){ |
7452 |
goto T2441;} |
goto T2441;} |
7453 |
goto T2436; |
goto T2436; |
7454 |
goto T2441; |
goto T2441; |
7455 |
T2441:; |
T2441:; |
7456 |
{object V1127; |
{object V1204; |
7457 |
V1127= CMPcar((V1126)); |
V1204= CMPcar((V1203)); |
7458 |
base[1]= CMPcaddr((V1126)); |
base[1]= CMPcaddr((V1203)); |
7459 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7460 |
Lsymbol_function(); |
Lsymbol_function(); |
7461 |
vs_top=sup; |
vs_top=sup; |
7462 |
V1128= vs_base[0]; |
V1205= vs_base[0]; |
7463 |
(void)((*(LnkLI345))(V1128,(V1127)));} |
V1206 = (V1204); |
7464 |
V1125= CMPcdr((V1125)); |
(void)((*(LnkLI345))(V1205,V1206));} |
7465 |
V1126= CMPcar((V1125)); |
V1202= CMPcdr((V1202)); |
7466 |
|
V1203= CMPcar((V1202)); |
7467 |
goto T2440;} |
goto T2440;} |
7468 |
goto T2436; |
goto T2436; |
7469 |
T2436:; |
T2436:; |
7470 |
{register object V1129; |
{register object V1207; |
7471 |
object V1130; |
object V1208; |
7472 |
V1129= (VV[261]->s.s_dbind); |
V1207= (VV[261]->s.s_dbind); |
7473 |
V1130= CMPcar((V1129)); |
V1208= CMPcar((V1207)); |
7474 |
goto T2457; |
goto T2457; |
7475 |
T2457:; |
T2457:; |
7476 |
if(!(((V1129))==Cnil)){ |
if(!(((V1207))==Cnil)){ |
7477 |
goto T2458;} |
goto T2458;} |
7478 |
{object V1131 = Cnil; |
{object V1209 = Cnil; |
7479 |
VMR97(V1131)} |
VMR97(V1209)} |
7480 |
goto T2458; |
goto T2458; |
7481 |
T2458:; |
T2458:; |
7482 |
{object V1132; |
{object V1210; |
7483 |
object V1133; |
object V1211; |
7484 |
object V1134; |
object V1212; |
7485 |
V1132= CMPcar((V1130)); |
V1210= CMPcar((V1208)); |
7486 |
V1133= (*(LnkLI356))((V1132)); |
V1211= (*(LnkLI356))((V1210)); |
7487 |
{object V1135; |
{object V1213; |
7488 |
object V1136= CMPcdr((V1130)); |
object V1214= CMPcdr((V1208)); |
7489 |
if(V1136==Cnil){ |
if(V1214==Cnil){ |
7490 |
V1134= Cnil; |
V1212= Cnil; |
7491 |
goto T2465;} |
goto T2465;} |
7492 |
base[4]=V1135=MMcons(Cnil,Cnil); |
base[4]=V1213=MMcons(Cnil,Cnil); |
7493 |
goto T2466; |
goto T2466; |
7494 |
T2466:; |
T2466:; |
7495 |
{object V1138; |
{object V1216; |
7496 |
object V1139; |
object V1217; |
7497 |
object V1140; |
object V1218; |
7498 |
object V1141; |
object V1219; |
7499 |
object V1142; |
object V1220; |
7500 |
V1138= CMPcar((V1136->c.c_car)); |
V1216= CMPcar((V1214->c.c_car)); |
7501 |
V1139= CMPcadr((V1136->c.c_car)); |
V1217= CMPcadr((V1214->c.c_car)); |
7502 |
V1140= CMPcaddr((V1136->c.c_car)); |
V1218= CMPcaddr((V1214->c.c_car)); |
7503 |
if((V1140)!=Cnil){ |
if((V1218)!=Cnil){ |
7504 |
V1141= (V1140); |
V1219= (V1218); |
7505 |
goto T2471;} |
goto T2471;} |
7506 |
V1141= (V1132); |
V1219= (V1210); |
7507 |
goto T2471; |
goto T2471; |
7508 |
T2471:; |
T2471:; |
7509 |
base[11]= (V1141); |
base[11]= (V1219); |
7510 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
7511 |
Lsymbol_function(); |
Lsymbol_function(); |
7512 |
vs_top=sup; |
vs_top=sup; |
7514 |
base[9]=MMcons(base[9],Cnil); |
base[9]=MMcons(base[9],Cnil); |
7515 |
base[11]= |
base[11]= |
7516 |
make_cclosure_new(LC138,Cnil,base[9],Cdata); |
make_cclosure_new(LC138,Cnil,base[9],Cdata); |
7517 |
base[12]= list(2,VV[165],(V1141)); |
base[12]= list(2,VV[165],(V1219)); |
7518 |
vs_top=(vs_base=base+11)+2; |
vs_top=(vs_base=base+11)+2; |
7519 |
(void) (*Lnk346)(); |
(void) (*Lnk346)(); |
7520 |
vs_top=sup; |
vs_top=sup; |
7521 |
V1143= vs_base[0]; |
V1221= vs_base[0]; |
7522 |
V1142= list(2,VV[36],V1143); |
V1220= list(2,VV[36],V1221); |
7523 |
base[11]= VV[20]; |
base[11]= VV[20]; |
7524 |
base[12]= Cnil; |
base[12]= Cnil; |
7525 |
base[13]= (V1138); |
base[13]= (V1216); |
7526 |
base[14]= (V1139); |
base[14]= (V1217); |
7527 |
base[15]= (V1142); |
base[15]= (V1220); |
7528 |
base[16]= Cnil; |
base[16]= Cnil; |
7529 |
(V1135->c.c_car)= simple_symlispcall(VV[462],base+11,6);} |
(V1213->c.c_car)= simple_symlispcall(VV[462],base+11,6);} |
7530 |
if((V1136=MMcdr(V1136))==Cnil){ |
if((V1214=MMcdr(V1214))==Cnil){ |
7531 |
V1134= base[4]; |
V1212= base[4]; |
7532 |
goto T2465;} |
goto T2465;} |
7533 |
V1135=MMcdr(V1135)=MMcons(Cnil,Cnil); |
V1213=MMcdr(V1213)=MMcons(Cnil,Cnil); |
7534 |
goto T2466;} |
goto T2466;} |
7535 |
goto T2465; |
goto T2465; |
7536 |
T2465:; |
T2465:; |
7537 |
base[4]= (VV[331]->s.s_dbind); |
base[4]= (VV[331]->s.s_dbind); |
7538 |
base[5]= V1133; |
base[5]= V1211; |
7539 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
7540 |
(void) (*Lnk470)(Lclptr470); |
(void) (*Lnk470)(Lclptr470); |
7541 |
vs_top=sup; |
vs_top=sup; |
7542 |
base[4]= (VV[252]->s.s_dbind); |
base[4]= (VV[252]->s.s_dbind); |
7543 |
base[5]= V1133; |
base[5]= V1211; |
7544 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
7545 |
(void) (*Lnk471)(Lclptr471); |
(void) (*Lnk471)(Lclptr471); |
7546 |
vs_top=sup; |
vs_top=sup; |
7547 |
(void)((*(LnkLI472))((V1133),(V1134)));} |
(void)((*(LnkLI472))((V1211),(V1212)));} |
7548 |
V1129= CMPcdr((V1129)); |
V1207= CMPcdr((V1207)); |
7549 |
V1130= CMPcar((V1129)); |
V1208= CMPcar((V1207)); |
7550 |
goto T2457;}} |
goto T2457;}} |
7551 |
va_end(ap); |
va_end(ap); |
7552 |
base[0]=base[0]; |
base[0]=base[0]; |
7558 |
{register object *base=vs_base; |
{register object *base=vs_base; |
7559 |
register object *sup=base+VM98; VC98 |
register object *sup=base+VM98; VC98 |
7560 |
vs_check; |
vs_check; |
7561 |
{register object V1146; |
{register object V1224; |
7562 |
check_arg(1); |
check_arg(1); |
7563 |
V1146=(base[0]); |
V1224=(base[0]); |
7564 |
vs_top=sup; |
vs_top=sup; |
7565 |
goto TTL; |
goto TTL; |
7566 |
TTL:; |
TTL:; |
7567 |
{object V1147; |
{object V1225; |
7568 |
register object V1148; |
register object V1226; |
7569 |
object V1149; |
object V1227; |
7570 |
{object V1150; |
{object V1228; |
7571 |
V1150= CMPcar((V1146)); |
V1228= CMPcar((V1224)); |
7572 |
V1146= CMPcdr((V1146)); |
V1224= CMPcdr((V1224)); |
7573 |
V1147= (V1150);} |
V1225= (V1228);} |
7574 |
V1148= Cnil; |
V1226= Cnil; |
7575 |
V1149= Cnil; |
V1227= Cnil; |
7576 |
goto T2501; |
goto T2501; |
7577 |
T2501:; |
T2501:; |
7578 |
if((CMPcar((V1146)))==Cnil){ |
if((CMPcar((V1224)))==Cnil){ |
7579 |
goto T2504;} |
goto T2504;} |
7580 |
if(!(type_of(CMPcar((V1146)))!=t_cons)){ |
if(!(type_of(CMPcar((V1224)))!=t_cons)){ |
7581 |
goto T2504;} |
goto T2504;} |
7582 |
{register object V1151; |
{register object V1229; |
7583 |
{register object V1152; |
{register object V1230; |
7584 |
V1152= CMPcar((V1146)); |
V1230= CMPcar((V1224)); |
7585 |
V1146= CMPcdr((V1146)); |
V1224= CMPcdr((V1224)); |
7586 |
V1151= (V1152);} |
V1229= (V1230);} |
7587 |
V1148= make_cons((V1151),(V1148)); |
V1226= make_cons((V1229),(V1226)); |
7588 |
goto T2502;} |
goto T2502;} |
7589 |
goto T2504; |
goto T2504; |
7590 |
T2504:; |
T2504:; |
7591 |
V1148= nreverse((V1148)); |
V1226= nreverse((V1226)); |
7592 |
goto T2499; |
goto T2499; |
7593 |
goto T2502; |
goto T2502; |
7594 |
T2502:; |
T2502:; |
7595 |
goto T2501; |
goto T2501; |
7596 |
goto T2499; |
goto T2499; |
7597 |
T2499:; |
T2499:; |
7598 |
{object V1153; |
{object V1231; |
7599 |
V1153= CMPcar((V1146)); |
V1231= CMPcar((V1224)); |
7600 |
V1146= CMPcdr((V1146)); |
V1224= CMPcdr((V1224)); |
7601 |
V1149= (V1153);} |
V1227= (V1231);} |
7602 |
base[1]= (V1147); |
base[1]= (V1225); |
7603 |
base[2]= (V1148); |
base[2]= (V1226); |
7604 |
base[3]= (V1149); |
base[3]= (V1227); |
7605 |
base[4]= (V1146); |
base[4]= (V1224); |
7606 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
7607 |
return;} |
return;} |
7608 |
} |
} |
7609 |
} |
} |
7610 |
/* local entry for function PARSE-SPECIALIZERS */ |
/* local entry for function PARSE-SPECIALIZERS */ |
7611 |
|
|
7612 |
static object LI111(V1155) |
static object LI111(V1233) |
7613 |
|
|
7614 |
object V1155; |
object V1233; |
7615 |
{ VMB99 VMS99 VMV99 |
{ VMB99 VMS99 VMV99 |
7616 |
goto TTL; |
goto TTL; |
7617 |
TTL:; |
TTL:; |
7618 |
{object V1156; |
{object V1234; |
7619 |
object V1157= (V1155); |
object V1235= (V1233); |
7620 |
if(V1157==Cnil){ |
if(V1235==Cnil){ |
7621 |
{object V1158 = Cnil; |
{object V1236 = Cnil; |
7622 |
VMR99(V1158)}} |
VMR99(V1236)}} |
7623 |
base[0]=V1156=MMcons(Cnil,Cnil); |
base[0]=V1234=MMcons(Cnil,Cnil); |
7624 |
goto T2524; |
goto T2524; |
7625 |
T2524:; |
T2524:; |
7626 |
base[1]= (V1157->c.c_car); |
base[1]= (V1235->c.c_car); |
7627 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7628 |
L112(base); |
L112(base); |
7629 |
vs_top=sup; |
vs_top=sup; |
7630 |
(V1156->c.c_car)= vs_base[0]; |
(V1234->c.c_car)= vs_base[0]; |
7631 |
if((V1157=MMcdr(V1157))==Cnil){ |
if((V1235=MMcdr(V1235))==Cnil){ |
7632 |
{object V1159 = base[0]; |
{object V1237 = base[0]; |
7633 |
VMR99(V1159)}} |
VMR99(V1237)}} |
7634 |
V1156=MMcdr(V1156)=MMcons(Cnil,Cnil); |
V1234=MMcdr(V1234)=MMcons(Cnil,Cnil); |
7635 |
goto T2524;} |
goto T2524;} |
7636 |
base[0]=base[0]; |
base[0]=base[0]; |
7637 |
return Cnil; |
return Cnil; |
7638 |
} |
} |
7639 |
/* local entry for function UNPARSE-SPECIALIZERS */ |
/* local entry for function UNPARSE-SPECIALIZERS */ |
7640 |
|
|
7641 |
static object LI113(V1161) |
static object LI113(V1239) |
7642 |
|
|
7643 |
object V1161; |
object V1239; |
7644 |
{ VMB100 VMS100 VMV100 |
{ VMB100 VMS100 VMV100 |
7645 |
goto TTL; |
goto TTL; |
7646 |
TTL:; |
TTL:; |
7647 |
if(!(type_of((V1161))==t_cons||((V1161))==Cnil)){ |
if(!(type_of((V1239))==t_cons||((V1239))==Cnil)){ |
7648 |
goto T2528;} |
goto T2528;} |
7649 |
{object V1162; |
{object V1240; |
7650 |
object V1163= (V1161); |
object V1241= (V1239); |
7651 |
if(V1163==Cnil){ |
if(V1241==Cnil){ |
7652 |
{object V1164 = Cnil; |
{object V1242 = Cnil; |
7653 |
VMR100(V1164)}} |
VMR100(V1242)}} |
7654 |
base[0]=V1162=MMcons(Cnil,Cnil); |
base[0]=V1240=MMcons(Cnil,Cnil); |
7655 |
goto T2530; |
goto T2530; |
7656 |
T2530:; |
T2530:; |
7657 |
base[1]= (V1163->c.c_car); |
base[1]= (V1241->c.c_car); |
7658 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7659 |
L114(base); |
L114(base); |
7660 |
vs_top=sup; |
vs_top=sup; |
7661 |
(V1162->c.c_car)= vs_base[0]; |
(V1240->c.c_car)= vs_base[0]; |
7662 |
if((V1163=MMcdr(V1163))==Cnil){ |
if((V1241=MMcdr(V1241))==Cnil){ |
7663 |
{object V1165 = base[0]; |
{object V1243 = base[0]; |
7664 |
VMR100(V1165)}} |
VMR100(V1243)}} |
7665 |
V1162=MMcdr(V1162)=MMcons(Cnil,Cnil); |
V1240=MMcdr(V1240)=MMcons(Cnil,Cnil); |
7666 |
goto T2530;} |
goto T2530;} |
7667 |
goto T2528; |
goto T2528; |
7668 |
T2528:; |
T2528:; |
7669 |
base[0]= (V1161); |
base[0]= (V1239); |
7670 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7671 |
(void) (*Lnk433)(Lclptr433); |
(void) (*Lnk433)(Lclptr433); |
7672 |
vs_top=sup; |
vs_top=sup; |
7673 |
V1161= vs_base[0]; |
V1239= vs_base[0]; |
7674 |
goto TTL; |
goto TTL; |
7675 |
base[0]=base[0]; |
base[0]=base[0]; |
7676 |
return Cnil; |
return Cnil; |
7681 |
{register object *base=vs_base; |
{register object *base=vs_base; |
7682 |
register object *sup=base+VM101; VC101 |
register object *sup=base+VM101; VC101 |
7683 |
vs_check; |
vs_check; |
7684 |
{object V1166; |
{object V1244; |
7685 |
object V1167; |
object V1245; |
7686 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
7687 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
7688 |
V1166=(base[0]); |
V1244=(base[0]); |
7689 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
7690 |
if(vs_base>=vs_top){vs_top=sup;goto T2536;} |
if(vs_base>=vs_top){vs_top=sup;goto T2536;} |
7691 |
V1167=(base[1]); |
V1245=(base[1]); |
7692 |
vs_top=sup; |
vs_top=sup; |
7693 |
goto T2537; |
goto T2537; |
7694 |
goto T2536; |
goto T2536; |
7695 |
T2536:; |
T2536:; |
7696 |
V1167= Ct; |
V1245= Ct; |
7697 |
goto T2537; |
goto T2537; |
7698 |
T2537:; |
T2537:; |
7699 |
{register object V1168; |
{register object V1246; |
7700 |
register object V1169; |
register object V1247; |
7701 |
object V1170; |
object V1248; |
7702 |
object V1171; |
object V1249; |
7703 |
V1168= Cnil; |
V1246= Cnil; |
7704 |
V1169= Cnil; |
V1247= Cnil; |
7705 |
V1170= Cnil; |
V1248= Cnil; |
7706 |
V1171= Cnil; |
V1249= Cnil; |
7707 |
base[2]= (V1166); |
base[2]= (V1244); |
7708 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7709 |
(void) (*Lnk473)(Lclptr473); |
(void) (*Lnk473)(Lclptr473); |
7710 |
vs_top=sup; |
vs_top=sup; |
7711 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
7712 |
goto T2541;} |
goto T2541;} |
7713 |
V1169= (V1166); |
V1247= (V1244); |
7714 |
base[2]= (V1169); |
base[2]= (V1247); |
7715 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7716 |
(void) (*Lnk474)(Lclptr474); |
(void) (*Lnk474)(Lclptr474); |
7717 |
vs_top=sup; |
vs_top=sup; |
7718 |
V1168= vs_base[0]; |
V1246= vs_base[0]; |
7719 |
if((V1168)==Cnil){ |
if((V1246)==Cnil){ |
7720 |
V1171= Cnil; |
V1249= Cnil; |
7721 |
goto T2550;} |
goto T2550;} |
7722 |
base[2]= (V1168); |
base[2]= (V1246); |
7723 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7724 |
(void) (*Lnk440)(Lclptr440); |
(void) (*Lnk440)(Lclptr440); |
7725 |
vs_top=sup; |
vs_top=sup; |
7726 |
V1171= vs_base[0]; |
V1249= vs_base[0]; |
7727 |
goto T2550; |
goto T2550; |
7728 |
T2550:; |
T2550:; |
7729 |
if(((V1171))==Cnil){ |
if(((V1249))==Cnil){ |
7730 |
goto T2554;} |
goto T2554;} |
7731 |
base[2]= (V1169); |
V1250 = (V1249); |
7732 |
|
base[2]= (V1247); |
7733 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7734 |
(void) (*Lnk476)(Lclptr476); |
(void) (*Lnk476)(Lclptr476); |
7735 |
vs_top=sup; |
vs_top=sup; |
7736 |
V1172= vs_base[0]; |
V1251= vs_base[0]; |
7737 |
base[2]= (V1169); |
base[2]= (V1247); |
7738 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7739 |
(void) (*Lnk433)(Lclptr433); |
(void) (*Lnk433)(Lclptr433); |
7740 |
vs_top=sup; |
vs_top=sup; |
7741 |
V1173= vs_base[0]; |
V1252= vs_base[0]; |
7742 |
V1174= (*(LnkLI477))(V1173); |
V1253= (*(LnkLI477))(V1252); |
7743 |
V1175= (*(LnkLI401))((V1171),V1172,/* INLINE-ARGS */V1174); |
V1254= (*(LnkLI401))(V1250,V1251,/* INLINE-ARGS */V1253); |
7744 |
V1170= (*(LnkLI475))(/* INLINE-ARGS */V1175); |
V1248= (*(LnkLI475))(/* INLINE-ARGS */V1254); |
7745 |
goto T2552; |
goto T2552; |
7746 |
goto T2554; |
goto T2554; |
7747 |
T2554:; |
T2554:; |
7748 |
base[3]= Cnil; |
base[3]= Cnil; |
7749 |
base[4]= VV[336]; |
base[4]= VV[336]; |
7750 |
base[5]= (V1169); |
base[5]= (V1247); |
7751 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
7752 |
Lformat(); |
Lformat(); |
7753 |
vs_top=sup; |
vs_top=sup; |
7755 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7756 |
Lmake_symbol(); |
Lmake_symbol(); |
7757 |
vs_top=sup; |
vs_top=sup; |
7758 |
V1170= vs_base[0]; |
V1248= vs_base[0]; |
7759 |
goto T2552; |
goto T2552; |
7760 |
T2552:; |
T2552:; |
7761 |
goto T2539; |
goto T2539; |
7762 |
goto T2541; |
goto T2541; |
7763 |
T2541:; |
T2541:; |
7764 |
{object V1176; |
{object V1255; |
7765 |
object V1177; |
object V1256; |
7766 |
register object V1178; |
register object V1257; |
7767 |
base[2]= (V1166); |
base[2]= (V1244); |
7768 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7769 |
(void) (*Lnk352)(); |
(void) (*Lnk352)(); |
7770 |
if(vs_base>=vs_top){vs_top=sup;goto T2566;} |
if(vs_base>=vs_top){vs_top=sup;goto T2566;} |
7771 |
V1176= vs_base[0]; |
V1255= vs_base[0]; |
7772 |
vs_base++; |
vs_base++; |
7773 |
if(vs_base>=vs_top){vs_top=sup;goto T2567;} |
if(vs_base>=vs_top){vs_top=sup;goto T2567;} |
7774 |
V1177= vs_base[0]; |
V1256= vs_base[0]; |
7775 |
vs_base++; |
vs_base++; |
7776 |
if(vs_base>=vs_top){vs_top=sup;goto T2568;} |
if(vs_base>=vs_top){vs_top=sup;goto T2568;} |
7777 |
V1178= vs_base[0]; |
V1257= vs_base[0]; |
7778 |
vs_top=sup; |
vs_top=sup; |
7779 |
goto T2569; |
goto T2569; |
7780 |
goto T2566; |
goto T2566; |
7781 |
T2566:; |
T2566:; |
7782 |
V1176= Cnil; |
V1255= Cnil; |
7783 |
goto T2567; |
goto T2567; |
7784 |
T2567:; |
T2567:; |
7785 |
V1177= Cnil; |
V1256= Cnil; |
7786 |
goto T2568; |
goto T2568; |
7787 |
T2568:; |
T2568:; |
7788 |
V1178= Cnil; |
V1257= Cnil; |
7789 |
goto T2569; |
goto T2569; |
7790 |
T2569:; |
T2569:; |
7791 |
if((V1167)!=Cnil){ |
if((V1245)!=Cnil){ |
7792 |
if(((V1167))!=Cnil){ |
if(((V1245))!=Cnil){ |
7793 |
goto T2573;} |
goto T2573;} |
7794 |
goto T2574;} |
goto T2574;} |
7795 |
if(((*(LnkLI355))((V1176)))!=Cnil){ |
if(((*(LnkLI355))((V1255)))!=Cnil){ |
7796 |
goto T2573;} |
goto T2573;} |
7797 |
goto T2574; |
goto T2574; |
7798 |
T2574:; |
T2574:; |
7799 |
V1168= Cnil; |
V1246= Cnil; |
7800 |
goto T2572; |
goto T2572; |
7801 |
goto T2573; |
goto T2573; |
7802 |
T2573:; |
T2573:; |
7803 |
V1168= (*(LnkLI356))((V1176)); |
V1246= (*(LnkLI356))((V1255)); |
7804 |
goto T2572; |
goto T2572; |
7805 |
T2572:; |
T2572:; |
7806 |
if(((V1168))!=Cnil){ |
if(((V1246))!=Cnil){ |
7807 |
goto T2570;} |
goto T2570;} |
7808 |
goto T2539; |
goto T2539; |
7809 |
goto T2570; |
goto T2570; |
7810 |
T2570:; |
T2570:; |
7811 |
{object V1179; |
{object V1258; |
7812 |
base[2]= (V1168); |
base[2]= (V1246); |
7813 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7814 |
(void) (*Lnk478)(Lclptr478); |
(void) (*Lnk478)(Lclptr478); |
7815 |
vs_top=sup; |
vs_top=sup; |
7816 |
V1179= vs_base[0]; |
V1258= vs_base[0]; |
7817 |
V1180= (*(LnkLI458))((V1178)); |
V1259= (*(LnkLI458))((V1257)); |
7818 |
V1182 = CMPmake_fixnum((long)length((V1178))); |
V1261 = CMPmake_fixnum((long)length((V1257))); |
7819 |
base[2]= number_minus((V1179),V1182); |
base[2]= number_minus((V1258),V1261); |
7820 |
base[3]= VV[223]; |
base[3]= VV[223]; |
7821 |
base[4]= (VV[337]->s.s_dbind); |
base[4]= (VV[337]->s.s_dbind); |
7822 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
7823 |
Lmake_list(); |
Lmake_list(); |
7824 |
vs_top=sup; |
vs_top=sup; |
7825 |
V1181= vs_base[0]; |
V1260= vs_base[0]; |
7826 |
V1178= append(/* INLINE-ARGS */V1180,V1181); |
V1257= append(/* INLINE-ARGS */V1259,V1260); |
7827 |
V1169= (VFUN_NARGS=4,(*(LnkLI479))((V1168),(V1177),(V1178),(V1167))); |
V1247= (VFUN_NARGS=4,(*(LnkLI479))((V1246),(V1256),(V1257),(V1245))); |
7828 |
if(((V1169))!=Cnil){ |
if(((V1247))!=Cnil){ |
7829 |
goto T2583;} |
goto T2583;} |
7830 |
goto T2539; |
goto T2539; |
7831 |
goto T2583; |
goto T2583; |
7832 |
T2583:; |
T2583:; |
7833 |
V1183= (*(LnkLI401))((V1176),(V1177),(V1178)); |
V1262= (*(LnkLI401))((V1255),(V1256),(V1257)); |
7834 |
V1170= (*(LnkLI475))(/* INLINE-ARGS */V1183);}} |
V1248= (*(LnkLI475))(/* INLINE-ARGS */V1262);}} |
7835 |
goto T2539; |
goto T2539; |
7836 |
T2539:; |
T2539:; |
7837 |
base[2]= (V1168); |
base[2]= (V1246); |
7838 |
base[3]= (V1169); |
base[3]= (V1247); |
7839 |
base[4]= (V1170); |
base[4]= (V1248); |
7840 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
7841 |
return;} |
return;} |
7842 |
} |
} |
7843 |
} |
} |
7844 |
/* local entry for function EXTRACT-PARAMETERS */ |
/* local entry for function EXTRACT-PARAMETERS */ |
7845 |
|
|
7846 |
static object LI116(V1185) |
static object LI116(V1264) |
7847 |
|
|
7848 |
object V1185; |
object V1264; |
7849 |
{ VMB102 VMS102 VMV102 |
{ VMB102 VMS102 VMV102 |
7850 |
goto TTL; |
goto TTL; |
7851 |
TTL:; |
TTL:; |
7852 |
{object V1186; |
{object V1265; |
7853 |
object V1187; |
object V1266; |
7854 |
object V1188; |
object V1267; |
7855 |
base[0]= (V1185); |
base[0]= (V1264); |
7856 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7857 |
(void) (*Lnk370)(); |
(void) (*Lnk370)(); |
7858 |
if(vs_base>=vs_top){vs_top=sup;goto T2592;} |
if(vs_base>=vs_top){vs_top=sup;goto T2592;} |
7859 |
V1186= vs_base[0]; |
V1265= vs_base[0]; |
7860 |
vs_base++; |
vs_base++; |
7861 |
if(vs_base>=vs_top){vs_top=sup;goto T2593;} |
if(vs_base>=vs_top){vs_top=sup;goto T2593;} |
7862 |
V1187= vs_base[0]; |
V1266= vs_base[0]; |
7863 |
vs_base++; |
vs_base++; |
7864 |
if(vs_base>=vs_top){vs_top=sup;goto T2594;} |
if(vs_base>=vs_top){vs_top=sup;goto T2594;} |
7865 |
V1188= vs_base[0]; |
V1267= vs_base[0]; |
7866 |
vs_top=sup; |
vs_top=sup; |
7867 |
goto T2595; |
goto T2595; |
7868 |
goto T2592; |
goto T2592; |
7869 |
T2592:; |
T2592:; |
7870 |
V1186= Cnil; |
V1265= Cnil; |
7871 |
goto T2593; |
goto T2593; |
7872 |
T2593:; |
T2593:; |
7873 |
V1187= Cnil; |
V1266= Cnil; |
7874 |
goto T2594; |
goto T2594; |
7875 |
T2594:; |
T2594:; |
7876 |
V1188= Cnil; |
V1267= Cnil; |
7877 |
goto T2595; |
goto T2595; |
7878 |
T2595:; |
T2595:; |
7879 |
{object V1189 = (V1186); |
{object V1268 = (V1265); |
7880 |
VMR102(V1189)}} |
VMR102(V1268)}} |
7881 |
base[0]=base[0]; |
base[0]=base[0]; |
7882 |
return Cnil; |
return Cnil; |
7883 |
} |
} |
7884 |
/* local entry for function EXTRACT-LAMBDA-LIST */ |
/* local entry for function EXTRACT-LAMBDA-LIST */ |
7885 |
|
|
7886 |
static object LI117(V1191) |
static object LI117(V1270) |
7887 |
|
|
7888 |
object V1191; |
object V1270; |
7889 |
{ VMB103 VMS103 VMV103 |
{ VMB103 VMS103 VMV103 |
7890 |
goto TTL; |
goto TTL; |
7891 |
TTL:; |
TTL:; |
7892 |
{object V1192; |
{object V1271; |
7893 |
object V1193; |
object V1272; |
7894 |
object V1194; |
object V1273; |
7895 |
base[0]= (V1191); |
base[0]= (V1270); |
7896 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7897 |
(void) (*Lnk370)(); |
(void) (*Lnk370)(); |
7898 |
if(vs_base>=vs_top){vs_top=sup;goto T2598;} |
if(vs_base>=vs_top){vs_top=sup;goto T2598;} |
7899 |
V1192= vs_base[0]; |
V1271= vs_base[0]; |
7900 |
vs_base++; |
vs_base++; |
7901 |
if(vs_base>=vs_top){vs_top=sup;goto T2599;} |
if(vs_base>=vs_top){vs_top=sup;goto T2599;} |
7902 |
V1193= vs_base[0]; |
V1272= vs_base[0]; |
7903 |
vs_base++; |
vs_base++; |
7904 |
if(vs_base>=vs_top){vs_top=sup;goto T2600;} |
if(vs_base>=vs_top){vs_top=sup;goto T2600;} |
7905 |
V1194= vs_base[0]; |
V1273= vs_base[0]; |
7906 |
vs_top=sup; |
vs_top=sup; |
7907 |
goto T2601; |
goto T2601; |
7908 |
goto T2598; |
goto T2598; |
7909 |
T2598:; |
T2598:; |
7910 |
V1192= Cnil; |
V1271= Cnil; |
7911 |
goto T2599; |
goto T2599; |
7912 |
T2599:; |
T2599:; |
7913 |
V1193= Cnil; |
V1272= Cnil; |
7914 |
goto T2600; |
goto T2600; |
7915 |
T2600:; |
T2600:; |
7916 |
V1194= Cnil; |
V1273= Cnil; |
7917 |
goto T2601; |
goto T2601; |
7918 |
T2601:; |
T2601:; |
7919 |
{object V1195 = (V1193); |
{object V1274 = (V1272); |
7920 |
VMR103(V1195)}} |
VMR103(V1274)}} |
7921 |
base[0]=base[0]; |
base[0]=base[0]; |
7922 |
return Cnil; |
return Cnil; |
7923 |
} |
} |
7924 |
/* local entry for function EXTRACT-SPECIALIZER-NAMES */ |
/* local entry for function EXTRACT-SPECIALIZER-NAMES */ |
7925 |
|
|
7926 |
static object LI118(V1197) |
static object LI118(V1276) |
7927 |
|
|
7928 |
object V1197; |
object V1276; |
7929 |
{ VMB104 VMS104 VMV104 |
{ VMB104 VMS104 VMV104 |
7930 |
goto TTL; |
goto TTL; |
7931 |
TTL:; |
TTL:; |
7932 |
{object V1198; |
{object V1277; |
7933 |
object V1199; |
object V1278; |
7934 |
object V1200; |
object V1279; |
7935 |
base[0]= (V1197); |
base[0]= (V1276); |
7936 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7937 |
(void) (*Lnk370)(); |
(void) (*Lnk370)(); |
7938 |
if(vs_base>=vs_top){vs_top=sup;goto T2604;} |
if(vs_base>=vs_top){vs_top=sup;goto T2604;} |
7939 |
V1198= vs_base[0]; |
V1277= vs_base[0]; |
7940 |
vs_base++; |
vs_base++; |
7941 |
if(vs_base>=vs_top){vs_top=sup;goto T2605;} |
if(vs_base>=vs_top){vs_top=sup;goto T2605;} |
7942 |
V1199= vs_base[0]; |
V1278= vs_base[0]; |
7943 |
vs_base++; |
vs_base++; |
7944 |
if(vs_base>=vs_top){vs_top=sup;goto T2606;} |
if(vs_base>=vs_top){vs_top=sup;goto T2606;} |
7945 |
V1200= vs_base[0]; |
V1279= vs_base[0]; |
7946 |
vs_top=sup; |
vs_top=sup; |
7947 |
goto T2607; |
goto T2607; |
7948 |
goto T2604; |
goto T2604; |
7949 |
T2604:; |
T2604:; |
7950 |
V1198= Cnil; |
V1277= Cnil; |
7951 |
goto T2605; |
goto T2605; |
7952 |
T2605:; |
T2605:; |
7953 |
V1199= Cnil; |
V1278= Cnil; |
7954 |
goto T2606; |
goto T2606; |
7955 |
T2606:; |
T2606:; |
7956 |
V1200= Cnil; |
V1279= Cnil; |
7957 |
goto T2607; |
goto T2607; |
7958 |
T2607:; |
T2607:; |
7959 |
{object V1201 = (V1200); |
{object V1280 = (V1279); |
7960 |
VMR104(V1201)}} |
VMR104(V1280)}} |
7961 |
base[0]=base[0]; |
base[0]=base[0]; |
7962 |
return Cnil; |
return Cnil; |
7963 |
} |
} |
7964 |
/* local entry for function EXTRACT-REQUIRED-PARAMETERS */ |
/* local entry for function EXTRACT-REQUIRED-PARAMETERS */ |
7965 |
|
|
7966 |
static object LI119(V1203) |
static object LI119(V1282) |
7967 |
|
|
7968 |
object V1203; |
object V1282; |
7969 |
{ VMB105 VMS105 VMV105 |
{ VMB105 VMS105 VMV105 |
7970 |
goto TTL; |
goto TTL; |
7971 |
TTL:; |
TTL:; |
7972 |
{object V1204; |
{object V1283; |
7973 |
object V1205; |
object V1284; |
7974 |
object V1206; |
object V1285; |
7975 |
object V1207; |
object V1286; |
7976 |
base[0]= (V1203); |
base[0]= (V1282); |
7977 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7978 |
(void) (*Lnk370)(); |
(void) (*Lnk370)(); |
7979 |
if(vs_base>=vs_top){vs_top=sup;goto T2610;} |
if(vs_base>=vs_top){vs_top=sup;goto T2610;} |
7980 |
V1204= vs_base[0]; |
V1283= vs_base[0]; |
7981 |
vs_base++; |
vs_base++; |
7982 |
if(vs_base>=vs_top){vs_top=sup;goto T2611;} |
if(vs_base>=vs_top){vs_top=sup;goto T2611;} |
7983 |
V1205= vs_base[0]; |
V1284= vs_base[0]; |
7984 |
vs_base++; |
vs_base++; |
7985 |
if(vs_base>=vs_top){vs_top=sup;goto T2612;} |
if(vs_base>=vs_top){vs_top=sup;goto T2612;} |
7986 |
V1206= vs_base[0]; |
V1285= vs_base[0]; |
7987 |
vs_base++; |
vs_base++; |
7988 |
if(vs_base>=vs_top){vs_top=sup;goto T2613;} |
if(vs_base>=vs_top){vs_top=sup;goto T2613;} |
7989 |
V1207= vs_base[0]; |
V1286= vs_base[0]; |
7990 |
vs_top=sup; |
vs_top=sup; |
7991 |
goto T2614; |
goto T2614; |
7992 |
goto T2610; |
goto T2610; |
7993 |
T2610:; |
T2610:; |
7994 |
V1204= Cnil; |
V1283= Cnil; |
7995 |
goto T2611; |
goto T2611; |
7996 |
T2611:; |
T2611:; |
7997 |
V1205= Cnil; |
V1284= Cnil; |
7998 |
goto T2612; |
goto T2612; |
7999 |
T2612:; |
T2612:; |
8000 |
V1206= Cnil; |
V1285= Cnil; |
8001 |
goto T2613; |
goto T2613; |
8002 |
T2613:; |
T2613:; |
8003 |
V1207= Cnil; |
V1286= Cnil; |
8004 |
goto T2614; |
goto T2614; |
8005 |
T2614:; |
T2614:; |
8006 |
{object V1208 = (V1207); |
{object V1287 = (V1286); |
8007 |
VMR105(V1208)}} |
VMR105(V1287)}} |
8008 |
base[0]=base[0]; |
base[0]=base[0]; |
8009 |
return Cnil; |
return Cnil; |
8010 |
} |
} |
8014 |
{register object *base=vs_base; |
{register object *base=vs_base; |
8015 |
register object *sup=base+VM106; VC106 |
register object *sup=base+VM106; VC106 |
8016 |
vs_check; |
vs_check; |
8017 |
{register object V1209; |
{register object V1288; |
8018 |
object V1210; |
object V1289; |
8019 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
8020 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
8021 |
V1209=(base[0]); |
V1288=(base[0]); |
8022 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
8023 |
if(vs_base>=vs_top){vs_top=sup;goto T2615;} |
if(vs_base>=vs_top){vs_top=sup;goto T2615;} |
8024 |
V1210=(base[1]); |
V1289=(base[1]); |
8025 |
vs_top=sup; |
vs_top=sup; |
8026 |
goto T2616; |
goto T2616; |
8027 |
goto T2615; |
goto T2615; |
8028 |
T2615:; |
T2615:; |
8029 |
V1210= Cnil; |
V1289= Cnil; |
8030 |
goto T2616; |
goto T2616; |
8031 |
T2616:; |
T2616:; |
8032 |
{register object V1211; |
{register object V1290; |
8033 |
V1211= CMPcar((V1209)); |
V1290= CMPcar((V1288)); |
8034 |
if(((V1209))!=Cnil){ |
if(((V1288))!=Cnil){ |
8035 |
goto T2620;} |
goto T2620;} |
8036 |
base[2]= Cnil; |
base[2]= Cnil; |
8037 |
base[3]= Cnil; |
base[3]= Cnil; |
8041 |
return; |
return; |
8042 |
goto T2620; |
goto T2620; |
8043 |
T2620:; |
T2620:; |
8044 |
if(!(((V1211))==(VV[56]))){ |
if(!(((V1290))==(VV[56]))){ |
8045 |
goto T2627;} |
goto T2627;} |
8046 |
base[2]= Cnil; |
base[2]= Cnil; |
8047 |
base[3]= (V1209); |
base[3]= (V1288); |
8048 |
base[4]= Cnil; |
base[4]= Cnil; |
8049 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
8050 |
return; |
return; |
8051 |
goto T2627; |
goto T2627; |
8052 |
T2627:; |
T2627:; |
8053 |
{register object x= (V1211),V1212= VV[183]; |
{register object x= (V1290),V1291= VV[183]; |
8054 |
while(V1212!=Cnil) |
while(V1291!=Cnil) |
8055 |
if(x==(V1212->c.c_car)){ |
if(x==(V1291->c.c_car)){ |
8056 |
goto T2634; |
goto T2634; |
8057 |
}else V1212=V1212->c.c_cdr; |
}else V1291=V1291->c.c_cdr; |
8058 |
goto T2633;} |
goto T2633;} |
8059 |
goto T2634; |
goto T2634; |
8060 |
T2634:; |
T2634:; |
8061 |
{register object x= (V1211),V1213= VV[338]; |
{register object x= (V1290),V1292= VV[338]; |
8062 |
while(V1213!=Cnil) |
while(V1292!=Cnil) |
8063 |
if(x==(V1213->c.c_car)){ |
if(x==(V1292->c.c_car)){ |
8064 |
goto T2635; |
goto T2635; |
8065 |
}else V1213=V1213->c.c_cdr;} |
}else V1292=V1292->c.c_cdr;} |
8066 |
base[2]= VV[339]; |
base[2]= VV[339]; |
8067 |
base[3]= (V1211); |
base[3]= (V1290); |
8068 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
8069 |
(void) (*Lnk398)(); |
(void) (*Lnk398)(); |
8070 |
vs_top=sup; |
vs_top=sup; |
8071 |
goto T2635; |
goto T2635; |
8072 |
T2635:; |
T2635:; |
8073 |
{object V1214; |
{object V1293; |
8074 |
object V1215; |
object V1294; |
8075 |
base[2]= CMPcdr((V1209)); |
base[2]= CMPcdr((V1288)); |
8076 |
base[3]= Ct; |
base[3]= Ct; |
8077 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
8078 |
(void) (*Lnk370)(); |
(void) (*Lnk370)(); |
8079 |
if(vs_base>=vs_top){vs_top=sup;goto T2643;} |
if(vs_base>=vs_top){vs_top=sup;goto T2643;} |
8080 |
V1214= vs_base[0]; |
V1293= vs_base[0]; |
8081 |
vs_base++; |
vs_base++; |
8082 |
if(vs_base>=vs_top){vs_top=sup;goto T2644;} |
if(vs_base>=vs_top){vs_top=sup;goto T2644;} |
8083 |
V1215= vs_base[0]; |
V1294= vs_base[0]; |
8084 |
vs_top=sup; |
vs_top=sup; |
8085 |
goto T2645; |
goto T2645; |
8086 |
goto T2643; |
goto T2643; |
8087 |
T2643:; |
T2643:; |
8088 |
V1214= Cnil; |
V1293= Cnil; |
8089 |
goto T2644; |
goto T2644; |
8090 |
T2644:; |
T2644:; |
8091 |
V1215= Cnil; |
V1294= Cnil; |
8092 |
goto T2645; |
goto T2645; |
8093 |
T2645:; |
T2645:; |
8094 |
base[2]= (V1214); |
base[2]= (V1293); |
8095 |
base[3]= make_cons((V1211),(V1215)); |
base[3]= make_cons((V1290),(V1294)); |
8096 |
base[4]= Cnil; |
base[4]= Cnil; |
8097 |
base[5]= Cnil; |
base[5]= Cnil; |
8098 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
8099 |
return;} |
return;} |
8100 |
goto T2633; |
goto T2633; |
8101 |
T2633:; |
T2633:; |
8102 |
if(((V1210))==Cnil){ |
if(((V1289))==Cnil){ |
8103 |
goto T2651;} |
goto T2651;} |
8104 |
{object V1216; |
{object V1295; |
8105 |
object V1217; |
object V1296; |
8106 |
base[2]= CMPcdr((V1209)); |
base[2]= CMPcdr((V1288)); |
8107 |
base[3]= Ct; |
base[3]= Ct; |
8108 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
8109 |
(void) (*Lnk370)(); |
(void) (*Lnk370)(); |
8110 |
if(vs_base>=vs_top){vs_top=sup;goto T2656;} |
if(vs_base>=vs_top){vs_top=sup;goto T2656;} |
8111 |
V1216= vs_base[0]; |
V1295= vs_base[0]; |
8112 |
vs_base++; |
vs_base++; |
8113 |
if(vs_base>=vs_top){vs_top=sup;goto T2657;} |
if(vs_base>=vs_top){vs_top=sup;goto T2657;} |
8114 |
V1217= vs_base[0]; |
V1296= vs_base[0]; |
8115 |
vs_top=sup; |
vs_top=sup; |
8116 |
goto T2658; |
goto T2658; |
8117 |
goto T2656; |
goto T2656; |
8118 |
T2656:; |
T2656:; |
8119 |
V1216= Cnil; |
V1295= Cnil; |
8120 |
goto T2657; |
goto T2657; |
8121 |
T2657:; |
T2657:; |
8122 |
V1217= Cnil; |
V1296= Cnil; |
8123 |
goto T2658; |
goto T2658; |
8124 |
T2658:; |
T2658:; |
8125 |
if(!(type_of((V1211))==t_cons||((V1211))==Cnil)){ |
if(!(type_of((V1290))==t_cons||((V1290))==Cnil)){ |
8126 |
goto T2662;} |
goto T2662;} |
8127 |
V1218= CMPcar((V1211)); |
V1297= CMPcar((V1290)); |
8128 |
goto T2660; |
goto T2660; |
8129 |
goto T2662; |
goto T2662; |
8130 |
T2662:; |
T2662:; |
8131 |
V1218= (V1211); |
V1297= (V1290); |
8132 |
goto T2660; |
goto T2660; |
8133 |
T2660:; |
T2660:; |
8134 |
base[2]= make_cons(V1218,(V1216)); |
V1298 = (V1295); |
8135 |
base[3]= make_cons((V1211),(V1217)); |
base[2]= make_cons(V1297,V1298); |
8136 |
|
base[3]= make_cons((V1290),(V1296)); |
8137 |
base[4]= Cnil; |
base[4]= Cnil; |
8138 |
base[5]= Cnil; |
base[5]= Cnil; |
8139 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
8140 |
return;} |
return;} |
8141 |
goto T2651; |
goto T2651; |
8142 |
T2651:; |
T2651:; |
8143 |
{object V1219; |
{object V1299; |
8144 |
object V1220; |
object V1300; |
8145 |
object V1221; |
object V1301; |
8146 |
object V1222; |
object V1302; |
8147 |
base[2]= CMPcdr((V1209)); |
base[2]= CMPcdr((V1288)); |
8148 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
8149 |
(void) (*Lnk370)(); |
(void) (*Lnk370)(); |
8150 |
if(vs_base>=vs_top){vs_top=sup;goto T2669;} |
if(vs_base>=vs_top){vs_top=sup;goto T2669;} |
8151 |
V1219= vs_base[0]; |
V1299= vs_base[0]; |
8152 |
vs_base++; |
vs_base++; |
8153 |
if(vs_base>=vs_top){vs_top=sup;goto T2670;} |
if(vs_base>=vs_top){vs_top=sup;goto T2670;} |
8154 |
V1220= vs_base[0]; |
V1300= vs_base[0]; |
8155 |
vs_base++; |
vs_base++; |
8156 |
if(vs_base>=vs_top){vs_top=sup;goto T2671;} |
if(vs_base>=vs_top){vs_top=sup;goto T2671;} |
8157 |
V1221= vs_base[0]; |
V1301= vs_base[0]; |
8158 |
vs_base++; |
vs_base++; |
8159 |
if(vs_base>=vs_top){vs_top=sup;goto T2672;} |
if(vs_base>=vs_top){vs_top=sup;goto T2672;} |
8160 |
V1222= vs_base[0]; |
V1302= vs_base[0]; |
8161 |
vs_top=sup; |
vs_top=sup; |
8162 |
goto T2673; |
goto T2673; |
8163 |
goto T2669; |
goto T2669; |
8164 |
T2669:; |
T2669:; |
8165 |
V1219= Cnil; |
V1299= Cnil; |
8166 |
goto T2670; |
goto T2670; |
8167 |
T2670:; |
T2670:; |
8168 |
V1220= Cnil; |
V1300= Cnil; |
8169 |
goto T2671; |
goto T2671; |
8170 |
T2671:; |
T2671:; |
8171 |
V1221= Cnil; |
V1301= Cnil; |
8172 |
goto T2672; |
goto T2672; |
8173 |
T2672:; |
T2672:; |
8174 |
V1222= Cnil; |
V1302= Cnil; |
8175 |
goto T2673; |
goto T2673; |
8176 |
T2673:; |
T2673:; |
8177 |
if(!(type_of((V1211))==t_cons||((V1211))==Cnil)){ |
if(!(type_of((V1290))==t_cons||((V1290))==Cnil)){ |
8178 |
goto T2677;} |
goto T2677;} |
8179 |
V1223= CMPcar((V1211)); |
V1303= CMPcar((V1290)); |
8180 |
goto T2675; |
goto T2675; |
8181 |
goto T2677; |
goto T2677; |
8182 |
T2677:; |
T2677:; |
8183 |
V1223= (V1211); |
V1303= (V1290); |
8184 |
goto T2675; |
goto T2675; |
8185 |
T2675:; |
T2675:; |
8186 |
base[2]= make_cons(V1223,(V1219)); |
V1304 = (V1299); |
8187 |
if(!(type_of((V1211))==t_cons||((V1211))==Cnil)){ |
base[2]= make_cons(V1303,V1304); |
8188 |
|
if(!(type_of((V1290))==t_cons||((V1290))==Cnil)){ |
8189 |
goto T2682;} |
goto T2682;} |
8190 |
V1224= CMPcar((V1211)); |
V1305= CMPcar((V1290)); |
8191 |
goto T2680; |
goto T2680; |
8192 |
goto T2682; |
goto T2682; |
8193 |
T2682:; |
T2682:; |
8194 |
V1224= (V1211); |
V1305= (V1290); |
8195 |
goto T2680; |
goto T2680; |
8196 |
T2680:; |
T2680:; |
8197 |
base[3]= make_cons(V1224,(V1220)); |
V1306 = (V1300); |
8198 |
if(!(type_of((V1211))==t_cons||((V1211))==Cnil)){ |
base[3]= make_cons(V1305,V1306); |
8199 |
|
if(!(type_of((V1290))==t_cons||((V1290))==Cnil)){ |
8200 |
goto T2687;} |
goto T2687;} |
8201 |
V1225= CMPcadr((V1211)); |
V1307= CMPcadr((V1290)); |
8202 |
goto T2685; |
goto T2685; |
8203 |
goto T2687; |
goto T2687; |
8204 |
T2687:; |
T2687:; |
8205 |
V1225= Ct; |
V1307= Ct; |
8206 |
goto T2685; |
goto T2685; |
8207 |
T2685:; |
T2685:; |
8208 |
base[4]= make_cons(V1225,(V1221)); |
V1308 = (V1301); |
8209 |
if(!(type_of((V1211))==t_cons||((V1211))==Cnil)){ |
base[4]= make_cons(V1307,V1308); |
8210 |
|
if(!(type_of((V1290))==t_cons||((V1290))==Cnil)){ |
8211 |
goto T2692;} |
goto T2692;} |
8212 |
V1226= CMPcar((V1211)); |
V1309= CMPcar((V1290)); |
8213 |
goto T2690; |
goto T2690; |
8214 |
goto T2692; |
goto T2692; |
8215 |
T2692:; |
T2692:; |
8216 |
V1226= (V1211); |
V1309= (V1290); |
8217 |
goto T2690; |
goto T2690; |
8218 |
T2690:; |
T2690:; |
8219 |
base[5]= make_cons(V1226,(V1222)); |
V1310 = (V1302); |
8220 |
|
base[5]= make_cons(V1309,V1310); |
8221 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
8222 |
return;}} |
return;}} |
8223 |
} |
} |
8230 |
vs_check; |
vs_check; |
8231 |
check_arg(2); |
check_arg(2); |
8232 |
vs_top=sup; |
vs_top=sup; |
8233 |
{object V1227=base[0]->c.c_cdr; |
{object V1311=base[0]->c.c_cdr; |
8234 |
if(endp(V1227))invalid_macro_call(); |
if(endp(V1311))invalid_macro_call(); |
8235 |
base[2]= (V1227->c.c_car); |
base[2]= (V1311->c.c_car); |
8236 |
V1227=V1227->c.c_cdr; |
V1311=V1311->c.c_cdr; |
8237 |
base[3]= V1227;} |
base[3]= V1311;} |
8238 |
{object V1228; |
{object V1312; |
8239 |
object V1229= base[2]; |
object V1313= base[2]; |
8240 |
if(V1229==Cnil){ |
if(V1313==Cnil){ |
8241 |
base[4]= Cnil; |
base[4]= Cnil; |
8242 |
goto T2694;} |
goto T2694;} |
8243 |
base[5]=V1228=MMcons(Cnil,Cnil); |
base[5]=V1312=MMcons(Cnil,Cnil); |
8244 |
goto T2695; |
goto T2695; |
8245 |
T2695:; |
T2695:; |
8246 |
V1231= CMPcar((V1229->c.c_car)); |
V1315= CMPcar((V1313->c.c_car)); |
8247 |
V1232= (*(LnkLI480))(CMPcar((V1229->c.c_car)),base[1]); |
V1316= (*(LnkLI480))(CMPcar((V1313->c.c_car)),base[1]); |
8248 |
(V1228->c.c_car)= list(3,/* INLINE-ARGS */V1231,/* INLINE-ARGS */V1232,CMPcadr((V1229->c.c_car))); |
(V1312->c.c_car)= list(3,/* INLINE-ARGS */V1315,/* INLINE-ARGS */V1316,CMPcadr((V1313->c.c_car))); |
8249 |
if((V1229=MMcdr(V1229))==Cnil){ |
if((V1313=MMcdr(V1313))==Cnil){ |
8250 |
base[4]= base[5]; |
base[4]= base[5]; |
8251 |
goto T2694;} |
goto T2694;} |
8252 |
V1228=MMcdr(V1228)=MMcons(Cnil,Cnil); |
V1312=MMcdr(V1312)=MMcons(Cnil,Cnil); |
8253 |
goto T2695;} |
goto T2695;} |
8254 |
goto T2694; |
goto T2694; |
8255 |
T2694:; |
T2694:; |
8264 |
} |
} |
8265 |
/* local entry for function EXPAND-SYMBOL-MACROLET-INTERNAL */ |
/* local entry for function EXPAND-SYMBOL-MACROLET-INTERNAL */ |
8266 |
|
|
8267 |
static object LI124(V1237,V1238,V1239,V1240) |
static object LI124(V1321,V1322,V1323,V1324) |
8268 |
|
|
8269 |
object V1237;register object V1238;object V1239;object V1240; |
object V1321;register object V1322;object V1323;object V1324; |
8270 |
{ VMB108 VMS108 VMV108 |
{ VMB108 VMS108 VMV108 |
8271 |
goto TTL; |
goto TTL; |
8272 |
TTL:; |
TTL:; |
8273 |
base[0]= (V1240); |
base[0]= (V1324); |
8274 |
base[1]= (V1237); |
base[1]= (V1321); |
8275 |
base[2]= Cnil; |
base[2]= Cnil; |
8276 |
if(((V1239))==(VV[194])){ |
if(((V1323))==(VV[194])){ |
8277 |
goto T2701;} |
goto T2701;} |
8278 |
{object V1241 = (V1238); |
{object V1325 = (V1322); |
8279 |
VMR108(V1241)} |
VMR108(V1325)} |
8280 |
goto T2701; |
goto T2701; |
8281 |
T2701:; |
T2701:; |
8282 |
if(!(type_of((V1238))==t_symbol)){ |
if(!(type_of((V1322))==t_symbol)){ |
8283 |
goto T2704;} |
goto T2704;} |
8284 |
{register object x= (V1238),V1242= base[1]; |
{register object x= (V1322),V1326= base[1]; |
8285 |
while(V1242!=Cnil) |
while(V1326!=Cnil) |
8286 |
if(eql(x,V1242->c.c_car->c.c_car) &&V1242->c.c_car != Cnil){ |
if(eql(x,V1326->c.c_car->c.c_car) &&V1326->c.c_car != Cnil){ |
8287 |
base[2]= (V1242->c.c_car); |
base[2]= (V1326->c.c_car); |
8288 |
goto T2710; |
goto T2710; |
8289 |
}else V1242=V1242->c.c_cdr; |
}else V1326=V1326->c.c_cdr; |
8290 |
base[2]= Cnil;} |
base[2]= Cnil;} |
8291 |
goto T2710; |
goto T2710; |
8292 |
T2710:; |
T2710:; |
8293 |
if((base[2])==Cnil){ |
if((base[2])==Cnil){ |
8294 |
goto T2707;} |
goto T2707;} |
8295 |
V1243= CMPcadr(base[2]); |
V1327= CMPcadr(base[2]); |
8296 |
V1244= (*(LnkLI480))((V1238),base[0]); |
V1328= (*(LnkLI480))((V1322),base[0]); |
8297 |
if(!((/* INLINE-ARGS */V1243)==(/* INLINE-ARGS */V1244))){ |
if(!((/* INLINE-ARGS */V1327)==(/* INLINE-ARGS */V1328))){ |
8298 |
goto T2707;} |
goto T2707;} |
8299 |
{object V1245 = CMPcaddr(base[2]); |
{object V1329 = CMPcaddr(base[2]); |
8300 |
VMR108(V1245)} |
VMR108(V1329)} |
8301 |
goto T2707; |
goto T2707; |
8302 |
T2707:; |
T2707:; |
8303 |
{object V1246 = (V1238); |
{object V1330 = (V1322); |
8304 |
VMR108(V1246)} |
VMR108(V1330)} |
8305 |
goto T2704; |
goto T2704; |
8306 |
T2704:; |
T2704:; |
8307 |
if(type_of((V1238))==t_cons||((V1238))==Cnil){ |
if(type_of((V1322))==t_cons||((V1322))==Cnil){ |
8308 |
goto T2713;} |
goto T2713;} |
8309 |
{object V1247 = (V1238); |
{object V1331 = (V1322); |
8310 |
VMR108(V1247)} |
VMR108(V1331)} |
8311 |
goto T2713; |
goto T2713; |
8312 |
T2713:; |
T2713:; |
8313 |
{register object x= CMPcar((V1238)),V1248= VV[340]; |
{register object x= CMPcar((V1322)),V1332= VV[340]; |
8314 |
while(V1248!=Cnil) |
while(V1332!=Cnil) |
8315 |
if(eql(x,V1248->c.c_car)){ |
if(eql(x,V1332->c.c_car)){ |
8316 |
goto T2717; |
goto T2717; |
8317 |
}else V1248=V1248->c.c_cdr; |
}else V1332=V1332->c.c_cdr; |
8318 |
goto T2716;} |
goto T2716;} |
8319 |
goto T2717; |
goto T2717; |
8320 |
T2717:; |
T2717:; |
8321 |
base[3]= CMPcar((V1238)); |
base[3]= CMPcar((V1322)); |
8322 |
{object V1249; |
{object V1333; |
8323 |
V1249= Cnil; |
V1333= Cnil; |
8324 |
base[4]= CMPcdr((V1238)); |
base[4]= CMPcdr((V1322)); |
8325 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
8326 |
L125(base); |
L125(base); |
8327 |
vs_top=sup; |
vs_top=sup; |
8328 |
V1249= vs_base[0]; |
V1333= vs_base[0]; |
8329 |
{object V1250 = (*(LnkLI481))((V1238),base[3],(V1249)); |
{object V1334 = (*(LnkLI481))((V1322),base[3],(V1333)); |
8330 |
VMR108(V1250)}} |
VMR108(V1334)}} |
8331 |
goto T2716; |
goto T2716; |
8332 |
T2716:; |
T2716:; |
8333 |
if(!((CMPcar((V1238)))==(VV[341]))){ |
if(!((CMPcar((V1322)))==(VV[341]))){ |
8334 |
goto T2723;} |
goto T2723;} |
8335 |
{object V1251; |
{object V1335; |
8336 |
object V1252; |
object V1336; |
8337 |
V1251= CMPcadr((V1238)); |
V1335= CMPcadr((V1322)); |
8338 |
{object V1253; |
{object V1337; |
8339 |
object V1254= (V1251); |
object V1338= (V1335); |
8340 |
if(V1254==Cnil){ |
if(V1338==Cnil){ |
8341 |
V1252= Cnil; |
V1336= Cnil; |
8342 |
goto T2726;} |
goto T2726;} |
8343 |
base[5]=V1253=MMcons(Cnil,Cnil); |
base[5]=V1337=MMcons(Cnil,Cnil); |
8344 |
goto T2727; |
goto T2727; |
8345 |
T2727:; |
T2727:; |
8346 |
vs_base=vs_top; |
vs_base=vs_top; |
8347 |
Lgensym(); |
Lgensym(); |
8348 |
vs_top=sup; |
vs_top=sup; |
8349 |
(V1253->c.c_car)= vs_base[0]; |
(V1337->c.c_car)= vs_base[0]; |
8350 |
if((V1254=MMcdr(V1254))==Cnil){ |
if((V1338=MMcdr(V1338))==Cnil){ |
8351 |
V1252= base[5]; |
V1336= base[5]; |
8352 |
goto T2726;} |
goto T2726;} |
8353 |
V1253=MMcdr(V1253)=MMcons(Cnil,Cnil); |
V1337=MMcdr(V1337)=MMcons(Cnil,Cnil); |
8354 |
goto T2727;} |
goto T2727;} |
8355 |
goto T2726; |
goto T2726; |
8356 |
T2726:; |
T2726:; |
8357 |
V1256= CMPcaddr((V1238)); |
V1340= CMPcaddr((V1322)); |
8358 |
{object V1258; |
{object V1342; |
8359 |
object V1259= (V1251); |
object V1343= (V1335); |
8360 |
object V1260= (V1252); |
object V1344= (V1336); |
8361 |
if(V1259==Cnil||V1260==Cnil){ |
if(V1343==Cnil||V1344==Cnil){ |
8362 |
V1257= Cnil; |
V1341= Cnil; |
8363 |
goto T2729;} |
goto T2729;} |
8364 |
base[5]=V1258=MMcons(Cnil,Cnil); |
base[5]=V1342=MMcons(Cnil,Cnil); |
8365 |
goto T2730; |
goto T2730; |
8366 |
T2730:; |
T2730:; |
8367 |
(V1258->c.c_car)= list(3,VV[30],(V1259->c.c_car),(V1260->c.c_car)); |
(V1342->c.c_car)= list(3,VV[30],(V1343->c.c_car),(V1344->c.c_car)); |
8368 |
if((V1259=MMcdr(V1259))==Cnil||(V1260=MMcdr(V1260))==Cnil){ |
if((V1343=MMcdr(V1343))==Cnil||(V1344=MMcdr(V1344))==Cnil){ |
8369 |
V1257= base[5]; |
V1341= base[5]; |
8370 |
goto T2729;} |
goto T2729;} |
8371 |
V1258=MMcdr(V1258)=MMcons(Cnil,Cnil); |
V1342=MMcdr(V1342)=MMcons(Cnil,Cnil); |
8372 |
goto T2730;} |
goto T2730;} |
8373 |
goto T2729; |
goto T2729; |
8374 |
T2729:; |
T2729:; |
8375 |
{object V1263 = listA(4,VV[342],(V1252),/* INLINE-ARGS */V1256,reverse(V1257)); |
{object V1347 = listA(4,VV[342],(V1336),/* INLINE-ARGS */V1340,reverse(V1341)); |
8376 |
VMR108(V1263)}} |
VMR108(V1347)}} |
8377 |
goto T2723; |
goto T2723; |
8378 |
T2723:; |
T2723:; |
8379 |
{object V1264 = (V1238); |
{object V1348 = (V1322); |
8380 |
VMR108(V1264)} |
VMR108(V1348)} |
8381 |
base[0]=base[0]; |
base[0]=base[0]; |
8382 |
return Cnil; |
return Cnil; |
8383 |
} |
} |
8389 |
vs_check; |
vs_check; |
8390 |
check_arg(2); |
check_arg(2); |
8391 |
vs_top=sup; |
vs_top=sup; |
8392 |
{object V1265=base[0]->c.c_cdr; |
{object V1349=base[0]->c.c_cdr; |
8393 |
if(endp(V1265))invalid_macro_call(); |
if(endp(V1349))invalid_macro_call(); |
8394 |
base[2]= (V1265->c.c_car); |
base[2]= (V1349->c.c_car); |
8395 |
V1265=V1265->c.c_cdr; |
V1349=V1349->c.c_cdr; |
8396 |
if(endp(V1265))invalid_macro_call(); |
if(endp(V1349))invalid_macro_call(); |
8397 |
base[3]= (V1265->c.c_car); |
base[3]= (V1349->c.c_car); |
8398 |
V1265=V1265->c.c_cdr; |
V1349=V1349->c.c_cdr; |
8399 |
base[4]= V1265;} |
base[4]= V1349;} |
8400 |
{register object V1266; |
{register object V1350; |
8401 |
vs_base=vs_top; |
vs_base=vs_top; |
8402 |
Lgensym(); |
Lgensym(); |
8403 |
vs_top=sup; |
vs_top=sup; |
8404 |
V1266= vs_base[0]; |
V1350= vs_base[0]; |
8405 |
V1267= list(2,(V1266),base[3]); |
V1351= list(2,(V1350),base[3]); |
8406 |
V1268= make_cons(/* INLINE-ARGS */V1267,Cnil); |
V1352= make_cons(/* INLINE-ARGS */V1351,Cnil); |
8407 |
{object V1270; |
{object V1354; |
8408 |
if(!(type_of(base[3])==t_cons)){ |
if(!(type_of(base[3])==t_cons)){ |
8409 |
goto T2736;} |
goto T2736;} |
8410 |
if(!((CMPcar(base[3]))==(VV[139]))){ |
if(!((CMPcar(base[3]))==(VV[139]))){ |
8411 |
goto T2736;} |
goto T2736;} |
8412 |
V1270= CMPcaddr(base[3]); |
V1354= CMPcaddr(base[3]); |
8413 |
goto T2734; |
goto T2734; |
8414 |
goto T2736; |
goto T2736; |
8415 |
T2736:; |
T2736:; |
8416 |
V1270= base[3]; |
V1354= base[3]; |
8417 |
goto T2734; |
goto T2734; |
8418 |
T2734:; |
T2734:; |
8419 |
if(type_of((V1270))==t_symbol){ |
if(type_of((V1354))==t_symbol){ |
8420 |
goto T2740;} |
goto T2740;} |
8421 |
V1269= Cnil; |
V1353= Cnil; |
8422 |
goto T2733; |
goto T2733; |
8423 |
goto T2740; |
goto T2740; |
8424 |
T2740:; |
T2740:; |
8425 |
V1271= list(2,VV[46],list(3,VV[343],(V1266),(V1270))); |
V1355= list(2,VV[46],list(3,VV[343],(V1350),(V1354))); |
8426 |
V1269= make_cons(/* INLINE-ARGS */V1271,Cnil);} |
V1353= make_cons(/* INLINE-ARGS */V1355,Cnil);} |
8427 |
goto T2733; |
goto T2733; |
8428 |
T2733:; |
T2733:; |
8429 |
{object V1273; |
{object V1357; |
8430 |
object V1274= base[2]; |
object V1358= base[2]; |
8431 |
if(V1274==Cnil){ |
if(V1358==Cnil){ |
8432 |
V1272= Cnil; |
V1356= Cnil; |
8433 |
goto T2742;} |
goto T2742;} |
8434 |
base[5]=V1273=MMcons(Cnil,Cnil); |
base[5]=V1357=MMcons(Cnil,Cnil); |
8435 |
goto T2743; |
goto T2743; |
8436 |
T2743:; |
T2743:; |
8437 |
{register object V1275; |
{register object V1359; |
8438 |
V1275= (V1274->c.c_car); |
V1359= (V1358->c.c_car); |
8439 |
{object V1276; |
{object V1360; |
8440 |
object V1277; |
object V1361; |
8441 |
if(!(type_of((V1275))==t_symbol)){ |
if(!(type_of((V1359))==t_symbol)){ |
8442 |
goto T2747;} |
goto T2747;} |
8443 |
V1276= (V1275); |
V1360= (V1359); |
8444 |
goto T2745; |
goto T2745; |
8445 |
goto T2747; |
goto T2747; |
8446 |
T2747:; |
T2747:; |
8447 |
V1276= CMPcar((V1275)); |
V1360= CMPcar((V1359)); |
8448 |
goto T2745; |
goto T2745; |
8449 |
T2745:; |
T2745:; |
8450 |
if(!(type_of((V1275))==t_symbol)){ |
if(!(type_of((V1359))==t_symbol)){ |
8451 |
goto T2751;} |
goto T2751;} |
8452 |
V1277= (V1275); |
V1361= (V1359); |
8453 |
goto T2749; |
goto T2749; |
8454 |
goto T2751; |
goto T2751; |
8455 |
T2751:; |
T2751:; |
8456 |
V1277= CMPcadr((V1275)); |
V1361= CMPcadr((V1359)); |
8457 |
goto T2749; |
goto T2749; |
8458 |
T2749:; |
T2749:; |
8459 |
(V1273->c.c_car)= list(2,(V1276),list(3,VV[197],(V1266),list(2,VV[1],(V1277))));}} |
(V1357->c.c_car)= list(2,(V1360),list(3,VV[197],(V1350),list(2,VV[1],(V1361))));}} |
8460 |
if((V1274=MMcdr(V1274))==Cnil){ |
if((V1358=MMcdr(V1358))==Cnil){ |
8461 |
V1272= base[5]; |
V1356= base[5]; |
8462 |
goto T2742;} |
goto T2742;} |
8463 |
V1273=MMcdr(V1273)=MMcons(Cnil,Cnil); |
V1357=MMcdr(V1357)=MMcons(Cnil,Cnil); |
8464 |
goto T2743;} |
goto T2743;} |
8465 |
goto T2742; |
goto T2742; |
8466 |
T2742:; |
T2742:; |
8467 |
V1278= list(2,(V1266),listA(3,VV[344],V1272,base[4])); |
V1362 = base[4]; |
8468 |
base[5]= listA(3,VV[96],/* INLINE-ARGS */V1268,append(V1269,/* INLINE-ARGS */V1278)); |
V1363= list(2,(V1350),listA(3,VV[344],V1356,V1362)); |
8469 |
|
base[5]= listA(3,VV[96],/* INLINE-ARGS */V1352,append(V1353,/* INLINE-ARGS */V1363)); |
8470 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
8471 |
return;} |
return;} |
8472 |
} |
} |
8478 |
vs_check; |
vs_check; |
8479 |
check_arg(2); |
check_arg(2); |
8480 |
vs_top=sup; |
vs_top=sup; |
8481 |
{object V1279=base[0]->c.c_cdr; |
{object V1364=base[0]->c.c_cdr; |
8482 |
if(endp(V1279))invalid_macro_call(); |
if(endp(V1364))invalid_macro_call(); |
8483 |
base[2]= (V1279->c.c_car); |
base[2]= (V1364->c.c_car); |
8484 |
V1279=V1279->c.c_cdr; |
V1364=V1364->c.c_cdr; |
8485 |
if(endp(V1279))invalid_macro_call(); |
if(endp(V1364))invalid_macro_call(); |
8486 |
base[3]= (V1279->c.c_car); |
base[3]= (V1364->c.c_car); |
8487 |
V1279=V1279->c.c_cdr; |
V1364=V1364->c.c_cdr; |
8488 |
base[4]= V1279;} |
base[4]= V1364;} |
8489 |
{register object V1280; |
{register object V1365; |
8490 |
vs_base=vs_top; |
vs_base=vs_top; |
8491 |
Lgensym(); |
Lgensym(); |
8492 |
vs_top=sup; |
vs_top=sup; |
8493 |
V1280= vs_base[0]; |
V1365= vs_base[0]; |
8494 |
V1281= list(2,(V1280),base[3]); |
V1366= list(2,(V1365),base[3]); |
8495 |
V1282= make_cons(/* INLINE-ARGS */V1281,Cnil); |
V1367= make_cons(/* INLINE-ARGS */V1366,Cnil); |
8496 |
{object V1284; |
{object V1369; |
8497 |
if(!(type_of(base[3])==t_cons)){ |
if(!(type_of(base[3])==t_cons)){ |
8498 |
goto T2757;} |
goto T2757;} |
8499 |
if(!((CMPcar(base[3]))==(VV[139]))){ |
if(!((CMPcar(base[3]))==(VV[139]))){ |
8500 |
goto T2757;} |
goto T2757;} |
8501 |
V1284= CMPcaddr(base[3]); |
V1369= CMPcaddr(base[3]); |
8502 |
goto T2755; |
goto T2755; |
8503 |
goto T2757; |
goto T2757; |
8504 |
T2757:; |
T2757:; |
8505 |
V1284= base[3]; |
V1369= base[3]; |
8506 |
goto T2755; |
goto T2755; |
8507 |
T2755:; |
T2755:; |
8508 |
if(type_of((V1284))==t_symbol){ |
if(type_of((V1369))==t_symbol){ |
8509 |
goto T2761;} |
goto T2761;} |
8510 |
V1283= Cnil; |
V1368= Cnil; |
8511 |
goto T2754; |
goto T2754; |
8512 |
goto T2761; |
goto T2761; |
8513 |
T2761:; |
T2761:; |
8514 |
V1285= list(2,VV[46],list(3,VV[343],(V1280),(V1284))); |
V1370= list(2,VV[46],list(3,VV[343],(V1365),(V1369))); |
8515 |
V1283= make_cons(/* INLINE-ARGS */V1285,Cnil);} |
V1368= make_cons(/* INLINE-ARGS */V1370,Cnil);} |
8516 |
goto T2754; |
goto T2754; |
8517 |
T2754:; |
T2754:; |
8518 |
{object V1287; |
{object V1372; |
8519 |
object V1288= base[2]; |
object V1373= base[2]; |
8520 |
if(V1288==Cnil){ |
if(V1373==Cnil){ |
8521 |
V1286= Cnil; |
V1371= Cnil; |
8522 |
goto T2763;} |
goto T2763;} |
8523 |
base[5]=V1287=MMcons(Cnil,Cnil); |
base[5]=V1372=MMcons(Cnil,Cnil); |
8524 |
goto T2764; |
goto T2764; |
8525 |
T2764:; |
T2764:; |
8526 |
{object V1290; |
{object V1375; |
8527 |
object V1291; |
object V1376; |
8528 |
V1290= CMPcar((V1288->c.c_car)); |
V1375= CMPcar((V1373->c.c_car)); |
8529 |
V1291= CMPcadr((V1288->c.c_car)); |
V1376= CMPcadr((V1373->c.c_car)); |
8530 |
(V1287->c.c_car)= list(2,(V1290),list(2,(V1291),(V1280)));} |
(V1372->c.c_car)= list(2,(V1375),list(2,(V1376),(V1365)));} |
8531 |
if((V1288=MMcdr(V1288))==Cnil){ |
if((V1373=MMcdr(V1373))==Cnil){ |
8532 |
V1286= base[5]; |
V1371= base[5]; |
8533 |
goto T2763;} |
goto T2763;} |
8534 |
V1287=MMcdr(V1287)=MMcons(Cnil,Cnil); |
V1372=MMcdr(V1372)=MMcons(Cnil,Cnil); |
8535 |
goto T2764;} |
goto T2764;} |
8536 |
goto T2763; |
goto T2763; |
8537 |
T2763:; |
T2763:; |
8538 |
V1292= list(2,(V1280),listA(3,VV[344],V1286,base[4])); |
V1377 = base[4]; |
8539 |
base[5]= listA(3,VV[96],/* INLINE-ARGS */V1282,append(V1283,/* INLINE-ARGS */V1292)); |
V1378= list(2,(V1365),listA(3,VV[344],V1371,V1377)); |
8540 |
|
base[5]= listA(3,VV[96],/* INLINE-ARGS */V1367,append(V1368,/* INLINE-ARGS */V1378)); |
8541 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
8542 |
return;} |
return;} |
8543 |
} |
} |
8548 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8549 |
register object *sup=base+VM111; VC111 |
register object *sup=base+VM111; VC111 |
8550 |
vs_check; |
vs_check; |
8551 |
{register object V1293; |
{register object V1379; |
8552 |
check_arg(1); |
check_arg(1); |
8553 |
V1293=(base[0]); |
V1379=(base[0]); |
8554 |
vs_top=sup; |
vs_top=sup; |
8555 |
goto TTL; |
goto TTL; |
8556 |
TTL:; |
TTL:; |
8557 |
if(((V1293))!=Cnil){ |
if(((V1379))!=Cnil){ |
8558 |
goto T2769;} |
goto T2769;} |
8559 |
base[1]= Cnil; |
base[1]= Cnil; |
8560 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8561 |
return; |
return; |
8562 |
goto T2769; |
goto T2769; |
8563 |
T2769:; |
T2769:; |
8564 |
{register object x= CMPcar((V1293)),V1295= base0[1]; |
V1380 = (V1379); |
8565 |
while(V1295!=Cnil) |
{register object x= CMPcar((V1379)),V1382= base0[1]; |
8566 |
if(eql(x,V1295->c.c_car->c.c_car) &&V1295->c.c_car != Cnil){ |
while(V1382!=Cnil) |
8567 |
base0[2]= (V1295->c.c_car); |
if(eql(x,V1382->c.c_car->c.c_car) &&V1382->c.c_car != Cnil){ |
8568 |
|
base0[2]= (V1382->c.c_car); |
8569 |
goto T2776; |
goto T2776; |
8570 |
}else V1295=V1295->c.c_cdr; |
}else V1382=V1382->c.c_cdr; |
8571 |
base0[2]= Cnil;} |
base0[2]= Cnil;} |
8572 |
goto T2776; |
goto T2776; |
8573 |
T2776:; |
T2776:; |
8574 |
if((base0[2])==Cnil){ |
if((base0[2])==Cnil){ |
8575 |
goto T2773;} |
goto T2773;} |
8576 |
V1296= CMPcadr(base0[2]); |
V1383= CMPcadr(base0[2]); |
8577 |
V1297= (*(LnkLI480))(CMPcar((V1293)),base0[0]); |
V1384= (*(LnkLI480))(CMPcar((V1379)),base0[0]); |
8578 |
if(!((/* INLINE-ARGS */V1296)==(/* INLINE-ARGS */V1297))){ |
if(!((/* INLINE-ARGS */V1383)==(/* INLINE-ARGS */V1384))){ |
8579 |
goto T2773;} |
goto T2773;} |
8580 |
base0[3]= VV[30]; |
base0[3]= VV[30]; |
8581 |
V1294= CMPcaddr(base0[2]); |
V1381= CMPcaddr(base0[2]); |
8582 |
goto T2771; |
goto T2771; |
8583 |
goto T2773; |
goto T2773; |
8584 |
T2773:; |
T2773:; |
8585 |
V1294= CMPcar((V1293)); |
V1381= CMPcar((V1379)); |
8586 |
goto T2771; |
goto T2771; |
8587 |
T2771:; |
T2771:; |
8588 |
V1298= CMPcadr((V1293)); |
V1385= CMPcadr((V1379)); |
8589 |
base[1]= CMPcddr((V1293)); |
base[1]= CMPcddr((V1379)); |
8590 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8591 |
L125(base0); |
L125(base0); |
8592 |
vs_top=sup; |
vs_top=sup; |
8593 |
V1299= vs_base[0]; |
V1386= vs_base[0]; |
8594 |
base[1]= (VFUN_NARGS=4,(*(LnkLI482))((V1293),V1294,/* INLINE-ARGS */V1298,V1299)); |
base[1]= (VFUN_NARGS=4,(*(LnkLI482))(V1380,V1381,/* INLINE-ARGS */V1385,V1386)); |
8595 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8596 |
return; |
return; |
8597 |
} |
} |
8603 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8604 |
register object *sup=base+VM112; VC112 |
register object *sup=base+VM112; VC112 |
8605 |
vs_check; |
vs_check; |
8606 |
{object V1300; |
{object V1387; |
8607 |
object V1301; |
object V1388; |
8608 |
object V1302; |
object V1389; |
8609 |
check_arg(3); |
check_arg(3); |
8610 |
V1300=(base[0]); |
V1387=(base[0]); |
8611 |
V1301=(base[1]); |
V1388=(base[1]); |
8612 |
V1302=(base[2]); |
V1389=(base[2]); |
8613 |
vs_top=sup; |
vs_top=sup; |
8614 |
base[3]= (*(LnkLI483))((base0[0]->c.c_car),(V1300),(V1301),(V1302)); |
base[3]= (*(LnkLI483))((base0[0]->c.c_car),(V1387),(V1388),(V1389)); |
8615 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8616 |
return; |
return; |
8617 |
} |
} |
8623 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8624 |
register object *sup=base+VM113; VC113 |
register object *sup=base+VM113; VC113 |
8625 |
vs_check; |
vs_check; |
8626 |
{object V1303; |
{object V1390; |
8627 |
check_arg(1); |
check_arg(1); |
8628 |
V1303=(base[0]); |
V1390=(base[0]); |
8629 |
vs_top=sup; |
vs_top=sup; |
8630 |
goto TTL; |
goto TTL; |
8631 |
TTL:; |
TTL:; |
8632 |
base[1]= (V1303); |
base[1]= (V1390); |
8633 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8634 |
(void) (*Lnk484)(Lclptr484); |
(void) (*Lnk484)(Lclptr484); |
8635 |
vs_top=sup; |
vs_top=sup; |
8636 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
8637 |
goto T2783;} |
goto T2783;} |
8638 |
{register object V1304; |
{register object V1391; |
8639 |
base[1]= (V1303); |
base[1]= (V1390); |
8640 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8641 |
(void) (*Lnk485)(Lclptr485); |
(void) (*Lnk485)(Lclptr485); |
8642 |
vs_top=sup; |
vs_top=sup; |
8643 |
V1304= vs_base[0]; |
V1391= vs_base[0]; |
8644 |
if(!(type_of((V1304))==t_cons)){ |
if(!(type_of((V1391))==t_cons)){ |
8645 |
goto T2789;} |
goto T2789;} |
8646 |
if(!((CMPcar((V1304)))==(VV[51]))){ |
if(!((CMPcar((V1391)))==(VV[51]))){ |
8647 |
goto T2789;} |
goto T2789;} |
8648 |
{object V1305; |
{object V1392; |
8649 |
object V1306; |
object V1393; |
8650 |
V1305= CMPcadr((V1304)); |
V1392= CMPcadr((V1391)); |
8651 |
base[3]= (V1305); |
base[3]= (V1392); |
8652 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8653 |
(void) (*Lnk364)(Lclptr364); |
(void) (*Lnk364)(Lclptr364); |
8654 |
vs_top=sup; |
vs_top=sup; |
8655 |
V1306= vs_base[0]; |
V1393= vs_base[0]; |
8656 |
V1307= (VFUN_NARGS=2,(*(LnkLI290))((V1306),Cnil)); |
V1394 = (V1392); |
8657 |
if(!(((V1305))==(/* INLINE-ARGS */V1307))){ |
V1395= (VFUN_NARGS=2,(*(LnkLI290))((V1393),Cnil)); |
8658 |
|
if(!((V1394)==(/* INLINE-ARGS */V1395))){ |
8659 |
goto T2797;} |
goto T2797;} |
8660 |
base[3]= (V1306); |
base[3]= (V1393); |
8661 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8662 |
return; |
return; |
8663 |
goto T2797; |
goto T2797; |
8664 |
T2797:; |
T2797:; |
8665 |
base[3]= (V1304); |
base[3]= (V1391); |
8666 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8667 |
return;} |
return;} |
8668 |
goto T2789; |
goto T2789; |
8669 |
T2789:; |
T2789:; |
8670 |
base[1]= (V1304); |
base[1]= (V1391); |
8671 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8672 |
return;} |
return;} |
8673 |
goto T2783; |
goto T2783; |
8674 |
T2783:; |
T2783:; |
8675 |
base[1]= VV[335]; |
base[1]= VV[335]; |
8676 |
base[2]= (V1303); |
base[2]= (V1390); |
8677 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
8678 |
Lerror(); |
Lerror(); |
8679 |
return; |
return; |
8686 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8687 |
register object *sup=base+VM114; VC114 |
register object *sup=base+VM114; VC114 |
8688 |
vs_check; |
vs_check; |
8689 |
{register object V1308; |
{register object V1396; |
8690 |
check_arg(1); |
check_arg(1); |
8691 |
V1308=(base[0]); |
V1396=(base[0]); |
8692 |
vs_top=sup; |
vs_top=sup; |
8693 |
goto TTL; |
goto TTL; |
8694 |
TTL:; |
TTL:; |
8695 |
{object V1309; |
{object V1397; |
8696 |
base[1]= (V1308); |
base[1]= (V1396); |
8697 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8698 |
(void) (*Lnk486)(); |
(void) (*Lnk486)(); |
8699 |
vs_top=sup; |
vs_top=sup; |
8700 |
V1309= vs_base[0]; |
V1397= vs_base[0]; |
8701 |
base[1]= (V1309); |
base[1]= (V1397); |
8702 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8703 |
(void) (*Lnk484)(Lclptr484); |
(void) (*Lnk484)(Lclptr484); |
8704 |
vs_top=sup; |
vs_top=sup; |
8705 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
8706 |
goto T2804;} |
goto T2804;} |
8707 |
base[1]= (V1309); |
base[1]= (V1397); |
8708 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8709 |
return; |
return; |
8710 |
goto T2804; |
goto T2804; |
8711 |
T2804:; |
T2804:; |
8712 |
if(!(type_of((V1308))==t_symbol)){ |
if(!(type_of((V1396))==t_symbol)){ |
8713 |
goto T2808;} |
goto T2808;} |
8714 |
base[1]= VV[333]; |
base[1]= VV[333]; |
8715 |
base[2]= (V1308); |
base[2]= (V1396); |
8716 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
8717 |
Lerror(); |
Lerror(); |
8718 |
return; |
return; |
8719 |
goto T2808; |
goto T2808; |
8720 |
T2808:; |
T2808:; |
8721 |
base[1]= VV[334]; |
base[1]= VV[334]; |
8722 |
base[2]= (V1308); |
base[2]= (V1396); |
8723 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
8724 |
Lerror(); |
Lerror(); |
8725 |
return;} |
return;} |
8732 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8733 |
register object *sup=base+VM115; VC115 |
register object *sup=base+VM115; VC115 |
8734 |
vs_check; |
vs_check; |
8735 |
{object V1310; |
{object V1398; |
8736 |
register object V1311; |
register object V1399; |
8737 |
check_arg(2); |
check_arg(2); |
8738 |
V1310=(base[0]); |
V1398=(base[0]); |
8739 |
V1311=(base[1]); |
V1399=(base[1]); |
8740 |
vs_top=sup; |
vs_top=sup; |
8741 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
8742 |
{object V1312; |
{object V1400; |
8743 |
V1312= (V1310); |
V1400= (V1398); |
8744 |
vs_top=base+3; |
vs_top=base+3; |
8745 |
while(V1312!=Cnil) |
while(V1400!=Cnil) |
8746 |
{vs_push((V1312)->c.c_car);V1312=(V1312)->c.c_cdr;} |
{vs_push((V1400)->c.c_car);V1400=(V1400)->c.c_cdr;} |
8747 |
vs_base=base+3;} |
vs_base=base+3;} |
8748 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
8749 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
8759 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8760 |
register object *sup=base+VM116; VC116 |
register object *sup=base+VM116; VC116 |
8761 |
vs_check; |
vs_check; |
8762 |
{object V1313; |
{object V1401; |
8763 |
check_arg(1); |
check_arg(1); |
8764 |
V1313=(base[0]); |
V1401=(base[0]); |
8765 |
vs_top=sup; |
vs_top=sup; |
8766 |
base[1]= (((type_of((V1313))==t_symbol?Ct:Cnil))==Cnil?Ct:Cnil); |
base[1]= (((type_of((V1401))==t_symbol?Ct:Cnil))==Cnil?Ct:Cnil); |
8767 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8768 |
return; |
return; |
8769 |
} |
} |
8775 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8776 |
register object *sup=base+VM117; VC117 |
register object *sup=base+VM117; VC117 |
8777 |
vs_check; |
vs_check; |
8778 |
{object V1314; |
{object V1402; |
8779 |
check_arg(1); |
check_arg(1); |
8780 |
V1314=(base[0]); |
V1402=(base[0]); |
8781 |
vs_top=sup; |
vs_top=sup; |
8782 |
base[1]= (((((V1314))==(Ct)?Ct:Cnil))==Cnil?Ct:Cnil); |
base[1]= (((((V1402))==(Ct)?Ct:Cnil))==Cnil?Ct:Cnil); |
8783 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8784 |
return; |
return; |
8785 |
} |
} |
8791 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8792 |
register object *sup=base+VM118; VC118 |
register object *sup=base+VM118; VC118 |
8793 |
vs_check; |
vs_check; |
8794 |
{object V1315; |
{object V1403; |
8795 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
8796 |
{object *p=vs_top; |
{object *p=vs_top; |
8797 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
8798 |
V1315=(base[0]); |
V1403=(base[0]); |
8799 |
vs_top=sup; |
vs_top=sup; |
8800 |
base[1]= VV[273]; |
base[1]= VV[273]; |
8801 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
8811 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8812 |
register object *sup=base+VM119; VC119 |
register object *sup=base+VM119; VC119 |
8813 |
vs_check; |
vs_check; |
8814 |
{object V1316; |
{object V1404; |
8815 |
register object V1317; |
register object V1405; |
8816 |
check_arg(2); |
check_arg(2); |
8817 |
V1316=(base[0]); |
V1404=(base[0]); |
8818 |
V1317=(base[1]); |
V1405=(base[1]); |
8819 |
vs_top=sup; |
vs_top=sup; |
8820 |
base[2]= (V1317); |
base[2]= (V1405); |
8821 |
base[3]= VV[269]; |
base[3]= VV[269]; |
8822 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
8823 |
Lformat(); |
Lformat(); |
8824 |
vs_top=sup; |
vs_top=sup; |
8825 |
base[2]= (V1317); |
base[2]= (V1405); |
8826 |
base[3]= VV[270]; |
base[3]= VV[270]; |
8827 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
8828 |
Lformat(); |
Lformat(); |
8829 |
vs_top=sup; |
vs_top=sup; |
8830 |
base[2]= (V1317); |
base[2]= (V1405); |
8831 |
base[3]= VV[271]; |
base[3]= VV[271]; |
8832 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
8833 |
Lformat(); |
Lformat(); |
8834 |
vs_top=sup; |
vs_top=sup; |
8835 |
(void)((*(LnkLI487))((V1316),(V1317))); |
(void)((*(LnkLI487))((V1404),(V1405))); |
8836 |
base[2]= (V1317); |
base[2]= (V1405); |
8837 |
base[3]= VV[272]; |
base[3]= VV[272]; |
8838 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
8839 |
Lformat(); |
Lformat(); |
8847 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8848 |
register object *sup=base+VM120; VC120 |
register object *sup=base+VM120; VC120 |
8849 |
vs_check; |
vs_check; |
8850 |
{object V1318; |
{object V1406; |
8851 |
check_arg(1); |
check_arg(1); |
8852 |
V1318=(base[0]); |
V1406=(base[0]); |
8853 |
vs_top=sup; |
vs_top=sup; |
8854 |
{register object x= (V1318),V1319= (base0[0]->c.c_car); |
{register object x= (V1406),V1407= (base0[0]->c.c_car); |
8855 |
while(V1319!=Cnil) |
while(V1407!=Cnil) |
8856 |
if(x==(V1319->c.c_car)){ |
if(x==(V1407->c.c_car)){ |
8857 |
base[1]= V1319; |
base[1]= V1407; |
8858 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8859 |
return; |
return; |
8860 |
}else V1319=V1319->c.c_cdr; |
}else V1407=V1407->c.c_cdr; |
8861 |
base[1]= Cnil; |
base[1]= Cnil; |
8862 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8863 |
return;} |
return;} |
8870 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8871 |
register object *sup=base+VM121; VC121 |
register object *sup=base+VM121; VC121 |
8872 |
vs_check; |
vs_check; |
8873 |
{object V1320; |
{object V1408; |
8874 |
object V1321; |
object V1409; |
8875 |
check_arg(2); |
check_arg(2); |
8876 |
V1320=(base[0]); |
V1408=(base[0]); |
8877 |
V1321=(base[1]); |
V1409=(base[1]); |
8878 |
vs_top=sup; |
vs_top=sup; |
8879 |
goto TTL; |
goto TTL; |
8880 |
TTL:; |
TTL:; |
8881 |
if(!(number_compare((V1320),(V1321))>0)){ |
if(!(number_compare((V1408),(V1409))>0)){ |
8882 |
goto T2831;} |
goto T2831;} |
8883 |
base[2]= VV[250]; |
base[2]= VV[250]; |
8884 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
8897 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8898 |
register object *sup=base+VM122; VC122 |
register object *sup=base+VM122; VC122 |
8899 |
vs_check; |
vs_check; |
8900 |
{object V1322; |
{object V1410; |
8901 |
object V1323; |
object V1411; |
8902 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
8903 |
V1322=(base[0]); |
V1410=(base[0]); |
8904 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
8905 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
8906 |
{object *p=vs_top; |
{object *p=vs_top; |
8907 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
8908 |
V1323=(base[1]); |
V1411=(base[1]); |
8909 |
vs_top=sup; |
vs_top=sup; |
8910 |
base[2]= VV[249]; |
base[2]= VV[249]; |
8911 |
base[3]= base0[2]; |
base[3]= base0[2]; |
8912 |
base[4]= base0[0]; |
base[4]= base0[0]; |
8913 |
base[6]= Cnil; |
base[6]= Cnil; |
8914 |
base[7]= (V1322); |
base[7]= (V1410); |
8915 |
{object V1324; |
{object V1412; |
8916 |
V1324= (V1323); |
V1412= (V1411); |
8917 |
vs_top=base+8; |
vs_top=base+8; |
8918 |
while(V1324!=Cnil) |
while(V1412!=Cnil) |
8919 |
{vs_push((V1324)->c.c_car);V1324=(V1324)->c.c_cdr;} |
{vs_push((V1412)->c.c_car);V1412=(V1412)->c.c_cdr;} |
8920 |
vs_base=base+6;} |
vs_base=base+6;} |
8921 |
Lformat(); |
Lformat(); |
8922 |
vs_top=sup; |
vs_top=sup; |
8933 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8934 |
register object *sup=base+VM123; VC123 |
register object *sup=base+VM123; VC123 |
8935 |
vs_check; |
vs_check; |
8936 |
{object V1325; |
{object V1413; |
8937 |
check_arg(1); |
check_arg(1); |
8938 |
V1325=(base[0]); |
V1413=(base[0]); |
8939 |
vs_top=sup; |
vs_top=sup; |
8940 |
base[1]= (((((V1325))==(Ct)?Ct:Cnil))==Cnil?Ct:Cnil); |
base[1]= (((((V1413))==(Ct)?Ct:Cnil))==Cnil?Ct:Cnil); |
8941 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8942 |
return; |
return; |
8943 |
} |
} |
8949 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8950 |
register object *sup=base+VM124; VC124 |
register object *sup=base+VM124; VC124 |
8951 |
vs_check; |
vs_check; |
8952 |
{object V1326; |
{object V1414; |
8953 |
check_arg(1); |
check_arg(1); |
8954 |
V1326=(base[0]); |
V1414=(base[0]); |
8955 |
vs_top=sup; |
vs_top=sup; |
8956 |
goto TTL; |
goto TTL; |
8957 |
TTL:; |
TTL:; |
8958 |
if(!(type_of((V1326))==t_cons||((V1326))==Cnil)){ |
if(!(type_of((V1414))==t_cons||((V1414))==Cnil)){ |
8959 |
goto T2841;} |
goto T2841;} |
8960 |
{object V1327= CMPcar((V1326)); |
{object V1415= CMPcar((V1414)); |
8961 |
if(!(type_of(V1327)==t_cons||(V1327)==Cnil)){ |
if(!(type_of(V1415)==t_cons||(V1415)==Cnil)){ |
8962 |
goto T2844;}} |
goto T2844;}} |
8963 |
base[1]= CMPcaar((V1326)); |
base[1]= CMPcaar((V1414)); |
8964 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8965 |
return; |
return; |
8966 |
goto T2844; |
goto T2844; |
8967 |
T2844:; |
T2844:; |
8968 |
base[1]= CMPcar((V1326)); |
base[1]= CMPcar((V1414)); |
8969 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8970 |
(void) (*Lnk488)(); |
(void) (*Lnk488)(); |
8971 |
return; |
return; |
8972 |
goto T2841; |
goto T2841; |
8973 |
T2841:; |
T2841:; |
8974 |
base[1]= (V1326); |
base[1]= (V1414); |
8975 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8976 |
(void) (*Lnk488)(); |
(void) (*Lnk488)(); |
8977 |
return; |
return; |
8984 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8985 |
register object *sup=base+VM125; VC125 |
register object *sup=base+VM125; VC125 |
8986 |
vs_check; |
vs_check; |
8987 |
{object V1328; |
{object V1416; |
8988 |
object V1329; |
object V1417; |
8989 |
check_arg(2); |
check_arg(2); |
8990 |
V1328=(base[0]); |
V1416=(base[0]); |
8991 |
V1329=(base[1]); |
V1417=(base[1]); |
8992 |
vs_top=sup; |
vs_top=sup; |
8993 |
goto TTL; |
goto TTL; |
8994 |
TTL:; |
TTL:; |
8995 |
if((base0[0])==Cnil){ |
if((base0[0])==Cnil){ |
8996 |
goto T2848;} |
goto T2848;} |
8997 |
(void)((*(LnkLI489))((V1329),base0[0],V1328)); |
(void)((*(LnkLI489))((V1417),base0[0],V1416)); |
8998 |
goto T2848; |
goto T2848; |
8999 |
T2848:; |
T2848:; |
9000 |
if((base0[4])==Cnil){ |
if((base0[4])==Cnil){ |
9001 |
goto T2852;} |
goto T2852;} |
9002 |
base[2]= (*(LnkLI489))((V1329),base0[4],V1328); |
base[2]= (*(LnkLI489))((V1417),base0[4],V1416); |
9003 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
9004 |
return; |
return; |
9005 |
goto T2852; |
goto T2852; |
9016 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9017 |
register object *sup=base+VM126; VC126 |
register object *sup=base+VM126; VC126 |
9018 |
vs_check; |
vs_check; |
9019 |
{object V1334; |
{object V1422; |
9020 |
check_arg(1); |
check_arg(1); |
9021 |
V1334=(base[0]); |
V1422=(base[0]); |
9022 |
vs_top=sup; |
vs_top=sup; |
9023 |
goto TTL; |
goto TTL; |
9024 |
TTL:; |
TTL:; |
9025 |
{register object V1335; |
{register object V1423; |
9026 |
register object V1336; |
register object V1424; |
9027 |
V1335= CMPcdar(base0[0]); |
V1423= CMPcdar(base0[0]); |
9028 |
V1336= CMPcar((V1335)); |
V1424= CMPcar((V1423)); |
9029 |
goto T2857; |
goto T2857; |
9030 |
T2857:; |
T2857:; |
9031 |
if(!(((V1335))==Cnil)){ |
if(!(((V1423))==Cnil)){ |
9032 |
goto T2858;} |
goto T2858;} |
9033 |
base[3]= Cnil; |
base[3]= Cnil; |
9034 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9035 |
return; |
return; |
9036 |
goto T2858; |
goto T2858; |
9037 |
T2858:; |
T2858:; |
9038 |
if(!((CMPcar((V1336)))==(VV[182]))){ |
if(!((CMPcar((V1424)))==(VV[182]))){ |
9039 |
goto T2862;} |
goto T2862;} |
9040 |
{register object x= (V1334),V1337= CMPcdr((V1336)); |
{register object x= (V1422),V1425= CMPcdr((V1424)); |
9041 |
while(V1337!=Cnil) |
while(V1425!=Cnil) |
9042 |
if(x==(V1337->c.c_car)){ |
if(x==(V1425->c.c_car)){ |
9043 |
goto T2866; |
goto T2866; |
9044 |
}else V1337=V1337->c.c_cdr; |
}else V1425=V1425->c.c_cdr; |
9045 |
goto T2862;} |
goto T2862;} |
9046 |
goto T2866; |
goto T2866; |
9047 |
T2866:; |
T2866:; |
9050 |
return; |
return; |
9051 |
goto T2862; |
goto T2862; |
9052 |
T2862:; |
T2862:; |
9053 |
V1335= CMPcdr((V1335)); |
V1423= CMPcdr((V1423)); |
9054 |
V1336= CMPcar((V1335)); |
V1424= CMPcar((V1423)); |
9055 |
goto T2857;} |
goto T2857;} |
9056 |
} |
} |
9057 |
} |
} |
9062 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9063 |
register object *sup=base+VM127; VC127 |
register object *sup=base+VM127; VC127 |
9064 |
vs_check; |
vs_check; |
9065 |
{register object V1338; |
{register object V1426; |
9066 |
object V1339; |
object V1427; |
9067 |
object V1340; |
object V1428; |
9068 |
check_arg(3); |
check_arg(3); |
9069 |
V1338=(base[0]); |
V1426=(base[0]); |
9070 |
V1339=(base[1]); |
V1427=(base[1]); |
9071 |
V1340=(base[2]); |
V1428=(base[2]); |
9072 |
vs_top=sup; |
vs_top=sup; |
9073 |
if(((V1339))==(VV[194])){ |
if(((V1427))==(VV[194])){ |
9074 |
goto T2873;} |
goto T2873;} |
9075 |
base[3]= (V1338); |
base[3]= (V1426); |
9076 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9077 |
return; |
return; |
9078 |
goto T2873; |
goto T2873; |
9079 |
T2873:; |
T2873:; |
9080 |
if(type_of((V1338))==t_cons||((V1338))==Cnil){ |
if(type_of((V1426))==t_cons||((V1426))==Cnil){ |
9081 |
goto T2876;} |
goto T2876;} |
9082 |
base[3]= (V1338); |
base[3]= (V1426); |
9083 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9084 |
return; |
return; |
9085 |
goto T2876; |
goto T2876; |
9086 |
T2876:; |
T2876:; |
9087 |
if(!((CMPcar((V1338)))==(VV[195]))){ |
if(!((CMPcar((V1426)))==(VV[195]))){ |
9088 |
goto T2879;} |
goto T2879;} |
9089 |
(base0[2]->c.c_car)= Ct; |
(base0[2]->c.c_car)= Ct; |
9090 |
base[3]= (V1338); |
base[3]= (V1426); |
9091 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9092 |
return; |
return; |
9093 |
goto T2879; |
goto T2879; |
9094 |
T2879:; |
T2879:; |
9095 |
if(!((CMPcar((V1338)))==(VV[196]))){ |
if(!((CMPcar((V1426)))==(VV[196]))){ |
9096 |
goto T2884;} |
goto T2884;} |
9097 |
(base0[0]->c.c_car)= Ct; |
(base0[0]->c.c_car)= Ct; |
9098 |
base[3]= (V1338); |
base[3]= (V1426); |
9099 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9100 |
return; |
return; |
9101 |
goto T2884; |
goto T2884; |
9102 |
T2884:; |
T2884:; |
9103 |
{object V1341; |
{object V1429; |
9104 |
if((CMPcar((V1338)))==(VV[34])){ |
if((CMPcar((V1426)))==(VV[34])){ |
9105 |
goto T2889;} |
goto T2889;} |
9106 |
V1341= Cnil; |
V1429= Cnil; |
9107 |
goto T2888; |
goto T2888; |
9108 |
goto T2889; |
goto T2889; |
9109 |
T2889:; |
T2889:; |
9110 |
if(!((CMPcadr((V1338)))==(VV[195]))){ |
if(!((CMPcadr((V1426)))==(VV[195]))){ |
9111 |
goto T2892;} |
goto T2892;} |
9112 |
(base0[2]->c.c_car)= Ct; |
(base0[2]->c.c_car)= Ct; |
9113 |
(base0[1]->c.c_car)= Ct; |
(base0[1]->c.c_car)= Ct; |
9114 |
V1341= (V1338); |
V1429= (V1426); |
9115 |
goto T2888; |
goto T2888; |
9116 |
goto T2892; |
goto T2892; |
9117 |
T2892:; |
T2892:; |
9118 |
if(!((CMPcadr((V1338)))==(VV[196]))){ |
if(!((CMPcadr((V1426)))==(VV[196]))){ |
9119 |
goto T2899;} |
goto T2899;} |
9120 |
(base0[0]->c.c_car)= Ct; |
(base0[0]->c.c_car)= Ct; |
9121 |
(base0[1]->c.c_car)= Ct; |
(base0[1]->c.c_car)= Ct; |
9122 |
V1341= (V1338); |
V1429= (V1426); |
9123 |
goto T2888; |
goto T2888; |
9124 |
goto T2899; |
goto T2899; |
9125 |
T2899:; |
T2899:; |
9126 |
V1341= Cnil; |
V1429= Cnil; |
9127 |
goto T2888; |
goto T2888; |
9128 |
T2888:; |
T2888:; |
9129 |
if(((V1341))==Cnil){ |
if(((V1429))==Cnil){ |
9130 |
goto T2906;} |
goto T2906;} |
9131 |
base[3]= (V1341); |
base[3]= (V1429); |
9132 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9133 |
return; |
return; |
9134 |
goto T2906; |
goto T2906; |
9135 |
T2906:; |
T2906:; |
9136 |
if((CMPcar((V1338)))==(VV[197])){ |
if((CMPcar((V1426)))==(VV[197])){ |
9137 |
goto T2910;} |
goto T2910;} |
9138 |
if((CMPcar((V1338)))==(VV[198])){ |
if((CMPcar((V1426)))==(VV[198])){ |
9139 |
goto T2910;} |
goto T2910;} |
9140 |
if(!((CMPcar((V1338)))==(VV[199]))){ |
if(!((CMPcar((V1426)))==(VV[199]))){ |
9141 |
goto T2909;} |
goto T2909;} |
9142 |
goto T2910; |
goto T2910; |
9143 |
T2910:; |
T2910:; |
9144 |
base[3]= CMPcaddr((V1338)); |
base[3]= CMPcaddr((V1426)); |
9145 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9146 |
Lconstantp(); |
Lconstantp(); |
9147 |
vs_top=sup; |
vs_top=sup; |
9148 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
9149 |
goto T2909;} |
goto T2909;} |
9150 |
{object V1342; |
{object V1430; |
9151 |
V1342= (*(LnkLI490))((V1338),(base0[5]->c.c_car),(V1340)); |
V1430= (*(LnkLI490))((V1426),(base0[5]->c.c_car),(V1428)); |
9152 |
{object V1343= CMPcar((V1338)); |
{object V1431= CMPcar((V1426)); |
9153 |
if((V1343!= VV[197]))goto T2919; |
if((V1431!= VV[197]))goto T2919; |
9154 |
base[3]= (*(LnkLI491))((base0[4]->c.c_car),(V1342),(V1338)); |
base[3]= (*(LnkLI491))((base0[4]->c.c_car),(V1430),(V1426)); |
9155 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9156 |
return; |
return; |
9157 |
goto T2919; |
goto T2919; |
9158 |
T2919:; |
T2919:; |
9159 |
if((V1343!= VV[198]))goto T2920; |
if((V1431!= VV[198]))goto T2920; |
9160 |
base[3]= (*(LnkLI492))((base0[4]->c.c_car),(V1342),(V1338)); |
base[3]= (*(LnkLI492))((base0[4]->c.c_car),(V1430),(V1426)); |
9161 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9162 |
return; |
return; |
9163 |
goto T2920; |
goto T2920; |
9164 |
T2920:; |
T2920:; |
9165 |
if((V1343!= VV[199]))goto T2921; |
if((V1431!= VV[199]))goto T2921; |
9166 |
base[3]= (*(LnkLI493))((base0[4]->c.c_car),(V1342),(V1338)); |
base[3]= (*(LnkLI493))((base0[4]->c.c_car),(V1430),(V1426)); |
9167 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9168 |
return; |
return; |
9169 |
goto T2921; |
goto T2921; |
9170 |
T2921:; |
T2921:; |
9171 |
FEerror("The ECASE key value ~s is illegal.",1,V1343); |
FEerror("The ECASE key value ~s is illegal.",1,V1431); |
9172 |
base[3]= Cnil; |
base[3]= Cnil; |
9173 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9174 |
return;}} |
return;}} |
9175 |
goto T2909; |
goto T2909; |
9176 |
T2909:; |
T2909:; |
9177 |
if(!((CMPcar((V1338)))==(VV[138]))){ |
if(!((CMPcar((V1426)))==(VV[138]))){ |
9178 |
goto T2923;} |
goto T2923;} |
9179 |
if(!(type_of(CMPcadr((V1338)))==t_cons)){ |
if(!(type_of(CMPcadr((V1426)))==t_cons)){ |
9180 |
goto T2923;} |
goto T2923;} |
9181 |
if(!((CMPcar(CMPcadr((V1338))))==(VV[34]))){ |
if(!((CMPcar(CMPcadr((V1426))))==(VV[34]))){ |
9182 |
goto T2923;} |
goto T2923;} |
9183 |
base[3]= CMPcadr(CMPcadr((V1338))); |
base[3]= CMPcadr(CMPcadr((V1426))); |
9184 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9185 |
(void) (*Lnk494)(); |
(void) (*Lnk494)(); |
9186 |
vs_top=sup; |
vs_top=sup; |
9187 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
9188 |
goto T2923;} |
goto T2923;} |
9189 |
base[3]= (*(LnkLI495))((V1338),(base0[5]->c.c_car),(V1340),(base0[4]->c.c_car),(base0[3]->c.c_car)); |
base[3]= (*(LnkLI495))((V1426),(base0[5]->c.c_car),(V1428),(base0[4]->c.c_car),(base0[3]->c.c_car)); |
9190 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9191 |
return; |
return; |
9192 |
goto T2923; |
goto T2923; |
9193 |
T2923:; |
T2923:; |
9194 |
if(type_of(CMPcar((V1338)))==t_symbol){ |
if(type_of(CMPcar((V1426)))==t_symbol){ |
9195 |
goto T2934;} |
goto T2934;} |
9196 |
if(!(type_of(CMPcar((V1338)))==t_cons)){ |
if(!(type_of(CMPcar((V1426)))==t_cons)){ |
9197 |
goto T2933;} |
goto T2933;} |
9198 |
if(!((CMPcaar((V1338)))==(VV[30]))){ |
if(!((CMPcaar((V1426)))==(VV[30]))){ |
9199 |
goto T2933;} |
goto T2933;} |
9200 |
goto T2934; |
goto T2934; |
9201 |
T2934:; |
T2934:; |
9202 |
base[3]= CMPcar((V1338)); |
base[3]= CMPcar((V1426)); |
9203 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9204 |
(void) (*Lnk494)(); |
(void) (*Lnk494)(); |
9205 |
vs_top=sup; |
vs_top=sup; |
9206 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
9207 |
goto T2933;} |
goto T2933;} |
9208 |
base[3]= (*(LnkLI495))((V1338),(base0[5]->c.c_car),(V1340),(base0[4]->c.c_car),(base0[3]->c.c_car)); |
base[3]= (*(LnkLI495))((V1426),(base0[5]->c.c_car),(V1428),(base0[4]->c.c_car),(base0[3]->c.c_car)); |
9209 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9210 |
return; |
return; |
9211 |
goto T2933; |
goto T2933; |
9212 |
T2933:; |
T2933:; |
9213 |
if(!((CMPcar((V1338)))==(VV[200]))){ |
if(!((CMPcar((V1426)))==(VV[200]))){ |
9214 |
goto T2943;} |
goto T2943;} |
9215 |
if(((VV[22]->s.s_dbind))==Cnil){ |
if(((VV[22]->s.s_dbind))==Cnil){ |
9216 |
goto T2943;} |
goto T2943;} |
9217 |
{object V1344= CMPcadddr((V1338)); |
{object V1432= CMPcadddr((V1426)); |
9218 |
if((V1344!= VV[254]))goto T2948; |
if((V1432!= VV[254]))goto T2948; |
9219 |
{object V1345; |
{object V1433; |
9220 |
V1345= CMPcaddr((V1338)); |
V1433= CMPcaddr((V1426)); |
9221 |
(VV[23]->s.s_dbind)= make_cons((V1345),(VV[23]->s.s_dbind)); |
(VV[23]->s.s_dbind)= make_cons((V1433),(VV[23]->s.s_dbind)); |
9222 |
goto T2947;} |
goto T2947;} |
9223 |
goto T2948; |
goto T2948; |
9224 |
T2948:; |
T2948:; |
9225 |
if((V1344!= VV[256]))goto T2951; |
if((V1432!= VV[256]))goto T2951; |
9226 |
{object V1346; |
{object V1434; |
9227 |
V1346= CMPcaddr((V1338)); |
V1434= CMPcaddr((V1426)); |
9228 |
(VV[24]->s.s_dbind)= make_cons((V1346),(VV[24]->s.s_dbind)); |
(VV[24]->s.s_dbind)= make_cons((V1434),(VV[24]->s.s_dbind)); |
9229 |
goto T2947;} |
goto T2947;} |
9230 |
goto T2951; |
goto T2951; |
9231 |
T2951:; |
T2951:; |
9232 |
if((V1344!= VV[258]))goto T2954; |
if((V1432!= VV[258]))goto T2954; |
9233 |
{object V1347; |
{object V1435; |
9234 |
V1347= CMPcaddr((V1338)); |
V1435= CMPcaddr((V1426)); |
9235 |
(VV[25]->s.s_dbind)= make_cons((V1347),(VV[25]->s.s_dbind)); |
(VV[25]->s.s_dbind)= make_cons((V1435),(VV[25]->s.s_dbind)); |
9236 |
goto T2947;} |
goto T2947;} |
9237 |
goto T2954; |
goto T2954; |
9238 |
T2954:;} |
T2954:;} |
9239 |
goto T2947; |
goto T2947; |
9240 |
T2947:; |
T2947:; |
9241 |
base[3]= make_cons(CMPcadr((V1338)),CMPcddddr((V1338))); |
base[3]= make_cons(CMPcadr((V1426)),CMPcddddr((V1426))); |
9242 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9243 |
return; |
return; |
9244 |
goto T2943; |
goto T2943; |
9245 |
T2943:; |
T2943:; |
9246 |
base[3]= (V1338); |
base[3]= (V1426); |
9247 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9248 |
return;} |
return;} |
9249 |
} |
} |
9255 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9256 |
register object *sup=base+VM128; VC128 |
register object *sup=base+VM128; VC128 |
9257 |
vs_check; |
vs_check; |
9258 |
{register object V1348; |
{register object V1436; |
9259 |
check_arg(1); |
check_arg(1); |
9260 |
V1348=(base[0]); |
V1436=(base[0]); |
9261 |
vs_top=sup; |
vs_top=sup; |
9262 |
goto TTL; |
goto TTL; |
9263 |
TTL:; |
TTL:; |
9264 |
{register object x= (V1348),V1349= VV[183]; |
{register object x= (V1436),V1437= VV[183]; |
9265 |
while(V1349!=Cnil) |
while(V1437!=Cnil) |
9266 |
if(x==(V1349->c.c_car)){ |
if(x==(V1437->c.c_car)){ |
9267 |
goto T2959; |
goto T2959; |
9268 |
}else V1349=V1349->c.c_cdr; |
}else V1437=V1437->c.c_cdr; |
9269 |
goto T2958;} |
goto T2958;} |
9270 |
goto T2959; |
goto T2959; |
9271 |
T2959:; |
T2959:; |
9272 |
{object V1350= (V1348); |
{object V1438= (V1436); |
9273 |
if((V1350!= VV[407]))goto T2961; |
if((V1438!= VV[407]))goto T2961; |
9274 |
base0[7]= VV[184]; |
base0[7]= VV[184]; |
9275 |
goto T2960; |
goto T2960; |
9276 |
goto T2961; |
goto T2961; |
9277 |
T2961:; |
T2961:; |
9278 |
if((V1350!= VV[62]))goto T2963; |
if((V1438!= VV[62]))goto T2963; |
9279 |
base0[7]= VV[185]; |
base0[7]= VV[185]; |
9280 |
goto T2960; |
goto T2960; |
9281 |
goto T2963; |
goto T2963; |
9282 |
T2963:; |
T2963:; |
9283 |
if((V1350!= VV[63]))goto T2965; |
if((V1438!= VV[63]))goto T2965; |
9284 |
goto T2960; |
goto T2960; |
9285 |
goto T2965; |
goto T2965; |
9286 |
T2965:; |
T2965:; |
9287 |
if((V1350!= VV[170]))goto T2966; |
if((V1438!= VV[170]))goto T2966; |
9288 |
base0[7]= VV[186]; |
base0[7]= VV[186]; |
9289 |
goto T2960; |
goto T2960; |
9290 |
goto T2966; |
goto T2966; |
9291 |
T2966:; |
T2966:; |
9292 |
if((V1350!= VV[56]))goto T2968; |
if((V1438!= VV[56]))goto T2968; |
9293 |
base0[7]= VV[187]; |
base0[7]= VV[187]; |
9294 |
goto T2960; |
goto T2960; |
9295 |
goto T2968; |
goto T2968; |
9296 |
T2968:; |
T2968:; |
9297 |
base[1]= VV[188]; |
base[1]= VV[188]; |
9298 |
base[2]= (V1348); |
base[2]= (V1436); |
9299 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
9300 |
Lerror(); |
Lerror(); |
9301 |
vs_top=sup;} |
vs_top=sup;} |
9306 |
return; |
return; |
9307 |
goto T2958; |
goto T2958; |
9308 |
T2958:; |
T2958:; |
9309 |
{object V1351= base0[7]; |
{object V1439= base0[7]; |
9310 |
if((V1351!= VV[181]))goto T2972; |
if((V1439!= VV[181]))goto T2972; |
9311 |
V1352= list(2,(V1348),list(2,VV[189],base0[5])); |
V1440= list(2,(V1436),list(2,VV[189],base0[5])); |
9312 |
base[1]= make_cons(/* INLINE-ARGS */V1352,Cnil); |
base[1]= make_cons(/* INLINE-ARGS */V1440,Cnil); |
9313 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9314 |
return; |
return; |
9315 |
goto T2972; |
goto T2972; |
9316 |
T2972:; |
T2972:; |
9317 |
if((V1351!= VV[184]))goto T2973; |
if((V1439!= VV[184]))goto T2973; |
9318 |
if(type_of((V1348))==t_cons){ |
if(type_of((V1436))==t_cons){ |
9319 |
goto T2975;} |
goto T2975;} |
9320 |
V1353= list(2,(V1348),list(3,VV[116],base0[5],list(2,VV[189],base0[5]))); |
V1441= list(2,(V1436),list(3,VV[116],base0[5],list(2,VV[189],base0[5]))); |
9321 |
base[1]= make_cons(/* INLINE-ARGS */V1353,Cnil); |
base[1]= make_cons(/* INLINE-ARGS */V1441,Cnil); |
9322 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9323 |
return; |
return; |
9324 |
goto T2975; |
goto T2975; |
9325 |
T2975:; |
T2975:; |
9326 |
if((CMPcddr((V1348)))!=Cnil){ |
if((CMPcddr((V1436)))!=Cnil){ |
9327 |
goto T2978;} |
goto T2978;} |
9328 |
V1354= CMPcar((V1348)); |
V1442= CMPcar((V1436)); |
9329 |
V1355= list(2,/* INLINE-ARGS */V1354,list(4,VV[130],base0[5],list(2,VV[189],base0[5]),CMPcadr((V1348)))); |
V1443= list(2,/* INLINE-ARGS */V1442,list(4,VV[130],base0[5],list(2,VV[189],base0[5]),CMPcadr((V1436)))); |
9330 |
base[1]= make_cons(/* INLINE-ARGS */V1355,Cnil); |
base[1]= make_cons(/* INLINE-ARGS */V1443,Cnil); |
9331 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9332 |
return; |
return; |
9333 |
goto T2978; |
goto T2978; |
9334 |
T2978:; |
T2978:; |
9335 |
V1356= list(2,CMPcaddr((V1348)),base0[5]); |
V1444= list(2,CMPcaddr((V1436)),base0[5]); |
9336 |
V1357= CMPcar((V1348)); |
V1445= CMPcar((V1436)); |
9337 |
base[1]= list(2,/* INLINE-ARGS */V1356,list(2,/* INLINE-ARGS */V1357,list(4,VV[130],base0[5],list(2,VV[189],base0[5]),CMPcadr((V1348))))); |
base[1]= list(2,/* INLINE-ARGS */V1444,list(2,/* INLINE-ARGS */V1445,list(4,VV[130],base0[5],list(2,VV[189],base0[5]),CMPcadr((V1436))))); |
9338 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9339 |
return; |
return; |
9340 |
goto T2973; |
goto T2973; |
9341 |
T2973:; |
T2973:; |
9342 |
if((V1351!= VV[186]))goto T2980; |
if((V1439!= VV[186]))goto T2980; |
9343 |
V1358= list(2,(V1348),base0[5]); |
V1446= list(2,(V1436),base0[5]); |
9344 |
base[1]= make_cons(/* INLINE-ARGS */V1358,Cnil); |
base[1]= make_cons(/* INLINE-ARGS */V1446,Cnil); |
9345 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9346 |
return; |
return; |
9347 |
goto T2980; |
goto T2980; |
9348 |
T2980:; |
T2980:; |
9349 |
if((V1351!= VV[185]))goto T2981; |
if((V1439!= VV[185]))goto T2981; |
9350 |
if(type_of((V1348))==t_cons){ |
if(type_of((V1436))==t_cons){ |
9351 |
goto T2983;} |
goto T2983;} |
9352 |
base[1]= (V1348); |
base[1]= (V1436); |
9353 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9354 |
(void) (*Lnk488)(); |
(void) (*Lnk488)(); |
9355 |
vs_top=sup; |
vs_top=sup; |
9356 |
V1359= vs_base[0]; |
V1447= vs_base[0]; |
9357 |
V1360= list(2,(V1348),list(3,VV[190],V1359,base0[5])); |
V1448 = base0[5]; |
9358 |
base[1]= make_cons(/* INLINE-ARGS */V1360,Cnil); |
V1449= list(2,(V1436),list(3,VV[190],V1447,V1448)); |
9359 |
|
base[1]= make_cons(/* INLINE-ARGS */V1449,Cnil); |
9360 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9361 |
return; |
return; |
9362 |
goto T2983; |
goto T2983; |
9363 |
T2983:; |
T2983:; |
9364 |
if((CMPcddr((V1348)))!=Cnil){ |
if((CMPcddr((V1436)))!=Cnil){ |
9365 |
goto T2988;} |
goto T2988;} |
9366 |
{object V1361; |
{object V1450; |
9367 |
object V1362; |
object V1451; |
9368 |
if(!(type_of(CMPcar((V1348)))==t_cons)){ |
if(!(type_of(CMPcar((V1436)))==t_cons)){ |
9369 |
goto T2992;} |
goto T2992;} |
9370 |
base[1]= CMPcaar((V1348)); |
base[1]= CMPcaar((V1436)); |
9371 |
base[2]= CMPcadar((V1348)); |
base[2]= CMPcadar((V1436)); |
9372 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
9373 |
goto T2990; |
goto T2990; |
9374 |
goto T2992; |
goto T2992; |
9375 |
T2992:; |
T2992:; |
9376 |
base[2]= CMPcar((V1348)); |
base[2]= CMPcar((V1436)); |
9377 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
9378 |
(void) (*Lnk488)(); |
(void) (*Lnk488)(); |
9379 |
vs_top=sup; |
vs_top=sup; |
9380 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
9381 |
base[2]= CMPcar((V1348)); |
base[2]= CMPcar((V1436)); |
9382 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
9383 |
goto T2990; |
goto T2990; |
9384 |
T2990:; |
T2990:; |
9385 |
if(vs_base>=vs_top){vs_top=sup;goto T2999;} |
if(vs_base>=vs_top){vs_top=sup;goto T2999;} |
9386 |
V1361= vs_base[0]; |
V1450= vs_base[0]; |
9387 |
vs_base++; |
vs_base++; |
9388 |
if(vs_base>=vs_top){vs_top=sup;goto T3000;} |
if(vs_base>=vs_top){vs_top=sup;goto T3000;} |
9389 |
V1362= vs_base[0]; |
V1451= vs_base[0]; |
9390 |
vs_top=sup; |
vs_top=sup; |
9391 |
goto T3001; |
goto T3001; |
9392 |
goto T2999; |
goto T2999; |
9393 |
T2999:; |
T2999:; |
9394 |
V1361= Cnil; |
V1450= Cnil; |
9395 |
goto T3000; |
goto T3000; |
9396 |
T3000:; |
T3000:; |
9397 |
V1362= Cnil; |
V1451= Cnil; |
9398 |
goto T3001; |
goto T3001; |
9399 |
T3001:; |
T3001:; |
9400 |
V1363= list(2,base0[6],list(3,VV[191],(V1361),base0[5])); |
V1452= list(2,base0[6],list(3,VV[191],(V1450),base0[5])); |
9401 |
V1364= list(2,VV[192],base0[6]); |
V1453= list(2,VV[192],base0[6]); |
9402 |
base[1]= list(2,/* INLINE-ARGS */V1363,list(2,(V1362),list(4,VV[130],/* INLINE-ARGS */V1364,list(2,VV[193],base0[6]),CMPcadr((V1348))))); |
base[1]= list(2,/* INLINE-ARGS */V1452,list(2,(V1451),list(4,VV[130],/* INLINE-ARGS */V1453,list(2,VV[193],base0[6]),CMPcadr((V1436))))); |
9403 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9404 |
return;} |
return;} |
9405 |
goto T2988; |
goto T2988; |
9406 |
T2988:; |
T2988:; |
9407 |
{object V1365; |
{object V1454; |
9408 |
object V1366; |
object V1455; |
9409 |
if(!(type_of(CMPcar((V1348)))==t_cons)){ |
if(!(type_of(CMPcar((V1436)))==t_cons)){ |
9410 |
goto T3004;} |
goto T3004;} |
9411 |
base[1]= CMPcaar((V1348)); |
base[1]= CMPcaar((V1436)); |
9412 |
base[2]= CMPcadar((V1348)); |
base[2]= CMPcadar((V1436)); |
9413 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
9414 |
goto T3002; |
goto T3002; |
9415 |
goto T3004; |
goto T3004; |
9416 |
T3004:; |
T3004:; |
9417 |
base[2]= CMPcar((V1348)); |
base[2]= CMPcar((V1436)); |
9418 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
9419 |
(void) (*Lnk488)(); |
(void) (*Lnk488)(); |
9420 |
vs_top=sup; |
vs_top=sup; |
9421 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
9422 |
base[2]= CMPcar((V1348)); |
base[2]= CMPcar((V1436)); |
9423 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
9424 |
goto T3002; |
goto T3002; |
9425 |
T3002:; |
T3002:; |
9426 |
if(vs_base>=vs_top){vs_top=sup;goto T3011;} |
if(vs_base>=vs_top){vs_top=sup;goto T3011;} |
9427 |
V1365= vs_base[0]; |
V1454= vs_base[0]; |
9428 |
vs_base++; |
vs_base++; |
9429 |
if(vs_base>=vs_top){vs_top=sup;goto T3012;} |
if(vs_base>=vs_top){vs_top=sup;goto T3012;} |
9430 |
V1366= vs_base[0]; |
V1455= vs_base[0]; |
9431 |
vs_top=sup; |
vs_top=sup; |
9432 |
goto T3013; |
goto T3013; |
9433 |
goto T3011; |
goto T3011; |
9434 |
T3011:; |
T3011:; |
9435 |
V1365= Cnil; |
V1454= Cnil; |
9436 |
goto T3012; |
goto T3012; |
9437 |
T3012:; |
T3012:; |
9438 |
V1366= Cnil; |
V1455= Cnil; |
9439 |
goto T3013; |
goto T3013; |
9440 |
T3013:; |
T3013:; |
9441 |
V1367= list(2,base0[6],list(3,VV[191],(V1365),base0[5])); |
V1456= list(2,base0[6],list(3,VV[191],(V1454),base0[5])); |
9442 |
V1368= list(2,CMPcaddr((V1348)),base0[6]); |
V1457= list(2,CMPcaddr((V1436)),base0[6]); |
9443 |
V1369= list(2,VV[192],base0[6]); |
V1458= list(2,VV[192],base0[6]); |
9444 |
base[1]= list(3,/* INLINE-ARGS */V1367,/* INLINE-ARGS */V1368,list(2,(V1366),list(4,VV[130],/* INLINE-ARGS */V1369,list(2,VV[193],base0[6]),CMPcadr((V1348))))); |
base[1]= list(3,/* INLINE-ARGS */V1456,/* INLINE-ARGS */V1457,list(2,(V1455),list(4,VV[130],/* INLINE-ARGS */V1458,list(2,VV[193],base0[6]),CMPcadr((V1436))))); |
9445 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9446 |
return;} |
return;} |
9447 |
goto T2981; |
goto T2981; |
9448 |
T2981:; |
T2981:; |
9449 |
if((V1351!= VV[187]))goto T3014; |
if((V1439!= VV[187]))goto T3014; |
9450 |
base[1]= make_cons((V1348),Cnil); |
base[1]= make_cons((V1436),Cnil); |
9451 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9452 |
return; |
return; |
9453 |
goto T3014; |
goto T3014; |
9464 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9465 |
register object *sup=base+VM129; VC129 |
register object *sup=base+VM129; VC129 |
9466 |
vs_check; |
vs_check; |
9467 |
{object V1370; |
{object V1459; |
9468 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
9469 |
{object *p=vs_top; |
{object *p=vs_top; |
9470 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
9471 |
V1370=(base[0]); |
V1459=(base[0]); |
9472 |
vs_top=sup; |
vs_top=sup; |
9473 |
base[1]= STREF(object,(base0[0]->c.c_car),0); |
base[1]= STREF(object,(base0[0]->c.c_car),0); |
9474 |
base[2]= (V1370); |
base[2]= (V1459); |
9475 |
{object V1371; |
{object V1460; |
9476 |
V1371= STREF(object,(base0[0]->c.c_car),4); |
V1460= STREF(object,(base0[0]->c.c_car),4); |
9477 |
vs_top=base+3; |
vs_top=base+3; |
9478 |
while(V1371!=Cnil) |
while(V1460!=Cnil) |
9479 |
{vs_push((V1371)->c.c_car);V1371=(V1371)->c.c_cdr;} |
{vs_push((V1460)->c.c_car);V1460=(V1460)->c.c_cdr;} |
9480 |
vs_base=base+2;} |
vs_base=base+2;} |
9481 |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
9482 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
9492 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9493 |
register object *sup=base+VM130; VC130 |
register object *sup=base+VM130; VC130 |
9494 |
vs_check; |
vs_check; |
9495 |
{object V1372; |
{object V1461; |
9496 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
9497 |
{object *p=vs_top; |
{object *p=vs_top; |
9498 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
9499 |
V1372=(base[0]); |
V1461=(base[0]); |
9500 |
vs_top=sup; |
vs_top=sup; |
9501 |
base[1]= STREF(object,(base0[2]->c.c_car),0); |
base[1]= STREF(object,(base0[2]->c.c_car),0); |
9502 |
base[2]= STREF(object,(base0[2]->c.c_car),4); |
base[2]= STREF(object,(base0[2]->c.c_car),4); |
9503 |
base[3]= STREF(object,(base0[2]->c.c_car),8); |
base[3]= STREF(object,(base0[2]->c.c_car),8); |
9504 |
{object V1373; |
{object V1462; |
9505 |
if(((base0[0]->c.c_car))==Cnil){ |
if(((base0[0]->c.c_car))==Cnil){ |
9506 |
goto T3025;} |
goto T3025;} |
9507 |
{object V1374; |
{object V1463; |
9508 |
object V1375; |
object V1464; |
9509 |
V1374= nthcdr(fix((base0[1]->c.c_car)),(V1372)); |
V1463= nthcdr(fix((base0[1]->c.c_car)),(V1461)); |
9510 |
base[6]= (V1372); |
base[6]= (V1461); |
9511 |
base[7]= (V1374); |
base[7]= (V1463); |
9512 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
9513 |
Lldiff(); |
Lldiff(); |
9514 |
vs_top=sup; |
vs_top=sup; |
9515 |
V1375= vs_base[0]; |
V1464= vs_base[0]; |
9516 |
V1373= nconc((V1375),(V1374)); |
V1462= nconc((V1464),(V1463)); |
9517 |
goto T3023;} |
goto T3023;} |
9518 |
goto T3025; |
goto T3025; |
9519 |
T3025:; |
T3025:; |
9520 |
V1373= (V1372); |
V1462= (V1461); |
9521 |
goto T3023; |
goto T3023; |
9522 |
T3023:; |
T3023:; |
9523 |
vs_top=base+4; |
vs_top=base+4; |
9524 |
while(V1373!=Cnil) |
while(V1462!=Cnil) |
9525 |
{vs_push((V1373)->c.c_car);V1373=(V1373)->c.c_cdr;} |
{vs_push((V1462)->c.c_car);V1462=(V1462)->c.c_cdr;} |
9526 |
vs_base=base+2;} |
vs_base=base+2;} |
9527 |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
9528 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
9538 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9539 |
register object *sup=base+VM131; VC131 |
register object *sup=base+VM131; VC131 |
9540 |
vs_check; |
vs_check; |
9541 |
{register object V1376; |
{register object V1465; |
9542 |
check_arg(1); |
check_arg(1); |
9543 |
V1376=(base[0]); |
V1465=(base[0]); |
9544 |
vs_top=sup; |
vs_top=sup; |
9545 |
if(!(type_of((V1376))==t_cons)){ |
if(!(type_of((V1465))==t_cons)){ |
9546 |
goto T3032;} |
goto T3032;} |
9547 |
if((CMPcar((V1376)))==(VV[31])){ |
if((CMPcar((V1465)))==(VV[31])){ |
9548 |
goto T3034;} |
goto T3034;} |
9549 |
base[1]= Cnil; |
base[1]= Cnil; |
9550 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9551 |
return; |
return; |
9552 |
goto T3034; |
goto T3034; |
9553 |
T3034:; |
T3034:; |
9554 |
base[1]= CMPcadr((V1376)); |
base[1]= CMPcadr((V1465)); |
9555 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9556 |
Lconstantp(); |
Lconstantp(); |
9557 |
vs_top=sup; |
vs_top=sup; |
9562 |
return; |
return; |
9563 |
goto T3036; |
goto T3036; |
9564 |
T3036:; |
T3036:; |
9565 |
{register object V1377; |
{register object V1466; |
9566 |
base[1]= CMPcadr((V1376)); |
base[1]= CMPcadr((V1465)); |
9567 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9568 |
Leval(); |
Leval(); |
9569 |
vs_top=sup; |
vs_top=sup; |
9570 |
V1377= vs_base[0];{object V1378; |
V1466= vs_base[0];{object V1467; |
9571 |
V1378= (*(LnkLI365))((V1377)); |
V1467= (*(LnkLI365))((V1466)); |
9572 |
if(V1378==Cnil)goto T3041; |
if(V1467==Cnil)goto T3041; |
9573 |
base[1]= V1378; |
base[1]= V1467; |
9574 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9575 |
return; |
return; |
9576 |
goto T3041; |
goto T3041; |
9577 |
T3041:;} |
T3041:;} |
9578 |
if(!(type_of((V1377))==t_fixnum||type_of((V1377))==t_bignum)){ |
if(!(type_of((V1466))==t_fixnum||type_of((V1466))==t_bignum)){ |
9579 |
goto T3043;} |
goto T3043;} |
9580 |
base[1]= Ct; |
base[1]= Ct; |
9581 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9582 |
return; |
return; |
9583 |
goto T3043; |
goto T3043; |
9584 |
T3043:; |
T3043:; |
9585 |
if(type_of((V1377))==t_character){ |
if(type_of((V1466))==t_character){ |
9586 |
goto T3045;} |
goto T3045;} |
9587 |
base[1]= Cnil; |
base[1]= Cnil; |
9588 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9589 |
return; |
return; |
9590 |
goto T3045; |
goto T3045; |
9591 |
T3045:; |
T3045:; |
9592 |
base[1]= (V1377); |
base[1]= (V1466); |
9593 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9594 |
Lstandard_char_p(); |
Lstandard_char_p(); |
9595 |
return;} |
return;} |
9596 |
goto T3032; |
goto T3032; |
9597 |
T3032:; |
T3032:; |
9598 |
base[1]= (*(LnkLI365))((V1376)); |
base[1]= (*(LnkLI365))((V1465)); |
9599 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9600 |
return; |
return; |
9601 |
} |
} |
9607 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9608 |
register object *sup=base+VM132; VC132 |
register object *sup=base+VM132; VC132 |
9609 |
vs_check; |
vs_check; |
9610 |
{object V1379; |
{object V1468; |
9611 |
check_arg(1); |
check_arg(1); |
9612 |
V1379=(base[0]); |
V1468=(base[0]); |
9613 |
vs_top=sup; |
vs_top=sup; |
9614 |
goto TTL; |
goto TTL; |
9615 |
TTL:; |
TTL:; |
9616 |
base[1]= VV[9]; |
base[1]= VV[9]; |
9617 |
base[2]= (V1379); |
base[2]= (V1468); |
9618 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
9619 |
Lerror(); |
Lerror(); |
9620 |
return; |
return; |
9627 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9628 |
register object *sup=base+VM133; VC133 |
register object *sup=base+VM133; VC133 |
9629 |
vs_check; |
vs_check; |
9630 |
{object V1380; |
{object V1469; |
9631 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
9632 |
{object *p=vs_top; |
{object *p=vs_top; |
9633 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
9634 |
V1380=(base[0]); |
V1469=(base[0]); |
9635 |
vs_top=sup; |
vs_top=sup; |
9636 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
9637 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
9638 |
Lsymbol_function(); |
Lsymbol_function(); |
9639 |
vs_top=sup; |
vs_top=sup; |
9640 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
9641 |
{object V1381; |
{object V1470; |
9642 |
V1381= (V1380); |
V1470= (V1469); |
9643 |
vs_top=base+2; |
vs_top=base+2; |
9644 |
while(V1381!=Cnil) |
while(V1470!=Cnil) |
9645 |
{vs_push((V1381)->c.c_car);V1381=(V1381)->c.c_cdr;} |
{vs_push((V1470)->c.c_car);V1470=(V1470)->c.c_cdr;} |
9646 |
vs_base=base+2;} |
vs_base=base+2;} |
9647 |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
9648 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |