47 |
|
|
48 |
register object V9;object V10; |
register object V9;object V10; |
49 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
50 |
goto TTL; |
goto TTL; |
51 |
TTL:; |
TTL:; |
52 |
V11= structure_ref((V10),VV[0],0); |
V11= structure_ref((V10),VV[0],0); |
53 |
V12= structure_ref((V9),VV[0],0); |
V12= structure_ref((V9),VV[0],0); |
61 |
goto T11;} |
goto T11;} |
62 |
{object V17 = structure_set((V9),VV[0],3,Ct); |
{object V17 = structure_set((V9),VV[0],3,Ct); |
63 |
VMR2(V17)} |
VMR2(V17)} |
64 |
goto T11; |
goto T11; |
65 |
T11:; |
T11:; |
66 |
{object V18 = Cnil; |
{object V18 = Cnil; |
67 |
VMR2(V18)} |
VMR2(V18)} |
73 |
|
|
74 |
register object V21;object V22; |
register object V21;object V22; |
75 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
76 |
goto TTL; |
goto TTL; |
77 |
TTL:; |
TTL:; |
78 |
V24= structure_ref((V21),VV[1],1); |
V24= structure_ref((V21),VV[1],1); |
79 |
{object V23= /* INLINE-ARGS */V24; |
{object V23= /* INLINE-ARGS */V24; |
83 |
|| (V23== VV[46]) |
|| (V23== VV[46]) |
84 |
|| (V23== VV[47]))goto T14; |
|| (V23== VV[47]))goto T14; |
85 |
if((V23!= VV[18]))goto T13; |
if((V23!= VV[18]))goto T13; |
86 |
goto T14; |
goto T14; |
87 |
T14:; |
T14:; |
88 |
{register object V25; |
{register object V25; |
89 |
register object V26; |
register object V26; |
90 |
V25= (V22); |
V25= (V22); |
91 |
V26= car((V25)); |
V26= car((V25)); |
92 |
goto T18; |
goto T18; |
93 |
T18:; |
T18:; |
94 |
if(!(endp_prop((V25)))){ |
if(!(endp_prop((V25)))){ |
95 |
goto T19;} |
goto T19;} |
96 |
{object V27 = Cnil; |
{object V27 = Cnil; |
97 |
VMR3(V27)} |
VMR3(V27)} |
98 |
goto T19; |
goto T19; |
99 |
T19:; |
T19:; |
100 |
V29= structure_ref(cadr((V26)),VV[0],0); |
V29= structure_ref(cadr((V26)),VV[0],0); |
101 |
{register object x= (V21),V28= /* INLINE-ARGS */V29; |
{register object x= (V21),V28= /* INLINE-ARGS */V29; |
104 |
goto T25; |
goto T25; |
105 |
}else V28=V28->c.c_cdr; |
}else V28=V28->c.c_cdr; |
106 |
goto T23;} |
goto T23;} |
107 |
goto T25; |
goto T25; |
108 |
T25:; |
T25:; |
109 |
{object V30 = Ct; |
{object V30 = Ct; |
110 |
VMR3(V30)} |
VMR3(V30)} |
111 |
goto T23; |
goto T23; |
112 |
T23:; |
T23:; |
113 |
V25= cdr((V25)); |
V25= cdr((V25)); |
114 |
V26= car((V25)); |
V26= car((V25)); |
115 |
goto T18;} |
goto T18;} |
116 |
goto T13; |
goto T13; |
117 |
T13:; |
T13:; |
118 |
if((V23!= VV[73]))goto T31; |
if((V23!= VV[73]))goto T31; |
119 |
{object V31 = Cnil; |
{object V31 = Cnil; |
120 |
VMR3(V31)} |
VMR3(V31)} |
121 |
goto T31; |
goto T31; |
122 |
T31:; |
T31:; |
123 |
{register object V32; |
{register object V32; |
124 |
register object V33; |
register object V33; |
125 |
V32= (V22); |
V32= (V22); |
126 |
V33= car((V32)); |
V33= car((V32)); |
127 |
goto T35; |
goto T35; |
128 |
T35:; |
T35:; |
129 |
if(!(endp_prop((V32)))){ |
if(!(endp_prop((V32)))){ |
130 |
goto T36;} |
goto T36;} |
131 |
{object V34 = Cnil; |
{object V34 = Cnil; |
132 |
VMR3(V34)} |
VMR3(V34)} |
133 |
goto T36; |
goto T36; |
134 |
T36:; |
T36:; |
135 |
V36= structure_ref(cadr((V33)),VV[0],0); |
V36= structure_ref(cadr((V33)),VV[0],0); |
136 |
{register object x= (V21),V35= /* INLINE-ARGS */V36; |
{register object x= (V21),V35= /* INLINE-ARGS */V36; |
140 |
}else V35=V35->c.c_cdr;} |
}else V35=V35->c.c_cdr;} |
141 |
if((structure_ref(cadr((V33)),VV[0],3))==Cnil){ |
if((structure_ref(cadr((V33)),VV[0],3))==Cnil){ |
142 |
goto T40;} |
goto T40;} |
143 |
goto T41; |
goto T41; |
144 |
T41:; |
T41:; |
145 |
{object V37 = Ct; |
{object V37 = Ct; |
146 |
VMR3(V37)} |
VMR3(V37)} |
147 |
goto T40; |
goto T40; |
148 |
T40:; |
T40:; |
149 |
V32= cdr((V32)); |
V32= cdr((V32)); |
150 |
V33= car((V32)); |
V33= car((V32)); |
158 |
|
|
159 |
register object V40;object V41; |
register object V40;object V41; |
160 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
161 |
goto TTL; |
goto TTL; |
162 |
TTL:; |
TTL:; |
163 |
V43= structure_ref((V40),VV[1],1); |
V43= structure_ref((V40),VV[1],1); |
164 |
{object V42= /* INLINE-ARGS */V43; |
{object V42= /* INLINE-ARGS */V43; |
169 |
|| (V42== VV[46]))goto T51; |
|| (V42== VV[46]))goto T51; |
170 |
if((V42!= VV[47]) |
if((V42!= VV[47]) |
171 |
&& (V42!= VV[18]))goto T50; |
&& (V42!= VV[18]))goto T50; |
172 |
goto T51; |
goto T51; |
173 |
T51:; |
T51:; |
174 |
{register object V44; |
{register object V44; |
175 |
register object V45; |
register object V45; |
176 |
V44= (V41); |
V44= (V41); |
177 |
V45= car((V44)); |
V45= car((V44)); |
178 |
goto T55; |
goto T55; |
179 |
T55:; |
T55:; |
180 |
if(!(endp_prop((V44)))){ |
if(!(endp_prop((V44)))){ |
181 |
goto T56;} |
goto T56;} |
182 |
{object V46 = Cnil; |
{object V46 = Cnil; |
183 |
VMR4(V46)} |
VMR4(V46)} |
184 |
goto T56; |
goto T56; |
185 |
T56:; |
T56:; |
186 |
V48= structure_ref(cadr((V45)),VV[0],1); |
V48= structure_ref(cadr((V45)),VV[0],1); |
187 |
{register object x= (V40),V47= /* INLINE-ARGS */V48; |
{register object x= (V40),V47= /* INLINE-ARGS */V48; |
190 |
goto T62; |
goto T62; |
191 |
}else V47=V47->c.c_cdr; |
}else V47=V47->c.c_cdr; |
192 |
goto T60;} |
goto T60;} |
193 |
goto T62; |
goto T62; |
194 |
T62:; |
T62:; |
195 |
{object V49 = Ct; |
{object V49 = Ct; |
196 |
VMR4(V49)} |
VMR4(V49)} |
197 |
goto T60; |
goto T60; |
198 |
T60:; |
T60:; |
199 |
V44= cdr((V44)); |
V44= cdr((V44)); |
200 |
V45= car((V44)); |
V45= car((V44)); |
201 |
goto T55;} |
goto T55;} |
202 |
goto T50; |
goto T50; |
203 |
T50:; |
T50:; |
204 |
{register object V50; |
{register object V50; |
205 |
register object V51; |
register object V51; |
206 |
V50= (V41); |
V50= (V41); |
207 |
V51= car((V50)); |
V51= car((V50)); |
208 |
goto T71; |
goto T71; |
209 |
T71:; |
T71:; |
210 |
if(!(endp_prop((V50)))){ |
if(!(endp_prop((V50)))){ |
211 |
goto T72;} |
goto T72;} |
212 |
{object V52 = Cnil; |
{object V52 = Cnil; |
213 |
VMR4(V52)} |
VMR4(V52)} |
214 |
goto T72; |
goto T72; |
215 |
T72:; |
T72:; |
216 |
V54= structure_ref(cadr((V51)),VV[0],1); |
V54= structure_ref(cadr((V51)),VV[0],1); |
217 |
{register object x= (V40),V53= /* INLINE-ARGS */V54; |
{register object x= (V40),V53= /* INLINE-ARGS */V54; |
221 |
}else V53=V53->c.c_cdr;} |
}else V53=V53->c.c_cdr;} |
222 |
if((structure_ref(cadr((V51)),VV[0],3))==Cnil){ |
if((structure_ref(cadr((V51)),VV[0],3))==Cnil){ |
223 |
goto T76;} |
goto T76;} |
224 |
goto T77; |
goto T77; |
225 |
T77:; |
T77:; |
226 |
{object V55 = Ct; |
{object V55 = Ct; |
227 |
VMR4(V55)} |
VMR4(V55)} |
228 |
goto T76; |
goto T76; |
229 |
T76:; |
T76:; |
230 |
V50= cdr((V50)); |
V50= cdr((V50)); |
231 |
V51= car((V50)); |
V51= car((V50)); |
241 |
vs_reserve(VM5); |
vs_reserve(VM5); |
242 |
check_arg(0); |
check_arg(0); |
243 |
vs_top=sup; |
vs_top=sup; |
244 |
goto TTL; |
goto TTL; |
245 |
TTL:; |
TTL:; |
246 |
if(!(type_of(symbol_value(VV[2]))==t_cons)){ |
if(!(type_of(symbol_value(VV[2]))==t_cons)){ |
247 |
goto T87;} |
goto T87;} |
254 |
base[1]= (V57); |
base[1]= (V57); |
255 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
256 |
return;} |
return;} |
257 |
goto T87; |
goto T87; |
258 |
T87:; |
T87:; |
259 |
setq(VV[2],number_plus(symbol_value(VV[2]),small_fixnum(1))); |
setq(VV[2],number_plus(symbol_value(VV[2]),small_fixnum(1))); |
260 |
base[0]= symbol_value(VV[2]); |
base[0]= symbol_value(VV[2]); |
281 |
else { |
else { |
282 |
V62= first;} |
V62= first;} |
283 |
--narg; goto T94; |
--narg; goto T94; |
284 |
goto T93; |
goto T93; |
285 |
T93:; |
T93:; |
286 |
V62= Cnil; |
V62= Cnil; |
287 |
goto T94; |
goto T94; |
288 |
T94:; |
T94:; |
289 |
{register object V63; |
{register object V63; |
290 |
register object V64; |
register object V64; |
294 |
object V66; |
object V66; |
295 |
V65= (V60); |
V65= (V60); |
296 |
V66= (V61); |
V66= (V61); |
297 |
goto T99; |
goto T99; |
298 |
T99:; |
T99:; |
299 |
if(!(endp_prop((V65)))){ |
if(!(endp_prop((V65)))){ |
300 |
goto T100;} |
goto T100;} |
301 |
{object V67 = reverse((V63)); |
{object V67 = reverse((V63)); |
302 |
VMR6(V67)} |
VMR6(V67)} |
303 |
goto T100; |
goto T100; |
304 |
T100:; |
T100:; |
305 |
{register object V68; |
{register object V68; |
306 |
register object V69; |
register object V69; |
312 |
V71= (*(LnkLI74))(caddr((V68)),(V69)); |
V71= (*(LnkLI74))(caddr((V68)),(V69)); |
313 |
V63= make_cons((V71),(V63)); |
V63= make_cons((V71),(V63)); |
314 |
goto T104;} |
goto T104;} |
315 |
goto T107; |
goto T107; |
316 |
T107:; |
T107:; |
317 |
if((V70!= VV[1]))goto T110; |
if((V70!= VV[1]))goto T110; |
318 |
if(((*(LnkLI75))(caaddr((V68)),cdr((V65))))==Cnil){ |
if(((*(LnkLI75))(caaddr((V68)),cdr((V65))))==Cnil){ |
324 |
goto T117; |
goto T117; |
325 |
}else V72=V72->c.c_cdr; |
}else V72=V72->c.c_cdr; |
326 |
goto T115;} |
goto T115;} |
327 |
goto T117; |
goto T117; |
328 |
T117:; |
T117:; |
329 |
V74= structure_ref(caaddr((V68)),VV[1],1); |
V74= structure_ref(caaddr((V68)),VV[1],1); |
330 |
if(!(((V69))==(/* INLINE-ARGS */V74))){ |
if(!(((V69))==(/* INLINE-ARGS */V74))){ |
348 |
(void) (*Lnk78)(); |
(void) (*Lnk78)(); |
349 |
vs_top=sup; |
vs_top=sup; |
350 |
goto T104;} |
goto T104;} |
351 |
goto T115; |
goto T115; |
352 |
T115:; |
T115:; |
353 |
{object V79; |
{object V79; |
354 |
V79= (*(LnkLI79))(); |
V79= (*(LnkLI79))(); |
361 |
V80= (*(LnkLI74))((V79),(V69)); |
V80= (*(LnkLI74))((V79),(V69)); |
362 |
V63= make_cons((V80),(V63)); |
V63= make_cons((V80),(V63)); |
363 |
goto T104;}} |
goto T104;}} |
364 |
goto T112; |
goto T112; |
365 |
T112:; |
T112:; |
366 |
V82= structure_ref(caaddr((V68)),VV[1],1); |
V82= structure_ref(caaddr((V68)),VV[1],1); |
367 |
{register object x= /* INLINE-ARGS */V82,V81= VV[8]; |
{register object x= /* INLINE-ARGS */V82,V81= VV[8]; |
370 |
goto T145; |
goto T145; |
371 |
}else V81=V81->c.c_cdr; |
}else V81=V81->c.c_cdr; |
372 |
goto T143;} |
goto T143;} |
373 |
goto T145; |
goto T145; |
374 |
T145:; |
T145:; |
375 |
V83= structure_ref(caaddr((V68)),VV[1],1); |
V83= structure_ref(caaddr((V68)),VV[1],1); |
376 |
if(((V69))==(/* INLINE-ARGS */V83)){ |
if(((V69))==(/* INLINE-ARGS */V83)){ |
388 |
V87= list(2,VV[6],(V84)); |
V87= list(2,VV[6],(V84)); |
389 |
V63= make_cons((V87),(V63)); |
V63= make_cons((V87),(V63)); |
390 |
goto T104;}} |
goto T104;}} |
391 |
goto T143; |
goto T143; |
392 |
T143:; |
T143:; |
393 |
{object V88; |
{object V88; |
394 |
V89= make_cons(VV[1],caddr((V68))); |
V89= make_cons(VV[1],caddr((V68))); |
395 |
V88= (*(LnkLI74))(/* INLINE-ARGS */V89,(V69)); |
V88= (*(LnkLI74))(/* INLINE-ARGS */V89,(V69)); |
396 |
V63= make_cons((V88),(V63)); |
V63= make_cons((V88),(V63)); |
397 |
goto T104;} |
goto T104;} |
398 |
goto T110; |
goto T110; |
399 |
T110:; |
T110:; |
400 |
if((V70!= VV[82]))goto T158; |
if((V70!= VV[82]))goto T158; |
401 |
{object V90; |
{object V90; |
403 |
if(((*(LnkLI83))((V90)))!=Cnil){ |
if(((*(LnkLI83))((V90)))!=Cnil){ |
404 |
goto T163;} |
goto T163;} |
405 |
goto T160; |
goto T160; |
406 |
goto T163; |
goto T163; |
407 |
T163:; |
T163:; |
408 |
V91= cadddr((V68)); |
V91= cadddr((V68)); |
409 |
V92= structure_ref(cadr((V68)),VV[0],2); |
V92= structure_ref(cadr((V68)),VV[0],2); |
411 |
if(((V64))!=Cnil){ |
if(((V64))!=Cnil){ |
412 |
goto T165;} |
goto T165;} |
413 |
goto T160; |
goto T160; |
414 |
goto T165; |
goto T165; |
415 |
T165:; |
T165:; |
416 |
base[0]= (V64); |
base[0]= (V64); |
417 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
428 |
goto T173;} |
goto T173;} |
429 |
if((symbol_value(VV[9]))==Cnil){ |
if((symbol_value(VV[9]))==Cnil){ |
430 |
goto T171;} |
goto T171;} |
431 |
goto T173; |
goto T173; |
432 |
T173:; |
T173:; |
433 |
{register object x= cadr((V64)),V94= VV[10]; |
{register object x= cadr((V64)),V94= VV[10]; |
434 |
while(!endp(V94)) |
while(!endp(V94)) |
436 |
goto T180; |
goto T180; |
437 |
}else V94=V94->c.c_cdr; |
}else V94=V94->c.c_cdr; |
438 |
goto T172;} |
goto T172;} |
439 |
goto T180; |
goto T180; |
440 |
T180:; |
T180:; |
441 |
if(((V69))==(cadr((V64)))){ |
if(((V69))==(cadr((V64)))){ |
442 |
goto T172;} |
goto T172;} |
443 |
goto T171; |
goto T171; |
444 |
T171:; |
T171:; |
445 |
{object V95; |
{object V95; |
446 |
V95= (VFUN_NARGS=1,(*(LnkLI81))((V69))); |
V95= (VFUN_NARGS=1,(*(LnkLI81))((V69))); |
454 |
V97= list(2,VV[6],(V95)); |
V97= list(2,VV[6],(V95)); |
455 |
V63= make_cons((V97),(V63)); |
V63= make_cons((V97),(V63)); |
456 |
goto T104;}} |
goto T104;}} |
457 |
goto T172; |
goto T172; |
458 |
T172:; |
T172:; |
459 |
if(((*(LnkLI87))(cdr((V65)),cdr((V66))))!=Cnil){ |
if(((*(LnkLI87))(cdr((V65)),cdr((V66))))!=Cnil){ |
460 |
goto T191;} |
goto T191;} |
473 |
goto T202; |
goto T202; |
474 |
}else V98=V98->c.c_cdr; |
}else V98=V98->c.c_cdr; |
475 |
goto T191;} |
goto T191;} |
476 |
goto T202; |
goto T202; |
477 |
T202:; |
T202:; |
478 |
goto T195; |
goto T195; |
479 |
T195:; |
T195:; |
480 |
base[0]= small_fixnum(4); |
base[0]= small_fixnum(4); |
481 |
base[1]= caddr((V64)); |
base[1]= caddr((V64)); |
493 |
goto T192;} |
goto T192;} |
494 |
if((cdr((V65)))==Cnil){ |
if((cdr((V65)))==Cnil){ |
495 |
goto T192;} |
goto T192;} |
496 |
goto T191; |
goto T191; |
497 |
T191:; |
T191:; |
498 |
{object V99; |
{object V99; |
499 |
V99= Cnil; |
V99= Cnil; |
508 |
(void) (*Lnk88)(); |
(void) (*Lnk88)(); |
509 |
vs_top=sup; |
vs_top=sup; |
510 |
goto T212; |
goto T212; |
511 |
goto T214; |
goto T214; |
512 |
T214:; |
T214:; |
513 |
setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1))); |
setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1))); |
514 |
V99= symbol_value(VV[4]); |
V99= symbol_value(VV[4]); |
525 |
(void) (*Lnk89)(); |
(void) (*Lnk89)(); |
526 |
vs_top=sup; |
vs_top=sup; |
527 |
goto T232; |
goto T232; |
528 |
goto T233; |
goto T233; |
529 |
T233:; |
T233:; |
530 |
if((V101!= VV[40]))goto T235; |
if((V101!= VV[40]))goto T235; |
531 |
base[0]= (V93); |
base[0]= (V93); |
534 |
(void) (*Lnk90)(); |
(void) (*Lnk90)(); |
535 |
vs_top=sup; |
vs_top=sup; |
536 |
goto T232; |
goto T232; |
537 |
goto T235; |
goto T235; |
538 |
T235:; |
T235:; |
539 |
if((V101!= VV[72]))goto T238; |
if((V101!= VV[72]))goto T238; |
540 |
base[0]= (V93); |
base[0]= (V93); |
542 |
(void) (*Lnk91)(); |
(void) (*Lnk91)(); |
543 |
vs_top=sup; |
vs_top=sup; |
544 |
goto T232; |
goto T232; |
545 |
goto T238; |
goto T238; |
546 |
T238:; |
T238:; |
547 |
if((V101!= VV[46]))goto T240; |
if((V101!= VV[46]))goto T240; |
548 |
base[0]= (V93); |
base[0]= (V93); |
550 |
(void) (*Lnk92)(); |
(void) (*Lnk92)(); |
551 |
vs_top=sup; |
vs_top=sup; |
552 |
goto T232; |
goto T232; |
553 |
goto T240; |
goto T240; |
554 |
T240:; |
T240:; |
555 |
if((V101!= VV[47]))goto T242; |
if((V101!= VV[47]))goto T242; |
556 |
base[0]= (V93); |
base[0]= (V93); |
558 |
(void) (*Lnk93)(); |
(void) (*Lnk93)(); |
559 |
vs_top=sup; |
vs_top=sup; |
560 |
goto T232; |
goto T232; |
561 |
goto T242; |
goto T242; |
562 |
T242:; |
T242:; |
563 |
base[0]= (V93); |
base[0]= (V93); |
564 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
565 |
(void) (*Lnk88)(); |
(void) (*Lnk88)(); |
566 |
vs_top=sup;} |
vs_top=sup;} |
567 |
goto T232; |
goto T232; |
568 |
T232:; |
T232:; |
569 |
vs_base=vs_top; |
vs_base=vs_top; |
570 |
(void) (*Lnk78)(); |
(void) (*Lnk78)(); |
571 |
vs_top=sup; |
vs_top=sup; |
572 |
goto T212; |
goto T212; |
573 |
T212:; |
T212:; |
574 |
princ_char(59,VV[5]); |
princ_char(59,VV[5]); |
575 |
{object V102; |
{object V102; |
576 |
V102= list(3,VV[6],(V99),VV[7]); |
V102= list(3,VV[6],(V99),VV[7]); |
577 |
V63= make_cons((V102),(V63)); |
V63= make_cons((V102),(V63)); |
578 |
goto T104;}} |
goto T104;}} |
579 |
goto T192; |
goto T192; |
580 |
T192:; |
T192:; |
581 |
{object V103; |
{object V103; |
582 |
V103= (*(LnkLI74))((V93),(V69)); |
V103= (*(LnkLI74))((V93),(V69)); |
583 |
V63= make_cons((V103),(V63)); |
V63= make_cons((V103),(V63)); |
584 |
goto T104;}} |
goto T104;}} |
585 |
goto T160; |
goto T160; |
586 |
T160:; |
T160:; |
587 |
{object V104; |
{object V104; |
588 |
if((symbol_value(VV[9]))==Cnil){ |
if((symbol_value(VV[9]))==Cnil){ |
589 |
goto T253;} |
goto T253;} |
590 |
V104= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI81))())); |
V104= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI81))())); |
591 |
goto T251; |
goto T251; |
592 |
goto T253; |
goto T253; |
593 |
T253:; |
T253:; |
594 |
V104= list(2,VV[12],(*(LnkLI94))()); |
V104= list(2,VV[12],(*(LnkLI94))()); |
595 |
goto T251; |
goto T251; |
596 |
T251:; |
T251:; |
597 |
bds_bind(VV[13],(V104)); |
bds_bind(VV[13],(V104)); |
598 |
V105= (*(LnkLI95))((V68)); |
V105= (*(LnkLI95))((V68)); |
601 |
V106= (*(LnkLI74))((V104),(V69)); |
V106= (*(LnkLI74))((V104),(V69)); |
602 |
V63= make_cons((V106),(V63)); |
V63= make_cons((V106),(V63)); |
603 |
goto T104;}} |
goto T104;}} |
604 |
goto T158; |
goto T158; |
605 |
T158:; |
T158:; |
606 |
if((V70!= VV[96]))goto T258; |
if((V70!= VV[96]))goto T258; |
607 |
{object V107; |
{object V107; |
608 |
V107= (*(LnkLI97))(cdr((V68)),(V69)); |
V107= (*(LnkLI97))(cdr((V68)),(V69)); |
609 |
V63= make_cons((V107),(V63)); |
V63= make_cons((V107),(V63)); |
610 |
goto T104;} |
goto T104;} |
611 |
goto T258; |
goto T258; |
612 |
T258:; |
T258:; |
613 |
if((V70!= VV[98]))goto T261; |
if((V70!= VV[98]))goto T261; |
614 |
{object V108; |
{object V108; |
625 |
V111= (*(LnkLI74))(caddr((V109)),(V69)); |
V111= (*(LnkLI74))(caddr((V109)),(V69)); |
626 |
V63= make_cons((V111),(V63)); |
V63= make_cons((V111),(V63)); |
627 |
goto T104;} |
goto T104;} |
628 |
goto T267; |
goto T267; |
629 |
T267:; |
T267:; |
630 |
V65= listA(3,(V68),list(3,VV[1],cadr((V68)),(V108)),cdr((V65))); |
V65= listA(3,(V68),list(3,VV[1],cadr((V68)),(V108)),cdr((V65))); |
631 |
V66= make_cons((V69),(V66)); |
V66= make_cons((V69),(V66)); |
632 |
goto T104;} |
goto T104;} |
633 |
goto T261; |
goto T261; |
634 |
T261:; |
T261:; |
635 |
{object V112; |
{object V112; |
636 |
if((symbol_value(VV[9]))==Cnil){ |
if((symbol_value(VV[9]))==Cnil){ |
639 |
goto T279;} |
goto T279;} |
640 |
V112= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI81))())); |
V112= list(2,VV[6],(VFUN_NARGS=0,(*(LnkLI81))())); |
641 |
goto T274; |
goto T274; |
642 |
goto T279; |
goto T279; |
643 |
T279:; |
T279:; |
644 |
{object V113; |
{object V113; |
645 |
setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1))); |
setq(VV[4],number_plus(symbol_value(VV[4]),small_fixnum(1))); |
651 |
goto T288; |
goto T288; |
652 |
}else V115=V115->c.c_cdr; |
}else V115=V115->c.c_cdr; |
653 |
goto T287;} |
goto T287;} |
654 |
goto T288; |
goto T288; |
655 |
T288:; |
T288:; |
656 |
V114= (V69); |
V114= (V69); |
657 |
goto T285; |
goto T285; |
658 |
goto T287; |
goto T287; |
659 |
T287:; |
T287:; |
660 |
V114= VV[18]; |
V114= VV[18]; |
661 |
goto T285; |
goto T285; |
662 |
T285:; |
T285:; |
663 |
V116= (VFUN_NARGS=6,(*(LnkLI99))(VV[16],(V69),VV[17],V114,VV[19],cdar(symbol_value(VV[15])))); |
V116= (VFUN_NARGS=6,(*(LnkLI99))(VV[16],(V69),VV[17],V114,VV[19],cdar(symbol_value(VV[15])))); |
664 |
V112= list(3,VV[1],/* INLINE-ARGS */V116,Cnil); |
V112= list(3,VV[1],/* INLINE-ARGS */V116,Cnil); |
665 |
goto T274; |
goto T274; |
666 |
goto T276; |
goto T276; |
667 |
T276:; |
T276:; |
668 |
V112= list(2,VV[12],(*(LnkLI94))()); |
V112= list(2,VV[12],(*(LnkLI94))()); |
669 |
goto T274; |
goto T274; |
670 |
T274:; |
T274:; |
671 |
bds_bind(VV[13],(V112)); |
bds_bind(VV[13],(V112)); |
672 |
(void)((*(LnkLI95))((V68))); |
(void)((*(LnkLI95))((V68))); |
674 |
V117= (*(LnkLI74))((V112),(V69)); |
V117= (*(LnkLI74))((V112),(V69)); |
675 |
V63= make_cons((V117),(V63)); |
V63= make_cons((V117),(V63)); |
676 |
bds_unwind1;}}}} |
bds_unwind1;}}}} |
677 |
goto T104; |
goto T104; |
678 |
T104:; |
T104:; |
679 |
V65= cdr((V65)); |
V65= cdr((V65)); |
680 |
V66= cdr((V66)); |
V66= cdr((V66)); |
689 |
|
|
690 |
register object V120;object V121; |
register object V120;object V121; |
691 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
692 |
goto TTL; |
goto TTL; |
693 |
TTL:; |
TTL:; |
694 |
{object V122= (V121); |
{object V122= (V121); |
695 |
if((V122!= VV[45]))goto T296; |
if((V122!= VV[45]))goto T296; |
696 |
{object V123 = list(2,VV[20],(V120)); |
{object V123 = list(2,VV[20],(V120)); |
697 |
VMR7(V123)} |
VMR7(V123)} |
698 |
goto T296; |
goto T296; |
699 |
T296:; |
T296:; |
700 |
if((V122!= VV[40]))goto T297; |
if((V122!= VV[40]))goto T297; |
701 |
{object V124 = list(2,VV[21],(V120)); |
{object V124 = list(2,VV[21],(V120)); |
702 |
VMR7(V124)} |
VMR7(V124)} |
703 |
goto T297; |
goto T297; |
704 |
T297:; |
T297:; |
705 |
if((V122!= VV[72]))goto T298; |
if((V122!= VV[72]))goto T298; |
706 |
{object V125 = list(2,VV[22],(V120)); |
{object V125 = list(2,VV[22],(V120)); |
707 |
VMR7(V125)} |
VMR7(V125)} |
708 |
goto T298; |
goto T298; |
709 |
T298:; |
T298:; |
710 |
if((V122!= VV[46]))goto T299; |
if((V122!= VV[46]))goto T299; |
711 |
{object V126 = list(2,VV[23],(V120)); |
{object V126 = list(2,VV[23],(V120)); |
712 |
VMR7(V126)} |
VMR7(V126)} |
713 |
goto T299; |
goto T299; |
714 |
T299:; |
T299:; |
715 |
if((V122!= VV[47]))goto T300; |
if((V122!= VV[47]))goto T300; |
716 |
{object V127 = list(2,VV[24],(V120)); |
{object V127 = list(2,VV[24],(V120)); |
717 |
VMR7(V127)} |
VMR7(V127)} |
718 |
goto T300; |
goto T300; |
719 |
T300:; |
T300:; |
720 |
{object V128 = (V120); |
{object V128 = (V120); |
721 |
VMR7(V128)}} |
VMR7(V128)}} |
727 |
|
|
728 |
object V131;object V132; |
object V131;object V132; |
729 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
730 |
goto TTL; |
goto TTL; |
731 |
TTL:; |
TTL:; |
732 |
{object V133; |
{object V133; |
733 |
object V134; |
object V134; |
749 |
V136= Cnil; |
V136= Cnil; |
750 |
{unsigned char V137; |
{unsigned char V137; |
751 |
V137= char_code(elt((V133),V135)); |
V137= char_code(elt((V133),V135)); |
752 |
goto T316; |
goto T316; |
753 |
T316:; |
T316:; |
754 |
base[1]= code_char(V137); |
base[1]= code_char(V137); |
755 |
base[2]= VV[26]; |
base[2]= VV[26]; |
760 |
goto T317;} |
goto T317;} |
761 |
V135= (long)(V135)+(1); |
V135= (long)(V135)+(1); |
762 |
goto T313; |
goto T313; |
763 |
goto T317; |
goto T317; |
764 |
T317:; |
T317:; |
765 |
{object V138; |
{object V138; |
766 |
V138= make_fixnum((long)((long)(V137))-(48)); |
V138= make_fixnum((long)((long)(V137))-(48)); |
768 |
V135= (long)(V135)+(1); |
V135= (long)(V135)+(1); |
769 |
V137= char_code(elt((V133),V135)); |
V137= char_code(elt((V133),V135)); |
770 |
goto T316;} |
goto T316;} |
771 |
goto T313; |
goto T313; |
772 |
T313:; |
T313:; |
773 |
{object V139; |
{object V139; |
774 |
long V140; |
long V140; |
776 |
V140= 0; |
V140= 0; |
777 |
V139= (V134); |
V139= (V134); |
778 |
V141= Cnil; |
V141= Cnil; |
779 |
goto T334; |
goto T334; |
780 |
T334:; |
T334:; |
781 |
if(!(endp_prop((V139)))){ |
if(!(endp_prop((V139)))){ |
782 |
goto T335;} |
goto T335;} |
783 |
V134= reverse((V141)); |
V134= reverse((V141)); |
784 |
goto T305; |
goto T305; |
785 |
goto T335; |
goto T335; |
786 |
T335:; |
T335:; |
787 |
V143 = make_fixnum(V140); |
V143 = make_fixnum(V140); |
788 |
{register object x= V143,V142= (V136); |
{register object x= V143,V142= (V136); |
791 |
goto T343; |
goto T343; |
792 |
}else V142=V142->c.c_cdr; |
}else V142=V142->c.c_cdr; |
793 |
goto T342;} |
goto T342;} |
794 |
goto T343; |
goto T343; |
795 |
T343:; |
T343:; |
796 |
{register object V144; |
{register object V144; |
797 |
register object V145; |
register object V145; |
807 |
goto T351; |
goto T351; |
808 |
}else V147=V147->c.c_cdr; |
}else V147=V147->c.c_cdr; |
809 |
goto T347;} |
goto T347;} |
810 |
goto T351; |
goto T351; |
811 |
T351:; |
T351:; |
812 |
V146= car((V144)); |
V146= car((V144)); |
813 |
V145= cadr((V144)); |
V145= cadr((V144)); |
814 |
goto T347; |
goto T347; |
815 |
T347:; |
T347:; |
816 |
if(!(type_of((V145))==t_cons)){ |
if(!(type_of((V145))==t_cons)){ |
817 |
goto T356;} |
goto T356;} |
826 |
goto T362; |
goto T362; |
827 |
}else V149=V149->c.c_cdr; |
}else V149=V149->c.c_cdr; |
828 |
goto T356;} |
goto T356;} |
829 |
goto T362; |
goto T362; |
830 |
T362:; |
T362:; |
831 |
base[2]= small_fixnum(0); |
base[2]= small_fixnum(0); |
832 |
base[3]= cadr((V145)); |
base[3]= cadr((V145)); |
842 |
vs_top=sup; |
vs_top=sup; |
843 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
844 |
goto T356;} |
goto T356;} |
845 |
goto T355; |
goto T355; |
846 |
T355:; |
T355:; |
847 |
princ_str("\n {",VV[5]); |
princ_str("\n {",VV[5]); |
848 |
vs_base=vs_top; |
vs_base=vs_top; |
864 |
(void) (*Lnk88)(); |
(void) (*Lnk88)(); |
865 |
vs_top=sup; |
vs_top=sup; |
866 |
goto T373; |
goto T373; |
867 |
goto T379; |
goto T379; |
868 |
T379:; |
T379:; |
869 |
if((V152!= VV[20]))goto T385; |
if((V152!= VV[20]))goto T385; |
870 |
princ_str("int V",VV[5]); |
princ_str("int V",VV[5]); |
875 |
(void) (*Lnk89)(); |
(void) (*Lnk89)(); |
876 |
vs_top=sup; |
vs_top=sup; |
877 |
goto T373; |
goto T373; |
878 |
goto T385; |
goto T385; |
879 |
T385:; |
T385:; |
880 |
if((V152!= VV[21]))goto T391; |
if((V152!= VV[21]))goto T391; |
881 |
princ_str("GEN V",VV[5]); |
princ_str("GEN V",VV[5]); |
887 |
(void) (*Lnk90)(); |
(void) (*Lnk90)(); |
888 |
vs_top=sup; |
vs_top=sup; |
889 |
goto T373; |
goto T373; |
890 |
goto T391; |
goto T391; |
891 |
T391:; |
T391:; |
892 |
if((V152!= VV[22]))goto T398; |
if((V152!= VV[22]))goto T398; |
893 |
princ_str("unsigned char V",VV[5]); |
princ_str("unsigned char V",VV[5]); |
898 |
(void) (*Lnk91)(); |
(void) (*Lnk91)(); |
899 |
vs_top=sup; |
vs_top=sup; |
900 |
goto T373; |
goto T373; |
901 |
goto T398; |
goto T398; |
902 |
T398:; |
T398:; |
903 |
if((V152!= VV[23]))goto T404; |
if((V152!= VV[23]))goto T404; |
904 |
princ_str("double V",VV[5]); |
princ_str("double V",VV[5]); |
909 |
(void) (*Lnk92)(); |
(void) (*Lnk92)(); |
910 |
vs_top=sup; |
vs_top=sup; |
911 |
goto T373; |
goto T373; |
912 |
goto T404; |
goto T404; |
913 |
T404:; |
T404:; |
914 |
if((V152!= VV[24]))goto T410; |
if((V152!= VV[24]))goto T410; |
915 |
princ_str("float V",VV[5]); |
princ_str("float V",VV[5]); |
920 |
(void) (*Lnk93)(); |
(void) (*Lnk93)(); |
921 |
vs_top=sup; |
vs_top=sup; |
922 |
goto T373; |
goto T373; |
923 |
goto T410; |
goto T410; |
924 |
T410:; |
T410:; |
925 |
(void)((*(LnkLI100))());}} |
(void)((*(LnkLI100))());}} |
926 |
goto T373; |
goto T373; |
927 |
T373:; |
T373:; |
928 |
princ_char(59,VV[5]); |
princ_char(59,VV[5]); |
929 |
goto T340; |
goto T340; |
930 |
goto T356; |
goto T356; |
931 |
T356:; |
T356:; |
932 |
V141= make_cons(V144,(V141)); |
V141= make_cons(V144,(V141)); |
933 |
goto T340;} |
goto T340;} |
934 |
goto T342; |
goto T342; |
935 |
T342:; |
T342:; |
936 |
{object V154; |
{object V154; |
937 |
V154= car((V139)); |
V154= car((V139)); |
938 |
V141= make_cons((V154),(V141));} |
V141= make_cons((V154),(V141));} |
939 |
goto T340; |
goto T340; |
940 |
T340:; |
T340:; |
941 |
V139= cdr((V139)); |
V139= cdr((V139)); |
942 |
V140= (long)(V140)+1; |
V140= (long)(V140)+1; |
943 |
goto T334;}} |
goto T334;}} |
944 |
goto T305; |
goto T305; |
945 |
T305:; |
T305:; |
946 |
V155= (*(LnkLI101))(cadr((V131))); |
V155= (*(LnkLI101))(cadr((V131))); |
947 |
{object V156 = list(4,/* INLINE-ARGS */V155,caddr((V131)),(V133),(V134)); |
{object V156 = list(4,/* INLINE-ARGS */V155,caddr((V131)),(V133),(V134)); |
955 |
|
|
956 |
object V158; |
object V158; |
957 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
958 |
goto TTL; |
goto TTL; |
959 |
TTL:;{object V159; |
TTL:;{object V159; |
960 |
{register object x= (V158),V161= symbol_value(VV[31]); |
{register object x= (V158),V161= symbol_value(VV[31]); |
961 |
while(!endp(V161)) |
while(!endp(V161)) |
964 |
goto T426; |
goto T426; |
965 |
}else V161=V161->c.c_cdr; |
}else V161=V161->c.c_cdr; |
966 |
V160= Cnil;} |
V160= Cnil;} |
967 |
goto T426; |
goto T426; |
968 |
T426:; |
T426:; |
969 |
V159= cdr(V160); |
V159= cdr(V160); |
970 |
if(V159==Cnil)goto T424; |
if(V159==Cnil)goto T424; |
971 |
{object V162 = V159; |
{object V162 = V159; |
972 |
VMR9(V162)} |
VMR9(V162)} |
973 |
goto T424; |
goto T424; |
974 |
T424:;} |
T424:;} |
975 |
{object V163 = VV[32]; |
{object V163 = VV[32]; |
976 |
VMR9(V163)} |
VMR9(V163)} |
982 |
|
|
983 |
object V167;register object V168;object V169; |
object V167;register object V168;object V169; |
984 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
985 |
goto TTL; |
goto TTL; |
986 |
TTL:; |
TTL:; |
987 |
{register object V170; |
{register object V170; |
988 |
base[0]=MMcons(Cnil,Cnil); |
base[0]=MMcons(Cnil,Cnil); |
990 |
if(((VFUN_NARGS=2,(*(LnkLI102))((V167),(V168))))!=Cnil){ |
if(((VFUN_NARGS=2,(*(LnkLI102))((V167),(V168))))!=Cnil){ |
991 |
goto T429;} |
goto T429;} |
992 |
goto T428; |
goto T428; |
993 |
goto T429; |
goto T429; |
994 |
T429:; |
T429:; |
995 |
(void)((*(LnkLI103))((V167),(V169),(V168))); |
(void)((*(LnkLI103))((V167),(V169),(V168))); |
996 |
goto T428; |
goto T428; |
997 |
T428:; |
T428:; |
998 |
{object V171; |
{object V171; |
999 |
object V172= (V168); |
object V172= (V168); |
1001 |
V168= Cnil; |
V168= Cnil; |
1002 |
goto T432;} |
goto T432;} |
1003 |
base[1]=V171=MMcons(Cnil,Cnil); |
base[1]=V171=MMcons(Cnil,Cnil); |
1004 |
goto T433; |
goto T433; |
1005 |
T433:; |
T433:; |
1006 |
(V171->c.c_car)= structure_ref(cadr((V172->c.c_car)),VV[0],2); |
(V171->c.c_car)= structure_ref(cadr((V172->c.c_car)),VV[0],2); |
1007 |
V172=MMcdr(V172); |
V172=MMcdr(V172); |
1010 |
goto T432;} |
goto T432;} |
1011 |
V171=MMcdr(V171)=MMcons(Cnil,Cnil); |
V171=MMcdr(V171)=MMcons(Cnil,Cnil); |
1012 |
goto T433;} |
goto T433;} |
1013 |
goto T432; |
goto T432; |
1014 |
T432:; |
T432:; |
1015 |
if((symbol_value(VV[33]))==Cnil){ |
if((symbol_value(VV[33]))==Cnil){ |
1016 |
goto T439;} |
goto T439;} |
1018 |
if(((base[0]->c.c_car))==Cnil){ |
if(((base[0]->c.c_car))==Cnil){ |
1019 |
goto T435;} |
goto T435;} |
1020 |
goto T437; |
goto T437; |
1021 |
goto T439; |
goto T439; |
1022 |
T439:; |
T439:; |
1023 |
(base[0]->c.c_car)= get((V167),VV[35],Cnil); |
(base[0]->c.c_car)= get((V167),VV[35],Cnil); |
1024 |
if(((base[0]->c.c_car))==Cnil){ |
if(((base[0]->c.c_car))==Cnil){ |
1025 |
goto T435;} |
goto T435;} |
1026 |
goto T437; |
goto T437; |
1027 |
T437:; |
T437:; |
1028 |
{register object V174; |
{register object V174; |
1029 |
object V175; |
object V175; |
1030 |
V174= (base[0]->c.c_car); |
V174= (base[0]->c.c_car); |
1031 |
V175= car((V174)); |
V175= car((V174)); |
1032 |
goto T446; |
goto T446; |
1033 |
T446:; |
T446:; |
1034 |
if(!(endp_prop((V174)))){ |
if(!(endp_prop((V174)))){ |
1035 |
goto T447;} |
goto T447;} |
1036 |
goto T435; |
goto T435; |
1037 |
goto T447; |
goto T447; |
1038 |
T447:; |
T447:; |
1039 |
V170= (*(LnkLI104))((V175),(V168),(V169)); |
V170= (*(LnkLI104))((V175),(V168),(V169)); |
1040 |
if(((V170))==Cnil){ |
if(((V170))==Cnil){ |
1041 |
goto T451;} |
goto T451;} |
1042 |
{object V176 = (V170); |
{object V176 = (V170); |
1043 |
VMR10(V176)} |
VMR10(V176)} |
1044 |
goto T451; |
goto T451; |
1045 |
T451:; |
T451:; |
1046 |
V174= cdr((V174)); |
V174= cdr((V174)); |
1047 |
V175= car((V174)); |
V175= car((V174)); |
1048 |
goto T446;} |
goto T446;} |
1049 |
goto T435; |
goto T435; |
1050 |
T435:; |
T435:; |
1051 |
(base[0]->c.c_car)= get((V167),VV[36],Cnil); |
(base[0]->c.c_car)= get((V167),VV[36],Cnil); |
1052 |
if(((base[0]->c.c_car))==Cnil){ |
if(((base[0]->c.c_car))==Cnil){ |
1055 |
object V178; |
object V178; |
1056 |
V177= (base[0]->c.c_car); |
V177= (base[0]->c.c_car); |
1057 |
V178= car((V177)); |
V178= car((V177)); |
1058 |
goto T467; |
goto T467; |
1059 |
T467:; |
T467:; |
1060 |
if(!(endp_prop((V177)))){ |
if(!(endp_prop((V177)))){ |
1061 |
goto T468;} |
goto T468;} |
1062 |
goto T460; |
goto T460; |
1063 |
goto T468; |
goto T468; |
1064 |
T468:; |
T468:; |
1065 |
V170= (*(LnkLI104))((V178),(V168),(V169)); |
V170= (*(LnkLI104))((V178),(V168),(V169)); |
1066 |
if(((V170))==Cnil){ |
if(((V170))==Cnil){ |
1067 |
goto T472;} |
goto T472;} |
1068 |
{object V179 = (V170); |
{object V179 = (V170); |
1069 |
VMR10(V179)} |
VMR10(V179)} |
1070 |
goto T472; |
goto T472; |
1071 |
T472:; |
T472:; |
1072 |
V177= cdr((V177)); |
V177= cdr((V177)); |
1073 |
V178= car((V177)); |
V178= car((V177)); |
1074 |
goto T467;} |
goto T467;} |
1075 |
goto T460; |
goto T460; |
1076 |
T460:; |
T460:; |
1077 |
{register object V180; |
{register object V180; |
1078 |
object V181; |
object V181; |
1079 |
V180= symbol_value(VV[37]); |
V180= symbol_value(VV[37]); |
1080 |
V181= car((V180)); |
V181= car((V180)); |
1081 |
goto T485; |
goto T485; |
1082 |
T485:; |
T485:; |
1083 |
if(!(endp_prop((V180)))){ |
if(!(endp_prop((V180)))){ |
1084 |
goto T486;} |
goto T486;} |
1085 |
goto T481; |
goto T481; |
1086 |
goto T486; |
goto T486; |
1087 |
T486:; |
T486:; |
1088 |
if(!((car((V181)))==((V167)))){ |
if(!((car((V181)))==((V167)))){ |
1089 |
goto T490;} |
goto T490;} |
1092 |
goto T490;} |
goto T490;} |
1093 |
{object V182 = (V170); |
{object V182 = (V170); |
1094 |
VMR10(V182)} |
VMR10(V182)} |
1095 |
goto T490; |
goto T490; |
1096 |
T490:; |
T490:; |
1097 |
V180= cdr((V180)); |
V180= cdr((V180)); |
1098 |
V181= car((V180)); |
V181= car((V180)); |
1099 |
goto T485;} |
goto T485;} |
1100 |
goto T481; |
goto T481; |
1101 |
T481:; |
T481:; |
1102 |
(base[0]->c.c_car)= get((V167),VV[38],Cnil); |
(base[0]->c.c_car)= get((V167),VV[38],Cnil); |
1103 |
if(((base[0]->c.c_car))==Cnil){ |
if(((base[0]->c.c_car))==Cnil){ |
1113 |
if(((V183))==Cnil){ |
if(((V183))==Cnil){ |
1114 |
goto T501;} |
goto T501;} |
1115 |
goto T506;} |
goto T506;} |
1116 |
goto T508; |
goto T508; |
1117 |
T508:; |
T508:; |
1118 |
goto T506; |
goto T506; |
1119 |
T506:; |
T506:; |
1120 |
base[1]= make_fixnum((long)length((V168))); |
base[1]= make_fixnum((long)length((V168))); |
1121 |
base[2]= VV[39]; |
base[2]= VV[39]; |
1128 |
make_cclosure_new(LC27,Cnil,base[0],Cdata); |
make_cclosure_new(LC27,Cnil,base[0],Cdata); |
1129 |
{object V187 = list(4,V185,Ct,small_fixnum(3),V186); |
{object V187 = list(4,V185,Ct,small_fixnum(3),V186); |
1130 |
VMR10(V187)} |
VMR10(V187)} |
1131 |
goto T501; |
goto T501; |
1132 |
T501:; |
T501:; |
1133 |
{object V188 = Cnil; |
{object V188 = Cnil; |
1134 |
VMR10(V188)}} |
VMR10(V188)}} |
1141 |
|
|
1142 |
object V192;object V193;object V194; |
object V192;object V193;object V194; |
1143 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
1144 |
goto TTL; |
goto TTL; |
1145 |
TTL:; |
TTL:; |
1146 |
{register object V195; |
{register object V195; |
1147 |
V195= Cnil; |
V195= Cnil; |
1151 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1152 |
(void) (*Lnk105)(); |
(void) (*Lnk105)(); |
1153 |
vs_top=sup; |
vs_top=sup; |
1154 |
goto T521; |
goto T521; |
1155 |
T521:; |
T521:; |
1156 |
{register object x= VV[40],V196= car((V192)); |
{register object x= VV[40],V196= car((V192)); |
1157 |
while(!endp(V196)) |
while(!endp(V196)) |
1159 |
goto T527; |
goto T527; |
1160 |
}else V196=V196->c.c_cdr; |
}else V196=V196->c.c_cdr; |
1161 |
goto T525;} |
goto T525;} |
1162 |
goto T527; |
goto T527; |
1163 |
T527:; |
T527:; |
1164 |
{object V197 = Cnil; |
{object V197 = Cnil; |
1165 |
VMR11(V197)} |
VMR11(V197)} |
1166 |
goto T525; |
goto T525; |
1167 |
T525:; |
T525:; |
1168 |
{register object V198; |
{register object V198; |
1169 |
V198= car((V192)); |
V198= car((V192)); |
1171 |
register object V200; |
register object V200; |
1172 |
V199= (V193); |
V199= (V193); |
1173 |
V200= car((V199)); |
V200= car((V199)); |
1174 |
goto T536; |
goto T536; |
1175 |
T536:; |
T536:; |
1176 |
if(!(endp_prop((V199)))){ |
if(!(endp_prop((V199)))){ |
1177 |
goto T537;} |
goto T537;} |
1178 |
if(!(equal((V198),VV[41]))){ |
if(!(equal((V198),VV[41]))){ |
1179 |
goto T540;} |
goto T540;} |
1180 |
goto T531; |
goto T531; |
1181 |
goto T540; |
goto T540; |
1182 |
T540:; |
T540:; |
1183 |
if(!(endp_prop((V198)))){ |
if(!(endp_prop((V198)))){ |
1184 |
goto T529;} |
goto T529;} |
1185 |
goto T531; |
goto T531; |
1186 |
goto T537; |
goto T537; |
1187 |
T537:; |
T537:; |
1188 |
if(!(endp_prop((V198)))){ |
if(!(endp_prop((V198)))){ |
1189 |
goto T543;} |
goto T543;} |
1190 |
goto T529; |
goto T529; |
1191 |
goto T543; |
goto T543; |
1192 |
T543:; |
T543:; |
1193 |
if(!(equal((V198),VV[42]))){ |
if(!(equal((V198),VV[42]))){ |
1194 |
goto T546;} |
goto T546;} |
1195 |
V198= VV[43]; |
V198= VV[43]; |
1196 |
goto T546; |
goto T546; |
1197 |
T546:; |
T546:; |
1198 |
if(!((car((V198)))==(VV[44]))){ |
if(!((car((V198)))==(VV[44]))){ |
1199 |
goto T552;} |
goto T552;} |
1203 |
V201= VV[45]; |
V201= VV[45]; |
1204 |
V195= make_cons((V201),(V195)); |
V195= make_cons((V201),(V195)); |
1205 |
goto T550;} |
goto T550;} |
1206 |
goto T555; |
goto T555; |
1207 |
T555:; |
T555:; |
1208 |
if(((*(LnkLI106))(VV[46],(V200)))==Cnil){ |
if(((*(LnkLI106))(VV[46],(V200)))==Cnil){ |
1209 |
goto T560;} |
goto T560;} |
1211 |
V202= VV[46]; |
V202= VV[46]; |
1212 |
V195= make_cons((V202),(V195)); |
V195= make_cons((V202),(V195)); |
1213 |
goto T550;} |
goto T550;} |
1214 |
goto T560; |
goto T560; |
1215 |
T560:; |
T560:; |
1216 |
if(((*(LnkLI106))(VV[47],(V200)))==Cnil){ |
if(((*(LnkLI106))(VV[47],(V200)))==Cnil){ |
1217 |
goto T565;} |
goto T565;} |
1219 |
V203= VV[47]; |
V203= VV[47]; |
1220 |
V195= make_cons((V203),(V195)); |
V195= make_cons((V203),(V195)); |
1221 |
goto T550;} |
goto T550;} |
1222 |
goto T565; |
goto T565; |
1223 |
T565:; |
T565:; |
1224 |
goto T529; |
goto T529; |
1225 |
goto T552; |
goto T552; |
1226 |
T552:; |
T552:; |
1227 |
if(((*(LnkLI106))(car((V198)),(V200)))==Cnil){ |
if(((*(LnkLI106))(car((V198)),(V200)))==Cnil){ |
1228 |
goto T570;} |
goto T570;} |
1230 |
V204= car((V198)); |
V204= car((V198)); |
1231 |
V195= make_cons((V204),(V195)); |
V195= make_cons((V204),(V195)); |
1232 |
goto T550;} |
goto T550;} |
1233 |
goto T570; |
goto T570; |
1234 |
T570:; |
T570:; |
1235 |
goto T529; |
goto T529; |
1236 |
goto T550; |
goto T550; |
1237 |
T550:; |
T550:; |
1238 |
{register object V205; |
{register object V205; |
1239 |
V205= car((V198)); |
V205= car((V198)); |
1241 |
V199= cdr((V199)); |
V199= cdr((V199)); |
1242 |
V200= car((V199)); |
V200= car((V199)); |
1243 |
goto T536;}} |
goto T536;}} |
1244 |
goto T531; |
goto T531; |
1245 |
T531:; |
T531:; |
1246 |
if(((*(LnkLI106))(cadr((V192)),(V194)))==Cnil){ |
if(((*(LnkLI106))(cadr((V192)),(V194)))==Cnil){ |
1247 |
goto T529;} |
goto T529;} |
1248 |
V206= reverse((V195)); |
V206= reverse((V195)); |
1249 |
{object V207 = make_cons(/* INLINE-ARGS */V206,cdr((V192))); |
{object V207 = make_cons(/* INLINE-ARGS */V206,cdr((V192))); |
1250 |
VMR11(V207)} |
VMR11(V207)} |
1251 |
goto T529; |
goto T529; |
1252 |
T529:; |
T529:; |
1253 |
{object V208 = Cnil; |
{object V208 = Cnil; |
1254 |
VMR11(V208)}} |
VMR11(V208)}} |
1261 |
|
|
1262 |
object V211;object V212; |
object V211;object V212; |
1263 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
1264 |
goto TTL; |
goto TTL; |
1265 |
TTL:; |
TTL:; |
1266 |
{register object V213; |
{register object V213; |
1267 |
V213= Cnil; |
V213= Cnil; |
1269 |
register object V215; |
register object V215; |
1270 |
V214= (V211); |
V214= (V211); |
1271 |
V215= (V212); |
V215= (V212); |
1272 |
goto T586; |
goto T586; |
1273 |
T586:; |
T586:; |
1274 |
if(!(endp_prop((V214)))){ |
if(!(endp_prop((V214)))){ |
1275 |
goto T587;} |
goto T587;} |
1276 |
{object V216 = Cnil; |
{object V216 = Cnil; |
1277 |
VMR12(V216)} |
VMR12(V216)} |
1278 |
goto T587; |
goto T587; |
1279 |
T587:; |
T587:; |
1280 |
{register object V217; |
{register object V217; |
1281 |
V217= car((V214)); |
V217= car((V214)); |
1282 |
{object V218= car((V217)); |
{object V218= car((V217)); |
1283 |
if((V218!= VV[14]))goto T593; |
if((V218!= VV[14]))goto T593; |
1284 |
goto T591; |
goto T591; |
1285 |
goto T593; |
goto T593; |
1286 |
T593:; |
T593:; |
1287 |
if((V218!= VV[1]))goto T594; |
if((V218!= VV[1]))goto T594; |
1288 |
if(((*(LnkLI75))(caaddr((V217)),cdr((V214))))!=Cnil){ |
if(((*(LnkLI75))(caaddr((V217)),cdr((V214))))!=Cnil){ |
1294 |
goto T599; |
goto T599; |
1295 |
}else V219=V219->c.c_cdr; |
}else V219=V219->c.c_cdr; |
1296 |
goto T591;} |
goto T591;} |
1297 |
goto T599; |
goto T599; |
1298 |
T599:; |
T599:; |
1299 |
V221= car((V215)); |
V221= car((V215)); |
1300 |
V222= structure_ref(caaddr((V217)),VV[1],1); |
V222= structure_ref(caaddr((V217)),VV[1],1); |
1301 |
if((/* INLINE-ARGS */V221)==(/* INLINE-ARGS */V222)){ |
if((/* INLINE-ARGS */V221)==(/* INLINE-ARGS */V222)){ |
1302 |
goto T591;} |
goto T591;} |
1303 |
goto T595; |
goto T595; |
1304 |
T595:; |
T595:; |
1305 |
{object V223 = Ct; |
{object V223 = Ct; |
1306 |
VMR12(V223)} |
VMR12(V223)} |
1307 |
goto T594; |
goto T594; |
1308 |
T594:; |
T594:; |
1309 |
if((V218!= VV[82]))goto T601; |
if((V218!= VV[82]))goto T601; |
1310 |
{register object V224; |
{register object V224; |
1343 |
goto T623; |
goto T623; |
1344 |
}else V227=V227->c.c_cdr; |
}else V227=V227->c.c_cdr; |
1345 |
goto T621;} |
goto T621;} |
1346 |
goto T623; |
goto T623; |
1347 |
T623:; |
T623:; |
1348 |
if(!((car((V215)))==(cadr((V213))))){ |
if(!((car((V215)))==(cadr((V213))))){ |
1349 |
goto T603;} |
goto T603;} |
1350 |
goto T621; |
goto T621; |
1351 |
T621:; |
T621:; |
1352 |
if(((*(LnkLI87))(cadddr((V217)),car((V213))))==Cnil){ |
if(((*(LnkLI87))(cadddr((V217)),car((V213))))==Cnil){ |
1353 |
goto T591;} |
goto T591;} |
1354 |
goto T603; |
goto T603; |
1355 |
T603:; |
T603:; |
1356 |
{object V228 = Ct; |
{object V228 = Ct; |
1357 |
VMR12(V228)}} |
VMR12(V228)}} |
1358 |
goto T601; |
goto T601; |
1359 |
T601:; |
T601:; |
1360 |
if((V218!= VV[96]))goto T626; |
if((V218!= VV[96]))goto T626; |
1361 |
V229= make_cons(caddr((V217)),Cnil); |
V229= make_cons(caddr((V217)),Cnil); |
1363 |
goto T591;} |
goto T591;} |
1364 |
{object V230 = Ct; |
{object V230 = Ct; |
1365 |
VMR12(V230)} |
VMR12(V230)} |
1366 |
goto T626; |
goto T626; |
1367 |
T626:; |
T626:; |
1368 |
{object V231 = Ct; |
{object V231 = Ct; |
1369 |
VMR12(V231)}}} |
VMR12(V231)}}} |
1370 |
goto T591; |
goto T591; |
1371 |
T591:; |
T591:; |
1372 |
V214= cdr((V214)); |
V214= cdr((V214)); |
1373 |
V215= cdr((V215)); |
V215= cdr((V215)); |
1380 |
static object LI13() |
static object LI13() |
1381 |
|
|
1382 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
1383 |
goto TTL; |
goto TTL; |
1384 |
TTL:; |
TTL:; |
1385 |
if((symbol_value(VV[9]))==Cnil){ |
if((symbol_value(VV[9]))==Cnil){ |
1386 |
goto T634;} |
goto T634;} |
1397 |
princ_char(59,VV[5]); |
princ_char(59,VV[5]); |
1398 |
{object V233 = list(2,VV[6],(V232)); |
{object V233 = list(2,VV[6],(V232)); |
1399 |
VMR13(V233)}} |
VMR13(V233)}} |
1400 |
goto T634; |
goto T634; |
1401 |
T634:; |
T634:; |
1402 |
{object V234 = list(2,VV[12],(*(LnkLI94))()); |
{object V234 = list(2,VV[12],(*(LnkLI94))()); |
1403 |
VMR13(V234)} |
VMR13(V234)} |
1409 |
static object LI14() |
static object LI14() |
1410 |
|
|
1411 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1412 |
goto TTL; |
goto TTL; |
1413 |
TTL:; |
TTL:; |
1414 |
{register object V235; |
{register object V235; |
1415 |
V235= symbol_value(VV[2]); |
V235= symbol_value(VV[2]); |
1418 |
if(!(eql(cdr((V235)),VV[52]))){ |
if(!(eql(cdr((V235)),VV[52]))){ |
1419 |
goto T649;} |
goto T649;} |
1420 |
princ_str("restore_avma;",VV[5]); |
princ_str("restore_avma;",VV[5]); |
1421 |
goto T649; |
goto T649; |
1422 |
T649:; |
T649:; |
1423 |
V235= car((V235)); |
V235= car((V235)); |
1424 |
goto T646; |
goto T646; |
1425 |
T646:; |
T646:; |
1426 |
{register long V236; |
{register long V236; |
1427 |
register long V237; |
register long V237; |
1428 |
V236= fix((V235)); |
V236= fix((V235)); |
1429 |
V237= 0; |
V237= 0; |
1430 |
goto T657; |
goto T657; |
1431 |
T657:; |
T657:; |
1432 |
if(!((V237)>=(V236))){ |
if(!((V237)>=(V236))){ |
1433 |
goto T658;} |
goto T658;} |
1434 |
{object V238 = Cnil; |
{object V238 = Cnil; |
1435 |
VMR14(V238)} |
VMR14(V238)} |
1436 |
goto T658; |
goto T658; |
1437 |
T658:; |
T658:; |
1438 |
princ_char(125,VV[5]); |
princ_char(125,VV[5]); |
1439 |
V237= (long)(V237)+1; |
V237= (long)(V237)+1; |
1452 |
V239=(base[0]); |
V239=(base[0]); |
1453 |
V240=(base[1]); |
V240=(base[1]); |
1454 |
vs_top=sup; |
vs_top=sup; |
1455 |
goto TTL; |
goto TTL; |
1456 |
TTL:; |
TTL:; |
1457 |
{register long V241; |
{register long V241; |
1458 |
long V242; |
long V242; |
1468 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1469 |
goto T672;} |
goto T672;} |
1470 |
V241= 1; |
V241= 1; |
1471 |
goto T680; |
goto T680; |
1472 |
T680:; |
T680:; |
1473 |
base[2]= elt((V239),V241); |
base[2]= elt((V239),V241); |
1474 |
base[3]= VV[26]; |
base[3]= VV[26]; |
1479 |
goto T681;} |
goto T681;} |
1480 |
V241= (long)(V241)+(1); |
V241= (long)(V241)+(1); |
1481 |
goto T672; |
goto T672; |
1482 |
goto T681; |
goto T681; |
1483 |
T681:; |
T681:; |
1484 |
V241= (long)(V241)+(1); |
V241= (long)(V241)+(1); |
1485 |
goto T680; |
goto T680; |
1486 |
goto T672; |
goto T672; |
1487 |
T672:; |
T672:; |
1488 |
{long V243; |
{long V243; |
1489 |
V243= (long)length((V239)); |
V243= (long)length((V239)); |
1490 |
goto T694; |
goto T694; |
1491 |
T694:; |
T694:; |
1492 |
if(!((V241)>=(V243))){ |
if(!((V241)>=(V243))){ |
1493 |
goto T695;} |
goto T695;} |
1494 |
base[2]= Cnil; |
base[2]= Cnil; |
1495 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1496 |
return; |
return; |
1497 |
goto T695; |
goto T695; |
1498 |
T695:; |
T695:; |
1499 |
{unsigned char V244; |
{unsigned char V244; |
1500 |
V244= char_code(elt((V239),V241)); |
V244= char_code(elt((V239),V241)); |
1519 |
if(!(number_compare(/* INLINE-ARGS */V248,V249)<0)){ |
if(!(number_compare(/* INLINE-ARGS */V248,V249)<0)){ |
1520 |
goto T711;} |
goto T711;} |
1521 |
princ_char(44,VV[5]); |
princ_char(44,VV[5]); |
1522 |
goto T711; |
goto T711; |
1523 |
T711:; |
T711:; |
1524 |
{register object V250; |
{register object V250; |
1525 |
V251 = make_fixnum(V242); |
V251 = make_fixnum(V242); |
1526 |
V252= one_plus(V251); |
V252= one_plus(V251); |
1527 |
V250= nthcdr(fixint(/* INLINE-ARGS */V252),(V240)); |
V250= nthcdr(fixint(/* INLINE-ARGS */V252),(V240)); |
1528 |
goto T719; |
goto T719; |
1529 |
T719:; |
T719:; |
1530 |
if(((V250))!=Cnil){ |
if(((V250))!=Cnil){ |
1531 |
goto T720;} |
goto T720;} |
1532 |
goto T706; |
goto T706; |
1533 |
goto T720; |
goto T720; |
1534 |
T720:; |
T720:; |
1535 |
base[2]= car((V250)); |
base[2]= car((V250)); |
1536 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1539 |
if((cdr((V250)))==Cnil){ |
if((cdr((V250)))==Cnil){ |
1540 |
goto T726;} |
goto T726;} |
1541 |
princ_char(44,VV[5]); |
princ_char(44,VV[5]); |
1542 |
goto T726; |
goto T726; |
1543 |
T726:; |
T726:; |
1544 |
V250= cdr((V250)); |
V250= cdr((V250)); |
1545 |
goto T719;} |
goto T719;} |
1546 |
goto T709; |
goto T709; |
1547 |
T709:; |
T709:; |
1548 |
base[2]= (V245); |
base[2]= (V245); |
1549 |
base[3]= small_fixnum(10); |
base[3]= small_fixnum(10); |
1583 |
V263= number_minus(V261,V262); |
V263= number_minus(V261,V262); |
1584 |
V246= number_plus(/* INLINE-ARGS */V260,/* INLINE-ARGS */V263); |
V246= number_plus(/* INLINE-ARGS */V260,/* INLINE-ARGS */V263); |
1585 |
V241= (long)(V241)+(1); |
V241= (long)(V241)+(1); |
1586 |
goto T741; |
goto T741; |
1587 |
T741:; |
T741:; |
1588 |
V264 = make_fixnum(V242); |
V264 = make_fixnum(V242); |
1589 |
if(!(number_compare((V246),V264)>=0)){ |
if(!(number_compare((V246),V264)>=0)){ |
1590 |
goto T754;} |
goto T754;} |
1591 |
V242= fix((V246)); |
V242= fix((V246)); |
1592 |
goto T754; |
goto T754; |
1593 |
T754:; |
T754:; |
1594 |
base[2]= nth(fixint((V246)),(V240)); |
base[2]= nth(fixint((V246)),(V240)); |
1595 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1596 |
(void) (*Lnk88)(); |
(void) (*Lnk88)(); |
1597 |
vs_top=sup;} |
vs_top=sup;} |
1598 |
goto T706; |
goto T706; |
1599 |
T706:; |
T706:; |
1600 |
V241= (long)(V241)+(2); |
V241= (long)(V241)+(2); |
1601 |
goto T699; |
goto T699; |
1602 |
goto T702; |
goto T702; |
1603 |
T702:; |
T702:; |
1604 |
(void)(princ(code_char(V244),symbol_value(VV[5]))); |
(void)(princ(code_char(V244),symbol_value(VV[5]))); |
1605 |
V241= (long)(V241)+(1);} |
V241= (long)(V241)+(1);} |
1606 |
goto T699; |
goto T699; |
1607 |
T699:; |
T699:; |
1608 |
goto T694;} |
goto T694;} |
1609 |
goto T670; |
goto T670; |
1610 |
T670:; |
T670:; |
1611 |
base[2]= (V239); |
base[2]= (V239); |
1612 |
{object V265; |
{object V265; |
1633 |
V267=(base[1]); |
V267=(base[1]); |
1634 |
V268=(base[2]); |
V268=(base[2]); |
1635 |
vs_top=sup; |
vs_top=sup; |
1636 |
goto TTL; |
goto TTL; |
1637 |
TTL:; |
TTL:; |
1638 |
base[3]= (V267); |
base[3]= (V267); |
1639 |
base[4]= (V268); |
base[4]= (V268); |
1648 |
|
|
1649 |
object V272;object V273;object V274; |
object V272;object V273;object V274; |
1650 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
1651 |
goto TTL; |
goto TTL; |
1652 |
TTL:; |
TTL:; |
1653 |
princ_char(40,VV[5]); |
princ_char(40,VV[5]); |
1654 |
base[0]= (V273); |
base[0]= (V273); |
1668 |
|
|
1669 |
object V279;object V280;object V281; |
object V279;object V280;object V281; |
1670 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1671 |
goto TTL; |
goto TTL; |
1672 |
TTL:; |
TTL:; |
1673 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[56]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[56]))==0)){ |
1674 |
goto T774;} |
goto T774;} |
1675 |
princ_str("CMP",VV[5]); |
princ_str("CMP",VV[5]); |
1676 |
goto T774; |
goto T774; |
1677 |
T774:; |
T774:; |
1678 |
princ_str("make_fixnum((long)",VV[5]); |
princ_str("make_fixnum((long)",VV[5]); |
1679 |
base[0]= (V280); |
base[0]= (V280); |
1701 |
V284=(base[1]); |
V284=(base[1]); |
1702 |
V285=(base[2]); |
V285=(base[2]); |
1703 |
vs_top=sup; |
vs_top=sup; |
1704 |
goto TTL; |
goto TTL; |
1705 |
TTL:; |
TTL:; |
1706 |
princ_str("make_integer(",VV[5]); |
princ_str("make_integer(",VV[5]); |
1707 |
base[3]= (V284); |
base[3]= (V284); |
1721 |
|
|
1722 |
object V289;object V290;object V291; |
object V289;object V290;object V291; |
1723 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
1724 |
goto TTL; |
goto TTL; |
1725 |
TTL:; |
TTL:; |
1726 |
princ_str("code_char(",VV[5]); |
princ_str("code_char(",VV[5]); |
1727 |
base[0]= (V290); |
base[0]= (V290); |
1741 |
|
|
1742 |
object V296;object V297;object V298; |
object V296;object V297;object V298; |
1743 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
1744 |
goto TTL; |
goto TTL; |
1745 |
TTL:; |
TTL:; |
1746 |
princ_str("make_longfloat(",VV[5]); |
princ_str("make_longfloat(",VV[5]); |
1747 |
base[0]= (V297); |
base[0]= (V297); |
1761 |
|
|
1762 |
object V303;object V304;object V305; |
object V303;object V304;object V305; |
1763 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
1764 |
goto TTL; |
goto TTL; |
1765 |
TTL:; |
TTL:; |
1766 |
princ_str("make_shortfloat(",VV[5]); |
princ_str("make_shortfloat(",VV[5]); |
1767 |
base[0]= (V304); |
base[0]= (V304); |
1781 |
|
|
1782 |
object V308; |
object V308; |
1783 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
1784 |
goto TTL; |
goto TTL; |
1785 |
TTL:; |
TTL:; |
1786 |
{register object V309; |
{register object V309; |
1787 |
V309= Cnil; |
V309= Cnil; |
1789 |
register object V311; |
register object V311; |
1790 |
V310= (V308); |
V310= (V308); |
1791 |
V311= car((V310)); |
V311= car((V310)); |
1792 |
goto T812; |
goto T812; |
1793 |
T812:; |
T812:; |
1794 |
if(!(endp_prop((V310)))){ |
if(!(endp_prop((V310)))){ |
1795 |
goto T813;} |
goto T813;} |
1796 |
{object V312 = Cnil; |
{object V312 = Cnil; |
1797 |
VMR23(V312)} |
VMR23(V312)} |
1798 |
goto T813; |
goto T813; |
1799 |
T813:; |
T813:; |
1800 |
{object V313= car((V311)); |
{object V313= car((V311)); |
1801 |
if((V313!= VV[14]) |
if((V313!= VV[14]) |
1802 |
&& (V313!= VV[1]) |
&& (V313!= VV[1]) |
1803 |
&& (V313!= VV[96]))goto T818; |
&& (V313!= VV[96]))goto T818; |
1804 |
goto T817; |
goto T817; |
1805 |
goto T818; |
goto T818; |
1806 |
T818:; |
T818:; |
1807 |
if((V313!= VV[82]))goto T819; |
if((V313!= VV[82]))goto T819; |
1808 |
{register object V314; |
{register object V314; |
1826 |
V317= vs_base[0]; |
V317= vs_base[0]; |
1827 |
if((V317)==Cnil){ |
if((V317)==Cnil){ |
1828 |
goto T817;} |
goto T817;} |
1829 |
goto T821; |
goto T821; |
1830 |
T821:; |
T821:; |
1831 |
{object V318 = Ct; |
{object V318 = Ct; |
1832 |
VMR23(V318)}} |
VMR23(V318)}} |
1833 |
goto T819; |
goto T819; |
1834 |
T819:; |
T819:; |
1835 |
{object V319 = Ct; |
{object V319 = Ct; |
1836 |
VMR23(V319)}} |
VMR23(V319)}} |
1837 |
goto T817; |
goto T817; |
1838 |
T817:; |
T817:; |
1839 |
V310= cdr((V310)); |
V310= cdr((V310)); |
1840 |
V311= car((V310)); |
V311= car((V310)); |
1862 |
goto T845;} |
goto T845;} |
1863 |
V322= Cnil; |
V322= Cnil; |
1864 |
goto T844; |
goto T844; |
1865 |
goto T845; |
goto T845; |
1866 |
T845:; |
T845:; |
1867 |
if((car(symbol_value(VV[13])))==(VV[1])){ |
if((car(symbol_value(VV[13])))==(VV[1])){ |
1868 |
goto T847;} |
goto T847;} |
1869 |
V322= Cnil; |
V322= Cnil; |
1870 |
goto T844; |
goto T844; |
1871 |
goto T847; |
goto T847; |
1872 |
T847:; |
T847:; |
1873 |
V324= structure_ref(cadr(symbol_value(VV[13])),VV[1],5); |
V324= structure_ref(cadr(symbol_value(VV[13])),VV[1],5); |
1874 |
V322= ((/* INLINE-ARGS */V324)==(VV[57])?Ct:Cnil); |
V322= ((/* INLINE-ARGS */V324)==(VV[57])?Ct:Cnil); |
1875 |
goto T844; |
goto T844; |
1876 |
T844:; |
T844:; |
1877 |
if(((V322))==Cnil){ |
if(((V322))==Cnil){ |
1878 |
goto T842;} |
goto T842;} |
1881 |
princ_str("),ON_STACK_LIST(",VV[5]); |
princ_str("),ON_STACK_LIST(",VV[5]); |
1882 |
(void)((*(LnkLI76))((V323))); |
(void)((*(LnkLI76))((V323))); |
1883 |
goto T840; |
goto T840; |
1884 |
goto T842; |
goto T842; |
1885 |
T842:; |
T842:; |
1886 |
princ_str("list(",VV[5]); |
princ_str("list(",VV[5]); |
1887 |
V325 = make_fixnum((long)length((V320))); |
V325 = make_fixnum((long)length((V320))); |
1888 |
(void)((*(LnkLI76))(V325)); |
(void)((*(LnkLI76))(V325)); |
1889 |
goto T840; |
goto T840; |
1890 |
T840:; |
T840:; |
1891 |
{register object V326; |
{register object V326; |
1892 |
register object V327; |
register object V327; |
1893 |
V326= (V320); |
V326= (V320); |
1894 |
V327= car((V326)); |
V327= car((V326)); |
1895 |
goto T859; |
goto T859; |
1896 |
T859:; |
T859:; |
1897 |
if(!(endp_prop((V326)))){ |
if(!(endp_prop((V326)))){ |
1898 |
goto T860;} |
goto T860;} |
1899 |
goto T855; |
goto T855; |
1900 |
goto T860; |
goto T860; |
1901 |
T860:; |
T860:; |
1902 |
(void)((*(LnkLI76))(VV[58])); |
(void)((*(LnkLI76))(VV[58])); |
1903 |
(void)((*(LnkLI76))((V327))); |
(void)((*(LnkLI76))((V327))); |
1904 |
V326= cdr((V326)); |
V326= cdr((V326)); |
1905 |
V327= car((V326)); |
V327= car((V326)); |
1906 |
goto T859;} |
goto T859;} |
1907 |
goto T855; |
goto T855; |
1908 |
T855:; |
T855:; |
1909 |
(void)((*(LnkLI76))(VV[59])); |
(void)((*(LnkLI76))(VV[59])); |
1910 |
if(((V322))==Cnil){ |
if(((V322))==Cnil){ |
1912 |
(void)((*(LnkLI76))(VV[59])); |
(void)((*(LnkLI76))(VV[59])); |
1913 |
{object V328 = Cnil; |
{object V328 = Cnil; |
1914 |
VMR24(V328)} |
VMR24(V328)} |
1915 |
goto T875; |
goto T875; |
1916 |
T875:; |
T875:; |
1917 |
{object V329 = Cnil; |
{object V329 = Cnil; |
1918 |
VMR24(V329)}} |
VMR24(V329)}} |
1933 |
V331 = list_vector_new(narg,first,ap); |
V331 = list_vector_new(narg,first,ap); |
1934 |
V330= V331;switch((long)length((V330))){ |
V330= V331;switch((long)length((V330))){ |
1935 |
case 1: |
case 1: |
1936 |
goto T879; |
goto T879; |
1937 |
T879:; |
T879:; |
1938 |
(void)((*(LnkLI76))(car((V330)))); |
(void)((*(LnkLI76))(car((V330)))); |
1939 |
{object V332 = Cnil; |
{object V332 = Cnil; |
1940 |
VMR25(V332)} |
VMR25(V332)} |
1941 |
case 2: |
case 2: |
1942 |
goto T880; |
goto T880; |
1943 |
T880:; |
T880:; |
1944 |
princ_str("make_cons(",VV[5]); |
princ_str("make_cons(",VV[5]); |
1945 |
(void)((*(LnkLI76))(car((V330)))); |
(void)((*(LnkLI76))(car((V330)))); |
1949 |
{object V333 = Cnil; |
{object V333 = Cnil; |
1950 |
VMR25(V333)} |
VMR25(V333)} |
1951 |
default: |
default: |
1952 |
goto T881; |
goto T881; |
1953 |
T881:; |
T881:; |
1954 |
princ_str("listA(",VV[5]); |
princ_str("listA(",VV[5]); |
1955 |
V334 = make_fixnum((long)length((V330))); |
V334 = make_fixnum((long)length((V330))); |
1958 |
register object V336; |
register object V336; |
1959 |
V335= (V330); |
V335= (V330); |
1960 |
V336= car((V335)); |
V336= car((V335)); |
1961 |
goto T896; |
goto T896; |
1962 |
T896:; |
T896:; |
1963 |
if(!(endp_prop((V335)))){ |
if(!(endp_prop((V335)))){ |
1964 |
goto T897;} |
goto T897;} |
1965 |
goto T892; |
goto T892; |
1966 |
goto T897; |
goto T897; |
1967 |
T897:; |
T897:; |
1968 |
(void)((*(LnkLI76))(VV[58])); |
(void)((*(LnkLI76))(VV[58])); |
1969 |
(void)((*(LnkLI76))((V336))); |
(void)((*(LnkLI76))((V336))); |
1970 |
V335= cdr((V335)); |
V335= cdr((V335)); |
1971 |
V336= car((V335)); |
V336= car((V335)); |
1972 |
goto T896;} |
goto T896;} |
1973 |
goto T892; |
goto T892; |
1974 |
T892:; |
T892:; |
1975 |
(void)((*(LnkLI76))(VV[59])); |
(void)((*(LnkLI76))(VV[59])); |
1976 |
{object V337 = Cnil; |
{object V337 = Cnil; |
1989 |
|
|
1990 |
register object V346;object V347;object V348;register object V349;object V350;object V351; |
register object V346;object V347;object V348;register object V349;object V350;object V351; |
1991 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
1992 |
goto TTL; |
goto TTL; |
1993 |
TTL:; |
TTL:; |
1994 |
if(((V347))==Cnil){ |
if(((V347))==Cnil){ |
1995 |
goto T910;} |
goto T910;} |
1996 |
(void)(putprop((V346),(V347),VV[60])); |
(void)(putprop((V346),(V347),VV[60])); |
1997 |
goto T910; |
goto T910; |
1998 |
T910:; |
T910:; |
1999 |
if(((V348))==Cnil){ |
if(((V348))==Cnil){ |
2000 |
goto T913;} |
goto T913;} |
2004 |
V352= Cnil; |
V352= Cnil; |
2005 |
goto T916;} |
goto T916;} |
2006 |
base[0]=V353=MMcons(Cnil,Cnil); |
base[0]=V353=MMcons(Cnil,Cnil); |
2007 |
goto T917; |
goto T917; |
2008 |
T917:; |
T917:; |
2009 |
if(!(((V354->c.c_car))==(VV[61]))){ |
if(!(((V354->c.c_car))==(VV[61]))){ |
2010 |
goto T920;} |
goto T920;} |
2011 |
(V353->c.c_car)= VV[61]; |
(V353->c.c_car)= VV[61]; |
2012 |
goto T918; |
goto T918; |
2013 |
goto T920; |
goto T920; |
2014 |
T920:; |
T920:; |
2015 |
(V353->c.c_car)= (*(LnkLI108))((V354->c.c_car)); |
(V353->c.c_car)= (*(LnkLI108))((V354->c.c_car)); |
2016 |
goto T918; |
goto T918; |
2017 |
T918:; |
T918:; |
2018 |
V354=MMcdr(V354); |
V354=MMcdr(V354); |
2019 |
if(endp(V354)){ |
if(endp(V354)){ |
2021 |
goto T916;} |
goto T916;} |
2022 |
V353=MMcdr(V353)=MMcons(Cnil,Cnil); |
V353=MMcdr(V353)=MMcons(Cnil,Cnil); |
2023 |
goto T917;} |
goto T917;} |
2024 |
goto T916; |
goto T916; |
2025 |
T916:; |
T916:; |
2026 |
(void)(putprop((V346),V352,VV[62])); |
(void)(putprop((V346),V352,VV[62])); |
2027 |
goto T913; |
goto T913; |
2028 |
T913:; |
T913:; |
2029 |
if(((V349))==Cnil){ |
if(((V349))==Cnil){ |
2030 |
goto T922;} |
goto T922;} |
2033 |
goto T928;} |
goto T928;} |
2034 |
V357= make_cons((V349),Cnil); |
V357= make_cons((V349),Cnil); |
2035 |
goto T926; |
goto T926; |
2036 |
goto T928; |
goto T928; |
2037 |
T928:; |
T928:; |
2038 |
V357= (V349); |
V357= (V349); |
2039 |
goto T926; |
goto T926; |
2040 |
T926:; |
T926:; |
2041 |
V356= (*(LnkLI109))(V357); |
V356= (*(LnkLI109))(V357); |
2042 |
if(!(type_of((V356))==t_cons)){ |
if(!(type_of((V356))==t_cons)){ |
2043 |
goto T931;} |
goto T931;} |
2044 |
goto T930; |
goto T930; |
2045 |
goto T931; |
goto T931; |
2046 |
T931:; |
T931:; |
2047 |
V356= make_cons((V356),Cnil); |
V356= make_cons((V356),Cnil); |
2048 |
goto T930; |
goto T930; |
2049 |
T930:; |
T930:; |
2050 |
if((cdr((V356)))!=Cnil){ |
if((cdr((V356)))!=Cnil){ |
2051 |
goto T936;} |
goto T936;} |
2052 |
V358= car((V356)); |
V358= car((V356)); |
2053 |
goto T934; |
goto T934; |
2054 |
goto T936; |
goto T936; |
2055 |
T936:; |
T936:; |
2056 |
V358= make_cons(VV[63],(V356)); |
V358= make_cons(VV[63],(V356)); |
2057 |
goto T934; |
goto T934; |
2058 |
T934:; |
T934:; |
2059 |
(void)(putprop((V346),V358,VV[64]));} |
(void)(putprop((V346),V358,VV[64]));} |
2060 |
goto T922; |
goto T922; |
2061 |
T922:; |
T922:; |
2062 |
if(((V350))==Cnil){ |
if(((V350))==Cnil){ |
2063 |
goto T938;} |
goto T938;} |
2064 |
(void)(putprop((V346),Ct,VV[65])); |
(void)(putprop((V346),Ct,VV[65])); |
2065 |
goto T938; |
goto T938; |
2066 |
T938:; |
T938:; |
2067 |
if(((V351))==Cnil){ |
if(((V351))==Cnil){ |
2068 |
goto T942;} |
goto T942;} |
2069 |
{object V359 = putprop((V346),Ct,VV[66]); |
{object V359 = putprop((V346),Ct,VV[66]); |
2070 |
VMR26(V359)} |
VMR26(V359)} |
2071 |
goto T942; |
goto T942; |
2072 |
T942:; |
T942:; |
2073 |
{object V360 = Cnil; |
{object V360 = Cnil; |
2074 |
VMR26(V360)} |
VMR26(V360)} |