58 |
V4= Cnil; |
V4= Cnil; |
59 |
{object V6; |
{object V6; |
60 |
object V7; |
object V7; |
61 |
|
V8 = (V2); |
62 |
base[2]= (V2); |
base[2]= (V2); |
63 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
64 |
Lpackage_use_list(); |
Lpackage_use_list(); |
65 |
vs_top=sup; |
vs_top=sup; |
66 |
V8= vs_base[0]; |
V9= vs_base[0]; |
67 |
V6= make_cons((V2),V8); |
V6= make_cons(V8,V9); |
68 |
V7= CMPcar((V6)); |
V7= CMPcar((V6)); |
69 |
goto T27; |
goto T27; |
70 |
T27:; |
T27:; |
74 |
goto T6; |
goto T6; |
75 |
goto T28; |
goto T28; |
76 |
T28:; |
T28:; |
77 |
{long V9; |
{long V10; |
78 |
long V10; |
long V11; |
79 |
base[2]= (V7); |
base[2]= (V7); |
80 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
81 |
(void) (*Lnk9)(); |
(void) (*Lnk9)(); |
82 |
if(vs_base>=vs_top){vs_top=sup;goto T37;} |
if(vs_base>=vs_top){vs_top=sup;goto T37;} |
83 |
V9= fix(vs_base[0]); |
V10= fix(vs_base[0]); |
84 |
vs_base++; |
vs_base++; |
85 |
if(vs_base>=vs_top){vs_top=sup;goto T38;} |
if(vs_base>=vs_top){vs_top=sup;goto T38;} |
86 |
V10= fix(vs_base[0]); |
V11= fix(vs_base[0]); |
87 |
vs_top=sup; |
vs_top=sup; |
88 |
goto T39; |
goto T39; |
89 |
goto T37; |
goto T37; |
90 |
T37:; |
T37:; |
91 |
V9= fix(Cnil); |
V10= fix(Cnil); |
92 |
goto T38; |
goto T38; |
93 |
T38:; |
T38:; |
94 |
V10= fix(Cnil); |
V11= fix(Cnil); |
95 |
goto T39; |
goto T39; |
96 |
T39:; |
T39:; |
97 |
if(((V2))==((V7))){ |
if(((V2))==((V7))){ |
98 |
goto T40;} |
goto T40;} |
99 |
V10= 0; |
V11= 0; |
100 |
goto T40; |
goto T40; |
101 |
T40:; |
T40:; |
102 |
{object V11; |
{object V12; |
103 |
register object V12; |
register object V13; |
104 |
V13 = CMPmake_fixnum(V10); |
V14 = CMPmake_fixnum(V11); |
105 |
V14 = CMPmake_fixnum(V9); |
V15 = CMPmake_fixnum(V10); |
106 |
V11= number_plus(V13,V14); |
V12= number_plus(V14,V15); |
107 |
V12= small_fixnum(0); |
V13= small_fixnum(0); |
108 |
goto T47; |
goto T47; |
109 |
T47:; |
T47:; |
110 |
if(!(number_compare((V12),(V11))>=0)){ |
if(!(number_compare((V13),(V12))>=0)){ |
111 |
goto T48;} |
goto T48;} |
112 |
goto T34; |
goto T34; |
113 |
goto T48; |
goto T48; |
114 |
T48:; |
T48:; |
115 |
V15 = CMPmake_fixnum(V10); |
V16 = CMPmake_fixnum(V11); |
116 |
if(!(number_compare((V12),V15)<0)){ |
if(!(number_compare((V13),V16)<0)){ |
117 |
goto T57;} |
goto T57;} |
118 |
base[3]= (V7); |
base[3]= (V7); |
119 |
base[4]= (V12); |
base[4]= (V13); |
120 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
121 |
siLpackage_internal(); |
siLpackage_internal(); |
122 |
vs_top=sup; |
vs_top=sup; |
125 |
goto T57; |
goto T57; |
126 |
T57:; |
T57:; |
127 |
base[3]= (V7); |
base[3]= (V7); |
128 |
V16 = CMPmake_fixnum(V10); |
V17 = CMPmake_fixnum(V11); |
129 |
base[4]= number_minus((V12),V16); |
base[4]= number_minus((V13),V17); |
130 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
131 |
siLpackage_external(); |
siLpackage_external(); |
132 |
vs_top=sup; |
vs_top=sup; |
153 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
154 |
Llast(); |
Llast(); |
155 |
vs_top=sup; |
vs_top=sup; |
156 |
V17= vs_base[0]; |
V18= vs_base[0]; |
157 |
if(!((VV[4])==(CMPcar(V17)))){ |
if(!((VV[4])==(CMPcar(V18)))){ |
158 |
goto T68;} |
goto T68;} |
159 |
goto T69; |
goto T69; |
160 |
T69:; |
T69:; |
168 |
goto T78;} |
goto T78;} |
169 |
goto T79; |
goto T79; |
170 |
T79:; |
T79:; |
171 |
V18= symbol_name((V3)); |
V19= symbol_name((V3)); |
172 |
V1= make_cons(/* INLINE-ARGS */V18,(V1)); |
V1= make_cons(/* INLINE-ARGS */V19,(V1)); |
173 |
goto T78; |
goto T78; |
174 |
T78:; |
T78:; |
175 |
goto T68; |
goto T68; |
181 |
goto T51; |
goto T51; |
182 |
goto T51; |
goto T51; |
183 |
T51:; |
T51:; |
184 |
V12= one_plus((V12)); |
V13= one_plus((V13)); |
185 |
goto T47;}} |
goto T47;}} |
186 |
goto T34; |
goto T34; |
187 |
T34:; |
T34:; |
193 |
goto T5; |
goto T5; |
194 |
goto T5; |
goto T5; |
195 |
T5:; |
T5:; |
196 |
{object V19; |
{object V20; |
|
register object V20; |
|
197 |
register object V21; |
register object V21; |
198 |
{object V22; |
register object V22; |
199 |
|
{object V23; |
200 |
base[0]= VV[5]; |
base[0]= VV[5]; |
201 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
202 |
Lfind_package(); |
Lfind_package(); |
203 |
vs_top=sup; |
vs_top=sup; |
204 |
V22= vs_base[0]; |
V23= vs_base[0]; |
205 |
base[0]= (V22); |
base[0]= (V23); |
206 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
207 |
Lpackagep(); |
Lpackagep(); |
208 |
vs_top=sup; |
vs_top=sup; |
209 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
210 |
goto T101;} |
goto T101;} |
211 |
base[0]= coerce_to_string((V22)); |
base[0]= coerce_to_string((V23)); |
212 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
213 |
Lfind_package(); |
Lfind_package(); |
214 |
vs_top=sup; |
vs_top=sup; |
215 |
V22= vs_base[0]; |
V23= vs_base[0]; |
216 |
if(((V22))!=Cnil){ |
if(((V23))!=Cnil){ |
217 |
goto T101;} |
goto T101;} |
218 |
base[0]= VV[2]; |
base[0]= VV[2]; |
219 |
base[1]= VV[3]; |
base[1]= VV[3]; |
227 |
vs_top=sup; |
vs_top=sup; |
228 |
goto T101; |
goto T101; |
229 |
T101:; |
T101:; |
230 |
V19= (V22);} |
V20= (V23);} |
|
V20= Cnil; |
|
231 |
V21= Cnil; |
V21= Cnil; |
232 |
{object V23; |
V22= Cnil; |
233 |
object V24; |
{object V24; |
234 |
base[2]= (V19); |
object V25; |
235 |
|
V26 = (V20); |
236 |
|
base[2]= (V20); |
237 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
238 |
Lpackage_use_list(); |
Lpackage_use_list(); |
239 |
vs_top=sup; |
vs_top=sup; |
240 |
V25= vs_base[0]; |
V27= vs_base[0]; |
241 |
V23= make_cons((V19),V25); |
V24= make_cons(V26,V27); |
242 |
V24= CMPcar((V23)); |
V25= CMPcar((V24)); |
243 |
goto T118; |
goto T118; |
244 |
T118:; |
T118:; |
245 |
if(!(((V23))==Cnil)){ |
if(!(((V24))==Cnil)){ |
246 |
goto T119;} |
goto T119;} |
247 |
V20= Cnil; |
V21= Cnil; |
248 |
goto T97; |
goto T97; |
249 |
goto T119; |
goto T119; |
250 |
T119:; |
T119:; |
251 |
{long V26; |
{long V28; |
252 |
long V27; |
long V29; |
253 |
base[2]= (V24); |
base[2]= (V25); |
254 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
255 |
(void) (*Lnk9)(); |
(void) (*Lnk9)(); |
256 |
if(vs_base>=vs_top){vs_top=sup;goto T128;} |
if(vs_base>=vs_top){vs_top=sup;goto T128;} |
257 |
V26= fix(vs_base[0]); |
V28= fix(vs_base[0]); |
258 |
vs_base++; |
vs_base++; |
259 |
if(vs_base>=vs_top){vs_top=sup;goto T129;} |
if(vs_base>=vs_top){vs_top=sup;goto T129;} |
260 |
V27= fix(vs_base[0]); |
V29= fix(vs_base[0]); |
261 |
vs_top=sup; |
vs_top=sup; |
262 |
goto T130; |
goto T130; |
263 |
goto T128; |
goto T128; |
264 |
T128:; |
T128:; |
265 |
V26= fix(Cnil); |
V28= fix(Cnil); |
266 |
goto T129; |
goto T129; |
267 |
T129:; |
T129:; |
268 |
V27= fix(Cnil); |
V29= fix(Cnil); |
269 |
goto T130; |
goto T130; |
270 |
T130:; |
T130:; |
271 |
if(((V19))==((V24))){ |
if(((V20))==((V25))){ |
272 |
goto T131;} |
goto T131;} |
273 |
V27= 0; |
V29= 0; |
274 |
goto T131; |
goto T131; |
275 |
T131:; |
T131:; |
276 |
{object V28; |
{object V30; |
277 |
register object V29; |
register object V31; |
278 |
V30 = CMPmake_fixnum(V27); |
V32 = CMPmake_fixnum(V29); |
279 |
V31 = CMPmake_fixnum(V26); |
V33 = CMPmake_fixnum(V28); |
280 |
V28= number_plus(V30,V31); |
V30= number_plus(V32,V33); |
281 |
V29= small_fixnum(0); |
V31= small_fixnum(0); |
282 |
goto T138; |
goto T138; |
283 |
T138:; |
T138:; |
284 |
if(!(number_compare((V29),(V28))>=0)){ |
if(!(number_compare((V31),(V30))>=0)){ |
285 |
goto T139;} |
goto T139;} |
286 |
goto T125; |
goto T125; |
287 |
goto T139; |
goto T139; |
288 |
T139:; |
T139:; |
289 |
V32 = CMPmake_fixnum(V27); |
V34 = CMPmake_fixnum(V29); |
290 |
if(!(number_compare((V29),V32)<0)){ |
if(!(number_compare((V31),V34)<0)){ |
291 |
goto T148;} |
goto T148;} |
292 |
base[3]= (V24); |
base[3]= (V25); |
293 |
base[4]= (V29); |
base[4]= (V31); |
294 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
295 |
siLpackage_internal(); |
siLpackage_internal(); |
296 |
vs_top=sup; |
vs_top=sup; |
297 |
V21= vs_base[0]; |
V22= vs_base[0]; |
298 |
goto T146; |
goto T146; |
299 |
goto T148; |
goto T148; |
300 |
T148:; |
T148:; |
301 |
base[3]= (V24); |
base[3]= (V25); |
302 |
V33 = CMPmake_fixnum(V27); |
V35 = CMPmake_fixnum(V29); |
303 |
base[4]= number_minus((V29),V33); |
base[4]= number_minus((V31),V35); |
304 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
305 |
siLpackage_external(); |
siLpackage_external(); |
306 |
vs_top=sup; |
vs_top=sup; |
307 |
V21= vs_base[0]; |
V22= vs_base[0]; |
308 |
goto T146; |
goto T146; |
309 |
T146:; |
T146:; |
310 |
goto T144; |
goto T144; |
311 |
T144:; |
T144:; |
312 |
if(((V21))!=Cnil){ |
if(((V22))!=Cnil){ |
313 |
goto T154;} |
goto T154;} |
314 |
goto T145; |
goto T145; |
315 |
goto T154; |
goto T154; |
316 |
T154:; |
T154:; |
317 |
V20= CMPcar((V21)); |
V21= CMPcar((V22)); |
318 |
if(((V24))==((V19))){ |
if(((V25))==((V20))){ |
319 |
goto T160;} |
goto T160;} |
320 |
base[4]= symbol_name((V20)); |
base[4]= symbol_name((V21)); |
321 |
base[5]= (V19); |
base[5]= (V20); |
322 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
323 |
Lfind_symbol(); |
Lfind_symbol(); |
324 |
Llist(); |
Llist(); |
327 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
328 |
Llast(); |
Llast(); |
329 |
vs_top=sup; |
vs_top=sup; |
330 |
V34= vs_base[0]; |
V36= vs_base[0]; |
331 |
if(!((VV[4])==(CMPcar(V34)))){ |
if(!((VV[4])==(CMPcar(V36)))){ |
332 |
goto T159;} |
goto T159;} |
333 |
goto T160; |
goto T160; |
334 |
T160:; |
T160:; |
335 |
if(((V20))->s.s_dbind!=OBJNULL){ |
if(((V21))->s.s_dbind!=OBJNULL){ |
336 |
goto T170;} |
goto T170;} |
337 |
base[3]= (V20); |
base[3]= (V21); |
338 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
339 |
Lfboundp(); |
Lfboundp(); |
340 |
vs_top=sup; |
vs_top=sup; |
344 |
T170:; |
T170:; |
345 |
base[3]= Cnil; |
base[3]= Cnil; |
346 |
base[4]= VV[6]; |
base[4]= VV[6]; |
347 |
base[5]= (V20); |
base[5]= (V21); |
348 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
349 |
Lformat(); |
Lformat(); |
350 |
vs_top=sup; |
vs_top=sup; |
351 |
V35= vs_base[0]; |
V37= vs_base[0]; |
352 |
V1= make_cons(V35,(V1)); |
V38 = (V1); |
353 |
|
V1= make_cons(V37,V38); |
354 |
goto T169; |
goto T169; |
355 |
T169:; |
T169:; |
356 |
goto T159; |
goto T159; |
357 |
T159:; |
T159:; |
358 |
V21= CMPcdr((V21)); |
V22= CMPcdr((V22)); |
359 |
goto T144; |
goto T144; |
360 |
goto T145; |
goto T145; |
361 |
T145:; |
T145:; |
362 |
goto T142; |
goto T142; |
363 |
goto T142; |
goto T142; |
364 |
T142:; |
T142:; |
365 |
V29= one_plus((V29)); |
V31= one_plus((V31)); |
366 |
goto T138;}} |
goto T138;}} |
367 |
goto T125; |
goto T125; |
368 |
T125:; |
T125:; |
369 |
V23= CMPcdr((V23)); |
V24= CMPcdr((V24)); |
370 |
V24= CMPcar((V23)); |
V25= CMPcar((V24)); |
371 |
goto T118;}} |
goto T118;}} |
372 |
goto T97; |
goto T97; |
373 |
T97:; |
T97:; |