121 |
goto T18;} |
goto T18;} |
122 |
goto T17; |
goto T17; |
123 |
T17:; |
T17:; |
124 |
V32= append(V26,(V5)); |
V32 = (V5); |
125 |
{object V33 = list(3,VV[0],(V6),list(3,VV[1],V16,make_cons(VV[2],/* INLINE-ARGS */V32))); |
V33= append(V26,V32); |
126 |
VMR2(V33)}} |
{object V34 = list(3,VV[0],(V6),list(3,VV[1],V16,make_cons(VV[2],/* INLINE-ARGS */V33))); |
127 |
|
VMR2(V34)}} |
128 |
base[0]=base[0]; |
base[0]=base[0]; |
129 |
return Cnil; |
return Cnil; |
130 |
} |
} |
131 |
/* local entry for function OPTIMIZE-ITERATE-FORM */ |
/* local entry for function OPTIMIZE-ITERATE-FORM */ |
132 |
|
|
133 |
static object LI3(V37,V38,V39) |
static object LI3(V38,V39,V40) |
134 |
|
|
135 |
object V37;object V38;object V39; |
object V38;object V39;object V40; |
136 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
137 |
goto TTL; |
goto TTL; |
138 |
TTL:; |
TTL:; |
139 |
{object V40; |
{object V41; |
140 |
object V41; |
object V42; |
141 |
register object V42; |
register object V43; |
|
object V43; |
|
142 |
object V44; |
object V44; |
143 |
object V45; |
object V45; |
144 |
object V46; |
object V46; |
145 |
object V47; |
object V47; |
146 |
|
object V48; |
147 |
base[0]=MMcons((VV[8]->s.s_dbind),Cnil); |
base[0]=MMcons((VV[8]->s.s_dbind),Cnil); |
148 |
vs_base=vs_top; |
vs_base=vs_top; |
149 |
Lgensym(); |
Lgensym(); |
150 |
vs_top=sup; |
vs_top=sup; |
151 |
V40= vs_base[0]; |
V41= vs_base[0]; |
152 |
V41= list(2,VV[7],(V40)); |
V42= list(2,VV[7],(V41)); |
153 |
{object V48; |
{object V49; |
154 |
object V49= (V37); |
object V50= (V38); |
155 |
if(V49==Cnil){ |
if(V50==Cnil){ |
156 |
V42= Cnil; |
V43= Cnil; |
157 |
goto T22;} |
goto T22;} |
158 |
base[4]=V48=MMcons(Cnil,Cnil); |
base[4]=V49=MMcons(Cnil,Cnil); |
159 |
goto T23; |
goto T23; |
160 |
T23:; |
T23:; |
161 |
{object V51; |
{object V52; |
162 |
V51= CMPcar((V49->c.c_car)); |
V52= CMPcar((V50->c.c_car)); |
163 |
if(!(type_of((V51))==t_cons||((V51))==Cnil)){ |
if(!(type_of((V52))==t_cons||((V52))==Cnil)){ |
164 |
goto T27;} |
goto T27;} |
165 |
base[5]= (V51); |
base[5]= (V52); |
166 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
167 |
Lcopy_list(); |
Lcopy_list(); |
168 |
vs_top=sup; |
vs_top=sup; |
169 |
(V48->c.c_cdr)= vs_base[0]; |
(V49->c.c_cdr)= vs_base[0]; |
170 |
goto T24; |
goto T24; |
171 |
goto T27; |
goto T27; |
172 |
T27:; |
T27:; |
173 |
(V48->c.c_cdr)= make_cons((V51),Cnil);} |
(V49->c.c_cdr)= make_cons((V52),Cnil);} |
174 |
goto T24; |
goto T24; |
175 |
T24:; |
T24:; |
176 |
while(MMcdr(V48)!=Cnil)V48=MMcdr(V48); |
while(MMcdr(V49)!=Cnil)V49=MMcdr(V49); |
177 |
if((V49=MMcdr(V49))==Cnil){ |
if((V50=MMcdr(V50))==Cnil){ |
178 |
base[4]=base[4]->c.c_cdr; |
base[4]=base[4]->c.c_cdr; |
179 |
V42= base[4]; |
V43= base[4]; |
180 |
goto T22;} |
goto T22;} |
181 |
goto T23;} |
goto T23;} |
182 |
goto T22; |
goto T22; |
183 |
T22:; |
T22:; |
|
V43= Cnil; |
|
184 |
V44= Cnil; |
V44= Cnil; |
185 |
V45= Cnil; |
V45= Cnil; |
186 |
V46= Cnil; |
V46= Cnil; |
187 |
V47= Cnil; |
V47= Cnil; |
188 |
{object V52; |
V48= Cnil; |
189 |
V52= (V42); |
{object V53; |
190 |
|
V53= (V43); |
191 |
goto T37; |
goto T37; |
192 |
T37:; |
T37:; |
193 |
if(((V52))!=Cnil){ |
if(((V53))!=Cnil){ |
194 |
goto T38;} |
goto T38;} |
195 |
goto T35; |
goto T35; |
196 |
goto T38; |
goto T38; |
197 |
T38:; |
T38:; |
198 |
{register object x= CMPcar((V52)),V53= CMPcdr((V52)); |
{register object x= CMPcar((V53)),V54= CMPcdr((V53)); |
199 |
while(V53!=Cnil) |
while(V54!=Cnil) |
200 |
if(eql(x,V53->c.c_car)){ |
if(eql(x,V54->c.c_car)){ |
201 |
goto T44; |
goto T44; |
202 |
}else V53=V53->c.c_cdr; |
}else V54=V54->c.c_cdr; |
203 |
goto T42;} |
goto T42;} |
204 |
goto T44; |
goto T44; |
205 |
T44:; |
T44:; |
206 |
base[4]= VV[9]; |
base[4]= VV[9]; |
207 |
base[5]= CMPcar((V52)); |
base[5]= CMPcar((V53)); |
208 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
209 |
(void) (*Lnk126)(); |
(void) (*Lnk126)(); |
210 |
vs_top=sup; |
vs_top=sup; |
211 |
goto T42; |
goto T42; |
212 |
T42:; |
T42:; |
213 |
V52= CMPcdr((V52)); |
V53= CMPcdr((V53)); |
214 |
goto T37;} |
goto T37;} |
215 |
goto T35; |
goto T35; |
216 |
T35:; |
T35:; |
217 |
base[4]=make_cclosure_new(LC4,Cnil,base[0],Cdata); |
base[4]=make_cclosure_new(LC4,Cnil,base[0],Cdata); |
218 |
base[4]=MMcons(base[4],base[0]); |
base[4]=MMcons(base[4],base[0]); |
219 |
{object V54; |
{object V55; |
220 |
register object V55; |
register object V56; |
221 |
V54= (V37); |
V55= (V38); |
222 |
V55= CMPcar((V54)); |
V56= CMPcar((V55)); |
223 |
goto T54; |
goto T54; |
224 |
T54:; |
T54:; |
225 |
if(!(((V54))==Cnil)){ |
if(!(((V55))==Cnil)){ |
226 |
goto T55;} |
goto T55;} |
227 |
goto T50; |
goto T50; |
228 |
goto T55; |
goto T55; |
229 |
T55:; |
T55:; |
230 |
if(!(type_of((V55))==t_cons)){ |
if(!(type_of((V56))==t_cons)){ |
231 |
goto T60;} |
goto T60;} |
232 |
if(type_of(CMPcdr((V55)))==t_cons){ |
if(type_of(CMPcdr((V56)))==t_cons){ |
233 |
goto T61;} |
goto T61;} |
234 |
goto T60; |
goto T60; |
235 |
T60:; |
T60:; |
236 |
base[6]= VV[10]; |
base[6]= VV[10]; |
237 |
base[7]= (V55); |
base[7]= (V56); |
238 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
239 |
(void) (*Lnk126)(); |
(void) (*Lnk126)(); |
240 |
vs_top=sup; |
vs_top=sup; |
241 |
goto T59; |
goto T59; |
242 |
goto T61; |
goto T61; |
243 |
T61:; |
T61:; |
244 |
if((CMPcddr((V55)))==Cnil){ |
if((CMPcddr((V56)))==Cnil){ |
245 |
goto T67;} |
goto T67;} |
246 |
base[6]= VV[11]; |
base[6]= VV[11]; |
247 |
base[7]= (V55); |
base[7]= (V56); |
248 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
249 |
(void) (*Lnk126)(); |
(void) (*Lnk126)(); |
250 |
vs_top=sup; |
vs_top=sup; |
251 |
goto T67; |
goto T67; |
252 |
T67:; |
T67:; |
253 |
{register object V56; |
{register object V57; |
|
object V57; |
|
254 |
object V58; |
object V58; |
255 |
object V59; |
object V59; |
256 |
object V60; |
object V60; |
257 |
object V61; |
object V61; |
258 |
base[6]= CMPcadr((V55)); |
object V62; |
259 |
|
base[6]= CMPcadr((V56)); |
260 |
base[7]= VV[12]; |
base[7]= VV[12]; |
261 |
base[8]= (V39); |
base[8]= (V40); |
262 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
263 |
(void) (*Lnk127)(); |
(void) (*Lnk127)(); |
264 |
if(vs_base>=vs_top){vs_top=sup;goto T76;} |
if(vs_base>=vs_top){vs_top=sup;goto T76;} |
265 |
V56= vs_base[0]; |
V57= vs_base[0]; |
266 |
vs_base++; |
vs_base++; |
267 |
if(vs_base>=vs_top){vs_top=sup;goto T77;} |
if(vs_base>=vs_top){vs_top=sup;goto T77;} |
268 |
V57= vs_base[0]; |
V58= vs_base[0]; |
269 |
vs_base++; |
vs_base++; |
270 |
if(vs_base>=vs_top){vs_top=sup;goto T78;} |
if(vs_base>=vs_top){vs_top=sup;goto T78;} |
271 |
V58= vs_base[0]; |
V59= vs_base[0]; |
272 |
vs_base++; |
vs_base++; |
273 |
if(vs_base>=vs_top){vs_top=sup;goto T79;} |
if(vs_base>=vs_top){vs_top=sup;goto T79;} |
274 |
V59= vs_base[0]; |
V60= vs_base[0]; |
275 |
vs_base++; |
vs_base++; |
276 |
if(vs_base>=vs_top){vs_top=sup;goto T80;} |
if(vs_base>=vs_top){vs_top=sup;goto T80;} |
277 |
V60= vs_base[0]; |
V61= vs_base[0]; |
278 |
vs_base++; |
vs_base++; |
279 |
if(vs_base>=vs_top){vs_top=sup;goto T81;} |
if(vs_base>=vs_top){vs_top=sup;goto T81;} |
280 |
V61= vs_base[0]; |
V62= vs_base[0]; |
281 |
vs_top=sup; |
vs_top=sup; |
282 |
goto T82; |
goto T82; |
283 |
goto T76; |
goto T76; |
284 |
T76:; |
T76:; |
285 |
V56= Cnil; |
V57= Cnil; |
286 |
goto T77; |
goto T77; |
287 |
T77:; |
T77:; |
288 |
V57= Cnil; |
V58= Cnil; |
289 |
goto T78; |
goto T78; |
290 |
T78:; |
T78:; |
291 |
V58= Cnil; |
V59= Cnil; |
292 |
goto T79; |
goto T79; |
293 |
T79:; |
T79:; |
294 |
V59= Cnil; |
V60= Cnil; |
295 |
goto T80; |
goto T80; |
296 |
T80:; |
T80:; |
297 |
V60= Cnil; |
V61= Cnil; |
298 |
goto T81; |
goto T81; |
299 |
T81:; |
T81:; |
300 |
V61= Cnil; |
V62= Cnil; |
301 |
goto T82; |
goto T82; |
302 |
T82:; |
T82:; |
303 |
{register object V62; |
{register object V63; |
|
object V63; |
|
304 |
object V64; |
object V64; |
305 |
V62= CMPcar((V55)); |
object V65; |
306 |
V63= Cnil; |
V63= CMPcar((V56)); |
307 |
V64= Cnil; |
V64= Cnil; |
308 |
if(!(type_of((V62))==t_cons||((V62))==Cnil)){ |
V65= Cnil; |
309 |
|
if(!(type_of((V63))==t_cons||((V63))==Cnil)){ |
310 |
goto T89;} |
goto T89;} |
311 |
base[7]= (V62); |
base[7]= (V63); |
312 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
313 |
Lcopy_list(); |
Lcopy_list(); |
314 |
vs_top=sup; |
vs_top=sup; |
315 |
V62= vs_base[0]; |
V63= vs_base[0]; |
316 |
goto T87; |
goto T87; |
317 |
goto T89; |
goto T89; |
318 |
T89:; |
T89:; |
319 |
V62= make_cons((V62),Cnil); |
V63= make_cons((V63),Cnil); |
320 |
goto T87; |
goto T87; |
321 |
T87:; |
T87:; |
322 |
{object V65; |
{object V66; |
323 |
V65= (((V56))==(VV[13])?Ct:Cnil); |
V66= (((V57))==(VV[13])?Ct:Cnil); |
324 |
if(((V65))==Cnil){ |
if(((V66))==Cnil){ |
325 |
goto T95;} |
goto T95;} |
326 |
goto T92; |
goto T92; |
327 |
goto T95; |
goto T95; |
328 |
T95:; |
T95:; |
329 |
V56= (VFUN_NARGS=2,(*(LnkLI128))((V56),small_fixnum(1))); |
V57= (VFUN_NARGS=2,(*(LnkLI128))((V57),small_fixnum(1))); |
330 |
if(((V56))!=Cnil){ |
if(((V57))!=Cnil){ |
331 |
goto T98;} |
goto T98;} |
332 |
{object V66; |
{object V67; |
333 |
V66= CMPcadr((V55)); |
V67= CMPcadr((V56)); |
334 |
if(!(type_of((V66))==t_cons)){ |
if(!(type_of((V67))==t_cons)){ |
335 |
goto T104;} |
goto T104;} |
336 |
base[7]= CMPcar((V66)); |
base[7]= CMPcar((V67)); |
337 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
338 |
Lfboundp(); |
Lfboundp(); |
339 |
vs_top=sup; |
vs_top=sup; |
340 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
341 |
goto T104;} |
goto T104;} |
342 |
(void)((VFUN_NARGS=3,(*(LnkLI129))(VV[14],VV[15],(V66)))); |
(void)((VFUN_NARGS=3,(*(LnkLI129))(VV[14],VV[15],(V67)))); |
343 |
goto T102; |
goto T102; |
344 |
goto T104; |
goto T104; |
345 |
T104:; |
T104:; |
346 |
(void)((VFUN_NARGS=3,(*(LnkLI129))(VV[16],VV[17],(V66)))); |
(void)((VFUN_NARGS=3,(*(LnkLI129))(VV[16],VV[17],(V67)))); |
347 |
goto T102; |
goto T102; |
348 |
T102:; |
T102:; |
349 |
V56= VV[13]; |
V57= VV[13]; |
350 |
goto T92;} |
goto T92;} |
351 |
goto T98; |
goto T98; |
352 |
T98:; |
T98:; |
353 |
V56= CMPcdr((V56)); |
V57= CMPcdr((V57)); |
354 |
{object V67; |
{object V68; |
355 |
V67= CMPcar((V56)); |
V68= CMPcar((V57)); |
356 |
V56= CMPcdr((V56)); |
V57= CMPcdr((V57)); |
357 |
V63= (V67);} |
V64= (V68);} |
358 |
if(((V58))==Cnil){ |
if(((V59))==Cnil){ |
359 |
goto T117;} |
goto T117;} |
360 |
base[7]= (V58); |
base[7]= (V59); |
361 |
base[8]= (V57); |
base[8]= (V58); |
362 |
base[9]= (V39); |
base[9]= (V40); |
363 |
base[10]= (V47); |
base[10]= (V48); |
364 |
base[11]= (base[4]->c.c_car); |
base[11]= (base[4]->c.c_car); |
365 |
vs_top=(vs_base=base+7)+5; |
vs_top=(vs_base=base+7)+5; |
366 |
(void) (*Lnk130)(); |
(void) (*Lnk130)(); |
367 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
368 |
V58= vs_base[0]; |
V59= vs_base[0]; |
369 |
vs_base++; |
vs_base++; |
370 |
}else{ |
}else{ |
371 |
V58= Cnil;} |
V59= Cnil;} |
372 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
373 |
V64= vs_base[0]; |
V65= vs_base[0]; |
374 |
}else{ |
}else{ |
375 |
V64= Cnil;} |
V65= Cnil;} |
376 |
vs_top=sup; |
vs_top=sup; |
377 |
V47= Cnil; |
V48= Cnil; |
378 |
goto T117; |
goto T117; |
379 |
T117:; |
T117:; |
380 |
{register object V68; |
{register object V69; |
|
object V69; |
|
381 |
object V70; |
object V70; |
382 |
base[7]= (V56); |
object V71; |
383 |
base[8]= (V63); |
base[7]= (V57); |
384 |
|
base[8]= (V64); |
385 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
386 |
(void) (*Lnk131)(); |
(void) (*Lnk131)(); |
387 |
if(vs_base>=vs_top){vs_top=sup;goto T132;} |
if(vs_base>=vs_top){vs_top=sup;goto T132;} |
388 |
V68= vs_base[0]; |
V69= vs_base[0]; |
389 |
vs_base++; |
vs_base++; |
390 |
if(vs_base>=vs_top){vs_top=sup;goto T133;} |
if(vs_base>=vs_top){vs_top=sup;goto T133;} |
391 |
V69= vs_base[0]; |
V70= vs_base[0]; |
392 |
vs_base++; |
vs_base++; |
393 |
if(vs_base>=vs_top){vs_top=sup;goto T134;} |
if(vs_base>=vs_top){vs_top=sup;goto T134;} |
394 |
V70= vs_base[0]; |
V71= vs_base[0]; |
395 |
vs_top=sup; |
vs_top=sup; |
396 |
goto T135; |
goto T135; |
397 |
goto T132; |
goto T132; |
398 |
T132:; |
T132:; |
399 |
V68= Cnil; |
V69= Cnil; |
400 |
goto T133; |
goto T133; |
401 |
T133:; |
T133:; |
402 |
V69= Cnil; |
V70= Cnil; |
403 |
goto T134; |
goto T134; |
404 |
T134:; |
T134:; |
405 |
V70= Cnil; |
V71= Cnil; |
406 |
goto T135; |
goto T135; |
407 |
T135:; |
T135:; |
408 |
if(((V69))==Cnil){ |
if(((V70))==Cnil){ |
409 |
goto T136;} |
goto T136;} |
410 |
V60= nconc((V60),(V69)); |
V61= nconc((V61),(V70)); |
411 |
goto T136; |
goto T136; |
412 |
T136:; |
T136:; |
413 |
if(((V60))==Cnil){ |
if(((V61))==Cnil){ |
414 |
goto T142;} |
goto T142;} |
415 |
V56= listA(4,VV[18],Cnil,make_cons(VV[19],(V60)),(V70)); |
V57= listA(4,VV[18],Cnil,make_cons(VV[19],(V61)),(V71)); |
416 |
goto T140; |
goto T140; |
417 |
goto T142; |
goto T142; |
418 |
T142:; |
T142:; |
419 |
if((CMPcdr((V70)))!=Cnil){ |
if((CMPcdr((V71)))!=Cnil){ |
420 |
goto T145;} |
goto T145;} |
421 |
V56= CMPcar((V70)); |
V57= CMPcar((V71)); |
422 |
goto T140; |
goto T140; |
423 |
goto T145; |
goto T145; |
424 |
T145:; |
T145:; |
425 |
V56= make_cons(VV[20],(V70)); |
V57= make_cons(VV[20],(V71)); |
426 |
goto T140; |
goto T140; |
427 |
T140:;} |
T140:;} |
428 |
base[7]= (V56); |
base[7]= (V57); |
429 |
base[8]= (V39); |
base[8]= (V40); |
430 |
base[9]= (V64); |
base[9]= (V65); |
431 |
base[10]= CMPcar((V63)); |
base[10]= CMPcar((V64)); |
432 |
base[11]= (V41); |
base[11]= (V42); |
433 |
base[12]= (V42); |
base[12]= (V43); |
434 |
base[13]= (V55); |
base[13]= (V56); |
435 |
vs_top=(vs_base=base+7)+7; |
vs_top=(vs_base=base+7)+7; |
436 |
(void) (*Lnk132)(); |
(void) (*Lnk132)(); |
437 |
vs_top=sup; |
vs_top=sup; |
438 |
V56= vs_base[0]; |
V57= vs_base[0]; |
439 |
if(((V56))==(VV[13])){ |
V72 = (V57); |
440 |
|
if((V72)==(VV[13])){ |
441 |
goto T92;} |
goto T92;} |
442 |
if(((V59))==Cnil){ |
if(((V60))==Cnil){ |
443 |
goto T92;} |
goto T92;} |
444 |
{object V72; |
V73 = (V45); |
445 |
object V73= (V59); |
{object V75; |
446 |
if(V73==Cnil){ |
object V76= (V60); |
447 |
V71= Cnil; |
if(V76==Cnil){ |
448 |
|
V74= Cnil; |
449 |
goto T160;} |
goto T160;} |
450 |
base[7]=V72=MMcons(Cnil,Cnil); |
base[7]=V75=MMcons(Cnil,Cnil); |
451 |
goto T161; |
goto T161; |
452 |
T161:; |
T161:; |
453 |
{object V75; |
{object V78; |
454 |
V75= CMPcar((V73->c.c_car)); |
V78= CMPcar((V76->c.c_car)); |
455 |
if(!(((V75))==(VV[21]))){ |
V79 = (V78); |
456 |
|
if(!(((V78))==(VV[21]))){ |
457 |
goto T166;} |
goto T166;} |
458 |
V77= CMPcadr((V73->c.c_car)); |
V81= CMPcadr((V76->c.c_car)); |
459 |
V78= (check_alist(V64),sublis1(V64,CMPcddr((V73->c.c_car)),&eql)); |
V82= (check_alist(V65),sublis1(V65,CMPcddr((V76->c.c_car)),&eql)); |
460 |
V76= make_cons(/* INLINE-ARGS */V77,V78); |
V80= make_cons(/* INLINE-ARGS */V81,V82); |
461 |
goto T164; |
goto T164; |
462 |
goto T166; |
goto T166; |
463 |
T166:; |
T166:; |
464 |
V76= (check_alist(V64),sublis1(V64,CMPcdr((V73->c.c_car)),&eql)); |
V80= (check_alist(V65),sublis1(V65,CMPcdr((V76->c.c_car)),&eql)); |
465 |
goto T164; |
goto T164; |
466 |
T164:; |
T164:; |
467 |
(V72->c.c_car)= make_cons((V75),V76);} |
(V75->c.c_car)= make_cons(V79,V80);} |
468 |
if((V73=MMcdr(V73))==Cnil){ |
if((V76=MMcdr(V76))==Cnil){ |
469 |
V71= base[7]; |
V74= base[7]; |
470 |
goto T160;} |
goto T160;} |
471 |
V72=MMcdr(V72)=MMcons(Cnil,Cnil); |
V75=MMcdr(V75)=MMcons(Cnil,Cnil); |
472 |
goto T161;} |
goto T161;} |
473 |
goto T160; |
goto T160; |
474 |
T160:; |
T160:; |
475 |
V44= nconc((V44),V71);} |
V45= nconc(V73,V74);} |
476 |
goto T92; |
goto T92; |
477 |
T92:; |
T92:; |
478 |
if(!(((V56))==(VV[13]))){ |
if(!(((V57))==(VV[13]))){ |
479 |
goto T169;} |
goto T169;} |
480 |
{object V81; |
{object V85; |
481 |
object V82; |
object V86; |
482 |
vs_base=vs_top; |
vs_base=vs_top; |
483 |
L4(base); |
L4(base); |
484 |
vs_top=sup; |
vs_top=sup; |
485 |
V81= vs_base[0]; |
V85= vs_base[0]; |
486 |
V82= CMPcadr((V55)); |
V86= CMPcadr((V56)); |
487 |
if(((V47))==Cnil){ |
V87 = (V85); |
488 |
|
if(((V48))==Cnil){ |
489 |
goto T178;} |
goto T178;} |
490 |
{object V85; |
{object V90; |
491 |
V85= (V47); |
V90= (V48); |
492 |
V47= Cnil; |
V48= Cnil; |
493 |
V84= (V85);} |
V89= (V90);} |
494 |
V86= append(V84,VV[23]); |
V91= append(V89,VV[23]); |
495 |
V83= make_cons(VV[20],/* INLINE-ARGS */V86); |
V88= make_cons(VV[20],/* INLINE-ARGS */V91); |
496 |
goto T176; |
goto T176; |
497 |
goto T178; |
goto T178; |
498 |
T178:; |
T178:; |
499 |
V83= (V82); |
V88= (V86); |
500 |
goto T176; |
goto T176; |
501 |
T176:; |
T176:; |
502 |
V87= list(2,(V81),V83); |
V92= list(2,V87,V88); |
503 |
V58= make_cons(/* INLINE-ARGS */V87,Cnil); |
V59= make_cons(/* INLINE-ARGS */V92,Cnil); |
504 |
V56= list(3,VV[4],(V81),list(2,VV[5],list(3,VV[6],Cnil,(V41))));} |
V57= list(3,VV[4],(V85),list(2,VV[5],list(3,VV[6],Cnil,(V42))));} |
505 |
goto T169; |
goto T169; |
506 |
T169:; |
T169:; |
507 |
{object V88; |
{object V93; |
508 |
base[8]= (V62); |
base[8]= (V63); |
509 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
510 |
Lcopy_list(); |
Lcopy_list(); |
511 |
vs_top=sup; |
vs_top=sup; |
512 |
V89= vs_base[0]; |
V94= vs_base[0]; |
513 |
V88= (*(LnkLI133))(V89,(V56)); |
V95 = (V57); |
514 |
V45= make_cons((V88),(V45));} |
V93= (*(LnkLI133))(V94,V95); |
515 |
{register object V90; |
V46= make_cons((V93),(V46));} |
516 |
register object V91; |
{register object V96; |
517 |
V90= (V62); |
register object V97; |
518 |
V91= CMPcar((V90)); |
V96= (V63); |
519 |
|
V97= CMPcar((V96)); |
520 |
goto T193; |
goto T193; |
521 |
T193:; |
T193:; |
522 |
if(!(((V90))==Cnil)){ |
if(!(((V96))==Cnil)){ |
523 |
goto T194;} |
goto T194;} |
524 |
goto T189; |
goto T189; |
525 |
goto T194; |
goto T194; |
526 |
T194:; |
T194:; |
527 |
{object V92; |
{object V98; |
528 |
V92= CMPcar((V42)); |
V98= CMPcar((V43)); |
529 |
V42= CMPcdr((V42));} |
V43= CMPcdr((V43));} |
530 |
V90= CMPcdr((V90)); |
V96= CMPcdr((V96)); |
531 |
V91= CMPcar((V90)); |
V97= CMPcar((V96)); |
532 |
goto T193;} |
goto T193;} |
533 |
goto T189; |
goto T189; |
534 |
T189:; |
T189:; |
535 |
base[7]= (V46); |
base[7]= (V47); |
536 |
base[8]= (V58); |
base[8]= (V59); |
537 |
if(((V61))==Cnil){ |
if(((V62))==Cnil){ |
538 |
goto T213;} |
goto T213;} |
539 |
V93= CMPcar((V62)); |
V99= CMPcar((V63)); |
540 |
V94= append((V61),VV[24]); |
V100= append((V62),VV[24]); |
541 |
V95= list(2,/* INLINE-ARGS */V93,make_cons(VV[20],/* INLINE-ARGS */V94)); |
V101= list(2,/* INLINE-ARGS */V99,make_cons(VV[20],/* INLINE-ARGS */V100)); |
542 |
base[9]= make_cons(/* INLINE-ARGS */V95,CMPcdr((V62))); |
base[9]= make_cons(/* INLINE-ARGS */V101,CMPcdr((V63))); |
543 |
goto T211; |
goto T211; |
544 |
goto T213; |
goto T213; |
545 |
T213:; |
T213:; |
546 |
base[9]= (V62); |
base[9]= (V63); |
547 |
goto T211; |
goto T211; |
548 |
T211:; |
T211:; |
549 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
550 |
Lnconc(); |
Lnconc(); |
551 |
vs_top=sup; |
vs_top=sup; |
552 |
V46= vs_base[0];}} |
V47= vs_base[0];}} |
553 |
goto T59; |
goto T59; |
554 |
T59:; |
T59:; |
555 |
V54= CMPcdr((V54)); |
V55= CMPcdr((V55)); |
556 |
V55= CMPcar((V54)); |
V56= CMPcar((V55)); |
557 |
goto T54;} |
goto T54;} |
558 |
goto T50; |
goto T50; |
559 |
T50:; |
T50:; |
560 |
{register object V96; |
{register object V102; |
561 |
V96= (V38); |
V102= (V39); |
562 |
goto T222; |
goto T222; |
563 |
T222:; |
T222:; |
564 |
if(!(type_of((V96))==t_cons)){ |
if(!(type_of((V102))==t_cons)){ |
565 |
goto T224;} |
goto T224;} |
566 |
if(!(type_of(CMPcar((V96)))==t_cons)){ |
if(!(type_of(CMPcar((V102)))==t_cons)){ |
567 |
goto T224;} |
goto T224;} |
568 |
if((CMPcaar((V96)))==(VV[19])){ |
if((CMPcaar((V102)))==(VV[19])){ |
569 |
goto T223;} |
goto T223;} |
570 |
goto T224; |
goto T224; |
571 |
T224:; |
T224:; |
572 |
if(((V96))==((V38))){ |
if(((V102))==((V39))){ |
573 |
goto T220;} |
goto T220;} |
574 |
base[4]= (V38); |
base[4]= (V39); |
575 |
base[5]= (V96); |
base[5]= (V102); |
576 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
577 |
Lldiff(); |
Lldiff(); |
578 |
vs_top=sup; |
vs_top=sup; |
579 |
V43= vs_base[0]; |
V44= vs_base[0]; |
580 |
V38= (V96); |
V39= (V102); |
581 |
goto T220; |
goto T220; |
582 |
goto T223; |
goto T223; |
583 |
T223:; |
T223:; |
584 |
V96= CMPcdr((V96)); |
V102= CMPcdr((V102)); |
585 |
goto T222;} |
goto T222;} |
586 |
goto T220; |
goto T220; |
587 |
T220:; |
T220:; |
588 |
if((V44)==Cnil){ |
V103 = (V47); |
589 |
|
if((V45)==Cnil){ |
590 |
base[4]= Cnil; |
base[4]= Cnil; |
591 |
goto T242;} |
goto T242;} |
592 |
V98= make_cons(VV[19],(V44)); |
V105= make_cons(VV[19],(V45)); |
593 |
base[4]= make_cons(/* INLINE-ARGS */V98,Cnil); |
base[4]= make_cons(/* INLINE-ARGS */V105,Cnil); |
594 |
goto T242; |
goto T242; |
595 |
T242:; |
T242:; |
596 |
base[5]= (V43); |
base[5]= (V44); |
597 |
base[6]= (V47); |
base[6]= (V48); |
598 |
V99= nreverse((V45)); |
V106= nreverse((V46)); |
599 |
V100= append(/* INLINE-ARGS */V99,(V38)); |
V107 = (V39); |
600 |
V101= make_cons(VV[2],/* INLINE-ARGS */V100); |
V108= append(/* INLINE-ARGS */V106,V107); |
601 |
base[7]= make_cons(/* INLINE-ARGS */V101,Cnil); |
V109= make_cons(VV[2],/* INLINE-ARGS */V108); |
602 |
|
base[7]= make_cons(/* INLINE-ARGS */V109,Cnil); |
603 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
604 |
Lappend(); |
Lappend(); |
605 |
vs_top=sup; |
vs_top=sup; |
606 |
V97= vs_base[0]; |
V104= vs_base[0]; |
607 |
{object V102 = list(3,VV[0],(V40),listA(3,VV[1],(V46),V97)); |
{object V110 = list(3,VV[0],(V41),listA(3,VV[1],V103,V104)); |
608 |
VMR3(V102)}} |
VMR3(V110)}} |
609 |
base[0]=base[0]; |
base[0]=base[0]; |
610 |
return Cnil; |
return Cnil; |
611 |
} |
} |
615 |
{register object *base=vs_base; |
{register object *base=vs_base; |
616 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
617 |
vs_check; |
vs_check; |
618 |
{object V103; |
{object V111; |
619 |
object V104; |
object V112; |
620 |
object V105; |
object V113; |
621 |
check_arg(3); |
check_arg(3); |
622 |
V103=(base[0]); |
V111=(base[0]); |
623 |
V104=(base[1]); |
V112=(base[1]); |
624 |
V105=(base[2]); |
V113=(base[2]); |
625 |
vs_top=sup; |
vs_top=sup; |
626 |
goto TTL; |
goto TTL; |
627 |
TTL:; |
TTL:; |
628 |
{register object V106; |
{register object V114; |
629 |
register object V107; |
register object V115; |
630 |
register object V108; |
register object V116; |
631 |
register object V109; |
register object V117; |
632 |
register object V110; |
register object V118; |
633 |
V106= (V103); |
V114= (V111); |
634 |
V107= Cnil; |
V115= Cnil; |
635 |
V108= Cnil; |
V116= Cnil; |
636 |
V109= Cnil; |
V117= Cnil; |
637 |
V110= Cnil; |
V118= Cnil; |
638 |
goto T247; |
goto T247; |
639 |
T247:; |
T247:; |
640 |
base[3]= (V106); |
base[3]= (V114); |
641 |
base[4]= (V105); |
base[4]= (V113); |
642 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
643 |
Lmacroexpand_1(); |
Lmacroexpand_1(); |
644 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
645 |
V106= vs_base[0]; |
V114= vs_base[0]; |
646 |
vs_base++; |
vs_base++; |
647 |
}else{ |
}else{ |
648 |
V106= Cnil;} |
V114= Cnil;} |
649 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
650 |
V107= vs_base[0]; |
V115= vs_base[0]; |
651 |
}else{ |
}else{ |
652 |
V107= Cnil;} |
V115= Cnil;} |
653 |
vs_top=sup; |
vs_top=sup; |
654 |
{register object V111; |
{register object V119; |
655 |
V111= (((type_of((V106))==t_cons?Ct:Cnil))==Cnil?Ct:Cnil); |
V119= (((type_of((V114))==t_cons?Ct:Cnil))==Cnil?Ct:Cnil); |
656 |
if(((V111))==Cnil){ |
if(((V119))==Cnil){ |
657 |
goto T256;} |
goto T256;} |
658 |
goto T253; |
goto T253; |
659 |
goto T256; |
goto T256; |
660 |
T256:; |
T256:; |
661 |
V108= CMPcar((V106)); |
V116= CMPcar((V114)); |
662 |
if(!(type_of((V108))==t_symbol)){ |
V120 = (V116); |
663 |
|
if(!(type_of(V120)==t_symbol)){ |
664 |
goto T259;} |
goto T259;} |
665 |
{object V112= (V108); |
{object V121= (V116); |
666 |
if((V112!= VV[18]) |
if((V121!= VV[18]) |
667 |
&& (V112!= VV[1]))goto T262; |
&& (V121!= VV[1]))goto T262; |
668 |
V109= CMPcadr((V106)); |
V117= CMPcadr((V114)); |
669 |
V110= CMPcddr((V106)); |
V118= CMPcddr((V114)); |
670 |
goto T248; |
goto T248; |
671 |
goto T262; |
goto T262; |
672 |
T262:; |
T262:; |
673 |
goto T253;} |
goto T253;} |
674 |
goto T259; |
goto T259; |
675 |
T259:; |
T259:; |
676 |
if(!(type_of((V108))==t_cons)){ |
if(!(type_of((V116))==t_cons)){ |
677 |
goto T253;} |
goto T253;} |
678 |
if(!((CMPcar((V108)))==(VV[6]))){ |
if(!((CMPcar((V116)))==(VV[6]))){ |
679 |
goto T253;} |
goto T253;} |
680 |
base[3]= VV[134]; |
base[3]= VV[134]; |
681 |
V109= CMPcadr((V108)); |
V117= CMPcadr((V116)); |
682 |
base[4]= (V109); |
base[4]= (V117); |
683 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
684 |
(void) (*Lnk135)(); |
(void) (*Lnk135)(); |
685 |
vs_top=sup; |
vs_top=sup; |
686 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
687 |
goto T253;} |
goto T253;} |
688 |
if(!(((long)length(CMPcadr((V106))))==((long)length((V109))))){ |
if(!(((long)length(CMPcadr((V114))))==((long)length((V117))))){ |
689 |
goto T253;} |
goto T253;} |
690 |
if((CMPcddr((V106)))!=Cnil){ |
if((CMPcddr((V114)))!=Cnil){ |
691 |
goto T253;} |
goto T253;} |
692 |
V110= CMPcddr((V108)); |
V118= CMPcddr((V116)); |
693 |
{object V113; |
{object V122; |
694 |
object V114= (V109); |
object V123= (V117); |
695 |
object V115= CMPcadr((V106)); |
object V124= CMPcadr((V114)); |
696 |
if(V114==Cnil||V115==Cnil){ |
if(V123==Cnil||V124==Cnil){ |
697 |
V109= Cnil; |
V117= Cnil; |
698 |
goto T283;} |
goto T283;} |
699 |
base[3]=V113=MMcons(Cnil,Cnil); |
base[3]=V122=MMcons(Cnil,Cnil); |
700 |
goto T284; |
goto T284; |
701 |
T284:; |
T284:; |
702 |
(V113->c.c_car)= list(2,(V114->c.c_car),(V115->c.c_car)); |
(V122->c.c_car)= list(2,(V123->c.c_car),(V124->c.c_car)); |
703 |
if((V114=MMcdr(V114))==Cnil||(V115=MMcdr(V115))==Cnil){ |
if((V123=MMcdr(V123))==Cnil||(V124=MMcdr(V124))==Cnil){ |
704 |
V109= base[3]; |
V117= base[3]; |
705 |
goto T283;} |
goto T283;} |
706 |
V113=MMcdr(V113)=MMcons(Cnil,Cnil); |
V122=MMcdr(V122)=MMcons(Cnil,Cnil); |
707 |
goto T284;} |
goto T284;} |
708 |
goto T283; |
goto T283; |
709 |
T283:; |
T283:; |
710 |
V108= VV[18]; |
V116= VV[18]; |
711 |
goto T248;} |
goto T248;} |
712 |
goto T253; |
goto T253; |
713 |
T253:; |
T253:; |
714 |
if(((V107))==Cnil){ |
if(((V115))==Cnil){ |
715 |
goto T289;} |
goto T289;} |
716 |
goto T247; |
goto T247; |
717 |
goto T289; |
goto T289; |
718 |
T289:; |
T289:; |
719 |
base[3]= (V106); |
base[3]= (V114); |
720 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
721 |
return; |
return; |
722 |
goto T248; |
goto T248; |
723 |
T248:; |
T248:; |
724 |
{object V116; |
{object V125; |
725 |
object V117; |
object V126; |
726 |
object V118; |
object V127; |
727 |
V116= (*(LnkLI136))((V109)); |
V125= (*(LnkLI136))((V117)); |
728 |
V117= Cnil; |
V126= Cnil; |
729 |
V118= Cnil; |
V127= Cnil; |
730 |
{object V119; |
{object V128; |
731 |
object V120; |
object V129; |
732 |
object V121; |
object V130; |
733 |
base[3]= (V110); |
base[3]= (V118); |
734 |
base[4]= (V116); |
base[4]= (V125); |
735 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
736 |
(void) (*Lnk131)(); |
(void) (*Lnk131)(); |
737 |
if(vs_base>=vs_top){vs_top=sup;goto T296;} |
if(vs_base>=vs_top){vs_top=sup;goto T296;} |
738 |
V119= vs_base[0]; |
V128= vs_base[0]; |
739 |
vs_base++; |
vs_base++; |
740 |
if(vs_base>=vs_top){vs_top=sup;goto T297;} |
if(vs_base>=vs_top){vs_top=sup;goto T297;} |
741 |
V120= vs_base[0]; |
V129= vs_base[0]; |
742 |
vs_base++; |
vs_base++; |
743 |
if(vs_base>=vs_top){vs_top=sup;goto T298;} |
if(vs_base>=vs_top){vs_top=sup;goto T298;} |
744 |
V121= vs_base[0]; |
V130= vs_base[0]; |
745 |
vs_top=sup; |
vs_top=sup; |
746 |
goto T299; |
goto T299; |
747 |
goto T296; |
goto T296; |
748 |
T296:; |
T296:; |
749 |
V119= Cnil; |
V128= Cnil; |
750 |
goto T297; |
goto T297; |
751 |
T297:; |
T297:; |
752 |
V120= Cnil; |
V129= Cnil; |
753 |
goto T298; |
goto T298; |
754 |
T298:; |
T298:; |
755 |
V121= Cnil; |
V130= Cnil; |
756 |
goto T299; |
goto T299; |
757 |
T299:; |
T299:; |
758 |
V118= (*(LnkLI137))((V116),(V119)); |
V127= (*(LnkLI137))((V125),(V128)); |
759 |
if(((V118))==Cnil){ |
if(((V127))==Cnil){ |
760 |
goto T301;} |
goto T301;} |
761 |
base[3]= (VV[138]->s.s_gfdef); |
base[3]= (VV[138]->s.s_gfdef); |
762 |
base[4]= (V118); |
base[4]= (V127); |
763 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
764 |
(void) (*Lnk135)(); |
(void) (*Lnk135)(); |
765 |
vs_top=sup; |
vs_top=sup; |
766 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
767 |
goto T307;} |
goto T307;} |
768 |
V122= VV[16]; |
V131= VV[16]; |
769 |
goto T305; |
goto T305; |
770 |
goto T307; |
goto T307; |
771 |
T307:; |
T307:; |
772 |
V122= VV[14]; |
V131= VV[14]; |
773 |
goto T305; |
goto T305; |
774 |
T305:; |
T305:; |
775 |
(void)((VFUN_NARGS=5,(*(LnkLI129))(V122,VV[26],(V104),(V103),(V118)))); |
V132 = (V112); |
776 |
|
V133 = (V111); |
777 |
|
V134 = (V127); |
778 |
|
(void)((VFUN_NARGS=5,(*(LnkLI129))(V131,VV[26],V132,V133,V134))); |
779 |
base[3]= VV[13]; |
base[3]= VV[13]; |
780 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
781 |
return; |
return; |
782 |
goto T301; |
goto T301; |
783 |
T301:; |
T301:; |
784 |
if(type_of((V121))==t_cons){ |
if(type_of((V130))==t_cons){ |
785 |
goto T313;} |
goto T313;} |
786 |
base[3]= Cnil; |
base[3]= Cnil; |
787 |
goto T311; |
goto T311; |
788 |
goto T313; |
goto T313; |
789 |
T313:; |
T313:; |
790 |
if((CMPcdr((V121)))!=Cnil){ |
if((CMPcdr((V130)))!=Cnil){ |
791 |
goto T316;} |
goto T316;} |
792 |
base[3]= CMPcar((V121)); |
base[3]= CMPcar((V130)); |
793 |
goto T311; |
goto T311; |
794 |
goto T316; |
goto T316; |
795 |
T316:; |
T316:; |
796 |
base[4]= (V121); |
base[4]= (V130); |
797 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
798 |
Lbutlast(); |
Lbutlast(); |
799 |
vs_top=sup; |
vs_top=sup; |
800 |
V117= vs_base[0]; |
V126= vs_base[0]; |
801 |
base[4]= (V121); |
base[4]= (V130); |
802 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
803 |
Llast(); |
Llast(); |
804 |
vs_top=sup; |
vs_top=sup; |
805 |
V123= vs_base[0]; |
V135= vs_base[0]; |
806 |
base[3]= CMPcar(V123); |
base[3]= CMPcar(V135); |
807 |
goto T311; |
goto T311; |
808 |
T311:; |
T311:; |
809 |
base[4]= (V108); |
base[4]= (V116); |
810 |
base[5]= (V109); |
base[5]= (V117); |
811 |
base[6]= (V119); |
base[6]= (V128); |
812 |
base[7]= (V120); |
base[7]= (V129); |
813 |
base[8]= (V117); |
base[8]= (V126); |
814 |
vs_top=(vs_base=base+3)+6; |
vs_top=(vs_base=base+3)+6; |
815 |
return;}} |
return;}} |
816 |
base[3]= Cnil; |
base[3]= Cnil; |
820 |
} |
} |
821 |
/* local entry for function VARIABLES-FROM-LET */ |
/* local entry for function VARIABLES-FROM-LET */ |
822 |
|
|
823 |
static object LI6(V125) |
static object LI6(V137) |
824 |
|
|
825 |
object V125; |
object V137; |
826 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
827 |
goto TTL; |
goto TTL; |
828 |
TTL:; |
TTL:; |
829 |
{object V126; |
{object V138; |
830 |
object V127= (V125); |
object V139= (V137); |
831 |
if(V127==Cnil){ |
if(V139==Cnil){ |
832 |
{object V128 = Cnil; |
{object V140 = Cnil; |
833 |
VMR5(V128)}} |
VMR5(V140)}} |
834 |
base[0]=V126=MMcons(Cnil,Cnil); |
base[0]=V138=MMcons(Cnil,Cnil); |
835 |
goto T328; |
goto T328; |
836 |
T328:; |
T328:; |
837 |
if(!(type_of((V127->c.c_car))==t_cons)){ |
if(!(type_of((V139->c.c_car))==t_cons)){ |
838 |
goto T331;} |
goto T331;} |
839 |
(V126->c.c_car)= CMPcar((V127->c.c_car)); |
(V138->c.c_car)= CMPcar((V139->c.c_car)); |
840 |
goto T329; |
goto T329; |
841 |
goto T331; |
goto T331; |
842 |
T331:; |
T331:; |
843 |
(V126->c.c_car)= (V127->c.c_car); |
(V138->c.c_car)= (V139->c.c_car); |
844 |
goto T329; |
goto T329; |
845 |
T329:; |
T329:; |
846 |
if((V127=MMcdr(V127))==Cnil){ |
if((V139=MMcdr(V139))==Cnil){ |
847 |
{object V130 = base[0]; |
{object V142 = base[0]; |
848 |
VMR5(V130)}} |
VMR5(V142)}} |
849 |
V126=MMcdr(V126)=MMcons(Cnil,Cnil); |
V138=MMcdr(V138)=MMcons(Cnil,Cnil); |
850 |
goto T328;} |
goto T328;} |
851 |
base[0]=base[0]; |
base[0]=base[0]; |
852 |
return Cnil; |
return Cnil; |
857 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
858 |
register object *VOL sup=base+VM6; VC6 |
register object *VOL sup=base+VM6; VC6 |
859 |
vs_check; |
vs_check; |
860 |
{VOL object V131; |
{VOL object V143; |
861 |
check_arg(7); |
check_arg(7); |
862 |
V131=(base[0]); |
V143=(base[0]); |
863 |
base[1]=MMcons(base[1],Cnil); |
base[1]=MMcons(base[1],Cnil); |
864 |
base[2]=MMcons(base[2],base[1]); |
base[2]=MMcons(base[2],base[1]); |
865 |
base[3]=MMcons(base[3],base[2]); |
base[3]=MMcons(base[3],base[2]); |
874 |
{nlj_active=FALSE;frs_pop(); |
{nlj_active=FALSE;frs_pop(); |
875 |
return;} |
return;} |
876 |
else{ |
else{ |
877 |
base[8]= (V131); |
base[8]= (V143); |
878 |
base[9]= (base[1]->c.c_car); |
base[9]= (base[1]->c.c_car); |
879 |
base[10]= |
base[10]= |
880 |
make_cclosure_new(LC38,Cnil,base[7],Cdata); |
make_cclosure_new(LC38,Cnil,base[7],Cdata); |
891 |
{register object *base=vs_base; |
{register object *base=vs_base; |
892 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM7; VC7 |
893 |
vs_check; |
vs_check; |
894 |
{register object V132; |
{register object V144; |
895 |
object V133; |
object V145; |
896 |
check_arg(2); |
check_arg(2); |
897 |
V132=(base[0]); |
V144=(base[0]); |
898 |
V133=(base[1]); |
V145=(base[1]); |
899 |
vs_top=sup; |
vs_top=sup; |
900 |
goto TTL; |
goto TTL; |
901 |
TTL:; |
TTL:; |
902 |
{register object V134; |
{register object V146; |
903 |
register object V135; |
register object V147; |
904 |
register object V136; |
register object V148; |
905 |
V134= Cnil; |
V146= Cnil; |
906 |
V135= Cnil; |
V147= Cnil; |
907 |
V136= Cnil; |
V148= Cnil; |
908 |
goto T337; |
goto T337; |
909 |
T337:; |
T337:; |
910 |
if(((V132))==Cnil){ |
if(((V144))==Cnil){ |
911 |
goto T340;} |
goto T340;} |
912 |
V136= CMPcar((V132)); |
V148= CMPcar((V144)); |
913 |
if(!(type_of((V136))==t_cons)){ |
V149 = (V148); |
914 |
|
if(!(type_of(V149)==t_cons)){ |
915 |
goto T340;} |
goto T340;} |
916 |
if((CMPcar((V136)))==(VV[19])){ |
if((CMPcar((V148)))==(VV[19])){ |
917 |
goto T339;} |
goto T339;} |
918 |
goto T340; |
goto T340; |
919 |
T340:; |
T340:; |
920 |
base[2]= (V134); |
base[2]= (V146); |
921 |
base[3]= (V135); |
base[3]= (V147); |
922 |
base[4]= (V132); |
base[4]= (V144); |
923 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
924 |
return; |
return; |
925 |
goto T339; |
goto T339; |
926 |
T339:; |
T339:; |
927 |
{ |
{ |
928 |
object V137= CMPcdr((V136)); |
object V150= CMPcdr((V148)); |
929 |
if(V137==Cnil){ |
if(V150==Cnil){ |
930 |
goto T350;} |
goto T350;} |
931 |
goto T351; |
goto T351; |
932 |
T351:; |
T351:; |
933 |
{register object V138; |
{register object V151; |
934 |
V138= (V137->c.c_car); |
V151= (V150->c.c_car); |
935 |
{object V139= CMPcar((V138)); |
{object V152= CMPcar((V151)); |
936 |
if((V139!= VV[140]) |
if((V152!= VV[140]) |
937 |
&& (V139!= VV[141]) |
&& (V152!= VV[141]) |
938 |
&& (V139!= VV[142]))goto T353; |
&& (V152!= VV[142]))goto T353; |
939 |
V135= make_cons(V138,(V135)); |
V147= make_cons(V151,(V147)); |
940 |
goto T352; |
goto T352; |
941 |
goto T353; |
goto T353; |
942 |
T353:; |
T353:; |
943 |
{object V141; |
{object V154; |
944 |
register object V142; |
register object V155; |
945 |
object V143; |
object V156; |
946 |
if(!((CMPcar((V138)))==(VV[21]))){ |
if(!((CMPcar((V151)))==(VV[21]))){ |
947 |
goto T357;} |
goto T357;} |
948 |
V141= CMPcddr((V138)); |
V154= CMPcddr((V151)); |
949 |
goto T355; |
goto T355; |
950 |
goto T357; |
goto T357; |
951 |
T357:; |
T357:; |
952 |
V141= CMPcdr((V138)); |
V154= CMPcdr((V151)); |
953 |
goto T355; |
goto T355; |
954 |
T355:; |
T355:; |
955 |
base[4]= (V133); |
base[4]= (V145); |
956 |
base[5]= (V141); |
base[5]= (V154); |
957 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
958 |
(void) (*Lnk143)(); |
(void) (*Lnk143)(); |
959 |
vs_top=sup; |
vs_top=sup; |
960 |
V142= vs_base[0]; |
V155= vs_base[0]; |
961 |
V143= Cnil; |
V156= Cnil; |
962 |
if(((V142))!=Cnil){ |
if(((V155))!=Cnil){ |
963 |
goto T364;} |
goto T364;} |
964 |
V135= make_cons(V138,(V135)); |
V147= make_cons(V151,(V147)); |
965 |
goto T352; |
goto T352; |
966 |
goto T364; |
goto T364; |
967 |
T364:; |
T364:; |
968 |
base[4]= (V141); |
base[4]= (V154); |
969 |
base[5]= (V142); |
base[5]= (V155); |
970 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
971 |
(void) (*Lnk144)(); |
(void) (*Lnk144)(); |
972 |
vs_top=sup; |
vs_top=sup; |
973 |
V143= vs_base[0]; |
V156= vs_base[0]; |
974 |
if(((V143))!=Cnil){ |
if(((V156))!=Cnil){ |
975 |
goto T368;} |
goto T368;} |
976 |
V134= make_cons(V138,(V134)); |
V146= make_cons(V151,(V146)); |
977 |
goto T352; |
goto T352; |
978 |
goto T368; |
goto T368; |
979 |
T368:; |
T368:; |
980 |
{object V146; |
{object V159; |
981 |
if((CMPcar((V138)))==(VV[21])){ |
if((CMPcar((V151)))==(VV[21])){ |
982 |
goto T376;} |
goto T376;} |
983 |
V147= Cnil; |
V160= Cnil; |
984 |
goto T375; |
goto T375; |
985 |
goto T376; |
goto T376; |
986 |
T376:; |
T376:; |
987 |
V147= make_cons(CMPcadr((V138)),Cnil); |
V160= make_cons(CMPcadr((V151)),Cnil); |
988 |
goto T375; |
goto T375; |
989 |
T375:; |
T375:; |
990 |
V146= make_cons(VV[21],V147); |
V159= make_cons(VV[21],V160); |
991 |
{object V148; |
{object V161; |
992 |
V148= append((V146),(V143)); |
V161= append((V159),(V156)); |
993 |
V135= make_cons((V148),(V135));} |
V147= make_cons((V161),(V147));} |
994 |
{object V149; |
{object V162; |
995 |
V149= append((V146),(V142)); |
V162= append((V159),(V155)); |
996 |
V134= make_cons((V149),(V134));}}}}} |
V146= make_cons((V162),(V146));}}}}} |
997 |
goto T352; |
goto T352; |
998 |
T352:; |
T352:; |
999 |
if((V137=MMcdr(V137))==Cnil){ |
if((V150=MMcdr(V150))==Cnil){ |
1000 |
(void)(CMPcdr((V136))); |
(void)(CMPcdr((V148))); |
1001 |
goto T350;} |
goto T350;} |
1002 |
goto T351;} |
goto T351;} |
1003 |
goto T350; |
goto T350; |
1004 |
T350:; |
T350:; |
1005 |
{object V150; |
{object V163; |
1006 |
V150= CMPcar((V132)); |
V163= CMPcar((V144)); |
1007 |
V132= CMPcdr((V132));} |
V144= CMPcdr((V144));} |
1008 |
goto T337;} |
goto T337;} |
1009 |
} |
} |
1010 |
} |
} |
1011 |
/* local entry for function EXTRACT-SPECIAL-BINDINGS */ |
/* local entry for function EXTRACT-SPECIAL-BINDINGS */ |
1012 |
|
|
1013 |
static object LI9(V153,V154) |
static object LI9(V166,V167) |
1014 |
|
|
1015 |
register object V153;object V154; |
register object V166;object V167; |
1016 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
1017 |
goto TTL; |
goto TTL; |
1018 |
TTL:; |
TTL:; |
1019 |
{register object V155; |
{register object V168; |
1020 |
base[0]= (VV[138]->s.s_gfdef); |
base[0]= (VV[138]->s.s_gfdef); |
1021 |
base[1]= (V153); |
base[1]= (V166); |
1022 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1023 |
(void) (*Lnk145)(); |
(void) (*Lnk145)(); |
1024 |
vs_top=sup; |
vs_top=sup; |
1025 |
V155= vs_base[0]; |
V168= vs_base[0]; |
1026 |
{register object V156; |
{register object V169; |
1027 |
register object V157; |
register object V170; |
1028 |
V156= (V154); |
V169= (V167); |
1029 |
V157= CMPcar((V156)); |
V170= CMPcar((V169)); |
1030 |
goto T394; |
goto T394; |
1031 |
T394:; |
T394:; |
1032 |
if(!(((V156))==Cnil)){ |
if(!(((V169))==Cnil)){ |
1033 |
goto T395;} |
goto T395;} |
1034 |
goto T390; |
goto T390; |
1035 |
goto T395; |
goto T395; |
1036 |
T395:; |
T395:; |
1037 |
if(!((CMPcar((V157)))==(VV[30]))){ |
if(!((CMPcar((V170)))==(VV[30]))){ |
1038 |
goto T399;} |
goto T399;} |
1039 |
base[1]= (V155); |
base[1]= (V168); |
1040 |
base[3]= (V153); |
base[3]= (V166); |
1041 |
base[4]= CMPcdr((V157)); |
base[4]= CMPcdr((V170)); |
1042 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1043 |
(void) (*Lnk143)(); |
(void) (*Lnk143)(); |
1044 |
vs_top=sup; |
vs_top=sup; |
1046 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1047 |
(void) (*Lnk146)(); |
(void) (*Lnk146)(); |
1048 |
vs_top=sup; |
vs_top=sup; |
1049 |
V155= vs_base[0]; |
V168= vs_base[0]; |
1050 |
goto T399; |
goto T399; |
1051 |
T399:; |
T399:; |
1052 |
V156= CMPcdr((V156)); |
V169= CMPcdr((V169)); |
1053 |
V157= CMPcar((V156)); |
V170= CMPcar((V169)); |
1054 |
goto T394;} |
goto T394;} |
1055 |
goto T390; |
goto T390; |
1056 |
T390:; |
T390:; |
1057 |
{object V158 = (V155); |
{object V171 = (V168); |
1058 |
VMR8(V158)}} |
VMR8(V171)}} |
1059 |
base[0]=base[0]; |
base[0]=base[0]; |
1060 |
return Cnil; |
return Cnil; |
1061 |
} |
} |
1062 |
/* local entry for function FUNCTION-LAMBDA-P */ |
/* local entry for function FUNCTION-LAMBDA-P */ |
1063 |
|
|
1064 |
static object LI10(object V159,object first,...) |
static object LI10(object V172,object first,...) |
1065 |
{ |
{ |
1066 |
va_list ap; |
va_list ap; |
1067 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
int narg = VFUN_NARGS; VMB9 VMS9 VMV9 |
1068 |
{register object V160; |
{register object V173; |
1069 |
object V161; |
object V174; |
1070 |
va_start(ap,first); |
va_start(ap,first); |
1071 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
1072 |
V160= V159; |
V173= V172; |
1073 |
narg = narg - 1; |
narg = narg - 1; |
1074 |
if (narg <= 0) goto T412; |
if (narg <= 0) goto T412; |
1075 |
else { |
else { |
1076 |
V161= first;} |
V174= first;} |
1077 |
--narg; goto T413; |
--narg; goto T413; |
1078 |
goto T412; |
goto T412; |
1079 |
T412:; |
T412:; |
1080 |
V161= Cnil; |
V174= Cnil; |
1081 |
goto T413; |
goto T413; |
1082 |
T413:; |
T413:; |
1083 |
{object V162; |
{object V175; |
1084 |
object V163; |
object V176; |
1085 |
V162= Cnil; |
V175= Cnil; |
1086 |
V163= Cnil; |
V176= Cnil; |
1087 |
if(type_of((V160))==t_cons){ |
if(type_of((V173))==t_cons){ |
1088 |
goto T415;} |
goto T415;} |
1089 |
{object V164 = Cnil; |
{object V177 = Cnil; |
1090 |
VMR9(V164)} |
VMR9(V177)} |
1091 |
goto T415; |
goto T415; |
1092 |
T415:; |
T415:; |
1093 |
if((CMPcar((V160)))==(VV[5])){ |
if((CMPcar((V173)))==(VV[5])){ |
1094 |
goto T417;} |
goto T417;} |
1095 |
{object V165 = Cnil; |
{object V178 = Cnil; |
1096 |
VMR9(V165)} |
VMR9(V178)} |
1097 |
goto T417; |
goto T417; |
1098 |
T417:; |
T417:; |
1099 |
V160= CMPcdr((V160)); |
V173= CMPcdr((V173)); |
1100 |
if(type_of((V160))==t_cons){ |
V179 = (V173); |
1101 |
|
if(type_of(V179)==t_cons){ |
1102 |
goto T419;} |
goto T419;} |
1103 |
{object V166 = Cnil; |
{object V180 = Cnil; |
1104 |
VMR9(V166)} |
VMR9(V180)} |
1105 |
goto T419; |
goto T419; |
1106 |
T419:; |
T419:; |
1107 |
if((CMPcdr((V160)))==Cnil){ |
if((CMPcdr((V173)))==Cnil){ |
1108 |
goto T422;} |
goto T422;} |
1109 |
{object V167 = Cnil; |
{object V181 = Cnil; |
1110 |
VMR9(V167)} |
VMR9(V181)} |
1111 |
goto T422; |
goto T422; |
1112 |
T422:; |
T422:; |
1113 |
V160= CMPcar((V160)); |
V173= CMPcar((V173)); |
1114 |
if(type_of((V160))==t_cons){ |
V182 = (V173); |
1115 |
|
if(type_of(V182)==t_cons){ |
1116 |
goto T424;} |
goto T424;} |
1117 |
{object V168 = Cnil; |
{object V183 = Cnil; |
1118 |
VMR9(V168)} |
VMR9(V183)} |
1119 |
goto T424; |
goto T424; |
1120 |
T424:; |
T424:; |
1121 |
if((CMPcar((V160)))==(VV[6])){ |
if((CMPcar((V173)))==(VV[6])){ |
1122 |
goto T427;} |
goto T427;} |
1123 |
{object V169 = Cnil; |
{object V184 = Cnil; |
1124 |
VMR9(V169)} |
VMR9(V184)} |
1125 |
goto T427; |
goto T427; |
1126 |
T427:; |
T427:; |
1127 |
V163= CMPcdr((V160)); |
V176= CMPcdr((V173)); |
1128 |
if(type_of((V163))==t_cons){ |
V185 = (V176); |
1129 |
|
if(type_of(V185)==t_cons){ |
1130 |
goto T429;} |
goto T429;} |
1131 |
{object V170 = Cnil; |
{object V186 = Cnil; |
1132 |
VMR9(V170)} |
VMR9(V186)} |
1133 |
goto T429; |
goto T429; |
1134 |
T429:; |
T429:; |
1135 |
V162= CMPcar((V163)); |
V175= CMPcar((V176)); |
1136 |
if(type_of((V162))==t_cons||((V162))==Cnil){ |
V187 = (V175); |
1137 |
|
if(type_of(V187)==t_cons||(V187)==Cnil){ |
1138 |
goto T432;} |
goto T432;} |
1139 |
{object V171 = Cnil; |
{object V188 = Cnil; |
1140 |
VMR9(V171)} |
VMR9(V188)} |
1141 |
goto T432; |
goto T432; |
1142 |
T432:; |
T432:; |
1143 |
if(!(((V161))==Cnil)){ |
if(!(((V174))==Cnil)){ |
1144 |
goto T437;} |
goto T437;} |
1145 |
goto T435; |
goto T435; |
1146 |
goto T437; |
goto T437; |
1147 |
T437:; |
T437:; |
1148 |
V172 = CMPmake_fixnum((long)length((V162))); |
V189 = CMPmake_fixnum((long)length((V175))); |
1149 |
if(eql(V172,(V161))){ |
if(eql(V189,(V174))){ |
1150 |
goto T435;} |
goto T435;} |
1151 |
{object V173 = Cnil; |
{object V190 = Cnil; |
1152 |
VMR9(V173)} |
VMR9(V190)} |
1153 |
goto T435; |
goto T435; |
1154 |
T435:; |
T435:; |
1155 |
{object V174 = (V160); |
{object V191 = (V173); |
1156 |
VMR9(V174)}} |
VMR9(V191)}} |
1157 |
va_end(ap); |
va_end(ap); |
1158 |
return Cnil;} |
return Cnil;} |
1159 |
} |
} |
1163 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1164 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
1165 |
vs_check; |
vs_check; |
1166 |
{object V175; |
{object V192; |
1167 |
object V176; |
object V193; |
1168 |
object V177; |
object V194; |
1169 |
object V178; |
object V195; |
1170 |
object V179; |
object V196; |
1171 |
if(vs_top-vs_base<4) too_few_arguments(); |
if(vs_top-vs_base<4) too_few_arguments(); |
1172 |
if(vs_top-vs_base>5) too_many_arguments(); |
if(vs_top-vs_base>5) too_many_arguments(); |
1173 |
V175=(base[0]); |
V192=(base[0]); |
1174 |
V176=(base[1]); |
V193=(base[1]); |
1175 |
V177=(base[2]); |
V194=(base[2]); |
1176 |
V178=(base[3]); |
V195=(base[3]); |
1177 |
vs_base=vs_base+4; |
vs_base=vs_base+4; |
1178 |
if(vs_base>=vs_top){vs_top=sup;goto T439;} |
if(vs_base>=vs_top){vs_top=sup;goto T439;} |
1179 |
V179=(base[4]); |
V196=(base[4]); |
1180 |
vs_top=sup; |
vs_top=sup; |
1181 |
goto T440; |
goto T440; |
1182 |
goto T439; |
goto T439; |
1183 |
T439:; |
T439:; |
1184 |
V179= Cnil; |
V196= Cnil; |
1185 |
goto T440; |
goto T440; |
1186 |
T440:; |
T440:; |
1187 |
{register object V180; |
{register object V197; |
1188 |
V180= Cnil; |
V197= Cnil; |
1189 |
{object V181; |
{object V198; |
1190 |
object V182= (V175); |
object V199= (V192); |
1191 |
if(V182==Cnil){ |
if(V199==Cnil){ |
1192 |
base[5]= Cnil; |
base[5]= Cnil; |
1193 |
goto T442;} |
goto T442;} |
1194 |
base[6]=V181=MMcons(Cnil,Cnil); |
base[6]=V198=MMcons(Cnil,Cnil); |
1195 |
goto T443; |
goto T443; |
1196 |
T443:; |
T443:; |
1197 |
{register object V183; |
{register object V200; |
1198 |
V183= (V182->c.c_car); |
V200= (V199->c.c_car); |
1199 |
{object V184; |
{object V201; |
1200 |
object V185; |
object V202; |
1201 |
if(type_of((V183))==t_cons){ |
if(type_of((V200))==t_cons){ |
1202 |
goto T447;} |
goto T447;} |
1203 |
V184= Cnil; |
V201= Cnil; |
1204 |
goto T445; |
goto T445; |
1205 |
goto T447; |
goto T447; |
1206 |
T447:; |
T447:; |
1207 |
if(((V176))==(VV[18])){ |
if(((V193))==(VV[18])){ |
1208 |
goto T449;} |
goto T449;} |
1209 |
if(((V180))!=Cnil){ |
if(((V197))!=Cnil){ |
1210 |
goto T450;} |
goto T450;} |
1211 |
goto T449; |
goto T449; |
1212 |
T449:; |
T449:; |
1213 |
V184= CMPcadr((V183)); |
V201= CMPcadr((V200)); |
1214 |
goto T445; |
goto T445; |
1215 |
goto T450; |
goto T450; |
1216 |
T450:; |
T450:; |
1217 |
base[7]= CMPcadr((V183)); |
base[7]= CMPcadr((V200)); |
1218 |
base[8]= (V180); |
base[8]= (V197); |
1219 |
base[9]= (V177); |
base[9]= (V194); |
1220 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
1221 |
(void) (*Lnk147)(); |
(void) (*Lnk147)(); |
1222 |
vs_top=sup; |
vs_top=sup; |
1223 |
V184= vs_base[0]; |
V201= vs_base[0]; |
1224 |
goto T445; |
goto T445; |
1225 |
T445:; |
T445:; |
1226 |
if(((V179))==Cnil){ |
if(((V196))==Cnil){ |
1227 |
goto T459;} |
goto T459;} |
1228 |
V185= ( |
V202= ( |
1229 |
(type_of((V179)) == t_sfun ?(*(((V179))->sfn.sfn_self)): |
(type_of((V196)) == t_sfun ?(*(((V196))->sfn.sfn_self)): |
1230 |
(fcall.argd=0,type_of((V179))==t_vfun) ? |
(fcall.argd=0,type_of((V196))==t_vfun) ? |
1231 |
(*(((V179))->sfn.sfn_self)): |
(*(((V196))->sfn.sfn_self)): |
1232 |
(fcall.fun=((V179)),fcalln))()); |
(fcall.fun=((V196)),fcalln))()); |
1233 |
goto T457; |
goto T457; |
1234 |
goto T459; |
goto T459; |
1235 |
T459:; |
T459:; |
1236 |
vs_base=vs_top; |
vs_base=vs_top; |
1237 |
Lgensym(); |
Lgensym(); |
1238 |
vs_top=sup; |
vs_top=sup; |
1239 |
V185= vs_base[0]; |
V202= vs_base[0]; |
1240 |
goto T457; |
goto T457; |
1241 |
T457:; |
T457:; |
1242 |
{object V186; |
{object V203; |
1243 |
if(!(type_of((V183))==t_cons)){ |
if(!(type_of((V200))==t_cons)){ |
1244 |
goto T465;} |
goto T465;} |
1245 |
V187= CMPcar((V183)); |
V204= CMPcar((V200)); |
1246 |
goto T463; |
goto T463; |
1247 |
goto T465; |
goto T465; |
1248 |
T465:; |
T465:; |
1249 |
V187= (V183); |
V204= (V200); |
1250 |
goto T463; |
goto T463; |
1251 |
T463:; |
T463:; |
1252 |
V186= make_cons(V187,(V185)); |
V205 = (V202); |
1253 |
V180= make_cons((V186),(V180));} |
V203= make_cons(V204,V205); |
1254 |
if(((V178))==Cnil){ |
V197= make_cons((V203),(V197));} |
1255 |
|
if(((V195))==Cnil){ |
1256 |
goto T468;} |
goto T468;} |
1257 |
V188= make_cons((V184),Cnil); |
V206= make_cons((V201),Cnil); |
1258 |
V189= append((V178),/* INLINE-ARGS */V188); |
V207= append((V195),/* INLINE-ARGS */V206); |
1259 |
V184= make_cons(VV[20],/* INLINE-ARGS */V189); |
V201= make_cons(VV[20],/* INLINE-ARGS */V207); |
1260 |
V178= Cnil; |
V195= Cnil; |
1261 |
goto T468; |
goto T468; |
1262 |
T468:; |
T468:; |
1263 |
(V181->c.c_car)= list(2,(V185),(V184));}} |
(V198->c.c_car)= list(2,(V202),(V201));}} |
1264 |
if((V182=MMcdr(V182))==Cnil){ |
if((V199=MMcdr(V199))==Cnil){ |
1265 |
base[5]= base[6]; |
base[5]= base[6]; |
1266 |
goto T442;} |
goto T442;} |
1267 |
V181=MMcdr(V181)=MMcons(Cnil,Cnil); |
V198=MMcdr(V198)=MMcons(Cnil,Cnil); |
1268 |
goto T443;} |
goto T443;} |
1269 |
goto T442; |
goto T442; |
1270 |
T442:; |
T442:; |
1271 |
base[6]= (V180); |
base[6]= (V197); |
1272 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1273 |
return;} |
return;} |
1274 |
} |
} |
1279 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1280 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
1281 |
vs_check; |
vs_check; |
1282 |
{object V190; |
{object V208; |
1283 |
check_arg(3); |
check_arg(3); |
1284 |
V190=(base[0]); |
V208=(base[0]); |
1285 |
base[1]=MMcons(base[1],Cnil); |
base[1]=MMcons(base[1],Cnil); |
1286 |
base[2]=MMcons(base[2],base[1]); |
base[2]=MMcons(base[2],base[1]); |
1287 |
vs_top=sup; |
vs_top=sup; |
1288 |
base[3]= (V190); |
base[3]= (V208); |
1289 |
base[4]= (base[2]->c.c_car); |
base[4]= (base[2]->c.c_car); |
1290 |
base[5]= |
base[5]= |
1291 |
make_cclosure_new(LC39,Cnil,base[2],Cdata); |
make_cclosure_new(LC39,Cnil,base[2],Cdata); |
1296 |
} |
} |
1297 |
/* local entry for function MV-SETQ */ |
/* local entry for function MV-SETQ */ |
1298 |
|
|
1299 |
static object LI13(V193,V194) |
static object LI13(V211,V212) |
1300 |
|
|
1301 |
register object V193;register object V194; |
register object V211;register object V212; |
1302 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
1303 |
goto TTL; |
goto TTL; |
1304 |
TTL:; |
TTL:; |
1305 |
if(((V193))!=Cnil){ |
if(((V211))!=Cnil){ |
1306 |
goto T479;} |
goto T479;} |
1307 |
{object V195 = (V194); |
{object V213 = (V212); |
1308 |
VMR12(V195)} |
VMR12(V213)} |
1309 |
goto T479; |
goto T479; |
1310 |
T479:; |
T479:; |
1311 |
if(type_of((V193))==t_cons){ |
if(type_of((V211))==t_cons){ |
1312 |
goto T482;} |
goto T482;} |
1313 |
{object V196 = list(3,VV[3],(V193),(V194)); |
{object V214 = list(3,VV[3],(V211),(V212)); |
1314 |
VMR12(V196)} |
VMR12(V214)} |
1315 |
goto T482; |
goto T482; |
1316 |
T482:; |
T482:; |
1317 |
if(!(type_of((V194))==t_cons||((V194))==Cnil)){ |
if(!(type_of((V212))==t_cons||((V212))==Cnil)){ |
1318 |
goto T485;} |
goto T485;} |
1319 |
if(!((CMPcar((V194)))==(VV[31]))){ |
if(!((CMPcar((V212)))==(VV[31]))){ |
1320 |
goto T485;} |
goto T485;} |
1321 |
{object V197; |
{object V215; |
1322 |
V197= CMPcar((V194)); |
V215= CMPcar((V212)); |
1323 |
V194= CMPcdr((V194));} |
V212= CMPcdr((V212));} |
1324 |
{object V199; |
{object V217; |
1325 |
object V200= (V193); |
object V218= (V211); |
1326 |
if(V200==Cnil){ |
if(V218==Cnil){ |
1327 |
V198= Cnil; |
V216= Cnil; |
1328 |
goto T493;} |
goto T493;} |
1329 |
base[0]=V199=MMcons(Cnil,Cnil); |
base[0]=V217=MMcons(Cnil,Cnil); |
1330 |
goto T494; |
goto T494; |
1331 |
T494:; |
T494:; |
1332 |
V202= CMPcar(V200); |
V220= CMPcar(V218); |
1333 |
if((CMPcdr(V200))!=Cnil){ |
if((CMPcdr(V218))!=Cnil){ |
1334 |
goto T497;} |
goto T497;} |
1335 |
if((CMPcdr((V194)))!=Cnil){ |
if((CMPcdr((V212)))!=Cnil){ |
1336 |
goto T498;} |
goto T498;} |
1337 |
goto T497; |
goto T497; |
1338 |
T497:; |
T497:; |
1339 |
{object V204; |
{object V222; |
1340 |
V204= CMPcar((V194)); |
V222= CMPcar((V212)); |
1341 |
V194= CMPcdr((V194)); |
V212= CMPcdr((V212)); |
1342 |
V203= (V204); |
V221= (V222); |
1343 |
goto T496;} |
goto T496;} |
1344 |
goto T498; |
goto T498; |
1345 |
T498:; |
T498:; |
1346 |
V203= make_cons(VV[33],(V194)); |
V221= make_cons(VV[33],(V212)); |
1347 |
goto T496; |
goto T496; |
1348 |
T496:; |
T496:; |
1349 |
(V199->c.c_cdr)= list(2,/* INLINE-ARGS */V202,V203); |
(V217->c.c_cdr)= list(2,/* INLINE-ARGS */V220,V221); |
1350 |
while(MMcdr(V199)!=Cnil)V199=MMcdr(V199); |
while(MMcdr(V217)!=Cnil)V217=MMcdr(V217); |
1351 |
if((V200=MMcdr(V200))==Cnil){ |
if((V218=MMcdr(V218))==Cnil){ |
1352 |
base[0]=base[0]->c.c_cdr; |
base[0]=base[0]->c.c_cdr; |
1353 |
V198= base[0]; |
V216= base[0]; |
1354 |
goto T493;} |
goto T493;} |
1355 |
goto T494;} |
goto T494;} |
1356 |
goto T493; |
goto T493; |
1357 |
T493:; |
T493:; |
1358 |
{object V205 = make_cons(VV[32],V198); |
{object V223 = make_cons(VV[32],V216); |
1359 |
VMR12(V205)} |
VMR12(V223)} |
1360 |
goto T485; |
goto T485; |
1361 |
T485:; |
T485:; |
1362 |
if((CMPcdr((V193)))!=Cnil){ |
if((CMPcdr((V211)))!=Cnil){ |
1363 |
goto T506;} |
goto T506;} |
1364 |
{object V206 = list(3,VV[32],CMPcar((V193)),(V194)); |
{object V224 = list(3,VV[32],CMPcar((V211)),(V212)); |
1365 |
VMR12(V206)} |
VMR12(V224)} |
1366 |
goto T506; |
goto T506; |
1367 |
T506:; |
T506:; |
1368 |
{object V207 = list(3,VV[3],(V193),(V194)); |
{object V225 = list(3,VV[3],(V211),(V212)); |
1369 |
VMR12(V207)} |
VMR12(V225)} |
1370 |
base[0]=base[0]; |
base[0]=base[0]; |
1371 |
return Cnil; |
return Cnil; |
1372 |
} |
} |
1373 |
/* local entry for function VARIABLE-SAME-P */ |
/* local entry for function VARIABLE-SAME-P */ |
1374 |
|
|
1375 |
static object LI14(V211,V212,V213) |
static object LI14(V229,V230,V231) |
1376 |
|
|
1377 |
object V211;object V212;object V213; |
object V229;object V230;object V231; |
1378 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
1379 |
goto TTL; |
goto TTL; |
1380 |
TTL:; |
TTL:; |
1381 |
V214= (*(LnkLI148))((V211),(V212)); |
V232= (*(LnkLI148))((V229),(V230)); |
1382 |
V215= (*(LnkLI148))((V211),(V213)); |
V233= (*(LnkLI148))((V229),(V231)); |
1383 |
{object V216 = ((/* INLINE-ARGS */V214)==(/* INLINE-ARGS */V215)?Ct:Cnil); |
{object V234 = ((/* INLINE-ARGS */V232)==(/* INLINE-ARGS */V233)?Ct:Cnil); |
1384 |
VMR13(V216)} |
VMR13(V234)} |
1385 |
return Cnil; |
return Cnil; |
1386 |
} |
} |
1387 |
/* local entry for function MAYBE-WARN */ |
/* local entry for function MAYBE-WARN */ |
1388 |
|
|
1389 |
static object LI15(object V217,object first,...) |
static object LI15(object V235,object first,...) |
1390 |
{ |
{ |
1391 |
va_list ap; |
va_list ap; |
1392 |
int narg = VFUN_NARGS; VMB14 VMS14 VMV14 |
int narg = VFUN_NARGS; VMB14 VMS14 VMV14 |
1393 |
{object V218; |
{object V236; |
1394 |
object V219; |
object V237; |
1395 |
va_start(ap,first); |
va_start(ap,first); |
1396 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
1397 |
V218= V217; |
V236= V235; |
1398 |
narg= narg - 1; |
narg= narg - 1; |
1399 |
V220 = list_vector_new(narg,first,ap); |
V238 = list_vector_new(narg,first,ap); |
1400 |
V219= V220; |
V237= V238; |
1401 |
{object V221= (VV[34]->s.s_dbind); |
{object V239= (VV[34]->s.s_dbind); |
1402 |
if((V221!= Cnil))goto T511; |
if((V239!= Cnil))goto T511; |
1403 |
goto T509; |
goto T509; |
1404 |
goto T511; |
goto T511; |
1405 |
T511:; |
T511:; |
1406 |
if((V221!= VV[16]))goto T512; |
if((V239!= VV[16]))goto T512; |
1407 |
if(!(((V218))==(VV[16]))){ |
if(!(((V236))==(VV[16]))){ |
1408 |
goto T509;} |
goto T509;} |
1409 |
goto T510; |
goto T510; |
1410 |
goto T512; |
goto T512; |
1412 |
goto T510; |
goto T510; |
1413 |
T510:; |
T510:; |
1414 |
base[0]=VV[126]->s.s_gfdef; |
base[0]=VV[126]->s.s_gfdef; |
1415 |
{object V222; |
{object V240; |
1416 |
V222= (V219); |
V240= (V237); |
1417 |
vs_top=base+1; |
vs_top=base+1; |
1418 |
while(V222!=Cnil) |
while(V240!=Cnil) |
1419 |
{vs_push((V222)->c.c_car);V222=(V222)->c.c_cdr;} |
{vs_push((V240)->c.c_car);V240=(V240)->c.c_cdr;} |
1420 |
vs_base=base+1;} |
vs_base=base+1;} |
1421 |
(void) (*Lnk126)(); |
(void) (*Lnk126)(); |
1422 |
vs_top=sup; |
vs_top=sup; |
1423 |
{object V223 = vs_base[0]; |
{object V241 = vs_base[0]; |
1424 |
VMR14(V223)} |
VMR14(V241)} |
1425 |
goto T509; |
goto T509; |
1426 |
T509:; |
T509:; |
1427 |
{object V224 = Cnil; |
{object V242 = Cnil; |
1428 |
VMR14(V224)} |
VMR14(V242)} |
1429 |
va_end(ap); |
va_end(ap); |
1430 |
base[0]=base[0]; |
base[0]=base[0]; |
1431 |
return Cnil;} |
return Cnil;} |
1438 |
vs_check; |
vs_check; |
1439 |
check_arg(2); |
check_arg(2); |
1440 |
vs_top=sup; |
vs_top=sup; |
1441 |
{object V225=base[0]->c.c_cdr; |
{object V243=base[0]->c.c_cdr; |
1442 |
{object V226=getf(V225,VV[149],OBJNULL); |
{object V244=getf(V243,VV[149],OBJNULL); |
1443 |
if(V226==OBJNULL){ |
if(V244==OBJNULL){ |
1444 |
base[2]= Cnil;} else { |
base[2]= Cnil;} else { |
1445 |
base[2]= V226; |
base[2]= V244; |
1446 |
}} |
}} |
1447 |
{object V227=getf(V225,VV[150],OBJNULL); |
{object V245=getf(V243,VV[150],OBJNULL); |
1448 |
if(V227==OBJNULL){ |
if(V245==OBJNULL){ |
1449 |
base[3]= Cnil;} else { |
base[3]= Cnil;} else { |
1450 |
base[3]= V227; |
base[3]= V245; |
1451 |
}} |
}} |
1452 |
{object V228=getf(V225,VV[151],OBJNULL); |
{object V246=getf(V243,VV[151],OBJNULL); |
1453 |
if(V228==OBJNULL){ |
if(V246==OBJNULL){ |
1454 |
base[4]= Cnil;} else { |
base[4]= Cnil;} else { |
1455 |
base[4]= V228; |
base[4]= V246; |
1456 |
}} |
}} |
1457 |
{object V229=getf(V225,VV[152],OBJNULL); |
{object V247=getf(V243,VV[152],OBJNULL); |
1458 |
if(V229==OBJNULL){ |
if(V247==OBJNULL){ |
1459 |
base[5]= Cnil;} else { |
base[5]= Cnil;} else { |
1460 |
base[5]= V229; |
base[5]= V247; |
1461 |
}} |
}} |
1462 |
{object V230=getf(V225,VV[153],OBJNULL); |
{object V248=getf(V243,VV[153],OBJNULL); |
1463 |
if(V230==OBJNULL){ |
if(V248==OBJNULL){ |
1464 |
base[6]= Cnil;} else { |
base[6]= Cnil;} else { |
1465 |
base[6]= V230; |
base[6]= V248; |
1466 |
}} |
}} |
1467 |
{object V231=getf(V225,VV[154],OBJNULL); |
{object V249=getf(V243,VV[154],OBJNULL); |
1468 |
if(V231==OBJNULL){ |
if(V249==OBJNULL){ |
1469 |
base[7]= Cnil;} else { |
base[7]= Cnil;} else { |
1470 |
base[7]= V231; |
base[7]= V249; |
1471 |
}} |
}} |
1472 |
{object V232=getf(V225,VV[155],OBJNULL); |
{object V250=getf(V243,VV[155],OBJNULL); |
1473 |
if(V232==OBJNULL){ |
if(V250==OBJNULL){ |
1474 |
base[8]= Cnil;} else { |
base[8]= Cnil;} else { |
1475 |
base[8]= V232; |
base[8]= V250; |
1476 |
}} |
}} |
1477 |
{object V233=getf(V225,VV[156],OBJNULL); |
{object V251=getf(V243,VV[156],OBJNULL); |
1478 |
if(V233==OBJNULL){ |
if(V251==OBJNULL){ |
1479 |
base[9]= Cnil;} else { |
base[9]= Cnil;} else { |
1480 |
base[9]= V233; |
base[9]= V251; |
1481 |
}} |
}} |
1482 |
check_other_key(V225,8,VV[149],VV[150],VV[151],VV[152],VV[153],VV[154],VV[155],VV[156]);} |
check_other_key(V243,8,VV[149],VV[150],VV[151],VV[152],VV[153],VV[154],VV[155],VV[156]);} |
1483 |
if((base[2])==Cnil){ |
if((base[2])==Cnil){ |
1484 |
goto T523;} |
goto T523;} |
1485 |
if((base[3])==Cnil){ |
if((base[3])==Cnil){ |
1496 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
1497 |
(void) (*Lnk157)(); |
(void) (*Lnk157)(); |
1498 |
vs_top=sup; |
vs_top=sup; |
1499 |
V234= vs_base[0]; |
V252= vs_base[0]; |
1500 |
if((CMPcdr(V234))==Cnil){ |
if((CMPcdr(V252))==Cnil){ |
1501 |
goto T530;} |
goto T530;} |
1502 |
base[10]= VV[36]; |
base[10]= VV[36]; |
1503 |
base[11]= base[0]; |
base[11]= base[0]; |
1506 |
return; |
return; |
1507 |
goto T530; |
goto T530; |
1508 |
T530:; |
T530:; |
1509 |
{object V235; |
{object V253; |
1510 |
register object V236; |
register object V254; |
1511 |
object V237; |
object V255; |
1512 |
if(base[3]!=Cnil){ |
if(base[3]!=Cnil){ |
1513 |
V235= base[3]; |
V253= base[3]; |
1514 |
goto T537;} |
goto T537;} |
1515 |
if(base[5]!=Cnil){ |
if(base[5]!=Cnil){ |
1516 |
V235= base[5]; |
V253= base[5]; |
1517 |
goto T537;} |
goto T537;} |
1518 |
V235= base[6]; |
V253= base[6]; |
1519 |
goto T537; |
goto T537; |
1520 |
T537:; |
T537:; |
1521 |
if(base[4]!=Cnil){ |
if(base[4]!=Cnil){ |
1522 |
V236= base[4]; |
V254= base[4]; |
1523 |
goto T538;} |
goto T538;} |
1524 |
if(base[5]!=Cnil){ |
if(base[5]!=Cnil){ |
1525 |
V236= base[5]; |
V254= base[5]; |
1526 |
goto T538;} |
goto T538;} |
1527 |
if(base[6]!=Cnil){ |
if(base[6]!=Cnil){ |
1528 |
V236= base[6]; |
V254= base[6]; |
1529 |
goto T538;} |
goto T538;} |
1530 |
V236= base[7]; |
V254= base[7]; |
1531 |
goto T538; |
goto T538; |
1532 |
T538:; |
T538:; |
1533 |
if((base[8])!=Cnil){ |
if((base[8])!=Cnil){ |
1534 |
goto T541;} |
goto T541;} |
1535 |
V237= small_fixnum(1); |
V255= small_fixnum(1); |
1536 |
goto T539; |
goto T539; |
1537 |
goto T541; |
goto T541; |
1538 |
T541:; |
T541:; |
1542 |
vs_top=sup; |
vs_top=sup; |
1543 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1544 |
goto T544;} |
goto T544;} |
1545 |
V237= base[8]; |
V255= base[8]; |
1546 |
goto T539; |
goto T539; |
1547 |
goto T544; |
goto T544; |
1548 |
T544:; |
T544:; |
1549 |
V237= Cnil; |
V255= Cnil; |
1550 |
goto T539; |
goto T539; |
1551 |
T539:; |
T539:; |
1552 |
if(base[2]!=Cnil){ |
if(base[2]!=Cnil){ |
1553 |
V238= base[2]; |
V256= base[2]; |
1554 |
goto T547;} |
goto T547;} |
1555 |
if(base[3]!=Cnil){ |
if(base[3]!=Cnil){ |
1556 |
V238= base[3]; |
V256= base[3]; |
1557 |
goto T547;} |
goto T547;} |
1558 |
V238= small_fixnum(0); |
V256= small_fixnum(0); |
1559 |
goto T547; |
goto T547; |
1560 |
T547:; |
T547:; |
1561 |
V239= list(2,VV[37],V238); |
V257= list(2,VV[37],V256); |
1562 |
if((V236)==Cnil){ |
if((V254)==Cnil){ |
1563 |
V240= Cnil; |
V258= Cnil; |
1564 |
goto T548;} |
goto T548;} |
1565 |
V241= list(2,VV[38],(V236)); |
V259= list(2,VV[38],(V254)); |
1566 |
V240= make_cons(/* INLINE-ARGS */V241,Cnil); |
V258= make_cons(/* INLINE-ARGS */V259,Cnil); |
1567 |
goto T548; |
goto T548; |
1568 |
T548:; |
T548:; |
1569 |
if(((V237))==Cnil){ |
if(((V255))==Cnil){ |
1570 |
goto T550;} |
goto T550;} |
1571 |
V242= Cnil; |
V260= Cnil; |
1572 |
goto T549; |
goto T549; |
1573 |
goto T550; |
goto T550; |
1574 |
T550:; |
T550:; |
1575 |
V243= list(2,VV[39],base[8]); |
V261= list(2,VV[39],base[8]); |
1576 |
V242= make_cons(/* INLINE-ARGS */V243,Cnil); |
V260= make_cons(/* INLINE-ARGS */V261,Cnil); |
1577 |
goto T549; |
goto T549; |
1578 |
T549:; |
T549:; |
1579 |
V244= append(V240,V242); |
V262= append(V258,V260); |
1580 |
V245= make_cons(/* INLINE-ARGS */V239,/* INLINE-ARGS */V244); |
V263= make_cons(/* INLINE-ARGS */V257,/* INLINE-ARGS */V262); |
1581 |
if(base[9]==Cnil){ |
if(base[9]==Cnil){ |
1582 |
V246= Cnil; |
V264= Cnil; |
1583 |
goto T552;} |
goto T552;} |
1584 |
if((V236)==Cnil){ |
if((V254)==Cnil){ |
1585 |
V247= Cnil; |
V265= Cnil; |
1586 |
goto T553;} |
goto T553;} |
1587 |
V247= VV[40]; |
V265= VV[40]; |
1588 |
goto T553; |
goto T553; |
1589 |
T553:; |
T553:; |
1590 |
if(((V237))==Cnil){ |
if(((V255))==Cnil){ |
1591 |
goto T555;} |
goto T555;} |
1592 |
V248= Cnil; |
V266= Cnil; |
1593 |
goto T554; |
goto T554; |
1594 |
goto T555; |
goto T555; |
1595 |
T555:; |
T555:; |
1596 |
V248= VV[41]; |
V266= VV[41]; |
1597 |
goto T554; |
goto T554; |
1598 |
T554:; |
T554:; |
1599 |
V249= list(2,VV[19],listA(4,VV[21],base[9],VV[37],append(V247,V248))); |
V267= list(2,VV[19],listA(4,VV[21],base[9],VV[37],append(V265,V266))); |
1600 |
V246= make_cons(/* INLINE-ARGS */V249,Cnil); |
V264= make_cons(/* INLINE-ARGS */V267,Cnil); |
1601 |
goto T552; |
goto T552; |
1602 |
T552:; |
T552:; |
1603 |
if(((V236))!=Cnil){ |
if(((V254))!=Cnil){ |
1604 |
goto T559;} |
goto T559;} |
1605 |
V250= VV[43]; |
V268= VV[43]; |
1606 |
goto T557; |
goto T557; |
1607 |
goto T559; |
goto T559; |
1608 |
T559:; |
T559:; |
1609 |
V250= Cnil; |
V268= Cnil; |
1610 |
goto T557; |
goto T557; |
1611 |
T557:; |
T557:; |
1612 |
if(((V236))==Cnil){ |
if(((V254))==Cnil){ |
1613 |
goto T563;} |
goto T563;} |
1614 |
if((base[6])==Cnil){ |
if((base[6])==Cnil){ |
1615 |
goto T567;} |
goto T567;} |
1616 |
V252= VV[45]; |
V270= VV[45]; |
1617 |
goto T565; |
goto T565; |
1618 |
goto T567; |
goto T567; |
1619 |
T567:; |
T567:; |
1620 |
if((base[7])==Cnil){ |
if((base[7])==Cnil){ |
1621 |
goto T570;} |
goto T570;} |
1622 |
V252= VV[46]; |
V270= VV[46]; |
1623 |
goto T565; |
goto T565; |
1624 |
goto T570; |
goto T570; |
1625 |
T570:; |
T570:; |
1626 |
if(((V235))==Cnil){ |
if(((V253))==Cnil){ |
1627 |
goto T573;} |
goto T573;} |
1628 |
V252= VV[47]; |
V270= VV[47]; |
1629 |
goto T565; |
goto T565; |
1630 |
goto T573; |
goto T573; |
1631 |
T573:; |
T573:; |
1632 |
V252= VV[48]; |
V270= VV[48]; |
1633 |
goto T565; |
goto T565; |
1634 |
T565:; |
T565:; |
1635 |
V251= listA(3,VV[44],make_cons(V252,VV[49]),VV[50]); |
V269= listA(3,VV[44],make_cons(V270,VV[49]),VV[50]); |
1636 |
goto T561; |
goto T561; |
1637 |
goto T563; |
goto T563; |
1638 |
T563:; |
T563:; |
1639 |
V251= VV[37]; |
V269= VV[37]; |
1640 |
goto T561; |
goto T561; |
1641 |
T561:; |
T561:; |
1642 |
if(((V235))==Cnil){ |
if(((V253))==Cnil){ |
1643 |
goto T577;} |
goto T577;} |
1644 |
V253= VV[51]; |
V271= VV[51]; |
1645 |
goto T575; |
goto T575; |
1646 |
goto T577; |
goto T577; |
1647 |
T577:; |
T577:; |
1648 |
V253= VV[52]; |
V271= VV[52]; |
1649 |
goto T575; |
goto T575; |
1650 |
T575:; |
T575:; |
1651 |
if((V237)!=Cnil){ |
if((V255)!=Cnil){ |
1652 |
V254= (V237); |
V272= (V255); |
1653 |
goto T579;} |
goto T579;} |
1654 |
V254= VV[39]; |
V272= VV[39]; |
1655 |
goto T579; |
goto T579; |
1656 |
T579:; |
T579:; |
1657 |
V255= list(3,VV[33],V251,list(3,VV[32],VV[37],list(3,V253,VV[37],V254))); |
V273= list(3,VV[33],V269,list(3,VV[32],VV[37],list(3,V271,VV[37],V272))); |
1658 |
V256= make_cons(/* INLINE-ARGS */V255,Cnil); |
V274= make_cons(/* INLINE-ARGS */V273,Cnil); |
1659 |
V257= list(2,VV[5],listA(3,VV[6],VV[42],append(V250,/* INLINE-ARGS */V256))); |
V275= list(2,VV[5],listA(3,VV[6],VV[42],append(V268,/* INLINE-ARGS */V274))); |
1660 |
V258= make_cons(/* INLINE-ARGS */V257,Cnil); |
V276= make_cons(/* INLINE-ARGS */V275,Cnil); |
1661 |
base[13]= listA(3,VV[18],/* INLINE-ARGS */V245,append(V246,/* INLINE-ARGS */V258)); |
base[13]= listA(3,VV[18],/* INLINE-ARGS */V263,append(V264,/* INLINE-ARGS */V276)); |
1662 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+13)+1; |
1663 |
return;} |
return;} |
1664 |
} |
} |
1670 |
vs_check; |
vs_check; |
1671 |
check_arg(2); |
check_arg(2); |
1672 |
vs_top=sup; |
vs_top=sup; |
1673 |
{object V259=base[0]->c.c_cdr; |
{object V277=base[0]->c.c_cdr; |
1674 |
if(endp(V259))invalid_macro_call(); |
if(endp(V277))invalid_macro_call(); |
1675 |
base[2]= (V259->c.c_car); |
base[2]= (V277->c.c_car); |
1676 |
V259=V259->c.c_cdr; |
V277=V277->c.c_cdr; |
1677 |
{object V260=getf(V259,VV[155],OBJNULL); |
{object V278=getf(V277,VV[155],OBJNULL); |
1678 |
if(V260==OBJNULL){ |
if(V278==OBJNULL){ |
1679 |
base[3]= VV[53];} else { |
base[3]= VV[53];} else { |
1680 |
base[3]= V260; |
base[3]= V278; |
1681 |
}} |
}} |
1682 |
check_other_key(V259,1,VV[155]);} |
check_other_key(V277,1,VV[155]);} |
1683 |
V261= list(2,VV[54],base[2]); |
V279= list(2,VV[54],base[2]); |
1684 |
V262= make_cons(/* INLINE-ARGS */V261,Cnil); |
V280= make_cons(/* INLINE-ARGS */V279,Cnil); |
1685 |
base[4]= list(3,VV[18],/* INLINE-ARGS */V262,list(2,VV[5],list(3,VV[6],VV[55],list(3,VV[33],VV[56],list(3,VV[32],VV[54],list(3,VV[4],base[3],VV[54])))))); |
base[4]= list(3,VV[18],/* INLINE-ARGS */V280,list(2,VV[5],list(3,VV[6],VV[55],list(3,VV[33],VV[56],list(3,VV[32],VV[54],list(3,VV[4],base[3],VV[54])))))); |
1686 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1687 |
return; |
return; |
1688 |
} |
} |
1694 |
vs_check; |
vs_check; |
1695 |
check_arg(2); |
check_arg(2); |
1696 |
vs_top=sup; |
vs_top=sup; |
1697 |
{object V263=base[0]->c.c_cdr; |
{object V281=base[0]->c.c_cdr; |
1698 |
if(endp(V263))invalid_macro_call(); |
if(endp(V281))invalid_macro_call(); |
1699 |
base[2]= (V263->c.c_car); |
base[2]= (V281->c.c_car); |
1700 |
V263=V263->c.c_cdr; |
V281=V281->c.c_cdr; |
1701 |
{object V264=getf(V263,VV[155],OBJNULL); |
{object V282=getf(V281,VV[155],OBJNULL); |
1702 |
if(V264==OBJNULL){ |
if(V282==OBJNULL){ |
1703 |
base[3]= VV[57];} else { |
base[3]= VV[57];} else { |
1704 |
base[3]= V264; |
base[3]= V282; |
1705 |
}} |
}} |
1706 |
check_other_key(V263,1,VV[155]);} |
check_other_key(V281,1,VV[155]);} |
1707 |
V265= list(2,VV[54],base[2]); |
V283= list(2,VV[54],base[2]); |
1708 |
V266= make_cons(/* INLINE-ARGS */V265,Cnil); |
V284= make_cons(/* INLINE-ARGS */V283,Cnil); |
1709 |
base[4]= list(3,VV[18],/* INLINE-ARGS */V266,list(2,VV[5],list(3,VV[6],VV[58],list(3,VV[33],VV[59],list(3,VV[32],VV[54],list(3,VV[4],base[3],VV[54])))))); |
base[4]= list(3,VV[18],/* INLINE-ARGS */V284,list(2,VV[5],list(3,VV[6],VV[58],list(3,VV[33],VV[59],list(3,VV[32],VV[54],list(3,VV[4],base[3],VV[54])))))); |
1710 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1711 |
return; |
return; |
1712 |
} |
} |
1718 |
vs_check; |
vs_check; |
1719 |
check_arg(2); |
check_arg(2); |
1720 |
vs_top=sup; |
vs_top=sup; |
1721 |
{object V267=base[0]->c.c_cdr; |
{object V285=base[0]->c.c_cdr; |
1722 |
if(endp(V267))invalid_macro_call(); |
if(endp(V285))invalid_macro_call(); |
1723 |
base[2]= (V267->c.c_car); |
base[2]= (V285->c.c_car); |
1724 |
V267=V267->c.c_cdr; |
V285=V285->c.c_cdr; |
1725 |
if(!endp(V267))invalid_macro_call();} |
if(!endp(V285))invalid_macro_call();} |
1726 |
{object V268; |
{object V286; |
1727 |
object V269; |
object V287; |
1728 |
object V270; |
object V288; |
1729 |
if(type_of(base[2])==t_cons){ |
if(type_of(base[2])==t_cons){ |
1730 |
goto T583;} |
goto T583;} |
1731 |
V268= Cnil; |
V286= Cnil; |
1732 |
goto T582; |
goto T582; |
1733 |
goto T583; |
goto T583; |
1734 |
T583:; |
T583:; |
1735 |
if((CMPcar(base[2]))==(VV[60])){ |
if((CMPcar(base[2]))==(VV[60])){ |
1736 |
goto T585;} |
goto T585;} |
1737 |
V268= Cnil; |
V286= Cnil; |
1738 |
goto T582; |
goto T582; |
1739 |
goto T585; |
goto T585; |
1740 |
T585:; |
T585:; |
1741 |
V268= CMPcadr(base[2]); |
V286= CMPcadr(base[2]); |
1742 |
goto T582; |
goto T582; |
1743 |
T582:; |
T582:; |
1744 |
if(((V268))==Cnil){ |
if(((V286))==Cnil){ |
1745 |
goto T589;} |
goto T589;} |
1746 |
V269= (*(LnkLI158))((V268)); |
V287= (*(LnkLI158))((V286)); |
1747 |
goto T587; |
goto T587; |
1748 |
goto T589; |
goto T589; |
1749 |
T589:; |
T589:; |
1750 |
V269= VV[61]; |
V287= VV[61]; |
1751 |
goto T587; |
goto T587; |
1752 |
T587:; |
T587:; |
1753 |
V270= (((V268))==(VV[62])?Ct:Cnil); |
V288= (((V286))==(VV[62])?Ct:Cnil); |
1754 |
V271= list(2,VV[64],base[2]); |
V289= list(2,VV[64],base[2]); |
1755 |
if(((V270))==Cnil){ |
if(((V288))==Cnil){ |
1756 |
goto T593;} |
goto T593;} |
1757 |
V272= Cnil; |
V290= Cnil; |
1758 |
goto T592; |
goto T592; |
1759 |
goto T593; |
goto T593; |
1760 |
T593:; |
T593:; |
1761 |
V272= VV[65]; |
V290= VV[65]; |
1762 |
goto T592; |
goto T592; |
1763 |
T592:; |
T592:; |
1764 |
V273= listA(3,VV[63],/* INLINE-ARGS */V271,V272); |
V291= listA(3,VV[63],/* INLINE-ARGS */V289,V290); |
1765 |
if(((V270))==Cnil){ |
if(((V288))==Cnil){ |
1766 |
goto T597;} |
goto T597;} |
1767 |
V274= VV[68]; |
V292= VV[68]; |
1768 |
goto T595; |
goto T595; |
1769 |
goto T597; |
goto T597; |
1770 |
T597:; |
T597:; |
1771 |
V274= list(2,VV[69],make_cons((V269),VV[70])); |
V292= list(2,VV[69],make_cons((V287),VV[70])); |
1772 |
goto T595; |
goto T595; |
1773 |
T595:; |
T595:; |
1774 |
base[6]= list(3,VV[1],/* INLINE-ARGS */V273,list(2,VV[5],list(3,VV[6],VV[66],list(3,VV[31],list(3,VV[67],V274,VV[71]),VV[72])))); |
base[6]= list(3,VV[1],/* INLINE-ARGS */V291,list(2,VV[5],list(3,VV[6],VV[66],list(3,VV[31],list(3,VV[67],V292,VV[71]),VV[72])))); |
1775 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1776 |
return;} |
return;} |
1777 |
} |
} |
1783 |
vs_check; |
vs_check; |
1784 |
check_arg(2); |
check_arg(2); |
1785 |
vs_top=sup; |
vs_top=sup; |
1786 |
{object V275=base[0]->c.c_cdr; |
{object V293=base[0]->c.c_cdr; |
1787 |
if(endp(V275))invalid_macro_call(); |
if(endp(V293))invalid_macro_call(); |
1788 |
base[2]= (V275->c.c_car); |
base[2]= (V293->c.c_car); |
1789 |
V275=V275->c.c_cdr; |
V293=V293->c.c_cdr; |
1790 |
if(!endp(V275))invalid_macro_call();} |
if(!endp(V293))invalid_macro_call();} |
1791 |
V276= list(2,VV[54],base[2]); |
V294= list(2,VV[54],base[2]); |
1792 |
base[3]= list(3,VV[18],make_cons(/* INLINE-ARGS */V276,Cnil),VV[73]); |
base[3]= list(3,VV[18],make_cons(/* INLINE-ARGS */V294,Cnil),VV[73]); |
1793 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1794 |
return; |
return; |
1795 |
} |
} |
1796 |
/* local entry for function SEQUENCE-ACCESSOR */ |
/* local entry for function SEQUENCE-ACCESSOR */ |
1797 |
|
|
1798 |
static object LI21(V278) |
static object LI21(V296) |
1799 |
|
|
1800 |
object V278; |
object V296; |
1801 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
1802 |
goto TTL; |
goto TTL; |
1803 |
TTL:; |
TTL:; |
1804 |
if(!(type_of((V278))==t_cons)){ |
if(!(type_of((V296))==t_cons)){ |
1805 |
goto T601;} |
goto T601;} |
1806 |
V280= CMPcar((V278)); |
V298= CMPcar((V296)); |
1807 |
goto T599; |
goto T599; |
1808 |
goto T601; |
goto T601; |
1809 |
T601:; |
T601:; |
1810 |
V280= (V278); |
V298= (V296); |
1811 |
goto T599; |
goto T599; |
1812 |
T599:; |
T599:; |
1813 |
{object V279= V280; |
{object V297= V298; |
1814 |
if((V279!= VV[159]) |
if((V297!= VV[159]) |
1815 |
&& (V279!= VV[160]) |
&& (V297!= VV[160]) |
1816 |
&& (V279!= VV[161]))goto T603; |
&& (V297!= VV[161]))goto T603; |
1817 |
{object V281 = VV[74]; |
{object V299 = VV[74]; |
1818 |
VMR20(V281)} |
VMR20(V299)} |
1819 |
goto T603; |
goto T603; |
1820 |
T603:; |
T603:; |
1821 |
if((V279!= VV[162]))goto T604; |
if((V297!= VV[162]))goto T604; |
1822 |
{object V282 = VV[75]; |
{object V300 = VV[75]; |
1823 |
VMR20(V282)} |
VMR20(V300)} |
1824 |
goto T604; |
goto T604; |
1825 |
T604:; |
T604:; |
1826 |
if((V279!= VV[163]))goto T605; |
if((V297!= VV[163]))goto T605; |
1827 |
{object V283 = VV[76]; |
{object V301 = VV[76]; |
1828 |
VMR20(V283)} |
VMR20(V301)} |
1829 |
goto T605; |
goto T605; |
1830 |
T605:; |
T605:; |
1831 |
if((V279!= VV[164]))goto T606; |
if((V297!= VV[164]))goto T606; |
1832 |
{object V284 = VV[77]; |
{object V302 = VV[77]; |
1833 |
VMR20(V284)} |
VMR20(V302)} |
1834 |
goto T606; |
goto T606; |
1835 |
T606:; |
T606:; |
1836 |
if((V279!= VV[165]))goto T607; |
if((V297!= VV[165]))goto T607; |
1837 |
{object V285 = VV[78]; |
{object V303 = VV[78]; |
1838 |
VMR20(V285)} |
VMR20(V303)} |
1839 |
goto T607; |
goto T607; |
1840 |
T607:; |
T607:; |
1841 |
if((V279!= VV[166]))goto T608; |
if((V297!= VV[166]))goto T608; |
1842 |
{object V286 = VV[79]; |
{object V304 = VV[79]; |
1843 |
VMR20(V286)} |
VMR20(V304)} |
1844 |
goto T608; |
goto T608; |
1845 |
T608:; |
T608:; |
1846 |
{object V287 = VV[61]; |
{object V305 = VV[61]; |
1847 |
VMR20(V287)}} |
VMR20(V305)}} |
1848 |
return Cnil; |
return Cnil; |
1849 |
} |
} |
1850 |
/* macro definition for EACHTIME */ |
/* macro definition for EACHTIME */ |
1855 |
vs_check; |
vs_check; |
1856 |
check_arg(2); |
check_arg(2); |
1857 |
vs_top=sup; |
vs_top=sup; |
1858 |
{object V288=base[0]->c.c_cdr; |
{object V306=base[0]->c.c_cdr; |
1859 |
if(endp(V288))invalid_macro_call(); |
if(endp(V306))invalid_macro_call(); |
1860 |
base[2]= (V288->c.c_car); |
base[2]= (V306->c.c_car); |
1861 |
V288=V288->c.c_cdr; |
V306=V306->c.c_cdr; |
1862 |
if(!endp(V288))invalid_macro_call();} |
if(!endp(V306))invalid_macro_call();} |
1863 |
base[3]= list(2,VV[5],list(4,VV[6],VV[80],VV[81],base[2])); |
base[3]= list(2,VV[5],list(4,VV[6],VV[80],VV[81],base[2])); |
1864 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1865 |
return; |
return; |
1872 |
vs_check; |
vs_check; |
1873 |
check_arg(2); |
check_arg(2); |
1874 |
vs_top=sup; |
vs_top=sup; |
1875 |
{object V289=base[0]->c.c_cdr; |
{object V307=base[0]->c.c_cdr; |
1876 |
if(endp(V289))invalid_macro_call(); |
if(endp(V307))invalid_macro_call(); |
1877 |
base[2]= (V289->c.c_car); |
base[2]= (V307->c.c_car); |
1878 |
V289=V289->c.c_cdr; |
V307=V307->c.c_cdr; |
1879 |
if(!endp(V289))invalid_macro_call();} |
if(!endp(V307))invalid_macro_call();} |
1880 |
base[3]= list(2,VV[5],list(3,VV[6],VV[82],list(3,VV[83],base[2],VV[84]))); |
base[3]= list(2,VV[5],list(3,VV[6],VV[82],list(3,VV[83],base[2],VV[84]))); |
1881 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1882 |
return; |
return; |
1889 |
vs_check; |
vs_check; |
1890 |
check_arg(2); |
check_arg(2); |
1891 |
vs_top=sup; |
vs_top=sup; |
1892 |
{object V290=base[0]->c.c_cdr; |
{object V308=base[0]->c.c_cdr; |
1893 |
if(endp(V290))invalid_macro_call(); |
if(endp(V308))invalid_macro_call(); |
1894 |
base[2]= (V290->c.c_car); |
base[2]= (V308->c.c_car); |
1895 |
V290=V290->c.c_cdr; |
V308=V308->c.c_cdr; |
1896 |
if(!endp(V290))invalid_macro_call();} |
if(!endp(V308))invalid_macro_call();} |
1897 |
base[3]= list(2,VV[5],list(3,VV[6],VV[85],list(3,VV[86],base[2],VV[87]))); |
base[3]= list(2,VV[5],list(3,VV[6],VV[85],list(3,VV[86],base[2],VV[87]))); |
1898 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1899 |
return; |
return; |
1906 |
vs_check; |
vs_check; |
1907 |
check_arg(2); |
check_arg(2); |
1908 |
vs_top=sup; |
vs_top=sup; |
1909 |
{object V291=base[0]->c.c_cdr; |
{object V309=base[0]->c.c_cdr; |
1910 |
if(endp(V291))invalid_macro_call(); |
if(endp(V309))invalid_macro_call(); |
1911 |
base[2]= (V291->c.c_car); |
base[2]= (V309->c.c_car); |
1912 |
V291=V291->c.c_cdr; |
V309=V309->c.c_cdr; |
1913 |
base[3]= V291;}{object V292; |
base[3]= V309;}{object V310; |
1914 |
V292= (*(LnkLI167))(base[2],base[3],base[1]); |
V310= (*(LnkLI167))(base[2],base[3],base[1]); |
1915 |
if(V292==Cnil)goto T609; |
if(V310==Cnil)goto T609; |
1916 |
base[4]= V292; |
base[4]= V310; |
1917 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1918 |
return; |
return; |
1919 |
goto T609; |
goto T609; |
1930 |
vs_check; |
vs_check; |
1931 |
check_arg(2); |
check_arg(2); |
1932 |
vs_top=sup; |
vs_top=sup; |
1933 |
{object V293=base[0]->c.c_cdr; |
{object V311=base[0]->c.c_cdr; |
1934 |
if(endp(V293))invalid_macro_call(); |
if(endp(V311))invalid_macro_call(); |
1935 |
base[2]= (V293->c.c_car); |
base[2]= (V311->c.c_car); |
1936 |
V293=V293->c.c_cdr; |
V311=V311->c.c_cdr; |
1937 |
if(endp(V293))invalid_macro_call(); |
if(endp(V311))invalid_macro_call(); |
1938 |
base[3]= (V293->c.c_car); |
base[3]= (V311->c.c_car); |
1939 |
V293=V293->c.c_cdr; |
V311=V311->c.c_cdr; |
1940 |
base[4]= V293;} |
base[4]= V311;} |
1941 |
{object V295; |
{object V313; |
1942 |
object V296= base[2]; |
object V314= base[2]; |
1943 |
if(V296==Cnil){ |
if(V314==Cnil){ |
1944 |
V294= Cnil; |
V312= Cnil; |
1945 |
goto T611;} |
goto T611;} |
1946 |
base[5]=V295=MMcons(Cnil,Cnil); |
base[5]=V313=MMcons(Cnil,Cnil); |
1947 |
goto T612; |
goto T612; |
1948 |
T612:; |
T612:; |
1949 |
(V295->c.c_car)= CMPcar((V296->c.c_car)); |
(V313->c.c_car)= CMPcar((V314->c.c_car)); |
1950 |
if((V296=MMcdr(V296))==Cnil){ |
if((V314=MMcdr(V314))==Cnil){ |
1951 |
V294= base[5]; |
V312= base[5]; |
1952 |
goto T611;} |
goto T611;} |
1953 |
V295=MMcdr(V295)=MMcons(Cnil,Cnil); |
V313=MMcdr(V313)=MMcons(Cnil,Cnil); |
1954 |
goto T612;} |
goto T612;} |
1955 |
goto T611; |
goto T611; |
1956 |
T611:; |
T611:; |
1957 |
base[5]= listA(4,VV[88],V294,list(3,VV[89],base[2],base[3]),base[4]); |
V315 = base[4]; |
1958 |
|
base[5]= listA(4,VV[88],V312,list(3,VV[89],base[2],base[3]),V315); |
1959 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1960 |
return; |
return; |
1961 |
} |
} |
1962 |
/* local entry for function SIMPLE-EXPAND-GATHERING-FORM */ |
/* local entry for function SIMPLE-EXPAND-GATHERING-FORM */ |
1963 |
|
|
1964 |
static object LI27(V300,V301,V302) |
static object LI27(V319,V320,V321) |
1965 |
|
|
1966 |
register object V300;object V301;object V302; |
register object V319;object V320;object V321; |
1967 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
1968 |
goto TTL; |
goto TTL; |
1969 |
TTL:; |
TTL:; |
1970 |
{object V303; |
{object V322; |
1971 |
object V304; |
object V323; |
1972 |
if(!(type_of((V300))==t_symbol)){ |
if(!(type_of((V319))==t_symbol)){ |
1973 |
goto T618;} |
goto T618;} |
1974 |
V308= list(2,VV[90],make_cons((V300),Cnil)); |
V327= list(2,VV[90],make_cons((V319),Cnil)); |
1975 |
V300= make_cons(/* INLINE-ARGS */V308,Cnil); |
V319= make_cons(/* INLINE-ARGS */V327,Cnil); |
1976 |
V307= (V300); |
V326= (V319); |
1977 |
goto T616; |
goto T616; |
1978 |
goto T618; |
goto T618; |
1979 |
T618:; |
T618:; |
1980 |
V307= (V300); |
V326= (V319); |
1981 |
goto T616; |
goto T616; |
1982 |
T616:; |
T616:; |
1983 |
{object V305; |
{object V324; |
1984 |
object V306= V307; |
object V325= V326; |
1985 |
if(V306==Cnil){ |
if(V325==Cnil){ |
1986 |
V303= Cnil; |
V322= Cnil; |
1987 |
goto T614;} |
goto T614;} |
1988 |
base[0]=V305=MMcons(Cnil,Cnil); |
base[0]=V324=MMcons(Cnil,Cnil); |
1989 |
goto T615; |
goto T615; |
1990 |
T615:; |
T615:; |
1991 |
(V305->c.c_car)= CMPcar((V306->c.c_car)); |
(V324->c.c_car)= CMPcar((V325->c.c_car)); |
1992 |
if((V306=MMcdr(V306))==Cnil){ |
if((V325=MMcdr(V325))==Cnil){ |
1993 |
V303= base[0]; |
V322= base[0]; |
1994 |
goto T614;} |
goto T614;} |
1995 |
V305=MMcdr(V305)=MMcons(Cnil,Cnil); |
V324=MMcdr(V324)=MMcons(Cnil,Cnil); |
1996 |
goto T615;} |
goto T615;} |
1997 |
goto T614; |
goto T614; |
1998 |
T614:; |
T614:; |
1999 |
{object V309; |
{object V328; |
2000 |
object V310= (V300); |
object V329= (V319); |
2001 |
if(V310==Cnil){ |
if(V329==Cnil){ |
2002 |
V304= Cnil; |
V323= Cnil; |
2003 |
goto T622;} |
goto T622;} |
2004 |
base[0]=V309=MMcons(Cnil,Cnil); |
base[0]=V328=MMcons(Cnil,Cnil); |
2005 |
goto T623; |
goto T623; |
2006 |
T623:; |
T623:; |
2007 |
vs_base=vs_top; |
vs_base=vs_top; |
2008 |
Lgensym(); |
Lgensym(); |
2009 |
vs_top=sup; |
vs_top=sup; |
2010 |
(V309->c.c_car)= vs_base[0]; |
(V328->c.c_car)= vs_base[0]; |
2011 |
if((V310=MMcdr(V310))==Cnil){ |
if((V329=MMcdr(V329))==Cnil){ |
2012 |
V304= base[0]; |
V323= base[0]; |
2013 |
goto T622;} |
goto T622;} |
2014 |
V309=MMcdr(V309)=MMcons(Cnil,Cnil); |
V328=MMcdr(V328)=MMcons(Cnil,Cnil); |
2015 |
goto T623;} |
goto T623;} |
2016 |
goto T622; |
goto T622; |
2017 |
T622:; |
T622:; |
2018 |
{object V313; |
{object V332; |
2019 |
object V314= (V303); |
object V333= (V322); |
2020 |
object V315= (V304); |
object V334= (V323); |
2021 |
if(V314==Cnil||V315==Cnil){ |
if(V333==Cnil||V334==Cnil){ |
2022 |
V312= Cnil; |
V331= Cnil; |
2023 |
goto T625;} |
goto T625;} |
2024 |
base[0]=V313=MMcons(Cnil,Cnil); |
base[0]=V332=MMcons(Cnil,Cnil); |
2025 |
goto T626; |
goto T626; |
2026 |
T626:; |
T626:; |
2027 |
(V313->c.c_cdr)= list(2,(V314->c.c_car),(V315->c.c_car)); |
(V332->c.c_cdr)= list(2,(V333->c.c_car),(V334->c.c_car)); |
2028 |
while(MMcdr(V313)!=Cnil)V313=MMcdr(V313); |
while(MMcdr(V332)!=Cnil)V332=MMcdr(V332); |
2029 |
if((V314=MMcdr(V314))==Cnil||(V315=MMcdr(V315))==Cnil){ |
if((V333=MMcdr(V333))==Cnil||(V334=MMcdr(V334))==Cnil){ |
2030 |
base[0]=base[0]->c.c_cdr; |
base[0]=base[0]->c.c_cdr; |
2031 |
V312= base[0]; |
V331= base[0]; |
2032 |
goto T625;} |
goto T625;} |
2033 |
goto T626;} |
goto T626;} |
2034 |
goto T625; |
goto T625; |
2035 |
T625:; |
T625:; |
2036 |
{object V317; |
{object V336; |
2037 |
object V318= (V304); |
object V337= (V323); |
2038 |
if(V318==Cnil){ |
if(V337==Cnil){ |
2039 |
V316= Cnil; |
V335= Cnil; |
2040 |
goto T628;} |
goto T628;} |
2041 |
base[0]=V317=MMcons(Cnil,Cnil); |
base[0]=V336=MMcons(Cnil,Cnil); |
2042 |
goto T629; |
goto T629; |
2043 |
T629:; |
T629:; |
2044 |
(V317->c.c_car)= list(2,VV[4],(V318->c.c_car)); |
(V336->c.c_car)= list(2,VV[4],(V337->c.c_car)); |
2045 |
if((V318=MMcdr(V318))==Cnil){ |
if((V337=MMcdr(V337))==Cnil){ |
2046 |
V316= base[0]; |
V335= base[0]; |
2047 |
goto T628;} |
goto T628;} |
2048 |
V317=MMcdr(V317)=MMcons(Cnil,Cnil); |
V336=MMcdr(V336)=MMcons(Cnil,Cnil); |
2049 |
goto T629;} |
goto T629;} |
2050 |
goto T628; |
goto T628; |
2051 |
T628:; |
T628:; |
2052 |
V320= make_cons(VV[31],V316); |
V339= make_cons(VV[31],V335); |
2053 |
V321= make_cons(/* INLINE-ARGS */V320,Cnil); |
V340= make_cons(/* INLINE-ARGS */V339,Cnil); |
2054 |
V322= list(2,VV[5],list(3,VV[6],V312,listA(3,VV[92],VV[93],append((V301),/* INLINE-ARGS */V321)))); |
V341= list(2,VV[5],list(3,VV[6],V331,listA(3,VV[92],VV[93],append((V320),/* INLINE-ARGS */V340)))); |
2055 |
base[1]=VV[169]->s.s_gfdef; |
base[1]=VV[169]->s.s_gfdef; |
2056 |
{object V324; |
{object V343; |
2057 |
object V325= (V300); |
object V344= (V319); |
2058 |
if(V325==Cnil){ |
if(V344==Cnil){ |
2059 |
V323= Cnil; |
V342= Cnil; |
2060 |
goto T631;} |
goto T631;} |
2061 |
base[0]=V324=MMcons(Cnil,Cnil); |
base[0]=V343=MMcons(Cnil,Cnil); |
2062 |
goto T632; |
goto T632; |
2063 |
T632:; |
T632:; |
2064 |
base[2]= (V325->c.c_car); |
base[2]= (V344->c.c_car); |
2065 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2066 |
(void) (*Lnk169)(); |
(void) (*Lnk169)(); |
2067 |
vs_top=sup; |
vs_top=sup; |
2068 |
(V324->c.c_car)= vs_base[0]; |
(V343->c.c_car)= vs_base[0]; |
2069 |
if((V325=MMcdr(V325))==Cnil){ |
if((V344=MMcdr(V344))==Cnil){ |
2070 |
V323= base[0]; |
V342= base[0]; |
2071 |
goto T631;} |
goto T631;} |
2072 |
V324=MMcdr(V324)=MMcons(Cnil,Cnil); |
V343=MMcdr(V343)=MMcons(Cnil,Cnil); |
2073 |
goto T632;} |
goto T632;} |
2074 |
goto T631; |
goto T631; |
2075 |
T631:; |
T631:; |
2076 |
{object V326 = listA(3,VV[91],/* INLINE-ARGS */V322,V323); |
{object V345 = listA(3,VV[91],/* INLINE-ARGS */V341,V342); |
2077 |
VMR26(V326)}} |
VMR26(V345)}} |
2078 |
base[0]=base[0]; |
base[0]=base[0]; |
2079 |
return Cnil; |
return Cnil; |
2080 |
} |
} |
2081 |
/* local entry for function OPTIMIZE-GATHERING-FORM */ |
/* local entry for function OPTIMIZE-GATHERING-FORM */ |
2082 |
|
|
2083 |
static object LI28(V330,V331,V332) |
static object LI28(V349,V350,V351) |
2084 |
|
|
2085 |
object V330;object V331;object V332; |
object V349;object V350;object V351; |
2086 |
{ VMB27 VMS27 VMV27 |
{ VMB27 VMS27 VMV27 |
2087 |
goto TTL; |
goto TTL; |
2088 |
TTL:; |
TTL:; |
2089 |
{object V333; |
{object V352; |
2090 |
register object V334; |
register object V353; |
2091 |
object V335; |
object V354; |
2092 |
register object V336; |
register object V355; |
2093 |
object V337; |
object V356; |
2094 |
V333= Cnil; |
V352= Cnil; |
2095 |
V334= Cnil; |
V353= Cnil; |
2096 |
V335= Cnil; |
V354= Cnil; |
2097 |
V336= Cnil; |
V355= Cnil; |
2098 |
V337= Cnil; |
V356= Cnil; |
2099 |
{object V338; |
{object V357; |
2100 |
register object V339; |
register object V358; |
2101 |
if(!(type_of((V330))==t_symbol)){ |
if(!(type_of((V349))==t_symbol)){ |
2102 |
goto T643;} |
goto T643;} |
2103 |
V340= list(2,VV[90],make_cons((V330),Cnil)); |
V359= list(2,VV[90],make_cons((V349),Cnil)); |
2104 |
V338= make_cons(/* INLINE-ARGS */V340,Cnil); |
V357= make_cons(/* INLINE-ARGS */V359,Cnil); |
2105 |
goto T641; |
goto T641; |
2106 |
goto T643; |
goto T643; |
2107 |
T643:; |
T643:; |
2108 |
V338= (V330); |
V357= (V349); |
2109 |
goto T641; |
goto T641; |
2110 |
T641:; |
T641:; |
2111 |
V339= CMPcar((V338)); |
V358= CMPcar((V357)); |
2112 |
goto T647; |
goto T647; |
2113 |
T647:; |
T647:; |
2114 |
if(!(((V338))==Cnil)){ |
if(!(((V357))==Cnil)){ |
2115 |
goto T648;} |
goto T648;} |
2116 |
goto T640; |
goto T640; |
2117 |
goto T648; |
goto T648; |
2118 |
T648:; |
T648:; |
2119 |
{register object V341; |
{register object V360; |
2120 |
object V342; |
object V361; |
2121 |
object V343; |
object V362; |
2122 |
object V344; |
object V363; |
2123 |
object V345; |
object V364; |
2124 |
object V346; |
object V365; |
2125 |
base[2]= CMPcadr((V339)); |
base[2]= CMPcadr((V358)); |
2126 |
base[3]= VV[89]; |
base[3]= VV[89]; |
2127 |
base[4]= (V332); |
base[4]= (V351); |
2128 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
2129 |
(void) (*Lnk127)(); |
(void) (*Lnk127)(); |
2130 |
if(vs_base>=vs_top){vs_top=sup;goto T657;} |
if(vs_base>=vs_top){vs_top=sup;goto T657;} |
2131 |
V341= vs_base[0]; |
V360= vs_base[0]; |
2132 |
vs_base++; |
vs_base++; |
2133 |
if(vs_base>=vs_top){vs_top=sup;goto T658;} |
if(vs_base>=vs_top){vs_top=sup;goto T658;} |
2134 |
V342= vs_base[0]; |
V361= vs_base[0]; |
2135 |
vs_base++; |
vs_base++; |
2136 |
if(vs_base>=vs_top){vs_top=sup;goto T659;} |
if(vs_base>=vs_top){vs_top=sup;goto T659;} |
2137 |
V343= vs_base[0]; |
V362= vs_base[0]; |
2138 |
vs_base++; |
vs_base++; |
2139 |
if(vs_base>=vs_top){vs_top=sup;goto T660;} |
if(vs_base>=vs_top){vs_top=sup;goto T660;} |
2140 |
V344= vs_base[0]; |
V363= vs_base[0]; |
2141 |
vs_base++; |
vs_base++; |
2142 |
if(vs_base>=vs_top){vs_top=sup;goto T661;} |
if(vs_base>=vs_top){vs_top=sup;goto T661;} |
2143 |
V345= vs_base[0]; |
V364= vs_base[0]; |
2144 |
vs_base++; |
vs_base++; |
2145 |
if(vs_base>=vs_top){vs_top=sup;goto T662;} |
if(vs_base>=vs_top){vs_top=sup;goto T662;} |
2146 |
V346= vs_base[0]; |
V365= vs_base[0]; |
2147 |
vs_top=sup; |
vs_top=sup; |
2148 |
goto T663; |
goto T663; |
2149 |
goto T657; |
goto T657; |
2150 |
T657:; |
T657:; |
2151 |
V341= Cnil; |
V360= Cnil; |
2152 |
goto T658; |
goto T658; |
2153 |
T658:; |
T658:; |
2154 |
V342= Cnil; |
V361= Cnil; |
2155 |
goto T659; |
goto T659; |
2156 |
T659:; |
T659:; |
2157 |
V343= Cnil; |
V362= Cnil; |
2158 |
goto T660; |
goto T660; |
2159 |
T660:; |
T660:; |
2160 |
V344= Cnil; |
V363= Cnil; |
2161 |
goto T661; |
goto T661; |
2162 |
T661:; |
T661:; |
2163 |
V345= Cnil; |
V364= Cnil; |
2164 |
goto T662; |
goto T662; |
2165 |
T662:; |
T662:; |
2166 |
V346= Cnil; |
V365= Cnil; |
2167 |
goto T663; |
goto T663; |
2168 |
T663:; |
T663:; |
2169 |
{object V347; |
{object V366; |
2170 |
object V348; |
object V367; |
2171 |
object V349; |
object V368; |
2172 |
register object V350; |
register object V369; |
2173 |
V347= CMPcar((V339)); |
V366= CMPcar((V358)); |
2174 |
V348= Cnil; |
V367= Cnil; |
2175 |
V349= Cnil; |
V368= Cnil; |
2176 |
V350= Cnil; |
V369= Cnil; |
2177 |
if(!(type_of((V341))==t_cons)){ |
if(!(type_of((V360))==t_cons)){ |
2178 |
goto T670;} |
goto T670;} |
2179 |
if(!((CMPcar((V341)))==(VV[31]))){ |
if(!((CMPcar((V360)))==(VV[31]))){ |
2180 |
goto T670;} |
goto T670;} |
2181 |
V341= CMPcdr((V341)); |
V360= CMPcdr((V360)); |
2182 |
if(!(type_of((V341))==t_cons)){ |
V370 = (V360); |
2183 |
|
if(!(type_of(V370)==t_cons)){ |
2184 |
goto T670;} |
goto T670;} |
2185 |
V349= (VFUN_NARGS=1,(*(LnkLI128))(CMPcar((V341)))); |
V368= (VFUN_NARGS=1,(*(LnkLI128))(CMPcar((V360)))); |
2186 |
if(((V349))==Cnil){ |
if(((V368))==Cnil){ |
2187 |
goto T670;} |
goto T670;} |
2188 |
V341= CMPcdr((V341)); |
V360= CMPcdr((V360)); |
2189 |
if(!(type_of((V341))==t_cons)){ |
V371 = (V360); |
2190 |
|
if(!(type_of(V371)==t_cons)){ |
2191 |
goto T670;} |
goto T670;} |
2192 |
V350= (VFUN_NARGS=2,(*(LnkLI128))(CMPcar((V341)),small_fixnum(0))); |
V369= (VFUN_NARGS=2,(*(LnkLI128))(CMPcar((V360)),small_fixnum(0))); |
2193 |
if(((V350))==Cnil){ |
if(((V369))==Cnil){ |
2194 |
goto T670;} |
goto T670;} |
2195 |
if((CMPcdr((V341)))!=Cnil){ |
if((CMPcdr((V360)))!=Cnil){ |
2196 |
goto T670;} |
goto T670;} |
2197 |
if(((V342))==Cnil){ |
if(((V361))==Cnil){ |
2198 |
goto T689;} |
goto T689;} |
2199 |
if(((V345))==Cnil){ |
if(((V364))==Cnil){ |
2200 |
goto T692;} |
goto T692;} |
2201 |
V351= CMPcadr((V339)); |
V372= CMPcadr((V358)); |
2202 |
V352= make_cons(VV[19],(V345)); |
V373= make_cons(VV[19],(V364)); |
2203 |
(void)((VFUN_NARGS=4,(*(LnkLI129))(VV[14],VV[94],/* INLINE-ARGS */V351,/* INLINE-ARGS */V352))); |
(void)((VFUN_NARGS=4,(*(LnkLI129))(VV[14],VV[94],/* INLINE-ARGS */V372,/* INLINE-ARGS */V373))); |
2204 |
goto T669; |
goto T669; |
2205 |
goto T692; |
goto T692; |
2206 |
T692:; |
T692:; |
2207 |
if(((V343))==Cnil){ |
if(((V362))==Cnil){ |
2208 |
goto T689;} |
goto T689;} |
2209 |
base[3]= (V343); |
base[3]= (V362); |
2210 |
base[4]= (V342); |
base[4]= (V361); |
2211 |
base[5]= (V332); |
base[5]= (V351); |
2212 |
base[6]= (V334); |
base[6]= (V353); |
2213 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
2214 |
(void) (*Lnk130)(); |
(void) (*Lnk130)(); |
2215 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
2216 |
V343= vs_base[0]; |
V362= vs_base[0]; |
2217 |
vs_base++; |
vs_base++; |
2218 |
}else{ |
}else{ |
2219 |
V343= Cnil;} |
V362= Cnil;} |
2220 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
2221 |
V348= vs_base[0]; |
V367= vs_base[0]; |
2222 |
}else{ |
}else{ |
2223 |
V348= Cnil;} |
V367= Cnil;} |
2224 |
vs_top=sup; |
vs_top=sup; |
2225 |
V335= nconc((V335),(V343)); |
V354= nconc((V354),(V362)); |
2226 |
V334= Cnil; |
V353= Cnil; |
2227 |
goto T689; |
goto T689; |
2228 |
T689:; |
T689:; |
2229 |
V334= nconc((V334),(V346)); |
V353= nconc((V353),(V365)); |
2230 |
{object V353; |
{object V374; |
2231 |
V354= (*(LnkLI170))((V349),(V348),(V332)); |
V375 = (V366); |
2232 |
V353= make_cons((V347),/* INLINE-ARGS */V354); |
V376= (*(LnkLI170))((V368),(V367),(V351)); |
2233 |
V333= make_cons((V353),(V333));} |
V374= make_cons(V375,/* INLINE-ARGS */V376); |
2234 |
base[3]= (V350); |
V352= make_cons((V374),(V352));} |
2235 |
base[4]= (V348); |
base[3]= (V369); |
2236 |
base[5]= (V332); |
base[4]= (V367); |
2237 |
|
base[5]= (V351); |
2238 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
2239 |
(void) (*Lnk147)(); |
(void) (*Lnk147)(); |
2240 |
vs_top=sup; |
vs_top=sup; |
2241 |
V350= vs_base[0]; |
V369= vs_base[0]; |
2242 |
{object V355; |
{object V377; |
2243 |
if((CMPcdddr((V350)))!=Cnil){ |
if((CMPcdddr((V369)))!=Cnil){ |
2244 |
goto T720;} |
goto T720;} |
2245 |
V355= CMPcaddr((V350)); |
V377= CMPcaddr((V369)); |
2246 |
goto T718; |
goto T718; |
2247 |
goto T720; |
goto T720; |
2248 |
T720:; |
T720:; |
2249 |
V355= make_cons(VV[18],CMPcdr((V350))); |
V377= make_cons(VV[18],CMPcdr((V369))); |
2250 |
goto T718; |
goto T718; |
2251 |
T718:; |
T718:; |
2252 |
V336= make_cons((V355),(V336));} |
V355= make_cons((V377),(V355));} |
2253 |
if(((V344))==Cnil){ |
if(((V363))==Cnil){ |
2254 |
goto T723;} |
goto T723;} |
2255 |
V356= (check_alist(V348),sublis1(V348,(V344),&eql)); |
V378 = (V356); |
2256 |
V337= nconc((V337),V356); |
V379= (check_alist(V367),sublis1(V367,(V363),&eql)); |
2257 |
|
V356= nconc(V378,V379); |
2258 |
goto T723; |
goto T723; |
2259 |
T723:; |
T723:; |
2260 |
goto T652; |
goto T652; |
2261 |
goto T670; |
goto T670; |
2262 |
T670:; |
T670:; |
2263 |
(void)((VFUN_NARGS=3,(*(LnkLI129))(VV[14],VV[95],CMPcadr((V339))))); |
(void)((VFUN_NARGS=3,(*(LnkLI129))(VV[14],VV[95],CMPcadr((V358))))); |
2264 |
goto T669; |
goto T669; |
2265 |
T669:; |
T669:; |
2266 |
{register object V358; |
{register object V381; |
2267 |
object V359; |
object V382; |
2268 |
vs_base=vs_top; |
vs_base=vs_top; |
2269 |
Lgensym(); |
Lgensym(); |
2270 |
vs_top=sup; |
vs_top=sup; |
2271 |
V358= vs_base[0]; |
V381= vs_base[0]; |
2272 |
V359= list(2,VV[96],CMPcadr((V339))); |
V382= list(2,VV[96],CMPcadr((V358))); |
2273 |
{object V360; |
{object V383; |
2274 |
V360= list(2,(V347),(V358)); |
V383= list(2,(V366),(V381)); |
2275 |
V333= make_cons((V360),(V333));} |
V352= make_cons((V383),(V352));} |
2276 |
{object V361; |
{object V384; |
2277 |
V361= list(2,VV[4],list(2,VV[97],(V358))); |
V384= list(2,VV[4],list(2,VV[97],(V381))); |
2278 |
V336= make_cons((V361),(V336));} |
V355= make_cons((V384),(V355));} |
2279 |
if(((V334))==Cnil){ |
V385 = (V381); |
2280 |
|
if(((V353))==Cnil){ |
2281 |
goto T740;} |
goto T740;} |
2282 |
{object V364; |
{object V388; |
2283 |
V364= (V334); |
V388= (V353); |
2284 |
V334= Cnil; |
V353= Cnil; |
2285 |
V363= (V364);} |
V387= (V388);} |
2286 |
V365= make_cons((V359),Cnil); |
V389= make_cons((V382),Cnil); |
2287 |
V366= append(V363,/* INLINE-ARGS */V365); |
V390= append(V387,/* INLINE-ARGS */V389); |
2288 |
V362= make_cons(VV[20],/* INLINE-ARGS */V366); |
V386= make_cons(VV[20],/* INLINE-ARGS */V390); |
2289 |
goto T738; |
goto T738; |
2290 |
goto T740; |
goto T740; |
2291 |
T740:; |
T740:; |
2292 |
V362= (V359); |
V386= (V382); |
2293 |
goto T738; |
goto T738; |
2294 |
T738:; |
T738:; |
2295 |
V367= list(2,(V358),V362); |
V391= list(2,V385,V386); |
2296 |
V368= make_cons(/* INLINE-ARGS */V367,Cnil); |
V392= make_cons(/* INLINE-ARGS */V391,Cnil); |
2297 |
V335= nconc((V335),/* INLINE-ARGS */V368);} |
V354= nconc((V354),/* INLINE-ARGS */V392);} |
2298 |
goto T652;}} |
goto T652;}} |
2299 |
goto T652; |
goto T652; |
2300 |
T652:; |
T652:; |
2301 |
V338= CMPcdr((V338)); |
V357= CMPcdr((V357)); |
2302 |
V339= CMPcar((V338)); |
V358= CMPcar((V357)); |
2303 |
goto T647;} |
goto T647;} |
2304 |
goto T640; |
goto T640; |
2305 |
T640:; |
T640:; |
2306 |
base[0]= (V331); |
base[0]= (V350); |
2307 |
base[1]= (V332); |
base[1]= (V351); |
2308 |
base[2]= (V333); |
base[2]= (V352); |
2309 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2310 |
(void) (*Lnk171)(); |
(void) (*Lnk171)(); |
2311 |
vs_top=sup; |
vs_top=sup; |
2312 |
V331= vs_base[0]; |
V350= vs_base[0]; |
2313 |
if(!(((V331))==(VV[13]))){ |
if(!(((V350))==(VV[13]))){ |
2314 |
goto T756;} |
goto T756;} |
2315 |
{object V369 = Cnil; |
{object V393 = Cnil; |
2316 |
VMR27(V369)} |
VMR27(V393)} |
2317 |
goto T756; |
goto T756; |
2318 |
T756:; |
T756:; |
2319 |
if((V337)==Cnil){ |
if((V356)==Cnil){ |
2320 |
V370= Cnil; |
V394= Cnil; |
2321 |
goto T758;} |
goto T758;} |
2322 |
V371= make_cons(VV[19],(V337)); |
V395= make_cons(VV[19],(V356)); |
2323 |
V370= make_cons(/* INLINE-ARGS */V371,Cnil); |
V394= make_cons(/* INLINE-ARGS */V395,Cnil); |
2324 |
goto T758; |
goto T758; |
2325 |
T758:; |
T758:; |
2326 |
if((CMPcdr((V336)))!=Cnil){ |
V396 = (V350); |
2327 |
|
if((CMPcdr((V355)))!=Cnil){ |
2328 |
goto T761;} |
goto T761;} |
2329 |
V372= CMPcar((V336)); |
V397= CMPcar((V355)); |
2330 |
goto T759; |
goto T759; |
2331 |
goto T761; |
goto T761; |
2332 |
T761:; |
T761:; |
2333 |
V373= reverse((V336)); |
V398= reverse((V355)); |
2334 |
V372= make_cons(VV[31],/* INLINE-ARGS */V373); |
V397= make_cons(VV[31],/* INLINE-ARGS */V398); |
2335 |
goto T759; |
goto T759; |
2336 |
T759:; |
T759:; |
2337 |
V374= list(2,(V331),V372); |
V399= list(2,V396,V397); |
2338 |
{object V375 = listA(3,VV[1],(V335),append(V370,/* INLINE-ARGS */V374)); |
{object V400 = listA(3,VV[1],(V354),append(V394,/* INLINE-ARGS */V399)); |
2339 |
VMR27(V375)}} |
VMR27(V400)}} |
2340 |
base[0]=base[0]; |
base[0]=base[0]; |
2341 |
return Cnil; |
return Cnil; |
2342 |
} |
} |
2343 |
/* local entry for function RENAME-AND-CAPTURE-VARIABLES */ |
/* local entry for function RENAME-AND-CAPTURE-VARIABLES */ |
2344 |
|
|
2345 |
static object LI30(V379,V380,V381) |
static object LI30(V404,V405,V406) |
2346 |
|
|
2347 |
object V379;object V380;object V381; |
object V404;object V405;object V406; |
2348 |
{ VMB28 VMS28 VMV28 |
{ VMB28 VMS28 VMV28 |
2349 |
goto TTL; |
goto TTL; |
2350 |
TTL:; |
TTL:; |
2351 |
base[0]=MMcons((V381),Cnil); |
base[0]=MMcons((V406),Cnil); |
2352 |
base[1]=MMcons((V380),base[0]); |
base[1]=MMcons((V405),base[0]); |
2353 |
base[2]=MMcons(Cnil,base[1]); |
base[2]=MMcons(Cnil,base[1]); |
2354 |
base[3]= (V379); |
base[3]= (V404); |
2355 |
base[4]= (base[0]->c.c_car); |
base[4]= (base[0]->c.c_car); |
2356 |
base[5]= |
base[5]= |
2357 |
make_cclosure_new(LC40,Cnil,base[2],Cdata); |
make_cclosure_new(LC40,Cnil,base[2],Cdata); |
2358 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
2359 |
(void) (*Lnk139)(); |
(void) (*Lnk139)(); |
2360 |
vs_top=sup; |
vs_top=sup; |
2361 |
V382= vs_base[0]; |
V407= vs_base[0]; |
2362 |
{object V383 = list(2,V382,(base[2]->c.c_car)); |
V408 = (base[2]->c.c_car); |
2363 |
VMR28(V383)} |
{object V409 = list(2,V407,V408); |
2364 |
|
VMR28(V409)} |
2365 |
base[0]=base[0]; |
base[0]=base[0]; |
2366 |
return Cnil; |
return Cnil; |
2367 |
} |
} |
2372 |
register object *VOL sup=base+VM29; VC29 |
register object *VOL sup=base+VM29; VC29 |
2373 |
vs_check; |
vs_check; |
2374 |
bds_check; |
bds_check; |
2375 |
{VOL object V384; |
{VOL object V410; |
2376 |
check_arg(3); |
check_arg(3); |
2377 |
V384=(base[0]); |
V410=(base[0]); |
2378 |
base[1]=MMcons(base[1],Cnil); |
base[1]=MMcons(base[1],Cnil); |
2379 |
base[2]=MMcons(base[2],base[1]); |
base[2]=MMcons(base[2],base[1]); |
2380 |
vs_top=sup; |
vs_top=sup; |
2385 |
{nlj_active=FALSE;frs_pop(); |
{nlj_active=FALSE;frs_pop(); |
2386 |
return;} |
return;} |
2387 |
else{ |
else{ |
2388 |
{object V386; |
{object V412; |
2389 |
object V387= (base[2]->c.c_car); |
object V413= (base[2]->c.c_car); |
2390 |
if(V387==Cnil){ |
if(V413==Cnil){ |
2391 |
V385= Cnil; |
V411= Cnil; |
2392 |
goto T768;} |
goto T768;} |
2393 |
base[5]=V386=MMcons(Cnil,Cnil); |
base[5]=V412=MMcons(Cnil,Cnil); |
2394 |
goto T769; |
goto T769; |
2395 |
T769:; |
T769:; |
2396 |
(V386->c.c_car)= CMPcar((V387->c.c_car)); |
(V412->c.c_car)= CMPcar((V413->c.c_car)); |
2397 |
if((V387=MMcdr(V387))==Cnil){ |
if((V413=MMcdr(V413))==Cnil){ |
2398 |
V385= base[5]; |
V411= base[5]; |
2399 |
goto T768;} |
goto T768;} |
2400 |
V386=MMcdr(V386)=MMcons(Cnil,Cnil); |
V412=MMcdr(V412)=MMcons(Cnil,Cnil); |
2401 |
goto T769;} |
goto T769;} |
2402 |
goto T768; |
goto T768; |
2403 |
T768:; |
T768:; |
2404 |
base[4]= nconc(V385,(VV[98]->s.s_dbind)); |
V414 = (VV[98]->s.s_dbind); |
2405 |
|
base[4]= nconc(V411,V414); |
2406 |
bds_bind(VV[98],base[4]); |
bds_bind(VV[98],base[4]); |
2407 |
base[5]= make_cons(VV[20],(V384)); |
base[5]= make_cons(VV[20],(V410)); |
2408 |
base[6]= (base[1]->c.c_car); |
base[6]= (base[1]->c.c_car); |
2409 |
base[7]= |
base[7]= |
2410 |
make_cclosure_new(LC41,Cnil,base[3],Cdata); |
make_cclosure_new(LC41,Cnil,base[3],Cdata); |
2424 |
vs_check; |
vs_check; |
2425 |
check_arg(2); |
check_arg(2); |
2426 |
vs_top=sup; |
vs_top=sup; |
2427 |
{object V388=base[0]->c.c_cdr; |
{object V415=base[0]->c.c_cdr; |
2428 |
{object V389=getf(V388,VV[172],OBJNULL); |
{object V416=getf(V415,VV[172],OBJNULL); |
2429 |
if(V389==OBJNULL){ |
if(V416==OBJNULL){ |
2430 |
base[2]= Cnil;} else { |
base[2]= Cnil;} else { |
2431 |
base[2]= V389; |
base[2]= V416; |
2432 |
}} |
}} |
2433 |
check_other_key(V388,1,VV[172]);} |
check_other_key(V415,1,VV[172]);} |
2434 |
V390= list(2,VV[108],base[2]); |
V417= list(2,VV[108],base[2]); |
2435 |
if(base[2]==Cnil){ |
if(base[2]==Cnil){ |
2436 |
V391= Cnil; |
V418= Cnil; |
2437 |
goto T775;} |
goto T775;} |
2438 |
V391= VV[109]; |
V418= VV[109]; |
2439 |
goto T775; |
goto T775; |
2440 |
T775:; |
T775:; |
2441 |
base[3]= list(3,VV[1],list(2,/* INLINE-ARGS */V390,list(2,VV[54],V391)),VV[110]); |
base[3]= list(3,VV[1],list(2,/* INLINE-ARGS */V417,list(2,VV[54],V418)),VV[110]); |
2442 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2443 |
return; |
return; |
2444 |
} |
} |
2450 |
vs_check; |
vs_check; |
2451 |
check_arg(2); |
check_arg(2); |
2452 |
vs_top=sup; |
vs_top=sup; |
2453 |
{object V392=base[0]->c.c_cdr; |
{object V419=base[0]->c.c_cdr; |
2454 |
{object V393=getf(V392,VV[172],OBJNULL); |
{object V420=getf(V419,VV[172],OBJNULL); |
2455 |
if(V393==OBJNULL){ |
if(V420==OBJNULL){ |
2456 |
base[2]= Cnil;} else { |
base[2]= Cnil;} else { |
2457 |
base[2]= V393; |
base[2]= V420; |
2458 |
}} |
}} |
2459 |
check_other_key(V392,1,VV[172]);} |
check_other_key(V419,1,VV[172]);} |
2460 |
V394= list(2,VV[111],base[2]); |
V421= list(2,VV[111],base[2]); |
2461 |
base[3]= list(3,VV[18],make_cons(/* INLINE-ARGS */V394,Cnil),VV[112]); |
base[3]= list(3,VV[18],make_cons(/* INLINE-ARGS */V421,Cnil),VV[112]); |
2462 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2463 |
return; |
return; |
2464 |
} |
} |
2470 |
vs_check; |
vs_check; |
2471 |
check_arg(2); |
check_arg(2); |
2472 |
vs_top=sup; |
vs_top=sup; |
2473 |
{object V395=base[0]->c.c_cdr; |
{object V422=base[0]->c.c_cdr; |
2474 |
{object V396=getf(V395,VV[172],OBJNULL); |
{object V423=getf(V422,VV[172],OBJNULL); |
2475 |
if(V396==OBJNULL){ |
if(V423==OBJNULL){ |
2476 |
base[2]= Cnil;} else { |
base[2]= Cnil;} else { |
2477 |
base[2]= V396; |
base[2]= V423; |
2478 |
}} |
}} |
2479 |
check_other_key(V395,1,VV[172]);} |
check_other_key(V422,1,VV[172]);} |
2480 |
V397= list(2,VV[111],base[2]); |
V424= list(2,VV[111],base[2]); |
2481 |
V398= make_cons(/* INLINE-ARGS */V397,Cnil); |
V425= make_cons(/* INLINE-ARGS */V424,Cnil); |
2482 |
base[3]= base[2]; |
base[3]= base[2]; |
2483 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2484 |
Lconstantp(); |
Lconstantp(); |
2491 |
vs_top=sup; |
vs_top=sup; |
2492 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2493 |
goto T780;} |
goto T780;} |
2494 |
V399= VV[114]; |
V426= VV[114]; |
2495 |
goto T778; |
goto T778; |
2496 |
goto T780; |
goto T780; |
2497 |
T780:; |
T780:; |
2498 |
V399= VV[115]; |
V426= VV[115]; |
2499 |
goto T778; |
goto T778; |
2500 |
T778:; |
T778:; |
2501 |
base[3]= list(3,VV[18],/* INLINE-ARGS */V398,list(3,VV[31],list(2,VV[5],list(3,VV[6],VV[113],list(3,VV[86],V399,VV[116]))),VV[117])); |
base[3]= list(3,VV[18],/* INLINE-ARGS */V425,list(3,VV[31],list(2,VV[5],list(3,VV[6],VV[113],list(3,VV[86],V426,VV[116]))),VV[117])); |
2502 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2503 |
return; |
return; |
2504 |
} |
} |
2510 |
vs_check; |
vs_check; |
2511 |
check_arg(2); |
check_arg(2); |
2512 |
vs_top=sup; |
vs_top=sup; |
2513 |
{object V400=base[0]->c.c_cdr; |
{object V427=base[0]->c.c_cdr; |
2514 |
{object V401=getf(V400,VV[172],OBJNULL); |
{object V428=getf(V427,VV[172],OBJNULL); |
2515 |
if(V401==OBJNULL){ |
if(V428==OBJNULL){ |
2516 |
base[2]= Cnil;} else { |
base[2]= Cnil;} else { |
2517 |
base[2]= V401; |
base[2]= V428; |
2518 |
}} |
}} |
2519 |
check_other_key(V400,1,VV[172]);} |
check_other_key(V427,1,VV[172]);} |
2520 |
V402= list(2,VV[111],base[2]); |
V429= list(2,VV[111],base[2]); |
2521 |
V403= make_cons(/* INLINE-ARGS */V402,Cnil); |
V430= make_cons(/* INLINE-ARGS */V429,Cnil); |
2522 |
base[3]= base[2]; |
base[3]= base[2]; |
2523 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2524 |
Lconstantp(); |
Lconstantp(); |
2531 |
vs_top=sup; |
vs_top=sup; |
2532 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2533 |
goto T789;} |
goto T789;} |
2534 |
V404= VV[119]; |
V431= VV[119]; |
2535 |
goto T787; |
goto T787; |
2536 |
goto T789; |
goto T789; |
2537 |
T789:; |
T789:; |
2538 |
V404= VV[120]; |
V431= VV[120]; |
2539 |
goto T787; |
goto T787; |
2540 |
T787:; |
T787:; |
2541 |
base[3]= list(3,VV[18],/* INLINE-ARGS */V403,list(3,VV[31],list(2,VV[5],list(3,VV[6],VV[118],list(3,VV[86],V404,VV[121]))),VV[122])); |
base[3]= list(3,VV[18],/* INLINE-ARGS */V430,list(3,VV[31],list(2,VV[5],list(3,VV[6],VV[118],list(3,VV[86],V431,VV[121]))),VV[122])); |
2542 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2543 |
return; |
return; |
2544 |
} |
} |
2550 |
vs_check; |
vs_check; |
2551 |
check_arg(2); |
check_arg(2); |
2552 |
vs_top=sup; |
vs_top=sup; |
2553 |
{object V405=base[0]->c.c_cdr; |
{object V432=base[0]->c.c_cdr; |
2554 |
{object V406=getf(V405,VV[172],OBJNULL); |
{object V433=getf(V432,VV[172],OBJNULL); |
2555 |
if(V406==OBJNULL){ |
if(V433==OBJNULL){ |
2556 |
base[2]= small_fixnum(0);} else { |
base[2]= small_fixnum(0);} else { |
2557 |
base[2]= V406; |
base[2]= V433; |
2558 |
}} |
}} |
2559 |
check_other_key(V405,1,VV[172]);} |
check_other_key(V432,1,VV[172]);} |
2560 |
V407= list(2,VV[123],base[2]); |
V434= list(2,VV[123],base[2]); |
2561 |
base[3]= list(3,VV[18],make_cons(/* INLINE-ARGS */V407,Cnil),VV[124]); |
base[3]= list(3,VV[18],make_cons(/* INLINE-ARGS */V434,Cnil),VV[124]); |
2562 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2563 |
return; |
return; |
2564 |
} |
} |
2569 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2570 |
register object *sup=base+VM35; VC35 |
register object *sup=base+VM35; VC35 |
2571 |
vs_check; |
vs_check; |
2572 |
{register object V408; |
{register object V435; |
2573 |
object V409; |
object V436; |
2574 |
register object V410; |
register object V437; |
2575 |
check_arg(3); |
check_arg(3); |
2576 |
V408=(base[0]); |
V435=(base[0]); |
2577 |
V409=(base[1]); |
V436=(base[1]); |
2578 |
V410=(base[2]); |
V437=(base[2]); |
2579 |
vs_top=sup; |
vs_top=sup; |
2580 |
{register object V411; |
{register object V438; |
2581 |
register object V412; |
register object V439; |
2582 |
V411= Cnil; |
V438= Cnil; |
2583 |
V412= Cnil; |
V439= Cnil; |
2584 |
if(!(type_of((V408))==t_cons)){ |
if(!(type_of((V435))==t_cons)){ |
2585 |
goto T797;} |
goto T797;} |
2586 |
if((CMPcar((V408)))==(VV[99])){ |
if((CMPcar((V435)))==(VV[99])){ |
2587 |
goto T800;} |
goto T800;} |
2588 |
if(!((CMPcar((V408)))==(VV[5]))){ |
if(!((CMPcar((V435)))==(VV[5]))){ |
2589 |
goto T802;} |
goto T802;} |
2590 |
if(!((CMPcadr((V408)))==(VV[99]))){ |
if(!((CMPcadr((V435)))==(VV[99]))){ |
2591 |
goto T802;} |
goto T802;} |
2592 |
(void)((VFUN_NARGS=2,(*(LnkLI129))(VV[16],VV[100]))); |
(void)((VFUN_NARGS=2,(*(LnkLI129))(VV[16],VV[100]))); |
2593 |
{frame_ptr fr; |
{frame_ptr fr; |
2598 |
unwind(fr,Cnil);} |
unwind(fr,Cnil);} |
2599 |
goto T802; |
goto T802; |
2600 |
T802:; |
T802:; |
2601 |
base[3]= (V408); |
base[3]= (V435); |
2602 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2603 |
return; |
return; |
2604 |
goto T800; |
goto T800; |
2605 |
T800:; |
T800:; |
2606 |
if((CMPcddr((V408)))!=Cnil){ |
if((CMPcddr((V435)))!=Cnil){ |
2607 |
goto T815;} |
goto T815;} |
2608 |
V412= VV[90]; |
V439= VV[90]; |
2609 |
goto T813; |
goto T813; |
2610 |
goto T815; |
goto T815; |
2611 |
T815:; |
T815:; |
2612 |
V412= CMPcaddr((V408)); |
V439= CMPcaddr((V435)); |
2613 |
goto T813; |
goto T813; |
2614 |
T813:; |
T813:; |
2615 |
{register object x= (V412),V413= (base0[1]->c.c_car); |
V441 = (V439); |
2616 |
while(V413!=Cnil) |
V442 = (base0[1]->c.c_car); |
2617 |
if(eql(x,V413->c.c_car->c.c_car) &&V413->c.c_car != Cnil){ |
{register object x= V441,V440= V442; |
2618 |
V411= (V413->c.c_car); |
while(V440!=Cnil) |
2619 |
|
if(eql(x,V440->c.c_car->c.c_car) &&V440->c.c_car != Cnil){ |
2620 |
|
V438= (V440->c.c_car); |
2621 |
goto T812; |
goto T812; |
2622 |
}else V413=V413->c.c_cdr; |
}else V440=V440->c.c_cdr; |
2623 |
V411= Cnil;} |
V438= Cnil;} |
2624 |
goto T812; |
goto T812; |
2625 |
T812:; |
T812:; |
2626 |
if(((V411))==Cnil){ |
if(((V438))==Cnil){ |
2627 |
goto T810;} |
goto T810;} |
2628 |
if((CMPcdddr((V408)))==Cnil){ |
if((CMPcdddr((V435)))==Cnil){ |
2629 |
goto T817;} |
goto T817;} |
2630 |
base[3]= VV[101]; |
base[3]= VV[101]; |
2631 |
base[4]= (V408); |
base[4]= (V435); |
2632 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2633 |
(void) (*Lnk126)(); |
(void) (*Lnk126)(); |
2634 |
vs_top=sup; |
vs_top=sup; |
2635 |
goto T817; |
goto T817; |
2636 |
T817:; |
T817:; |
2637 |
{object V414; |
{object V443; |
2638 |
V414= CMPcadr((V411)); |
V443= CMPcadr((V438)); |
2639 |
if(!(type_of((V414))==t_symbol)){ |
if(!(type_of((V443))==t_symbol)){ |
2640 |
goto T824;} |
goto T824;} |
2641 |
base[3]= list(3,VV[4],list(2,VV[102],(V414)),CMPcadr((V408))); |
base[3]= list(3,VV[4],list(2,VV[102],(V443)),CMPcadr((V435))); |
2642 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2643 |
return; |
return; |
2644 |
goto T824; |
goto T824; |
2645 |
T824:; |
T824:; |
2646 |
{register object V415; |
{register object V444; |
2647 |
register object V416; |
register object V445; |
2648 |
V415= CMPcaddr((V411)); |
V444= CMPcaddr((V438)); |
2649 |
V416= CMPcar((V415)); |
V445= CMPcar((V444)); |
2650 |
goto T830; |
goto T830; |
2651 |
T830:; |
T830:; |
2652 |
if(!(((V415))==Cnil)){ |
if(!(((V444))==Cnil)){ |
2653 |
goto T831;} |
goto T831;} |
2654 |
goto T826; |
goto T826; |
2655 |
goto T831; |
goto T831; |
2656 |
T831:; |
T831:; |
2657 |
if(((*(LnkLI173))((V416),(V410),(base0[2]->c.c_car)))!=Cnil){ |
if(((*(LnkLI173))((V445),(V437),(base0[2]->c.c_car)))!=Cnil){ |
2658 |
goto T835;} |
goto T835;} |
2659 |
if(((*(LnkLI174))((V416),(V410)))==Cnil){ |
if(((*(LnkLI174))((V445),(V437)))==Cnil){ |
2660 |
goto T836;} |
goto T836;} |
2661 |
if(((*(LnkLI174))((V416),(base0[2]->c.c_car)))!=Cnil){ |
if(((*(LnkLI174))((V445),(base0[2]->c.c_car)))!=Cnil){ |
2662 |
goto T835;} |
goto T835;} |
2663 |
goto T836; |
goto T836; |
2664 |
T836:; |
T836:; |
2665 |
(void)((VFUN_NARGS=3,(*(LnkLI129))(VV[16],VV[103],(V416)))); |
(void)((VFUN_NARGS=3,(*(LnkLI129))(VV[16],VV[103],(V445)))); |
2666 |
{frame_ptr fr; |
{frame_ptr fr; |
2667 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
2668 |
if(fr==NULL) FEerror("The block ~s is missing.",1,VV[171]); |
if(fr==NULL) FEerror("The block ~s is missing.",1,VV[171]); |
2671 |
unwind(fr,Cnil);} |
unwind(fr,Cnil);} |
2672 |
goto T835; |
goto T835; |
2673 |
T835:; |
T835:; |
2674 |
V415= CMPcdr((V415)); |
V444= CMPcdr((V444)); |
2675 |
V416= CMPcar((V415)); |
V445= CMPcar((V444)); |
2676 |
goto T830;} |
goto T830;} |
2677 |
goto T826; |
goto T826; |
2678 |
T826:; |
T826:; |
2679 |
base[3]= list(2,(V414),CMPcadr((V408))); |
base[3]= list(2,(V443),CMPcadr((V435))); |
2680 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2681 |
return;} |
return;} |
2682 |
goto T810; |
goto T810; |
2683 |
T810:; |
T810:; |
2684 |
{register object x= (V412),V417= (VV[98]->s.s_dbind); |
{register object x= (V439),V446= (VV[98]->s.s_dbind); |
2685 |
while(V417!=Cnil) |
while(V446!=Cnil) |
2686 |
if(eql(x,V417->c.c_car)){ |
if(eql(x,V446->c.c_car)){ |
2687 |
V411= V417; |
V438= V446; |
2688 |
goto T853; |
goto T853; |
2689 |
}else V417=V417->c.c_cdr; |
}else V446=V446->c.c_cdr; |
2690 |
V411= Cnil;} |
V438= Cnil;} |
2691 |
goto T853; |
goto T853; |
2692 |
T853:; |
T853:; |
2693 |
if(((V411))==Cnil){ |
if(((V438))==Cnil){ |
2694 |
goto T850;} |
goto T850;} |
2695 |
if(((V412))==(VV[90])){ |
if(((V439))==(VV[90])){ |
2696 |
goto T849;} |
goto T849;} |
2697 |
if(((*(LnkLI173))((V412),(V410),CMPcadddr((V411))))==Cnil){ |
if(((*(LnkLI173))((V439),(V437),CMPcadddr((V438))))==Cnil){ |
2698 |
goto T850;} |
goto T850;} |
2699 |
goto T849; |
goto T849; |
2700 |
T849:; |
T849:; |
2701 |
base[3]= (V408); |
base[3]= (V435); |
2702 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2703 |
return; |
return; |
2704 |
goto T850; |
goto T850; |
2705 |
T850:; |
T850:; |
2706 |
if(!(((V412))==(VV[90]))){ |
if(!(((V439))==(VV[90]))){ |
2707 |
goto T859;} |
goto T859;} |
2708 |
base[3]= VV[104]; |
base[3]= VV[104]; |
2709 |
base[4]= (V408); |
base[4]= (V435); |
2710 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2711 |
(void) (*Lnk126)(); |
(void) (*Lnk126)(); |
2712 |
vs_top=sup; |
vs_top=sup; |
2714 |
goto T859; |
goto T859; |
2715 |
T859:; |
T859:; |
2716 |
base[3]= VV[105]; |
base[3]= VV[105]; |
2717 |
base[4]= (V412); |
base[4]= (V439); |
2718 |
base[5]= (V408); |
base[5]= (V435); |
2719 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
2720 |
(void) (*Lnk126)(); |
(void) (*Lnk126)(); |
2721 |
vs_top=sup; |
vs_top=sup; |
2722 |
goto T857; |
goto T857; |
2723 |
T857:; |
T857:; |
2724 |
base[3]= make_cons(VV[106],CMPcdr((V408))); |
base[3]= make_cons(VV[106],CMPcdr((V435))); |
2725 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2726 |
return; |
return; |
2727 |
goto T797; |
goto T797; |
2728 |
T797:; |
T797:; |
2729 |
if(!(type_of((V408))==t_symbol)){ |
if(!(type_of((V435))==t_symbol)){ |
2730 |
goto T867;} |
goto T867;} |
2731 |
{register object x= (V408),V418= (base0[1]->c.c_car); |
{register object x= (V435),V447= (base0[1]->c.c_car); |
2732 |
while(V418!=Cnil) |
while(V447!=Cnil) |
2733 |
if(eql(x,V418->c.c_car->c.c_car) &&V418->c.c_car != Cnil){ |
if(eql(x,V447->c.c_car->c.c_car) &&V447->c.c_car != Cnil){ |
2734 |
V411= (V418->c.c_car); |
V438= (V447->c.c_car); |
2735 |
goto T872; |
goto T872; |
2736 |
}else V418=V418->c.c_cdr; |
}else V447=V447->c.c_cdr; |
2737 |
V411= Cnil;} |
V438= Cnil;} |
2738 |
goto T872; |
goto T872; |
2739 |
T872:; |
T872:; |
2740 |
if(((V411))==Cnil){ |
if(((V438))==Cnil){ |
2741 |
goto T867;} |
goto T867;} |
2742 |
if(((*(LnkLI173))((V408),(V410),(base0[2]->c.c_car)))==Cnil){ |
if(((*(LnkLI173))((V435),(V437),(base0[2]->c.c_car)))==Cnil){ |
2743 |
goto T867;} |
goto T867;} |
2744 |
(void)((VFUN_NARGS=3,(*(LnkLI129))(VV[16],VV[107],(V408)))); |
(void)((VFUN_NARGS=3,(*(LnkLI129))(VV[16],VV[107],(V435)))); |
2745 |
{frame_ptr fr; |
{frame_ptr fr; |
2746 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
2747 |
if(fr==NULL) FEerror("The block ~s is missing.",1,VV[171]); |
if(fr==NULL) FEerror("The block ~s is missing.",1,VV[171]); |
2750 |
unwind(fr,Cnil);} |
unwind(fr,Cnil);} |
2751 |
goto T867; |
goto T867; |
2752 |
T867:; |
T867:; |
2753 |
base[3]= (V408); |
base[3]= (V435); |
2754 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2755 |
return;} |
return;} |
2756 |
} |
} |
2762 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2763 |
register object *sup=base+VM36; VC36 |
register object *sup=base+VM36; VC36 |
2764 |
vs_check; |
vs_check; |
2765 |
{register object V419; |
{register object V448; |
2766 |
object V420; |
object V449; |
2767 |
object V421; |
object V450; |
2768 |
check_arg(3); |
check_arg(3); |
2769 |
V419=(base[0]); |
V448=(base[0]); |
2770 |
V420=(base[1]); |
V449=(base[1]); |
2771 |
V421=(base[2]); |
V450=(base[2]); |
2772 |
vs_top=sup; |
vs_top=sup; |
2773 |
{object V422; |
{object V451; |
2774 |
V422= Cnil; |
V451= Cnil; |
2775 |
if(!(type_of((V419))==t_symbol)){ |
if(!(type_of((V448))==t_symbol)){ |
2776 |
goto T876;} |
goto T876;} |
2777 |
if(((*(LnkLI173))((V419),(V421),(base0[2]->c.c_car)))!=Cnil){ |
if(((*(LnkLI173))((V448),(V450),(base0[2]->c.c_car)))!=Cnil){ |
2778 |
goto T877;} |
goto T877;} |
2779 |
goto T876; |
goto T876; |
2780 |
T876:; |
T876:; |
2781 |
base[3]= (V419); |
base[3]= (V448); |
2782 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2783 |
return; |
return; |
2784 |
goto T877; |
goto T877; |
2785 |
T877:; |
T877:; |
2786 |
{register object x= (V419),V423= (base0[1]->c.c_car); |
{register object x= (V448),V452= (base0[1]->c.c_car); |
2787 |
while(V423!=Cnil) |
while(V452!=Cnil) |
2788 |
if(eql(x,V423->c.c_car->c.c_car) &&V423->c.c_car != Cnil){ |
if(eql(x,V452->c.c_car->c.c_car) &&V452->c.c_car != Cnil){ |
2789 |
V422= (V423->c.c_car); |
V451= (V452->c.c_car); |
2790 |
goto T884; |
goto T884; |
2791 |
}else V423=V423->c.c_cdr; |
}else V452=V452->c.c_cdr; |
2792 |
V422= Cnil;} |
V451= Cnil;} |
2793 |
goto T884; |
goto T884; |
2794 |
T884:; |
T884:; |
2795 |
if(((V422))==Cnil){ |
if(((V451))==Cnil){ |
2796 |
goto T882;} |
goto T882;} |
2797 |
base[3]= CMPcdr((V422)); |
base[3]= CMPcdr((V451)); |
2798 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2799 |
return; |
return; |
2800 |
goto T882; |
goto T882; |
2801 |
T882:; |
T882:; |
2802 |
base[3]= V419; |
base[3]= V448; |
2803 |
base[4]= (base0[0]->c.c_car); |
base[4]= (base0[0]->c.c_car); |
2804 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
2805 |
Ladjoin(); |
Ladjoin(); |
2806 |
vs_top=sup; |
vs_top=sup; |
2807 |
(base0[0]->c.c_car)= vs_base[0]; |
(base0[0]->c.c_car)= vs_base[0]; |
2808 |
base[3]= (V419); |
base[3]= (V448); |
2809 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2810 |
return;} |
return;} |
2811 |
} |
} |
2817 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2818 |
register object *sup=base+VM37; VC37 |
register object *sup=base+VM37; VC37 |
2819 |
vs_check; |
vs_check; |
2820 |
{register object V425; |
{register object V454; |
2821 |
object V426; |
object V455; |
2822 |
object V427; |
object V456; |
2823 |
check_arg(3); |
check_arg(3); |
2824 |
V425=(base[0]); |
V454=(base[0]); |
2825 |
V426=(base[1]); |
V455=(base[1]); |
2826 |
V427=(base[2]); |
V456=(base[2]); |
2827 |
vs_top=sup; |
vs_top=sup; |
2828 |
{object V428; |
{object V457; |
2829 |
V428= Cnil; |
V457= Cnil; |
2830 |
if(!(type_of((V425))==t_symbol)){ |
if(!(type_of((V454))==t_symbol)){ |
2831 |
goto T890;} |
goto T890;} |
2832 |
{register object x= (V425),V429= (base0[1]->c.c_car); |
{register object x= (V454),V458= (base0[1]->c.c_car); |
2833 |
while(V429!=Cnil) |
while(V458!=Cnil) |
2834 |
if(eql(x,V429->c.c_car->c.c_car) &&V429->c.c_car != Cnil){ |
if(eql(x,V458->c.c_car->c.c_car) &&V458->c.c_car != Cnil){ |
2835 |
V428= (V429->c.c_car); |
V457= (V458->c.c_car); |
2836 |
goto T895; |
goto T895; |
2837 |
}else V429=V429->c.c_cdr; |
}else V458=V458->c.c_cdr; |
2838 |
V428= Cnil;} |
V457= Cnil;} |
2839 |
goto T895; |
goto T895; |
2840 |
T895:; |
T895:; |
2841 |
if(((V428))==Cnil){ |
if(((V457))==Cnil){ |
2842 |
goto T890;} |
goto T890;} |
2843 |
if(((*(LnkLI173))((V425),(V427),(base0[0]->c.c_car)))==Cnil){ |
if(((*(LnkLI173))((V454),(V456),(base0[0]->c.c_car)))==Cnil){ |
2844 |
goto T890;} |
goto T890;} |
2845 |
base[3]= CMPcdr((V428)); |
base[3]= CMPcdr((V457)); |
2846 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2847 |
return; |
return; |
2848 |
goto T890; |
goto T890; |
2849 |
T890:; |
T890:; |
2850 |
base[3]= (V425); |
base[3]= (V454); |
2851 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2852 |
return;} |
return;} |
2853 |
} |
} |
2859 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2860 |
register object *sup=base+VM38; VC38 |
register object *sup=base+VM38; VC38 |
2861 |
vs_check; |
vs_check; |
2862 |
{register object V430; |
{register object V459; |
2863 |
object V431; |
object V460; |
2864 |
register object V432; |
register object V461; |
2865 |
check_arg(3); |
check_arg(3); |
2866 |
V430=(base[0]); |
V459=(base[0]); |
2867 |
V431=(base[1]); |
V460=(base[1]); |
2868 |
V432=(base[2]); |
V461=(base[2]); |
2869 |
vs_top=sup; |
vs_top=sup; |
2870 |
if(!(type_of((V430))==t_symbol)){ |
if(!(type_of((V459))==t_symbol)){ |
2871 |
goto T898;} |
goto T898;} |
2872 |
{object V433; |
{object V462; |
2873 |
V433= Cnil; |
V462= Cnil; |
2874 |
if(!(((V430))==((base0[4]->c.c_car)))){ |
if(!(((V459))==((base0[4]->c.c_car)))){ |
2875 |
goto T901;} |
goto T901;} |
2876 |
if(((*(LnkLI173))((V430),(V432),(base0[6]->c.c_car)))==Cnil){ |
if(((*(LnkLI173))((V459),(V461),(base0[6]->c.c_car)))==Cnil){ |
2877 |
goto T901;} |
goto T901;} |
2878 |
(void)((VFUN_NARGS=3,(*(LnkLI129))(VV[14],VV[27],CMPcadr((base0[1]->c.c_car))))); |
(void)((VFUN_NARGS=3,(*(LnkLI129))(VV[14],VV[27],CMPcadr((base0[1]->c.c_car))))); |
2879 |
{frame_ptr fr; |
{frame_ptr fr; |
2884 |
unwind(fr,Cnil);} |
unwind(fr,Cnil);} |
2885 |
goto T901; |
goto T901; |
2886 |
T901:; |
T901:; |
2887 |
{register object x= (V430),V434= (base0[5]->c.c_car); |
{register object x= (V459),V463= (base0[5]->c.c_car); |
2888 |
while(V434!=Cnil) |
while(V463!=Cnil) |
2889 |
if(eql(x,V434->c.c_car->c.c_car) &&V434->c.c_car != Cnil){ |
if(eql(x,V463->c.c_car->c.c_car) &&V463->c.c_car != Cnil){ |
2890 |
V433= (V434->c.c_car); |
V462= (V463->c.c_car); |
2891 |
goto T911; |
goto T911; |
2892 |
}else V434=V434->c.c_cdr; |
}else V463=V463->c.c_cdr; |
2893 |
V433= Cnil;} |
V462= Cnil;} |
2894 |
goto T911; |
goto T911; |
2895 |
T911:; |
T911:; |
2896 |
if(((V433))==Cnil){ |
if(((V462))==Cnil){ |
2897 |
goto T908;} |
goto T908;} |
2898 |
if(((*(LnkLI173))((V430),(V432),(base0[6]->c.c_car)))==Cnil){ |
if(((*(LnkLI173))((V459),(V461),(base0[6]->c.c_car)))==Cnil){ |
2899 |
goto T908;} |
goto T908;} |
2900 |
base[3]= CMPcdr((V433)); |
base[3]= CMPcdr((V462)); |
2901 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2902 |
return; |
return; |
2903 |
goto T908; |
goto T908; |
2904 |
T908:; |
T908:; |
2905 |
{register object x= (V430),V435= (base0[2]->c.c_car); |
{register object x= (V459),V464= (base0[2]->c.c_car); |
2906 |
while(V435!=Cnil) |
while(V464!=Cnil) |
2907 |
if(eql(x,V435->c.c_car)){ |
if(eql(x,V464->c.c_car)){ |
2908 |
goto T916; |
goto T916; |
2909 |
}else V435=V435->c.c_cdr; |
}else V464=V464->c.c_cdr; |
2910 |
goto T914;} |
goto T914;} |
2911 |
goto T916; |
goto T916; |
2912 |
T916:; |
T916:; |
2913 |
if(((*(LnkLI173))((V430),(V432),(base0[6]->c.c_car)))==Cnil){ |
if(((*(LnkLI173))((V459),(V461),(base0[6]->c.c_car)))==Cnil){ |
2914 |
goto T914;} |
goto T914;} |
2915 |
(void)((VFUN_NARGS=4,(*(LnkLI129))(VV[16],VV[28],CMPcadr((base0[1]->c.c_car)),(V430)))); |
(void)((VFUN_NARGS=4,(*(LnkLI129))(VV[16],VV[28],CMPcadr((base0[1]->c.c_car)),(V459)))); |
2916 |
{frame_ptr fr; |
{frame_ptr fr; |
2917 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
2918 |
if(fr==NULL) FEerror("The block ~s is missing.",1,VV[132]); |
if(fr==NULL) FEerror("The block ~s is missing.",1,VV[132]); |
2921 |
unwind(fr,Cnil);} |
unwind(fr,Cnil);} |
2922 |
goto T914; |
goto T914; |
2923 |
T914:; |
T914:; |
2924 |
base[3]= (V430); |
base[3]= (V459); |
2925 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2926 |
return;} |
return;} |
2927 |
goto T898; |
goto T898; |
2928 |
T898:; |
T898:; |
2929 |
if(!(type_of((V430))==t_cons)){ |
if(!(type_of((V459))==t_cons)){ |
2930 |
goto T921;} |
goto T921;} |
2931 |
if(!((CMPcar((V430)))==(VV[4]))){ |
if(!((CMPcar((V459)))==(VV[4]))){ |
2932 |
goto T921;} |
goto T921;} |
2933 |
if(!((CMPcadr((V430)))==((base0[4]->c.c_car)))){ |
if(!((CMPcadr((V459)))==((base0[4]->c.c_car)))){ |
2934 |
goto T921;} |
goto T921;} |
2935 |
if(((*(LnkLI173))(CMPcadr((V430)),(V432),(base0[6]->c.c_car)))==Cnil){ |
if(((*(LnkLI173))(CMPcadr((V459)),(V461),(base0[6]->c.c_car)))==Cnil){ |
2936 |
goto T921;} |
goto T921;} |
2937 |
if((CMPcddr((V430)))==Cnil){ |
if((CMPcddr((V459)))==Cnil){ |
2938 |
goto T929;} |
goto T929;} |
2939 |
(void)((VFUN_NARGS=4,(*(LnkLI129))(VV[14],VV[29],CMPcadr((base0[1]->c.c_car)),CMPcddr((V430))))); |
(void)((VFUN_NARGS=4,(*(LnkLI129))(VV[14],VV[29],CMPcadr((base0[1]->c.c_car)),CMPcddr((V459))))); |
2940 |
goto T929; |
goto T929; |
2941 |
T929:; |
T929:; |
2942 |
base[3]= (base0[3]->c.c_car); |
base[3]= (base0[3]->c.c_car); |
2944 |
return; |
return; |
2945 |
goto T921; |
goto T921; |
2946 |
T921:; |
T921:; |
2947 |
base[3]= (V430); |
base[3]= (V459); |
2948 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2949 |
return; |
return; |
2950 |
} |
} |
2956 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2957 |
register object *sup=base+VM39; VC39 |
register object *sup=base+VM39; VC39 |
2958 |
vs_check; |
vs_check; |
2959 |
{object V436; |
{object V465; |
2960 |
check_arg(1); |
check_arg(1); |
2961 |
V436=(base[0]); |
V465=(base[0]); |
2962 |
vs_top=sup; |
vs_top=sup; |
2963 |
{register object x= (V436),V437= VV[25]; |
{register object x= (V465),V466= VV[25]; |
2964 |
while(V437!=Cnil) |
while(V466!=Cnil) |
2965 |
if(eql(x,V437->c.c_car)){ |
if(eql(x,V466->c.c_car)){ |
2966 |
base[1]= V437; |
base[1]= V466; |
2967 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2968 |
return; |
return; |
2969 |
}else V437=V437->c.c_cdr; |
}else V466=V466->c.c_cdr; |
2970 |
base[1]= Cnil; |
base[1]= Cnil; |
2971 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2972 |
return;} |
return;} |
2980 |
register object *sup=base+VM40; VC40 |
register object *sup=base+VM40; VC40 |
2981 |
vs_check; |
vs_check; |
2982 |
check_arg(0); |
check_arg(0); |
2983 |
vs_top=sup;{object V438; |
vs_top=sup;{object V467; |
2984 |
{object V439; |
{object V468; |
2985 |
V439= CMPcar((base0[0]->c.c_car)); |
V468= CMPcar((base0[0]->c.c_car)); |
2986 |
(base0[0]->c.c_car)= CMPcdr((base0[0]->c.c_car)); |
(base0[0]->c.c_car)= CMPcdr((base0[0]->c.c_car)); |
2987 |
V438= (V439);} |
V467= (V468);} |
2988 |
if(V438==Cnil)goto T932; |
if(V467==Cnil)goto T932; |
2989 |
base[0]= V438; |
base[0]= V467; |
2990 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2991 |
return; |
return; |
2992 |
goto T932; |
goto T932; |
3005 |
check_arg(0); |
check_arg(0); |
3006 |
vs_top=sup; |
vs_top=sup; |
3007 |
goto TTL; |
goto TTL; |
3008 |
TTL:;{object V440; |
TTL:;{object V469; |
3009 |
{object V441; |
{object V470; |
3010 |
V441= CMPcar((base0[0]->c.c_car)); |
V470= CMPcar((base0[0]->c.c_car)); |
3011 |
(base0[0]->c.c_car)= CMPcdr((base0[0]->c.c_car)); |
(base0[0]->c.c_car)= CMPcdr((base0[0]->c.c_car)); |
3012 |
V440= (V441);} |
V469= (V470);} |
3013 |
if(V440==Cnil)goto T937; |
if(V469==Cnil)goto T937; |
3014 |
base[0]= V440; |
base[0]= V469; |
3015 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3016 |
return; |
return; |
3017 |
goto T937; |
goto T937; |