7 |
static void L1() |
static void L1() |
8 |
{register object *base=vs_base; |
{register object *base=vs_base; |
9 |
register object *sup=base+VM1; VC1 |
register object *sup=base+VM1; VC1 |
10 |
vs_reserve(VM1); |
vs_check; |
|
check_arg(2); |
|
11 |
vs_top=sup; |
vs_top=sup; |
12 |
{object V1=base[0]->c.c_cdr; |
{object V1=base[0]->c.c_cdr; |
13 |
if(endp(V1))invalid_macro_call(); |
base[2]= (V1->c.c_car);} |
|
base[2]= (V1->c.c_car); |
|
|
V1=V1->c.c_cdr; |
|
|
if(!endp(V1))invalid_macro_call();} |
|
14 |
base[3]= list(2,VV[0],base[2]); |
base[3]= list(2,VV[0],base[2]); |
15 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
16 |
return; |
return; |
20 |
static void L2() |
static void L2() |
21 |
{register object *base=vs_base; |
{register object *base=vs_base; |
22 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM2; VC2 |
23 |
vs_reserve(VM2); |
vs_check; |
24 |
{object V2; |
{object V2; |
|
if(vs_top-vs_base>1) too_many_arguments(); |
|
25 |
if(vs_base>=vs_top){vs_top=sup;goto T1;} |
if(vs_base>=vs_top){vs_top=sup;goto T1;} |
26 |
V2=(base[0]); |
V2=(base[0]); |
27 |
vs_top=sup; |
vs_top=sup; |
31 |
V2= VV[1]; |
V2= VV[1]; |
32 |
goto T2; |
goto T2; |
33 |
T2:; |
T2:; |
34 |
if((symbol_value(VV[2]))==Cnil){ |
if(((VV[2]->s.s_dbind))==Cnil){ |
35 |
goto T5;} |
goto T5;} |
36 |
base[1]= coerce_to_string((V2)); |
base[1]= coerce_to_string((V2)); |
37 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
38 |
Lgentemp(); |
Lgensym(); |
39 |
return; |
return; |
40 |
goto T5; |
goto T5; |
41 |
T5:; |
T5:; |
49 |
static void L3() |
static void L3() |
50 |
{register object *base=vs_base; |
{register object *base=vs_base; |
51 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
52 |
vs_reserve(VM3); |
vs_check; |
53 |
{object V3; |
{object V3; |
|
check_arg(1); |
|
54 |
V3=(base[0]); |
V3=(base[0]); |
55 |
vs_top=sup; |
vs_top=sup; |
56 |
goto TTL; |
goto TTL; |
69 |
static void L4() |
static void L4() |
70 |
{register object *base=vs_base; |
{register object *base=vs_base; |
71 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
72 |
vs_reserve(VM4); |
vs_check; |
73 |
{object V4; |
{object V4; |
74 |
object V5; |
object V5; |
|
check_arg(2); |
|
75 |
V4=(base[0]); |
V4=(base[0]); |
76 |
V5=(base[1]); |
V5=(base[1]); |
77 |
vs_top=sup; |
vs_top=sup; |
87 |
static void L5() |
static void L5() |
88 |
{register object *base=vs_base; |
{register object *base=vs_base; |
89 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
90 |
vs_reserve(VM5); |
vs_check; |
91 |
{object V6; |
{object V6; |
92 |
object V7; |
object V7; |
93 |
object V8; |
object V8; |
|
check_arg(3); |
|
94 |
V6=(base[0]); |
V6=(base[0]); |
95 |
V7=(base[1]); |
V7=(base[1]); |
96 |
V8=(base[2]); |
V8=(base[2]); |
107 |
static void L6() |
static void L6() |
108 |
{register object *base=vs_base; |
{register object *base=vs_base; |
109 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM6; VC6 |
110 |
vs_reserve(VM6); |
vs_check; |
|
check_arg(2); |
|
111 |
vs_top=sup; |
vs_top=sup; |
112 |
{object V9=base[0]->c.c_cdr; |
{object V9=base[0]->c.c_cdr; |
|
if(endp(V9))invalid_macro_call(); |
|
113 |
{object V10= (V9->c.c_car); |
{object V10= (V9->c.c_car); |
|
if(endp(V10))invalid_macro_call(); |
|
114 |
base[2]= (V10->c.c_car); |
base[2]= (V10->c.c_car); |
115 |
V10=V10->c.c_cdr; |
V10=V10->c.c_cdr; |
|
if(endp(V10))invalid_macro_call(); |
|
116 |
base[3]= (V10->c.c_car); |
base[3]= (V10->c.c_car); |
117 |
V10=V10->c.c_cdr; |
V10=V10->c.c_cdr; |
118 |
if(endp(V10)){ |
if(endp(V10)){ |
119 |
base[4]= Cnil; |
base[4]= Cnil; |
120 |
} else { |
} else { |
121 |
base[4]= (V10->c.c_car); |
base[4]= (V10->c.c_car);}} |
|
V10=V10->c.c_cdr;} |
|
|
if(!endp(V10))invalid_macro_call();} |
|
122 |
V9=V9->c.c_cdr; |
V9=V9->c.c_cdr; |
123 |
base[5]= V9;} |
base[5]= V9;} |
124 |
{object V11; |
{object V11; |
139 |
static void L7() |
static void L7() |
140 |
{register object *base=vs_base; |
{register object *base=vs_base; |
141 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM7; VC7 |
142 |
vs_reserve(VM7); |
vs_check; |
|
check_arg(2); |
|
143 |
vs_top=sup; |
vs_top=sup; |
144 |
{object V14=base[0]->c.c_cdr; |
{object V14=base[0]->c.c_cdr; |
|
if(endp(V14))invalid_macro_call(); |
|
145 |
{object V15= (V14->c.c_car); |
{object V15= (V14->c.c_car); |
|
if(endp(V15))invalid_macro_call(); |
|
146 |
base[2]= (V15->c.c_car); |
base[2]= (V15->c.c_car); |
147 |
V15=V15->c.c_cdr; |
V15=V15->c.c_cdr; |
|
if(endp(V15))invalid_macro_call(); |
|
148 |
base[3]= (V15->c.c_car); |
base[3]= (V15->c.c_car); |
149 |
V15=V15->c.c_cdr; |
V15=V15->c.c_cdr; |
150 |
if(endp(V15)){ |
if(endp(V15)){ |
151 |
base[4]= Cnil; |
base[4]= Cnil; |
152 |
} else { |
} else { |
153 |
base[4]= (V15->c.c_car); |
base[4]= (V15->c.c_car);}} |
|
V15=V15->c.c_cdr;} |
|
|
if(!endp(V15))invalid_macro_call();} |
|
|
V14=V14->c.c_cdr; |
|
|
if(endp(V14))invalid_macro_call(); |
|
|
base[5]= (V14->c.c_car); |
|
154 |
V14=V14->c.c_cdr; |
V14=V14->c.c_cdr; |
155 |
if(!endp(V14))invalid_macro_call();} |
base[5]= (V14->c.c_car);} |
156 |
base[6]= base[5]; |
base[6]= base[5]; |
157 |
base[7]= base[1]; |
base[7]= base[1]; |
158 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
163 |
V17= Cnil; |
V17= Cnil; |
164 |
if(!(type_of(base[5])==t_cons)){ |
if(!(type_of(base[5])==t_cons)){ |
165 |
goto T20;} |
goto T20;} |
166 |
if(!((car(base[5]))==(VV[5]))){ |
if(!((CMPcar(base[5]))==(VV[5]))){ |
167 |
goto T24;} |
goto T24;} |
168 |
V18 = make_fixnum((long)length(cdr(base[5]))); |
V18 = CMPmake_fixnum((long)length(CMPcdr(base[5]))); |
169 |
V17= one_minus(V18); |
V17= one_minus(V18); |
170 |
goto T20; |
goto T20; |
171 |
goto T24; |
goto T24; |
172 |
T24:; |
T24:; |
173 |
{register object x= car(base[5]),V19= VV[6]; |
{register object x= CMPcar(base[5]),V19= VV[6]; |
174 |
while(!endp(V19)) |
while(V19!=Cnil) |
175 |
if(eql(x,V19->c.c_car)){ |
if(eql(x,V19->c.c_car)){ |
176 |
goto T28; |
goto T28; |
177 |
}else V19=V19->c.c_cdr; |
}else V19=V19->c.c_cdr; |
178 |
goto T20;} |
goto T20;} |
179 |
goto T28; |
goto T28; |
180 |
T28:; |
T28:; |
181 |
if((cddr(base[5]))==Cnil){ |
if((CMPcddr(base[5]))==Cnil){ |
182 |
goto T20;} |
goto T20;} |
183 |
base[6]= base[5]; |
base[6]= base[5]; |
184 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
185 |
Llast(); |
Llast(); |
186 |
vs_top=sup; |
vs_top=sup; |
187 |
V21= vs_base[0]; |
V21= vs_base[0]; |
188 |
{register object x= car(V21),V20= VV[7]; |
{register object x= CMPcar(V21),V20= VV[7]; |
189 |
while(!endp(V20)) |
while(V20!=Cnil) |
190 |
if(eql(x,V20->c.c_car)){ |
if(eql(x,V20->c.c_car)){ |
191 |
goto T32; |
goto T32; |
192 |
}else V20=V20->c.c_cdr; |
}else V20=V20->c.c_cdr; |
193 |
goto T20;} |
goto T20;} |
194 |
goto T32; |
goto T32; |
195 |
T32:; |
T32:; |
196 |
V22 = make_fixnum((long)length(cdr(base[5]))); |
V22 = CMPmake_fixnum((long)length(CMPcdr(base[5]))); |
197 |
V17= number_minus(V22,small_fixnum(2)); |
V17= number_minus(V22,small_fixnum(2)); |
198 |
goto T20; |
goto T20; |
199 |
T20:; |
T20:; |
241 |
static void L9() |
static void L9() |
242 |
{register object *base=vs_base; |
{register object *base=vs_base; |
243 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
244 |
vs_reserve(VM8); |
vs_check; |
|
check_arg(2); |
|
245 |
vs_top=sup; |
vs_top=sup; |
246 |
{object V26=base[0]->c.c_cdr; |
{object V26=base[0]->c.c_cdr; |
|
if(endp(V26))invalid_macro_call(); |
|
247 |
base[2]= (V26->c.c_car); |
base[2]= (V26->c.c_car); |
248 |
V26=V26->c.c_cdr; |
V26=V26->c.c_cdr; |
249 |
if(endp(V26)){ |
if(endp(V26)){ |
250 |
base[3]= Cnil; |
base[3]= Cnil; |
251 |
} else { |
} else { |
252 |
base[3]= (V26->c.c_car); |
base[3]= (V26->c.c_car);}} |
|
V26=V26->c.c_cdr;} |
|
|
if(!endp(V26))invalid_macro_call();} |
|
253 |
if(base[3]!=Cnil){ |
if(base[3]!=Cnil){ |
254 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
255 |
return;} |
return;} |
262 |
static void L10() |
static void L10() |
263 |
{register object *base=vs_base; |
{register object *base=vs_base; |
264 |
register object *sup=base+VM9; VC9 |
register object *sup=base+VM9; VC9 |
265 |
vs_reserve(VM9); |
vs_check; |
266 |
{object V27; |
{object V27; |
267 |
object V28; |
object V28; |
268 |
object V29; |
object V29; |
294 |
static void L11() |
static void L11() |
295 |
{register object *base=vs_base; |
{register object *base=vs_base; |
296 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
297 |
vs_reserve(VM10); |
vs_check; |
298 |
{object V33; |
{object V33; |
299 |
object V34; |
object V34; |
|
check_arg(2); |
|
300 |
V33=(base[0]); |
V33=(base[0]); |
301 |
V34=(base[1]); |
V34=(base[1]); |
302 |
vs_top=sup; |
vs_top=sup; |
304 |
TTL:; |
TTL:; |
305 |
{object V35; |
{object V35; |
306 |
base[2]= (V34); |
base[2]= (V34); |
307 |
base[3]= symbol_value(VV[19]); |
base[3]= (VV[19]->s.s_dbind); |
308 |
base[4]= VV[20]; |
base[4]= VV[20]; |
309 |
base[5]= symbol_function(VV[326]); |
base[5]= (VV[333]->s.s_gfdef); |
310 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
311 |
Lassoc(); |
Lassoc(); |
312 |
vs_top=sup; |
vs_top=sup; |
313 |
V36= vs_base[0]; |
V36= vs_base[0]; |
314 |
V35= cdr(V36); |
V35= CMPcdr(V36); |
315 |
base[2]= VV[21]; |
base[2]= VV[21]; |
316 |
base[3]= (V33); |
base[3]= (V33); |
317 |
base[4]= VV[22]; |
base[4]= VV[22]; |
319 |
base[6]= VV[23]; |
base[6]= VV[23]; |
320 |
base[8]= VV[24]; |
base[8]= VV[24]; |
321 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
322 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
323 |
vs_top=sup; |
vs_top=sup; |
324 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
325 |
base[8]= VV[25]; |
base[8]= VV[25]; |
331 |
T76:; |
T76:; |
332 |
base[10]= VV[26]; |
base[10]= VV[26]; |
333 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
334 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
335 |
vs_top=sup; |
vs_top=sup; |
336 |
base[9]= vs_base[0]; |
base[9]= vs_base[0]; |
337 |
goto T75; |
goto T75; |
341 |
base[12]= VV[28]; |
base[12]= VV[28]; |
342 |
base[13]= (V35); |
base[13]= (V35); |
343 |
vs_top=(vs_base=base+2)+12; |
vs_top=(vs_base=base+2)+12; |
344 |
(void) (*Lnk328)(); |
(void) (*Lnk335)(); |
345 |
return;} |
return;} |
346 |
} |
} |
347 |
} |
} |
350 |
static void L12() |
static void L12() |
351 |
{register object *base=vs_base; |
{register object *base=vs_base; |
352 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
353 |
vs_reserve(VM11); |
vs_check; |
354 |
{object V37; |
{object V37; |
355 |
register object V38; |
register object V38; |
|
check_arg(2); |
|
356 |
V37=(base[0]); |
V37=(base[0]); |
357 |
V38=(base[1]); |
V38=(base[1]); |
358 |
vs_top=sup; |
vs_top=sup; |
360 |
TTL:; |
TTL:; |
361 |
{object V41; |
{object V41; |
362 |
base[3]= V37; |
base[3]= V37; |
363 |
base[4]= structure_ref(V38,VV[18],4); |
base[4]= STREF(object,V38,16); |
364 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
365 |
Ladjoin(); |
Ladjoin(); |
366 |
vs_top=sup; |
vs_top=sup; |
367 |
V41= vs_base[0]; |
V41= vs_base[0]; |
368 |
(void)(structure_set(V38,VV[18],4,(V41)));} |
V42= Ct; |
369 |
V42= structure_ref((V38),VV[18],4); |
STSET(object,V38,16, (V41)); |
370 |
if((cdr(/* INLINE-ARGS */V42))==Cnil){ |
(void)((V41));} |
371 |
|
if((CMPcdr(STREF(object,(V38),16)))==Cnil){ |
372 |
goto T87;} |
goto T87;} |
373 |
if((structure_ref((V38),VV[18],3))!=Cnil){ |
if((STREF(object,(V38),12))!=Cnil){ |
374 |
goto T87;} |
goto T87;} |
375 |
base[2]= VV[26]; |
base[2]= VV[26]; |
376 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
377 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
378 |
vs_top=sup; |
vs_top=sup; |
379 |
V43= vs_base[0]; |
V43= vs_base[0]; |
380 |
(void)(structure_set((V38),VV[18],3,V43)); |
V44= Ct; |
381 |
|
STSET(object,(V38),12, V43); |
382 |
|
(void)(V43); |
383 |
goto T87; |
goto T87; |
384 |
T87:; |
T87:; |
385 |
base[2]= (V37); |
base[2]= (V37); |
392 |
static void L13() |
static void L13() |
393 |
{register object *base=vs_base; |
{register object *base=vs_base; |
394 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
395 |
vs_reserve(VM12); |
vs_check; |
|
check_arg(2); |
|
396 |
vs_top=sup; |
vs_top=sup; |
397 |
{object V44=base[0]->c.c_cdr; |
{object V45=base[0]->c.c_cdr; |
398 |
if(endp(V44))invalid_macro_call(); |
base[2]= (V45->c.c_car); |
399 |
base[2]= (V44->c.c_car); |
V45=V45->c.c_cdr; |
400 |
V44=V44->c.c_cdr; |
base[3]= V45;} |
401 |
base[3]= V44;} |
{object V46; |
|
{object V45; |
|
|
object V46; |
|
402 |
object V47; |
object V47; |
403 |
register object V48; |
object V48; |
404 |
register object V49; |
register object V49; |
405 |
object V50; |
register object V50; |
406 |
object V51; |
object V51; |
407 |
base[4]= structure_ref(base[2],VV[18],1); |
object V52; |
408 |
|
base[4]= STREF(object,base[2],4); |
409 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
410 |
(void) (*Lnk329)(); |
(void) (*Lnk336)(); |
411 |
vs_top=sup; |
vs_top=sup; |
412 |
V45= vs_base[0]; |
V46= vs_base[0]; |
413 |
V52= structure_ref(base[2],VV[18],4); |
V47= CMPcar(STREF(object,base[2],16)); |
414 |
V46= car(/* INLINE-ARGS */V52); |
V48= STREF(object,base[2],20); |
415 |
V47= structure_ref(base[2],VV[18],5); |
V49= STREF(object,base[2],0); |
416 |
V48= structure_ref(base[2],VV[18],0); |
V50= STREF(object,base[2],8); |
417 |
V49= structure_ref(base[2],VV[18],2); |
V51= STREF(object,base[2],12); |
418 |
V50= structure_ref(base[2],VV[18],3); |
V52= STREF(object,base[2],4); |
419 |
V51= structure_ref(base[2],VV[18],1); |
if(((V51))==Cnil){ |
|
if(((V50))==Cnil){ |
|
420 |
goto T103;} |
goto T103;} |
421 |
V53= list(2,(V48),(V45)); |
V53= list(2,(V49),(V46)); |
422 |
V54= list(2,(V49),(V45)); |
V54= list(2,(V50),(V46)); |
423 |
V55= list(3,/* INLINE-ARGS */V53,/* INLINE-ARGS */V54,list(2,(V50),Cnil)); |
V55= list(3,/* INLINE-ARGS */V53,/* INLINE-ARGS */V54,list(2,(V51),Cnil)); |
424 |
base[4]= listA(4,VV[29],/* INLINE-ARGS */V55,list(2,VV[30],list(4,VV[31],(V51),(V48),(V49))),base[3]); |
base[4]= listA(4,VV[29],/* INLINE-ARGS */V55,list(2,VV[30],list(4,VV[31],(V52),(V49),(V50))),base[3]); |
425 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
426 |
return; |
return; |
427 |
goto T103; |
goto T103; |
428 |
T103:; |
T103:; |
429 |
if(!(((V46))==(VV[32]))){ |
if(!(((V47))==(VV[32]))){ |
430 |
goto T107;} |
goto T107;} |
431 |
V56= car((V47)); |
V56= CMPcar((V48)); |
432 |
goto T105; |
goto T105; |
433 |
goto T107; |
goto T107; |
434 |
T107:; |
T107:; |
435 |
V56= cadr((V47)); |
V56= CMPcadr((V48)); |
436 |
goto T105; |
goto T105; |
437 |
T105:; |
T105:; |
438 |
V57= list(2,(V48),V56); |
V57= list(2,(V49),V56); |
439 |
V58= list(2,/* INLINE-ARGS */V57,list(2,(V49),(V45))); |
V58= list(2,/* INLINE-ARGS */V57,list(2,(V50),(V46))); |
440 |
base[4]= listA(4,VV[29],/* INLINE-ARGS */V58,list(2,VV[30],list(4,VV[31],(V51),(V48),(V49))),base[3]); |
base[4]= listA(4,VV[29],/* INLINE-ARGS */V58,list(2,VV[30],list(4,VV[31],(V52),(V49),(V50))),base[3]); |
441 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
442 |
return;} |
return;} |
443 |
} |
} |
446 |
static void L14() |
static void L14() |
447 |
{register object *base=vs_base; |
{register object *base=vs_base; |
448 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM13; VC13 |
449 |
vs_reserve(VM13); |
vs_check; |
|
check_arg(2); |
|
450 |
vs_top=sup; |
vs_top=sup; |
451 |
{object V59=base[0]->c.c_cdr; |
{object V59=base[0]->c.c_cdr; |
|
if(endp(V59))invalid_macro_call(); |
|
452 |
base[2]= (V59->c.c_car); |
base[2]= (V59->c.c_car); |
453 |
V59=V59->c.c_cdr; |
V59=V59->c.c_cdr; |
|
if(endp(V59))invalid_macro_call(); |
|
454 |
base[3]= (V59->c.c_car); |
base[3]= (V59->c.c_car); |
455 |
V59=V59->c.c_cdr; |
V59=V59->c.c_cdr; |
456 |
if(endp(V59))invalid_macro_call(); |
base[4]= (V59->c.c_car);} |
|
base[4]= (V59->c.c_car); |
|
|
V59=V59->c.c_cdr; |
|
|
if(!endp(V59))invalid_macro_call();} |
|
457 |
{object V60; |
{object V60; |
458 |
object V61; |
object V61; |
459 |
register object V62; |
register object V62; |
460 |
object V63; |
object V63; |
461 |
V60= structure_ref(base[2],VV[18],0); |
V60= STREF(object,base[2],0); |
462 |
V61= structure_ref(base[2],VV[18],2); |
V61= STREF(object,base[2],8); |
463 |
V62= structure_ref(base[2],VV[18],3); |
V62= STREF(object,base[2],12); |
464 |
base[9]= Ct; |
base[9]= Ct; |
465 |
base[10]= structure_ref(base[2],VV[18],0); |
base[10]= STREF(object,base[2],0); |
466 |
{object V65= base[3]; |
{object V65= base[3]; |
467 |
if((V65!= VV[32]))goto T117; |
if((V65!= VV[32]))goto T117; |
468 |
V64= VV[33]; |
V64= VV[33]; |
469 |
goto T116; |
goto T116; |
470 |
goto T117; |
goto T117; |
471 |
T117:; |
T117:; |
472 |
if((V65!= VV[330]))goto T118; |
if((V65!= VV[337]))goto T118; |
473 |
V64= VV[34]; |
V64= VV[34]; |
474 |
goto T116; |
goto T116; |
475 |
goto T118; |
goto T118; |
481 |
T116:; |
T116:; |
482 |
base[11]= list(3,V64,(V61),(V60)); |
base[11]= list(3,V64,(V61),(V60)); |
483 |
vs_top=(vs_base=base+9)+3; |
vs_top=(vs_base=base+9)+3; |
484 |
(void) (*Lnk331)(); |
(void) (*Lnk338)(); |
485 |
vs_top=sup; |
vs_top=sup; |
486 |
V63= vs_base[0]; |
V63= vs_base[0]; |
487 |
V66= list(3,VV[11],(V61),base[4]); |
V66= list(3,VV[11],(V61),base[4]); |
511 |
static void L15() |
static void L15() |
512 |
{register object *base=vs_base; |
{register object *base=vs_base; |
513 |
register object *sup=base+VM14; VC14 |
register object *sup=base+VM14; VC14 |
514 |
vs_reserve(VM14); |
vs_check; |
515 |
{object V71; |
{object V71; |
516 |
object V72; |
object V72; |
|
check_arg(2); |
|
517 |
V71=(base[0]); |
V71=(base[0]); |
518 |
V72=(base[1]); |
V72=(base[1]); |
519 |
vs_top=sup; |
vs_top=sup; |
538 |
static void L16() |
static void L16() |
539 |
{register object *base=vs_base; |
{register object *base=vs_base; |
540 |
register object *sup=base+VM15; VC15 |
register object *sup=base+VM15; VC15 |
541 |
vs_reserve(VM15); |
vs_check; |
542 |
{object V73; |
{object V73; |
543 |
object V74; |
object V74; |
|
check_arg(2); |
|
544 |
V73=(base[0]); |
V73=(base[0]); |
545 |
V74=(base[1]); |
V74=(base[1]); |
546 |
vs_top=sup; |
vs_top=sup; |
556 |
base[2]= (V73); |
base[2]= (V73); |
557 |
base[3]= (V74); |
base[3]= (V74); |
558 |
base[4]= VV[20]; |
base[4]= VV[20]; |
559 |
base[5]= symbol_function(VV[332]); |
base[5]= (VV[339]->s.s_gfdef); |
560 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
561 |
Lassoc(); |
Lassoc(); |
562 |
return; |
return; |
567 |
static void L17() |
static void L17() |
568 |
{register object *base=vs_base; |
{register object *base=vs_base; |
569 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM16; VC16 |
570 |
vs_reserve(VM16); |
vs_check; |
571 |
{object V75; |
{object V75; |
572 |
object V76; |
object V76; |
|
check_arg(2); |
|
573 |
V75=(base[0]); |
V75=(base[0]); |
574 |
V76=(base[1]); |
V76=(base[1]); |
575 |
vs_top=sup; |
vs_top=sup; |
585 |
base[2]= (V75); |
base[2]= (V75); |
586 |
base[3]= (V76); |
base[3]= (V76); |
587 |
base[4]= VV[20]; |
base[4]= VV[20]; |
588 |
base[5]= symbol_function(VV[332]); |
base[5]= (VV[339]->s.s_gfdef); |
589 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
590 |
Lmember(); |
Lmember(); |
591 |
return; |
return; |
596 |
static void L18() |
static void L18() |
597 |
{register object *base=vs_base; |
{register object *base=vs_base; |
598 |
register object *sup=base+VM17; VC17 |
register object *sup=base+VM17; VC17 |
599 |
vs_reserve(VM17); |
vs_check; |
600 |
{object V77; |
{object V77; |
601 |
object V78; |
object V78; |
|
check_arg(2); |
|
602 |
V77=(base[0]); |
V77=(base[0]); |
603 |
V78=(base[1]); |
V78=(base[1]); |
604 |
vs_top=sup; |
vs_top=sup; |
626 |
static void L19() |
static void L19() |
627 |
{register object *base=vs_base; |
{register object *base=vs_base; |
628 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM18; VC18 |
629 |
vs_reserve(VM18); |
vs_check; |
|
check_arg(2); |
|
630 |
vs_top=sup; |
vs_top=sup; |
631 |
{object V79=base[0]->c.c_cdr; |
{object V79=base[0]->c.c_cdr; |
|
if(endp(V79))invalid_macro_call(); |
|
632 |
base[2]= (V79->c.c_car); |
base[2]= (V79->c.c_car); |
633 |
V79=V79->c.c_cdr; |
V79=V79->c.c_cdr; |
|
if(endp(V79))invalid_macro_call(); |
|
634 |
base[3]= (V79->c.c_car); |
base[3]= (V79->c.c_car); |
635 |
V79=V79->c.c_cdr; |
V79=V79->c.c_cdr; |
636 |
if(endp(V79))invalid_macro_call(); |
base[4]= (V79->c.c_car);} |
|
base[4]= (V79->c.c_car); |
|
|
V79=V79->c.c_cdr; |
|
|
if(!endp(V79))invalid_macro_call();} |
|
637 |
base[5]= list(3,VV[9],list(3,VV[37],list(2,VV[38],base[2]),base[3]),base[4]); |
base[5]= list(3,VV[9],list(3,VV[37],list(2,VV[38],base[2]),base[3]),base[4]); |
638 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
639 |
return; |
return; |
643 |
static void L20() |
static void L20() |
644 |
{register object *base=vs_base; |
{register object *base=vs_base; |
645 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
646 |
vs_reserve(VM19); |
vs_check; |
647 |
{object V80; |
{object V80; |
648 |
object V81; |
object V81; |
649 |
object V82; |
object V82; |
681 |
static void L21() |
static void L21() |
682 |
{register object *base=vs_base; |
{register object *base=vs_base; |
683 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
684 |
vs_reserve(VM20); |
vs_check; |
685 |
{object V88; |
{object V88; |
686 |
object V89; |
object V89; |
687 |
object V90; |
object V90; |
|
check_arg(3); |
|
688 |
V88=(base[0]); |
V88=(base[0]); |
689 |
V89=(base[1]); |
V89=(base[1]); |
690 |
V90=(base[2]); |
V90=(base[2]); |
692 |
goto TTL; |
goto TTL; |
693 |
TTL:; |
TTL:; |
694 |
{object V91; |
{object V91; |
695 |
V93= structure_ref((V88),VV[39],6); |
{object V92= STREF(object,(V88),24); |
|
{object V92= /* INLINE-ARGS */V93; |
|
696 |
if((V92!= Cnil))goto T155; |
if((V92!= Cnil))goto T155; |
697 |
V91= VV[40]; |
V91= VV[40]; |
698 |
goto T154; |
goto T154; |
703 |
goto T154; |
goto T154; |
704 |
goto T156; |
goto T156; |
705 |
T156:; |
T156:; |
706 |
if((V92!= VV[307]))goto T157; |
if((V92!= VV[314]))goto T157; |
707 |
V91= VV[42]; |
V91= VV[42]; |
708 |
goto T154; |
goto T154; |
709 |
goto T157; |
goto T157; |
710 |
T157:; |
T157:; |
711 |
V91= structure_ref((V88),VV[39],6);} |
V91= STREF(object,(V88),24);} |
712 |
goto T154; |
goto T154; |
713 |
T154:; |
T154:; |
714 |
base[3]= (V89); |
base[3]= (V89); |
729 |
static void L22() |
static void L22() |
730 |
{register object *base=vs_base; |
{register object *base=vs_base; |
731 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM21; VC21 |
732 |
vs_reserve(VM21); |
vs_check; |
733 |
bds_check; |
bds_check; |
734 |
{object V94; |
{object V93; |
735 |
|
object V94; |
736 |
object V95; |
object V95; |
737 |
object V96; |
object V96; |
738 |
object V97; |
object V97; |
739 |
object V98; |
object V98; |
740 |
object V99; |
register object V99; |
|
register object V100; |
|
741 |
parse_key(vs_base,FALSE,FALSE,7,VV[53],VV[54],VV[55],VV[56],VV[59],VV[60],VV[57]); |
parse_key(vs_base,FALSE,FALSE,7,VV[53],VV[54],VV[55],VV[56],VV[59],VV[60],VV[57]); |
742 |
vs_top=sup; |
vs_top=sup; |
743 |
V94=(base[0]); |
V93=(base[0]); |
744 |
V95=(base[1]); |
V94=(base[1]); |
745 |
V96=(base[2]); |
V95=(base[2]); |
746 |
V97=(base[3]); |
V96=(base[3]); |
747 |
V98=(base[4]); |
V97=(base[4]); |
748 |
V99=(base[5]); |
V98=(base[5]); |
749 |
V100=(base[6]); |
V99=(base[6]); |
750 |
bds_bind(VV[44],small_fixnum(4)); |
bds_bind(VV[44],small_fixnum(4)); |
751 |
bds_bind(VV[45],small_fixnum(4)); |
bds_bind(VV[45],small_fixnum(4)); |
752 |
goto T165; |
goto T165; |
753 |
T165:; |
T165:; |
754 |
base[16]= (V100); |
base[16]= (V99); |
755 |
base[17]= VV[46]; |
base[17]= VV[46]; |
756 |
vs_top=(vs_base=base+16)+2; |
vs_top=(vs_base=base+16)+2; |
757 |
(void) (*Lnk333)(); |
(void) (*Lnk340)(); |
758 |
vs_top=sup; |
vs_top=sup; |
759 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
760 |
goto T166;} |
goto T166;} |
766 |
base[16]= VV[47]; |
base[16]= VV[47]; |
767 |
base[17]= VV[48]; |
base[17]= VV[48]; |
768 |
base[18]= VV[49]; |
base[18]= VV[49]; |
769 |
base[19]= (V100); |
base[19]= (V99); |
770 |
base[20]= VV[46]; |
base[20]= VV[46]; |
771 |
vs_top=(vs_base=base+16)+5; |
vs_top=(vs_base=base+16)+5; |
772 |
Lcerror(); |
Lcerror(); |
773 |
vs_top=sup; |
vs_top=sup; |
774 |
base[16]= symbol_value(VV[50]); |
base[16]= (VV[50]->s.s_dbind); |
775 |
base[17]= VV[51]; |
base[17]= VV[51]; |
776 |
base[18]= VV[49]; |
base[18]= VV[49]; |
777 |
vs_top=(vs_base=base+16)+3; |
vs_top=(vs_base=base+16)+3; |
778 |
Lformat(); |
Lformat(); |
779 |
vs_top=sup; |
vs_top=sup; |
780 |
base[16]= symbol_value(VV[50]); |
base[16]= (VV[50]->s.s_dbind); |
781 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
782 |
Lfinish_output(); |
Lfinish_output(); |
783 |
vs_top=sup; |
vs_top=sup; |
784 |
vs_base=vs_top; |
vs_base=vs_top; |
785 |
Lread(); |
Lread(); |
786 |
vs_top=sup; |
vs_top=sup; |
787 |
V100= vs_base[0]; |
V99= vs_base[0]; |
788 |
base[16]= symbol_value(VV[50]); |
base[16]= (VV[50]->s.s_dbind); |
789 |
base[17]= VV[52]; |
base[17]= VV[52]; |
790 |
vs_top=(vs_base=base+16)+2; |
vs_top=(vs_base=base+16)+2; |
791 |
Lformat(); |
Lformat(); |
794 |
goto T163; |
goto T163; |
795 |
T163:; |
T163:; |
796 |
base[14]= VV[53]; |
base[14]= VV[53]; |
797 |
base[16]= (V94); |
base[16]= (V93); |
798 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
799 |
L23(base); |
L23(base); |
800 |
vs_top=sup; |
vs_top=sup; |
801 |
base[15]= vs_base[0]; |
base[15]= vs_base[0]; |
802 |
base[16]= VV[54]; |
base[16]= VV[54]; |
803 |
base[18]= (V95); |
base[18]= (V94); |
804 |
vs_top=(vs_base=base+18)+1; |
vs_top=(vs_base=base+18)+1; |
805 |
L23(base); |
L23(base); |
806 |
vs_top=sup; |
vs_top=sup; |
807 |
base[17]= vs_base[0]; |
base[17]= vs_base[0]; |
808 |
base[18]= VV[55]; |
base[18]= VV[55]; |
809 |
base[20]= (V96); |
base[20]= (V95); |
810 |
vs_top=(vs_base=base+20)+1; |
vs_top=(vs_base=base+20)+1; |
811 |
L23(base); |
L23(base); |
812 |
vs_top=sup; |
vs_top=sup; |
813 |
base[19]= vs_base[0]; |
base[19]= vs_base[0]; |
814 |
base[20]= VV[56]; |
base[20]= VV[56]; |
815 |
base[22]= (V97); |
base[22]= (V96); |
816 |
vs_top=(vs_base=base+22)+1; |
vs_top=(vs_base=base+22)+1; |
817 |
L23(base); |
L23(base); |
818 |
vs_top=sup; |
vs_top=sup; |
819 |
base[21]= vs_base[0]; |
base[21]= vs_base[0]; |
820 |
base[22]= VV[57]; |
base[22]= VV[57]; |
821 |
base[23]= (V100); |
base[23]= (V99); |
822 |
base[24]= VV[58]; |
base[24]= VV[58]; |
823 |
base[25]= (((((V100))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
base[25]= (((((V99))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
824 |
base[26]= VV[59]; |
base[26]= VV[59]; |
825 |
base[28]= (V98); |
base[28]= (V97); |
826 |
vs_top=(vs_base=base+28)+1; |
vs_top=(vs_base=base+28)+1; |
827 |
L23(base); |
L23(base); |
828 |
vs_top=sup; |
vs_top=sup; |
829 |
base[27]= vs_base[0]; |
base[27]= vs_base[0]; |
830 |
base[28]= VV[60]; |
base[28]= VV[60]; |
831 |
{object V101; |
{object V100; |
832 |
object V102; |
object V101; |
833 |
V101= make_fixnum((long)length((V99))); |
V100= CMPmake_fixnum((long)length((V98))); |
834 |
base[32]= VV[61]; |
base[32]= VV[61]; |
835 |
if(!(number_compare((V101),small_fixnum(10))<0)){ |
if(!(number_compare((V100),small_fixnum(10))<0)){ |
836 |
goto T217;} |
goto T217;} |
837 |
base[33]= small_fixnum(10); |
base[33]= small_fixnum(10); |
838 |
goto T215; |
goto T215; |
839 |
goto T217; |
goto T217; |
840 |
T217:; |
T217:; |
841 |
base[33]= (V101); |
base[33]= (V100); |
842 |
goto T215; |
goto T215; |
843 |
T215:; |
T215:; |
844 |
base[34]= VV[20]; |
base[34]= VV[20]; |
845 |
base[35]= symbol_function(VV[334]); |
base[35]= (VV[341]->s.s_gfdef); |
846 |
vs_top=(vs_base=base+32)+4; |
vs_top=(vs_base=base+32)+4; |
847 |
Lmake_hash_table(); |
Lmake_hash_table(); |
848 |
vs_top=sup; |
vs_top=sup; |
849 |
V102= vs_base[0]; |
V101= vs_base[0]; |
850 |
{register object V103; |
{register object V102; |
851 |
register object V104; |
register object V103; |
852 |
V103= (V99); |
V102= (V98); |
853 |
V104= car((V103)); |
V103= CMPcar((V102)); |
854 |
goto T225; |
goto T225; |
855 |
T225:; |
T225:; |
856 |
if(!(endp_prop((V103)))){ |
if(!(((V102))==Cnil)){ |
857 |
goto T226;} |
goto T226;} |
858 |
goto T221; |
goto T221; |
859 |
goto T226; |
goto T226; |
860 |
T226:; |
T226:; |
861 |
if(!(type_of((V104))!=t_cons)){ |
if(!(type_of((V103))!=t_cons)){ |
862 |
goto T232;} |
goto T232;} |
863 |
base[33]= V104; |
base[33]= V103; |
864 |
base[34]= V102; |
base[34]= V101; |
865 |
base[35]= V104; |
base[35]= V103; |
866 |
vs_top=(vs_base=base+33)+3; |
vs_top=(vs_base=base+33)+3; |
867 |
siLhash_set(); |
siLhash_set(); |
868 |
vs_top=sup; |
vs_top=sup; |
869 |
goto T230; |
goto T230; |
870 |
goto T232; |
goto T232; |
871 |
T232:; |
T232:; |
872 |
{object V108; |
{object V107; |
873 |
object V110; |
object V109; |
874 |
V108= car((V104)); |
V107= CMPcar((V103)); |
875 |
V110= cadr((V104)); |
V109= CMPcadr((V103)); |
876 |
base[35]= (V108); |
base[35]= (V107); |
877 |
base[36]= V102; |
base[36]= V101; |
878 |
base[37]= (V110); |
base[37]= (V109); |
879 |
vs_top=(vs_base=base+35)+3; |
vs_top=(vs_base=base+35)+3; |
880 |
siLhash_set(); |
siLhash_set(); |
881 |
vs_top=sup;} |
vs_top=sup;} |
882 |
goto T230; |
goto T230; |
883 |
T230:; |
T230:; |
884 |
V103= cdr((V103)); |
V102= CMPcdr((V102)); |
885 |
V104= car((V103)); |
V103= CMPcar((V102)); |
886 |
goto T225;} |
goto T225;} |
887 |
goto T221; |
goto T221; |
888 |
T221:; |
T221:; |
889 |
base[29]= (V102);} |
base[29]= (V101);} |
890 |
vs_top=(vs_base=base+14)+16; |
vs_top=(vs_base=base+14)+16; |
891 |
(void) (*Lnk335)(); |
(void) (*Lnk342)(); |
892 |
return; |
return; |
893 |
} |
} |
894 |
} |
} |
897 |
static void L24() |
static void L24() |
898 |
{register object *base=vs_base; |
{register object *base=vs_base; |
899 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM22; VC22 |
900 |
vs_reserve(VM22); |
vs_check; |
901 |
{register object V111; |
{register object V110; |
902 |
check_arg(1); |
V110=(base[0]); |
|
V111=(base[0]); |
|
903 |
vs_top=sup; |
vs_top=sup; |
904 |
goto TTL; |
goto TTL; |
905 |
TTL:; |
TTL:; |
906 |
if((V111)==Cnil){ |
if((V110)==Cnil){ |
907 |
base[1]= Cnil; |
base[1]= Cnil; |
908 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
909 |
return;} |
return;} |
910 |
V112= car((V111)); |
V111= CMPcar((V110)); |
911 |
if((cddr((V111)))!=Cnil){ |
if((CMPcddr((V110)))!=Cnil){ |
912 |
goto T250;} |
goto T250;} |
913 |
V113= cadr((V111)); |
V112= CMPcadr((V110)); |
914 |
goto T248; |
goto T248; |
915 |
goto T250; |
goto T250; |
916 |
T250:; |
T250:; |
917 |
V114= cadr((V111)); |
V113= CMPcadr((V110)); |
918 |
base[2]= cddr((V111)); |
base[2]= CMPcddr((V110)); |
919 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
920 |
(void) (*Lnk336)(); |
(void) (*Lnk343)(); |
921 |
vs_top=sup; |
vs_top=sup; |
922 |
V115= vs_base[0]; |
V114= vs_base[0]; |
923 |
V113= list(3,VV[62],/* INLINE-ARGS */V114,V115); |
V112= list(3,VV[62],/* INLINE-ARGS */V113,V114); |
924 |
goto T248; |
goto T248; |
925 |
T248:; |
T248:; |
926 |
base[1]= list(2,/* INLINE-ARGS */V112,V113); |
base[1]= list(2,/* INLINE-ARGS */V111,V112); |
927 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
928 |
(void) (*Lnk337)(); |
(void) (*Lnk344)(); |
929 |
return; |
return; |
930 |
} |
} |
931 |
} |
} |
934 |
static void L25() |
static void L25() |
935 |
{register object *base=vs_base; |
{register object *base=vs_base; |
936 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM23; VC23 |
937 |
vs_reserve(VM23); |
vs_check; |
938 |
{object V116; |
{object V115; |
939 |
check_arg(1); |
V115=(base[0]); |
|
V116=(base[0]); |
|
940 |
vs_top=sup; |
vs_top=sup; |
941 |
goto TTL; |
goto TTL; |
942 |
TTL:; |
TTL:; |
943 |
if(((V116))!=Cnil){ |
if(((V115))!=Cnil){ |
944 |
goto T255;} |
goto T255;} |
945 |
base[1]= Cnil; |
base[1]= Cnil; |
946 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
947 |
return; |
return; |
948 |
goto T255; |
goto T255; |
949 |
T255:; |
T255:; |
950 |
if((symbol_value(VV[63]))==Cnil){ |
if(((VV[63]->s.s_dbind))==Cnil){ |
951 |
goto T259;} |
goto T259;} |
952 |
V117= cadr(symbol_value(VV[63])); |
V116= CMPcadr((VV[63]->s.s_dbind)); |
953 |
goto T257; |
goto T257; |
954 |
goto T259; |
goto T259; |
955 |
T259:; |
T259:; |
956 |
V117= VV[64]; |
V116= VV[64]; |
957 |
goto T257; |
goto T257; |
958 |
T257:; |
T257:; |
959 |
base[1]= make_cons(V117,(V116)); |
base[1]= make_cons(V116,(V115)); |
960 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
961 |
return; |
return; |
962 |
} |
} |
966 |
static void L26() |
static void L26() |
967 |
{register object *base=vs_base; |
{register object *base=vs_base; |
968 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM24; VC24 |
969 |
vs_reserve(VM24); |
vs_check; |
|
check_arg(2); |
|
970 |
vs_top=sup; |
vs_top=sup; |
971 |
{object V118=base[0]->c.c_cdr; |
{object V117=base[0]->c.c_cdr; |
972 |
base[2]= V118;} |
base[2]= V117;} |
973 |
{register object V119; |
{register object V118; |
974 |
V119= Cnil; |
V118= Cnil; |
975 |
goto T262; |
goto T262; |
976 |
T262:; |
T262:; |
977 |
if((base[2])!=Cnil){ |
if((base[2])!=Cnil){ |
978 |
goto T263;} |
goto T263;} |
979 |
if((cdr((V119)))!=Cnil){ |
if((CMPcdr((V118)))!=Cnil){ |
980 |
goto T267;} |
goto T267;} |
981 |
base[3]= car((V119)); |
base[3]= CMPcar((V118)); |
982 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
983 |
return; |
return; |
984 |
goto T267; |
goto T267; |
985 |
T267:; |
T267:; |
986 |
V120= nreverse((V119)); |
V119= nreverse((V118)); |
987 |
base[3]= make_cons(VV[14],/* INLINE-ARGS */V120); |
base[3]= make_cons(VV[14],/* INLINE-ARGS */V119); |
988 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
989 |
return; |
return; |
990 |
goto T263; |
goto T263; |
991 |
T263:; |
T263:; |
992 |
|
{register object V120; |
993 |
|
V120= CMPcar(base[2]); |
994 |
|
base[2]= CMPcdr(base[2]); |
995 |
|
base[4]= (V120);} |
996 |
{register object V121; |
{register object V121; |
997 |
V121= car(base[2]); |
V121= CMPcar(base[2]); |
998 |
base[2]= cdr(base[2]); |
base[2]= CMPcdr(base[2]); |
999 |
base[4]= (V121);} |
base[5]= (V121);} |
|
{register object V122; |
|
|
V122= car(base[2]); |
|
|
base[2]= cdr(base[2]); |
|
|
base[5]= (V122);} |
|
1000 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1001 |
L28(base); |
L28(base); |
1002 |
vs_top=sup; |
vs_top=sup; |
1003 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
1004 |
base[4]= (V119); |
base[4]= (V118); |
1005 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1006 |
Lrevappend(); |
Lrevappend(); |
1007 |
vs_top=sup; |
vs_top=sup; |
1008 |
V119= vs_base[0]; |
V118= vs_base[0]; |
1009 |
goto T262;} |
goto T262;} |
1010 |
} |
} |
1011 |
/* function definition for LOOP-CONSTANT-FOLD-IF-POSSIBLE */ |
/* function definition for LOOP-CONSTANT-FOLD-IF-POSSIBLE */ |
1013 |
static void L29() |
static void L29() |
1014 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1015 |
register object *sup=base+VM25; VC25 |
register object *sup=base+VM25; VC25 |
1016 |
vs_reserve(VM25); |
vs_check; |
1017 |
{object V123; |
{object V122; |
1018 |
object V124; |
object V123; |
1019 |
if(vs_top-vs_base<1) too_few_arguments(); |
V122=(base[0]); |
|
if(vs_top-vs_base>2) too_many_arguments(); |
|
|
V123=(base[0]); |
|
1020 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
1021 |
if(vs_base>=vs_top){vs_top=sup;goto T284;} |
if(vs_base>=vs_top){vs_top=sup;goto T284;} |
1022 |
V124=(base[1]); |
V123=(base[1]); |
1023 |
vs_top=sup; |
vs_top=sup; |
1024 |
goto T285; |
goto T285; |
1025 |
goto T284; |
goto T284; |
1026 |
T284:; |
T284:; |
1027 |
V124= Cnil; |
V123= Cnil; |
1028 |
goto T285; |
goto T285; |
1029 |
T285:; |
T285:; |
1030 |
{register object V126; |
{register object V125; |
1031 |
register object V127; |
register object V126; |
1032 |
|
V125= Cnil; |
1033 |
V126= Cnil; |
V126= Cnil; |
1034 |
V127= Cnil; |
base[2]= V122; |
|
base[2]= V123; |
|
1035 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1036 |
Lconstantp(); |
Lconstantp(); |
1037 |
vs_top=sup; |
vs_top=sup; |
1038 |
V126= vs_base[0]; |
V125= vs_base[0]; |
1039 |
if(((V126))==Cnil){ |
if(((V125))==Cnil){ |
1040 |
goto T287;} |
goto T287;} |
1041 |
base[2]= V123; |
base[2]= V122; |
1042 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1043 |
Leval(); |
Leval(); |
1044 |
vs_top=sup; |
vs_top=sup; |
1045 |
V127= vs_base[0]; |
V126= vs_base[0]; |
1046 |
goto T287; |
goto T287; |
1047 |
T287:; |
T287:; |
1048 |
if(((V126))==Cnil){ |
if(((V125))==Cnil){ |
1049 |
goto T294;} |
goto T294;} |
1050 |
if(((V124))==Cnil){ |
if(((V123))==Cnil){ |
1051 |
goto T294;} |
goto T294;} |
1052 |
base[2]= (V127); |
base[2]= (V126); |
1053 |
base[3]= (V124); |
base[3]= (V123); |
1054 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1055 |
(void) (*Lnk333)(); |
(void) (*Lnk340)(); |
1056 |
vs_top=sup; |
vs_top=sup; |
1057 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1058 |
goto T294;} |
goto T294;} |
1059 |
base[2]= VV[67]; |
base[2]= VV[67]; |
1060 |
base[3]= (V123); |
base[3]= (V122); |
1061 |
base[4]= (V127); |
base[4]= (V126); |
1062 |
base[5]= (V124); |
base[5]= (V123); |
1063 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1064 |
(void) (*Lnk338)(); |
(void) (*Lnk345)(); |
1065 |
vs_top=sup; |
vs_top=sup; |
1066 |
|
V125= Cnil; |
1067 |
V126= Cnil; |
V126= Cnil; |
|
V127= Cnil; |
|
1068 |
goto T294; |
goto T294; |
1069 |
T294:; |
T294:; |
1070 |
base[2]= V123; |
base[2]= V122; |
1071 |
base[3]= (V126); |
base[3]= (V125); |
1072 |
base[4]= (V127); |
base[4]= (V126); |
1073 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1074 |
return;} |
return;} |
1075 |
} |
} |
1079 |
static void L30() |
static void L30() |
1080 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1081 |
register object *sup=base+VM26; VC26 |
register object *sup=base+VM26; VC26 |
1082 |
vs_reserve(VM26); |
vs_check; |
1083 |
{object V128; |
{object V127; |
1084 |
check_arg(1); |
V127=(base[0]); |
|
V128=(base[0]); |
|
1085 |
vs_top=sup; |
vs_top=sup; |
1086 |
goto TTL; |
goto TTL; |
1087 |
TTL:; |
TTL:; |
1088 |
base[1]= (V128); |
base[1]= (V127); |
1089 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1090 |
Lconstantp(); |
Lconstantp(); |
1091 |
return; |
return; |
1096 |
static void L31() |
static void L31() |
1097 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1098 |
register object *sup=base+VM27; VC27 |
register object *sup=base+VM27; VC27 |
1099 |
vs_reserve(VM27); |
vs_check; |
1100 |
{object V129; |
{object V128; |
1101 |
check_arg(1); |
V128=(base[0]); |
|
V129=(base[0]); |
|
1102 |
vs_top=sup; |
vs_top=sup; |
1103 |
goto TTL; |
goto TTL; |
1104 |
TTL:; |
TTL:; |
1105 |
{object V130; |
{object V129; |
1106 |
object V131; |
object V130; |
1107 |
base[1]= (V129); |
base[1]= (V128); |
1108 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1109 |
(void) (*Lnk339)(); |
(void) (*Lnk346)(); |
1110 |
if(vs_base>=vs_top){vs_top=sup;goto T317;} |
if(vs_base>=vs_top){vs_top=sup;goto T317;} |
1111 |
V130= vs_base[0]; |
V129= vs_base[0]; |
1112 |
vs_base++; |
vs_base++; |
1113 |
if(vs_base>=vs_top){vs_top=sup;goto T318;} |
if(vs_base>=vs_top){vs_top=sup;goto T318;} |
1114 |
V131= vs_base[0]; |
V130= vs_base[0]; |
1115 |
vs_top=sup; |
vs_top=sup; |
1116 |
goto T319; |
goto T319; |
1117 |
goto T317; |
goto T317; |
1118 |
T317:; |
T317:; |
1119 |
V130= Cnil; |
V129= Cnil; |
1120 |
goto T318; |
goto T318; |
1121 |
T318:; |
T318:; |
1122 |
V131= Cnil; |
V130= Cnil; |
1123 |
goto T319; |
goto T319; |
1124 |
T319:; |
T319:; |
1125 |
V132= number_minus((V130),(V131)); |
V131= number_minus((V129),(V130)); |
1126 |
V133= number_times(/* INLINE-ARGS */V132,small_fixnum(10)); |
V132= number_times(/* INLINE-ARGS */V131,small_fixnum(10)); |
1127 |
base[1]= number_plus(small_fixnum(40),/* INLINE-ARGS */V133); |
base[1]= number_plus(small_fixnum(40),/* INLINE-ARGS */V132); |
1128 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1129 |
return;} |
return;} |
1130 |
} |
} |
1134 |
static void L32() |
static void L32() |
1135 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1136 |
register object *sup=base+VM28; VC28 |
register object *sup=base+VM28; VC28 |
1137 |
vs_reserve(VM28); |
vs_check; |
|
check_arg(2); |
|
1138 |
vs_top=sup; |
vs_top=sup; |
1139 |
{object V134=base[0]->c.c_cdr; |
{object V133=base[0]->c.c_cdr; |
1140 |
if(endp(V134))invalid_macro_call(); |
base[2]= (V133->c.c_car); |
1141 |
base[2]= (V134->c.c_car); |
V133=V133->c.c_cdr; |
1142 |
V134=V134->c.c_cdr; |
base[3]= (V133->c.c_car); |
1143 |
if(endp(V134))invalid_macro_call(); |
V133=V133->c.c_cdr; |
1144 |
base[3]= (V134->c.c_car); |
base[4]= (V133->c.c_car); |
1145 |
V134=V134->c.c_cdr; |
V133=V133->c.c_cdr; |
1146 |
if(endp(V134))invalid_macro_call(); |
base[5]= (V133->c.c_car); |
1147 |
base[4]= (V134->c.c_car); |
V133=V133->c.c_cdr; |
1148 |
V134=V134->c.c_cdr; |
base[6]= (V133->c.c_car); |
|
if(endp(V134))invalid_macro_call(); |
|
|
base[5]= (V134->c.c_car); |
|
|
V134=V134->c.c_cdr; |
|
|
if(endp(V134))invalid_macro_call(); |
|
|
base[6]= (V134->c.c_car); |
|
|
V134=V134->c.c_cdr; |
|
|
if(!endp(V134))invalid_macro_call(); |
|
1149 |
base[7]= Cnil; |
base[7]= Cnil; |
1150 |
base[8]= Cnil; |
base[8]= Cnil; |
1151 |
base[9]= Cnil;} |
base[9]= Cnil;} |
1159 |
T323:; |
T323:; |
1160 |
base[7]= reverse(base[3]); |
base[7]= reverse(base[3]); |
1161 |
base[8]= reverse(base[5]); |
base[8]= reverse(base[5]); |
1162 |
if((symbol_value(VV[69]))!=Cnil){ |
if(((VV[69]->s.s_dbind))!=Cnil){ |
1163 |
goto T332;} |
goto T332;} |
1164 |
if((base[7])!=Cnil){ |
if((base[7])!=Cnil){ |
1165 |
goto T331;} |
goto T331;} |
1170 |
return; |
return; |
1171 |
goto T331; |
goto T331; |
1172 |
T331:; |
T331:; |
1173 |
{register long V135; |
{register long V134; |
1174 |
base[10]= base[1]; |
base[10]= base[1]; |
1175 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
1176 |
(void) (*Lnk340)(); |
(void) (*Lnk347)(); |
1177 |
vs_top=sup; |
vs_top=sup; |
1178 |
V135= fix(vs_base[0]); |
V134= fix(vs_base[0]); |
1179 |
goto T339; |
goto T339; |
1180 |
T339:; |
T339:; |
1181 |
goto T344; |
goto T344; |
1182 |
T344:; |
T344:; |
1183 |
if((base[7])==Cnil){ |
if((base[7])==Cnil){ |
1184 |
goto T346;} |
goto T346;} |
1185 |
if(equal(car(base[7]),car(base[8]))){ |
if(equal(CMPcar(base[7]),CMPcar(base[8]))){ |
1186 |
goto T345;} |
goto T345;} |
1187 |
goto T346; |
goto T346; |
1188 |
T346:; |
T346:; |
1189 |
goto T342; |
goto T342; |
1190 |
goto T345; |
goto T345; |
1191 |
T345:; |
T345:; |
1192 |
|
{register object V135; |
1193 |
{register object V136; |
{register object V136; |
1194 |
|
V136= CMPcar(base[7]); |
1195 |
|
base[7]= CMPcdr(base[7]); |
1196 |
|
V135= (V136);} |
1197 |
|
base[4]= make_cons((V135),base[4]);} |
1198 |
{register object V137; |
{register object V137; |
1199 |
V137= car(base[7]); |
V137= CMPcar(base[8]); |
1200 |
base[7]= cdr(base[7]); |
base[8]= CMPcdr(base[8]);} |
|
V136= (V137);} |
|
|
base[4]= make_cons((V136),base[4]);} |
|
|
{register object V138; |
|
|
V138= car(base[8]); |
|
|
base[8]= cdr(base[8]);} |
|
1201 |
goto T344; |
goto T344; |
1202 |
goto T342; |
goto T342; |
1203 |
T342:; |
T342:; |
1208 |
return; |
return; |
1209 |
goto T363; |
goto T363; |
1210 |
T363:; |
T363:; |
1211 |
{register object V139; |
{register object V138; |
1212 |
|
register object V139; |
1213 |
register object V140; |
register object V140; |
1214 |
register object V141; |
register object V141; |
1215 |
register object V142; |
register object V142; |
1216 |
register object V143; |
V138= base[7]; |
1217 |
V139= base[7]; |
V139= base[8]; |
1218 |
V140= base[8]; |
V140= Cnil; |
1219 |
V141= Cnil; |
V141= small_fixnum(0); |
1220 |
V142= small_fixnum(0); |
V142= Cnil; |
|
V143= Cnil; |
|
1221 |
goto T368; |
goto T368; |
1222 |
T368:; |
T368:; |
1223 |
if(((V139))!=Cnil){ |
if(((V138))!=Cnil){ |
1224 |
goto T369;} |
goto T369;} |
1225 |
vs_base=vs_top; |
vs_base=vs_top; |
1226 |
L35(base); |
L35(base); |
1227 |
return; |
return; |
1228 |
goto T369; |
goto T369; |
1229 |
T369:; |
T369:; |
1230 |
if(equal(car((V139)),car((V140)))){ |
if(equal(CMPcar((V138)),CMPcar((V139)))){ |
1231 |
goto T375;} |
goto T375;} |
1232 |
V141= (V139); |
V140= (V138); |
1233 |
V142= small_fixnum(0); |
V141= small_fixnum(0); |
1234 |
goto T373; |
goto T373; |
1235 |
goto T375; |
goto T375; |
1236 |
T375:; |
T375:; |
1237 |
base[10]= car((V139)); |
base[10]= CMPcar((V138)); |
1238 |
base[11]= base[1]; |
base[11]= base[1]; |
1239 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
1240 |
(void) (*Lnk77)(); |
(void) (*Lnk77)(); |
1241 |
vs_top=sup; |
vs_top=sup; |
1242 |
V143= vs_base[0]; |
V142= vs_base[0]; |
1243 |
if(((V143))==Cnil){ |
if(((V142))==Cnil){ |
1244 |
goto T380;} |
goto T380;} |
1245 |
V142= number_plus((V142),(V143)); |
V141= number_plus((V141),(V142)); |
1246 |
V144 = make_fixnum(V135); |
V143 = CMPmake_fixnum(V134); |
1247 |
if(!(number_compare((V142),V144)>0)){ |
if(!(number_compare((V141),V143)>0)){ |
1248 |
goto T373;} |
goto T373;} |
1249 |
goto T380; |
goto T380; |
1250 |
T380:; |
T380:; |
1251 |
{register object V145; |
{register object V144; |
1252 |
register object V146; |
register object V145; |
1253 |
|
V144= Cnil; |
1254 |
V145= Cnil; |
V145= Cnil; |
|
V146= Cnil; |
|
1255 |
goto T391; |
goto T391; |
1256 |
T391:; |
T391:; |
1257 |
|
{register object V146; |
1258 |
{register object V147; |
{register object V147; |
1259 |
|
V147= CMPcar(base[7]); |
1260 |
|
base[7]= CMPcdr(base[7]); |
1261 |
|
V146= (V147);} |
1262 |
|
V145= make_cons((V146),(V145));} |
1263 |
{register object V148; |
{register object V148; |
|
V148= car(base[7]); |
|
|
base[7]= cdr(base[7]); |
|
|
V147= (V148);} |
|
|
V146= make_cons((V147),(V146));} |
|
1264 |
{register object V149; |
{register object V149; |
1265 |
{register object V150; |
V149= CMPcar(base[8]); |
1266 |
V150= car(base[8]); |
base[8]= CMPcdr(base[8]); |
1267 |
base[8]= cdr(base[8]); |
V148= (V149);} |
1268 |
V149= (V150);} |
V144= make_cons((V148),(V144));} |
1269 |
V145= make_cons((V149),(V145));} |
if(!((base[7])==(CMPcdr((V140))))){ |
|
if(!((base[7])==(cdr((V141))))){ |
|
1270 |
goto T406;} |
goto T406;} |
1271 |
goto T389; |
goto T389; |
1272 |
goto T406; |
goto T406; |
1276 |
T389:; |
T389:; |
1277 |
if((base[9])!=Cnil){ |
if((base[9])!=Cnil){ |
1278 |
goto T411;} |
goto T411;} |
1279 |
{register object V151; |
{register object V150; |
1280 |
base[9]= symbol_value(VV[70]); |
base[9]= (VV[70]->s.s_dbind); |
1281 |
V151= list(3,VV[11],base[9],Ct); |
V150= list(3,VV[11],base[9],Ct); |
1282 |
V146= make_cons((V151),(V146));} |
V145= make_cons((V150),(V145));} |
1283 |
goto T411; |
goto T411; |
1284 |
T411:; |
T411:; |
1285 |
{register object V152; |
{register object V151; |
1286 |
base[12]= (V145); |
base[12]= (V144); |
1287 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
1288 |
L33(base); |
L33(base); |
1289 |
vs_top=sup; |
vs_top=sup; |
1291 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
1292 |
L34(base); |
L34(base); |
1293 |
vs_top=sup; |
vs_top=sup; |
1294 |
V153= vs_base[0]; |
V152= vs_base[0]; |
1295 |
base[12]= (V146); |
base[12]= (V145); |
1296 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
1297 |
L33(base); |
L33(base); |
1298 |
vs_top=sup; |
vs_top=sup; |
1300 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
1301 |
L34(base); |
L34(base); |
1302 |
vs_top=sup; |
vs_top=sup; |
1303 |
V154= vs_base[0]; |
V153= vs_base[0]; |
1304 |
V152= list(4,VV[71],base[9],V153,V154); |
V151= list(4,VV[71],base[9],V152,V153); |
1305 |
base[4]= make_cons((V152),base[4]);}} |
base[4]= make_cons((V151),base[4]);}} |
1306 |
goto T427; |
goto T427; |
1307 |
T427:; |
T427:; |
1308 |
|
{register object V154; |
1309 |
|
V154= CMPcar(base[8]); |
1310 |
|
base[8]= CMPcdr(base[8]);} |
1311 |
{register object V155; |
{register object V155; |
|
V155= car(base[8]); |
|
|
base[8]= cdr(base[8]);} |
|
1312 |
{register object V156; |
{register object V156; |
1313 |
{register object V157; |
V156= CMPcar(base[7]); |
1314 |
V157= car(base[7]); |
base[7]= CMPcdr(base[7]); |
1315 |
base[7]= cdr(base[7]); |
V155= (V156);} |
1316 |
V156= (V157);} |
base[4]= make_cons((V155),base[4]);} |
1317 |
base[4]= make_cons((V156),base[4]);} |
if(!((base[7])==(CMPcdr((V138))))){ |
|
if(!((base[7])==(cdr((V139))))){ |
|
1318 |
goto T440;} |
goto T440;} |
1319 |
goto T425; |
goto T425; |
1320 |
goto T440; |
goto T440; |
1325 |
goto T366; |
goto T366; |
1326 |
goto T373; |
goto T373; |
1327 |
T373:; |
T373:; |
1328 |
V139= cdr((V139)); |
V138= CMPcdr((V138)); |
1329 |
V140= cdr((V140)); |
V139= CMPcdr((V139)); |
1330 |
goto T368;} |
goto T368;} |
1331 |
goto T366; |
goto T366; |
1332 |
T366:; |
T366:; |
1337 |
static void L36() |
static void L36() |
1338 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1339 |
register object *sup=base+VM29; VC29 |
register object *sup=base+VM29; VC29 |
1340 |
vs_reserve(VM29); |
vs_check; |
1341 |
{object V158; |
{object V157; |
1342 |
object V159; |
object V158; |
1343 |
check_arg(2); |
V157=(base[0]); |
1344 |
V158=(base[0]); |
V158=(base[1]); |
|
V159=(base[1]); |
|
1345 |
vs_top=sup; |
vs_top=sup; |
1346 |
goto TTL; |
goto TTL; |
1347 |
TTL:; |
TTL:; |
1348 |
if(((V158))!=Cnil){ |
if(((V157))!=Cnil){ |
1349 |
goto T452;} |
goto T452;} |
1350 |
base[2]= small_fixnum(0); |
base[2]= small_fixnum(0); |
1351 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1352 |
return; |
return; |
1353 |
goto T452; |
goto T452; |
1354 |
T452:; |
T452:; |
1355 |
{long V160; |
{long V159; |
1356 |
base[2]= (V158); |
base[2]= (V157); |
1357 |
base[3]= (V159); |
base[3]= (V158); |
1358 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1359 |
(void) (*Lnk77)(); |
(void) (*Lnk77)(); |
1360 |
vs_top=sup; |
vs_top=sup; |
1361 |
V160= fix(vs_base[0]); |
V159= fix(vs_base[0]); |
1362 |
base[2]= make_fixnum(V160); |
base[2]= CMPmake_fixnum(V159); |
1363 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1364 |
return;} |
return;} |
1365 |
} |
} |
1369 |
static void L37() |
static void L37() |
1370 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1371 |
register object *sup=base+VM30; VC30 |
register object *sup=base+VM30; VC30 |
1372 |
vs_reserve(VM30); |
vs_check; |
1373 |
{object V161; |
{object V160; |
1374 |
check_arg(1); |
V160=(base[0]); |
|
V161=(base[0]); |
|
1375 |
vs_top=sup; |
vs_top=sup; |
1376 |
goto TTL; |
goto TTL; |
1377 |
TTL:; |
TTL:; |
1378 |
{register object V162; |
{register object V161; |
1379 |
register object V163; |
register object V162; |
1380 |
V162= (V161); |
V161= (V160); |
1381 |
V163= small_fixnum(0); |
V162= small_fixnum(0); |
1382 |
goto T458; |
goto T458; |
1383 |
T458:; |
T458:; |
1384 |
if(!(type_of((V162))!=t_cons)){ |
if(!(type_of((V161))!=t_cons)){ |
1385 |
goto T459;} |
goto T459;} |
1386 |
if(((V162))!=Cnil){ |
if(((V161))!=Cnil){ |
1387 |
goto T464;} |
goto T464;} |
1388 |
V164= small_fixnum(0); |
V163= small_fixnum(0); |
1389 |
goto T462; |
goto T462; |
1390 |
goto T464; |
goto T464; |
1391 |
T464:; |
T464:; |
1392 |
V164= small_fixnum(1); |
V163= small_fixnum(1); |
1393 |
goto T462; |
goto T462; |
1394 |
T462:; |
T462:; |
1395 |
base[1]= number_plus((V163),V164); |
base[1]= number_plus((V162),V163); |
1396 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1397 |
return; |
return; |
1398 |
goto T459; |
goto T459; |
1399 |
T459:; |
T459:; |
1400 |
{object V165; |
{object V164; |
1401 |
V165= cdr((V162)); |
V164= CMPcdr((V161)); |
1402 |
base[1]= car((V162)); |
base[1]= CMPcar((V161)); |
1403 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1404 |
(void) (*Lnk341)(); |
(void) (*Lnk348)(); |
1405 |
vs_top=sup; |
vs_top=sup; |
1406 |
V166= vs_base[0]; |
V165= vs_base[0]; |
1407 |
V163= number_plus(V166,(V163)); |
V162= number_plus(V165,(V162)); |
1408 |
V162= (V165);} |
V161= (V164);} |
1409 |
goto T458;} |
goto T458;} |
1410 |
} |
} |
1411 |
} |
} |
1414 |
static void L38() |
static void L38() |
1415 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
1416 |
register object *VOL sup=base+VM31; VC31 |
register object *VOL sup=base+VM31; VC31 |
1417 |
vs_reserve(VM31); |
vs_check; |
1418 |
{VOL object V167; |
{VOL object V166; |
1419 |
VOL object V168; |
VOL object V167; |
1420 |
check_arg(2); |
V166=(base[0]); |
1421 |
V167=(base[0]); |
V167=(base[1]); |
|
V168=(base[1]); |
|
1422 |
vs_top=sup; |
vs_top=sup; |
1423 |
goto TTL; |
goto TTL; |
1424 |
TTL:; |
TTL:; |
1427 |
{nlj_active=FALSE;frs_pop(); |
{nlj_active=FALSE;frs_pop(); |
1428 |
return;} |
return;} |
1429 |
else{ |
else{ |
1430 |
base[2]= (V167); |
base[2]= (V166); |
1431 |
base[3]= (V168); |
base[3]= (V167); |
1432 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1433 |
(void) (*Lnk342)(); |
(void) (*Lnk349)(); |
1434 |
frs_pop(); |
frs_pop(); |
1435 |
return;} |
return;} |
1436 |
} |
} |
1440 |
static void L39() |
static void L39() |
1441 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1442 |
register object *sup=base+VM32; VC32 |
register object *sup=base+VM32; VC32 |
1443 |
vs_reserve(VM32); |
vs_check; |
1444 |
{object V169; |
{object V168; |
1445 |
check_arg(2); |
V168=(base[0]); |
|
V169=(base[0]); |
|
1446 |
vs_top=sup; |
vs_top=sup; |
1447 |
goto TTL; |
goto TTL; |
1448 |
TTL:; |
TTL:; |
1449 |
base[2]= (V169); |
base[2]= (V168); |
1450 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1451 |
Lconstantp(); |
Lconstantp(); |
1452 |
vs_top=sup; |
vs_top=sup; |
1457 |
return; |
return; |
1458 |
goto T477; |
goto T477; |
1459 |
T477:; |
T477:; |
1460 |
if(!(type_of((V169))==t_symbol)){ |
if(!(type_of((V168))==t_symbol)){ |
1461 |
goto T481;} |
goto T481;} |
1462 |
{object V170; |
{object V169; |
1463 |
object V171; |
object V170; |
1464 |
base[2]= (V169); |
base[2]= (V168); |
1465 |
base[3]= base[1]; |
base[3]= base[1]; |
1466 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1467 |
Lmacroexpand_1(); |
Lmacroexpand_1(); |
1468 |
if(vs_base>=vs_top){vs_top=sup;goto T486;} |
if(vs_base>=vs_top){vs_top=sup;goto T486;} |
1469 |
V170= vs_base[0]; |
V169= vs_base[0]; |
1470 |
vs_base++; |
vs_base++; |
1471 |
if(vs_base>=vs_top){vs_top=sup;goto T487;} |
if(vs_base>=vs_top){vs_top=sup;goto T487;} |
1472 |
V171= vs_base[0]; |
V170= vs_base[0]; |
1473 |
vs_top=sup; |
vs_top=sup; |
1474 |
goto T488; |
goto T488; |
1475 |
goto T486; |
goto T486; |
1476 |
T486:; |
T486:; |
1477 |
V170= Cnil; |
V169= Cnil; |
1478 |
goto T487; |
goto T487; |
1479 |
T487:; |
T487:; |
1480 |
V171= Cnil; |
V170= Cnil; |
1481 |
goto T488; |
goto T488; |
1482 |
T488:; |
T488:; |
1483 |
if(((V171))==Cnil){ |
if(((V170))==Cnil){ |
1484 |
goto T490;} |
goto T490;} |
1485 |
V169= (V170); |
V168= (V169); |
1486 |
goto TTL; |
goto TTL; |
1487 |
goto T490; |
goto T490; |
1488 |
T490:; |
T490:; |
1491 |
return;} |
return;} |
1492 |
goto T481; |
goto T481; |
1493 |
T481:; |
T481:; |
1494 |
if(!(type_of((V169))!=t_cons)){ |
if(!(type_of((V168))!=t_cons)){ |
1495 |
goto T496;} |
goto T496;} |
1496 |
base[2]= small_fixnum(1); |
base[2]= small_fixnum(1); |
1497 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1498 |
return; |
return; |
1499 |
goto T496; |
goto T496; |
1500 |
T496:; |
T496:; |
1501 |
if(!(type_of(car((V169)))==t_symbol)){ |
if(!(type_of(CMPcar((V168)))==t_symbol)){ |
1502 |
goto T499;} |
goto T499;} |
1503 |
{object V172; |
{object V171; |
1504 |
object V173; |
object V172; |
1505 |
register long V174; |
register long V173; |
1506 |
V172= car((V169)); |
V171= CMPcar((V168)); |
1507 |
V174= 0; |
V173= 0; |
1508 |
V173= Cnil; |
V172= Cnil; |
1509 |
V173= get((V172),VV[77],Cnil); |
{object V174 =((V171))->s.s_plist; |
1510 |
if(((V173))==Cnil){ |
object ind= VV[77]; |
1511 |
|
while(V174!=Cnil){ |
1512 |
|
if(V174->c.c_car==ind){ |
1513 |
|
V172= (V174->c.c_cdr->c.c_car); |
1514 |
|
goto T506; |
1515 |
|
}else V174=V174->c.c_cdr->c.c_cdr;} |
1516 |
|
V172= Cnil;} |
1517 |
|
goto T506; |
1518 |
|
T506:; |
1519 |
|
if(((V172))==Cnil){ |
1520 |
goto T504;} |
goto T504;} |
1521 |
if(!(type_of(V173)==t_fixnum)){ |
if(!(type_of(V172)==t_fixnum)){ |
1522 |
goto T508;} |
goto T508;} |
1523 |
base[2]= cdr((V169)); |
base[2]= CMPcdr((V168)); |
1524 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1525 |
L40(base); |
L40(base); |
1526 |
vs_top=sup; |
vs_top=sup; |
1527 |
V176= fix(vs_base[0]); |
V176= fix(vs_base[0]); |
1528 |
base[2]= make_fixnum((long)(fix((V173)))+(V176)); |
base[2]= CMPmake_fixnum((long)(fix((V172)))+(V176)); |
1529 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1530 |
return; |
return; |
1531 |
goto T508; |
goto T508; |
1532 |
T508:; |
T508:; |
1533 |
base[2]= (V169); |
base[2]= (V168); |
1534 |
base[3]= base[1]; |
base[3]= base[1]; |
1535 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1536 |
super_funcall_no_event((V173)); |
super_funcall_no_event((V172)); |
1537 |
return; |
return; |
1538 |
goto T504; |
goto T504; |
1539 |
T504:; |
T504:; |
1540 |
{register object x= (V172),V177= symbol_value(VV[78]); |
{register object x= (V171),V177= (VV[78]->s.s_dbind); |
1541 |
while(!endp(V177)) |
while(V177!=Cnil) |
1542 |
if(type_of(V177->c.c_car)==t_cons &&eql(x,V177->c.c_car->c.c_car)){ |
if(eql(x,V177->c.c_car->c.c_car) &&V177->c.c_car != Cnil){ |
1543 |
V173= (V177->c.c_car); |
V172= (V177->c.c_car); |
1544 |
goto T517; |
goto T517; |
1545 |
}else V177=V177->c.c_cdr; |
}else V177=V177->c.c_cdr; |
1546 |
V173= Cnil;} |
V172= Cnil;} |
1547 |
goto T517; |
goto T517; |
1548 |
T517:; |
T517:; |
1549 |
if(((V173))==Cnil){ |
if(((V172))==Cnil){ |
1550 |
goto T515;} |
goto T515;} |
1551 |
{long V178= fix(cadr((V173))); |
{long V178= fix(CMPcadr((V172))); |
1552 |
base[2]= cdr((V169)); |
base[2]= CMPcdr((V168)); |
1553 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1554 |
L40(base); |
L40(base); |
1555 |
vs_top=sup; |
vs_top=sup; |
1556 |
V179= fix(vs_base[0]); |
V179= fix(vs_base[0]); |
1557 |
base[2]= make_fixnum((long)(/* INLINE-ARGS */V178)+(V179)); |
base[2]= CMPmake_fixnum((long)(/* INLINE-ARGS */V178)+(V179)); |
1558 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1559 |
return;} |
return;} |
1560 |
goto T515; |
goto T515; |
1561 |
T515:; |
T515:; |
1562 |
if(!(((V172))==(VV[79]))){ |
if(!(((V171))==(VV[79]))){ |
1563 |
goto T521;} |
goto T521;} |
1564 |
{register object V180; |
{register object V180; |
1565 |
object V181; |
object V181; |
1566 |
V180= cdr((V169)); |
V180= CMPcdr((V168)); |
1567 |
V181= car((V180)); |
V181= CMPcar((V180)); |
1568 |
goto T526; |
goto T526; |
1569 |
T526:; |
T526:; |
1570 |
if(!(endp_prop((V180)))){ |
if(!(((V180))==Cnil)){ |
1571 |
goto T527;} |
goto T527;} |
1572 |
base[4]= make_fixnum(V174); |
base[4]= CMPmake_fixnum(V173); |
1573 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1574 |
return; |
return; |
1575 |
goto T527; |
goto T527; |
1576 |
T527:; |
T527:; |
1577 |
V182 = make_fixnum(V174); |
V182 = CMPmake_fixnum(V173); |
1578 |
base[4]= (V181); |
base[4]= (V181); |
1579 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1580 |
L40(base); |
L40(base); |
1581 |
vs_top=sup; |
vs_top=sup; |
1582 |
V183= vs_base[0]; |
V183= vs_base[0]; |
1583 |
V174= fix(number_plus(V182,V183)); |
V173= fix(number_plus(V182,V183)); |
1584 |
V174= (long)(V174)+(1); |
V173= (long)(V173)+(1); |
1585 |
V180= cdr((V180)); |
V180= CMPcdr((V180)); |
1586 |
V181= car((V180)); |
V181= CMPcar((V180)); |
1587 |
goto T526;} |
goto T526;} |
1588 |
goto T521; |
goto T521; |
1589 |
T521:; |
T521:; |
1590 |
if(!(((V172))==(VV[80]))){ |
if(!(((V171))==(VV[80]))){ |
1591 |
goto T543;} |
goto T543;} |
1592 |
{register object V184; |
{register object V184; |
1593 |
V184= cdr((V169)); |
V184= CMPcdr((V168)); |
1594 |
goto T547; |
goto T547; |
1595 |
T547:; |
T547:; |
1596 |
if(((V184))!=Cnil){ |
if(((V184))!=Cnil){ |
1597 |
goto T548;} |
goto T548;} |
1598 |
base[2]= make_fixnum(V174); |
base[2]= CMPmake_fixnum(V173); |
1599 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1600 |
return; |
return; |
1601 |
goto T548; |
goto T548; |
1602 |
T548:; |
T548:; |
1603 |
base[2]= make_fixnum(V174); |
base[2]= CMPmake_fixnum(V173); |
1604 |
base[4]= car((V184)); |
base[4]= CMPcar((V184)); |
1605 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1606 |
(void) (*Lnk341)(); |
(void) (*Lnk348)(); |
1607 |
vs_top=sup; |
vs_top=sup; |
1608 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
1609 |
base[5]= cadr((V184)); |
base[5]= CMPcadr((V184)); |
1610 |
base[6]= base[1]; |
base[6]= base[1]; |
1611 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1612 |
(void) (*Lnk342)(); |
(void) (*Lnk349)(); |
1613 |
vs_top=sup; |
vs_top=sup; |
1614 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
1615 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1616 |
Lplus(); |
Lplus(); |
1617 |
vs_top=sup; |
vs_top=sup; |
1618 |
V174= fix(vs_base[0]); |
V173= fix(vs_base[0]); |
1619 |
V184= cdr((V184)); |
V184= CMPcdr((V184)); |
1620 |
goto T547;} |
goto T547;} |
1621 |
goto T543; |
goto T543; |
1622 |
T543:; |
T543:; |
1623 |
{register object x= (V172),V185= VV[81]; |
{register object x= (V171),V185= VV[81]; |
1624 |
while(!endp(V185)) |
while(V185!=Cnil) |
1625 |
if(eql(x,V185->c.c_car)){ |
if(eql(x,V185->c.c_car)){ |
1626 |
goto T565; |
goto T565; |
1627 |
}else V185=V185->c.c_cdr; |
}else V185=V185->c.c_cdr; |
1629 |
goto T565; |
goto T565; |
1630 |
T565:; |
T565:; |
1631 |
{register object V186; |
{register object V186; |
1632 |
V186= cdr((V169)); |
V186= CMPcdr((V168)); |
1633 |
goto T568; |
goto T568; |
1634 |
T568:; |
T568:; |
1635 |
if(((V186))!=Cnil){ |
if(((V186))!=Cnil){ |
1636 |
goto T569;} |
goto T569;} |
1637 |
base[2]= make_fixnum(V174); |
base[2]= CMPmake_fixnum(V173); |
1638 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1639 |
return; |
return; |
1640 |
goto T569; |
goto T569; |
1641 |
T569:; |
T569:; |
1642 |
base[2]= make_fixnum(V174); |
base[2]= CMPmake_fixnum(V173); |
1643 |
base[4]= cadr((V186)); |
base[4]= CMPcadr((V186)); |
1644 |
base[5]= base[1]; |
base[5]= base[1]; |
1645 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1646 |
(void) (*Lnk342)(); |
(void) (*Lnk349)(); |
1647 |
vs_top=sup; |
vs_top=sup; |
1648 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
1649 |
base[4]= small_fixnum(1); |
base[4]= small_fixnum(1); |
1650 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1651 |
Lplus(); |
Lplus(); |
1652 |
vs_top=sup; |
vs_top=sup; |
1653 |
V174= fix(vs_base[0]); |
V173= fix(vs_base[0]); |
1654 |
V186= cdr((V186)); |
V186= CMPcdr((V186)); |
1655 |
goto T568;} |
goto T568;} |
1656 |
goto T564; |
goto T564; |
1657 |
T564:; |
T564:; |
1658 |
if(!(((V172))==(VV[82]))){ |
if(!(((V171))==(VV[82]))){ |
1659 |
goto T584;} |
goto T584;} |
1660 |
base[2]= small_fixnum(1); |
base[2]= small_fixnum(1); |
1661 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1662 |
return; |
return; |
1663 |
goto T584; |
goto T584; |
1664 |
T584:; |
T584:; |
1665 |
if(!(((V172))==(VV[83]))){ |
if(!(((V171))==(VV[83]))){ |
1666 |
goto T587;} |
goto T587;} |
|
if(type_of(cadr((V169)))==t_symbol){ |
|
|
goto T589;} |
|
|
if(!(type_of(cadr((V169)))==t_cons)){ |
|
|
goto T590;} |
|
|
if(!((caadr((V169)))==(VV[9]))){ |
|
|
goto T590;} |
|
|
goto T589; |
|
|
T589:; |
|
1667 |
base[2]= small_fixnum(1); |
base[2]= small_fixnum(1); |
1668 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1669 |
return; |
return; |
|
goto T590; |
|
|
T590:; |
|
|
{frame_ptr fr; |
|
|
fr=frs_sch_catch(VV[84]); |
|
|
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[84]); |
|
|
base[2]= Cnil; |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
unwind(fr,VV[84]);} |
|
1670 |
goto T587; |
goto T587; |
1671 |
T587:; |
T587:; |
1672 |
if(!(((V172))==(VV[85]))){ |
if(!(((V171))==(VV[84]))){ |
1673 |
goto T598;} |
goto T590;} |
1674 |
{long V187= (long)length(cadr((V169))); |
{long V187= (long)length(CMPcadr((V168))); |
1675 |
base[2]= cddr((V169)); |
base[2]= CMPcddr((V168)); |
1676 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1677 |
L40(base); |
L40(base); |
1678 |
vs_top=sup; |
vs_top=sup; |
1679 |
V188= fix(vs_base[0]); |
V188= fix(vs_base[0]); |
1680 |
base[2]= make_fixnum((long)(/* INLINE-ARGS */V187)+(V188)); |
base[2]= CMPmake_fixnum((long)(/* INLINE-ARGS */V187)+(V188)); |
1681 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1682 |
return;} |
return;} |
1683 |
goto T598; |
goto T590; |
1684 |
T598:; |
T590:; |
1685 |
if(!(((V172))==(VV[86]))){ |
if(!(((V171))==(VV[85]))){ |
1686 |
goto T603;} |
goto T595;} |
1687 |
base[2]= caddr((V169)); |
base[2]= CMPcaddr((V168)); |
1688 |
base[3]= base[1]; |
base[3]= base[1]; |
1689 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1690 |
(void) (*Lnk342)(); |
(void) (*Lnk349)(); |
1691 |
vs_top=sup; |
vs_top=sup; |
1692 |
V189= vs_base[0]; |
V189= vs_base[0]; |
1693 |
base[2]= one_plus(V189); |
base[2]= one_plus(V189); |
1694 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1695 |
return; |
return; |
1696 |
goto T603; |
goto T595; |
1697 |
T603:; |
T595:; |
1698 |
base[2]= (V172); |
base[2]= (V171); |
1699 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1700 |
(void) (*Lnk343)(); |
(void) (*Lnk350)(); |
1701 |
vs_top=sup; |
vs_top=sup; |
1702 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1703 |
goto T608;} |
goto T600;} |
1704 |
{register object x= (V172),V190= symbol_value(VV[87]); |
{register object x= (V171),V190= (VV[86]->s.s_dbind); |
1705 |
while(!endp(V190)) |
while(V190!=Cnil) |
1706 |
if(eql(x,V190->c.c_car)){ |
if(eql(x,V190->c.c_car)){ |
1707 |
goto T613; |
goto T605; |
1708 |
}else V190=V190->c.c_cdr; |
}else V190=V190->c.c_cdr; |
1709 |
goto T609;} |
goto T601;} |
1710 |
goto T613; |
goto T605; |
1711 |
T613:; |
T605:; |
1712 |
goto T608; |
goto T600; |
1713 |
T608:; |
T600:; |
1714 |
{frame_ptr fr; |
{frame_ptr fr; |
1715 |
fr=frs_sch_catch(VV[77]); |
fr=frs_sch_catch(VV[77]); |
1716 |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[77]); |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[77]); |
1717 |
base[2]= Cnil; |
base[2]= Cnil; |
1718 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1719 |
unwind(fr,VV[77]);} |
unwind(fr,VV[77]);} |
1720 |
goto T609; |
goto T601; |
1721 |
T609:; |
T601:; |
1722 |
{object V191; |
{object V191; |
1723 |
object V192; |
object V192; |
1724 |
base[2]= (V169); |
base[2]= (V168); |
1725 |
base[3]= base[1]; |
base[3]= base[1]; |
1726 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1727 |
Lmacroexpand_1(); |
Lmacroexpand_1(); |
1728 |
if(vs_base>=vs_top){vs_top=sup;goto T618;} |
if(vs_base>=vs_top){vs_top=sup;goto T610;} |
1729 |
V191= vs_base[0]; |
V191= vs_base[0]; |
1730 |
vs_base++; |
vs_base++; |
1731 |
if(vs_base>=vs_top){vs_top=sup;goto T619;} |
if(vs_base>=vs_top){vs_top=sup;goto T611;} |
1732 |
V192= vs_base[0]; |
V192= vs_base[0]; |
1733 |
vs_top=sup; |
vs_top=sup; |
1734 |
goto T620; |
goto T612; |
1735 |
goto T618; |
goto T610; |
1736 |
T618:; |
T610:; |
1737 |
V191= Cnil; |
V191= Cnil; |
1738 |
goto T619; |
goto T611; |
1739 |
T619:; |
T611:; |
1740 |
V192= Cnil; |
V192= Cnil; |
1741 |
goto T620; |
goto T612; |
1742 |
T620:; |
T612:; |
1743 |
if(((V192))==Cnil){ |
if(((V192))==Cnil){ |
1744 |
goto T622;} |
goto T614;} |
1745 |
V169= (V191); |
V168= (V191); |
1746 |
goto TTL; |
goto TTL; |
1747 |
goto T622; |
goto T614; |
1748 |
T622:; |
T614:; |
1749 |
base[2]= cdr((V169)); |
base[2]= CMPcdr((V168)); |
1750 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1751 |
L40(base); |
L40(base); |
1752 |
vs_top=sup; |
vs_top=sup; |
1753 |
V193= fix(vs_base[0]); |
V193= fix(vs_base[0]); |
1754 |
base[2]= make_fixnum((long)(3)+(V193)); |
base[2]= CMPmake_fixnum((long)(3)+(V193)); |
1755 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1756 |
return;}} |
return;}} |
1757 |
goto T499; |
goto T499; |
1769 |
static void L41() |
static void L41() |
1770 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1771 |
register object *sup=base+VM33; VC33 |
register object *sup=base+VM33; VC33 |
1772 |
vs_reserve(VM33); |
vs_check; |
|
check_arg(0); |
|
1773 |
vs_top=sup; |
vs_top=sup; |
1774 |
goto TTL; |
goto TTL; |
1775 |
TTL:; |
TTL:; |
1776 |
{register object V194; |
{register object V194; |
1777 |
register object V195; |
register object V195; |
1778 |
V194= symbol_value(VV[88]); |
V194= (VV[87]->s.s_dbind); |
1779 |
V195= Cnil; |
V195= Cnil; |
1780 |
goto T631; |
goto T623; |
1781 |
T631:; |
T623:; |
1782 |
if(!(((V194))==(cdr(symbol_value(VV[89]))))){ |
if(!(((V194))==(CMPcdr((VV[88]->s.s_dbind))))){ |
1783 |
goto T632;} |
goto T624;} |
1784 |
base[0]= nreverse((V195)); |
base[0]= nreverse((V195)); |
1785 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1786 |
return; |
return; |
1787 |
goto T632; |
goto T624; |
1788 |
T632:; |
T624:; |
1789 |
{object V196; |
{object V196; |
1790 |
V196= cdr((V194)); |
V196= CMPcdr((V194)); |
1791 |
V195= make_cons(car((V194)),(V195)); |
V195= make_cons(CMPcar((V194)),(V195)); |
1792 |
V194= (V196);} |
V194= (V196);} |
1793 |
goto T631;} |
goto T623;} |
1794 |
} |
} |
1795 |
/* function definition for LOOP-ERROR */ |
/* function definition for LOOP-ERROR */ |
1796 |
|
|
1797 |
static void L42() |
static void L42() |
1798 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1799 |
register object *sup=base+VM34; VC34 |
register object *sup=base+VM34; VC34 |
1800 |
vs_reserve(VM34); |
vs_check; |
1801 |
{object V197; |
{object V197; |
1802 |
object V198; |
object V198; |
|
if(vs_top-vs_base<1) too_few_arguments(); |
|
1803 |
V197=(base[0]); |
V197=(base[0]); |
1804 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
1805 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
1807 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1808 |
V198=(base[1]); |
V198=(base[1]); |
1809 |
vs_top=sup; |
vs_top=sup; |
1810 |
base[2]= VV[90]; |
base[2]= VV[89]; |
1811 |
base[3]= VV[91]; |
base[3]= VV[90]; |
1812 |
base[4]= (V197); |
base[4]= (V197); |
1813 |
base[5]= (V198); |
base[5]= (V198); |
1814 |
vs_base=vs_top; |
vs_base=vs_top; |
1815 |
(void) (*Lnk344)(); |
(void) (*Lnk351)(); |
1816 |
vs_top=sup; |
vs_top=sup; |
1817 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
1818 |
vs_top=(vs_base=base+2)+5; |
vs_top=(vs_base=base+2)+5; |
1819 |
(void) (*Lnk345)(); |
(void) (*Lnk352)(); |
1820 |
return; |
return; |
1821 |
} |
} |
1822 |
} |
} |
1825 |
static void L43() |
static void L43() |
1826 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1827 |
register object *sup=base+VM35; VC35 |
register object *sup=base+VM35; VC35 |
1828 |
vs_reserve(VM35); |
vs_check; |
1829 |
{object V199; |
{object V199; |
1830 |
object V200; |
object V200; |
|
if(vs_top-vs_base<1) too_few_arguments(); |
|
1831 |
V199=(base[0]); |
V199=(base[0]); |
1832 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
1833 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
1835 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1836 |
V200=(base[1]); |
V200=(base[1]); |
1837 |
vs_top=sup; |
vs_top=sup; |
1838 |
|
base[2]= VV[91]; |
1839 |
|
base[3]= (V199); |
1840 |
|
base[4]= (V200); |
1841 |
vs_base=vs_top; |
vs_base=vs_top; |
1842 |
(void) (*Lnk344)(); |
(void) (*Lnk351)(); |
1843 |
vs_top=sup; |
vs_top=sup; |
1844 |
V201= vs_base[0]; |
base[5]= vs_base[0]; |
1845 |
base[2]= (VFUN_NARGS=4,(*(LnkLI346))(VV[92],(V199),(V200),V201)); |
vs_top=(vs_base=base+2)+4; |
1846 |
vs_top=(vs_base=base+2)+1; |
(void) (*Lnk353)(); |
1847 |
return; |
return; |
1848 |
} |
} |
1849 |
} |
} |
1852 |
static void L44() |
static void L44() |
1853 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1854 |
register object *sup=base+VM36; VC36 |
register object *sup=base+VM36; VC36 |
1855 |
vs_reserve(VM36); |
vs_check; |
1856 |
{register object V202; |
{register object V201; |
1857 |
register object V203; |
register object V202; |
1858 |
object V204; |
object V203; |
1859 |
if(vs_top-vs_base<2) too_few_arguments(); |
V201=(base[0]); |
1860 |
if(vs_top-vs_base>3) too_many_arguments(); |
V202=(base[1]); |
|
V202=(base[0]); |
|
|
V203=(base[1]); |
|
1861 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
1862 |
if(vs_base>=vs_top){vs_top=sup;goto T646;} |
if(vs_base>=vs_top){vs_top=sup;goto T641;} |
1863 |
V204=(base[2]); |
V203=(base[2]); |
1864 |
vs_top=sup; |
vs_top=sup; |
1865 |
goto T647; |
goto T642; |
1866 |
goto T646; |
goto T641; |
1867 |
T646:; |
T641:; |
1868 |
V204= (V203); |
V203= (V202); |
1869 |
goto T647; |
goto T642; |
1870 |
T647:; |
T642:; |
1871 |
if(((V202))!=Cnil){ |
if(((V201))!=Cnil){ |
1872 |
goto T650;} |
goto T645;} |
1873 |
base[3]= (V204); |
base[3]= (V203); |
1874 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1875 |
return; |
return; |
1876 |
goto T650; |
goto T645; |
1877 |
T650:; |
T645:; |
1878 |
{object V205; |
{object V204; |
1879 |
object V206; |
object V205; |
1880 |
base[3]= (V202); |
base[3]= (V201); |
1881 |
base[4]= (V203); |
base[4]= (V202); |
1882 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1883 |
(void) (*Lnk326)(); |
(void) (*Lnk333)(); |
1884 |
if(vs_base>=vs_top){vs_top=sup;goto T655;} |
if(vs_base>=vs_top){vs_top=sup;goto T650;} |
1885 |
V205= vs_base[0]; |
V204= vs_base[0]; |
1886 |
vs_base++; |
vs_base++; |
1887 |
if(vs_base>=vs_top){vs_top=sup;goto T656;} |
if(vs_base>=vs_top){vs_top=sup;goto T651;} |
1888 |
V206= vs_base[0]; |
V205= vs_base[0]; |
1889 |
vs_top=sup; |
vs_top=sup; |
1890 |
goto T657; |
goto T652; |
1891 |
goto T655; |
goto T650; |
1892 |
T655:; |
T650:; |
1893 |
|
V204= Cnil; |
1894 |
|
goto T651; |
1895 |
|
T651:; |
1896 |
V205= Cnil; |
V205= Cnil; |
1897 |
goto T656; |
goto T652; |
1898 |
T656:; |
T652:; |
1899 |
V206= Cnil; |
if(((V205))!=Cnil){ |
1900 |
goto T657; |
goto T655;} |
1901 |
T657:; |
base[3]= VV[92]; |
1902 |
if(((V206))!=Cnil){ |
base[4]= (V201); |
1903 |
goto T660;} |
base[5]= (V202); |
|
base[3]= VV[93]; |
|
|
base[4]= (V202); |
|
|
base[5]= (V203); |
|
1904 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1905 |
(void) (*Lnk338)(); |
(void) (*Lnk345)(); |
1906 |
vs_top=sup; |
vs_top=sup; |
1907 |
goto T658; |
goto T653; |
1908 |
goto T660; |
goto T655; |
1909 |
T660:; |
T655:; |
1910 |
if(((V205))!=Cnil){ |
if(((V204))!=Cnil){ |
1911 |
goto T658;} |
goto T653;} |
1912 |
base[3]= VV[94]; |
base[3]= VV[93]; |
1913 |
base[4]= (V202); |
base[4]= (V201); |
1914 |
base[5]= (V203); |
base[5]= (V202); |
1915 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1916 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
1917 |
vs_top=sup; |
vs_top=sup; |
1918 |
goto T658; |
goto T653; |
1919 |
T658:; |
T653:; |
1920 |
base[3]= (V202); |
base[3]= (V201); |
1921 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1922 |
return;} |
return;} |
1923 |
} |
} |
1927 |
static void L45() |
static void L45() |
1928 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1929 |
register object *sup=base+VM37; VC37 |
register object *sup=base+VM37; VC37 |
1930 |
vs_reserve(VM37); |
vs_check; |
|
check_arg(2); |
|
1931 |
vs_top=sup; |
vs_top=sup; |
1932 |
{object V207=base[0]->c.c_cdr; |
{object V206=base[0]->c.c_cdr;} |
1933 |
if(!endp(V207))invalid_macro_call();} |
base[2]= VV[94]; |
|
base[2]= VV[95]; |
|
1934 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1935 |
return; |
return; |
1936 |
} |
} |
1937 |
/* function definition for LOOP-TRANSLATE */ |
/* function definition for SUBST-GENSYMS-FOR-NIL */ |
1938 |
|
|
1939 |
static void L46() |
static void L46() |
1940 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1941 |
register object *sup=base+VM38; VC38 |
register object *sup=base+VM38; VC38 |
1942 |
vs_reserve(VM38); |
vs_check; |
1943 |
|
{register object V207; |
1944 |
|
V207=(base[0]); |
1945 |
|
vs_top=sup; |
1946 |
|
goto TTL; |
1947 |
|
TTL:; |
1948 |
|
if(((V207))!=Cnil){ |
1949 |
|
goto T666;} |
1950 |
|
{object V209; |
1951 |
|
vs_base=vs_top; |
1952 |
|
(void) (*Lnk334)(); |
1953 |
|
vs_top=sup; |
1954 |
|
V209= vs_base[0]; |
1955 |
|
(VV[95]->s.s_dbind)= make_cons((V209),(VV[95]->s.s_dbind)); |
1956 |
|
V208= (VV[95]->s.s_dbind);} |
1957 |
|
base[1]= CMPcar(V208); |
1958 |
|
vs_top=(vs_base=base+1)+1; |
1959 |
|
return; |
1960 |
|
goto T666; |
1961 |
|
T666:; |
1962 |
|
if(!(type_of((V207))!=t_cons)){ |
1963 |
|
goto T672;} |
1964 |
|
base[1]= (V207); |
1965 |
|
vs_top=(vs_base=base+1)+1; |
1966 |
|
return; |
1967 |
|
goto T672; |
1968 |
|
T672:; |
1969 |
|
base[1]= CMPcar((V207)); |
1970 |
|
vs_top=(vs_base=base+1)+1; |
1971 |
|
(void) (*Lnk355)(); |
1972 |
|
vs_top=sup; |
1973 |
|
V210= vs_base[0]; |
1974 |
|
base[1]= CMPcdr((V207)); |
1975 |
|
vs_top=(vs_base=base+1)+1; |
1976 |
|
(void) (*Lnk355)(); |
1977 |
|
vs_top=sup; |
1978 |
|
V211= vs_base[0]; |
1979 |
|
base[1]= make_cons(V210,V211); |
1980 |
|
vs_top=(vs_base=base+1)+1; |
1981 |
|
return; |
1982 |
|
} |
1983 |
|
} |
1984 |
|
/* function definition for LOOP-BUILD-DESTRUCTURING-BINDINGS */ |
1985 |
|
|
1986 |
|
static void L47() |
1987 |
|
{register object *base=vs_base; |
1988 |
|
register object *sup=base+VM39; VC39 |
1989 |
|
vs_check; |
1990 |
bds_check; |
bds_check; |
1991 |
check_arg(3); |
{register object V212; |
1992 |
bds_bind(VV[89],base[0]); |
object V213; |
1993 |
bds_bind(VV[96],base[1]); |
V212=(base[0]); |
1994 |
bds_bind(VV[97],base[2]); |
V213=(base[1]); |
1995 |
vs_top=sup; |
vs_top=sup; |
1996 |
goto TTL; |
goto TTL; |
1997 |
TTL:; |
TTL:; |
1998 |
bds_bind(VV[98],(VV[89]->s.s_dbind)); |
if(((V212))==Cnil){ |
1999 |
bds_bind(VV[88],Cnil); |
goto T679;} |
2000 |
bds_bind(VV[99],Cnil); |
bds_bind(VV[95],Cnil); |
2001 |
bds_bind(VV[100],Cnil); |
base[3]= CMPcar((V212)); |
2002 |
|
vs_top=(vs_base=base+3)+1; |
2003 |
|
(void) (*Lnk355)(); |
2004 |
|
vs_top=sup; |
2005 |
|
V214= vs_base[0]; |
2006 |
|
V215= CMPcadr((V212)); |
2007 |
|
V216= list(2,VV[30],make_cons(VV[97],(VV[95]->s.s_dbind))); |
2008 |
|
base[3]= CMPcddr((V212)); |
2009 |
|
base[4]= (V213); |
2010 |
|
vs_top=(vs_base=base+3)+2; |
2011 |
|
(void) (*Lnk356)(); |
2012 |
|
vs_top=sup; |
2013 |
|
V217= vs_base[0]; |
2014 |
|
V218= listA(5,VV[96],V214,/* INLINE-ARGS */V215,/* INLINE-ARGS */V216,V217); |
2015 |
|
base[3]= make_cons(/* INLINE-ARGS */V218,Cnil); |
2016 |
|
vs_top=(vs_base=base+3)+1; |
2017 |
|
bds_unwind1; |
2018 |
|
return; |
2019 |
|
goto T679; |
2020 |
|
T679:; |
2021 |
|
base[2]= (V213); |
2022 |
|
vs_top=(vs_base=base+2)+1; |
2023 |
|
return; |
2024 |
|
} |
2025 |
|
} |
2026 |
|
/* function definition for LOOP-TRANSLATE */ |
2027 |
|
|
2028 |
|
static void L48() |
2029 |
|
{register object *base=vs_base; |
2030 |
|
register object *sup=base+VM40; VC40 |
2031 |
|
vs_check; |
2032 |
|
bds_check; |
2033 |
|
bds_bind(VV[88],base[0]); |
2034 |
|
bds_bind(VV[98],base[1]); |
2035 |
|
bds_bind(VV[99],base[2]); |
2036 |
|
vs_top=sup; |
2037 |
|
goto TTL; |
2038 |
|
TTL:; |
2039 |
|
bds_bind(VV[100],(VV[88]->s.s_dbind)); |
2040 |
|
bds_bind(VV[87],Cnil); |
2041 |
bds_bind(VV[101],Cnil); |
bds_bind(VV[101],Cnil); |
2042 |
bds_bind(VV[102],Cnil); |
bds_bind(VV[102],Cnil); |
2043 |
bds_bind(VV[103],Cnil); |
bds_bind(VV[103],Cnil); |
2058 |
bds_bind(VV[118],Cnil); |
bds_bind(VV[118],Cnil); |
2059 |
bds_bind(VV[119],Cnil); |
bds_bind(VV[119],Cnil); |
2060 |
bds_bind(VV[120],Cnil); |
bds_bind(VV[120],Cnil); |
2061 |
|
bds_bind(VV[121],Cnil); |
2062 |
vs_base=vs_top; |
vs_base=vs_top; |
2063 |
(void) (*Lnk348)(); |
(void) (*Lnk357)(); |
2064 |
vs_top=sup; |
vs_top=sup; |
2065 |
vs_base=vs_top; |
vs_base=vs_top; |
2066 |
(void) (*Lnk349)(); |
(void) (*Lnk358)(); |
2067 |
vs_top=sup; |
vs_top=sup; |
2068 |
{register object V208; |
{register object V219; |
2069 |
V209= nreverse((VV[106]->s.s_dbind)); |
V220= nreverse((VV[108]->s.s_dbind)); |
2070 |
V210= nreverse((VV[108]->s.s_dbind)); |
V221= nreverse((VV[110]->s.s_dbind)); |
2071 |
V211= nreverse((VV[109]->s.s_dbind)); |
V222= nreverse((VV[111]->s.s_dbind)); |
2072 |
V212= nreverse((VV[111]->s.s_dbind)); |
V223= nreverse((VV[113]->s.s_dbind)); |
2073 |
base[27]= (VV[112]->s.s_dbind); |
base[26]= (VV[114]->s.s_dbind); |
2074 |
base[28]= nreverse((VV[113]->s.s_dbind)); |
base[27]= nreverse((VV[115]->s.s_dbind)); |
2075 |
vs_top=(vs_base=base+27)+2; |
vs_top=(vs_base=base+26)+2; |
2076 |
Lreconc(); |
Lreconc(); |
2077 |
vs_top=sup; |
vs_top=sup; |
2078 |
V213= vs_base[0]; |
V224= vs_base[0]; |
2079 |
V208= list(6,VV[121],/* INLINE-ARGS */V209,/* INLINE-ARGS */V210,/* INLINE-ARGS */V211,/* INLINE-ARGS */V212,V213); |
V219= list(6,VV[122],/* INLINE-ARGS */V220,/* INLINE-ARGS */V221,/* INLINE-ARGS */V222,/* INLINE-ARGS */V223,V224); |
2080 |
{register object V214; |
{register object V225; |
2081 |
register object V215; |
register object V226; |
2082 |
V214= (VV[105]->s.s_dbind); |
V225= (VV[107]->s.s_dbind); |
2083 |
V215= car((V214)); |
V226= CMPcar((V225)); |
2084 |
goto T680; |
goto T696; |
2085 |
T680:; |
T696:; |
2086 |
if(!(endp_prop((V214)))){ |
if(!(((V225))==Cnil)){ |
2087 |
goto T681;} |
goto T697;} |
2088 |
goto T676; |
goto T692; |
2089 |
goto T681; |
goto T697; |
2090 |
T681:; |
T697:; |
2091 |
{object V216; |
{object V227; |
2092 |
object V217; |
object V228; |
2093 |
object V218; |
object V229; |
2094 |
object V219; |
object V230; |
2095 |
V216= car((V215)); |
V227= CMPcar((V226)); |
2096 |
V217= cadr((V215)); |
V228= CMPcadr((V226)); |
2097 |
V218= caddr((V215)); |
V229= CMPcaddr((V226)); |
2098 |
V219= cadddr((V215)); |
V230= CMPcadddr((V226)); |
2099 |
{register object V220; |
{register object V231; |
2100 |
register object V221; |
register object V232; |
2101 |
V220= (V219); |
V231= (V230); |
2102 |
V221= car((V220)); |
V232= CMPcar((V231)); |
2103 |
goto T694; |
goto T710; |
2104 |
T694:; |
T710:; |
2105 |
if(!(endp_prop((V220)))){ |
if(!(((V231))==Cnil)){ |
2106 |
goto T695;} |
goto T711;} |
2107 |
goto T690; |
goto T706; |
2108 |
goto T695; |
goto T711; |
2109 |
T695:; |
T711:; |
2110 |
V222= make_cons((V208),Cnil); |
V233= make_cons((V219),Cnil); |
2111 |
V208= append((V221),/* INLINE-ARGS */V222); |
V219= append((V232),/* INLINE-ARGS */V233); |
2112 |
V220= cdr((V220)); |
V231= CMPcdr((V231)); |
2113 |
V221= car((V220)); |
V232= CMPcar((V231)); |
2114 |
goto T694;} |
goto T710;} |
|
goto T690; |
|
|
T690:; |
|
|
if(((V216))!=Cnil){ |
|
|
goto T706;} |
|
|
if(((V217))!=Cnil){ |
|
|
goto T706;} |
|
|
if(((V218))==Cnil){ |
|
|
goto T685;} |
|
2115 |
goto T706; |
goto T706; |
2116 |
T706:; |
T706:; |
2117 |
{register object V223; |
if(((V227))!=Cnil){ |
2118 |
V223= make_cons((V208),Cnil); |
goto T722;} |
2119 |
if(((V217))==Cnil){ |
if(((V228))!=Cnil){ |
2120 |
goto T713;} |
goto T722;} |
2121 |
{object V224; |
if(((V229))==Cnil){ |
2122 |
V224= make_cons(VV[30],(V217)); |
goto T701;} |
2123 |
V223= make_cons((V224),(V223));} |
goto T722; |
2124 |
goto T713; |
T722:; |
2125 |
T713:; |
{object V234; |
2126 |
if(((V216))!=Cnil){ |
V234= make_cons((V219),Cnil); |
2127 |
goto T721;} |
if(((V228))==Cnil){ |
2128 |
V225= VV[122]; |
goto T729;} |
2129 |
goto T719; |
{object V235; |
2130 |
goto T721; |
V235= make_cons(VV[30],(V228)); |
2131 |
T721:; |
V234= make_cons((V235),(V234));} |
2132 |
if((symbol_value(VV[63]))==Cnil){ |
goto T729; |
2133 |
goto T724;} |
T729:; |
2134 |
V225= car(symbol_value(VV[63])); |
if(((V227))!=Cnil){ |
2135 |
goto T719; |
goto T737;} |
2136 |
goto T724; |
V236= VV[123]; |
2137 |
T724:; |
goto T735; |
2138 |
V225= VV[29]; |
goto T737; |
2139 |
goto T719; |
T737:; |
2140 |
T719:; |
if(((VV[63]->s.s_dbind))==Cnil){ |
2141 |
if(((V218))==Cnil){ |
goto T740;} |
2142 |
goto T728;} |
V236= CMPcar((VV[63]->s.s_dbind)); |
2143 |
V227= append((V218),(V223)); |
goto T735; |
2144 |
V228= make_cons(VV[123],/* INLINE-ARGS */V227); |
goto T740; |
2145 |
V226= make_cons(/* INLINE-ARGS */V228,Cnil); |
T740:; |
2146 |
goto T726; |
V236= VV[29]; |
2147 |
goto T728; |
goto T735; |
2148 |
T728:; |
T735:; |
2149 |
V226= (V223); |
base[27]= (V229); |
2150 |
goto T726; |
base[28]= (V234); |
2151 |
T726:; |
vs_top=(vs_base=base+27)+2; |
2152 |
V208= listA(3,V225,(V216),V226);}} |
(void) (*Lnk356)(); |
2153 |
goto T685; |
vs_top=sup; |
2154 |
T685:; |
V237= vs_base[0]; |
2155 |
V214= cdr((V214)); |
V219= listA(3,V236,(V227),V237);}} |
2156 |
V215= car((V214)); |
goto T701; |
2157 |
goto T680;} |
T701:; |
2158 |
goto T676; |
V225= CMPcdr((V225)); |
2159 |
T676:; |
V226= CMPcar((V225)); |
2160 |
V208= list(3,VV[124],car((VV[118]->s.s_dbind)),(V208)); |
goto T696;} |
2161 |
base[27]= (V208); |
goto T692; |
2162 |
vs_top=(vs_base=base+27)+1; |
T692:; |
2163 |
|
if(((VV[120]->s.s_dbind))==Cnil){ |
2164 |
|
goto T751;} |
2165 |
|
goto T754; |
2166 |
|
T754:; |
2167 |
|
if((CMPcar((VV[120]->s.s_dbind)))!=Cnil){ |
2168 |
|
goto T755;} |
2169 |
|
base[26]= (V219); |
2170 |
|
vs_top=(vs_base=base+26)+1; |
2171 |
bds_unwind1; |
bds_unwind1; |
2172 |
bds_unwind1; |
bds_unwind1; |
2173 |
bds_unwind1; |
bds_unwind1; |
2194 |
bds_unwind1; |
bds_unwind1; |
2195 |
bds_unwind1; |
bds_unwind1; |
2196 |
bds_unwind1; |
bds_unwind1; |
2197 |
|
return; |
2198 |
|
goto T755; |
2199 |
|
T755:; |
2200 |
|
{object V239; |
2201 |
|
V239= CMPcar((VV[120]->s.s_dbind)); |
2202 |
|
(VV[120]->s.s_dbind)= CMPcdr((VV[120]->s.s_dbind)); |
2203 |
|
V238= (V239);} |
2204 |
|
V219= list(3,VV[124],V238,(V219)); |
2205 |
|
goto T754; |
2206 |
|
goto T751; |
2207 |
|
T751:; |
2208 |
|
base[26]= list(3,VV[124],Cnil,(V219)); |
2209 |
|
vs_top=(vs_base=base+26)+1; |
2210 |
|
bds_unwind1; |
2211 |
|
bds_unwind1; |
2212 |
|
bds_unwind1; |
2213 |
|
bds_unwind1; |
2214 |
|
bds_unwind1; |
2215 |
|
bds_unwind1; |
2216 |
|
bds_unwind1; |
2217 |
|
bds_unwind1; |
2218 |
|
bds_unwind1; |
2219 |
|
bds_unwind1; |
2220 |
|
bds_unwind1; |
2221 |
|
bds_unwind1; |
2222 |
|
bds_unwind1; |
2223 |
|
bds_unwind1; |
2224 |
|
bds_unwind1; |
2225 |
|
bds_unwind1; |
2226 |
|
bds_unwind1; |
2227 |
|
bds_unwind1; |
2228 |
|
bds_unwind1; |
2229 |
|
bds_unwind1; |
2230 |
|
bds_unwind1; |
2231 |
|
bds_unwind1; |
2232 |
|
bds_unwind1; |
2233 |
|
bds_unwind1; |
2234 |
|
bds_unwind1; |
2235 |
bds_unwind1; |
bds_unwind1; |
2236 |
return;} |
return;} |
2237 |
} |
} |
2238 |
/* function definition for LOOP-ITERATION-DRIVER */ |
/* function definition for LOOP-ITERATION-DRIVER */ |
2239 |
|
|
2240 |
static void L47() |
static void L49() |
2241 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2242 |
register object *sup=base+VM39; VC39 |
register object *sup=base+VM41; VC41 |
2243 |
vs_reserve(VM39); |
vs_check; |
|
check_arg(0); |
|
2244 |
vs_top=sup; |
vs_top=sup; |
2245 |
goto TTL; |
goto TTL; |
2246 |
TTL:; |
TTL:; |
2247 |
goto T738; |
goto T768; |
2248 |
T738:; |
T768:; |
2249 |
if((symbol_value(VV[89]))!=Cnil){ |
if(((VV[88]->s.s_dbind))!=Cnil){ |
2250 |
goto T739;} |
goto T769;} |
2251 |
base[0]= Cnil; |
base[0]= Cnil; |
2252 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2253 |
return; |
return; |
2254 |
goto T739; |
goto T769; |
2255 |
T739:; |
T769:; |
2256 |
{register object V229; |
{register object V240; |
2257 |
register object V230; |
register object V241; |
2258 |
V229= car(symbol_value(VV[89])); |
V240= CMPcar((VV[88]->s.s_dbind)); |
2259 |
V230= Cnil; |
V241= Cnil; |
2260 |
if(type_of((V229))==t_symbol){ |
if(type_of((V240))==t_symbol){ |
2261 |
goto T746;} |
goto T776;} |
2262 |
base[0]= VV[125]; |
base[0]= VV[125]; |
2263 |
base[1]= (V229); |
base[1]= (V240); |
2264 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2265 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
2266 |
vs_top=sup; |
vs_top=sup; |
2267 |
goto T743; |
goto T773; |
2268 |
goto T746; |
goto T776; |
2269 |
T746:; |
T776:; |
2270 |
setq(VV[88],symbol_value(VV[89])); |
(VV[87]->s.s_dbind)= (VV[88]->s.s_dbind); |
2271 |
vs_base=vs_top; |
vs_base=vs_top; |
2272 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
2273 |
vs_top=sup; |
vs_top=sup; |
2274 |
base[0]= (V229); |
base[0]= (V240); |
2275 |
base[1]= structure_ref(symbol_value(VV[97]),VV[39],0); |
base[1]= STREF(object,(VV[99]->s.s_dbind),0); |
2276 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2277 |
(void) (*Lnk351)(); |
(void) (*Lnk360)(); |
2278 |
vs_top=sup; |
vs_top=sup; |
2279 |
V230= vs_base[0]; |
V241= vs_base[0]; |
2280 |
if(((V230))==Cnil){ |
if(((V241))==Cnil){ |
2281 |
goto T754;} |
goto T784;} |
2282 |
base[1]= car((V230)); |
base[1]= CMPcar((V241)); |
2283 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2284 |
Lsymbol_function(); |
Lsymbol_function(); |
2285 |
vs_top=sup; |
vs_top=sup; |
2286 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
2287 |
{object V231; |
{object V242; |
2288 |
V231= cdr((V230)); |
V242= CMPcdr((V241)); |
2289 |
vs_top=base+1; |
vs_top=base+1; |
2290 |
while(!endp(V231)) |
while(V242!=Cnil) |
2291 |
{vs_push(car(V231));V231=cdr(V231);} |
{vs_push((V242)->c.c_car);V242=(V242)->c.c_cdr;} |
2292 |
vs_base=base+1;} |
vs_base=base+1;} |
2293 |
super_funcall_no_event(base[0]); |
super_funcall_no_event(base[0]); |
2294 |
vs_top=sup; |
vs_top=sup; |
2295 |
goto T743; |
goto T773; |
2296 |
goto T754; |
goto T784; |
2297 |
T754:; |
T784:; |
2298 |
base[0]= (V229); |
base[0]= (V240); |
2299 |
base[1]= structure_ref(symbol_value(VV[97]),VV[39],1); |
base[1]= STREF(object,(VV[99]->s.s_dbind),4); |
2300 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2301 |
(void) (*Lnk351)(); |
(void) (*Lnk360)(); |
2302 |
vs_top=sup; |
vs_top=sup; |
2303 |
V230= vs_base[0]; |
V241= vs_base[0]; |
2304 |
if(((V230))==Cnil){ |
if(((V241))==Cnil){ |
2305 |
goto T763;} |
goto T793;} |
2306 |
base[0]= (V230); |
base[0]= (V241); |
2307 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2308 |
(void) (*Lnk352)(); |
(void) (*Lnk361)(); |
2309 |
vs_top=sup; |
vs_top=sup; |
2310 |
goto T743; |
goto T773; |
2311 |
goto T763; |
goto T793; |
2312 |
T763:; |
T793:; |
2313 |
base[0]= (V229); |
base[0]= (V240); |
2314 |
base[1]= VV[126]; |
base[1]= VV[126]; |
2315 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2316 |
(void) (*Lnk353)(); |
(void) (*Lnk362)(); |
2317 |
vs_top=sup; |
vs_top=sup; |
2318 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2319 |
goto T770;} |
goto T800;} |
2320 |
base[0]= VV[127]; |
base[0]= VV[127]; |
2321 |
base[1]= (V229); |
base[1]= (V240); |
2322 |
base[2]= car(symbol_value(VV[89])); |
base[2]= CMPcar((VV[88]->s.s_dbind)); |
2323 |
base[3]= cadr(symbol_value(VV[89])); |
base[3]= CMPcadr((VV[88]->s.s_dbind)); |
2324 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
2325 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
2326 |
vs_top=sup; |
vs_top=sup; |
2327 |
goto T743; |
goto T773; |
2328 |
goto T770; |
goto T800; |
2329 |
T770:; |
T800:; |
2330 |
base[0]= VV[128]; |
base[0]= VV[128]; |
2331 |
base[1]= (V229); |
base[1]= (V240); |
2332 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2333 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
2334 |
vs_top=sup;} |
vs_top=sup;} |
2335 |
goto T743; |
goto T773; |
2336 |
T743:; |
T773:; |
2337 |
goto T738; |
goto T768; |
2338 |
} |
} |
2339 |
/* function definition for LOOP-POP-SOURCE */ |
/* function definition for LOOP-POP-SOURCE */ |
2340 |
|
|
2341 |
static void L48() |
static void L50() |
2342 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2343 |
register object *sup=base+VM40; VC40 |
register object *sup=base+VM42; VC42 |
2344 |
vs_reserve(VM40); |
vs_check; |
|
check_arg(0); |
|
2345 |
vs_top=sup; |
vs_top=sup; |
2346 |
goto TTL; |
goto TTL; |
2347 |
TTL:; |
TTL:; |
2348 |
if((symbol_value(VV[89]))==Cnil){ |
if(((VV[88]->s.s_dbind))==Cnil){ |
2349 |
goto T783;} |
goto T813;} |
2350 |
{object V232; |
{object V243; |
2351 |
V232= car(symbol_value(VV[89])); |
V243= CMPcar((VV[88]->s.s_dbind)); |
2352 |
setq(VV[89],cdr(symbol_value(VV[89]))); |
(VV[88]->s.s_dbind)= CMPcdr((VV[88]->s.s_dbind)); |
2353 |
base[0]= (V232); |
base[0]= (V243); |
2354 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2355 |
return;} |
return;} |
2356 |
goto T783; |
goto T813; |
2357 |
T783:; |
T813:; |
2358 |
base[0]= VV[129]; |
base[0]= VV[129]; |
2359 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2360 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
2361 |
return; |
return; |
2362 |
} |
} |
2363 |
|
/* function definition for LOOP-GET-COMPOUND-FORM */ |
2364 |
|
|
2365 |
|
static void L51() |
2366 |
|
{register object *base=vs_base; |
2367 |
|
register object *sup=base+VM43; VC43 |
2368 |
|
vs_check; |
2369 |
|
vs_top=sup; |
2370 |
|
goto TTL; |
2371 |
|
TTL:; |
2372 |
|
{object V244; |
2373 |
|
vs_base=vs_top; |
2374 |
|
(void) (*Lnk363)(); |
2375 |
|
vs_top=sup; |
2376 |
|
V244= vs_base[0]; |
2377 |
|
if(type_of((V244))==t_cons){ |
2378 |
|
goto T820;} |
2379 |
|
base[0]= VV[130]; |
2380 |
|
base[1]= (V244); |
2381 |
|
vs_top=(vs_base=base+0)+2; |
2382 |
|
(void) (*Lnk354)(); |
2383 |
|
vs_top=sup; |
2384 |
|
goto T820; |
2385 |
|
T820:; |
2386 |
|
base[0]= (V244); |
2387 |
|
vs_top=(vs_base=base+0)+1; |
2388 |
|
return;} |
2389 |
|
} |
2390 |
/* function definition for LOOP-GET-PROGN */ |
/* function definition for LOOP-GET-PROGN */ |
2391 |
|
|
2392 |
static void L49() |
static void L52() |
2393 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2394 |
register object *sup=base+VM41; VC41 |
register object *sup=base+VM44; VC44 |
2395 |
vs_reserve(VM41); |
vs_check; |
|
check_arg(0); |
|
2396 |
vs_top=sup; |
vs_top=sup; |
2397 |
goto TTL; |
goto TTL; |
2398 |
TTL:; |
TTL:; |
2399 |
{register object V233; |
{register object V245; |
2400 |
register object V234; |
register object V246; |
2401 |
vs_base=vs_top; |
vs_base=vs_top; |
2402 |
(void) (*Lnk350)(); |
(void) (*Lnk364)(); |
2403 |
vs_top=sup; |
vs_top=sup; |
2404 |
V235= vs_base[0]; |
V247= vs_base[0]; |
2405 |
V233= make_cons(V235,Cnil); |
V245= make_cons(V247,Cnil); |
2406 |
V234= car(symbol_value(VV[89])); |
V246= CMPcar((VV[88]->s.s_dbind)); |
2407 |
goto T793; |
goto T829; |
2408 |
T793:; |
T829:; |
2409 |
if(!(type_of((V234))!=t_cons)){ |
if(!(type_of((V246))!=t_cons)){ |
2410 |
goto T794;} |
goto T830;} |
2411 |
if((cdr((V233)))!=Cnil){ |
if((CMPcdr((V245)))!=Cnil){ |
2412 |
goto T798;} |
goto T834;} |
2413 |
base[0]= car((V233)); |
base[0]= CMPcar((V245)); |
2414 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2415 |
return; |
return; |
2416 |
goto T798; |
goto T834; |
2417 |
T798:; |
T834:; |
2418 |
V236= nreverse((V233)); |
V248= nreverse((V245)); |
2419 |
base[0]= make_cons(VV[14],/* INLINE-ARGS */V236); |
base[0]= make_cons(VV[14],/* INLINE-ARGS */V248); |
2420 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2421 |
return; |
return; |
2422 |
goto T794; |
goto T830; |
2423 |
T794:; |
T830:; |
2424 |
vs_base=vs_top; |
vs_base=vs_top; |
2425 |
(void) (*Lnk350)(); |
(void) (*Lnk364)(); |
2426 |
vs_top=sup; |
vs_top=sup; |
2427 |
V237= vs_base[0]; |
V249= vs_base[0]; |
2428 |
V233= make_cons(V237,(V233)); |
V245= make_cons(V249,(V245)); |
2429 |
V234= car(symbol_value(VV[89])); |
V246= CMPcar((VV[88]->s.s_dbind)); |
2430 |
goto T793;} |
goto T829;} |
2431 |
} |
} |
2432 |
/* function definition for LOOP-GET-FORM */ |
/* function definition for LOOP-GET-FORM */ |
2433 |
|
|
2434 |
static void L50() |
static void L53() |
2435 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2436 |
register object *sup=base+VM42; VC42 |
register object *sup=base+VM45; VC45 |
2437 |
vs_reserve(VM42); |
vs_check; |
|
check_arg(0); |
|
2438 |
vs_top=sup; |
vs_top=sup; |
2439 |
goto TTL; |
goto TTL; |
2440 |
TTL:; |
TTL:; |
2441 |
if((symbol_value(VV[89]))==Cnil){ |
if(((VV[88]->s.s_dbind))==Cnil){ |
2442 |
goto T807;} |
goto T843;} |
2443 |
vs_base=vs_top; |
vs_base=vs_top; |
2444 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
2445 |
return; |
return; |
2446 |
goto T807; |
goto T843; |
2447 |
T807:; |
T843:; |
2448 |
base[0]= VV[130]; |
base[0]= VV[131]; |
2449 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2450 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
2451 |
return; |
return; |
2452 |
} |
} |
2453 |
/* function definition for LOOP-CONSTRUCT-RETURN */ |
/* function definition for LOOP-CONSTRUCT-RETURN */ |
2454 |
|
|
2455 |
static void L51() |
static void L54() |
2456 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2457 |
register object *sup=base+VM43; VC43 |
register object *sup=base+VM46; VC46 |
2458 |
vs_reserve(VM43); |
vs_check; |
2459 |
{object V238; |
{object V250; |
2460 |
check_arg(1); |
V250=(base[0]); |
|
V238=(base[0]); |
|
2461 |
vs_top=sup; |
vs_top=sup; |
2462 |
goto TTL; |
goto TTL; |
2463 |
TTL:; |
TTL:; |
2464 |
base[1]= list(3,VV[86],car(symbol_value(VV[118])),(V238)); |
base[1]= list(3,VV[85],CMPcar((VV[120]->s.s_dbind)),(V250)); |
2465 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2466 |
return; |
return; |
2467 |
} |
} |
2468 |
} |
} |
2469 |
/* function definition for LOOP-PSEUDO-BODY */ |
/* function definition for LOOP-PSEUDO-BODY */ |
2470 |
|
|
2471 |
static void L52() |
static void L55() |
2472 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2473 |
register object *sup=base+VM44; VC44 |
register object *sup=base+VM47; VC47 |
2474 |
vs_reserve(VM44); |
vs_check; |
2475 |
{object V239; |
{object V251; |
2476 |
check_arg(1); |
V251=(base[0]); |
|
V239=(base[0]); |
|
2477 |
vs_top=sup; |
vs_top=sup; |
2478 |
goto TTL; |
goto TTL; |
2479 |
TTL:; |
TTL:; |
2480 |
if((symbol_value(VV[110]))!=Cnil){ |
if(((VV[112]->s.s_dbind))!=Cnil){ |
2481 |
goto T810;} |
goto T846;} |
2482 |
if((symbol_value(VV[115]))==Cnil){ |
if(((VV[117]->s.s_dbind))==Cnil){ |
2483 |
goto T811;} |
goto T847;} |
2484 |
goto T810; |
goto T846; |
2485 |
T810:; |
T846:; |
2486 |
setq(VV[109],make_cons(V239,symbol_value(VV[109]))); |
(VV[111]->s.s_dbind)= make_cons(V251,(VV[111]->s.s_dbind)); |
2487 |
base[1]= symbol_value(VV[109]); |
base[1]= (VV[111]->s.s_dbind); |
2488 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2489 |
return; |
return; |
2490 |
goto T811; |
goto T847; |
2491 |
T811:; |
T847:; |
2492 |
setq(VV[108],make_cons(V239,symbol_value(VV[108]))); |
(VV[110]->s.s_dbind)= make_cons(V251,(VV[110]->s.s_dbind)); |
2493 |
setq(VV[111],make_cons(V239,symbol_value(VV[111]))); |
(VV[113]->s.s_dbind)= make_cons(V251,(VV[113]->s.s_dbind)); |
2494 |
base[1]= symbol_value(VV[111]); |
base[1]= (VV[113]->s.s_dbind); |
2495 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2496 |
return; |
return; |
2497 |
} |
} |
2498 |
} |
} |
2499 |
/* function definition for LOOP-EMIT-BODY */ |
/* function definition for LOOP-EMIT-BODY */ |
2500 |
|
|
2501 |
static void L53() |
static void L56() |
2502 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2503 |
register object *sup=base+VM45; VC45 |
register object *sup=base+VM48; VC48 |
2504 |
vs_reserve(VM45); |
vs_check; |
2505 |
{object V243; |
{object V255; |
2506 |
check_arg(1); |
V255=(base[0]); |
|
V243=(base[0]); |
|
2507 |
vs_top=sup; |
vs_top=sup; |
2508 |
goto TTL; |
goto TTL; |
2509 |
TTL:; |
TTL:; |
2510 |
setq(VV[110],Ct); |
(VV[112]->s.s_dbind)= Ct; |
2511 |
base[1]= (V243); |
base[1]= (V255); |
2512 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2513 |
(void) (*Lnk354)(); |
(void) (*Lnk365)(); |
2514 |
return; |
return; |
2515 |
} |
} |
2516 |
} |
} |
2517 |
/* function definition for LOOP-EMIT-FINAL-VALUE */ |
/* function definition for LOOP-EMIT-FINAL-VALUE */ |
2518 |
|
|
2519 |
static void L54() |
static void L57() |
2520 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2521 |
register object *sup=base+VM46; VC46 |
register object *sup=base+VM49; VC49 |
2522 |
vs_reserve(VM46); |
vs_check; |
2523 |
{object V244; |
{object V256; |
2524 |
check_arg(1); |
object V257; |
2525 |
V244=(base[0]); |
if(vs_base>=vs_top){vs_top=sup;goto T858;} |
2526 |
vs_top=sup; |
V256=(base[0]); |
2527 |
goto TTL; |
V257= Ct; |
2528 |
TTL:; |
vs_top=sup; |
2529 |
{object V245; |
goto T859; |
2530 |
base[2]= (V244); |
goto T858; |
2531 |
vs_top=(vs_base=base+2)+1; |
T858:; |
2532 |
(void) (*Lnk355)(); |
V256= Cnil; |
2533 |
|
V257= Cnil; |
2534 |
|
goto T859; |
2535 |
|
T859:; |
2536 |
|
if(((V257))==Cnil){ |
2537 |
|
goto T861;} |
2538 |
|
{object V258; |
2539 |
|
base[3]= (V256); |
2540 |
|
vs_top=(vs_base=base+3)+1; |
2541 |
|
(void) (*Lnk366)(); |
2542 |
vs_top=sup; |
vs_top=sup; |
2543 |
V245= vs_base[0]; |
V258= vs_base[0]; |
2544 |
setq(VV[113],make_cons((V245),symbol_value(VV[113])));} |
(VV[115]->s.s_dbind)= make_cons((V258),(VV[115]->s.s_dbind));} |
2545 |
if((symbol_value(VV[114]))==Cnil){ |
goto T861; |
2546 |
goto T826;} |
T861:; |
2547 |
if((symbol_value(VV[119]))==Cnil){ |
if(((VV[116]->s.s_dbind))==Cnil){ |
2548 |
goto T830;} |
goto T867;} |
2549 |
base[1]= VV[90]; |
base[2]= VV[132]; |
2550 |
base[2]= VV[131]; |
base[3]= (VV[116]->s.s_dbind); |
2551 |
base[3]= symbol_value(VV[114]); |
vs_top=(vs_base=base+2)+2; |
|
vs_top=(vs_base=base+1)+3; |
|
2552 |
(void) (*Lnk345)(); |
(void) (*Lnk345)(); |
2553 |
vs_top=sup; |
vs_top=sup; |
2554 |
goto T826; |
goto T867; |
2555 |
goto T830; |
T867:; |
2556 |
T830:; |
(VV[116]->s.s_dbind)= CMPcar((VV[87]->s.s_dbind)); |
2557 |
base[1]= VV[132]; |
base[2]= (VV[116]->s.s_dbind); |
2558 |
base[2]= symbol_value(VV[114]); |
vs_top=(vs_base=base+2)+1; |
|
vs_top=(vs_base=base+1)+2; |
|
|
(void) (*Lnk338)(); |
|
|
vs_top=sup; |
|
|
goto T826; |
|
|
T826:; |
|
|
setq(VV[114],car(symbol_value(VV[88]))); |
|
|
base[1]= symbol_value(VV[114]); |
|
|
vs_top=(vs_base=base+1)+1; |
|
2559 |
return; |
return; |
2560 |
} |
} |
2561 |
} |
} |
2562 |
/* function definition for LOOP-DISALLOW-CONDITIONAL */ |
/* function definition for LOOP-DISALLOW-CONDITIONAL */ |
2563 |
|
|
2564 |
static void L55() |
static void L58() |
2565 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2566 |
register object *sup=base+VM47; VC47 |
register object *sup=base+VM50; VC50 |
2567 |
vs_reserve(VM47); |
vs_check; |
2568 |
{object V246; |
{object V259; |
2569 |
if(vs_top-vs_base>1) too_many_arguments(); |
if(vs_base>=vs_top){vs_top=sup;goto T873;} |
2570 |
if(vs_base>=vs_top){vs_top=sup;goto T838;} |
V259=(base[0]); |
2571 |
V246=(base[0]); |
vs_top=sup; |
2572 |
vs_top=sup; |
goto T874; |
2573 |
goto T839; |
goto T873; |
2574 |
goto T838; |
T873:; |
2575 |
T838:; |
V259= Cnil; |
2576 |
V246= Cnil; |
goto T874; |
2577 |
goto T839; |
T874:; |
2578 |
T839:; |
if(((VV[117]->s.s_dbind))==Cnil){ |
2579 |
if((symbol_value(VV[115]))==Cnil){ |
goto T877;} |
|
goto T842;} |
|
2580 |
base[1]= VV[133]; |
base[1]= VV[133]; |
2581 |
base[2]= (V246); |
base[2]= (V259); |
2582 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2583 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
2584 |
return; |
return; |
2585 |
goto T842; |
goto T877; |
2586 |
T842:; |
T877:; |
2587 |
base[1]= Cnil; |
base[1]= Cnil; |
2588 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2589 |
return; |
return; |
2590 |
} |
} |
2591 |
} |
} |
2592 |
|
/* function definition for LOOP-DISALLOW-ANONYMOUS-COLLECTORS */ |
2593 |
|
|
2594 |
|
static void L59() |
2595 |
|
{register object *base=vs_base; |
2596 |
|
register object *sup=base+VM51; VC51 |
2597 |
|
vs_check; |
2598 |
|
vs_top=sup; |
2599 |
|
goto TTL; |
2600 |
|
TTL:; |
2601 |
|
base[0]= VV[134]; |
2602 |
|
base[1]= (VV[121]->s.s_dbind); |
2603 |
|
vs_top=(vs_base=base+0)+2; |
2604 |
|
(void) (*Lnk367)(); |
2605 |
|
vs_top=sup; |
2606 |
|
if((vs_base[0])==Cnil){ |
2607 |
|
goto T882;} |
2608 |
|
base[0]= VV[135]; |
2609 |
|
vs_top=(vs_base=base+0)+1; |
2610 |
|
(void) (*Lnk354)(); |
2611 |
|
return; |
2612 |
|
goto T882; |
2613 |
|
T882:; |
2614 |
|
base[0]= Cnil; |
2615 |
|
vs_top=(vs_base=base+0)+1; |
2616 |
|
return; |
2617 |
|
} |
2618 |
|
/* function definition for LOOP-DISALLOW-AGGREGATE-BOOLEANS */ |
2619 |
|
|
2620 |
|
static void L60() |
2621 |
|
{register object *base=vs_base; |
2622 |
|
register object *sup=base+VM52; VC52 |
2623 |
|
vs_check; |
2624 |
|
vs_top=sup; |
2625 |
|
goto TTL; |
2626 |
|
TTL:; |
2627 |
|
base[0]= (VV[116]->s.s_dbind); |
2628 |
|
base[1]= VV[136]; |
2629 |
|
vs_top=(vs_base=base+0)+2; |
2630 |
|
(void) (*Lnk362)(); |
2631 |
|
vs_top=sup; |
2632 |
|
if((vs_base[0])==Cnil){ |
2633 |
|
goto T888;} |
2634 |
|
base[0]= VV[137]; |
2635 |
|
vs_top=(vs_base=base+0)+1; |
2636 |
|
(void) (*Lnk354)(); |
2637 |
|
return; |
2638 |
|
goto T888; |
2639 |
|
T888:; |
2640 |
|
base[0]= Cnil; |
2641 |
|
vs_top=(vs_base=base+0)+1; |
2642 |
|
return; |
2643 |
|
} |
2644 |
/* function definition for LOOP-TYPED-INIT */ |
/* function definition for LOOP-TYPED-INIT */ |
2645 |
|
|
2646 |
static void L56() |
static void L61() |
2647 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2648 |
register object *sup=base+VM48; VC48 |
register object *sup=base+VM53; VC53 |
2649 |
vs_reserve(VM48); |
vs_check; |
2650 |
{register object V247; |
{register object V260; |
2651 |
check_arg(1); |
V260=(base[0]); |
|
V247=(base[0]); |
|
2652 |
vs_top=sup; |
vs_top=sup; |
2653 |
goto TTL; |
goto TTL; |
2654 |
TTL:; |
TTL:; |
2655 |
if(((V247))==Cnil){ |
if(((V260))==Cnil){ |
2656 |
goto T847;} |
goto T894;} |
2657 |
base[1]= (V247); |
base[1]= (V260); |
2658 |
base[2]= VV[134]; |
base[2]= VV[138]; |
2659 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2660 |
(void) (*Lnk326)(); |
(void) (*Lnk333)(); |
2661 |
vs_top=sup; |
vs_top=sup; |
2662 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2663 |
goto T847;} |
goto T894;} |
2664 |
base[1]= (V247); |
base[1]= (V260); |
2665 |
base[2]= VV[135]; |
base[2]= VV[139]; |
2666 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2667 |
(void) (*Lnk326)(); |
(void) (*Lnk333)(); |
2668 |
vs_top=sup; |
vs_top=sup; |
2669 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2670 |
goto T853;} |
goto T900;} |
2671 |
base[1]= (V247); |
base[1]= (V260); |
2672 |
base[2]= VV[136]; |
base[2]= VV[140]; |
2673 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2674 |
(void) (*Lnk326)(); |
(void) (*Lnk333)(); |
2675 |
vs_top=sup; |
vs_top=sup; |
2676 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2677 |
goto T854;} |
goto T901;} |
2678 |
goto T853; |
goto T900; |
2679 |
T853:; |
T900:; |
2680 |
base[1]= (*(LnkLI356))(small_fixnum(0),(V247)); |
base[1]= small_fixnum(0); |
2681 |
vs_top=(vs_base=base+1)+1; |
base[2]= (V260); |
2682 |
|
vs_top=(vs_base=base+1)+2; |
2683 |
|
(void) (*Lnk368)(); |
2684 |
return; |
return; |
2685 |
goto T854; |
goto T901; |
2686 |
T854:; |
T901:; |
2687 |
base[1]= small_fixnum(0); |
base[1]= small_fixnum(0); |
2688 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2689 |
return; |
return; |
2690 |
goto T847; |
goto T894; |
2691 |
T847:; |
T894:; |
2692 |
base[1]= Cnil; |
base[1]= Cnil; |
2693 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2694 |
return; |
return; |
2696 |
} |
} |
2697 |
/* function definition for LOOP-OPTIONAL-TYPE */ |
/* function definition for LOOP-OPTIONAL-TYPE */ |
2698 |
|
|
2699 |
static void L57() |
static void L62() |
2700 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2701 |
register object *sup=base+VM49; VC49 |
register object *sup=base+VM54; VC54 |
2702 |
vs_reserve(VM49); |
vs_check; |
2703 |
if(vs_top-vs_base>1) too_many_arguments(); |
if(vs_base>=vs_top){vs_top=sup;goto T911;} |
2704 |
if(vs_base>=vs_top){vs_top=sup;goto T862;} |
vs_top=sup; |
2705 |
vs_top=sup; |
goto T912; |
2706 |
goto T863; |
goto T911; |
2707 |
goto T862; |
T911:; |
|
T862:; |
|
2708 |
base[0]= Cnil; |
base[0]= Cnil; |
2709 |
goto T863; |
goto T912; |
2710 |
T863:; |
T912:; |
2711 |
if(symbol_value(VV[89])==Cnil){ |
if((VV[88]->s.s_dbind)==Cnil){ |
2712 |
base[1]= Cnil; |
base[1]= Cnil; |
2713 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2714 |
return;} |
return;} |
2715 |
base[1]= car(symbol_value(VV[89])); |
base[1]= CMPcar((VV[88]->s.s_dbind)); |
2716 |
base[2]= base[1]; |
base[2]= base[1]; |
2717 |
base[3]= VV[137]; |
base[3]= VV[141]; |
2718 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2719 |
(void) (*Lnk357)(); |
(void) (*Lnk369)(); |
2720 |
vs_top=sup; |
vs_top=sup; |
2721 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2722 |
goto T867;} |
goto T916;} |
2723 |
vs_base=vs_top; |
vs_base=vs_top; |
2724 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
2725 |
vs_top=sup; |
vs_top=sup; |
2726 |
vs_base=vs_top; |
vs_base=vs_top; |
2727 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
2728 |
return; |
return; |
2729 |
goto T867; |
goto T916; |
2730 |
T867:; |
T916:; |
2731 |
if(!(type_of(base[1])==t_symbol)){ |
if(!(type_of(base[1])==t_symbol)){ |
2732 |
goto T873;} |
goto T922;} |
2733 |
{object V248;{object V249; |
{object V261;{object V262; |
2734 |
base[2]= base[1]; |
base[2]= base[1]; |
2735 |
base[3]= structure_ref(symbol_value(VV[97]),VV[39],4); |
base[3]= STREF(object,(VV[99]->s.s_dbind),16); |
2736 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2737 |
Lgethash(); |
Lgethash(); |
2738 |
vs_top=sup; |
vs_top=sup; |
2739 |
V249= vs_base[0]; |
V262= vs_base[0]; |
2740 |
if(V249==Cnil)goto T876; |
if(V262==Cnil)goto T925; |
2741 |
V248= V249; |
V261= V262; |
2742 |
goto T875; |
goto T924; |
2743 |
goto T876; |
goto T925; |
2744 |
T876:;} |
T925:;} |
2745 |
base[2]= symbol_name(base[1]); |
base[2]= symbol_name(base[1]); |
2746 |
base[3]= structure_ref(symbol_value(VV[97]),VV[39],5); |
base[3]= STREF(object,(VV[99]->s.s_dbind),20); |
2747 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2748 |
Lgethash(); |
Lgethash(); |
2749 |
vs_top=sup; |
vs_top=sup; |
2750 |
V248= vs_base[0]; |
V261= vs_base[0]; |
2751 |
goto T875; |
goto T924; |
2752 |
T875:; |
T924:; |
2753 |
if(((V248))==Cnil){ |
if(((V261))==Cnil){ |
2754 |
goto T883;} |
goto T932;} |
2755 |
vs_base=vs_top; |
vs_base=vs_top; |
2756 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
2757 |
vs_top=sup; |
vs_top=sup; |
2758 |
base[2]= (V248); |
base[2]= (V261); |
2759 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2760 |
return; |
return; |
2761 |
goto T883; |
goto T932; |
2762 |
T883:; |
T932:; |
2763 |
base[2]= Cnil; |
base[2]= Cnil; |
2764 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2765 |
return;} |
return;} |
2766 |
goto T873; |
goto T922; |
2767 |
T873:; |
T922:; |
2768 |
if(!(type_of(base[0])==t_cons)){ |
if(!(type_of(base[0])==t_cons)){ |
2769 |
goto T888;} |
goto T937;} |
2770 |
if(type_of(base[1])==t_cons){ |
if(type_of(base[1])==t_cons){ |
2771 |
goto T886;} |
goto T935;} |
2772 |
base[2]= VV[138]; |
base[2]= VV[142]; |
2773 |
base[3]= base[1]; |
base[3]= base[1]; |
2774 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2775 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
2776 |
vs_top=sup; |
vs_top=sup; |
2777 |
goto T886; |
goto T935; |
2778 |
goto T888; |
goto T937; |
2779 |
T888:; |
T937:; |
2780 |
base[2]= VV[139]; |
base[2]= VV[143]; |
2781 |
base[3]= base[1]; |
base[3]= base[1]; |
2782 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2783 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
2784 |
vs_top=sup; |
vs_top=sup; |
2785 |
goto T886; |
goto T935; |
2786 |
T886:; |
T935:; |
2787 |
vs_base=vs_top; |
vs_base=vs_top; |
2788 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
2789 |
vs_top=sup; |
vs_top=sup; |
2790 |
base[2]= base[1]; |
base[2]= base[1]; |
2791 |
base[3]= base[0]; |
base[3]= base[0]; |
2792 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2793 |
L58(base); |
L63(base); |
2794 |
return; |
return; |
2795 |
} |
} |
2796 |
/* function definition for LOOP-BIND-BLOCK */ |
/* function definition for LOOP-BIND-BLOCK */ |
2797 |
|
|
2798 |
static void L60() |
static void L65() |
2799 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2800 |
register object *sup=base+VM50; VC50 |
register object *sup=base+VM55; VC55 |
2801 |
vs_reserve(VM50); |
vs_check; |
|
check_arg(0); |
|
2802 |
vs_top=sup; |
vs_top=sup; |
2803 |
goto TTL; |
goto TTL; |
2804 |
TTL:; |
TTL:; |
2805 |
if((symbol_value(VV[100]))!=Cnil){ |
if(((VV[102]->s.s_dbind))!=Cnil){ |
2806 |
goto T899;} |
goto T948;} |
2807 |
if((symbol_value(VV[103]))!=Cnil){ |
if(((VV[105]->s.s_dbind))!=Cnil){ |
2808 |
goto T899;} |
goto T948;} |
2809 |
if((symbol_value(VV[107]))==Cnil){ |
if(((VV[109]->s.s_dbind))==Cnil){ |
2810 |
goto T900;} |
goto T949;} |
2811 |
goto T899; |
goto T948; |
2812 |
T899:; |
T948:; |
2813 |
{object V250; |
{object V263; |
2814 |
V251= nreverse(symbol_value(VV[100])); |
V264= nreverse((VV[102]->s.s_dbind)); |
2815 |
V250= list(4,/* INLINE-ARGS */V251,symbol_value(VV[103]),symbol_value(VV[104]),symbol_value(VV[107])); |
V263= list(4,/* INLINE-ARGS */V264,(VV[105]->s.s_dbind),(VV[106]->s.s_dbind),(VV[109]->s.s_dbind)); |
2816 |
setq(VV[105],make_cons((V250),symbol_value(VV[105])));} |
(VV[107]->s.s_dbind)= make_cons((V263),(VV[107]->s.s_dbind));} |
2817 |
setq(VV[100],Cnil); |
(VV[102]->s.s_dbind)= Cnil; |
2818 |
setq(VV[103],Cnil); |
(VV[105]->s.s_dbind)= Cnil; |
2819 |
setq(VV[104],Cnil); |
(VV[106]->s.s_dbind)= Cnil; |
2820 |
setq(VV[107],Cnil); |
(VV[109]->s.s_dbind)= Cnil; |
2821 |
base[0]= Cnil; |
base[0]= Cnil; |
2822 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2823 |
return; |
return; |
2824 |
goto T900; |
goto T949; |
2825 |
T900:; |
T949:; |
2826 |
base[0]= Cnil; |
base[0]= Cnil; |
2827 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2828 |
return; |
return; |
2829 |
} |
} |
2830 |
|
/* function definition for LOOP-VARIABLE-P */ |
2831 |
|
|
2832 |
|
static void L66() |
2833 |
|
{register object *base=vs_base; |
2834 |
|
register object *sup=base+VM56; VC56 |
2835 |
|
vs_check; |
2836 |
|
{register object V265; |
2837 |
|
V265=(base[0]); |
2838 |
|
vs_top=sup; |
2839 |
|
goto TTL; |
2840 |
|
TTL:; |
2841 |
|
{register object V266; |
2842 |
|
V266= (VV[107]->s.s_dbind); |
2843 |
|
goto T966; |
2844 |
|
T966:; |
2845 |
|
if(((V266))!=Cnil){ |
2846 |
|
goto T971;} |
2847 |
|
base[1]= Cnil; |
2848 |
|
vs_top=(vs_base=base+1)+1; |
2849 |
|
return; |
2850 |
|
goto T971; |
2851 |
|
T971:; |
2852 |
|
{register object x= (V265),V267= CMPcaar((V266)); |
2853 |
|
while(V267!=Cnil) |
2854 |
|
if(EQ(x,V267->c.c_car->c.c_car) &&V267->c.c_car != Cnil){ |
2855 |
|
goto T974; |
2856 |
|
}else V267=V267->c.c_cdr; |
2857 |
|
goto T969;} |
2858 |
|
goto T974; |
2859 |
|
T974:; |
2860 |
|
base[1]= Ct; |
2861 |
|
vs_top=(vs_base=base+1)+1; |
2862 |
|
return; |
2863 |
|
goto T969; |
2864 |
|
T969:; |
2865 |
|
V266= CMPcdr((V266)); |
2866 |
|
goto T966;} |
2867 |
|
} |
2868 |
|
} |
2869 |
/* function definition for LOOP-MAKE-VARIABLE */ |
/* function definition for LOOP-MAKE-VARIABLE */ |
2870 |
|
|
2871 |
static void L61() |
static void L67() |
2872 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2873 |
register object *sup=base+VM51; VC51 |
register object *sup=base+VM57; VC57 |
2874 |
vs_reserve(VM51); |
vs_check; |
2875 |
{register object V252; |
{register object V268; |
2876 |
register object V253; |
register object V269; |
2877 |
register object V254; |
register object V270; |
2878 |
object V255; |
object V271; |
2879 |
if(vs_top-vs_base<3) too_few_arguments(); |
V268=(base[0]); |
2880 |
if(vs_top-vs_base>4) too_many_arguments(); |
V269=(base[1]); |
2881 |
V252=(base[0]); |
V270=(base[2]); |
|
V253=(base[1]); |
|
|
V254=(base[2]); |
|
2882 |
vs_base=vs_base+3; |
vs_base=vs_base+3; |
2883 |
if(vs_base>=vs_top){vs_top=sup;goto T916;} |
if(vs_base>=vs_top){vs_top=sup;goto T978;} |
2884 |
V255=(base[3]); |
V271=(base[3]); |
2885 |
vs_top=sup; |
vs_top=sup; |
2886 |
goto T917; |
goto T979; |
2887 |
goto T916; |
goto T978; |
2888 |
T916:; |
T978:; |
2889 |
V255= Cnil; |
V271= Cnil; |
2890 |
goto T917; |
goto T979; |
2891 |
T917:; |
T979:; |
2892 |
if(((V252))!=Cnil){ |
if(((V268))!=Cnil){ |
2893 |
goto T921;} |
goto T983;} |
2894 |
if(((V253))==Cnil){ |
if(((V269))==Cnil){ |
2895 |
goto T919;} |
goto T981;} |
2896 |
{object V256; |
{object V272; |
2897 |
base[5]= VV[142]; |
base[5]= VV[146]; |
2898 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2899 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
2900 |
vs_top=sup; |
vs_top=sup; |
2901 |
V252= vs_base[0]; |
V268= vs_base[0]; |
2902 |
V256= list(2,(V252),(V253)); |
V272= list(2,(V268),(V269)); |
2903 |
setq(VV[100],make_cons((V256),symbol_value(VV[100])));} |
(VV[102]->s.s_dbind)= make_cons((V272),(VV[102]->s.s_dbind));} |
2904 |
{object V257; |
{object V273; |
2905 |
V257= list(2,VV[143],(V252)); |
V273= list(2,VV[97],(V268)); |
2906 |
setq(VV[103],make_cons((V257),symbol_value(VV[103]))); |
(VV[105]->s.s_dbind)= make_cons((V273),(VV[105]->s.s_dbind)); |
2907 |
goto T919;} |
goto T981;} |
2908 |
goto T921; |
goto T983; |
2909 |
T921:; |
T983:; |
2910 |
if(!(type_of((V252))!=t_cons)){ |
if(!(type_of((V268))!=t_cons)){ |
2911 |
goto T933;} |
goto T995;} |
2912 |
if(((V255))==Cnil){ |
if(((V271))==Cnil){ |
2913 |
goto T937;} |
goto T999;} |
2914 |
{register object x= (V252),V258= symbol_value(VV[99]); |
{register object x= (V268),V274= (VV[101]->s.s_dbind); |
2915 |
while(!endp(V258)) |
while(V274!=Cnil) |
2916 |
if(eql(x,V258->c.c_car)){ |
if(eql(x,V274->c.c_car)){ |
2917 |
goto T941; |
goto T1003; |
2918 |
}else V258=V258->c.c_cdr; |
}else V274=V274->c.c_cdr; |
2919 |
goto T940;} |
goto T1002;} |
2920 |
goto T941; |
goto T1003; |
2921 |
T941:; |
T1003:; |
2922 |
base[4]= VV[144]; |
base[4]= VV[147]; |
2923 |
base[5]= (V252); |
base[5]= (V268); |
2924 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2925 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
2926 |
vs_top=sup; |
vs_top=sup; |
2927 |
goto T935; |
goto T997; |
2928 |
goto T940; |
goto T1002; |
2929 |
T940:; |
T1002:; |
2930 |
setq(VV[99],make_cons(V252,symbol_value(VV[99]))); |
(VV[101]->s.s_dbind)= make_cons(V268,(VV[101]->s.s_dbind)); |
2931 |
goto T935; |
goto T997; |
2932 |
goto T937; |
goto T999; |
2933 |
T937:; |
T999:; |
2934 |
{register object x= (V252),V260= symbol_value(VV[100]); |
{register object x= (V268),V276= (VV[102]->s.s_dbind); |
2935 |
while(!endp(V260)) |
while(V276!=Cnil) |
2936 |
if(type_of(V260->c.c_car)==t_cons &&eql(x,V260->c.c_car->c.c_car)){ |
if(eql(x,V276->c.c_car->c.c_car) &&V276->c.c_car != Cnil){ |
2937 |
goto T946; |
goto T1008; |
2938 |
}else V260=V260->c.c_cdr; |
}else V276=V276->c.c_cdr; |
2939 |
goto T935;} |
goto T997;} |
2940 |
goto T946; |
goto T1008; |
2941 |
T946:; |
T1008:; |
2942 |
base[4]= VV[145]; |
base[4]= VV[148]; |
2943 |
base[5]= (V252); |
base[5]= (V268); |
2944 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2945 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
2946 |
vs_top=sup; |
vs_top=sup; |
2947 |
goto T935; |
goto T997; |
2948 |
T935:; |
T997:; |
2949 |
if(type_of((V252))==t_symbol){ |
if(type_of((V268))==t_symbol){ |
2950 |
goto T949;} |
goto T1011;} |
2951 |
base[4]= VV[146]; |
base[4]= VV[149]; |
2952 |
base[5]= (V252); |
base[5]= (V268); |
2953 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2954 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
2955 |
vs_top=sup; |
vs_top=sup; |
2956 |
goto T949; |
goto T1011; |
2957 |
T949:; |
T1011:; |
2958 |
base[4]= (V252); |
base[4]= (V268); |
2959 |
base[5]= (V254); |
base[5]= (V270); |
2960 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2961 |
(void) (*Lnk358)(); |
(void) (*Lnk370)(); |
2962 |
vs_top=sup; |
vs_top=sup; |
2963 |
{object V261; |
{object V277; |
2964 |
if((V253)!=Cnil){ |
if((V269)!=Cnil){ |
2965 |
V262= (V253); |
V278= (V269); |
2966 |
goto T958;} |
goto T1020;} |
2967 |
base[5]= (V254); |
base[5]= (V270); |
2968 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2969 |
(void) (*Lnk329)(); |
(void) (*Lnk336)(); |
2970 |
vs_top=sup; |
vs_top=sup; |
2971 |
V262= vs_base[0]; |
V278= vs_base[0]; |
2972 |
goto T958; |
goto T1020; |
2973 |
T958:; |
T1020:; |
2974 |
V261= list(2,(V252),V262); |
V277= list(2,(V268),V278); |
2975 |
setq(VV[100],make_cons((V261),symbol_value(VV[100]))); |
(VV[102]->s.s_dbind)= make_cons((V277),(VV[102]->s.s_dbind)); |
2976 |
goto T919;} |
goto T981;} |
2977 |
goto T933; |
goto T995; |
2978 |
T933:; |
T995:; |
2979 |
if(((V253))==Cnil){ |
if(((V269))==Cnil){ |
2980 |
goto T962;} |
goto T1024;} |
2981 |
if((symbol_value(VV[63]))==Cnil){ |
if(((VV[63]->s.s_dbind))==Cnil){ |
2982 |
goto T965;} |
goto T1027;} |
2983 |
base[4]= (V252); |
base[4]= (V268); |
2984 |
base[5]= (V254); |
base[5]= (V270); |
2985 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2986 |
(void) (*Lnk358)(); |
(void) (*Lnk370)(); |
2987 |
vs_top=sup; |
vs_top=sup; |
2988 |
{object V263; |
{object V279; |
2989 |
V263= list(2,(V252),(V253)); |
V279= list(2,(V268),(V269)); |
2990 |
setq(VV[100],make_cons((V263),symbol_value(VV[100]))); |
(VV[102]->s.s_dbind)= make_cons((V279),(VV[102]->s.s_dbind)); |
2991 |
goto T919;} |
goto T981;} |
2992 |
goto T965; |
goto T1027; |
2993 |
T965:; |
T1027:; |
2994 |
{object V264; |
{object V280; |
2995 |
base[4]= VV[147]; |
base[4]= VV[150]; |
2996 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2997 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
2998 |
vs_top=sup; |
vs_top=sup; |
2999 |
V264= vs_base[0]; |
V280= vs_base[0]; |
3000 |
{object V265; |
base[4]= (V268); |
3001 |
V265= list(2,(V264),(V253)); |
base[5]= (V270); |
3002 |
setq(VV[100],make_cons((V265),symbol_value(VV[100])));} |
vs_top=(vs_base=base+4)+2; |
3003 |
setq(VV[104],listA(3,(V252),(V264),symbol_value(VV[104]))); |
(void) (*Lnk370)(); |
3004 |
goto T919;} |
vs_top=sup; |
3005 |
goto T962; |
{object V281; |
3006 |
T962:; |
V281= list(2,(V280),(V269)); |
3007 |
{object V266; |
(VV[102]->s.s_dbind)= make_cons((V281),(VV[102]->s.s_dbind));} |
3008 |
object V267; |
(VV[106]->s.s_dbind)= listA(3,(V268),(V280),(VV[106]->s.s_dbind)); |
3009 |
V266= Cnil; |
goto T981;} |
3010 |
V267= Cnil; |
goto T1024; |
3011 |
if(!(type_of((V254))!=t_cons)){ |
T1024:; |
3012 |
goto T980;} |
{object V282; |
3013 |
V267= (V254); |
object V283; |
3014 |
V266= (V267); |
V282= Cnil; |
3015 |
goto T978; |
V283= Cnil; |
3016 |
goto T980; |
if(!(type_of((V270))!=t_cons)){ |
3017 |
T980:; |
goto T1045;} |
3018 |
V266= car((V254)); |
V283= (V270); |
3019 |
V267= cdr((V254)); |
V282= (V283); |
3020 |
goto T978; |
goto T1043; |
3021 |
T978:; |
goto T1045; |
3022 |
base[4]= car((V252)); |
T1045:; |
3023 |
|
V282= CMPcar((V270)); |
3024 |
|
V283= CMPcdr((V270)); |
3025 |
|
goto T1043; |
3026 |
|
T1043:; |
3027 |
|
base[4]= CMPcar((V268)); |
3028 |
base[5]= Cnil; |
base[5]= Cnil; |
3029 |
base[6]= (V266); |
base[6]= (V282); |
3030 |
base[7]= (V255); |
base[7]= (V271); |
3031 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
3032 |
(void) (*Lnk359)(); |
(void) (*Lnk371)(); |
3033 |
vs_top=sup; |
vs_top=sup; |
3034 |
base[4]= cdr((V252)); |
base[4]= CMPcdr((V268)); |
3035 |
base[5]= Cnil; |
base[5]= Cnil; |
3036 |
base[6]= (V267); |
base[6]= (V283); |
3037 |
base[7]= (V255); |
base[7]= (V271); |
3038 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
3039 |
(void) (*Lnk359)(); |
(void) (*Lnk371)(); |
3040 |
vs_top=sup;} |
vs_top=sup;} |
3041 |
goto T919; |
goto T981; |
3042 |
T919:; |
T981:; |
3043 |
base[4]= (V252); |
base[4]= (V268); |
3044 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3045 |
return; |
return; |
3046 |
} |
} |
3047 |
} |
} |
3048 |
/* function definition for LOOP-MAKE-ITERATION-VARIABLE */ |
/* function definition for LOOP-MAKE-ITERATION-VARIABLE */ |
3049 |
|
|
3050 |
static void L62() |
static void L68() |
3051 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3052 |
register object *sup=base+VM52; VC52 |
register object *sup=base+VM58; VC58 |
3053 |
vs_reserve(VM52); |
vs_check; |
3054 |
{object V268; |
{object V284; |
3055 |
object V269; |
object V285; |
3056 |
object V270; |
object V286; |
3057 |
check_arg(3); |
V284=(base[0]); |
3058 |
V268=(base[0]); |
V285=(base[1]); |
3059 |
V269=(base[1]); |
V286=(base[2]); |
|
V270=(base[2]); |
|
3060 |
vs_top=sup; |
vs_top=sup; |
3061 |
goto TTL; |
goto TTL; |
3062 |
TTL:; |
TTL:; |
3063 |
base[3]= (V268); |
base[3]= (V284); |
3064 |
base[4]= (V269); |
base[4]= (V285); |
3065 |
base[5]= (V270); |
base[5]= (V286); |
3066 |
base[6]= Ct; |
base[6]= Ct; |
3067 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
3068 |
(void) (*Lnk359)(); |
(void) (*Lnk371)(); |
3069 |
return; |
return; |
3070 |
} |
} |
3071 |
} |
} |
3072 |
/* function definition for LOOP-DECLARE-VARIABLE */ |
/* function definition for LOOP-DECLARE-VARIABLE */ |
3073 |
|
|
3074 |
static void L63() |
static void L69() |
3075 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3076 |
register object *sup=base+VM53; VC53 |
register object *sup=base+VM59; VC59 |
3077 |
vs_reserve(VM53); |
vs_check; |
3078 |
{register object V271; |
{register object V287; |
3079 |
register object V272; |
register object V288; |
3080 |
check_arg(2); |
V287=(base[0]); |
3081 |
V271=(base[0]); |
V288=(base[1]); |
|
V272=(base[1]); |
|
3082 |
vs_top=sup; |
vs_top=sup; |
3083 |
goto TTL; |
goto TTL; |
3084 |
TTL:; |
TTL:; |
3085 |
if(((V271))==Cnil){ |
if(((V287))==Cnil){ |
3086 |
goto T1000;} |
goto T1065;} |
3087 |
if(((V272))==Cnil){ |
if(((V288))==Cnil){ |
3088 |
goto T1000;} |
goto T1065;} |
3089 |
if(!(((V272))==(Ct))){ |
if(!(((V288))==(Ct))){ |
3090 |
goto T1001;} |
goto T1066;} |
3091 |
goto T1000; |
goto T1065; |
3092 |
T1000:; |
T1065:; |
3093 |
base[2]= Cnil; |
base[2]= Cnil; |
3094 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3095 |
return; |
return; |
3096 |
goto T1001; |
goto T1066; |
3097 |
T1001:; |
T1066:; |
3098 |
if(!(type_of((V271))==t_symbol)){ |
if(!(type_of((V287))==t_symbol)){ |
3099 |
goto T1008;} |
goto T1073;} |
3100 |
if(((V272))==(Ct)){ |
if(((V288))==(Ct)){ |
3101 |
goto T1011;} |
goto T1076;} |
3102 |
{register object x= (V271),V273= symbol_value(VV[101]); |
{register object x= (V287),V289= (VV[103]->s.s_dbind); |
3103 |
while(!endp(V273)) |
while(V289!=Cnil) |
3104 |
if(eql(x,V273->c.c_car)){ |
if(eql(x,V289->c.c_car)){ |
3105 |
goto T1011; |
goto T1076; |
3106 |
}else V273=V273->c.c_cdr;} |
}else V289=V289->c.c_cdr;} |
3107 |
{object V275; |
{object V291; |
3108 |
V275= list(3,VV[31],V272,(V271)); |
V291= list(3,VV[31],V288,(V287)); |
3109 |
setq(VV[103],make_cons((V275),symbol_value(VV[103]))); |
(VV[105]->s.s_dbind)= make_cons((V291),(VV[105]->s.s_dbind)); |
3110 |
base[3]= symbol_value(VV[103]); |
base[3]= (VV[105]->s.s_dbind); |
3111 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3112 |
return;} |
return;} |
3113 |
goto T1011; |
goto T1076; |
3114 |
T1011:; |
T1076:; |
3115 |
base[2]= Cnil; |
base[2]= Cnil; |
3116 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3117 |
return; |
return; |
3118 |
goto T1008; |
goto T1073; |
3119 |
T1008:; |
T1073:; |
3120 |
if(!(type_of((V271))==t_cons)){ |
if(!(type_of((V287))==t_cons)){ |
3121 |
goto T1018;} |
goto T1083;} |
3122 |
if(!(type_of((V272))==t_cons)){ |
if(!(type_of((V288))==t_cons)){ |
3123 |
goto T1021;} |
goto T1086;} |
3124 |
base[2]= car((V271)); |
base[2]= CMPcar((V287)); |
3125 |
base[3]= car((V272)); |
base[3]= CMPcar((V288)); |
3126 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3127 |
(void) (*Lnk358)(); |
(void) (*Lnk370)(); |
3128 |
vs_top=sup; |
vs_top=sup; |
3129 |
V271= cdr((V271)); |
V287= CMPcdr((V287)); |
3130 |
V272= cdr((V272)); |
V288= CMPcdr((V288)); |
3131 |
goto TTL; |
goto TTL; |
3132 |
goto T1021; |
goto T1086; |
3133 |
T1021:; |
T1086:; |
3134 |
base[2]= car((V271)); |
base[2]= CMPcar((V287)); |
3135 |
base[3]= (V272); |
base[3]= (V288); |
3136 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3137 |
(void) (*Lnk358)(); |
(void) (*Lnk370)(); |
3138 |
vs_top=sup; |
vs_top=sup; |
3139 |
V271= cdr((V271)); |
V287= CMPcdr((V287)); |
3140 |
goto TTL; |
goto TTL; |
3141 |
goto T1018; |
goto T1083; |
3142 |
T1018:; |
T1083:; |
3143 |
base[2]= VV[148]; |
base[2]= VV[151]; |
3144 |
base[3]= (V271); |
base[3]= (V287); |
3145 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3146 |
Lerror(); |
Lerror(); |
3147 |
return; |
return; |
3149 |
} |
} |
3150 |
/* function definition for LOOP-MAYBE-BIND-FORM */ |
/* function definition for LOOP-MAYBE-BIND-FORM */ |
3151 |
|
|
3152 |
static void L64() |
static void L70() |
3153 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3154 |
register object *sup=base+VM54; VC54 |
register object *sup=base+VM60; VC60 |
3155 |
vs_reserve(VM54); |
vs_check; |
3156 |
{object V276; |
{object V292; |
3157 |
object V277; |
object V293; |
3158 |
check_arg(2); |
V292=(base[0]); |
3159 |
V276=(base[0]); |
V293=(base[1]); |
|
V277=(base[1]); |
|
3160 |
vs_top=sup; |
vs_top=sup; |
3161 |
goto TTL; |
goto TTL; |
3162 |
TTL:; |
TTL:; |
3163 |
base[2]= (V276); |
base[2]= (V292); |
3164 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3165 |
(void) (*Lnk360)(); |
(void) (*Lnk372)(); |
3166 |
vs_top=sup; |
vs_top=sup; |
3167 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3168 |
goto T1038;} |
goto T1103;} |
3169 |
base[2]= (V276); |
base[2]= (V292); |
3170 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3171 |
return; |
return; |
3172 |
goto T1038; |
goto T1103; |
3173 |
T1038:; |
T1103:; |
3174 |
base[3]= VV[149]; |
base[3]= VV[152]; |
3175 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3176 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
3177 |
vs_top=sup; |
vs_top=sup; |
3178 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
3179 |
base[3]= (V276); |
base[3]= (V292); |
3180 |
base[4]= (V277); |
base[4]= (V293); |
3181 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
3182 |
(void) (*Lnk359)(); |
(void) (*Lnk371)(); |
3183 |
return; |
return; |
3184 |
} |
} |
3185 |
} |
} |
3186 |
/* function definition for LOOP-DO-IF */ |
/* function definition for LOOP-DO-IF */ |
3187 |
|
|
3188 |
static void L65() |
static void L71() |
3189 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3190 |
register object *sup=base+VM55; VC55 |
register object *sup=base+VM61; VC61 |
3191 |
vs_reserve(VM55); |
vs_check; |
3192 |
bds_check; |
bds_check; |
3193 |
{object V278; |
{object V294; |
3194 |
object V279; |
object V295; |
3195 |
check_arg(2); |
V294=(base[0]); |
3196 |
V278=(base[0]); |
V295=(base[1]); |
|
V279=(base[1]); |
|
3197 |
vs_top=sup; |
vs_top=sup; |
3198 |
goto TTL; |
goto TTL; |
3199 |
TTL:; |
TTL:; |
3200 |
{object V280; |
{object V296; |
3201 |
vs_base=vs_top; |
vs_base=vs_top; |
3202 |
(void) (*Lnk361)(); |
(void) (*Lnk363)(); |
3203 |
vs_top=sup; |
vs_top=sup; |
3204 |
V280= vs_base[0]; |
V296= vs_base[0]; |
3205 |
bds_bind(VV[115],Ct); |
bds_bind(VV[117],Ct); |
3206 |
base[3]= Cnil; |
base[3]= Cnil; |
3207 |
{object V281; |
base[4]= Ct; |
3208 |
object V282; |
{object V297; |
3209 |
base[4]= (V278); |
object V298; |
3210 |
vs_top=(vs_base=base+4)+1; |
base[5]= (V294); |
3211 |
L66(base); |
vs_top=(vs_base=base+5)+1; |
3212 |
|
L72(base); |
3213 |
vs_top=sup; |
vs_top=sup; |
3214 |
V281= vs_base[0]; |
V297= vs_base[0]; |
3215 |
base[4]= car(symbol_value(VV[89])); |
base[5]= CMPcar((VV[88]->s.s_dbind)); |
3216 |
base[5]= VV[150]; |
base[6]= VV[153]; |
3217 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+5)+2; |
3218 |
(void) (*Lnk357)(); |
(void) (*Lnk369)(); |
3219 |
vs_top=sup; |
vs_top=sup; |
3220 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3221 |
goto T1050;} |
goto T1115;} |
3222 |
vs_base=vs_top; |
vs_base=vs_top; |
3223 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
3224 |
vs_top=sup; |
vs_top=sup; |
3225 |
base[4]= VV[150]; |
base[5]= VV[153]; |
3226 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+5)+1; |
3227 |
L66(base); |
L72(base); |
3228 |
vs_top=sup; |
vs_top=sup; |
3229 |
V283= vs_base[0]; |
V299= vs_base[0]; |
3230 |
V282= make_cons(V283,Cnil); |
V298= make_cons(V299,Cnil); |
3231 |
goto T1048; |
goto T1113; |
3232 |
goto T1050; |
goto T1115; |
3233 |
T1050:; |
T1115:; |
3234 |
V282= Cnil; |
V298= Cnil; |
3235 |
goto T1048; |
goto T1113; |
3236 |
T1048:; |
T1113:; |
3237 |
base[4]= car(symbol_value(VV[89])); |
base[5]= CMPcar((VV[88]->s.s_dbind)); |
3238 |
base[5]= VV[151]; |
base[6]= VV[154]; |
3239 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+5)+2; |
3240 |
(void) (*Lnk357)(); |
(void) (*Lnk369)(); |
3241 |
vs_top=sup; |
vs_top=sup; |
3242 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3243 |
goto T1057;} |
goto T1122;} |
3244 |
vs_base=vs_top; |
vs_base=vs_top; |
3245 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
3246 |
vs_top=sup; |
vs_top=sup; |
3247 |
goto T1057; |
goto T1122; |
3248 |
T1057:; |
T1122:; |
3249 |
if((base[3])==Cnil){ |
if((base[3])==Cnil){ |
3250 |
goto T1062;} |
goto T1127;} |
3251 |
V280= list(3,VV[11],base[3],(V280)); |
V296= list(3,VV[11],base[3],(V296)); |
3252 |
goto T1062; |
goto T1127; |
3253 |
T1062:; |
T1127:; |
3254 |
if(((V279))==Cnil){ |
if(((V295))==Cnil){ |
3255 |
goto T1069;} |
goto T1134;} |
3256 |
V284= list(2,VV[36],(V280)); |
V300= list(2,VV[36],(V296)); |
3257 |
goto T1067; |
goto T1132; |
3258 |
goto T1069; |
goto T1134; |
3259 |
T1069:; |
T1134:; |
3260 |
V284= (V280); |
V300= (V296); |
3261 |
goto T1067; |
goto T1132; |
3262 |
T1067:; |
T1132:; |
3263 |
base[4]= listA(4,VV[71],V284,(V281),(V282)); |
base[5]= listA(4,VV[71],V300,(V297),(V298)); |
3264 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+5)+1; |
3265 |
(void) (*Lnk354)(); |
(void) (*Lnk365)(); |
3266 |
bds_unwind1; |
bds_unwind1; |
3267 |
return;}} |
return;}} |
3268 |
} |
} |
3269 |
} |
} |
3270 |
/* function definition for LOOP-DO-INITIALLY */ |
/* function definition for LOOP-DO-INITIALLY */ |
3271 |
|
|
3272 |
static void L67() |
static void L73() |
3273 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3274 |
register object *sup=base+VM56; VC56 |
register object *sup=base+VM62; VC62 |
3275 |
vs_reserve(VM56); |
vs_check; |
|
check_arg(0); |
|
3276 |
vs_top=sup; |
vs_top=sup; |
3277 |
goto TTL; |
goto TTL; |
3278 |
TTL:; |
TTL:; |
3279 |
base[0]= VV[156]; |
base[0]= VV[159]; |
3280 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3281 |
(void) (*Lnk362)(); |
(void) (*Lnk373)(); |
3282 |
vs_top=sup; |
vs_top=sup; |
3283 |
{object V285; |
{object V301; |
3284 |
vs_base=vs_top; |
vs_base=vs_top; |
3285 |
(void) (*Lnk363)(); |
(void) (*Lnk374)(); |
3286 |
vs_top=sup; |
vs_top=sup; |
3287 |
V285= vs_base[0]; |
V301= vs_base[0]; |
3288 |
setq(VV[106],make_cons((V285),symbol_value(VV[106]))); |
(VV[108]->s.s_dbind)= make_cons((V301),(VV[108]->s.s_dbind)); |
3289 |
base[1]= symbol_value(VV[106]); |
base[1]= (VV[108]->s.s_dbind); |
3290 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3291 |
return;} |
return;} |
3292 |
} |
} |
3293 |
/* function definition for LOOP-DO-FINALLY */ |
/* function definition for LOOP-DO-FINALLY */ |
3294 |
|
|
3295 |
static void L68() |
static void L74() |
3296 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3297 |
register object *sup=base+VM57; VC57 |
register object *sup=base+VM63; VC63 |
3298 |
vs_reserve(VM57); |
vs_check; |
|
check_arg(0); |
|
3299 |
vs_top=sup; |
vs_top=sup; |
3300 |
goto TTL; |
goto TTL; |
3301 |
TTL:; |
TTL:; |
3302 |
base[0]= VV[157]; |
base[0]= VV[160]; |
3303 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3304 |
(void) (*Lnk362)(); |
(void) (*Lnk373)(); |
3305 |
vs_top=sup; |
vs_top=sup; |
3306 |
{object V286; |
{object V302; |
3307 |
vs_base=vs_top; |
vs_base=vs_top; |
3308 |
(void) (*Lnk363)(); |
(void) (*Lnk374)(); |
3309 |
vs_top=sup; |
vs_top=sup; |
3310 |
V286= vs_base[0]; |
V302= vs_base[0]; |
3311 |
setq(VV[112],make_cons((V286),symbol_value(VV[112]))); |
(VV[114]->s.s_dbind)= make_cons((V302),(VV[114]->s.s_dbind)); |
3312 |
base[1]= symbol_value(VV[112]); |
base[1]= (VV[114]->s.s_dbind); |
3313 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3314 |
return;} |
return;} |
3315 |
} |
} |
3316 |
/* function definition for LOOP-DO-DO */ |
/* function definition for LOOP-DO-DO */ |
3317 |
|
|
3318 |
static void L69() |
static void L75() |
3319 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3320 |
register object *sup=base+VM58; VC58 |
register object *sup=base+VM64; VC64 |
3321 |
vs_reserve(VM58); |
vs_check; |
|
check_arg(0); |
|
3322 |
vs_top=sup; |
vs_top=sup; |
3323 |
goto TTL; |
goto TTL; |
3324 |
TTL:; |
TTL:; |
3325 |
vs_base=vs_top; |
vs_base=vs_top; |
3326 |
(void) (*Lnk363)(); |
(void) (*Lnk374)(); |
3327 |
vs_top=sup; |
vs_top=sup; |
3328 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
3329 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3330 |
(void) (*Lnk364)(); |
(void) (*Lnk375)(); |
3331 |
return; |
return; |
3332 |
} |
} |
3333 |
/* function definition for LOOP-DO-NAMED */ |
/* function definition for LOOP-DO-NAMED */ |
3334 |
|
|
3335 |
static void L70() |
static void L76() |
3336 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3337 |
register object *sup=base+VM59; VC59 |
register object *sup=base+VM65; VC65 |
3338 |
vs_reserve(VM59); |
vs_check; |
|
check_arg(0); |
|
3339 |
vs_top=sup; |
vs_top=sup; |
3340 |
goto TTL; |
goto TTL; |
3341 |
TTL:; |
TTL:; |
3342 |
{register object V287; |
{register object V303; |
3343 |
vs_base=vs_top; |
vs_base=vs_top; |
3344 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
3345 |
vs_top=sup; |
vs_top=sup; |
3346 |
V287= vs_base[0]; |
V303= vs_base[0]; |
3347 |
if(type_of((V287))==t_symbol){ |
if(type_of((V303))==t_symbol){ |
3348 |
goto T1081;} |
goto T1146;} |
3349 |
base[0]= VV[158]; |
base[0]= VV[161]; |
3350 |
base[1]= (V287); |
base[1]= (V303); |
3351 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3352 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
3353 |
vs_top=sup; |
vs_top=sup; |
3354 |
goto T1081; |
goto T1146; |
3355 |
T1081:; |
T1146:; |
3356 |
if((symbol_value(VV[108]))!=Cnil){ |
if(((VV[110]->s.s_dbind))!=Cnil){ |
3357 |
goto T1087;} |
goto T1152;} |
3358 |
if((symbol_value(VV[109]))!=Cnil){ |
if(((VV[111]->s.s_dbind))!=Cnil){ |
3359 |
goto T1087;} |
goto T1152;} |
3360 |
if((symbol_value(VV[113]))!=Cnil){ |
if(((VV[115]->s.s_dbind))!=Cnil){ |
3361 |
goto T1087;} |
goto T1152;} |
3362 |
if((symbol_value(VV[115]))==Cnil){ |
if(((VV[117]->s.s_dbind))==Cnil){ |
3363 |
goto T1086;} |
goto T1151;} |
3364 |
goto T1087; |
goto T1152; |
3365 |
T1087:; |
T1152:; |
3366 |
base[0]= VV[159]; |
base[0]= VV[162]; |
3367 |
base[1]= (V287); |
base[1]= (V303); |
3368 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3369 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
3370 |
vs_top=sup; |
vs_top=sup; |
3371 |
goto T1086; |
goto T1151; |
3372 |
T1086:; |
T1151:; |
3373 |
if((symbol_value(VV[118]))==Cnil){ |
if(((VV[120]->s.s_dbind))==Cnil){ |
3374 |
goto T1097;} |
goto T1162;} |
3375 |
base[0]= VV[160]; |
base[0]= VV[163]; |
3376 |
base[1]= car(symbol_value(VV[118])); |
base[1]= CMPcar((VV[120]->s.s_dbind)); |
3377 |
base[2]= (V287); |
base[2]= (V303); |
3378 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3379 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
3380 |
vs_top=sup; |
vs_top=sup; |
3381 |
goto T1097; |
goto T1162; |
3382 |
T1097:; |
T1162:; |
3383 |
setq(VV[118],list(2,(V287),Cnil)); |
(VV[120]->s.s_dbind)= list(2,(V303),Cnil); |
3384 |
base[0]= symbol_value(VV[118]); |
base[0]= (VV[120]->s.s_dbind); |
3385 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3386 |
return;} |
return;} |
3387 |
} |
} |
3388 |
/* function definition for LOOP-DO-RETURN */ |
/* function definition for LOOP-DO-RETURN */ |
3389 |
|
|
3390 |
static void L71() |
static void L77() |
3391 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3392 |
register object *sup=base+VM60; VC60 |
register object *sup=base+VM66; VC66 |
3393 |
vs_reserve(VM60); |
vs_check; |
|
check_arg(0); |
|
3394 |
vs_top=sup; |
vs_top=sup; |
3395 |
goto TTL; |
goto TTL; |
3396 |
TTL:; |
TTL:; |
3397 |
vs_base=vs_top; |
vs_base=vs_top; |
3398 |
(void) (*Lnk361)(); |
(void) (*Lnk363)(); |
3399 |
vs_top=sup; |
vs_top=sup; |
3400 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
3401 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3402 |
(void) (*Lnk355)(); |
(void) (*Lnk366)(); |
3403 |
vs_top=sup; |
vs_top=sup; |
3404 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
3405 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3406 |
(void) (*Lnk354)(); |
(void) (*Lnk365)(); |
3407 |
return; |
return; |
3408 |
} |
} |
3409 |
/* function definition for MAKE-LOOP-COLLECTOR */ |
/* function definition for MAKE-LOOP-COLLECTOR */ |
3410 |
|
|
3411 |
static void L72() |
static void L78() |
3412 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3413 |
register object *sup=base+VM61; VC61 |
register object *sup=base+VM67; VC67 |
3414 |
vs_reserve(VM61); |
vs_check; |
3415 |
{object V288; |
{object V304; |
3416 |
object V289; |
object V305; |
3417 |
object V290; |
object V306; |
3418 |
object V291; |
object V307; |
3419 |
object V292; |
object V308; |
3420 |
object V293; |
object V309; |
3421 |
parse_key(vs_base,FALSE,FALSE,6,VV[165],VV[166],VV[167],VV[365],VV[168],VV[366]); |
parse_key(vs_base,FALSE,FALSE,6,VV[169],VV[170],VV[171],VV[376],VV[172],VV[377]); |
3422 |
vs_top=sup; |
vs_top=sup; |
3423 |
V288=(base[0]); |
V304=(base[0]); |
3424 |
V289=(base[1]); |
V305=(base[1]); |
3425 |
V290=(base[2]); |
V306=(base[2]); |
3426 |
V291=(base[3]); |
V307=(base[3]); |
3427 |
V292=(base[4]); |
V308=(base[4]); |
3428 |
V293=(base[5]); |
V309=(base[5]); |
3429 |
base[12]= VV[161]; |
base[12]= VV[164]; |
3430 |
base[13]= (V288); |
base[13]= (V304); |
3431 |
base[14]= (V289); |
base[14]= (V305); |
3432 |
base[15]= (V290); |
base[15]= (V306); |
3433 |
base[16]= (V291); |
base[16]= (V307); |
3434 |
base[17]= (V292); |
base[17]= (V308); |
3435 |
base[18]= (V293); |
base[18]= (V309); |
3436 |
vs_top=(vs_base=base+12)+7; |
vs_top=(vs_base=base+12)+7; |
3437 |
siLmake_structure(); |
siLmake_structure(); |
3438 |
return; |
return; |
3440 |
} |
} |
3441 |
/* function definition for LOOP-GET-COLLECTION-INFO */ |
/* function definition for LOOP-GET-COLLECTION-INFO */ |
3442 |
|
|
3443 |
static void L73() |
static void L79() |
3444 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3445 |
register object *sup=base+VM62; VC62 |
register object *sup=base+VM68; VC68 |
3446 |
vs_reserve(VM62); |
vs_check; |
3447 |
{object V294; |
{object V310; |
3448 |
object V295; |
object V311; |
3449 |
object V296; |
object V312; |
3450 |
check_arg(3); |
V310=(base[0]); |
3451 |
V294=(base[0]); |
V311=(base[1]); |
3452 |
V295=(base[1]); |
V312=(base[2]); |
|
V296=(base[2]); |
|
3453 |
vs_top=sup; |
vs_top=sup; |
3454 |
goto TTL; |
goto TTL; |
3455 |
TTL:; |
TTL:; |
3456 |
base[3]= car(symbol_value(VV[89])); |
{object V313; |
3457 |
base[4]= VV[162]; |
register object V314; |
3458 |
vs_top=(vs_base=base+3)+2; |
register object V315; |
|
(void) (*Lnk357)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])!=Cnil){ |
|
|
goto T1113;} |
|
|
setq(VV[119],Ct); |
|
|
goto T1113; |
|
|
T1113:; |
|
|
{object V297; |
|
|
register object V298; |
|
|
register object V299; |
|
3459 |
vs_base=vs_top; |
vs_base=vs_top; |
3460 |
(void) (*Lnk361)(); |
(void) (*Lnk363)(); |
3461 |
vs_top=sup; |
vs_top=sup; |
3462 |
V297= vs_base[0]; |
V313= vs_base[0]; |
3463 |
V300= structure_ref(symbol_value(VV[97]),VV[39],6); |
if((STREF(object,(VV[99]->s.s_dbind),24))==Cnil){ |
3464 |
if((/* INLINE-ARGS */V300)==Cnil){ |
goto T1180;} |
3465 |
goto T1121;} |
V314= Cnil; |
3466 |
V298= Cnil; |
goto T1179; |
3467 |
goto T1120; |
goto T1180; |
3468 |
goto T1121; |
T1180:; |
|
T1121:; |
|
3469 |
vs_base=vs_top; |
vs_base=vs_top; |
3470 |
(void) (*Lnk367)(); |
(void) (*Lnk378)(); |
3471 |
vs_top=sup; |
vs_top=sup; |
3472 |
V298= vs_base[0]; |
V314= vs_base[0]; |
3473 |
goto T1120; |
goto T1179; |
3474 |
T1120:; |
T1179:; |
3475 |
base[3]= car(symbol_value(VV[89])); |
base[3]= CMPcar((VV[88]->s.s_dbind)); |
3476 |
base[4]= VV[162]; |
base[4]= VV[165]; |
3477 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3478 |
(void) (*Lnk357)(); |
(void) (*Lnk369)(); |
3479 |
vs_top=sup; |
vs_top=sup; |
3480 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
3481 |
goto T1125;} |
goto T1184;} |
3482 |
vs_base=vs_top; |
vs_base=vs_top; |
3483 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
3484 |
vs_top=sup; |
vs_top=sup; |
3485 |
vs_base=vs_top; |
vs_base=vs_top; |
3486 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
3487 |
vs_top=sup; |
vs_top=sup; |
3488 |
V299= vs_base[0]; |
V315= vs_base[0]; |
3489 |
goto T1123; |
goto T1182; |
3490 |
goto T1125; |
goto T1184; |
3491 |
T1125:; |
T1184:; |
3492 |
V299= Cnil; |
V315= Cnil; |
3493 |
goto T1123; |
goto T1182; |
3494 |
T1123:; |
T1182:; |
3495 |
if(type_of((V299))==t_symbol){ |
if(type_of((V315))==t_symbol){ |
3496 |
goto T1130;} |
goto T1189;} |
3497 |
base[3]= VV[163]; |
base[3]= VV[166]; |
3498 |
base[4]= (V299); |
base[4]= (V315); |
3499 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3500 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
3501 |
vs_top=sup; |
vs_top=sup; |
3502 |
goto T1130; |
goto T1189; |
3503 |
T1130:; |
T1189:; |
3504 |
if(((V298))!=Cnil){ |
if(((V315))!=Cnil){ |
3505 |
goto T1135;}{object V301; |
goto T1194;} |
3506 |
vs_base=vs_top; |
vs_base=vs_top; |
3507 |
(void) (*Lnk367)(); |
(void) (*Lnk379)(); |
3508 |
vs_top=sup; |
vs_top=sup; |
3509 |
V301= vs_base[0]; |
goto T1194; |
3510 |
if(V301==Cnil)goto T1139; |
T1194:; |
3511 |
V298= V301; |
if(((V314))!=Cnil){ |
3512 |
goto T1138; |
goto T1197;}{object V316; |
3513 |
goto T1139; |
vs_base=vs_top; |
3514 |
T1139:;} |
(void) (*Lnk378)(); |
3515 |
V298= (V296); |
vs_top=sup; |
3516 |
goto T1138; |
V316= vs_base[0]; |
3517 |
T1138:; |
if(V316==Cnil)goto T1201; |
3518 |
goto T1135; |
V314= V316; |
3519 |
T1135:; |
goto T1200; |
3520 |
{register object V302;{object V303; |
goto T1201; |
3521 |
V303= symbol_value(VV[120]); |
T1201:;} |
3522 |
V304= symbol_function(VV[369]); |
V314= (V312); |
3523 |
V302= (VFUN_NARGS=4,(*(LnkLI368))((V299),V303,VV[164],V304));} |
goto T1200; |
3524 |
if(((V302))!=Cnil){ |
T1200:; |
3525 |
goto T1145;} |
goto T1197; |
3526 |
{object V305; |
T1197:; |
3527 |
base[4]= VV[165]; |
{register object V317; |
3528 |
base[5]= (V299); |
base[3]= (V315); |
3529 |
base[6]= VV[166]; |
base[4]= (VV[121]->s.s_dbind); |
3530 |
base[7]= (V295); |
base[5]= VV[167]; |
3531 |
base[8]= VV[167]; |
base[6]= (VV[134]->s.s_gfdef); |
3532 |
base[9]= make_cons((V294),Cnil); |
vs_top=(vs_base=base+3)+4; |
3533 |
base[10]= VV[168]; |
(void) (*Lnk380)(); |
3534 |
base[11]= (V298); |
vs_top=sup; |
3535 |
|
V317= vs_base[0]; |
3536 |
|
if(((V317))!=Cnil){ |
3537 |
|
goto T1210;} |
3538 |
|
if(((V315))==Cnil){ |
3539 |
|
goto T1212;} |
3540 |
|
base[3]= (V315); |
3541 |
|
vs_top=(vs_base=base+3)+1; |
3542 |
|
(void) (*Lnk381)(); |
3543 |
|
vs_top=sup; |
3544 |
|
if((vs_base[0])==Cnil){ |
3545 |
|
goto T1212;} |
3546 |
|
base[3]= VV[168]; |
3547 |
|
base[4]= (V315); |
3548 |
|
vs_top=(vs_base=base+3)+2; |
3549 |
|
(void) (*Lnk354)(); |
3550 |
|
vs_top=sup; |
3551 |
|
goto T1212; |
3552 |
|
T1212:; |
3553 |
|
{object V318; |
3554 |
|
base[4]= VV[169]; |
3555 |
|
base[5]= (V315); |
3556 |
|
base[6]= VV[170]; |
3557 |
|
base[7]= (V311); |
3558 |
|
base[8]= VV[171]; |
3559 |
|
base[9]= make_cons((V310),Cnil); |
3560 |
|
base[10]= VV[172]; |
3561 |
|
base[11]= (V314); |
3562 |
vs_top=(vs_base=base+4)+8; |
vs_top=(vs_base=base+4)+8; |
3563 |
(void) (*Lnk370)(); |
(void) (*Lnk382)(); |
3564 |
vs_top=sup; |
vs_top=sup; |
3565 |
V302= vs_base[0]; |
V317= vs_base[0]; |
3566 |
V305= (V302); |
V318= (V317); |
3567 |
setq(VV[120],make_cons((V305),symbol_value(VV[120]))); |
(VV[121]->s.s_dbind)= make_cons((V318),(VV[121]->s.s_dbind)); |
3568 |
goto T1143;} |
goto T1208;} |
3569 |
goto T1145; |
goto T1210; |
3570 |
T1145:; |
T1210:; |
3571 |
V306= structure_ref((V302),VV[161],1); |
if((STREF(object,(V317),4))==((V311))){ |
3572 |
if((/* INLINE-ARGS */V306)==((V295))){ |
goto T1231;} |
3573 |
goto T1158;} |
base[3]= VV[173]; |
3574 |
base[3]= VV[169]; |
base[4]= (V315); |
3575 |
base[4]= (V299); |
base[5]= CMPcar(STREF(object,(V317),8)); |
3576 |
V307= structure_ref((V302),VV[161],2); |
base[6]= (V310); |
|
base[5]= car(/* INLINE-ARGS */V307); |
|
|
base[6]= (V294); |
|
3577 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
3578 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
3579 |
vs_top=sup; |
vs_top=sup; |
3580 |
goto T1158; |
goto T1231; |
3581 |
T1158:; |
T1231:; |
3582 |
V308= structure_ref((V302),VV[161],4); |
if(equal((V314),STREF(object,(V317),16))){ |
3583 |
if(equal((V298),/* INLINE-ARGS */V308)){ |
goto T1238;} |
3584 |
goto T1165;} |
base[3]= VV[174]; |
3585 |
base[3]= VV[170]; |
base[4]= (V315); |
3586 |
base[4]= (V299); |
base[5]= (V314); |
3587 |
base[5]= (V298); |
base[6]= STREF(object,(V317),16); |
|
base[6]= structure_ref((V302),VV[161],4); |
|
3588 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
3589 |
(void) (*Lnk338)(); |
(void) (*Lnk345)(); |
3590 |
vs_top=sup; |
vs_top=sup; |
3591 |
V309= structure_ref((V302),VV[161],4); |
if(!((STREF(object,(V317),16))==(Ct))){ |
3592 |
if(!((/* INLINE-ARGS */V309)==(Ct))){ |
goto T1238;} |
3593 |
goto T1165;} |
V319= Ct; |
3594 |
(void)(structure_set((V302),VV[161],4,(V298))); |
STSET(object,(V317),16, (V314)); |
3595 |
goto T1165; |
(void)((V314)); |
3596 |
T1165:; |
goto T1238; |
3597 |
{object V312; |
T1238:; |
3598 |
V313= structure_ref(V302,VV[161],2); |
{object V322; |
3599 |
V312= make_cons(V294,/* INLINE-ARGS */V313); |
V322= make_cons(V310,STREF(object,V317,8)); |
3600 |
(void)(structure_set(V302,VV[161],2,(V312)));} |
V323= Ct; |
3601 |
goto T1143; |
STSET(object,V317,8, (V322)); |
3602 |
T1143:; |
(void)((V322));} |
3603 |
base[3]= (V302); |
goto T1208; |
3604 |
base[4]= (V297); |
T1208:; |
3605 |
|
base[3]= (V317); |
3606 |
|
base[4]= (V313); |
3607 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3608 |
return;}} |
return;}} |
3609 |
} |
} |
3610 |
} |
} |
3611 |
/* function definition for LOOP-LIST-COLLECTION */ |
/* function definition for LOOP-LIST-COLLECTION */ |
3612 |
|
|
3613 |
static void L74() |
static void L80() |
3614 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3615 |
register object *sup=base+VM63; VC63 |
register object *sup=base+VM69; VC69 |
3616 |
vs_reserve(VM63); |
vs_check; |
3617 |
{object V314; |
{object V324; |
3618 |
check_arg(1); |
V324=(base[0]); |
|
V314=(base[0]); |
|
3619 |
vs_top=sup; |
vs_top=sup; |
3620 |
goto TTL; |
goto TTL; |
3621 |
TTL:; |
TTL:; |
3622 |
{register object V315; |
{register object V325; |
3623 |
register object V316; |
register object V326; |
3624 |
base[1]= (V314); |
base[1]= (V324); |
3625 |
base[2]= VV[5]; |
base[2]= VV[5]; |
3626 |
base[3]= VV[5]; |
base[3]= VV[5]; |
3627 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
3628 |
(void) (*Lnk371)(); |
(void) (*Lnk383)(); |
3629 |
if(vs_base>=vs_top){vs_top=sup;goto T1182;} |
if(vs_base>=vs_top){vs_top=sup;goto T1255;} |
3630 |
V315= vs_base[0]; |
V325= vs_base[0]; |
3631 |
vs_base++; |
vs_base++; |
3632 |
if(vs_base>=vs_top){vs_top=sup;goto T1183;} |
if(vs_base>=vs_top){vs_top=sup;goto T1256;} |
3633 |
V316= vs_base[0]; |
V326= vs_base[0]; |
3634 |
vs_top=sup; |
vs_top=sup; |
3635 |
goto T1184; |
goto T1257; |
3636 |
goto T1182; |
goto T1255; |
3637 |
T1182:; |
T1255:; |
3638 |
V315= Cnil; |
V325= Cnil; |
3639 |
goto T1183; |
goto T1256; |
3640 |
T1183:; |
T1256:; |
3641 |
V316= Cnil; |
V326= Cnil; |
3642 |
goto T1184; |
goto T1257; |
3643 |
T1184:; |
T1257:; |
3644 |
{register object V317; |
{register object V327; |
3645 |
V317= structure_ref((V315),VV[161],3); |
V327= STREF(object,(V325),12); |
3646 |
if(((V317))!=Cnil){ |
if(((V327))!=Cnil){ |
3647 |
goto T1186;} |
goto T1259;} |
3648 |
base[1]= VV[171]; |
base[1]= VV[175]; |
3649 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3650 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
3651 |
vs_top=sup; |
vs_top=sup; |
3652 |
V318= vs_base[0]; |
V328= vs_base[0]; |
3653 |
base[1]= VV[172]; |
base[1]= VV[176]; |
3654 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3655 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
3656 |
vs_top=sup; |
vs_top=sup; |
3657 |
V319= vs_base[0]; |
V329= vs_base[0]; |
3658 |
if((structure_ref((V315),VV[161],0))!=Cnil){ |
if((STREF(object,(V325),0))!=Cnil){ |
3659 |
goto T1196;} |
goto T1269;} |
3660 |
V320= Cnil; |
V330= Cnil; |
3661 |
goto T1195; |
goto T1268; |
3662 |
goto T1196; |
goto T1269; |
3663 |
T1196:; |
T1269:; |
3664 |
V321= structure_ref((V315),VV[161],0); |
V330= make_cons(STREF(object,(V325),0),Cnil); |
3665 |
V320= make_cons(/* INLINE-ARGS */V321,Cnil); |
goto T1268; |
3666 |
goto T1195; |
T1268:; |
3667 |
T1195:; |
V327= listA(3,V328,V329,V330); |
3668 |
V317= listA(3,V318,V319,V320); |
V331= Ct; |
3669 |
(void)(structure_set((V315),VV[161],3,(V317))); |
STSET(object,(V325),12, (V327)); |
3670 |
{object V322; |
(void)((V327)); |
3671 |
V322= list(2,VV[173],(V317)); |
{object V332; |
3672 |
setq(VV[107],make_cons((V322),symbol_value(VV[107])));} |
V332= list(2,VV[177],(V327)); |
3673 |
if((structure_ref((V315),VV[161],0))!=Cnil){ |
(VV[109]->s.s_dbind)= make_cons((V332),(VV[109]->s.s_dbind));} |
3674 |
goto T1186;} |
if((STREF(object,(V325),0))!=Cnil){ |
3675 |
base[1]= listA(3,VV[174],car((V317)),cddr((V317))); |
goto T1259;} |
3676 |
|
base[1]= listA(3,VV[178],CMPcar((V327)),CMPcddr((V327))); |
3677 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3678 |
(void) (*Lnk372)(); |
(void) (*Lnk384)(); |
3679 |
vs_top=sup; |
vs_top=sup; |
3680 |
goto T1186; |
goto T1259; |
3681 |
T1186:; |
T1259:; |
3682 |
{object V323= (V314); |
{object V333= (V324); |
3683 |
if((V323!= VV[5]))goto T1205; |
if((V333!= VV[5]))goto T1278; |
3684 |
V316= list(2,VV[5],(V316)); |
V326= list(2,VV[5],(V326)); |
3685 |
goto T1204; |
goto T1277; |
3686 |
goto T1205; |
goto T1278; |
3687 |
T1205:; |
T1278:; |
3688 |
if((V323!= VV[373]))goto T1207; |
if((V333!= VV[385]))goto T1280; |
3689 |
goto T1204; |
goto T1277; |
3690 |
goto T1207; |
goto T1280; |
3691 |
T1207:; |
T1280:; |
3692 |
if((V323!= VV[374]))goto T1208; |
if((V333!= VV[386]))goto T1281; |
3693 |
if(!(type_of((V316))==t_cons)){ |
if(!(type_of((V326))==t_cons)){ |
3694 |
goto T1209;} |
goto T1282;} |
3695 |
if((car((V316)))==(VV[5])){ |
if((CMPcar((V326)))==(VV[5])){ |
3696 |
goto T1204;} |
goto T1277;} |
3697 |
goto T1209; |
goto T1282; |
3698 |
T1209:; |
T1282:; |
3699 |
V316= list(2,VV[175],(V316)); |
V326= list(2,VV[179],(V326)); |
3700 |
goto T1204; |
goto T1277; |
3701 |
goto T1208; |
goto T1281; |
3702 |
T1208:; |
T1281:; |
3703 |
FEerror("The ECASE key value ~s is illegal.",1,V323); |
FEerror("The ECASE key value ~s is illegal.",1,V333); |
3704 |
goto T1204;} |
goto T1277;} |
3705 |
goto T1204; |
goto T1277; |
3706 |
T1204:; |
T1277:; |
3707 |
base[1]= list(3,VV[176],(V317),(V316)); |
base[1]= list(3,VV[180],(V327),(V326)); |
3708 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3709 |
(void) (*Lnk364)(); |
(void) (*Lnk375)(); |
3710 |
return;}} |
return;}} |
3711 |
} |
} |
3712 |
} |
} |
3713 |
/* function definition for LOOP-SUM-COLLECTION */ |
/* function definition for LOOP-SUM-COLLECTION */ |
3714 |
|
|
3715 |
static void L75() |
static void L81() |
3716 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3717 |
register object *sup=base+VM64; VC64 |
register object *sup=base+VM70; VC70 |
3718 |
vs_reserve(VM64); |
vs_check; |
3719 |
{object V324; |
{object V334; |
3720 |
object V325; |
object V335; |
3721 |
object V326; |
object V336; |
3722 |
check_arg(3); |
V334=(base[0]); |
3723 |
V324=(base[0]); |
V335=(base[1]); |
3724 |
V325=(base[1]); |
V336=(base[2]); |
|
V326=(base[2]); |
|
3725 |
vs_top=sup; |
vs_top=sup; |
3726 |
goto TTL; |
goto TTL; |
3727 |
TTL:; |
TTL:; |
3728 |
{register object V327; |
{register object V337; |
3729 |
object V328; |
object V338; |
3730 |
base[3]= (V324); |
base[3]= (V334); |
3731 |
base[4]= VV[177]; |
base[4]= VV[181]; |
3732 |
base[5]= (V326); |
base[5]= (V336); |
3733 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
3734 |
(void) (*Lnk371)(); |
(void) (*Lnk383)(); |
3735 |
if(vs_base>=vs_top){vs_top=sup;goto T1219;} |
if(vs_base>=vs_top){vs_top=sup;goto T1292;} |
3736 |
V327= vs_base[0]; |
V337= vs_base[0]; |
3737 |
vs_base++; |
vs_base++; |
3738 |
if(vs_base>=vs_top){vs_top=sup;goto T1220;} |
if(vs_base>=vs_top){vs_top=sup;goto T1293;} |
3739 |
V328= vs_base[0]; |
V338= vs_base[0]; |
3740 |
vs_top=sup; |
vs_top=sup; |
3741 |
goto T1221; |
goto T1294; |
3742 |
goto T1219; |
goto T1292; |
3743 |
T1219:; |
T1292:; |
3744 |
V327= Cnil; |
V337= Cnil; |
3745 |
goto T1220; |
goto T1293; |
3746 |
T1220:; |
T1293:; |
3747 |
V328= Cnil; |
V338= Cnil; |
3748 |
goto T1221; |
goto T1294; |
3749 |
T1221:; |
T1294:; |
3750 |
base[3]= structure_ref((V327),VV[161],4); |
base[3]= STREF(object,(V337),16); |
3751 |
base[4]= (V325); |
base[4]= (V335); |
3752 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
3753 |
(void) (*Lnk375)(); |
(void) (*Lnk387)(); |
3754 |
vs_top=sup; |
vs_top=sup; |
3755 |
{register object V329; |
{register object V339; |
3756 |
V329= structure_ref((V327),VV[161],3); |
V339= STREF(object,(V337),12); |
3757 |
if(((V329))!=Cnil){ |
if(((V339))!=Cnil){ |
3758 |
goto T1226;}{object V331; |
goto T1299;}{object V341; |
3759 |
V331= structure_ref((V327),VV[161],0); |
V341= STREF(object,(V337),0); |
3760 |
if(V331==Cnil)goto T1233; |
if(V341==Cnil)goto T1306; |
3761 |
base[3]= V331; |
base[3]= V341; |
3762 |
goto T1232; |
goto T1305; |
3763 |
goto T1233; |
goto T1306; |
3764 |
T1233:;} |
T1306:;} |
3765 |
base[4]= VV[178]; |
base[4]= VV[182]; |
3766 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3767 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
3768 |
vs_top=sup; |
vs_top=sup; |
3769 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
3770 |
goto T1232; |
goto T1305; |
3771 |
T1232:; |
T1305:; |
3772 |
base[4]= Cnil; |
base[4]= Cnil; |
3773 |
base[5]= structure_ref((V327),VV[161],4); |
base[5]= STREF(object,(V337),16); |
3774 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
3775 |
(void) (*Lnk359)(); |
(void) (*Lnk371)(); |
3776 |
vs_top=sup; |
vs_top=sup; |
3777 |
V330= vs_base[0]; |
V340= vs_base[0]; |
3778 |
V329= make_cons(V330,Cnil); |
V339= make_cons(V340,Cnil); |
3779 |
(void)(structure_set((V327),VV[161],3,(V329))); |
V342= Ct; |
3780 |
if((structure_ref((V327),VV[161],0))!=Cnil){ |
STSET(object,(V337),12, (V339)); |
3781 |
goto T1226;} |
(void)((V339)); |
3782 |
V332= structure_ref((V327),VV[161],3); |
if((STREF(object,(V337),0))!=Cnil){ |
3783 |
base[3]= car(/* INLINE-ARGS */V332); |
goto T1299;} |
3784 |
|
base[3]= CMPcar(STREF(object,(V337),12)); |
3785 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3786 |
(void) (*Lnk372)(); |
(void) (*Lnk384)(); |
3787 |
vs_top=sup; |
vs_top=sup; |
3788 |
goto T1226; |
goto T1299; |
3789 |
T1226:; |
T1299:; |
3790 |
if(!(((V324))==(VV[179]))){ |
if(!(((V334))==(VV[183]))){ |
3791 |
goto T1243;} |
goto T1316;} |
3792 |
V333= car((V329)); |
V343= CMPcar((V339)); |
3793 |
base[4]= Ct; |
base[4]= Ct; |
3794 |
base[5]= car((V329)); |
base[5]= CMPcar((V339)); |
3795 |
base[6]= list(2,VV[180],car((V329))); |
base[6]= list(2,VV[184],CMPcar((V339))); |
3796 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
3797 |
(void) (*Lnk331)(); |
(void) (*Lnk338)(); |
3798 |
vs_top=sup; |
vs_top=sup; |
3799 |
V334= vs_base[0]; |
V344= vs_base[0]; |
3800 |
base[3]= list(3,VV[8],(V328),list(3,VV[11],/* INLINE-ARGS */V333,V334)); |
base[3]= list(3,VV[8],(V338),list(3,VV[11],/* INLINE-ARGS */V343,V344)); |
3801 |
goto T1241; |
goto T1314; |
3802 |
goto T1243; |
goto T1316; |
3803 |
T1243:; |
T1316:; |
3804 |
V335= car((V329)); |
V345= CMPcar((V339)); |
3805 |
base[4]= Ct; |
base[4]= Ct; |
3806 |
base[5]= car((V329)); |
base[5]= CMPcar((V339)); |
3807 |
base[6]= car((V329)); |
base[6]= CMPcar((V339)); |
3808 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
3809 |
(void) (*Lnk331)(); |
(void) (*Lnk338)(); |
3810 |
vs_top=sup; |
vs_top=sup; |
3811 |
V336= vs_base[0]; |
V346= vs_base[0]; |
3812 |
base[3]= list(3,VV[11],/* INLINE-ARGS */V335,list(3,VV[181],V336,(V328))); |
base[3]= list(3,VV[11],/* INLINE-ARGS */V345,list(3,VV[185],V346,(V338))); |
3813 |
goto T1241; |
goto T1314; |
3814 |
T1241:; |
T1314:; |
3815 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3816 |
(void) (*Lnk364)(); |
(void) (*Lnk375)(); |
3817 |
return;}} |
return;}} |
3818 |
} |
} |
3819 |
} |
} |
3820 |
/* function definition for LOOP-MAXMIN-COLLECTION */ |
/* function definition for LOOP-MAXMIN-COLLECTION */ |
3821 |
|
|
3822 |
static void L76() |
static void L82() |
3823 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3824 |
register object *sup=base+VM65; VC65 |
register object *sup=base+VM71; VC71 |
3825 |
vs_reserve(VM65); |
vs_check; |
3826 |
{object V337; |
{object V347; |
3827 |
check_arg(1); |
V347=(base[0]); |
|
V337=(base[0]); |
|
3828 |
vs_top=sup; |
vs_top=sup; |
3829 |
goto TTL; |
goto TTL; |
3830 |
TTL:; |
TTL:; |
3831 |
{register object V338; |
{register object V348; |
3832 |
object V339; |
object V349; |
3833 |
base[1]= (V337); |
base[1]= (V347); |
3834 |
base[2]= VV[182]; |
base[2]= VV[186]; |
3835 |
base[3]= symbol_value(VV[183]); |
base[3]= (VV[187]->s.s_dbind); |
3836 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
3837 |
(void) (*Lnk371)(); |
(void) (*Lnk383)(); |
3838 |
if(vs_base>=vs_top){vs_top=sup;goto T1257;} |
if(vs_base>=vs_top){vs_top=sup;goto T1330;} |
3839 |
V338= vs_base[0]; |
V348= vs_base[0]; |
3840 |
vs_base++; |
vs_base++; |
3841 |
if(vs_base>=vs_top){vs_top=sup;goto T1258;} |
if(vs_base>=vs_top){vs_top=sup;goto T1331;} |
3842 |
V339= vs_base[0]; |
V349= vs_base[0]; |
3843 |
vs_top=sup; |
vs_top=sup; |
3844 |
goto T1259; |
goto T1332; |
3845 |
goto T1257; |
goto T1330; |
3846 |
T1257:; |
T1330:; |
3847 |
V338= Cnil; |
V348= Cnil; |
3848 |
goto T1258; |
goto T1331; |
3849 |
T1258:; |
T1331:; |
3850 |
V339= Cnil; |
V349= Cnil; |
3851 |
goto T1259; |
goto T1332; |
3852 |
T1259:; |
T1332:; |
3853 |
base[1]= structure_ref((V338),VV[161],4); |
base[1]= STREF(object,(V348),16); |
3854 |
base[2]= symbol_value(VV[183]); |
base[2]= (VV[187]->s.s_dbind); |
3855 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3856 |
(void) (*Lnk375)(); |
(void) (*Lnk387)(); |
3857 |
vs_top=sup; |
vs_top=sup; |
3858 |
{register object V340; |
{register object V350; |
3859 |
V340= structure_ref((V338),VV[161],5); |
V350= STREF(object,(V348),20); |
3860 |
if(((V340))!=Cnil){ |
if(((V350))!=Cnil){ |
3861 |
goto T1264;}{object V341; |
goto T1337;}{object V351; |
3862 |
V341= structure_ref((V338),VV[161],0); |
V351= STREF(object,(V348),0); |
3863 |
if(V341==Cnil)goto T1270; |
if(V351==Cnil)goto T1343; |
3864 |
base[1]= V341; |
base[1]= V351; |
3865 |
goto T1269; |
goto T1342; |
3866 |
goto T1270; |
goto T1343; |
3867 |
T1270:;} |
T1343:;} |
3868 |
base[2]= VV[184]; |
base[2]= VV[188]; |
3869 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3870 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
3871 |
vs_top=sup; |
vs_top=sup; |
3872 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
3873 |
goto T1269; |
goto T1342; |
3874 |
T1269:; |
T1342:; |
3875 |
base[2]= structure_ref((V338),VV[161],4); |
base[2]= STREF(object,(V348),16); |
3876 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3877 |
(void) (*Lnk376)(); |
(void) (*Lnk388)(); |
3878 |
vs_top=sup; |
vs_top=sup; |
3879 |
V340= vs_base[0]; |
V350= vs_base[0]; |
3880 |
(void)(structure_set((V338),VV[161],5,(V340))); |
V352= Ct; |
3881 |
if((structure_ref((V338),VV[161],0))!=Cnil){ |
STSET(object,(V348),20, (V350)); |
3882 |
goto T1264;} |
(void)((V350)); |
3883 |
base[1]= structure_ref((V340),VV[18],0); |
if((STREF(object,(V348),0))!=Cnil){ |
3884 |
|
goto T1337;} |
3885 |
|
base[1]= STREF(object,(V350),0); |
3886 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3887 |
(void) (*Lnk372)(); |
(void) (*Lnk384)(); |
3888 |
vs_top=sup; |
vs_top=sup; |
3889 |
goto T1264; |
goto T1337; |
3890 |
T1264:; |
T1337:; |
3891 |
base[1]= (V337); |
base[1]= (V347); |
3892 |
base[2]= (V340); |
base[2]= (V350); |
3893 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3894 |
(void) (*Lnk377)(); |
(void) (*Lnk389)(); |
3895 |
vs_top=sup; |
vs_top=sup; |
3896 |
{object V342; |
{object V353; |
3897 |
V342= list(2,VV[185],(V340)); |
V353= list(2,VV[189],(V350)); |
3898 |
setq(VV[107],make_cons((V342),symbol_value(VV[107])));} |
(VV[109]->s.s_dbind)= make_cons((V353),(VV[109]->s.s_dbind));} |
3899 |
base[1]= list(4,VV[186],(V340),(V337),(V339)); |
base[1]= list(4,VV[190],(V350),(V347),(V349)); |
3900 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3901 |
(void) (*Lnk364)(); |
(void) (*Lnk375)(); |
3902 |
return;}} |
return;}} |
3903 |
} |
} |
3904 |
} |
} |
3905 |
/* function definition for LOOP-DO-ALWAYS */ |
/* function definition for LOOP-DO-ALWAYS */ |
3906 |
|
|
3907 |
static void L77() |
static void L83() |
3908 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3909 |
register object *sup=base+VM66; VC66 |
register object *sup=base+VM72; VC72 |
3910 |
vs_reserve(VM66); |
vs_check; |
3911 |
{object V343; |
{object V354; |
3912 |
object V344; |
object V355; |
3913 |
check_arg(2); |
V354=(base[0]); |
3914 |
V343=(base[0]); |
V355=(base[1]); |
|
V344=(base[1]); |
|
3915 |
vs_top=sup; |
vs_top=sup; |
3916 |
goto TTL; |
goto TTL; |
3917 |
TTL:; |
TTL:; |
3918 |
{object V345; |
{object V356; |
3919 |
vs_base=vs_top; |
vs_base=vs_top; |
3920 |
(void) (*Lnk361)(); |
(void) (*Lnk363)(); |
3921 |
vs_top=sup; |
vs_top=sup; |
3922 |
V345= vs_base[0]; |
V356= vs_base[0]; |
3923 |
if(((V343))==Cnil){ |
if(((V354))==Cnil){ |
3924 |
goto T1285;} |
goto T1358;} |
3925 |
vs_base=vs_top; |
vs_base=vs_top; |
3926 |
(void) (*Lnk362)(); |
(void) (*Lnk373)(); |
3927 |
vs_top=sup; |
vs_top=sup; |
3928 |
goto T1285; |
goto T1358; |
3929 |
T1285:; |
T1358:; |
3930 |
if(((V344))==Cnil){ |
vs_base=vs_top; |
3931 |
goto T1292;} |
(void) (*Lnk390)(); |
3932 |
V346= VV[8]; |
vs_top=sup; |
3933 |
goto T1290; |
if(((V355))==Cnil){ |
3934 |
goto T1292; |
goto T1366;} |
3935 |
T1292:; |
V357= VV[8]; |
3936 |
V346= VV[187]; |
goto T1364; |
3937 |
goto T1290; |
goto T1366; |
3938 |
T1290:; |
T1366:; |
3939 |
|
V357= VV[191]; |
3940 |
|
goto T1364; |
3941 |
|
T1364:; |
3942 |
base[3]= Cnil; |
base[3]= Cnil; |
3943 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3944 |
(void) (*Lnk355)(); |
(void) (*Lnk366)(); |
3945 |
vs_top=sup; |
vs_top=sup; |
3946 |
V347= vs_base[0]; |
V358= vs_base[0]; |
3947 |
base[2]= list(3,V346,(V345),V347); |
base[2]= list(3,V357,(V356),V358); |
3948 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3949 |
(void) (*Lnk364)(); |
(void) (*Lnk375)(); |
3950 |
vs_top=sup; |
vs_top=sup; |
3951 |
base[2]= Ct; |
base[2]= Ct; |
3952 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3953 |
(void) (*Lnk372)(); |
(void) (*Lnk384)(); |
3954 |
return;} |
return;} |
3955 |
} |
} |
3956 |
} |
} |
3957 |
/* function definition for LOOP-DO-THEREIS */ |
/* function definition for LOOP-DO-THEREIS */ |
3958 |
|
|
3959 |
static void L78() |
static void L84() |
3960 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3961 |
register object *sup=base+VM67; VC67 |
register object *sup=base+VM73; VC73 |
3962 |
vs_reserve(VM67); |
vs_check; |
3963 |
{object V348; |
{object V359; |
3964 |
check_arg(1); |
V359=(base[0]); |
|
V348=(base[0]); |
|
3965 |
vs_top=sup; |
vs_top=sup; |
3966 |
goto TTL; |
goto TTL; |
3967 |
TTL:; |
TTL:; |
3968 |
if(((V348))==Cnil){ |
if(((V359))==Cnil){ |
3969 |
goto T1297;} |
goto T1371;} |
3970 |
vs_base=vs_top; |
vs_base=vs_top; |
3971 |
(void) (*Lnk362)(); |
(void) (*Lnk373)(); |
3972 |
vs_top=sup; |
vs_top=sup; |
3973 |
goto T1297; |
goto T1371; |
3974 |
T1297:; |
T1371:; |
3975 |
vs_base=vs_top; |
vs_base=vs_top; |
3976 |
(void) (*Lnk378)(); |
(void) (*Lnk390)(); |
3977 |
vs_top=sup; |
vs_top=sup; |
|
V349= vs_base[0]; |
|
3978 |
vs_base=vs_top; |
vs_base=vs_top; |
3979 |
(void) (*Lnk361)(); |
(void) (*Lnk384)(); |
3980 |
vs_top=sup; |
vs_top=sup; |
3981 |
V350= vs_base[0]; |
vs_base=vs_top; |
3982 |
V351= list(3,VV[11],V349,V350); |
(void) (*Lnk391)(); |
|
base[2]= symbol_value(VV[116]); |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
(void) (*Lnk355)(); |
|
3983 |
vs_top=sup; |
vs_top=sup; |
3984 |
V352= vs_base[0]; |
V360= vs_base[0]; |
3985 |
base[1]= list(3,VV[8],/* INLINE-ARGS */V351,V352); |
vs_base=vs_top; |
3986 |
vs_top=(vs_base=base+1)+1; |
(void) (*Lnk363)(); |
|
(void) (*Lnk364)(); |
|
3987 |
vs_top=sup; |
vs_top=sup; |
3988 |
base[1]= Cnil; |
V361= vs_base[0]; |
3989 |
|
V362= list(3,VV[11],V360,V361); |
3990 |
|
base[2]= (VV[118]->s.s_dbind); |
3991 |
|
vs_top=(vs_base=base+2)+1; |
3992 |
|
(void) (*Lnk366)(); |
3993 |
|
vs_top=sup; |
3994 |
|
V363= vs_base[0]; |
3995 |
|
base[1]= list(3,VV[8],/* INLINE-ARGS */V362,V363); |
3996 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3997 |
(void) (*Lnk372)(); |
(void) (*Lnk375)(); |
3998 |
return; |
return; |
3999 |
} |
} |
4000 |
} |
} |
4001 |
/* function definition for LOOP-DO-WHILE */ |
/* function definition for LOOP-DO-WHILE */ |
4002 |
|
|
4003 |
static void L79() |
static void L85() |
4004 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4005 |
register object *sup=base+VM68; VC68 |
register object *sup=base+VM74; VC74 |
4006 |
vs_reserve(VM68); |
vs_check; |
4007 |
{object V353; |
{object V364; |
4008 |
object V354; |
object V365; |
4009 |
check_arg(2); |
V364=(base[0]); |
4010 |
V353=(base[0]); |
V365=(base[1]); |
|
V354=(base[1]); |
|
4011 |
vs_top=sup; |
vs_top=sup; |
4012 |
goto TTL; |
goto TTL; |
4013 |
TTL:; |
TTL:; |
4014 |
{object V355; |
{object V366; |
4015 |
vs_base=vs_top; |
vs_base=vs_top; |
4016 |
(void) (*Lnk361)(); |
(void) (*Lnk363)(); |
4017 |
vs_top=sup; |
vs_top=sup; |
4018 |
V355= vs_base[0]; |
V366= vs_base[0]; |
4019 |
base[3]= (V354); |
base[3]= (V365); |
4020 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4021 |
(void) (*Lnk362)(); |
(void) (*Lnk373)(); |
4022 |
vs_top=sup; |
vs_top=sup; |
4023 |
if(((V353))==Cnil){ |
if(((V364))==Cnil){ |
4024 |
goto T1313;} |
goto T1387;} |
4025 |
V356= VV[8]; |
V367= VV[8]; |
4026 |
goto T1311; |
goto T1385; |
4027 |
goto T1313; |
goto T1387; |
4028 |
T1313:; |
T1387:; |
4029 |
V356= VV[187]; |
V367= VV[191]; |
4030 |
goto T1311; |
goto T1385; |
4031 |
T1311:; |
T1385:; |
4032 |
base[3]= list(3,V356,(V355),VV[188]); |
base[3]= list(3,V367,(V366),VV[192]); |
4033 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4034 |
(void) (*Lnk354)(); |
(void) (*Lnk365)(); |
4035 |
return;} |
return;} |
4036 |
} |
} |
4037 |
} |
} |
4038 |
/* function definition for LOOP-DO-WITH */ |
/* function definition for LOOP-DO-WITH */ |
4039 |
|
|
4040 |
static void L80() |
static void L86() |
4041 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4042 |
register object *sup=base+VM69; VC69 |
register object *sup=base+VM75; VC75 |
4043 |
vs_reserve(VM69); |
vs_check; |
|
check_arg(0); |
|
4044 |
vs_top=sup; |
vs_top=sup; |
4045 |
goto TTL; |
goto TTL; |
4046 |
TTL:; |
TTL:; |
4047 |
base[0]= VV[189]; |
base[0]= VV[193]; |
4048 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4049 |
(void) (*Lnk362)(); |
(void) (*Lnk373)(); |
4050 |
vs_top=sup; |
vs_top=sup; |
4051 |
{register object V357; |
{register object V368; |
4052 |
register object V358; |
register object V369; |
4053 |
register object V359; |
register object V370; |
4054 |
V357= Cnil; |
V368= Cnil; |
4055 |
V358= Cnil; |
V369= Cnil; |
4056 |
V359= Cnil; |
V370= Cnil; |
4057 |
goto T1318; |
goto T1392; |
4058 |
T1318:; |
T1392:; |
4059 |
vs_base=vs_top; |
vs_base=vs_top; |
4060 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
4061 |
vs_top=sup; |
vs_top=sup; |
4062 |
V357= vs_base[0]; |
V368= vs_base[0]; |
4063 |
base[0]= (V357); |
base[0]= (V368); |
4064 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4065 |
(void) (*Lnk367)(); |
(void) (*Lnk378)(); |
4066 |
vs_top=sup; |
vs_top=sup; |
4067 |
V359= vs_base[0]; |
V370= vs_base[0]; |
4068 |
base[0]= car(symbol_value(VV[89])); |
base[0]= CMPcar((VV[88]->s.s_dbind)); |
4069 |
base[1]= VV[190]; |
base[1]= VV[194]; |
4070 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4071 |
(void) (*Lnk357)(); |
(void) (*Lnk369)(); |
4072 |
vs_top=sup; |
vs_top=sup; |
4073 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4074 |
goto T1329;} |
goto T1403;} |
4075 |
vs_base=vs_top; |
vs_base=vs_top; |
4076 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
4077 |
vs_top=sup; |
vs_top=sup; |
4078 |
vs_base=vs_top; |
vs_base=vs_top; |
4079 |
(void) (*Lnk361)(); |
(void) (*Lnk363)(); |
4080 |
vs_top=sup; |
vs_top=sup; |
4081 |
V358= vs_base[0]; |
V369= vs_base[0]; |
4082 |
goto T1327; |
goto T1401; |
4083 |
goto T1329; |
goto T1403; |
4084 |
T1329:; |
T1403:; |
4085 |
V358= Cnil; |
V369= Cnil; |
4086 |
goto T1327; |
goto T1401; |
4087 |
T1327:; |
T1401:; |
4088 |
base[0]= (V357); |
if(((V368))==Cnil){ |
4089 |
base[1]= (V358); |
goto T1408;} |
4090 |
base[2]= (V359); |
base[0]= (V368); |
4091 |
|
vs_top=(vs_base=base+0)+1; |
4092 |
|
(void) (*Lnk381)(); |
4093 |
|
vs_top=sup; |
4094 |
|
if((vs_base[0])==Cnil){ |
4095 |
|
goto T1408;} |
4096 |
|
base[0]= VV[195]; |
4097 |
|
base[1]= (V368); |
4098 |
|
vs_top=(vs_base=base+0)+2; |
4099 |
|
(void) (*Lnk354)(); |
4100 |
|
vs_top=sup; |
4101 |
|
goto T1408; |
4102 |
|
T1408:; |
4103 |
|
base[0]= (V368); |
4104 |
|
base[1]= (V369); |
4105 |
|
base[2]= (V370); |
4106 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
4107 |
(void) (*Lnk359)(); |
(void) (*Lnk371)(); |
4108 |
vs_top=sup; |
vs_top=sup; |
4109 |
base[0]= car(symbol_value(VV[89])); |
base[0]= CMPcar((VV[88]->s.s_dbind)); |
4110 |
base[1]= VV[155]; |
base[1]= VV[158]; |
4111 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4112 |
(void) (*Lnk357)(); |
(void) (*Lnk369)(); |
4113 |
vs_top=sup; |
vs_top=sup; |
4114 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4115 |
goto T1340;} |
goto T1422;} |
4116 |
vs_base=vs_top; |
vs_base=vs_top; |
4117 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
4118 |
vs_top=sup; |
vs_top=sup; |
4119 |
goto T1338; |
goto T1420; |
4120 |
goto T1340; |
goto T1422; |
4121 |
T1340:; |
T1422:; |
4122 |
vs_base=vs_top; |
vs_base=vs_top; |
4123 |
(void) (*Lnk349)(); |
(void) (*Lnk358)(); |
4124 |
return; |
return; |
4125 |
goto T1338; |
goto T1420; |
4126 |
T1338:; |
T1420:; |
4127 |
goto T1318;} |
goto T1392;} |
4128 |
} |
} |
4129 |
/* function definition for LOOP-HACK-ITERATION */ |
/* function definition for LOOP-HACK-ITERATION */ |
4130 |
|
|
4131 |
static void L81() |
static void L87() |
4132 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4133 |
register object *sup=base+VM70; VC70 |
register object *sup=base+VM76; VC76 |
4134 |
vs_reserve(VM70); |
vs_check; |
4135 |
{register object V360; |
{register object V371; |
4136 |
check_arg(1); |
V371=(base[0]); |
|
V360=(base[0]); |
|
4137 |
vs_top=sup; |
vs_top=sup; |
4138 |
goto TTL; |
goto TTL; |
4139 |
TTL:; |
TTL:; |
4140 |
{register object V361; |
{register object V372; |
4141 |
register object V362; |
register object V373; |
4142 |
register object V363; |
register object V374; |
4143 |
register object V364; |
register object V375; |
4144 |
register object V365; |
register object V376; |
4145 |
register object V366; |
register object V377; |
4146 |
register object V367; |
register object V378; |
4147 |
register object V368; |
register object V379; |
4148 |
register object V369; |
register object V380; |
4149 |
object V370; |
object V381; |
4150 |
V361= Cnil; |
V372= Cnil; |
4151 |
V362= Cnil; |
V373= Cnil; |
4152 |
V363= Cnil; |
V374= Cnil; |
4153 |
V364= Cnil; |
V375= Cnil; |
4154 |
V365= Cnil; |
V376= Cnil; |
4155 |
V366= Cnil; |
V377= Cnil; |
4156 |
V367= Cnil; |
V378= Cnil; |
4157 |
V368= Cnil; |
V379= Cnil; |
4158 |
V369= Cnil; |
V380= Cnil; |
4159 |
V370= Cnil; |
V381= Cnil; |
4160 |
goto T1347; |
goto T1429; |
4161 |
T1347:; |
T1429:; |
4162 |
base[2]= car((V360)); |
base[2]= CMPcar((V371)); |
4163 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4164 |
Lsymbol_function(); |
Lsymbol_function(); |
4165 |
vs_top=sup; |
vs_top=sup; |
4166 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
4167 |
{object V371; |
{object V382; |
4168 |
V371= cdr((V360)); |
V382= CMPcdr((V371)); |
4169 |
vs_top=base+2; |
vs_top=base+2; |
4170 |
while(!endp(V371)) |
while(V382!=Cnil) |
4171 |
{vs_push(car(V371));V371=cdr(V371);} |
{vs_push((V382)->c.c_car);V382=(V382)->c.c_cdr;} |
4172 |
vs_base=base+2;} |
vs_base=base+2;} |
4173 |
super_funcall_no_event(base[1]); |
super_funcall_no_event(base[1]); |
4174 |
vs_top=sup; |
vs_top=sup; |
4175 |
V370= vs_base[0]; |
V381= vs_base[0]; |
4176 |
V369= (V370); |
V380= (V381); |
4177 |
if((car((V369)))!=Cnil){ |
if((CMPcar((V380)))!=Cnil){ |
4178 |
goto T1357;} |
goto T1439;} |
4179 |
goto T1356; |
goto T1438; |
4180 |
goto T1357; |
goto T1439; |
4181 |
T1357:; |
T1439:; |
4182 |
{object V372; |
{object V383; |
4183 |
V372= car((V369)); |
V383= CMPcar((V380)); |
4184 |
V361= make_cons((V372),(V361));} |
V372= make_cons((V383),(V372));} |
4185 |
goto T1356; |
goto T1438; |
4186 |
T1356:; |
T1438:; |
4187 |
V369= cdr((V369)); |
V380= CMPcdr((V380)); |
4188 |
base[1]= car((V369)); |
base[1]= CMPcar((V380)); |
4189 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4190 |
Lcopy_list(); |
Lcopy_list(); |
4191 |
vs_top=sup; |
vs_top=sup; |
4192 |
V373= vs_base[0]; |
V384= vs_base[0]; |
4193 |
V362= nconc((V362),V373); |
V373= nconc((V373),V384); |
4194 |
V369= cdr((V369)); |
V380= CMPcdr((V380)); |
4195 |
if((car((V369)))!=Cnil){ |
if((CMPcar((V380)))!=Cnil){ |
4196 |
goto T1367;} |
goto T1449;} |
4197 |
goto T1366; |
goto T1448; |
4198 |
goto T1367; |
goto T1449; |
4199 |
T1367:; |
T1449:; |
4200 |
{object V374; |
{object V385; |
4201 |
V374= car((V369)); |
V385= CMPcar((V380)); |
4202 |
V363= make_cons((V374),(V363));} |
V374= make_cons((V385),(V374));} |
4203 |
goto T1366; |
goto T1448; |
4204 |
T1366:; |
T1448:; |
4205 |
V369= cdr((V369)); |
V380= CMPcdr((V380)); |
4206 |
base[1]= car((V369)); |
base[1]= CMPcar((V380)); |
4207 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4208 |
Lcopy_list(); |
Lcopy_list(); |
4209 |
vs_top=sup; |
vs_top=sup; |
4210 |
V375= vs_base[0]; |
V386= vs_base[0]; |
4211 |
V364= nconc((V364),V375); |
V375= nconc((V375),V386); |
4212 |
V369= cdr((V369)); |
V380= CMPcdr((V380)); |
4213 |
if((symbol_value(VV[110]))==Cnil){ |
if(((VV[112]->s.s_dbind))==Cnil){ |
4214 |
goto T1379;} |
goto T1461;} |
4215 |
base[1]= VV[191]; |
base[1]= VV[196]; |
4216 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4217 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
4218 |
vs_top=sup; |
vs_top=sup; |
4219 |
goto T1379; |
goto T1461; |
4220 |
T1379:; |
T1461:; |
4221 |
if(((V369))!=Cnil){ |
if(((V380))!=Cnil){ |
4222 |
goto T1383;} |
goto T1465;} |
4223 |
V369= (V370); |
V380= (V381); |
4224 |
goto T1383; |
goto T1465; |
4225 |
T1383:; |
T1465:; |
4226 |
if((car((V369)))==Cnil){ |
if((CMPcar((V380)))==Cnil){ |
4227 |
goto T1387;} |
goto T1469;} |
4228 |
{object V376; |
{object V387; |
4229 |
V376= car((V369)); |
V387= CMPcar((V380)); |
4230 |
V365= make_cons((V376),(V365));} |
V376= make_cons((V387),(V376));} |
4231 |
goto T1387; |
goto T1469; |
4232 |
T1387:; |
T1469:; |
4233 |
V369= cdr((V369)); |
V380= CMPcdr((V380)); |
4234 |
base[1]= car((V369)); |
base[1]= CMPcar((V380)); |
4235 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4236 |
Lcopy_list(); |
Lcopy_list(); |
4237 |
vs_top=sup; |
vs_top=sup; |
4238 |
V377= vs_base[0]; |
V388= vs_base[0]; |
4239 |
V366= nconc((V366),V377); |
V377= nconc((V377),V388); |
4240 |
V369= cdr((V369)); |
V380= CMPcdr((V380)); |
4241 |
if((car((V369)))==Cnil){ |
if((CMPcar((V380)))==Cnil){ |
4242 |
goto T1397;} |
goto T1479;} |
4243 |
{object V378; |
{object V389; |
4244 |
V378= car((V369)); |
V389= CMPcar((V380)); |
4245 |
V367= make_cons((V378),(V367));} |
V378= make_cons((V389),(V378));} |
4246 |
goto T1397; |
goto T1479; |
4247 |
T1397:; |
T1479:; |
4248 |
base[1]= cadr((V369)); |
base[1]= CMPcadr((V380)); |
4249 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4250 |
Lcopy_list(); |
Lcopy_list(); |
4251 |
vs_top=sup; |
vs_top=sup; |
4252 |
V379= vs_base[0]; |
V390= vs_base[0]; |
4253 |
V368= nconc((V368),V379); |
V379= nconc((V379),V390); |
4254 |
base[1]= car(symbol_value(VV[89])); |
base[1]= CMPcar((VV[88]->s.s_dbind)); |
4255 |
base[2]= VV[155]; |
base[2]= VV[158]; |
4256 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
4257 |
(void) (*Lnk357)(); |
(void) (*Lnk369)(); |
4258 |
vs_top=sup; |
vs_top=sup; |
4259 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
4260 |
goto T1407;} |
goto T1489;} |
4261 |
base[1]= (V368); |
base[1]= (V379); |
4262 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4263 |
(void) (*Lnk337)(); |
(void) (*Lnk344)(); |
4264 |
vs_top=sup; |
vs_top=sup; |
4265 |
V380= vs_base[0]; |
V391= vs_base[0]; |
4266 |
base[1]= (V367); |
base[1]= (V378); |
4267 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4268 |
L82(base); |
L88(base); |
4269 |
vs_top=sup; |
vs_top=sup; |
4270 |
V381= vs_base[0]; |
V392= vs_base[0]; |
4271 |
base[1]= (V366); |
base[1]= (V377); |
4272 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4273 |
(void) (*Lnk336)(); |
(void) (*Lnk343)(); |
4274 |
vs_top=sup; |
vs_top=sup; |
4275 |
V382= vs_base[0]; |
V393= vs_base[0]; |
4276 |
base[1]= (V365); |
base[1]= (V376); |
4277 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4278 |
L82(base); |
L88(base); |
4279 |
vs_top=sup; |
vs_top=sup; |
4280 |
V383= vs_base[0]; |
V394= vs_base[0]; |
4281 |
setq(VV[108],listA(5,V380,V381,V382,V383,symbol_value(VV[108]))); |
(VV[110]->s.s_dbind)= listA(5,V391,V392,V393,V394,(VV[110]->s.s_dbind)); |
4282 |
base[1]= (V364); |
base[1]= (V375); |
4283 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4284 |
(void) (*Lnk337)(); |
(void) (*Lnk344)(); |
4285 |
vs_top=sup; |
vs_top=sup; |
4286 |
V384= vs_base[0]; |
V395= vs_base[0]; |
4287 |
base[1]= (V363); |
base[1]= (V374); |
4288 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4289 |
L82(base); |
L88(base); |
4290 |
vs_top=sup; |
vs_top=sup; |
4291 |
V385= vs_base[0]; |
V396= vs_base[0]; |
4292 |
base[1]= (V362); |
base[1]= (V373); |
4293 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4294 |
(void) (*Lnk336)(); |
(void) (*Lnk343)(); |
4295 |
vs_top=sup; |
vs_top=sup; |
4296 |
V386= vs_base[0]; |
V397= vs_base[0]; |
4297 |
base[1]= (V361); |
base[1]= (V372); |
4298 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4299 |
L82(base); |
L88(base); |
4300 |
vs_top=sup; |
vs_top=sup; |
4301 |
V387= vs_base[0]; |
V398= vs_base[0]; |
4302 |
setq(VV[111],listA(5,V384,V385,V386,V387,symbol_value(VV[111]))); |
(VV[113]->s.s_dbind)= listA(5,V395,V396,V397,V398,(VV[113]->s.s_dbind)); |
4303 |
vs_base=vs_top; |
vs_base=vs_top; |
4304 |
(void) (*Lnk349)(); |
(void) (*Lnk358)(); |
4305 |
vs_top=sup; |
vs_top=sup; |
4306 |
base[1]= Cnil; |
base[1]= Cnil; |
4307 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4308 |
return; |
return; |
4309 |
goto T1407; |
goto T1489; |
4310 |
T1407:; |
T1489:; |
4311 |
vs_base=vs_top; |
vs_base=vs_top; |
4312 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
4313 |
vs_top=sup; |
vs_top=sup; |
4314 |
if((structure_ref(symbol_value(VV[97]),VV[39],7))!=Cnil){ |
if((STREF(object,(VV[99]->s.s_dbind),28))!=Cnil){ |
4315 |
goto T1434;} |
goto T1516;} |
4316 |
base[1]= car(symbol_value(VV[89])); |
base[1]= CMPcar((VV[88]->s.s_dbind)); |
4317 |
base[2]= structure_ref(symbol_value(VV[97]),VV[39],1); |
base[2]= STREF(object,(VV[99]->s.s_dbind),4); |
4318 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
4319 |
(void) (*Lnk351)(); |
(void) (*Lnk360)(); |
4320 |
vs_top=sup; |
vs_top=sup; |
4321 |
V369= vs_base[0]; |
V380= vs_base[0]; |
4322 |
if(((V369))==Cnil){ |
if(((V380))==Cnil){ |
4323 |
goto T1434;} |
goto T1516;} |
4324 |
vs_base=vs_top; |
vs_base=vs_top; |
4325 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
4326 |
vs_top=sup; |
vs_top=sup; |
4327 |
V360= (V369); |
V371= (V380); |
4328 |
goto T1434; |
goto T1516; |
4329 |
T1434:; |
T1516:; |
4330 |
goto T1347;} |
goto T1429;} |
4331 |
} |
} |
4332 |
} |
} |
4333 |
/* function definition for LOOP-DO-FOR */ |
/* function definition for LOOP-DO-FOR */ |
4334 |
|
|
4335 |
static void L83() |
static void L89() |
4336 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4337 |
register object *sup=base+VM71; VC71 |
register object *sup=base+VM77; VC77 |
4338 |
vs_reserve(VM71); |
vs_check; |
|
check_arg(0); |
|
4339 |
vs_top=sup; |
vs_top=sup; |
4340 |
goto TTL; |
goto TTL; |
4341 |
TTL:; |
TTL:; |
4342 |
{object V388; |
{object V399; |
4343 |
object V389; |
object V400; |
4344 |
object V390; |
object V401; |
4345 |
object V391; |
object V402; |
4346 |
object V392; |
object V403; |
4347 |
vs_base=vs_top; |
vs_base=vs_top; |
4348 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
4349 |
vs_top=sup; |
vs_top=sup; |
4350 |
V388= vs_base[0]; |
V399= vs_base[0]; |
4351 |
base[3]= (V388); |
base[3]= (V399); |
4352 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4353 |
(void) (*Lnk367)(); |
(void) (*Lnk378)(); |
4354 |
vs_top=sup; |
vs_top=sup; |
4355 |
V389= vs_base[0]; |
V400= vs_base[0]; |
4356 |
vs_base=vs_top; |
vs_base=vs_top; |
4357 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
4358 |
vs_top=sup; |
vs_top=sup; |
4359 |
V390= vs_base[0]; |
V401= vs_base[0]; |
4360 |
V391= Cnil; |
V402= Cnil; |
4361 |
V392= Cnil; |
V403= Cnil; |
4362 |
vs_base=vs_top; |
vs_base=vs_top; |
4363 |
(void) (*Lnk361)(); |
(void) (*Lnk363)(); |
4364 |
vs_top=sup; |
vs_top=sup; |
4365 |
V391= vs_base[0]; |
V402= vs_base[0]; |
4366 |
if(!(type_of((V390))==t_symbol)){ |
if(!(type_of((V401))==t_symbol)){ |
4367 |
goto T1455;} |
goto T1537;} |
4368 |
base[3]= (V390); |
base[3]= (V401); |
4369 |
base[4]= structure_ref(symbol_value(VV[97]),VV[39],2); |
base[4]= STREF(object,(VV[99]->s.s_dbind),8); |
4370 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4371 |
(void) (*Lnk351)(); |
(void) (*Lnk360)(); |
4372 |
vs_top=sup; |
vs_top=sup; |
4373 |
V392= vs_base[0]; |
V403= vs_base[0]; |
4374 |
if(((V392))!=Cnil){ |
if(((V403))!=Cnil){ |
4375 |
goto T1454;} |
goto T1536;} |
4376 |
goto T1455; |
goto T1537; |
4377 |
T1455:; |
T1537:; |
4378 |
base[3]= VV[194]; |
base[3]= VV[199]; |
4379 |
base[4]= (V390); |
base[4]= (V401); |
4380 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4381 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
4382 |
vs_top=sup; |
vs_top=sup; |
4383 |
goto T1454; |
goto T1536; |
4384 |
T1454:; |
T1536:; |
4385 |
base[3]= car((V392)); |
base[3]= CMPcar((V403)); |
4386 |
base[4]= (V388); |
base[4]= (V399); |
4387 |
base[5]= (V391); |
base[5]= (V402); |
4388 |
base[6]= (V389); |
base[6]= (V400); |
4389 |
{object V393; |
{object V404; |
4390 |
V393= cdr((V392)); |
V404= CMPcdr((V403)); |
4391 |
vs_top=base+7; |
vs_top=base+7; |
4392 |
while(!endp(V393)) |
while(V404!=Cnil) |
4393 |
{vs_push(car(V393));V393=cdr(V393);} |
{vs_push((V404)->c.c_car);V404=(V404)->c.c_cdr;} |
4394 |
vs_base=base+4;} |
vs_base=base+4;} |
4395 |
super_funcall_no_event(base[3]); |
super_funcall_no_event(base[3]); |
4396 |
return;} |
return;} |
4397 |
} |
} |
4398 |
/* function definition for LOOP-DO-REPEAT */ |
/* function definition for LOOP-DO-REPEAT */ |
4399 |
|
|
4400 |
static void L84() |
static void L90() |
4401 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4402 |
register object *sup=base+VM72; VC72 |
register object *sup=base+VM78; VC78 |
4403 |
vs_reserve(VM72); |
vs_check; |
|
check_arg(0); |
|
4404 |
vs_top=sup; |
vs_top=sup; |
4405 |
goto TTL; |
goto TTL; |
4406 |
TTL:; |
TTL:; |
4407 |
{register object V394; |
base[0]= VV[200]; |
4408 |
register object V395; |
vs_top=(vs_base=base+0)+1; |
4409 |
vs_base=vs_top; |
(void) (*Lnk373)(); |
|
(void) (*Lnk361)(); |
|
4410 |
vs_top=sup; |
vs_top=sup; |
4411 |
V394= vs_base[0]; |
{object V405; |
4412 |
vs_base=vs_top; |
vs_base=vs_top; |
4413 |
(void) (*Lnk367)(); |
(void) (*Lnk363)(); |
|
vs_top=sup; |
|
|
base[0]= vs_base[0]; |
|
|
base[1]= symbol_value(VV[183]); |
|
|
vs_top=(vs_base=base+0)+2; |
|
|
(void) (*Lnk375)(); |
|
|
vs_top=sup; |
|
|
V395= vs_base[0]; |
|
|
if(!(type_of((V394))==t_cons)){ |
|
|
goto T1473;} |
|
|
if(!((car((V394)))==(VV[195]))){ |
|
|
goto T1473;} |
|
|
base[0]= cadr((V394)); |
|
|
base[1]= (V395); |
|
|
vs_top=(vs_base=base+0)+2; |
|
|
(void) (*Lnk326)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T1473;} |
|
|
V395= cadr((V394)); |
|
|
goto T1473; |
|
|
T1473:; |
|
|
{object V396; |
|
|
object V397; |
|
|
object V398; |
|
|
base[0]= (V394); |
|
|
base[1]= (V395); |
|
|
vs_top=(vs_base=base+0)+2; |
|
|
(void) (*Lnk379)(); |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T1486;} |
|
|
V396= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T1487;} |
|
|
V397= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T1488;} |
|
|
V398= vs_base[0]; |
|
4414 |
vs_top=sup; |
vs_top=sup; |
4415 |
goto T1489; |
V405= vs_base[0]; |
4416 |
goto T1486; |
{object V407; |
4417 |
T1486:; |
vs_base=vs_top; |
4418 |
V396= Cnil; |
(void) (*Lnk334)(); |
|
goto T1487; |
|
|
T1487:; |
|
|
V397= Cnil; |
|
|
goto T1488; |
|
|
T1488:; |
|
|
V398= Cnil; |
|
|
goto T1489; |
|
|
T1489:; |
|
|
if(((V397))==Cnil){ |
|
|
goto T1491;} |
|
|
if(!(number_compare((V398),small_fixnum(1))<=0)){ |
|
|
goto T1491;} |
|
|
base[0]= listA(6,Ct,Cnil,Cnil,Cnil,(number_compare((V398),small_fixnum(0))<=0?Ct:Cnil),VV[196]); |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
return; |
|
|
goto T1491; |
|
|
T1491:; |
|
|
{register object V399; |
|
|
base[1]= VV[197]; |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
(void) (*Lnk327)(); |
|
4419 |
vs_top=sup; |
vs_top=sup; |
4420 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
4421 |
base[1]= (V396); |
base[1]= (V405); |
4422 |
base[2]= (V395); |
base[2]= VV[201]; |
4423 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
4424 |
(void) (*Lnk359)(); |
(void) (*Lnk371)(); |
4425 |
vs_top=sup; |
vs_top=sup; |
4426 |
V399= vs_base[0]; |
V407= vs_base[0]; |
4427 |
if(((V397))==Cnil){ |
{object V408; |
4428 |
goto T1501;} |
V408= list(3,VV[8],list(2,VV[202],list(2,VV[203],(V407))),VV[204]); |
4429 |
V400= list(2,VV[36],list(2,VV[198],list(3,VV[11],(V399),list(2,VV[199],(V399))))); |
(VV[110]->s.s_dbind)= make_cons((V408),(VV[110]->s.s_dbind));} |
4430 |
base[0]= make_cons(/* INLINE-ARGS */V400,VV[200]); |
{object V409; |
4431 |
vs_top=(vs_base=base+0)+1; |
V409= list(3,VV[8],list(2,VV[202],list(2,VV[203],(V407))),VV[205]); |
4432 |
return; |
(VV[113]->s.s_dbind)= make_cons((V409),(VV[113]->s.s_dbind)); |
4433 |
goto T1501; |
base[1]= (VV[113]->s.s_dbind); |
4434 |
T1501:; |
vs_top=(vs_base=base+1)+1; |
|
V401= list(2,VV[201],list(3,VV[11],(V399),list(2,VV[199],(V399)))); |
|
|
base[0]= make_cons(/* INLINE-ARGS */V401,VV[202]); |
|
|
vs_top=(vs_base=base+0)+1; |
|
4435 |
return;}}} |
return;}}} |
4436 |
} |
} |
4437 |
/* function definition for LOOP-WHEN-IT-VARIABLE */ |
/* function definition for LOOP-WHEN-IT-VARIABLE */ |
4438 |
|
|
4439 |
static void L85() |
static void L91() |
4440 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4441 |
register object *sup=base+VM73; VC73 |
register object *sup=base+VM79; VC79 |
4442 |
vs_reserve(VM73); |
vs_check; |
|
check_arg(0); |
|
4443 |
vs_top=sup; |
vs_top=sup; |
4444 |
goto TTL; |
goto TTL; |
4445 |
TTL:; |
TTL:; |
4446 |
if(symbol_value(VV[116])!=Cnil){ |
if((VV[118]->s.s_dbind)!=Cnil){ |
4447 |
base[0]= symbol_value(VV[116]); |
base[0]= (VV[118]->s.s_dbind); |
4448 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4449 |
return;} |
return;} |
4450 |
base[1]= VV[203]; |
base[1]= VV[206]; |
4451 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4452 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
4453 |
vs_top=sup; |
vs_top=sup; |
4454 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
4455 |
base[1]= Cnil; |
base[1]= Cnil; |
4456 |
base[2]= Cnil; |
base[2]= Cnil; |
4457 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
4458 |
(void) (*Lnk359)(); |
(void) (*Lnk371)(); |
4459 |
vs_top=sup; |
vs_top=sup; |
4460 |
setq(VV[116],vs_base[0]); |
(VV[118]->s.s_dbind)= vs_base[0]; |
4461 |
base[0]= symbol_value(VV[116]); |
base[0]= (VV[118]->s.s_dbind); |
4462 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4463 |
return; |
return; |
4464 |
} |
} |
4465 |
/* function definition for LOOP-ANSI-FOR-EQUALS */ |
/* function definition for LOOP-ANSI-FOR-EQUALS */ |
4466 |
|
|
4467 |
static void L86() |
static void L92() |
4468 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4469 |
register object *sup=base+VM74; VC74 |
register object *sup=base+VM80; VC80 |
4470 |
vs_reserve(VM74); |
vs_check; |
4471 |
{register object V402; |
{register object V410; |
4472 |
object V403; |
object V411; |
4473 |
object V404; |
object V412; |
4474 |
check_arg(3); |
V410=(base[0]); |
4475 |
V402=(base[0]); |
V411=(base[1]); |
4476 |
V403=(base[1]); |
V412=(base[2]); |
|
V404=(base[2]); |
|
4477 |
vs_top=sup; |
vs_top=sup; |
4478 |
goto TTL; |
goto TTL; |
4479 |
TTL:; |
TTL:; |
4480 |
base[3]= (V402); |
base[3]= (V410); |
4481 |
base[4]= Cnil; |
base[4]= Cnil; |
4482 |
base[5]= (V404); |
base[5]= (V412); |
4483 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4484 |
(void) (*Lnk380)(); |
(void) (*Lnk392)(); |
4485 |
vs_top=sup; |
vs_top=sup; |
4486 |
base[3]= car(symbol_value(VV[89])); |
base[3]= CMPcar((VV[88]->s.s_dbind)); |
4487 |
base[4]= VV[204]; |
base[4]= VV[207]; |
4488 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4489 |
(void) (*Lnk357)(); |
(void) (*Lnk369)(); |
4490 |
vs_top=sup; |
vs_top=sup; |
4491 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4492 |
goto T1513;} |
goto T1573;} |
4493 |
vs_base=vs_top; |
vs_base=vs_top; |
4494 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
4495 |
vs_top=sup; |
vs_top=sup; |
4496 |
vs_base=vs_top; |
vs_base=vs_top; |
4497 |
(void) (*Lnk361)(); |
(void) (*Lnk363)(); |
4498 |
vs_top=sup; |
vs_top=sup; |
4499 |
V405= vs_base[0]; |
V413= vs_base[0]; |
4500 |
V406= list(2,(V402),V405); |
V414= list(2,(V410),V413); |
4501 |
base[3]= listA(7,Cnil,/* INLINE-ARGS */V406,Cnil,Cnil,Cnil,list(2,(V402),(V403)),VV[205]); |
base[3]= listA(7,Cnil,/* INLINE-ARGS */V414,Cnil,Cnil,Cnil,list(2,(V410),(V411)),VV[208]); |
4502 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4503 |
return; |
return; |
4504 |
goto T1513; |
goto T1573; |
4505 |
T1513:; |
T1573:; |
4506 |
base[3]= listA(3,Cnil,list(2,(V402),(V403)),VV[206]); |
base[3]= listA(3,Cnil,list(2,(V410),(V411)),VV[209]); |
4507 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4508 |
return; |
return; |
4509 |
} |
} |
4510 |
} |
} |
4511 |
/* function definition for LOOP-FOR-ACROSS */ |
/* function definition for LOOP-FOR-ACROSS */ |
4512 |
|
|
4513 |
static void L87() |
static void L93() |
4514 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4515 |
register object *sup=base+VM75; VC75 |
register object *sup=base+VM81; VC81 |
4516 |
vs_reserve(VM75); |
vs_check; |
4517 |
{object V407; |
{object V415; |
4518 |
object V408; |
object V416; |
4519 |
object V409; |
object V417; |
4520 |
check_arg(3); |
V415=(base[0]); |
4521 |
V407=(base[0]); |
V416=(base[1]); |
4522 |
V408=(base[1]); |
V417=(base[2]); |
|
V409=(base[2]); |
|
4523 |
vs_top=sup; |
vs_top=sup; |
4524 |
goto TTL; |
goto TTL; |
4525 |
TTL:; |
TTL:; |
4526 |
base[3]= (V407); |
base[3]= (V415); |
4527 |
base[4]= Cnil; |
base[4]= Cnil; |
4528 |
base[5]= (V409); |
base[5]= (V417); |
4529 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4530 |
(void) (*Lnk380)(); |
(void) (*Lnk392)(); |
4531 |
vs_top=sup; |
vs_top=sup; |
4532 |
{object V410; |
{object V418; |
4533 |
register object V411; |
register object V419; |
4534 |
base[3]= VV[207]; |
base[3]= VV[210]; |
4535 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4536 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
4537 |
vs_top=sup; |
vs_top=sup; |
4538 |
V410= vs_base[0]; |
V418= vs_base[0]; |
4539 |
base[3]= VV[208]; |
base[3]= VV[211]; |
4540 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4541 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
4542 |
vs_top=sup; |
vs_top=sup; |
4543 |
V411= vs_base[0]; |
V419= vs_base[0]; |
4544 |
{register object V412; |
{register object V420; |
4545 |
object V413; |
object V421; |
4546 |
object V414; |
object V422; |
4547 |
base[3]= (V408); |
base[3]= (V416); |
4548 |
base[4]= VV[209]; |
base[4]= VV[212]; |
4549 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
4550 |
(void) (*Lnk379)(); |
(void) (*Lnk393)(); |
4551 |
if(vs_base>=vs_top){vs_top=sup;goto T1530;} |
if(vs_base>=vs_top){vs_top=sup;goto T1590;} |
4552 |
V412= vs_base[0]; |
V420= vs_base[0]; |
4553 |
vs_base++; |
vs_base++; |
4554 |
if(vs_base>=vs_top){vs_top=sup;goto T1531;} |
if(vs_base>=vs_top){vs_top=sup;goto T1591;} |
4555 |
V413= vs_base[0]; |
V421= vs_base[0]; |
4556 |
vs_base++; |
vs_base++; |
4557 |
if(vs_base>=vs_top){vs_top=sup;goto T1532;} |
if(vs_base>=vs_top){vs_top=sup;goto T1592;} |
4558 |
V414= vs_base[0]; |
V422= vs_base[0]; |
4559 |
vs_top=sup; |
vs_top=sup; |
4560 |
goto T1533; |
goto T1593; |
4561 |
goto T1530; |
goto T1590; |
4562 |
T1530:; |
T1590:; |
4563 |
V412= Cnil; |
V420= Cnil; |
4564 |
goto T1531; |
goto T1591; |
4565 |
T1531:; |
T1591:; |
4566 |
V413= Cnil; |
V421= Cnil; |
4567 |
goto T1532; |
goto T1592; |
4568 |
T1532:; |
T1592:; |
4569 |
V414= Cnil; |
V422= Cnil; |
4570 |
goto T1533; |
goto T1593; |
4571 |
T1533:; |
T1593:; |
4572 |
base[3]= (V410); |
base[3]= (V418); |
4573 |
base[4]= (V412); |
base[4]= (V420); |
4574 |
if(!(type_of((V412))==t_cons)){ |
if(!(type_of((V420))==t_cons)){ |
4575 |
goto T1539;} |
goto T1599;} |
4576 |
if(!((car((V412)))==(VV[195]))){ |
if(!((CMPcar((V420)))==(VV[213]))){ |
4577 |
goto T1539;} |
goto T1599;} |
4578 |
base[5]= cadr((V412)); |
base[5]= CMPcadr((V420)); |
4579 |
goto T1537; |
goto T1597; |
4580 |
goto T1539; |
goto T1599; |
4581 |
T1539:; |
T1599:; |
4582 |
base[5]= VV[209]; |
base[5]= VV[212]; |
4583 |
goto T1537; |
goto T1597; |
4584 |
T1537:; |
T1597:; |
4585 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4586 |
(void) (*Lnk359)(); |
(void) (*Lnk371)(); |
4587 |
vs_top=sup; |
vs_top=sup; |
4588 |
base[3]= (V411); |
base[3]= (V419); |
4589 |
base[4]= small_fixnum(0); |
base[4]= small_fixnum(0); |
4590 |
base[5]= VV[210]; |
base[5]= VV[214]; |
4591 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4592 |
(void) (*Lnk359)(); |
(void) (*Lnk371)(); |
4593 |
vs_top=sup; |
vs_top=sup; |
4594 |
{long V415; |
{long V423; |
4595 |
object V416; |
object V424; |
4596 |
register object V417; |
register object V425; |
4597 |
object V418; |
object V426; |
4598 |
object V419; |
object V427; |
4599 |
object V420; |
object V428; |
4600 |
V415= 0; |
V423= 0; |
4601 |
if(((V413))!=Cnil){ |
if(((V421))!=Cnil){ |
4602 |
goto T1550;} |
goto T1610;} |
4603 |
{object V421; |
{object V429; |
4604 |
base[7]= VV[211]; |
base[7]= VV[215]; |
4605 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
4606 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
4607 |
vs_top=sup; |
vs_top=sup; |
4608 |
V421= vs_base[0]; |
V429= vs_base[0]; |
4609 |
{object V422; |
{object V430; |
4610 |
V422= list(3,VV[11],(V421),list(2,VV[212],(V410))); |
V430= list(3,VV[11],(V429),list(2,VV[216],(V418))); |
4611 |
setq(VV[106],make_cons((V422),symbol_value(VV[106])));} |
(VV[108]->s.s_dbind)= make_cons((V430),(VV[108]->s.s_dbind));} |
4612 |
base[7]= (V421); |
base[7]= (V429); |
4613 |
base[8]= small_fixnum(0); |
base[8]= small_fixnum(0); |
4614 |
base[9]= VV[210]; |
base[9]= VV[214]; |
4615 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
4616 |
(void) (*Lnk359)(); |
(void) (*Lnk371)(); |
4617 |
vs_top=sup; |
vs_top=sup; |
4618 |
V416= vs_base[0]; |
V424= vs_base[0]; |
4619 |
goto T1548;} |
goto T1608;} |
4620 |
goto T1550; |
goto T1610; |
4621 |
T1550:; |
T1610:; |
4622 |
V415= (long)length((V414)); |
V423= (long)length((V422)); |
4623 |
V416= make_fixnum(V415); |
V424= CMPmake_fixnum(V423); |
4624 |
goto T1548; |
goto T1608; |
4625 |
T1548:; |
T1608:; |
4626 |
V417= list(3,VV[213],(V411),(V416)); |
V425= list(3,VV[217],(V419),(V424)); |
4627 |
V418= (V417); |
V426= (V425); |
4628 |
V419= list(2,(V407),list(3,VV[214],(V410),(V411))); |
V427= list(2,(V415),list(3,VV[218],(V418),(V419))); |
4629 |
V420= list(2,(V411),list(2,VV[180],(V411))); |
V428= list(2,(V419),list(2,VV[184],(V419))); |
4630 |
if(((V413))==Cnil){ |
if(((V421))==Cnil){ |
4631 |
goto T1565;} |
goto T1625;} |
4632 |
V417= ((V415)==(0)?Ct:Cnil); |
V425= ((V423)==(0)?Ct:Cnil); |
4633 |
if(!((V415)<=(1))){ |
if(!((V423)<=(1))){ |
4634 |
goto T1565;} |
goto T1625;} |
4635 |
V418= Ct; |
V426= Ct; |
4636 |
goto T1565; |
goto T1625; |
4637 |
T1565:; |
T1625:; |
4638 |
if(((((V417))==((V418))?Ct:Cnil))==Cnil){ |
if(((((V425))==((V426))?Ct:Cnil))==Cnil){ |
4639 |
goto T1574;} |
goto T1634;} |
4640 |
V423= Cnil; |
V431= Cnil; |
4641 |
goto T1573; |
goto T1633; |
4642 |
goto T1574; |
goto T1634; |
4643 |
T1574:; |
T1634:; |
4644 |
V423= list(4,(V417),(V419),Cnil,(V420)); |
V431= list(4,(V425),(V427),Cnil,(V428)); |
4645 |
goto T1573; |
goto T1633; |
4646 |
T1573:; |
T1633:; |
4647 |
base[7]= listA(5,(V418),(V419),Cnil,(V420),V423); |
base[7]= listA(5,(V426),(V427),Cnil,(V428),V431); |
4648 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
4649 |
return;}}} |
return;}}} |
4650 |
} |
} |
4651 |
} |
} |
4652 |
/* function definition for LOOP-LIST-STEP */ |
/* function definition for LOOP-LIST-STEP */ |
4653 |
|
|
4654 |
static void L88() |
static void L94() |
4655 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4656 |
register object *sup=base+VM76; VC76 |
register object *sup=base+VM82; VC82 |
4657 |
vs_reserve(VM76); |
vs_check; |
4658 |
{object V424; |
{object V432; |
4659 |
check_arg(1); |
V432=(base[0]); |
|
V424=(base[0]); |
|
4660 |
vs_top=sup; |
vs_top=sup; |
4661 |
goto TTL; |
goto TTL; |
4662 |
TTL:; |
TTL:; |
4663 |
{register object V425; |
{register object V433; |
4664 |
base[1]= car(symbol_value(VV[89])); |
base[1]= CMPcar((VV[88]->s.s_dbind)); |
4665 |
base[2]= VV[215]; |
base[2]= VV[219]; |
4666 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
4667 |
(void) (*Lnk357)(); |
(void) (*Lnk369)(); |
4668 |
vs_top=sup; |
vs_top=sup; |
4669 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
4670 |
goto T1578;} |
goto T1638;} |
4671 |
vs_base=vs_top; |
vs_base=vs_top; |
4672 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
4673 |
vs_top=sup; |
vs_top=sup; |
4674 |
vs_base=vs_top; |
vs_base=vs_top; |
4675 |
(void) (*Lnk361)(); |
(void) (*Lnk363)(); |
4676 |
vs_top=sup; |
vs_top=sup; |
4677 |
V425= vs_base[0]; |
V433= vs_base[0]; |
4678 |
goto T1576; |
goto T1636; |
4679 |
goto T1578; |
goto T1638; |
4680 |
T1578:; |
T1638:; |
4681 |
V425= VV[216]; |
V433= VV[220]; |
4682 |
goto T1576; |
goto T1636; |
4683 |
T1576:; |
T1636:; |
4684 |
if(!(type_of((V425))==t_cons)){ |
if(!(type_of((V433))==t_cons)){ |
4685 |
goto T1584;} |
goto T1644;} |
4686 |
if(!((car((V425)))==(VV[217]))){ |
if(!((CMPcar((V433)))==(VV[221]))){ |
4687 |
goto T1584;} |
goto T1644;} |
4688 |
base[1]= VV[218]; |
base[1]= VV[222]; |
4689 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
4690 |
(void) (*Lnk338)(); |
(void) (*Lnk345)(); |
4691 |
vs_top=sup; |
vs_top=sup; |
4692 |
base[1]= list(3,VV[219],(V425),(V424)); |
base[1]= list(3,VV[223],(V433),(V432)); |
4693 |
base[2]= Cnil; |
base[2]= Cnil; |
4694 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
4695 |
return; |
return; |
4696 |
goto T1584; |
goto T1644; |
4697 |
T1584:; |
T1644:; |
4698 |
if(!(type_of((V425))==t_cons)){ |
if(!(type_of((V433))==t_cons)){ |
4699 |
goto T1593;} |
goto T1653;} |
4700 |
if(!((car((V425)))==(VV[83]))){ |
if(!((CMPcar((V433)))==(VV[83]))){ |
4701 |
goto T1593;} |
goto T1653;} |
4702 |
base[1]= list(2,cadr((V425)),(V424)); |
base[1]= list(2,CMPcadr((V433)),(V432)); |
4703 |
base[2]= cadr((V425)); |
base[2]= CMPcadr((V433)); |
4704 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
4705 |
return; |
return; |
4706 |
goto T1593; |
goto T1653; |
4707 |
T1593:; |
T1653:; |
4708 |
base[3]= VV[220]; |
base[3]= VV[224]; |
4709 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4710 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
4711 |
vs_top=sup; |
vs_top=sup; |
4712 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
4713 |
base[3]= (V425); |
base[3]= (V433); |
4714 |
base[4]= VV[83]; |
base[4]= VV[83]; |
4715 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
4716 |
(void) (*Lnk359)(); |
(void) (*Lnk371)(); |
4717 |
vs_top=sup; |
vs_top=sup; |
4718 |
V426= vs_base[0]; |
V434= vs_base[0]; |
4719 |
base[1]= list(3,VV[219],V426,(V424)); |
base[1]= list(3,VV[223],V434,(V432)); |
4720 |
base[2]= Cnil; |
base[2]= Cnil; |
4721 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
4722 |
return;} |
return;} |
4724 |
} |
} |
4725 |
/* function definition for LOOP-FOR-ON */ |
/* function definition for LOOP-FOR-ON */ |
4726 |
|
|
4727 |
static void L89() |
static void L95() |
4728 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4729 |
register object *sup=base+VM77; VC77 |
register object *sup=base+VM83; VC83 |
4730 |
vs_reserve(VM77); |
vs_check; |
4731 |
{register object V427; |
{register object V435; |
4732 |
object V428; |
object V436; |
4733 |
object V429; |
object V437; |
4734 |
check_arg(3); |
V435=(base[0]); |
4735 |
V427=(base[0]); |
V436=(base[1]); |
4736 |
V428=(base[1]); |
V437=(base[2]); |
|
V429=(base[2]); |
|
4737 |
vs_top=sup; |
vs_top=sup; |
4738 |
goto TTL; |
goto TTL; |
4739 |
TTL:; |
TTL:; |
4740 |
{object V430; |
{object V438; |
4741 |
object V431; |
object V439; |
4742 |
object V432; |
object V440; |
4743 |
base[3]= (V428); |
base[3]= (V436); |
4744 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4745 |
(void) (*Lnk379)(); |
(void) (*Lnk393)(); |
4746 |
if(vs_base>=vs_top){vs_top=sup;goto T1608;} |
if(vs_base>=vs_top){vs_top=sup;goto T1668;} |
4747 |
V430= vs_base[0]; |
V438= vs_base[0]; |
4748 |
vs_base++; |
vs_base++; |
4749 |
if(vs_base>=vs_top){vs_top=sup;goto T1609;} |
if(vs_base>=vs_top){vs_top=sup;goto T1669;} |
4750 |
V431= vs_base[0]; |
V439= vs_base[0]; |
4751 |
vs_base++; |
vs_base++; |
4752 |
if(vs_base>=vs_top){vs_top=sup;goto T1610;} |
if(vs_base>=vs_top){vs_top=sup;goto T1670;} |
4753 |
V432= vs_base[0]; |
V440= vs_base[0]; |
4754 |
vs_top=sup; |
vs_top=sup; |
4755 |
goto T1611; |
goto T1671; |
4756 |
goto T1608; |
goto T1668; |
4757 |
T1608:; |
T1668:; |
4758 |
V430= Cnil; |
V438= Cnil; |
4759 |
goto T1609; |
goto T1669; |
4760 |
T1609:; |
T1669:; |
4761 |
V431= Cnil; |
V439= Cnil; |
4762 |
goto T1610; |
goto T1670; |
4763 |
T1610:; |
T1670:; |
4764 |
V432= Cnil; |
V440= Cnil; |
4765 |
goto T1611; |
goto T1671; |
4766 |
T1611:; |
T1671:; |
4767 |
{register object V433; |
{register object V441; |
4768 |
V433= (V427); |
V441= (V435); |
4769 |
if(((V427))==Cnil){ |
if(((V435))==Cnil){ |
4770 |
goto T1614;} |
goto T1674;} |
4771 |
if(!(type_of((V427))==t_symbol)){ |
if(!(type_of((V435))==t_symbol)){ |
4772 |
goto T1614;} |
goto T1674;} |
4773 |
base[3]= (V427); |
base[3]= (V435); |
4774 |
base[4]= (V430); |
base[4]= (V438); |
4775 |
base[5]= (V429); |
base[5]= (V437); |
4776 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4777 |
(void) (*Lnk380)(); |
(void) (*Lnk392)(); |
4778 |
vs_top=sup; |
vs_top=sup; |
4779 |
goto T1612; |
goto T1672; |
4780 |
goto T1614; |
goto T1674; |
4781 |
T1614:; |
T1674:; |
4782 |
vs_base=vs_top; |
vs_base=vs_top; |
4783 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
4784 |
vs_top=sup; |
vs_top=sup; |
4785 |
V433= vs_base[0]; |
V441= vs_base[0]; |
4786 |
base[3]= (V433); |
base[3]= (V441); |
4787 |
base[4]= (V430); |
base[4]= (V438); |
4788 |
base[5]= VV[5]; |
base[5]= VV[5]; |
4789 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4790 |
(void) (*Lnk359)(); |
(void) (*Lnk371)(); |
4791 |
vs_top=sup; |
vs_top=sup; |
4792 |
base[3]= (V427); |
base[3]= (V435); |
4793 |
base[4]= Cnil; |
base[4]= Cnil; |
4794 |
base[5]= (V429); |
base[5]= (V437); |
4795 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4796 |
(void) (*Lnk380)(); |
(void) (*Lnk392)(); |
4797 |
vs_top=sup; |
vs_top=sup; |
4798 |
goto T1612; |
goto T1672; |
4799 |
T1612:; |
T1672:; |
4800 |
{object V434; |
{object V442; |
4801 |
object V435; |
object V443; |
4802 |
base[3]= (V433); |
base[3]= (V441); |
4803 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4804 |
(void) (*Lnk381)(); |
(void) (*Lnk394)(); |
4805 |
if(vs_base>=vs_top){vs_top=sup;goto T1631;} |
if(vs_base>=vs_top){vs_top=sup;goto T1691;} |
4806 |
V434= vs_base[0]; |
V442= vs_base[0]; |
4807 |
vs_base++; |
vs_base++; |
4808 |
if(vs_base>=vs_top){vs_top=sup;goto T1632;} |
if(vs_base>=vs_top){vs_top=sup;goto T1692;} |
4809 |
V435= vs_base[0]; |
V443= vs_base[0]; |
4810 |
vs_top=sup; |
vs_top=sup; |
4811 |
goto T1633; |
goto T1693; |
4812 |
goto T1631; |
goto T1691; |
4813 |
T1631:; |
T1691:; |
4814 |
V434= Cnil; |
V442= Cnil; |
4815 |
goto T1632; |
goto T1692; |
4816 |
T1632:; |
T1692:; |
4817 |
V435= Cnil; |
V443= Cnil; |
4818 |
goto T1633; |
goto T1693; |
4819 |
T1633:; |
T1693:; |
4820 |
{register object V436; |
{register object V444; |
4821 |
object V437; |
object V445; |
4822 |
base[4]= (((V427))==((V433))?Ct:Cnil); |
base[4]= (((V435))==((V441))?Ct:Cnil); |
4823 |
base[5]= (V433); |
base[5]= (V441); |
4824 |
base[6]= list(2,VV[221],(V433)); |
base[6]= list(2,VV[225],(V441)); |
4825 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
4826 |
(void) (*Lnk331)(); |
(void) (*Lnk338)(); |
4827 |
vs_top=sup; |
vs_top=sup; |
4828 |
V436= vs_base[0]; |
V444= vs_base[0]; |
4829 |
V437= (V436); |
V445= (V444); |
4830 |
if(((V431))==Cnil){ |
if(((V439))==Cnil){ |
4831 |
goto T1639;} |
goto T1699;} |
4832 |
if(!(type_of((V432))==t_cons||((V432))==Cnil)){ |
if(!(type_of((V440))==t_cons||((V440))==Cnil)){ |
4833 |
goto T1639;} |
goto T1699;} |
4834 |
V436= (((V432))==Cnil?Ct:Cnil); |
V444= (((V440))==Cnil?Ct:Cnil); |
4835 |
goto T1639; |
goto T1699; |
4836 |
T1639:; |
T1699:; |
4837 |
if(!(((V427))==((V433)))){ |
if(!(((V435))==((V441)))){ |
4838 |
goto T1646;} |
goto T1706;} |
4839 |
base[4]= Ct; |
base[4]= Ct; |
4840 |
base[5]= (V433); |
base[5]= (V441); |
4841 |
base[6]= (V434); |
base[6]= (V442); |
4842 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
4843 |
(void) (*Lnk331)(); |
(void) (*Lnk338)(); |
4844 |
vs_top=sup; |
vs_top=sup; |
4845 |
V438= vs_base[0]; |
V446= vs_base[0]; |
4846 |
base[4]= list(8,Cnil,list(2,(V433),V438),(V437),Cnil,Cnil,Cnil,(V436),Cnil); |
base[4]= list(8,Cnil,list(2,(V441),V446),(V445),Cnil,Cnil,Cnil,(V444),Cnil); |
4847 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4848 |
return; |
return; |
4849 |
goto T1646; |
goto T1706; |
4850 |
T1646:; |
T1706:; |
4851 |
{object V439; |
{object V447; |
4852 |
object V440; |
object V448; |
4853 |
V439= list(2,(V427),(V433)); |
V447= list(2,(V435),(V441)); |
4854 |
V440= list(2,(V433),(V434)); |
V448= list(2,(V441),(V442)); |
4855 |
if(((((V436))==((V437))?Ct:Cnil))==Cnil){ |
if(((((V444))==((V445))?Ct:Cnil))==Cnil){ |
4856 |
goto T1655;} |
goto T1715;} |
4857 |
V441= Cnil; |
V449= Cnil; |
4858 |
goto T1654; |
goto T1714; |
4859 |
goto T1655; |
goto T1715; |
4860 |
T1655:; |
T1715:; |
4861 |
V441= list(4,(V436),(V439),Cnil,(V440)); |
V449= list(4,(V444),(V447),Cnil,(V448)); |
4862 |
goto T1654; |
goto T1714; |
4863 |
T1654:; |
T1714:; |
4864 |
base[4]= listA(5,(V437),(V439),Cnil,(V440),V441); |
base[4]= listA(5,(V445),(V447),Cnil,(V448),V449); |
4865 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4866 |
return;}}}}} |
return;}}}}} |
4867 |
} |
} |
4868 |
} |
} |
4869 |
/* function definition for LOOP-FOR-IN */ |
/* function definition for LOOP-FOR-IN */ |
4870 |
|
|
4871 |
static void L90() |
static void L96() |
4872 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4873 |
register object *sup=base+VM78; VC78 |
register object *sup=base+VM84; VC84 |
4874 |
vs_reserve(VM78); |
vs_check; |
4875 |
{object V442; |
{object V450; |
4876 |
object V443; |
object V451; |
4877 |
object V444; |
object V452; |
4878 |
check_arg(3); |
V450=(base[0]); |
4879 |
V442=(base[0]); |
V451=(base[1]); |
4880 |
V443=(base[1]); |
V452=(base[2]); |
|
V444=(base[2]); |
|
4881 |
vs_top=sup; |
vs_top=sup; |
4882 |
goto TTL; |
goto TTL; |
4883 |
TTL:; |
TTL:; |
4884 |
{object V445; |
{object V453; |
4885 |
object V446; |
object V454; |
4886 |
object V447; |
object V455; |
4887 |
base[3]= (V443); |
base[3]= (V451); |
4888 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4889 |
(void) (*Lnk379)(); |
(void) (*Lnk393)(); |
4890 |
if(vs_base>=vs_top){vs_top=sup;goto T1659;} |
if(vs_base>=vs_top){vs_top=sup;goto T1719;} |
4891 |
V445= vs_base[0]; |
V453= vs_base[0]; |
4892 |
vs_base++; |
vs_base++; |
4893 |
if(vs_base>=vs_top){vs_top=sup;goto T1660;} |
if(vs_base>=vs_top){vs_top=sup;goto T1720;} |
4894 |
V446= vs_base[0]; |
V454= vs_base[0]; |
4895 |
vs_base++; |
vs_base++; |
4896 |
if(vs_base>=vs_top){vs_top=sup;goto T1661;} |
if(vs_base>=vs_top){vs_top=sup;goto T1721;} |
4897 |
V447= vs_base[0]; |
V455= vs_base[0]; |
4898 |
vs_top=sup; |
vs_top=sup; |
4899 |
goto T1662; |
goto T1722; |
4900 |
goto T1659; |
goto T1719; |
4901 |
T1659:; |
T1719:; |
4902 |
V445= Cnil; |
V453= Cnil; |
4903 |
goto T1660; |
goto T1720; |
4904 |
T1660:; |
T1720:; |
4905 |
V446= Cnil; |
V454= Cnil; |
4906 |
goto T1661; |
goto T1721; |
4907 |
T1661:; |
T1721:; |
4908 |
V447= Cnil; |
V455= Cnil; |
4909 |
goto T1662; |
goto T1722; |
4910 |
T1662:; |
T1722:; |
4911 |
{register object V448; |
{register object V456; |
4912 |
base[3]= VV[222]; |
base[3]= VV[226]; |
4913 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4914 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
4915 |
vs_top=sup; |
vs_top=sup; |
4916 |
V448= vs_base[0]; |
V456= vs_base[0]; |
4917 |
base[3]= (V442); |
base[3]= (V450); |
4918 |
base[4]= Cnil; |
base[4]= Cnil; |
4919 |
base[5]= (V444); |
base[5]= (V452); |
4920 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4921 |
(void) (*Lnk380)(); |
(void) (*Lnk392)(); |
4922 |
vs_top=sup; |
vs_top=sup; |
4923 |
base[3]= (V448); |
base[3]= (V456); |
4924 |
base[4]= (V445); |
base[4]= (V453); |
4925 |
base[5]= VV[5]; |
base[5]= VV[5]; |
4926 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
4927 |
(void) (*Lnk359)(); |
(void) (*Lnk371)(); |
4928 |
vs_top=sup; |
vs_top=sup; |
4929 |
{object V449; |
{object V457; |
4930 |
object V450; |
object V458; |
4931 |
base[3]= (V448); |
base[3]= (V456); |
4932 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
4933 |
(void) (*Lnk381)(); |
(void) (*Lnk394)(); |
4934 |
if(vs_base>=vs_top){vs_top=sup;goto T1675;} |
if(vs_base>=vs_top){vs_top=sup;goto T1735;} |
4935 |
V449= vs_base[0]; |
V457= vs_base[0]; |
4936 |
vs_base++; |
vs_base++; |
4937 |
if(vs_base>=vs_top){vs_top=sup;goto T1676;} |
if(vs_base>=vs_top){vs_top=sup;goto T1736;} |
4938 |
V450= vs_base[0]; |
V458= vs_base[0]; |
4939 |
vs_top=sup; |
vs_top=sup; |
4940 |
goto T1677; |
goto T1737; |
4941 |
goto T1675; |
goto T1735; |
4942 |
T1675:; |
T1735:; |
4943 |
V449= Cnil; |
V457= Cnil; |
4944 |
goto T1676; |
goto T1736; |
4945 |
T1676:; |
T1736:; |
4946 |
V450= Cnil; |
V458= Cnil; |
4947 |
goto T1677; |
goto T1737; |
4948 |
T1677:; |
T1737:; |
4949 |
{register object V451; |
{register object V459; |
4950 |
object V452; |
object V460; |
4951 |
object V453; |
object V461; |
4952 |
object V454; |
object V462; |
4953 |
V451= list(2,VV[223],(V448)); |
V459= list(2,VV[227],(V456)); |
4954 |
V452= (V451); |
V460= (V459); |
4955 |
V453= list(2,(V442),list(2,VV[65],(V448))); |
V461= list(2,(V450),list(2,VV[65],(V456))); |
4956 |
V454= list(2,(V448),(V449)); |
V462= list(2,(V456),(V457)); |
4957 |
if(((V446))==Cnil){ |
if(((V454))==Cnil){ |
4958 |
goto T1682;} |
goto T1742;} |
4959 |
if(!(type_of((V447))==t_cons||((V447))==Cnil)){ |
if(!(type_of((V455))==t_cons||((V455))==Cnil)){ |
4960 |
goto T1682;} |
goto T1742;} |
4961 |
V451= (((V447))==Cnil?Ct:Cnil); |
V459= (((V455))==Cnil?Ct:Cnil); |
4962 |
goto T1682; |
goto T1742; |
4963 |
T1682:; |
T1742:; |
4964 |
if(((((V451))==((V452))?Ct:Cnil))==Cnil){ |
if(((((V459))==((V460))?Ct:Cnil))==Cnil){ |
4965 |
goto T1689;} |
goto T1749;} |
4966 |
V455= Cnil; |
V463= Cnil; |
4967 |
goto T1688; |
goto T1748; |
4968 |
goto T1689; |
goto T1749; |
4969 |
T1689:; |
T1749:; |
4970 |
V455= list(4,(V451),(V453),Cnil,(V454)); |
V463= list(4,(V459),(V461),Cnil,(V462)); |
4971 |
goto T1688; |
goto T1748; |
4972 |
T1688:; |
T1748:; |
4973 |
base[6]= listA(5,(V452),(V453),Cnil,(V454),V455); |
base[6]= listA(5,(V460),(V461),Cnil,(V462),V463); |
4974 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
4975 |
return;}}}} |
return;}}}} |
4976 |
} |
} |
4977 |
} |
} |
4978 |
/* function definition for MAKE-LOOP-PATH */ |
/* function definition for MAKE-LOOP-PATH */ |
4979 |
|
|
4980 |
static void L91() |
static void L97() |
4981 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4982 |
register object *sup=base+VM79; VC79 |
register object *sup=base+VM85; VC85 |
4983 |
vs_reserve(VM79); |
vs_check; |
4984 |
{object V456; |
{object V464; |
4985 |
object V457; |
object V465; |
4986 |
object V458; |
object V466; |
4987 |
object V459; |
object V467; |
4988 |
object V460; |
object V468; |
4989 |
parse_key(vs_base,FALSE,FALSE,5,VV[226],VV[229],VV[230],VV[227],VV[228]); |
parse_key(vs_base,FALSE,FALSE,5,VV[230],VV[233],VV[234],VV[231],VV[232]); |
4990 |
vs_top=sup; |
vs_top=sup; |
4991 |
V456=(base[0]); |
V464=(base[0]); |
4992 |
V457=(base[1]); |
V465=(base[1]); |
4993 |
V458=(base[2]); |
V466=(base[2]); |
4994 |
V459=(base[3]); |
V467=(base[3]); |
4995 |
V460=(base[4]); |
V468=(base[4]); |
4996 |
base[10]= VV[224]; |
base[10]= VV[228]; |
4997 |
base[11]= (V456); |
base[11]= (V464); |
4998 |
base[12]= (V457); |
base[12]= (V465); |
4999 |
base[13]= (V458); |
base[13]= (V466); |
5000 |
base[14]= (V459); |
base[14]= (V467); |
5001 |
base[15]= (V460); |
base[15]= (V468); |
5002 |
vs_top=(vs_base=base+10)+6; |
vs_top=(vs_base=base+10)+6; |
5003 |
siLmake_structure(); |
siLmake_structure(); |
5004 |
return; |
return; |
5006 |
} |
} |
5007 |
/* function definition for ADD-LOOP-PATH */ |
/* function definition for ADD-LOOP-PATH */ |
5008 |
|
|
5009 |
static void L92() |
static void L98() |
5010 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5011 |
register object *sup=base+VM80; VC80 |
register object *sup=base+VM86; VC86 |
5012 |
vs_reserve(VM80); |
vs_check; |
5013 |
bds_check; |
bds_check; |
5014 |
{object V461; |
{object V469; |
5015 |
object V462; |
object V470; |
5016 |
register object V463; |
register object V471; |
5017 |
object V464; |
object V472; |
5018 |
object V465; |
object V473; |
5019 |
object V466; |
object V474; |
5020 |
if(vs_top-vs_base<3) too_few_arguments(); |
parse_key(vs_base+3,FALSE,FALSE,3,VV[233],VV[234],VV[232]); |
5021 |
parse_key(vs_base+3,FALSE,FALSE,3,VV[229],VV[230],VV[228]); |
V469=(base[0]); |
5022 |
V461=(base[0]); |
V470=(base[1]); |
5023 |
V462=(base[1]); |
V471=(base[2]); |
5024 |
V463=(base[2]); |
vs_top=sup; |
5025 |
vs_top=sup; |
V472=(base[3]); |
5026 |
V464=(base[3]); |
V473=(base[4]); |
5027 |
V465=(base[4]); |
V474=(base[5]); |
5028 |
V466=(base[5]); |
if(type_of((V469))==t_cons||((V469))==Cnil){ |
5029 |
if(type_of((V461))==t_cons||((V461))==Cnil){ |
goto T1757;} |
5030 |
goto T1697;} |
V469= make_cons((V469),Cnil); |
5031 |
V461= make_cons((V461),Cnil); |
goto T1757; |
5032 |
goto T1697; |
T1757:; |
|
T1697:; |
|
5033 |
bds_bind(VV[44],small_fixnum(4)); |
bds_bind(VV[44],small_fixnum(4)); |
5034 |
bds_bind(VV[45],small_fixnum(4)); |
bds_bind(VV[45],small_fixnum(4)); |
5035 |
goto T1703; |
goto T1763; |
5036 |
T1703:; |
T1763:; |
5037 |
base[11]= (V463); |
base[11]= (V471); |
5038 |
base[12]= VV[39]; |
base[12]= VV[39]; |
5039 |
vs_top=(vs_base=base+11)+2; |
vs_top=(vs_base=base+11)+2; |
5040 |
(void) (*Lnk382)(); |
(void) (*Lnk395)(); |
5041 |
vs_top=sup; |
vs_top=sup; |
5042 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5043 |
goto T1704;} |
goto T1764;} |
5044 |
bds_unwind1; |
bds_unwind1; |
5045 |
bds_unwind1; |
bds_unwind1; |
5046 |
goto T1701; |
goto T1761; |
5047 |
goto T1704; |
goto T1764; |
5048 |
T1704:; |
T1764:; |
5049 |
base[11]= VV[47]; |
base[11]= VV[47]; |
5050 |
base[12]= VV[48]; |
base[12]= VV[48]; |
5051 |
base[13]= VV[225]; |
base[13]= VV[229]; |
5052 |
base[14]= (V463); |
base[14]= (V471); |
5053 |
base[15]= VV[39]; |
base[15]= VV[39]; |
5054 |
vs_top=(vs_base=base+11)+5; |
vs_top=(vs_base=base+11)+5; |
5055 |
Lcerror(); |
Lcerror(); |
5056 |
vs_top=sup; |
vs_top=sup; |
5057 |
base[11]= symbol_value(VV[50]); |
base[11]= (VV[50]->s.s_dbind); |
5058 |
base[12]= VV[51]; |
base[12]= VV[51]; |
5059 |
base[13]= VV[225]; |
base[13]= VV[229]; |
5060 |
vs_top=(vs_base=base+11)+3; |
vs_top=(vs_base=base+11)+3; |
5061 |
Lformat(); |
Lformat(); |
5062 |
vs_top=sup; |
vs_top=sup; |
5063 |
base[11]= symbol_value(VV[50]); |
base[11]= (VV[50]->s.s_dbind); |
5064 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
5065 |
Lfinish_output(); |
Lfinish_output(); |
5066 |
vs_top=sup; |
vs_top=sup; |
5067 |
vs_base=vs_top; |
vs_base=vs_top; |
5068 |
Lread(); |
Lread(); |
5069 |
vs_top=sup; |
vs_top=sup; |
5070 |
V463= vs_base[0]; |
V471= vs_base[0]; |
5071 |
base[11]= symbol_value(VV[50]); |
base[11]= (VV[50]->s.s_dbind); |
5072 |
base[12]= VV[52]; |
base[12]= VV[52]; |
5073 |
vs_top=(vs_base=base+11)+2; |
vs_top=(vs_base=base+11)+2; |
5074 |
Lformat(); |
Lformat(); |
5075 |
vs_top=sup; |
vs_top=sup; |
5076 |
goto T1703; |
goto T1763; |
5077 |
goto T1701; |
goto T1761; |
5078 |
T1701:; |
T1761:; |
5079 |
{object V467; |
{object V475; |
5080 |
object V468; |
object V476; |
5081 |
V467= structure_ref((V463),VV[39],3); |
V475= STREF(object,(V471),12); |
5082 |
base[9]= VV[226]; |
base[9]= VV[230]; |
5083 |
{object V469; |
{object V477; |
5084 |
object V470= (V461); |
object V478= (V469); |
5085 |
if(endp(V470)){ |
if(V478==Cnil){ |
5086 |
base[10]= Cnil; |
base[10]= Cnil; |
5087 |
goto T1732;} |
goto T1792;} |
5088 |
base[11]=V469=MMcons(Cnil,Cnil); |
base[11]=V477=MMcons(Cnil,Cnil); |
5089 |
goto T1733; |
goto T1793; |
5090 |
T1733:; |
T1793:; |
5091 |
(V469->c.c_car)= symbol_name((V470->c.c_car)); |
(V477->c.c_car)= symbol_name((V478->c.c_car)); |
5092 |
V470=MMcdr(V470); |
if((V478=MMcdr(V478))==Cnil){ |
|
if(endp(V470)){ |
|
5093 |
base[10]= base[11]; |
base[10]= base[11]; |
5094 |
goto T1732;} |
goto T1792;} |
5095 |
V469=MMcdr(V469)=MMcons(Cnil,Cnil); |
V477=MMcdr(V477)=MMcons(Cnil,Cnil); |
5096 |
goto T1733;} |
goto T1793;} |
5097 |
goto T1732; |
goto T1792; |
5098 |
T1732:; |
T1792:; |
5099 |
base[11]= VV[227]; |
base[11]= VV[231]; |
5100 |
base[12]= (V462); |
base[12]= (V470); |
5101 |
base[13]= VV[228]; |
base[13]= VV[232]; |
5102 |
base[14]= (V466); |
base[14]= (V474); |
5103 |
base[15]= VV[229]; |
base[15]= VV[233]; |
5104 |
{object V471; |
{object V479; |
5105 |
object V472= (V464); |
object V480= (V472); |
5106 |
if(endp(V472)){ |
if(V480==Cnil){ |
5107 |
base[16]= Cnil; |
base[16]= Cnil; |
5108 |
goto T1740;} |
goto T1800;} |
5109 |
base[17]=V471=MMcons(Cnil,Cnil); |
base[17]=V479=MMcons(Cnil,Cnil); |
5110 |
goto T1741; |
goto T1801; |
5111 |
T1741:; |
T1801:; |
5112 |
if(!(type_of((V472->c.c_car))==t_cons||((V472->c.c_car))==Cnil)){ |
if(!(type_of((V480->c.c_car))==t_cons||((V480->c.c_car))==Cnil)){ |
5113 |
goto T1744;} |
goto T1804;} |
5114 |
(V471->c.c_car)= (V472->c.c_car); |
(V479->c.c_car)= (V480->c.c_car); |
5115 |
goto T1742; |
goto T1802; |
5116 |
goto T1744; |
goto T1804; |
5117 |
T1744:; |
T1804:; |
5118 |
(V471->c.c_car)= make_cons((V472->c.c_car),Cnil); |
(V479->c.c_car)= make_cons((V480->c.c_car),Cnil); |
5119 |
goto T1742; |
goto T1802; |
5120 |
T1742:; |
T1802:; |
5121 |
V472=MMcdr(V472); |
if((V480=MMcdr(V480))==Cnil){ |
|
if(endp(V472)){ |
|
5122 |
base[16]= base[17]; |
base[16]= base[17]; |
5123 |
goto T1740;} |
goto T1800;} |
5124 |
V471=MMcdr(V471)=MMcons(Cnil,Cnil); |
V479=MMcdr(V479)=MMcons(Cnil,Cnil); |
5125 |
goto T1741;} |
goto T1801;} |
5126 |
goto T1740; |
goto T1800; |
5127 |
T1740:; |
T1800:; |
5128 |
base[17]= VV[230]; |
base[17]= VV[234]; |
5129 |
base[18]= (V465); |
base[18]= (V473); |
5130 |
vs_top=(vs_base=base+9)+10; |
vs_top=(vs_base=base+9)+10; |
5131 |
(void) (*Lnk383)(); |
(void) (*Lnk396)(); |
5132 |
vs_top=sup; |
vs_top=sup; |
5133 |
V468= vs_base[0]; |
V476= vs_base[0]; |
5134 |
{register object V474; |
{register object V482; |
5135 |
register object V475; |
register object V483; |
5136 |
V474= (V461); |
V482= (V469); |
5137 |
V475= car((V474)); |
V483= CMPcar((V482)); |
5138 |
goto T1752; |
goto T1812; |
5139 |
T1752:; |
T1812:; |
5140 |
if(!(endp_prop((V474)))){ |
if(!(((V482))==Cnil)){ |
5141 |
goto T1753;} |
goto T1813;} |
5142 |
goto T1748; |
goto T1808; |
5143 |
goto T1753; |
goto T1813; |
5144 |
T1753:; |
T1813:; |
5145 |
{register object V476; |
{register object V484; |
5146 |
register object V477; |
register object V485; |
5147 |
register object V478; |
register object V486; |
5148 |
V476= symbol_name((V475)); |
V484= symbol_name((V483)); |
5149 |
V477= (V467); |
V485= (V475); |
5150 |
V478= (V468); |
V486= (V476); |
5151 |
base[11]= (V476); |
base[11]= (V484); |
5152 |
base[12]= (V477); |
base[12]= (V485); |
5153 |
base[13]= (V478); |
base[13]= (V486); |
5154 |
vs_top=(vs_base=base+11)+3; |
vs_top=(vs_base=base+11)+3; |
5155 |
siLhash_set(); |
siLhash_set(); |
5156 |
vs_top=sup;} |
vs_top=sup;} |
5157 |
V474= cdr((V474)); |
V482= CMPcdr((V482)); |
5158 |
V475= car((V474)); |
V483= CMPcar((V482)); |
5159 |
goto T1752;} |
goto T1812;} |
5160 |
goto T1748; |
goto T1808; |
5161 |
T1748:; |
T1808:; |
5162 |
base[9]= (V468); |
base[9]= (V476); |
5163 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
5164 |
return;} |
return;} |
5165 |
} |
} |
5166 |
} |
} |
5167 |
/* function definition for LOOP-FOR-BEING */ |
/* function definition for LOOP-FOR-BEING */ |
5168 |
|
|
5169 |
static void L93() |
static void L99() |
5170 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5171 |
register object *sup=base+VM81; VC81 |
register object *sup=base+VM87; VC87 |
5172 |
vs_reserve(VM81); |
vs_check; |
5173 |
{object V479; |
{object V487; |
5174 |
object V480; |
object V488; |
5175 |
object V481; |
object V489; |
5176 |
check_arg(3); |
V487=(base[0]); |
5177 |
V479=(base[0]); |
V488=(base[1]); |
5178 |
V480=(base[1]); |
V489=(base[2]); |
|
V481=(base[2]); |
|
5179 |
vs_top=sup; |
vs_top=sup; |
5180 |
goto TTL; |
goto TTL; |
5181 |
TTL:; |
TTL:; |
5182 |
{register object V482; |
{register object V490; |
5183 |
object V483; |
object V491; |
5184 |
object V484; |
object V492; |
5185 |
object V485; |
object V493; |
5186 |
object V486; |
object V494; |
5187 |
V482= Cnil; |
V490= Cnil; |
5188 |
V483= Cnil; |
V491= Cnil; |
5189 |
V484= Cnil; |
V492= Cnil; |
5190 |
V485= Cnil; |
V493= Cnil; |
5191 |
V486= Cnil; |
V494= Cnil; |
5192 |
base[3]= (V480); |
base[3]= (V488); |
5193 |
base[4]= VV[231]; |
base[4]= VV[235]; |
5194 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5195 |
(void) (*Lnk353)(); |
(void) (*Lnk362)(); |
5196 |
vs_top=sup; |
vs_top=sup; |
5197 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5198 |
goto T1771;} |
goto T1831;} |
5199 |
vs_base=vs_top; |
vs_base=vs_top; |
5200 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
5201 |
vs_top=sup; |
vs_top=sup; |
5202 |
V482= vs_base[0]; |
V490= vs_base[0]; |
5203 |
goto T1769; |
goto T1829; |
5204 |
goto T1771; |
goto T1831; |
5205 |
T1771:; |
T1831:; |
5206 |
base[3]= car(symbol_value(VV[89])); |
base[3]= CMPcar((VV[88]->s.s_dbind)); |
5207 |
base[4]= VV[155]; |
base[4]= VV[158]; |
5208 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5209 |
(void) (*Lnk357)(); |
(void) (*Lnk369)(); |
5210 |
vs_top=sup; |
vs_top=sup; |
5211 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5212 |
goto T1777;} |
goto T1837;} |
5213 |
vs_base=vs_top; |
vs_base=vs_top; |
5214 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
5215 |
vs_top=sup; |
vs_top=sup; |
5216 |
V484= Ct; |
V492= Ct; |
5217 |
base[3]= car(symbol_value(VV[89])); |
base[3]= CMPcar((VV[88]->s.s_dbind)); |
5218 |
base[4]= VV[232]; |
base[4]= VV[236]; |
5219 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5220 |
(void) (*Lnk353)(); |
(void) (*Lnk362)(); |
5221 |
vs_top=sup; |
vs_top=sup; |
5222 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
5223 |
goto T1784;} |
goto T1844;} |
5224 |
base[3]= VV[233]; |
base[3]= VV[237]; |
5225 |
base[4]= car(symbol_value(VV[89])); |
base[4]= CMPcar((VV[88]->s.s_dbind)); |
5226 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5227 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
5228 |
vs_top=sup; |
vs_top=sup; |
5229 |
goto T1784; |
goto T1844; |
5230 |
T1784:; |
T1844:; |
5231 |
vs_base=vs_top; |
vs_base=vs_top; |
5232 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
5233 |
vs_top=sup; |
vs_top=sup; |
5234 |
vs_base=vs_top; |
vs_base=vs_top; |
5235 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
5236 |
vs_top=sup; |
vs_top=sup; |
5237 |
V482= vs_base[0]; |
V490= vs_base[0]; |
5238 |
V487= list(2,VV[234],(V480)); |
V495= list(2,VV[238],(V488)); |
5239 |
V486= make_cons(/* INLINE-ARGS */V487,Cnil); |
V494= make_cons(/* INLINE-ARGS */V495,Cnil); |
5240 |
goto T1769; |
goto T1829; |
5241 |
goto T1777; |
goto T1837; |
5242 |
T1777:; |
T1837:; |
5243 |
base[3]= VV[235]; |
base[3]= VV[239]; |
5244 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5245 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
5246 |
vs_top=sup; |
vs_top=sup; |
5247 |
goto T1769; |
goto T1829; |
5248 |
T1769:; |
T1829:; |
5249 |
if(type_of((V482))==t_symbol){ |
if(type_of((V490))==t_symbol){ |
5250 |
goto T1798;} |
goto T1858;} |
5251 |
base[3]= VV[236]; |
base[3]= VV[240]; |
5252 |
base[4]= (V482); |
base[4]= (V490); |
5253 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5254 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
5255 |
vs_top=sup; |
vs_top=sup; |
5256 |
goto T1796; |
goto T1856; |
5257 |
goto T1798; |
goto T1858; |
5258 |
T1798:; |
T1858:; |
5259 |
base[3]= (V482); |
base[3]= (V490); |
5260 |
base[4]= structure_ref(symbol_value(VV[97]),VV[39],3); |
base[4]= STREF(object,(VV[99]->s.s_dbind),12); |
5261 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5262 |
(void) (*Lnk351)(); |
(void) (*Lnk360)(); |
5263 |
vs_top=sup; |
vs_top=sup; |
5264 |
V483= vs_base[0]; |
V491= vs_base[0]; |
5265 |
if(((V483))!=Cnil){ |
if(((V491))!=Cnil){ |
5266 |
goto T1803;} |
goto T1863;} |
5267 |
base[3]= VV[237]; |
base[3]= VV[241]; |
5268 |
base[4]= (V482); |
base[4]= (V490); |
5269 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5270 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
5271 |
vs_top=sup; |
vs_top=sup; |
5272 |
goto T1796; |
goto T1856; |
5273 |
goto T1803; |
goto T1863; |
5274 |
T1803:; |
T1863:; |
5275 |
if(((V484))==Cnil){ |
if(((V492))==Cnil){ |
5276 |
goto T1796;} |
goto T1856;} |
5277 |
if((structure_ref((V483),VV[224],2))!=Cnil){ |
if((STREF(object,(V491),8))!=Cnil){ |
5278 |
goto T1796;} |
goto T1856;} |
5279 |
base[3]= VV[238]; |
base[3]= VV[242]; |
5280 |
base[4]= (V482); |
base[4]= (V490); |
5281 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5282 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
5283 |
vs_top=sup; |
vs_top=sup; |
5284 |
goto T1796; |
goto T1856; |
5285 |
T1796:; |
T1856:; |
5286 |
{object V488; |
{object V496; |
5287 |
object V489; |
object V497; |
5288 |
object V490; |
object V498; |
5289 |
V488= structure_ref((V483),VV[224],3); |
V496= STREF(object,(V491),12); |
5290 |
base[3]= structure_ref((V483),VV[224],1); |
base[3]= STREF(object,(V491),4); |
5291 |
base[4]= Ct; |
base[4]= Ct; |
5292 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5293 |
(void) (*Lnk384)(); |
(void) (*Lnk397)(); |
5294 |
vs_top=sup; |
vs_top=sup; |
5295 |
V491= vs_base[0]; |
V499= vs_base[0]; |
5296 |
V489= nconc((V486),V491); |
V497= nconc((V494),V499); |
5297 |
V490= structure_ref((V483),VV[224],4); |
V498= STREF(object,(V491),16); |
5298 |
if(!(type_of((V488))==t_symbol)){ |
if(!(type_of((V496))==t_symbol)){ |
5299 |
goto T1823;} |
goto T1883;} |
5300 |
base[3]= (V488); |
base[3]= (V496); |
5301 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5302 |
Lsymbol_function(); |
Lsymbol_function(); |
5303 |
vs_top=sup; |
vs_top=sup; |
5304 |
V488= vs_base[0]; |
V496= vs_base[0]; |
5305 |
goto T1823; |
goto T1883; |
5306 |
T1823:; |
T1883:; |
5307 |
if(((V484))==Cnil){ |
if(((V492))==Cnil){ |
5308 |
goto T1830;} |
goto T1890;} |
5309 |
base[3]= (V488); |
base[3]= (V496); |
5310 |
base[4]= (V479); |
base[4]= (V487); |
5311 |
base[5]= (V481); |
base[5]= (V489); |
5312 |
base[6]= (V489); |
base[6]= (V497); |
5313 |
base[7]= VV[239]; |
base[7]= VV[243]; |
5314 |
base[8]= Ct; |
base[8]= Ct; |
5315 |
{object V492; |
{object V500; |
5316 |
V492= (V490); |
V500= (V498); |
5317 |
vs_top=base+9; |
vs_top=base+9; |
5318 |
while(!endp(V492)) |
while(V500!=Cnil) |
5319 |
{vs_push(car(V492));V492=cdr(V492);} |
{vs_push((V500)->c.c_car);V500=(V500)->c.c_cdr;} |
5320 |
vs_base=base+4;} |
vs_base=base+4;} |
5321 |
super_funcall_no_event(base[3]); |
super_funcall_no_event(base[3]); |
5322 |
vs_top=sup; |
vs_top=sup; |
5323 |
V485= vs_base[0]; |
V493= vs_base[0]; |
5324 |
goto T1828; |
goto T1888; |
5325 |
goto T1830; |
goto T1890; |
5326 |
T1830:; |
T1890:; |
5327 |
base[3]= (V488); |
base[3]= (V496); |
5328 |
base[4]= (V479); |
base[4]= (V487); |
5329 |
base[5]= (V481); |
base[5]= (V489); |
5330 |
base[6]= (V489); |
base[6]= (V497); |
5331 |
{object V493; |
{object V501; |
5332 |
V493= (V490); |
V501= (V498); |
5333 |
vs_top=base+7; |
vs_top=base+7; |
5334 |
while(!endp(V493)) |
while(V501!=Cnil) |
5335 |
{vs_push(car(V493));V493=cdr(V493);} |
{vs_push((V501)->c.c_car);V501=(V501)->c.c_cdr;} |
5336 |
vs_base=base+4;} |
vs_base=base+4;} |
5337 |
super_funcall_no_event(base[3]); |
super_funcall_no_event(base[3]); |
5338 |
vs_top=sup; |
vs_top=sup; |
5339 |
V485= vs_base[0]; |
V493= vs_base[0]; |
5340 |
goto T1828; |
goto T1888; |
5341 |
T1828:;} |
T1888:;} |
5342 |
if((symbol_value(VV[102]))==Cnil){ |
if(((VV[104]->s.s_dbind))==Cnil){ |
5343 |
goto T1844;} |
goto T1904;} |
5344 |
base[3]= VV[240]; |
base[3]= VV[244]; |
5345 |
base[4]= symbol_value(VV[102]); |
base[4]= (VV[104]->s.s_dbind); |
5346 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5347 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
5348 |
vs_top=sup; |
vs_top=sup; |
5349 |
goto T1844; |
goto T1904; |
5350 |
T1844:; |
T1904:; |
5351 |
V495 = make_fixnum((long)length((V485))); |
V503 = CMPmake_fixnum((long)length((V493))); |
5352 |
{register object x= V495,V494= VV[241]; |
{register object x= V503,V502= VV[245]; |
5353 |
while(!endp(V494)) |
while(V502!=Cnil) |
5354 |
if(eql(x,V494->c.c_car)){ |
if(eql(x,V502->c.c_car)){ |
5355 |
goto T1849; |
goto T1909; |
5356 |
}else V494=V494->c.c_cdr;} |
}else V502=V502->c.c_cdr;} |
5357 |
base[3]= VV[242]; |
base[3]= VV[246]; |
5358 |
base[4]= (V482); |
base[4]= (V490); |
5359 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5360 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
5361 |
vs_top=sup; |
vs_top=sup; |
5362 |
goto T1849; |
goto T1909; |
5363 |
T1849:; |
T1909:; |
5364 |
{register object V496; |
{register object V504; |
5365 |
register object V497; |
register object V505; |
5366 |
V496= car((V485)); |
V504= CMPcar((V493)); |
5367 |
V497= Cnil; |
V505= Cnil; |
5368 |
goto T1857; |
goto T1917; |
5369 |
T1857:; |
T1917:; |
5370 |
if(((V496))!=Cnil){ |
if(((V504))!=Cnil){ |
5371 |
goto T1858;} |
goto T1918;} |
5372 |
goto T1854; |
goto T1914; |
5373 |
goto T1858; |
goto T1918; |
5374 |
T1858:; |
T1918:; |
5375 |
V497= car((V496)); |
V505= CMPcar((V504)); |
5376 |
if(!(type_of((V497))!=t_cons)){ |
if(!(type_of((V505))!=t_cons)){ |
5377 |
goto T1864;} |
goto T1924;} |
5378 |
base[3]= (V497); |
base[3]= (V505); |
5379 |
base[4]= Cnil; |
base[4]= Cnil; |
5380 |
base[5]= Cnil; |
base[5]= Cnil; |
5381 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
5382 |
(void) (*Lnk380)(); |
(void) (*Lnk392)(); |
5383 |
vs_top=sup; |
vs_top=sup; |
5384 |
goto T1862; |
goto T1922; |
5385 |
goto T1864; |
goto T1924; |
5386 |
T1864:; |
T1924:; |
5387 |
base[3]= car((V497)); |
base[3]= CMPcar((V505)); |
5388 |
base[4]= cadr((V497)); |
base[4]= CMPcadr((V505)); |
5389 |
base[5]= caddr((V497)); |
base[5]= CMPcaddr((V505)); |
5390 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
5391 |
(void) (*Lnk380)(); |
(void) (*Lnk392)(); |
5392 |
vs_top=sup; |
vs_top=sup; |
5393 |
goto T1862; |
goto T1922; |
5394 |
T1862:; |
T1922:; |
5395 |
V496= cdr((V496)); |
V504= CMPcdr((V504)); |
5396 |
goto T1857;} |
goto T1917;} |
5397 |
goto T1854; |
goto T1914; |
5398 |
T1854:; |
T1914:; |
5399 |
V498= reverse(cadr((V485))); |
V506= reverse(CMPcadr((V493))); |
5400 |
setq(VV[106],nconc(/* INLINE-ARGS */V498,symbol_value(VV[106]))); |
(VV[108]->s.s_dbind)= nconc(/* INLINE-ARGS */V506,(VV[108]->s.s_dbind)); |
5401 |
base[3]= cddr((V485)); |
base[3]= CMPcddr((V493)); |
5402 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5403 |
return;} |
return;} |
5404 |
} |
} |
5405 |
} |
} |
5406 |
/* function definition for NAMED-VARIABLE */ |
/* function definition for NAMED-VARIABLE */ |
5407 |
|
|
5408 |
static void L94() |
static void L100() |
5409 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5410 |
register object *sup=base+VM82; VC82 |
register object *sup=base+VM88; VC88 |
5411 |
vs_reserve(VM82); |
vs_check; |
5412 |
{object V499; |
{object V507; |
5413 |
check_arg(1); |
V507=(base[0]); |
|
V499=(base[0]); |
|
5414 |
vs_top=sup; |
vs_top=sup; |
5415 |
goto TTL; |
goto TTL; |
5416 |
TTL:; |
TTL:; |
5417 |
{object V500; |
{object V508; |
5418 |
base[1]= (V499); |
base[1]= (V507); |
5419 |
base[2]= symbol_value(VV[102]); |
base[2]= (VV[104]->s.s_dbind); |
5420 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5421 |
(void) (*Lnk385)(); |
(void) (*Lnk398)(); |
5422 |
vs_top=sup; |
vs_top=sup; |
5423 |
V500= vs_base[0]; |
V508= vs_base[0]; |
5424 |
if(((V500))!=Cnil){ |
if(((V508))!=Cnil){ |
5425 |
goto T1882;} |
goto T1942;} |
5426 |
vs_base=vs_top; |
vs_base=vs_top; |
5427 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
5428 |
vs_top=sup; |
vs_top=sup; |
5429 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
5430 |
base[2]= Cnil; |
base[2]= Cnil; |
5431 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5432 |
return; |
return; |
5433 |
goto T1882; |
goto T1942; |
5434 |
T1882:; |
T1942:; |
5435 |
setq(VV[102],(VFUN_NARGS=2,(*(LnkLI386))((V500),symbol_value(VV[102])))); |
base[1]= (V508); |
5436 |
base[1]= cdr((V500)); |
base[2]= (VV[104]->s.s_dbind); |
5437 |
|
vs_top=(vs_base=base+1)+2; |
5438 |
|
(void) (*Lnk399)(); |
5439 |
|
vs_top=sup; |
5440 |
|
(VV[104]->s.s_dbind)= vs_base[0]; |
5441 |
|
base[1]= CMPcdr((V508)); |
5442 |
base[2]= Ct; |
base[2]= Ct; |
5443 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5444 |
return;} |
return;} |
5446 |
} |
} |
5447 |
/* function definition for LOOP-COLLECT-PREPOSITIONAL-PHRASES */ |
/* function definition for LOOP-COLLECT-PREPOSITIONAL-PHRASES */ |
5448 |
|
|
5449 |
static void L95() |
static void L101() |
5450 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5451 |
register object *sup=base+VM83; VC83 |
register object *sup=base+VM89; VC89 |
5452 |
vs_reserve(VM83); |
vs_check; |
5453 |
{object V501; |
{object V509; |
5454 |
object V502; |
object V510; |
5455 |
object V503; |
object V511; |
5456 |
if(vs_top-vs_base<1) too_few_arguments(); |
V509=(base[0]); |
|
if(vs_top-vs_base>3) too_many_arguments(); |
|
|
V501=(base[0]); |
|
5457 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
5458 |
if(vs_base>=vs_top){vs_top=sup;goto T1890;} |
if(vs_base>=vs_top){vs_top=sup;goto T1952;} |
5459 |
V502=(base[1]); |
V510=(base[1]); |
5460 |
vs_base++; |
vs_base++; |
5461 |
if(vs_base>=vs_top){vs_top=sup;goto T1891;} |
if(vs_base>=vs_top){vs_top=sup;goto T1953;} |
5462 |
V503=(base[2]); |
V511=(base[2]); |
5463 |
vs_top=sup; |
vs_top=sup; |
5464 |
goto T1892; |
goto T1954; |
5465 |
goto T1890; |
goto T1952; |
5466 |
T1890:; |
T1952:; |
5467 |
V502= Cnil; |
V510= Cnil; |
5468 |
goto T1891; |
goto T1953; |
5469 |
T1891:; |
T1953:; |
5470 |
V503= Cnil; |
V511= Cnil; |
5471 |
goto T1892; |
goto T1954; |
5472 |
T1892:; |
T1954:; |
5473 |
base[3]=make_cclosure_new(LC96,Cnil,Cnil,Cdata); |
base[3]=make_cclosure_new(LC102,Cnil,Cnil,Cdata); |
5474 |
base[3]=MMcons(base[3],Cnil); |
base[3]=MMcons(base[3],Cnil); |
5475 |
{object V504; |
{object V512; |
5476 |
object V505; |
object V513; |
5477 |
register object V506; |
register object V514; |
5478 |
register object V507; |
register object V515; |
5479 |
object V508; |
object V516; |
5480 |
object V509; |
object V517; |
5481 |
{object V510; |
{object V518; |
5482 |
object V511= (V503); |
object V519= (V511); |
5483 |
if(endp(V511)){ |
if(V519==Cnil){ |
5484 |
V508= Cnil; |
V516= Cnil; |
5485 |
goto T1895;} |
goto T1957;} |
5486 |
base[4]=V510=MMcons(Cnil,Cnil); |
base[4]=V518=MMcons(Cnil,Cnil); |
5487 |
goto T1896; |
goto T1958; |
5488 |
T1896:; |
T1958:; |
5489 |
V513= car((V511->c.c_car)); |
base[6]= CMPcar((V519->c.c_car)); |
5490 |
V514= (base[3]->c.c_car); |
base[7]= (V509); |
5491 |
base[5]= (VFUN_NARGS=4,(*(LnkLI368))(/* INLINE-ARGS */V513,(V501),VV[20],V514)); |
base[8]= VV[20]; |
5492 |
|
base[9]= (base[3]->c.c_car); |
5493 |
|
vs_top=(vs_base=base+6)+4; |
5494 |
|
(void) (*Lnk380)(); |
5495 |
|
vs_top=sup; |
5496 |
|
base[5]= vs_base[0]; |
5497 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
5498 |
Lcopy_list(); |
Lcopy_list(); |
5499 |
vs_top=sup; |
vs_top=sup; |
5500 |
(V510->c.c_cdr)= vs_base[0]; |
(V518->c.c_cdr)= vs_base[0]; |
5501 |
{object cdr_V510=MMcdr(V510);while(!endp(cdr_V510)) {cdr_V510=MMcdr(cdr_V510);V510=MMcdr(V510);}} |
while(MMcdr(V518)!=Cnil)V518=MMcdr(V518); |
5502 |
V511=MMcdr(V511); |
if((V519=MMcdr(V519))==Cnil){ |
|
if(endp(V511)){ |
|
5503 |
base[4]=base[4]->c.c_cdr; |
base[4]=base[4]->c.c_cdr; |
5504 |
V508= base[4]; |
V516= base[4]; |
5505 |
goto T1895;} |
goto T1957;} |
5506 |
goto T1896;} |
goto T1958;} |
5507 |
goto T1895; |
goto T1957; |
5508 |
T1895:; |
T1957:; |
5509 |
{object V515; |
{object V521; |
5510 |
object V516= (V503); |
object V522= (V511); |
5511 |
if(endp(V516)){ |
if(V522==Cnil){ |
5512 |
V509= Cnil; |
V517= Cnil; |
5513 |
goto T1900;} |
goto T1965;} |
5514 |
base[4]=V515=MMcons(Cnil,Cnil); |
base[4]=V521=MMcons(Cnil,Cnil); |
5515 |
goto T1901; |
goto T1966; |
5516 |
T1901:; |
T1966:; |
5517 |
(V515->c.c_car)= car((V516->c.c_car)); |
(V521->c.c_car)= CMPcar((V522->c.c_car)); |
5518 |
V516=MMcdr(V516); |
if((V522=MMcdr(V522))==Cnil){ |
5519 |
if(endp(V516)){ |
V517= base[4]; |
5520 |
V509= base[4]; |
goto T1965;} |
5521 |
goto T1900;} |
V521=MMcdr(V521)=MMcons(Cnil,Cnil); |
5522 |
V515=MMcdr(V515)=MMcons(Cnil,Cnil); |
goto T1966;} |
5523 |
goto T1901;} |
goto T1965; |
5524 |
goto T1900; |
T1965:; |
5525 |
T1900:; |
V512= Cnil; |
5526 |
V504= Cnil; |
V513= (V511); |
5527 |
V505= (V503); |
V514= Cnil; |
5528 |
V506= Cnil; |
V515= Cnil; |
5529 |
V507= Cnil; |
goto T1969; |
5530 |
goto T1904; |
T1969:; |
5531 |
T1904:; |
if(((VV[88]->s.s_dbind))!=Cnil){ |
5532 |
if((symbol_value(VV[89]))!=Cnil){ |
goto T1970;} |
5533 |
goto T1905;} |
base[4]= nreverse((V513)); |
|
base[4]= nreverse((V505)); |
|
5534 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5535 |
return; |
return; |
5536 |
goto T1905; |
goto T1970; |
5537 |
T1905:; |
T1970:; |
5538 |
V504= car(symbol_value(VV[89])); |
V512= CMPcar((VV[88]->s.s_dbind)); |
5539 |
{register object V517; |
{register object V523; |
5540 |
register object V518; |
register object V524; |
5541 |
V517= (V501); |
V523= (V509); |
5542 |
V518= car((V517)); |
V524= CMPcar((V523)); |
5543 |
goto T1915; |
goto T1980; |
5544 |
T1915:; |
T1980:; |
5545 |
if(!(endp_prop((V517)))){ |
if(!(((V523))==Cnil)){ |
5546 |
goto T1916;} |
goto T1981;} |
5547 |
goto T1911; |
goto T1976; |
5548 |
goto T1916; |
goto T1981; |
5549 |
T1916:; |
T1981:; |
5550 |
base[5]= (V504); |
base[5]= (V512); |
5551 |
base[6]= (V518); |
base[6]= (V524); |
5552 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
5553 |
L96(base); |
L102(base); |
5554 |
vs_top=sup; |
vs_top=sup; |
5555 |
V507= vs_base[0]; |
V515= vs_base[0]; |
5556 |
if(((V507))==Cnil){ |
if(((V515))==Cnil){ |
5557 |
goto T1920;} |
goto T1985;} |
5558 |
V506= (V518); |
V514= (V524); |
5559 |
goto T1911; |
goto T1976; |
5560 |
goto T1920; |
goto T1985; |
5561 |
T1920:; |
T1985:; |
5562 |
V517= cdr((V517)); |
V523= CMPcdr((V523)); |
5563 |
V518= car((V517)); |
V524= CMPcar((V523)); |
5564 |
goto T1915;} |
goto T1980;} |
5565 |
goto T1911; |
goto T1976; |
5566 |
T1911:; |
T1976:; |
5567 |
if(((V506))==Cnil){ |
if(((V514))==Cnil){ |
5568 |
goto T1934;} |
goto T1999;} |
5569 |
{register object x= (V507),V519= (V508); |
{register object x= (V515),V525= (V516); |
5570 |
while(!endp(V519)) |
while(V525!=Cnil) |
5571 |
if(eql(x,V519->c.c_car)){ |
if(eql(x,V525->c.c_car)){ |
5572 |
goto T1938; |
goto T2003; |
5573 |
}else V519=V519->c.c_cdr; |
}else V525=V525->c.c_cdr; |
5574 |
goto T1936;} |
goto T2001;} |
5575 |
goto T1938; |
goto T2003; |
5576 |
T1938:; |
T2003:; |
5577 |
{register object x= (V507),V520= (V509); |
{register object x= (V515),V526= (V517); |
5578 |
while(!endp(V520)) |
while(V526!=Cnil) |
5579 |
if(eql(x,V520->c.c_car)){ |
if(eql(x,V526->c.c_car)){ |
5580 |
goto T1942; |
goto T2007; |
5581 |
}else V520=V520->c.c_cdr; |
}else V526=V526->c.c_cdr; |
5582 |
goto T1941;} |
goto T2006;} |
5583 |
goto T1942; |
goto T2007; |
5584 |
T1942:; |
T2007:; |
5585 |
base[4]= VV[243]; |
base[4]= VV[247]; |
5586 |
goto T1939; |
goto T2004; |
5587 |
goto T1941; |
goto T2006; |
5588 |
T1941:; |
T2006:; |
5589 |
base[4]= VV[244]; |
base[4]= VV[248]; |
5590 |
goto T1939; |
goto T2004; |
5591 |
T1939:; |
T2004:; |
5592 |
base[5]= (V504); |
base[5]= (V512); |
5593 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
5594 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
5595 |
vs_top=sup; |
vs_top=sup; |
5596 |
goto T1936; |
goto T2001; |
5597 |
T1936:; |
T2001:; |
5598 |
if(!(type_of((V506))==t_cons||((V506))==Cnil)){ |
if(!(type_of((V514))==t_cons||((V514))==Cnil)){ |
5599 |
goto T1947;} |
goto T2012;} |
5600 |
V509= append((V506),(V509)); |
V517= append((V514),(V517)); |
5601 |
goto T1945; |
goto T2010; |
5602 |
goto T1947; |
goto T2012; |
5603 |
T1947:; |
T2012:; |
5604 |
V509= make_cons((V506),(V509)); |
V517= make_cons((V514),(V517)); |
5605 |
goto T1945; |
goto T2010; |
5606 |
T1945:; |
T2010:; |
5607 |
vs_base=vs_top; |
vs_base=vs_top; |
5608 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
5609 |
vs_top=sup; |
vs_top=sup; |
5610 |
{object V521; |
{object V527; |
5611 |
vs_base=vs_top; |
vs_base=vs_top; |
5612 |
(void) (*Lnk361)(); |
(void) (*Lnk363)(); |
5613 |
vs_top=sup; |
vs_top=sup; |
5614 |
V522= vs_base[0]; |
V528= vs_base[0]; |
5615 |
V521= list(2,(V507),V522); |
V527= list(2,(V515),V528); |
5616 |
V505= make_cons((V521),(V505)); |
V513= make_cons((V527),(V513)); |
5617 |
goto T1932;} |
goto T1997;} |
5618 |
goto T1934; |
goto T1999; |
5619 |
T1934:; |
T1999:; |
5620 |
if(((V502))==Cnil){ |
if(((V510))==Cnil){ |
5621 |
goto T1954;} |
goto T2019;} |
5622 |
base[4]= (V504); |
base[4]= (V512); |
5623 |
base[5]= VV[245]; |
base[5]= VV[249]; |
5624 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
5625 |
(void) (*Lnk357)(); |
(void) (*Lnk369)(); |
5626 |
vs_top=sup; |
vs_top=sup; |
5627 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5628 |
goto T1954;} |
goto T2019;} |
5629 |
vs_base=vs_top; |
vs_base=vs_top; |
5630 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
5631 |
vs_top=sup; |
vs_top=sup; |
5632 |
{register object V523; |
{register object V529; |
5633 |
object V524; |
object V530; |
5634 |
vs_base=vs_top; |
vs_base=vs_top; |
5635 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
|
vs_top=sup; |
|
|
V523= vs_base[0]; |
|
|
V524= Cnil; |
|
|
goto T1963; |
|
|
T1963:; |
|
|
if(type_of((V523))!=t_cons){ |
|
|
goto T1967;} |
|
|
if(type_of(cdr((V523)))!=t_cons){ |
|
|
goto T1967;} |
|
|
if((cddr((V523)))!=Cnil){ |
|
|
goto T1967;} |
|
|
if(!(type_of(car((V523)))==t_symbol)){ |
|
|
goto T1967;} |
|
|
if((cadr((V523)))==Cnil){ |
|
|
goto T1966;} |
|
|
if(type_of(cadr((V523)))==t_symbol){ |
|
|
goto T1966;} |
|
|
goto T1967; |
|
|
T1967:; |
|
|
base[4]= VV[246]; |
|
|
base[5]= (V523); |
|
|
vs_top=(vs_base=base+4)+2; |
|
|
(void) (*Lnk347)(); |
|
5636 |
vs_top=sup; |
vs_top=sup; |
5637 |
goto T1966; |
V529= vs_base[0]; |
5638 |
T1966:; |
V530= Cnil; |
5639 |
if((cadr((V523)))==Cnil){ |
goto T2028; |
5640 |
goto T1981;} |
T2028:; |
5641 |
base[4]= car((V523)); |
if((CMPcadr((V529)))==Cnil){ |
5642 |
base[5]= symbol_value(VV[102]); |
goto T2031;} |
5643 |
|
base[4]= CMPcar((V529)); |
5644 |
|
base[5]= (VV[104]->s.s_dbind); |
5645 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
5646 |
(void) (*Lnk385)(); |
(void) (*Lnk398)(); |
5647 |
vs_top=sup; |
vs_top=sup; |
5648 |
V524= vs_base[0]; |
V530= vs_base[0]; |
5649 |
if(((V524))==Cnil){ |
if(((V530))==Cnil){ |
5650 |
goto T1985;} |
goto T2035;} |
5651 |
base[4]= VV[247]; |
base[4]= VV[250]; |
5652 |
base[5]= car((V523)); |
base[5]= CMPcar((V529)); |
5653 |
base[6]= cadr((V523)); |
base[6]= CMPcadr((V529)); |
5654 |
base[7]= cadr((V524)); |
base[7]= CMPcadr((V530)); |
5655 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
5656 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
5657 |
vs_top=sup; |
vs_top=sup; |
5658 |
goto T1981; |
goto T2031; |
5659 |
goto T1985; |
goto T2035; |
5660 |
T1985:; |
T2035:; |
5661 |
{object V525; |
{object V531; |
5662 |
V525= make_cons(car((V523)),cadr((V523))); |
V531= make_cons(CMPcar((V529)),CMPcadr((V529))); |
5663 |
setq(VV[102],make_cons((V525),symbol_value(VV[102])));} |
(VV[104]->s.s_dbind)= make_cons((V531),(VV[104]->s.s_dbind));} |
5664 |
goto T1981; |
goto T2031; |
5665 |
T1981:; |
T2031:; |
5666 |
if((symbol_value(VV[89]))==Cnil){ |
if(((VV[88]->s.s_dbind))==Cnil){ |
5667 |
goto T1997;} |
goto T2047;} |
5668 |
if(!(type_of(car(symbol_value(VV[89])))==t_symbol)){ |
if(!(type_of(CMPcar((VV[88]->s.s_dbind)))==t_symbol)){ |
5669 |
goto T1996;} |
goto T2046;} |
5670 |
|
goto T2047; |
5671 |
|
T2047:; |
5672 |
goto T1997; |
goto T1997; |
5673 |
T1997:; |
goto T2046; |
5674 |
goto T1932; |
T2046:; |
|
goto T1996; |
|
|
T1996:; |
|
5675 |
vs_base=vs_top; |
vs_base=vs_top; |
5676 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
5677 |
vs_top=sup; |
vs_top=sup; |
5678 |
V523= vs_base[0]; |
V529= vs_base[0]; |
5679 |
goto T1963;} |
goto T2028;} |
5680 |
goto T1954; |
goto T2019; |
5681 |
T1954:; |
T2019:; |
5682 |
base[4]= nreverse((V505)); |
base[4]= nreverse((V513)); |
5683 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
5684 |
return; |
return; |
5685 |
goto T1932; |
goto T1997; |
5686 |
T1932:; |
T1997:; |
5687 |
V506= Cnil; |
V514= Cnil; |
5688 |
V507= Cnil; |
V515= Cnil; |
5689 |
goto T1904;} |
goto T1969;} |
5690 |
} |
} |
5691 |
} |
} |
5692 |
/* function definition for LOOP-SEQUENCER */ |
/* function definition for LOOP-SEQUENCER */ |
5693 |
|
|
5694 |
static void L97() |
static void L103() |
5695 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5696 |
register object *sup=base+VM84; VC84 |
register object *sup=base+VM90; VC90 |
5697 |
vs_reserve(VM84); |
vs_check; |
5698 |
{object V526; |
{object V532; |
5699 |
register object V527; |
register object V533; |
|
object V528; |
|
|
object V529; |
|
|
object V530; |
|
|
object V531; |
|
|
object V532; |
|
|
object V533; |
|
5700 |
object V534; |
object V534; |
5701 |
object V535; |
object V535; |
5702 |
check_arg(10); |
object V536; |
|
V526=(base[0]); |
|
|
V527=(base[1]); |
|
|
V528=(base[2]); |
|
|
V529=(base[3]); |
|
|
V530=(base[4]); |
|
|
V531=(base[5]); |
|
|
V532=(base[6]); |
|
|
V533=(base[7]); |
|
|
V534=(base[8]); |
|
|
V535=(base[9]); |
|
|
vs_top=sup; |
|
|
goto TTL; |
|
|
TTL:; |
|
|
{object V536; |
|
5703 |
object V537; |
object V537; |
5704 |
object V538; |
object V538; |
5705 |
object V539; |
object V539; |
5706 |
object V540; |
object V540; |
5707 |
object V541; |
object V541; |
5708 |
object V542; |
V532=(base[0]); |
5709 |
register object V543; |
V533=(base[1]); |
5710 |
register object V544; |
V534=(base[2]); |
5711 |
|
V535=(base[3]); |
5712 |
|
V536=(base[4]); |
5713 |
|
V537=(base[5]); |
5714 |
|
V538=(base[6]); |
5715 |
|
V539=(base[7]); |
5716 |
|
V540=(base[8]); |
5717 |
|
V541=(base[9]); |
5718 |
|
vs_top=sup; |
5719 |
|
goto TTL; |
5720 |
|
TTL:; |
5721 |
|
{object V542; |
5722 |
|
object V543; |
5723 |
|
object V544; |
5724 |
object V545; |
object V545; |
5725 |
object V546; |
object V546; |
5726 |
object V547; |
object V547; |
5727 |
object V548; |
object V548; |
5728 |
object V549; |
register object V549; |
5729 |
object V550;{object V552; |
register object V550; |
5730 |
base[10]= (V527); |
object V551; |
5731 |
|
object V552; |
5732 |
|
object V553; |
5733 |
|
object V554; |
5734 |
|
object V555; |
5735 |
|
object V556;{object V558; |
5736 |
|
base[10]= (V533); |
5737 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
5738 |
(void) (*Lnk329)(); |
(void) (*Lnk336)(); |
5739 |
vs_top=sup; |
vs_top=sup; |
5740 |
V552= vs_base[0]; |
V558= vs_base[0]; |
5741 |
if(V552==Cnil)goto T2010; |
if(V558==Cnil)goto T2060; |
5742 |
V551= V552; |
V557= V558; |
5743 |
goto T2009; |
goto T2059; |
5744 |
goto T2010; |
goto T2060; |
5745 |
T2010:;} |
T2060:;} |
5746 |
V551= small_fixnum(0); |
V557= small_fixnum(0); |
5747 |
goto T2009; |
goto T2059; |
5748 |
T2009:; |
T2059:; |
5749 |
V540= one_plus(V551); |
V546= one_plus(V557); |
|
V536= Cnil; |
|
|
V537= Cnil; |
|
|
V538= Cnil; |
|
|
V539= Cnil; |
|
|
V541= Ct; |
|
5750 |
V542= Cnil; |
V542= Cnil; |
5751 |
V543= Cnil; |
V543= Cnil; |
5752 |
V544= Cnil; |
V544= Cnil; |
5753 |
V545= Cnil; |
V545= Cnil; |
5754 |
V546= Cnil; |
V547= Ct; |
|
V547= Cnil; |
|
5755 |
V548= Cnil; |
V548= Cnil; |
5756 |
V549= Cnil; |
V549= Cnil; |
5757 |
V550= Cnil; |
V550= Cnil; |
5758 |
if(((V529))==Cnil){ |
V551= Cnil; |
5759 |
goto T2013;} |
V552= Cnil; |
5760 |
base[10]= (V529); |
V553= Cnil; |
|
base[11]= Cnil; |
|
|
base[12]= (V530); |
|
|
vs_top=(vs_base=base+10)+3; |
|
|
(void) (*Lnk380)(); |
|
|
vs_top=sup; |
|
|
goto T2013; |
|
|
T2013:; |
|
|
{register object V553; |
|
|
register object V554; |
|
|
register object V555; |
|
|
object V556; |
|
|
V553= (V535); |
|
5761 |
V554= Cnil; |
V554= Cnil; |
5762 |
V555= Cnil; |
V555= Cnil; |
5763 |
V556= Cnil; |
V556= Cnil; |
5764 |
goto T2021; |
if(((V535))==Cnil){ |
5765 |
T2021:; |
goto T2063;} |
5766 |
if(((V553))!=Cnil){ |
base[10]= (V535); |
5767 |
goto T2022;} |
base[11]= Cnil; |
5768 |
goto T2019; |
base[12]= (V536); |
|
goto T2022; |
|
|
T2022:; |
|
|
V554= caar((V553)); |
|
|
V555= cadar((V553)); |
|
|
{object V557= (V554); |
|
|
if((V557!= VV[387]) |
|
|
&& (V557!= VV[234]))goto T2031; |
|
|
V537= Ct; |
|
|
base[10]= (V531); |
|
|
base[11]= (V555); |
|
|
base[12]= (V532); |
|
5769 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
5770 |
(void) (*Lnk359)(); |
(void) (*Lnk392)(); |
5771 |
vs_top=sup; |
vs_top=sup; |
5772 |
goto T2030; |
goto T2063; |
5773 |
goto T2031; |
T2063:; |
5774 |
T2031:; |
{register object V559; |
5775 |
if((V557!= VV[388]) |
register object V560; |
5776 |
&& (V557!= VV[248]) |
register object V561; |
5777 |
&& (V557!= VV[250]))goto T2037; |
object V562; |
5778 |
V545= Ct; |
V559= (V541); |
5779 |
if(!(((V554))==(VV[248]))){ |
V560= Cnil; |
5780 |
goto T2042;} |
V561= Cnil; |
5781 |
V543= VV[249]; |
V562= Cnil; |
5782 |
goto T2040; |
goto T2071; |
5783 |
goto T2042; |
T2071:; |
5784 |
T2042:; |
if(((V559))!=Cnil){ |
5785 |
if(!(((V554))==(VV[250]))){ |
goto T2072;} |
5786 |
goto T2040;} |
goto T2069; |
5787 |
V543= VV[251]; |
goto T2072; |
5788 |
goto T2040; |
T2072:; |
5789 |
T2040:; |
V560= CMPcaar((V559)); |
5790 |
base[10]= (V555); |
V561= CMPcadar((V559)); |
5791 |
base[11]= (V527); |
{object V563= (V560); |
5792 |
|
if((V563!= VV[400]) |
5793 |
|
&& (V563!= VV[238]))goto T2081; |
5794 |
|
V543= Ct; |
5795 |
|
base[10]= (V537); |
5796 |
|
base[11]= (V561); |
5797 |
|
base[12]= (V538); |
5798 |
|
vs_top=(vs_base=base+10)+3; |
5799 |
|
(void) (*Lnk371)(); |
5800 |
|
vs_top=sup; |
5801 |
|
goto T2080; |
5802 |
|
goto T2081; |
5803 |
|
T2081:; |
5804 |
|
if((V563!= VV[401]) |
5805 |
|
&& (V563!= VV[251]) |
5806 |
|
&& (V563!= VV[253]))goto T2087; |
5807 |
|
V551= Ct; |
5808 |
|
if(!(((V560))==(VV[251]))){ |
5809 |
|
goto T2092;} |
5810 |
|
V549= VV[252]; |
5811 |
|
goto T2090; |
5812 |
|
goto T2092; |
5813 |
|
T2092:; |
5814 |
|
if(!(((V560))==(VV[253]))){ |
5815 |
|
goto T2090;} |
5816 |
|
V549= VV[254]; |
5817 |
|
goto T2090; |
5818 |
|
T2090:; |
5819 |
|
base[10]= (V561); |
5820 |
|
base[11]= (V533); |
5821 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5822 |
(void) (*Lnk379)(); |
(void) (*Lnk393)(); |
5823 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5824 |
V555= vs_base[0]; |
V561= vs_base[0]; |
5825 |
vs_base++; |
vs_base++; |
5826 |
}else{ |
}else{ |
5827 |
V555= Cnil;} |
V561= Cnil;} |
5828 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5829 |
V547= vs_base[0]; |
V553= vs_base[0]; |
5830 |
vs_base++; |
vs_base++; |
5831 |
}else{ |
}else{ |
5832 |
V547= Cnil;} |
V553= Cnil;} |
5833 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5834 |
V546= vs_base[0]; |
V552= vs_base[0]; |
5835 |
}else{ |
}else{ |
5836 |
V546= Cnil;} |
V552= Cnil;} |
5837 |
vs_top=sup; |
vs_top=sup; |
5838 |
base[10]= (V526); |
base[10]= (V532); |
5839 |
base[11]= (V555); |
base[11]= (V561); |
5840 |
base[12]= (V527); |
base[12]= (V533); |
5841 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
5842 |
(void) (*Lnk380)(); |
(void) (*Lnk392)(); |
5843 |
vs_top=sup; |
vs_top=sup; |
5844 |
goto T2030; |
goto T2080; |
5845 |
goto T2037; |
goto T2087; |
5846 |
T2037:; |
T2087:; |
5847 |
if((V557!= VV[252]) |
if((V563!= VV[255]) |
5848 |
&& (V557!= VV[253]) |
&& (V563!= VV[256]) |
5849 |
&& (V557!= VV[254]) |
&& (V563!= VV[257]) |
5850 |
&& (V557!= VV[255]) |
&& (V563!= VV[258]) |
5851 |
&& (V557!= VV[256]))goto T2055; |
&& (V563!= VV[259]))goto T2105; |
5852 |
base[10]= (V554); |
base[10]= (V560); |
5853 |
base[11]= VV[252]; |
base[11]= VV[255]; |
5854 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5855 |
(void) (*Lnk357)(); |
(void) (*Lnk369)(); |
5856 |
vs_top=sup; |
vs_top=sup; |
5857 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5858 |
goto T2058;} |
goto T2108;} |
5859 |
V543= VV[251]; |
V549= VV[254]; |
5860 |
V544= VV[251]; |
V550= VV[254]; |
5861 |
goto T2056; |
goto T2106; |
5862 |
goto T2058; |
goto T2108; |
5863 |
T2058:; |
T2108:; |
5864 |
base[10]= (V554); |
base[10]= (V560); |
5865 |
base[11]= VV[253]; |
base[11]= VV[256]; |
5866 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5867 |
(void) (*Lnk357)(); |
(void) (*Lnk369)(); |
5868 |
vs_top=sup; |
vs_top=sup; |
5869 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5870 |
goto T2065;} |
goto T2115;} |
5871 |
V544= Ct; |
V550= Ct; |
5872 |
goto T2056; |
goto T2106; |
5873 |
goto T2065; |
goto T2115; |
5874 |
T2065:; |
T2115:; |
5875 |
base[10]= (V554); |
base[10]= (V560); |
5876 |
base[11]= VV[254]; |
base[11]= VV[257]; |
5877 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5878 |
(void) (*Lnk357)(); |
(void) (*Lnk369)(); |
5879 |
vs_top=sup; |
vs_top=sup; |
5880 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5881 |
goto T2071;} |
goto T2121;} |
5882 |
V543= VV[249]; |
V549= VV[252]; |
5883 |
V544= VV[249]; |
V550= VV[252]; |
5884 |
goto T2056; |
goto T2106; |
5885 |
goto T2071; |
goto T2121; |
5886 |
T2071:; |
T2121:; |
5887 |
base[10]= (V554); |
base[10]= (V560); |
5888 |
base[11]= VV[255]; |
base[11]= VV[258]; |
5889 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5890 |
(void) (*Lnk357)(); |
(void) (*Lnk369)(); |
5891 |
vs_top=sup; |
vs_top=sup; |
5892 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5893 |
goto T2078;} |
goto T2128;} |
5894 |
V543= VV[249]; |
V549= VV[252]; |
5895 |
goto T2056; |
goto T2106; |
5896 |
goto T2078; |
goto T2128; |
5897 |
T2078:; |
T2128:; |
5898 |
base[10]= (V554); |
base[10]= (V560); |
5899 |
base[11]= VV[256]; |
base[11]= VV[259]; |
5900 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5901 |
(void) (*Lnk357)(); |
(void) (*Lnk369)(); |
5902 |
vs_top=sup; |
vs_top=sup; |
5903 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5904 |
goto T2056;} |
goto T2106;} |
5905 |
V543= VV[251]; |
V549= VV[254]; |
5906 |
goto T2056; |
goto T2106; |
5907 |
T2056:; |
T2106:; |
5908 |
V548= Ct; |
V554= Ct; |
5909 |
base[10]= (V555); |
base[10]= (V561); |
5910 |
base[11]= (V527); |
base[11]= (V533); |
5911 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5912 |
(void) (*Lnk379)(); |
(void) (*Lnk393)(); |
5913 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5914 |
V555= vs_base[0]; |
V561= vs_base[0]; |
5915 |
vs_base++; |
vs_base++; |
5916 |
}else{ |
}else{ |
5917 |
V555= Cnil;} |
V561= Cnil;} |
5918 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5919 |
V549= vs_base[0]; |
V555= vs_base[0]; |
5920 |
vs_base++; |
vs_base++; |
5921 |
}else{ |
}else{ |
5922 |
V549= Cnil;} |
V555= Cnil;} |
5923 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5924 |
V550= vs_base[0]; |
V556= vs_base[0]; |
5925 |
}else{ |
}else{ |
5926 |
V550= Cnil;} |
V556= Cnil;} |
5927 |
vs_top=sup; |
vs_top=sup; |
5928 |
if(((V549))==Cnil){ |
if(((V555))==Cnil){ |
5929 |
goto T2096;} |
goto T2146;} |
5930 |
V536= list(2,VV[217],(V550)); |
V542= list(2,VV[221],(V556)); |
5931 |
goto T2094; |
goto T2144; |
5932 |
goto T2096; |
goto T2146; |
5933 |
T2096:; |
T2146:; |
5934 |
base[11]= VV[257]; |
base[11]= VV[260]; |
5935 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
5936 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
5937 |
vs_top=sup; |
vs_top=sup; |
5938 |
base[10]= vs_base[0]; |
base[10]= vs_base[0]; |
5939 |
base[11]= (V555); |
base[11]= (V561); |
5940 |
base[12]= (V527); |
base[12]= (V533); |
5941 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
5942 |
(void) (*Lnk359)(); |
(void) (*Lnk371)(); |
5943 |
vs_top=sup; |
vs_top=sup; |
5944 |
V536= vs_base[0]; |
V542= vs_base[0]; |
5945 |
goto T2094; |
goto T2144; |
5946 |
T2094:; |
T2144:; |
5947 |
goto T2030; |
goto T2080; |
5948 |
goto T2055; |
goto T2105; |
5949 |
T2055:; |
T2105:; |
5950 |
if((V557!= VV[215]))goto T2102; |
if((V563!= VV[219]))goto T2152; |
5951 |
base[10]= (V555); |
base[10]= (V561); |
5952 |
base[11]= (V527); |
base[11]= (V533); |
5953 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5954 |
(void) (*Lnk379)(); |
(void) (*Lnk393)(); |
5955 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5956 |
V555= vs_base[0]; |
V561= vs_base[0]; |
5957 |
vs_base++; |
vs_base++; |
5958 |
}else{ |
}else{ |
5959 |
V555= Cnil;} |
V561= Cnil;} |
5960 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5961 |
V541= vs_base[0]; |
V547= vs_base[0]; |
5962 |
vs_base++; |
vs_base++; |
5963 |
}else{ |
}else{ |
5964 |
V541= Cnil;} |
V547= Cnil;} |
5965 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
5966 |
V540= vs_base[0]; |
V546= vs_base[0]; |
5967 |
}else{ |
}else{ |
5968 |
V540= Cnil;} |
V546= Cnil;} |
5969 |
vs_top=sup; |
vs_top=sup; |
5970 |
if(((V541))!=Cnil){ |
if(((V547))!=Cnil){ |
5971 |
goto T2030;} |
goto T2080;} |
5972 |
base[11]= VV[258]; |
base[11]= VV[261]; |
5973 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
5974 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
5975 |
vs_top=sup; |
vs_top=sup; |
5976 |
V540= vs_base[0]; |
V546= vs_base[0]; |
5977 |
base[10]= (V540); |
base[10]= (V546); |
5978 |
base[11]= (V555); |
base[11]= (V561); |
5979 |
base[12]= (V527); |
base[12]= (V533); |
5980 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
5981 |
(void) (*Lnk359)(); |
(void) (*Lnk371)(); |
5982 |
vs_top=sup; |
vs_top=sup; |
5983 |
goto T2030; |
goto T2080; |
5984 |
goto T2102; |
goto T2152; |
5985 |
T2102:; |
T2152:; |
5986 |
base[10]= VV[259]; |
base[10]= VV[262]; |
5987 |
base[11]= (V554); |
base[11]= (V560); |
5988 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
5989 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
5990 |
vs_top=sup;} |
vs_top=sup;} |
5991 |
goto T2030; |
goto T2080; |
5992 |
T2030:; |
T2080:; |
5993 |
if(((V556))==Cnil){ |
if(((V562))==Cnil){ |
5994 |
goto T2116;} |
goto T2166;} |
5995 |
if(((V543))==Cnil){ |
if(((V549))==Cnil){ |
5996 |
goto T2116;} |
goto T2166;} |
5997 |
if(((V543))==((V556))){ |
if(((V549))==((V562))){ |
5998 |
goto T2116;} |
goto T2166;} |
5999 |
base[10]= VV[260]; |
base[10]= VV[263]; |
6000 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
6001 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
6002 |
vs_top=sup; |
vs_top=sup; |
6003 |
goto T2116; |
goto T2166; |
6004 |
T2116:; |
T2166:; |
6005 |
V556= (V543); |
V562= (V549); |
6006 |
V553= cdr((V553)); |
V559= CMPcdr((V559)); |
6007 |
goto T2021;} |
goto T2071;} |
6008 |
goto T2019; |
goto T2069; |
6009 |
T2019:; |
T2069:; |
6010 |
if(((V531))==Cnil){ |
if(((V537))==Cnil){ |
6011 |
goto T2129;} |
goto T2179;} |
6012 |
if(((V537))!=Cnil){ |
if(((V543))!=Cnil){ |
6013 |
goto T2129;} |
goto T2179;} |
6014 |
base[10]= VV[261]; |
base[10]= VV[264]; |
6015 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
6016 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
6017 |
vs_top=sup; |
vs_top=sup; |
6018 |
goto T2129; |
goto T2179; |
6019 |
T2129:; |
T2179:; |
6020 |
if(((V545))!=Cnil){ |
if(((V551))!=Cnil){ |
6021 |
goto T2135;} |
goto T2185;} |
6022 |
base[10]= (V526); |
base[10]= (V532); |
6023 |
V547= Ct;{object V558; |
V553= Ct;{object V564; |
6024 |
base[12]= (V527); |
base[12]= (V533); |
6025 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
6026 |
(void) (*Lnk329)(); |
(void) (*Lnk336)(); |
6027 |
vs_top=sup; |
vs_top=sup; |
6028 |
V558= vs_base[0]; |
V564= vs_base[0]; |
6029 |
if(V558==Cnil)goto T2143; |
if(V564==Cnil)goto T2193; |
6030 |
V546= V558; |
V552= V564; |
6031 |
goto T2142; |
goto T2192; |
6032 |
goto T2143; |
goto T2193; |
6033 |
T2143:;} |
T2193:;} |
6034 |
V546= small_fixnum(0); |
V552= small_fixnum(0); |
6035 |
goto T2142; |
goto T2192; |
6036 |
T2142:; |
T2192:; |
6037 |
base[11]= (V546); |
base[11]= (V552); |
6038 |
base[12]= (V527); |
base[12]= (V533); |
6039 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
6040 |
(void) (*Lnk380)(); |
(void) (*Lnk392)(); |
6041 |
vs_top=sup; |
vs_top=sup; |
6042 |
goto T2135; |
goto T2185; |
6043 |
T2135:; |
T2185:; |
6044 |
{register object x= (V543),V559= VV[262]; |
{register object x= (V549),V565= VV[265]; |
6045 |
while(!endp(V559)) |
while(V565!=Cnil) |
6046 |
if(eql(x,V559->c.c_car)){ |
if(eql(x,V565->c.c_car)){ |
6047 |
goto T2150; |
goto T2200; |
6048 |
}else V559=V559->c.c_cdr; |
}else V565=V565->c.c_cdr; |
6049 |
goto T2149;} |
goto T2199;} |
6050 |
goto T2150; |
goto T2200; |
6051 |
T2150:; |
T2200:; |
6052 |
if(((V548))!=Cnil){ |
if(((V554))!=Cnil){ |
6053 |
goto T2152;} |
goto T2202;} |
6054 |
if(((V534))==Cnil){ |
if(((V540))==Cnil){ |
6055 |
goto T2151;} |
goto T2201;} |
6056 |
goto T2152; |
goto T2202; |
6057 |
T2152:; |
T2202:; |
6058 |
if(((V548))!=Cnil){ |
if(((V554))!=Cnil){ |
6059 |
goto T2156;} |
goto T2206;} |
6060 |
base[11]= VV[263]; |
base[11]= VV[266]; |
6061 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
6062 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
6063 |
vs_top=sup; |
vs_top=sup; |
6064 |
V536= vs_base[0]; |
V542= vs_base[0]; |
6065 |
base[10]= (V536); |
base[10]= (V542); |
6066 |
base[11]= Cnil; |
base[11]= Cnil; |
6067 |
base[12]= (V527); |
base[12]= (V533); |
6068 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
6069 |
(void) (*Lnk359)(); |
(void) (*Lnk371)(); |
6070 |
vs_top=sup; |
vs_top=sup; |
6071 |
{object V560; |
{object V566; |
6072 |
V560= list(3,VV[11],(V536),(V534)); |
V566= list(3,VV[11],(V542),(V540)); |
6073 |
setq(VV[106],make_cons((V560),symbol_value(VV[106])));} |
(VV[108]->s.s_dbind)= make_cons((V566),(VV[108]->s.s_dbind));} |
6074 |
goto T2156; |
goto T2206; |
6075 |
T2156:; |
T2206:; |
6076 |
if(((V544))==Cnil){ |
if(((V550))==Cnil){ |
6077 |
goto T2169;} |
goto T2219;} |
6078 |
V538= VV[34]; |
V544= VV[34]; |
6079 |
goto T2167; |
goto T2217; |
6080 |
goto T2169; |
goto T2219; |
6081 |
T2169:; |
T2219:; |
6082 |
V538= VV[213]; |
V544= VV[217]; |
6083 |
goto T2167; |
goto T2217; |
6084 |
T2167:; |
T2217:; |
6085 |
goto T2151; |
goto T2201; |
6086 |
T2151:; |
T2201:; |
6087 |
if(!(eql((V540),small_fixnum(1)))){ |
if(!(eql((V546),small_fixnum(1)))){ |
6088 |
goto T2173;} |
goto T2223;} |
6089 |
V542= list(2,VV[180],(V526)); |
V548= list(2,VV[184],(V532)); |
6090 |
goto T2171; |
goto T2221; |
6091 |
goto T2173; |
goto T2223; |
6092 |
T2173:; |
T2223:; |
6093 |
V542= list(3,VV[181],(V526),(V540)); |
V548= list(3,VV[185],(V532),(V546)); |
6094 |
goto T2171; |
goto T2221; |
6095 |
T2171:; |
T2221:; |
6096 |
goto T2147; |
goto T2197; |
6097 |
goto T2149; |
goto T2199; |
6098 |
T2149:; |
T2199:; |
6099 |
if(((V545))!=Cnil){ |
if(((V551))!=Cnil){ |
6100 |
goto T2175;} |
goto T2225;} |
6101 |
if(((V534))!=Cnil){ |
if(((V540))!=Cnil){ |
6102 |
goto T2178;} |
goto T2228;} |
6103 |
base[10]= VV[264]; |
base[10]= VV[267]; |
6104 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
6105 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
6106 |
vs_top=sup; |
vs_top=sup; |
6107 |
goto T2178; |
goto T2228; |
6108 |
T2178:; |
T2228:; |
6109 |
{object V561; |
{object V567; |
6110 |
V561= list(3,VV[11],(V526),list(2,VV[199],(V534))); |
V567= list(3,VV[11],(V532),list(2,VV[268],(V540))); |
6111 |
setq(VV[106],make_cons((V561),symbol_value(VV[106])));} |
(VV[108]->s.s_dbind)= make_cons((V567),(VV[108]->s.s_dbind));} |
6112 |
goto T2175; |
goto T2225; |
6113 |
T2175:; |
T2225:; |
6114 |
if(((V534))==Cnil){ |
if(((V540))==Cnil){ |
6115 |
goto T2184;} |
goto T2234;} |
6116 |
if(((V536))!=Cnil){ |
if(((V542))!=Cnil){ |
6117 |
goto T2184;} |
goto T2234;} |
6118 |
base[10]= (V527); |
base[10]= (V533); |
6119 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
6120 |
(void) (*Lnk329)(); |
(void) (*Lnk336)(); |
6121 |
vs_top=sup; |
vs_top=sup; |
6122 |
V536= vs_base[0]; |
V542= vs_base[0]; |
6123 |
V544= Ct; |
V550= Ct; |
6124 |
goto T2184; |
goto T2234; |
6125 |
T2184:; |
T2234:; |
6126 |
if(((V536))==Cnil){ |
if(((V542))==Cnil){ |
6127 |
goto T2193;} |
goto T2243;} |
6128 |
|
if(((V550))==Cnil){ |
6129 |
|
goto T2248;} |
6130 |
|
V544= VV[33]; |
6131 |
|
goto T2246; |
6132 |
|
goto T2248; |
6133 |
|
T2248:; |
6134 |
|
V544= VV[269]; |
6135 |
|
goto T2246; |
6136 |
|
T2246:; |
6137 |
|
goto T2243; |
6138 |
|
T2243:; |
6139 |
|
if(!(eql((V546),small_fixnum(1)))){ |
6140 |
|
goto T2252;} |
6141 |
|
V548= list(2,VV[268],(V532)); |
6142 |
|
goto T2250; |
6143 |
|
goto T2252; |
6144 |
|
T2252:; |
6145 |
|
V548= list(3,VV[270],(V532),(V546)); |
6146 |
|
goto T2250; |
6147 |
|
T2250:; |
6148 |
|
goto T2197; |
6149 |
|
T2197:; |
6150 |
if(((V544))==Cnil){ |
if(((V544))==Cnil){ |
6151 |
goto T2198;} |
goto T2254;} |
|
V538= VV[33]; |
|
|
goto T2196; |
|
|
goto T2198; |
|
|
T2198:; |
|
|
V538= VV[265]; |
|
|
goto T2196; |
|
|
T2196:; |
|
|
goto T2193; |
|
|
T2193:; |
|
|
if(!(eql((V540),small_fixnum(1)))){ |
|
|
goto T2202;} |
|
|
V542= list(2,VV[199],(V526)); |
|
|
goto T2200; |
|
|
goto T2202; |
|
|
T2202:; |
|
|
V542= list(3,VV[266],(V526),(V540)); |
|
|
goto T2200; |
|
|
T2200:; |
|
|
goto T2147; |
|
|
T2147:; |
|
|
if(((V538))==Cnil){ |
|
|
goto T2204;} |
|
6152 |
base[10]= Ct; |
base[10]= Ct; |
6153 |
base[11]= (V526); |
base[11]= (V532); |
6154 |
base[12]= list(3,(V538),(V526),(V536)); |
base[12]= list(3,(V544),(V532),(V542)); |
6155 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
6156 |
(void) (*Lnk331)(); |
(void) (*Lnk338)(); |
6157 |
vs_top=sup; |
vs_top=sup; |
6158 |
V539= vs_base[0]; |
V545= vs_base[0]; |
6159 |
goto T2204; |
goto T2254; |
6160 |
T2204:; |
T2254:; |
6161 |
if(((V533))==Cnil){ |
if(((V539))==Cnil){ |
6162 |
goto T2211;} |
goto T2261;} |
6163 |
base[10]= (V528); |
base[10]= (V534); |
6164 |
base[11]= (V526); |
base[11]= (V532); |
6165 |
base[12]= (V533); |
base[12]= (V539); |
6166 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
6167 |
(void) (*Lnk331)(); |
(void) (*Lnk338)(); |
6168 |
vs_top=sup; |
vs_top=sup; |
6169 |
V562= vs_base[0]; |
V568= vs_base[0]; |
6170 |
V533= list(2,(V529),V562); |
V539= list(2,(V535),V568); |
6171 |
goto T2211; |
goto T2261; |
6172 |
T2211:; |
T2261:; |
6173 |
{object V563; |
{object V569; |
6174 |
object V564; |
object V570; |
6175 |
V563= (V539); |
V569= (V545); |
6176 |
V564= (V539); |
V570= (V545); |
|
if(((V541))==Cnil){ |
|
|
goto T2219;} |
|
6177 |
if(((V547))==Cnil){ |
if(((V547))==Cnil){ |
6178 |
goto T2219;} |
goto T2269;} |
6179 |
if(((V549))==Cnil){ |
if(((V553))==Cnil){ |
6180 |
goto T2219;} |
goto T2269;} |
6181 |
base[10]= (V538); |
if(((V555))==Cnil){ |
6182 |
|
goto T2269;} |
6183 |
|
base[10]= (V544); |
6184 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
6185 |
Lsymbol_function(); |
Lsymbol_function(); |
6186 |
vs_top=sup; |
vs_top=sup; |
6187 |
V565= vs_base[0]; |
V571= vs_base[0]; |
6188 |
V563= ( |
V569= ( |
6189 |
V566 = V565, |
V572 = V571, |
6190 |
(type_of(V566) == t_sfun ?(*((V566)->sfn.sfn_self)): |
(type_of(V572) == t_sfun ?(*((V572)->sfn.sfn_self)): |
6191 |
(fcall.fun=(V566),fcall.argd=2,fcalln))((V546),(V550))); |
(fcall.argd=2,type_of(V572)==t_vfun) ? |
6192 |
if(((V563))==Cnil){ |
(*((V572)->sfn.sfn_self)): |
6193 |
goto T2219;} |
(fcall.fun=(V572),fcalln))((V552),(V556))); |
6194 |
V564= Ct; |
if(((V569))==Cnil){ |
6195 |
goto T2219; |
goto T2269;} |
6196 |
T2219:; |
V570= Ct; |
6197 |
|
goto T2269; |
6198 |
|
T2269:; |
6199 |
base[10]= Ct; |
base[10]= Ct; |
6200 |
base[11]= (V526); |
base[11]= (V532); |
6201 |
base[12]= (V542); |
base[12]= (V548); |
6202 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
6203 |
(void) (*Lnk331)(); |
(void) (*Lnk338)(); |
6204 |
vs_top=sup; |
vs_top=sup; |
6205 |
V567= vs_base[0]; |
V573= vs_base[0]; |
6206 |
base[10]= list(8,Cnil,list(2,(V526),V567),(V564),(V533),Cnil,Cnil,(V563),(V533)); |
base[10]= list(8,Cnil,list(2,(V532),V573),(V570),(V539),Cnil,Cnil,(V569),(V539)); |
6207 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
6208 |
return;}} |
return;}} |
6209 |
} |
} |
6210 |
} |
} |
6211 |
/* function definition for LOOP-FOR-ARITHMETIC */ |
/* function definition for LOOP-FOR-ARITHMETIC */ |
6212 |
|
|
6213 |
static void L98() |
static void L104() |
6214 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6215 |
register object *sup=base+VM85; VC85 |
register object *sup=base+VM91; VC91 |
6216 |
vs_reserve(VM85); |
vs_check; |
6217 |
{object V568; |
{object V574; |
6218 |
object V569; |
object V575; |
6219 |
object V570; |
object V576; |
6220 |
object V571; |
object V577; |
6221 |
check_arg(4); |
V574=(base[0]); |
6222 |
V568=(base[0]); |
V575=(base[1]); |
6223 |
V569=(base[1]); |
V576=(base[2]); |
6224 |
V570=(base[2]); |
V577=(base[3]); |
|
V571=(base[3]); |
|
6225 |
vs_top=sup; |
vs_top=sup; |
6226 |
goto TTL; |
goto TTL; |
6227 |
TTL:; |
TTL:; |
6228 |
base[4]= (V568); |
base[4]= (V574); |
6229 |
base[6]= (V570); |
base[6]= (V576); |
6230 |
base[7]= symbol_value(VV[183]); |
base[7]= (VV[187]->s.s_dbind); |
6231 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
6232 |
(void) (*Lnk375)(); |
(void) (*Lnk387)(); |
6233 |
vs_top=sup; |
vs_top=sup; |
6234 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
6235 |
base[6]= Ct; |
base[6]= Ct; |
6239 |
base[10]= Cnil; |
base[10]= Cnil; |
6240 |
base[11]= Cnil; |
base[11]= Cnil; |
6241 |
base[12]= Cnil; |
base[12]= Cnil; |
6242 |
base[14]= VV[267]; |
base[14]= VV[271]; |
6243 |
base[15]= Cnil; |
base[15]= Cnil; |
6244 |
V572= list(2,(V571),(V569)); |
V578= list(2,(V577),(V575)); |
6245 |
base[16]= make_cons(/* INLINE-ARGS */V572,Cnil); |
base[16]= make_cons(/* INLINE-ARGS */V578,Cnil); |
6246 |
vs_top=(vs_base=base+14)+3; |
vs_top=(vs_base=base+14)+3; |
6247 |
(void) (*Lnk384)(); |
(void) (*Lnk397)(); |
6248 |
vs_top=sup; |
vs_top=sup; |
6249 |
base[13]= vs_base[0]; |
base[13]= vs_base[0]; |
6250 |
vs_top=(vs_base=base+4)+10; |
vs_top=(vs_base=base+4)+10; |
6251 |
(void) (*Lnk389)(); |
(void) (*Lnk402)(); |
6252 |
return; |
return; |
6253 |
} |
} |
6254 |
} |
} |
6255 |
/* function definition for LOOP-SEQUENCE-ELEMENTS-PATH */ |
/* function definition for LOOP-SEQUENCE-ELEMENTS-PATH */ |
6256 |
|
|
6257 |
static void L99() |
static void L105() |
6258 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6259 |
register object *sup=base+VM86; VC86 |
register object *sup=base+VM92; VC92 |
6260 |
vs_reserve(VM86); |
vs_check; |
6261 |
{object V573; |
{object V579; |
6262 |
object V574; |
object V580; |
|
object V575; |
|
|
object V576; |
|
|
object V577; |
|
|
object V578; |
|
|
object V579; |
|
|
if(vs_top-vs_base<3) too_few_arguments(); |
|
|
parse_key(vs_base+3,FALSE,FALSE,4,VV[390],VV[391],VV[392],VV[393]); |
|
|
V573=(base[0]); |
|
|
V574=(base[1]); |
|
|
V575=(base[2]); |
|
|
vs_top=sup; |
|
|
V576=(base[3]); |
|
|
V577=(base[4]); |
|
|
V578=(base[5]); |
|
|
V579=(base[6]); |
|
|
{object V580; |
|
6263 |
object V581; |
object V581; |
6264 |
base[11]= VV[268]; |
object V582; |
6265 |
|
object V583; |
6266 |
|
object V584; |
6267 |
|
object V585; |
6268 |
|
parse_key(vs_base+3,FALSE,FALSE,4,VV[403],VV[404],VV[405],VV[406]); |
6269 |
|
V579=(base[0]); |
6270 |
|
V580=(base[1]); |
6271 |
|
V581=(base[2]); |
6272 |
|
vs_top=sup; |
6273 |
|
V582=(base[3]); |
6274 |
|
V583=(base[4]); |
6275 |
|
V584=(base[5]); |
6276 |
|
V585=(base[6]); |
6277 |
|
{object V586; |
6278 |
|
object V587; |
6279 |
|
base[11]= VV[272]; |
6280 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
6281 |
(void) (*Lnk394)(); |
(void) (*Lnk407)(); |
6282 |
if(vs_base>=vs_top){vs_top=sup;goto T2253;} |
if(vs_base>=vs_top){vs_top=sup;goto T2303;} |
6283 |
V580= vs_base[0]; |
V586= vs_base[0]; |
6284 |
vs_base++; |
vs_base++; |
6285 |
if(vs_base>=vs_top){vs_top=sup;goto T2254;} |
if(vs_base>=vs_top){vs_top=sup;goto T2304;} |
6286 |
V581= vs_base[0]; |
V587= vs_base[0]; |
6287 |
vs_top=sup; |
vs_top=sup; |
6288 |
goto T2255; |
goto T2305; |
6289 |
goto T2253; |
goto T2303; |
6290 |
T2253:; |
T2303:; |
6291 |
V580= Cnil; |
V586= Cnil; |
6292 |
goto T2254; |
goto T2304; |
6293 |
T2254:; |
T2304:; |
6294 |
V581= Cnil; |
V587= Cnil; |
6295 |
goto T2255; |
goto T2305; |
6296 |
T2255:; |
T2305:; |
6297 |
{object V582; |
{object V588; |
6298 |
base[11]= VV[269]; |
base[11]= VV[273]; |
6299 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
6300 |
(void) (*Lnk394)(); |
(void) (*Lnk407)(); |
6301 |
vs_top=sup; |
vs_top=sup; |
6302 |
V582= vs_base[0]; |
V588= vs_base[0]; |
6303 |
base[11]= (V580); |
base[11]= (V586); |
6304 |
base[12]= VV[210]; |
base[12]= VV[214]; |
6305 |
base[13]= (V581); |
base[13]= (V587); |
6306 |
base[14]= (V573); |
base[14]= (V579); |
6307 |
if((V574)!=Cnil){ |
if((V580)!=Cnil){ |
6308 |
base[15]= (V574); |
base[15]= (V580); |
6309 |
goto T2263;} |
goto T2313;} |
6310 |
base[15]= (V579); |
base[15]= (V585); |
6311 |
goto T2263; |
goto T2313; |
6312 |
T2263:; |
T2313:; |
6313 |
base[16]= (V582); |
base[16]= (V588); |
6314 |
base[17]= (V578); |
base[17]= (V584); |
6315 |
base[18]= list(3,(V576),(V582),(V580)); |
base[18]= list(3,(V582),(V588),(V586)); |
6316 |
base[19]= list(2,(V577),(V582)); |
base[19]= list(2,(V583),(V588)); |
6317 |
base[20]= (V575); |
base[20]= (V581); |
6318 |
vs_top=(vs_base=base+11)+10; |
vs_top=(vs_base=base+11)+10; |
6319 |
(void) (*Lnk389)(); |
(void) (*Lnk402)(); |
6320 |
vs_top=sup; |
vs_top=sup; |
6321 |
V583= vs_base[0]; |
V589= vs_base[0]; |
6322 |
base[11]= listA(3,Cnil,Cnil,V583); |
base[11]= listA(3,Cnil,Cnil,V589); |
6323 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
6324 |
return;}} |
return;}} |
6325 |
} |
} |
6326 |
} |
} |
6327 |
/* function definition for LOOP-HASH-TABLE-ITERATION-PATH */ |
/* function definition for LOOP-HASH-TABLE-ITERATION-PATH */ |
6328 |
|
|
6329 |
static void L100() |
static void L106() |
6330 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6331 |
register object *sup=base+VM87; VC87 |
register object *sup=base+VM93; VC93 |
6332 |
vs_reserve(VM87); |
vs_check; |
6333 |
bds_check; |
bds_check; |
6334 |
{object V584; |
{object V590; |
6335 |
object V585; |
object V591; |
6336 |
object V586; |
object V592; |
6337 |
register object V587; |
register object V593; |
6338 |
if(vs_top-vs_base<3) too_few_arguments(); |
parse_key(vs_base+3,FALSE,FALSE,1,VV[408]); |
6339 |
parse_key(vs_base+3,FALSE,FALSE,1,VV[395]); |
V590=(base[0]); |
6340 |
V584=(base[0]); |
V591=(base[1]); |
6341 |
V585=(base[1]); |
V592=(base[2]); |
|
V586=(base[2]); |
|
6342 |
vs_top=sup; |
vs_top=sup; |
6343 |
V587=(base[3]); |
V593=(base[3]); |
6344 |
bds_bind(VV[44],small_fixnum(4)); |
bds_bind(VV[44],small_fixnum(4)); |
6345 |
bds_bind(VV[45],small_fixnum(4)); |
bds_bind(VV[45],small_fixnum(4)); |
6346 |
goto T2271; |
goto T2321; |
6347 |
T2271:; |
T2321:; |
6348 |
base[7]= (V587); |
base[7]= (V593); |
6349 |
base[8]= VV[270]; |
base[8]= VV[274]; |
6350 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
6351 |
(void) (*Lnk333)(); |
(void) (*Lnk340)(); |
6352 |
vs_top=sup; |
vs_top=sup; |
6353 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
6354 |
goto T2272;} |
goto T2322;} |
6355 |
bds_unwind1; |
bds_unwind1; |
6356 |
bds_unwind1; |
bds_unwind1; |
6357 |
goto T2269; |
goto T2319; |
6358 |
goto T2272; |
goto T2322; |
6359 |
T2272:; |
T2322:; |
6360 |
base[7]= VV[47]; |
base[7]= VV[47]; |
6361 |
base[8]= VV[48]; |
base[8]= VV[48]; |
6362 |
base[9]= VV[271]; |
base[9]= VV[275]; |
6363 |
base[10]= (V587); |
base[10]= (V593); |
6364 |
base[11]= VV[270]; |
base[11]= VV[274]; |
6365 |
vs_top=(vs_base=base+7)+5; |
vs_top=(vs_base=base+7)+5; |
6366 |
Lcerror(); |
Lcerror(); |
6367 |
vs_top=sup; |
vs_top=sup; |
6368 |
base[7]= symbol_value(VV[50]); |
base[7]= (VV[50]->s.s_dbind); |
6369 |
base[8]= VV[51]; |
base[8]= VV[51]; |
6370 |
base[9]= VV[271]; |
base[9]= VV[275]; |
6371 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
6372 |
Lformat(); |
Lformat(); |
6373 |
vs_top=sup; |
vs_top=sup; |
6374 |
base[7]= symbol_value(VV[50]); |
base[7]= (VV[50]->s.s_dbind); |
6375 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
6376 |
Lfinish_output(); |
Lfinish_output(); |
6377 |
vs_top=sup; |
vs_top=sup; |
6378 |
vs_base=vs_top; |
vs_base=vs_top; |
6379 |
Lread(); |
Lread(); |
6380 |
vs_top=sup; |
vs_top=sup; |
6381 |
V587= vs_base[0]; |
V593= vs_base[0]; |
6382 |
base[7]= symbol_value(VV[50]); |
base[7]= (VV[50]->s.s_dbind); |
6383 |
base[8]= VV[52]; |
base[8]= VV[52]; |
6384 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
6385 |
Lformat(); |
Lformat(); |
6386 |
vs_top=sup; |
vs_top=sup; |
6387 |
goto T2271; |
goto T2321; |
6388 |
goto T2269; |
goto T2319; |
6389 |
T2269:; |
T2319:; |
6390 |
if((cdr((V586)))!=Cnil){ |
if((CMPcdr((V592)))!=Cnil){ |
6391 |
goto T2298;} |
goto T2348;} |
6392 |
{register object x= caar((V586)),V588= VV[272]; |
{register object x= CMPcaar((V592)),V594= VV[276]; |
6393 |
while(!endp(V588)) |
while(V594!=Cnil) |
6394 |
if(eql(x,V588->c.c_car)){ |
if(eql(x,V594->c.c_car)){ |
6395 |
goto T2299; |
goto T2349; |
6396 |
}else V588=V588->c.c_cdr;} |
}else V594=V594->c.c_cdr;} |
6397 |
goto T2298; |
goto T2348; |
6398 |
T2298:; |
T2348:; |
6399 |
base[5]= VV[273]; |
base[5]= VV[277]; |
6400 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6401 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
6402 |
vs_top=sup; |
vs_top=sup; |
6403 |
goto T2297; |
goto T2347; |
6404 |
goto T2299; |
goto T2349; |
6405 |
T2299:; |
T2349:; |
6406 |
if(((V586))!=Cnil){ |
if(((V592))!=Cnil){ |
6407 |
goto T2297;} |
goto T2347;} |
6408 |
base[5]= VV[274]; |
base[5]= VV[278]; |
6409 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6410 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
6411 |
vs_top=sup; |
vs_top=sup; |
6412 |
goto T2297; |
goto T2347; |
6413 |
T2297:; |
T2347:; |
6414 |
{object V589; |
{object V595; |
6415 |
object V590; |
object V596; |
6416 |
object V591; |
object V597; |
6417 |
register object V592; |
register object V598; |
6418 |
base[5]= VV[275]; |
base[5]= VV[279]; |
6419 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6420 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
6421 |
vs_top=sup; |
vs_top=sup; |
6422 |
V589= vs_base[0]; |
V595= vs_base[0]; |
6423 |
base[5]= VV[276]; |
base[5]= VV[280]; |
6424 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6425 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
6426 |
vs_top=sup; |
vs_top=sup; |
6427 |
V590= vs_base[0]; |
V596= vs_base[0]; |
6428 |
V591= Cnil; |
V597= Cnil; |
6429 |
V592= Cnil; |
V598= Cnil; |
6430 |
{object V593; |
{object V599; |
6431 |
object V594; |
object V600; |
6432 |
if(!(((V587))==(VV[277]))){ |
if(!(((V593))==(VV[281]))){ |
6433 |
goto T2314;} |
goto T2364;} |
6434 |
base[5]= VV[278]; |
base[5]= VV[282]; |
6435 |
goto T2312; |
goto T2362; |
6436 |
goto T2314; |
goto T2364; |
6437 |
T2314:; |
T2364:; |
6438 |
base[5]= VV[277]; |
base[5]= VV[281]; |
6439 |
goto T2312; |
goto T2362; |
6440 |
T2312:; |
T2362:; |
6441 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6442 |
(void) (*Lnk394)(); |
(void) (*Lnk407)(); |
6443 |
if(vs_base>=vs_top){vs_top=sup;goto T2316;} |
if(vs_base>=vs_top){vs_top=sup;goto T2366;} |
6444 |
V593= vs_base[0]; |
V599= vs_base[0]; |
6445 |
vs_base++; |
vs_base++; |
6446 |
if(vs_base>=vs_top){vs_top=sup;goto T2317;} |
if(vs_base>=vs_top){vs_top=sup;goto T2367;} |
6447 |
V594= vs_base[0]; |
V600= vs_base[0]; |
6448 |
vs_top=sup; |
vs_top=sup; |
6449 |
goto T2318; |
goto T2368; |
6450 |
goto T2316; |
goto T2366; |
6451 |
T2316:; |
T2366:; |
6452 |
V593= Cnil; |
V599= Cnil; |
6453 |
goto T2317; |
goto T2367; |
6454 |
T2317:; |
T2367:; |
|
V594= Cnil; |
|
|
goto T2318; |
|
|
T2318:; |
|
|
V594= Ct; |
|
|
vs_base=vs_top; |
|
|
(void) (*Lnk378)(); |
|
|
vs_top=sup; |
|
|
V591= vs_base[0]; |
|
|
{register object V595; |
|
|
register object V596; |
|
|
register object V597; |
|
|
V598= list(3,(V584),Cnil,(V585)); |
|
|
V599= list(2,(V589),cadar((V586))); |
|
|
if((V594)==Cnil){ |
|
|
V600= Cnil; |
|
|
goto T2324;} |
|
|
if((V593)==Cnil){ |
|
6455 |
V600= Cnil; |
V600= Cnil; |
6456 |
goto T2324;} |
goto T2368; |
6457 |
V601= list(2,(V593),Cnil); |
T2368:; |
6458 |
V600= make_cons(/* INLINE-ARGS */V601,Cnil); |
V600= Ct; |
6459 |
goto T2324; |
vs_base=vs_top; |
6460 |
T2324:; |
(void) (*Lnk391)(); |
6461 |
V597= listA(3,/* INLINE-ARGS */V598,/* INLINE-ARGS */V599,V600); |
vs_top=sup; |
6462 |
V595= Cnil; |
V597= vs_base[0]; |
6463 |
V596= Cnil; |
{register object V601; |
6464 |
if(!(((V587))==(VV[277]))){ |
register object V602; |
6465 |
goto T2327;} |
object V603; |
6466 |
V595= (V584); |
object V604; |
6467 |
if((V594)==Cnil){ |
object V605; |
6468 |
V596= Cnil; |
object V606; |
6469 |
goto T2331;} |
register object V607; |
6470 |
V596= (V593); |
V601= Cnil; |
6471 |
goto T2331; |
V602= Cnil; |
6472 |
T2331:; |
base[10]= VV[283]; |
6473 |
goto T2325; |
vs_top=(vs_base=base+10)+1; |
6474 |
goto T2327; |
(void) (*Lnk334)(); |
|
T2327:; |
|
|
if((V594)==Cnil){ |
|
|
V595= Cnil; |
|
|
goto T2333;} |
|
|
V595= (V593); |
|
|
goto T2333; |
|
|
T2333:; |
|
|
V596= (V584); |
|
|
goto T2325; |
|
|
T2325:; |
|
|
{object V602; |
|
|
V602= list(2,VV[279],list(2,(V590),(V589))); |
|
|
setq(VV[107],make_cons((V602),symbol_value(VV[107])));} |
|
|
if(!(type_of((V595))==t_cons)){ |
|
|
goto T2338;}{object V603; |
|
|
V603= (V595); |
|
|
base[5]= VV[280]; |
|
|
vs_top=(vs_base=base+5)+1; |
|
|
(void) (*Lnk327)(); |
|
6475 |
vs_top=sup; |
vs_top=sup; |
6476 |
V595= vs_base[0]; |
V603= vs_base[0]; |
6477 |
V592= listA(3,V603,(V595),(V592));} |
base[10]= VV[284]; |
6478 |
{object V604; |
vs_top=(vs_base=base+10)+1; |
6479 |
V604= list(2,(V595),Cnil); |
(void) (*Lnk334)(); |
|
V597= make_cons((V604),(V597));} |
|
|
goto T2338; |
|
|
T2338:; |
|
|
if(!(type_of((V596))==t_cons)){ |
|
|
goto T2347;}{object V605; |
|
|
V605= (V596); |
|
|
base[5]= VV[281]; |
|
|
vs_top=(vs_base=base+5)+1; |
|
|
(void) (*Lnk327)(); |
|
6480 |
vs_top=sup; |
vs_top=sup; |
6481 |
V596= vs_base[0]; |
V604= vs_base[0]; |
6482 |
V592= listA(3,V605,(V596),(V592));} |
base[10]= VV[285]; |
6483 |
{object V606; |
vs_top=(vs_base=base+10)+1; |
6484 |
V606= list(2,(V596),Cnil); |
(void) (*Lnk334)(); |
6485 |
V597= make_cons((V606),(V597));} |
vs_top=sup; |
6486 |
goto T2347; |
V605= vs_base[0]; |
6487 |
T2347:; |
if((V590)!=Cnil){ |
6488 |
V607= list(3,(V591),(V595),(V596)); |
V606= (V590); |
6489 |
base[5]= list(6,(V597),Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[85],/* INLINE-ARGS */V607,make_cons((V590),Cnil))),(V592)); |
goto T2381;} |
6490 |
vs_top=(vs_base=base+5)+1; |
vs_base=vs_top; |
6491 |
|
(void) (*Lnk334)(); |
6492 |
|
vs_top=sup; |
6493 |
|
V606= vs_base[0]; |
6494 |
|
goto T2381; |
6495 |
|
T2381:; |
6496 |
|
V608= list(3,(V606),Cnil,(V591)); |
6497 |
|
V609= list(2,(V595),CMPcadar((V592))); |
6498 |
|
if((V600)==Cnil){ |
6499 |
|
V610= Cnil; |
6500 |
|
goto T2383;} |
6501 |
|
if((V599)==Cnil){ |
6502 |
|
V610= Cnil; |
6503 |
|
goto T2383;} |
6504 |
|
V611= list(2,(V599),Cnil); |
6505 |
|
V610= make_cons(/* INLINE-ARGS */V611,Cnil); |
6506 |
|
goto T2383; |
6507 |
|
T2383:; |
6508 |
|
V607= listA(3,/* INLINE-ARGS */V608,/* INLINE-ARGS */V609,V610); |
6509 |
|
if(!(((V593))==(VV[281]))){ |
6510 |
|
goto T2386;} |
6511 |
|
V601= (V606); |
6512 |
|
if((V600)==Cnil){ |
6513 |
|
V602= Cnil; |
6514 |
|
goto T2390;} |
6515 |
|
V602= (V599); |
6516 |
|
goto T2390; |
6517 |
|
T2390:; |
6518 |
|
goto T2384; |
6519 |
|
goto T2386; |
6520 |
|
T2386:; |
6521 |
|
if((V600)==Cnil){ |
6522 |
|
V601= Cnil; |
6523 |
|
goto T2392;} |
6524 |
|
V601= (V599); |
6525 |
|
goto T2392; |
6526 |
|
T2392:; |
6527 |
|
V602= (V606); |
6528 |
|
goto T2384; |
6529 |
|
T2384:; |
6530 |
|
{object V612; |
6531 |
|
V612= list(2,VV[286],list(2,(V596),(V595))); |
6532 |
|
(VV[109]->s.s_dbind)= make_cons((V612),(VV[109]->s.s_dbind));} |
6533 |
|
if(!(type_of((V601))==t_cons)){ |
6534 |
|
goto T2397;}{object V613; |
6535 |
|
V613= (V601); |
6536 |
|
base[10]= VV[284]; |
6537 |
|
vs_top=(vs_base=base+10)+1; |
6538 |
|
(void) (*Lnk334)(); |
6539 |
|
vs_top=sup; |
6540 |
|
V601= vs_base[0]; |
6541 |
|
V598= listA(3,V613,(V601),(V598));} |
6542 |
|
{object V614; |
6543 |
|
V614= list(2,(V601),Cnil); |
6544 |
|
V607= make_cons((V614),(V607));} |
6545 |
|
goto T2397; |
6546 |
|
T2397:; |
6547 |
|
if(!(type_of((V602))==t_cons)){ |
6548 |
|
goto T2406;}{object V615; |
6549 |
|
V615= (V602); |
6550 |
|
base[10]= VV[283]; |
6551 |
|
vs_top=(vs_base=base+10)+1; |
6552 |
|
(void) (*Lnk334)(); |
6553 |
|
vs_top=sup; |
6554 |
|
V602= vs_base[0]; |
6555 |
|
V598= listA(3,V615,(V602),(V598));} |
6556 |
|
{object V616; |
6557 |
|
V616= list(2,(V602),Cnil); |
6558 |
|
V607= make_cons((V616),(V607));} |
6559 |
|
goto T2406; |
6560 |
|
T2406:; |
6561 |
|
V617= list(3,(V605),(V604),(V603)); |
6562 |
|
V618= make_cons((V596),Cnil); |
6563 |
|
V619= list(3,VV[11],(V602),(V603)); |
6564 |
|
V620= list(4,VV[8],(V605),/* INLINE-ARGS */V619,list(3,VV[11],(V601),(V604))); |
6565 |
|
base[10]= list(6,(V607),Cnil,Cnil,Cnil,list(2,VV[36],list(5,VV[287],/* INLINE-ARGS */V617,/* INLINE-ARGS */V618,/* INLINE-ARGS */V620,list(3,VV[11],(V597),(V605)))),(V598)); |
6566 |
|
vs_top=(vs_base=base+10)+1; |
6567 |
return;}}} |
return;}}} |
6568 |
} |
} |
6569 |
} |
} |
6570 |
/* function definition for LOOP-PACKAGE-SYMBOLS-ITERATION-PATH */ |
/* function definition for LOOP-PACKAGE-SYMBOLS-ITERATION-PATH */ |
6571 |
|
|
6572 |
static void L101() |
static void L107() |
6573 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6574 |
register object *sup=base+VM88; VC88 |
register object *sup=base+VM94; VC94 |
6575 |
vs_reserve(VM88); |
vs_check; |
6576 |
{object V608; |
{object V621; |
6577 |
object V609; |
object V622; |
6578 |
register object V610; |
register object V623; |
6579 |
object V611; |
object V624; |
6580 |
if(vs_top-vs_base<3) too_few_arguments(); |
parse_key(vs_base+3,FALSE,FALSE,1,VV[409]); |
6581 |
parse_key(vs_base+3,FALSE,FALSE,1,VV[396]); |
V621=(base[0]); |
6582 |
V608=(base[0]); |
V622=(base[1]); |
6583 |
V609=(base[1]); |
V623=(base[2]); |
6584 |
V610=(base[2]); |
vs_top=sup; |
6585 |
vs_top=sup; |
V624=(base[3]); |
6586 |
V611=(base[3]); |
if(((V623))==Cnil){ |
6587 |
if((cdr((V610)))!=Cnil){ |
goto T2417;} |
6588 |
goto T2357;} |
if((CMPcdr((V623)))==Cnil){ |
6589 |
{register object x= caar((V610)),V612= VV[282]; |
goto T2417;} |
6590 |
while(!endp(V612)) |
base[5]= VV[288]; |
|
if(eql(x,V612->c.c_car)){ |
|
|
goto T2358; |
|
|
}else V612=V612->c.c_cdr;} |
|
|
goto T2357; |
|
|
T2357:; |
|
|
base[5]= VV[283]; |
|
6591 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6592 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
6593 |
vs_top=sup; |
vs_top=sup; |
6594 |
goto T2356; |
goto T2415; |
6595 |
goto T2358; |
goto T2417; |
6596 |
T2358:; |
T2417:; |
6597 |
if(((V610))!=Cnil){ |
if(((V623))==Cnil){ |
6598 |
goto T2356;} |
goto T2415;} |
6599 |
base[5]= VV[284]; |
{register object x= CMPcaar((V623)),V625= VV[289]; |
6600 |
vs_top=(vs_base=base+5)+1; |
while(V625!=Cnil) |
6601 |
(void) (*Lnk347)(); |
if(eql(x,V625->c.c_car)){ |
6602 |
|
goto T2415; |
6603 |
|
}else V625=V625->c.c_cdr;} |
6604 |
|
base[5]= VV[290]; |
6605 |
|
base[6]= CMPcaar((V623)); |
6606 |
|
vs_top=(vs_base=base+5)+2; |
6607 |
|
(void) (*Lnk354)(); |
6608 |
vs_top=sup; |
vs_top=sup; |
6609 |
goto T2356; |
goto T2415; |
6610 |
T2356:; |
T2415:; |
6611 |
if(type_of((V608))==t_symbol){ |
if(type_of((V621))==t_symbol){ |
6612 |
goto T2366;} |
goto T2428;} |
6613 |
base[5]= VV[285]; |
base[5]= VV[291]; |
6614 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6615 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
6616 |
vs_top=sup; |
vs_top=sup; |
6617 |
goto T2366; |
goto T2428; |
6618 |
T2366:; |
T2428:; |
6619 |
{object V613; |
{object V626; |
6620 |
object V614; |
object V627; |
6621 |
base[5]= VV[286]; |
object V628; |
6622 |
|
object V629; |
6623 |
|
base[5]= VV[292]; |
6624 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6625 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
6626 |
vs_top=sup; |
vs_top=sup; |
6627 |
V613= vs_base[0]; |
V626= vs_base[0]; |
6628 |
base[5]= VV[287]; |
base[5]= VV[293]; |
6629 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6630 |
(void) (*Lnk327)(); |
(void) (*Lnk334)(); |
6631 |
vs_top=sup; |
vs_top=sup; |
6632 |
V614= vs_base[0]; |
V627= vs_base[0]; |
6633 |
{object V615; |
if((V621)!=Cnil){ |
6634 |
V615= list(2,VV[288],listA(3,(V614),(V613),(V611))); |
V628= (V621); |
6635 |
setq(VV[107],make_cons((V615),symbol_value(VV[107])));} |
goto T2436;} |
6636 |
V616= list(3,(V608),Cnil,(V609)); |
vs_base=vs_top; |
6637 |
V617= list(2,/* INLINE-ARGS */V616,list(2,(V613),cadar((V610)))); |
(void) (*Lnk334)(); |
6638 |
vs_base=vs_top; |
vs_top=sup; |
6639 |
(void) (*Lnk378)(); |
V628= vs_base[0]; |
6640 |
vs_top=sup; |
goto T2436; |
6641 |
V618= vs_base[0]; |
T2436:;{object V630; |
6642 |
V619= list(2,V618,(V608)); |
V630= CMPcadar((V623)); |
6643 |
base[5]= list(6,/* INLINE-ARGS */V617,Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[85],/* INLINE-ARGS */V619,make_cons((V614),Cnil))),Cnil); |
if(V630==Cnil)goto T2438; |
6644 |
|
V629= V630; |
6645 |
|
goto T2437; |
6646 |
|
goto T2438; |
6647 |
|
T2438:;} |
6648 |
|
V629= VV[294]; |
6649 |
|
goto T2437; |
6650 |
|
T2437:; |
6651 |
|
{object V631; |
6652 |
|
V631= list(2,VV[295],listA(3,(V627),(V626),(V624))); |
6653 |
|
(VV[109]->s.s_dbind)= make_cons((V631),(VV[109]->s.s_dbind));} |
6654 |
|
V632= list(3,(V628),Cnil,(V622)); |
6655 |
|
V633= list(2,/* INLINE-ARGS */V632,list(2,(V626),(V629))); |
6656 |
|
vs_base=vs_top; |
6657 |
|
(void) (*Lnk391)(); |
6658 |
|
vs_top=sup; |
6659 |
|
V634= vs_base[0]; |
6660 |
|
V635= list(2,V634,(V628)); |
6661 |
|
base[5]= list(6,/* INLINE-ARGS */V633,Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[84],/* INLINE-ARGS */V635,make_cons((V627),Cnil))),Cnil); |
6662 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6663 |
return;} |
return;} |
6664 |
} |
} |
6665 |
} |
} |
6666 |
/* function definition for MAKE-ANSI-LOOP-UNIVERSE */ |
/* function definition for MAKE-ANSI-LOOP-UNIVERSE */ |
6667 |
|
|
6668 |
static void L102() |
static void L108() |
6669 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6670 |
register object *sup=base+VM89; VC89 |
register object *sup=base+VM95; VC95 |
6671 |
vs_reserve(VM89); |
vs_check; |
6672 |
{object V620; |
{object V636; |
6673 |
check_arg(1); |
V636=(base[0]); |
|
V620=(base[0]); |
|
6674 |
vs_top=sup; |
vs_top=sup; |
6675 |
goto TTL; |
goto TTL; |
6676 |
TTL:; |
TTL:; |
6677 |
{register object V621; |
{register object V637; |
6678 |
base[1]= VV[53]; |
base[1]= VV[53]; |
6679 |
base[3]= VV[289]; |
base[3]= VV[296]; |
6680 |
base[4]= VV[290]; |
base[4]= VV[297]; |
6681 |
base[5]= VV[291]; |
base[5]= VV[298]; |
6682 |
base[6]= VV[292]; |
base[6]= VV[299]; |
6683 |
base[7]= VV[293]; |
base[7]= VV[300]; |
6684 |
base[8]= VV[294]; |
base[8]= VV[301]; |
6685 |
base[9]= VV[295]; |
base[9]= VV[302]; |
6686 |
base[10]= VV[296]; |
base[10]= VV[303]; |
6687 |
base[11]= VV[297]; |
base[11]= VV[304]; |
6688 |
base[12]= VV[298]; |
base[12]= VV[305]; |
6689 |
base[13]= VV[299]; |
base[13]= VV[306]; |
6690 |
base[14]= VV[300]; |
base[14]= VV[307]; |
6691 |
base[15]= list(2,VV[179],list(4,VV[301],VV[179],symbol_value(VV[183]),VV[210])); |
base[15]= list(2,VV[183],list(4,VV[308],VV[183],(VV[187]->s.s_dbind),VV[214])); |
6692 |
base[16]= list(2,VV[302],list(4,VV[301],VV[179],symbol_value(VV[183]),VV[210])); |
base[16]= list(2,VV[309],list(4,VV[308],VV[183],(VV[187]->s.s_dbind),VV[214])); |
6693 |
base[17]= VV[303]; |
base[17]= VV[310]; |
6694 |
vs_top=(vs_base=base+3)+15; |
vs_top=(vs_base=base+3)+15; |
6695 |
LlistA(); |
LlistA(); |
6696 |
vs_top=sup; |
vs_top=sup; |
6697 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
6698 |
base[3]= VV[54]; |
base[3]= VV[54]; |
6699 |
base[4]= VV[304]; |
base[4]= VV[311]; |
6700 |
base[5]= VV[55]; |
base[5]= VV[55]; |
6701 |
base[6]= VV[305]; |
base[6]= VV[312]; |
6702 |
base[7]= VV[60]; |
base[7]= VV[60]; |
6703 |
base[8]= VV[306]; |
base[8]= VV[313]; |
6704 |
base[9]= VV[59]; |
base[9]= VV[59]; |
6705 |
base[10]= Cnil; |
base[10]= Cnil; |
6706 |
base[11]= VV[57]; |
base[11]= VV[57]; |
6707 |
if(((V620))==Cnil){ |
if(((V636))==Cnil){ |
6708 |
goto T2407;} |
goto T2473;} |
6709 |
base[12]= VV[307]; |
base[12]= VV[314]; |
6710 |
goto T2405; |
goto T2471; |
6711 |
goto T2407; |
goto T2473; |
6712 |
T2407:; |
T2473:; |
6713 |
base[12]= Ct; |
base[12]= Ct; |
6714 |
goto T2405; |
goto T2471; |
6715 |
T2405:; |
T2471:; |
6716 |
vs_top=(vs_base=base+1)+12; |
vs_top=(vs_base=base+1)+12; |
6717 |
(void) (*Lnk397)(); |
(void) (*Lnk410)(); |
|
vs_top=sup; |
|
|
V621= vs_base[0]; |
|
|
base[1]= VV[308]; |
|
|
base[2]= VV[309]; |
|
|
base[3]= (V621); |
|
|
base[4]= VV[229]; |
|
|
base[5]= VV[310]; |
|
|
base[6]= VV[230]; |
|
|
base[7]= Cnil; |
|
|
base[8]= VV[228]; |
|
|
base[9]= VV[311]; |
|
|
vs_top=(vs_base=base+1)+9; |
|
|
(void) (*Lnk398)(); |
|
|
vs_top=sup; |
|
|
base[1]= VV[312]; |
|
|
base[2]= VV[309]; |
|
|
base[3]= (V621); |
|
|
base[4]= VV[229]; |
|
|
base[5]= VV[313]; |
|
|
base[6]= VV[230]; |
|
|
base[7]= Cnil; |
|
|
base[8]= VV[228]; |
|
|
base[9]= VV[314]; |
|
|
vs_top=(vs_base=base+1)+9; |
|
|
(void) (*Lnk398)(); |
|
6718 |
vs_top=sup; |
vs_top=sup; |
6719 |
|
V637= vs_base[0]; |
6720 |
base[1]= VV[315]; |
base[1]= VV[315]; |
6721 |
base[2]= VV[316]; |
base[2]= VV[316]; |
6722 |
base[3]= (V621); |
base[3]= (V637); |
6723 |
base[4]= VV[229]; |
base[4]= VV[233]; |
6724 |
base[5]= VV[317]; |
base[5]= VV[317]; |
6725 |
base[6]= VV[230]; |
base[6]= VV[234]; |
6726 |
base[7]= Cnil; |
base[7]= Cnil; |
6727 |
base[8]= VV[228]; |
base[8]= VV[232]; |
6728 |
base[9]= VV[318]; |
base[9]= VV[318]; |
6729 |
vs_top=(vs_base=base+1)+9; |
vs_top=(vs_base=base+1)+9; |
6730 |
(void) (*Lnk398)(); |
(void) (*Lnk411)(); |
6731 |
vs_top=sup; |
vs_top=sup; |
6732 |
base[1]= VV[319]; |
base[1]= VV[319]; |
6733 |
base[2]= VV[316]; |
base[2]= VV[316]; |
6734 |
base[3]= (V621); |
base[3]= (V637); |
6735 |
base[4]= VV[229]; |
base[4]= VV[233]; |
6736 |
base[5]= VV[320]; |
base[5]= VV[320]; |
6737 |
base[6]= VV[230]; |
base[6]= VV[234]; |
6738 |
base[7]= Cnil; |
base[7]= Cnil; |
6739 |
base[8]= VV[228]; |
base[8]= VV[232]; |
6740 |
base[9]= VV[321]; |
base[9]= VV[321]; |
6741 |
vs_top=(vs_base=base+1)+9; |
vs_top=(vs_base=base+1)+9; |
6742 |
(void) (*Lnk398)(); |
(void) (*Lnk411)(); |
6743 |
vs_top=sup; |
vs_top=sup; |
6744 |
base[1]= VV[322]; |
base[1]= VV[322]; |
6745 |
base[2]= VV[316]; |
base[2]= VV[323]; |
6746 |
base[3]= (V621); |
base[3]= (V637); |
6747 |
base[4]= VV[229]; |
base[4]= VV[233]; |
6748 |
base[5]= VV[323]; |
base[5]= VV[324]; |
6749 |
base[6]= VV[230]; |
base[6]= VV[234]; |
6750 |
base[7]= Cnil; |
base[7]= Cnil; |
6751 |
base[8]= VV[228]; |
base[8]= VV[232]; |
6752 |
base[9]= VV[324]; |
base[9]= VV[325]; |
6753 |
vs_top=(vs_base=base+1)+9; |
vs_top=(vs_base=base+1)+9; |
6754 |
(void) (*Lnk398)(); |
(void) (*Lnk411)(); |
6755 |
|
vs_top=sup; |
6756 |
|
base[1]= VV[326]; |
6757 |
|
base[2]= VV[323]; |
6758 |
|
base[3]= (V637); |
6759 |
|
base[4]= VV[233]; |
6760 |
|
base[5]= VV[327]; |
6761 |
|
base[6]= VV[234]; |
6762 |
|
base[7]= Cnil; |
6763 |
|
base[8]= VV[232]; |
6764 |
|
base[9]= VV[328]; |
6765 |
|
vs_top=(vs_base=base+1)+9; |
6766 |
|
(void) (*Lnk411)(); |
6767 |
|
vs_top=sup; |
6768 |
|
base[1]= VV[329]; |
6769 |
|
base[2]= VV[323]; |
6770 |
|
base[3]= (V637); |
6771 |
|
base[4]= VV[233]; |
6772 |
|
base[5]= VV[330]; |
6773 |
|
base[6]= VV[234]; |
6774 |
|
base[7]= Cnil; |
6775 |
|
base[8]= VV[232]; |
6776 |
|
base[9]= VV[331]; |
6777 |
|
vs_top=(vs_base=base+1)+9; |
6778 |
|
(void) (*Lnk411)(); |
6779 |
vs_top=sup; |
vs_top=sup; |
6780 |
base[1]= (V621); |
base[1]= (V637); |
6781 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6782 |
return;} |
return;} |
6783 |
} |
} |
6784 |
} |
} |
6785 |
/* function definition for LOOP-STANDARD-EXPANSION */ |
/* function definition for LOOP-STANDARD-EXPANSION */ |
6786 |
|
|
6787 |
static void L103() |
static void L109() |
6788 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6789 |
register object *sup=base+VM90; VC90 |
register object *sup=base+VM96; VC96 |
6790 |
vs_reserve(VM90); |
vs_check; |
6791 |
{register object V622; |
{register object V638; |
6792 |
object V623; |
object V639; |
6793 |
object V624; |
object V640; |
6794 |
check_arg(3); |
V638=(base[0]); |
6795 |
V622=(base[0]); |
V639=(base[1]); |
6796 |
V623=(base[1]); |
V640=(base[2]); |
|
V624=(base[2]); |
|
6797 |
vs_top=sup; |
vs_top=sup; |
6798 |
goto TTL; |
goto TTL; |
6799 |
TTL:; |
TTL:; |
6800 |
if(((V622))==Cnil){ |
if(((V638))==Cnil){ |
6801 |
goto T2460;} |
goto T2526;} |
6802 |
if(!(type_of(car((V622)))==t_symbol)){ |
if(!(type_of(CMPcar((V638)))==t_symbol)){ |
6803 |
goto T2460;} |
goto T2526;} |
6804 |
base[3]= (V622); |
base[3]= (V638); |
6805 |
base[4]= (V623); |
base[4]= (V639); |
6806 |
base[5]= (V624); |
base[5]= (V640); |
6807 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
6808 |
(void) (*Lnk399)(); |
(void) (*Lnk412)(); |
6809 |
return; |
return; |
6810 |
goto T2460; |
goto T2526; |
6811 |
T2460:; |
T2526:; |
6812 |
{object V625; |
{object V641; |
6813 |
vs_base=vs_top; |
vs_base=vs_top; |
6814 |
Lgensym(); |
Lgensym(); |
6815 |
vs_top=sup; |
vs_top=sup; |
6816 |
V625= vs_base[0]; |
V641= vs_base[0]; |
6817 |
V626= make_cons(VV[14],(V622)); |
V642= make_cons(VV[14],(V638)); |
6818 |
base[3]= list(3,VV[124],Cnil,list(4,VV[73],(V625),/* INLINE-ARGS */V626,list(2,VV[82],(V625)))); |
base[3]= list(3,VV[124],Cnil,list(4,VV[73],(V641),/* INLINE-ARGS */V642,list(2,VV[82],(V641)))); |
6819 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6820 |
return;} |
return;} |
6821 |
} |
} |
6822 |
} |
} |
6823 |
/* macro definition for LOOP */ |
/* macro definition for LOOP */ |
6824 |
|
|
6825 |
static void L104() |
static void L110() |
6826 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6827 |
register object *sup=base+VM91; VC91 |
register object *sup=base+VM97; VC97 |
6828 |
vs_reserve(VM91); |
vs_check; |
|
check_arg(2); |
|
6829 |
vs_top=sup; |
vs_top=sup; |
6830 |
{object V627=base[0]->c.c_cdr; |
{object V643=base[0]->c.c_cdr; |
6831 |
base[2]= V627;} |
base[2]= V643;} |
6832 |
base[3]= base[2]; |
base[3]= base[2]; |
6833 |
base[4]= base[1]; |
base[4]= base[1]; |
6834 |
base[5]= symbol_value(VV[325]); |
base[5]= (VV[332]->s.s_dbind); |
6835 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
6836 |
(void) (*Lnk400)(); |
(void) (*Lnk413)(); |
6837 |
return; |
return; |
6838 |
} |
} |
6839 |
/* local function IN-GROUP-P */ |
/* local function IN-GROUP-P */ |
6840 |
|
|
6841 |
static void LC96(base0) |
static void LC102(base0) |
6842 |
register object *base0; |
register object *base0; |
6843 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
6844 |
register object *sup=base+VM92; VC92 |
register object *sup=base+VM98; VC98 |
6845 |
vs_reserve(VM92); |
vs_check; |
6846 |
{object V628; |
{object V644; |
6847 |
object V629; |
object V645; |
6848 |
check_arg(2); |
V644=(base[0]); |
6849 |
V628=(base[0]); |
V645=(base[1]); |
|
V629=(base[1]); |
|
6850 |
vs_top=sup; |
vs_top=sup; |
6851 |
base[2]= (V628); |
base[2]= (V644); |
6852 |
base[3]= (V629); |
base[3]= (V645); |
6853 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6854 |
(void) (*Lnk353)(); |
(void) (*Lnk362)(); |
6855 |
vs_top=sup; |
vs_top=sup; |
6856 |
V630= vs_base[0]; |
V646= vs_base[0]; |
6857 |
base[2]= car(V630); |
base[2]= CMPcar(V646); |
6858 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6859 |
return; |
return; |
6860 |
} |
} |
6861 |
} |
} |
6862 |
/* local function IN-GROUP-P */ |
/* local function IN-GROUP-P */ |
6863 |
|
|
6864 |
static void L96(base0) |
static void L102(base0) |
6865 |
register object *base0; |
register object *base0; |
6866 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
6867 |
register object *sup=base+VM93; VC93 |
register object *sup=base+VM99; VC99 |
6868 |
vs_reserve(VM93); |
vs_check; |
6869 |
{object V631; |
{object V647; |
6870 |
object V632; |
object V648; |
6871 |
check_arg(2); |
V647=(base[0]); |
6872 |
V631=(base[0]); |
V648=(base[1]); |
|
V632=(base[1]); |
|
6873 |
vs_top=sup; |
vs_top=sup; |
6874 |
goto TTL; |
goto TTL; |
6875 |
TTL:; |
TTL:; |
6876 |
base[2]= (V631); |
base[2]= (V647); |
6877 |
base[3]= (V632); |
base[3]= (V648); |
6878 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6879 |
(void) (*Lnk353)(); |
(void) (*Lnk362)(); |
6880 |
vs_top=sup; |
vs_top=sup; |
6881 |
V633= vs_base[0]; |
V649= vs_base[0]; |
6882 |
base[2]= car(V633); |
base[2]= CMPcar(V649); |
6883 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6884 |
return; |
return; |
6885 |
} |
} |
6886 |
} |
} |
6887 |
/* local function MAKE-ENDTEST */ |
/* local function MAKE-ENDTEST */ |
6888 |
|
|
6889 |
static void L82(base0) |
static void L88(base0) |
6890 |
register object *base0; |
register object *base0; |
6891 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
6892 |
register object *sup=base+VM94; VC94 |
register object *sup=base+VM100; VC100 |
6893 |
vs_reserve(VM94); |
vs_check; |
6894 |
{object V634; |
{object V650; |
6895 |
check_arg(1); |
V650=(base[0]); |
|
V634=(base[0]); |
|
6896 |
vs_top=sup; |
vs_top=sup; |
6897 |
goto TTL; |
goto TTL; |
6898 |
TTL:; |
TTL:; |
6899 |
if(((V634))!=Cnil){ |
if(((V650))!=Cnil){ |
6900 |
goto T2478;} |
goto T2544;} |
6901 |
base[1]= Cnil; |
base[1]= Cnil; |
6902 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6903 |
return; |
return; |
6904 |
goto T2478; |
goto T2544; |
6905 |
T2478:; |
T2544:; |
6906 |
{register object x= Ct,V635= (V634); |
{register object x= Ct,V651= (V650); |
6907 |
while(!endp(V635)) |
while(V651!=Cnil) |
6908 |
if(eql(x,V635->c.c_car)){ |
if(eql(x,V651->c.c_car)){ |
6909 |
goto T2482; |
goto T2548; |
6910 |
}else V635=V635->c.c_cdr; |
}else V651=V651->c.c_cdr; |
6911 |
goto T2481;} |
goto T2547;} |
6912 |
goto T2482; |
goto T2548; |
6913 |
T2482:; |
T2548:; |
6914 |
base[1]= VV[192]; |
base[1]= VV[197]; |
6915 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6916 |
return; |
return; |
6917 |
goto T2481; |
goto T2547; |
6918 |
T2481:; |
T2547:; |
6919 |
V634= nreverse((V634)); |
V650= nreverse((V650)); |
6920 |
if((cdr((V634)))!=Cnil){ |
if((CMPcdr((V650)))!=Cnil){ |
6921 |
goto T2485;} |
goto T2551;} |
6922 |
V636= car((V634)); |
V652= CMPcar((V650)); |
6923 |
goto T2483; |
goto T2549; |
6924 |
goto T2485; |
goto T2551; |
6925 |
T2485:; |
T2551:; |
6926 |
V636= make_cons(VV[35],(V634)); |
V652= make_cons(VV[35],(V650)); |
6927 |
goto T2483; |
goto T2549; |
6928 |
T2483:; |
T2549:; |
6929 |
base[1]= list(3,VV[8],V636,VV[193]); |
base[1]= list(3,VV[8],V652,VV[198]); |
6930 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6931 |
return; |
return; |
6932 |
} |
} |
6933 |
} |
} |
6934 |
/* local function GET-CLAUSE */ |
/* local function GET-CLAUSE */ |
6935 |
|
|
6936 |
static void L66(base0) |
static void L72(base0) |
6937 |
register object *base0; |
register object *base0; |
6938 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
6939 |
register object *sup=base+VM95; VC95 |
register object *sup=base+VM101; VC101 |
6940 |
vs_reserve(VM95); |
vs_check; |
6941 |
{object V637; |
{object V653; |
6942 |
check_arg(1); |
V653=(base[0]); |
|
V637=(base[0]); |
|
6943 |
vs_top=sup; |
vs_top=sup; |
6944 |
goto TTL; |
goto TTL; |
6945 |
TTL:; |
TTL:; |
6946 |
{register object V638; |
{register object V654; |
6947 |
V638= Cnil; |
V654= Cnil; |
6948 |
goto T2489; |
goto T2555; |
6949 |
T2489:; |
T2555:; |
6950 |
{register object V639; |
{register object V655; |
6951 |
register object V640; |
register object V656; |
6952 |
V639= car(symbol_value(VV[89])); |
V655= CMPcar((VV[88]->s.s_dbind)); |
6953 |
bds_bind(VV[109],Cnil); |
bds_bind(VV[111],Cnil); |
6954 |
V640= Cnil; |
V656= Cnil; |
6955 |
if(type_of((V639))==t_symbol){ |
if(type_of((V655))==t_symbol){ |
6956 |
goto T2495;} |
goto T2561;} |
6957 |
base[2]= VV[152]; |
base[2]= VV[155]; |
6958 |
base[3]= (V639); |
base[3]= (V655); |
6959 |
base[4]= (V637); |
base[4]= (V653); |
6960 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
6961 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
6962 |
vs_top=sup; |
vs_top=sup; |
6963 |
bds_unwind1; |
bds_unwind1; |
6964 |
goto T2492; |
goto T2558; |
6965 |
goto T2495; |
goto T2561; |
6966 |
T2495:; |
T2561:; |
6967 |
setq(VV[88],symbol_value(VV[89])); |
(VV[87]->s.s_dbind)= (VV[88]->s.s_dbind); |
6968 |
vs_base=vs_top; |
vs_base=vs_top; |
6969 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
6970 |
vs_top=sup; |
vs_top=sup; |
6971 |
base[2]= car(symbol_value(VV[89])); |
base[2]= CMPcar((VV[88]->s.s_dbind)); |
6972 |
base[3]= VV[153]; |
base[3]= VV[156]; |
6973 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6974 |
(void) (*Lnk357)(); |
(void) (*Lnk369)(); |
6975 |
vs_top=sup; |
vs_top=sup; |
6976 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
6977 |
goto T2503;} |
goto T2569;} |
6978 |
|
if((base0[4])==Cnil){ |
6979 |
|
goto T2569;} |
6980 |
if(base0[3]!=Cnil){ |
if(base0[3]!=Cnil){ |
6981 |
V641= base0[3]; |
V657= base0[3]; |
6982 |
goto T2509;} |
goto T2577;} |
6983 |
vs_base=vs_top; |
vs_base=vs_top; |
6984 |
(void) (*Lnk378)(); |
(void) (*Lnk391)(); |
6985 |
vs_top=sup; |
vs_top=sup; |
6986 |
base0[3]= vs_base[0]; |
base0[3]= vs_base[0]; |
6987 |
V641= base0[3]; |
V657= base0[3]; |
6988 |
goto T2509; |
goto T2577; |
6989 |
T2509:; |
T2577:; |
6990 |
setq(VV[89],make_cons(V641,cdr(symbol_value(VV[89])))); |
(VV[88]->s.s_dbind)= make_cons(V657,CMPcdr((VV[88]->s.s_dbind))); |
6991 |
goto T2503; |
goto T2569; |
6992 |
T2503:; |
T2569:; |
6993 |
base[2]= (V639); |
base[2]= (V655); |
6994 |
base[3]= structure_ref(symbol_value(VV[97]),VV[39],0); |
base[3]= STREF(object,(VV[99]->s.s_dbind),0); |
6995 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6996 |
(void) (*Lnk351)(); |
(void) (*Lnk360)(); |
6997 |
vs_top=sup; |
vs_top=sup; |
6998 |
V640= vs_base[0]; |
V656= vs_base[0]; |
6999 |
if(((V640))==Cnil){ |
if(((V656))==Cnil){ |
7000 |
goto T2511;} |
goto T2579;} |
7001 |
base[3]= car((V640)); |
base[3]= CMPcar((V656)); |
7002 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7003 |
Lsymbol_function(); |
Lsymbol_function(); |
7004 |
vs_top=sup; |
vs_top=sup; |
7005 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
7006 |
{object V642; |
{object V658; |
7007 |
V642= cdr((V640)); |
V658= CMPcdr((V656)); |
7008 |
vs_top=base+3; |
vs_top=base+3; |
7009 |
while(!endp(V642)) |
while(V658!=Cnil) |
7010 |
{vs_push(car(V642));V642=cdr(V642);} |
{vs_push((V658)->c.c_car);V658=(V658)->c.c_cdr;} |
7011 |
vs_base=base+3;} |
vs_base=base+3;} |
7012 |
super_funcall_no_event(base[2]); |
super_funcall_no_event(base[2]); |
7013 |
vs_top=sup; |
vs_top=sup; |
7014 |
if(!(((VV[109]->s.s_dbind))==Cnil)){ |
if(!(((VV[111]->s.s_dbind))==Cnil)){ |
7015 |
goto T2512;} |
goto T2580;} |
7016 |
goto T2511; |
goto T2579; |
7017 |
T2511:; |
T2579:; |
7018 |
base[2]= VV[154]; |
base[2]= VV[157]; |
7019 |
base[3]= (V639); |
base[3]= (V655); |
7020 |
base[4]= (V637); |
base[4]= (V653); |
7021 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
7022 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
7023 |
vs_top=sup; |
vs_top=sup; |
7024 |
bds_unwind1; |
bds_unwind1; |
7025 |
goto T2492; |
goto T2558; |
7026 |
goto T2512; |
goto T2580; |
7027 |
T2512:; |
T2580:; |
7028 |
base[2]= (VV[109]->s.s_dbind); |
base[2]= (VV[111]->s.s_dbind); |
7029 |
base[3]= (V638); |
base[3]= (V654); |
7030 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
7031 |
Lreconc(); |
Lreconc(); |
7032 |
vs_top=sup; |
vs_top=sup; |
7033 |
V638= vs_base[0]; |
V654= vs_base[0]; |
7034 |
bds_unwind1;} |
bds_unwind1;} |
7035 |
goto T2492; |
goto T2558; |
7036 |
T2492:; |
T2558:; |
7037 |
base[1]= car(symbol_value(VV[89])); |
base0[4]= Cnil; |
7038 |
base[2]= VV[155]; |
base[1]= CMPcar((VV[88]->s.s_dbind)); |
7039 |
|
base[2]= VV[158]; |
7040 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
7041 |
(void) (*Lnk357)(); |
(void) (*Lnk369)(); |
7042 |
vs_top=sup; |
vs_top=sup; |
7043 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
7044 |
goto T2531;} |
goto T2601;} |
7045 |
vs_base=vs_top; |
vs_base=vs_top; |
7046 |
(void) (*Lnk350)(); |
(void) (*Lnk359)(); |
7047 |
vs_top=sup; |
vs_top=sup; |
7048 |
goto T2529; |
goto T2599; |
7049 |
goto T2531; |
goto T2601; |
7050 |
T2531:; |
T2601:; |
7051 |
if((cdr((V638)))==Cnil){ |
if((CMPcdr((V654)))==Cnil){ |
7052 |
goto T2536;} |
goto T2606;} |
7053 |
V643= nreverse((V638)); |
V659= nreverse((V654)); |
7054 |
base[1]= make_cons(VV[14],/* INLINE-ARGS */V643); |
base[1]= make_cons(VV[14],/* INLINE-ARGS */V659); |
7055 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7056 |
return; |
return; |
7057 |
goto T2536; |
goto T2606; |
7058 |
T2536:; |
T2606:; |
7059 |
base[1]= car((V638)); |
base[1]= CMPcar((V654)); |
7060 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7061 |
return; |
return; |
7062 |
goto T2529; |
goto T2599; |
7063 |
T2529:; |
T2599:; |
7064 |
goto T2489;} |
goto T2555;} |
7065 |
} |
} |
7066 |
} |
} |
7067 |
/* local function REPLICATE */ |
/* local function REPLICATE */ |
7068 |
|
|
7069 |
static void L59(base0) |
static void L64(base0) |
7070 |
register object *base0; |
register object *base0; |
7071 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7072 |
register object *sup=base+VM96; VC96 |
register object *sup=base+VM102; VC102 |
7073 |
vs_reserve(VM96); |
vs_check; |
7074 |
{object V644; |
{object V660; |
7075 |
object V645; |
object V661; |
7076 |
check_arg(2); |
V660=(base[0]); |
7077 |
V644=(base[0]); |
V661=(base[1]); |
|
V645=(base[1]); |
|
7078 |
vs_top=sup; |
vs_top=sup; |
7079 |
goto TTL; |
goto TTL; |
7080 |
TTL:; |
TTL:; |
7081 |
if(!(type_of((V645))!=t_cons)){ |
if(!(type_of((V661))!=t_cons)){ |
7082 |
goto T2541;} |
goto T2611;} |
7083 |
base[2]= (V644); |
base[2]= (V660); |
7084 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7085 |
return; |
return; |
7086 |
goto T2541; |
goto T2611; |
7087 |
T2541:; |
T2611:; |
7088 |
base[2]= (V644); |
base[2]= (V660); |
7089 |
base[3]= car((V645)); |
base[3]= CMPcar((V661)); |
7090 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
7091 |
L59(base0); |
L64(base0); |
7092 |
vs_top=sup; |
vs_top=sup; |
7093 |
V646= vs_base[0]; |
V662= vs_base[0]; |
7094 |
base[2]= (V644); |
base[2]= (V660); |
7095 |
base[3]= cdr((V645)); |
base[3]= CMPcdr((V661)); |
7096 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
7097 |
L59(base0); |
L64(base0); |
7098 |
vs_top=sup; |
vs_top=sup; |
7099 |
V647= vs_base[0]; |
V663= vs_base[0]; |
7100 |
base[2]= make_cons(V646,V647); |
base[2]= make_cons(V662,V663); |
7101 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7102 |
return; |
return; |
7103 |
} |
} |
7104 |
} |
} |
7105 |
/* local function TRANSLATE */ |
/* local function TRANSLATE */ |
7106 |
|
|
7107 |
static void L58(base0) |
static void L63(base0) |
7108 |
register object *base0; |
register object *base0; |
7109 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7110 |
register object *sup=base+VM97; VC97 |
register object *sup=base+VM103; VC103 |
7111 |
vs_reserve(VM97); |
vs_check; |
7112 |
{register object V648; |
{register object V664; |
7113 |
register object V649; |
register object V665; |
7114 |
check_arg(2); |
V664=(base[0]); |
7115 |
V648=(base[0]); |
V665=(base[1]); |
|
V649=(base[1]); |
|
7116 |
vs_top=sup; |
vs_top=sup; |
7117 |
goto TTL; |
goto TTL; |
7118 |
TTL:; |
TTL:; |
7119 |
if(((V648))!=Cnil){ |
if(((V664))!=Cnil){ |
7120 |
goto T2550;} |
goto T2620;} |
7121 |
base[2]= Cnil; |
base[2]= Cnil; |
7122 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7123 |
return; |
return; |
7124 |
goto T2550; |
goto T2620; |
7125 |
T2550:; |
T2620:; |
7126 |
if(!(type_of((V648))!=t_cons)){ |
if(!(type_of((V664))!=t_cons)){ |
7127 |
goto T2553;}{object V650; |
goto T2623;}{object V666; |
7128 |
base[3]= (V648); |
base[3]= (V664); |
7129 |
base[4]= structure_ref(symbol_value(VV[97]),VV[39],4); |
base[4]= STREF(object,(VV[99]->s.s_dbind),16); |
7130 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
7131 |
Lgethash(); |
Lgethash(); |
7132 |
vs_top=sup; |
vs_top=sup; |
7133 |
V650= vs_base[0]; |
V666= vs_base[0]; |
7134 |
if(V650==Cnil)goto T2556; |
if(V666==Cnil)goto T2626; |
7135 |
base[2]= V650; |
base[2]= V666; |
7136 |
goto T2555; |
goto T2625; |
7137 |
goto T2556; |
goto T2626; |
7138 |
T2556:;}{object V651; |
T2626:;}{object V667; |
7139 |
base[3]= symbol_name((V648)); |
base[3]= symbol_name((V664)); |
7140 |
base[4]= structure_ref(symbol_value(VV[97]),VV[39],5); |
base[4]= STREF(object,(VV[99]->s.s_dbind),20); |
7141 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
7142 |
Lgethash(); |
Lgethash(); |
7143 |
vs_top=sup; |
vs_top=sup; |
7144 |
V651= vs_base[0]; |
V667= vs_base[0]; |
7145 |
if(V651==Cnil)goto T2560; |
if(V667==Cnil)goto T2630; |
7146 |
base[2]= V651; |
base[2]= V667; |
7147 |
goto T2555; |
goto T2625; |
7148 |
goto T2560; |
goto T2630; |
7149 |
T2560:;} |
T2630:;} |
7150 |
base[3]= VV[140]; |
base[3]= VV[144]; |
7151 |
base[4]= base0[1]; |
base[4]= base0[1]; |
7152 |
base[5]= (V648); |
base[5]= (V664); |
7153 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
7154 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
7155 |
vs_top=sup; |
vs_top=sup; |
7156 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
7157 |
goto T2555; |
goto T2625; |
7158 |
T2555:; |
T2625:; |
7159 |
base[3]= (V649); |
base[3]= (V665); |
7160 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
7161 |
L59(base0); |
L64(base0); |
7162 |
return; |
return; |
7163 |
goto T2553; |
goto T2623; |
7164 |
T2553:; |
T2623:; |
7165 |
if(!(type_of((V649))!=t_cons)){ |
if(!(type_of((V665))!=t_cons)){ |
7166 |
goto T2569;} |
goto T2639;} |
7167 |
base[2]= VV[141]; |
base[2]= VV[145]; |
7168 |
base[3]= base0[1]; |
base[3]= base0[1]; |
7169 |
base[4]= base0[0]; |
base[4]= base0[0]; |
7170 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
7171 |
(void) (*Lnk347)(); |
(void) (*Lnk354)(); |
7172 |
return; |
return; |
7173 |
goto T2569; |
goto T2639; |
7174 |
T2569:; |
T2639:; |
7175 |
base[2]= car((V648)); |
base[2]= CMPcar((V664)); |
7176 |
base[3]= car((V649)); |
base[3]= CMPcar((V665)); |
7177 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
7178 |
L58(base0); |
L63(base0); |
7179 |
vs_top=sup; |
vs_top=sup; |
7180 |
V652= vs_base[0]; |
V668= vs_base[0]; |
7181 |
base[2]= cdr((V648)); |
base[2]= CMPcdr((V664)); |
7182 |
base[3]= cdr((V649)); |
base[3]= CMPcdr((V665)); |
7183 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
7184 |
L58(base0); |
L63(base0); |
7185 |
vs_top=sup; |
vs_top=sup; |
7186 |
V653= vs_base[0]; |
V669= vs_base[0]; |
7187 |
base[2]= make_cons(V652,V653); |
base[2]= make_cons(V668,V669); |
7188 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7189 |
return; |
return; |
7190 |
} |
} |
7194 |
static void L40(base0) |
static void L40(base0) |
7195 |
register object *base0; |
register object *base0; |
7196 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7197 |
register object *sup=base+VM98; VC98 |
register object *sup=base+VM104; VC104 |
7198 |
vs_reserve(VM98); |
vs_check; |
7199 |
{object V654; |
{object V670; |
7200 |
check_arg(1); |
V670=(base[0]); |
|
V654=(base[0]); |
|
7201 |
vs_top=sup; |
vs_top=sup; |
7202 |
goto TTL; |
goto TTL; |
7203 |
TTL:; |
TTL:; |
7204 |
{long V655; |
{long V671; |
7205 |
V655= 0; |
V671= 0; |
7206 |
{register object V656; |
{register object V672; |
7207 |
object V657; |
object V673; |
7208 |
V656= (V654); |
V672= (V670); |
7209 |
V657= car((V656)); |
V673= CMPcar((V672)); |
7210 |
goto T2584; |
goto T2654; |
7211 |
T2584:; |
T2654:; |
7212 |
if(!(endp_prop((V656)))){ |
if(!(((V672))==Cnil)){ |
7213 |
goto T2585;} |
goto T2655;} |
7214 |
base[2]= make_fixnum(V655); |
base[2]= CMPmake_fixnum(V671); |
7215 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7216 |
return; |
return; |
7217 |
goto T2585; |
goto T2655; |
7218 |
T2585:; |
T2655:; |
7219 |
V658 = make_fixnum(V655); |
V674 = CMPmake_fixnum(V671); |
7220 |
base[2]= (V657); |
base[2]= (V673); |
7221 |
base[3]= base0[1]; |
base[3]= base0[1]; |
7222 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
7223 |
(void) (*Lnk342)(); |
(void) (*Lnk349)(); |
7224 |
vs_top=sup; |
vs_top=sup; |
7225 |
V659= vs_base[0]; |
V675= vs_base[0]; |
7226 |
V655= fix(number_plus(V658,V659)); |
V671= fix(number_plus(V674,V675)); |
7227 |
V656= cdr((V656)); |
V672= CMPcdr((V672)); |
7228 |
V657= car((V656)); |
V673= CMPcar((V672)); |
7229 |
goto T2584;}} |
goto T2654;}} |
7230 |
} |
} |
7231 |
} |
} |
7232 |
/* local function MAKEBODY */ |
/* local function MAKEBODY */ |
7234 |
static void L35(base0) |
static void L35(base0) |
7235 |
register object *base0; |
register object *base0; |
7236 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7237 |
register object *sup=base+VM99; VC99 |
register object *sup=base+VM105; VC105 |
7238 |
vs_reserve(VM99); |
vs_check; |
|
check_arg(0); |
|
7239 |
vs_top=sup; |
vs_top=sup; |
7240 |
goto TTL; |
goto TTL; |
7241 |
TTL:; |
TTL:; |
7242 |
{object V660; |
{object V676; |
7243 |
V662= nreverse(base0[7]); |
V678= nreverse(base0[7]); |
7244 |
base[0]= append(base0[2],/* INLINE-ARGS */V662); |
base[0]= append(base0[2],/* INLINE-ARGS */V678); |
7245 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7246 |
L33(base0); |
L33(base0); |
7247 |
vs_top=sup; |
vs_top=sup; |
7248 |
V661= vs_base[0]; |
V677= vs_base[0]; |
7249 |
base[1]= base0[8]; |
base[1]= base0[8]; |
7250 |
base[2]= VV[75]; |
base[2]= VV[75]; |
7251 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
7252 |
Lreconc(); |
Lreconc(); |
7253 |
vs_top=sup; |
vs_top=sup; |
7254 |
V664= vs_base[0]; |
V680= vs_base[0]; |
7255 |
base[0]= append(base0[4],V664); |
base[0]= append(base0[4],V680); |
7256 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7257 |
L33(base0); |
L33(base0); |
7258 |
vs_top=sup; |
vs_top=sup; |
7259 |
V663= vs_base[0]; |
V679= vs_base[0]; |
7260 |
base[0]= base0[6]; |
base[0]= base0[6]; |
7261 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7262 |
L33(base0); |
L33(base0); |
7263 |
vs_top=sup; |
vs_top=sup; |
7264 |
V665= vs_base[0]; |
V681= vs_base[0]; |
7265 |
V666= make_cons(VV[76],V665); |
V682= make_cons(VV[76],V681); |
7266 |
V667= append(V663,/* INLINE-ARGS */V666); |
V683= append(V679,/* INLINE-ARGS */V682); |
7267 |
V668= make_cons(VV[74],/* INLINE-ARGS */V667); |
V684= make_cons(VV[74],/* INLINE-ARGS */V683); |
7268 |
V669= append(V661,/* INLINE-ARGS */V668); |
V685= append(V677,/* INLINE-ARGS */V684); |
7269 |
V660= make_cons(VV[73],/* INLINE-ARGS */V669); |
V676= make_cons(VV[73],/* INLINE-ARGS */V685); |
7270 |
if((base0[9])==Cnil){ |
if((base0[9])==Cnil){ |
7271 |
goto T2610;} |
goto T2680;} |
7272 |
V670= list(2,base0[9],Cnil); |
V686= list(2,base0[9],Cnil); |
7273 |
base[0]= list(3,VV[29],make_cons(/* INLINE-ARGS */V670,Cnil),(V660)); |
base[0]= list(3,VV[29],make_cons(/* INLINE-ARGS */V686,Cnil),(V676)); |
7274 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7275 |
return; |
return; |
7276 |
goto T2610; |
goto T2680; |
7277 |
T2610:; |
T2680:; |
7278 |
base[0]= (V660); |
base[0]= (V676); |
7279 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7280 |
return;} |
return;} |
7281 |
} |
} |
7284 |
static void L34(base0) |
static void L34(base0) |
7285 |
register object *base0; |
register object *base0; |
7286 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7287 |
register object *sup=base+VM100; VC100 |
register object *sup=base+VM106; VC106 |
7288 |
vs_reserve(VM100); |
vs_check; |
7289 |
{object V671; |
{object V687; |
7290 |
check_arg(1); |
V687=(base[0]); |
|
V671=(base[0]); |
|
7291 |
vs_top=sup; |
vs_top=sup; |
7292 |
goto TTL; |
goto TTL; |
7293 |
TTL:; |
TTL:; |
7294 |
if((cdr((V671)))!=Cnil){ |
if((CMPcdr((V687)))!=Cnil){ |
7295 |
goto T2613;} |
goto T2683;} |
7296 |
base[1]= car((V671)); |
base[1]= CMPcar((V687)); |
7297 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7298 |
return; |
return; |
7299 |
goto T2613; |
goto T2683; |
7300 |
T2613:; |
T2683:; |
7301 |
base[1]= make_cons(VV[14],(V671)); |
base[1]= make_cons(VV[14],(V687)); |
7302 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7303 |
return; |
return; |
7304 |
} |
} |
7308 |
static void L33(base0) |
static void L33(base0) |
7309 |
register object *base0; |
register object *base0; |
7310 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7311 |
register object *sup=base+VM101; VC101 |
register object *sup=base+VM107; VC107 |
7312 |
vs_reserve(VM101); |
vs_check; |
7313 |
{object V672; |
{object V688; |
7314 |
check_arg(1); |
V688=(base[0]); |
|
V672=(base[0]); |
|
7315 |
vs_top=sup; |
vs_top=sup; |
7316 |
goto TTL; |
goto TTL; |
7317 |
TTL:; |
TTL:; |
7318 |
{register object V673; |
{register object V689; |
7319 |
V673= Cnil; |
V689= Cnil; |
7320 |
{register object V674; |
{register object V690; |
7321 |
register object V675; |
register object V691; |
7322 |
V674= (V672); |
V690= (V688); |
7323 |
V675= car((V674)); |
V691= CMPcar((V690)); |
7324 |
goto T2619; |
goto T2689; |
7325 |
T2619:; |
T2689:; |
7326 |
if(!(endp_prop((V674)))){ |
if(!(((V690))==Cnil)){ |
7327 |
goto T2620;} |
goto T2690;} |
7328 |
goto T2615; |
goto T2685; |
7329 |
goto T2620; |
goto T2690; |
7330 |
T2620:; |
T2690:; |
7331 |
if(((V675))==Cnil){ |
if(((V691))==Cnil){ |
7332 |
goto T2624;} |
goto T2694;} |
7333 |
{register object V676; |
{register object V692; |
7334 |
V676= (V675); |
V692= (V691); |
7335 |
V673= make_cons((V676),(V673));} |
V689= make_cons((V692),(V689));} |
7336 |
if(!(type_of((V675))==t_cons)){ |
if(!(type_of((V691))==t_cons)){ |
7337 |
goto T2624;} |
goto T2694;} |
7338 |
{register object x= car((V675)),V677= VV[72]; |
{register object x= CMPcar((V691)),V693= VV[72]; |
7339 |
while(!endp(V677)) |
while(V693!=Cnil) |
7340 |
if(eql(x,V677->c.c_car)){ |
if(eql(x,V693->c.c_car)){ |
7341 |
goto T2633; |
goto T2703; |
7342 |
}else V677=V677->c.c_cdr; |
}else V693=V693->c.c_cdr; |
7343 |
goto T2624;} |
goto T2694;} |
7344 |
goto T2633; |
goto T2703; |
7345 |
T2633:; |
T2703:; |
7346 |
goto T2615; |
goto T2685; |
7347 |
goto T2624; |
goto T2694; |
7348 |
T2624:; |
T2694:; |
7349 |
V674= cdr((V674)); |
V690= CMPcdr((V690)); |
7350 |
V675= car((V674)); |
V691= CMPcar((V690)); |
7351 |
goto T2619;} |
goto T2689;} |
7352 |
goto T2615; |
goto T2685; |
7353 |
T2615:; |
T2685:; |
7354 |
base[1]= nreverse((V673)); |
base[1]= nreverse((V689)); |
7355 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7356 |
return;} |
return;} |
7357 |
} |
} |
7361 |
static void L27(base0) |
static void L27(base0) |
7362 |
register object *base0; |
register object *base0; |
7363 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7364 |
register object *sup=base+VM102; VC102 |
register object *sup=base+VM108; VC108 |
7365 |
vs_reserve(VM102); |
vs_check; |
7366 |
{object V678; |
{object V694; |
7367 |
check_arg(1); |
V694=(base[0]); |
|
V678=(base[0]); |
|
7368 |
vs_top=sup; |
vs_top=sup; |
7369 |
goto TTL; |
goto TTL; |
7370 |
TTL:; |
TTL:; |
7371 |
{register object V679; |
{register object V695; |
7372 |
V679= (V678); |
V695= (V694); |
7373 |
goto T2640; |
goto T2710; |
7374 |
T2640:; |
T2710:; |
7375 |
if(type_of((V679))==t_cons){ |
if(type_of((V695))==t_cons){ |
7376 |
goto T2641;} |
goto T2711;} |
7377 |
base[1]= (V679); |
base[1]= (V695); |
7378 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7379 |
return; |
return; |
7380 |
goto T2641; |
goto T2711; |
7381 |
T2641:; |
T2711:; |
7382 |
{register object V680; |
{register object V696; |
7383 |
V680= car((V679)); |
V696= CMPcar((V695)); |
7384 |
V679= cdr((V679)); |
V695= CMPcdr((V695)); |
7385 |
base[1]= (V680);} |
base[1]= (V696);} |
7386 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7387 |
L27(base0); |
L27(base0); |
7388 |
vs_top=sup; |
vs_top=sup; |
7389 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
7390 |
goto T2645;} |
goto T2715;} |
7391 |
base[1]= Ct; |
base[1]= Ct; |
7392 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7393 |
return; |
return; |
7394 |
goto T2645; |
goto T2715; |
7395 |
T2645:; |
T2715:; |
7396 |
goto T2640;} |
goto T2710;} |
7397 |
} |
} |
7398 |
} |
} |
7399 |
/* local function LOOP-DESETQ-INTERNAL */ |
/* local function LOOP-DESETQ-INTERNAL */ |
7401 |
static void L28(base0) |
static void L28(base0) |
7402 |
register object *base0; |
register object *base0; |
7403 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7404 |
register object *sup=base+VM103; VC103 |
register object *sup=base+VM109; VC109 |
7405 |
vs_reserve(VM103); |
vs_check; |
7406 |
{register object V681; |
{register object V697; |
7407 |
register object V682; |
register object V698; |
7408 |
object V683; |
object V699; |
7409 |
if(vs_top-vs_base<2) too_few_arguments(); |
V697=(base[0]); |
7410 |
if(vs_top-vs_base>3) too_many_arguments(); |
V698=(base[1]); |
|
V681=(base[0]); |
|
|
V682=(base[1]); |
|
7411 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
7412 |
if(vs_base>=vs_top){vs_top=sup;goto T2654;} |
if(vs_base>=vs_top){vs_top=sup;goto T2724;} |
7413 |
V683=(base[2]); |
V699=(base[2]); |
7414 |
vs_top=sup; |
vs_top=sup; |
7415 |
goto T2655; |
goto T2725; |
7416 |
goto T2654; |
goto T2724; |
7417 |
T2654:; |
T2724:; |
7418 |
V683= Cnil; |
V699= Cnil; |
7419 |
goto T2655; |
goto T2725; |
7420 |
T2655:; |
T2725:; |
7421 |
{register object V684; |
{register object V700; |
7422 |
V684= (V681); |
V700= (V697); |
7423 |
if(!(((V684))==Cnil)){ |
if(!(((V700))==Cnil)){ |
7424 |
goto T2658;} |
goto T2728;} |
7425 |
if(!(type_of((V682))==t_cons)){ |
if(!(type_of((V698))==t_cons)){ |
7426 |
goto T2661;} |
goto T2731;} |
7427 |
if(!((car((V682)))==(VV[62]))){ |
if(!((CMPcar((V698)))==(VV[62]))){ |
7428 |
goto T2664;} |
goto T2734;} |
7429 |
{object V685; |
{object V701; |
7430 |
object V686= cdr((V682)); |
object V702= CMPcdr((V698)); |
7431 |
if(endp(V686)){ |
if(V702==Cnil){ |
7432 |
base[4]= Cnil; |
base[4]= Cnil; |
7433 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
7434 |
return;} |
return;} |
7435 |
base[3]=V685=MMcons(Cnil,Cnil); |
base[3]=V701=MMcons(Cnil,Cnil); |
7436 |
goto T2666; |
goto T2736; |
7437 |
T2666:; |
T2736:; |
7438 |
{register object V687; |
{register object V703; |
7439 |
V687= (V686->c.c_car); |
V703= (V702->c.c_car); |
7440 |
if(type_of((V687))==t_cons){ |
if(type_of((V703))==t_cons){ |
7441 |
goto T2668;} |
goto T2738;} |
7442 |
(V685->c.c_cdr)= Cnil; |
(V701->c.c_cdr)= Cnil; |
7443 |
goto T2667; |
goto T2737; |
7444 |
goto T2668; |
goto T2738; |
7445 |
T2668:; |
T2738:; |
7446 |
if(!((((car((V687)))==(VV[65])?Ct:Cnil))==Cnil)){ |
if(!((((CMPcar((V703)))==(VV[65])?Ct:Cnil))==Cnil)){ |
7447 |
goto T2672;} |
goto T2742;} |
7448 |
goto T2670; |
goto T2740; |
7449 |
goto T2672; |
goto T2742; |
7450 |
T2672:; |
T2742:; |
7451 |
if(!(((type_of(cadr((V687)))==t_symbol?Ct:Cnil))==Cnil)){ |
if(!(((type_of(CMPcadr((V703)))==t_symbol?Ct:Cnil))==Cnil)){ |
7452 |
goto T2674;} |
goto T2744;} |
7453 |
goto T2670; |
goto T2740; |
7454 |
goto T2674; |
goto T2744; |
7455 |
T2674:; |
T2744:; |
7456 |
base[4]= (V687); |
base[4]= (V703); |
7457 |
base[5]= base0[1]; |
base[5]= base0[1]; |
7458 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
7459 |
Lmacroexpand(); |
Lmacroexpand(); |
7460 |
vs_top=sup; |
vs_top=sup; |
7461 |
V687= vs_base[0]; |
V703= vs_base[0]; |
7462 |
if(((type_of((V687))==t_symbol?Ct:Cnil))==Cnil){ |
if(((type_of((V703))==t_symbol?Ct:Cnil))==Cnil){ |
7463 |
goto T2670;} |
goto T2740;} |
7464 |
(V685->c.c_cdr)= Cnil; |
(V701->c.c_cdr)= Cnil; |
7465 |
goto T2667; |
goto T2737; |
7466 |
goto T2670; |
goto T2740; |
7467 |
T2670:; |
T2740:; |
7468 |
(V685->c.c_cdr)= make_cons((V687),Cnil);} |
(V701->c.c_cdr)= make_cons((V703),Cnil);} |
7469 |
goto T2667; |
goto T2737; |
7470 |
T2667:; |
T2737:; |
7471 |
{object cdr_V685=MMcdr(V685);while(!endp(cdr_V685)) {cdr_V685=MMcdr(cdr_V685);V685=MMcdr(V685);}} |
while(MMcdr(V701)!=Cnil)V701=MMcdr(V701); |
7472 |
V686=MMcdr(V686); |
if((V702=MMcdr(V702))==Cnil){ |
|
if(endp(V686)){ |
|
7473 |
base[3]=base[3]->c.c_cdr; |
base[3]=base[3]->c.c_cdr; |
7474 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7475 |
return;} |
return;} |
7476 |
goto T2666;} |
goto T2736;} |
7477 |
goto T2664; |
goto T2734; |
7478 |
T2664:; |
T2734:; |
7479 |
base[3]= make_cons((V682),Cnil); |
base[3]= make_cons((V698),Cnil); |
7480 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7481 |
return; |
return; |
7482 |
goto T2661; |
goto T2731; |
7483 |
T2661:; |
T2731:; |
7484 |
base[3]= Cnil; |
base[3]= Cnil; |
7485 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7486 |
return; |
return; |
7487 |
goto T2658; |
goto T2728; |
7488 |
T2658:; |
T2728:; |
7489 |
if(!(type_of((V684))==t_cons)){ |
if(!(type_of((V700))==t_cons)){ |
7490 |
goto T2680;} |
goto T2750;} |
7491 |
{object V688; |
{object V704; |
7492 |
object V689; |
object V705; |
7493 |
object V690; |
object V706; |
7494 |
object V691; |
object V707; |
7495 |
V688= car((V681)); |
V704= CMPcar((V697)); |
7496 |
V689= cdr((V681)); |
V705= CMPcdr((V697)); |
7497 |
base[7]= (V688); |
base[7]= (V704); |
7498 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
7499 |
L27(base0); |
L27(base0); |
7500 |
vs_top=sup; |
vs_top=sup; |
7501 |
V690= vs_base[0]; |
V706= vs_base[0]; |
7502 |
base[7]= (V689); |
base[7]= (V705); |
7503 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
7504 |
L27(base0); |
L27(base0); |
7505 |
vs_top=sup; |
vs_top=sup; |
7506 |
V691= vs_base[0]; |
V707= vs_base[0]; |
7507 |
if(((V690))!=Cnil){ |
if(((V706))!=Cnil){ |
7508 |
goto T2688;} |
goto T2758;} |
7509 |
if(((V691))==Cnil){ |
if(((V707))==Cnil){ |
7510 |
goto T2689;} |
goto T2759;} |
7511 |
goto T2688; |
goto T2758; |
7512 |
T2688:; |
T2758:; |
7513 |
if(((V691))==Cnil){ |
if(((V707))==Cnil){ |
7514 |
goto T2694;} |
goto T2764;} |
7515 |
{register object V693; |
{register object V709; |
7516 |
object V694; |
object V710; |
7517 |
if((V683)!=Cnil){ |
if((V699)!=Cnil){ |
7518 |
V693= (V683); |
V709= (V699); |
7519 |
goto T2696;} |
goto T2766;} |
7520 |
V693= symbol_value(VV[66]); |
V709= (VV[66]->s.s_dbind); |
7521 |
goto T2696; |
goto T2766; |
7522 |
T2696:; |
T2766:; |
7523 |
base[9]= (V688); |
base[9]= (V704); |
7524 |
base[10]= list(2,VV[65],(V693)); |
base[10]= list(2,VV[65],(V709)); |
7525 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+9)+2; |
7526 |
L28(base0); |
L28(base0); |
7527 |
vs_top=sup; |
vs_top=sup; |
7528 |
V695= vs_base[0]; |
V711= vs_base[0]; |
7529 |
V696= list(3,VV[11],(V693),list(2,VV[10],(V693))); |
V712= list(3,VV[11],(V709),list(2,VV[10],(V709))); |
7530 |
base[9]= (V689); |
base[9]= (V705); |
7531 |
base[10]= (V693); |
base[10]= (V709); |
7532 |
base[11]= (V693); |
base[11]= (V709); |
7533 |
vs_top=(vs_base=base+9)+3; |
vs_top=(vs_base=base+9)+3; |
7534 |
L28(base0); |
L28(base0); |
7535 |
vs_top=sup; |
vs_top=sup; |
7536 |
V697= vs_base[0]; |
V713= vs_base[0]; |
7537 |
V698= make_cons(/* INLINE-ARGS */V696,V697); |
V714= make_cons(/* INLINE-ARGS */V712,V713); |
7538 |
V694= append(V695,/* INLINE-ARGS */V698); |
V710= append(V711,/* INLINE-ARGS */V714); |
7539 |
if((V683)==Cnil){ |
if((V699)==Cnil){ |
7540 |
goto T2706;} |
goto T2776;} |
7541 |
if(((V693))==((V682))){ |
if(((V709))==((V698))){ |
7542 |
goto T2710;} |
goto T2780;} |
7543 |
V700= list(3,VV[11],(V693),(V682)); |
V716= list(3,VV[11],(V709),(V698)); |
7544 |
V699= make_cons(/* INLINE-ARGS */V700,Cnil); |
V715= make_cons(/* INLINE-ARGS */V716,Cnil); |
7545 |
goto T2708; |
goto T2778; |
7546 |
goto T2710; |
goto T2780; |
7547 |
T2710:; |
T2780:; |
7548 |
V699= Cnil; |
V715= Cnil; |
7549 |
goto T2708; |
goto T2778; |
7550 |
T2708:; |
T2778:; |
7551 |
base[9]= append(V699,(V694)); |
base[9]= append(V715,(V710)); |
7552 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
7553 |
return; |
return; |
7554 |
goto T2706; |
goto T2776; |
7555 |
T2706:; |
T2776:; |
7556 |
V701= list(2,(V693),(V682)); |
V717= list(2,(V709),(V698)); |
7557 |
V702= listA(3,VV[29],make_cons(/* INLINE-ARGS */V701,Cnil),(V694)); |
V718= listA(3,VV[29],make_cons(/* INLINE-ARGS */V717,Cnil),(V710)); |
7558 |
base[9]= make_cons(/* INLINE-ARGS */V702,Cnil); |
base[9]= make_cons(/* INLINE-ARGS */V718,Cnil); |
7559 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
7560 |
return;} |
return;} |
7561 |
goto T2694; |
goto T2764; |
7562 |
T2694:; |
T2764:; |
7563 |
base[7]= (V688); |
base[7]= (V704); |
7564 |
base[8]= list(2,VV[65],(V682)); |
base[8]= list(2,VV[65],(V698)); |
7565 |
base[9]= (V683); |
base[9]= (V699); |
7566 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
7567 |
L28(base0); |
L28(base0); |
7568 |
return; |
return; |
7569 |
goto T2689; |
goto T2759; |
7570 |
T2689:; |
T2759:; |
7571 |
base[7]= Cnil; |
base[7]= Cnil; |
7572 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
7573 |
return;} |
return;} |
7574 |
goto T2680; |
goto T2750; |
7575 |
T2680:; |
T2750:; |
7576 |
if(((V681))==((V682))){ |
if(((V697))==((V698))){ |
7577 |
goto T2716;} |
goto T2786;} |
7578 |
V703= list(3,VV[11],(V681),(V682)); |
V719= list(3,VV[11],(V697),(V698)); |
7579 |
base[3]= make_cons(/* INLINE-ARGS */V703,Cnil); |
base[3]= make_cons(/* INLINE-ARGS */V719,Cnil); |
7580 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7581 |
return; |
return; |
7582 |
goto T2716; |
goto T2786; |
7583 |
T2716:; |
T2786:; |
7584 |
base[3]= Cnil; |
base[3]= Cnil; |
7585 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7586 |
return;} |
return;} |
7591 |
static void L23(base0) |
static void L23(base0) |
7592 |
register object *base0; |
register object *base0; |
7593 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7594 |
register object *sup=base+VM104; VC104 |
register object *sup=base+VM110; VC110 |
7595 |
vs_reserve(VM104); |
vs_check; |
7596 |
{object V704; |
{object V720; |
7597 |
check_arg(1); |
V720=(base[0]); |
|
V704=(base[0]); |
|
7598 |
vs_top=sup; |
vs_top=sup; |
7599 |
goto TTL; |
goto TTL; |
7600 |
TTL:; |
TTL:; |
7601 |
{object V705; |
{object V721; |
7602 |
object V706; |
object V722; |
7603 |
V705= make_fixnum((long)length((V704))); |
V721= CMPmake_fixnum((long)length((V720))); |
7604 |
base[3]= VV[61]; |
base[3]= VV[61]; |
7605 |
if(!(number_compare((V705),small_fixnum(10))<0)){ |
if(!(number_compare((V721),small_fixnum(10))<0)){ |
7606 |
goto T2723;} |
goto T2793;} |
7607 |
base[4]= small_fixnum(10); |
base[4]= small_fixnum(10); |
7608 |
goto T2721; |
goto T2791; |
7609 |
goto T2723; |
goto T2793; |
7610 |
T2723:; |
T2793:; |
7611 |
base[4]= (V705); |
base[4]= (V721); |
7612 |
goto T2721; |
goto T2791; |
7613 |
T2721:; |
T2791:; |
7614 |
base[5]= VV[20]; |
base[5]= VV[20]; |
7615 |
base[6]= symbol_function(VV[401]); |
base[6]= (VV[414]->s.s_gfdef); |
7616 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
7617 |
Lmake_hash_table(); |
Lmake_hash_table(); |
7618 |
vs_top=sup; |
vs_top=sup; |
7619 |
V706= vs_base[0]; |
V722= vs_base[0]; |
7620 |
{register object V707; |
{register object V723; |
7621 |
register object V708; |
register object V724; |
7622 |
V707= (V704); |
V723= (V720); |
7623 |
V708= car((V707)); |
V724= CMPcar((V723)); |
7624 |
goto T2731; |
goto T2801; |
7625 |
T2731:; |
T2801:; |
7626 |
if(!(endp_prop((V707)))){ |
if(!(((V723))==Cnil)){ |
7627 |
goto T2732;} |
goto T2802;} |
7628 |
goto T2727; |
goto T2797; |
7629 |
goto T2732; |
goto T2802; |
7630 |
T2732:; |
T2802:; |
7631 |
{object V709; |
{object V725; |
7632 |
object V711; |
object V727; |
7633 |
V709= symbol_name(car((V708))); |
V725= symbol_name(CMPcar((V724))); |
7634 |
V711= cadr((V708)); |
V727= CMPcadr((V724)); |
7635 |
base[6]= (V709); |
base[6]= (V725); |
7636 |
base[7]= V706; |
base[7]= V722; |
7637 |
base[8]= (V711); |
base[8]= (V727); |
7638 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
7639 |
siLhash_set(); |
siLhash_set(); |
7640 |
vs_top=sup;} |
vs_top=sup;} |
7641 |
V707= cdr((V707)); |
V723= CMPcdr((V723)); |
7642 |
V708= car((V707)); |
V724= CMPcar((V723)); |
7643 |
goto T2731;} |
goto T2801;} |
7644 |
goto T2727; |
goto T2797; |
7645 |
T2727:; |
T2797:; |
7646 |
base[3]= (V706); |
base[3]= (V722); |
7647 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7648 |
return;} |
return;} |
7649 |
} |
} |
7653 |
static void L8(base0) |
static void L8(base0) |
7654 |
register object *base0; |
register object *base0; |
7655 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
7656 |
register object *sup=base+VM105; VC105 |
register object *sup=base+VM111; VC111 |
7657 |
vs_reserve(VM105); |
vs_check; |
7658 |
{register object V712; |
{register object V728; |
7659 |
register long V713; |
register long V729; |
7660 |
check_arg(2); |
V728=(base[0]); |
7661 |
V712=(base[0]); |
V729=fix(base[1]); |
|
V713=fix(base[1]); |
|
7662 |
vs_top=sup; |
vs_top=sup; |
7663 |
goto TTL; |
goto TTL; |
7664 |
TTL:; |
TTL:; |
7665 |
goto T2748; |
goto T2818; |
7666 |
T2748:; |
T2818:; |
7667 |
if(!((V713)<=(4))){ |
if(!((V729)<=(4))){ |
7668 |
goto T2749;}switch(V713){ |
goto T2819;}switch(V729){ |
7669 |
case 1: |
case 1: |
7670 |
goto T2755; |
goto T2825; |
7671 |
T2755:; |
T2825:; |
7672 |
V714= VV[10]; |
V730= VV[10]; |
7673 |
goto T2753; |
goto T2823; |
7674 |
case 2: |
case 2: |
7675 |
goto T2756; |
goto T2826; |
7676 |
T2756:; |
T2826:; |
7677 |
V714= VV[15]; |
V730= VV[15]; |
7678 |
goto T2753; |
goto T2823; |
7679 |
case 3: |
case 3: |
7680 |
goto T2757; |
goto T2827; |
7681 |
T2757:; |
T2827:; |
7682 |
V714= VV[16]; |
V730= VV[16]; |
7683 |
goto T2753; |
goto T2823; |
7684 |
case 4: |
case 4: |
7685 |
goto T2758; |
goto T2828; |
7686 |
T2758:; |
T2828:; |
7687 |
V714= VV[17]; |
V730= VV[17]; |
7688 |
goto T2753; |
goto T2823; |
7689 |
default: |
default: |
7690 |
goto T2759; |
goto T2829; |
7691 |
T2759:; |
T2829:; |
7692 |
V714= Cnil; |
V730= Cnil; |
7693 |
goto T2753;} |
goto T2823;} |
7694 |
V714= Cnil; |
V730= Cnil; |
7695 |
goto T2753; |
goto T2823; |
7696 |
T2753:; |
T2823:; |
7697 |
V712= list(2,V714,(V712)); |
V728= list(2,V730,(V728)); |
7698 |
base[2]= (V712); |
base[2]= (V728); |
7699 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7700 |
return; |
return; |
7701 |
goto T2749; |
goto T2819; |
7702 |
T2749:; |
T2819:; |
7703 |
V712= list(2,VV[17],(V712)); |
V728= list(2,VV[17],(V728)); |
7704 |
V713= (long)(V713)-(4); |
V729= (long)(V729)-(4); |
7705 |
goto T2748; |
goto T2818; |
7706 |
} |
} |
7707 |
} |
} |
7708 |
static void LnkT400(){ call_or_link(VV[400],(void **)(void *)&Lnk400);} /* LOOP-STANDARD-EXPANSION */ |
static void LnkT413(){ call_or_link(VV[413],(void **)(void *)&Lnk413);} /* LOOP-STANDARD-EXPANSION */ |
7709 |
static void LnkT399(){ call_or_link(VV[399],(void **)(void *)&Lnk399);} /* LOOP-TRANSLATE */ |
static void LnkT412(){ call_or_link(VV[412],(void **)(void *)&Lnk412);} /* LOOP-TRANSLATE */ |
7710 |
static void LnkT398(){ call_or_link(VV[398],(void **)(void *)&Lnk398);} /* ADD-LOOP-PATH */ |
static void LnkT411(){ call_or_link(VV[411],(void **)(void *)&Lnk411);} /* ADD-LOOP-PATH */ |
7711 |
static void LnkT397(){ call_or_link(VV[397],(void **)(void *)&Lnk397);} /* MAKE-STANDARD-LOOP-UNIVERSE */ |
static void LnkT410(){ call_or_link(VV[410],(void **)(void *)&Lnk410);} /* MAKE-STANDARD-LOOP-UNIVERSE */ |
7712 |
static void LnkT394(){ call_or_link(VV[394],(void **)(void *)&Lnk394);} /* NAMED-VARIABLE */ |
static void LnkT407(){ call_or_link(VV[407],(void **)(void *)&Lnk407);} /* NAMED-VARIABLE */ |
7713 |
static void LnkT389(){ call_or_link(VV[389],(void **)(void *)&Lnk389);} /* LOOP-SEQUENCER */ |
static void LnkT402(){ call_or_link(VV[402],(void **)(void *)&Lnk402);} /* LOOP-SEQUENCER */ |
7714 |
static object LnkTLI386(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[386],(void **)(void *)&LnkLI386,first,ap);va_end(ap);return V1;} /* DELETE */ |
static void LnkT399(){ call_or_link(VV[399],(void **)(void *)&Lnk399);} /* DELETE */ |
7715 |
static void LnkT385(){ call_or_link(VV[385],(void **)(void *)&Lnk385);} /* LOOP-TASSOC */ |
static void LnkT398(){ call_or_link(VV[398],(void **)(void *)&Lnk398);} /* LOOP-TASSOC */ |
7716 |
static void LnkT384(){ call_or_link(VV[384],(void **)(void *)&Lnk384);} /* LOOP-COLLECT-PREPOSITIONAL-PHRASES */ |
static void LnkT397(){ call_or_link(VV[397],(void **)(void *)&Lnk397);} /* LOOP-COLLECT-PREPOSITIONAL-PHRASES */ |
7717 |
static void LnkT383(){ call_or_link(VV[383],(void **)(void *)&Lnk383);} /* MAKE-LOOP-PATH */ |
static void LnkT396(){ call_or_link(VV[396],(void **)(void *)&Lnk396);} /* MAKE-LOOP-PATH */ |
7718 |
static void LnkT382(){ call_or_link(VV[382],(void **)(void *)&Lnk382);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT395(){ call_or_link(VV[395],(void **)(void *)&Lnk395);} /* STRUCTURE-SUBTYPE-P */ |
7719 |
static void LnkT381(){ call_or_link(VV[381],(void **)(void *)&Lnk381);} /* LOOP-LIST-STEP */ |
static void LnkT394(){ call_or_link(VV[394],(void **)(void *)&Lnk394);} /* LOOP-LIST-STEP */ |
7720 |
static void LnkT380(){ call_or_link(VV[380],(void **)(void *)&Lnk380);} /* LOOP-MAKE-ITERATION-VARIABLE */ |
static void LnkT393(){ call_or_link(VV[393],(void **)(void *)&Lnk393);} /* LOOP-CONSTANT-FOLD-IF-POSSIBLE */ |
7721 |
static void LnkT379(){ call_or_link(VV[379],(void **)(void *)&Lnk379);} /* LOOP-CONSTANT-FOLD-IF-POSSIBLE */ |
static void LnkT392(){ call_or_link(VV[392],(void **)(void *)&Lnk392);} /* LOOP-MAKE-ITERATION-VARIABLE */ |
7722 |
static void LnkT378(){ call_or_link(VV[378],(void **)(void *)&Lnk378);} /* LOOP-WHEN-IT-VARIABLE */ |
static void LnkT391(){ call_or_link(VV[391],(void **)(void *)&Lnk391);} /* LOOP-WHEN-IT-VARIABLE */ |
7723 |
static void LnkT377(){ call_or_link(VV[377],(void **)(void *)&Lnk377);} /* LOOP-NOTE-MINIMAX-OPERATION */ |
static void LnkT390(){ call_or_link(VV[390],(void **)(void *)&Lnk390);} /* LOOP-DISALLOW-ANONYMOUS-COLLECTORS */ |
7724 |
static void LnkT376(){ call_or_link(VV[376],(void **)(void *)&Lnk376);} /* MAKE-LOOP-MINIMAX */ |
static void LnkT389(){ call_or_link(VV[389],(void **)(void *)&Lnk389);} /* LOOP-NOTE-MINIMAX-OPERATION */ |
7725 |
static void LnkT375(){ call_or_link(VV[375],(void **)(void *)&Lnk375);} /* LOOP-CHECK-DATA-TYPE */ |
static void LnkT388(){ call_or_link(VV[388],(void **)(void *)&Lnk388);} /* MAKE-LOOP-MINIMAX */ |
7726 |
static void LnkT372(){ call_or_link(VV[372],(void **)(void *)&Lnk372);} /* LOOP-EMIT-FINAL-VALUE */ |
static void LnkT387(){ call_or_link(VV[387],(void **)(void *)&Lnk387);} /* LOOP-CHECK-DATA-TYPE */ |
7727 |
static void LnkT371(){ call_or_link(VV[371],(void **)(void *)&Lnk371);} /* LOOP-GET-COLLECTION-INFO */ |
static void LnkT384(){ call_or_link(VV[384],(void **)(void *)&Lnk384);} /* LOOP-EMIT-FINAL-VALUE */ |
7728 |
static void LnkT370(){ call_or_link(VV[370],(void **)(void *)&Lnk370);} /* MAKE-LOOP-COLLECTOR */ |
static void LnkT383(){ call_or_link(VV[383],(void **)(void *)&Lnk383);} /* LOOP-GET-COLLECTION-INFO */ |
7729 |
static object LnkTLI368(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[368],(void **)(void *)&LnkLI368,first,ap);va_end(ap);return V1;} /* FIND */ |
static void LnkT382(){ call_or_link(VV[382],(void **)(void *)&Lnk382);} /* MAKE-LOOP-COLLECTOR */ |
7730 |
static void LnkT367(){ call_or_link(VV[367],(void **)(void *)&Lnk367);} /* LOOP-OPTIONAL-TYPE */ |
static void LnkT381(){ call_or_link(VV[381],(void **)(void *)&Lnk381);} /* LOOP-VARIABLE-P */ |
7731 |
static void LnkT364(){ call_or_link(VV[364],(void **)(void *)&Lnk364);} /* LOOP-EMIT-BODY */ |
static void LnkT380(){ call_or_link(VV[380],(void **)(void *)&Lnk380);} /* FIND */ |
7732 |
static void LnkT363(){ call_or_link(VV[363],(void **)(void *)&Lnk363);} /* LOOP-GET-PROGN */ |
static void LnkT379(){ call_or_link(VV[379],(void **)(void *)&Lnk379);} /* LOOP-DISALLOW-AGGREGATE-BOOLEANS */ |
7733 |
static void LnkT362(){ call_or_link(VV[362],(void **)(void *)&Lnk362);} /* LOOP-DISALLOW-CONDITIONAL */ |
static void LnkT378(){ call_or_link(VV[378],(void **)(void *)&Lnk378);} /* LOOP-OPTIONAL-TYPE */ |
7734 |
static void LnkT361(){ call_or_link(VV[361],(void **)(void *)&Lnk361);} /* LOOP-GET-FORM */ |
static void LnkT375(){ call_or_link(VV[375],(void **)(void *)&Lnk375);} /* LOOP-EMIT-BODY */ |
7735 |
static void LnkT360(){ call_or_link(VV[360],(void **)(void *)&Lnk360);} /* LOOP-CONSTANTP */ |
static void LnkT374(){ call_or_link(VV[374],(void **)(void *)&Lnk374);} /* LOOP-GET-PROGN */ |
7736 |
static void LnkT359(){ call_or_link(VV[359],(void **)(void *)&Lnk359);} /* LOOP-MAKE-VARIABLE */ |
static void LnkT373(){ call_or_link(VV[373],(void **)(void *)&Lnk373);} /* LOOP-DISALLOW-CONDITIONAL */ |
7737 |
static void LnkT358(){ call_or_link(VV[358],(void **)(void *)&Lnk358);} /* LOOP-DECLARE-VARIABLE */ |
static void LnkT372(){ call_or_link(VV[372],(void **)(void *)&Lnk372);} /* LOOP-CONSTANTP */ |
7738 |
static void LnkT357(){ call_or_link(VV[357],(void **)(void *)&Lnk357);} /* LOOP-TEQUAL */ |
static void LnkT371(){ call_or_link(VV[371],(void **)(void *)&Lnk371);} /* LOOP-MAKE-VARIABLE */ |
7739 |
static object LnkTLI356(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[356],(void **)(void *)&LnkLI356,2,first,ap);va_end(ap);return V1;} /* COERCE */ |
static void LnkT370(){ call_or_link(VV[370],(void **)(void *)&Lnk370);} /* LOOP-DECLARE-VARIABLE */ |
7740 |
static void LnkT355(){ call_or_link(VV[355],(void **)(void *)&Lnk355);} /* LOOP-CONSTRUCT-RETURN */ |
static void LnkT369(){ call_or_link(VV[369],(void **)(void *)&Lnk369);} /* LOOP-TEQUAL */ |
7741 |
static void LnkT354(){ call_or_link(VV[354],(void **)(void *)&Lnk354);} /* LOOP-PSEUDO-BODY */ |
static void LnkT368(){ call_or_link(VV[368],(void **)(void *)&Lnk368);} /* COERCE */ |
7742 |
static void LnkT353(){ call_or_link(VV[353],(void **)(void *)&Lnk353);} /* LOOP-TMEMBER */ |
static void LnkT367(){ call_or_link(VV[367],(void **)(void *)&Lnk367);} /* FIND-IF-NOT */ |
7743 |
static void LnkT352(){ call_or_link(VV[352],(void **)(void *)&Lnk352);} /* LOOP-HACK-ITERATION */ |
static void LnkT366(){ call_or_link(VV[366],(void **)(void *)&Lnk366);} /* LOOP-CONSTRUCT-RETURN */ |
7744 |
static void LnkT351(){ call_or_link(VV[351],(void **)(void *)&Lnk351);} /* LOOP-LOOKUP-KEYWORD */ |
static void LnkT365(){ call_or_link(VV[365],(void **)(void *)&Lnk365);} /* LOOP-PSEUDO-BODY */ |
7745 |
static void LnkT350(){ call_or_link(VV[350],(void **)(void *)&Lnk350);} /* LOOP-POP-SOURCE */ |
static void LnkT364(){ call_or_link(VV[364],(void **)(void *)&Lnk364);} /* LOOP-GET-COMPOUND-FORM */ |
7746 |
static void LnkT349(){ call_or_link(VV[349],(void **)(void *)&Lnk349);} /* LOOP-BIND-BLOCK */ |
static void LnkT363(){ call_or_link(VV[363],(void **)(void *)&Lnk363);} /* LOOP-GET-FORM */ |
7747 |
static void LnkT348(){ call_or_link(VV[348],(void **)(void *)&Lnk348);} /* LOOP-ITERATION-DRIVER */ |
static void LnkT362(){ call_or_link(VV[362],(void **)(void *)&Lnk362);} /* LOOP-TMEMBER */ |
7748 |
static void LnkT347(){ call_or_link(VV[347],(void **)(void *)&Lnk347);} /* LOOP-ERROR */ |
static void LnkT361(){ call_or_link(VV[361],(void **)(void *)&Lnk361);} /* LOOP-HACK-ITERATION */ |
7749 |
static void LnkT326(){ call_or_link(VV[326],(void **)(void *)&Lnk326);} /* SUBTYPEP */ |
static void LnkT360(){ call_or_link(VV[360],(void **)(void *)&Lnk360);} /* LOOP-LOOKUP-KEYWORD */ |
7750 |
static object LnkTLI346(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[346],(void **)(void *)&LnkLI346,first,ap);va_end(ap);return V1;} /* WARN */ |
static void LnkT359(){ call_or_link(VV[359],(void **)(void *)&Lnk359);} /* LOOP-POP-SOURCE */ |
7751 |
static void LnkT345(){ call_or_link(VV[345],(void **)(void *)&Lnk345);} /* SPECIFIC-ERROR */ |
static void LnkT358(){ call_or_link(VV[358],(void **)(void *)&Lnk358);} /* LOOP-BIND-BLOCK */ |
7752 |
static void LnkT344(){ call_or_link(VV[344],(void **)(void *)&Lnk344);} /* LOOP-CONTEXT */ |
static void LnkT357(){ call_or_link(VV[357],(void **)(void *)&Lnk357);} /* LOOP-ITERATION-DRIVER */ |
7753 |
static void LnkT343(){ call_or_link(VV[343],(void **)(void *)&Lnk343);} /* SPECIAL-OPERATOR-P */ |
static void LnkT356(){ call_or_link(VV[356],(void **)(void *)&Lnk356);} /* LOOP-BUILD-DESTRUCTURING-BINDINGS */ |
7754 |
static void LnkT342(){ call_or_link(VV[342],(void **)(void *)&Lnk342);} /* ESTIMATE-CODE-SIZE-1 */ |
static void LnkT355(){ call_or_link(VV[355],(void **)(void *)&Lnk355);} /* SUBST-GENSYMS-FOR-NIL */ |
7755 |
static void LnkT341(){ call_or_link(VV[341],(void **)(void *)&Lnk341);} /* DESTRUCTURING-SIZE */ |
static void LnkT354(){ call_or_link(VV[354],(void **)(void *)&Lnk354);} /* LOOP-ERROR */ |
7756 |
|
static void LnkT333(){ call_or_link(VV[333],(void **)(void *)&Lnk333);} /* SUBTYPEP */ |
7757 |
|
static void LnkT353(){ call_or_link(VV[353],(void **)(void *)&Lnk353);} /* WARN */ |
7758 |
|
static void LnkT352(){ call_or_link(VV[352],(void **)(void *)&Lnk352);} /* SPECIFIC-ERROR */ |
7759 |
|
static void LnkT351(){ call_or_link(VV[351],(void **)(void *)&Lnk351);} /* LOOP-CONTEXT */ |
7760 |
|
static void LnkT350(){ call_or_link(VV[350],(void **)(void *)&Lnk350);} /* SPECIAL-OPERATOR-P */ |
7761 |
|
static void LnkT349(){ call_or_link(VV[349],(void **)(void *)&Lnk349);} /* ESTIMATE-CODE-SIZE-1 */ |
7762 |
|
static void LnkT348(){ call_or_link(VV[348],(void **)(void *)&Lnk348);} /* DESTRUCTURING-SIZE */ |
7763 |
static void LnkT77(){ call_or_link(VV[77],(void **)(void *)&Lnk77);} /* ESTIMATE-CODE-SIZE */ |
static void LnkT77(){ call_or_link(VV[77],(void **)(void *)&Lnk77);} /* ESTIMATE-CODE-SIZE */ |
7764 |
static void LnkT340(){ call_or_link(VV[340],(void **)(void *)&Lnk340);} /* LOOP-CODE-DUPLICATION-THRESHOLD */ |
static void LnkT347(){ call_or_link(VV[347],(void **)(void *)&Lnk347);} /* LOOP-CODE-DUPLICATION-THRESHOLD */ |
7765 |
static void LnkT339(){ call_or_link(VV[339],(void **)(void *)&Lnk339);} /* LOOP-OPTIMIZATION-QUANTITIES */ |
static void LnkT346(){ call_or_link(VV[346],(void **)(void *)&Lnk346);} /* LOOP-OPTIMIZATION-QUANTITIES */ |
7766 |
static void LnkT338(){ call_or_link(VV[338],(void **)(void *)&Lnk338);} /* LOOP-WARN */ |
static void LnkT345(){ call_or_link(VV[345],(void **)(void *)&Lnk345);} /* LOOP-WARN */ |
7767 |
static void LnkT337(){ call_or_link(VV[337],(void **)(void *)&Lnk337);} /* LOOP-MAKE-DESETQ */ |
static void LnkT344(){ call_or_link(VV[344],(void **)(void *)&Lnk344);} /* LOOP-MAKE-DESETQ */ |
7768 |
static void LnkT336(){ call_or_link(VV[336],(void **)(void *)&Lnk336);} /* LOOP-MAKE-PSETQ */ |
static void LnkT343(){ call_or_link(VV[343],(void **)(void *)&Lnk343);} /* LOOP-MAKE-PSETQ */ |
7769 |
static void LnkT335(){ call_or_link(VV[335],(void **)(void *)&Lnk335);} /* MAKE-LOOP-UNIVERSE */ |
static void LnkT342(){ call_or_link(VV[342],(void **)(void *)&Lnk342);} /* MAKE-LOOP-UNIVERSE */ |
7770 |
static void LnkT333(){ call_or_link(VV[333],(void **)(void *)&Lnk333);} /* TYPEP */ |
static void LnkT340(){ call_or_link(VV[340],(void **)(void *)&Lnk340);} /* TYPEP */ |
7771 |
static void LnkT331(){ call_or_link(VV[331],(void **)(void *)&Lnk331);} /* HIDE-VARIABLE-REFERENCE */ |
static void LnkT338(){ call_or_link(VV[338],(void **)(void *)&Lnk338);} /* HIDE-VARIABLE-REFERENCE */ |
7772 |
static void LnkT329(){ call_or_link(VV[329],(void **)(void *)&Lnk329);} /* LOOP-TYPED-INIT */ |
static void LnkT336(){ call_or_link(VV[336],(void **)(void *)&Lnk336);} /* LOOP-TYPED-INIT */ |
7773 |
static void LnkT328(){ call_or_link(VV[328],(void **)(void *)&Lnk328);} /* MAKE-LOOP-MINIMAX-INTERNAL */ |
static void LnkT335(){ call_or_link(VV[335],(void **)(void *)&Lnk335);} /* MAKE-LOOP-MINIMAX-INTERNAL */ |
7774 |
static void LnkT327(){ call_or_link(VV[327],(void **)(void *)&Lnk327);} /* LOOP-GENTEMP */ |
static void LnkT334(){ call_or_link(VV[334],(void **)(void *)&Lnk334);} /* LOOP-GENTEMP */ |
7775 |
|
|
7776 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
7777 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |