40 |
else { |
else { |
41 |
V24= first;} |
V24= first;} |
42 |
--narg; goto T2; |
--narg; goto T2; |
43 |
goto T1; |
goto T1; |
44 |
T1:; |
T1:; |
45 |
V24= Cnil; |
V24= Cnil; |
46 |
goto T2; |
goto T2; |
47 |
T2:; |
T2:; |
48 |
{register object V25; |
{register object V25; |
49 |
register object V26; |
register object V26; |
52 |
goto T6;} |
goto T6;} |
53 |
V25= (V20); |
V25= (V20); |
54 |
goto T4; |
goto T4; |
55 |
goto T6; |
goto T6; |
56 |
T6:; |
T6:; |
57 |
base[1]= coerce_to_string((V14)); |
base[1]= coerce_to_string((V14)); |
58 |
base[2]= coerce_to_string((V20)); |
base[2]= coerce_to_string((V20)); |
64 |
Lintern(); |
Lintern(); |
65 |
vs_top=sup; |
vs_top=sup; |
66 |
V25= vs_base[0]; |
V25= vs_base[0]; |
67 |
goto T4; |
goto T4; |
68 |
T4:; |
T4:; |
69 |
V26= Cnil; |
V26= Cnil; |
70 |
V27= Cnil; |
V27= Cnil; |
72 |
if((V28!= Cnil))goto T12; |
if((V28!= Cnil))goto T12; |
73 |
V26= symbol_value(VV[0]); |
V26= symbol_value(VV[0]); |
74 |
goto T11; |
goto T11; |
75 |
goto T12; |
goto T12; |
76 |
T12:; |
T12:; |
77 |
if((V28!= VV[20]))goto T14; |
if((V28!= VV[20]))goto T14; |
78 |
V26= symbol_value(VV[1]); |
V26= symbol_value(VV[1]); |
79 |
goto T11; |
goto T11; |
80 |
goto T14; |
goto T14; |
81 |
T14:; |
T14:; |
82 |
if((V28!= VV[19]))goto T16; |
if((V28!= VV[19]))goto T16; |
83 |
V26= symbol_value(VV[2]); |
V26= symbol_value(VV[2]); |
84 |
goto T11; |
goto T11; |
85 |
goto T16; |
goto T16; |
86 |
T16:; |
T16:; |
87 |
FEerror("The ECASE key value ~s is illegal.",1,V28); |
FEerror("The ECASE key value ~s is illegal.",1,V28); |
88 |
goto T11;} |
goto T11;} |
89 |
goto T11; |
goto T11; |
90 |
T11:; |
T11:; |
91 |
V29 = make_fixnum((long)length((V26))); |
V29 = make_fixnum((long)length((V26))); |
92 |
if(!(number_compare(V29,(Vcs[11]->c.c_car))>0)){ |
if(!(number_compare(V29,(Vcs[11]->c.c_car))>0)){ |
93 |
goto T19;} |
goto T19;} |
94 |
goto T18; |
goto T18; |
95 |
goto T19; |
goto T19; |
96 |
T19:; |
T19:; |
97 |
V30= number_plus((Vcs[11]->c.c_car),small_fixnum(10)); |
V30= number_plus((Vcs[11]->c.c_car),small_fixnum(10)); |
98 |
(void)((VFUN_NARGS=2,(*(LnkLI109))((V26),/* INLINE-ARGS */V30))); |
(void)((VFUN_NARGS=2,(*(LnkLI109))((V26),/* INLINE-ARGS */V30))); |
99 |
goto T18; |
goto T18; |
100 |
T18:; |
T18:; |
101 |
if(((V27))!=Cnil){ |
if(((V27))!=Cnil){ |
102 |
goto T21;} |
goto T21;} |
117 |
goto T31;} |
goto T31;} |
118 |
V31= Cnil; |
V31= Cnil; |
119 |
goto T30; |
goto T30; |
120 |
goto T31; |
goto T31; |
121 |
T31:; |
T31:; |
122 |
V32= aref1((V26),fixint((Vcs[11]->c.c_car))); |
V32= aref1((V26),fixint((Vcs[11]->c.c_car))); |
123 |
base[0]= (V25); |
base[0]= (V25); |
126 |
vs_top=sup; |
vs_top=sup; |
127 |
V33= vs_base[0]; |
V33= vs_base[0]; |
128 |
V31= ((/* INLINE-ARGS */V32)==(V33)?Ct:Cnil); |
V31= ((/* INLINE-ARGS */V32)==(V33)?Ct:Cnil); |
129 |
goto T30; |
goto T30; |
130 |
T30:; |
T30:; |
131 |
if(V31==Cnil)goto T29; |
if(V31==Cnil)goto T29; |
132 |
goto T21; |
goto T21; |
133 |
goto T29; |
goto T29; |
134 |
T29:;} |
T29:;} |
135 |
base[0]= (V25);{object V34; |
base[0]= (V25);{object V34; |
136 |
V34= aref1((V26),fixint((Vcs[11]->c.c_car))); |
V34= aref1((V26),fixint((Vcs[11]->c.c_car))); |
137 |
if(V34==Cnil)goto T38; |
if(V34==Cnil)goto T38; |
138 |
base[1]= V34; |
base[1]= V34; |
139 |
goto T37; |
goto T37; |
140 |
goto T38; |
goto T38; |
141 |
T38:;} |
T38:;} |
142 |
if(!(((V26))==(symbol_value(VV[0])))){ |
if(!(((V26))==(symbol_value(VV[0])))){ |
143 |
goto T42;} |
goto T42;} |
144 |
V35= |
V35= |
145 |
make_cclosure_new(LC16,Cnil,Vcs[11],Cdata); |
make_cclosure_new(LC16,Cnil,Vcs[11],Cdata); |
146 |
goto T40; |
goto T40; |
147 |
goto T42; |
goto T42; |
148 |
T42:; |
T42:; |
149 |
if(!(((V26))==(symbol_value(VV[1])))){ |
if(!(((V26))==(symbol_value(VV[1])))){ |
150 |
goto T45;} |
goto T45;} |
151 |
V35= |
V35= |
152 |
make_cclosure_new(LC17,Cnil,Vcs[11],Cdata); |
make_cclosure_new(LC17,Cnil,Vcs[11],Cdata); |
153 |
goto T40; |
goto T40; |
154 |
goto T45; |
goto T45; |
155 |
T45:; |
T45:; |
156 |
if(!(((V26))==(symbol_value(VV[2])))){ |
if(!(((V26))==(symbol_value(VV[2])))){ |
157 |
goto T48;} |
goto T48;} |
158 |
V35= |
V35= |
159 |
make_cclosure_new(LC18,Cnil,Vcs[11],Cdata); |
make_cclosure_new(LC18,Cnil,Vcs[11],Cdata); |
160 |
goto T40; |
goto T40; |
161 |
goto T48; |
goto T48; |
162 |
T48:; |
T48:; |
163 |
V35= Cnil; |
V35= Cnil; |
164 |
goto T40; |
goto T40; |
165 |
T40:; |
T40:; |
166 |
base[1]= aset1((V26),fixint((Vcs[11]->c.c_car)),V35); |
base[1]= aset1((V26),fixint((Vcs[11]->c.c_car)),V35); |
167 |
goto T37; |
goto T37; |
168 |
T37:; |
T37:; |
169 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
170 |
siLfset(); |
siLfset(); |
171 |
vs_top=sup; |
vs_top=sup; |
172 |
goto T21; |
goto T21; |
173 |
T21:; |
T21:; |
174 |
if(((V23))==Cnil){ |
if(((V23))==Cnil){ |
175 |
goto T52;} |
goto T52;} |
176 |
(void)(remprop((V25),VV[6])); |
(void)(remprop((V25),VV[6])); |
177 |
(void)(sputprop((V25),VV[7],Ct)); |
(void)(sputprop((V25),VV[7],Ct)); |
178 |
goto T50; |
goto T50; |
179 |
goto T52; |
goto T52; |
180 |
T52:; |
T52:; |
181 |
(void)(remprop((V25),VV[8])); |
(void)(remprop((V25),VV[8])); |
182 |
(void)(remprop((V25),VV[9])); |
(void)(remprop((V25),VV[9])); |
198 |
goto T60;} |
goto T60;} |
199 |
V27= Ct; |
V27= Ct; |
200 |
goto T50; |
goto T50; |
201 |
goto T60; |
goto T60; |
202 |
T60:; |
T60:; |
203 |
if(((V16))==Cnil){ |
if(((V16))==Cnil){ |
204 |
goto T73;} |
goto T73;} |
205 |
V37= (V16); |
V37= (V16); |
206 |
goto T71; |
goto T71; |
207 |
goto T73; |
goto T73; |
208 |
T73:; |
T73:; |
209 |
V37= (V13); |
V37= (V13); |
210 |
goto T71; |
goto T71; |
211 |
T71:; |
T71:; |
212 |
V38= make_cons(V37,(Vcs[11]->c.c_car)); |
V38= make_cons(V37,(Vcs[11]->c.c_car)); |
213 |
(void)(sputprop((V25),VV[6],/* INLINE-ARGS */V38));} |
(void)(sputprop((V25),VV[6],/* INLINE-ARGS */V38));} |
214 |
goto T50; |
goto T50; |
215 |
T50:; |
T50:; |
216 |
{object V39 = Cnil; |
{object V39 = Cnil; |
217 |
VMR1(V39)}} |
VMR1(V39)}} |
225 |
|
|
226 |
object V45;object V46;object V47;object V48;object V49; |
object V45;object V46;object V47;object V48;object V49; |
227 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
228 |
goto TTL; |
goto TTL; |
229 |
TTL:; |
TTL:; |
230 |
{object V50; |
{object V50; |
231 |
register object V51; |
register object V51; |
235 |
V50= Cnil; |
V50= Cnil; |
236 |
goto T75;} |
goto T75;} |
237 |
base[0]=V52=MMcons(Cnil,Cnil); |
base[0]=V52=MMcons(Cnil,Cnil); |
238 |
goto T76; |
goto T76; |
239 |
T76:; |
T76:; |
240 |
if(((V53->c.c_car))!=Cnil){ |
if(((V53->c.c_car))!=Cnil){ |
241 |
goto T79;} |
goto T79;} |
242 |
(V52->c.c_car)= Cnil; |
(V52->c.c_car)= Cnil; |
243 |
goto T77; |
goto T77; |
244 |
goto T79; |
goto T79; |
245 |
T79:; |
T79:; |
246 |
if((car((V53->c.c_car)))!=Cnil){ |
if((car((V53->c.c_car)))!=Cnil){ |
247 |
goto T82;} |
goto T82;} |
248 |
(V52->c.c_car)= list(2,VV[11],cadr((V53->c.c_car))); |
(V52->c.c_car)= list(2,VV[11],cadr((V53->c.c_car))); |
249 |
goto T77; |
goto T77; |
250 |
goto T82; |
goto T82; |
251 |
T82:; |
T82:; |
252 |
(V52->c.c_car)= car((V53->c.c_car)); |
(V52->c.c_car)= car((V53->c.c_car)); |
253 |
goto T77; |
goto T77; |
254 |
T77:; |
T77:; |
255 |
V53=MMcdr(V53); |
V53=MMcdr(V53); |
256 |
if(endp(V53)){ |
if(endp(V53)){ |
258 |
goto T75;} |
goto T75;} |
259 |
V52=MMcdr(V52)=MMcons(Cnil,Cnil); |
V52=MMcdr(V52)=MMcons(Cnil,Cnil); |
260 |
goto T76;} |
goto T76;} |
261 |
goto T75; |
goto T75; |
262 |
T75:; |
T75:; |
263 |
{object V55; |
{object V55; |
264 |
object V56= (V49); |
object V56= (V49); |
266 |
V51= Cnil; |
V51= Cnil; |
267 |
goto T84;} |
goto T84;} |
268 |
base[0]=V55=MMcons(Cnil,Cnil); |
base[0]=V55=MMcons(Cnil,Cnil); |
269 |
goto T85; |
goto T85; |
270 |
T85:; |
T85:; |
271 |
if(((V56->c.c_car))!=Cnil){ |
if(((V56->c.c_car))!=Cnil){ |
272 |
goto T88;} |
goto T88;} |
273 |
(V55->c.c_cdr)= Cnil; |
(V55->c.c_cdr)= Cnil; |
274 |
goto T86; |
goto T86; |
275 |
goto T88; |
goto T88; |
276 |
T88:; |
T88:; |
277 |
if((car((V56->c.c_car)))!=Cnil){ |
if((car((V56->c.c_car)))!=Cnil){ |
278 |
goto T91;} |
goto T91;} |
279 |
(V55->c.c_cdr)= Cnil; |
(V55->c.c_cdr)= Cnil; |
280 |
goto T86; |
goto T86; |
281 |
goto T91; |
goto T91; |
282 |
T91:; |
T91:; |
283 |
if((cadr((V56->c.c_car)))!=Cnil){ |
if((cadr((V56->c.c_car)))!=Cnil){ |
284 |
goto T94;} |
goto T94;} |
285 |
(V55->c.c_cdr)= make_cons(car((V56->c.c_car)),Cnil); |
(V55->c.c_cdr)= make_cons(car((V56->c.c_car)),Cnil); |
286 |
goto T86; |
goto T86; |
287 |
goto T94; |
goto T94; |
288 |
T94:; |
T94:; |
289 |
V58= list(2,car((V56->c.c_car)),cadr((V56->c.c_car))); |
V58= list(2,car((V56->c.c_car)),cadr((V56->c.c_car))); |
290 |
(V55->c.c_cdr)= make_cons(/* INLINE-ARGS */V58,Cnil); |
(V55->c.c_cdr)= make_cons(/* INLINE-ARGS */V58,Cnil); |
291 |
goto T86; |
goto T86; |
292 |
T86:; |
T86:; |
293 |
{object cdr_V55=MMcdr(V55);while(!endp(cdr_V55)) {cdr_V55=MMcdr(cdr_V55);V55=MMcdr(V55);}} |
{object cdr_V55=MMcdr(V55);while(!endp(cdr_V55)) {cdr_V55=MMcdr(cdr_V55);V55=MMcdr(V55);}} |
294 |
V56=MMcdr(V56); |
V56=MMcdr(V56); |
297 |
V51= base[0]; |
V51= base[0]; |
298 |
goto T84;} |
goto T84;} |
299 |
goto T85;} |
goto T85;} |
300 |
goto T84; |
goto T84; |
301 |
T84:; |
T84:; |
302 |
if(!(type_of((V46))==t_cons)){ |
if(!(type_of((V46))==t_cons)){ |
303 |
goto T98;} |
goto T98;} |
307 |
V59= cadr((V46)); |
V59= cadr((V46)); |
308 |
V60= Cnil; |
V60= Cnil; |
309 |
V61= Cnil; |
V61= Cnil; |
310 |
goto T103; |
goto T103; |
311 |
T103:; |
T103:; |
312 |
if(!(endp_prop((V59)))){ |
if(!(endp_prop((V59)))){ |
313 |
goto T104;} |
goto T104;} |
318 |
base[1]= Cnil; |
base[1]= Cnil; |
319 |
goto T109;} |
goto T109;} |
320 |
base[2]=V62=MMcons(Cnil,Cnil); |
base[2]=V62=MMcons(Cnil,Cnil); |
321 |
goto T110; |
goto T110; |
322 |
T110:; |
T110:; |
323 |
if(!(type_of((V63->c.c_car))!=t_cons)){ |
if(!(type_of((V63->c.c_car))!=t_cons)){ |
324 |
goto T117;} |
goto T117;} |
325 |
V66= (V63->c.c_car); |
V66= (V63->c.c_car); |
326 |
goto T115; |
goto T115; |
327 |
goto T117; |
goto T117; |
328 |
T117:; |
T117:; |
329 |
V66= car((V63->c.c_car)); |
V66= car((V63->c.c_car)); |
330 |
goto T115; |
goto T115; |
331 |
T115:; |
T115:; |
332 |
{register object x= V66,V65= (V61); |
{register object x= V66,V65= (V61); |
333 |
while(!endp(V65)) |
while(!endp(V65)) |
335 |
goto T114; |
goto T114; |
336 |
}else V65=V65->c.c_cdr; |
}else V65=V65->c.c_cdr; |
337 |
goto T113;} |
goto T113;} |
338 |
goto T114; |
goto T114; |
339 |
T114:; |
T114:; |
340 |
(V62->c.c_cdr)= Cnil; |
(V62->c.c_cdr)= Cnil; |
341 |
goto T111; |
goto T111; |
342 |
goto T113; |
goto T113; |
343 |
T113:; |
T113:; |
344 |
(V62->c.c_cdr)= make_cons((V63->c.c_car),Cnil); |
(V62->c.c_cdr)= make_cons((V63->c.c_car),Cnil); |
345 |
goto T111; |
goto T111; |
346 |
T111:; |
T111:; |
347 |
{object cdr_V62=MMcdr(V62);while(!endp(cdr_V62)) {cdr_V62=MMcdr(cdr_V62);V62=MMcdr(V62);}} |
{object cdr_V62=MMcdr(V62);while(!endp(cdr_V62)) {cdr_V62=MMcdr(cdr_V62);V62=MMcdr(V62);}} |
348 |
V63=MMcdr(V63); |
V63=MMcdr(V63); |
351 |
base[1]= base[2]; |
base[1]= base[2]; |
352 |
goto T109;} |
goto T109;} |
353 |
goto T110;} |
goto T110;} |
354 |
goto T109; |
goto T109; |
355 |
T109:; |
T109:; |
356 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
357 |
Lreconc(); |
Lreconc(); |
358 |
vs_top=sup; |
vs_top=sup; |
359 |
V51= vs_base[0]; |
V51= vs_base[0]; |
360 |
goto T100; |
goto T100; |
361 |
goto T104; |
goto T104; |
362 |
T104:; |
T104:; |
363 |
{register object x= car((V59)),V67= VV[13]; |
{register object x= car((V59)),V67= VV[13]; |
364 |
while(!endp(V67)) |
while(!endp(V67)) |
366 |
goto T122; |
goto T122; |
367 |
}else V67=V67->c.c_cdr; |
}else V67=V67->c.c_cdr; |
368 |
goto T120;} |
goto T120;} |
369 |
goto T122; |
goto T122; |
370 |
T122:; |
T122:; |
371 |
if(!((car((V59)))==(VV[14]))){ |
if(!((car((V59)))==(VV[14]))){ |
372 |
goto T123;} |
goto T123;} |
373 |
goto T120; |
goto T120; |
374 |
goto T123; |
goto T123; |
375 |
T123:; |
T123:; |
376 |
V59= make_cons(VV[14],(V59)); |
V59= make_cons(VV[14],(V59)); |
377 |
goto T120; |
goto T120; |
378 |
T120:; |
T120:; |
379 |
if(!((car((V59)))==(VV[14]))){ |
if(!((car((V59)))==(VV[14]))){ |
380 |
goto T128;} |
goto T128;} |
385 |
V69= cdr((V59)); |
V69= cdr((V59)); |
386 |
V70= Cnil; |
V70= Cnil; |
387 |
V71= Cnil; |
V71= Cnil; |
388 |
goto T135; |
goto T135; |
389 |
T135:; |
T135:; |
390 |
if(!(endp_prop((V69)))){ |
if(!(endp_prop((V69)))){ |
391 |
goto T136;} |
goto T136;} |
396 |
base[1]= Cnil; |
base[1]= Cnil; |
397 |
goto T142;} |
goto T142;} |
398 |
base[2]=V72=MMcons(Cnil,Cnil); |
base[2]=V72=MMcons(Cnil,Cnil); |
399 |
goto T143; |
goto T143; |
400 |
T143:; |
T143:; |
401 |
if(!(type_of((V73->c.c_car))!=t_cons)){ |
if(!(type_of((V73->c.c_car))!=t_cons)){ |
402 |
goto T150;} |
goto T150;} |
403 |
V76= (V73->c.c_car); |
V76= (V73->c.c_car); |
404 |
goto T148; |
goto T148; |
405 |
goto T150; |
goto T150; |
406 |
T150:; |
T150:; |
407 |
V76= car((V73->c.c_car)); |
V76= car((V73->c.c_car)); |
408 |
goto T148; |
goto T148; |
409 |
T148:; |
T148:; |
410 |
{register object x= V76,V75= (V61); |
{register object x= V76,V75= (V61); |
411 |
while(!endp(V75)) |
while(!endp(V75)) |
413 |
goto T147; |
goto T147; |
414 |
}else V75=V75->c.c_cdr; |
}else V75=V75->c.c_cdr; |
415 |
goto T146;} |
goto T146;} |
416 |
goto T147; |
goto T147; |
417 |
T147:; |
T147:; |
418 |
(V72->c.c_cdr)= Cnil; |
(V72->c.c_cdr)= Cnil; |
419 |
goto T144; |
goto T144; |
420 |
goto T146; |
goto T146; |
421 |
T146:; |
T146:; |
422 |
(V72->c.c_cdr)= make_cons((V73->c.c_car),Cnil); |
(V72->c.c_cdr)= make_cons((V73->c.c_car),Cnil); |
423 |
goto T144; |
goto T144; |
424 |
T144:; |
T144:; |
425 |
{object cdr_V72=MMcdr(V72);while(!endp(cdr_V72)) {cdr_V72=MMcdr(cdr_V72);V72=MMcdr(V72);}} |
{object cdr_V72=MMcdr(V72);while(!endp(cdr_V72)) {cdr_V72=MMcdr(cdr_V72);V72=MMcdr(V72);}} |
426 |
V73=MMcdr(V73); |
V73=MMcdr(V73); |
429 |
base[1]= base[2]; |
base[1]= base[2]; |
430 |
goto T142;} |
goto T142;} |
431 |
goto T143;} |
goto T143;} |
432 |
goto T142; |
goto T142; |
433 |
T142:; |
T142:; |
434 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
435 |
Lreconc(); |
Lreconc(); |
436 |
vs_top=sup; |
vs_top=sup; |
437 |
V51= vs_base[0]; |
V51= vs_base[0]; |
438 |
goto T132; |
goto T132; |
439 |
goto T136; |
goto T136; |
440 |
T136:; |
T136:; |
441 |
{register object x= car((V69)),V77= VV[13]; |
{register object x= car((V69)),V77= VV[13]; |
442 |
while(!endp(V77)) |
while(!endp(V77)) |
444 |
goto T155; |
goto T155; |
445 |
}else V77=V77->c.c_cdr; |
}else V77=V77->c.c_cdr; |
446 |
goto T153;} |
goto T153;} |
447 |
goto T155; |
goto T155; |
448 |
T155:; |
T155:; |
449 |
if(!((car((V69)))==(VV[15]))){ |
if(!((car((V69)))==(VV[15]))){ |
450 |
goto T156;} |
goto T156;} |
454 |
goto T164;} |
goto T164;} |
455 |
if(type_of(car((V69)))==t_symbol){ |
if(type_of(car((V69)))==t_symbol){ |
456 |
goto T163;} |
goto T163;} |
457 |
goto T164; |
goto T164; |
458 |
T164:; |
T164:; |
459 |
(void)((*(LnkLI112))()); |
(void)((*(LnkLI112))()); |
460 |
goto T163; |
goto T163; |
461 |
T163:; |
T163:; |
462 |
V61= make_cons(car((V69)),(V61)); |
V61= make_cons(car((V69)),(V61)); |
463 |
V60= make_cons(car((V69)),(V60)); |
V60= make_cons(car((V69)),(V60)); |
471 |
base[1]= Cnil; |
base[1]= Cnil; |
472 |
goto T179;} |
goto T179;} |
473 |
base[2]=V78=MMcons(Cnil,Cnil); |
base[2]=V78=MMcons(Cnil,Cnil); |
474 |
goto T180; |
goto T180; |
475 |
T180:; |
T180:; |
476 |
if(!(type_of((V79->c.c_car))!=t_cons)){ |
if(!(type_of((V79->c.c_car))!=t_cons)){ |
477 |
goto T187;} |
goto T187;} |
478 |
V82= (V79->c.c_car); |
V82= (V79->c.c_car); |
479 |
goto T185; |
goto T185; |
480 |
goto T187; |
goto T187; |
481 |
T187:; |
T187:; |
482 |
V82= car((V79->c.c_car)); |
V82= car((V79->c.c_car)); |
483 |
goto T185; |
goto T185; |
484 |
T185:; |
T185:; |
485 |
{register object x= V82,V81= (V61); |
{register object x= V82,V81= (V61); |
486 |
while(!endp(V81)) |
while(!endp(V81)) |
488 |
goto T184; |
goto T184; |
489 |
}else V81=V81->c.c_cdr; |
}else V81=V81->c.c_cdr; |
490 |
goto T183;} |
goto T183;} |
491 |
goto T184; |
goto T184; |
492 |
T184:; |
T184:; |
493 |
(V78->c.c_cdr)= Cnil; |
(V78->c.c_cdr)= Cnil; |
494 |
goto T181; |
goto T181; |
495 |
goto T183; |
goto T183; |
496 |
T183:; |
T183:; |
497 |
(V78->c.c_cdr)= make_cons((V79->c.c_car),Cnil); |
(V78->c.c_cdr)= make_cons((V79->c.c_car),Cnil); |
498 |
goto T181; |
goto T181; |
499 |
T181:; |
T181:; |
500 |
{object cdr_V78=MMcdr(V78);while(!endp(cdr_V78)) {cdr_V78=MMcdr(cdr_V78);V78=MMcdr(V78);}} |
{object cdr_V78=MMcdr(V78);while(!endp(cdr_V78)) {cdr_V78=MMcdr(cdr_V78);V78=MMcdr(V78);}} |
501 |
V79=MMcdr(V79); |
V79=MMcdr(V79); |
504 |
base[1]= base[2]; |
base[1]= base[2]; |
505 |
goto T179;} |
goto T179;} |
506 |
goto T180;} |
goto T180;} |
507 |
goto T179; |
goto T179; |
508 |
T179:; |
T179:; |
509 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
510 |
Lreconc(); |
Lreconc(); |
511 |
vs_top=sup; |
vs_top=sup; |
512 |
V51= vs_base[0]; |
V51= vs_base[0]; |
513 |
goto T132; |
goto T132; |
514 |
goto T156; |
goto T156; |
515 |
T156:; |
T156:; |
516 |
if((car((V69)))==(VV[12])){ |
if((car((V69)))==(VV[12])){ |
517 |
goto T189;} |
goto T189;} |
518 |
(void)((*(LnkLI112))()); |
(void)((*(LnkLI112))()); |
519 |
goto T189; |
goto T189; |
520 |
T189:; |
T189:; |
521 |
V60= make_cons(VV[12],(V60)); |
V60= make_cons(VV[12],(V60)); |
522 |
{register object V83; |
{register object V83; |
523 |
V83= cdr((V69)); |
V83= cdr((V69)); |
524 |
goto T197; |
goto T197; |
525 |
T197:; |
T197:; |
526 |
if(!(endp_prop((V83)))){ |
if(!(endp_prop((V83)))){ |
527 |
goto T198;} |
goto T198;} |
528 |
goto T194; |
goto T194; |
529 |
goto T198; |
goto T198; |
530 |
T198:; |
T198:; |
531 |
V60= make_cons(car((V83)),(V60)); |
V60= make_cons(car((V83)),(V60)); |
532 |
if(!(type_of(car((V83)))!=t_cons)){ |
if(!(type_of(car((V83)))!=t_cons)){ |
535 |
goto T206;} |
goto T206;} |
536 |
V61= make_cons(car((V83)),(V61)); |
V61= make_cons(car((V83)),(V61)); |
537 |
goto T204; |
goto T204; |
538 |
goto T206; |
goto T206; |
539 |
T206:; |
T206:; |
540 |
if(!(type_of(caar((V83)))==t_symbol)){ |
if(!(type_of(caar((V83)))==t_symbol)){ |
541 |
goto T212;} |
goto T212;} |
543 |
goto T211;} |
goto T211;} |
544 |
if(!(endp_prop(cddar((V83))))){ |
if(!(endp_prop(cddar((V83))))){ |
545 |
goto T212;} |
goto T212;} |
546 |
goto T211; |
goto T211; |
547 |
T211:; |
T211:; |
548 |
V61= make_cons(caar((V83)),(V61)); |
V61= make_cons(caar((V83)),(V61)); |
549 |
goto T204; |
goto T204; |
550 |
goto T212; |
goto T212; |
551 |
T212:; |
T212:; |
552 |
(void)((*(LnkLI112))()); |
(void)((*(LnkLI112))()); |
553 |
goto T204; |
goto T204; |
554 |
T204:; |
T204:; |
555 |
V83= cdr((V83)); |
V83= cdr((V83)); |
556 |
goto T197;} |
goto T197;} |
557 |
goto T194; |
goto T194; |
558 |
T194:; |
T194:; |
559 |
base[0]= (V60); |
base[0]= (V60); |
560 |
{object V84; |
{object V84; |
563 |
base[1]= Cnil; |
base[1]= Cnil; |
564 |
goto T225;} |
goto T225;} |
565 |
base[2]=V84=MMcons(Cnil,Cnil); |
base[2]=V84=MMcons(Cnil,Cnil); |
566 |
goto T226; |
goto T226; |
567 |
T226:; |
T226:; |
568 |
if(!(type_of((V85->c.c_car))!=t_cons)){ |
if(!(type_of((V85->c.c_car))!=t_cons)){ |
569 |
goto T233;} |
goto T233;} |
570 |
V88= (V85->c.c_car); |
V88= (V85->c.c_car); |
571 |
goto T231; |
goto T231; |
572 |
goto T233; |
goto T233; |
573 |
T233:; |
T233:; |
574 |
V88= car((V85->c.c_car)); |
V88= car((V85->c.c_car)); |
575 |
goto T231; |
goto T231; |
576 |
T231:; |
T231:; |
577 |
{register object x= V88,V87= (V61); |
{register object x= V88,V87= (V61); |
578 |
while(!endp(V87)) |
while(!endp(V87)) |
580 |
goto T230; |
goto T230; |
581 |
}else V87=V87->c.c_cdr; |
}else V87=V87->c.c_cdr; |
582 |
goto T229;} |
goto T229;} |
583 |
goto T230; |
goto T230; |
584 |
T230:; |
T230:; |
585 |
(V84->c.c_cdr)= Cnil; |
(V84->c.c_cdr)= Cnil; |
586 |
goto T227; |
goto T227; |
587 |
goto T229; |
goto T229; |
588 |
T229:; |
T229:; |
589 |
(V84->c.c_cdr)= make_cons((V85->c.c_car),Cnil); |
(V84->c.c_cdr)= make_cons((V85->c.c_car),Cnil); |
590 |
goto T227; |
goto T227; |
591 |
T227:; |
T227:; |
592 |
{object cdr_V84=MMcdr(V84);while(!endp(cdr_V84)) {cdr_V84=MMcdr(cdr_V84);V84=MMcdr(V84);}} |
{object cdr_V84=MMcdr(V84);while(!endp(cdr_V84)) {cdr_V84=MMcdr(cdr_V84);V84=MMcdr(V84);}} |
593 |
V85=MMcdr(V85); |
V85=MMcdr(V85); |
596 |
base[1]= base[2]; |
base[1]= base[2]; |
597 |
goto T225;} |
goto T225;} |
598 |
goto T226;} |
goto T226;} |
599 |
goto T225; |
goto T225; |
600 |
T225:; |
T225:; |
601 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
602 |
Lreconc(); |
Lreconc(); |
603 |
vs_top=sup; |
vs_top=sup; |
604 |
V51= vs_base[0]; |
V51= vs_base[0]; |
605 |
goto T132; |
goto T132; |
606 |
goto T153; |
goto T153; |
607 |
T153:; |
T153:; |
608 |
if(!(type_of(car((V69)))!=t_cons)){ |
if(!(type_of(car((V69)))!=t_cons)){ |
609 |
goto T241;} |
goto T241;} |
610 |
V70= car((V69)); |
V70= car((V69)); |
611 |
goto T239; |
goto T239; |
612 |
goto T241; |
goto T241; |
613 |
T241:; |
T241:; |
614 |
if(!(endp_prop(cdar((V69))))){ |
if(!(endp_prop(cdar((V69))))){ |
615 |
goto T246;} |
goto T246;} |
616 |
V70= caar((V69)); |
V70= caar((V69)); |
617 |
goto T239; |
goto T239; |
618 |
goto T246; |
goto T246; |
619 |
T246:; |
T246:; |
620 |
goto T237; |
goto T237; |
621 |
goto T239; |
goto T239; |
622 |
T239:; |
T239:; |
623 |
base[0]= (V70); |
base[0]= (V70); |
624 |
base[1]= (V51); |
base[1]= (V51); |
632 |
goto T237;} |
goto T237;} |
633 |
V60= make_cons(car((V71)),(V60)); |
V60= make_cons(car((V71)),(V60)); |
634 |
goto T235; |
goto T235; |
635 |
goto T237; |
goto T237; |
636 |
T237:; |
T237:; |
637 |
V60= make_cons(car((V69)),(V60)); |
V60= make_cons(car((V69)),(V60)); |
638 |
goto T235; |
goto T235; |
639 |
T235:; |
T235:; |
640 |
if(!(type_of(car((V69)))!=t_cons)){ |
if(!(type_of(car((V69)))!=t_cons)){ |
641 |
goto T260;} |
goto T260;} |
642 |
if(type_of(car((V69)))==t_symbol){ |
if(type_of(car((V69)))==t_symbol){ |
643 |
goto T262;} |
goto T262;} |
644 |
(void)((*(LnkLI112))()); |
(void)((*(LnkLI112))()); |
645 |
goto T262; |
goto T262; |
646 |
T262:; |
T262:; |
647 |
V61= make_cons(car((V69)),(V61)); |
V61= make_cons(car((V69)),(V61)); |
648 |
goto T258; |
goto T258; |
649 |
goto T260; |
goto T260; |
650 |
T260:; |
T260:; |
651 |
if(type_of(caar((V69)))==t_symbol){ |
if(type_of(caar((V69)))==t_symbol){ |
652 |
goto T267;} |
goto T267;} |
653 |
(void)((*(LnkLI112))()); |
(void)((*(LnkLI112))()); |
654 |
goto T258; |
goto T258; |
655 |
goto T267; |
goto T267; |
656 |
T267:; |
T267:; |
657 |
if(endp_prop(cdar((V69)))){ |
if(endp_prop(cdar((V69)))){ |
658 |
goto T269;} |
goto T269;} |
659 |
if(!(endp_prop(cddar((V69))))){ |
if(!(endp_prop(cddar((V69))))){ |
660 |
goto T270;} |
goto T270;} |
661 |
goto T269; |
goto T269; |
662 |
T269:; |
T269:; |
663 |
V61= make_cons(caar((V69)),(V61)); |
V61= make_cons(caar((V69)),(V61)); |
664 |
goto T258; |
goto T258; |
665 |
goto T270; |
goto T270; |
666 |
T270:; |
T270:; |
667 |
if(type_of(caddar((V69)))==t_symbol){ |
if(type_of(caddar((V69)))==t_symbol){ |
668 |
goto T276;} |
goto T276;} |
669 |
(void)((*(LnkLI112))()); |
(void)((*(LnkLI112))()); |
670 |
goto T258; |
goto T258; |
671 |
goto T276; |
goto T276; |
672 |
T276:; |
T276:; |
673 |
if(endp_prop(cdddar((V69)))){ |
if(endp_prop(cdddar((V69)))){ |
674 |
goto T279;} |
goto T279;} |
675 |
(void)((*(LnkLI112))()); |
(void)((*(LnkLI112))()); |
676 |
goto T258; |
goto T258; |
677 |
goto T279; |
goto T279; |
678 |
T279:; |
T279:; |
679 |
V61= make_cons(caar((V69)),(V61)); |
V61= make_cons(caar((V69)),(V61)); |
680 |
V61= make_cons(caddar((V69)),(V61)); |
V61= make_cons(caddar((V69)),(V61)); |
681 |
goto T258; |
goto T258; |
682 |
T258:; |
T258:; |
683 |
V69= cdr((V69)); |
V69= cdr((V69)); |
684 |
goto T135;} |
goto T135;} |
685 |
goto T132; |
goto T132; |
686 |
T132:; |
T132:; |
687 |
goto T100; |
goto T100; |
688 |
goto T128; |
goto T128; |
689 |
T128:; |
T128:; |
690 |
if(type_of(car((V59)))==t_symbol){ |
if(type_of(car((V59)))==t_symbol){ |
691 |
goto T287;} |
goto T287;} |
692 |
(void)((*(LnkLI112))()); |
(void)((*(LnkLI112))()); |
693 |
goto T287; |
goto T287; |
694 |
T287:; |
T287:; |
695 |
V60= make_cons(car((V59)),(V60)); |
V60= make_cons(car((V59)),(V60)); |
696 |
V61= make_cons(car((V59)),(V61)); |
V61= make_cons(car((V59)),(V61)); |
697 |
V59= cdr((V59)); |
V59= cdr((V59)); |
698 |
goto T103;} |
goto T103;} |
699 |
goto T100; |
goto T100; |
700 |
T100:; |
T100:; |
701 |
V46= car((V46)); |
V46= car((V46)); |
702 |
goto T96; |
goto T96; |
703 |
goto T98; |
goto T98; |
704 |
T98:; |
T98:; |
705 |
V51= make_cons(VV[17],(V51)); |
V51= make_cons(VV[17],(V51)); |
706 |
goto T96; |
goto T96; |
707 |
T96:; |
T96:; |
708 |
if(((V47))!=Cnil){ |
if(((V47))!=Cnil){ |
709 |
goto T299;} |
goto T299;} |
710 |
{object V89 = list(4,VV[3],(V46),(V51),listA(3,VV[18],list(2,VV[11],(V45)),(V50))); |
{object V89 = list(4,VV[3],(V46),(V51),listA(3,VV[18],list(2,VV[11],(V45)),(V50))); |
711 |
VMR2(V89)} |
VMR2(V89)} |
712 |
goto T299; |
goto T299; |
713 |
T299:; |
T299:; |
714 |
if(((V47))==(VV[19])){ |
if(((V47))==(VV[19])){ |
715 |
goto T301;} |
goto T301;} |
717 |
goto T302;} |
goto T302;} |
718 |
if(!((car((V47)))==(VV[19]))){ |
if(!((car((V47)))==(VV[19]))){ |
719 |
goto T302;} |
goto T302;} |
720 |
goto T301; |
goto T301; |
721 |
T301:; |
T301:; |
722 |
{object V90 = list(4,VV[3],(V46),(V51),make_cons(VV[19],(V50))); |
{object V90 = list(4,VV[3],(V46),(V51),make_cons(VV[19],(V50))); |
723 |
VMR2(V90)} |
VMR2(V90)} |
724 |
goto T302; |
goto T302; |
725 |
T302:; |
T302:; |
726 |
if(!(((V47))==(VV[20]))){ |
if(!(((V47))==(VV[20]))){ |
727 |
goto T309;} |
goto T309;} |
728 |
{object V91 = list(4,VV[3],(V46),(V51),make_cons(VV[20],(V50))); |
{object V91 = list(4,VV[3],(V46),(V51),make_cons(VV[20],(V50))); |
729 |
VMR2(V91)} |
VMR2(V91)} |
730 |
goto T309; |
goto T309; |
731 |
T309:; |
T309:; |
732 |
{object V92; |
{object V92; |
733 |
base[0]= VV[21]; |
base[0]= VV[21]; |
740 |
goto T315;} |
goto T315;} |
741 |
{object V93 = (V92); |
{object V93 = (V92); |
742 |
VMR2(V93)} |
VMR2(V93)} |
743 |
goto T315; |
goto T315; |
744 |
T315:; |
T315:; |
745 |
{object V94 = Cnil; |
{object V94 = Cnil; |
746 |
VMR2(V94)}}} |
VMR2(V94)}}} |
752 |
static object LI3() |
static object LI3() |
753 |
|
|
754 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
755 |
goto TTL; |
goto TTL; |
756 |
TTL:; |
TTL:; |
757 |
base[0]= VV[22]; |
base[0]= VV[22]; |
758 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
769 |
|
|
770 |
object V101;object V102;register object V103;object V104;register object V105; |
object V101;object V102;register object V103;object V104;register object V105; |
771 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
772 |
goto TTL; |
goto TTL; |
773 |
TTL:; |
TTL:; |
774 |
{object V106; |
{object V106; |
775 |
V106= (((V103))==Cnil?Ct:Cnil); |
V106= (((V103))==Cnil?Ct:Cnil); |
777 |
goto T320;} |
goto T320;} |
778 |
{object V107 = (V106); |
{object V107 = (V106); |
779 |
VMR4(V107)} |
VMR4(V107)} |
780 |
goto T320; |
goto T320; |
781 |
T320:; |
T320:; |
782 |
if(((V103))==(VV[19])){ |
if(((V103))==(VV[19])){ |
783 |
goto T322;} |
goto T322;} |
785 |
goto T323;} |
goto T323;} |
786 |
if(!((car((V103)))==(VV[19]))){ |
if(!((car((V103)))==(VV[19]))){ |
787 |
goto T323;} |
goto T323;} |
788 |
goto T322; |
goto T322; |
789 |
T322:; |
T322:; |
790 |
if(((V104))!=Cnil){ |
if(((V104))!=Cnil){ |
791 |
goto T329;} |
goto T329;} |
793 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
794 |
Lerror(); |
Lerror(); |
795 |
vs_top=sup; |
vs_top=sup; |
796 |
goto T329; |
goto T329; |
797 |
T329:; |
T329:; |
798 |
V108= list(3,VV[27],VV[28],(V105)); |
V108= list(3,VV[27],VV[28],(V105)); |
799 |
V109= list(3,VV[30],VV[31],(V105)); |
V109= list(3,VV[30],VV[31],(V105)); |
800 |
{object V110 = list(4,VV[3],(V102),VV[24],list(4,VV[25],VV[26],/* INLINE-ARGS */V108,list(3,VV[29],/* INLINE-ARGS */V109,list(2,VV[11],(V101))))); |
{object V110 = list(4,VV[3],(V102),VV[24],list(4,VV[25],VV[26],/* INLINE-ARGS */V108,list(3,VV[29],/* INLINE-ARGS */V109,list(2,VV[11],(V101))))); |
801 |
VMR4(V110)} |
VMR4(V110)} |
802 |
goto T323; |
goto T323; |
803 |
T323:; |
T323:; |
804 |
if(!(((V103))==(VV[20]))){ |
if(!(((V103))==(VV[20]))){ |
805 |
goto T334;} |
goto T334;} |
809 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
810 |
Lerror(); |
Lerror(); |
811 |
vs_top=sup; |
vs_top=sup; |
812 |
goto T336; |
goto T336; |
813 |
T336:; |
T336:; |
814 |
if(!(number_compare((V105),small_fixnum(0))==0)){ |
if(!(number_compare((V105),small_fixnum(0))==0)){ |
815 |
goto T341;} |
goto T341;} |
816 |
{object V111 = list(4,VV[3],(V102),VV[33],list(3,VV[25],VV[34],list(3,VV[29],VV[35],list(2,VV[11],(V101))))); |
{object V111 = list(4,VV[3],(V102),VV[33],list(3,VV[25],VV[34],list(3,VV[29],VV[35],list(2,VV[11],(V101))))); |
817 |
VMR4(V111)} |
VMR4(V111)} |
818 |
goto T341; |
goto T341; |
819 |
T341:; |
T341:; |
820 |
V112= list(2,list(3,VV[38],(V105),VV[39]),VV[40]); |
V112= list(2,list(3,VV[38],(V105),VV[39]),VV[40]); |
821 |
{object V113 = list(4,VV[3],(V102),VV[36],listA(4,VV[37],/* INLINE-ARGS */V112,list(2,VV[41],list(3,VV[25],VV[42],list(3,VV[29],VV[43],list(2,VV[11],(V101))))),VV[44])); |
{object V113 = list(4,VV[3],(V102),VV[36],listA(4,VV[37],/* INLINE-ARGS */V112,list(2,VV[41],list(3,VV[25],VV[42],list(3,VV[29],VV[43],list(2,VV[11],(V101))))),VV[44])); |
822 |
VMR4(V113)} |
VMR4(V113)} |
823 |
goto T334; |
goto T334; |
824 |
T334:; |
T334:; |
825 |
{object V114; |
{object V114; |
826 |
base[0]= VV[45]; |
base[0]= VV[45]; |
832 |
goto T346;} |
goto T346;} |
833 |
{object V115 = (V114); |
{object V115 = (V114); |
834 |
VMR4(V115)} |
VMR4(V115)} |
835 |
goto T346; |
goto T346; |
836 |
T346:; |
T346:; |
837 |
{object V116 = Cnil; |
{object V116 = Cnil; |
838 |
VMR4(V116)}}} |
VMR4(V116)}}} |
845 |
|
|
846 |
register object V119;object V120; |
register object V119;object V120; |
847 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
848 |
goto TTL; |
goto TTL; |
849 |
TTL:; |
TTL:; |
850 |
{object V121; |
{object V121; |
851 |
object V122; |
object V122; |
859 |
goto T350;} |
goto T350;} |
860 |
V121= (V119); |
V121= (V119); |
861 |
goto T348; |
goto T348; |
862 |
goto T350; |
goto T350; |
863 |
T350:; |
T350:; |
864 |
if(!(endp_prop(cdr((V119))))){ |
if(!(endp_prop(cdr((V119))))){ |
865 |
goto T354;} |
goto T354;} |
866 |
V121= car((V119)); |
V121= car((V119)); |
867 |
goto T348; |
goto T348; |
868 |
goto T354; |
goto T354; |
869 |
T354:; |
T354:; |
870 |
V121= car((V119)); |
V121= car((V119)); |
871 |
V122= cadr((V119)); |
V122= cadr((V119)); |
875 |
V125= cddr((V119)); |
V125= cddr((V119)); |
876 |
V126= Cnil; |
V126= Cnil; |
877 |
V127= Cnil; |
V127= Cnil; |
878 |
goto T363; |
goto T363; |
879 |
T363:; |
T363:; |
880 |
if(!(endp_prop((V125)))){ |
if(!(endp_prop((V125)))){ |
881 |
goto T364;} |
goto T364;} |
882 |
goto T348; |
goto T348; |
883 |
goto T364; |
goto T364; |
884 |
T364:; |
T364:; |
885 |
V126= car((V125)); |
V126= car((V125)); |
886 |
if(!(endp_prop(cdr((V125))))){ |
if(!(endp_prop(cdr((V125))))){ |
890 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
891 |
Lerror(); |
Lerror(); |
892 |
vs_top=sup; |
vs_top=sup; |
893 |
goto T370; |
goto T370; |
894 |
T370:; |
T370:; |
895 |
V127= cadr((V125)); |
V127= cadr((V125)); |
896 |
{object V128= (V126); |
{object V128= (V126); |
897 |
if((V128!= VV[75]))goto T378; |
if((V128!= VV[75]))goto T378; |
898 |
V123= (V127); |
V123= (V127); |
899 |
goto T377; |
goto T377; |
900 |
goto T378; |
goto T378; |
901 |
T378:; |
T378:; |
902 |
if((V128!= VV[114]))goto T380; |
if((V128!= VV[114]))goto T380; |
903 |
V124= (V127); |
V124= (V127); |
904 |
goto T377; |
goto T377; |
905 |
goto T380; |
goto T380; |
906 |
T380:; |
T380:; |
907 |
base[0]= VV[47]; |
base[0]= VV[47]; |
908 |
base[1]= (V125); |
base[1]= (V125); |
909 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
910 |
Lerror(); |
Lerror(); |
911 |
vs_top=sup;} |
vs_top=sup;} |
912 |
goto T377; |
goto T377; |
913 |
T377:; |
T377:; |
914 |
V125= cddr((V125)); |
V125= cddr((V125)); |
915 |
goto T363;} |
goto T363;} |
916 |
goto T348; |
goto T348; |
917 |
T348:; |
T348:; |
918 |
{object V129 = list(5,(V121),(V122),(V123),(V124),(V120)); |
{object V129 = list(5,(V121),(V122),(V123),(V124),(V120)); |
919 |
VMR5(V129)}} |
VMR5(V129)}} |
926 |
|
|
927 |
object V132;register object V133; |
object V132;register object V133; |
928 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
929 |
goto TTL; |
goto TTL; |
930 |
TTL:; |
TTL:; |
931 |
if(((V133))!=Cnil){ |
if(((V133))!=Cnil){ |
932 |
goto T388;} |
goto T388;} |
933 |
{object V134 = Cnil; |
{object V134 = Cnil; |
934 |
VMR6(V134)} |
VMR6(V134)} |
935 |
goto T388; |
goto T388; |
936 |
T388:; |
T388:; |
937 |
{register object V135; |
{register object V135; |
938 |
base[0]= caar((V133)); |
base[0]= caar((V133)); |
954 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
955 |
Lerror(); |
Lerror(); |
956 |
vs_top=sup; |
vs_top=sup; |
957 |
goto T398; |
goto T398; |
958 |
T398:; |
T398:; |
959 |
{object V136; |
{object V136; |
960 |
object V137; |
object V137; |
967 |
if(V139==Cnil)goto T413; |
if(V139==Cnil)goto T413; |
968 |
V138= V139; |
V138= V139; |
969 |
goto T412; |
goto T412; |
970 |
goto T413; |
goto T413; |
971 |
T413:;} |
T413:;} |
972 |
V138= Ct; |
V138= Ct; |
973 |
goto T412; |
goto T412; |
974 |
T412:; |
T412:; |
975 |
V140= (*(LnkLI117))(V138);{object V142; |
V140= (*(LnkLI117))(V138);{object V142; |
976 |
V142= caddr(car((V133))); |
V142= caddr(car((V133))); |
977 |
if(V142==Cnil)goto T416; |
if(V142==Cnil)goto T416; |
978 |
V141= V142; |
V141= V142; |
979 |
goto T415; |
goto T415; |
980 |
goto T416; |
goto T416; |
981 |
T416:;} |
T416:;} |
982 |
V141= Ct; |
V141= Ct; |
983 |
goto T415; |
goto T415; |
984 |
T415:; |
T415:; |
985 |
V143= (*(LnkLI117))(V141); |
V143= (*(LnkLI117))(V141); |
986 |
if(equal(/* INLINE-ARGS */V140,/* INLINE-ARGS */V143)){ |
if(equal(/* INLINE-ARGS */V140,/* INLINE-ARGS */V143)){ |
990 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
991 |
Lerror(); |
Lerror(); |
992 |
vs_top=sup; |
vs_top=sup; |
993 |
goto T409; |
goto T409; |
994 |
T409:; |
T409:; |
995 |
V144= list(5,caar((V135)),cadar((V135)),caddar((V135)),cadddr(car((V135))),car(cddddr(car((V133))))); |
V144= list(5,caar((V135)),cadar((V135)),caddar((V135)),cadddr(car((V135))),car(cddddr(car((V133))))); |
996 |
V145= (*(LnkLI118))((V132),cdr((V133))); |
V145= (*(LnkLI118))((V132),cdr((V133))); |
997 |
{object V146 = make_cons(/* INLINE-ARGS */V144,/* INLINE-ARGS */V145); |
{object V146 = make_cons(/* INLINE-ARGS */V144,/* INLINE-ARGS */V145); |
998 |
VMR6(V146)} |
VMR6(V146)} |
999 |
goto T396; |
goto T396; |
1000 |
T396:; |
T396:; |
1001 |
V147= car((V133)); |
V147= car((V133)); |
1002 |
V148= (*(LnkLI118))((V132),cdr((V133))); |
V148= (*(LnkLI118))((V132),cdr((V133))); |
1011 |
|
|
1012 |
object V153;object V154;object V155; |
object V153;object V154;object V155; |
1013 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
1014 |
goto TTL; |
goto TTL; |
1015 |
TTL:; |
TTL:; |
1016 |
{object V156; |
{object V156; |
1017 |
V156= Cnil; |
V156= Cnil; |
1030 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1031 |
Lerror(); |
Lerror(); |
1032 |
vs_top=sup; |
vs_top=sup; |
1033 |
goto T426; |
goto T426; |
1034 |
T426:; |
T426:; |
1035 |
V159= structure_ref((V158),VV[53],2); |
V159= structure_ref((V158),VV[53],2); |
1036 |
{object V160; |
{object V160; |
1038 |
V162 = make_fixnum((long)length((V159))); |
V162 = make_fixnum((long)length((V159))); |
1039 |
V160= (number_compare((V153),V162)<=0?((V153)):V162); |
V160= (number_compare((V153),V162)<=0?((V153)):V162); |
1040 |
V161= small_fixnum(0); |
V161= small_fixnum(0); |
1041 |
goto T434; |
goto T434; |
1042 |
T434:; |
T434:; |
1043 |
if(!(number_compare((V161),(V160))>=0)){ |
if(!(number_compare((V161),(V160))>=0)){ |
1044 |
goto T435;} |
goto T435;} |
1045 |
goto T422; |
goto T422; |
1046 |
goto T435; |
goto T435; |
1047 |
T435:; |
T435:; |
1048 |
V163= aref1((V159),fixint((V161))); |
V163= aref1((V159),fixint((V161))); |
1049 |
(void)(aset1((V157),fixint((V161)),/* INLINE-ARGS */V163)); |
(void)(aset1((V157),fixint((V161)),/* INLINE-ARGS */V163)); |
1050 |
V161= one_plus((V161)); |
V161= one_plus((V161)); |
1051 |
goto T434;}} |
goto T434;}} |
1052 |
goto T422; |
goto T422; |
1053 |
T422:; |
T422:; |
1054 |
{register object V164; |
{register object V164; |
1055 |
register object V165; |
register object V165; |
1056 |
V164= (V155); |
V164= (V155); |
1057 |
V165= car((V164)); |
V165= car((V164)); |
1058 |
goto T447; |
goto T447; |
1059 |
T447:; |
T447:; |
1060 |
if(!(endp_prop((V164)))){ |
if(!(endp_prop((V164)))){ |
1061 |
goto T448;} |
goto T448;} |
1062 |
goto T443; |
goto T443; |
1063 |
goto T448; |
goto T448; |
1064 |
T448:; |
T448:; |
1065 |
V156= car(cddddr((V165))); |
V156= car(cddddr((V165))); |
1066 |
{register object V166; |
{register object V166; |
1078 |
vs_top=sup; |
vs_top=sup; |
1079 |
V168= vs_base[0]; |
V168= vs_base[0]; |
1080 |
(void)(aset1((V157),fixint((V156)),V168));} |
(void)(aset1((V157),fixint((V156)),V168));} |
1081 |
goto T454; |
goto T454; |
1082 |
T454:; |
T454:; |
1083 |
V164= cdr((V164)); |
V164= cdr((V164)); |
1084 |
V165= car((V164)); |
V165= car((V164)); |
1085 |
goto T447;} |
goto T447;} |
1086 |
goto T443; |
goto T443; |
1087 |
T443:; |
T443:; |
1088 |
V169 = make_fixnum((long)length(symbol_value(VV[56]))); |
V169 = make_fixnum((long)length(symbol_value(VV[56]))); |
1089 |
if(!(number_compare((V153),V169)<0)){ |
if(!(number_compare((V153),V169)<0)){ |
1090 |
goto T468;} |
goto T468;} |
1091 |
{register object V171; |
{register object V171; |
1092 |
V171= small_fixnum(0); |
V171= small_fixnum(0); |
1093 |
goto T473; |
goto T473; |
1094 |
T473:; |
T473:; |
1095 |
if(!(number_compare((V171),V153)>=0)){ |
if(!(number_compare((V171),V153)>=0)){ |
1096 |
goto T474;} |
goto T474;} |
1097 |
goto T470; |
goto T470; |
1098 |
goto T474; |
goto T474; |
1099 |
T474:; |
T474:; |
1100 |
{long V172= fix(aref1((V157),fixint((V171)))); |
{long V172= fix(aref1((V157),fixint((V171)))); |
1101 |
if((/* INLINE-ARGS */V172)==(0)){ |
if((/* INLINE-ARGS */V172)==(0)){ |
1102 |
goto T478;}} |
goto T478;}} |
1103 |
{object V173 = (V157); |
{object V173 = (V157); |
1104 |
VMR7(V173)} |
VMR7(V173)} |
1105 |
goto T478; |
goto T478; |
1106 |
T478:; |
T478:; |
1107 |
V171= one_plus((V171)); |
V171= one_plus((V171)); |
1108 |
goto T473;} |
goto T473;} |
1109 |
goto T470; |
goto T470; |
1110 |
T470:; |
T470:; |
1111 |
{object V174 = symbol_value(VV[56]); |
{object V174 = symbol_value(VV[56]); |
1112 |
VMR7(V174)} |
VMR7(V174)} |
1113 |
goto T468; |
goto T468; |
1114 |
T468:; |
T468:; |
1115 |
{object V175 = (V157); |
{object V175 = (V157); |
1116 |
VMR7(V175)}}} |
VMR7(V175)}}} |
1123 |
|
|
1124 |
long V178;long V179; |
long V178;long V179; |
1125 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
1126 |
goto TTL; |
goto TTL; |
1127 |
TTL:; |
TTL:; |
1128 |
base[0]= make_fixnum(V178); |
base[0]= make_fixnum(V178); |
1129 |
base[1]= make_fixnum(V179); |
base[1]= make_fixnum(V179); |
1141 |
|
|
1142 |
object V184;object V185;object V186; |
object V184;object V185;object V186; |
1143 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
1144 |
goto TTL; |
goto TTL; |
1145 |
TTL:; |
TTL:; |
1146 |
{register object V187; |
{register object V187; |
1147 |
object V188; |
object V188; |
1153 |
register object V191; |
register object V191; |
1154 |
V190= (V186); |
V190= (V186); |
1155 |
V191= car((V190)); |
V191= car((V190)); |
1156 |
goto T496; |
goto T496; |
1157 |
T496:; |
T496:; |
1158 |
if(!(endp_prop((V190)))){ |
if(!(endp_prop((V190)))){ |
1159 |
goto T497;} |
goto T497;} |
1160 |
goto T492; |
goto T492; |
1161 |
goto T497; |
goto T497; |
1162 |
T497:; |
T497:; |
1163 |
if(((V191))==Cnil){ |
if(((V191))==Cnil){ |
1164 |
goto T501;} |
goto T501;} |
1190 |
Lsymbol_value(); |
Lsymbol_value(); |
1191 |
vs_top=sup; |
vs_top=sup; |
1192 |
V194= vs_base[0]; |
V194= vs_base[0]; |
1193 |
goto T516; |
goto T516; |
1194 |
T516:; |
T516:; |
1195 |
base[1]= (V194); |
base[1]= (V194); |
1196 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1199 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1200 |
goto T524;} |
goto T524;} |
1201 |
goto T510; |
goto T510; |
1202 |
goto T524; |
goto T524; |
1203 |
T524:; |
T524:; |
1204 |
{object V196; |
{object V196; |
1205 |
V196= (*(LnkLI123))((V194),(V187)); |
V196= (*(LnkLI123))((V194),(V187)); |
1206 |
if(type_of(cdr(V191))!=t_cons)FEwrong_type_argument(Scons,cdr(V191)); |
if(type_of(cdr(V191))!=t_cons)FEwrong_type_argument(Scons,cdr(V191)); |
1207 |
(cdr(V191))->c.c_car = (V196); |
(cdr(V191))->c.c_car = (V196); |
1208 |
(void)(cdr(V191));}} |
(void)(cdr(V191));}} |
1209 |
goto T510; |
goto T510; |
1210 |
T510:; |
T510:; |
1211 |
{register object x= (V187),V197= VV[58]; |
{register object x= (V187),V197= VV[58]; |
1212 |
while(!endp(V197)) |
while(!endp(V197)) |
1214 |
goto T530; |
goto T530; |
1215 |
}else V197=V197->c.c_cdr; |
}else V197=V197->c.c_cdr; |
1216 |
goto T501;} |
goto T501;} |
1217 |
goto T530; |
goto T530; |
1218 |
T530:; |
T530:; |
1219 |
V188= Ct; |
V188= Ct; |
1220 |
goto T501; |
goto T501; |
1221 |
T501:; |
T501:; |
1222 |
V190= cdr((V190)); |
V190= cdr((V190)); |
1223 |
V191= car((V190)); |
V191= car((V190)); |
1224 |
goto T496;} |
goto T496;} |
1225 |
goto T492; |
goto T492; |
1226 |
T492:; |
T492:; |
1227 |
{object V198; |
{object V198; |
1228 |
if(((V188))==Cnil){ |
if(((V188))==Cnil){ |
1229 |
goto T538;} |
goto T538;} |
1230 |
V198= Cnil; |
V198= Cnil; |
1231 |
goto T537; |
goto T537; |
1232 |
goto T538; |
goto T538; |
1233 |
T538:; |
T538:; |
1234 |
V199 = make_fixnum((long)length(symbol_value(VV[57]))); |
V199 = make_fixnum((long)length(symbol_value(VV[57]))); |
1235 |
if(number_compare((V184),V199)<0){ |
if(number_compare((V184),V199)<0){ |
1236 |
goto T540;} |
goto T540;} |
1237 |
V198= Cnil; |
V198= Cnil; |
1238 |
goto T537; |
goto T537; |
1239 |
goto T540; |
goto T540; |
1240 |
T540:;{object V200; |
T540:;{object V200; |
1241 |
V200= symbol_value(VV[57]); |
V200= symbol_value(VV[57]); |
1242 |
base[0]= Ct; |
base[0]= Ct; |
1245 |
vs_top=sup; |
vs_top=sup; |
1246 |
V201= vs_base[0]; |
V201= vs_base[0]; |
1247 |
V198= list(3,V200,number_times((V184),V201),Cnil);} |
V198= list(3,V200,number_times((V184),V201),Cnil);} |
1248 |
goto T537; |
goto T537; |
1249 |
T537:; |
T537:; |
1250 |
if(((V198))==Cnil){ |
if(((V198))==Cnil){ |
1251 |
goto T545;} |
goto T545;} |
1252 |
{object V202 = (V198); |
{object V202 = (V198); |
1253 |
VMR9(V202)} |
VMR9(V202)} |
1254 |
goto T545; |
goto T545; |
1255 |
T545:; |
T545:; |
1256 |
{object V203; |
{object V203; |
1257 |
register long V204; |
register long V204; |
1269 |
register object V210; |
register object V210; |
1270 |
V209= (V186); |
V209= (V186); |
1271 |
V210= car((V209)); |
V210= car((V209)); |
1272 |
goto T556; |
goto T556; |
1273 |
T556:; |
T556:; |
1274 |
if(!(endp_prop((V209)))){ |
if(!(endp_prop((V209)))){ |
1275 |
goto T557;} |
goto T557;} |
1276 |
goto T552; |
goto T552; |
1277 |
goto T557; |
goto T557; |
1278 |
T557:; |
T557:; |
1279 |
V207= caddr((V210)); |
V207= caddr((V210)); |
1280 |
base[1]= (V207); |
base[1]= (V207); |
1291 |
(void)(cddr(V210)); |
(void)(cddr(V210)); |
1292 |
V206= fix(symbol_value(VV[55])); |
V206= fix(symbol_value(VV[55])); |
1293 |
V210= nconc((V210),VV[60]); |
V210= nconc((V210),VV[60]); |
1294 |
goto T566; |
goto T566; |
1295 |
T566:; |
T566:; |
1296 |
V208= (long)(*(LnkLI125))(V204,V206); |
V208= (long)(*(LnkLI125))(V204,V206); |
1297 |
if(!((V204)==(V208))){ |
if(!((V204)==(V208))){ |
1298 |
goto T579;} |
goto T579;} |
1299 |
goto T578; |
goto T578; |
1300 |
goto T579; |
goto T579; |
1301 |
T579:; |
T579:; |
1302 |
V189= Ct; |
V189= Ct; |
1303 |
goto T578; |
goto T578; |
1304 |
T578:; |
T578:; |
1305 |
V204= V208; |
V204= V208; |
1306 |
V214 = make_fixnum(V204); |
V214 = make_fixnum(V204); |
1316 |
V209= cdr((V209)); |
V209= cdr((V209)); |
1317 |
V210= car((V209)); |
V210= car((V209)); |
1318 |
goto T556;} |
goto T556;} |
1319 |
goto T552; |
goto T552; |
1320 |
T552:; |
T552:; |
1321 |
base[0]= Ct; |
base[0]= Ct; |
1322 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1373 |
else { |
else { |
1374 |
V246= va_arg(ap,object);} |
V246= va_arg(ap,object);} |
1375 |
--narg; goto T600; |
--narg; goto T600; |
1376 |
goto T598; |
goto T598; |
1377 |
T598:; |
T598:; |
1378 |
V245= Cnil; |
V245= Cnil; |
1379 |
goto T599; |
goto T599; |
1380 |
T599:; |
T599:; |
1381 |
V246= Cnil; |
V246= Cnil; |
1382 |
goto T600; |
goto T600; |
1383 |
T600:; |
T600:; |
1384 |
{object V247; |
{object V247; |
1385 |
object V248; |
object V248; |
1388 |
if(type_of((V235))==t_cons){ |
if(type_of((V235))==t_cons){ |
1389 |
goto T606;} |
goto T606;} |
1390 |
goto T605; |
goto T605; |
1391 |
goto T606; |
goto T606; |
1392 |
T606:; |
T606:; |
1393 |
if((car((V235)))==(VV[19])){ |
if((car((V235)))==(VV[19])){ |
1394 |
goto T608;} |
goto T608;} |
1395 |
goto T605; |
goto T605; |
1396 |
goto T608; |
goto T608; |
1397 |
T608:; |
T608:; |
1398 |
V235= VV[19]; |
V235= VV[19]; |
1399 |
goto T605; |
goto T605; |
1400 |
T605:; |
T605:; |
1401 |
V248= make_fixnum((long)length((V237))); |
V248= make_fixnum((long)length((V237))); |
1402 |
{register object V249; |
{register object V249; |
1403 |
register object V250; |
register object V250; |
1404 |
V249= (V237); |
V249= (V237); |
1405 |
V250= car((V249)); |
V250= car((V249)); |
1406 |
goto T617; |
goto T617; |
1407 |
T617:; |
T617:; |
1408 |
if(!(endp_prop((V249)))){ |
if(!(endp_prop((V249)))){ |
1409 |
goto T618;} |
goto T618;} |
1410 |
goto T613; |
goto T613; |
1411 |
goto T618; |
goto T618; |
1412 |
T618:; |
T618:; |
1413 |
if((V250)==Cnil){ |
if((V250)==Cnil){ |
1414 |
goto T622;} |
goto T622;} |
1415 |
if((car((V250)))!=Cnil){ |
if((car((V250)))!=Cnil){ |
1416 |
goto T623;} |
goto T623;} |
1417 |
goto T622; |
goto T622; |
1418 |
goto T623; |
goto T623; |
1419 |
T623:; |
T623:; |
1420 |
base[1]= (Vcs[0]->c.c_car); |
base[1]= (Vcs[0]->c.c_car); |
1421 |
base[2]= (V233); |
base[2]= (V233); |
1432 |
vs_base=base+1;} |
vs_base=base+1;} |
1433 |
(void) (*Lnk126)(); |
(void) (*Lnk126)(); |
1434 |
vs_top=sup; |
vs_top=sup; |
1435 |
goto T622; |
goto T622; |
1436 |
T622:; |
T622:; |
1437 |
V249= cdr((V249)); |
V249= cdr((V249)); |
1438 |
V250= car((V249)); |
V250= car((V249)); |
1439 |
goto T617;} |
goto T617;} |
1440 |
goto T613; |
goto T613; |
1441 |
T613:; |
T613:; |
1442 |
if(((V238))==Cnil){ |
if(((V238))==Cnil){ |
1443 |
goto T638;} |
goto T638;} |
1448 |
if((V252!= Cnil))goto T645; |
if((V252!= Cnil))goto T645; |
1449 |
base[1]= symbol_function(VV[127]); |
base[1]= symbol_function(VV[127]); |
1450 |
goto T644; |
goto T644; |
1451 |
goto T645; |
goto T645; |
1452 |
T645:; |
T645:; |
1453 |
if((V252!= VV[20]))goto T646; |
if((V252!= VV[20]))goto T646; |
1454 |
base[1]= symbol_function(VV[128]); |
base[1]= symbol_function(VV[128]); |
1455 |
goto T644; |
goto T644; |
1456 |
goto T646; |
goto T646; |
1457 |
T646:; |
T646:; |
1458 |
if((V252!= VV[19]))goto T647; |
if((V252!= VV[19]))goto T647; |
1459 |
base[1]= symbol_function(VV[129]); |
base[1]= symbol_function(VV[129]); |
1460 |
goto T644; |
goto T644; |
1461 |
goto T647; |
goto T647; |
1462 |
T647:; |
T647:; |
1463 |
FEerror("The ECASE key value ~s is illegal.",1,V252); |
FEerror("The ECASE key value ~s is illegal.",1,V252); |
1464 |
base[1]= Cnil; |
base[1]= Cnil; |
1465 |
goto T644;} |
goto T644;} |
1466 |
goto T644; |
goto T644; |
1467 |
T644:; |
T644:; |
1468 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1469 |
siLfset(); |
siLfset(); |
1470 |
vs_top=sup; |
vs_top=sup; |
1471 |
goto T638; |
goto T638; |
1472 |
T638:; |
T638:; |
1473 |
if(((V235))!=Cnil){ |
if(((V235))!=Cnil){ |
1474 |
goto T650;} |
goto T650;} |
1490 |
vs_top=sup; |
vs_top=sup; |
1491 |
V247= vs_base[0]; |
V247= vs_base[0]; |
1492 |
goto T648; |
goto T648; |
1493 |
goto T650; |
goto T650; |
1494 |
T650:; |
T650:; |
1495 |
{object V255; |
{object V255; |
1496 |
object V256; |
object V256; |
1500 |
V258= Cnil; |
V258= Cnil; |
1501 |
goto T662;} |
goto T662;} |
1502 |
V258= get((V240),VV[53],Cnil); |
V258= get((V240),VV[53],Cnil); |
1503 |
goto T662; |
goto T662; |
1504 |
T662:; |
T662:; |
1505 |
V255= Cnil; |
V255= Cnil; |
1506 |
V256= small_fixnum(0); |
V256= small_fixnum(0); |
1518 |
V260= structure_ref((V259),VV[53],4); |
V260= structure_ref((V259),VV[53],4); |
1519 |
if((/* INLINE-ARGS */V260)==((V258))){ |
if((/* INLINE-ARGS */V260)==((V258))){ |
1520 |
goto T666;}} |
goto T666;}} |
1521 |
goto T672; |
goto T672; |
1522 |
T672:; |
T672:; |
1523 |
goto T667; |
goto T667; |
1524 |
T667:; |
T667:; |
1525 |
(void)((VFUN_NARGS=2,(*(LnkLI132))(VV[62],(V240)))); |
(void)((VFUN_NARGS=2,(*(LnkLI132))(VV[62],(V240)))); |
1526 |
goto T666; |
goto T666; |
1527 |
T666:; |
T666:; |
1528 |
{object V261; |
{object V261; |
1529 |
object V263; |
object V263; |
1535 |
vs_top=sup; |
vs_top=sup; |
1536 |
V263= vs_base[0]; |
V263= vs_base[0]; |
1537 |
(void)(structure_set(V258,VV[53],3,(V263)));} |
(void)(structure_set(V258,VV[53],3,(V263)));} |
1538 |
goto T663; |
goto T663; |
1539 |
T663:; |
T663:; |
1540 |
if(((V235))!=Cnil){ |
if(((V235))!=Cnil){ |
1541 |
goto T678;} |
goto T678;} |
1543 |
V256= cadr((V255)); |
V256= cadr((V255)); |
1544 |
V257= caddr((V255)); |
V257= caddr((V255)); |
1545 |
V255= car((V255)); |
V255= car((V255)); |
1546 |
goto T678; |
goto T678; |
1547 |
T678:; |
T678:; |
1548 |
if(((V235))==Cnil){ |
if(((V235))==Cnil){ |
1549 |
goto T690;} |
goto T690;} |
1550 |
V264= Cnil; |
V264= Cnil; |
1551 |
goto T689; |
goto T689; |
1552 |
goto T690; |
goto T690; |
1553 |
T690:; |
T690:; |
1554 |
V264= (*(LnkLI130))((V248),(V240),(V237)); |
V264= (*(LnkLI130))((V248),(V240),(V237)); |
1555 |
goto T689; |
goto T689; |
1556 |
T689:; |
T689:; |
1557 |
V247= (VFUN_NARGS=32,(*(LnkLI134))(VV[63],(Vcs[0]->c.c_car),VV[64],(V248),VV[65],V264,VV[66],(V255),VV[67],(V256),VV[68],(V257),VV[69],(V239),VV[70],(V258),VV[71],(V241),VV[72],(V237),VV[73],(V242),VV[74],(V243),VV[75],(V235),VV[76],(V236),VV[77],(V245),VV[78],(V233)));} |
V247= (VFUN_NARGS=32,(*(LnkLI134))(VV[63],(Vcs[0]->c.c_car),VV[64],(V248),VV[65],V264,VV[66],(V255),VV[67],(V256),VV[68],(V257),VV[69],(V239),VV[70],(V258),VV[71],(V241),VV[72],(V237),VV[73],(V242),VV[74],(V243),VV[75],(V235),VV[76],(V236),VV[77],(V245),VV[78],(V233)));} |
1558 |
goto T648; |
goto T648; |
1559 |
T648:; |
T648:; |
1560 |
{object V265; |
{object V265; |
1561 |
V265= get((Vcs[0]->c.c_car),VV[53],Cnil); |
V265= get((Vcs[0]->c.c_car),VV[53],Cnil); |
1564 |
if(((V265))==Cnil){ |
if(((V265))==Cnil){ |
1565 |
goto T698;} |
goto T698;} |
1566 |
(void)((VFUN_NARGS=1,(*(LnkLI132))(VV[79]))); |
(void)((VFUN_NARGS=1,(*(LnkLI132))(VV[79]))); |
1567 |
goto T698; |
goto T698; |
1568 |
T698:; |
T698:; |
1569 |
if((V265)!=Cnil){ |
if((V265)!=Cnil){ |
1570 |
goto T694;} |
goto T694;} |
1571 |
(void)(sputprop((Vcs[0]->c.c_car),VV[53],(V247))); |
(void)(sputprop((Vcs[0]->c.c_car),VV[53],(V247))); |
1572 |
goto T694; |
goto T694; |
1573 |
goto T696; |
goto T696; |
1574 |
T696:; |
T696:; |
1575 |
if(((V265))==Cnil){ |
if(((V265))==Cnil){ |
1576 |
goto T702;} |
goto T702;} |
1577 |
(void)((*(LnkLI135))((V265),(V247),(Vcs[0]->c.c_car))); |
(void)((*(LnkLI135))((V265),(V247),(Vcs[0]->c.c_car))); |
1578 |
goto T694; |
goto T694; |
1579 |
goto T702; |
goto T702; |
1580 |
T702:; |
T702:; |
1581 |
(void)(sputprop((Vcs[0]->c.c_car),VV[53],(V247))); |
(void)(sputprop((Vcs[0]->c.c_car),VV[53],(V247))); |
1582 |
goto T694; |
goto T694; |
1583 |
T694:; |
T694:; |
1584 |
if(((V245))==Cnil){ |
if(((V245))==Cnil){ |
1585 |
goto T704;} |
goto T704;} |
1586 |
(void)(sputprop((Vcs[0]->c.c_car),VV[80],(V245))); |
(void)(sputprop((Vcs[0]->c.c_car),VV[80],(V245))); |
1587 |
goto T704; |
goto T704; |
1588 |
T704:; |
T704:; |
1589 |
if(((V235))!=Cnil){ |
if(((V235))!=Cnil){ |
1590 |
goto T692;} |
goto T692;} |
1605 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1606 |
siLfset(); |
siLfset(); |
1607 |
vs_top=sup; |
vs_top=sup; |
1608 |
goto T716; |
goto T716; |
1609 |
T716:; |
T716:; |
1610 |
(void)(sputprop((V244),VV[82],VV[83])); |
(void)(sputprop((V244),VV[82],VV[83])); |
1611 |
(void)(sputprop((V244),VV[84],(Vcs[0]->c.c_car)));} |
(void)(sputprop((V244),VV[84],(Vcs[0]->c.c_car)));} |
1612 |
goto T692; |
goto T692; |
1613 |
T692:; |
T692:; |
1614 |
{object V266 = Cnil; |
{object V266 = Cnil; |
1615 |
VMR10(V266)}} |
VMR10(V266)}} |
1672 |
goto T720;} |
goto T720;} |
1673 |
V269= cdr(base[2]); |
V269= cdr(base[2]); |
1674 |
base[2]= car(base[2]); |
base[2]= car(base[2]); |
1675 |
goto T720; |
goto T720; |
1676 |
T720:; |
T720:; |
1677 |
base[4]= coerce_to_string(base[2]); |
base[4]= coerce_to_string(base[2]); |
1678 |
base[5]= VV[85]; |
base[5]= VV[85]; |
1716 |
V287= (V269); |
V287= (V269); |
1717 |
V288= Cnil; |
V288= Cnil; |
1718 |
V289= Cnil; |
V289= Cnil; |
1719 |
goto T747; |
goto T747; |
1720 |
T747:; |
T747:; |
1721 |
if(!(endp_prop((V287)))){ |
if(!(endp_prop((V287)))){ |
1722 |
goto T748;} |
goto T748;} |
1723 |
goto T745; |
goto T745; |
1724 |
goto T748; |
goto T748; |
1725 |
T748:; |
T748:; |
1726 |
if(!(type_of(car((V287)))==t_cons)){ |
if(!(type_of(car((V287)))==t_cons)){ |
1727 |
goto T754;} |
goto T754;} |
1736 |
V270= VV[89]; |
V270= VV[89]; |
1737 |
V286= Ct; |
V286= Ct; |
1738 |
goto T752; |
goto T752; |
1739 |
goto T764; |
goto T764; |
1740 |
T764:; |
T764:; |
1741 |
V270= (V289); |
V270= (V289); |
1742 |
goto T752; |
goto T752; |
1743 |
goto T762; |
goto T762; |
1744 |
T762:; |
T762:; |
1745 |
if((V290!= VV[136]))goto T770; |
if((V290!= VV[136]))goto T770; |
1746 |
if(((V289))!=Cnil){ |
if(((V289))!=Cnil){ |
1747 |
goto T772;} |
goto T772;} |
1748 |
V273= Ct; |
V273= Ct; |
1749 |
goto T752; |
goto T752; |
1750 |
goto T772; |
goto T772; |
1751 |
T772:; |
T772:; |
1752 |
if(!(endp_prop(cddar((V287))))){ |
if(!(endp_prop(cddar((V287))))){ |
1753 |
goto T776;} |
goto T776;} |
1754 |
V271= make_cons((V289),(V271)); |
V271= make_cons((V289),(V271)); |
1755 |
goto T752; |
goto T752; |
1756 |
goto T776; |
goto T776; |
1757 |
T776:; |
T776:; |
1758 |
V271= make_cons(cdar((V287)),(V271)); |
V271= make_cons(cdar((V287)),(V271)); |
1759 |
goto T752; |
goto T752; |
1760 |
goto T770; |
goto T770; |
1761 |
T770:; |
T770:; |
1762 |
if((V290!= VV[137]))goto T780; |
if((V290!= VV[137]))goto T780; |
1763 |
V274= (V289); |
V274= (V289); |
1764 |
goto T752; |
goto T752; |
1765 |
goto T780; |
goto T780; |
1766 |
T780:; |
T780:; |
1767 |
if((V290!= VV[52]))goto T782; |
if((V290!= VV[52]))goto T782; |
1768 |
V285= (V289); |
V285= (V289); |
1769 |
goto T752; |
goto T752; |
1770 |
goto T782; |
goto T782; |
1771 |
T782:; |
T782:; |
1772 |
if((V290!= VV[138]))goto T784; |
if((V290!= VV[138]))goto T784; |
1773 |
V275= (V289); |
V275= (V289); |
1774 |
V276= Ct; |
V276= Ct; |
1775 |
goto T752; |
goto T752; |
1776 |
goto T784; |
goto T784; |
1777 |
T784:; |
T784:; |
1778 |
if((V290!= VV[139]))goto T788; |
if((V290!= VV[139]))goto T788; |
1779 |
V277= cdar((V287)); |
V277= cdar((V287)); |
1785 |
Lerror(); |
Lerror(); |
1786 |
vs_top=sup; |
vs_top=sup; |
1787 |
goto T752; |
goto T752; |
1788 |
goto T788; |
goto T788; |
1789 |
T788:; |
T788:; |
1790 |
if((V290!= VV[71]))goto T795; |
if((V290!= VV[71]))goto T795; |
1791 |
if(type_of((V289))==t_cons){ |
if(type_of((V289))==t_cons){ |
1792 |
goto T797;} |
goto T797;} |
1793 |
goto T796; |
goto T796; |
1794 |
goto T797; |
goto T797; |
1795 |
T797:; |
T797:; |
1796 |
if((car((V289)))==(VV[91])){ |
if((car((V289)))==(VV[91])){ |
1797 |
goto T799;} |
goto T799;} |
1798 |
goto T796; |
goto T796; |
1799 |
goto T799; |
goto T799; |
1800 |
T799:; |
T799:; |
1801 |
V289= cadr((V289)); |
V289= cadr((V289)); |
1802 |
goto T796; |
goto T796; |
1803 |
T796:; |
T796:; |
1804 |
V278= (V289); |
V278= (V289); |
1805 |
goto T752; |
goto T752; |
1806 |
goto T795; |
goto T795; |
1807 |
T795:; |
T795:; |
1808 |
if((V290!= VV[75]))goto T803; |
if((V290!= VV[75]))goto T803; |
1809 |
V279= (V289); |
V279= (V289); |
1810 |
goto T752; |
goto T752; |
1811 |
goto T803; |
goto T803; |
1812 |
T803:; |
T803:; |
1813 |
if((V290!= VV[140]))goto T805; |
if((V290!= VV[140]))goto T805; |
1814 |
V281= (V289); |
V281= (V289); |
1815 |
goto T752; |
goto T752; |
1816 |
goto T805; |
goto T805; |
1817 |
T805:; |
T805:; |
1818 |
base[4]= VV[92]; |
base[4]= VV[92]; |
1819 |
base[5]= (V288); |
base[5]= (V288); |
1821 |
Lerror(); |
Lerror(); |
1822 |
vs_top=sup; |
vs_top=sup; |
1823 |
goto T752;} |
goto T752;} |
1824 |
goto T754; |
goto T754; |
1825 |
T754:; |
T754:; |
1826 |
if(!(type_of(car((V287)))==t_cons)){ |
if(!(type_of(car((V287)))==t_cons)){ |
1827 |
goto T811;} |
goto T811;} |
1828 |
V288= caar((V287)); |
V288= caar((V287)); |
1829 |
goto T809; |
goto T809; |
1830 |
goto T811; |
goto T811; |
1831 |
T811:; |
T811:; |
1832 |
V288= car((V287)); |
V288= car((V287)); |
1833 |
goto T809; |
goto T809; |
1834 |
T809:; |
T809:; |
1835 |
{object V291= (V288); |
{object V291= (V288); |
1836 |
if((V291!= VV[136]))goto T815; |
if((V291!= VV[136]))goto T815; |
1837 |
V271= make_cons((V272),(V271)); |
V271= make_cons((V272),(V271)); |
1838 |
goto T752; |
goto T752; |
1839 |
goto T815; |
goto T815; |
1840 |
T815:; |
T815:; |
1841 |
if((V291!= VV[137]) |
if((V291!= VV[137]) |
1842 |
&& (V291!= VV[138]) |
&& (V291!= VV[138]) |
1843 |
&& (V291!= VV[71]))goto T817; |
&& (V291!= VV[71]))goto T817; |
1844 |
goto T752; |
goto T752; |
1845 |
goto T817; |
goto T817; |
1846 |
T817:; |
T817:; |
1847 |
if((V291!= VV[78]))goto T818; |
if((V291!= VV[78]))goto T818; |
1848 |
V270= VV[93]; |
V270= VV[93]; |
1849 |
V286= Ct; |
V286= Ct; |
1850 |
goto T752; |
goto T752; |
1851 |
goto T818; |
goto T818; |
1852 |
T818:; |
T818:; |
1853 |
if((V291!= VV[76]))goto T822; |
if((V291!= VV[76]))goto T822; |
1854 |
V280= Ct; |
V280= Ct; |
1855 |
goto T752; |
goto T752; |
1856 |
goto T822; |
goto T822; |
1857 |
T822:; |
T822:; |
1858 |
base[4]= VV[94]; |
base[4]= VV[94]; |
1859 |
base[5]= (V288); |
base[5]= (V288); |
1860 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1861 |
Lerror(); |
Lerror(); |
1862 |
vs_top=sup;} |
vs_top=sup;} |
1863 |
goto T752; |
goto T752; |
1864 |
T752:; |
T752:; |
1865 |
V287= cdr((V287)); |
V287= cdr((V287)); |
1866 |
goto T747;} |
goto T747;} |
1867 |
goto T745; |
goto T745; |
1868 |
T745:; |
T745:; |
1869 |
base[4]= coerce_to_string((V270)); |
base[4]= coerce_to_string((V270)); |
1870 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1876 |
if(((V278))==Cnil){ |
if(((V278))==Cnil){ |
1877 |
goto T833;} |
goto T833;} |
1878 |
goto T832; |
goto T832; |
1879 |
goto T833; |
goto T833; |
1880 |
T833:; |
T833:; |
1881 |
V292= get(car((V277)),VV[53],Cnil); |
V292= get(car((V277)),VV[53],Cnil); |
1882 |
V278= structure_ref(V292,VV[53],6); |
V278= structure_ref(V292,VV[53],6); |
1883 |
goto T832; |
goto T832; |
1884 |
T832:; |
T832:; |
1885 |
if(endp_prop((V268))){ |
if(endp_prop((V268))){ |
1886 |
goto T837;} |
goto T837;} |
1888 |
goto T837;} |
goto T837;} |
1889 |
V284= car((V268)); |
V284= car((V268)); |
1890 |
V268= cdr((V268)); |
V268= cdr((V268)); |
1891 |
goto T837; |
goto T837; |
1892 |
T837:; |
T837:; |
1893 |
if(((V277))==Cnil){ |
if(((V277))==Cnil){ |
1894 |
goto T845;} |
goto T845;} |
1901 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1902 |
Lerror(); |
Lerror(); |
1903 |
vs_top=sup; |
vs_top=sup; |
1904 |
goto T845; |
goto T845; |
1905 |
T845:; |
T845:; |
1906 |
if(((V277))!=Cnil){ |
if(((V277))!=Cnil){ |
1907 |
goto T855;} |
goto T855;} |
1908 |
V282= small_fixnum(0); |
V282= small_fixnum(0); |
1909 |
goto T853; |
goto T853; |
1910 |
goto T855; |
goto T855; |
1911 |
T855:; |
T855:; |
1912 |
V295= get(car((V277)),VV[53],Cnil); |
V295= get(car((V277)),VV[53],Cnil); |
1913 |
V282= structure_ref(V295,VV[53],14); |
V282= structure_ref(V295,VV[53],14); |
1914 |
goto T853; |
goto T853; |
1915 |
T853:; |
T853:; |
1916 |
if(((V279))==Cnil){ |
if(((V279))==Cnil){ |
1917 |
goto T860;} |
goto T860;} |
1918 |
if(((V281))==Cnil){ |
if(((V281))==Cnil){ |
1919 |
goto T860;} |
goto T860;} |
1920 |
V282= number_plus((V282),(V281)); |
V282= number_plus((V282),(V281)); |
1921 |
goto T860; |
goto T860; |
1922 |
T860:; |
T860:; |
1923 |
if(((V279))==Cnil){ |
if(((V279))==Cnil){ |
1924 |
goto T866;} |
goto T866;} |
1926 |
goto T866;} |
goto T866;} |
1927 |
V283= (V282); |
V283= (V282); |
1928 |
V282= one_plus((V282)); |
V282= one_plus((V282)); |
1929 |
goto T866; |
goto T866; |
1930 |
T866:; |
T866:; |
1931 |
{register object V296; |
{register object V296; |
1932 |
register object V297; |
register object V297; |
1933 |
V296= (V268); |
V296= (V268); |
1934 |
V297= Cnil; |
V297= Cnil; |
1935 |
goto T876; |
goto T876; |
1936 |
T876:; |
T876:; |
1937 |
if(!(endp_prop((V296)))){ |
if(!(endp_prop((V296)))){ |
1938 |
goto T877;} |
goto T877;} |
1939 |
V268= nreverse((V297)); |
V268= nreverse((V297)); |
1940 |
goto T874; |
goto T874; |
1941 |
goto T877; |
goto T877; |
1942 |
T877:; |
T877:; |
1943 |
V298= (*(LnkLI141))(car((V296)),(V282)); |
V298= (*(LnkLI141))(car((V296)),(V282)); |
1944 |
V297= make_cons(/* INLINE-ARGS */V298,(V297)); |
V297= make_cons(/* INLINE-ARGS */V298,(V297)); |
1945 |
V282= one_plus((V282)); |
V282= one_plus((V282)); |
1946 |
V296= cdr((V296)); |
V296= cdr((V296)); |
1947 |
goto T876;} |
goto T876;} |
1948 |
goto T874; |
goto T874; |
1949 |
T874:; |
T874:; |
1950 |
if(((V279))==Cnil){ |
if(((V279))==Cnil){ |
1951 |
goto T889;} |
goto T889;} |
1953 |
goto T889;} |
goto T889;} |
1954 |
V299= list(2,Cnil,base[2]); |
V299= list(2,Cnil,base[2]); |
1955 |
V268= make_cons(/* INLINE-ARGS */V299,(V268)); |
V268= make_cons(/* INLINE-ARGS */V299,(V268)); |
1956 |
goto T889; |
goto T889; |
1957 |
T889:; |
T889:; |
1958 |
if(((V279))==Cnil){ |
if(((V279))==Cnil){ |
1959 |
goto T895;} |
goto T895;} |
1965 |
vs_top=sup; |
vs_top=sup; |
1966 |
V300= vs_base[0]; |
V300= vs_base[0]; |
1967 |
V268= append(V300,(V268)); |
V268= append(V300,(V268)); |
1968 |
goto T895; |
goto T895; |
1969 |
T895:; |
T895:; |
1970 |
{object V301; |
{object V301; |
1971 |
V301= (((V277))==Cnil?Ct:Cnil); |
V301= (((V277))==Cnil?Ct:Cnil); |
1972 |
if(((V301))==Cnil){ |
if(((V301))==Cnil){ |
1973 |
goto T906;} |
goto T906;} |
1974 |
goto T903; |
goto T903; |
1975 |
goto T906; |
goto T906; |
1976 |
T906:; |
T906:; |
1977 |
if(!(endp_prop(cdr((V277))))){ |
if(!(endp_prop(cdr((V277))))){ |
1978 |
goto T909;} |
goto T909;} |
1980 |
V303= structure_ref(V302,VV[53],7); |
V303= structure_ref(V302,VV[53],7); |
1981 |
V268= append(/* INLINE-ARGS */V303,(V268)); |
V268= append(/* INLINE-ARGS */V303,(V268)); |
1982 |
goto T903; |
goto T903; |
1983 |
goto T909; |
goto T909; |
1984 |
T909:; |
T909:; |
1985 |
{object V305; |
{object V305; |
1986 |
object V306= cdr((V277)); |
object V306= cdr((V277)); |
1988 |
V304= Cnil; |
V304= Cnil; |
1989 |
goto T914;} |
goto T914;} |
1990 |
base[4]=V305=MMcons(Cnil,Cnil); |
base[4]=V305=MMcons(Cnil,Cnil); |
1991 |
goto T915; |
goto T915; |
1992 |
T915:; |
T915:; |
1993 |
(V305->c.c_car)= (*(LnkLI141))((V306->c.c_car),small_fixnum(0)); |
(V305->c.c_car)= (*(LnkLI141))((V306->c.c_car),small_fixnum(0)); |
1994 |
V306=MMcdr(V306); |
V306=MMcdr(V306); |
1997 |
goto T914;} |
goto T914;} |
1998 |
V305=MMcdr(V305)=MMcons(Cnil,Cnil); |
V305=MMcdr(V305)=MMcons(Cnil,Cnil); |
1999 |
goto T915;} |
goto T915;} |
2000 |
goto T914; |
goto T914; |
2001 |
T914:; |
T914:; |
2002 |
V308= get(car((V277)),VV[53],Cnil); |
V308= get(car((V277)),VV[53],Cnil); |
2003 |
V309= structure_ref(V308,VV[53],7); |
V309= structure_ref(V308,VV[53],7); |
2004 |
V310= (*(LnkLI118))(V304,/* INLINE-ARGS */V309); |
V310= (*(LnkLI118))(V304,/* INLINE-ARGS */V309); |
2005 |
V268= append(/* INLINE-ARGS */V310,(V268));} |
V268= append(/* INLINE-ARGS */V310,(V268));} |
2006 |
goto T903; |
goto T903; |
2007 |
T903:; |
T903:; |
2008 |
if(((V273))==Cnil){ |
if(((V273))==Cnil){ |
2009 |
goto T920;} |
goto T920;} |
2014 |
Lerror(); |
Lerror(); |
2015 |
vs_top=sup; |
vs_top=sup; |
2016 |
goto T918; |
goto T918; |
2017 |
goto T920; |
goto T920; |
2018 |
T920:; |
T920:; |
2019 |
if(((V271))!=Cnil){ |
if(((V271))!=Cnil){ |
2020 |
goto T918;} |
goto T918;} |
2021 |
V271= make_cons((V272),Cnil); |
V271= make_cons((V272),Cnil); |
2022 |
goto T918; |
goto T918; |
2023 |
T918:;{object V311; |
T918:;{object V311; |
2024 |
{object V314; |
{object V314; |
2025 |
object V315= (V271); |
object V315= (V271); |
2027 |
V313= Cnil; |
V313= Cnil; |
2028 |
goto T931;} |
goto T931;} |
2029 |
base[4]=V314=MMcons(Cnil,Cnil); |
base[4]=V314=MMcons(Cnil,Cnil); |
2030 |
goto T932; |
goto T932; |
2031 |
T932:; |
T932:; |
2032 |
base[5]= (V315->c.c_car); |
base[5]= (V315->c.c_car); |
2033 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2040 |
goto T931;} |
goto T931;} |
2041 |
V314=MMcdr(V314)=MMcons(Cnil,Cnil); |
V314=MMcdr(V314)=MMcons(Cnil,Cnil); |
2042 |
goto T932;} |
goto T932;} |
2043 |
goto T931; |
goto T931; |
2044 |
T931:; |
T931:; |
2045 |
{register object x= Ct,V312= V313; |
{register object x= Ct,V312= V313; |
2046 |
while(!endp(V312)) |
while(!endp(V312)) |
2049 |
goto T930; |
goto T930; |
2050 |
}else V312=V312->c.c_cdr; |
}else V312=V312->c.c_cdr; |
2051 |
V311= Cnil;} |
V311= Cnil;} |
2052 |
goto T930; |
goto T930; |
2053 |
T930:; |
T930:; |
2054 |
if(V311==Cnil)goto T929; |
if(V311==Cnil)goto T929; |
2055 |
goto T928; |
goto T928; |
2056 |
goto T929; |
goto T929; |
2057 |
T929:;} |
T929:;} |
2058 |
{object V316; |
{object V316; |
2059 |
base[6]= VV[97]; |
base[6]= VV[97]; |
2067 |
vs_top=sup; |
vs_top=sup; |
2068 |
V316= vs_base[0]; |
V316= vs_base[0]; |
2069 |
V271= make_cons((V316),(V271));} |
V271= make_cons((V316),(V271));} |
2070 |
goto T928; |
goto T928; |
2071 |
T928:; |
T928:; |
2072 |
if(((V279))==Cnil){ |
if(((V279))==Cnil){ |
2073 |
goto T940;} |
goto T940;} |
2080 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2081 |
Lerror(); |
Lerror(); |
2082 |
vs_top=sup; |
vs_top=sup; |
2083 |
goto T945; |
goto T945; |
2084 |
T945:; |
T945:; |
2085 |
V275= Cnil; |
V275= Cnil; |
2086 |
goto T940; |
goto T940; |
2087 |
T940:; |
T940:; |
2088 |
if(((V277))==Cnil){ |
if(((V277))==Cnil){ |
2089 |
goto T951;} |
goto T951;} |
2090 |
V277= car((V277)); |
V277= car((V277)); |
2091 |
goto T951; |
goto T951; |
2092 |
T951:; |
T951:; |
2093 |
if(((V278))==Cnil){ |
if(((V278))==Cnil){ |
2094 |
goto T955;} |
goto T955;} |
2098 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2099 |
Lerror(); |
Lerror(); |
2100 |
vs_top=sup; |
vs_top=sup; |
2101 |
goto T955; |
goto T955; |
2102 |
T955:; |
T955:; |
2103 |
base[4]= VV[101]; |
base[4]= VV[101]; |
2104 |
base[5]= list(2,VV[11],base[2]); |
base[5]= list(2,VV[11],base[2]); |
2125 |
base[4]= Cnil; |
base[4]= Cnil; |
2126 |
goto T978;} |
goto T978;} |
2127 |
base[5]=V319=MMcons(Cnil,Cnil); |
base[5]=V319=MMcons(Cnil,Cnil); |
2128 |
goto T979; |
goto T979; |
2129 |
T979:; |
T979:; |
2130 |
(V319->c.c_car)= (*(LnkLI142))(base[2],(V320->c.c_car),(V279),(V280),(V268)); |
(V319->c.c_car)= (*(LnkLI142))(base[2],(V320->c.c_car),(V279),(V280),(V268)); |
2131 |
V320=MMcdr(V320); |
V320=MMcdr(V320); |
2134 |
goto T978;} |
goto T978;} |
2135 |
V319=MMcdr(V319)=MMcons(Cnil,Cnil); |
V319=MMcdr(V319)=MMcons(Cnil,Cnil); |
2136 |
goto T979;} |
goto T979;} |
2137 |
goto T978; |
goto T978; |
2138 |
T978:; |
T978:; |
2139 |
if(((V279))==Cnil){ |
if(((V279))==Cnil){ |
2140 |
goto T983;} |
goto T983;} |
2143 |
V322= (*(LnkLI143))(base[2],(V275),(V279),(V280),(V283)); |
V322= (*(LnkLI143))(base[2],(V275),(V279),(V280),(V283)); |
2144 |
base[5]= make_cons(/* INLINE-ARGS */V322,Cnil); |
base[5]= make_cons(/* INLINE-ARGS */V322,Cnil); |
2145 |
goto T981; |
goto T981; |
2146 |
goto T983; |
goto T983; |
2147 |
T983:; |
T983:; |
2148 |
base[5]= Cnil; |
base[5]= Cnil; |
2149 |
goto T981; |
goto T981; |
2150 |
T981:; |
T981:; |
2151 |
V323= list(2,VV[11],base[2]); |
V323= list(2,VV[11],base[2]); |
2152 |
base[6]= make_cons(/* INLINE-ARGS */V323,Cnil); |
base[6]= make_cons(/* INLINE-ARGS */V323,Cnil); |
2239 |
|
|
2240 |
register object V346;register object V347;object V348; |
register object V346;register object V347;object V348; |
2241 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
2242 |
goto TTL; |
goto TTL; |
2243 |
TTL:; |
TTL:; |
2244 |
if((structure_ref((V346),VV[53],3))==Cnil){ |
if((structure_ref((V346),VV[53],3))==Cnil){ |
2245 |
goto T1007;} |
goto T1007;} |
2246 |
V349= structure_ref((V346),VV[53],3); |
V349= structure_ref((V346),VV[53],3); |
2247 |
(void)(structure_set((V347),VV[53],3,/* INLINE-ARGS */V349)); |
(void)(structure_set((V347),VV[53],3,/* INLINE-ARGS */V349)); |
2248 |
goto T1007; |
goto T1007; |
2249 |
T1007:; |
T1007:; |
2250 |
if((structure_ref((V346),VV[53],11))==Cnil){ |
if((structure_ref((V346),VV[53],11))==Cnil){ |
2251 |
goto T1010;} |
goto T1010;} |
2252 |
(void)(structure_set((V347),VV[53],11,Ct)); |
(void)(structure_set((V347),VV[53],11,Ct)); |
2253 |
goto T1010; |
goto T1010; |
2254 |
T1010:; |
T1010:; |
2255 |
if(equalp((V347),(V346))){ |
if(equalp((V347),(V346))){ |
2256 |
goto T1014;} |
goto T1014;} |
2257 |
(void)((VFUN_NARGS=2,(*(LnkLI132))(VV[102],(V348)))); |
(void)((VFUN_NARGS=2,(*(LnkLI132))(VV[102],(V348)))); |
2258 |
{object V350 = sputprop((V348),VV[53],(V347)); |
{object V350 = sputprop((V348),VV[53],(V347)); |
2259 |
VMR13(V350)} |
VMR13(V350)} |
2260 |
goto T1014; |
goto T1014; |
2261 |
T1014:; |
T1014:; |
2262 |
{object V351 = Cnil; |
{object V351 = Cnil; |
2263 |
VMR13(V351)} |
VMR13(V351)} |
2269 |
|
|
2270 |
object V353; |
object V353; |
2271 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
2272 |
goto TTL; |
goto TTL; |
2273 |
TTL:; |
TTL:; |
2274 |
{object V354; |
{object V354; |
2275 |
if(type_of((V353))==t_symbol){ |
if(type_of((V353))==t_symbol){ |
2276 |
goto T1018;} |
goto T1018;} |
2277 |
V354= Cnil; |
V354= Cnil; |
2278 |
goto T1017; |
goto T1017; |
2279 |
goto T1018; |
goto T1018; |
2280 |
T1018:; |
T1018:; |
2281 |
V354= get((V353),VV[53],Cnil); |
V354= get((V353),VV[53],Cnil); |
2282 |
goto T1017; |
goto T1017; |
2283 |
T1017:; |
T1017:; |
2284 |
if(((V354))==Cnil){ |
if(((V354))==Cnil){ |
2285 |
goto T1021;} |
goto T1021;} |
2286 |
{object V355 = structure_set((V354),VV[53],11,Ct); |
{object V355 = structure_set((V354),VV[53],11,Ct); |
2287 |
VMR14(V355)} |
VMR14(V355)} |
2288 |
goto T1021; |
goto T1021; |
2289 |
T1021:; |
T1021:; |
2290 |
{object V356 = Cnil; |
{object V356 = Cnil; |
2291 |
VMR14(V356)}} |
VMR14(V356)}} |
2305 |
V358=(base[1]); |
V358=(base[1]); |
2306 |
V359=(base[2]); |
V359=(base[2]); |
2307 |
vs_top=sup; |
vs_top=sup; |
2308 |
goto TTL; |
goto TTL; |
2309 |
TTL:; |
TTL:; |
2310 |
if(((V359))==Cnil){ |
if(((V359))==Cnil){ |
2311 |
goto T1023;} |
goto T1023;} |
2315 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2316 |
Lerror(); |
Lerror(); |
2317 |
vs_top=sup; |
vs_top=sup; |
2318 |
goto T1023; |
goto T1023; |
2319 |
T1023:; |
T1023:; |
2320 |
{register object V360; |
{register object V360; |
2321 |
register object V361; |
register object V361; |
2333 |
base[5]= Cnil; |
base[5]= Cnil; |
2334 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2335 |
return; |
return; |
2336 |
goto T1035; |
goto T1035; |
2337 |
T1035:; |
T1035:; |
2338 |
V360= (V362);}{object V363; |
V360= (V362);}{object V363; |
2339 |
V363= get(car((V360)),VV[53],Cnil); |
V363= get(car((V360)),VV[53],Cnil); |
2340 |
if(V363==Cnil)goto T1039; |
if(V363==Cnil)goto T1039; |
2341 |
V361= V363; |
V361= V363; |
2342 |
goto T1038; |
goto T1038; |
2343 |
goto T1039; |
goto T1039; |
2344 |
T1039:;} |
T1039:;} |
2345 |
base[5]= VV[105]; |
base[5]= VV[105]; |
2346 |
base[6]= car((V360)); |
base[6]= car((V360)); |
2348 |
Lerror(); |
Lerror(); |
2349 |
vs_top=sup; |
vs_top=sup; |
2350 |
V361= vs_base[0]; |
V361= vs_base[0]; |
2351 |
goto T1038; |
goto T1038; |
2352 |
T1038:; |
T1038:; |
2353 |
{register object V364; |
{register object V364; |
2354 |
V364= cdr((V360)); |
V364= cdr((V360)); |
2355 |
goto T1045; |
goto T1045; |
2356 |
T1045:; |
T1045:; |
2357 |
if(!(endp_prop((V364)))){ |
if(!(endp_prop((V364)))){ |
2358 |
goto T1046;} |
goto T1046;} |
2359 |
{register object V365; |
{register object V365; |
2360 |
V365= structure_ref((V361),VV[53],13); |
V365= structure_ref((V361),VV[53],13); |
2361 |
goto T1051; |
goto T1051; |
2362 |
T1051:; |
T1051:; |
2363 |
if(!(endp_prop((V365)))){ |
if(!(endp_prop((V365)))){ |
2364 |
goto T1052;} |
goto T1052;} |
2367 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
2368 |
Lerror(); |
Lerror(); |
2369 |
return; |
return; |
2370 |
goto T1052; |
goto T1052; |
2371 |
T1052:; |
T1052:; |
2372 |
if(!(type_of(car((V365)))==t_symbol)){ |
if(!(type_of(car((V365)))==t_symbol)){ |
2373 |
goto T1058;} |
goto T1058;} |
2380 |
vs_base=base+6;} |
vs_base=base+6;} |
2381 |
super_funcall_no_event(base[5]); |
super_funcall_no_event(base[5]); |
2382 |
return; |
return; |
2383 |
goto T1058; |
goto T1058; |
2384 |
T1058:; |
T1058:; |
2385 |
V365= cdr((V365)); |
V365= cdr((V365)); |
2386 |
goto T1051;} |
goto T1051;} |
2387 |
goto T1046; |
goto T1046; |
2388 |
T1046:; |
T1046:; |
2389 |
base[5]= coerce_to_string(car((V364))); |
base[5]= coerce_to_string(car((V364))); |
2390 |
base[6]= VV[107]; |
base[6]= VV[107]; |
2432 |
base[1]= car((V369)); |
base[1]= car((V369)); |
2433 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2434 |
return; |
return; |
2435 |
goto T1077; |
goto T1077; |
2436 |
T1077:; |
T1077:; |
2437 |
base[1]= Cnil; |
base[1]= Cnil; |
2438 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2487 |
if(!(type_of((V372))==t_structure)){ |
if(!(type_of((V372))==t_structure)){ |
2488 |
goto T1082;} |
goto T1082;} |
2489 |
goto T1081; |
goto T1081; |
2490 |
goto T1082; |
goto T1082; |
2491 |
T1082:; |
T1082:; |
2492 |
base[1]= VV[5]; |
base[1]= VV[5]; |
2493 |
base[2]= (V372); |
base[2]= (V372); |
2494 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2495 |
Lerror(); |
Lerror(); |
2496 |
vs_top=sup; |
vs_top=sup; |
2497 |
goto T1081; |
goto T1081; |
2498 |
T1081:; |
T1081:; |
2499 |
base[1]= (V372); |
base[1]= (V372); |
2500 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |