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 |
base[2]= V1;} |
base[2]= V1;} |
27 |
static void L2() |
static void L2() |
28 |
{register object *base=vs_base; |
{register object *base=vs_base; |
29 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM2; VC2 |
30 |
vs_reserve(VM2); |
vs_check; |
|
check_arg(2); |
|
31 |
vs_top=sup; |
vs_top=sup; |
32 |
{object V2=base[0]->c.c_cdr; |
{object V2=base[0]->c.c_cdr; |
33 |
base[2]= V2;} |
base[2]= V2;} |
65 |
register object V11; |
register object V11; |
66 |
register object V12; |
register object V12; |
67 |
register object V13; |
register object V13; |
68 |
V5= cdr((V4)); |
V5= CMPcdr((V4)); |
69 |
V7= list(3,VV[12],list(2,VV[7],car((V4))),VV[13]); |
V7= list(3,VV[12],list(2,VV[7],CMPcar((V4))),VV[13]); |
70 |
V8= list(3,VV[12],list(2,VV[7],car((V4))),VV[14]); |
V8= list(3,VV[12],list(2,VV[7],CMPcar((V4))),VV[14]); |
71 |
V6= Cnil; |
V6= Cnil; |
72 |
V9= Ct; |
V9= Ct; |
73 |
V10= Ct; |
V10= Ct; |
99 |
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)); |
100 |
goto T20; |
goto T20; |
101 |
T20:; |
T20:; |
102 |
V15= car((V4)); |
V15= CMPcar((V4)); |
103 |
V16= list(2,VV[7],(V9)); |
V16= list(2,VV[7],(V9)); |
104 |
V17= list(2,VV[7],(V10)); |
V17= list(2,VV[7],(V10)); |
105 |
V18= list(2,VV[7],(V7)); |
V18= list(2,VV[7],(V7)); |
108 |
VMR3(V20)} |
VMR3(V20)} |
109 |
goto T17; |
goto T17; |
110 |
T17:; |
T17:; |
111 |
{object V21= car((V5)); |
{object V21= CMPcar((V5)); |
112 |
if((V21!= VV[29]))goto T38; |
if((V21!= VV[29]))goto T38; |
113 |
{register object V22; |
{register object V22; |
114 |
register object V23; |
register object V23; |
115 |
V22= cadr((V5)); |
V22= CMPcadr((V5)); |
116 |
V23= Cnil; |
V23= Cnil; |
117 |
goto T42; |
goto T42; |
118 |
T42:; |
T42:; |
122 |
goto T39; |
goto T39; |
123 |
goto T43; |
goto T43; |
124 |
T43:; |
T43:; |
125 |
if(!(type_of(car((V22)))==t_symbol)){ |
if(!(type_of(CMPcar((V22)))==t_symbol)){ |
126 |
goto T51;} |
goto T51;} |
127 |
V24= make_cons(car((V22)),Cnil); |
V24= make_cons(CMPcar((V22)),Cnil); |
128 |
goto T49; |
goto T49; |
129 |
goto T51; |
goto T51; |
130 |
T51:; |
T51:; |
131 |
V25= caar((V22)); |
V25= CMPcaar((V22)); |
132 |
base[0]= cadar((V22)); |
base[0]= CMPcadar((V22)); |
133 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
134 |
Leval(); |
Leval(); |
135 |
vs_top=sup; |
vs_top=sup; |
138 |
goto T49; |
goto T49; |
139 |
T49:; |
T49:; |
140 |
V23= make_cons(V24,(V23)); |
V23= make_cons(V24,(V23)); |
141 |
V22= cdr((V22)); |
V22= CMPcdr((V22)); |
142 |
goto T42;} |
goto T42;} |
143 |
goto T39; |
goto T39; |
144 |
T39:; |
T39:; |
146 |
goto T38; |
goto T38; |
147 |
T38:; |
T38:; |
148 |
if((V21!= VV[98]))goto T58; |
if((V21!= VV[98]))goto T58; |
149 |
V9= cadr((V5)); |
V9= CMPcadr((V5)); |
150 |
goto T37; |
goto T37; |
151 |
goto T58; |
goto T58; |
152 |
T58:; |
T58:; |
153 |
if((V21!= VV[99]))goto T60; |
if((V21!= VV[99]))goto T60; |
154 |
V10= cadr((V5)); |
V10= CMPcadr((V5)); |
155 |
goto T37; |
goto T37; |
156 |
goto T60; |
goto T60; |
157 |
T60:; |
T60:; |
158 |
if((V21!= VV[100]))goto T62; |
if((V21!= VV[100]))goto T62; |
159 |
V7= cadr((V5)); |
V7= CMPcadr((V5)); |
160 |
goto T37; |
goto T37; |
161 |
goto T62; |
goto T62; |
162 |
T62:; |
T62:; |
163 |
if((V21!= VV[101]))goto T64; |
if((V21!= VV[101]))goto T64; |
164 |
V11= cadr((V5)); |
V11= CMPcadr((V5)); |
165 |
goto T37; |
goto T37; |
166 |
goto T64; |
goto T64; |
167 |
T64:; |
T64:; |
168 |
if((V21!= VV[102]))goto T66; |
if((V21!= VV[102]))goto T66; |
169 |
V8= cadr((V5)); |
V8= CMPcadr((V5)); |
170 |
goto T37; |
goto T37; |
171 |
goto T66; |
goto T66; |
172 |
T66:; |
T66:; |
173 |
if((V21!= VV[28]))goto T68; |
if((V21!= VV[28]))goto T68; |
174 |
V12= cadr((V5)); |
V12= CMPcadr((V5)); |
175 |
goto T37; |
goto T37; |
176 |
goto T68; |
goto T68; |
177 |
T68:;} |
T68:;} |
178 |
goto T37; |
goto T37; |
179 |
T37:; |
T37:; |
180 |
V5= cddr((V5)); |
V5= CMPcddr((V5)); |
181 |
goto T16;} |
goto T16;} |
182 |
base[0]=base[0]; |
base[0]=base[0]; |
183 |
return Cnil; |
return Cnil; |
203 |
Llast(); |
Llast(); |
204 |
vs_top=sup; |
vs_top=sup; |
205 |
V30= vs_base[0]; |
V30= vs_base[0]; |
206 |
if((cdr(V30))!=Cnil){ |
if((CMPcdr(V30))!=Cnil){ |
207 |
goto T76;} |
goto T76;} |
208 |
{object V31 = (*(LnkLI103))((V28),cdr((V28)),Cnil); |
{object V31 = (*(LnkLI103))((V28),CMPcdr((V28)),Cnil); |
209 |
VMR4(V31)} |
VMR4(V31)} |
210 |
goto T76; |
goto T76; |
211 |
T76:; |
T76:; |
231 |
V35= Cnil; |
V35= Cnil; |
232 |
if(!(type_of((V34))==t_cons)){ |
if(!(type_of((V34))==t_cons)){ |
233 |
goto T86;} |
goto T86;} |
234 |
if(!(type_of(car((V34)))==t_cons)){ |
if(!(type_of(CMPcar((V34)))==t_cons)){ |
235 |
goto T91;} |
goto T91;} |
236 |
V35= car((V34)); |
V35= CMPcar((V34)); |
237 |
goto T89; |
goto T89; |
238 |
goto T91; |
goto T91; |
239 |
T91:; |
T91:; |
240 |
V35= list(2,car((V34)),Cnil); |
V35= list(2,CMPcar((V34)),Cnil); |
241 |
goto T89; |
goto T89; |
242 |
T89:; |
T89:; |
243 |
if(type_of(car((V35)))==t_symbol){ |
if(type_of(CMPcar((V35)))==t_symbol){ |
244 |
goto T93;} |
goto T93;} |
245 |
base[0]= VV[22]; |
base[0]= VV[22]; |
246 |
base[1]= car((V35)); |
base[1]= CMPcar((V35)); |
247 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
248 |
Lerror(); |
Lerror(); |
249 |
vs_top=sup; |
vs_top=sup; |
250 |
goto T93; |
goto T93; |
251 |
T93:; |
T93:; |
252 |
if((cddr((V35)))==Cnil){ |
if((CMPcddr((V35)))==Cnil){ |
253 |
goto T98;} |
goto T98;} |
254 |
base[0]= VV[23]; |
base[0]= VV[23]; |
255 |
base[1]= (V35); |
base[1]= (V35); |
258 |
vs_top=sup; |
vs_top=sup; |
259 |
goto T98; |
goto T98; |
260 |
T98:; |
T98:; |
261 |
V37= car((V35)); |
V37= CMPcar((V35)); |
262 |
V38= (*(LnkLI104))(); |
V38= (*(LnkLI104))(); |
263 |
{register object x= /* INLINE-ARGS */V37,V36= /* INLINE-ARGS */V38; |
{register object x= /* INLINE-ARGS */V37,V36= /* INLINE-ARGS */V38; |
264 |
while(!endp(V36)) |
while(V36!=Cnil) |
265 |
if(type_of(V36->c.c_car)==t_cons &&eql(x,V36->c.c_car->c.c_car)){ |
if(eql(x,V36->c.c_car->c.c_car) &&V36->c.c_car != Cnil){ |
266 |
goto T105; |
goto T105; |
267 |
}else V36=V36->c.c_cdr; |
}else V36=V36->c.c_cdr; |
268 |
goto T104;} |
goto T104;} |
269 |
goto T105; |
goto T105; |
270 |
T105:; |
T105:; |
271 |
base[0]= VV[24]; |
base[0]= VV[24]; |
272 |
base[1]= car((V35)); |
base[1]= CMPcar((V35)); |
273 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
274 |
Lerror(); |
Lerror(); |
275 |
vs_top=sup; |
vs_top=sup; |
296 |
TTL:; |
TTL:; |
297 |
if(((V46))==Cnil){ |
if(((V46))==Cnil){ |
298 |
goto T109;} |
goto T109;} |
299 |
if((cdr((V46)))!=Cnil){ |
if((CMPcdr((V46)))!=Cnil){ |
300 |
goto T112;} |
goto T112;} |
301 |
base[0]= VV[25]; |
base[0]= VV[25]; |
302 |
base[1]= (V45); |
base[1]= (V45); |
307 |
VMR6(V48)} |
VMR6(V48)} |
308 |
goto T112; |
goto T112; |
309 |
T112:; |
T112:; |
310 |
{register object x= car((V46)),V49= (V47); |
{register object x= CMPcar((V46)),V49= (V47); |
311 |
while(!endp(V49)) |
while(V49!=Cnil) |
312 |
if(eql(x,V49->c.c_car)){ |
if(eql(x,V49->c.c_car)){ |
313 |
goto T118; |
goto T118; |
314 |
}else V49=V49->c.c_cdr; |
}else V49=V49->c.c_cdr; |
316 |
goto T118; |
goto T118; |
317 |
T118:; |
T118:; |
318 |
base[0]= VV[26]; |
base[0]= VV[26]; |
319 |
base[1]= car((V46)); |
base[1]= CMPcar((V46)); |
320 |
base[2]= (V45); |
base[2]= (V45); |
321 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
322 |
Lerror(); |
Lerror(); |
325 |
VMR6(V50)} |
VMR6(V50)} |
326 |
goto T117; |
goto T117; |
327 |
T117:; |
T117:; |
328 |
{object V51= car((V46)); |
{object V51= CMPcar((V46)); |
329 |
if((V51!= VV[100]) |
if((V51!= VV[100]) |
330 |
&& (V51!= VV[102]) |
&& (V51!= VV[102]) |
331 |
&& (V51!= VV[98]) |
&& (V51!= VV[98]) |
332 |
&& (V51!= VV[99]) |
&& (V51!= VV[99]) |
333 |
&& (V51!= VV[101]))goto T122; |
&& (V51!= VV[101]))goto T122; |
334 |
{object V52; |
{object V52; |
335 |
V52= cddr((V46)); |
V52= CMPcddr((V46)); |
336 |
V47= make_cons(car((V46)),(V47)); |
V47= make_cons(CMPcar((V46)),(V47)); |
337 |
V46= (V52);} |
V46= (V52);} |
338 |
goto TTL; |
goto TTL; |
339 |
goto T122; |
goto T122; |
340 |
T122:; |
T122:; |
341 |
if((V51!= VV[28]))goto T127; |
if((V51!= VV[28]))goto T127; |
342 |
{object V53= cadr((V46)); |
{object V53= CMPcadr((V46)); |
343 |
if(!(type_of(V53)==t_fixnum||type_of(V53)==t_bignum)){ |
if(!(type_of(V53)==t_fixnum||type_of(V53)==t_bignum)){ |
344 |
goto T129;}} |
goto T129;}} |
345 |
if(number_compare(cadr((V46)),small_fixnum(0))>0){ |
if(number_compare(CMPcadr((V46)),small_fixnum(0))>0){ |
346 |
goto T128;} |
goto T128;} |
347 |
goto T129; |
goto T129; |
348 |
T129:; |
T129:; |
349 |
base[0]= VV[27]; |
base[0]= VV[27]; |
350 |
base[1]= cadr((V46)); |
base[1]= CMPcadr((V46)); |
351 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
352 |
Lerror(); |
Lerror(); |
353 |
vs_top=sup; |
vs_top=sup; |
354 |
goto T128; |
goto T128; |
355 |
T128:; |
T128:; |
356 |
V46= cddr((V46)); |
V46= CMPcddr((V46)); |
357 |
V47= make_cons(VV[28],(V47)); |
V47= make_cons(VV[28],(V47)); |
358 |
goto TTL; |
goto TTL; |
359 |
goto T127; |
goto T127; |
360 |
T127:; |
T127:; |
361 |
if((V51!= VV[29]))goto T139; |
if((V51!= VV[29]))goto T139; |
362 |
(void)((*(LnkLI105))(cadr((V46)))); |
(void)((*(LnkLI105))(CMPcadr((V46)))); |
363 |
V46= cddr((V46)); |
V46= CMPcddr((V46)); |
364 |
V47= make_cons(VV[29],(V47)); |
V47= make_cons(VV[29],(V47)); |
365 |
goto TTL; |
goto TTL; |
366 |
goto T139; |
goto T139; |
367 |
T139:; |
T139:; |
368 |
base[0]= VV[30]; |
base[0]= VV[30]; |
369 |
base[1]= (V45); |
base[1]= (V45); |
370 |
base[2]= car((V46)); |
base[2]= CMPcar((V46)); |
371 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
372 |
Lerror(); |
Lerror(); |
373 |
vs_top=sup; |
vs_top=sup; |
393 |
V58= Cnil; |
V58= Cnil; |
394 |
if(!(type_of((V57))==t_cons)){ |
if(!(type_of((V57))==t_cons)){ |
395 |
goto T151;} |
goto T151;} |
396 |
V59= car((V57)); |
V59= CMPcar((V57)); |
397 |
goto T149; |
goto T149; |
398 |
goto T151; |
goto T151; |
399 |
T151:; |
T151:; |
406 |
vs_top=sup; |
vs_top=sup; |
407 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
408 |
goto T153;} |
goto T153;} |
409 |
base[1]= symbol_value(VV[31]); |
base[1]= (VV[31]->s.s_dbind); |
410 |
base[2]= VV[32]; |
base[2]= VV[32]; |
411 |
base[3]= (V59); |
base[3]= (V59); |
412 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
422 |
vs_top=sup; |
vs_top=sup; |
423 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
424 |
goto T161;} |
goto T161;} |
425 |
base[1]= symbol_value(VV[31]); |
base[1]= (VV[31]->s.s_dbind); |
426 |
base[2]= VV[33]; |
base[2]= VV[33]; |
427 |
base[3]= (V59); |
base[3]= (V59); |
428 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
438 |
vs_top=sup; |
vs_top=sup; |
439 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
440 |
goto T169;} |
goto T169;} |
441 |
base[1]= symbol_value(VV[31]); |
base[1]= (VV[31]->s.s_dbind); |
442 |
base[2]= VV[34]; |
base[2]= VV[34]; |
443 |
base[3]= (V59); |
base[3]= (V59); |
444 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
448 |
VMR7(V62)} |
VMR7(V62)} |
449 |
goto T169; |
goto T169; |
450 |
T169:; |
T169:; |
451 |
if((get((V59),VV[35],Cnil))==Cnil){ |
{object V63 =((V59))->s.s_plist; |
452 |
|
object ind= VV[35]; |
453 |
|
while(V63!=Cnil){ |
454 |
|
if(V63->c.c_car==ind){ |
455 |
|
if(((V63->c.c_cdr->c.c_car))==Cnil){ |
456 |
goto T177;} |
goto T177;} |
457 |
|
goto T179; |
458 |
|
}else V63=V63->c.c_cdr->c.c_cdr;} |
459 |
|
goto T177;} |
460 |
|
goto T179; |
461 |
|
T179:; |
462 |
(void)((*(LnkLI106))((V59))); |
(void)((*(LnkLI106))((V59))); |
463 |
goto T177; |
goto T177; |
464 |
T177:; |
T177:; |
477 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
478 |
siLfset(); |
siLfset(); |
479 |
vs_top=sup; |
vs_top=sup; |
480 |
base[1]= list(4,VV[36],(V59),VV[37],listA(4,VV[38],list(2,VV[7],(V58)),VV[39],cddr((V57)))); |
base[1]= list(4,VV[36],(V59),VV[37],listA(4,VV[38],list(2,VV[7],(V58)),VV[39],CMPcddr((V57)))); |
481 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
482 |
Leval(); |
Leval(); |
483 |
vs_top=sup; |
vs_top=sup; |
484 |
(void)(putprop((V59),(V58),VV[35])); |
(void)(putprop((V59),(V58),VV[35])); |
485 |
V63= make_cons((V59),cadr((V57))); |
V64= make_cons((V59),CMPcadr((V57))); |
486 |
setq(VV[40],make_cons(/* INLINE-ARGS */V63,symbol_value(VV[40]))); |
(VV[40]->s.s_dbind)= make_cons(/* INLINE-ARGS */V64,(VV[40]->s.s_dbind)); |
487 |
{object V64 = make_cons((V59),Cnil); |
{object V65 = make_cons((V59),Cnil); |
488 |
VMR7(V64)}} |
VMR7(V65)}} |
489 |
base[0]=base[0]; |
base[0]=base[0]; |
490 |
return Cnil; |
return Cnil; |
491 |
} |
} |
492 |
/* local entry for function RESET-TRACE-DECLARATIONS */ |
/* local entry for function RESET-TRACE-DECLARATIONS */ |
493 |
|
|
494 |
static object LI8(V66) |
static object LI8(V67) |
495 |
|
|
496 |
register object V66; |
register object V67; |
497 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
498 |
goto TTL; |
goto TTL; |
499 |
TTL:; |
TTL:; |
500 |
if(((V66))==Cnil){ |
if(((V67))==Cnil){ |
501 |
goto T194;} |
goto T194;} |
502 |
base[0]= caar((V66)); |
base[0]= CMPcaar((V67)); |
503 |
base[1]= cdar((V66)); |
base[1]= CMPcdar((V67)); |
504 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
505 |
Lset(); |
Lset(); |
506 |
vs_top=sup; |
vs_top=sup; |
507 |
V66= cdr((V66)); |
V67= CMPcdr((V67)); |
508 |
goto TTL; |
goto TTL; |
509 |
goto T194; |
goto T194; |
510 |
T194:; |
T194:; |
511 |
{object V67 = Cnil; |
{object V68 = Cnil; |
512 |
VMR8(V67)} |
VMR8(V68)} |
513 |
base[0]=base[0]; |
base[0]=base[0]; |
514 |
return Cnil; |
return Cnil; |
515 |
} |
} |
520 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
521 |
goto TTL; |
goto TTL; |
522 |
TTL:; |
TTL:; |
|
{register object V68; |
|
|
V68= Cnil; |
|
523 |
{register object V69; |
{register object V69; |
524 |
register object V70; |
V69= Cnil; |
525 |
V69= symbol_value(VV[40]); |
{register object V70; |
526 |
V70= car((V69)); |
register object V71; |
527 |
|
V70= (VV[40]->s.s_dbind); |
528 |
|
V71= CMPcar((V70)); |
529 |
goto T206; |
goto T206; |
530 |
T206:; |
T206:; |
531 |
if(!(endp_prop((V69)))){ |
if(!(((V70))==Cnil)){ |
532 |
goto T207;} |
goto T207;} |
533 |
goto T202; |
goto T202; |
534 |
goto T207; |
goto T207; |
535 |
T207:; |
T207:; |
536 |
V68= append((V68),cdr((V70))); |
V69= append((V69),CMPcdr((V71))); |
537 |
V69= cdr((V69)); |
V70= CMPcdr((V70)); |
538 |
V70= car((V69)); |
V71= CMPcar((V70)); |
539 |
goto T206;} |
goto T206;} |
540 |
goto T202; |
goto T202; |
541 |
T202:; |
T202:; |
542 |
{object V71 = (V68); |
{object V72 = (V69); |
543 |
VMR9(V71)}} |
VMR9(V72)}} |
544 |
base[0]=base[0]; |
base[0]=base[0]; |
545 |
return Cnil; |
return Cnil; |
546 |
} |
} |
549 |
static void L10() |
static void L10() |
550 |
{register object *base=vs_base; |
{register object *base=vs_base; |
551 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
552 |
vs_reserve(VM10); |
vs_check; |
553 |
bds_check; |
bds_check; |
554 |
{object V72; |
{object V73; |
555 |
register object V73; |
register object V74; |
|
object V74; |
|
556 |
object V75; |
object V75; |
557 |
object V76; |
object V76; |
558 |
object V77; |
object V77; |
559 |
object V78; |
object V78; |
560 |
check_arg(7); |
object V79; |
561 |
V72=(base[0]); |
V73=(base[0]); |
562 |
V73=(base[1]); |
V74=(base[1]); |
563 |
V74=(base[2]); |
V75=(base[2]); |
564 |
V75=(base[3]); |
V76=(base[3]); |
565 |
V76=(base[4]); |
V77=(base[4]); |
566 |
V77=(base[5]); |
V78=(base[5]); |
567 |
V78=(base[6]); |
V79=(base[6]); |
568 |
vs_top=sup; |
vs_top=sup; |
569 |
goto TTL; |
goto TTL; |
570 |
TTL:; |
TTL:; |
571 |
{register object V79; |
{register object V80; |
572 |
object V80; |
object V81; |
573 |
bds_bind(VV[41],symbol_value(VV[41])); |
bds_bind(VV[41],(VV[41]->s.s_dbind)); |
|
V79= Cnil; |
|
574 |
V80= Cnil; |
V80= Cnil; |
575 |
|
V81= Cnil; |
576 |
if(!(number_compare((VV[41]->s.s_dbind),small_fixnum(0))==0)){ |
if(!(number_compare((VV[41]->s.s_dbind),small_fixnum(0))==0)){ |
577 |
goto T220;} |
goto T220;} |
578 |
V81= (*(LnkLI104))(); |
V82= (*(LnkLI104))(); |
579 |
(void)((*(LnkLI109))(/* INLINE-ARGS */V81)); |
(void)((*(LnkLI109))(/* INLINE-ARGS */V82)); |
580 |
goto T220; |
goto T220; |
581 |
T220:; |
T220:; |
582 |
V82= list(2,VV[13],list(2,VV[7],(V73))); |
V83= list(2,VV[13],list(2,VV[7],(V74))); |
583 |
base[8]= list(3,VV[1],make_cons(/* INLINE-ARGS */V82,Cnil),(V74)); |
base[8]= list(3,VV[1],make_cons(/* INLINE-ARGS */V83,Cnil),(V75)); |
584 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
585 |
Leval(); |
Leval(); |
586 |
vs_top=sup; |
vs_top=sup; |
587 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
588 |
goto T224;} |
goto T224;} |
589 |
(VV[41]->s.s_dbind)= one_plus((VV[41]->s.s_dbind)); |
(VV[41]->s.s_dbind)= one_plus((VV[41]->s.s_dbind)); |
590 |
V83= number_times((VV[41]->s.s_dbind),small_fixnum(2)); |
V84= number_times((VV[41]->s.s_dbind),small_fixnum(2)); |
591 |
V80= (number_compare(/* INLINE-ARGS */V83,small_fixnum(20))<=0?(/* INLINE-ARGS */V83):small_fixnum(20)); |
V81= (number_compare(/* INLINE-ARGS */V84,small_fixnum(20))<=0?(/* INLINE-ARGS */V84):small_fixnum(20)); |
592 |
base[8]= symbol_value(VV[31]); |
base[8]= (VV[31]->s.s_dbind); |
593 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
594 |
Lfresh_line(); |
Lfresh_line(); |
595 |
vs_top=sup; |
vs_top=sup; |
596 |
if(((V75))==(Ct)){ |
if(((V76))==(Ct)){ |
597 |
goto T234;} |
goto T234;} |
598 |
V84= list(2,VV[13],list(2,VV[7],(V73))); |
V85= list(2,VV[13],list(2,VV[7],(V74))); |
599 |
base[8]= list(3,VV[1],make_cons(/* INLINE-ARGS */V84,Cnil),(V75)); |
base[8]= list(3,VV[1],make_cons(/* INLINE-ARGS */V85,Cnil),(V76)); |
600 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
601 |
Leval(); |
Leval(); |
602 |
vs_top=sup; |
vs_top=sup; |
604 |
goto T233;} |
goto T233;} |
605 |
goto T234; |
goto T234; |
606 |
T234:; |
T234:; |
607 |
base[8]= symbol_value(VV[31]); |
base[8]= (VV[31]->s.s_dbind); |
608 |
base[9]= VV[42]; |
base[9]= VV[42]; |
609 |
base[10]= (V80); |
base[10]= (V81); |
610 |
base[11]= (VV[41]->s.s_dbind); |
base[11]= (VV[41]->s.s_dbind); |
611 |
vs_top=(vs_base=base+8)+4; |
vs_top=(vs_base=base+8)+4; |
612 |
Lformat(); |
Lformat(); |
613 |
vs_top=sup; |
vs_top=sup; |
614 |
base[8]= symbol_value(VV[31]); |
base[8]= (VV[31]->s.s_dbind); |
615 |
base[9]= VV[43]; |
base[9]= VV[43]; |
616 |
V85= list(2,VV[13],list(2,VV[7],(V73))); |
V86= list(2,VV[13],list(2,VV[7],(V74))); |
617 |
base[11]= list(3,VV[1],make_cons(/* INLINE-ARGS */V85,Cnil),(V76)); |
base[11]= list(3,VV[1],make_cons(/* INLINE-ARGS */V86,Cnil),(V77)); |
618 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
619 |
Leval(); |
Leval(); |
620 |
vs_top=sup; |
vs_top=sup; |
622 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
623 |
Lformat(); |
Lformat(); |
624 |
vs_top=sup; |
vs_top=sup; |
625 |
base[8]= symbol_value(VV[31]); |
base[8]= (VV[31]->s.s_dbind); |
626 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
627 |
Lfresh_line(); |
Lfresh_line(); |
628 |
vs_top=sup; |
vs_top=sup; |
629 |
goto T233; |
goto T233; |
630 |
T233:; |
T233:; |
631 |
base[8]= (V72); |
base[8]= (V73); |
632 |
{object V86; |
{object V87; |
633 |
V86= (V73); |
V87= (V74); |
634 |
vs_top=base+9; |
vs_top=base+9; |
635 |
while(!endp(V86)) |
while(V87!=Cnil) |
636 |
{vs_push(car(V86));V86=cdr(V86);} |
{vs_push((V87)->c.c_car);V87=(V87)->c.c_cdr;} |
637 |
vs_base=base+9;} |
vs_base=base+9;} |
638 |
super_funcall_no_event(base[8]); |
super_funcall_no_event(base[8]); |
639 |
Llist(); |
Llist(); |
640 |
vs_top=sup; |
vs_top=sup; |
641 |
V79= vs_base[0]; |
V80= vs_base[0]; |
642 |
if(((V77))==(Ct)){ |
if(((V78))==(Ct)){ |
643 |
goto T256;} |
goto T256;} |
644 |
V87= list(2,VV[13],list(2,VV[7],(V73))); |
V88= list(2,VV[13],list(2,VV[7],(V74))); |
645 |
base[8]= list(3,VV[1],list(2,/* INLINE-ARGS */V87,list(2,VV[14],list(2,VV[7],(V79)))),(V77)); |
base[8]= list(3,VV[1],list(2,/* INLINE-ARGS */V88,list(2,VV[14],list(2,VV[7],(V80)))),(V78)); |
646 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
647 |
Leval(); |
Leval(); |
648 |
vs_top=sup; |
vs_top=sup; |
650 |
goto T255;} |
goto T255;} |
651 |
goto T256; |
goto T256; |
652 |
T256:; |
T256:; |
653 |
base[8]= symbol_value(VV[31]); |
base[8]= (VV[31]->s.s_dbind); |
654 |
base[9]= VV[44]; |
base[9]= VV[44]; |
655 |
base[10]= (V80); |
base[10]= (V81); |
656 |
base[11]= (VV[41]->s.s_dbind); |
base[11]= (VV[41]->s.s_dbind); |
657 |
vs_top=(vs_base=base+8)+4; |
vs_top=(vs_base=base+8)+4; |
658 |
Lformat(); |
Lformat(); |
659 |
vs_top=sup; |
vs_top=sup; |
660 |
base[8]= symbol_value(VV[31]); |
base[8]= (VV[31]->s.s_dbind); |
661 |
base[9]= VV[45]; |
base[9]= VV[45]; |
662 |
V88= list(2,VV[13],list(2,VV[7],(V73))); |
V89= list(2,VV[13],list(2,VV[7],(V74))); |
663 |
base[11]= list(3,VV[1],list(2,/* INLINE-ARGS */V88,list(2,VV[14],list(2,VV[7],(V79)))),(V78)); |
base[11]= list(3,VV[1],list(2,/* INLINE-ARGS */V89,list(2,VV[14],list(2,VV[7],(V80)))),(V79)); |
664 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
665 |
Leval(); |
Leval(); |
666 |
vs_top=sup; |
vs_top=sup; |
671 |
goto T255; |
goto T255; |
672 |
T255:; |
T255:; |
673 |
(VV[41]->s.s_dbind)= one_minus((VV[41]->s.s_dbind)); |
(VV[41]->s.s_dbind)= one_minus((VV[41]->s.s_dbind)); |
674 |
base[8]= (V79); |
base[8]= (V80); |
675 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
676 |
Lvalues_list(); |
Lvalues_list(); |
677 |
bds_unwind1; |
bds_unwind1; |
678 |
return; |
return; |
679 |
goto T224; |
goto T224; |
680 |
T224:; |
T224:; |
681 |
base[8]= (V72); |
base[8]= (V73); |
682 |
{object V89; |
{object V90; |
683 |
V89= (V73); |
V90= (V74); |
684 |
vs_top=base+9; |
vs_top=base+9; |
685 |
while(!endp(V89)) |
while(V90!=Cnil) |
686 |
{vs_push(car(V89));V89=cdr(V89);} |
{vs_push((V90)->c.c_car);V90=(V90)->c.c_cdr;} |
687 |
vs_base=base+9;} |
vs_base=base+9;} |
688 |
super_funcall_no_event(base[8]); |
super_funcall_no_event(base[8]); |
689 |
bds_unwind1; |
bds_unwind1; |
692 |
} |
} |
693 |
/* local entry for function UNTRACE-ONE */ |
/* local entry for function UNTRACE-ONE */ |
694 |
|
|
695 |
static object LI12(V91) |
static object LI12(V92) |
696 |
|
|
697 |
object V91; |
object V92; |
698 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
699 |
goto TTL; |
goto TTL; |
700 |
TTL:; |
TTL:; |
701 |
{object V92; |
{object V93; |
702 |
base[0]=MMcons((V91),Cnil); |
base[0]=MMcons((V92),Cnil); |
703 |
V92= Cnil; |
V93= Cnil; |
704 |
V92= get((base[0]->c.c_car),VV[35],Cnil); |
{object V94 =((base[0]->c.c_car))->s.s_plist; |
705 |
if(((V92))==Cnil){ |
object ind= VV[35]; |
706 |
|
while(V94!=Cnil){ |
707 |
|
if(V94->c.c_car==ind){ |
708 |
|
V93= (V94->c.c_cdr->c.c_car); |
709 |
|
goto T279; |
710 |
|
}else V94=V94->c.c_cdr->c.c_cdr;} |
711 |
|
V93= Cnil;} |
712 |
|
goto T279; |
713 |
|
T279:; |
714 |
|
if(((V93))==Cnil){ |
715 |
goto T277;} |
goto T277;} |
716 |
(void)(remprop((base[0]->c.c_car),VV[35])); |
(void)(remprop((base[0]->c.c_car),VV[35])); |
717 |
base[1]= (base[0]->c.c_car); |
base[1]= (base[0]->c.c_car); |
720 |
vs_top=sup; |
vs_top=sup; |
721 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
722 |
goto T283;} |
goto T283;} |
723 |
base[1]= symbol_value(VV[31]); |
base[1]= (VV[31]->s.s_dbind); |
724 |
base[2]= VV[46]; |
base[2]= VV[46]; |
725 |
base[3]= (base[0]->c.c_car); |
base[3]= (base[0]->c.c_car); |
726 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
733 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
734 |
Lsymbol_function(); |
Lsymbol_function(); |
735 |
vs_top=sup; |
vs_top=sup; |
736 |
V93= vs_base[0]; |
V95= vs_base[0]; |
737 |
if(!(type_of(V93)==t_cons)){ |
if(!(type_of(V95)==t_cons)){ |
738 |
goto T290;} |
goto T290;} |
739 |
base[1]= (base[0]->c.c_car); |
base[1]= (base[0]->c.c_car); |
740 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
741 |
Lsymbol_function(); |
Lsymbol_function(); |
742 |
vs_top=sup; |
vs_top=sup; |
743 |
V94= vs_base[0]; |
V96= vs_base[0]; |
744 |
if(!(type_of(cadddr(V94))==t_cons)){ |
if(!(type_of(CMPcadddr(V96))==t_cons)){ |
745 |
goto T290;} |
goto T290;} |
746 |
base[1]= (base[0]->c.c_car); |
base[1]= (base[0]->c.c_car); |
747 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
748 |
Lsymbol_function(); |
Lsymbol_function(); |
749 |
vs_top=sup; |
vs_top=sup; |
750 |
V95= vs_base[0]; |
V97= vs_base[0]; |
751 |
if(!((car(cadddr(V95)))==(VV[38]))){ |
if(!((CMPcar(CMPcadddr(V97)))==(VV[38]))){ |
752 |
goto T290;} |
goto T290;} |
753 |
base[1]= (base[0]->c.c_car); |
base[1]= (base[0]->c.c_car); |
754 |
base[3]= (V92); |
base[3]= (V93); |
755 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
756 |
Lsymbol_function(); |
Lsymbol_function(); |
757 |
vs_top=sup; |
vs_top=sup; |
762 |
goto T281; |
goto T281; |
763 |
goto T290; |
goto T290; |
764 |
T290:; |
T290:; |
765 |
base[1]= symbol_value(VV[31]); |
base[1]= (VV[31]->s.s_dbind); |
766 |
base[2]= VV[47]; |
base[2]= VV[47]; |
767 |
base[3]= (base[0]->c.c_car); |
base[3]= (base[0]->c.c_car); |
768 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
770 |
vs_top=sup; |
vs_top=sup; |
771 |
goto T281; |
goto T281; |
772 |
T281:; |
T281:; |
773 |
V96= |
V98= |
774 |
make_cclosure_new(LC17,Cnil,base[0],Cdata); |
make_cclosure_new(LC17,Cnil,base[0],Cdata); |
775 |
setq(VV[40],(VFUN_NARGS=4,(*(LnkLI110))(V96,symbol_value(VV[40]),VV[48],small_fixnum(1)))); |
(VV[40]->s.s_dbind)= (VFUN_NARGS=4,(*(LnkLI110))(V98,(VV[40]->s.s_dbind),VV[48],small_fixnum(1))); |
776 |
{object V97 = make_cons((base[0]->c.c_car),Cnil); |
{object V99 = make_cons((base[0]->c.c_car),Cnil); |
777 |
VMR11(V97)} |
VMR11(V99)} |
778 |
goto T277; |
goto T277; |
779 |
T277:; |
T277:; |
780 |
base[1]= symbol_value(VV[31]); |
base[1]= (VV[31]->s.s_dbind); |
781 |
base[2]= VV[49]; |
base[2]= VV[49]; |
782 |
base[3]= (base[0]->c.c_car); |
base[3]= (base[0]->c.c_car); |
783 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
784 |
Lformat(); |
Lformat(); |
785 |
vs_top=sup; |
vs_top=sup; |
786 |
{object V98 = Cnil; |
{object V100 = Cnil; |
787 |
VMR11(V98)}} |
VMR11(V100)}} |
788 |
base[0]=base[0]; |
base[0]=base[0]; |
789 |
return Cnil; |
return Cnil; |
790 |
} |
} |
795 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
796 |
goto TTL; |
goto TTL; |
797 |
TTL:; |
TTL:; |
798 |
{register object V99; |
{register object V101; |
799 |
base[0]= symbol_value(VV[50]); |
{long V102; |
800 |
vs_top=(vs_base=base+0)+1; |
V102= 0; |
801 |
Lread_char(); |
if(!((type_of((VV[50]->s.s_dbind))==t_stream? (((VV[50]->s.s_dbind))->sm.sm_fp)!=0: 0 ))){ |
802 |
vs_top=sup; |
goto T318;} |
803 |
V99= vs_base[0]; |
V102= (long)getc(((VV[50]->s.s_dbind))->sm.sm_fp); |
804 |
|
if(!((V102)==(-1))){ |
805 |
|
goto T323;} |
806 |
|
if(!((feof(((VV[50]->s.s_dbind))->sm.sm_fp)))){ |
807 |
|
goto T323;} |
808 |
|
V101= Cnil; |
809 |
|
goto T315; |
810 |
|
goto T323; |
811 |
|
T323:; |
812 |
|
V101= code_char((V102)); |
813 |
|
goto T315; |
814 |
goto T318; |
goto T318; |
815 |
T318:; |
T318:; |
816 |
base[0]= (V99); |
V101= read_char1((VV[50]->s.s_dbind),Cnil);} |
817 |
base[1]= VV[51]; |
goto T315; |
818 |
vs_top=(vs_base=base+0)+2; |
T315:; |
819 |
Lchar_eq(); |
goto T328; |
820 |
vs_top=sup; |
T328:; |
821 |
if((vs_base[0])!=Cnil){ |
if(char_code((V101))==char_code(VV[51])){ |
822 |
goto T320;} |
goto T330;} |
823 |
base[0]= (V99); |
if(!(char_code((V101))==char_code(VV[52]))){ |
824 |
base[1]= VV[52]; |
goto T329;} |
825 |
vs_top=(vs_base=base+0)+2; |
goto T330; |
826 |
Lchar_eq(); |
T330:; |
827 |
vs_top=sup; |
{object V103 = Cnil; |
828 |
if((vs_base[0])==Cnil){ |
VMR12(V103)} |
829 |
goto T319;} |
goto T329; |
830 |
goto T320; |
T329:; |
831 |
T320:; |
{register long V104; |
832 |
{object V100 = Cnil; |
V104= 0; |
833 |
VMR12(V100)} |
if(!((type_of((VV[50]->s.s_dbind))==t_stream? (((VV[50]->s.s_dbind))->sm.sm_fp)!=0: 0 ))){ |
834 |
goto T319; |
goto T339;} |
835 |
T319:; |
V104= (long)getc(((VV[50]->s.s_dbind))->sm.sm_fp); |
836 |
base[0]= symbol_value(VV[50]); |
if(!((V104)==(-1))){ |
837 |
vs_top=(vs_base=base+0)+1; |
goto T344;} |
838 |
Lread_char(); |
if(!((feof(((VV[50]->s.s_dbind))->sm.sm_fp)))){ |
839 |
vs_top=sup; |
goto T344;} |
840 |
V99= vs_base[0]; |
V101= Cnil; |
841 |
goto T318;} |
goto T336; |
842 |
base[0]=base[0]; |
goto T344; |
843 |
|
T344:; |
844 |
|
V101= code_char((V104)); |
845 |
|
goto T336; |
846 |
|
goto T339; |
847 |
|
T339:; |
848 |
|
V101= read_char1((VV[50]->s.s_dbind),Cnil);} |
849 |
|
goto T336; |
850 |
|
T336:; |
851 |
|
goto T328;} |
852 |
return Cnil; |
return Cnil; |
853 |
} |
} |
854 |
/* macro definition for IF-ERROR */ |
/* macro definition for IF-ERROR */ |
856 |
static void L14() |
static void L14() |
857 |
{register object *base=vs_base; |
{register object *base=vs_base; |
858 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM13; VC13 |
859 |
vs_reserve(VM13); |
vs_check; |
|
check_arg(2); |
|
860 |
vs_top=sup; |
vs_top=sup; |
861 |
{object V101=base[0]->c.c_cdr; |
{object V105=base[0]->c.c_cdr; |
862 |
if(endp(V101))invalid_macro_call(); |
base[2]= (V105->c.c_car); |
863 |
base[2]= (V101->c.c_car); |
V105=V105->c.c_cdr; |
864 |
V101=V101->c.c_cdr; |
base[3]= (V105->c.c_car);} |
865 |
if(endp(V101))invalid_macro_call(); |
{object V106; |
866 |
base[3]= (V101->c.c_car); |
object V107; |
867 |
V101=V101->c.c_cdr; |
object V108; |
|
if(!endp(V101))invalid_macro_call();} |
|
|
{object V102; |
|
|
object V103; |
|
|
object V104; |
|
868 |
vs_base=vs_top; |
vs_base=vs_top; |
869 |
Lgensym(); |
Lgensym(); |
870 |
vs_top=sup; |
vs_top=sup; |
871 |
V102= vs_base[0]; |
V106= vs_base[0]; |
872 |
vs_base=vs_top; |
vs_base=vs_top; |
873 |
Lgensym(); |
Lgensym(); |
874 |
vs_top=sup; |
vs_top=sup; |
875 |
V103= vs_base[0]; |
V107= vs_base[0]; |
876 |
vs_base=vs_top; |
vs_base=vs_top; |
877 |
Lgensym(); |
Lgensym(); |
878 |
vs_top=sup; |
vs_top=sup; |
879 |
V104= vs_base[0]; |
V108= vs_base[0]; |
880 |
V105= list(2,(V102),(V103)); |
V109= list(2,(V106),(V107)); |
881 |
V106= list(5,VV[18],(V102),base[3],(V103),Ct); |
V110= list(5,VV[18],(V106),base[3],(V107),Ct); |
882 |
base[4]= list(3,VV[1],/* INLINE-ARGS */V105,list(3,VV[53],(V104),list(3,VV[3],/* INLINE-ARGS */V106,list(3,VV[54],(V104),list(4,VV[16],(V103),(V102),base[2]))))); |
base[4]= list(3,VV[1],/* INLINE-ARGS */V109,list(3,VV[53],(V108),list(3,VV[3],/* INLINE-ARGS */V110,list(3,VV[54],(V108),list(4,VV[16],(V107),(V106),base[2]))))); |
883 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
884 |
return;} |
return;} |
885 |
} |
} |
888 |
static void L15() |
static void L15() |
889 |
{register object *base=vs_base; |
{register object *base=vs_base; |
890 |
register object *sup=base+VM14; VC14 |
register object *sup=base+VM14; VC14 |
891 |
vs_reserve(VM14); |
vs_check; |
|
check_arg(2); |
|
892 |
vs_top=sup; |
vs_top=sup; |
893 |
{object V107=base[0]->c.c_cdr; |
{object V111=base[0]->c.c_cdr; |
894 |
if(endp(V107))invalid_macro_call(); |
base[2]= (V111->c.c_car);} |
|
base[2]= (V107->c.c_car); |
|
|
V107=V107->c.c_cdr; |
|
|
if(!endp(V107))invalid_macro_call();} |
|
895 |
base[3]= list(6,VV[55],VV[56],VV[57],VV[58],VV[59],list(3,VV[60],list(2,VV[7],base[2]),Cnil)); |
base[3]= list(6,VV[55],VV[56],VV[57],VV[58],VV[59],list(3,VV[60],list(2,VV[7],base[2]),Cnil)); |
896 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
897 |
return; |
return; |
901 |
static void L16() |
static void L16() |
902 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
903 |
register object *VOL sup=base+VM15; VC15 |
register object *VOL sup=base+VM15; VC15 |
904 |
vs_reserve(VM15); |
vs_check; |
905 |
bds_check; |
bds_check; |
906 |
{VOL object V108; |
{VOL object V112; |
907 |
VOL object V109; |
VOL object V113; |
908 |
if(vs_top-vs_base<1) too_few_arguments(); |
V112=(base[0]); |
|
if(vs_top-vs_base>2) too_many_arguments(); |
|
|
V108=(base[0]); |
|
909 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
910 |
if(vs_base>=vs_top){vs_top=sup;goto T336;} |
if(vs_base>=vs_top){vs_top=sup;goto T352;} |
911 |
V109=(base[1]); |
V113=(base[1]); |
912 |
vs_top=sup; |
vs_top=sup; |
913 |
goto T337; |
goto T353; |
914 |
goto T336; |
goto T352; |
915 |
T336:; |
T352:; |
916 |
V109= Cnil; |
V113= Cnil; |
917 |
goto T337; |
goto T353; |
918 |
T337:; |
T353:; |
919 |
{VOL object V110; |
{VOL object V114; |
920 |
VOL object V111; |
VOL object V115; |
921 |
V110= Cnil; |
V114= Cnil; |
922 |
bds_bind(VV[61],symbol_value(VV[61])); |
bds_bind(VV[61],(VV[61]->s.s_dbind)); |
923 |
V111= Cnil; |
V115= Cnil; |
924 |
if(!((symbol_value(VV[62]))==(Ct))){ |
if(!(((VV[62]->s.s_dbind))==(Ct))){ |
925 |
goto T341;} |
goto T357;} |
926 |
base[3]= (V108); |
base[3]= (V112); |
927 |
base[4]= Cnil; |
base[4]= Cnil; |
928 |
base[5]= Cnil; |
base[5]= Cnil; |
929 |
base[6]= (V109); |
base[6]= (V113); |
930 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
931 |
Levalhook(); |
Levalhook(); |
932 |
bds_unwind1; |
bds_unwind1; |
933 |
return; |
return; |
934 |
goto T341; |
goto T357; |
935 |
T341:; |
T357:; |
936 |
if(!(type_of(symbol_value(VV[62]))==t_fixnum|| |
if(!(type_of((VV[62]->s.s_dbind))==t_fixnum|| |
937 |
type_of(symbol_value(VV[62]))==t_bignum|| |
type_of((VV[62]->s.s_dbind))==t_bignum|| |
938 |
type_of(symbol_value(VV[62]))==t_ratio|| |
type_of((VV[62]->s.s_dbind))==t_ratio|| |
939 |
type_of(symbol_value(VV[62]))==t_shortfloat|| |
type_of((VV[62]->s.s_dbind))==t_shortfloat|| |
940 |
type_of(symbol_value(VV[62]))==t_longfloat|| |
type_of((VV[62]->s.s_dbind))==t_longfloat|| |
941 |
type_of(symbol_value(VV[62]))==t_complex)){ |
type_of((VV[62]->s.s_dbind))==t_complex)){ |
942 |
goto T348;} |
goto T364;} |
943 |
V112= one_plus((VV[61]->s.s_dbind)); |
V116= one_plus((VV[61]->s.s_dbind)); |
944 |
if(!(number_compare(/* INLINE-ARGS */V112,symbol_value(VV[62]))>=0)){ |
if(!(number_compare(/* INLINE-ARGS */V116,(VV[62]->s.s_dbind))>=0)){ |
945 |
goto T352;} |
goto T368;} |
946 |
base[3]= (V108); |
base[3]= (V112); |
947 |
base[4]= Cnil; |
base[4]= Cnil; |
948 |
base[5]= Cnil; |
base[5]= Cnil; |
949 |
base[6]= (V109); |
base[6]= (V113); |
950 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
951 |
Levalhook(); |
Levalhook(); |
952 |
bds_unwind1; |
bds_unwind1; |
953 |
return; |
return; |
954 |
goto T352; |
goto T368; |
955 |
T352:; |
T368:; |
956 |
setq(VV[62],Cnil); |
(VV[62]->s.s_dbind)= Cnil; |
957 |
goto T348; |
goto T364; |
958 |
T348:; |
T364:; |
959 |
if((symbol_value(VV[63]))==Cnil){ |
if(((VV[63]->s.s_dbind))==Cnil){ |
960 |
goto T359;} |
goto T375;} |
961 |
if(!(type_of((V108))==t_cons)){ |
if(!(type_of((V112))==t_cons)){ |
962 |
goto T363;} |
goto T379;} |
963 |
if(!((car((V108)))==(symbol_value(VV[63])))){ |
if(!((CMPcar((V112)))==((VV[63]->s.s_dbind)))){ |
964 |
goto T363;} |
goto T379;} |
965 |
bds_bind(VV[63],Cnil); |
bds_bind(VV[63],Cnil); |
966 |
base[4]= (V108); |
base[4]= (V112); |
967 |
base[5]= (V109); |
base[5]= (V113); |
968 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
969 |
(void) (*Lnk60)(); |
(void) (*Lnk60)(); |
970 |
bds_unwind1; |
bds_unwind1; |
971 |
bds_unwind1; |
bds_unwind1; |
972 |
return; |
return; |
973 |
goto T363; |
goto T379; |
974 |
T363:; |
T379:; |
975 |
base[3]= (V108); |
base[3]= (V112); |
976 |
base[4]= symbol_function(VV[60]); |
base[4]= (VV[60]->s.s_gfdef); |
977 |
base[5]= Cnil; |
base[5]= Cnil; |
978 |
base[6]= (V109); |
base[6]= (V113); |
979 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
980 |
Levalhook(); |
Levalhook(); |
981 |
bds_unwind1; |
bds_unwind1; |
982 |
return; |
return; |
983 |
goto T359; |
goto T375; |
984 |
T359:; |
T375:; |
985 |
(VV[61]->s.s_dbind)= one_plus((VV[61]->s.s_dbind)); |
(VV[61]->s.s_dbind)= one_plus((VV[61]->s.s_dbind)); |
986 |
V113= number_times((VV[61]->s.s_dbind),small_fixnum(2)); |
V117= number_times((VV[61]->s.s_dbind),small_fixnum(2)); |
987 |
V111= (number_compare(/* INLINE-ARGS */V113,small_fixnum(20))<=0?(/* INLINE-ARGS */V113):small_fixnum(20)); |
V115= (number_compare(/* INLINE-ARGS */V117,small_fixnum(20))<=0?(/* INLINE-ARGS */V117):small_fixnum(20)); |
988 |
goto T379; |
goto T395; |
989 |
T379:; |
T395:; |
990 |
base[3]= symbol_value(VV[50]); |
base[3]= (VV[50]->s.s_dbind); |
991 |
base[4]= VV[64]; |
base[4]= VV[64]; |
992 |
base[5]= (V111); |
base[5]= (V115); |
993 |
base[6]= (V108); |
base[6]= (V112); |
994 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
995 |
Lformat(); |
Lformat(); |
996 |
vs_top=sup; |
vs_top=sup; |
997 |
base[3]= symbol_value(VV[50]); |
base[3]= (VV[50]->s.s_dbind); |
998 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
999 |
Lfinish_output(); |
Lfinish_output(); |
1000 |
vs_top=sup; |
vs_top=sup; |
1001 |
{register object V116; |
{register object V120; |
1002 |
base[3]= symbol_value(VV[50]); |
{long V121; |
1003 |
vs_top=(vs_base=base+3)+1; |
V121= 0; |
1004 |
Lread_char(); |
if(!((type_of((VV[50]->s.s_dbind))==t_stream? (((VV[50]->s.s_dbind))->sm.sm_fp)!=0: 0 ))){ |
1005 |
vs_top=sup; |
goto T408;} |
1006 |
V116= vs_base[0]; |
V121= (long)getc(((VV[50]->s.s_dbind))->sm.sm_fp); |
1007 |
goto T392; |
if(!((V121)==(-1))){ |
1008 |
T392:; |
goto T413;} |
1009 |
base[3]= (V116); |
if(!((feof(((VV[50]->s.s_dbind))->sm.sm_fp)))){ |
1010 |
base[4]= VV[65]; |
goto T413;} |
1011 |
vs_top=(vs_base=base+3)+2; |
V120= Cnil; |
1012 |
Lchar_neq(); |
goto T405; |
1013 |
vs_top=sup; |
goto T413; |
1014 |
if((vs_base[0])==Cnil){ |
T413:; |
1015 |
goto T393;} |
V120= code_char((V121)); |
1016 |
base[3]= (V116); |
goto T405; |
1017 |
base[4]= VV[66]; |
goto T408; |
1018 |
vs_top=(vs_base=base+3)+2; |
T408:; |
1019 |
Lchar_neq(); |
V120= read_char1((VV[50]->s.s_dbind),Cnil);} |
1020 |
vs_top=sup; |
goto T405; |
1021 |
if((vs_base[0])==Cnil){ |
T405:; |
1022 |
goto T393;} |
goto T418; |
1023 |
V115= (V116); |
T418:; |
1024 |
goto T388; |
if(!(char_code((V120))!=char_code(VV[65]))){ |
1025 |
goto T393; |
goto T419;} |
1026 |
T393:; |
if(!(char_code((V120))!=char_code(VV[66]))){ |
1027 |
base[3]= symbol_value(VV[50]); |
goto T419;} |
1028 |
vs_top=(vs_base=base+3)+1; |
V119= (V120); |
1029 |
Lread_char(); |
goto T404; |
1030 |
vs_top=sup; |
goto T419; |
1031 |
V116= vs_base[0]; |
T419:; |
1032 |
goto T392;} |
{register long V122; |
1033 |
goto T388; |
V122= 0; |
1034 |
T388:; |
if(!((type_of((VV[50]->s.s_dbind))==t_stream? (((VV[50]->s.s_dbind))->sm.sm_fp)!=0: 0 ))){ |
1035 |
{object V114= V115; |
goto T429;} |
1036 |
if(!eql(V114,VV[51]) |
V122= (long)getc(((VV[50]->s.s_dbind))->sm.sm_fp); |
1037 |
&& !eql(V114,VV[52]))goto T407; |
if(!((V122)==(-1))){ |
1038 |
base[3]= (V108); |
goto T434;} |
1039 |
base[4]= symbol_function(VV[60]); |
if(!((feof(((VV[50]->s.s_dbind))->sm.sm_fp)))){ |
1040 |
|
goto T434;} |
1041 |
|
V120= Cnil; |
1042 |
|
goto T426; |
1043 |
|
goto T434; |
1044 |
|
T434:; |
1045 |
|
V120= code_char((V122)); |
1046 |
|
goto T426; |
1047 |
|
goto T429; |
1048 |
|
T429:; |
1049 |
|
V120= read_char1((VV[50]->s.s_dbind),Cnil);} |
1050 |
|
goto T426; |
1051 |
|
T426:; |
1052 |
|
goto T418;} |
1053 |
|
goto T404; |
1054 |
|
T404:; |
1055 |
|
{object V118= V119; |
1056 |
|
if(!eql(V118,VV[51]) |
1057 |
|
&& !eql(V118,VV[52]))goto T439; |
1058 |
|
base[3]= (V112); |
1059 |
|
base[4]= (VV[60]->s.s_gfdef); |
1060 |
base[5]= Cnil; |
base[5]= Cnil; |
1061 |
base[6]= (V109); |
base[6]= (V113); |
1062 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
1063 |
Levalhook(); |
Levalhook(); |
1064 |
Llist(); |
Llist(); |
1065 |
vs_top=sup; |
vs_top=sup; |
1066 |
V110= vs_base[0]; |
V114= vs_base[0]; |
1067 |
goto T377; |
goto T393; |
1068 |
goto T407; |
goto T439; |
1069 |
T407:; |
T439:; |
1070 |
if(!eql(V114,VV[67]) |
if(!eql(V118,VV[67]) |
1071 |
&& !eql(V114,VV[68]))goto T415; |
&& !eql(V118,VV[68]))goto T447; |
1072 |
(void)((*(LnkLI111))()); |
(void)((*(LnkLI111))()); |
1073 |
base[3]= (V108); |
base[3]= (V112); |
1074 |
base[4]= symbol_function(VV[60]); |
base[4]= (VV[60]->s.s_gfdef); |
1075 |
base[5]= Cnil; |
base[5]= Cnil; |
1076 |
base[6]= (V109); |
base[6]= (V113); |
1077 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
1078 |
Levalhook(); |
Levalhook(); |
1079 |
Llist(); |
Llist(); |
1080 |
vs_top=sup; |
vs_top=sup; |
1081 |
V110= vs_base[0]; |
V114= vs_base[0]; |
1082 |
goto T377; |
goto T393; |
1083 |
goto T415; |
goto T447; |
1084 |
T415:; |
T447:; |
1085 |
if(!eql(V114,VV[69]) |
if(!eql(V118,VV[69]) |
1086 |
&& !eql(V114,VV[70]))goto T424; |
&& !eql(V118,VV[70]))goto T456; |
1087 |
(void)((*(LnkLI111))()); |
(void)((*(LnkLI111))()); |
1088 |
base[3]= (V108); |
base[3]= (V112); |
1089 |
base[4]= Cnil; |
base[4]= Cnil; |
1090 |
base[5]= Cnil; |
base[5]= Cnil; |
1091 |
base[6]= (V109); |
base[6]= (V113); |
1092 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
1093 |
Levalhook(); |
Levalhook(); |
1094 |
Llist(); |
Llist(); |
1095 |
vs_top=sup; |
vs_top=sup; |
1096 |
V110= vs_base[0]; |
V114= vs_base[0]; |
1097 |
goto T377; |
goto T393; |
1098 |
goto T424; |
goto T456; |
1099 |
T424:; |
T456:; |
1100 |
if(!eql(V114,VV[71]) |
if(!eql(V118,VV[71]) |
1101 |
&& !eql(V114,VV[72]))goto T433; |
&& !eql(V118,VV[72]))goto T465; |
1102 |
(void)((*(LnkLI111))()); |
(void)((*(LnkLI111))()); |
1103 |
base[3]= (V108); |
base[3]= (V112); |
1104 |
base[4]= VV[73]; |
base[4]= VV[73]; |
1105 |
base[5]= symbol_value(VV[50]); |
base[5]= (VV[50]->s.s_dbind); |
1106 |
base[6]= VV[74]; |
base[6]= VV[74]; |
1107 |
base[7]= Ct; |
base[7]= Ct; |
1108 |
base[8]= VV[75]; |
base[8]= VV[75]; |
1113 |
Lwrite(); |
Lwrite(); |
1114 |
vs_top=sup; |
vs_top=sup; |
1115 |
princ_char(10,Cnil); |
princ_char(10,Cnil); |
1116 |
goto T380; |
goto T396; |
1117 |
goto T433; |
goto T465; |
1118 |
T433:; |
T465:; |
1119 |
if(!eql(V114,VV[77]) |
if(!eql(V118,VV[77]) |
1120 |
&& !eql(V114,VV[78]))goto T445; |
&& !eql(V118,VV[78]))goto T477; |
1121 |
base[4]= Cnil; |
base[4]= Cnil; |
1122 |
base[5]= Cnil; |
base[5]= Cnil; |
1123 |
frs_push(FRS_PROTECT,Cnil); |
frs_push(FRS_PROTECT,Cnil); |
1124 |
{object tag=Cnil;frame_ptr fr=NULL;object p;bool active; |
{object tag=Cnil;frame_ptr fr=NULL;object p;bool active; |
1125 |
if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;} |
if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;} |
1126 |
else{ |
else{ |
1127 |
{object V117; |
{object V123; |
1128 |
base[7]= symbol_value(VV[50]); |
base[7]= (VV[50]->s.s_dbind); |
1129 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1130 |
(void) (*Lnk112)(); |
(void) (*Lnk112)(); |
1131 |
vs_top=sup; |
vs_top=sup; |
1132 |
V117= vs_base[0]; |
V123= vs_base[0]; |
1133 |
(void)((*(LnkLI111))()); |
(void)((*(LnkLI111))()); |
1134 |
base[4]= (V117);} |
base[4]= (V123);} |
1135 |
base[5]= Ct; |
base[5]= Ct; |
1136 |
base[7]= Ct; |
base[7]= Ct; |
1137 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1142 |
vs_top=sup; |
vs_top=sup; |
1143 |
nlj_active=FALSE;frs_pop(); |
nlj_active=FALSE;frs_pop(); |
1144 |
if((base[5])==Cnil){ |
if((base[5])==Cnil){ |
1145 |
goto T456;} |
goto T488;} |
1146 |
base[3]= base[4]; |
base[3]= base[4]; |
1147 |
goto T446; |
goto T478; |
1148 |
goto T456; |
goto T488; |
1149 |
T456:; |
T488:; |
1150 |
base[3]= Cnil; |
base[3]= Cnil; |
1151 |
goto T446; |
goto T478; |
1152 |
vs_base=vs_top=base+7; |
vs_base=vs_top=base+7; |
1153 |
for(p= base[6];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
for(p= base[6];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
1154 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
1155 |
vs_top=sup; |
vs_top=sup; |
1156 |
base[3]= vs_base[0];}} |
base[3]= vs_base[0];}} |
1157 |
goto T446; |
goto T478; |
1158 |
T446:; |
T478:; |
1159 |
bds_bind(VV[63],base[3]); |
bds_bind(VV[63],base[3]); |
1160 |
base[4]= (V108); |
base[4]= (V112); |
1161 |
base[5]= symbol_function(VV[60]); |
base[5]= (VV[60]->s.s_gfdef); |
1162 |
base[6]= Cnil; |
base[6]= Cnil; |
1163 |
base[7]= (V109); |
base[7]= (V113); |
1164 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
1165 |
Levalhook(); |
Levalhook(); |
1166 |
Llist(); |
Llist(); |
1167 |
vs_top=sup; |
vs_top=sup; |
1168 |
V110= vs_base[0]; |
V114= vs_base[0]; |
1169 |
bds_unwind1; |
bds_unwind1; |
1170 |
goto T377; |
goto T393; |
1171 |
goto T445; |
goto T477; |
1172 |
T445:; |
T477:; |
1173 |
if(!eql(V114,VV[79]) |
if(!eql(V118,VV[79]) |
1174 |
&& !eql(V114,VV[80]))goto T465; |
&& !eql(V118,VV[80]))goto T497; |
1175 |
(void)((*(LnkLI111))()); |
(void)((*(LnkLI111))()); |
1176 |
setq(VV[62],Ct); |
(VV[62]->s.s_dbind)= Ct; |
1177 |
base[3]= (V108); |
base[3]= (V112); |
1178 |
base[4]= Cnil; |
base[4]= Cnil; |
1179 |
base[5]= Cnil; |
base[5]= Cnil; |
1180 |
base[6]= (V109); |
base[6]= (V113); |
1181 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
1182 |
Levalhook(); |
Levalhook(); |
1183 |
Llist(); |
Llist(); |
1184 |
vs_top=sup; |
vs_top=sup; |
1185 |
V110= vs_base[0]; |
V114= vs_base[0]; |
1186 |
goto T377; |
goto T393; |
1187 |
goto T465; |
goto T497; |
1188 |
T465:; |
T497:; |
1189 |
if(!eql(V114,VV[81]) |
if(!eql(V118,VV[81]) |
1190 |
&& !eql(V114,VV[82]))goto T476; |
&& !eql(V118,VV[82]))goto T508; |
1191 |
(void)((*(LnkLI111))()); |
(void)((*(LnkLI111))()); |
1192 |
setq(VV[62],(VV[61]->s.s_dbind)); |
(VV[62]->s.s_dbind)= (VV[61]->s.s_dbind); |
1193 |
base[3]= (V108); |
base[3]= (V112); |
1194 |
base[4]= Cnil; |
base[4]= Cnil; |
1195 |
base[5]= Cnil; |
base[5]= Cnil; |
1196 |
base[6]= (V109); |
base[6]= (V113); |
1197 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
1198 |
Levalhook(); |
Levalhook(); |
1199 |
Llist(); |
Llist(); |
1200 |
vs_top=sup; |
vs_top=sup; |
1201 |
V110= vs_base[0]; |
V114= vs_base[0]; |
1202 |
goto T377; |
goto T393; |
1203 |
goto T476; |
goto T508; |
1204 |
T476:; |
T508:; |
1205 |
if(!eql(V114,VV[83]) |
if(!eql(V118,VV[83]) |
1206 |
&& !eql(V114,VV[84]))goto T487; |
&& !eql(V118,VV[84]))goto T519; |
1207 |
base[3]= (V109); |
base[3]= (V113); |
1208 |
{VOL object V118; |
{VOL object V124; |
1209 |
VOL object V119; |
VOL object V125; |
1210 |
base[6]= Cnil; |
base[6]= Cnil; |
1211 |
base[7]= Cnil; |
base[7]= Cnil; |
1212 |
frs_push(FRS_PROTECT,Cnil); |
frs_push(FRS_PROTECT,Cnil); |
1219 |
{object tag=Cnil;frame_ptr fr=NULL;object p;bool active; |
{object tag=Cnil;frame_ptr fr=NULL;object p;bool active; |
1220 |
if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;} |
if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;} |
1221 |
else{ |
else{ |
1222 |
{object V120; |
{object V126; |
1223 |
base[13]= symbol_value(VV[50]); |
base[13]= (VV[50]->s.s_dbind); |
1224 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+13)+1; |
1225 |
(void) (*Lnk112)(); |
(void) (*Lnk112)(); |
1226 |
vs_top=sup; |
vs_top=sup; |
1227 |
V120= vs_base[0]; |
V126= vs_base[0]; |
1228 |
(void)((*(LnkLI111))()); |
(void)((*(LnkLI111))()); |
1229 |
base[10]= (V120);} |
base[10]= (V126);} |
1230 |
base[11]= Ct; |
base[11]= Ct; |
1231 |
base[13]= Ct; |
base[13]= Ct; |
1232 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+13)+1; |
1237 |
vs_top=sup; |
vs_top=sup; |
1238 |
nlj_active=FALSE;frs_pop(); |
nlj_active=FALSE;frs_pop(); |
1239 |
if((base[11])==Cnil){ |
if((base[11])==Cnil){ |
1240 |
goto T503;} |
goto T535;} |
1241 |
base[9]= base[10]; |
base[9]= base[10]; |
1242 |
goto T493; |
goto T525; |
1243 |
goto T503; |
goto T535; |
1244 |
T503:; |
T535:; |
1245 |
base[9]= Cnil; |
base[9]= Cnil; |
1246 |
goto T493; |
goto T525; |
1247 |
vs_base=vs_top=base+13; |
vs_base=vs_top=base+13; |
1248 |
for(p= base[12];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
for(p= base[12];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
1249 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
1250 |
vs_top=sup; |
vs_top=sup; |
1251 |
base[9]= vs_base[0];}} |
base[9]= vs_base[0];}} |
1252 |
goto T493; |
goto T525; |
1253 |
T493:; |
T525:; |
1254 |
base[10]= Cnil; |
base[10]= Cnil; |
1255 |
base[11]= Cnil; |
base[11]= Cnil; |
1256 |
base[12]= base[3]; |
base[12]= base[3]; |
1269 |
vs_top=sup; |
vs_top=sup; |
1270 |
nlj_active=FALSE;frs_pop(); |
nlj_active=FALSE;frs_pop(); |
1271 |
if((base[7])==Cnil){ |
if((base[7])==Cnil){ |
1272 |
goto T511;} |
goto T543;} |
1273 |
V118= base[6]; |
V124= base[6]; |
1274 |
goto T488; |
goto T520; |
1275 |
goto T511; |
goto T543; |
1276 |
T511:; |
T543:; |
1277 |
V118= Cnil; |
V124= Cnil; |
1278 |
goto T488; |
goto T520; |
1279 |
vs_base=vs_top=base+9; |
vs_base=vs_top=base+9; |
1280 |
for(p= base[8];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
for(p= base[8];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
1281 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
1282 |
vs_top=sup; |
vs_top=sup; |
1283 |
V118= vs_base[0];}} |
V124= vs_base[0];}} |
1284 |
goto T488; |
goto T520; |
1285 |
T488:; |
T520:; |
1286 |
V119= car((V118)); |
V125= CMPcar((V124)); |
1287 |
goto T515; |
goto T547; |
1288 |
T515:; |
T547:; |
1289 |
if(!(endp_prop((V118)))){ |
if(!(((V124))==Cnil)){ |
1290 |
goto T516;} |
goto T548;} |
1291 |
goto T380; |
goto T396; |
1292 |
goto T516; |
goto T548; |
1293 |
T516:; |
T548:; |
1294 |
base[6]= (V119); |
base[6]= (V125); |
1295 |
base[7]= VV[73]; |
base[7]= VV[73]; |
1296 |
base[8]= symbol_value(VV[50]); |
base[8]= (VV[50]->s.s_dbind); |
1297 |
base[9]= VV[75]; |
base[9]= VV[75]; |
1298 |
base[10]= symbol_value(VV[85]); |
base[10]= (VV[85]->s.s_dbind); |
1299 |
base[11]= VV[76]; |
base[11]= VV[76]; |
1300 |
base[12]= symbol_value(VV[86]); |
base[12]= (VV[86]->s.s_dbind); |
1301 |
vs_top=(vs_base=base+6)+7; |
vs_top=(vs_base=base+6)+7; |
1302 |
Lwrite(); |
Lwrite(); |
1303 |
vs_top=sup; |
vs_top=sup; |
1304 |
princ_char(10,VV[50]); |
princ_char(10,VV[50]); |
1305 |
V118= cdr((V118)); |
V124= CMPcdr((V124)); |
1306 |
V119= car((V118)); |
V125= CMPcar((V124)); |
1307 |
goto T515;} |
goto T547;} |
1308 |
goto T487; |
goto T519; |
1309 |
T487:; |
T519:; |
1310 |
if(!eql(V114,VV[87]) |
if(!eql(V118,VV[87]) |
1311 |
&& !eql(V114,VV[88]))goto T534; |
&& !eql(V118,VV[88]))goto T566; |
1312 |
base[3]= (V109); |
base[3]= (V113); |
1313 |
base[4]= Cnil; |
base[4]= Cnil; |
1314 |
base[5]= Cnil; |
base[5]= Cnil; |
1315 |
frs_push(FRS_PROTECT,Cnil); |
frs_push(FRS_PROTECT,Cnil); |
1322 |
{object tag=Cnil;frame_ptr fr=NULL;object p;bool active; |
{object tag=Cnil;frame_ptr fr=NULL;object p;bool active; |
1323 |
if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;} |
if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;} |
1324 |
else{ |
else{ |
1325 |
{object V121; |
{object V127; |
1326 |
base[11]= symbol_value(VV[50]); |
base[11]= (VV[50]->s.s_dbind); |
1327 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
1328 |
(void) (*Lnk112)(); |
(void) (*Lnk112)(); |
1329 |
vs_top=sup; |
vs_top=sup; |
1330 |
V121= vs_base[0]; |
V127= vs_base[0]; |
1331 |
(void)((*(LnkLI111))()); |
(void)((*(LnkLI111))()); |
1332 |
base[8]= (V121);} |
base[8]= (V127);} |
1333 |
base[9]= Ct; |
base[9]= Ct; |
1334 |
base[11]= Ct; |
base[11]= Ct; |
1335 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
1340 |
vs_top=sup; |
vs_top=sup; |
1341 |
nlj_active=FALSE;frs_pop(); |
nlj_active=FALSE;frs_pop(); |
1342 |
if((base[9])==Cnil){ |
if((base[9])==Cnil){ |
1343 |
goto T551;} |
goto T583;} |
1344 |
base[7]= base[8]; |
base[7]= base[8]; |
1345 |
goto T541; |
goto T573; |
1346 |
goto T551; |
goto T583; |
1347 |
T551:; |
T583:; |
1348 |
base[7]= Cnil; |
base[7]= Cnil; |
1349 |
goto T541; |
goto T573; |
1350 |
vs_base=vs_top=base+11; |
vs_base=vs_top=base+11; |
1351 |
for(p= base[10];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
for(p= base[10];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
1352 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
1353 |
vs_top=sup; |
vs_top=sup; |
1354 |
base[7]= vs_base[0];}} |
base[7]= vs_base[0];}} |
1355 |
goto T541; |
goto T573; |
1356 |
T541:; |
T573:; |
1357 |
base[8]= Cnil; |
base[8]= Cnil; |
1358 |
base[9]= Cnil; |
base[9]= Cnil; |
1359 |
base[10]= base[3]; |
base[10]= base[3]; |
1372 |
vs_top=sup; |
vs_top=sup; |
1373 |
nlj_active=FALSE;frs_pop(); |
nlj_active=FALSE;frs_pop(); |
1374 |
if((base[5])==Cnil){ |
if((base[5])==Cnil){ |
1375 |
goto T559;} |
goto T591;} |
1376 |
V110= base[4]; |
V114= base[4]; |
1377 |
goto T536; |
goto T568; |
1378 |
goto T559; |
goto T591; |
1379 |
T559:; |
T591:; |
1380 |
V110= Cnil; |
V114= Cnil; |
1381 |
goto T536; |
goto T568; |
1382 |
vs_base=vs_top=base+7; |
vs_base=vs_top=base+7; |
1383 |
for(p= base[6];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
for(p= base[6];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
1384 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
1385 |
vs_top=sup; |
vs_top=sup; |
1386 |
V110= vs_base[0];}} |
V114= vs_base[0];}} |
1387 |
goto T536; |
goto T568; |
1388 |
T536:; |
T568:; |
1389 |
goto T377; |
goto T393; |
1390 |
goto T534; |
goto T566; |
1391 |
T534:; |
T566:; |
1392 |
if(!eql(V114,VV[89]) |
if(!eql(V118,VV[89]) |
1393 |
&& !eql(V114,VV[90]))goto T561; |
&& !eql(V118,VV[90]))goto T593; |
1394 |
(void)((*(LnkLI111))()); |
(void)((*(LnkLI111))()); |
1395 |
base[3]= one_plus(symbol_value(VV[92])); |
base[3]= one_plus((VV[92]->s.s_dbind)); |
1396 |
vs_base=vs_top; |
vs_base=vs_top; |
1397 |
(void) (*Lnk113)(); |
(void) (*Lnk113)(); |
1398 |
vs_top=sup; |
vs_top=sup; |
1399 |
V122= vs_base[0]; |
V128= vs_base[0]; |
1400 |
base[4]= one_minus(V122); |
base[4]= one_minus(V128); |
1401 |
base[5]= symbol_value(VV[92]); |
base[5]= (VV[92]->s.s_dbind); |
1402 |
bds_bind(VV[91],base[3]); |
bds_bind(VV[91],base[3]); |
1403 |
bds_bind(VV[92],base[4]); |
bds_bind(VV[92],base[4]); |
1404 |
bds_bind(VV[93],base[5]); |
bds_bind(VV[93],base[5]); |
1408 |
bds_unwind1; |
bds_unwind1; |
1409 |
bds_unwind1; |
bds_unwind1; |
1410 |
bds_unwind1; |
bds_unwind1; |
1411 |
goto T380; |
goto T396; |
1412 |
goto T561; |
goto T593; |
1413 |
T561:; |
T593:; |
1414 |
(void)((*(LnkLI111))()); |
(void)((*(LnkLI111))()); |
1415 |
princ_char(10,Cnil); |
princ_char(10,Cnil); |
1416 |
base[3]= symbol_value(VV[50]); |
base[3]= (VV[50]->s.s_dbind); |
1417 |
base[4]= VV[94]; |
base[4]= VV[94]; |
1418 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1419 |
Lformat(); |
Lformat(); |
1420 |
vs_top=sup; |
vs_top=sup; |
1421 |
princ_char(10,Cnil);} |
princ_char(10,Cnil);} |
1422 |
goto T380; |
goto T396; |
1423 |
T380:; |
T396:; |
1424 |
goto T379; |
goto T395; |
1425 |
goto T377; |
goto T393; |
1426 |
T377:; |
T393:; |
1427 |
base[3]= (V108); |
base[3]= (V112); |
1428 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1429 |
Lconstantp(); |
Lconstantp(); |
1430 |
vs_top=sup; |
vs_top=sup; |
1431 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1432 |
goto T574;} |
goto T606;} |
1433 |
if(!(type_of((V108))==t_cons)){ |
if(!(type_of((V112))==t_cons)){ |
1434 |
goto T573;} |
goto T605;} |
1435 |
if(!((car((V108)))==(VV[7]))){ |
if(!((CMPcar((V112)))==(VV[7]))){ |
1436 |
goto T573;} |
goto T605;} |
1437 |
goto T574; |
goto T606; |
1438 |
T574:; |
T606:; |
1439 |
base[3]= car((V110)); |
base[3]= CMPcar((V114)); |
1440 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1441 |
bds_unwind1; |
bds_unwind1; |
1442 |
return; |
return; |
1443 |
goto T573; |
goto T605; |
1444 |
T573:; |
T605:; |
1445 |
if(!(endp_prop((V110)))){ |
if(!(((V114))==Cnil)){ |
1446 |
goto T583;} |
goto T615;} |
1447 |
base[3]= symbol_value(VV[50]); |
base[3]= (VV[50]->s.s_dbind); |
1448 |
base[4]= VV[95]; |
base[4]= VV[95]; |
1449 |
base[5]= (V111); |
base[5]= (V115); |
1450 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1451 |
Lformat(); |
Lformat(); |
1452 |
vs_top=sup; |
vs_top=sup; |
1453 |
goto T581; |
goto T613; |
1454 |
goto T583; |
goto T615; |
1455 |
T583:; |
T615:; |
1456 |
{object V123; |
{object V129; |
1457 |
object V124; |
object V130; |
1458 |
V123= (V110); |
V129= (V114); |
1459 |
V124= Ct; |
V130= Ct; |
1460 |
goto T589; |
goto T621; |
1461 |
T589:; |
T621:; |
1462 |
if(!(endp_prop((V123)))){ |
if(!(((V129))==Cnil)){ |
1463 |
goto T590;} |
goto T622;} |
1464 |
goto T581; |
goto T613; |
1465 |
goto T590; |
goto T622; |
1466 |
T590:; |
T622:; |
1467 |
if(((V124))==Cnil){ |
if(((V130))==Cnil){ |
1468 |
goto T596;} |
goto T628;} |
1469 |
base[3]= symbol_value(VV[50]); |
base[3]= (VV[50]->s.s_dbind); |
1470 |
base[4]= VV[96]; |
base[4]= VV[96]; |
1471 |
base[5]= (V111); |
base[5]= (V115); |
1472 |
base[6]= car((V123)); |
base[6]= CMPcar((V129)); |
1473 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
1474 |
Lformat(); |
Lformat(); |
1475 |
vs_top=sup; |
vs_top=sup; |
1476 |
goto T594; |
goto T626; |
1477 |
goto T596; |
goto T628; |
1478 |
T596:; |
T628:; |
1479 |
base[3]= symbol_value(VV[50]); |
base[3]= (VV[50]->s.s_dbind); |
1480 |
base[4]= VV[97]; |
base[4]= VV[97]; |
1481 |
base[5]= (V111); |
base[5]= (V115); |
1482 |
base[6]= car((V123)); |
base[6]= CMPcar((V129)); |
1483 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
1484 |
Lformat(); |
Lformat(); |
1485 |
vs_top=sup; |
vs_top=sup; |
1486 |
goto T594; |
goto T626; |
1487 |
T594:; |
T626:; |
1488 |
V123= cdr((V123)); |
V129= CMPcdr((V129)); |
1489 |
V124= Cnil; |
V130= Cnil; |
1490 |
goto T589;} |
goto T621;} |
1491 |
goto T581; |
goto T613; |
1492 |
T581:; |
T613:; |
1493 |
(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)); |
1494 |
base[3]= (V110); |
base[3]= (V114); |
1495 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1496 |
Lvalues_list(); |
Lvalues_list(); |
1497 |
bds_unwind1; |
bds_unwind1; |
1504 |
register object *base0; |
register object *base0; |
1505 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1506 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM16; VC16 |
1507 |
vs_reserve(VM16); |
vs_check; |
1508 |
{object V125; |
{object V131; |
1509 |
check_arg(1); |
V131=(base[0]); |
|
V125=(base[0]); |
|
1510 |
vs_top=sup; |
vs_top=sup; |
1511 |
base[1]= ((car((V125)))==((base0[0]->c.c_car))?Ct:Cnil); |
base[1]= ((CMPcar((V131)))==((base0[0]->c.c_car))?Ct:Cnil); |
1512 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1513 |
return; |
return; |
1514 |
} |
} |