77 |
goto T13; |
goto T13; |
78 |
T13:; |
T13:; |
79 |
FEerror("The ECASE key value ~s is illegal.",1,V26); |
FEerror("The ECASE key value ~s is illegal.",1,V26); |
80 |
V24= symbol_value(VV[0]);} |
goto T8;} |
81 |
goto T8; |
goto T8; |
82 |
T8:; |
T8:; |
83 |
V27 = make_fixnum((long)length((V24))); |
V27 = make_fixnum((long)length((V24))); |
84 |
if(!(number_compare(V27,(Vcs[10]->c.c_car))>0)){ |
if(!(number_compare(V27,(Vcs[10]->c.c_car))>0)){ |
85 |
goto T17;} |
goto T16;} |
86 |
goto T16; |
goto T15; |
|
goto T17; |
|
|
T17:; |
|
|
V28= number_plus((Vcs[10]->c.c_car),small_fixnum(10)); |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI110))((V24),/* INLINE-ARGS */V28))); |
|
87 |
goto T16; |
goto T16; |
88 |
T16:; |
T16:; |
89 |
|
V28= number_plus((Vcs[10]->c.c_car),small_fixnum(10)); |
90 |
|
(void)((VFUN_NARGS=2,(*(LnkLI110))((V24),/* INLINE-ARGS */V28))); |
91 |
|
goto T15; |
92 |
|
T15:; |
93 |
if(((V25))!=Cnil){ |
if(((V25))!=Cnil){ |
94 |
goto T19;} |
goto T18;} |
95 |
base[0]= (V23); |
base[0]= (V23); |
96 |
base[1]= VV[3]; |
base[1]= VV[3]; |
97 |
base[2]= VV[4]; |
base[2]= VV[4]; |
100 |
(void) (*Lnk111)(); |
(void) (*Lnk111)(); |
101 |
vs_top=sup; |
vs_top=sup; |
102 |
if((V17)!=Cnil){ |
if((V17)!=Cnil){ |
103 |
goto T19;}{object V29; |
goto T18;}{object V29; |
104 |
base[0]= (V23); |
base[0]= (V23); |
105 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
106 |
Lfboundp(); |
Lfboundp(); |
107 |
vs_top=sup; |
vs_top=sup; |
108 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
109 |
goto T29;} |
goto T28;} |
110 |
V29= Cnil; |
V29= Cnil; |
111 |
goto T28; |
goto T27; |
112 |
goto T29; |
goto T28; |
113 |
T29:; |
T28:; |
114 |
V30= aref1((V24),fixint((Vcs[10]->c.c_car))); |
V30= aref1((V24),fixint((Vcs[10]->c.c_car))); |
115 |
base[0]= (V23); |
base[0]= (V23); |
116 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
118 |
vs_top=sup; |
vs_top=sup; |
119 |
V31= vs_base[0]; |
V31= vs_base[0]; |
120 |
V29= ((/* INLINE-ARGS */V30)==(V31)?Ct:Cnil); |
V29= ((/* INLINE-ARGS */V30)==(V31)?Ct:Cnil); |
|
goto T28; |
|
|
T28:; |
|
|
if(V29==Cnil)goto T27; |
|
|
goto T19; |
|
121 |
goto T27; |
goto T27; |
122 |
T27:;} |
T27:; |
123 |
|
if(V29==Cnil)goto T26; |
124 |
|
goto T18; |
125 |
|
goto T26; |
126 |
|
T26:;} |
127 |
base[0]= (V23);{object V32; |
base[0]= (V23);{object V32; |
128 |
V32= aref1((V24),fixint((Vcs[10]->c.c_car))); |
V32= aref1((V24),fixint((Vcs[10]->c.c_car))); |
129 |
if(V32==Cnil)goto T36; |
if(V32==Cnil)goto T35; |
130 |
base[1]= V32; |
base[1]= V32; |
131 |
goto T35; |
goto T34; |
132 |
goto T36; |
goto T35; |
133 |
T36:;} |
T35:;} |
134 |
if(!(((V24))==(symbol_value(VV[0])))){ |
if(!(((V24))==(symbol_value(VV[0])))){ |
135 |
goto T40;} |
goto T39;} |
136 |
V33= |
V33= |
137 |
make_cclosure_new(LC16,Cnil,Vcs[10],Cdata); |
make_cclosure_new(LC16,Cnil,Vcs[10],Cdata); |
138 |
goto T38; |
goto T37; |
139 |
goto T40; |
goto T39; |
140 |
T40:; |
T39:; |
141 |
if(!(((V24))==(symbol_value(VV[1])))){ |
if(!(((V24))==(symbol_value(VV[1])))){ |
142 |
goto T43;} |
goto T42;} |
143 |
V33= |
V33= |
144 |
make_cclosure_new(LC17,Cnil,Vcs[10],Cdata); |
make_cclosure_new(LC17,Cnil,Vcs[10],Cdata); |
145 |
goto T38; |
goto T37; |
146 |
goto T43; |
goto T42; |
147 |
T43:; |
T42:; |
148 |
if(!(((V24))==(symbol_value(VV[2])))){ |
if(!(((V24))==(symbol_value(VV[2])))){ |
149 |
goto T46;} |
goto T45;} |
150 |
V33= |
V33= |
151 |
make_cclosure_new(LC18,Cnil,Vcs[10],Cdata); |
make_cclosure_new(LC18,Cnil,Vcs[10],Cdata); |
152 |
goto T38; |
goto T37; |
153 |
goto T46; |
goto T45; |
154 |
T46:; |
T45:; |
155 |
V33= Cnil; |
V33= Cnil; |
156 |
goto T38; |
goto T37; |
157 |
T38:; |
T37:; |
158 |
base[1]= aset1((V24),fixint((Vcs[10]->c.c_car)),V33); |
base[1]= aset1((V24),fixint((Vcs[10]->c.c_car)),V33); |
159 |
goto T35; |
goto T34; |
160 |
T35:; |
T34:; |
161 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
162 |
siLfset(); |
siLfset(); |
163 |
vs_top=sup; |
vs_top=sup; |
164 |
goto T19; |
goto T18; |
165 |
T19:; |
T18:; |
166 |
if(((V21))==Cnil){ |
if(((V21))==Cnil){ |
167 |
goto T50;} |
goto T49;} |
168 |
(void)(remprop((V23),VV[6])); |
(void)(remprop((V23),VV[6])); |
169 |
(void)(sputprop((V23),VV[7],Ct)); |
(void)(sputprop((V23),VV[7],Ct)); |
170 |
goto T48; |
goto T47; |
171 |
goto T50; |
goto T49; |
172 |
T50:; |
T49:; |
173 |
(void)(remprop((V23),VV[8])); |
(void)(remprop((V23),VV[8])); |
174 |
(void)(remprop((V23),VV[9])); |
(void)(remprop((V23),VV[9])); |
175 |
(void)(remprop((V23),VV[10])); |
(void)(remprop((V23),VV[10])); |
176 |
{object V34; |
{object V34; |
177 |
V34= get((V23),VV[6],Cnil); |
V34= get((V23),VV[6],Cnil); |
178 |
if(!(type_of((V34))==t_cons)){ |
if(!(type_of((V34))==t_cons)){ |
179 |
goto T58;} |
goto T57;} |
180 |
if(((V16))==Cnil){ |
if(((V16))==Cnil){ |
181 |
goto T58;} |
goto T57;} |
182 |
base[0]= (V16); |
base[0]= (V16); |
183 |
base[1]= car((V34)); |
base[1]= car((V34)); |
184 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
185 |
(void) (*Lnk112)(); |
(void) (*Lnk112)(); |
186 |
vs_top=sup; |
vs_top=sup; |
187 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
188 |
goto T58;} |
goto T57;} |
189 |
if(!(eql(cdr((V34)),(Vcs[10]->c.c_car)))){ |
if(!(eql(cdr((V34)),(Vcs[10]->c.c_car)))){ |
190 |
goto T58;} |
goto T57;} |
191 |
V25= Ct; |
V25= Ct; |
192 |
goto T48; |
goto T47; |
193 |
goto T58; |
goto T57; |
194 |
T58:; |
T57:; |
195 |
if(((V14))==Cnil){ |
if(((V14))==Cnil){ |
196 |
goto T71;} |
goto T70;} |
197 |
V35= (V14); |
V35= (V14); |
198 |
goto T69; |
goto T68; |
199 |
goto T71; |
goto T70; |
200 |
T71:; |
T70:; |
201 |
V35= (V12); |
V35= (V12); |
202 |
goto T69; |
goto T68; |
203 |
T69:; |
T68:; |
204 |
V36= make_cons(V35,(Vcs[10]->c.c_car)); |
V36= make_cons(V35,(Vcs[10]->c.c_car)); |
205 |
(void)(sputprop((V23),VV[6],/* INLINE-ARGS */V36));} |
(void)(sputprop((V23),VV[6],/* INLINE-ARGS */V36));} |
206 |
goto T48; |
goto T47; |
207 |
T48:; |
T47:; |
208 |
{object V37 = Cnil; |
{object V37 = Cnil; |
209 |
VMR1(V37)}} |
VMR1(V37)}} |
210 |
va_end(ap); |
va_end(ap); |
225 |
object V51= (V47); |
object V51= (V47); |
226 |
if(endp(V51)){ |
if(endp(V51)){ |
227 |
V48= Cnil; |
V48= Cnil; |
228 |
goto T73;} |
goto T72;} |
229 |
base[0]=V50=MMcons(Cnil,Cnil); |
base[0]=V50=MMcons(Cnil,Cnil); |
230 |
goto T74; |
goto T73; |
231 |
T74:; |
T73:; |
232 |
if(((V51->c.c_car))!=Cnil){ |
if(((V51->c.c_car))!=Cnil){ |
233 |
goto T77;} |
goto T76;} |
234 |
(V50->c.c_car)= Cnil; |
(V50->c.c_car)= Cnil; |
235 |
goto T75; |
goto T74; |
236 |
goto T77; |
goto T76; |
237 |
T77:; |
T76:; |
238 |
if((car((V51->c.c_car)))!=Cnil){ |
if((car((V51->c.c_car)))!=Cnil){ |
239 |
goto T80;} |
goto T79;} |
240 |
(V50->c.c_car)= list(2,VV[11],cadr((V51->c.c_car))); |
(V50->c.c_car)= list(2,VV[11],cadr((V51->c.c_car))); |
241 |
goto T75; |
goto T74; |
242 |
goto T80; |
goto T79; |
243 |
T80:; |
T79:; |
244 |
(V50->c.c_car)= car((V51->c.c_car)); |
(V50->c.c_car)= car((V51->c.c_car)); |
245 |
goto T75; |
goto T74; |
246 |
T75:; |
T74:; |
247 |
if(endp(V51=MMcdr(V51))){ |
if(endp(V51=MMcdr(V51))){ |
248 |
V48= base[0]; |
V48= base[0]; |
249 |
goto T73;} |
goto T72;} |
250 |
V50=MMcdr(V50)=MMcons(Cnil,Cnil); |
V50=MMcdr(V50)=MMcons(Cnil,Cnil); |
251 |
goto T74;} |
goto T73;} |
252 |
goto T73; |
goto T72; |
253 |
T73:; |
T72:; |
254 |
{object V53; |
{object V53; |
255 |
object V54= (V47); |
object V54= (V47); |
256 |
if(endp(V54)){ |
if(endp(V54)){ |
257 |
V49= Cnil; |
V49= Cnil; |
258 |
goto T82;} |
goto T81;} |
259 |
base[0]=V53=MMcons(Cnil,Cnil); |
base[0]=V53=MMcons(Cnil,Cnil); |
260 |
goto T83; |
goto T82; |
261 |
T83:; |
T82:; |
262 |
if(((V54->c.c_car))!=Cnil){ |
if(((V54->c.c_car))!=Cnil){ |
263 |
goto T86;} |
goto T85;} |
264 |
(V53->c.c_cdr)= Cnil; |
(V53->c.c_cdr)= Cnil; |
265 |
goto T84; |
goto T83; |
266 |
goto T86; |
goto T85; |
267 |
T86:; |
T85:; |
268 |
if((car((V54->c.c_car)))!=Cnil){ |
if((car((V54->c.c_car)))!=Cnil){ |
269 |
goto T89;} |
goto T88;} |
270 |
(V53->c.c_cdr)= Cnil; |
(V53->c.c_cdr)= Cnil; |
271 |
goto T84; |
goto T83; |
272 |
goto T89; |
goto T88; |
273 |
T89:; |
T88:; |
274 |
if((cadr((V54->c.c_car)))!=Cnil){ |
if((cadr((V54->c.c_car)))!=Cnil){ |
275 |
goto T92;} |
goto T91;} |
276 |
(V53->c.c_cdr)= make_cons(car((V54->c.c_car)),Cnil); |
(V53->c.c_cdr)= make_cons(car((V54->c.c_car)),Cnil); |
277 |
goto T84; |
goto T83; |
278 |
goto T92; |
goto T91; |
279 |
T92:; |
T91:; |
280 |
V56= list(2,car((V54->c.c_car)),cadr((V54->c.c_car))); |
V56= list(2,car((V54->c.c_car)),cadr((V54->c.c_car))); |
281 |
(V53->c.c_cdr)= make_cons(/* INLINE-ARGS */V56,Cnil); |
(V53->c.c_cdr)= make_cons(/* INLINE-ARGS */V56,Cnil); |
282 |
goto T84; |
goto T83; |
283 |
T84:; |
T83:; |
284 |
while(!endp(MMcdr(V53)))V53=MMcdr(V53); |
while(!endp(MMcdr(V53)))V53=MMcdr(V53); |
285 |
if(endp(V54=MMcdr(V54))){ |
if(endp(V54=MMcdr(V54))){ |
286 |
base[0]=base[0]->c.c_cdr; |
base[0]=base[0]->c.c_cdr; |
287 |
V49= base[0]; |
V49= base[0]; |
288 |
|
goto T81;} |
289 |
goto T82;} |
goto T82;} |
290 |
goto T83;} |
goto T81; |
291 |
goto T82; |
T81:; |
|
T82:; |
|
292 |
if(!(type_of((V44))==t_cons)){ |
if(!(type_of((V44))==t_cons)){ |
293 |
goto T96;} |
goto T95;} |
294 |
{register object V57; |
{register object V57; |
295 |
register object V58; |
register object V58; |
296 |
register object V59; |
register object V59; |
297 |
V57= cadr((V44)); |
V57= cadr((V44)); |
298 |
V58= Cnil; |
V58= Cnil; |
299 |
V59= Cnil; |
V59= Cnil; |
300 |
goto T101; |
goto T100; |
301 |
T101:; |
T100:; |
302 |
if(!(endp((V57)))){ |
if(!(endp((V57)))){ |
303 |
goto T102;} |
goto T101;} |
304 |
base[0]= make_cons(VV[12],(V58)); |
base[0]= make_cons(VV[12],(V58)); |
305 |
{object V60; |
{object V60; |
306 |
object V61= (V49); |
object V61= (V49); |
307 |
if(endp(V61)){ |
if(endp(V61)){ |
308 |
base[1]= Cnil; |
base[1]= Cnil; |
309 |
goto T107;} |
goto T106;} |
310 |
base[2]=V60=MMcons(Cnil,Cnil); |
base[2]=V60=MMcons(Cnil,Cnil); |
311 |
goto T108; |
goto T107; |
312 |
T108:; |
T107:; |
313 |
if(!(type_of((V61->c.c_car))!=t_cons)){ |
if(!(type_of((V61->c.c_car))!=t_cons)){ |
314 |
goto T115;} |
goto T114;} |
315 |
V64= (V61->c.c_car); |
V64= (V61->c.c_car); |
316 |
goto T113; |
goto T112; |
317 |
goto T115; |
goto T114; |
318 |
T115:; |
T114:; |
319 |
V64= car((V61->c.c_car)); |
V64= car((V61->c.c_car)); |
320 |
goto T113; |
goto T112; |
321 |
T113:; |
T112:; |
322 |
{register object x= V64,V63= (V59); |
{register object x= V64,V63= (V59); |
323 |
while(!endp(V63)) |
while(!endp(V63)) |
324 |
if(eql(x,V63->c.c_car)){ |
if(eql(x,V63->c.c_car)){ |
325 |
goto T112; |
goto T111; |
326 |
}else V63=V63->c.c_cdr; |
}else V63=V63->c.c_cdr; |
327 |
goto T111;} |
goto T110;} |
|
goto T112; |
|
|
T112:; |
|
|
(V60->c.c_cdr)= Cnil; |
|
|
goto T109; |
|
328 |
goto T111; |
goto T111; |
329 |
T111:; |
T111:; |
330 |
|
(V60->c.c_cdr)= Cnil; |
331 |
|
goto T108; |
332 |
|
goto T110; |
333 |
|
T110:; |
334 |
(V60->c.c_cdr)= make_cons((V61->c.c_car),Cnil); |
(V60->c.c_cdr)= make_cons((V61->c.c_car),Cnil); |
335 |
goto T109; |
goto T108; |
336 |
T109:; |
T108:; |
337 |
while(!endp(MMcdr(V60)))V60=MMcdr(V60); |
while(!endp(MMcdr(V60)))V60=MMcdr(V60); |
338 |
if(endp(V61=MMcdr(V61))){ |
if(endp(V61=MMcdr(V61))){ |
339 |
base[2]=base[2]->c.c_cdr; |
base[2]=base[2]->c.c_cdr; |
340 |
base[1]= base[2]; |
base[1]= base[2]; |
341 |
|
goto T106;} |
342 |
goto T107;} |
goto T107;} |
343 |
goto T108;} |
goto T106; |
344 |
goto T107; |
T106:; |
|
T107:; |
|
345 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
346 |
Lreconc(); |
Lreconc(); |
347 |
vs_top=sup; |
vs_top=sup; |
348 |
V49= vs_base[0]; |
V49= vs_base[0]; |
349 |
goto T98; |
goto T97; |
350 |
goto T102; |
goto T101; |
351 |
T102:; |
T101:; |
352 |
{register object x= car((V57)),V65= VV[13]; |
{register object x= car((V57)),V65= VV[13]; |
353 |
while(!endp(V65)) |
while(!endp(V65)) |
354 |
if(eql(x,V65->c.c_car)){ |
if(eql(x,V65->c.c_car)){ |
355 |
goto T120; |
goto T119; |
356 |
}else V65=V65->c.c_cdr; |
}else V65=V65->c.c_cdr; |
357 |
goto T118;} |
goto T117;} |
358 |
|
goto T119; |
359 |
|
T119:; |
360 |
|
if(!((car((V57)))==(VV[14]))){ |
361 |
|
goto T120;} |
362 |
|
goto T117; |
363 |
goto T120; |
goto T120; |
364 |
T120:; |
T120:; |
|
if(!((car((V57)))==(VV[14]))){ |
|
|
goto T121;} |
|
|
goto T118; |
|
|
goto T121; |
|
|
T121:; |
|
365 |
V57= make_cons(VV[14],(V57)); |
V57= make_cons(VV[14],(V57)); |
366 |
goto T118; |
goto T117; |
367 |
T118:; |
T117:; |
368 |
if(!((car((V57)))==(VV[14]))){ |
if(!((car((V57)))==(VV[14]))){ |
369 |
goto T126;} |
goto T125;} |
370 |
V58= make_cons(VV[14],(V58)); |
V58= make_cons(VV[14],(V58)); |
371 |
{register object V66; |
{register object V66; |
372 |
object V67; |
object V67; |
374 |
V66= cdr((V57)); |
V66= cdr((V57)); |
375 |
V67= Cnil; |
V67= Cnil; |
376 |
V68= Cnil; |
V68= Cnil; |
377 |
goto T133; |
goto T132; |
378 |
T133:; |
T132:; |
379 |
if(!(endp((V66)))){ |
if(!(endp((V66)))){ |
380 |
goto T134;} |
goto T133;} |
381 |
base[0]= make_cons(VV[12],(V58)); |
base[0]= make_cons(VV[12],(V58)); |
382 |
{object V69; |
{object V69; |
383 |
object V70= (V49); |
object V70= (V49); |
384 |
if(endp(V70)){ |
if(endp(V70)){ |
385 |
base[1]= Cnil; |
base[1]= Cnil; |
386 |
goto T140;} |
goto T139;} |
387 |
base[2]=V69=MMcons(Cnil,Cnil); |
base[2]=V69=MMcons(Cnil,Cnil); |
388 |
goto T141; |
goto T140; |
389 |
T141:; |
T140:; |
390 |
if(!(type_of((V70->c.c_car))!=t_cons)){ |
if(!(type_of((V70->c.c_car))!=t_cons)){ |
391 |
goto T148;} |
goto T147;} |
392 |
V73= (V70->c.c_car); |
V73= (V70->c.c_car); |
393 |
goto T146; |
goto T145; |
394 |
goto T148; |
goto T147; |
395 |
T148:; |
T147:; |
396 |
V73= car((V70->c.c_car)); |
V73= car((V70->c.c_car)); |
397 |
goto T146; |
goto T145; |
398 |
T146:; |
T145:; |
399 |
{register object x= V73,V72= (V59); |
{register object x= V73,V72= (V59); |
400 |
while(!endp(V72)) |
while(!endp(V72)) |
401 |
if(eql(x,V72->c.c_car)){ |
if(eql(x,V72->c.c_car)){ |
402 |
goto T145; |
goto T144; |
403 |
}else V72=V72->c.c_cdr; |
}else V72=V72->c.c_cdr; |
404 |
goto T144;} |
goto T143;} |
|
goto T145; |
|
|
T145:; |
|
|
(V69->c.c_cdr)= Cnil; |
|
|
goto T142; |
|
405 |
goto T144; |
goto T144; |
406 |
T144:; |
T144:; |
407 |
|
(V69->c.c_cdr)= Cnil; |
408 |
|
goto T141; |
409 |
|
goto T143; |
410 |
|
T143:; |
411 |
(V69->c.c_cdr)= make_cons((V70->c.c_car),Cnil); |
(V69->c.c_cdr)= make_cons((V70->c.c_car),Cnil); |
412 |
goto T142; |
goto T141; |
413 |
T142:; |
T141:; |
414 |
while(!endp(MMcdr(V69)))V69=MMcdr(V69); |
while(!endp(MMcdr(V69)))V69=MMcdr(V69); |
415 |
if(endp(V70=MMcdr(V70))){ |
if(endp(V70=MMcdr(V70))){ |
416 |
base[2]=base[2]->c.c_cdr; |
base[2]=base[2]->c.c_cdr; |
417 |
base[1]= base[2]; |
base[1]= base[2]; |
418 |
|
goto T139;} |
419 |
goto T140;} |
goto T140;} |
420 |
goto T141;} |
goto T139; |
421 |
goto T140; |
T139:; |
|
T140:; |
|
422 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
423 |
Lreconc(); |
Lreconc(); |
424 |
vs_top=sup; |
vs_top=sup; |
425 |
V49= vs_base[0]; |
V49= vs_base[0]; |
426 |
goto T130; |
goto T129; |
427 |
goto T134; |
goto T133; |
428 |
T134:; |
T133:; |
429 |
{register object x= car((V66)),V74= VV[13]; |
{register object x= car((V66)),V74= VV[13]; |
430 |
while(!endp(V74)) |
while(!endp(V74)) |
431 |
if(eql(x,V74->c.c_car)){ |
if(eql(x,V74->c.c_car)){ |
432 |
goto T153; |
goto T152; |
433 |
}else V74=V74->c.c_cdr; |
}else V74=V74->c.c_cdr; |
434 |
goto T151;} |
goto T150;} |
435 |
goto T153; |
goto T152; |
436 |
T153:; |
T152:; |
437 |
if(!((car((V66)))==(VV[15]))){ |
if(!((car((V66)))==(VV[15]))){ |
438 |
goto T154;} |
goto T153;} |
439 |
V58= make_cons(VV[15],(V58)); |
V58= make_cons(VV[15],(V58)); |
440 |
V66= cdr((V66)); |
V66= cdr((V66)); |
441 |
if(endp((V66))){ |
if(endp((V66))){ |
|
goto T162;} |
|
|
if(type_of(car((V66)))==t_symbol){ |
|
442 |
goto T161;} |
goto T161;} |
443 |
goto T162; |
if(type_of(car((V66)))==t_symbol){ |
444 |
T162:; |
goto T160;} |
|
(void)((*(LnkLI113))()); |
|
445 |
goto T161; |
goto T161; |
446 |
T161:; |
T161:; |
447 |
|
(void)((*(LnkLI113))()); |
448 |
|
goto T160; |
449 |
|
T160:; |
450 |
V59= make_cons(car((V66)),(V59)); |
V59= make_cons(car((V66)),(V59)); |
451 |
V58= make_cons(car((V66)),(V58)); |
V58= make_cons(car((V66)),(V58)); |
452 |
V66= cdr((V66)); |
V66= cdr((V66)); |
453 |
if(!(endp((V66)))){ |
if(!(endp((V66)))){ |
454 |
goto T154;} |
goto T153;} |
455 |
base[0]= make_cons(VV[12],(V58)); |
base[0]= make_cons(VV[12],(V58)); |
456 |
{object V75; |
{object V75; |
457 |
object V76= (V49); |
object V76= (V49); |
458 |
if(endp(V76)){ |
if(endp(V76)){ |
459 |
base[1]= Cnil; |
base[1]= Cnil; |
460 |
goto T177;} |
goto T176;} |
461 |
base[2]=V75=MMcons(Cnil,Cnil); |
base[2]=V75=MMcons(Cnil,Cnil); |
462 |
goto T178; |
goto T177; |
463 |
T178:; |
T177:; |
464 |
if(!(type_of((V76->c.c_car))!=t_cons)){ |
if(!(type_of((V76->c.c_car))!=t_cons)){ |
465 |
goto T185;} |
goto T184;} |
466 |
V79= (V76->c.c_car); |
V79= (V76->c.c_car); |
467 |
goto T183; |
goto T182; |
468 |
goto T185; |
goto T184; |
469 |
T185:; |
T184:; |
470 |
V79= car((V76->c.c_car)); |
V79= car((V76->c.c_car)); |
471 |
goto T183; |
goto T182; |
472 |
T183:; |
T182:; |
473 |
{register object x= V79,V78= (V59); |
{register object x= V79,V78= (V59); |
474 |
while(!endp(V78)) |
while(!endp(V78)) |
475 |
if(eql(x,V78->c.c_car)){ |
if(eql(x,V78->c.c_car)){ |
476 |
goto T182; |
goto T181; |
477 |
}else V78=V78->c.c_cdr; |
}else V78=V78->c.c_cdr; |
478 |
goto T181;} |
goto T180;} |
|
goto T182; |
|
|
T182:; |
|
|
(V75->c.c_cdr)= Cnil; |
|
|
goto T179; |
|
479 |
goto T181; |
goto T181; |
480 |
T181:; |
T181:; |
481 |
|
(V75->c.c_cdr)= Cnil; |
482 |
|
goto T178; |
483 |
|
goto T180; |
484 |
|
T180:; |
485 |
(V75->c.c_cdr)= make_cons((V76->c.c_car),Cnil); |
(V75->c.c_cdr)= make_cons((V76->c.c_car),Cnil); |
486 |
goto T179; |
goto T178; |
487 |
T179:; |
T178:; |
488 |
while(!endp(MMcdr(V75)))V75=MMcdr(V75); |
while(!endp(MMcdr(V75)))V75=MMcdr(V75); |
489 |
if(endp(V76=MMcdr(V76))){ |
if(endp(V76=MMcdr(V76))){ |
490 |
base[2]=base[2]->c.c_cdr; |
base[2]=base[2]->c.c_cdr; |
491 |
base[1]= base[2]; |
base[1]= base[2]; |
492 |
|
goto T176;} |
493 |
goto T177;} |
goto T177;} |
494 |
goto T178;} |
goto T176; |
495 |
goto T177; |
T176:; |
|
T177:; |
|
496 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
497 |
Lreconc(); |
Lreconc(); |
498 |
vs_top=sup; |
vs_top=sup; |
499 |
V49= vs_base[0]; |
V49= vs_base[0]; |
500 |
goto T130; |
goto T129; |
501 |
goto T154; |
goto T153; |
502 |
T154:; |
T153:; |
503 |
if((car((V66)))==(VV[12])){ |
if((car((V66)))==(VV[12])){ |
504 |
goto T187;} |
goto T186;} |
505 |
(void)((*(LnkLI113))()); |
(void)((*(LnkLI113))()); |
506 |
goto T187; |
goto T186; |
507 |
T187:; |
T186:; |
508 |
V58= make_cons(VV[12],(V58)); |
V58= make_cons(VV[12],(V58)); |
509 |
{register object V80; |
{register object V80; |
510 |
V80= cdr((V66)); |
V80= cdr((V66)); |
511 |
|
goto T194; |
512 |
|
T194:; |
513 |
|
if(!(endp((V80)))){ |
514 |
|
goto T195;} |
515 |
|
goto T191; |
516 |
goto T195; |
goto T195; |
517 |
T195:; |
T195:; |
|
if(!(endp((V80)))){ |
|
|
goto T196;} |
|
|
goto T192; |
|
|
goto T196; |
|
|
T196:; |
|
518 |
V58= make_cons(car((V80)),(V58)); |
V58= make_cons(car((V80)),(V58)); |
519 |
if(!(type_of(car((V80)))!=t_cons)){ |
if(!(type_of(car((V80)))!=t_cons)){ |
520 |
goto T204;} |
goto T203;} |
521 |
if(!(type_of(car((V80)))==t_symbol)){ |
if(!(type_of(car((V80)))==t_symbol)){ |
522 |
goto T204;} |
goto T203;} |
523 |
V59= make_cons(car((V80)),(V59)); |
V59= make_cons(car((V80)),(V59)); |
524 |
goto T202; |
goto T201; |
525 |
goto T204; |
goto T203; |
526 |
T204:; |
T203:; |
527 |
if(!(type_of(caar((V80)))==t_symbol)){ |
if(!(type_of(caar((V80)))==t_symbol)){ |
|
goto T210;} |
|
|
if(endp(cdar((V80)))){ |
|
528 |
goto T209;} |
goto T209;} |
529 |
|
if(endp(cdar((V80)))){ |
530 |
|
goto T208;} |
531 |
if(!(endp(cddar((V80))))){ |
if(!(endp(cddar((V80))))){ |
532 |
goto T210;} |
goto T209;} |
533 |
|
goto T208; |
534 |
|
T208:; |
535 |
|
V59= make_cons(caar((V80)),(V59)); |
536 |
|
goto T201; |
537 |
goto T209; |
goto T209; |
538 |
T209:; |
T209:; |
|
V59= make_cons(caar((V80)),(V59)); |
|
|
goto T202; |
|
|
goto T210; |
|
|
T210:; |
|
539 |
(void)((*(LnkLI113))()); |
(void)((*(LnkLI113))()); |
540 |
goto T202; |
goto T201; |
541 |
T202:; |
T201:; |
542 |
V80= cdr((V80)); |
V80= cdr((V80)); |
543 |
goto T195;} |
goto T194;} |
544 |
goto T192; |
goto T191; |
545 |
T192:; |
T191:; |
546 |
base[0]= (V58); |
base[0]= (V58); |
547 |
{object V81; |
{object V81; |
548 |
object V82= (V49); |
object V82= (V49); |
549 |
if(endp(V82)){ |
if(endp(V82)){ |
550 |
base[1]= Cnil; |
base[1]= Cnil; |
551 |
goto T223;} |
goto T222;} |
552 |
base[2]=V81=MMcons(Cnil,Cnil); |
base[2]=V81=MMcons(Cnil,Cnil); |
553 |
goto T224; |
goto T223; |
554 |
T224:; |
T223:; |
555 |
if(!(type_of((V82->c.c_car))!=t_cons)){ |
if(!(type_of((V82->c.c_car))!=t_cons)){ |
556 |
goto T231;} |
goto T230;} |
557 |
V85= (V82->c.c_car); |
V85= (V82->c.c_car); |
558 |
goto T229; |
goto T228; |
559 |
goto T231; |
goto T230; |
560 |
T231:; |
T230:; |
561 |
V85= car((V82->c.c_car)); |
V85= car((V82->c.c_car)); |
562 |
goto T229; |
goto T228; |
563 |
T229:; |
T228:; |
564 |
{register object x= V85,V84= (V59); |
{register object x= V85,V84= (V59); |
565 |
while(!endp(V84)) |
while(!endp(V84)) |
566 |
if(eql(x,V84->c.c_car)){ |
if(eql(x,V84->c.c_car)){ |
567 |
goto T228; |
goto T227; |
568 |
}else V84=V84->c.c_cdr; |
}else V84=V84->c.c_cdr; |
569 |
goto T227;} |
goto T226;} |
|
goto T228; |
|
|
T228:; |
|
|
(V81->c.c_cdr)= Cnil; |
|
|
goto T225; |
|
570 |
goto T227; |
goto T227; |
571 |
T227:; |
T227:; |
572 |
|
(V81->c.c_cdr)= Cnil; |
573 |
|
goto T224; |
574 |
|
goto T226; |
575 |
|
T226:; |
576 |
(V81->c.c_cdr)= make_cons((V82->c.c_car),Cnil); |
(V81->c.c_cdr)= make_cons((V82->c.c_car),Cnil); |
577 |
goto T225; |
goto T224; |
578 |
T225:; |
T224:; |
579 |
while(!endp(MMcdr(V81)))V81=MMcdr(V81); |
while(!endp(MMcdr(V81)))V81=MMcdr(V81); |
580 |
if(endp(V82=MMcdr(V82))){ |
if(endp(V82=MMcdr(V82))){ |
581 |
base[2]=base[2]->c.c_cdr; |
base[2]=base[2]->c.c_cdr; |
582 |
base[1]= base[2]; |
base[1]= base[2]; |
583 |
|
goto T222;} |
584 |
goto T223;} |
goto T223;} |
585 |
goto T224;} |
goto T222; |
586 |
goto T223; |
T222:; |
|
T223:; |
|
587 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
588 |
Lreconc(); |
Lreconc(); |
589 |
vs_top=sup; |
vs_top=sup; |
590 |
V49= vs_base[0]; |
V49= vs_base[0]; |
591 |
goto T130; |
goto T129; |
592 |
goto T151; |
goto T150; |
593 |
T151:; |
T150:; |
594 |
if(!(type_of(car((V66)))!=t_cons)){ |
if(!(type_of(car((V66)))!=t_cons)){ |
595 |
goto T239;} |
goto T238;} |
596 |
V67= car((V66)); |
V67= car((V66)); |
597 |
goto T237; |
goto T236; |
598 |
goto T239; |
goto T238; |
599 |
T239:; |
T238:; |
600 |
if(!(endp(cdar((V66))))){ |
if(!(endp(cdar((V66))))){ |
601 |
goto T244;} |
goto T243;} |
602 |
V67= caar((V66)); |
V67= caar((V66)); |
603 |
goto T237; |
goto T236; |
604 |
goto T244; |
goto T243; |
605 |
T244:; |
T243:; |
606 |
goto T235; |
goto T234; |
607 |
goto T237; |
goto T236; |
608 |
T237:; |
T236:; |
609 |
base[0]= (V67); |
base[0]= (V67); |
610 |
base[1]= (V49); |
base[1]= (V49); |
611 |
base[2]= VV[16]; |
base[2]= VV[16]; |
615 |
vs_top=sup; |
vs_top=sup; |
616 |
V68= vs_base[0]; |
V68= vs_base[0]; |
617 |
if(((V68))==Cnil){ |
if(((V68))==Cnil){ |
618 |
goto T235;} |
goto T234;} |
619 |
V58= make_cons(car((V68)),(V58)); |
V58= make_cons(car((V68)),(V58)); |
620 |
goto T233; |
goto T232; |
621 |
goto T235; |
goto T234; |
622 |
T235:; |
T234:; |
623 |
V58= make_cons(car((V66)),(V58)); |
V58= make_cons(car((V66)),(V58)); |
624 |
goto T233; |
goto T232; |
625 |
T233:; |
T232:; |
626 |
if(!(type_of(car((V66)))!=t_cons)){ |
if(!(type_of(car((V66)))!=t_cons)){ |
627 |
goto T258;} |
goto T257;} |
628 |
if(type_of(car((V66)))==t_symbol){ |
if(type_of(car((V66)))==t_symbol){ |
629 |
goto T260;} |
goto T259;} |
630 |
(void)((*(LnkLI113))()); |
(void)((*(LnkLI113))()); |
631 |
goto T260; |
goto T259; |
632 |
T260:; |
T259:; |
633 |
V59= make_cons(car((V66)),(V59)); |
V59= make_cons(car((V66)),(V59)); |
634 |
goto T256; |
goto T255; |
635 |
goto T258; |
goto T257; |
636 |
T258:; |
T257:; |
637 |
if(type_of(caar((V66)))==t_symbol){ |
if(type_of(caar((V66)))==t_symbol){ |
638 |
goto T265;} |
goto T264;} |
639 |
(void)((*(LnkLI113))()); |
(void)((*(LnkLI113))()); |
640 |
goto T256; |
goto T255; |
641 |
goto T265; |
goto T264; |
642 |
T265:; |
T264:; |
643 |
if(endp(cdar((V66)))){ |
if(endp(cdar((V66)))){ |
644 |
goto T267;} |
goto T266;} |
645 |
if(!(endp(cddar((V66))))){ |
if(!(endp(cddar((V66))))){ |
646 |
goto T268;} |
goto T267;} |
647 |
|
goto T266; |
648 |
|
T266:; |
649 |
|
V59= make_cons(caar((V66)),(V59)); |
650 |
|
goto T255; |
651 |
goto T267; |
goto T267; |
652 |
T267:; |
T267:; |
|
V59= make_cons(caar((V66)),(V59)); |
|
|
goto T256; |
|
|
goto T268; |
|
|
T268:; |
|
653 |
if(type_of(caddar((V66)))==t_symbol){ |
if(type_of(caddar((V66)))==t_symbol){ |
654 |
goto T274;} |
goto T273;} |
655 |
(void)((*(LnkLI113))()); |
(void)((*(LnkLI113))()); |
656 |
goto T256; |
goto T255; |
657 |
goto T274; |
goto T273; |
658 |
T274:; |
T273:; |
659 |
if(endp(cdddar((V66)))){ |
if(endp(cdddar((V66)))){ |
660 |
goto T277;} |
goto T276;} |
661 |
(void)((*(LnkLI113))()); |
(void)((*(LnkLI113))()); |
662 |
goto T256; |
goto T255; |
663 |
goto T277; |
goto T276; |
664 |
T277:; |
T276:; |
665 |
V59= make_cons(caar((V66)),(V59)); |
V59= make_cons(caar((V66)),(V59)); |
666 |
V59= make_cons(caddar((V66)),(V59)); |
V59= make_cons(caddar((V66)),(V59)); |
667 |
goto T256; |
goto T255; |
668 |
T256:; |
T255:; |
669 |
V66= cdr((V66)); |
V66= cdr((V66)); |
670 |
goto T133;} |
goto T132;} |
671 |
goto T130; |
goto T129; |
672 |
T130:; |
T129:; |
673 |
goto T98; |
goto T97; |
674 |
goto T126; |
goto T125; |
675 |
T126:; |
T125:; |
676 |
if(type_of(car((V57)))==t_symbol){ |
if(type_of(car((V57)))==t_symbol){ |
677 |
goto T285;} |
goto T284;} |
678 |
(void)((*(LnkLI113))()); |
(void)((*(LnkLI113))()); |
679 |
goto T285; |
goto T284; |
680 |
T285:; |
T284:; |
681 |
V58= make_cons(car((V57)),(V58)); |
V58= make_cons(car((V57)),(V58)); |
682 |
V59= make_cons(car((V57)),(V59)); |
V59= make_cons(car((V57)),(V59)); |
683 |
V57= cdr((V57)); |
V57= cdr((V57)); |
684 |
goto T101;} |
goto T100;} |
685 |
goto T98; |
goto T97; |
686 |
T98:; |
T97:; |
687 |
V44= car((V44)); |
V44= car((V44)); |
688 |
goto T94; |
goto T93; |
689 |
goto T96; |
goto T95; |
690 |
T96:; |
T95:; |
691 |
V49= make_cons(VV[17],(V49)); |
V49= make_cons(VV[17],(V49)); |
692 |
goto T94; |
goto T93; |
693 |
T94:; |
T93:; |
694 |
if(((V45))!=Cnil){ |
if(((V45))!=Cnil){ |
695 |
goto T297;} |
goto T296;} |
696 |
{object V86 = list(4,VV[3],(V44),(V49),listA(3,VV[18],list(2,VV[11],(V43)),(V48))); |
{object V86 = list(4,VV[3],(V44),(V49),listA(3,VV[18],list(2,VV[11],(V43)),(V48))); |
697 |
VMR2(V86)} |
VMR2(V86)} |
698 |
goto T297; |
goto T296; |
699 |
T297:; |
T296:; |
700 |
if(((V45))==(VV[19])){ |
if(((V45))==(VV[19])){ |
701 |
goto T299;} |
goto T298;} |
702 |
if(!(type_of((V45))==t_cons)){ |
if(!(type_of((V45))==t_cons)){ |
703 |
goto T300;} |
goto T299;} |
704 |
if(!((car((V45)))==(VV[19]))){ |
if(!((car((V45)))==(VV[19]))){ |
705 |
goto T300;} |
goto T299;} |
706 |
goto T299; |
goto T298; |
707 |
T299:; |
T298:; |
708 |
{object V87 = list(4,VV[3],(V44),(V49),make_cons(VV[19],(V48))); |
{object V87 = list(4,VV[3],(V44),(V49),make_cons(VV[19],(V48))); |
709 |
VMR2(V87)} |
VMR2(V87)} |
710 |
goto T300; |
goto T299; |
711 |
T300:; |
T299:; |
712 |
if(!(((V45))==(VV[20]))){ |
if(!(((V45))==(VV[20]))){ |
713 |
goto T307;} |
goto T306;} |
714 |
{object V88 = list(4,VV[3],(V44),(V49),make_cons(VV[20],(V48))); |
{object V88 = list(4,VV[3],(V44),(V49),make_cons(VV[20],(V48))); |
715 |
VMR2(V88)} |
VMR2(V88)} |
716 |
goto T307; |
goto T306; |
717 |
T307:; |
T306:; |
718 |
{object V89; |
{object V89; |
719 |
base[0]= VV[21]; |
base[0]= VV[21]; |
720 |
base[1]= (V45); |
base[1]= (V45); |
723 |
vs_top=sup; |
vs_top=sup; |
724 |
V89= vs_base[0]; |
V89= vs_base[0]; |
725 |
if(((V89))==Cnil){ |
if(((V89))==Cnil){ |
726 |
goto T313;} |
goto T312;} |
727 |
{object V90 = (V89); |
{object V90 = (V89); |
728 |
VMR2(V90)} |
VMR2(V90)} |
729 |
goto T313; |
goto T312; |
730 |
T313:; |
T312:; |
731 |
{object V91 = Cnil; |
{object V91 = Cnil; |
732 |
VMR2(V91)}}} |
VMR2(V91)}}} |
733 |
base[0]=base[0]; |
base[0]=base[0]; |
760 |
{object V103; |
{object V103; |
761 |
V103= (((V100))==Cnil?Ct:Cnil); |
V103= (((V100))==Cnil?Ct:Cnil); |
762 |
if(((V103))==Cnil){ |
if(((V103))==Cnil){ |
763 |
goto T318;} |
goto T317;} |
764 |
{object V104 = (V103); |
{object V104 = (V103); |
765 |
VMR4(V104)} |
VMR4(V104)} |
766 |
goto T318; |
goto T317; |
767 |
T318:; |
T317:; |
768 |
if(((V100))==(VV[19])){ |
if(((V100))==(VV[19])){ |
769 |
goto T320;} |
goto T319;} |
770 |
if(!(type_of((V100))==t_cons)){ |
if(!(type_of((V100))==t_cons)){ |
771 |
goto T321;} |
goto T320;} |
772 |
if(!((car((V100)))==(VV[19]))){ |
if(!((car((V100)))==(VV[19]))){ |
773 |
goto T321;} |
goto T320;} |
774 |
goto T320; |
goto T319; |
775 |
T320:; |
T319:; |
776 |
if(((V101))!=Cnil){ |
if(((V101))!=Cnil){ |
777 |
goto T327;} |
goto T326;} |
778 |
base[0]= VV[23]; |
base[0]= VV[23]; |
779 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
780 |
Lerror(); |
Lerror(); |
781 |
vs_top=sup; |
vs_top=sup; |
782 |
goto T327; |
goto T326; |
783 |
T327:; |
T326:; |
784 |
V105= list(3,VV[27],VV[28],(V102)); |
V105= list(3,VV[27],VV[28],(V102)); |
785 |
V106= list(3,VV[30],VV[31],(V102)); |
V106= list(3,VV[30],VV[31],(V102)); |
786 |
{object V107 = list(4,VV[3],(V99),VV[24],list(4,VV[25],VV[26],/* INLINE-ARGS */V105,list(3,VV[29],/* INLINE-ARGS */V106,list(2,VV[11],(V98))))); |
{object V107 = list(4,VV[3],(V99),VV[24],list(4,VV[25],VV[26],/* INLINE-ARGS */V105,list(3,VV[29],/* INLINE-ARGS */V106,list(2,VV[11],(V98))))); |
787 |
VMR4(V107)} |
VMR4(V107)} |
788 |
goto T321; |
goto T320; |
789 |
T321:; |
T320:; |
790 |
if(!(((V100))==(VV[20]))){ |
if(!(((V100))==(VV[20]))){ |
791 |
goto T332;} |
goto T331;} |
792 |
if(((V101))!=Cnil){ |
if(((V101))!=Cnil){ |
793 |
goto T334;} |
goto T333;} |
794 |
base[0]= VV[32]; |
base[0]= VV[32]; |
795 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
796 |
Lerror(); |
Lerror(); |
797 |
vs_top=sup; |
vs_top=sup; |
798 |
goto T334; |
goto T333; |
799 |
T334:; |
T333:; |
800 |
if(!(number_compare((V102),small_fixnum(0))==0)){ |
if(!(number_compare((V102),small_fixnum(0))==0)){ |
801 |
goto T339;} |
goto T338;} |
802 |
{object V108 = list(4,VV[3],(V99),VV[33],list(3,VV[25],VV[34],list(3,VV[29],VV[35],list(2,VV[11],(V98))))); |
{object V108 = list(4,VV[3],(V99),VV[33],list(3,VV[25],VV[34],list(3,VV[29],VV[35],list(2,VV[11],(V98))))); |
803 |
VMR4(V108)} |
VMR4(V108)} |
804 |
goto T339; |
goto T338; |
805 |
T339:; |
T338:; |
806 |
V109= list(3,VV[38],(V102),VV[39]); |
V109= list(3,VV[38],(V102),VV[39]); |
807 |
base[0]= cdr(symbol_value(VV[40])); |
base[0]= cdr(symbol_value(VV[40])); |
808 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
815 |
V114= list(2,VV[41],list(3,VV[25],/* INLINE-ARGS */V112,list(3,VV[29],/* INLINE-ARGS */V113,list(2,VV[11],(V98))))); |
V114= list(2,VV[41],list(3,VV[25],/* INLINE-ARGS */V112,list(3,VV[29],/* INLINE-ARGS */V113,list(2,VV[11],(V98))))); |
816 |
{object V115 = list(4,VV[3],(V99),VV[36],list(5,VV[37],/* INLINE-ARGS */V111,/* INLINE-ARGS */V114,VV[44],list(3,VV[45],make_cons(VV[42],Cnil),VV[46]))); |
{object V115 = list(4,VV[3],(V99),VV[36],list(5,VV[37],/* INLINE-ARGS */V111,/* INLINE-ARGS */V114,VV[44],list(3,VV[45],make_cons(VV[42],Cnil),VV[46]))); |
817 |
VMR4(V115)} |
VMR4(V115)} |
818 |
goto T332; |
goto T331; |
819 |
T332:; |
T331:; |
820 |
{object V116; |
{object V116; |
821 |
base[0]= VV[47]; |
base[0]= VV[47]; |
822 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
824 |
vs_top=sup; |
vs_top=sup; |
825 |
V116= vs_base[0]; |
V116= vs_base[0]; |
826 |
if(((V116))==Cnil){ |
if(((V116))==Cnil){ |
827 |
goto T346;} |
goto T345;} |
828 |
{object V117 = (V116); |
{object V117 = (V116); |
829 |
VMR4(V117)} |
VMR4(V117)} |
830 |
goto T346; |
goto T345; |
831 |
T346:; |
T345:; |
832 |
{object V118 = Cnil; |
{object V118 = Cnil; |
833 |
VMR4(V118)}}} |
VMR4(V118)}}} |
834 |
base[0]=base[0]; |
base[0]=base[0]; |
851 |
V125= Cnil; |
V125= Cnil; |
852 |
V126= Cnil; |
V126= Cnil; |
853 |
if(!(type_of((V121))!=t_cons)){ |
if(!(type_of((V121))!=t_cons)){ |
854 |
goto T350;} |
goto T349;} |
855 |
V123= (V121); |
V123= (V121); |
856 |
goto T348; |
goto T347; |
857 |
goto T350; |
goto T349; |
858 |
T350:; |
T349:; |
859 |
if(!(endp(cdr((V121))))){ |
if(!(endp(cdr((V121))))){ |
860 |
goto T354;} |
goto T353;} |
861 |
V123= car((V121)); |
V123= car((V121)); |
862 |
goto T348; |
goto T347; |
863 |
goto T354; |
goto T353; |
864 |
T354:; |
T353:; |
865 |
V123= car((V121)); |
V123= car((V121)); |
866 |
V124= cadr((V121)); |
V124= cadr((V121)); |
867 |
{register object V127; |
{register object V127; |
870 |
V127= cddr((V121)); |
V127= cddr((V121)); |
871 |
V128= Cnil; |
V128= Cnil; |
872 |
V129= Cnil; |
V129= Cnil; |
873 |
|
goto T362; |
874 |
|
T362:; |
875 |
|
if(!(endp((V127)))){ |
876 |
|
goto T363;} |
877 |
|
goto T347; |
878 |
goto T363; |
goto T363; |
879 |
T363:; |
T363:; |
|
if(!(endp((V127)))){ |
|
|
goto T364;} |
|
|
goto T348; |
|
|
goto T364; |
|
|
T364:; |
|
880 |
V128= car((V127)); |
V128= car((V127)); |
881 |
if(!(endp(cdr((V127))))){ |
if(!(endp(cdr((V127))))){ |
882 |
goto T370;} |
goto T369;} |
883 |
base[0]= VV[48]; |
base[0]= VV[48]; |
884 |
base[1]= (V127); |
base[1]= (V127); |
885 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
886 |
Lerror(); |
Lerror(); |
887 |
vs_top=sup; |
vs_top=sup; |
888 |
goto T370; |
goto T369; |
889 |
T370:; |
T369:; |
890 |
V129= cadr((V127)); |
V129= cadr((V127)); |
891 |
{object V130= (V128); |
{object V130= (V128); |
892 |
if((V130!= VV[77]))goto T378; |
if((V130!= VV[77]))goto T377; |
893 |
V125= (V129); |
V125= (V129); |
894 |
goto T377; |
goto T376; |
895 |
goto T378; |
goto T377; |
896 |
T378:; |
T377:; |
897 |
if((V130!= VV[116]))goto T380; |
if((V130!= VV[116]))goto T379; |
898 |
V126= (V129); |
V126= (V129); |
899 |
goto T377; |
goto T376; |
900 |
goto T380; |
goto T379; |
901 |
T380:; |
T379:; |
902 |
base[0]= VV[49]; |
base[0]= VV[49]; |
903 |
base[1]= (V127); |
base[1]= (V127); |
904 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
905 |
Lerror(); |
Lerror(); |
906 |
vs_top=sup;} |
vs_top=sup;} |
907 |
goto T377; |
goto T376; |
908 |
T377:; |
T376:; |
909 |
V127= cddr((V127)); |
V127= cddr((V127)); |
910 |
goto T363;} |
goto T362;} |
911 |
goto T348; |
goto T347; |
912 |
T348:; |
T347:; |
913 |
{object V131 = list(5,(V123),(V124),(V125),(V126),(V122)); |
{object V131 = list(5,(V123),(V124),(V125),(V126),(V122)); |
914 |
VMR5(V131)}} |
VMR5(V131)}} |
915 |
base[0]=base[0]; |
base[0]=base[0]; |
924 |
goto TTL; |
goto TTL; |
925 |
TTL:; |
TTL:; |
926 |
if(((V135))!=Cnil){ |
if(((V135))!=Cnil){ |
927 |
goto T388;} |
goto T387;} |
928 |
{object V136 = Cnil; |
{object V136 = Cnil; |
929 |
VMR6(V136)} |
VMR6(V136)} |
930 |
goto T388; |
goto T387; |
931 |
T388:; |
T387:; |
932 |
{register object V137; |
{register object V137; |
933 |
base[0]= caar((V135)); |
base[0]= caar((V135)); |
934 |
base[1]= (V134); |
base[1]= (V134); |
939 |
vs_top=sup; |
vs_top=sup; |
940 |
V137= vs_base[0]; |
V137= vs_base[0]; |
941 |
if(((V137))==Cnil){ |
if(((V137))==Cnil){ |
942 |
goto T396;} |
goto T395;} |
943 |
if((cadddr(car((V137))))!=Cnil){ |
if((cadddr(car((V137))))!=Cnil){ |
944 |
goto T398;} |
goto T397;} |
945 |
if((cadddr(car((V135))))==Cnil){ |
if((cadddr(car((V135))))==Cnil){ |
946 |
goto T398;} |
goto T397;} |
947 |
base[0]= VV[50]; |
base[0]= VV[50]; |
948 |
base[1]= (V137); |
base[1]= (V137); |
949 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
950 |
Lerror(); |
Lerror(); |
951 |
vs_top=sup; |
vs_top=sup; |
952 |
goto T398; |
goto T397; |
953 |
T398:; |
T397:; |
954 |
{object V138; |
{object V138; |
955 |
object V139; |
object V139; |
956 |
V138= car((V137)); |
V138= car((V137)); |
959 |
(cddr((V138)))->c.c_car = (V139); |
(cddr((V138)))->c.c_car = (V139); |
960 |
(void)(cddr((V138)));}{object V141; |
(void)(cddr((V138)));}{object V141; |
961 |
V141= caddr(car((V137))); |
V141= caddr(car((V137))); |
962 |
if(V141==Cnil)goto T413; |
if(V141==Cnil)goto T412; |
963 |
V140= V141; |
V140= V141; |
964 |
goto T412; |
goto T411; |
|
goto T413; |
|
|
T413:;} |
|
|
V140= Ct; |
|
965 |
goto T412; |
goto T412; |
966 |
T412:; |
T412:;} |
967 |
|
V140= Ct; |
968 |
|
goto T411; |
969 |
|
T411:; |
970 |
V142= (*(LnkLI118))(V140);{object V144; |
V142= (*(LnkLI118))(V140);{object V144; |
971 |
V144= caddr(car((V135))); |
V144= caddr(car((V135))); |
972 |
if(V144==Cnil)goto T416; |
if(V144==Cnil)goto T415; |
973 |
V143= V144; |
V143= V144; |
974 |
goto T415; |
goto T414; |
|
goto T416; |
|
|
T416:;} |
|
|
V143= Ct; |
|
975 |
goto T415; |
goto T415; |
976 |
T415:; |
T415:;} |
977 |
|
V143= Ct; |
978 |
|
goto T414; |
979 |
|
T414:; |
980 |
V145= (*(LnkLI118))(V143); |
V145= (*(LnkLI118))(V143); |
981 |
if(equal(/* INLINE-ARGS */V142,/* INLINE-ARGS */V145)){ |
if(equal(/* INLINE-ARGS */V142,/* INLINE-ARGS */V145)){ |
982 |
goto T409;} |
goto T408;} |
983 |
base[0]= VV[51]; |
base[0]= VV[51]; |
984 |
base[1]= car((V137)); |
base[1]= car((V137)); |
985 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
986 |
Lerror(); |
Lerror(); |
987 |
vs_top=sup; |
vs_top=sup; |
988 |
goto T409; |
goto T408; |
989 |
T409:; |
T408:; |
990 |
V146= list(5,caar((V137)),cadar((V137)),caddar((V137)),cadddr(car((V137))),car(cddddr(car((V135))))); |
V146= list(5,caar((V137)),cadar((V137)),caddar((V137)),cadddr(car((V137))),car(cddddr(car((V135))))); |
991 |
V147= (*(LnkLI119))((V134),cdr((V135))); |
V147= (*(LnkLI119))((V134),cdr((V135))); |
992 |
{object V148 = make_cons(/* INLINE-ARGS */V146,/* INLINE-ARGS */V147); |
{object V148 = make_cons(/* INLINE-ARGS */V146,/* INLINE-ARGS */V147); |
993 |
VMR6(V148)} |
VMR6(V148)} |
994 |
goto T396; |
goto T395; |
995 |
T396:; |
T395:; |
996 |
V149= car((V135)); |
V149= car((V135)); |
997 |
V150= (*(LnkLI119))((V134),cdr((V135))); |
V150= (*(LnkLI119))((V134),cdr((V135))); |
998 |
{object V151 = make_cons(/* INLINE-ARGS */V149,/* INLINE-ARGS */V150); |
{object V151 = make_cons(/* INLINE-ARGS */V149,/* INLINE-ARGS */V150); |
1013 |
{register object V159; |
{register object V159; |
1014 |
V159= (VFUN_NARGS=5,(*(LnkLI120))((V155),VV[52],VV[53],VV[54],Ct)); |
V159= (VFUN_NARGS=5,(*(LnkLI120))((V155),VV[52],VV[53],VV[54],Ct)); |
1015 |
if(((V156))==Cnil){ |
if(((V156))==Cnil){ |
1016 |
goto T422;} |
goto T421;} |
1017 |
{object V160; |
{object V160; |
1018 |
object V161; |
object V161; |
1019 |
V160= get((V156),VV[55],Cnil); |
V160= get((V156),VV[55],Cnil); |
1020 |
V161= Cnil; |
V161= Cnil; |
1021 |
if((V160)!=Cnil){ |
if((V160)!=Cnil){ |
1022 |
goto T426;} |
goto T425;} |
1023 |
base[0]= VV[56]; |
base[0]= VV[56]; |
1024 |
base[1]= (V156); |
base[1]= (V156); |
1025 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1026 |
Lerror(); |
Lerror(); |
1027 |
vs_top=sup; |
vs_top=sup; |
1028 |
goto T426; |
goto T425; |
1029 |
T426:; |
T425:; |
1030 |
V161= structure_ref((V160),VV[55],2); |
V161= structure_ref((V160),VV[55],2); |
1031 |
{object V162; |
{object V162; |
1032 |
register object V163; |
register object V163; |
1033 |
V164 = make_fixnum((long)length((V161))); |
V164 = make_fixnum((long)length((V161))); |
1034 |
V162= (number_compare((V155),V164)<=0?((V155)):V164); |
V162= (number_compare((V155),V164)<=0?((V155)):V164); |
1035 |
V163= small_fixnum(0); |
V163= small_fixnum(0); |
1036 |
|
goto T433; |
1037 |
|
T433:; |
1038 |
|
if(!(number_compare((V163),(V162))>=0)){ |
1039 |
|
goto T434;} |
1040 |
|
goto T421; |
1041 |
goto T434; |
goto T434; |
1042 |
T434:; |
T434:; |
|
if(!(number_compare((V163),(V162))>=0)){ |
|
|
goto T435;} |
|
|
goto T422; |
|
|
goto T435; |
|
|
T435:; |
|
1043 |
V165= aref1((V161),fixint((V163))); |
V165= aref1((V161),fixint((V163))); |
1044 |
(void)(aset1((V159),fixint((V163)),/* INLINE-ARGS */V165)); |
(void)(aset1((V159),fixint((V163)),/* INLINE-ARGS */V165)); |
1045 |
V163= one_plus((V163)); |
V163= one_plus((V163)); |
1046 |
goto T434;}} |
goto T433;}} |
1047 |
goto T422; |
goto T421; |
1048 |
T422:; |
T421:; |
1049 |
{register object V166; |
{register object V166; |
1050 |
register object V167; |
register object V167; |
1051 |
V166= (V157); |
V166= (V157); |
1052 |
V167= car((V166)); |
V167= car((V166)); |
1053 |
|
goto T446; |
1054 |
|
T446:; |
1055 |
|
if(!(endp((V166)))){ |
1056 |
|
goto T447;} |
1057 |
|
goto T442; |
1058 |
goto T447; |
goto T447; |
1059 |
T447:; |
T447:; |
|
if(!(endp((V166)))){ |
|
|
goto T448;} |
|
|
goto T443; |
|
|
goto T448; |
|
|
T448:; |
|
1060 |
V158= car(cddddr((V167))); |
V158= car(cddddr((V167))); |
1061 |
{register object V168; |
{register object V168; |
1062 |
V168= caddr((V167)); |
V168= caddr((V167)); |
1066 |
vs_top=sup; |
vs_top=sup; |
1067 |
V169= vs_base[0]; |
V169= vs_base[0]; |
1068 |
if(!(number_compare(V169,symbol_value(VV[57]))<=0)){ |
if(!(number_compare(V169,symbol_value(VV[57]))<=0)){ |
1069 |
goto T454;} |
goto T453;} |
1070 |
base[1]= (V168); |
base[1]= (V168); |
1071 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1072 |
(void) (*Lnk122)(); |
(void) (*Lnk122)(); |
1073 |
vs_top=sup; |
vs_top=sup; |
1074 |
V170= vs_base[0]; |
V170= vs_base[0]; |
1075 |
(void)(aset1((V159),fixint((V158)),V170));} |
(void)(aset1((V159),fixint((V158)),V170));} |
1076 |
goto T454; |
goto T453; |
1077 |
T454:; |
T453:; |
1078 |
V166= cdr((V166)); |
V166= cdr((V166)); |
1079 |
V167= car((V166)); |
V167= car((V166)); |
1080 |
goto T447;} |
goto T446;} |
1081 |
goto T443; |
goto T442; |
1082 |
T443:; |
T442:; |
1083 |
V171 = make_fixnum((long)length(symbol_value(VV[58]))); |
V171 = make_fixnum((long)length(symbol_value(VV[58]))); |
1084 |
if(!(number_compare((V155),V171)<0)){ |
if(!(number_compare((V155),V171)<0)){ |
1085 |
goto T468;} |
goto T467;} |
1086 |
{register object V173; |
{register object V173; |
1087 |
V173= small_fixnum(0); |
V173= small_fixnum(0); |
1088 |
|
goto T472; |
1089 |
|
T472:; |
1090 |
|
if(!(number_compare((V173),V155)>=0)){ |
1091 |
|
goto T473;} |
1092 |
|
goto T469; |
1093 |
goto T473; |
goto T473; |
1094 |
T473:; |
T473:; |
|
if(!(number_compare((V173),V155)>=0)){ |
|
|
goto T474;} |
|
|
goto T470; |
|
|
goto T474; |
|
|
T474:; |
|
1095 |
{long V174= fix(aref1((V159),fixint((V173)))); |
{long V174= fix(aref1((V159),fixint((V173)))); |
1096 |
if((/* INLINE-ARGS */V174)==(0)){ |
if((/* INLINE-ARGS */V174)==(0)){ |
1097 |
goto T478;}} |
goto T477;}} |
1098 |
{object V175 = (V159); |
{object V175 = (V159); |
1099 |
VMR7(V175)} |
VMR7(V175)} |
1100 |
goto T478; |
goto T477; |
1101 |
T478:; |
T477:; |
1102 |
V173= one_plus((V173)); |
V173= one_plus((V173)); |
1103 |
goto T473;} |
goto T472;} |
1104 |
goto T470; |
goto T469; |
1105 |
T470:; |
T469:; |
1106 |
{object V176 = symbol_value(VV[58]); |
{object V176 = symbol_value(VV[58]); |
1107 |
VMR7(V176)} |
VMR7(V176)} |
1108 |
goto T468; |
goto T467; |
1109 |
T468:; |
T467:; |
1110 |
{object V177 = (V159); |
{object V177 = (V159); |
1111 |
VMR7(V177)}}} |
VMR7(V177)}}} |
1112 |
base[0]=base[0]; |
base[0]=base[0]; |
1148 |
register object V193; |
register object V193; |
1149 |
V192= (V188); |
V192= (V188); |
1150 |
V193= car((V192)); |
V193= car((V192)); |
1151 |
|
goto T495; |
1152 |
|
T495:; |
1153 |
|
if(!(endp((V192)))){ |
1154 |
|
goto T496;} |
1155 |
|
goto T491; |
1156 |
goto T496; |
goto T496; |
1157 |
T496:; |
T496:; |
|
if(!(endp((V192)))){ |
|
|
goto T497;} |
|
|
goto T492; |
|
|
goto T497; |
|
|
T497:; |
|
1158 |
if(((V193))==Cnil){ |
if(((V193))==Cnil){ |
1159 |
goto T501;} |
goto T500;} |
1160 |
if((car((V193)))==Cnil){ |
if((car((V193)))==Cnil){ |
1161 |
goto T501;} |
goto T500;} |
1162 |
V189= (*(LnkLI117))(caddr((V193))); |
V189= (*(LnkLI117))(caddr((V193))); |
1163 |
if(type_of(cddr(V193))!=t_cons)FEwrong_type_argument(Scons,cddr(V193)); |
if(type_of(cddr(V193))!=t_cons)FEwrong_type_argument(Scons,cddr(V193)); |
1164 |
(cddr(V193))->c.c_car = V189; |
(cddr(V193))->c.c_car = V189; |
1171 |
(void) (*Lnk123)(); |
(void) (*Lnk123)(); |
1172 |
vs_top=sup; |
vs_top=sup; |
1173 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1174 |
goto T510;} |
goto T509;} |
1175 |
if(!(type_of((V196))==t_symbol)){ |
if(!(type_of((V196))==t_symbol)){ |
1176 |
goto T516;} |
goto T515;} |
1177 |
base[1]= (V196); |
base[1]= (V196); |
1178 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1179 |
Lconstantp(); |
Lconstantp(); |
1180 |
vs_top=sup; |
vs_top=sup; |
1181 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1182 |
goto T516;} |
goto T515;} |
1183 |
base[1]= (V196); |
base[1]= (V196); |
1184 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1185 |
Lsymbol_value(); |
Lsymbol_value(); |
1186 |
vs_top=sup; |
vs_top=sup; |
1187 |
V196= vs_base[0]; |
V196= vs_base[0]; |
1188 |
goto T516; |
goto T515; |
1189 |
T516:; |
T515:; |
1190 |
base[1]= (V196); |
base[1]= (V196); |
1191 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1192 |
Lconstantp(); |
Lconstantp(); |
1193 |
vs_top=sup; |
vs_top=sup; |
1194 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1195 |
goto T524;} |
goto T523;} |
1196 |
goto T510; |
goto T509; |
1197 |
goto T524; |
goto T523; |
1198 |
T524:; |
T523:; |
1199 |
{object V198; |
{object V198; |
1200 |
V198= (*(LnkLI124))((V196),(V189)); |
V198= (*(LnkLI124))((V196),(V189)); |
1201 |
if(type_of(cdr(V193))!=t_cons)FEwrong_type_argument(Scons,cdr(V193)); |
if(type_of(cdr(V193))!=t_cons)FEwrong_type_argument(Scons,cdr(V193)); |
1202 |
(cdr(V193))->c.c_car = (V198); |
(cdr(V193))->c.c_car = (V198); |
1203 |
(void)(cdr(V193));}} |
(void)(cdr(V193));}} |
1204 |
goto T510; |
goto T509; |
1205 |
T510:; |
T509:; |
1206 |
{register object x= (V189),V199= VV[60]; |
{register object x= (V189),V199= VV[60]; |
1207 |
while(!endp(V199)) |
while(!endp(V199)) |
1208 |
if(x==(V199->c.c_car)){ |
if(x==(V199->c.c_car)){ |
1209 |
goto T530; |
goto T529; |
1210 |
}else V199=V199->c.c_cdr; |
}else V199=V199->c.c_cdr; |
1211 |
goto T501;} |
goto T500;} |
1212 |
goto T530; |
goto T529; |
1213 |
T530:; |
T529:; |
1214 |
V190= Ct; |
V190= Ct; |
1215 |
goto T501; |
goto T500; |
1216 |
T501:; |
T500:; |
1217 |
V192= cdr((V192)); |
V192= cdr((V192)); |
1218 |
V193= car((V192)); |
V193= car((V192)); |
1219 |
goto T496;} |
goto T495;} |
1220 |
goto T492; |
goto T491; |
1221 |
T492:; |
T491:; |
1222 |
{object V200; |
{object V200; |
1223 |
if(((V190))==Cnil){ |
if(((V190))==Cnil){ |
1224 |
goto T538;} |
goto T537;} |
1225 |
V200= Cnil; |
V200= Cnil; |
1226 |
goto T537; |
goto T536; |
1227 |
goto T538; |
goto T537; |
1228 |
T538:; |
T537:; |
1229 |
V201 = make_fixnum((long)length(symbol_value(VV[59]))); |
V201 = make_fixnum((long)length(symbol_value(VV[59]))); |
1230 |
if(number_compare((V186),V201)<0){ |
if(number_compare((V186),V201)<0){ |
1231 |
goto T540;} |
goto T539;} |
1232 |
V200= Cnil; |
V200= Cnil; |
1233 |
goto T537; |
goto T536; |
1234 |
goto T540; |
goto T539; |
1235 |
T540:;{object V202; |
T539:;{object V202; |
1236 |
V202= symbol_value(VV[59]); |
V202= symbol_value(VV[59]); |
1237 |
base[0]= Ct; |
base[0]= Ct; |
1238 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1240 |
vs_top=sup; |
vs_top=sup; |
1241 |
V203= vs_base[0]; |
V203= vs_base[0]; |
1242 |
V200= list(3,V202,number_times((V186),V203),Cnil);} |
V200= list(3,V202,number_times((V186),V203),Cnil);} |
1243 |
goto T537; |
goto T536; |
1244 |
T537:; |
T536:; |
1245 |
if(((V200))==Cnil){ |
if(((V200))==Cnil){ |
1246 |
goto T545;} |
goto T544;} |
1247 |
{object V204 = (V200); |
{object V204 = (V200); |
1248 |
VMR9(V204)} |
VMR9(V204)} |
1249 |
goto T545; |
goto T544; |
1250 |
T545:; |
T544:; |
1251 |
{object V205; |
{object V205; |
1252 |
register long V206; |
register long V206; |
1253 |
long V207; |
long V207; |
1264 |
register object V212; |
register object V212; |
1265 |
V211= (V188); |
V211= (V188); |
1266 |
V212= car((V211)); |
V212= car((V211)); |
1267 |
|
goto T555; |
1268 |
|
T555:; |
1269 |
|
if(!(endp((V211)))){ |
1270 |
|
goto T556;} |
1271 |
|
goto T551; |
1272 |
goto T556; |
goto T556; |
1273 |
T556:; |
T556:; |
|
if(!(endp((V211)))){ |
|
|
goto T557;} |
|
|
goto T552; |
|
|
goto T557; |
|
|
T557:; |
|
1274 |
V209= caddr((V212)); |
V209= caddr((V212)); |
1275 |
base[1]= (V209); |
base[1]= (V209); |
1276 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1279 |
V208= fix(vs_base[0]); |
V208= fix(vs_base[0]); |
1280 |
V213 = make_fixnum(V208); |
V213 = make_fixnum(V208); |
1281 |
if(number_compare(V213,symbol_value(VV[57]))<=0){ |
if(number_compare(V213,symbol_value(VV[57]))<=0){ |
1282 |
goto T566;} |
goto T565;} |
1283 |
V209= Ct; |
V209= Ct; |
1284 |
if(type_of(cddr(V212))!=t_cons)FEwrong_type_argument(Scons,cddr(V212)); |
if(type_of(cddr(V212))!=t_cons)FEwrong_type_argument(Scons,cddr(V212)); |
1285 |
(cddr(V212))->c.c_car = Ct; |
(cddr(V212))->c.c_car = Ct; |
1286 |
(void)(cddr(V212)); |
(void)(cddr(V212)); |
1287 |
V208= fix(symbol_value(VV[57])); |
V208= fix(symbol_value(VV[57])); |
1288 |
V212= nconc((V212),VV[62]); |
V212= nconc((V212),VV[62]); |
1289 |
goto T566; |
goto T565; |
1290 |
T566:; |
T565:; |
1291 |
V210= (long)(*(LnkLI126))(V206,V208); |
V210= (long)(*(LnkLI126))(V206,V208); |
1292 |
if(!((V206)==(V210))){ |
if(!((V206)==(V210))){ |
1293 |
goto T579;} |
goto T578;} |
1294 |
goto T578; |
goto T577; |
|
goto T579; |
|
|
T579:; |
|
|
V191= Ct; |
|
1295 |
goto T578; |
goto T578; |
1296 |
T578:; |
T578:; |
1297 |
|
V191= Ct; |
1298 |
|
goto T577; |
1299 |
|
T577:; |
1300 |
V206= V210; |
V206= V210; |
1301 |
V216 = make_fixnum(V206); |
V216 = make_fixnum(V206); |
1302 |
(void)(aset1((V205),V207,V216)); |
(void)(aset1((V205),V207,V216)); |
1310 |
V207= (long)(V207)+(1); |
V207= (long)(V207)+(1); |
1311 |
V211= cdr((V211)); |
V211= cdr((V211)); |
1312 |
V212= car((V211)); |
V212= car((V211)); |
1313 |
goto T556;} |
goto T555;} |
1314 |
goto T552; |
goto T551; |
1315 |
T552:; |
T551:; |
1316 |
base[0]= Ct; |
base[0]= Ct; |
1317 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1318 |
(void) (*Lnk125)(); |
(void) (*Lnk125)(); |
1361 |
V243= V223; |
V243= V223; |
1362 |
V244= V222; |
V244= V222; |
1363 |
narg = narg - 12; |
narg = narg - 12; |
1364 |
if (narg <= 0) goto T598; |
if (narg <= 0) goto T597; |
1365 |
else { |
else { |
1366 |
V245= va_arg(ap,object);} |
V245= va_arg(ap,object);} |
1367 |
if (--narg <= 0) goto T599; |
if (--narg <= 0) goto T598; |
1368 |
else { |
else { |
1369 |
V246= va_arg(ap,object);} |
V246= va_arg(ap,object);} |
1370 |
--narg; goto T600; |
--narg; goto T599; |
1371 |
|
goto T597; |
1372 |
|
T597:; |
1373 |
|
V245= Cnil; |
1374 |
goto T598; |
goto T598; |
1375 |
T598:; |
T598:; |
1376 |
V245= Cnil; |
V246= Cnil; |
1377 |
goto T599; |
goto T599; |
1378 |
T599:; |
T599:; |
|
V246= Cnil; |
|
|
goto T600; |
|
|
T600:; |
|
1379 |
{object V247; |
{object V247; |
1380 |
object V248; |
object V248; |
1381 |
V247= Cnil; |
V247= Cnil; |
1382 |
V248= Cnil; |
V248= Cnil; |
1383 |
if(type_of((V235))==t_cons){ |
if(type_of((V235))==t_cons){ |
1384 |
goto T606;} |
goto T605;} |
1385 |
goto T605; |
goto T604; |
|
goto T606; |
|
|
T606:; |
|
|
if((car((V235)))==(VV[19])){ |
|
|
goto T608;} |
|
|
goto T605; |
|
|
goto T608; |
|
|
T608:; |
|
|
V235= VV[19]; |
|
1386 |
goto T605; |
goto T605; |
1387 |
T605:; |
T605:; |
1388 |
|
if((car((V235)))==(VV[19])){ |
1389 |
|
goto T607;} |
1390 |
|
goto T604; |
1391 |
|
goto T607; |
1392 |
|
T607:; |
1393 |
|
V235= VV[19]; |
1394 |
|
goto T604; |
1395 |
|
T604:; |
1396 |
V248= make_fixnum((long)length((V237))); |
V248= make_fixnum((long)length((V237))); |
1397 |
{register object V249; |
{register object V249; |
1398 |
register object V250; |
register object V250; |
1399 |
V249= (V237); |
V249= (V237); |
1400 |
V250= car((V249)); |
V250= car((V249)); |
1401 |
|
goto T616; |
1402 |
|
T616:; |
1403 |
|
if(!(endp((V249)))){ |
1404 |
|
goto T617;} |
1405 |
|
goto T612; |
1406 |
goto T617; |
goto T617; |
1407 |
T617:; |
T617:; |
|
if(!(endp((V249)))){ |
|
|
goto T618;} |
|
|
goto T613; |
|
|
goto T618; |
|
|
T618:; |
|
1408 |
if((V250)==Cnil){ |
if((V250)==Cnil){ |
1409 |
goto T622;} |
goto T621;} |
1410 |
if((car((V250)))!=Cnil){ |
if((car((V250)))!=Cnil){ |
1411 |
goto T623;} |
goto T622;} |
1412 |
goto T622; |
goto T621; |
1413 |
goto T623; |
goto T622; |
1414 |
T623:; |
T622:; |
1415 |
base[1]= (Vcs[0]->c.c_car); |
base[1]= (Vcs[0]->c.c_car); |
1416 |
base[2]= (V234); |
base[2]= (V234); |
1417 |
base[3]= (V235); |
base[3]= (V235); |
1426 |
vs_base=base+1;} |
vs_base=base+1;} |
1427 |
(void) (*Lnk127)(); |
(void) (*Lnk127)(); |
1428 |
vs_top=sup; |
vs_top=sup; |
1429 |
goto T622; |
goto T621; |
1430 |
T622:; |
T621:; |
1431 |
V249= cdr((V249)); |
V249= cdr((V249)); |
1432 |
V250= car((V249)); |
V250= car((V249)); |
1433 |
goto T617;} |
goto T616;} |
1434 |
goto T613; |
goto T612; |
1435 |
T613:; |
T612:; |
1436 |
if(((V238))==Cnil){ |
if(((V238))==Cnil){ |
1437 |
goto T637;} |
goto T636;} |
1438 |
if(((V246))!=Cnil){ |
if(((V246))!=Cnil){ |
1439 |
goto T637;} |
goto T636;} |
1440 |
base[0]= (V238); |
base[0]= (V238); |
1441 |
{object V252= (V235); |
{object V252= (V235); |
1442 |
if((V252!= Cnil))goto T644; |
if((V252!= Cnil))goto T643; |
1443 |
base[1]= symbol_function(VV[128]); |
base[1]= symbol_function(VV[128]); |
1444 |
goto T643; |
goto T642; |
1445 |
|
goto T643; |
1446 |
|
T643:; |
1447 |
|
if((V252!= VV[20]))goto T644; |
1448 |
|
base[1]= symbol_function(VV[129]); |
1449 |
|
goto T642; |
1450 |
goto T644; |
goto T644; |
1451 |
T644:; |
T644:; |
1452 |
if((V252!= VV[20]))goto T645; |
if((V252!= VV[19]))goto T645; |
1453 |
base[1]= symbol_function(VV[129]); |
base[1]= symbol_function(VV[130]); |
1454 |
goto T643; |
goto T642; |
1455 |
goto T645; |
goto T645; |
1456 |
T645:; |
T645:; |
|
if((V252!= VV[19]))goto T646; |
|
|
base[1]= symbol_function(VV[130]); |
|
|
goto T643; |
|
|
goto T646; |
|
|
T646:; |
|
1457 |
FEerror("The ECASE key value ~s is illegal.",1,V252); |
FEerror("The ECASE key value ~s is illegal.",1,V252); |
1458 |
base[1]= symbol_function(VV[128]);} |
base[1]= Cnil; |
1459 |
goto T643; |
goto T642;} |
1460 |
T643:; |
goto T642; |
1461 |
|
T642:; |
1462 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1463 |
siLfset(); |
siLfset(); |
1464 |
vs_top=sup; |
vs_top=sup; |
1465 |
goto T637; |
goto T636; |
1466 |
T637:; |
T636:; |
1467 |
if(((V235))!=Cnil){ |
if(((V235))!=Cnil){ |
1468 |
goto T649;} |
goto T648;} |
1469 |
if(!(((Vcs[0]->c.c_car))==(VV[55]))){ |
if(!(((Vcs[0]->c.c_car))==(VV[55]))){ |
1470 |
goto T649;} |
goto T648;} |
1471 |
base[1]= Ct; |
base[1]= Ct; |
1472 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1473 |
(void) (*Lnk125)(); |
(void) (*Lnk125)(); |
1483 |
(void) (*Lnk132)(); |
(void) (*Lnk132)(); |
1484 |
vs_top=sup; |
vs_top=sup; |
1485 |
V247= vs_base[0]; |
V247= vs_base[0]; |
1486 |
goto T647; |
goto T646; |
1487 |
goto T649; |
goto T648; |
1488 |
T649:; |
T648:; |
1489 |
{object V255; |
{object V255; |
1490 |
object V256; |
object V256; |
1491 |
object V257; |
object V257; |
1492 |
object V258; |
object V258; |
1493 |
if((V240)==Cnil){ |
if((V240)==Cnil){ |
1494 |
V258= Cnil; |
V258= Cnil; |
1495 |
goto T661;} |
goto T660;} |
1496 |
V258= get((V240),VV[55],Cnil); |
V258= get((V240),VV[55],Cnil); |
1497 |
goto T661; |
goto T660; |
1498 |
T661:; |
T660:; |
1499 |
V255= Cnil; |
V255= Cnil; |
1500 |
V256= small_fixnum(0); |
V256= small_fixnum(0); |
1501 |
V257= Cnil; |
V257= Cnil; |
1502 |
if(((V258))==Cnil){ |
if(((V258))==Cnil){ |
1503 |
goto T662;} |
goto T661;} |
1504 |
if((structure_ref((V258),VV[55],11))==Cnil){ |
if((structure_ref((V258),VV[55],11))==Cnil){ |
1505 |
goto T665;} |
goto T664;} |
1506 |
if((structure_ref((V258),VV[55],3))==Cnil){ |
if((structure_ref((V258),VV[55],3))==Cnil){ |
1507 |
goto T666;} |
goto T665;} |
1508 |
{object V259; |
{object V259; |
1509 |
V259= get((Vcs[0]->c.c_car),VV[55],Cnil); |
V259= get((Vcs[0]->c.c_car),VV[55],Cnil); |
1510 |
if((V259)==Cnil){ |
if((V259)==Cnil){ |
1511 |
goto T671;} |
goto T670;} |
1512 |
V260= structure_ref((V259),VV[55],4); |
V260= structure_ref((V259),VV[55],4); |
1513 |
if((/* INLINE-ARGS */V260)==((V258))){ |
if((/* INLINE-ARGS */V260)==((V258))){ |
1514 |
goto T665;}} |
goto T664;}} |
1515 |
goto T671; |
goto T670; |
1516 |
T671:; |
T670:; |
|
goto T666; |
|
|
T666:; |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI133))(VV[64],(V240)))); |
|
1517 |
goto T665; |
goto T665; |
1518 |
T665:; |
T665:; |
1519 |
|
(void)((VFUN_NARGS=2,(*(LnkLI133))(VV[64],(V240)))); |
1520 |
|
goto T664; |
1521 |
|
T664:; |
1522 |
{object V262; |
{object V262; |
1523 |
base[1]= (Vcs[0]->c.c_car); |
base[1]= (Vcs[0]->c.c_car); |
1524 |
base[2]= structure_ref(V258,VV[55],3); |
base[2]= structure_ref(V258,VV[55],3); |
1527 |
vs_top=sup; |
vs_top=sup; |
1528 |
V262= vs_base[0]; |
V262= vs_base[0]; |
1529 |
(void)(structure_set(V258,VV[55],3,(V262)));} |
(void)(structure_set(V258,VV[55],3,(V262)));} |
1530 |
goto T662; |
goto T661; |
1531 |
T662:; |
T661:; |
1532 |
if(((V235))!=Cnil){ |
if(((V235))!=Cnil){ |
1533 |
goto T676;} |
goto T675;} |
1534 |
V255= (*(LnkLI134))((V248),(V240),(V237)); |
V255= (*(LnkLI134))((V248),(V240),(V237)); |
1535 |
V256= cadr((V255)); |
V256= cadr((V255)); |
1536 |
V257= caddr((V255)); |
V257= caddr((V255)); |
1537 |
V255= car((V255)); |
V255= car((V255)); |
1538 |
goto T676; |
goto T675; |
1539 |
T676:; |
T675:; |
1540 |
if(((V235))==Cnil){ |
if(((V235))==Cnil){ |
1541 |
goto T688;} |
goto T687;} |
1542 |
V263= Cnil; |
V263= Cnil; |
1543 |
goto T687; |
goto T686; |
|
goto T688; |
|
|
T688:; |
|
|
V263= (*(LnkLI131))((V248),(V240),(V237)); |
|
1544 |
goto T687; |
goto T687; |
1545 |
T687:; |
T687:; |
1546 |
|
V263= (*(LnkLI131))((V248),(V240),(V237)); |
1547 |
|
goto T686; |
1548 |
|
T686:; |
1549 |
V247= (VFUN_NARGS=32,(*(LnkLI135))(VV[65],(Vcs[0]->c.c_car),VV[66],(V248),VV[67],V263,VV[68],(V255),VV[69],(V256),VV[70],(V257),VV[71],(V239),VV[72],(V258),VV[73],(V241),VV[74],(V237),VV[75],(V242),VV[76],(V243),VV[77],(V235),VV[78],(V236),VV[79],(V245),VV[80],(V234)));} |
V247= (VFUN_NARGS=32,(*(LnkLI135))(VV[65],(Vcs[0]->c.c_car),VV[66],(V248),VV[67],V263,VV[68],(V255),VV[69],(V256),VV[70],(V257),VV[71],(V239),VV[72],(V258),VV[73],(V241),VV[74],(V237),VV[75],(V242),VV[76],(V243),VV[77],(V235),VV[78],(V236),VV[79],(V245),VV[80],(V234)));} |
1550 |
goto T647; |
goto T646; |
1551 |
T647:; |
T646:; |
1552 |
{object V264; |
{object V264; |
1553 |
V264= get((Vcs[0]->c.c_car),VV[55],Cnil); |
V264= get((Vcs[0]->c.c_car),VV[55],Cnil); |
1554 |
if(!(((Vcs[0]->c.c_car))==(VV[55]))){ |
if(!(((Vcs[0]->c.c_car))==(VV[55]))){ |
1555 |
goto T694;} |
goto T693;} |
1556 |
if(((V264))==Cnil){ |
if(((V264))==Cnil){ |
1557 |
goto T696;} |
goto T695;} |
1558 |
(void)((VFUN_NARGS=1,(*(LnkLI133))(VV[81]))); |
(void)((VFUN_NARGS=1,(*(LnkLI133))(VV[81]))); |
1559 |
goto T696; |
goto T695; |
1560 |
T696:; |
T695:; |
1561 |
if((V264)!=Cnil){ |
if((V264)!=Cnil){ |
1562 |
goto T692;} |
goto T691;} |
1563 |
(void)(sputprop((Vcs[0]->c.c_car),VV[55],(V247))); |
(void)(sputprop((Vcs[0]->c.c_car),VV[55],(V247))); |
1564 |
goto T692; |
goto T691; |
1565 |
goto T694; |
goto T693; |
1566 |
T694:; |
T693:; |
1567 |
if(((V264))==Cnil){ |
if(((V264))==Cnil){ |
1568 |
goto T700;} |
goto T699;} |
1569 |
(void)((*(LnkLI136))((V264),(V247),(Vcs[0]->c.c_car))); |
(void)((*(LnkLI136))((V264),(V247),(Vcs[0]->c.c_car))); |
1570 |
goto T692; |
goto T691; |
1571 |
goto T700; |
goto T699; |
1572 |
T700:; |
T699:; |
1573 |
(void)(sputprop((Vcs[0]->c.c_car),VV[55],(V247))); |
(void)(sputprop((Vcs[0]->c.c_car),VV[55],(V247))); |
1574 |
goto T692; |
goto T691; |
1575 |
T692:; |
T691:; |
1576 |
if(((V245))==Cnil){ |
if(((V245))==Cnil){ |
1577 |
goto T702;} |
goto T701;} |
1578 |
(void)(sputprop((Vcs[0]->c.c_car),VV[82],(V245))); |
(void)(sputprop((Vcs[0]->c.c_car),VV[82],(V245))); |
1579 |
goto T702; |
goto T701; |
1580 |
T702:; |
T701:; |
1581 |
if(((V235))!=Cnil){ |
if(((V235))!=Cnil){ |
1582 |
goto T690;} |
goto T689;} |
1583 |
if(((V244))==Cnil){ |
if(((V244))==Cnil){ |
1584 |
goto T690;} |
goto T689;} |
1585 |
base[0]= (V244); |
base[0]= (V244); |
1586 |
base[1]= VV[3]; |
base[1]= VV[3]; |
1587 |
base[2]= VV[83]; |
base[2]= VV[83]; |
1590 |
(void) (*Lnk111)(); |
(void) (*Lnk111)(); |
1591 |
vs_top=sup; |
vs_top=sup; |
1592 |
if((V246)!=Cnil){ |
if((V246)!=Cnil){ |
1593 |
goto T714;} |
goto T713;} |
1594 |
base[0]= (V244); |
base[0]= (V244); |
1595 |
base[1]= |
base[1]= |
1596 |
make_cclosure_new(LC20,Cnil,Vcs[0],Cdata); |
make_cclosure_new(LC20,Cnil,Vcs[0],Cdata); |
1597 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1598 |
siLfset(); |
siLfset(); |
1599 |
vs_top=sup; |
vs_top=sup; |
1600 |
goto T714; |
goto T713; |
1601 |
T714:; |
T713:; |
1602 |
(void)(sputprop((V244),VV[84],VV[85])); |
(void)(sputprop((V244),VV[84],VV[85])); |
1603 |
(void)(sputprop((V244),VV[86],(Vcs[0]->c.c_car)));} |
(void)(sputprop((V244),VV[86],(Vcs[0]->c.c_car)));} |
1604 |
goto T690; |
goto T689; |
1605 |
T690:; |
T689:; |
1606 |
{object V265 = Cnil; |
{object V265 = Cnil; |
1607 |
VMR10(V265)}} |
VMR10(V265)}} |
1608 |
va_end(ap); |
va_end(ap); |
1659 |
V283= Cnil; |
V283= Cnil; |
1660 |
V284= Cnil; |
V284= Cnil; |
1661 |
if(!(type_of(base[2])==t_cons)){ |
if(!(type_of(base[2])==t_cons)){ |
1662 |
goto T718;} |
goto T717;} |
1663 |
V268= cdr(base[2]); |
V268= cdr(base[2]); |
1664 |
base[2]= car(base[2]); |
base[2]= car(base[2]); |
1665 |
goto T718; |
goto T717; |
1666 |
T718:; |
T717:; |
1667 |
base[4]= coerce_to_string(base[2]); |
base[4]= coerce_to_string(base[2]); |
1668 |
base[5]= VV[87]; |
base[5]= VV[87]; |
1669 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1706 |
V285= (V268); |
V285= (V268); |
1707 |
V286= Cnil; |
V286= Cnil; |
1708 |
V287= Cnil; |
V287= Cnil; |
1709 |
|
goto T744; |
1710 |
|
T744:; |
1711 |
|
if(!(endp((V285)))){ |
1712 |
|
goto T745;} |
1713 |
|
goto T742; |
1714 |
goto T745; |
goto T745; |
1715 |
T745:; |
T745:; |
|
if(!(endp((V285)))){ |
|
|
goto T746;} |
|
|
goto T743; |
|
|
goto T746; |
|
|
T746:; |
|
1716 |
if(!(type_of(car((V285)))==t_cons)){ |
if(!(type_of(car((V285)))==t_cons)){ |
1717 |
goto T752;} |
goto T751;} |
1718 |
if(endp(cdar((V285)))){ |
if(endp(cdar((V285)))){ |
1719 |
goto T752;} |
goto T751;} |
1720 |
V286= caar((V285)); |
V286= caar((V285)); |
1721 |
V287= cadar((V285)); |
V287= cadar((V285)); |
1722 |
{object V288= (V286); |
{object V288= (V286); |
1723 |
if((V288!= VV[80]))goto T760; |
if((V288!= VV[80]))goto T759; |
1724 |
if(((V287))!=Cnil){ |
if(((V287))!=Cnil){ |
1725 |
goto T762;} |
goto T761;} |
1726 |
V269= VV[91]; |
V269= VV[91]; |
1727 |
goto T750; |
goto T749; |
1728 |
goto T762; |
goto T761; |
1729 |
T762:; |
T761:; |
1730 |
V269= (V287); |
V269= (V287); |
1731 |
goto T750; |
goto T749; |
1732 |
goto T760; |
goto T759; |
1733 |
T760:; |
T759:; |
1734 |
if((V288!= VV[137]))goto T766; |
if((V288!= VV[137]))goto T765; |
1735 |
if(((V287))!=Cnil){ |
if(((V287))!=Cnil){ |
1736 |
goto T768;} |
goto T767;} |
1737 |
V272= Ct; |
V272= Ct; |
1738 |
goto T750; |
goto T749; |
1739 |
goto T768; |
goto T767; |
1740 |
T768:; |
T767:; |
1741 |
if(!(endp(cddar((V285))))){ |
if(!(endp(cddar((V285))))){ |
1742 |
goto T772;} |
goto T771;} |
1743 |
V270= make_cons((V287),(V270)); |
V270= make_cons((V287),(V270)); |
1744 |
goto T750; |
goto T749; |
1745 |
goto T772; |
goto T771; |
1746 |
T772:; |
T771:; |
1747 |
V270= make_cons(cdar((V285)),(V270)); |
V270= make_cons(cdar((V285)),(V270)); |
1748 |
goto T750; |
goto T749; |
1749 |
goto T766; |
goto T765; |
1750 |
T766:; |
T765:; |
1751 |
if((V288!= VV[138]))goto T776; |
if((V288!= VV[138]))goto T775; |
1752 |
V273= (V287); |
V273= (V287); |
1753 |
goto T750; |
goto T749; |
1754 |
goto T776; |
goto T775; |
1755 |
T776:; |
T775:; |
1756 |
if((V288!= VV[54]))goto T778; |
if((V288!= VV[54]))goto T777; |
1757 |
V284= (V287); |
V284= (V287); |
1758 |
goto T750; |
goto T749; |
1759 |
goto T778; |
goto T777; |
1760 |
T778:; |
T777:; |
1761 |
if((V288!= VV[139]))goto T780; |
if((V288!= VV[139]))goto T779; |
1762 |
V274= (V287); |
V274= (V287); |
1763 |
V275= Ct; |
V275= Ct; |
1764 |
goto T750; |
goto T749; |
1765 |
goto T780; |
goto T779; |
1766 |
T780:; |
T779:; |
1767 |
if((V288!= VV[140]))goto T784; |
if((V288!= VV[140]))goto T783; |
1768 |
V276= cdar((V285)); |
V276= cdar((V285)); |
1769 |
if((get((V287),VV[55],Cnil))!=Cnil){ |
if((get((V287),VV[55],Cnil))!=Cnil){ |
1770 |
goto T750;} |
goto T749;} |
1771 |
base[4]= VV[92]; |
base[4]= VV[92]; |
1772 |
base[5]= (V287); |
base[5]= (V287); |
1773 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1774 |
Lerror(); |
Lerror(); |
1775 |
vs_top=sup; |
vs_top=sup; |
1776 |
goto T750; |
goto T749; |
1777 |
goto T784; |
goto T783; |
1778 |
T784:; |
T783:; |
1779 |
if((V288!= VV[73]))goto T791; |
if((V288!= VV[73]))goto T790; |
1780 |
if(type_of((V287))==t_cons){ |
if(type_of((V287))==t_cons){ |
1781 |
goto T793;} |
goto T792;} |
1782 |
goto T792; |
goto T791; |
|
goto T793; |
|
|
T793:; |
|
|
if((car((V287)))==(VV[93])){ |
|
|
goto T795;} |
|
|
goto T792; |
|
|
goto T795; |
|
|
T795:; |
|
|
V287= cadr((V287)); |
|
1783 |
goto T792; |
goto T792; |
1784 |
T792:; |
T792:; |
1785 |
V277= (V287); |
if((car((V287)))==(VV[93])){ |
1786 |
goto T750; |
goto T794;} |
1787 |
|
goto T791; |
1788 |
|
goto T794; |
1789 |
|
T794:; |
1790 |
|
V287= cadr((V287)); |
1791 |
goto T791; |
goto T791; |
1792 |
T791:; |
T791:; |
1793 |
if((V288!= VV[77]))goto T799; |
V277= (V287); |
1794 |
|
goto T749; |
1795 |
|
goto T790; |
1796 |
|
T790:; |
1797 |
|
if((V288!= VV[77]))goto T798; |
1798 |
V278= (V287); |
V278= (V287); |
1799 |
goto T750; |
goto T749; |
1800 |
goto T799; |
goto T798; |
1801 |
T799:; |
T798:; |
1802 |
if((V288!= VV[141]))goto T801; |
if((V288!= VV[141]))goto T800; |
1803 |
V280= (V287); |
V280= (V287); |
1804 |
goto T750; |
goto T749; |
1805 |
goto T801; |
goto T800; |
1806 |
T801:; |
T800:; |
1807 |
base[4]= VV[94]; |
base[4]= VV[94]; |
1808 |
base[5]= (V286); |
base[5]= (V286); |
1809 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1810 |
Lerror(); |
Lerror(); |
1811 |
vs_top=sup; |
vs_top=sup; |
1812 |
goto T750;} |
goto T749;} |
1813 |
goto T752; |
goto T751; |
1814 |
T752:; |
T751:; |
1815 |
if(!(type_of(car((V285)))==t_cons)){ |
if(!(type_of(car((V285)))==t_cons)){ |
1816 |
goto T807;} |
goto T806;} |
1817 |
V286= caar((V285)); |
V286= caar((V285)); |
1818 |
goto T805; |
goto T804; |
1819 |
goto T807; |
goto T806; |
1820 |
T807:; |
T806:; |
1821 |
V286= car((V285)); |
V286= car((V285)); |
1822 |
goto T805; |
goto T804; |
1823 |
T805:; |
T804:; |
1824 |
{object V289= (V286); |
{object V289= (V286); |
1825 |
if((V289!= VV[137]))goto T811; |
if((V289!= VV[137]))goto T810; |
1826 |
V270= make_cons((V271),(V270)); |
V270= make_cons((V271),(V270)); |
1827 |
goto T750; |
goto T749; |
1828 |
goto T811; |
goto T810; |
1829 |
T811:; |
T810:; |
1830 |
if((V289!= VV[80]) |
if((V289!= VV[80]) |
1831 |
&& (V289!= VV[138]) |
&& (V289!= VV[138]) |
1832 |
&& (V289!= VV[139]) |
&& (V289!= VV[139]) |
1833 |
&& (V289!= VV[73]))goto T813; |
&& (V289!= VV[73]))goto T812; |
1834 |
goto T750; |
goto T749; |
1835 |
|
goto T812; |
1836 |
|
T812:; |
1837 |
|
if((V289!= VV[78]))goto T813; |
1838 |
|
V279= Ct; |
1839 |
|
goto T749; |
1840 |
goto T813; |
goto T813; |
1841 |
T813:; |
T813:; |
|
if((V289!= VV[78]))goto T814; |
|
|
V279= Ct; |
|
|
goto T750; |
|
|
goto T814; |
|
|
T814:; |
|
1842 |
base[4]= VV[95]; |
base[4]= VV[95]; |
1843 |
base[5]= (V286); |
base[5]= (V286); |
1844 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1845 |
Lerror(); |
Lerror(); |
1846 |
vs_top=sup;} |
vs_top=sup;} |
1847 |
goto T750; |
goto T749; |
1848 |
T750:; |
T749:; |
1849 |
V285= cdr((V285)); |
V285= cdr((V285)); |
1850 |
goto T745;} |
goto T744;} |
1851 |
goto T743; |
goto T742; |
1852 |
T743:; |
T742:; |
1853 |
base[4]= coerce_to_string((V269)); |
base[4]= coerce_to_string((V269)); |
1854 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1855 |
Lintern(); |
Lintern(); |
1856 |
vs_top=sup; |
vs_top=sup; |
1857 |
V269= vs_base[0]; |
V269= vs_base[0]; |
1858 |
if((V276)==Cnil){ |
if((V276)==Cnil){ |
1859 |
goto T824;} |
goto T823;} |
1860 |
if(((V277))==Cnil){ |
if(((V277))==Cnil){ |
1861 |
goto T825;} |
goto T824;} |
1862 |
goto T824; |
goto T823; |
|
goto T825; |
|
|
T825:; |
|
|
V290= get(car((V276)),VV[55],Cnil); |
|
|
V277= structure_ref(V290,VV[55],6); |
|
1863 |
goto T824; |
goto T824; |
1864 |
T824:; |
T824:; |
1865 |
|
V290= get(car((V276)),VV[55],Cnil); |
1866 |
|
V277= structure_ref(V290,VV[55],6); |
1867 |
|
goto T823; |
1868 |
|
T823:; |
1869 |
if(endp((V267))){ |
if(endp((V267))){ |
1870 |
goto T829;} |
goto T828;} |
1871 |
if(!(type_of(car((V267)))==t_string)){ |
if(!(type_of(car((V267)))==t_string)){ |
1872 |
goto T829;} |
goto T828;} |
1873 |
V283= car((V267)); |
V283= car((V267)); |
1874 |
V267= cdr((V267)); |
V267= cdr((V267)); |
1875 |
goto T829; |
goto T828; |
1876 |
T829:; |
T828:; |
1877 |
if(((V276))==Cnil){ |
if(((V276))==Cnil){ |
1878 |
goto T837;} |
goto T836;} |
1879 |
V291= get(car((V276)),VV[55],Cnil); |
V291= get(car((V276)),VV[55],Cnil); |
1880 |
V292= structure_ref(V291,VV[55],16); |
V292= structure_ref(V291,VV[55],16); |
1881 |
if(equal((V278),/* INLINE-ARGS */V292)){ |
if(equal((V278),/* INLINE-ARGS */V292)){ |
1882 |
goto T837;} |
goto T836;} |
1883 |
base[4]= VV[96]; |
base[4]= VV[96]; |
1884 |
base[5]= car((V276)); |
base[5]= car((V276)); |
1885 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1886 |
Lerror(); |
Lerror(); |
1887 |
vs_top=sup; |
vs_top=sup; |
1888 |
goto T837; |
goto T836; |
1889 |
T837:; |
T836:; |
1890 |
if(((V276))!=Cnil){ |
if(((V276))!=Cnil){ |
1891 |
goto T847;} |
goto T846;} |
1892 |
V281= small_fixnum(0); |
V281= small_fixnum(0); |
1893 |
goto T845; |
goto T844; |
1894 |
goto T847; |
goto T846; |
1895 |
T847:; |
T846:; |
1896 |
V293= get(car((V276)),VV[55],Cnil); |
V293= get(car((V276)),VV[55],Cnil); |
1897 |
V281= structure_ref(V293,VV[55],14); |
V281= structure_ref(V293,VV[55],14); |
1898 |
goto T845; |
goto T844; |
1899 |
T845:; |
T844:; |
1900 |
if(((V278))==Cnil){ |
if(((V278))==Cnil){ |
1901 |
goto T852;} |
goto T851;} |
1902 |
if(((V280))==Cnil){ |
if(((V280))==Cnil){ |
1903 |
goto T852;} |
goto T851;} |
1904 |
V281= number_plus((V281),(V280)); |
V281= number_plus((V281),(V280)); |
1905 |
goto T852; |
goto T851; |
1906 |
T852:; |
T851:; |
1907 |
if(((V278))==Cnil){ |
if(((V278))==Cnil){ |
1908 |
goto T858;} |
goto T857;} |
1909 |
if(((V279))==Cnil){ |
if(((V279))==Cnil){ |
1910 |
goto T858;} |
goto T857;} |
1911 |
V282= (V281); |
V282= (V281); |
1912 |
V281= one_plus((V281)); |
V281= one_plus((V281)); |
1913 |
goto T858; |
goto T857; |
1914 |
T858:; |
T857:; |
1915 |
{register object V294; |
{register object V294; |
1916 |
register object V295; |
register object V295; |
1917 |
V294= (V267); |
V294= (V267); |
1918 |
V295= Cnil; |
V295= Cnil; |
1919 |
goto T868; |
goto T867; |
1920 |
T868:; |
T867:; |
1921 |
if(!(endp((V294)))){ |
if(!(endp((V294)))){ |
1922 |
goto T869;} |
goto T868;} |
1923 |
V267= nreverse((V295)); |
V267= nreverse((V295)); |
1924 |
goto T866; |
goto T865; |
1925 |
goto T869; |
goto T868; |
1926 |
T869:; |
T868:; |
1927 |
V296= (*(LnkLI142))(car((V294)),(V281)); |
V296= (*(LnkLI142))(car((V294)),(V281)); |
1928 |
V295= make_cons(/* INLINE-ARGS */V296,(V295)); |
V295= make_cons(/* INLINE-ARGS */V296,(V295)); |
1929 |
V281= one_plus((V281)); |
V281= one_plus((V281)); |
1930 |
V294= cdr((V294)); |
V294= cdr((V294)); |
1931 |
goto T868;} |
goto T867;} |
1932 |
goto T866; |
goto T865; |
1933 |
T866:; |
T865:; |
1934 |
if(((V278))==Cnil){ |
if(((V278))==Cnil){ |
1935 |
goto T881;} |
goto T880;} |
1936 |
if(((V279))==Cnil){ |
if(((V279))==Cnil){ |
1937 |
goto T881;} |
goto T880;} |
1938 |
V297= list(2,Cnil,base[2]); |
V297= list(2,Cnil,base[2]); |
1939 |
V267= make_cons(/* INLINE-ARGS */V297,(V267)); |
V267= make_cons(/* INLINE-ARGS */V297,(V267)); |
1940 |
goto T881; |
goto T880; |
1941 |
T881:; |
T880:; |
1942 |
if(((V278))==Cnil){ |
if(((V278))==Cnil){ |
1943 |
goto T887;} |
goto T886;} |
1944 |
if(((V280))==Cnil){ |
if(((V280))==Cnil){ |
1945 |
goto T887;} |
goto T886;} |
1946 |
base[4]= (V280); |
base[4]= (V280); |
1947 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1948 |
Lmake_list(); |
Lmake_list(); |
1949 |
vs_top=sup; |
vs_top=sup; |
1950 |
V298= vs_base[0]; |
V298= vs_base[0]; |
1951 |
V267= append(V298,(V267)); |
V267= append(V298,(V267)); |
1952 |
goto T887; |
goto T886; |
1953 |
T887:; |
T886:; |
1954 |
{object V299; |
{object V299; |
1955 |
V299= (((V276))==Cnil?Ct:Cnil); |
V299= (((V276))==Cnil?Ct:Cnil); |
1956 |
if(((V299))==Cnil){ |
if(((V299))==Cnil){ |
1957 |
goto T898;} |
goto T897;} |
1958 |
goto T895; |
goto T894; |
1959 |
goto T898; |
goto T897; |
1960 |
T898:; |
T897:; |
1961 |
if(!(endp(cdr((V276))))){ |
if(!(endp(cdr((V276))))){ |
1962 |
goto T901;} |
goto T900;} |
1963 |
V300= get(car((V276)),VV[55],Cnil); |
V300= get(car((V276)),VV[55],Cnil); |
1964 |
V301= structure_ref(V300,VV[55],7); |
V301= structure_ref(V300,VV[55],7); |
1965 |
V267= append(/* INLINE-ARGS */V301,(V267)); |
V267= append(/* INLINE-ARGS */V301,(V267)); |
1966 |
goto T895; |
goto T894; |
1967 |
goto T901; |
goto T900; |
1968 |
T901:; |
T900:; |
1969 |
{object V303; |
{object V303; |
1970 |
object V304= cdr((V276)); |
object V304= cdr((V276)); |
1971 |
if(endp(V304)){ |
if(endp(V304)){ |
1972 |
V302= Cnil; |
V302= Cnil; |
1973 |
goto T906;} |
goto T905;} |
1974 |
base[4]=V303=MMcons(Cnil,Cnil); |
base[4]=V303=MMcons(Cnil,Cnil); |
1975 |
goto T907; |
goto T906; |
1976 |
T907:; |
T906:; |
1977 |
(V303->c.c_car)= (*(LnkLI142))((V304->c.c_car),small_fixnum(0)); |
(V303->c.c_car)= (*(LnkLI142))((V304->c.c_car),small_fixnum(0)); |
1978 |
if(endp(V304=MMcdr(V304))){ |
if(endp(V304=MMcdr(V304))){ |
1979 |
V302= base[4]; |
V302= base[4]; |
1980 |
goto T906;} |
goto T905;} |
1981 |
V303=MMcdr(V303)=MMcons(Cnil,Cnil); |
V303=MMcdr(V303)=MMcons(Cnil,Cnil); |
1982 |
goto T907;} |
goto T906;} |
1983 |
goto T906; |
goto T905; |
1984 |
T906:; |
T905:; |
1985 |
V306= get(car((V276)),VV[55],Cnil); |
V306= get(car((V276)),VV[55],Cnil); |
1986 |
V307= structure_ref(V306,VV[55],7); |
V307= structure_ref(V306,VV[55],7); |
1987 |
V308= (*(LnkLI119))(V302,/* INLINE-ARGS */V307); |
V308= (*(LnkLI119))(V302,/* INLINE-ARGS */V307); |
1988 |
V267= append(/* INLINE-ARGS */V308,(V267));} |
V267= append(/* INLINE-ARGS */V308,(V267));} |
1989 |
goto T895; |
goto T894; |
1990 |
T895:; |
T894:; |
1991 |
if(((V272))==Cnil){ |
if(((V272))==Cnil){ |
1992 |
goto T912;} |
goto T911;} |
1993 |
if(((V270))==Cnil){ |
if(((V270))==Cnil){ |
1994 |
goto T910;} |
goto T909;} |
1995 |
base[4]= VV[97]; |
base[4]= VV[97]; |
1996 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1997 |
Lerror(); |
Lerror(); |
1998 |
vs_top=sup; |
vs_top=sup; |
1999 |
goto T910; |
goto T909; |
2000 |
goto T912; |
goto T911; |
2001 |
T912:; |
T911:; |
2002 |
if(((V270))!=Cnil){ |
if(((V270))!=Cnil){ |
2003 |
goto T910;} |
goto T909;} |
2004 |
V270= make_cons((V271),Cnil); |
V270= make_cons((V271),Cnil); |
2005 |
goto T910; |
goto T909; |
2006 |
T910:;{object V309; |
T909:;{object V309; |
2007 |
{object V312; |
{object V312; |
2008 |
object V313= (V270); |
object V313= (V270); |
2009 |
if(endp(V313)){ |
if(endp(V313)){ |
2010 |
V311= Cnil; |
V311= Cnil; |
2011 |
goto T923;} |
goto T922;} |
2012 |
base[4]=V312=MMcons(Cnil,Cnil); |
base[4]=V312=MMcons(Cnil,Cnil); |
2013 |
goto T924; |
goto T923; |
2014 |
T924:; |
T923:; |
2015 |
base[5]= (V313->c.c_car); |
base[5]= (V313->c.c_car); |
2016 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2017 |
Lsymbolp(); |
Lsymbolp(); |
2019 |
(V312->c.c_car)= vs_base[0]; |
(V312->c.c_car)= vs_base[0]; |
2020 |
if(endp(V313=MMcdr(V313))){ |
if(endp(V313=MMcdr(V313))){ |
2021 |
V311= base[4]; |
V311= base[4]; |
2022 |
goto T923;} |
goto T922;} |
2023 |
V312=MMcdr(V312)=MMcons(Cnil,Cnil); |
V312=MMcdr(V312)=MMcons(Cnil,Cnil); |
2024 |
goto T924;} |
goto T923;} |
2025 |
goto T923; |
goto T922; |
2026 |
T923:; |
T922:; |
2027 |
{register object x= Ct,V310= V311; |
{register object x= Ct,V310= V311; |
2028 |
while(!endp(V310)) |
while(!endp(V310)) |
2029 |
if(eql(x,V310->c.c_car)){ |
if(eql(x,V310->c.c_car)){ |
2030 |
V309= V310; |
V309= V310; |
2031 |
goto T922; |
goto T921; |
2032 |
}else V310=V310->c.c_cdr; |
}else V310=V310->c.c_cdr; |
2033 |
V309= Cnil;} |
V309= Cnil;} |
|
goto T922; |
|
|
T922:; |
|
|
if(V309==Cnil)goto T921; |
|
|
goto T920; |
|
2034 |
goto T921; |
goto T921; |
2035 |
T921:;} |
T921:; |
2036 |
|
if(V309==Cnil)goto T920; |
2037 |
|
goto T919; |
2038 |
|
goto T920; |
2039 |
|
T920:;} |
2040 |
base[5]= VV[98]; |
base[5]= VV[98]; |
2041 |
base[6]= (V271); |
base[6]= (V271); |
2042 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
2048 |
vs_top=sup; |
vs_top=sup; |
2049 |
V314= vs_base[0]; |
V314= vs_base[0]; |
2050 |
V270= make_cons(V314,(V270)); |
V270= make_cons(V314,(V270)); |
2051 |
goto T920; |
goto T919; |
2052 |
T920:; |
T919:; |
2053 |
if(((V278))==Cnil){ |
if(((V278))==Cnil){ |
2054 |
goto T932;} |
goto T931;} |
2055 |
if(((V279))!=Cnil){ |
if(((V279))!=Cnil){ |
2056 |
goto T932;} |
goto T931;} |
2057 |
if(((V275))==Cnil){ |
if(((V275))==Cnil){ |
2058 |
goto T937;} |
goto T936;} |
2059 |
base[4]= VV[99]; |
base[4]= VV[99]; |
2060 |
base[5]= (V274); |
base[5]= (V274); |
2061 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
2062 |
Lerror(); |
Lerror(); |
2063 |
vs_top=sup; |
vs_top=sup; |
2064 |
goto T937; |
goto T936; |
2065 |
T937:; |
T936:; |
2066 |
V274= Cnil; |
V274= Cnil; |
2067 |
goto T932; |
goto T931; |
2068 |
T932:; |
T931:; |
2069 |
if(((V276))==Cnil){ |
if(((V276))==Cnil){ |
2070 |
goto T943;} |
goto T942;} |
2071 |
V276= car((V276)); |
V276= car((V276)); |
2072 |
goto T943; |
goto T942; |
2073 |
T943:; |
T942:; |
2074 |
if(((V277))==Cnil){ |
if(((V277))==Cnil){ |
2075 |
goto T947;} |
goto T946;} |
2076 |
if(((V278))==Cnil){ |
if(((V278))==Cnil){ |
2077 |
goto T947;} |
goto T946;} |
2078 |
base[4]= VV[100]; |
base[4]= VV[100]; |
2079 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
2080 |
Lerror(); |
Lerror(); |
2081 |
vs_top=sup; |
vs_top=sup; |
2082 |
goto T947; |
goto T946; |
2083 |
T947:; |
T946:; |
2084 |
base[4]= VV[102]; |
base[4]= VV[102]; |
2085 |
base[5]= list(2,VV[11],base[2]); |
base[5]= list(2,VV[11],base[2]); |
2086 |
base[6]= list(2,VV[11],(V269)); |
base[6]= list(2,VV[11],(V269)); |
2103 |
object V318= (V270); |
object V318= (V270); |
2104 |
if(endp(V318)){ |
if(endp(V318)){ |
2105 |
base[4]= Cnil; |
base[4]= Cnil; |
2106 |
goto T969;} |
goto T968;} |
2107 |
base[5]=V317=MMcons(Cnil,Cnil); |
base[5]=V317=MMcons(Cnil,Cnil); |
2108 |
goto T970; |
goto T969; |
2109 |
T970:; |
T969:; |
2110 |
(V317->c.c_car)= (*(LnkLI143))(base[2],(V318->c.c_car),(V278),(V279),(V267)); |
(V317->c.c_car)= (*(LnkLI143))(base[2],(V318->c.c_car),(V278),(V279),(V267)); |
2111 |
if(endp(V318=MMcdr(V318))){ |
if(endp(V318=MMcdr(V318))){ |
2112 |
base[4]= base[5]; |
base[4]= base[5]; |
2113 |
goto T969;} |
goto T968;} |
2114 |
V317=MMcdr(V317)=MMcons(Cnil,Cnil); |
V317=MMcdr(V317)=MMcons(Cnil,Cnil); |
2115 |
goto T970;} |
goto T969;} |
2116 |
goto T969; |
goto T968; |
2117 |
T969:; |
T968:; |
2118 |
if(((V278))==Cnil){ |
if(((V278))==Cnil){ |
2119 |
goto T974;} |
goto T973;} |
2120 |
if(((V274))==Cnil){ |
if(((V274))==Cnil){ |
2121 |
goto T974;} |
goto T973;} |
2122 |
V320= (*(LnkLI144))(base[2],(V274),(V278),(V279),(V282)); |
V320= (*(LnkLI144))(base[2],(V274),(V278),(V279),(V282)); |
2123 |
base[5]= make_cons(/* INLINE-ARGS */V320,Cnil); |
base[5]= make_cons(/* INLINE-ARGS */V320,Cnil); |
2124 |
goto T972; |
goto T971; |
2125 |
goto T974; |
goto T973; |
2126 |
T974:; |
T973:; |
2127 |
base[5]= Cnil; |
base[5]= Cnil; |
2128 |
goto T972; |
goto T971; |
2129 |
T972:; |
T971:; |
2130 |
V321= list(2,VV[11],base[2]); |
V321= list(2,VV[11],base[2]); |
2131 |
base[6]= make_cons(/* INLINE-ARGS */V321,Cnil); |
base[6]= make_cons(/* INLINE-ARGS */V321,Cnil); |
2132 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
2222 |
goto TTL; |
goto TTL; |
2223 |
TTL:; |
TTL:; |
2224 |
if((structure_ref((V344),VV[55],3))==Cnil){ |
if((structure_ref((V344),VV[55],3))==Cnil){ |
2225 |
goto T998;} |
goto T997;} |
2226 |
V347= structure_ref((V344),VV[55],3); |
V347= structure_ref((V344),VV[55],3); |
2227 |
(void)(structure_set((V345),VV[55],3,/* INLINE-ARGS */V347)); |
(void)(structure_set((V345),VV[55],3,/* INLINE-ARGS */V347)); |
2228 |
goto T998; |
goto T997; |
2229 |
T998:; |
T997:; |
2230 |
if((structure_ref((V344),VV[55],11))==Cnil){ |
if((structure_ref((V344),VV[55],11))==Cnil){ |
2231 |
goto T1001;} |
goto T1000;} |
2232 |
(void)(structure_set((V345),VV[55],11,Ct)); |
(void)(structure_set((V345),VV[55],11,Ct)); |
2233 |
goto T1001; |
goto T1000; |
2234 |
T1001:; |
T1000:; |
2235 |
if(equalp((V345),(V344))){ |
if(equalp((V345),(V344))){ |
2236 |
goto T1005;} |
goto T1004;} |
2237 |
(void)((VFUN_NARGS=2,(*(LnkLI133))(VV[103],(V346)))); |
(void)((VFUN_NARGS=2,(*(LnkLI133))(VV[103],(V346)))); |
2238 |
{object V348 = sputprop((V346),VV[55],(V345)); |
{object V348 = sputprop((V346),VV[55],(V345)); |
2239 |
VMR13(V348)} |
VMR13(V348)} |
2240 |
goto T1005; |
goto T1004; |
2241 |
T1005:; |
T1004:; |
2242 |
{object V349 = Cnil; |
{object V349 = Cnil; |
2243 |
VMR13(V349)} |
VMR13(V349)} |
2244 |
return Cnil; |
return Cnil; |
2253 |
TTL:; |
TTL:; |
2254 |
{object V352; |
{object V352; |
2255 |
if(type_of((V351))==t_symbol){ |
if(type_of((V351))==t_symbol){ |
2256 |
goto T1009;} |
goto T1008;} |
2257 |
V352= Cnil; |
V352= Cnil; |
2258 |
goto T1008; |
goto T1007; |
|
goto T1009; |
|
|
T1009:; |
|
|
V352= get((V351),VV[55],Cnil); |
|
2259 |
goto T1008; |
goto T1008; |
2260 |
T1008:; |
T1008:; |
2261 |
|
V352= get((V351),VV[55],Cnil); |
2262 |
|
goto T1007; |
2263 |
|
T1007:; |
2264 |
if(((V352))==Cnil){ |
if(((V352))==Cnil){ |
2265 |
goto T1012;} |
goto T1011;} |
2266 |
{object V353 = structure_set((V352),VV[55],11,Ct); |
{object V353 = structure_set((V352),VV[55],11,Ct); |
2267 |
VMR14(V353)} |
VMR14(V353)} |
2268 |
goto T1012; |
goto T1011; |
2269 |
T1012:; |
T1011:; |
2270 |
{object V354 = Cnil; |
{object V354 = Cnil; |
2271 |
VMR14(V354)}} |
VMR14(V354)}} |
2272 |
return Cnil; |
return Cnil; |
2288 |
goto TTL; |
goto TTL; |
2289 |
TTL:; |
TTL:; |
2290 |
if(((V357))==Cnil){ |
if(((V357))==Cnil){ |
2291 |
goto T1014;} |
goto T1013;} |
2292 |
if((symbol_value(VV[104]))!=Cnil){ |
if((symbol_value(VV[104]))!=Cnil){ |
2293 |
goto T1014;} |
goto T1013;} |
2294 |
base[3]= VV[105]; |
base[3]= VV[105]; |
2295 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2296 |
Lerror(); |
Lerror(); |
2297 |
vs_top=sup; |
vs_top=sup; |
2298 |
goto T1014; |
goto T1013; |
2299 |
T1014:; |
T1013:; |
2300 |
{register object V358; |
{register object V358; |
2301 |
register object V359; |
register object V359; |
2302 |
{object V360; |
{object V360; |
2309 |
vs_top=sup; |
vs_top=sup; |
2310 |
V360= vs_base[0]; |
V360= vs_base[0]; |
2311 |
if((symbol_value(VV[104]))==Cnil){ |
if((symbol_value(VV[104]))==Cnil){ |
2312 |
goto T1026;} |
goto T1025;} |
2313 |
base[5]= Cnil; |
base[5]= Cnil; |
2314 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2315 |
return; |
return; |
2316 |
goto T1026; |
goto T1025; |
2317 |
T1026:; |
T1025:; |
2318 |
V358= (V360);}{object V361; |
V358= (V360);}{object V361; |
2319 |
V361= get(car((V358)),VV[55],Cnil); |
V361= get(car((V358)),VV[55],Cnil); |
2320 |
if(V361==Cnil)goto T1030; |
if(V361==Cnil)goto T1029; |
2321 |
V359= V361; |
V359= V361; |
2322 |
goto T1029; |
goto T1028; |
2323 |
goto T1030; |
goto T1029; |
2324 |
T1030:;} |
T1029:;} |
2325 |
base[5]= VV[106]; |
base[5]= VV[106]; |
2326 |
base[6]= car((V358)); |
base[6]= car((V358)); |
2327 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
2328 |
Lerror(); |
Lerror(); |
2329 |
vs_top=sup; |
vs_top=sup; |
2330 |
V359= vs_base[0]; |
V359= vs_base[0]; |
2331 |
goto T1029; |
goto T1028; |
2332 |
T1029:; |
T1028:; |
2333 |
{register object V362; |
{register object V362; |
2334 |
V362= cdr((V358)); |
V362= cdr((V358)); |
2335 |
goto T1036; |
goto T1035; |
2336 |
T1036:; |
T1035:; |
2337 |
if(!(endp((V362)))){ |
if(!(endp((V362)))){ |
2338 |
goto T1037;} |
goto T1036;} |
2339 |
{register object V363; |
{register object V363; |
2340 |
V363= structure_ref((V359),VV[55],13); |
V363= structure_ref((V359),VV[55],13); |
2341 |
goto T1042; |
goto T1041; |
2342 |
T1042:; |
T1041:; |
2343 |
if(!(endp((V363)))){ |
if(!(endp((V363)))){ |
2344 |
goto T1043;} |
goto T1042;} |
2345 |
base[5]= VV[107]; |
base[5]= VV[107]; |
2346 |
base[6]= car((V358)); |
base[6]= car((V358)); |
2347 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
2348 |
Lerror(); |
Lerror(); |
2349 |
return; |
return; |
2350 |
goto T1043; |
goto T1042; |
2351 |
T1043:; |
T1042:; |
2352 |
if(!(type_of(car((V363)))==t_symbol)){ |
if(!(type_of(car((V363)))==t_symbol)){ |
2353 |
goto T1049;} |
goto T1048;} |
2354 |
base[5]= car((V363)); |
base[5]= car((V363)); |
2355 |
{object V364; |
{object V364; |
2356 |
V364= cdr((V358)); |
V364= cdr((V358)); |
2360 |
vs_base=base+6;} |
vs_base=base+6;} |
2361 |
super_funcall_no_event(base[5]); |
super_funcall_no_event(base[5]); |
2362 |
return; |
return; |
2363 |
goto T1049; |
goto T1048; |
2364 |
T1049:; |
T1048:; |
2365 |
V363= cdr((V363)); |
V363= cdr((V363)); |
2366 |
goto T1042;} |
goto T1041;} |
2367 |
goto T1037; |
goto T1036; |
2368 |
T1037:; |
T1036:; |
2369 |
base[5]= coerce_to_string(car((V362))); |
base[5]= coerce_to_string(car((V362))); |
2370 |
base[6]= VV[108]; |
base[6]= VV[108]; |
2371 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
2375 |
if(type_of((V362))!=t_cons)FEwrong_type_argument(Scons,(V362)); |
if(type_of((V362))!=t_cons)FEwrong_type_argument(Scons,(V362)); |
2376 |
((V362))->c.c_car = V365; |
((V362))->c.c_car = V365; |
2377 |
V362= cddr((V362)); |
V362= cddr((V362)); |
2378 |
goto T1036;}} |
goto T1035;}} |
2379 |
} |
} |
2380 |
} |
} |
2381 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
2408 |
V367=(base[0]); |
V367=(base[0]); |
2409 |
vs_top=sup; |
vs_top=sup; |
2410 |
if(!(type_of((V367))==t_cons)){ |
if(!(type_of((V367))==t_cons)){ |
2411 |
goto T1068;} |
goto T1067;} |
2412 |
base[1]= car((V367)); |
base[1]= car((V367)); |
2413 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2414 |
return; |
return; |
2415 |
goto T1068; |
goto T1067; |
2416 |
T1068:; |
T1067:; |
2417 |
base[1]= Cnil; |
base[1]= Cnil; |
2418 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2419 |
return; |
return; |
2465 |
V370=(base[0]); |
V370=(base[0]); |
2466 |
vs_top=sup; |
vs_top=sup; |
2467 |
if(!(type_of((V370))==t_structure)){ |
if(!(type_of((V370))==t_structure)){ |
2468 |
goto T1073;} |
goto T1072;} |
2469 |
goto T1072; |
goto T1071; |
2470 |
goto T1073; |
goto T1072; |
2471 |
T1073:; |
T1072:; |
2472 |
base[1]= VV[5]; |
base[1]= VV[5]; |
2473 |
base[2]= (V370); |
base[2]= (V370); |
2474 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2475 |
Lerror(); |
Lerror(); |
2476 |
vs_top=sup; |
vs_top=sup; |
2477 |
goto T1072; |
goto T1071; |
2478 |
T1072:; |
T1071:; |
2479 |
base[1]= (V370); |
base[1]= (V370); |
2480 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
2481 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |