18 |
vs_top=sup; |
vs_top=sup; |
19 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
20 |
goto T2;} |
goto T2;} |
21 |
{register object V1; |
{object V1; |
22 |
V1= Cnil; |
V1= Cnil; |
23 |
{object V2; |
{object V2; |
24 |
register object V3; |
register object V3; |
48 |
T7:; |
T7:; |
49 |
V3= Cnil; |
V3= Cnil; |
50 |
V4= Cnil; |
V4= Cnil; |
51 |
{long V6; |
{object V6; |
52 |
long V7; |
object V7; |
53 |
base[0]= (V2); |
base[2]= (V2); |
54 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+2)+1; |
55 |
(void) (*Lnk5)(); |
Lpackage_use_list(); |
56 |
if(vs_base>=vs_top){vs_top=sup;goto T17;} |
vs_top=sup; |
57 |
V6= fix(vs_base[0]); |
V8= vs_base[0]; |
58 |
vs_base++; |
V6= make_cons((V2),V8); |
59 |
if(vs_base>=vs_top){vs_top=sup;goto T18;} |
V7= car((V6)); |
60 |
V7= fix(vs_base[0]); |
goto T20; |
61 |
vs_top=sup; |
T20:; |
62 |
goto T19; |
if(!(endp_prop((V6)))){ |
63 |
goto T17; |
goto T21;} |
|
T17:; |
|
|
V6= fix(Cnil); |
|
|
goto T18; |
|
|
T18:; |
|
|
V7= fix(Cnil); |
|
|
goto T19; |
|
|
T19:; |
|
|
{object V8; |
|
|
register object V9; |
|
|
V10 = make_fixnum(V7); |
|
|
V11 = make_fixnum(V6); |
|
|
V8= number_plus(V10,V11); |
|
|
V9= small_fixnum(0); |
|
|
goto T23; |
|
|
T23:; |
|
|
if(!(number_compare((V9),(V8))>=0)){ |
|
|
goto T24;} |
|
64 |
V3= Cnil; |
V3= Cnil; |
65 |
goto T6; |
goto T6; |
66 |
goto T24; |
goto T21; |
67 |
T24:; |
T21:; |
68 |
V12 = make_fixnum(V7); |
{long V9; |
69 |
if(!(number_compare((V9),V12)<0)){ |
long V10; |
70 |
goto T35;} |
base[2]= (V7); |
71 |
base[1]= (V2); |
vs_top=(vs_base=base+2)+1; |
72 |
base[2]= (V9); |
(void) (*Lnk6)(); |
73 |
vs_top=(vs_base=base+1)+2; |
if(vs_base>=vs_top){vs_top=sup;goto T30;} |
74 |
|
V9= fix(vs_base[0]); |
75 |
|
vs_base++; |
76 |
|
if(vs_base>=vs_top){vs_top=sup;goto T31;} |
77 |
|
V10= fix(vs_base[0]); |
78 |
|
vs_top=sup; |
79 |
|
goto T32; |
80 |
|
goto T30; |
81 |
|
T30:; |
82 |
|
V9= fix(Cnil); |
83 |
|
goto T31; |
84 |
|
T31:; |
85 |
|
V10= fix(Cnil); |
86 |
|
goto T32; |
87 |
|
T32:; |
88 |
|
if(((V2))==((V7))){ |
89 |
|
goto T33;} |
90 |
|
V10= 0; |
91 |
|
goto T33; |
92 |
|
T33:; |
93 |
|
{object V11; |
94 |
|
register object V12; |
95 |
|
V13 = make_fixnum(V10); |
96 |
|
V14 = make_fixnum(V9); |
97 |
|
V11= number_plus(V13,V14); |
98 |
|
V12= small_fixnum(0); |
99 |
|
goto T40; |
100 |
|
T40:; |
101 |
|
if(!(number_compare((V12),(V11))>=0)){ |
102 |
|
goto T41;} |
103 |
|
goto T27; |
104 |
|
goto T41; |
105 |
|
T41:; |
106 |
|
V15 = make_fixnum(V10); |
107 |
|
if(!(number_compare((V12),V15)<0)){ |
108 |
|
goto T50;} |
109 |
|
base[3]= (V7); |
110 |
|
base[4]= (V12); |
111 |
|
vs_top=(vs_base=base+3)+2; |
112 |
siLpackage_internal(); |
siLpackage_internal(); |
113 |
vs_top=sup; |
vs_top=sup; |
114 |
V4= vs_base[0]; |
V4= vs_base[0]; |
115 |
goto T33; |
goto T48; |
116 |
goto T35; |
goto T50; |
117 |
T35:; |
T50:; |
118 |
base[1]= (V2); |
base[3]= (V7); |
119 |
V13 = make_fixnum(V7); |
V16 = make_fixnum(V10); |
120 |
base[2]= number_minus((V9),V13); |
base[4]= number_minus((V12),V16); |
121 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+3)+2; |
122 |
siLpackage_external(); |
siLpackage_external(); |
123 |
vs_top=sup; |
vs_top=sup; |
124 |
V4= vs_base[0]; |
V4= vs_base[0]; |
125 |
goto T33; |
goto T48; |
126 |
T33:; |
T48:; |
127 |
goto T31; |
goto T46; |
128 |
T31:; |
T46:; |
129 |
if(((V4))!=Cnil){ |
if(((V4))!=Cnil){ |
130 |
goto T41;} |
goto T56;} |
131 |
goto T32; |
goto T47; |
132 |
goto T41; |
goto T56; |
133 |
T41:; |
T56:; |
134 |
V3= car((V4)); |
V3= car((V4)); |
135 |
base[1]= (V3); |
if(((V7))==((V2))){ |
136 |
vs_top=(vs_base=base+1)+1; |
goto T62;} |
137 |
|
base[4]= symbol_name((V3)); |
138 |
|
base[5]= (V2); |
139 |
|
vs_top=(vs_base=base+4)+2; |
140 |
|
Lfind_symbol(); |
141 |
|
Llist(); |
142 |
|
vs_top=sup; |
143 |
|
base[3]= vs_base[0]; |
144 |
|
vs_top=(vs_base=base+3)+1; |
145 |
|
Llast(); |
146 |
|
vs_top=sup; |
147 |
|
V17= vs_base[0]; |
148 |
|
if(!((VV[2])==(car(V17)))){ |
149 |
|
goto T61;} |
150 |
|
goto T62; |
151 |
|
T62:; |
152 |
|
base[3]= (V3); |
153 |
|
vs_top=(vs_base=base+3)+1; |
154 |
Lboundp(); |
Lboundp(); |
155 |
vs_top=sup; |
vs_top=sup; |
156 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
157 |
goto T47;} |
goto T72;} |
158 |
base[1]= (V3); |
base[3]= (V3); |
159 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+3)+1; |
160 |
Lfboundp(); |
Lfboundp(); |
161 |
vs_top=sup; |
vs_top=sup; |
162 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
163 |
goto T46;} |
goto T71;} |
164 |
|
goto T72; |
165 |
|
T72:; |
166 |
|
V18= symbol_name((V3)); |
167 |
|
V1= make_cons(/* INLINE-ARGS */V18,(V1)); |
168 |
|
goto T71; |
169 |
|
T71:; |
170 |
|
goto T61; |
171 |
|
T61:; |
172 |
|
V4= cdr((V4)); |
173 |
|
goto T46; |
174 |
goto T47; |
goto T47; |
175 |
T47:; |
T47:; |
176 |
V14= symbol_name((V3)); |
goto T44; |
177 |
V1= make_cons(/* INLINE-ARGS */V14,(V1)); |
goto T44; |
178 |
goto T46; |
T44:; |
179 |
T46:; |
V12= one_plus((V12)); |
180 |
V4= cdr((V4)); |
goto T40;}} |
181 |
goto T31; |
goto T27; |
182 |
goto T32; |
T27:; |
183 |
T32:; |
V6= cdr((V6)); |
184 |
goto T29; |
V7= car((V6)); |
185 |
goto T29; |
goto T20;}} |
|
T29:; |
|
|
V9= one_plus((V9)); |
|
|
goto T23;}}} |
|
186 |
goto T6; |
goto T6; |
187 |
T6:; |
T6:; |
188 |
goto T5; |
goto T5; |
189 |
goto T5; |
goto T5; |
190 |
T5:; |
T5:; |
191 |
{object V15; |
{object V19; |
192 |
register object V16; |
register object V20; |
193 |
register object V17; |
register object V21; |
194 |
{object V18; |
{object V22; |
195 |
base[0]= VV[2]; |
base[0]= VV[3]; |
196 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
197 |
Lfind_package(); |
Lfind_package(); |
198 |
vs_top=sup; |
vs_top=sup; |
199 |
V18= vs_base[0]; |
V22= vs_base[0]; |
200 |
base[0]= (V18); |
base[0]= (V22); |
201 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
202 |
Lpackagep(); |
Lpackagep(); |
203 |
vs_top=sup; |
vs_top=sup; |
204 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
205 |
goto T66;} |
goto T96;} |
206 |
V15= (V18); |
V19= (V22); |
207 |
goto T62; |
goto T92; |
208 |
goto T66; |
goto T96; |
209 |
T66:; |
T96:; |
210 |
base[0]= coerce_to_string((V18)); |
base[0]= coerce_to_string((V22)); |
211 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
212 |
Lfind_package(); |
Lfind_package(); |
213 |
vs_top=sup; |
vs_top=sup; |
214 |
V15= vs_base[0];} |
V19= vs_base[0];} |
215 |
goto T62; |
goto T92; |
216 |
T62:; |
T92:; |
217 |
V16= Cnil; |
V20= Cnil; |
218 |
V17= Cnil; |
V21= Cnil; |
219 |
{long V19; |
{object V23; |
220 |
long V20; |
object V24; |
221 |
base[0]= (V15); |
base[2]= (V19); |
222 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+2)+1; |
223 |
(void) (*Lnk5)(); |
Lpackage_use_list(); |
224 |
if(vs_base>=vs_top){vs_top=sup;goto T72;} |
vs_top=sup; |
225 |
V19= fix(vs_base[0]); |
V25= vs_base[0]; |
226 |
|
V23= make_cons((V19),V25); |
227 |
|
V24= car((V23)); |
228 |
|
goto T105; |
229 |
|
T105:; |
230 |
|
if(!(endp_prop((V23)))){ |
231 |
|
goto T106;} |
232 |
|
V20= Cnil; |
233 |
|
goto T91; |
234 |
|
goto T106; |
235 |
|
T106:; |
236 |
|
{long V26; |
237 |
|
long V27; |
238 |
|
base[2]= (V24); |
239 |
|
vs_top=(vs_base=base+2)+1; |
240 |
|
(void) (*Lnk6)(); |
241 |
|
if(vs_base>=vs_top){vs_top=sup;goto T115;} |
242 |
|
V26= fix(vs_base[0]); |
243 |
vs_base++; |
vs_base++; |
244 |
if(vs_base>=vs_top){vs_top=sup;goto T73;} |
if(vs_base>=vs_top){vs_top=sup;goto T116;} |
245 |
V20= fix(vs_base[0]); |
V27= fix(vs_base[0]); |
246 |
vs_top=sup; |
vs_top=sup; |
247 |
goto T74; |
goto T117; |
248 |
goto T72; |
goto T115; |
249 |
T72:; |
T115:; |
250 |
V19= fix(Cnil); |
V26= fix(Cnil); |
251 |
goto T73; |
goto T116; |
252 |
T73:; |
T116:; |
253 |
V20= fix(Cnil); |
V27= fix(Cnil); |
254 |
goto T74; |
goto T117; |
255 |
T74:; |
T117:; |
256 |
{object V21; |
if(((V19))==((V24))){ |
257 |
register object V22; |
goto T118;} |
258 |
V23 = make_fixnum(V20); |
V27= 0; |
259 |
V24 = make_fixnum(V19); |
goto T118; |
260 |
V21= number_plus(V23,V24); |
T118:; |
261 |
V22= small_fixnum(0); |
{object V28; |
262 |
goto T78; |
register object V29; |
263 |
T78:; |
V30 = make_fixnum(V27); |
264 |
if(!(number_compare((V22),(V21))>=0)){ |
V31 = make_fixnum(V26); |
265 |
goto T79;} |
V28= number_plus(V30,V31); |
266 |
V16= Cnil; |
V29= small_fixnum(0); |
267 |
goto T61; |
goto T125; |
268 |
goto T79; |
T125:; |
269 |
T79:; |
if(!(number_compare((V29),(V28))>=0)){ |
270 |
V25 = make_fixnum(V20); |
goto T126;} |
271 |
if(!(number_compare((V22),V25)<0)){ |
goto T112; |
272 |
goto T90;} |
goto T126; |
273 |
base[1]= (V15); |
T126:; |
274 |
base[2]= (V22); |
V32 = make_fixnum(V27); |
275 |
vs_top=(vs_base=base+1)+2; |
if(!(number_compare((V29),V32)<0)){ |
276 |
|
goto T135;} |
277 |
|
base[3]= (V24); |
278 |
|
base[4]= (V29); |
279 |
|
vs_top=(vs_base=base+3)+2; |
280 |
siLpackage_internal(); |
siLpackage_internal(); |
281 |
vs_top=sup; |
vs_top=sup; |
282 |
V17= vs_base[0]; |
V21= vs_base[0]; |
283 |
goto T88; |
goto T133; |
284 |
goto T90; |
goto T135; |
285 |
T90:; |
T135:; |
286 |
base[1]= (V15); |
base[3]= (V24); |
287 |
V26 = make_fixnum(V20); |
V33 = make_fixnum(V27); |
288 |
base[2]= number_minus((V22),V26); |
base[4]= number_minus((V29),V33); |
289 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+3)+2; |
290 |
siLpackage_external(); |
siLpackage_external(); |
291 |
vs_top=sup; |
vs_top=sup; |
292 |
V17= vs_base[0]; |
V21= vs_base[0]; |
293 |
goto T88; |
goto T133; |
294 |
T88:; |
T133:; |
295 |
goto T86; |
goto T131; |
296 |
T86:; |
T131:; |
297 |
if(((V17))!=Cnil){ |
if(((V21))!=Cnil){ |
298 |
goto T96;} |
goto T141;} |
299 |
goto T87; |
goto T132; |
300 |
goto T96; |
goto T141; |
301 |
T96:; |
T141:; |
302 |
V16= car((V17)); |
V20= car((V21)); |
303 |
base[1]= (V16); |
if(((V24))==((V19))){ |
304 |
vs_top=(vs_base=base+1)+1; |
goto T147;} |
305 |
|
base[4]= symbol_name((V20)); |
306 |
|
base[5]= (V19); |
307 |
|
vs_top=(vs_base=base+4)+2; |
308 |
|
Lfind_symbol(); |
309 |
|
Llist(); |
310 |
|
vs_top=sup; |
311 |
|
base[3]= vs_base[0]; |
312 |
|
vs_top=(vs_base=base+3)+1; |
313 |
|
Llast(); |
314 |
|
vs_top=sup; |
315 |
|
V34= vs_base[0]; |
316 |
|
if(!((VV[2])==(car(V34)))){ |
317 |
|
goto T146;} |
318 |
|
goto T147; |
319 |
|
T147:; |
320 |
|
base[3]= (V20); |
321 |
|
vs_top=(vs_base=base+3)+1; |
322 |
Lboundp(); |
Lboundp(); |
323 |
vs_top=sup; |
vs_top=sup; |
324 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
325 |
goto T102;} |
goto T157;} |
326 |
base[1]= (V16); |
base[3]= (V20); |
327 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+3)+1; |
328 |
Lfboundp(); |
Lfboundp(); |
329 |
vs_top=sup; |
vs_top=sup; |
330 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
331 |
goto T101;} |
goto T156;} |
332 |
goto T102; |
goto T157; |
333 |
T102:; |
T157:; |
334 |
base[1]= Cnil; |
base[3]= Cnil; |
335 |
base[2]= VV[3]; |
base[4]= VV[4]; |
336 |
base[3]= (V16); |
base[5]= (V20); |
337 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+3)+3; |
338 |
Lformat(); |
Lformat(); |
339 |
vs_top=sup; |
vs_top=sup; |
340 |
V27= vs_base[0]; |
V35= vs_base[0]; |
341 |
V1= make_cons(V27,(V1)); |
V1= make_cons(V35,(V1)); |
342 |
goto T101; |
goto T156; |
343 |
T101:; |
T156:; |
344 |
V17= cdr((V17)); |
goto T146; |
345 |
goto T86; |
T146:; |
346 |
goto T87; |
V21= cdr((V21)); |
347 |
T87:; |
goto T131; |
348 |
goto T84; |
goto T132; |
349 |
goto T84; |
T132:; |
350 |
T84:; |
goto T129; |
351 |
V22= one_plus((V22)); |
goto T129; |
352 |
goto T78;}}} |
T129:; |
353 |
goto T61; |
V29= one_plus((V29)); |
354 |
T61:; |
goto T125;}} |
355 |
goto T60; |
goto T112; |
356 |
goto T60; |
T112:; |
357 |
T60:; |
V23= cdr((V23)); |
358 |
|
V24= car((V23)); |
359 |
|
goto T105;}} |
360 |
|
goto T91; |
361 |
|
T91:; |
362 |
|
goto T90; |
363 |
|
goto T90; |
364 |
|
T90:; |
365 |
base[0]= Ct; |
base[0]= Ct; |
366 |
base[1]= VV[4]; |
base[1]= VV[5]; |
367 |
base[2]= small_fixnum(1); |
base[2]= small_fixnum(1); |
368 |
base[3]= (V1); |
base[3]= (V1); |
369 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
376 |
return; |
return; |
377 |
} |
} |
378 |
static void LnkT0(){ call_or_link(VV[0],(void **)&Lnk0);} /* READLINE-INIT */ |
static void LnkT0(){ call_or_link(VV[0],(void **)&Lnk0);} /* READLINE-INIT */ |
379 |
static void LnkT5(){ call_or_link(VV[5],(void **)&Lnk5);} /* PACKAGE-SIZE */ |
static void LnkT6(){ call_or_link(VV[6],(void **)&Lnk6);} /* PACKAGE-SIZE */ |
380 |
|
|
381 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
382 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |