17 |
base[3]= VV[0]; |
base[3]= VV[0]; |
18 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
19 |
return; |
return; |
20 |
goto T2; |
goto T2; |
21 |
T2:; |
T2:; |
22 |
base[3]= list(3,VV[1],VV[2],list(3,VV[3],list(3,VV[4],list(3,VV[5],VV[6],list(2,VV[7],base[2])),VV[8]),VV[9])); |
base[3]= list(3,VV[1],VV[2],list(3,VV[3],list(3,VV[4],list(3,VV[5],VV[6],list(2,VV[7],base[2])),VV[8]),VV[9])); |
23 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
38 |
base[3]= VV[10]; |
base[3]= VV[10]; |
39 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
40 |
return; |
return; |
41 |
goto T5; |
goto T5; |
42 |
T5:; |
T5:; |
43 |
base[3]= list(3,VV[5],VV[11],list(2,VV[7],base[2])); |
base[3]= list(3,VV[5],VV[11],list(2,VV[7],base[2])); |
44 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
56 |
goto T8;} |
goto T8;} |
57 |
V4= make_cons((V4),Cnil); |
V4= make_cons((V4),Cnil); |
58 |
goto TTL; |
goto TTL; |
59 |
goto T8; |
goto T8; |
60 |
T8:; |
T8:; |
61 |
{register object V5; |
{register object V5; |
62 |
register object V6; |
register object V6; |
76 |
V11= Ct; |
V11= Ct; |
77 |
V12= Cnil; |
V12= Cnil; |
78 |
V13= Cnil; |
V13= Cnil; |
79 |
goto T16; |
goto T16; |
80 |
T16:; |
T16:; |
81 |
if(((V5))!=Cnil){ |
if(((V5))!=Cnil){ |
82 |
goto T17;} |
goto T17;} |
90 |
goto T27;} |
goto T27;} |
91 |
V9= list(3,VV[15],(V13),(V12)); |
V9= list(3,VV[15],(V13),(V12)); |
92 |
goto T25; |
goto T25; |
93 |
goto T27; |
goto T27; |
94 |
T27:; |
T27:; |
95 |
V9= list(4,VV[16],list(3,VV[15],(V13),(V12)),(V9),Cnil); |
V9= list(4,VV[16],list(3,VV[15],(V13),(V12)),(V9),Cnil); |
96 |
goto T25; |
goto T25; |
97 |
T25:; |
T25:; |
98 |
V14= make_cons((V13),small_fixnum(0)); |
V14= make_cons((V13),small_fixnum(0)); |
99 |
V6= make_cons(/* INLINE-ARGS */V14,(V6)); |
V6= make_cons(/* INLINE-ARGS */V14,(V6)); |
100 |
V10= list(3,VV[17],list(3,VV[18],(V13),list(2,VV[19],(V13))),(V10)); |
V10= list(3,VV[17],list(3,VV[18],(V13),list(2,VV[19],(V13))),(V10)); |
101 |
V11= list(3,VV[17],list(3,VV[18],(V13),list(2,VV[20],(V13))),(V11)); |
V11= list(3,VV[17],list(3,VV[18],(V13),list(2,VV[20],(V13))),(V11)); |
102 |
goto T20; |
goto T20; |
103 |
T20:; |
T20:; |
104 |
V15= car((V4)); |
V15= car((V4)); |
105 |
V16= list(2,VV[7],(V9)); |
V16= list(2,VV[7],(V9)); |
108 |
V19= list(2,VV[7],(V11)); |
V19= list(2,VV[7],(V11)); |
109 |
{object V20 = list(7,/* INLINE-ARGS */V15,(V6),/* INLINE-ARGS */V16,/* INLINE-ARGS */V17,/* INLINE-ARGS */V18,/* INLINE-ARGS */V19,list(2,VV[7],(V8))); |
{object V20 = list(7,/* INLINE-ARGS */V15,(V6),/* INLINE-ARGS */V16,/* INLINE-ARGS */V17,/* INLINE-ARGS */V18,/* INLINE-ARGS */V19,list(2,VV[7],(V8))); |
110 |
VMR3(V20)} |
VMR3(V20)} |
111 |
goto T17; |
goto T17; |
112 |
T17:; |
T17:; |
113 |
{object V21= car((V5)); |
{object V21= car((V5)); |
114 |
if((V21!= VV[29]))goto T38; |
if((V21!= VV[29]))goto T38; |
116 |
register object V23; |
register object V23; |
117 |
V22= cadr((V5)); |
V22= cadr((V5)); |
118 |
V23= Cnil; |
V23= Cnil; |
119 |
goto T42; |
goto T42; |
120 |
T42:; |
T42:; |
121 |
if(((V22))!=Cnil){ |
if(((V22))!=Cnil){ |
122 |
goto T43;} |
goto T43;} |
123 |
V6= (V23); |
V6= (V23); |
124 |
goto T39; |
goto T39; |
125 |
goto T43; |
goto T43; |
126 |
T43:; |
T43:; |
127 |
if(!(type_of(car((V22)))==t_symbol)){ |
if(!(type_of(car((V22)))==t_symbol)){ |
128 |
goto T51;} |
goto T51;} |
129 |
V24= make_cons(car((V22)),Cnil); |
V24= make_cons(car((V22)),Cnil); |
130 |
goto T49; |
goto T49; |
131 |
goto T51; |
goto T51; |
132 |
T51:; |
T51:; |
133 |
V25= caar((V22)); |
V25= caar((V22)); |
134 |
base[0]= cadar((V22)); |
base[0]= cadar((V22)); |
137 |
vs_top=sup; |
vs_top=sup; |
138 |
V26= vs_base[0]; |
V26= vs_base[0]; |
139 |
V24= make_cons(/* INLINE-ARGS */V25,V26); |
V24= make_cons(/* INLINE-ARGS */V25,V26); |
140 |
goto T49; |
goto T49; |
141 |
T49:; |
T49:; |
142 |
V23= make_cons(V24,(V23)); |
V23= make_cons(V24,(V23)); |
143 |
V22= cdr((V22)); |
V22= cdr((V22)); |
144 |
goto T42;} |
goto T42;} |
145 |
goto T39; |
goto T39; |
146 |
T39:; |
T39:; |
147 |
goto T37; |
goto T37; |
148 |
goto T38; |
goto T38; |
149 |
T38:; |
T38:; |
150 |
if((V21!= VV[98]))goto T58; |
if((V21!= VV[98]))goto T58; |
151 |
V9= cadr((V5)); |
V9= cadr((V5)); |
152 |
goto T37; |
goto T37; |
153 |
goto T58; |
goto T58; |
154 |
T58:; |
T58:; |
155 |
if((V21!= VV[99]))goto T60; |
if((V21!= VV[99]))goto T60; |
156 |
V10= cadr((V5)); |
V10= cadr((V5)); |
157 |
goto T37; |
goto T37; |
158 |
goto T60; |
goto T60; |
159 |
T60:; |
T60:; |
160 |
if((V21!= VV[100]))goto T62; |
if((V21!= VV[100]))goto T62; |
161 |
V7= cadr((V5)); |
V7= cadr((V5)); |
162 |
goto T37; |
goto T37; |
163 |
goto T62; |
goto T62; |
164 |
T62:; |
T62:; |
165 |
if((V21!= VV[101]))goto T64; |
if((V21!= VV[101]))goto T64; |
166 |
V11= cadr((V5)); |
V11= cadr((V5)); |
167 |
goto T37; |
goto T37; |
168 |
goto T64; |
goto T64; |
169 |
T64:; |
T64:; |
170 |
if((V21!= VV[102]))goto T66; |
if((V21!= VV[102]))goto T66; |
171 |
V8= cadr((V5)); |
V8= cadr((V5)); |
172 |
goto T37; |
goto T37; |
173 |
goto T66; |
goto T66; |
174 |
T66:; |
T66:; |
175 |
if((V21!= VV[28]))goto T68; |
if((V21!= VV[28]))goto T68; |
176 |
V12= cadr((V5)); |
V12= cadr((V5)); |
177 |
goto T37; |
goto T37; |
178 |
goto T68; |
goto T68; |
179 |
T68:;} |
T68:;} |
180 |
goto T37; |
goto T37; |
181 |
T37:; |
T37:; |
182 |
V5= cddr((V5)); |
V5= cddr((V5)); |
183 |
goto T16;} |
goto T16;} |
196 |
goto T73;} |
goto T73;} |
197 |
{object V29 = Ct; |
{object V29 = Ct; |
198 |
VMR4(V29)} |
VMR4(V29)} |
199 |
goto T73; |
goto T73; |
200 |
T73:; |
T73:; |
201 |
if(!(type_of((V28))==t_cons)){ |
if(!(type_of((V28))==t_cons)){ |
202 |
goto T76;} |
goto T76;} |
209 |
goto T76;} |
goto T76;} |
210 |
{object V31 = (*(LnkLI103))((V28),cdr((V28)),Cnil); |
{object V31 = (*(LnkLI103))((V28),cdr((V28)),Cnil); |
211 |
VMR4(V31)} |
VMR4(V31)} |
212 |
goto T76; |
goto T76; |
213 |
T76:; |
T76:; |
214 |
base[0]= VV[21]; |
base[0]= VV[21]; |
215 |
base[1]= (V28); |
base[1]= (V28); |
237 |
goto T91;} |
goto T91;} |
238 |
V35= car((V34)); |
V35= car((V34)); |
239 |
goto T89; |
goto T89; |
240 |
goto T91; |
goto T91; |
241 |
T91:; |
T91:; |
242 |
V35= list(2,car((V34)),Cnil); |
V35= list(2,car((V34)),Cnil); |
243 |
goto T89; |
goto T89; |
244 |
T89:; |
T89:; |
245 |
if(type_of(car((V35)))==t_symbol){ |
if(type_of(car((V35)))==t_symbol){ |
246 |
goto T93;} |
goto T93;} |
249 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
250 |
Lerror(); |
Lerror(); |
251 |
vs_top=sup; |
vs_top=sup; |
252 |
goto T93; |
goto T93; |
253 |
T93:; |
T93:; |
254 |
if((cddr((V35)))==Cnil){ |
if((cddr((V35)))==Cnil){ |
255 |
goto T98;} |
goto T98;} |
258 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
259 |
Lerror(); |
Lerror(); |
260 |
vs_top=sup; |
vs_top=sup; |
261 |
goto T98; |
goto T98; |
262 |
T98:; |
T98:; |
263 |
V37= car((V35)); |
V37= car((V35)); |
264 |
V38= (*(LnkLI104))(); |
V38= (*(LnkLI104))(); |
268 |
goto T105; |
goto T105; |
269 |
}else V36=V36->c.c_cdr; |
}else V36=V36->c.c_cdr; |
270 |
goto T104;} |
goto T104;} |
271 |
goto T105; |
goto T105; |
272 |
T105:; |
T105:; |
273 |
base[0]= VV[24]; |
base[0]= VV[24]; |
274 |
base[1]= car((V35)); |
base[1]= car((V35)); |
277 |
vs_top=sup; |
vs_top=sup; |
278 |
{object V39 = vs_base[0]; |
{object V39 = vs_base[0]; |
279 |
VMR5(V39)} |
VMR5(V39)} |
280 |
goto T104; |
goto T104; |
281 |
T104:; |
T104:; |
282 |
{object V40 = Cnil; |
{object V40 = Cnil; |
283 |
VMR5(V40)} |
VMR5(V40)} |
284 |
goto T86; |
goto T86; |
285 |
T86:; |
T86:; |
286 |
{object V41 = Cnil; |
{object V41 = Cnil; |
287 |
VMR5(V41)}} |
VMR5(V41)}} |
307 |
vs_top=sup; |
vs_top=sup; |
308 |
{object V48 = vs_base[0]; |
{object V48 = vs_base[0]; |
309 |
VMR6(V48)} |
VMR6(V48)} |
310 |
goto T112; |
goto T112; |
311 |
T112:; |
T112:; |
312 |
{register object x= car((V46)),V49= (V47); |
{register object x= car((V46)),V49= (V47); |
313 |
while(!endp(V49)) |
while(!endp(V49)) |
315 |
goto T118; |
goto T118; |
316 |
}else V49=V49->c.c_cdr; |
}else V49=V49->c.c_cdr; |
317 |
goto T117;} |
goto T117;} |
318 |
goto T118; |
goto T118; |
319 |
T118:; |
T118:; |
320 |
base[0]= VV[26]; |
base[0]= VV[26]; |
321 |
base[1]= car((V46)); |
base[1]= car((V46)); |
325 |
vs_top=sup; |
vs_top=sup; |
326 |
{object V50 = vs_base[0]; |
{object V50 = vs_base[0]; |
327 |
VMR6(V50)} |
VMR6(V50)} |
328 |
goto T117; |
goto T117; |
329 |
T117:; |
T117:; |
330 |
{object V51= car((V46)); |
{object V51= car((V46)); |
331 |
if((V51!= VV[100]) |
if((V51!= VV[100]) |
338 |
V47= make_cons(car((V46)),(V47)); |
V47= make_cons(car((V46)),(V47)); |
339 |
V46= (V52);} |
V46= (V52);} |
340 |
goto TTL; |
goto TTL; |
341 |
goto T122; |
goto T122; |
342 |
T122:; |
T122:; |
343 |
if((V51!= VV[28]))goto T127; |
if((V51!= VV[28]))goto T127; |
344 |
{object V53= cadr((V46)); |
{object V53= cadr((V46)); |
346 |
goto T129;}} |
goto T129;}} |
347 |
if(number_compare(cadr((V46)),small_fixnum(0))>0){ |
if(number_compare(cadr((V46)),small_fixnum(0))>0){ |
348 |
goto T128;} |
goto T128;} |
349 |
goto T129; |
goto T129; |
350 |
T129:; |
T129:; |
351 |
base[0]= VV[27]; |
base[0]= VV[27]; |
352 |
base[1]= cadr((V46)); |
base[1]= cadr((V46)); |
353 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
354 |
Lerror(); |
Lerror(); |
355 |
vs_top=sup; |
vs_top=sup; |
356 |
goto T128; |
goto T128; |
357 |
T128:; |
T128:; |
358 |
V46= cddr((V46)); |
V46= cddr((V46)); |
359 |
V47= make_cons(VV[28],(V47)); |
V47= make_cons(VV[28],(V47)); |
360 |
goto TTL; |
goto TTL; |
361 |
goto T127; |
goto T127; |
362 |
T127:; |
T127:; |
363 |
if((V51!= VV[29]))goto T139; |
if((V51!= VV[29]))goto T139; |
364 |
(void)((*(LnkLI105))(cadr((V46)))); |
(void)((*(LnkLI105))(cadr((V46)))); |
365 |
V46= cddr((V46)); |
V46= cddr((V46)); |
366 |
V47= make_cons(VV[29],(V47)); |
V47= make_cons(VV[29],(V47)); |
367 |
goto TTL; |
goto TTL; |
368 |
goto T139; |
goto T139; |
369 |
T139:; |
T139:; |
370 |
base[0]= VV[30]; |
base[0]= VV[30]; |
371 |
base[1]= (V45); |
base[1]= (V45); |
375 |
vs_top=sup; |
vs_top=sup; |
376 |
{object V54 = vs_base[0]; |
{object V54 = vs_base[0]; |
377 |
VMR6(V54)}} |
VMR6(V54)}} |
378 |
goto T109; |
goto T109; |
379 |
T109:; |
T109:; |
380 |
{object V55 = Cnil; |
{object V55 = Cnil; |
381 |
VMR6(V55)} |
VMR6(V55)} |
397 |
goto T151;} |
goto T151;} |
398 |
V59= car((V57)); |
V59= car((V57)); |
399 |
goto T149; |
goto T149; |
400 |
goto T151; |
goto T151; |
401 |
T151:; |
T151:; |
402 |
V59= (V57); |
V59= (V57); |
403 |
goto T149; |
goto T149; |
404 |
T149:; |
T149:; |
405 |
base[1]= (V59); |
base[1]= (V59); |
406 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
416 |
vs_top=sup; |
vs_top=sup; |
417 |
{object V60 = Cnil; |
{object V60 = Cnil; |
418 |
VMR7(V60)} |
VMR7(V60)} |
419 |
goto T153; |
goto T153; |
420 |
T153:; |
T153:; |
421 |
base[1]= (V59); |
base[1]= (V59); |
422 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
432 |
vs_top=sup; |
vs_top=sup; |
433 |
{object V61 = Cnil; |
{object V61 = Cnil; |
434 |
VMR7(V61)} |
VMR7(V61)} |
435 |
goto T161; |
goto T161; |
436 |
T161:; |
T161:; |
437 |
base[1]= (V59); |
base[1]= (V59); |
438 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
448 |
vs_top=sup; |
vs_top=sup; |
449 |
{object V62 = Cnil; |
{object V62 = Cnil; |
450 |
VMR7(V62)} |
VMR7(V62)} |
451 |
goto T169; |
goto T169; |
452 |
T169:; |
T169:; |
453 |
if((get((V59),VV[35],Cnil))==Cnil){ |
if((get((V59),VV[35],Cnil))==Cnil){ |
454 |
goto T177;} |
goto T177;} |
455 |
(void)((*(LnkLI106))((V59))); |
(void)((*(LnkLI106))((V59))); |
456 |
goto T177; |
goto T177; |
457 |
T177:; |
T177:; |
458 |
(void)((*(LnkLI107))((V57))); |
(void)((*(LnkLI107))((V57))); |
459 |
V57= (*(LnkLI108))((V57)); |
V57= (*(LnkLI108))((V57)); |
499 |
vs_top=sup; |
vs_top=sup; |
500 |
V66= cdr((V66)); |
V66= cdr((V66)); |
501 |
goto TTL; |
goto TTL; |
502 |
goto T194; |
goto T194; |
503 |
T194:; |
T194:; |
504 |
{object V67 = Cnil; |
{object V67 = Cnil; |
505 |
VMR8(V67)} |
VMR8(V67)} |
519 |
register object V70; |
register object V70; |
520 |
V69= symbol_value(VV[40]); |
V69= symbol_value(VV[40]); |
521 |
V70= car((V69)); |
V70= car((V69)); |
522 |
goto T206; |
goto T206; |
523 |
T206:; |
T206:; |
524 |
if(!(endp_prop((V69)))){ |
if(!(endp_prop((V69)))){ |
525 |
goto T207;} |
goto T207;} |
526 |
goto T202; |
goto T202; |
527 |
goto T207; |
goto T207; |
528 |
T207:; |
T207:; |
529 |
V68= append((V68),cdr((V70))); |
V68= append((V68),cdr((V70))); |
530 |
V69= cdr((V69)); |
V69= cdr((V69)); |
531 |
V70= car((V69)); |
V70= car((V69)); |
532 |
goto T206;} |
goto T206;} |
533 |
goto T202; |
goto T202; |
534 |
T202:; |
T202:; |
535 |
{object V71 = (V68); |
{object V71 = (V68); |
536 |
VMR9(V71)}} |
VMR9(V71)}} |
571 |
goto T220;} |
goto T220;} |
572 |
V81= (*(LnkLI104))(); |
V81= (*(LnkLI104))(); |
573 |
(void)((*(LnkLI109))(/* INLINE-ARGS */V81)); |
(void)((*(LnkLI109))(/* INLINE-ARGS */V81)); |
574 |
goto T220; |
goto T220; |
575 |
T220:; |
T220:; |
576 |
V82= list(2,VV[13],list(2,VV[7],(V73))); |
V82= list(2,VV[13],list(2,VV[7],(V73))); |
577 |
base[8]= list(3,VV[1],make_cons(/* INLINE-ARGS */V82,Cnil),(V74)); |
base[8]= list(3,VV[1],make_cons(/* INLINE-ARGS */V82,Cnil),(V74)); |
596 |
vs_top=sup; |
vs_top=sup; |
597 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
598 |
goto T233;} |
goto T233;} |
599 |
goto T234; |
goto T234; |
600 |
T234:; |
T234:; |
601 |
base[8]= symbol_value(VV[31]); |
base[8]= symbol_value(VV[31]); |
602 |
base[9]= VV[42]; |
base[9]= VV[42]; |
620 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
621 |
Lfresh_line(); |
Lfresh_line(); |
622 |
vs_top=sup; |
vs_top=sup; |
623 |
goto T233; |
goto T233; |
624 |
T233:; |
T233:; |
625 |
base[8]= (V72); |
base[8]= (V72); |
626 |
{object V86; |
{object V86; |
642 |
vs_top=sup; |
vs_top=sup; |
643 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
644 |
goto T255;} |
goto T255;} |
645 |
goto T256; |
goto T256; |
646 |
T256:; |
T256:; |
647 |
base[8]= symbol_value(VV[31]); |
base[8]= symbol_value(VV[31]); |
648 |
base[9]= VV[44]; |
base[9]= VV[44]; |
662 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
663 |
Lformat(); |
Lformat(); |
664 |
vs_top=sup; |
vs_top=sup; |
665 |
goto T255; |
goto T255; |
666 |
T255:; |
T255:; |
667 |
(VV[41]->s.s_dbind)= one_minus((VV[41]->s.s_dbind)); |
(VV[41]->s.s_dbind)= one_minus((VV[41]->s.s_dbind)); |
668 |
base[8]= (V79); |
base[8]= (V79); |
670 |
Lvalues_list(); |
Lvalues_list(); |
671 |
bds_unwind1; |
bds_unwind1; |
672 |
return; |
return; |
673 |
goto T224; |
goto T224; |
674 |
T224:; |
T224:; |
675 |
base[8]= (V72); |
base[8]= (V72); |
676 |
{object V89; |
{object V89; |
712 |
Lformat(); |
Lformat(); |
713 |
vs_top=sup; |
vs_top=sup; |
714 |
goto T281; |
goto T281; |
715 |
goto T283; |
goto T283; |
716 |
T283:; |
T283:; |
717 |
base[1]= (base[0]->c.c_car); |
base[1]= (base[0]->c.c_car); |
718 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
745 |
siLfset(); |
siLfset(); |
746 |
vs_top=sup; |
vs_top=sup; |
747 |
goto T281; |
goto T281; |
748 |
goto T290; |
goto T290; |
749 |
T290:; |
T290:; |
750 |
base[1]= symbol_value(VV[31]); |
base[1]= symbol_value(VV[31]); |
751 |
base[2]= VV[47]; |
base[2]= VV[47]; |
753 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
754 |
Lformat(); |
Lformat(); |
755 |
vs_top=sup; |
vs_top=sup; |
756 |
goto T281; |
goto T281; |
757 |
T281:; |
T281:; |
758 |
V96= |
V96= |
759 |
make_cclosure_new(LC17,Cnil,base[0],Cdata); |
make_cclosure_new(LC17,Cnil,base[0],Cdata); |
760 |
setq(VV[40],(VFUN_NARGS=4,(*(LnkLI110))(V96,symbol_value(VV[40]),VV[48],small_fixnum(1)))); |
setq(VV[40],(VFUN_NARGS=4,(*(LnkLI110))(V96,symbol_value(VV[40]),VV[48],small_fixnum(1)))); |
761 |
{object V97 = make_cons((base[0]->c.c_car),Cnil); |
{object V97 = make_cons((base[0]->c.c_car),Cnil); |
762 |
VMR11(V97)} |
VMR11(V97)} |
763 |
goto T277; |
goto T277; |
764 |
T277:; |
T277:; |
765 |
base[1]= symbol_value(VV[31]); |
base[1]= symbol_value(VV[31]); |
766 |
base[2]= VV[49]; |
base[2]= VV[49]; |
786 |
Lread_char(); |
Lread_char(); |
787 |
vs_top=sup; |
vs_top=sup; |
788 |
V99= vs_base[0]; |
V99= vs_base[0]; |
789 |
goto T318; |
goto T318; |
790 |
T318:; |
T318:; |
791 |
base[0]= (V99); |
base[0]= (V99); |
792 |
base[1]= VV[51]; |
base[1]= VV[51]; |
802 |
vs_top=sup; |
vs_top=sup; |
803 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
804 |
goto T319;} |
goto T319;} |
805 |
goto T320; |
goto T320; |
806 |
T320:; |
T320:; |
807 |
{object V100 = Cnil; |
{object V100 = Cnil; |
808 |
VMR12(V100)} |
VMR12(V100)} |
809 |
goto T319; |
goto T319; |
810 |
T319:; |
T319:; |
811 |
base[0]= symbol_value(VV[50]); |
base[0]= symbol_value(VV[50]); |
812 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
888 |
V109=(base[1]); |
V109=(base[1]); |
889 |
vs_top=sup; |
vs_top=sup; |
890 |
goto T337; |
goto T337; |
891 |
goto T336; |
goto T336; |
892 |
T336:; |
T336:; |
893 |
V109= Cnil; |
V109= Cnil; |
894 |
goto T337; |
goto T337; |
895 |
T337:; |
T337:; |
896 |
{VOL object V110; |
{VOL object V110; |
897 |
VOL object V111; |
VOL object V111; |
908 |
Levalhook(); |
Levalhook(); |
909 |
bds_unwind1; |
bds_unwind1; |
910 |
return; |
return; |
911 |
goto T341; |
goto T341; |
912 |
T341:; |
T341:; |
913 |
if(!(type_of(symbol_value(VV[62]))==t_fixnum|| |
if(!(type_of(symbol_value(VV[62]))==t_fixnum|| |
914 |
type_of(symbol_value(VV[62]))==t_bignum|| |
type_of(symbol_value(VV[62]))==t_bignum|| |
928 |
Levalhook(); |
Levalhook(); |
929 |
bds_unwind1; |
bds_unwind1; |
930 |
return; |
return; |
931 |
goto T352; |
goto T352; |
932 |
T352:; |
T352:; |
933 |
setq(VV[62],Cnil); |
setq(VV[62],Cnil); |
934 |
goto T348; |
goto T348; |
935 |
T348:; |
T348:; |
936 |
if((symbol_value(VV[63]))==Cnil){ |
if((symbol_value(VV[63]))==Cnil){ |
937 |
goto T359;} |
goto T359;} |
947 |
bds_unwind1; |
bds_unwind1; |
948 |
bds_unwind1; |
bds_unwind1; |
949 |
return; |
return; |
950 |
goto T363; |
goto T363; |
951 |
T363:; |
T363:; |
952 |
base[3]= (V108); |
base[3]= (V108); |
953 |
base[4]= symbol_function(VV[60]); |
base[4]= symbol_function(VV[60]); |
957 |
Levalhook(); |
Levalhook(); |
958 |
bds_unwind1; |
bds_unwind1; |
959 |
return; |
return; |
960 |
goto T359; |
goto T359; |
961 |
T359:; |
T359:; |
962 |
(VV[61]->s.s_dbind)= one_plus((VV[61]->s.s_dbind)); |
(VV[61]->s.s_dbind)= one_plus((VV[61]->s.s_dbind)); |
963 |
V113= number_times((VV[61]->s.s_dbind),small_fixnum(2)); |
V113= number_times((VV[61]->s.s_dbind),small_fixnum(2)); |
964 |
V111= (number_compare(/* INLINE-ARGS */V113,small_fixnum(20))<=0?(/* INLINE-ARGS */V113):small_fixnum(20)); |
V111= (number_compare(/* INLINE-ARGS */V113,small_fixnum(20))<=0?(/* INLINE-ARGS */V113):small_fixnum(20)); |
965 |
goto T379; |
goto T379; |
966 |
T379:; |
T379:; |
967 |
base[3]= symbol_value(VV[50]); |
base[3]= symbol_value(VV[50]); |
968 |
base[4]= VV[64]; |
base[4]= VV[64]; |
981 |
Lread_char(); |
Lread_char(); |
982 |
vs_top=sup; |
vs_top=sup; |
983 |
V116= vs_base[0]; |
V116= vs_base[0]; |
984 |
goto T392; |
goto T392; |
985 |
T392:; |
T392:; |
986 |
base[3]= (V116); |
base[3]= (V116); |
987 |
base[4]= VV[65]; |
base[4]= VV[65]; |
999 |
goto T393;} |
goto T393;} |
1000 |
V115= (V116); |
V115= (V116); |
1001 |
goto T388; |
goto T388; |
1002 |
goto T393; |
goto T393; |
1003 |
T393:; |
T393:; |
1004 |
base[3]= symbol_value(VV[50]); |
base[3]= symbol_value(VV[50]); |
1005 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1007 |
vs_top=sup; |
vs_top=sup; |
1008 |
V116= vs_base[0]; |
V116= vs_base[0]; |
1009 |
goto T392;} |
goto T392;} |
1010 |
goto T388; |
goto T388; |
1011 |
T388:; |
T388:; |
1012 |
{object V114= V115; |
{object V114= V115; |
1013 |
if(!eql(V114,VV[51]) |
if(!eql(V114,VV[51]) |
1022 |
vs_top=sup; |
vs_top=sup; |
1023 |
V110= vs_base[0]; |
V110= vs_base[0]; |
1024 |
goto T377; |
goto T377; |
1025 |
goto T407; |
goto T407; |
1026 |
T407:; |
T407:; |
1027 |
if(!eql(V114,VV[67]) |
if(!eql(V114,VV[67]) |
1028 |
&& !eql(V114,VV[68]))goto T415; |
&& !eql(V114,VV[68]))goto T415; |
1037 |
vs_top=sup; |
vs_top=sup; |
1038 |
V110= vs_base[0]; |
V110= vs_base[0]; |
1039 |
goto T377; |
goto T377; |
1040 |
goto T415; |
goto T415; |
1041 |
T415:; |
T415:; |
1042 |
if(!eql(V114,VV[69]) |
if(!eql(V114,VV[69]) |
1043 |
&& !eql(V114,VV[70]))goto T424; |
&& !eql(V114,VV[70]))goto T424; |
1052 |
vs_top=sup; |
vs_top=sup; |
1053 |
V110= vs_base[0]; |
V110= vs_base[0]; |
1054 |
goto T377; |
goto T377; |
1055 |
goto T424; |
goto T424; |
1056 |
T424:; |
T424:; |
1057 |
if(!eql(V114,VV[71]) |
if(!eql(V114,VV[71]) |
1058 |
&& !eql(V114,VV[72]))goto T433; |
&& !eql(V114,VV[72]))goto T433; |
1071 |
vs_top=sup; |
vs_top=sup; |
1072 |
princ_char(10,Cnil); |
princ_char(10,Cnil); |
1073 |
goto T380; |
goto T380; |
1074 |
goto T433; |
goto T433; |
1075 |
T433:; |
T433:; |
1076 |
if(!eql(V114,VV[77]) |
if(!eql(V114,VV[77]) |
1077 |
&& !eql(V114,VV[78]))goto T445; |
&& !eql(V114,VV[78]))goto T445; |
1102 |
goto T456;} |
goto T456;} |
1103 |
base[3]= base[4]; |
base[3]= base[4]; |
1104 |
goto T446; |
goto T446; |
1105 |
goto T456; |
goto T456; |
1106 |
T456:; |
T456:; |
1107 |
base[3]= Cnil; |
base[3]= Cnil; |
1108 |
goto T446; |
goto T446; |
1111 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
1112 |
vs_top=sup; |
vs_top=sup; |
1113 |
base[3]= vs_base[0];}} |
base[3]= vs_base[0];}} |
1114 |
goto T446; |
goto T446; |
1115 |
T446:; |
T446:; |
1116 |
bds_bind(VV[63],base[3]); |
bds_bind(VV[63],base[3]); |
1117 |
base[4]= (V108); |
base[4]= (V108); |
1125 |
V110= vs_base[0]; |
V110= vs_base[0]; |
1126 |
bds_unwind1; |
bds_unwind1; |
1127 |
goto T377; |
goto T377; |
1128 |
goto T445; |
goto T445; |
1129 |
T445:; |
T445:; |
1130 |
if(!eql(V114,VV[79]) |
if(!eql(V114,VV[79]) |
1131 |
&& !eql(V114,VV[80]))goto T465; |
&& !eql(V114,VV[80]))goto T465; |
1141 |
vs_top=sup; |
vs_top=sup; |
1142 |
V110= vs_base[0]; |
V110= vs_base[0]; |
1143 |
goto T377; |
goto T377; |
1144 |
goto T465; |
goto T465; |
1145 |
T465:; |
T465:; |
1146 |
if(!eql(V114,VV[81]) |
if(!eql(V114,VV[81]) |
1147 |
&& !eql(V114,VV[82]))goto T476; |
&& !eql(V114,VV[82]))goto T476; |
1157 |
vs_top=sup; |
vs_top=sup; |
1158 |
V110= vs_base[0]; |
V110= vs_base[0]; |
1159 |
goto T377; |
goto T377; |
1160 |
goto T476; |
goto T476; |
1161 |
T476:; |
T476:; |
1162 |
if(!eql(V114,VV[83]) |
if(!eql(V114,VV[83]) |
1163 |
&& !eql(V114,VV[84]))goto T487; |
&& !eql(V114,VV[84]))goto T487; |
1197 |
goto T503;} |
goto T503;} |
1198 |
base[9]= base[10]; |
base[9]= base[10]; |
1199 |
goto T493; |
goto T493; |
1200 |
goto T503; |
goto T503; |
1201 |
T503:; |
T503:; |
1202 |
base[9]= Cnil; |
base[9]= Cnil; |
1203 |
goto T493; |
goto T493; |
1206 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
1207 |
vs_top=sup; |
vs_top=sup; |
1208 |
base[9]= vs_base[0];}} |
base[9]= vs_base[0];}} |
1209 |
goto T493; |
goto T493; |
1210 |
T493:; |
T493:; |
1211 |
base[10]= Cnil; |
base[10]= Cnil; |
1212 |
base[11]= Cnil; |
base[11]= Cnil; |
1229 |
goto T511;} |
goto T511;} |
1230 |
V118= base[6]; |
V118= base[6]; |
1231 |
goto T488; |
goto T488; |
1232 |
goto T511; |
goto T511; |
1233 |
T511:; |
T511:; |
1234 |
V118= Cnil; |
V118= Cnil; |
1235 |
goto T488; |
goto T488; |
1238 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
1239 |
vs_top=sup; |
vs_top=sup; |
1240 |
V118= vs_base[0];}} |
V118= vs_base[0];}} |
1241 |
goto T488; |
goto T488; |
1242 |
T488:; |
T488:; |
1243 |
V119= car((V118)); |
V119= car((V118)); |
1244 |
goto T515; |
goto T515; |
1245 |
T515:; |
T515:; |
1246 |
if(!(endp_prop((V118)))){ |
if(!(endp_prop((V118)))){ |
1247 |
goto T516;} |
goto T516;} |
1248 |
goto T380; |
goto T380; |
1249 |
goto T516; |
goto T516; |
1250 |
T516:; |
T516:; |
1251 |
base[6]= (V119); |
base[6]= (V119); |
1252 |
base[7]= VV[73]; |
base[7]= VV[73]; |
1262 |
V118= cdr((V118)); |
V118= cdr((V118)); |
1263 |
V119= car((V118)); |
V119= car((V118)); |
1264 |
goto T515;} |
goto T515;} |
1265 |
goto T487; |
goto T487; |
1266 |
T487:; |
T487:; |
1267 |
if(!eql(V114,VV[87]) |
if(!eql(V114,VV[87]) |
1268 |
&& !eql(V114,VV[88]))goto T534; |
&& !eql(V114,VV[88]))goto T534; |
1300 |
goto T551;} |
goto T551;} |
1301 |
base[7]= base[8]; |
base[7]= base[8]; |
1302 |
goto T541; |
goto T541; |
1303 |
goto T551; |
goto T551; |
1304 |
T551:; |
T551:; |
1305 |
base[7]= Cnil; |
base[7]= Cnil; |
1306 |
goto T541; |
goto T541; |
1309 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
1310 |
vs_top=sup; |
vs_top=sup; |
1311 |
base[7]= vs_base[0];}} |
base[7]= vs_base[0];}} |
1312 |
goto T541; |
goto T541; |
1313 |
T541:; |
T541:; |
1314 |
base[8]= Cnil; |
base[8]= Cnil; |
1315 |
base[9]= Cnil; |
base[9]= Cnil; |
1332 |
goto T559;} |
goto T559;} |
1333 |
V110= base[4]; |
V110= base[4]; |
1334 |
goto T536; |
goto T536; |
1335 |
goto T559; |
goto T559; |
1336 |
T559:; |
T559:; |
1337 |
V110= Cnil; |
V110= Cnil; |
1338 |
goto T536; |
goto T536; |
1341 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
1342 |
vs_top=sup; |
vs_top=sup; |
1343 |
V110= vs_base[0];}} |
V110= vs_base[0];}} |
1344 |
goto T536; |
goto T536; |
1345 |
T536:; |
T536:; |
1346 |
goto T377; |
goto T377; |
1347 |
goto T534; |
goto T534; |
1348 |
T534:; |
T534:; |
1349 |
if(!eql(V114,VV[89]) |
if(!eql(V114,VV[89]) |
1350 |
&& !eql(V114,VV[90]))goto T561; |
&& !eql(V114,VV[90]))goto T561; |
1366 |
bds_unwind1; |
bds_unwind1; |
1367 |
bds_unwind1; |
bds_unwind1; |
1368 |
goto T380; |
goto T380; |
1369 |
goto T561; |
goto T561; |
1370 |
T561:; |
T561:; |
1371 |
(void)((*(LnkLI111))()); |
(void)((*(LnkLI111))()); |
1372 |
princ_char(10,Cnil); |
princ_char(10,Cnil); |
1376 |
Lformat(); |
Lformat(); |
1377 |
vs_top=sup; |
vs_top=sup; |
1378 |
princ_char(10,Cnil);} |
princ_char(10,Cnil);} |
1379 |
goto T380; |
goto T380; |
1380 |
T380:; |
T380:; |
1381 |
goto T379; |
goto T379; |
1382 |
goto T377; |
goto T377; |
1383 |
T377:; |
T377:; |
1384 |
base[3]= (V108); |
base[3]= (V108); |
1385 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1391 |
goto T573;} |
goto T573;} |
1392 |
if(!((car((V108)))==(VV[7]))){ |
if(!((car((V108)))==(VV[7]))){ |
1393 |
goto T573;} |
goto T573;} |
1394 |
goto T574; |
goto T574; |
1395 |
T574:; |
T574:; |
1396 |
base[3]= car((V110)); |
base[3]= car((V110)); |
1397 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1398 |
bds_unwind1; |
bds_unwind1; |
1399 |
return; |
return; |
1400 |
goto T573; |
goto T573; |
1401 |
T573:; |
T573:; |
1402 |
if(!(endp_prop((V110)))){ |
if(!(endp_prop((V110)))){ |
1403 |
goto T583;} |
goto T583;} |
1408 |
Lformat(); |
Lformat(); |
1409 |
vs_top=sup; |
vs_top=sup; |
1410 |
goto T581; |
goto T581; |
1411 |
goto T583; |
goto T583; |
1412 |
T583:; |
T583:; |
1413 |
{object V123; |
{object V123; |
1414 |
object V124; |
object V124; |
1415 |
V123= (V110); |
V123= (V110); |
1416 |
V124= Ct; |
V124= Ct; |
1417 |
goto T589; |
goto T589; |
1418 |
T589:; |
T589:; |
1419 |
if(!(endp_prop((V123)))){ |
if(!(endp_prop((V123)))){ |
1420 |
goto T590;} |
goto T590;} |
1421 |
goto T581; |
goto T581; |
1422 |
goto T590; |
goto T590; |
1423 |
T590:; |
T590:; |
1424 |
if(((V124))==Cnil){ |
if(((V124))==Cnil){ |
1425 |
goto T596;} |
goto T596;} |
1431 |
Lformat(); |
Lformat(); |
1432 |
vs_top=sup; |
vs_top=sup; |
1433 |
goto T594; |
goto T594; |
1434 |
goto T596; |
goto T596; |
1435 |
T596:; |
T596:; |
1436 |
base[3]= symbol_value(VV[50]); |
base[3]= symbol_value(VV[50]); |
1437 |
base[4]= VV[97]; |
base[4]= VV[97]; |
1440 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
1441 |
Lformat(); |
Lformat(); |
1442 |
vs_top=sup; |
vs_top=sup; |
1443 |
goto T594; |
goto T594; |
1444 |
T594:; |
T594:; |
1445 |
V123= cdr((V123)); |
V123= cdr((V123)); |
1446 |
V124= Cnil; |
V124= Cnil; |
1447 |
goto T589;} |
goto T589;} |
1448 |
goto T581; |
goto T581; |
1449 |
T581:; |
T581:; |
1450 |
(VV[61]->s.s_dbind)= number_minus((VV[61]->s.s_dbind),small_fixnum(1)); |
(VV[61]->s.s_dbind)= number_minus((VV[61]->s.s_dbind),small_fixnum(1)); |
1451 |
base[3]= (V110); |
base[3]= (V110); |