128 |
goto T44; |
goto T44; |
129 |
T44:; |
T44:; |
130 |
V16= car((V17)); |
V16= car((V17)); |
131 |
|
{object V21; |
132 |
V21= symbol_name((V16)); |
V21= symbol_name((V16)); |
133 |
V7= make_cons(/* INLINE-ARGS */V21,(V7)); |
V7= make_cons((V21),(V7));} |
134 |
V17= cdr((V17)); |
V17= cdr((V17)); |
135 |
goto T39; |
goto T39; |
136 |
goto T40; |
goto T40; |
150 |
Lpackagep(); |
Lpackagep(); |
151 |
vs_top=sup; |
vs_top=sup; |
152 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
153 |
goto T59;} |
goto T60;} |
154 |
V22= V2; |
V22= V2; |
155 |
goto T57; |
goto T58; |
156 |
goto T59; |
goto T60; |
157 |
T59:; |
T60:; |
158 |
base[6]= coerce_to_string(V2); |
base[6]= coerce_to_string(V2); |
159 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
160 |
Lfind_package(); |
Lfind_package(); |
161 |
vs_top=sup; |
vs_top=sup; |
162 |
V22= vs_base[0]; |
V22= vs_base[0]; |
163 |
goto T57; |
goto T58; |
164 |
T57:; |
T58:; |
165 |
V23= Cnil; |
V23= Cnil; |
166 |
V24= Cnil; |
V24= Cnil; |
167 |
{long V26; |
{long V26; |
169 |
base[6]= (V22); |
base[6]= (V22); |
170 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
171 |
(void) (*Lnk8)(); |
(void) (*Lnk8)(); |
172 |
if(vs_base>=vs_top){vs_top=sup;goto T65;} |
if(vs_base>=vs_top){vs_top=sup;goto T66;} |
173 |
V26= fix(vs_base[0]); |
V26= fix(vs_base[0]); |
174 |
vs_base++; |
vs_base++; |
175 |
if(vs_base>=vs_top){vs_top=sup;goto T66;} |
if(vs_base>=vs_top){vs_top=sup;goto T67;} |
176 |
V27= fix(vs_base[0]); |
V27= fix(vs_base[0]); |
177 |
vs_top=sup; |
vs_top=sup; |
178 |
goto T67; |
goto T68; |
|
goto T65; |
|
|
T65:; |
|
|
V26= fix(Cnil); |
|
179 |
goto T66; |
goto T66; |
180 |
T66:; |
T66:; |
181 |
V27= fix(Cnil); |
V26= fix(Cnil); |
182 |
goto T67; |
goto T67; |
183 |
T67:; |
T67:; |
184 |
|
V27= fix(Cnil); |
185 |
|
goto T68; |
186 |
|
T68:; |
187 |
{object V28; |
{object V28; |
188 |
register object V29; |
register object V29; |
189 |
V30 = make_fixnum(V27); |
V30 = make_fixnum(V27); |
190 |
V31 = make_fixnum(V26); |
V31 = make_fixnum(V26); |
191 |
V28= number_plus(V30,V31); |
V28= number_plus(V30,V31); |
192 |
V29= small_fixnum(0); |
V29= small_fixnum(0); |
|
goto T71; |
|
|
T71:; |
|
|
if(!(number_compare((V29),(V28))>=0)){ |
|
|
goto T72;} |
|
|
V23= Cnil; |
|
|
goto T56; |
|
193 |
goto T72; |
goto T72; |
194 |
T72:; |
T72:; |
195 |
|
if(!(number_compare((V29),(V28))>=0)){ |
196 |
|
goto T73;} |
197 |
|
V23= Cnil; |
198 |
|
goto T57; |
199 |
|
goto T73; |
200 |
|
T73:; |
201 |
V32 = make_fixnum(V27); |
V32 = make_fixnum(V27); |
202 |
if(!(number_compare((V29),V32)<0)){ |
if(!(number_compare((V29),V32)<0)){ |
203 |
goto T83;} |
goto T84;} |
204 |
base[7]= (V22); |
base[7]= (V22); |
205 |
base[8]= (V29); |
base[8]= (V29); |
206 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
207 |
siLpackage_internal(); |
siLpackage_internal(); |
208 |
vs_top=sup; |
vs_top=sup; |
209 |
V24= vs_base[0]; |
V24= vs_base[0]; |
210 |
goto T81; |
goto T82; |
211 |
goto T83; |
goto T84; |
212 |
T83:; |
T84:; |
213 |
base[7]= (V22); |
base[7]= (V22); |
214 |
V33 = make_fixnum(V27); |
V33 = make_fixnum(V27); |
215 |
base[8]= number_minus((V29),V33); |
base[8]= number_minus((V29),V33); |
217 |
siLpackage_external(); |
siLpackage_external(); |
218 |
vs_top=sup; |
vs_top=sup; |
219 |
V24= vs_base[0]; |
V24= vs_base[0]; |
220 |
goto T81; |
goto T82; |
221 |
T81:; |
T82:; |
222 |
goto T79; |
goto T80; |
223 |
T79:; |
T80:; |
224 |
if(((V24))!=Cnil){ |
if(((V24))!=Cnil){ |
225 |
goto T89;} |
goto T90;} |
226 |
goto T80; |
goto T81; |
227 |
goto T89; |
goto T90; |
228 |
T89:; |
T90:; |
229 |
V23= car((V24)); |
V23= car((V24)); |
230 |
base[7]= (V23); |
base[7]= (V23); |
231 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
233 |
vs_top=sup; |
vs_top=sup; |
234 |
V34= vs_base[0]; |
V34= vs_base[0]; |
235 |
if(((V2))==(V34)){ |
if(((V2))==(V34)){ |
236 |
goto T94;} |
goto T95;} |
237 |
base[7]= (V23); |
base[7]= (V23); |
238 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
239 |
Lsymbol_package(); |
Lsymbol_package(); |
240 |
vs_top=sup; |
vs_top=sup; |
241 |
V35= vs_base[0]; |
V35= vs_base[0]; |
242 |
if(((VFUN_NARGS=2,(*(LnkLI9))(V35,(V5))))!=Cnil){ |
if(((VFUN_NARGS=2,(*(LnkLI9))(V35,(V5))))!=Cnil){ |
243 |
goto T94;} |
goto T95;} |
244 |
V9= make_cons((V23),(V9)); |
V9= make_cons(V23,(V9)); |
245 |
goto T94; |
goto T95; |
246 |
T94:; |
T95:; |
247 |
V24= cdr((V24)); |
V24= cdr((V24)); |
248 |
goto T79; |
goto T80; |
249 |
goto T80; |
goto T81; |
250 |
T80:; |
T81:; |
251 |
goto T77; |
goto T78; |
252 |
goto T77; |
goto T78; |
253 |
T77:; |
T78:; |
254 |
V29= one_plus((V29)); |
V29= one_plus((V29)); |
255 |
goto T71;}}} |
goto T72;}}} |
256 |
goto T56; |
goto T57; |
257 |
T56:; |
T57:; |
258 |
V10= (VFUN_NARGS=2,(*(LnkLI10))((V8),(V9))); |
V10= (VFUN_NARGS=2,(*(LnkLI10))((V8),(V9))); |
259 |
V11= (VFUN_NARGS=2,(*(LnkLI11))((V8),(V10))); |
V11= (VFUN_NARGS=2,(*(LnkLI11))((V8),(V10))); |
260 |
V12= (VFUN_NARGS=2,(*(LnkLI11))((V9),(V10))); |
V12= (VFUN_NARGS=2,(*(LnkLI11))((V9),(V10))); |
261 |
if(((V4))==Cnil){ |
if(((V4))==Cnil){ |
262 |
goto T118;} |
goto T119;} |
263 |
V37= make_cons(VV[1],(V4)); |
V38= make_cons(VV[1],(V4)); |
264 |
base[6]= make_cons(/* INLINE-ARGS */V37,Cnil); |
base[6]= make_cons(/* INLINE-ARGS */V38,Cnil); |
265 |
goto T116; |
goto T117; |
266 |
goto T118; |
goto T119; |
267 |
T118:; |
T119:; |
268 |
base[6]= Cnil; |
base[6]= Cnil; |
269 |
goto T116; |
goto T117; |
270 |
T116:; |
T117:; |
271 |
if(((V6))==Cnil){ |
if(((V6))==Cnil){ |
272 |
goto T122;} |
goto T123;} |
273 |
V38= make_cons(VV[2],(V6)); |
V39= make_cons(VV[2],(V6)); |
274 |
base[7]= make_cons(/* INLINE-ARGS */V38,Cnil); |
base[7]= make_cons(/* INLINE-ARGS */V39,Cnil); |
275 |
goto T120; |
goto T121; |
276 |
goto T122; |
goto T123; |
277 |
T122:; |
T123:; |
278 |
base[7]= Cnil; |
base[7]= Cnil; |
279 |
goto T120; |
goto T121; |
280 |
T120:; |
T121:; |
281 |
if(((V7))==Cnil){ |
if(((V7))==Cnil){ |
282 |
goto T126;} |
goto T127;} |
283 |
V39= make_cons(VV[3],(V7)); |
V40= make_cons(VV[3],(V7)); |
284 |
base[8]= make_cons(/* INLINE-ARGS */V39,Cnil); |
base[8]= make_cons(/* INLINE-ARGS */V40,Cnil); |
285 |
goto T124; |
goto T125; |
286 |
goto T126; |
goto T127; |
287 |
T126:; |
T127:; |
288 |
base[8]= Cnil; |
base[8]= Cnil; |
289 |
goto T124; |
goto T125; |
290 |
T124:; |
T125:; |
291 |
if(((V11))==Cnil){ |
if(((V11))==Cnil){ |
292 |
goto T130;} |
goto T131;} |
293 |
{object V41; |
{object V42; |
294 |
object V42= (V11); |
object V43= (V11); |
295 |
if(endp(V42)){ |
if(endp(V43)){ |
296 |
V40= Cnil; |
V41= Cnil; |
297 |
goto T132;} |
goto T133;} |
298 |
base[10]=V41=MMcons(Cnil,Cnil); |
base[10]=V42=MMcons(Cnil,Cnil); |
299 |
|
goto T134; |
300 |
|
T134:; |
301 |
|
(V42->c.c_car)= symbol_name((V43->c.c_car)); |
302 |
|
V43=MMcdr(V43); |
303 |
|
if(endp(V43)){ |
304 |
|
V41= base[10]; |
305 |
|
goto T133;} |
306 |
|
V42=MMcdr(V42)=MMcons(Cnil,Cnil); |
307 |
|
goto T134;} |
308 |
goto T133; |
goto T133; |
309 |
T133:; |
T133:; |
310 |
(V41->c.c_car)= symbol_name((V42->c.c_car)); |
V44= make_cons(VV[4],V41); |
311 |
V42=MMcdr(V42); |
base[9]= make_cons(/* INLINE-ARGS */V44,Cnil); |
312 |
if(endp(V42)){ |
goto T129; |
313 |
V40= base[10]; |
goto T131; |
314 |
goto T132;} |
T131:; |
|
V41=MMcdr(V41)=MMcons(Cnil,Cnil); |
|
|
goto T133;} |
|
|
goto T132; |
|
|
T132:; |
|
|
V43= make_cons(VV[4],V40); |
|
|
base[9]= make_cons(/* INLINE-ARGS */V43,Cnil); |
|
|
goto T128; |
|
|
goto T130; |
|
|
T130:; |
|
315 |
base[9]= Cnil; |
base[9]= Cnil; |
316 |
goto T128; |
goto T129; |
317 |
T128:; |
T129:; |
318 |
if(((V10))==Cnil){ |
if(((V10))==Cnil){ |
319 |
goto T137;} |
goto T138;} |
320 |
{object V44; |
{object V45; |
321 |
object V45= (V10); |
object V46= (V10); |
322 |
if(endp(V45)){ |
if(endp(V46)){ |
323 |
base[10]= Cnil; |
base[10]= Cnil; |
324 |
goto T135;} |
goto T136;} |
325 |
base[11]=V44=MMcons(Cnil,Cnil); |
base[11]=V45=MMcons(Cnil,Cnil); |
326 |
goto T139; |
goto T140; |
327 |
T139:; |
T140:; |
328 |
base[13]= (V45->c.c_car); |
base[13]= (V46->c.c_car); |
329 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+13)+1; |
330 |
Lsymbol_package(); |
Lsymbol_package(); |
331 |
vs_top=sup; |
vs_top=sup; |
333 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
334 |
Lpackage_name(); |
Lpackage_name(); |
335 |
vs_top=sup; |
vs_top=sup; |
336 |
V47= vs_base[0]; |
V48= vs_base[0]; |
337 |
V48= list(3,VV[5],V47,symbol_name((V45->c.c_car))); |
V49= list(3,VV[5],V48,symbol_name((V46->c.c_car))); |
338 |
(V44->c.c_car)= make_cons(/* INLINE-ARGS */V48,Cnil); |
(V45->c.c_car)= make_cons(/* INLINE-ARGS */V49,Cnil); |
339 |
V45=MMcdr(V45); |
V46=MMcdr(V46); |
340 |
if(endp(V45)){ |
if(endp(V46)){ |
341 |
base[10]= base[11]; |
base[10]= base[11]; |
342 |
goto T135;} |
goto T136;} |
343 |
V44=MMcdr(V44)=MMcons(Cnil,Cnil); |
V45=MMcdr(V45)=MMcons(Cnil,Cnil); |
344 |
goto T139;} |
goto T140;} |
345 |
goto T137; |
goto T138; |
346 |
T137:; |
T138:; |
347 |
base[10]= Cnil; |
base[10]= Cnil; |
348 |
goto T135; |
goto T136; |
349 |
T135:; |
T136:; |
350 |
if(((V12))==Cnil){ |
if(((V12))==Cnil){ |
351 |
goto T146;} |
goto T147;} |
352 |
{object V49; |
{object V50; |
353 |
object V50= (V12); |
object V51= (V12); |
354 |
if(endp(V50)){ |
if(endp(V51)){ |
355 |
base[11]= Cnil; |
base[11]= Cnil; |
356 |
goto T144;} |
goto T145;} |
357 |
base[12]=V49=MMcons(Cnil,Cnil); |
base[12]=V50=MMcons(Cnil,Cnil); |
358 |
goto T148; |
goto T149; |
359 |
T148:; |
T149:; |
360 |
base[14]= (V50->c.c_car); |
base[14]= (V51->c.c_car); |
361 |
vs_top=(vs_base=base+14)+1; |
vs_top=(vs_base=base+14)+1; |
362 |
Lsymbol_package(); |
Lsymbol_package(); |
363 |
vs_top=sup; |
vs_top=sup; |
365 |
vs_top=(vs_base=base+13)+1; |
vs_top=(vs_base=base+13)+1; |
366 |
Lpackage_name(); |
Lpackage_name(); |
367 |
vs_top=sup; |
vs_top=sup; |
368 |
V52= vs_base[0]; |
V53= vs_base[0]; |
369 |
V53= list(3,VV[6],V52,symbol_name((V50->c.c_car))); |
V54= list(3,VV[6],V53,symbol_name((V51->c.c_car))); |
370 |
(V49->c.c_car)= make_cons(/* INLINE-ARGS */V53,Cnil); |
(V50->c.c_car)= make_cons(/* INLINE-ARGS */V54,Cnil); |
371 |
V50=MMcdr(V50); |
V51=MMcdr(V51); |
372 |
if(endp(V50)){ |
if(endp(V51)){ |
373 |
base[11]= base[12]; |
base[11]= base[12]; |
374 |
goto T144;} |
goto T145;} |
375 |
V49=MMcdr(V49)=MMcons(Cnil,Cnil); |
V50=MMcdr(V50)=MMcons(Cnil,Cnil); |
376 |
goto T148;} |
goto T149;} |
377 |
goto T146; |
goto T147; |
378 |
T146:; |
T147:; |
379 |
base[11]= Cnil; |
base[11]= Cnil; |
380 |
goto T144; |
goto T145; |
381 |
T144:; |
T145:; |
382 |
vs_top=(vs_base=base+6)+6; |
vs_top=(vs_base=base+6)+6; |
383 |
Lappend(); |
Lappend(); |
384 |
vs_top=sup; |
vs_top=sup; |
385 |
V36= vs_base[0]; |
V37= vs_base[0]; |
386 |
base[6]= listA(3,VV[0],(V3),V36); |
base[6]= listA(3,VV[0],(V3),V37); |
387 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
388 |
return;}} |
return;}} |
389 |
} |
} |