10 |
{ VMB1 VMS1 VMV1 |
{ VMB1 VMS1 VMV1 |
11 |
goto TTL; |
goto TTL; |
12 |
TTL:; |
TTL:; |
13 |
|
V8 = (V6); |
14 |
base[0]= (V6); |
base[0]= (V6); |
15 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
16 |
(void) (*Lnk22)(Lclptr22); |
(void) (*Lnk22)(Lclptr22); |
17 |
vs_top=sup; |
vs_top=sup; |
18 |
V8= vs_base[0]; |
V9= vs_base[0]; |
19 |
{object V9 = (*(LnkLI21))((V6),V8); |
{object V10 = (*(LnkLI21))(V8,V9); |
20 |
VMR1(V9)} |
VMR1(V10)} |
21 |
base[0]=base[0]; |
base[0]=base[0]; |
22 |
return Cnil; |
return Cnil; |
23 |
} |
} |
27 |
{ |
{ |
28 |
va_list ap; |
va_list ap; |
29 |
int narg = VFUN_NARGS; VMB2 VMS2 VMV2 |
int narg = VFUN_NARGS; VMB2 VMS2 VMV2 |
30 |
{object V10; |
{object V11; |
|
object V11; |
|
31 |
object V12; |
object V12; |
32 |
object V13; |
object V13; |
33 |
|
object V14; |
34 |
va_start(ap,first); |
va_start(ap,first); |
35 |
narg= narg - 0; |
narg= narg - 0; |
36 |
{ |
{ |
37 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI2key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI2key,first,ap); |
38 |
V10=(Vcs[0]); |
V11=(Vcs[0]); |
39 |
V11=(Vcs[1]); |
V12=(Vcs[1]); |
40 |
V12=(Vcs[2]); |
V13=(Vcs[2]); |
41 |
V13=(Vcs[3]); |
V14=(Vcs[3]); |
42 |
base[0]= VV[0]; |
base[0]= VV[0]; |
43 |
base[1]= (V10); |
base[1]= (V11); |
44 |
base[2]= (V11); |
base[2]= (V12); |
45 |
base[3]= (V12); |
base[3]= (V13); |
46 |
base[4]= (V13); |
base[4]= (V14); |
47 |
vs_top=(vs_base=base+0)+5; |
vs_top=(vs_base=base+0)+5; |
48 |
siLmake_structure(); |
siLmake_structure(); |
49 |
vs_top=sup; |
vs_top=sup; |
50 |
{object V14 = vs_base[0]; |
{object V15 = vs_base[0]; |
51 |
VMR2(V14)} |
VMR2(V15)} |
52 |
va_end(ap); |
va_end(ap); |
53 |
base[0]=base[0]; |
base[0]=base[0]; |
54 |
return Cnil;} |
return Cnil;} |
68 |
vs_top=(vs_base=base+0)+5; |
vs_top=(vs_base=base+0)+5; |
69 |
siLmake_structure(); |
siLmake_structure(); |
70 |
vs_top=sup; |
vs_top=sup; |
71 |
{object V19 = vs_base[0]; |
{object V20 = vs_base[0]; |
72 |
VMR3(V19)} |
VMR3(V20)} |
73 |
base[0]=base[0]; |
base[0]=base[0]; |
74 |
return Cnil; |
return Cnil; |
75 |
} |
} |
76 |
/* local entry for function COMPUTE-STD-CPL */ |
/* local entry for function COMPUTE-STD-CPL */ |
77 |
|
|
78 |
static object LI4(V22,V23) |
static object LI4(V23,V24) |
79 |
|
|
80 |
register object V22;register object V23; |
register object V23;register object V24; |
81 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
82 |
goto TTL; |
goto TTL; |
83 |
TTL:; |
TTL:; |
84 |
if(((V23))!=Cnil){ |
if(((V24))!=Cnil){ |
85 |
goto T17;} |
goto T17;} |
86 |
{object V24 = make_cons((V22),Cnil); |
{object V25 = make_cons((V23),Cnil); |
87 |
VMR4(V24)} |
VMR4(V25)} |
88 |
goto T17; |
goto T17; |
89 |
T17:; |
T17:; |
90 |
if((CMPcdr((V23)))!=Cnil){ |
if((CMPcdr((V24)))!=Cnil){ |
91 |
goto T20;} |
goto T20;} |
92 |
V25= CMPcar((V23)); |
V26 = (V23); |
93 |
base[0]= CMPcar((V23)); |
V27= CMPcar((V24)); |
94 |
|
base[0]= CMPcar((V24)); |
95 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
96 |
(void) (*Lnk22)(Lclptr22); |
(void) (*Lnk22)(Lclptr22); |
97 |
vs_top=sup; |
vs_top=sup; |
98 |
V26= vs_base[0]; |
V28= vs_base[0]; |
99 |
V27= (*(LnkLI21))(/* INLINE-ARGS */V25,V26); |
V29= (*(LnkLI21))(/* INLINE-ARGS */V27,V28); |
100 |
{object V28 = make_cons((V22),/* INLINE-ARGS */V27); |
{object V30 = make_cons(V26,/* INLINE-ARGS */V29); |
101 |
VMR4(V28)} |
VMR4(V30)} |
102 |
goto T20; |
goto T20; |
103 |
T20:; |
T20:; |
104 |
{object V29; |
{object V31; |
105 |
object V30; |
object V32; |
106 |
base[0]= (V22); |
base[0]= (V23); |
107 |
base[1]= (V23); |
base[1]= (V24); |
108 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
109 |
(void) (*Lnk28)(); |
(void) (*Lnk28)(); |
110 |
if(vs_base>=vs_top){vs_top=sup;goto T27;} |
if(vs_base>=vs_top){vs_top=sup;goto T27;} |
111 |
V29= vs_base[0]; |
V31= vs_base[0]; |
112 |
vs_base++; |
vs_base++; |
113 |
if(vs_base>=vs_top){vs_top=sup;goto T28;} |
if(vs_base>=vs_top){vs_top=sup;goto T28;} |
114 |
V30= vs_base[0]; |
V32= vs_base[0]; |
115 |
vs_top=sup; |
vs_top=sup; |
116 |
goto T29; |
goto T29; |
117 |
goto T27; |
goto T27; |
118 |
T27:; |
T27:; |
119 |
V29= Cnil; |
V31= Cnil; |
120 |
goto T28; |
goto T28; |
121 |
T28:; |
T28:; |
122 |
V30= Cnil; |
V32= Cnil; |
123 |
goto T29; |
goto T29; |
124 |
T29:; |
T29:; |
125 |
(void)((*(LnkLI29))((V29))); |
(void)((*(LnkLI29))((V31))); |
126 |
{object V31 = (*(LnkLI30))((V22),(V29),fix((V30))); |
{object V33 = (*(LnkLI30))((V23),(V31),fix((V32))); |
127 |
VMR4(V31)}} |
VMR4(V33)}} |
128 |
base[0]=base[0]; |
base[0]=base[0]; |
129 |
return Cnil; |
return Cnil; |
130 |
} |
} |
134 |
{register object *base=vs_base; |
{register object *base=vs_base; |
135 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
136 |
vs_check; |
vs_check; |
137 |
{object V32; |
{object V34; |
138 |
check_arg(2); |
check_arg(2); |
139 |
V32=(base[1]); |
V34=(base[1]); |
140 |
vs_top=sup; |
vs_top=sup; |
141 |
goto TTL; |
goto TTL; |
142 |
TTL:; |
TTL:; |
151 |
base[2]= small_fixnum(0); |
base[2]= small_fixnum(0); |
152 |
base[3]= Cnil; |
base[3]= Cnil; |
153 |
base[5]= base[0]; |
base[5]= base[0]; |
154 |
base[6]= (V32); |
base[6]= (V34); |
155 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
156 |
L7(base); |
L7(base); |
157 |
vs_top=sup; |
vs_top=sup; |
163 |
} |
} |
164 |
/* local entry for function COMPUTE-STD-CPL-PHASE-2 */ |
/* local entry for function COMPUTE-STD-CPL-PHASE-2 */ |
165 |
|
|
166 |
static object LI8(V34) |
static object LI8(V36) |
167 |
|
|
168 |
object V34; |
object V36; |
169 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
170 |
goto TTL; |
goto TTL; |
171 |
TTL:; |
TTL:; |
172 |
{register object V35; |
{register object V37; |
173 |
object V36; |
object V38; |
174 |
V35= (V34); |
V37= (V36); |
175 |
V36= CMPcar((V35)); |
V38= CMPcar((V37)); |
176 |
goto T44; |
goto T44; |
177 |
T44:; |
T44:; |
178 |
if(!(((V35))==Cnil)){ |
if(!(((V37))==Cnil)){ |
179 |
goto T45;} |
goto T45;} |
180 |
{object V37 = Cnil; |
{object V39 = Cnil; |
181 |
VMR6(V37)} |
VMR6(V39)} |
182 |
goto T45; |
goto T45; |
183 |
T45:; |
T45:; |
184 |
{register object V38; |
{register object V40; |
185 |
V38= STREF(object,(V36),4); |
V40= STREF(object,(V38),4); |
186 |
if(((V38))==Cnil){ |
if(((V40))==Cnil){ |
187 |
goto T49;} |
goto T49;} |
188 |
V39= nconc(STREF(object,(V36),8),(V38)); |
V41 = (V38); |
189 |
V40= Ct; |
V42= nconc(STREF(object,(V38),8),(V40)); |
|
STSET(object,(V36),8, /* INLINE-ARGS */V39); |
|
|
(void)(/* INLINE-ARGS */V39); |
|
|
{object V41; |
|
|
object V42; |
|
|
V41= CMPcar((V38)); |
|
|
V42= number_plus(CMPmake_fixnum((long)STREF(fixnum,(V41),12)),small_fixnum(1)); |
|
190 |
V43= Ct; |
V43= Ct; |
191 |
STSET(fixnum,(V41),12, fix((V42))); |
STSET(object,V41,8, /* INLINE-ARGS */V42); |
192 |
(void)(fix((V42)));} |
(void)(/* INLINE-ARGS */V42); |
193 |
{register object V44; |
{object V44; |
194 |
register object V45; |
object V45; |
195 |
V44= (V38); |
V44= CMPcar((V40)); |
196 |
V45= CMPcdr((V44)); |
V45= number_plus(CMPmake_fixnum((long)STREF(fixnum,(V44),12)),small_fixnum(1)); |
197 |
|
V46 = (V44); |
198 |
|
V47 = fix((V45)); |
199 |
|
V48= Ct; |
200 |
|
STSET(fixnum,V46,12, V47); |
201 |
|
(void)(V47);} |
202 |
|
{register object V49; |
203 |
|
register object V50; |
204 |
|
V49= (V40); |
205 |
|
V50= CMPcdr((V49)); |
206 |
goto T60; |
goto T60; |
207 |
T60:; |
T60:; |
208 |
if(((V45))!=Cnil){ |
if(((V50))!=Cnil){ |
209 |
goto T61;} |
goto T61;} |
210 |
goto T49; |
goto T49; |
211 |
goto T61; |
goto T61; |
212 |
T61:; |
T61:; |
213 |
{register object V46; |
{register object V51; |
214 |
object V47; |
object V52; |
215 |
V46= CMPcar((V45)); |
V51= CMPcar((V50)); |
216 |
V47= number_plus(CMPmake_fixnum((long)STREF(fixnum,(V46),12)),small_fixnum(2)); |
V52= number_plus(CMPmake_fixnum((long)STREF(fixnum,(V51),12)),small_fixnum(2)); |
217 |
V48= Ct; |
V53 = (V51); |
218 |
STSET(fixnum,(V46),12, fix((V47))); |
V54 = fix((V52)); |
219 |
(void)(fix((V47)));} |
V55= Ct; |
220 |
{object V49; |
STSET(fixnum,V53,12, V54); |
221 |
register object V50; |
(void)(V54);} |
222 |
object V51; |
{object V56; |
223 |
V49= CMPcar((V45)); |
register object V57; |
224 |
V50= CMPcar((V44)); |
object V58; |
225 |
V51= make_cons((V49),STREF(object,(V50),8)); |
V56= CMPcar((V50)); |
226 |
V52= Ct; |
V57= CMPcar((V49)); |
227 |
STSET(object,(V50),8, (V51)); |
V58= make_cons((V56),STREF(object,(V57),8)); |
228 |
(void)((V51));} |
V59 = (V57); |
229 |
V44= (V45); |
V60 = (V58); |
230 |
V45= CMPcdr((V44)); |
V61= Ct; |
231 |
|
STSET(object,V59,8, V60); |
232 |
|
(void)(V60);} |
233 |
|
V49= (V50); |
234 |
|
V50= CMPcdr((V49)); |
235 |
goto T60;}} |
goto T60;}} |
236 |
goto T49; |
goto T49; |
237 |
T49:; |
T49:; |
238 |
V35= CMPcdr((V35)); |
V37= CMPcdr((V37)); |
239 |
V36= CMPcar((V35)); |
V38= CMPcar((V37)); |
240 |
goto T44;} |
goto T44;} |
241 |
base[0]=base[0]; |
base[0]=base[0]; |
242 |
return Cnil; |
return Cnil; |
243 |
} |
} |
244 |
/* local entry for function COMPUTE-STD-CPL-PHASE-3 */ |
/* local entry for function COMPUTE-STD-CPL-PHASE-3 */ |
245 |
|
|
246 |
static object LI9(V56,V57,V58) |
static object LI9(V65,V66,V67) |
247 |
|
|
248 |
object V56;object V57;long V58; |
object V65;object V66;long V67; |
249 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
250 |
goto TTL; |
goto TTL; |
251 |
TTL:; |
TTL:; |
252 |
{register object V59; |
{register object V68; |
253 |
object V60; |
object V69; |
254 |
object V61; |
object V70; |
255 |
V59= Cnil; |
V68= Cnil; |
256 |
V60= Cnil; |
V69= Cnil; |
257 |
V61= Cnil; |
V70= Cnil; |
258 |
{object V62; |
{object V71; |
259 |
object V63; |
object V72; |
260 |
V62= (V57); |
V71= (V66); |
261 |
V63= CMPcar((V62)); |
V72= CMPcar((V71)); |
262 |
goto T86; |
goto T86; |
263 |
T86:; |
T86:; |
264 |
if(!(((V62))==Cnil)){ |
if(!(((V71))==Cnil)){ |
265 |
goto T87;} |
goto T87;} |
266 |
goto T82; |
goto T82; |
267 |
goto T87; |
goto T87; |
268 |
T87:; |
T87:; |
269 |
if(!(((long)STREF(fixnum,(V63),12))==0)){ |
if(!(((long)STREF(fixnum,(V72),12))==0)){ |
270 |
goto T91;} |
goto T91;} |
271 |
V59= make_cons(V63,(V59)); |
V68= make_cons(V72,(V68)); |
272 |
goto T91; |
goto T91; |
273 |
T91:; |
T91:; |
274 |
V62= CMPcdr((V62)); |
V71= CMPcdr((V71)); |
275 |
V63= CMPcar((V62)); |
V72= CMPcar((V71)); |
276 |
goto T86;} |
goto T86;} |
277 |
goto T82; |
goto T82; |
278 |
T82:; |
T82:; |
279 |
goto T101; |
goto T101; |
280 |
T101:; |
T101:; |
281 |
if(((V59))!=Cnil){ |
if(((V68))!=Cnil){ |
282 |
goto T103;} |
goto T103;} |
283 |
if(!((V58)==0)){ |
if(!((V67)==0)){ |
284 |
goto T107;} |
goto T107;} |
285 |
{object V65 = reverse((V61)); |
{object V74 = reverse((V70)); |
286 |
VMR7(V65)} |
VMR7(V74)} |
287 |
goto T107; |
goto T107; |
288 |
T107:; |
T107:; |
289 |
(void)((*(LnkLI32))((V56),(V57))); |
(void)((*(LnkLI32))((V65),(V66))); |
290 |
goto T103; |
goto T103; |
291 |
T103:; |
T103:; |
292 |
if((CMPcdr((V59)))!=Cnil){ |
if((CMPcdr((V68)))!=Cnil){ |
293 |
goto T112;} |
goto T112;} |
294 |
{object V66; |
{object V75; |
295 |
V66= CMPcar((V59)); |
V75= CMPcar((V68)); |
296 |
V59= Cnil; |
V68= Cnil; |
297 |
V60= (V66); |
V69= (V75); |
298 |
goto T110;} |
goto T110;} |
299 |
goto T112; |
goto T112; |
300 |
T112:; |
T112:; |
301 |
{register object V67; |
{register object V76; |
302 |
object V68; |
object V77; |
303 |
V67= (V61); |
V76= (V70); |
304 |
V68= CMPcar((V67)); |
V77= CMPcar((V76)); |
305 |
goto T120; |
goto T120; |
306 |
T120:; |
T120:; |
307 |
if(!(((V67))==Cnil)){ |
if(!(((V76))==Cnil)){ |
308 |
goto T121;} |
goto T121;} |
309 |
V60= Cnil; |
V69= Cnil; |
310 |
goto T110; |
goto T110; |
311 |
goto T121; |
goto T121; |
312 |
T121:; |
T121:; |
313 |
{object V69; |
{object V78; |
314 |
base[1]= (V68); |
base[1]= (V77); |
315 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
316 |
(void) (*Lnk22)(Lclptr22); |
(void) (*Lnk22)(Lclptr22); |
317 |
vs_top=sup; |
vs_top=sup; |
318 |
V69= vs_base[0]; |
V78= vs_base[0]; |
319 |
{register object x= STREF(object,CMPcar((V59)),0),V70= (V69); |
{register object x= STREF(object,CMPcar((V68)),0),V79= (V78); |
320 |
while(V70!=Cnil) |
while(V79!=Cnil) |
321 |
if(x==(V70->c.c_car)){ |
if(x==(V79->c.c_car)){ |
322 |
goto T130; |
goto T130; |
323 |
}else V70=V70->c.c_cdr; |
}else V79=V79->c.c_cdr; |
324 |
goto T129;} |
goto T129;} |
325 |
goto T130; |
goto T130; |
326 |
T130:; |
T130:; |
327 |
{object V71; |
{object V80; |
328 |
V71= CMPcar((V59)); |
V80= CMPcar((V68)); |
329 |
V59= CMPcdr((V59)); |
V68= CMPcdr((V68)); |
330 |
V60= (V71); |
V69= (V80); |
331 |
goto T110;} |
goto T110;} |
332 |
goto T129; |
goto T129; |
333 |
T129:; |
T129:; |
334 |
{register object V72; |
{register object V81; |
335 |
V72= (V59); |
V81= (V68); |
336 |
goto T135; |
goto T135; |
337 |
T135:; |
T135:; |
338 |
if((CMPcdr((V72)))!=Cnil){ |
if((CMPcdr((V81)))!=Cnil){ |
339 |
goto T136;} |
goto T136;} |
340 |
goto T125; |
goto T125; |
341 |
goto T136; |
goto T136; |
342 |
T136:; |
T136:; |
343 |
{register object V73; |
{register object V82; |
344 |
V73= CMPcadr((V72)); |
V82= CMPcadr((V81)); |
345 |
{register object x= STREF(object,(V73),0),V74= (V69); |
{register object x= STREF(object,(V82),0),V83= (V78); |
346 |
while(V74!=Cnil) |
while(V83!=Cnil) |
347 |
if(x==(V74->c.c_car)){ |
if(x==(V83->c.c_car)){ |
348 |
goto T143; |
goto T143; |
349 |
}else V74=V74->c.c_cdr; |
}else V83=V83->c.c_cdr; |
350 |
goto T140;} |
goto T140;} |
351 |
goto T143; |
goto T143; |
352 |
T143:; |
T143:; |
353 |
{register object V76; |
{register object V85; |
354 |
V76= CMPcddr((V72)); |
V85= CMPcddr((V81)); |
355 |
(V72)->c.c_cdr = (V76);} |
(V81)->c.c_cdr = (V85);} |
356 |
V60= (V73); |
V69= (V82); |
357 |
goto T110;} |
goto T110;} |
358 |
goto T140; |
goto T140; |
359 |
T140:; |
T140:; |
360 |
V72= CMPcdr((V72)); |
V81= CMPcdr((V81)); |
361 |
goto T135;}} |
goto T135;}} |
362 |
goto T125; |
goto T125; |
363 |
T125:; |
T125:; |
364 |
V67= CMPcdr((V67)); |
V76= CMPcdr((V76)); |
365 |
V68= CMPcar((V67)); |
V77= CMPcar((V76)); |
366 |
goto T120;} |
goto T120;} |
367 |
goto T110; |
goto T110; |
368 |
T110:; |
T110:; |
369 |
V58= (long)(V58)-(1); |
V67= (long)(V67)-(1); |
370 |
{object V77; |
{object V86; |
371 |
V77= STREF(object,(V60),0); |
V86= STREF(object,(V69),0); |
372 |
V61= make_cons((V77),(V61));} |
V70= make_cons((V86),(V70));} |
373 |
{register object V78; |
{register object V87; |
374 |
object V79; |
object V88; |
375 |
V78= STREF(object,(V60),8); |
V87= STREF(object,(V69),8); |
376 |
V79= CMPcar((V78)); |
V88= CMPcar((V87)); |
377 |
goto T163; |
goto T163; |
378 |
T163:; |
T163:; |
379 |
if(!(((V78))==Cnil)){ |
if(!(((V87))==Cnil)){ |
380 |
goto T164;} |
goto T164;} |
381 |
goto T102; |
goto T102; |
382 |
goto T164; |
goto T164; |
383 |
T164:; |
T164:; |
384 |
{object V82; |
{object V91; |
385 |
V82= number_minus(CMPmake_fixnum((long)STREF(fixnum,V79,12)),small_fixnum(1)); |
V91= number_minus(CMPmake_fixnum((long)STREF(fixnum,V88,12)),small_fixnum(1)); |
386 |
V83= Ct; |
V92 = V88; |
387 |
STSET(fixnum,V79,12, fix((V82))); |
V93 = fix((V91)); |
388 |
V80= CMPmake_fixnum((long)fix((V82)));} |
V94= Ct; |
389 |
if(!(number_compare(small_fixnum(0),V80)==0)){ |
STSET(fixnum,V92,12, V93); |
390 |
|
V89= CMPmake_fixnum((long)V93);} |
391 |
|
if(!(number_compare(small_fixnum(0),V89)==0)){ |
392 |
goto T168;} |
goto T168;} |
393 |
V59= make_cons(V79,(V59)); |
V68= make_cons(V88,(V68)); |
394 |
goto T168; |
goto T168; |
395 |
T168:; |
T168:; |
396 |
V78= CMPcdr((V78)); |
V87= CMPcdr((V87)); |
397 |
V79= CMPcar((V78)); |
V88= CMPcar((V87)); |
398 |
goto T163;} |
goto T163;} |
399 |
goto T102; |
goto T102; |
400 |
T102:; |
T102:; |
404 |
} |
} |
405 |
/* local entry for function CPL-ERROR */ |
/* local entry for function CPL-ERROR */ |
406 |
|
|
407 |
static object LI10(object V86,object V85,object first,...) |
static object LI10(object V97,object V96,object first,...) |
408 |
{ |
{ |
409 |
va_list ap; |
va_list ap; |
410 |
int narg = VFUN_NARGS; VMB8 VMS8 VMV8 |
int narg = VFUN_NARGS; VMB8 VMS8 VMV8 |
411 |
{object V87; |
{object V98; |
412 |
object V88; |
object V99; |
413 |
object V89; |
object V100; |
414 |
va_start(ap,first); |
va_start(ap,first); |
415 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
416 |
V87= V86; |
V98= V97; |
417 |
V88= V85; |
V99= V96; |
418 |
narg= narg - 2; |
narg= narg - 2; |
419 |
V90 = list_vector_new(narg,first,ap); |
V101 = list_vector_new(narg,first,ap); |
420 |
V89= V90; |
V100= V101; |
421 |
base[0]= VV[4]; |
base[0]= VV[4]; |
422 |
base[2]= (V87); |
base[2]= (V98); |
423 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
424 |
(void) (*Lnk33)(Lclptr33); |
(void) (*Lnk33)(Lclptr33); |
425 |
vs_top=sup; |
vs_top=sup; |
427 |
goto T183;} |
goto T183;} |
428 |
base[2]= Cnil; |
base[2]= Cnil; |
429 |
base[3]= VV[5]; |
base[3]= VV[5]; |
430 |
base[5]= (V87); |
base[5]= (V98); |
431 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
432 |
(void) (*Lnk33)(Lclptr33); |
(void) (*Lnk33)(Lclptr33); |
433 |
vs_top=sup; |
vs_top=sup; |
439 |
goto T181; |
goto T181; |
440 |
goto T183; |
goto T183; |
441 |
T183:; |
T183:; |
442 |
base[1]= (V87); |
base[1]= (V98); |
443 |
goto T181; |
goto T181; |
444 |
T181:; |
T181:; |
445 |
base[3]= Cnil; |
base[3]= Cnil; |
446 |
base[4]= (V88); |
base[4]= (V99); |
447 |
{object V91; |
{object V102; |
448 |
V91= (V89); |
V102= (V100); |
449 |
vs_top=base+5; |
vs_top=base+5; |
450 |
while(V91!=Cnil) |
while(V102!=Cnil) |
451 |
{vs_push((V91)->c.c_car);V91=(V91)->c.c_cdr;} |
{vs_push((V102)->c.c_car);V102=(V102)->c.c_cdr;} |
452 |
vs_base=base+3;} |
vs_base=base+3;} |
453 |
Lformat(); |
Lformat(); |
454 |
vs_top=sup; |
vs_top=sup; |
456 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
457 |
Lerror(); |
Lerror(); |
458 |
vs_top=sup; |
vs_top=sup; |
459 |
{object V92 = vs_base[0]; |
{object V103 = vs_base[0]; |
460 |
VMR8(V92)} |
VMR8(V103)} |
461 |
va_end(ap); |
va_end(ap); |
462 |
base[0]=base[0]; |
base[0]=base[0]; |
463 |
return Cnil;} |
return Cnil;} |
464 |
} |
} |
465 |
/* local entry for function CPL-FORWARD-REFERENCED-CLASS-ERROR */ |
/* local entry for function CPL-FORWARD-REFERENCED-CLASS-ERROR */ |
466 |
|
|
467 |
static object LI11(V95,V96) |
static object LI11(V106,V107) |
468 |
|
|
469 |
register object V95;object V96; |
register object V106;object V107; |
470 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
471 |
goto TTL; |
goto TTL; |
472 |
TTL:; |
TTL:; |
473 |
{object V97; |
{object V108; |
474 |
base[1]= (V95); |
base[1]= (V106); |
475 |
base[2]= (V96); |
base[2]= (V107); |
476 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
477 |
(void) (*Lnk34)(); |
(void) (*Lnk34)(); |
478 |
vs_top=sup; |
vs_top=sup; |
479 |
V100= vs_base[0]; |
V111= vs_base[0]; |
480 |
{object V98; |
{object V109; |
481 |
object V99= CMPcdr(V100); |
object V110= CMPcdr(V111); |
482 |
if(V99==Cnil){ |
if(V110==Cnil){ |
483 |
V97= Cnil; |
V108= Cnil; |
484 |
goto T194;} |
goto T194;} |
485 |
base[0]=V98=MMcons(Cnil,Cnil); |
base[0]=V109=MMcons(Cnil,Cnil); |
486 |
goto T195; |
goto T195; |
487 |
T195:; |
T195:; |
488 |
base[1]= (V99->c.c_car); |
base[1]= (V110->c.c_car); |
489 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
490 |
L12(base); |
L12(base); |
491 |
vs_top=sup; |
vs_top=sup; |
492 |
(V98->c.c_car)= vs_base[0]; |
(V109->c.c_car)= vs_base[0]; |
493 |
if((V99=MMcdr(V99))==Cnil){ |
if((V110=MMcdr(V110))==Cnil){ |
494 |
V97= base[0]; |
V108= base[0]; |
495 |
goto T194;} |
goto T194;} |
496 |
V98=MMcdr(V98)=MMcons(Cnil,Cnil); |
V109=MMcdr(V109)=MMcons(Cnil,Cnil); |
497 |
goto T195;} |
goto T195;} |
498 |
goto T194; |
goto T194; |
499 |
T194:; |
T194:; |
500 |
base[0]= (V96); |
V112 = (V106); |
501 |
|
base[0]= (V107); |
502 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
503 |
L12(base); |
L12(base); |
504 |
vs_top=sup; |
vs_top=sup; |
505 |
V101= vs_base[0]; |
V113= vs_base[0]; |
506 |
base[0]= (V96); |
base[0]= (V107); |
507 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
508 |
L12(base); |
L12(base); |
509 |
vs_top=sup; |
vs_top=sup; |
510 |
V102= vs_base[0]; |
V114= vs_base[0]; |
511 |
if((CMPcdr((V97)))!=Cnil){ |
if((CMPcdr((V108)))!=Cnil){ |
512 |
goto T207;} |
goto T207;} |
513 |
base[0]= Cnil; |
base[0]= Cnil; |
514 |
base[1]= VV[7]; |
base[1]= VV[7]; |
515 |
base[3]= (V95); |
base[3]= (V106); |
516 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
517 |
L12(base); |
L12(base); |
518 |
vs_top=sup; |
vs_top=sup; |
520 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
521 |
Lformat(); |
Lformat(); |
522 |
vs_top=sup; |
vs_top=sup; |
523 |
V103= vs_base[0]; |
V115= vs_base[0]; |
524 |
goto T205; |
goto T205; |
525 |
goto T207; |
goto T207; |
526 |
T207:; |
T207:; |
527 |
base[0]= Cnil; |
base[0]= Cnil; |
528 |
base[1]= VV[8]; |
base[1]= VV[8]; |
529 |
base[3]= (V95); |
base[3]= (V106); |
530 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
531 |
L12(base); |
L12(base); |
532 |
vs_top=sup; |
vs_top=sup; |
533 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
534 |
base[4]= Cnil; |
base[4]= Cnil; |
535 |
base[5]= VV[9]; |
base[5]= VV[9]; |
536 |
base[7]= (V97); |
base[7]= (V108); |
537 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
538 |
Lbutlast(); |
Lbutlast(); |
539 |
vs_top=sup; |
vs_top=sup; |
542 |
Lformat(); |
Lformat(); |
543 |
vs_top=sup; |
vs_top=sup; |
544 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
545 |
base[5]= (V97); |
base[5]= (V108); |
546 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
547 |
Llast(); |
Llast(); |
548 |
vs_top=sup; |
vs_top=sup; |
549 |
V104= vs_base[0]; |
V116= vs_base[0]; |
550 |
base[4]= CMPcar(V104); |
base[4]= CMPcar(V116); |
551 |
vs_top=(vs_base=base+0)+5; |
vs_top=(vs_base=base+0)+5; |
552 |
Lformat(); |
Lformat(); |
553 |
vs_top=sup; |
vs_top=sup; |
554 |
V103= vs_base[0]; |
V115= vs_base[0]; |
555 |
goto T205; |
goto T205; |
556 |
T205:; |
T205:; |
557 |
{object V105 = (VFUN_NARGS=5,(*(LnkLI35))((V95),VV[6],V101,V102,V103)); |
{object V117 = (VFUN_NARGS=5,(*(LnkLI35))(V112,VV[6],V113,V114,V115)); |
558 |
VMR9(V105)}} |
VMR9(V117)}} |
559 |
base[0]=base[0]; |
base[0]=base[0]; |
560 |
return Cnil; |
return Cnil; |
561 |
} |
} |
565 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
566 |
register object *VOL sup=base+VM10; VC10 |
register object *VOL sup=base+VM10; VC10 |
567 |
vs_check; |
vs_check; |
568 |
{VOL object V106; |
{VOL object V118; |
569 |
check_arg(2); |
check_arg(2); |
570 |
V106=(base[0]); |
V118=(base[0]); |
571 |
vs_top=sup; |
vs_top=sup; |
572 |
goto TTL; |
goto TTL; |
573 |
TTL:; |
TTL:; |
577 |
{nlj_active=FALSE;frs_pop(); |
{nlj_active=FALSE;frs_pop(); |
578 |
return;} |
return;} |
579 |
else{ |
else{ |
580 |
base[3]= (V106); |
base[3]= (V118); |
581 |
base[4]= make_cons((V106),Cnil); |
base[4]= make_cons((V118),Cnil); |
582 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
583 |
L14(base); |
L14(base); |
584 |
frs_pop(); |
frs_pop(); |
588 |
} |
} |
589 |
/* local entry for function CPL-INCONSISTENT-ERROR */ |
/* local entry for function CPL-INCONSISTENT-ERROR */ |
590 |
|
|
591 |
static object LI15(V109,V110) |
static object LI15(V121,V122) |
592 |
|
|
593 |
object V109;object V110; |
object V121;object V122; |
594 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
595 |
goto TTL; |
goto TTL; |
596 |
TTL:; |
TTL:; |
597 |
{object V111; |
{object V123; |
598 |
V111= (*(LnkLI36))((V110)); |
V123= (*(LnkLI36))((V122)); |
599 |
if((CMPcdr((V111)))==Cnil){ |
V124 = (V121); |
600 |
|
if((CMPcdr((V123)))==Cnil){ |
601 |
goto T230;} |
goto T230;} |
602 |
V112= VV[12]; |
V125= VV[12]; |
603 |
goto T228; |
goto T228; |
604 |
goto T230; |
goto T230; |
605 |
T230:; |
T230:; |
606 |
V112= VV[13]; |
V125= VV[13]; |
607 |
goto T228; |
goto T228; |
608 |
T228:; |
T228:; |
609 |
if((CMPcdr((V111)))==Cnil){ |
if((CMPcdr((V123)))==Cnil){ |
610 |
goto T234;} |
goto T234;} |
611 |
V113= VV[14]; |
V126= VV[14]; |
612 |
goto T232; |
goto T232; |
613 |
goto T234; |
goto T234; |
614 |
T234:; |
T234:; |
615 |
V113= VV[15]; |
V126= VV[15]; |
616 |
goto T232; |
goto T232; |
617 |
T232:; |
T232:; |
618 |
{object V115; |
{object V128; |
619 |
V115= (V111); |
V128= (V123); |
620 |
vs_top=base+0; |
vs_top=base+0; |
621 |
while(V115!=Cnil) |
while(V128!=Cnil) |
622 |
{vs_push((V115)->c.c_car);V115=(V115)->c.c_cdr;} |
{vs_push((V128)->c.c_car);V128=(V128)->c.c_cdr;} |
623 |
vs_base=base+0;} |
vs_base=base+0;} |
624 |
Lappend(); |
Lappend(); |
625 |
vs_top=sup; |
vs_top=sup; |
626 |
V114= vs_base[0]; |
V127= vs_base[0]; |
627 |
V116= (*(LnkLI37))(V114); |
V129= (*(LnkLI37))(V127); |
628 |
{object V117 = (VFUN_NARGS=5,(*(LnkLI35))((V109),VV[11],V112,V113,/* INLINE-ARGS */V116)); |
{object V130 = (VFUN_NARGS=5,(*(LnkLI35))(V124,VV[11],V125,V126,/* INLINE-ARGS */V129)); |
629 |
VMR11(V117)}} |
VMR11(V130)}} |
630 |
base[0]=base[0]; |
base[0]=base[0]; |
631 |
return Cnil; |
return Cnil; |
632 |
} |
} |
633 |
/* local entry for function FORMAT-CYCLE-REASONS */ |
/* local entry for function FORMAT-CYCLE-REASONS */ |
634 |
|
|
635 |
static object LI16(V119) |
static object LI16(V132) |
636 |
|
|
637 |
object V119; |
object V132; |
638 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
639 |
goto TTL; |
goto TTL; |
640 |
TTL:; |
TTL:; |
641 |
{object V120; |
{object V133; |
642 |
object V121= (V119); |
object V134= (V132); |
643 |
if(V121==Cnil){ |
if(V134==Cnil){ |
644 |
{object V122 = Cnil; |
{object V135 = Cnil; |
645 |
VMR12(V122)}} |
VMR12(V135)}} |
646 |
base[0]=V120=MMcons(Cnil,Cnil); |
base[0]=V133=MMcons(Cnil,Cnil); |
647 |
goto T238; |
goto T238; |
648 |
T238:; |
T238:; |
649 |
{register object V123; |
{register object V136; |
650 |
V123= (V121->c.c_car); |
V136= (V134->c.c_car); |
651 |
{object V124= CMPcaddr((V123)); |
{object V137= CMPcaddr((V136)); |
652 |
if((V124!= VV[19]))goto T240; |
if((V137!= VV[19]))goto T240; |
653 |
base[1]= Cnil; |
base[1]= Cnil; |
654 |
base[2]= VV[16]; |
base[2]= VV[16]; |
655 |
base[4]= CMPcadr((V123)); |
base[4]= CMPcadr((V136)); |
656 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
657 |
L17(base); |
L17(base); |
658 |
vs_top=sup; |
vs_top=sup; |
659 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
660 |
base[5]= CMPcar((V123)); |
base[5]= CMPcar((V136)); |
661 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
662 |
L17(base); |
L17(base); |
663 |
vs_top=sup; |
vs_top=sup; |
665 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
666 |
Lformat(); |
Lformat(); |
667 |
vs_top=sup; |
vs_top=sup; |
668 |
(V120->c.c_car)= vs_base[0]; |
(V133->c.c_car)= vs_base[0]; |
669 |
goto T239; |
goto T239; |
670 |
goto T240; |
goto T240; |
671 |
T240:; |
T240:; |
672 |
if((V124!= VV[20]))goto T247; |
if((V137!= VV[20]))goto T247; |
673 |
base[1]= Cnil; |
base[1]= Cnil; |
674 |
base[2]= VV[17]; |
base[2]= VV[17]; |
675 |
base[4]= CMPcadr((V123)); |
base[4]= CMPcadr((V136)); |
676 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
677 |
L17(base); |
L17(base); |
678 |
vs_top=sup; |
vs_top=sup; |
679 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
680 |
base[5]= CMPcar((V123)); |
base[5]= CMPcar((V136)); |
681 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
682 |
L17(base); |
L17(base); |
683 |
vs_top=sup; |
vs_top=sup; |
684 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
685 |
base[6]= CMPcadddr((V123)); |
base[6]= CMPcadddr((V136)); |
686 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
687 |
L17(base); |
L17(base); |
688 |
vs_top=sup; |
vs_top=sup; |
690 |
vs_top=(vs_base=base+1)+5; |
vs_top=(vs_base=base+1)+5; |
691 |
Lformat(); |
Lformat(); |
692 |
vs_top=sup; |
vs_top=sup; |
693 |
(V120->c.c_car)= vs_base[0]; |
(V133->c.c_car)= vs_base[0]; |
694 |
goto T239; |
goto T239; |
695 |
goto T247; |
goto T247; |
696 |
T247:; |
T247:; |
697 |
FEerror("The ECASE key value ~s is illegal.",1,V124); |
FEerror("The ECASE key value ~s is illegal.",1,V137); |
698 |
(V120->c.c_car)= Cnil; |
(V133->c.c_car)= Cnil; |
699 |
goto T239;}} |
goto T239;}} |
700 |
goto T239; |
goto T239; |
701 |
T239:; |
T239:; |
702 |
if((V121=MMcdr(V121))==Cnil){ |
if((V134=MMcdr(V134))==Cnil){ |
703 |
{object V125 = base[0]; |
{object V138 = base[0]; |
704 |
VMR12(V125)}} |
VMR12(V138)}} |
705 |
V120=MMcdr(V120)=MMcons(Cnil,Cnil); |
V133=MMcdr(V133)=MMcons(Cnil,Cnil); |
706 |
goto T238;} |
goto T238;} |
707 |
base[0]=base[0]; |
base[0]=base[0]; |
708 |
return Cnil; |
return Cnil; |
709 |
} |
} |
710 |
/* local entry for function FIND-CYCLE-REASONS */ |
/* local entry for function FIND-CYCLE-REASONS */ |
711 |
|
|
712 |
static object LI21(V127) |
static object LI21(V140) |
713 |
|
|
714 |
object V127; |
object V140; |
715 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
716 |
goto TTL; |
goto TTL; |
717 |
TTL:; |
TTL:; |
718 |
base[0]= (V127); |
base[0]= (V140); |
719 |
base[1]= Cnil; |
base[1]= Cnil; |
720 |
base[2]= Cnil; |
base[2]= Cnil; |
721 |
{register object V128; |
{register object V141; |
722 |
object V129; |
object V142; |
723 |
V128= base[0]; |
V141= base[0]; |
724 |
V129= CMPcar((V128)); |
V142= CMPcar((V141)); |
725 |
goto T260; |
goto T260; |
726 |
T260:; |
T260:; |
727 |
if(!(((V128))==Cnil)){ |
if(!(((V141))==Cnil)){ |
728 |
goto T261;} |
goto T261;} |
729 |
goto T256; |
goto T256; |
730 |
goto T261; |
goto T261; |
731 |
T261:; |
T261:; |
732 |
if(((long)STREF(fixnum,(V129),12))==0){ |
if(((long)STREF(fixnum,(V142),12))==0){ |
733 |
goto T265;} |
goto T265;} |
734 |
base[4]= make_cons((V129),Cnil); |
base[4]= make_cons((V142),Cnil); |
735 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
736 |
L22(base); |
L22(base); |
737 |
vs_top=sup; |
vs_top=sup; |
738 |
goto T265; |
goto T265; |
739 |
T265:; |
T265:; |
740 |
V128= CMPcdr((V128)); |
V141= CMPcdr((V141)); |
741 |
V129= CMPcar((V128)); |
V142= CMPcar((V141)); |
742 |
goto T260;} |
goto T260;} |
743 |
goto T256; |
goto T256; |
744 |
T256:; |
T256:; |
745 |
{object V130 = base[2]; |
{object V143 = base[2]; |
746 |
VMR13(V130)} |
VMR13(V143)} |
747 |
base[0]=base[0]; |
base[0]=base[0]; |
748 |
return Cnil; |
return Cnil; |
749 |
} |
} |
754 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
755 |
register object *sup=base+VM14; VC14 |
register object *sup=base+VM14; VC14 |
756 |
vs_check; |
vs_check; |
757 |
{object V131; |
{object V144; |
758 |
check_arg(1); |
check_arg(1); |
759 |
V131=(base[0]); |
V144=(base[0]); |
760 |
vs_top=sup; |
vs_top=sup; |
761 |
goto TTL; |
goto TTL; |
762 |
TTL:; |
TTL:; |
763 |
{register object V132; |
{register object V145; |
764 |
V132= Cnil; |
V145= Cnil; |
765 |
{object V133; |
{object V146; |
766 |
object V134; |
object V147; |
767 |
V133= (V131); |
V146= (V144); |
768 |
V134= CMPcdr((V133)); |
V147= CMPcdr((V146)); |
769 |
goto T278; |
goto T278; |
770 |
T278:; |
T278:; |
771 |
if(((V134))!=Cnil){ |
if(((V147))!=Cnil){ |
772 |
goto T279;} |
goto T279;} |
773 |
goto T274; |
goto T274; |
774 |
goto T279; |
goto T279; |
775 |
T279:; |
T279:; |
776 |
{register object V135; |
{register object V148; |
777 |
register object V136; |
register object V149; |
778 |
V135= CMPcar((V133)); |
V148= CMPcar((V146)); |
779 |
V136= CMPcar((V134)); |
V149= CMPcar((V147)); |
780 |
{register object x= (V136),V137= STREF(object,(V135),4); |
{register object x= (V149),V150= STREF(object,(V148),4); |
781 |
while(V137!=Cnil) |
while(V150!=Cnil) |
782 |
if(x==(V137->c.c_car)){ |
if(x==(V150->c.c_car)){ |
783 |
goto T288; |
goto T288; |
784 |
}else V137=V137->c.c_cdr; |
}else V150=V150->c.c_cdr; |
785 |
goto T287;} |
goto T287;} |
786 |
goto T288; |
goto T288; |
787 |
T288:; |
T288:; |
788 |
{object V138; |
{object V151; |
789 |
V138= list(3,(V135),(V136),VV[19]); |
V151= list(3,(V148),(V149),VV[19]); |
790 |
V132= make_cons((V138),(V132)); |
V145= make_cons((V151),(V145)); |
791 |
goto T283;} |
goto T283;} |
792 |
goto T287; |
goto T287; |
793 |
T287:; |
T287:; |
794 |
{register object V139; |
{register object V152; |
795 |
register object V140; |
register object V153; |
796 |
V139= base0[0]; |
V152= base0[0]; |
797 |
V140= CMPcar((V139)); |
V153= CMPcar((V152)); |
798 |
goto T294; |
goto T294; |
799 |
T294:; |
T294:; |
800 |
if(!(((V139))==Cnil)){ |
if(!(((V152))==Cnil)){ |
801 |
goto T295;} |
goto T295;} |
802 |
goto T283; |
goto T283; |
803 |
goto T295; |
goto T295; |
804 |
T295:; |
T295:; |
805 |
{register object x= (V135),V143= STREF(object,(V140),4); |
V155 = (V149); |
806 |
while(V143!=Cnil) |
{register object x= (V148),V157= STREF(object,(V153),4); |
807 |
if(x==(V143->c.c_car)){ |
while(V157!=Cnil) |
808 |
V142= V143; |
if(x==(V157->c.c_car)){ |
809 |
|
V156= V157; |
810 |
goto T302; |
goto T302; |
811 |
}else V143=V143->c.c_cdr; |
}else V157=V157->c.c_cdr; |
812 |
V142= Cnil;} |
V156= Cnil;} |
813 |
goto T302; |
goto T302; |
814 |
T302:; |
T302:; |
815 |
{register object x= (V136),V141= V142; |
{register object x= V155,V154= V156; |
816 |
while(V141!=Cnil) |
while(V154!=Cnil) |
817 |
if(x==(V141->c.c_car)){ |
if(x==(V154->c.c_car)){ |
818 |
goto T301; |
goto T301; |
819 |
}else V141=V141->c.c_cdr; |
}else V154=V154->c.c_cdr; |
820 |
goto T299;} |
goto T299;} |
821 |
goto T301; |
goto T301; |
822 |
T301:; |
T301:; |
823 |
{object V144; |
{object V158; |
824 |
V144= list(4,(V135),(V136),VV[20],(V140)); |
V158= list(4,(V148),(V149),VV[20],(V153)); |
825 |
V132= make_cons((V144),(V132)); |
V145= make_cons((V158),(V145)); |
826 |
goto T283;} |
goto T283;} |
827 |
goto T299; |
goto T299; |
828 |
T299:; |
T299:; |
829 |
V139= CMPcdr((V139)); |
V152= CMPcdr((V152)); |
830 |
V140= CMPcar((V139)); |
V153= CMPcar((V152)); |
831 |
goto T294;}} |
goto T294;}} |
832 |
goto T283; |
goto T283; |
833 |
T283:; |
T283:; |
834 |
V133= (V134); |
V146= (V147); |
835 |
V134= CMPcdr((V133)); |
V147= CMPcdr((V146)); |
836 |
goto T278;} |
goto T278;} |
837 |
goto T274; |
goto T274; |
838 |
T274:; |
T274:; |
839 |
{object V145; |
{object V159; |
840 |
V145= nreverse((V132)); |
V159= nreverse((V145)); |
841 |
base0[2]= make_cons((V145),base0[2]); |
base0[2]= make_cons((V159),base0[2]); |
842 |
base[2]= base0[2]; |
base[2]= base0[2]; |
843 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
844 |
return;}} |
return;}} |
851 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
852 |
register object *sup=base+VM15; VC15 |
register object *sup=base+VM15; VC15 |
853 |
vs_check; |
vs_check; |
854 |
{object V146; |
{object V160; |
855 |
check_arg(1); |
check_arg(1); |
856 |
V146=(base[0]); |
V160=(base[0]); |
857 |
vs_top=sup; |
vs_top=sup; |
858 |
goto TTL; |
goto TTL; |
859 |
TTL:; |
TTL:; |
860 |
{register object x= CMPcar((V146)),V147= CMPcdr((V146)); |
{register object x= CMPcar((V160)),V161= CMPcdr((V160)); |
861 |
while(V147!=Cnil) |
while(V161!=Cnil) |
862 |
if(x==(V147->c.c_car)){ |
if(x==(V161->c.c_car)){ |
863 |
goto T319; |
goto T319; |
864 |
}else V147=V147->c.c_cdr; |
}else V161=V161->c.c_cdr; |
865 |
goto T318;} |
goto T318;} |
866 |
goto T319; |
goto T319; |
867 |
T319:; |
T319:; |
868 |
V149= CMPcar((V146)); |
V163= CMPcar((V160)); |
869 |
V150= nreverse((V146)); |
V164= nreverse((V160)); |
870 |
{register object x= /* INLINE-ARGS */V149,V148= /* INLINE-ARGS */V150; |
{register object x= /* INLINE-ARGS */V163,V162= /* INLINE-ARGS */V164; |
871 |
while(V148!=Cnil) |
while(V162!=Cnil) |
872 |
if(x==(V148->c.c_car)){ |
if(x==(V162->c.c_car)){ |
873 |
base[1]= V148; |
base[1]= V162; |
874 |
goto T320; |
goto T320; |
875 |
}else V148=V148->c.c_cdr; |
}else V162=V162->c.c_cdr; |
876 |
base[1]= Cnil;} |
base[1]= Cnil;} |
877 |
goto T320; |
goto T320; |
878 |
T320:; |
T320:; |
881 |
return; |
return; |
882 |
goto T318; |
goto T318; |
883 |
T318:; |
T318:; |
884 |
{register object x= CMPcar((V146)),V151= base0[1]; |
{register object x= CMPcar((V160)),V165= base0[1]; |
885 |
while(V151!=Cnil) |
while(V165!=Cnil) |
886 |
if(x==(V151->c.c_car)){ |
if(x==(V165->c.c_car)){ |
887 |
goto T322; |
goto T322; |
888 |
}else V151=V151->c.c_cdr;} |
}else V165=V165->c.c_cdr;} |
889 |
{object V152; |
{object V166; |
890 |
V152= CMPcar((V146)); |
V166= CMPcar((V160)); |
891 |
base0[1]= make_cons((V152),base0[1]);} |
base0[1]= make_cons((V166),base0[1]);} |
892 |
{register object V153; |
{register object V167; |
893 |
object V154; |
object V168; |
894 |
V153= STREF(object,CMPcar((V146)),8); |
V167= STREF(object,CMPcar((V160)),8); |
895 |
V154= CMPcar((V153)); |
V168= CMPcar((V167)); |
896 |
goto T330; |
goto T330; |
897 |
T330:; |
T330:; |
898 |
if(!(((V153))==Cnil)){ |
if(!(((V167))==Cnil)){ |
899 |
goto T331;} |
goto T331;} |
900 |
base[3]= Cnil; |
base[3]= Cnil; |
901 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
902 |
return; |
return; |
903 |
goto T331; |
goto T331; |
904 |
T331:; |
T331:; |
905 |
base[3]= make_cons((V154),(V146)); |
base[3]= make_cons((V168),(V160)); |
906 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
907 |
L22(base0); |
L22(base0); |
908 |
vs_top=sup; |
vs_top=sup; |
909 |
V153= CMPcdr((V153)); |
V167= CMPcdr((V167)); |
910 |
V154= CMPcar((V153)); |
V168= CMPcar((V167)); |
911 |
goto T330;} |
goto T330;} |
912 |
goto T322; |
goto T322; |
913 |
T322:; |
T322:; |
923 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
924 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM16; VC16 |
925 |
vs_check; |
vs_check; |
926 |
{object V155; |
{object V169; |
927 |
check_arg(1); |
check_arg(1); |
928 |
V155=(base[0]); |
V169=(base[0]); |
929 |
vs_top=sup; |
vs_top=sup; |
930 |
goto TTL; |
goto TTL; |
931 |
TTL:; |
TTL:; |
932 |
{object V156; |
{object V170; |
933 |
V156= STREF(object,(V155),0); |
V170= STREF(object,(V169),0); |
934 |
base[1]= (V156); |
base[1]= (V170); |
935 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
936 |
(void) (*Lnk33)(Lclptr33); |
(void) (*Lnk33)(Lclptr33); |
937 |
vs_top=sup; |
vs_top=sup; |
939 |
goto T344;} |
goto T344;} |
940 |
base[1]= Cnil; |
base[1]= Cnil; |
941 |
base[2]= VV[18]; |
base[2]= VV[18]; |
942 |
base[4]= (V156); |
base[4]= (V170); |
943 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
944 |
(void) (*Lnk33)(Lclptr33); |
(void) (*Lnk33)(Lclptr33); |
945 |
vs_top=sup; |
vs_top=sup; |
949 |
return; |
return; |
950 |
goto T344; |
goto T344; |
951 |
T344:; |
T344:; |
952 |
base[1]= (V156); |
base[1]= (V170); |
953 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
954 |
return;} |
return;} |
955 |
} |
} |
961 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
962 |
register object *sup=base+VM17; VC17 |
register object *sup=base+VM17; VC17 |
963 |
vs_check; |
vs_check; |
964 |
{object V157; |
{object V171; |
965 |
register object V158; |
register object V172; |
966 |
check_arg(2); |
check_arg(2); |
967 |
V157=(base[0]); |
V171=(base[0]); |
968 |
V158=(base[1]); |
V172=(base[1]); |
969 |
vs_top=sup; |
vs_top=sup; |
970 |
goto TTL; |
goto TTL; |
971 |
TTL:; |
TTL:; |
972 |
if(!(((V157))==(base0[1]))){ |
if(!(((V171))==(base0[1]))){ |
973 |
goto T352;} |
goto T352;} |
974 |
base[2]= nreverse((V158)); |
base[2]= nreverse((V172)); |
975 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
976 |
unwind(frs_sch(base0[2]),Cnil); |
unwind(frs_sch(base0[2]),Cnil); |
977 |
goto T352; |
goto T352; |
978 |
T352:; |
T352:; |
979 |
{register object V159; |
{register object V173; |
980 |
register object V160; |
register object V174; |
981 |
base[4]= (V157); |
base[4]= (V171); |
982 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
983 |
(void) (*Lnk22)(Lclptr22); |
(void) (*Lnk22)(Lclptr22); |
984 |
vs_top=sup; |
vs_top=sup; |
985 |
V159= vs_base[0]; |
V173= vs_base[0]; |
986 |
V160= CMPcar((V159)); |
V174= CMPcar((V173)); |
987 |
goto T359; |
goto T359; |
988 |
T359:; |
T359:; |
989 |
if(!(((V159))==Cnil)){ |
if(!(((V173))==Cnil)){ |
990 |
goto T360;} |
goto T360;} |
991 |
base[4]= Cnil; |
base[4]= Cnil; |
992 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
993 |
return; |
return; |
994 |
goto T360; |
goto T360; |
995 |
T360:; |
T360:; |
996 |
base[4]= (V160); |
base[4]= (V174); |
997 |
base[5]= make_cons((V160),(V158)); |
base[5]= make_cons((V174),(V172)); |
998 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
999 |
L14(base0); |
L14(base0); |
1000 |
vs_top=sup; |
vs_top=sup; |
1001 |
V159= CMPcdr((V159)); |
V173= CMPcdr((V173)); |
1002 |
V160= CMPcar((V159)); |
V174= CMPcar((V173)); |
1003 |
goto T359;} |
goto T359;} |
1004 |
} |
} |
1005 |
} |
} |
1010 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1011 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM18; VC18 |
1012 |
vs_check; |
vs_check; |
1013 |
{object V161; |
{object V175; |
1014 |
check_arg(1); |
check_arg(1); |
1015 |
V161=(base[0]); |
V175=(base[0]); |
1016 |
vs_top=sup; |
vs_top=sup; |
1017 |
goto TTL; |
goto TTL; |
1018 |
TTL:; |
TTL:; |
1019 |
base[1]= (V161); |
base[1]= (V175); |
1020 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1021 |
(void) (*Lnk33)(Lclptr33); |
(void) (*Lnk33)(Lclptr33); |
1022 |
vs_top=sup; |
vs_top=sup; |
1024 |
goto T373;} |
goto T373;} |
1025 |
base[1]= Cnil; |
base[1]= Cnil; |
1026 |
base[2]= VV[10]; |
base[2]= VV[10]; |
1027 |
base[4]= (V161); |
base[4]= (V175); |
1028 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1029 |
(void) (*Lnk33)(Lclptr33); |
(void) (*Lnk33)(Lclptr33); |
1030 |
vs_top=sup; |
vs_top=sup; |
1034 |
return; |
return; |
1035 |
goto T373; |
goto T373; |
1036 |
T373:; |
T373:; |
1037 |
base[1]= (V161); |
base[1]= (V175); |
1038 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1039 |
return; |
return; |
1040 |
} |
} |
1046 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1047 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
1048 |
vs_check; |
vs_check; |
1049 |
{object V162; |
{object V176; |
1050 |
check_arg(1); |
check_arg(1); |
1051 |
V162=(base[0]); |
V176=(base[0]); |
1052 |
vs_top=sup; |
vs_top=sup; |
1053 |
goto TTL; |
goto TTL; |
1054 |
TTL:;{object V163; |
TTL:;{object V177; |
1055 |
base[1]= (V162); |
base[1]= (V176); |
1056 |
base[2]= base0[4]; |
base[2]= base0[4]; |
1057 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1058 |
Lgethash(); |
Lgethash(); |
1059 |
vs_top=sup; |
vs_top=sup; |
1060 |
V163= vs_base[0]; |
V177= vs_base[0]; |
1061 |
if(V163==Cnil)goto T380; |
if(V177==Cnil)goto T380; |
1062 |
base[1]= V163; |
base[1]= V177; |
1063 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1064 |
return; |
return; |
1065 |
goto T380; |
goto T380; |
1066 |
T380:;} |
T380:;} |
1067 |
{object V166; |
{object V180; |
1068 |
V166= (*(LnkLI38))(); |
V180= (*(LnkLI38))(); |
1069 |
base[2]= V162; |
base[2]= V176; |
1070 |
base[3]= base0[4]; |
base[3]= base0[4]; |
1071 |
base[4]= (V166); |
base[4]= (V180); |
1072 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1073 |
siLhash_set(); |
siLhash_set(); |
1074 |
return;} |
return;} |
1081 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1082 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
1083 |
vs_check; |
vs_check; |
1084 |
{register object V167; |
{register object V181; |
1085 |
object V168; |
object V182; |
1086 |
check_arg(2); |
check_arg(2); |
1087 |
V167=(base[0]); |
V181=(base[0]); |
1088 |
V168=(base[1]); |
V182=(base[1]); |
1089 |
vs_top=sup; |
vs_top=sup; |
1090 |
goto TTL; |
goto TTL; |
1091 |
TTL:; |
TTL:; |
1092 |
base[2]= (V167); |
base[2]= (V181); |
1093 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1094 |
(void) (*Lnk39)(Lclptr39); |
(void) (*Lnk39)(Lclptr39); |
1095 |
vs_top=sup; |
vs_top=sup; |
1096 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1097 |
goto T389;} |
goto T389;} |
1098 |
base[2]= (*(LnkLI40))(base0[0],(V167)); |
base[2]= (*(LnkLI40))(base0[0],(V181)); |
1099 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1100 |
return; |
return; |
1101 |
goto T389; |
goto T389; |
1102 |
T389:; |
T389:; |
1103 |
{register object V169; |
{register object V183; |
1104 |
base[2]= (V167); |
base[2]= (V181); |
1105 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1106 |
L6(base0); |
L6(base0); |
1107 |
vs_top=sup; |
vs_top=sup; |
1108 |
V169= vs_base[0]; |
V183= vs_base[0]; |
1109 |
if((STREF(object,(V169),0))!=Cnil){ |
if((STREF(object,(V183),0))!=Cnil){ |
1110 |
goto T395;} |
goto T395;} |
1111 |
V170= Ct; |
V184 = (V183); |
1112 |
STSET(object,(V169),0, (V167)); |
V185 = (V181); |
1113 |
(void)((V167)); |
V186= Ct; |
1114 |
|
STSET(object,V184,0, V185); |
1115 |
|
(void)(V185); |
1116 |
base0[2]= CMPmake_fixnum((long)(fix(base0[2]))+(1)); |
base0[2]= CMPmake_fixnum((long)(fix(base0[2]))+(1)); |
1117 |
base0[3]= make_cons(V169,base0[3]); |
base0[3]= make_cons(V183,base0[3]); |
1118 |
{object V173; |
V188 = (V183); |
1119 |
object V174= (V168); |
{object V190; |
1120 |
if(V174==Cnil){ |
object V191= (V182); |
1121 |
V172= Cnil; |
if(V191==Cnil){ |
1122 |
|
V189= Cnil; |
1123 |
goto T403;} |
goto T403;} |
1124 |
base[2]=V173=MMcons(Cnil,Cnil); |
base[2]=V190=MMcons(Cnil,Cnil); |
1125 |
goto T404; |
goto T404; |
1126 |
T404:; |
T404:; |
1127 |
base[3]= (V174->c.c_car); |
base[3]= (V191->c.c_car); |
1128 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1129 |
L6(base0); |
L6(base0); |
1130 |
vs_top=sup; |
vs_top=sup; |
1131 |
(V173->c.c_car)= vs_base[0]; |
(V190->c.c_car)= vs_base[0]; |
1132 |
if((V174=MMcdr(V174))==Cnil){ |
if((V191=MMcdr(V191))==Cnil){ |
1133 |
V172= base[2]; |
V189= base[2]; |
1134 |
goto T403;} |
goto T403;} |
1135 |
V173=MMcdr(V173)=MMcons(Cnil,Cnil); |
V190=MMcdr(V190)=MMcons(Cnil,Cnil); |
1136 |
goto T404;} |
goto T404;} |
1137 |
goto T403; |
goto T403; |
1138 |
T403:; |
T403:; |
1139 |
V175= Ct; |
V192= Ct; |
1140 |
STSET(object,(V169),4, V172); |
STSET(object,V188,4, V189); |
1141 |
(void)(V172); |
(void)(V189); |
1142 |
{register object V176; |
{register object V193; |
1143 |
register object V177; |
register object V194; |
1144 |
V176= (V168); |
V193= (V182); |
1145 |
V177= CMPcar((V176)); |
V194= CMPcar((V193)); |
1146 |
goto T410; |
goto T410; |
1147 |
T410:; |
T410:; |
1148 |
if(!(((V176))==Cnil)){ |
if(!(((V193))==Cnil)){ |
1149 |
goto T411;} |
goto T411;} |
1150 |
base[3]= Cnil; |
base[3]= Cnil; |
1151 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1152 |
return; |
return; |
1153 |
goto T411; |
goto T411; |
1154 |
T411:; |
T411:; |
1155 |
base[3]= (V177); |
base[3]= (V194); |
1156 |
base[5]= (V177); |
base[5]= (V194); |
1157 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1158 |
(void) (*Lnk22)(Lclptr22); |
(void) (*Lnk22)(Lclptr22); |
1159 |
vs_top=sup; |
vs_top=sup; |
1161 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1162 |
L7(base0); |
L7(base0); |
1163 |
vs_top=sup; |
vs_top=sup; |
1164 |
V176= CMPcdr((V176)); |
V193= CMPcdr((V193)); |
1165 |
V177= CMPcar((V176)); |
V194= CMPcar((V193)); |
1166 |
goto T410;} |
goto T410;} |
1167 |
goto T395; |
goto T395; |
1168 |
T395:; |
T395:; |