7 |
static L1() |
static L1() |
8 |
{register object *base=vs_base; |
{register object *base=vs_base; |
9 |
register object *sup=base+VM1; VC1 |
register object *sup=base+VM1; VC1 |
10 |
vs_reserve(VM1); |
vs_check; |
11 |
{register object V1; |
{register object V1; |
12 |
object V2; |
object V2; |
13 |
object V3; |
object V3; |
|
check_arg(3); |
|
14 |
V1=(base[0]); |
V1=(base[0]); |
15 |
V2=(base[1]); |
V2=(base[1]); |
16 |
V3=(base[2]); |
V3=(base[2]); |
17 |
vs_top=sup; |
vs_top=sup; |
18 |
TTL:; |
TTL:; |
19 |
{register object V4; |
{object V4; |
20 |
V4= (VFUN_NARGS=5,(*(LnkLI87))(small_fixnum(10),VV[0],VV[1],VV[2],small_fixnum(0))); |
base[3]= small_fixnum(10); |
21 |
base[3]= (V1); |
base[4]= VV[0]; |
22 |
vs_top=(vs_base=base+3)+1; |
base[5]= VV[1]; |
23 |
Lread_char(); |
base[6]= VV[2]; |
24 |
|
base[7]= small_fixnum(0); |
25 |
|
vs_top=(vs_base=base+3)+5; |
26 |
|
(void) (*Lnk88)(); |
27 |
vs_top=sup; |
vs_top=sup; |
28 |
V5= vs_base[0]; |
V4= vs_base[0];{object V5; |
29 |
if(!(eql(V5,VV[3]))){ |
{object V6; |
30 |
goto T5;} |
{int V7; |
31 |
goto T4; |
V7= 0; |
32 |
T5:; |
if(!((type_of((V1))==t_stream? (((V1))->sm.sm_fp)!=0: 0 ))){ |
33 |
|
goto T15;} |
34 |
|
V7= getc(((V1))->sm.sm_fp); |
35 |
|
if(!((V7)==(-1))){ |
36 |
|
goto T20;} |
37 |
|
if(!((feof(((V1))->sm.sm_fp)))){ |
38 |
|
goto T20;} |
39 |
|
V6= Cnil; |
40 |
|
goto T12; |
41 |
|
T20:; |
42 |
|
V6= code_char((V7)); |
43 |
|
goto T12; |
44 |
|
T15:; |
45 |
|
V6= read_char1((V1),Cnil);} |
46 |
|
T12:; |
47 |
|
if(type_of((V6))==t_character){ |
48 |
|
goto T24;} |
49 |
|
V5= Cnil; |
50 |
|
goto T11; |
51 |
|
T24:; |
52 |
|
V5= (((34))==((char_code((V6))))?Ct:Cnil);} |
53 |
|
T11:; |
54 |
|
if(V5==Cnil)goto T10; |
55 |
|
goto T9; |
56 |
|
T10:;} |
57 |
base[3]= VV[4]; |
base[3]= VV[4]; |
58 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
59 |
Lerror(); |
Lerror(); |
60 |
vs_top=sup; |
vs_top=sup; |
61 |
T4:; |
T9:; |
62 |
T12:; |
T29:; |
63 |
{register object V6; |
{register object V8; |
64 |
base[3]= (V1); |
{register int V9; |
65 |
vs_top=(vs_base=base+3)+1; |
V9= 0; |
66 |
Lread_char(); |
if(!((type_of((V1))==t_stream? (((V1))->sm.sm_fp)!=0: 0 ))){ |
67 |
vs_top=sup; |
goto T34;} |
68 |
V6= vs_base[0]; |
V9= getc(((V1))->sm.sm_fp); |
69 |
if(!(eql((V6),VV[3]))){ |
if(!((V9)==(-1))){ |
70 |
goto T18;} |
goto T39;} |
71 |
goto T10; |
if(!((feof(((V1))->sm.sm_fp)))){ |
72 |
T18:; |
goto T39;} |
73 |
if(!(eql((V6),VV[5]))){ |
V8= Cnil; |
74 |
goto T16;} |
goto T31; |
75 |
base[3]= (V1); |
T39:; |
76 |
vs_top=(vs_base=base+3)+1; |
V8= code_char((V9)); |
77 |
Lread_char(); |
goto T31; |
78 |
vs_top=sup; |
T34:; |
79 |
V6= vs_base[0];{object V7; |
V8= read_char1((V1),Cnil);} |
80 |
{register object x= (V6),V9= VV[6]; |
T31:; |
81 |
while(!endp(V9)) |
if(type_of(V8)==t_character){ |
82 |
if(type_of(V9->c.c_car)==t_cons &&eql(x,V9->c.c_car->c.c_car)){ |
goto T47;} |
83 |
V8= (V9->c.c_car); |
goto T45; |
84 |
goto T28; |
T47:; |
85 |
}else V9=V9->c.c_cdr; |
if(!(((34))==((char_code(V8))))){ |
86 |
V8= Cnil;} |
goto T45;} |
87 |
T28:; |
goto T27; |
88 |
V7= cdr(V8); |
T45:; |
89 |
if(V7==Cnil)goto T26; |
if(type_of(V8)==t_character){ |
90 |
V6= V7; |
goto T51;} |
91 |
goto T25; |
goto T43; |
92 |
T26:;} |
T51:; |
93 |
T25:; |
if(!(((92))==((char_code(V8))))){ |
94 |
T16:; |
goto T43;} |
95 |
(void)((VFUN_NARGS=2,(*(LnkLI88))((V6),(V4))));} |
{register int V12; |
96 |
goto T12; |
V12= 0; |
97 |
T10:; |
if(!((type_of((V1))==t_stream? (((V1))->sm.sm_fp)!=0: 0 ))){ |
98 |
|
goto T57;} |
99 |
|
V12= getc(((V1))->sm.sm_fp); |
100 |
|
if(!((V12)==(-1))){ |
101 |
|
goto T62;} |
102 |
|
if(!((feof(((V1))->sm.sm_fp)))){ |
103 |
|
goto T62;} |
104 |
|
V8= Cnil; |
105 |
|
goto T54; |
106 |
|
T62:; |
107 |
|
V8= code_char((V12)); |
108 |
|
goto T54; |
109 |
|
T57:; |
110 |
|
V8= read_char1((V1),Cnil);} |
111 |
|
T54:;{object V13; |
112 |
|
{register object x= (V8),V15= VV[6]; |
113 |
|
while(V15!=Cnil) |
114 |
|
if(eql(x,V15->c.c_car->c.c_car) &&V15->c.c_car != Cnil){ |
115 |
|
V14= (V15->c.c_car); |
116 |
|
goto T69; |
117 |
|
}else V15=V15->c.c_cdr; |
118 |
|
V14= Cnil;} |
119 |
|
T69:; |
120 |
|
V13= CMPcdr(V14); |
121 |
|
if(V13==Cnil)goto T67; |
122 |
|
V8= V13; |
123 |
|
goto T66; |
124 |
|
T67:;} |
125 |
|
T66:; |
126 |
|
T43:; |
127 |
|
{register object V17; |
128 |
|
register int V18; |
129 |
|
int V19; |
130 |
|
V17= (V4); |
131 |
|
V18= (((V17))->st.st_fillp); |
132 |
|
V19= (((V17))->st.st_dim); |
133 |
|
if(!((V18)<(V19))){ |
134 |
|
goto T74;} |
135 |
|
(void)((((V17))->st.st_fillp)=((1)+(V18))); |
136 |
|
V20 = CMPmake_fixnum(V18); |
137 |
|
(void)(aset1((V17),fix(V20),V8)); |
138 |
|
goto T30; |
139 |
|
T74:; |
140 |
|
base[3]= V8; |
141 |
|
base[4]= (V17); |
142 |
|
vs_top=(vs_base=base+3)+2; |
143 |
|
(void) (*Lnk89)(); |
144 |
|
vs_top=sup;}} |
145 |
|
T30:; |
146 |
|
goto T29; |
147 |
|
T27:; |
148 |
base[3]= (V4); |
base[3]= (V4); |
149 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
150 |
return;} |
return;} |
155 |
static L2() |
static L2() |
156 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
157 |
register object *VOL sup=base+VM2; VC2 |
register object *VOL sup=base+VM2; VC2 |
158 |
vs_reserve(VM2); |
vs_check; |
159 |
bds_check; |
bds_check; |
160 |
{VOL object V10; |
{VOL object V21; |
161 |
if(vs_top-vs_base<1) too_few_arguments(); |
V21=(base[0]); |
|
if(vs_top-vs_base>2) too_many_arguments(); |
|
|
V10=(base[0]); |
|
162 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
163 |
if(vs_base>=vs_top){vs_top=sup;goto T30;} |
if(vs_base>=vs_top){vs_top=sup;goto T81;} |
164 |
vs_top=sup; |
vs_top=sup; |
165 |
goto T31; |
goto T82; |
166 |
T30:; |
T81:; |
167 |
base[1]= small_fixnum(0); |
base[1]= small_fixnum(0); |
168 |
T31:; |
T82:; |
169 |
bds_bind(VV[7],Ct); |
bds_bind(VV[7],Ct); |
170 |
base[3]= small_fixnum(0); |
base[3]= small_fixnum(0); |
171 |
base[5]= (V10); |
base[5]= (V21); |
172 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
173 |
(void) (*Lnk89)(); |
(void) (*Lnk90)(); |
174 |
vs_top=sup; |
vs_top=sup; |
175 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
176 |
{object tag;frame_ptr fr;object p;bool active; |
{object tag;frame_ptr fr;object p;bool active; |
181 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
182 |
Lfile_length(); |
Lfile_length(); |
183 |
vs_top=sup; |
vs_top=sup; |
184 |
base[3]= vs_base[0];{VOL object V11; |
base[3]= vs_base[0];{VOL object V22; |
185 |
if(number_compare(small_fixnum(0),base[1])<=0){ |
if(number_compare(small_fixnum(0),base[1])<=0){ |
186 |
goto T42;} |
goto T93;} |
187 |
V11= Cnil; |
V22= Cnil; |
188 |
goto T41; |
goto T92; |
189 |
T42:; |
T93:; |
190 |
V11= (number_compare(base[1],base[3])<=0?Ct:Cnil); |
V22= (number_compare(base[1],base[3])<=0?Ct:Cnil); |
191 |
T41:; |
T92:; |
192 |
if(V11==Cnil)goto T40; |
if(V22==Cnil)goto T91; |
193 |
goto T39; |
goto T90; |
194 |
T40:;} |
T91:;} |
195 |
base[6]= VV[8]; |
base[6]= VV[8]; |
196 |
base[7]= base[1]; |
base[7]= base[1]; |
197 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
198 |
Lerror(); |
Lerror(); |
199 |
vs_top=sup; |
vs_top=sup; |
200 |
T39:; |
T90:; |
201 |
{object V12; |
{object V23; |
202 |
V13= number_minus(base[3],base[1]); |
base[6]= number_minus(base[3],base[1]); |
203 |
V12= (VFUN_NARGS=3,(*(LnkLI87))(/* INLINE-ARGS */V13,VV[0],VV[1])); |
base[7]= VV[0]; |
204 |
|
base[8]= VV[1]; |
205 |
|
vs_top=(vs_base=base+6)+3; |
206 |
|
(void) (*Lnk88)(); |
207 |
|
vs_top=sup; |
208 |
|
V23= vs_base[0]; |
209 |
if(!(number_compare(base[1],small_fixnum(0))>0)){ |
if(!(number_compare(base[1],small_fixnum(0))>0)){ |
210 |
goto T47;} |
goto T101;} |
211 |
base[6]= base[4]; |
base[6]= base[4]; |
212 |
base[7]= base[1]; |
base[7]= base[1]; |
213 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
214 |
Lfile_position(); |
Lfile_position(); |
215 |
vs_top=sup; |
vs_top=sup; |
216 |
T47:; |
T101:; |
217 |
base[6]= (V12); |
base[6]= (V23); |
218 |
base[7]= small_fixnum(0); |
base[7]= small_fixnum(0); |
219 |
base[8]= make_fixnum(length((V12))); |
base[8]= CMPmake_fixnum(length((V23))); |
220 |
base[9]= base[4]; |
base[9]= base[4]; |
221 |
vs_top=(vs_base=base+6)+4; |
vs_top=(vs_base=base+6)+4; |
222 |
(void) (*Lnk90)(); |
(void) (*Lnk91)(); |
223 |
vs_top=sup; |
vs_top=sup; |
224 |
base[6]= (V12); |
base[6]= (V23); |
225 |
vs_top=(vs_base=base+6)+1;} |
vs_top=(vs_base=base+6)+1;} |
226 |
active=FALSE;} |
active=FALSE;} |
227 |
base[5]=Cnil; |
base[5]=Cnil; |
230 |
vs_top=sup; |
vs_top=sup; |
231 |
nlj_active=FALSE;frs_pop(); |
nlj_active=FALSE;frs_pop(); |
232 |
if((base[4])==Cnil){ |
if((base[4])==Cnil){ |
233 |
goto T57;} |
goto T111;} |
234 |
base[6]= base[4]; |
base[6]= base[4]; |
235 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
236 |
Lclose(); |
Lclose(); |
237 |
vs_top=sup; |
vs_top=sup; |
238 |
T57:; |
T111:; |
239 |
vs_base=vs_top=base+6; |
vs_base=vs_top=base+6; |
240 |
for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
241 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
248 |
static L3() |
static L3() |
249 |
{register object *base=vs_base; |
{register object *base=vs_base; |
250 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
251 |
vs_reserve(VM3); |
vs_check; |
252 |
{register object V14; |
{register object V24; |
253 |
register int V15; |
register int V25; |
254 |
check_arg(2); |
V24=(base[0]); |
255 |
V14=(base[0]); |
V25=fix(base[1]); |
|
V15=fix(base[1]); |
|
256 |
vs_top=sup; |
vs_top=sup; |
257 |
TTL:; |
TTL:; |
258 |
{register int V16; |
{register int V26; |
259 |
register int V17; |
register int V27; |
260 |
register int V18; |
register int V28; |
261 |
V16= 0; |
V26= 0; |
262 |
V17= 0; |
V27= 0; |
263 |
V18= length((V14)); |
V28= ((V24))->v.v_fillp; |
264 |
T66:; |
T120:; |
265 |
if(!((V15)<(V18))){ |
if(!((V25)<(V28))){ |
266 |
goto T69;} |
goto T123;} |
267 |
goto T68; |
goto T122; |
268 |
T69:; |
T123:; |
269 |
goto T67; |
goto T121; |
270 |
T68:; |
T122:; |
271 |
{unsigned char V19= char_code(aref1((V14),V15)); |
V27= (((V24))->ust.ust_self[V25]); |
272 |
V17= (/* INLINE-ARGS */V19);} |
V25= (V25)+(1); |
273 |
V15= (V15)+(1); |
V27= (V27)-(48); |
274 |
V17= (V17)-(48); |
if(!((V27)>=(0))){ |
275 |
if(!((V17)>=(0))){ |
goto T133;} |
276 |
goto T79;} |
if(!((V27)<(10))){ |
277 |
if(!((V17)<(10))){ |
goto T133;} |
278 |
goto T79;} |
V29 = CMPmake_fixnum(V27); |
279 |
V20 = make_fixnum(V17); |
V30 = CMPmake_fixnum(V26); |
280 |
V21 = make_fixnum(V16); |
V31= number_times(small_fixnum(10),V30); |
281 |
V22= number_times(small_fixnum(10),V21); |
V26= fix(number_plus(V29,/* INLINE-ARGS */V31)); |
282 |
V16= fix(number_plus(V20,/* INLINE-ARGS */V22)); |
goto T131; |
283 |
goto T77; |
T133:; |
284 |
T79:; |
goto T118; |
285 |
goto T64; |
T131:; |
286 |
T77:; |
goto T120; |
287 |
goto T66; |
T121:; |
288 |
T67:; |
goto T118; |
289 |
goto T64; |
goto T118; |
290 |
goto T64; |
T118:; |
291 |
T64:; |
base[2]= CMPmake_fixnum(V26); |
|
base[2]= make_fixnum(V16); |
|
292 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
293 |
return;} |
return;} |
294 |
} |
} |
298 |
static L4() |
static L4() |
299 |
{register object *base=vs_base; |
{register object *base=vs_base; |
300 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
301 |
vs_reserve(VM4); |
vs_check; |
302 |
bds_check; |
bds_check; |
303 |
{object V23; |
{object V32; |
304 |
check_arg(1); |
V32=(base[0]); |
|
V23=(base[0]); |
|
305 |
vs_top=sup; |
vs_top=sup; |
306 |
TTL:; |
TTL:; |
307 |
{register int V24; |
{register int V33; |
308 |
object V25; |
object V34; |
309 |
register object V26; |
register object V35; |
310 |
V24= 0; |
V33= 0; |
311 |
bds_bind(VV[9],Cnil); |
bds_bind(VV[9],Cnil); |
312 |
V25= Cnil; |
V34= Cnil; |
313 |
V26= Cnil; |
V35= Cnil; |
314 |
bds_bind(VV[10],Ct); |
bds_bind(VV[10],Ct); |
315 |
{register object V27; |
{register object V36; |
316 |
register int V28; |
register int V37; |
317 |
base[3]= (V23); |
base[3]= (V32); |
318 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
319 |
(void) (*Lnk91)(); |
(void) (*Lnk92)(); |
320 |
vs_top=sup; |
vs_top=sup; |
321 |
V27= vs_base[0]; |
V36= vs_base[0]; |
322 |
V28= 0; |
V37= 0; |
323 |
{int V29= fix((VFUN_NARGS=3,(*(LnkLI92))(VV[11],(V27),small_fixnum(0)))); |
{int V38= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[11],(V36),small_fixnum(0)))); |
324 |
if(!((/* INLINE-ARGS */V29)>=(0))){ |
if(!((/* INLINE-ARGS */V38)>=(0))){ |
325 |
goto T91;}} |
goto T145;}} |
326 |
V28= (*(LnkLI93))(0); |
V37= (*(LnkLI94))(0); |
327 |
V30 = make_fixnum(V28); |
V39 = CMPmake_fixnum(V37); |
328 |
V24= fix((VFUN_NARGS=3,(*(LnkLI92))(VV[12],(V27),V30))); |
V33= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[12],(V36),V39))); |
329 |
T99:; |
T153:; |
330 |
V31 = make_fixnum(V28); |
V40 = CMPmake_fixnum(V37); |
331 |
V32 = make_fixnum(V24); |
V41 = CMPmake_fixnum(V33); |
332 |
{int V33= fix((VFUN_NARGS=4,(*(LnkLI92))(VV[13],(V27),V31,V32))); |
{int V42= fix((VFUN_NARGS=4,(*(LnkLI93))(VV[13],(V36),V40,V41))); |
333 |
if(!((/* INLINE-ARGS */V33)>=(0))){ |
if(!((/* INLINE-ARGS */V42)>=(0))){ |
334 |
goto T102;}} |
goto T156;}} |
335 |
goto T101; |
goto T155; |
336 |
T102:; |
T156:; |
337 |
goto T100; |
goto T154; |
338 |
T101:; |
T155:; |
339 |
V28= (*(LnkLI93))(0); |
V37= (*(LnkLI94))(0); |
340 |
base[3]= (V27); |
base[3]= (V36); |
341 |
base[4]= make_fixnum((*(LnkLI94))(2)); |
base[4]= CMPmake_fixnum((*(LnkLI95))(2)); |
342 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
343 |
(void) (*Lnk95)(); |
(void) (*Lnk96)(); |
344 |
vs_top=sup; |
vs_top=sup; |
345 |
V34= vs_base[0]; |
V43= vs_base[0]; |
346 |
base[3]= (V27); |
base[3]= (V36); |
347 |
base[4]= small_fixnum(1); |
base[4]= small_fixnum(1); |
348 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
349 |
(void) (*Lnk96)(); |
(void) (*Lnk97)(); |
350 |
vs_top=sup; |
vs_top=sup; |
351 |
V35= vs_base[0]; |
V44= vs_base[0]; |
352 |
V36= make_cons(V34,V35); |
V45= make_cons(V43,V44); |
353 |
V26= make_cons(/* INLINE-ARGS */V36,(V26)); |
V35= make_cons(/* INLINE-ARGS */V45,(V35)); |
354 |
goto T99; |
goto T153; |
355 |
T100:; |
T154:; |
356 |
goto T91; |
goto T145; |
357 |
goto T91; |
goto T145; |
358 |
T91:; |
T145:; |
359 |
V37 = make_fixnum(V28); |
V46 = CMPmake_fixnum(V37); |
360 |
{int V38= fix((VFUN_NARGS=3,(*(LnkLI92))(VV[14],(V27),V37))); |
{int V47= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[14],(V36),V46))); |
361 |
if(!((/* INLINE-ARGS */V38)>=(0))){ |
if(!((/* INLINE-ARGS */V47)>=(0))){ |
362 |
goto T115;}} |
goto T169;}} |
363 |
V28= (*(LnkLI93))(0); |
V37= (*(LnkLI94))(0); |
364 |
V39 = make_fixnum(V28); |
V48 = CMPmake_fixnum(V37); |
365 |
{int V40= fix((VFUN_NARGS=3,(*(LnkLI92))(VV[15],(V27),V39))); |
{int V49= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[15],(V36),V48))); |
366 |
if(!((/* INLINE-ARGS */V40)>=(0))){ |
if(!((/* INLINE-ARGS */V49)>=(0))){ |
367 |
goto T115;}} |
goto T169;}} |
368 |
base[3]= (V27); |
base[3]= (V36); |
369 |
base[4]= make_fixnum(V28); |
base[4]= CMPmake_fixnum(V37); |
370 |
base[5]= make_fixnum((*(LnkLI93))(0)); |
base[5]= CMPmake_fixnum((*(LnkLI94))(0)); |
371 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
372 |
Lsubseq(); |
Lsubseq(); |
373 |
vs_top=sup; |
vs_top=sup; |
374 |
V25= vs_base[0]; |
V34= vs_base[0]; |
375 |
T115:; |
T169:; |
376 |
if(((V26))==Cnil){ |
if(((V35))==Cnil){ |
377 |
goto T126;} |
goto T180;} |
378 |
if((V25)!=Cnil){ |
if((V34)!=Cnil){ |
379 |
goto T126;} |
goto T180;} |
380 |
base[3]= VV[16]; |
base[3]= VV[16]; |
381 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
382 |
(void) (*Lnk97)(); |
(void) (*Lnk98)(); |
383 |
vs_top=sup; |
vs_top=sup; |
384 |
T126:; |
T180:; |
385 |
V41= nreverse((V26)); |
V50= nreverse((V35)); |
386 |
base[3]= make_cons((V25),/* INLINE-ARGS */V41); |
base[3]= make_cons((V34),/* INLINE-ARGS */V50); |
387 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
388 |
bds_unwind1; |
bds_unwind1; |
389 |
bds_unwind1; |
bds_unwind1; |
395 |
static L5() |
static L5() |
396 |
{register object *base=vs_base; |
{register object *base=vs_base; |
397 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
398 |
vs_reserve(VM5); |
vs_check; |
399 |
{register object V42; |
{object V51; |
400 |
check_arg(1); |
V51=(base[0]); |
401 |
V42=(base[0]); |
vs_top=sup; |
402 |
vs_top=sup; |
TTL:; |
403 |
TTL:; |
{register int V52; |
404 |
{register int V43; |
int V53; |
405 |
int V44; |
object V54; |
406 |
register object V45; |
int V55; |
407 |
register int V46; |
V52= 0; |
408 |
V43= 0; |
V53= ((V51))->v.v_fillp; |
409 |
V44= length((V42)); |
V54= Cnil; |
410 |
V45= Cnil; |
V55= 0; |
411 |
V46= 0; |
{register object V56; |
412 |
{register object V47; |
V56= Cnil; |
413 |
V47= Cnil; |
T190:; |
414 |
T136:; |
T193:; |
415 |
T139:; |
if(!((V52)<(V53))){ |
416 |
if(!((V43)<(V44))){ |
goto T196;} |
417 |
goto T142;} |
goto T195; |
418 |
goto T141; |
T196:; |
419 |
T142:; |
goto T194; |
420 |
goto T140; |
T195:; |
421 |
T141:; |
V54= code_char(((V51))->ust.ust_self[V52]); |
422 |
V45= aref1((V42),V43); |
base[1]= (V54); |
423 |
if(((VFUN_NARGS=2,(*(LnkLI98))((V45),VV[17])))==Cnil){ |
base[2]= VV[17]; |
424 |
goto T146;} |
vs_top=(vs_base=base+1)+2; |
425 |
if(((V47))==Cnil){ |
(void) (*Lnk99)(); |
426 |
goto T150;} |
vs_top=sup; |
427 |
(void)((VFUN_NARGS=2,(*(LnkLI88))(VV[5],(V47)))); |
if((vs_base[0])==Cnil){ |
428 |
goto T146; |
goto T200;} |
429 |
T150:; |
if(((V56))==Cnil){ |
430 |
V46= (V46)+(1); |
goto T206;} |
431 |
T146:; |
{unsigned char V57; |
432 |
if(((V47))==Cnil){ |
register object V58; |
433 |
goto T153;} |
register int V59; |
434 |
(void)((VFUN_NARGS=2,(*(LnkLI88))((V45),(V47)))); |
int V60; |
435 |
T153:; |
V57= 92; |
436 |
V43= (V43)+(1); |
V58= (V56); |
437 |
goto T139; |
V59= (((V58))->st.st_fillp); |
438 |
T140:; |
V60= (((V58))->st.st_dim); |
439 |
goto T137; |
if(!((V59)<(V60))){ |
440 |
goto T137; |
goto T213;} |
441 |
T137:; |
(void)((((V58))->st.st_fillp)=((1)+(V59))); |
442 |
{register object V48; |
V61 = CMPmake_fixnum(V59); |
443 |
V48= (V47); |
(void)(aset1((V58),fix(V61),code_char(V57))); |
444 |
if(((V48))==Cnil){ |
goto T200; |
445 |
goto T161;} |
T213:; |
446 |
goto T159; |
base[1]= code_char(V57); |
447 |
T161:; |
base[2]= (V58); |
448 |
if(!((V46)>(0))){ |
vs_top=(vs_base=base+1)+2; |
449 |
goto T164;} |
(void) (*Lnk89)(); |
450 |
V49 = make_fixnum((length((V42)))+(V46)); |
vs_top=sup; |
451 |
V47= (VFUN_NARGS=5,(*(LnkLI87))(V49,VV[0],VV[1],VV[2],small_fixnum(0))); |
goto T200;} |
452 |
V43= 0; |
T206:; |
453 |
goto T136; |
V55= (V55)+(1); |
454 |
T164:; |
T200:; |
455 |
V47= (V42);} |
if(((V56))==Cnil){ |
456 |
T159:; |
goto T220;} |
457 |
goto T134; |
{register object V63; |
458 |
T134:; |
register int V64; |
459 |
base[1]= (V47); |
int V65; |
460 |
|
V63= (V56); |
461 |
|
V64= (((V63))->st.st_fillp); |
462 |
|
V65= (((V63))->st.st_dim); |
463 |
|
if(!((V64)<(V65))){ |
464 |
|
goto T227;} |
465 |
|
(void)((((V63))->st.st_fillp)=((1)+(V64))); |
466 |
|
V66 = CMPmake_fixnum(V64); |
467 |
|
(void)(aset1((V63),fix(V66),V54)); |
468 |
|
goto T220; |
469 |
|
T227:; |
470 |
|
base[1]= V54; |
471 |
|
base[2]= (V63); |
472 |
|
vs_top=(vs_base=base+1)+2; |
473 |
|
(void) (*Lnk89)(); |
474 |
|
vs_top=sup;} |
475 |
|
T220:; |
476 |
|
V52= (V52)+(1); |
477 |
|
goto T193; |
478 |
|
T194:; |
479 |
|
goto T191; |
480 |
|
goto T191; |
481 |
|
T191:; |
482 |
|
{object V67; |
483 |
|
V67= (V56); |
484 |
|
if(((V67))==Cnil){ |
485 |
|
goto T238;} |
486 |
|
goto T236; |
487 |
|
T238:; |
488 |
|
if(!((V55)>(0))){ |
489 |
|
goto T241;} |
490 |
|
base[1]= CMPmake_fixnum((((V51))->v.v_fillp)+(V55)); |
491 |
|
base[2]= VV[0]; |
492 |
|
base[3]= VV[1]; |
493 |
|
base[4]= VV[2]; |
494 |
|
base[5]= small_fixnum(0); |
495 |
|
vs_top=(vs_base=base+1)+5; |
496 |
|
(void) (*Lnk88)(); |
497 |
|
vs_top=sup; |
498 |
|
V56= vs_base[0]; |
499 |
|
V52= 0; |
500 |
|
goto T190; |
501 |
|
T241:; |
502 |
|
V56= (V51);} |
503 |
|
T236:; |
504 |
|
goto T188; |
505 |
|
T188:; |
506 |
|
base[1]= (V56); |
507 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
508 |
return;}} |
return;}} |
509 |
} |
} |
513 |
static L6() |
static L6() |
514 |
{register object *base=vs_base; |
{register object *base=vs_base; |
515 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM6; VC6 |
516 |
vs_reserve(VM6); |
vs_check; |
517 |
{object V50; |
{object V68; |
518 |
object V51; |
object V69; |
519 |
check_arg(2); |
V68=(base[0]); |
520 |
V50=(base[0]); |
V69=(base[1]); |
|
V51=(base[1]); |
|
521 |
vs_top=sup; |
vs_top=sup; |
522 |
TTL:; |
TTL:; |
523 |
base[2]= (V50); |
base[2]= (V68); |
524 |
base[3]= make_fixnum((*(LnkLI94))(fix((V51)))); |
base[3]= CMPmake_fixnum((*(LnkLI95))(fix((V69)))); |
525 |
base[4]= make_fixnum((*(LnkLI93))(fix((V51)))); |
base[4]= CMPmake_fixnum((*(LnkLI94))(fix((V69)))); |
526 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
527 |
Lsubseq(); |
Lsubseq(); |
528 |
return; |
return; |
533 |
static L7() |
static L7() |
534 |
{register object *base=vs_base; |
{register object *base=vs_base; |
535 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM7; VC7 |
536 |
vs_reserve(VM7); |
vs_check; |
537 |
bds_check; |
bds_check; |
538 |
{register object V52; |
{register object V70; |
539 |
register object V53; |
register object V71; |
540 |
check_arg(2); |
V70=(base[0]); |
541 |
V52=(base[0]); |
V71=(base[1]); |
|
V53=(base[1]); |
|
542 |
vs_top=sup; |
vs_top=sup; |
543 |
TTL:; |
TTL:; |
544 |
{register int V54; |
{register int V72; |
545 |
register object V55; |
register object V73; |
546 |
V54= 0; |
V72= 0; |
547 |
V55= Cnil; |
V73= Cnil; |
548 |
bds_bind(VV[10],Ct); |
bds_bind(VV[10],Ct); |
549 |
bds_bind(VV[9],Cnil); |
bds_bind(VV[9],Cnil); |
550 |
if(((V53))==Cnil){ |
if(((V71))==Cnil){ |
551 |
goto T177;} |
goto T259;} |
552 |
base[4]= VV[18]; |
base[4]= VV[18]; |
553 |
base[6]= (V52); |
base[6]= (V70); |
554 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
555 |
(void) (*Lnk99)(); |
(void) (*Lnk100)(); |
556 |
vs_top=sup; |
vs_top=sup; |
557 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
558 |
base[6]= VV[19]; |
base[6]= VV[19]; |
559 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
560 |
(void) (*Lnk100)(); |
(void) (*Lnk101)(); |
561 |
vs_top=sup; |
vs_top=sup; |
562 |
V52= vs_base[0]; |
V70= vs_base[0]; |
563 |
T187:; |
T269:; |
564 |
V56 = make_fixnum(V54); |
V74 = CMPmake_fixnum(V72); |
565 |
{int V57= fix((VFUN_NARGS=3,(*(LnkLI92))((V52),(V53),V56))); |
{int V75= fix((VFUN_NARGS=3,(*(LnkLI93))((V70),(V71),V74))); |
566 |
if(!((/* INLINE-ARGS */V57)>=(0))){ |
if(!((/* INLINE-ARGS */V75)>=(0))){ |
567 |
goto T190;}} |
goto T272;}} |
568 |
goto T189; |
goto T271; |
569 |
T190:; |
T272:; |
570 |
goto T188; |
goto T270; |
571 |
T189:; |
T271:; |
572 |
V54= (*(LnkLI93))(0); |
V72= (*(LnkLI94))(0); |
573 |
base[4]= (V53); |
base[4]= (V71); |
574 |
base[5]= small_fixnum(1); |
base[5]= small_fixnum(1); |
575 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
576 |
(void) (*Lnk96)(); |
(void) (*Lnk97)(); |
577 |
vs_top=sup; |
vs_top=sup; |
578 |
V58= vs_base[0]; |
V76= vs_base[0]; |
579 |
V55= make_cons(V58,(V55)); |
V73= make_cons(V76,(V73)); |
580 |
goto T187; |
goto T269; |
581 |
T188:; |
T270:; |
582 |
goto T185; |
goto T267; |
583 |
goto T185; |
goto T267; |
584 |
T185:; |
T267:; |
585 |
base[4]= nreverse((V55)); |
base[4]= nreverse((V73)); |
586 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
587 |
bds_unwind1; |
bds_unwind1; |
588 |
bds_unwind1; |
bds_unwind1; |
589 |
return; |
return; |
590 |
T177:; |
T259:; |
591 |
base[4]= Cnil; |
base[4]= Cnil; |
592 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
593 |
bds_unwind1; |
bds_unwind1; |
600 |
static L8() |
static L8() |
601 |
{register object *base=vs_base; |
{register object *base=vs_base; |
602 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
603 |
vs_reserve(VM8); |
vs_check; |
|
check_arg(0); |
|
604 |
vs_top=sup; |
vs_top=sup; |
605 |
TTL:;{object V59; |
TTL:;{object V77; |
606 |
V59= caddr(symbol_value(VV[20])); |
V77= CMPcaddr((VV[20]->s.s_dbind)); |
607 |
if(V59==Cnil)goto T200; |
if(V77==Cnil)goto T282; |
608 |
base[0]= V59; |
base[0]= V77; |
609 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
610 |
return; |
return; |
611 |
T200:;} |
T282:;} |
612 |
{object V60; |
{object V78; |
613 |
object V61; |
object V79; |
614 |
object V62; |
object V80; |
615 |
V60= Cnil; |
V78= Cnil; |
616 |
V61= car(cadr(symbol_value(VV[20]))); |
V79= CMPcar(CMPcadr((VV[20]->s.s_dbind))); |
617 |
if((V61)==Cnil){ |
if((V79)==Cnil){ |
618 |
V62= Cnil; |
V80= Cnil; |
619 |
goto T204;} |
goto T286;} |
620 |
base[2]= VV[21]; |
base[2]= VV[21]; |
621 |
base[3]= (V61); |
base[3]= (V79); |
622 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
623 |
(void) (*Lnk101)(); |
(void) (*Lnk102)(); |
624 |
vs_top=sup; |
vs_top=sup; |
625 |
V63= vs_base[0]; |
V81= vs_base[0]; |
626 |
V62= car(V63); |
V80= CMPcar(V81); |
627 |
T204:; |
T286:; |
628 |
if(((V62))==Cnil){ |
if(((V80))==Cnil){ |
629 |
goto T209;} |
goto T291;} |
630 |
base[2]= (V62); |
base[2]= (V80); |
631 |
base[3]= Cnil; |
base[3]= Cnil; |
632 |
base[4]= Cnil; |
base[4]= Cnil; |
633 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
634 |
(void) (*Lnk102)(); |
(void) (*Lnk103)(); |
635 |
vs_top=sup; |
vs_top=sup; |
636 |
V60= vs_base[0]; |
V78= vs_base[0]; |
637 |
{object V64; |
{object V82; |
638 |
V64= symbol_value(VV[20]); |
V82= (VV[20]->s.s_dbind); |
639 |
if(type_of(cddr((V64)))!=t_cons)FEwrong_type_argument(Scons,cddr((V64))); |
(CMPcddr((V82)))->c.c_car = V78; |
640 |
(cddr((V64)))->c.c_car = V60; |
(void)(CMPcddr((V82))); |
641 |
(void)(cddr((V64))); |
base[2]= V78; |
|
base[2]= V60; |
|
642 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
643 |
return;} |
return;} |
644 |
T209:; |
T291:; |
645 |
base[2]= Cnil; |
base[2]= Cnil; |
646 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
647 |
return;} |
return;} |
651 |
static L9() |
static L9() |
652 |
{register object *base=vs_base; |
{register object *base=vs_base; |
653 |
register object *sup=base+VM9; VC9 |
register object *sup=base+VM9; VC9 |
654 |
vs_reserve(VM9); |
vs_check; |
655 |
bds_check; |
bds_check; |
656 |
{register object V66; |
{register object V84; |
657 |
check_arg(1); |
V84=(base[0]); |
|
V66=(base[0]); |
|
658 |
vs_top=sup; |
vs_top=sup; |
659 |
TTL:; |
TTL:; |
660 |
{register object V67; |
{register object V85; |
661 |
register object V68; |
register object V86; |
662 |
V67= small_fixnum(0); |
V85= small_fixnum(0); |
663 |
V68= Cnil; |
V86= Cnil; |
664 |
bds_bind(VV[10],Ct); |
bds_bind(VV[10],Ct); |
665 |
bds_bind(VV[9],Cnil); |
bds_bind(VV[9],Cnil); |
666 |
{register object V69; |
{register object V87; |
667 |
vs_base=vs_top; |
vs_base=vs_top; |
668 |
(void) (*Lnk103)(); |
(void) (*Lnk104)(); |
669 |
vs_top=sup; |
vs_top=sup; |
670 |
V69= vs_base[0]; |
V87= vs_base[0]; |
671 |
if(((V69))==Cnil){ |
if(((V87))==Cnil){ |
672 |
goto T222;} |
goto T304;} |
673 |
base[3]= VV[22]; |
base[3]= VV[22]; |
674 |
base[5]= (V66); |
base[5]= (V84); |
675 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
676 |
(void) (*Lnk99)(); |
(void) (*Lnk100)(); |
677 |
vs_top=sup; |
vs_top=sup; |
678 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
679 |
base[5]= VV[23]; |
base[5]= VV[23]; |
680 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
681 |
(void) (*Lnk100)(); |
(void) (*Lnk101)(); |
682 |
vs_top=sup; |
vs_top=sup; |
683 |
V66= vs_base[0]; |
V84= vs_base[0]; |
684 |
T232:; |
T314:; |
685 |
{int V70= fix((VFUN_NARGS=3,(*(LnkLI92))((V66),(V69),(V67)))); |
{int V88= fix((VFUN_NARGS=3,(*(LnkLI93))((V84),(V87),(V85)))); |
686 |
if(!((/* INLINE-ARGS */V70)>=(0))){ |
if(!((/* INLINE-ARGS */V88)>=(0))){ |
687 |
goto T235;}} |
goto T317;}} |
688 |
goto T234; |
goto T316; |
689 |
T235:; |
T317:; |
690 |
goto T233; |
goto T315; |
691 |
T234:; |
T316:; |
692 |
V67= make_fixnum((*(LnkLI93))(0)); |
V85= CMPmake_fixnum((*(LnkLI94))(0)); |
693 |
base[3]= (V69); |
base[3]= (V87); |
694 |
base[4]= small_fixnum(1); |
base[4]= small_fixnum(1); |
695 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
696 |
(void) (*Lnk96)(); |
(void) (*Lnk97)(); |
697 |
vs_top=sup; |
vs_top=sup; |
698 |
V71= vs_base[0]; |
V89= vs_base[0]; |
699 |
base[3]= (V69); |
base[3]= (V87); |
700 |
base[4]= small_fixnum(2); |
base[4]= small_fixnum(2); |
701 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
702 |
(void) (*Lnk96)(); |
(void) (*Lnk97)(); |
703 |
vs_top=sup; |
vs_top=sup; |
704 |
V72= vs_base[0]; |
V90= vs_base[0]; |
705 |
V73= make_cons(V71,V72); |
V91= make_cons(V89,V90); |
706 |
V68= make_cons(/* INLINE-ARGS */V73,(V68)); |
V86= make_cons(/* INLINE-ARGS */V91,(V86)); |
707 |
goto T232; |
goto T314; |
708 |
T233:; |
T315:; |
709 |
goto T230; |
goto T312; |
710 |
goto T230; |
goto T312; |
711 |
T230:; |
T312:; |
712 |
base[3]= nreverse((V68)); |
base[3]= nreverse((V86)); |
713 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
714 |
bds_unwind1; |
bds_unwind1; |
715 |
bds_unwind1; |
bds_unwind1; |
716 |
return; |
return; |
717 |
T222:; |
T304:; |
718 |
base[3]= Cnil; |
base[3]= Cnil; |
719 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
720 |
bds_unwind1; |
bds_unwind1; |
727 |
static L10() |
static L10() |
728 |
{register object *base=vs_base; |
{register object *base=vs_base; |
729 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
730 |
vs_reserve(VM10); |
vs_check; |
731 |
bds_check; |
bds_check; |
732 |
{register object V74; |
{register object V92; |
733 |
object V75; |
object V93; |
734 |
check_arg(2); |
V92=(base[0]); |
735 |
V74=(base[0]); |
V93=(base[1]); |
|
V75=(base[1]); |
|
736 |
vs_top=sup; |
vs_top=sup; |
737 |
TTL:; |
TTL:; |
738 |
{object V76; |
{object V94; |
739 |
V76= (V74); |
V94= (V92); |
740 |
bds_bind(VV[9],Cnil); |
bds_bind(VV[9],Cnil); |
741 |
if(((V75))!=Cnil){ |
if(((V93))!=Cnil){ |
742 |
goto T250;} |
goto T332;} |
743 |
base[3]= small_fixnum(0); |
base[3]= small_fixnum(0); |
744 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
745 |
bds_unwind1; |
bds_unwind1; |
746 |
return; |
return; |
747 |
T250:; |
T332:; |
748 |
base[3]= VV[24]; |
base[3]= VV[24]; |
749 |
base[5]= (V74); |
base[5]= (V92); |
750 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
751 |
(void) (*Lnk99)(); |
(void) (*Lnk100)(); |
752 |
vs_top=sup; |
vs_top=sup; |
753 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
754 |
base[5]= VV[25]; |
base[5]= VV[25]; |
755 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
756 |
(void) (*Lnk100)(); |
(void) (*Lnk101)(); |
757 |
vs_top=sup; |
vs_top=sup; |
758 |
V74= vs_base[0]; |
V92= vs_base[0]; |
759 |
{int V77= fix((VFUN_NARGS=2,(*(LnkLI92))((V74),(V75)))); |
{int V95= fix((VFUN_NARGS=2,(*(LnkLI93))((V92),(V93)))); |
760 |
if(!((/* INLINE-ARGS */V77)>=(0))){ |
if(!((/* INLINE-ARGS */V95)>=(0))){ |
761 |
goto T259;}} |
goto T341;}} |
762 |
base[3]= (V75); |
base[3]= (V93); |
763 |
base[4]= make_fixnum((*(LnkLI94))(1)); |
base[4]= CMPmake_fixnum((*(LnkLI95))(1)); |
764 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
765 |
(void) (*Lnk95)(); |
(void) (*Lnk96)(); |
766 |
bds_unwind1; |
bds_unwind1; |
767 |
return; |
return; |
768 |
T259:; |
T341:; |
769 |
base[3]= VV[26]; |
base[3]= VV[26]; |
770 |
base[4]= (V76); |
base[4]= (V94); |
771 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
772 |
(void) (*Lnk97)(); |
(void) (*Lnk98)(); |
773 |
vs_top=sup; |
vs_top=sup; |
774 |
base[3]= small_fixnum(0); |
base[3]= small_fixnum(0); |
775 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
782 |
static L11() |
static L11() |
783 |
{register object *base=vs_base; |
{register object *base=vs_base; |
784 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
785 |
vs_reserve(VM11); |
vs_check; |
786 |
bds_check; |
bds_check; |
787 |
{object V78; |
{object V96; |
788 |
object V79; |
object V97; |
789 |
check_arg(2); |
V96=(base[0]); |
790 |
V78=(base[0]); |
V97=(base[1]); |
|
V79=(base[1]); |
|
791 |
vs_top=sup; |
vs_top=sup; |
792 |
TTL:; |
TTL:; |
793 |
{register int V80; |
{register int V98; |
794 |
V80= 0; |
V98= 0; |
795 |
bds_bind(VV[9],Cnil); |
bds_bind(VV[9],Cnil); |
796 |
{register object V81; |
{register object V99; |
797 |
register object V82; |
register object V100; |
798 |
register object V83; |
register object V101; |
799 |
V81= Cnil; |
V99= Cnil; |
800 |
V82= Cnil; |
V100= Cnil; |
801 |
V83= Cnil; |
V101= Cnil; |
802 |
T268:; |
T350:; |
803 |
V84 = make_fixnum(V80); |
V102 = CMPmake_fixnum(V98); |
804 |
V80= fix((VFUN_NARGS=3,(*(LnkLI92))((V78),(V79),V84))); |
V98= fix((VFUN_NARGS=3,(*(LnkLI93))((V96),(V97),V102))); |
805 |
if(!((V80)>=(0))){ |
if(!((V98)>=(0))){ |
806 |
goto T271;} |
goto T353;} |
807 |
goto T270; |
goto T352; |
808 |
T271:; |
T353:; |
809 |
goto T269; |
goto T351; |
810 |
T270:;{object V85; |
T352:;{object V103; |
811 |
V85= make_fixnum(V80); |
V103= CMPmake_fixnum(V98); |
812 |
V80= (*(LnkLI93))(0); |
V98= (*(LnkLI94))(0); |
813 |
V86 = make_fixnum(V80); |
V104 = CMPmake_fixnum(V98); |
814 |
V83= list(2,V85,V86);} |
V101= list(2,V103,V104);} |
815 |
if(((V82))==Cnil){ |
if(((V100))==Cnil){ |
816 |
goto T279;} |
goto T361;} |
817 |
{register object V87; |
{register object V105; |
818 |
register object V88; |
register object V106; |
819 |
V87= (V82); |
V105= (V100); |
820 |
V82= make_cons((V83),Cnil); |
V100= make_cons((V101),Cnil); |
821 |
V88= (V82); |
V106= (V100); |
822 |
if(type_of((V87))!=t_cons)FEwrong_type_argument(Scons,(V87)); |
((V105))->c.c_cdr = (V106); |
823 |
((V87))->c.c_cdr = (V88); |
goto T359;} |
824 |
goto T277;} |
T361:; |
825 |
T279:; |
V100= make_cons((V101),Cnil); |
826 |
V82= make_cons((V83),Cnil); |
V99= (V100); |
827 |
V81= (V82); |
T359:; |
828 |
T277:; |
goto T350; |
829 |
goto T268; |
T351:; |
830 |
T269:; |
base[3]= (V99); |
|
base[3]= (V81); |
|
831 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
832 |
bds_unwind1; |
bds_unwind1; |
833 |
return; |
return; |
846 |
static L12() |
static L12() |
847 |
{register object *base=vs_base; |
{register object *base=vs_base; |
848 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
849 |
vs_reserve(VM12); |
vs_check; |
|
check_arg(2); |
|
850 |
vs_top=sup; |
vs_top=sup; |
851 |
{object V89=base[0]->c.c_cdr; |
{object V107=base[0]->c.c_cdr; |
852 |
if(endp(V89))invalid_macro_call(); |
base[2]= (V107->c.c_car); |
853 |
base[2]= (V89->c.c_car); |
V107=V107->c.c_cdr; |
854 |
V89=V89->c.c_cdr; |
base[3]= (V107->c.c_car);} |
855 |
if(endp(V89))invalid_macro_call(); |
base[4]= base[2]; |
856 |
base[3]= (V89->c.c_car); |
base[5]= VV[28]; |
857 |
V89=V89->c.c_cdr; |
vs_top=(vs_base=base+4)+2; |
858 |
if(!endp(V89))invalid_macro_call();} |
(void) (*Lnk99)(); |
859 |
V90= (VFUN_NARGS=2,(*(LnkLI98))(base[2],VV[28])); |
vs_top=sup; |
860 |
base[4]= list(3,VV[27],/* INLINE-ARGS */V90,base[3]); |
V108= vs_base[0]; |
861 |
|
base[4]= list(3,VV[27],V108,base[3]); |
862 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
863 |
return; |
return; |
864 |
} |
} |
867 |
static L13() |
static L13() |
868 |
{register object *base=vs_base; |
{register object *base=vs_base; |
869 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM13; VC13 |
870 |
vs_reserve(VM13); |
vs_check; |
871 |
{object V91; |
{object V109; |
872 |
check_arg(1); |
V109=(base[0]); |
|
V91=(base[0]); |
|
873 |
vs_top=sup; |
vs_top=sup; |
874 |
TTL:; |
TTL:; |
875 |
base[1]= number_plus(car(cadr(cddddr((V91)))),cadr((V91))); |
base[1]= number_plus(CMPcar(CMPcadr(CMPcddddr((V109)))),CMPcadr((V109))); |
876 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
877 |
return; |
return; |
878 |
} |
} |
882 |
static L14() |
static L14() |
883 |
{register object *base=vs_base; |
{register object *base=vs_base; |
884 |
register object *sup=base+VM14; VC14 |
register object *sup=base+VM14; VC14 |
885 |
vs_reserve(VM14); |
vs_check; |
886 |
bds_check; |
bds_check; |
887 |
{register object V92; |
{register object V110; |
888 |
check_arg(1); |
V110=(base[0]); |
|
V92=(base[0]); |
|
889 |
vs_top=sup; |
vs_top=sup; |
890 |
TTL:; |
TTL:; |
891 |
{object V93; |
{object V111; |
892 |
register object V94; |
register object V112; |
893 |
V93= Cnil; |
V111= Cnil; |
894 |
V94= Cnil; |
V112= Cnil; |
895 |
if(!((symbol_value(VV[29]))==(symbol_value(VV[30])))){ |
if(!(((VV[29]->s.s_dbind))==((VV[30]->s.s_dbind)))){ |
896 |
goto T292;} |
goto T377;} |
897 |
goto T291; |
goto T376; |
898 |
T292:; |
T377:; |
899 |
setq(VV[29],symbol_value(VV[30])); |
(VV[29]->s.s_dbind)= (VV[30]->s.s_dbind); |
900 |
base[1]= symbol_value(VV[30]); |
base[1]= (VV[30]->s.s_dbind); |
901 |
base[2]= VV[32]; |
base[2]= VV[32]; |
902 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
903 |
(void) (*Lnk100)(); |
(void) (*Lnk101)(); |
904 |
vs_top=sup; |
vs_top=sup; |
905 |
V95= vs_base[0]; |
V113= vs_base[0]; |
906 |
setq(VV[31],make_cons(V95,symbol_value(VV[31]))); |
(VV[31]->s.s_dbind)= make_cons(V113,(VV[31]->s.s_dbind)); |
907 |
base[1]= symbol_value(VV[31]); |
base[1]= (VV[31]->s.s_dbind); |
908 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
909 |
(void) (*Lnk104)(); |
(void) (*Lnk105)(); |
910 |
vs_top=sup; |
vs_top=sup; |
911 |
setq(VV[31],vs_base[0]); |
(VV[31]->s.s_dbind)= vs_base[0]; |
912 |
T291:; |
T376:; |
913 |
if(!(equal((V92),VV[33]))){ |
if(!(equal((V110),VV[33]))){ |
914 |
goto T303;} |
goto T388;} |
915 |
V92= VV[34]; |
V110= VV[34]; |
916 |
T303:; |
T388:; |
917 |
base[1]= (V92); |
base[1]= (V110); |
918 |
base[2]= symbol_value(VV[31]); |
base[2]= (VV[31]->s.s_dbind); |
919 |
base[3]= VV[35]; |
base[3]= VV[35]; |
920 |
base[4]= Cnil; |
base[4]= Cnil; |
921 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
922 |
(void) (*Lnk105)(); |
(void) (*Lnk106)(); |
923 |
vs_top=sup; |
vs_top=sup; |
924 |
V94= vs_base[0]; |
V112= vs_base[0]; |
925 |
if(((V94))!=Cnil){ |
if(((V112))!=Cnil){ |
926 |
goto T313;} |
goto T398;} |
927 |
if(equal((V92),VV[36])){ |
if(equal((V110),VV[36])){ |
928 |
goto T313;} |
goto T398;} |
929 |
{object V96; |
{object V114; |
930 |
base[3]= VV[37]; |
base[3]= VV[37]; |
931 |
base[4]= Cnil; |
base[4]= Cnil; |
932 |
base[5]= Cnil; |
base[5]= Cnil; |
933 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
934 |
(void) (*Lnk102)(); |
(void) (*Lnk103)(); |
935 |
vs_top=sup; |
vs_top=sup; |
936 |
V96= vs_base[0]; |
V114= vs_base[0]; |
937 |
bds_bind(VV[10],Cnil); |
bds_bind(VV[10],Cnil); |
938 |
base[3]= VV[38]; |
base[3]= VV[38]; |
939 |
base[5]= (V92); |
base[5]= (V110); |
940 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
941 |
(void) (*Lnk99)(); |
(void) (*Lnk100)(); |
942 |
vs_top=sup; |
vs_top=sup; |
943 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
944 |
base[5]= VV[39]; |
base[5]= VV[39]; |
945 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
946 |
(void) (*Lnk100)(); |
(void) (*Lnk101)(); |
947 |
vs_top=sup; |
vs_top=sup; |
948 |
V97= vs_base[0]; |
V115= vs_base[0]; |
949 |
{int V98= fix((VFUN_NARGS=2,(*(LnkLI92))(V97,(V96)))); |
{int V116= fix((VFUN_NARGS=2,(*(LnkLI93))(V115,(V114)))); |
950 |
if(!((/* INLINE-ARGS */V98)>=(0))){ |
if(!((/* INLINE-ARGS */V116)>=(0))){ |
951 |
bds_unwind1; |
bds_unwind1; |
952 |
goto T313;}} |
goto T398;}} |
953 |
base[3]= (V96); |
base[3]= (V114); |
954 |
base[4]= small_fixnum(1); |
base[4]= small_fixnum(1); |
955 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
956 |
(void) (*Lnk96)(); |
(void) (*Lnk97)(); |
957 |
vs_top=sup; |
vs_top=sup; |
958 |
V94= vs_base[0]; |
V112= vs_base[0]; |
959 |
bds_unwind1;} |
bds_unwind1;} |
960 |
T313:; |
T398:; |
961 |
if(((V94))==Cnil){ |
if(((V112))==Cnil){ |
962 |
goto T334;} |
goto T419;} |
963 |
{object V99; |
{object V117; |
964 |
base[3]= (V94); |
base[3]= (V112); |
965 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
966 |
Ltruename(); |
Ltruename(); |
967 |
vs_top=sup; |
vs_top=sup; |
969 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
970 |
Lnamestring(); |
Lnamestring(); |
971 |
vs_top=sup; |
vs_top=sup; |
972 |
V99= vs_base[0]; |
V117= vs_base[0]; |
973 |
{register object x= (V99),V100= symbol_value(VV[40]); |
{register object x= (V117),V118= (VV[40]->s.s_dbind); |
974 |
while(!endp(V100)) |
while(V118!=Cnil) |
975 |
if(type_of(V100->c.c_car)==t_cons &&equal(x,V100->c.c_car->c.c_car)){ |
if(equal(x,V118->c.c_car->c.c_car) &&V118->c.c_car != Cnil){ |
976 |
V93= (V100->c.c_car); |
V111= (V118->c.c_car); |
977 |
goto T342; |
goto T427; |
978 |
}else V100=V100->c.c_cdr; |
}else V118=V118->c.c_cdr; |
979 |
V93= Cnil;} |
V111= Cnil;} |
980 |
T342:; |
T427:; |
981 |
if(((V93))==Cnil){ |
if(((V111))==Cnil){ |
982 |
goto T340;} |
goto T425;} |
983 |
setq(VV[20],(V93)); |
(VV[20]->s.s_dbind)= (V111); |
984 |
goto T332; |
goto T417; |
985 |
T340:; |
T425:; |
986 |
base[2]= (V99); |
base[2]= (V117); |
987 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
988 |
(void) (*Lnk106)(); |
(void) (*Lnk107)(); |
989 |
vs_top=sup; |
vs_top=sup; |
990 |
V101= vs_base[0]; |
V119= vs_base[0]; |
991 |
setq(VV[20],list(3,(V99),V101,Cnil)); |
(VV[20]->s.s_dbind)= list(3,(V117),V119,Cnil); |
992 |
setq(VV[40],make_cons(symbol_value(VV[20]),symbol_value(VV[40]))); |
(VV[40]->s.s_dbind)= make_cons((VV[20]->s.s_dbind),(VV[40]->s.s_dbind)); |
993 |
goto T332;} |
goto T417;} |
994 |
T334:; |
T419:; |
995 |
base[1]= Ct; |
base[1]= Ct; |
996 |
base[2]= VV[41]; |
base[2]= VV[41]; |
997 |
base[3]= (V92); |
base[3]= (V110); |
998 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
999 |
Lformat(); |
Lformat(); |
1000 |
vs_top=sup; |
vs_top=sup; |
1001 |
T332:; |
T417:; |
1002 |
base[1]= Cnil; |
base[1]= Cnil; |
1003 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1004 |
return;} |
return;} |
1009 |
static L15() |
static L15() |
1010 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1011 |
register object *sup=base+VM15; VC15 |
register object *sup=base+VM15; VC15 |
1012 |
vs_reserve(VM15); |
vs_check; |
1013 |
{object V102; |
{object V120; |
1014 |
object V103; |
object V121; |
1015 |
check_arg(2); |
V120=(base[0]); |
1016 |
V102=(base[0]); |
V121=(base[1]); |
|
V103=(base[1]); |
|
1017 |
vs_top=sup; |
vs_top=sup; |
1018 |
TTL:; |
TTL:; |
1019 |
if(!(eql((V103),VV[42]))){ |
if(!(eql((V121),VV[42]))){ |
1020 |
goto T353;} |
goto T438;} |
1021 |
base[2]= (V102); |
base[2]= (V120); |
1022 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1023 |
(void) (*Lnk107)(); |
(void) (*Lnk108)(); |
1024 |
return; |
return; |
1025 |
T353:; |
T438:; |
1026 |
base[2]= (V102); |
base[2]= (V120); |
1027 |
base[3]= car(cadr(symbol_value(VV[20]))); |
base[3]= CMPcar(CMPcadr((VV[20]->s.s_dbind))); |
1028 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1029 |
(void) (*Lnk101)(); |
(void) (*Lnk102)(); |
1030 |
return; |
return; |
1031 |
} |
} |
1032 |
} |
} |
1035 |
static L16() |
static L16() |
1036 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1037 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM16; VC16 |
1038 |
vs_reserve(VM16); |
vs_check; |
1039 |
{object V104; |
{object V122; |
1040 |
register object V105; |
register object V123; |
1041 |
check_arg(2); |
V122=(base[0]); |
1042 |
V104=(base[0]); |
V123=(base[1]); |
|
V105=(base[1]); |
|
1043 |
vs_top=sup; |
vs_top=sup; |
1044 |
TTL:; |
TTL:; |
1045 |
{register object V106; |
{register object V124; |
1046 |
V106= (V104); |
V124= (V122); |
1047 |
T361:; |
T446:; |
1048 |
if((V106)!=Cnil){ |
if((V124)!=Cnil){ |
1049 |
goto T363;} |
goto T448;} |
1050 |
goto T362; |
goto T447; |
1051 |
T363:; |
T448:; |
1052 |
{register object V107; |
{register object V125; |
1053 |
register object V108; |
register object V126; |
1054 |
V107= (V106); |
V125= (V124); |
1055 |
V108= list(2,car((V106)),(V105)); |
V126= list(2,CMPcar((V124)),(V123)); |
1056 |
if(type_of((V107))!=t_cons)FEwrong_type_argument(Scons,(V107)); |
((V125))->c.c_car = (V126);} |
1057 |
((V107))->c.c_car = (V108);} |
V124= CMPcdr((V124)); |
1058 |
V106= cdr((V106)); |
goto T446; |
1059 |
goto T361; |
T447:; |
1060 |
T362:; |
goto T444; |
1061 |
goto T359; |
goto T444; |
1062 |
goto T359; |
T444:; |
1063 |
T359:; |
base[2]= (V122); |
|
base[2]= (V104); |
|
1064 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1065 |
return;} |
return;} |
1066 |
} |
} |
1070 |
static L17() |
static L17() |
1071 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1072 |
register object *sup=base+VM17; VC17 |
register object *sup=base+VM17; VC17 |
1073 |
vs_reserve(VM17); |
vs_check; |
1074 |
{object V109; |
{object V127; |
1075 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
1076 |
{object *p=vs_top; |
{object *p=vs_top; |
1077 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1078 |
V109=(base[0]); |
V127=(base[0]); |
1079 |
vs_top=sup; |
vs_top=sup; |
1080 |
if((symbol_value(VV[43]))==Cnil){ |
if(((VV[43]->s.s_dbind))==Cnil){ |
1081 |
goto T372;} |
goto T457;} |
1082 |
base[2]= Cnil; |
base[2]= Cnil; |
1083 |
{object V110; |
{object V128; |
1084 |
V110= (V109); |
V128= (V127); |
1085 |
vs_top=base+3; |
vs_top=base+3; |
1086 |
while(!endp(V110)) |
while(V128!=Cnil) |
1087 |
{vs_push(car(V110));V110=cdr(V110);} |
{vs_push((V128)->c.c_car);V128=(V128)->c.c_cdr;} |
1088 |
vs_base=base+2;} |
vs_base=base+2;} |
1089 |
Lformat(); |
Lformat(); |
1090 |
vs_top=sup; |
vs_top=sup; |
1091 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
1092 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1093 |
(void) (*Lnk108)(); |
(void) (*Lnk109)(); |
1094 |
return; |
return; |
1095 |
T372:; |
T457:; |
1096 |
{object V111; |
{object V129; |
1097 |
V111= (V109); |
V129= (V127); |
1098 |
vs_top=base+1; |
vs_top=base+1; |
1099 |
while(!endp(V111)) |
while(V129!=Cnil) |
1100 |
{vs_push(car(V111));V111=cdr(V111);} |
{vs_push((V129)->c.c_car);V129=(V129)->c.c_cdr;} |
1101 |
vs_base=base+1;} |
vs_base=base+1;} |
1102 |
Lerror(); |
Lerror(); |
1103 |
return; |
return; |
1108 |
static L18() |
static L18() |
1109 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1110 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM18; VC18 |
1111 |
vs_reserve(VM18); |
vs_check; |
1112 |
{register object V112; |
{register object V130; |
1113 |
check_arg(1); |
V130=(base[0]); |
|
V112=(base[0]); |
|
1114 |
vs_top=sup; |
vs_top=sup; |
1115 |
TTL:; |
TTL:; |
1116 |
base[1]= (V112); |
base[1]= (V130); |
1117 |
base[2]= car(symbol_value(VV[20])); |
base[2]= CMPcar((VV[20]->s.s_dbind)); |
1118 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1119 |
Lmerge_pathnames(); |
Lmerge_pathnames(); |
1120 |
vs_top=sup; |
vs_top=sup; |
1121 |
V112= vs_base[0]; |
V130= vs_base[0]; |
1122 |
if(!(equal(car(symbol_value(VV[44])),(V112)))){ |
if(!(equal(CMPcar((VV[44]->s.s_dbind)),(V130)))){ |
1123 |
goto T384;} |
goto T469;} |
1124 |
V113= symbol_value(VV[44]); |
V131= (VV[44]->s.s_dbind); |
1125 |
goto T382; |
goto T467; |
1126 |
T384:; |
T469:; |
1127 |
base[1]= (V112); |
base[1]= (V130); |
1128 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1129 |
(void) (*Lnk91)(); |
(void) (*Lnk92)(); |
1130 |
vs_top=sup; |
vs_top=sup; |
1131 |
V114= vs_base[0]; |
V132= vs_base[0]; |
1132 |
setq(VV[44],make_cons((V112),V114)); |
(VV[44]->s.s_dbind)= make_cons((V130),V132); |
1133 |
V113= symbol_value(VV[44]); |
V131= (VV[44]->s.s_dbind); |
1134 |
T382:; |
T467:; |
1135 |
base[1]= cdr(V113); |
base[1]= CMPcdr(V131); |
1136 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1137 |
return; |
return; |
1138 |
} |
} |
1142 |
static L19() |
static L19() |
1143 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1144 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
1145 |
vs_reserve(VM19); |
vs_check; |
1146 |
{object V115; |
{object V133; |
1147 |
check_arg(1); |
V133=(base[0]); |
|
V115=(base[0]); |
|
1148 |
vs_top=sup; |
vs_top=sup; |
1149 |
TTL:; |
TTL:; |
1150 |
if(symbol_value(VV[43])==Cnil){ |
if((VV[43]->s.s_dbind)==Cnil){ |
1151 |
base[1]= Cnil; |
base[1]= Cnil; |
1152 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1153 |
return;} |
return;} |
1154 |
base[1]= (V115); |
base[1]= (V133); |
1155 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1156 |
Lfboundp(); |
Lfboundp(); |
1157 |
vs_top=sup; |
vs_top=sup; |
1158 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1159 |
goto T389;} |
goto T474;} |
1160 |
base[1]= Cnil; |
base[1]= Cnil; |
1161 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1162 |
return; |
return; |
1163 |
T389:; |
T474:; |
1164 |
base[1]= VV[45]; |
base[1]= VV[45]; |
1165 |
base[2]= (V115); |
base[2]= (V133); |
1166 |
base[3]= VV[46]; |
base[3]= VV[46]; |
1167 |
base[4]= VV[47]; |
base[4]= VV[47]; |
1168 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
1169 |
(void) (*Lnk109)(); |
(void) (*Lnk110)(); |
1170 |
vs_top=sup; |
vs_top=sup; |
1171 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1172 |
goto T392;} |
goto T477;} |
1173 |
base[1]= Cnil; |
base[1]= Cnil; |
1174 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1175 |
return; |
return; |
1176 |
T392:; |
T477:; |
1177 |
base[1]= VV[48]; |
base[1]= VV[48]; |
1178 |
base[2]= VV[49]; |
base[2]= VV[49]; |
1179 |
base[3]= VV[50]; |
base[3]= VV[50]; |
1180 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1181 |
super_funcall_no_event((V115)); |
super_funcall_no_event((V133)); |
1182 |
return; |
return; |
1183 |
} |
} |
1184 |
} |
} |
1187 |
static L20() |
static L20() |
1188 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1189 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
1190 |
vs_reserve(VM20); |
vs_check; |
1191 |
{object V116; |
{object V134; |
1192 |
check_arg(1); |
V134=(base[0]); |
|
V116=(base[0]); |
|
1193 |
vs_top=sup; |
vs_top=sup; |
1194 |
TTL:; |
TTL:; |
1195 |
base[1]= (V116); |
base[1]= (V134); |
1196 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1197 |
Lfboundp(); |
Lfboundp(); |
1198 |
vs_top=sup; |
vs_top=sup; |
1199 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1200 |
goto T401;} |
goto T486;} |
1201 |
base[1]= Cnil; |
base[1]= Cnil; |
1202 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1203 |
return; |
return; |
1204 |
T401:; |
T486:; |
1205 |
base[1]= VV[48]; |
base[1]= VV[48]; |
1206 |
base[2]= VV[49]; |
base[2]= VV[49]; |
1207 |
base[3]= VV[51]; |
base[3]= VV[51]; |
1208 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1209 |
super_funcall_no_event((V116)); |
super_funcall_no_event((V134)); |
1210 |
return; |
return; |
1211 |
} |
} |
1212 |
} |
} |
1215 |
static L21() |
static L21() |
1216 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1217 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM21; VC21 |
1218 |
vs_reserve(VM21); |
vs_check; |
1219 |
{register object V117; |
{register object V135; |
1220 |
check_arg(1); |
V135=(base[0]); |
1221 |
V117=(base[0]); |
vs_top=sup; |
1222 |
vs_top=sup; |
TTL:; |
1223 |
TTL:; |
{object V136; |
1224 |
{object V118; |
register object V137; |
1225 |
register object V119; |
register object V138; |
1226 |
register object V120; |
V136= CMPcdr(CMPcadr((VV[20]->s.s_dbind))); |
1227 |
V118= cdr(cadr(symbol_value(VV[20]))); |
V137= Cnil; |
1228 |
V119= Cnil; |
V138= Cnil; |
1229 |
V120= Cnil; |
if((V136)==Cnil){ |
1230 |
if((V118)==Cnil){ |
goto T493;} |
1231 |
goto T408;} |
if(number_compare((V135),small_fixnum(0))>=0){ |
1232 |
if(number_compare((V117),small_fixnum(0))>=0){ |
goto T494;} |
1233 |
goto T409;} |
goto T493; |
1234 |
goto T408; |
T494:; |
1235 |
T409:; |
{register object V139; |
1236 |
{register object V121; |
register object V140; |
1237 |
register object V122; |
V139= (V136); |
1238 |
V121= (V118); |
V140= CMPcar((V139)); |
1239 |
V122= car((V121)); |
T499:; |
1240 |
T414:; |
if(!(((V139))==Cnil)){ |
1241 |
if(!(endp((V121)))){ |
goto T500;} |
1242 |
goto T415;} |
goto T493; |
1243 |
goto T408; |
T500:; |
1244 |
T415:; |
if(!(number_compare(CMPcar((V140)),(V135))>0)){ |
1245 |
if(!(number_compare(car((V122)),(V117))>0)){ |
goto T504;} |
1246 |
goto T419;} |
V138= CMPcar((V140)); |
1247 |
V120= car((V122)); |
goto T493; |
1248 |
goto T408; |
T504:; |
1249 |
T419:; |
V137= (V140); |
1250 |
V119= (V122); |
V139= CMPcdr((V139)); |
1251 |
V121= cdr((V121)); |
V140= CMPcar((V139)); |
1252 |
V122= car((V121)); |
goto T499;} |
1253 |
goto T414;} |
T493:; |
1254 |
T408:; |
if((V137)!=Cnil){ |
1255 |
if((V119)!=Cnil){ |
base[1]= (V137); |
1256 |
base[1]= (V119); |
goto T516;} |
1257 |
goto T431;} |
base[1]= make_cons(small_fixnum(0),CMPcar((VV[20]->s.s_dbind))); |
1258 |
base[1]= make_cons(small_fixnum(0),car(symbol_value(VV[20]))); |
T516:; |
1259 |
T431:; |
base[2]= (V138); |
|
base[2]= (V120); |
|
1260 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1261 |
return;} |
return;} |
1262 |
} |
} |
1266 |
static L22() |
static L22() |
1267 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1268 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM22; VC22 |
1269 |
vs_reserve(VM22); |
vs_check; |
1270 |
{object V123; |
{object V141; |
1271 |
check_arg(1); |
V141=(base[0]); |
|
V123=(base[0]); |
|
1272 |
vs_top=sup; |
vs_top=sup; |
1273 |
TTL:; |
TTL:; |
1274 |
{register object V124; |
{register object V142; |
1275 |
V124= small_fixnum(0); |
V142= small_fixnum(0); |
1276 |
{object V125; |
{object V143; |
1277 |
register object V126; |
register object V144; |
1278 |
register object V127; |
register object V145; |
1279 |
base[4]= (V123); |
base[4]= (V141); |
1280 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1281 |
(void) (*Lnk110)(); |
(void) (*Lnk111)(); |
1282 |
vs_top=sup; |
vs_top=sup; |
1283 |
V125= vs_base[0]; |
V143= vs_base[0]; |
1284 |
base[4]= cdr((V125)); |
base[4]= CMPcdr((V143)); |
1285 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1286 |
(void) (*Lnk111)(); |
(void) (*Lnk112)(); |
1287 |
vs_top=sup; |
vs_top=sup; |
1288 |
V126= vs_base[0]; |
V144= vs_base[0]; |
1289 |
V127= number_minus((V123),car((V125))); |
V145= number_minus((V141),CMPcar((V143))); |
1290 |
T441:; |
T526:; |
1291 |
{int V128= fix((VFUN_NARGS=4,(*(LnkLI92))(VV[52],(V126),(V124),(V127)))); |
{int V146= fix((VFUN_NARGS=4,(*(LnkLI93))(VV[52],(V144),(V142),(V145)))); |
1292 |
if(!((/* INLINE-ARGS */V128)>=(0))){ |
if(!((/* INLINE-ARGS */V146)>=(0))){ |
1293 |
goto T444;}} |
goto T529;}} |
1294 |
goto T443; |
goto T528; |
1295 |
T444:; |
T529:; |
1296 |
goto T442; |
goto T527; |
1297 |
T443:; |
T528:; |
1298 |
V124= make_fixnum((*(LnkLI93))(0)); |
V142= CMPmake_fixnum((*(LnkLI94))(0)); |
1299 |
goto T441; |
goto T526; |
1300 |
T442:; |
T527:; |
1301 |
goto T439; |
goto T524; |
1302 |
goto T439; |
goto T524; |
1303 |
T439:; |
T524:; |
1304 |
V124= number_minus((V124),small_fixnum(1)); |
V142= number_minus((V142),small_fixnum(1)); |
1305 |
{int V129= fix((VFUN_NARGS=3,(*(LnkLI92))(VV[53],(V126),(V124)))); |
{int V147= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[53],(V144),(V142)))); |
1306 |
if(!((/* INLINE-ARGS */V129)>=(0))){ |
if(!((/* INLINE-ARGS */V147)>=(0))){ |
1307 |
goto T452;}} |
goto T537;}} |
1308 |
{object V130; |
{object V148; |
1309 |
object V131; |
object V149; |
1310 |
object V132; |
object V150; |
1311 |
object V133; |
object V151; |
1312 |
object V134; |
object V152; |
1313 |
V130= make_fixnum((*(LnkLI94))(0)); |
V148= CMPmake_fixnum((*(LnkLI95))(0)); |
1314 |
V131= make_fixnum((*(LnkLI93))(0)); |
V149= CMPmake_fixnum((*(LnkLI94))(0)); |
1315 |
base[9]= (V126); |
base[9]= (V144); |
1316 |
base[10]= small_fixnum(1); |
base[10]= small_fixnum(1); |
1317 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+9)+2; |
1318 |
(void) (*Lnk96)(); |
(void) (*Lnk97)(); |
1319 |
vs_top=sup; |
vs_top=sup; |
1320 |
V132= vs_base[0]; |
V150= vs_base[0]; |
1321 |
{int V135= fix((VFUN_NARGS=3,(*(LnkLI92))(VV[54],(V126),(V131)))); |
{int V153= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[54],(V144),(V149)))); |
1322 |
if(!((/* INLINE-ARGS */V135)>=(0))){ |
if(!((/* INLINE-ARGS */V153)>=(0))){ |
1323 |
goto T461;}} |
goto T546;}} |
1324 |
V133= make_fixnum((*(LnkLI94))(0)); |
V151= CMPmake_fixnum((*(LnkLI95))(0)); |
1325 |
goto T459; |
goto T544; |
1326 |
T461:; |
T546:; |
1327 |
V133= make_fixnum(length((V126))); |
V151= CMPmake_fixnum(length((V144))); |
1328 |
T459:; |
T544:; |
1329 |
V134= listA(7,(V126),(V131),(V133),(V130),(V132),(V125),symbol_value(VV[20])); |
V152= listA(7,(V144),(V149),(V151),(V148),(V150),(V143),(VV[20]->s.s_dbind)); |
1330 |
base[9]= (V134); |
base[9]= (V152); |
1331 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
1332 |
return;} |
return;} |
1333 |
T452:; |
T537:; |
1334 |
base[4]= Cnil; |
base[4]= Cnil; |
1335 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1336 |
return;}} |
return;}} |
1341 |
static L23() |
static L23() |
1342 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1343 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM23; VC23 |
1344 |
vs_reserve(VM23); |
vs_check; |
1345 |
bds_check; |
bds_check; |
1346 |
{register object V136; |
{register object V154; |
1347 |
register object V137; |
register object V155; |
1348 |
object V138; |
object V156; |
1349 |
if(vs_top-vs_base<1) too_few_arguments(); |
V154=(base[0]); |
|
if(vs_top-vs_base>3) too_many_arguments(); |
|
|
V136=(base[0]); |
|
1350 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
1351 |
if(vs_base>=vs_top){vs_top=sup;goto T464;} |
if(vs_base>=vs_top){vs_top=sup;goto T549;} |
1352 |
V137=(base[1]); |
V155=(base[1]); |
1353 |
vs_base++; |
vs_base++; |
1354 |
if(vs_base>=vs_top){vs_top=sup;goto T465;} |
if(vs_base>=vs_top){vs_top=sup;goto T550;} |
1355 |
V138=(base[2]); |
V156=(base[2]); |
1356 |
vs_top=sup; |
vs_top=sup; |
1357 |
goto T466; |
goto T551; |
1358 |
T464:; |
T549:; |
1359 |
V137= Cnil; |
V155= Cnil; |
1360 |
T465:; |
T550:; |
1361 |
V138= symbol_value(VV[43]); |
V156= (VV[43]->s.s_dbind); |
1362 |
T466:; |
T551:; |
1363 |
{register object V139; |
{register object V157; |
1364 |
register object V140; |
register object V158; |
1365 |
register int V141; |
register int V159; |
1366 |
int V142; |
int V160; |
1367 |
V139= Cnil; |
V157= Cnil; |
1368 |
bds_bind(VV[9],Cnil); |
bds_bind(VV[9],Cnil); |
1369 |
V140= Cnil; |
V158= Cnil; |
1370 |
V141= 0; |
V159= 0; |
1371 |
V142= -1; |
V160= -1; |
1372 |
if(!(type_of((V136))==t_cons)){ |
if(!(type_of((V154))==t_cons)){ |
1373 |
goto T474;} |
goto T559;} |
1374 |
if(!(type_of(cdr((V136)))==t_cons)){ |
if(!(type_of(CMPcdr((V154)))==t_cons)){ |
1375 |
goto T474;} |
goto T559;} |
1376 |
V140= cadr((V136)); |
V158= CMPcadr((V154)); |
1377 |
V136= car((V136)); |
V154= CMPcar((V154)); |
1378 |
T474:; |
T559:; |
1379 |
if(!(type_of((V136))==t_cons)){ |
if(!(type_of((V154))==t_cons)){ |
1380 |
goto T473;} |
goto T558;} |
1381 |
V137= car((V136)); |
V155= CMPcar((V154)); |
1382 |
V136= cdr((V136)); |
V154= CMPcdr((V154)); |
1383 |
T473:; |
T558:; |
1384 |
if(!(type_of((V136))==t_string)){ |
if(!(type_of((V154))==t_string)){ |
1385 |
goto T488;} |
goto T573;} |
1386 |
goto T487; |
goto T572; |
1387 |
T488:; |
T573:; |
1388 |
base[4]= VV[55]; |
base[4]= VV[55]; |
1389 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1390 |
(void) (*Lnk97)(); |
(void) (*Lnk98)(); |
1391 |
vs_top=sup; |
vs_top=sup; |
1392 |
T487:; |
T572:; |
1393 |
base[4]= symbol_value(VV[56]); |
base[4]= (VV[56]->s.s_dbind); |
1394 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1395 |
(void) (*Lnk112)(); |
(void) (*Lnk113)(); |
1396 |
vs_top=sup; |
vs_top=sup; |
1397 |
{int V143= fix((VFUN_NARGS=2,(*(LnkLI92))(VV[57],(V136)))); |
{int V161= fix((VFUN_NARGS=2,(*(LnkLI93))(VV[57],(V154)))); |
1398 |
if(!((/* INLINE-ARGS */V143)>=(0))){ |
if(!((/* INLINE-ARGS */V161)>=(0))){ |
1399 |
goto T493;}} |
goto T578;}} |
1400 |
base[4]= (V136); |
base[4]= (V154); |
1401 |
base[5]= small_fixnum(1); |
base[5]= small_fixnum(1); |
1402 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1403 |
(void) (*Lnk96)(); |
(void) (*Lnk97)(); |
1404 |
vs_top=sup; |
vs_top=sup; |
1405 |
V140= vs_base[0]; |
V158= vs_base[0]; |
1406 |
base[4]= (V136); |
base[4]= (V154); |
1407 |
base[5]= small_fixnum(2); |
base[5]= small_fixnum(2); |
1408 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1409 |
(void) (*Lnk96)(); |
(void) (*Lnk97)(); |
1410 |
vs_top=sup; |
vs_top=sup; |
1411 |
V136= vs_base[0]; |
V154= vs_base[0]; |
1412 |
if(!(equal((V136),VV[58]))){ |
if(!(equal((V154),VV[58]))){ |
1413 |
goto T493;} |
goto T578;} |
1414 |
V136= VV[59]; |
V154= VV[59]; |
1415 |
T493:; |
T578:; |
1416 |
if(((V140))==Cnil){ |
if(((V158))==Cnil){ |
1417 |
goto T507;} |
goto T592;} |
1418 |
base[4]= (V140); |
base[4]= (V158); |
1419 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1420 |
(void) (*Lnk113)(); |
(void) (*Lnk114)(); |
1421 |
vs_top=sup; |
vs_top=sup; |
1422 |
T507:; |
T592:; |
1423 |
{object V144; |
{object V162; |
1424 |
base[4]= (V136); |
base[4]= (V154); |
1425 |
base[5]= car(cadr(symbol_value(VV[20]))); |
base[5]= CMPcar(CMPcadr((VV[20]->s.s_dbind))); |
1426 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1427 |
(void) (*Lnk114)(); |
(void) (*Lnk115)(); |
1428 |
vs_top=sup; |
vs_top=sup; |
1429 |
V144= vs_base[0]; |
V162= vs_base[0]; |
1430 |
if(((V144))!=Cnil){ |
if(((V162))!=Cnil){ |
1431 |
goto T514;} |
goto T599;} |
1432 |
base[4]= Ct; |
base[4]= Ct; |
1433 |
base[5]= VV[60]; |
base[5]= VV[60]; |
1434 |
base[6]= (V136); |
base[6]= (V154); |
1435 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
1436 |
Lformat(); |
Lformat(); |
1437 |
vs_top=sup; |
vs_top=sup; |
1439 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1440 |
bds_unwind1; |
bds_unwind1; |
1441 |
return; |
return; |
1442 |
T514:; |
T599:; |
1443 |
base[4]= (V144); |
base[4]= (V162); |
1444 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1445 |
(void) (*Lnk110)(); |
(void) (*Lnk111)(); |
1446 |
vs_top=sup; |
vs_top=sup; |
1447 |
V139= vs_base[0]; |
V157= vs_base[0]; |
1448 |
{register object V145; |
{register object V163; |
1449 |
object V146; |
object V164; |
1450 |
base[6]= cdr((V139)); |
base[6]= CMPcdr((V157)); |
1451 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1452 |
(void) (*Lnk111)(); |
(void) (*Lnk112)(); |
1453 |
vs_top=sup; |
vs_top=sup; |
1454 |
V145= vs_base[0]; |
V163= vs_base[0]; |
1455 |
V146= number_minus((V144),car((V139))); |
V164= number_minus((V162),CMPcar((V157))); |
1456 |
base[6]= VV[61]; |
base[6]= VV[61]; |
1457 |
base[8]= (V136); |
base[8]= (V154); |
1458 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1459 |
(void) (*Lnk99)(); |
(void) (*Lnk100)(); |
1460 |
vs_top=sup; |
vs_top=sup; |
1461 |
base[7]= vs_base[0]; |
base[7]= vs_base[0]; |
1462 |
base[8]= VV[62]; |
base[8]= VV[62]; |
1463 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
1464 |
(void) (*Lnk100)(); |
(void) (*Lnk101)(); |
1465 |
vs_top=sup; |
vs_top=sup; |
1466 |
V147= vs_base[0]; |
V165= vs_base[0]; |
1467 |
{int V148= fix((VFUN_NARGS=3,(*(LnkLI92))(V147,(V145),(V146)))); |
{int V166= fix((VFUN_NARGS=3,(*(LnkLI93))(V165,(V163),(V164)))); |
1468 |
if(!((/* INLINE-ARGS */V148)>=(0))){ |
if(!((/* INLINE-ARGS */V166)>=(0))){ |
1469 |
goto T528;}} |
goto T613;}} |
1470 |
{object V149; |
{object V167; |
1471 |
register object V150; |
register object V168; |
1472 |
register object V151; |
register object V169; |
1473 |
object V152; |
object V170; |
1474 |
V149= make_fixnum((*(LnkLI94))(0)); |
V167= CMPmake_fixnum((*(LnkLI95))(0)); |
1475 |
V150= make_fixnum((*(LnkLI93))(0)); |
V168= CMPmake_fixnum((*(LnkLI94))(0)); |
1476 |
{int V153= fix((VFUN_NARGS=3,(*(LnkLI92))(VV[63],(V145),(V150)))); |
{int V171= fix((VFUN_NARGS=3,(*(LnkLI93))(VV[63],(V163),(V168)))); |
1477 |
if(!((/* INLINE-ARGS */V153)>=(0))){ |
if(!((/* INLINE-ARGS */V171)>=(0))){ |
1478 |
goto T539;}} |
goto T624;}} |
1479 |
V151= make_fixnum((*(LnkLI94))(0)); |
V169= CMPmake_fixnum((*(LnkLI95))(0)); |
1480 |
goto T537; |
goto T622; |
1481 |
T539:; |
T624:; |
1482 |
V151= make_fixnum(length((V145))); |
V169= CMPmake_fixnum(length((V163))); |
1483 |
T537:; |
T622:; |
1484 |
V152= listA(7,(V145),(V150),(V151),(V149),(V136),(V139),symbol_value(VV[20])); |
V170= listA(7,(V163),(V168),(V169),(V167),(V154),(V157),(VV[20]->s.s_dbind)); |
1485 |
if(((V137))==Cnil){ |
if(((V155))==Cnil){ |
1486 |
goto T542;} |
goto T627;} |
1487 |
base[10]= (V137); |
base[10]= (V155); |
1488 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
1489 |
(void) (*Lnk99)(); |
(void) (*Lnk100)(); |
1490 |
vs_top=sup; |
vs_top=sup; |
1491 |
V137= vs_base[0]; |
V155= vs_base[0]; |
1492 |
bds_bind(VV[10],Cnil); |
bds_bind(VV[10],Cnil); |
1493 |
base[11]= VV[64]; |
base[11]= VV[64]; |
1494 |
base[12]= (V137); |
base[12]= (V155); |
1495 |
base[13]= VV[65]; |
base[13]= VV[65]; |
1496 |
vs_top=(vs_base=base+11)+3; |
vs_top=(vs_base=base+11)+3; |
1497 |
(void) (*Lnk100)(); |
(void) (*Lnk101)(); |
1498 |
vs_top=sup; |
vs_top=sup; |
1499 |
V154= vs_base[0]; |
V172= vs_base[0]; |
1500 |
V142= fix((VFUN_NARGS=4,(*(LnkLI92))(V154,(V145),(V150),(V151)))); |
V160= fix((VFUN_NARGS=4,(*(LnkLI93))(V172,(V163),(V168),(V169)))); |
1501 |
if((V142)>=(0)){ |
if((V160)>=(0)){ |
1502 |
goto T548;} |
goto T633;} |
1503 |
{int V155= fix((VFUN_NARGS=4,(*(LnkLI92))((V137),(V145),(V150),(V151)))); |
{int V173= fix((VFUN_NARGS=4,(*(LnkLI93))((V155),(V163),(V168),(V169)))); |
1504 |
if(!((/* INLINE-ARGS */V155)>=(0))){ |
if(!((/* INLINE-ARGS */V173)>=(0))){ |
1505 |
bds_unwind1; |
bds_unwind1; |
1506 |
goto T542;}} |
goto T627;}} |
1507 |
T548:; |
T633:; |
1508 |
V156 = make_fixnum((*(LnkLI94))(0)); |
V174 = CMPmake_fixnum((*(LnkLI95))(0)); |
1509 |
V141= fix(number_minus(V156,(V150))); |
V159= fix(number_minus(V174,(V168))); |
1510 |
bds_unwind1; |
bds_unwind1; |
1511 |
T542:; |
T627:; |
1512 |
if(((V138))==Cnil){ |
if(((V156))==Cnil){ |
1513 |
goto T559;} |
goto T644;} |
1514 |
{object V157; |
{object V175; |
1515 |
base[10]= (V152); |
base[10]= (V170); |
1516 |
base[11]= make_fixnum(V141); |
base[11]= CMPmake_fixnum(V159); |
1517 |
vs_top=(vs_base=base+10)+2; |
vs_top=(vs_base=base+10)+2; |
1518 |
(void) (*Lnk115)(); |
(void) (*Lnk116)(); |
1519 |
vs_top=sup; |
vs_top=sup; |
1520 |
V157= vs_base[0]; |
V175= vs_base[0]; |
1521 |
base[10]= symbol_value(VV[56]); |
base[10]= (VV[56]->s.s_dbind); |
1522 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
1523 |
(void) (*Lnk116)(); |
(void) (*Lnk117)(); |
1524 |
vs_top=sup; |
vs_top=sup; |
1525 |
base[10]= (V157); |
base[10]= (V175); |
1526 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
1527 |
bds_unwind1; |
bds_unwind1; |
1528 |
return;} |
return;} |
1529 |
T559:; |
T644:; |
1530 |
{object V158; |
{object V176; |
1531 |
if(!((V142)>=(0))){ |
if(!((V160)>=(0))){ |
1532 |
goto T568;} |
goto T653;} |
1533 |
base[10]= (V150); |
base[10]= (V168); |
1534 |
base[11]= small_fixnum(1); |
base[11]= small_fixnum(1); |
1535 |
base[12]= make_fixnum(V141); |
base[12]= CMPmake_fixnum(V159); |
1536 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
1537 |
Lplus(); |
Lplus(); |
1538 |
vs_top=sup; |
vs_top=sup; |
1539 |
V159= vs_base[0]; |
V177= vs_base[0]; |
1540 |
{int V160= fix((VFUN_NARGS=4,(*(LnkLI92))(VV[66],(V145),V159,(V151)))); |
{int V178= fix((VFUN_NARGS=4,(*(LnkLI93))(VV[66],(V163),V177,(V169)))); |
1541 |
if(!((/* INLINE-ARGS */V160)>=(0))){ |
if(!((/* INLINE-ARGS */V178)>=(0))){ |
1542 |
goto T568;}} |
goto T653;}} |
1543 |
V158= make_fixnum((*(LnkLI94))(0)); |
V176= CMPmake_fixnum((*(LnkLI95))(0)); |
1544 |
goto T566; |
goto T651; |
1545 |
T568:; |
T653:; |
1546 |
V158= (V151); |
V176= (V169); |
1547 |
T566:; |
T651:; |
1548 |
base[10]= (V145); |
base[10]= (V163); |
1549 |
V161 = make_fixnum(V141); |
V179 = CMPmake_fixnum(V159); |
1550 |
base[11]= number_plus(V161,(V150)); |
base[11]= number_plus(V179,(V168)); |
1551 |
base[12]= (V158); |
base[12]= (V176); |
1552 |
vs_top=(vs_base=base+10)+3; |
vs_top=(vs_base=base+10)+3; |
1553 |
Lsubseq(); |
Lsubseq(); |
1554 |
bds_unwind1; |
bds_unwind1; |
1555 |
return;}} |
return;}} |
1556 |
T528:; |
T613:; |
1557 |
base[6]= VV[67]; |
base[6]= VV[67]; |
1558 |
base[7]= (V136); |
base[7]= (V154); |
1559 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
1560 |
(void) (*Lnk97)(); |
(void) (*Lnk98)(); |
1561 |
vs_top=sup; |
vs_top=sup; |
1562 |
base[6]= symbol_value(VV[56]); |
base[6]= (VV[56]->s.s_dbind); |
1563 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1564 |
(void) (*Lnk116)(); |
(void) (*Lnk117)(); |
1565 |
bds_unwind1; |
bds_unwind1; |
1566 |
return;}}} |
return;}}} |
1567 |
} |
} |
1571 |
static L24() |
static L24() |
1572 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1573 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM24; VC24 |
1574 |
vs_reserve(VM24); |
vs_check; |
1575 |
{object V162; |
{object V180; |
1576 |
object V163; |
object V181; |
1577 |
check_arg(2); |
V180=(base[0]); |
1578 |
V162=(base[0]); |
V181=(base[1]); |
1579 |
V163=(base[1]); |
vs_top=sup; |
1580 |
vs_top=sup; |
TTL:; |
1581 |
TTL:; |
{register object V182; |
1582 |
{register object V164; |
register object V183; |
1583 |
register object V165; |
V182= Cnil; |
1584 |
V164= Cnil; |
V183= (V181); |
1585 |
V165= (V163); |
{object V184; |
1586 |
{object V166; |
register object V185; |
1587 |
register object V167; |
register object V186; |
1588 |
register object V168; |
register object V187; |
1589 |
register object V169; |
V184= Cnil; |
1590 |
V166= Cnil; |
V185= Cnil; |
1591 |
V167= Cnil; |
V186= Cnil; |
1592 |
V168= Cnil; |
V187= Cnil; |
1593 |
V169= Cnil; |
T669:; |
1594 |
T584:; |
if(((V183))==Cnil){ |
1595 |
if(((V165))==Cnil){ |
goto T672;} |
1596 |
goto T587;} |
goto T671; |
1597 |
goto T586; |
T672:; |
1598 |
T587:; |
goto T670; |
1599 |
goto T585; |
T671:; |
1600 |
T586:; |
{object V188; |
1601 |
{object V170; |
V188= CMPcar((V183)); |
1602 |
V170= car((V165)); |
V182= (V188);} |
1603 |
V164= (V170);} |
base[2]= (V182); |
|
base[2]= (V164); |
|
1604 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1605 |
(void) (*Lnk113)(); |
(void) (*Lnk114)(); |
1606 |
vs_top=sup; |
vs_top=sup; |
1607 |
base[4]= (V162); |
base[4]= (V180); |
1608 |
base[5]= VV[68]; |
base[5]= VV[68]; |
1609 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1610 |
(void) (*Lnk117)(); |
(void) (*Lnk118)(); |
1611 |
vs_top=sup; |
vs_top=sup; |
1612 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
1613 |
base[4]= (V164); |
base[4]= (V182); |
1614 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1615 |
(void) (*Lnk118)(); |
(void) (*Lnk119)(); |
1616 |
vs_top=sup; |
vs_top=sup; |
1617 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
1618 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1619 |
Lcopy_list(); |
Lcopy_list(); |
1620 |
vs_top=sup; |
vs_top=sup; |
1621 |
V168= vs_base[0]; |
V186= vs_base[0]; |
1622 |
if(((V167))==Cnil){ |
if(((V185))==Cnil){ |
1623 |
goto T603;} |
goto T688;} |
1624 |
{register object V172; |
{register object V190; |
1625 |
V172= (V168); |
V190= (V186); |
1626 |
if(type_of(V167)!=t_cons)FEwrong_type_argument(Scons,V167); |
(V185)->c.c_cdr = (V190); |
1627 |
(V167)->c.c_cdr = (V172); |
if(((V190))!=Cnil){ |
1628 |
if(((V172))!=Cnil){ |
goto T690;}} |
1629 |
goto T605;}} |
goto T686; |
1630 |
goto T601; |
T690:; |
1631 |
T605:; |
base[2]= CMPcdr((V185)); |
|
base[2]= cdr((V167)); |
|
1632 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1633 |
Llast(); |
Llast(); |
1634 |
vs_top=sup; |
vs_top=sup; |
1635 |
V167= vs_base[0]; |
V185= vs_base[0]; |
1636 |
goto T601; |
goto T686; |
1637 |
T603:; |
T688:; |
1638 |
V166= (V168); |
V184= (V186); |
1639 |
base[2]= (V166); |
base[2]= (V184); |
1640 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1641 |
Llast(); |
Llast(); |
1642 |
vs_top=sup; |
vs_top=sup; |
1643 |
V167= vs_base[0]; |
V185= vs_base[0]; |
1644 |
T601:; |
T686:; |
1645 |
base[4]= (V162); |
base[4]= (V180); |
1646 |
base[5]= VV[42]; |
base[5]= VV[42]; |
1647 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1648 |
(void) (*Lnk117)(); |
(void) (*Lnk118)(); |
1649 |
vs_top=sup; |
vs_top=sup; |
1650 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
1651 |
base[4]= (V164); |
base[4]= (V182); |
1652 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1653 |
(void) (*Lnk118)(); |
(void) (*Lnk119)(); |
1654 |
vs_top=sup; |
vs_top=sup; |
1655 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
1656 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1657 |
Lcopy_list(); |
Lcopy_list(); |
1658 |
vs_top=sup; |
vs_top=sup; |
1659 |
V169= vs_base[0]; |
V187= vs_base[0]; |
1660 |
if(((V167))==Cnil){ |
if(((V185))==Cnil){ |
1661 |
goto T623;} |
goto T708;} |
1662 |
{register object V174; |
{register object V192; |
1663 |
V174= (V169); |
V192= (V187); |
1664 |
if(type_of(V167)!=t_cons)FEwrong_type_argument(Scons,V167); |
(V185)->c.c_cdr = (V192); |
1665 |
(V167)->c.c_cdr = (V174); |
if(((V192))!=Cnil){ |
1666 |
if(((V174))!=Cnil){ |
goto T710;}} |
1667 |
goto T625;}} |
goto T706; |
1668 |
goto T621; |
T710:; |
1669 |
T625:; |
base[2]= CMPcdr((V185)); |
|
base[2]= cdr((V167)); |
|
1670 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1671 |
Llast(); |
Llast(); |
1672 |
vs_top=sup; |
vs_top=sup; |
1673 |
V167= vs_base[0]; |
V185= vs_base[0]; |
1674 |
goto T621; |
goto T706; |
1675 |
T623:; |
T708:; |
1676 |
V166= (V169); |
V184= (V187); |
1677 |
base[2]= (V166); |
base[2]= (V184); |
1678 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1679 |
Llast(); |
Llast(); |
1680 |
vs_top=sup; |
vs_top=sup; |
1681 |
V167= vs_base[0]; |
V185= vs_base[0]; |
1682 |
T621:; |
T706:; |
1683 |
V165= cdr((V165)); |
V183= CMPcdr((V183)); |
1684 |
goto T584; |
goto T669; |
1685 |
T585:; |
T670:; |
1686 |
base[2]= (V166); |
base[2]= (V184); |
1687 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1688 |
return; |
return; |
1689 |
base[2]= Cnil; |
base[2]= Cnil; |
1699 |
static L25() |
static L25() |
1700 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1701 |
register object *sup=base+VM25; VC25 |
register object *sup=base+VM25; VC25 |
1702 |
vs_reserve(VM25); |
vs_check; |
1703 |
{object V175; |
{object V193; |
1704 |
register object V176; |
register object V194; |
1705 |
register object V177; |
register object V195; |
1706 |
if(vs_top-vs_base<1) too_few_arguments(); |
V193=(base[0]); |
|
if(vs_top-vs_base>3) too_many_arguments(); |
|
|
V175=(base[0]); |
|
1707 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
1708 |
if(vs_base>=vs_top){vs_top=sup;goto T638;} |
if(vs_base>=vs_top){vs_top=sup;goto T723;} |
1709 |
V176=(base[1]); |
V194=(base[1]); |
1710 |
vs_base++; |
vs_base++; |
1711 |
if(vs_base>=vs_top){vs_top=sup;goto T639;} |
if(vs_base>=vs_top){vs_top=sup;goto T724;} |
1712 |
V177=(base[2]); |
V195=(base[2]); |
1713 |
vs_top=sup; |
vs_top=sup; |
1714 |
goto T640; |
goto T725; |
1715 |
T638:; |
T723:; |
1716 |
V176= Cnil; |
V194= Cnil; |
1717 |
T639:; |
T724:; |
1718 |
V177= Cnil; |
V195= Cnil; |
1719 |
T640:; |
T725:; |
1720 |
{register object V178; |
{register object V196; |
1721 |
V178= Cnil; |
V196= Cnil; |
1722 |
if((V176)!=Cnil){ |
if((V194)!=Cnil){ |
1723 |
goto T644;} |
goto T729;} |
1724 |
V176= small_fixnum(0); |
V194= small_fixnum(0); |
1725 |
T644:; |
T729:; |
1726 |
T648:; |
T733:; |
1727 |
if((V176)!=Cnil){ |
if((V194)!=Cnil){ |
1728 |
goto T650;} |
goto T735;} |
1729 |
goto T649; |
goto T734; |
1730 |
T650:; |
T735:; |
1731 |
{register object V179; |
{register object V197; |
1732 |
register object V180; |
register object V198; |
1733 |
base[3]= (V176); |
base[3]= (V194); |
1734 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1735 |
(void) (*Lnk110)(); |
(void) (*Lnk111)(); |
1736 |
if(vs_base>=vs_top){vs_top=sup;goto T654;} |
if(vs_base>=vs_top){vs_top=sup;goto T739;} |
1737 |
V179= vs_base[0]; |
V197= vs_base[0]; |
1738 |
vs_base++; |
vs_base++; |
1739 |
if(vs_base>=vs_top){vs_top=sup;goto T655;} |
if(vs_base>=vs_top){vs_top=sup;goto T740;} |
1740 |
V180= vs_base[0]; |
V198= vs_base[0]; |
1741 |
vs_top=sup; |
vs_top=sup; |
1742 |
goto T656; |
goto T741; |
1743 |
T654:; |
T739:; |
1744 |
V179= Cnil; |
V197= Cnil; |
1745 |
T655:; |
T740:; |
1746 |
V180= Cnil; |
V198= Cnil; |
1747 |
T656:; |
T741:; |
1748 |
V178= (V180); |
V196= (V198); |
1749 |
if((V177)==Cnil){ |
if((V195)==Cnil){ |
1750 |
goto T659;} |
goto T744;} |
1751 |
if((V178)==Cnil){ |
if((V196)==Cnil){ |
1752 |
goto T659;} |
goto T744;} |
1753 |
if(number_compare((V177),(V178))<0){ |
if(number_compare((V195),(V196))<0){ |
1754 |
goto T660;} |
goto T745;} |
1755 |
goto T659; |
goto T744; |
1756 |
T660:; |
T745:; |
1757 |
V178= (V177); |
V196= (V195); |
1758 |
T659:; |
T744:; |
1759 |
{register object V181; |
{register object V199; |
1760 |
register object V182; |
register object V200; |
1761 |
object V183; |
object V201; |
1762 |
object V184; |
object V202; |
1763 |
base[7]= cdr((V179)); |
base[7]= CMPcdr((V197)); |
1764 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1765 |
(void) (*Lnk111)(); |
(void) (*Lnk112)(); |
1766 |
vs_top=sup; |
vs_top=sup; |
1767 |
V181= vs_base[0]; |
V199= vs_base[0]; |
1768 |
V182= car((V179)); |
V200= CMPcar((V197)); |
1769 |
V183= number_minus((V176),(V182)); |
V201= number_minus((V194),(V200)); |
1770 |
V184= make_fixnum(length((V181))); |
V202= CMPmake_fixnum(length((V199))); |
1771 |
if(((V178))==Cnil){ |
if(((V196))==Cnil){ |
1772 |
goto T673;} |
goto T758;} |
1773 |
V185= number_minus((V178),(V182)); |
V203= number_minus((V196),(V200)); |
1774 |
goto T671; |
goto T756; |
1775 |
T673:; |
T758:; |
1776 |
V185= (V184); |
V203= (V202); |
1777 |
T671:; |
T756:; |
1778 |
{int V186= fix((VFUN_NARGS=4,(*(LnkLI92))((V175),(V181),(V183),V185))); |
{int V204= fix((VFUN_NARGS=4,(*(LnkLI93))((V193),(V199),(V201),V203))); |
1779 |
if(!((/* INLINE-ARGS */V186)>=(0))){ |
if(!((/* INLINE-ARGS */V204)>=(0))){ |
1780 |
goto T663;}} |
goto T748;}} |
1781 |
V187 = make_fixnum((*(LnkLI94))(0)); |
V205 = CMPmake_fixnum((*(LnkLI95))(0)); |
1782 |
base[7]= number_plus((V182),V187); |
base[7]= number_plus((V200),V205); |
1783 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1784 |
return;} |
return;} |
1785 |
T663:; |
T748:; |
1786 |
V176= (V180);} |
V194= (V198);} |
1787 |
goto T648; |
goto T733; |
1788 |
T649:; |
T734:; |
1789 |
goto T646; |
goto T731; |
1790 |
goto T646; |
goto T731; |
1791 |
T646:; |
T731:; |
1792 |
base[3]= small_fixnum(-1); |
base[3]= small_fixnum(-1); |
1793 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1794 |
return;} |
return;} |
1799 |
static L26() |
static L26() |
1800 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1801 |
register object *sup=base+VM26; VC26 |
register object *sup=base+VM26; VC26 |
1802 |
vs_reserve(VM26); |
vs_check; |
1803 |
{register object V188; |
{register object V206; |
1804 |
check_arg(1); |
V206=(base[0]); |
|
V188=(base[0]); |
|
1805 |
vs_top=sup; |
vs_top=sup; |
1806 |
TTL:; |
TTL:; |
1807 |
{object V189; |
{object V207; |
1808 |
base[2]= (V188); |
base[2]= (V206); |
1809 |
base[3]= symbol_value(VV[69]); |
base[3]= (VV[69]->s.s_dbind); |
1810 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1811 |
(void) (*Lnk119)(); |
(void) (*Lnk120)(); |
1812 |
vs_top=sup; |
vs_top=sup; |
1813 |
V189= vs_base[0]; |
V207= vs_base[0]; |
1814 |
{register object V190; |
{register object V208; |
1815 |
register object V191; |
register object V209; |
1816 |
V190= (V189); |
V208= (V207); |
1817 |
V191= car((V190)); |
V209= CMPcar((V208)); |
1818 |
T683:; |
T768:; |
1819 |
if(!(endp((V190)))){ |
if(!(((V208))==Cnil)){ |
1820 |
goto T684;} |
goto T769;} |
1821 |
base[3]= Cnil; |
base[3]= Cnil; |
1822 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1823 |
return; |
return; |
1824 |
T684:; |
T769:; |
1825 |
if(!(type_of(car((V191)))==t_cons)){ |
if(!(type_of(CMPcar((V209)))==t_cons)){ |
1826 |
goto T692;} |
goto T777;} |
1827 |
if(!(equalp(caar((V191)),(V188)))){ |
if(!(equalp(CMPcaar((V209)),(V206)))){ |
1828 |
goto T688;} |
goto T773;} |
1829 |
goto T690; |
goto T775; |
1830 |
T692:; |
T777:; |
1831 |
if(!(equalp(car((V191)),(V188)))){ |
if(!(equalp(CMPcar((V209)),(V206)))){ |
1832 |
goto T688;} |
goto T773;} |
1833 |
T690:; |
T775:; |
1834 |
base[3]= Ct; |
base[3]= Ct; |
1835 |
base[4]= VV[70]; |
base[4]= VV[70]; |
1836 |
base[5]= (V191); |
base[5]= (V209); |
1837 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1838 |
Lformat(); |
Lformat(); |
1839 |
vs_top=sup; |
vs_top=sup; |
1840 |
base[3]= (V191); |
base[3]= (V209); |
1841 |
base[4]= Cnil; |
base[4]= Cnil; |
1842 |
base[5]= Cnil; |
base[5]= Cnil; |
1843 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1844 |
(void) (*Lnk102)(); |
(void) (*Lnk103)(); |
1845 |
vs_top=sup; |
vs_top=sup; |
1846 |
V192= vs_base[0]; |
V210= vs_base[0]; |
1847 |
(void)(princ(V192,Cnil)); |
(void)(princ(V210,Cnil)); |
1848 |
T688:; |
T773:; |
1849 |
V190= cdr((V190)); |
V208= CMPcdr((V208)); |
1850 |
V191= car((V190)); |
V209= CMPcar((V208)); |
1851 |
goto T683;}} |
goto T768;}} |
1852 |
} |
} |
1853 |
} |
} |
1854 |
/* function definition for INFO */ |
/* function definition for INFO */ |
1856 |
static L27() |
static L27() |
1857 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1858 |
register object *sup=base+VM27; VC27 |
register object *sup=base+VM27; VC27 |
1859 |
vs_reserve(VM27); |
vs_check; |
1860 |
bds_check; |
bds_check; |
1861 |
{object V193; |
{object V211; |
1862 |
object V194; |
object V212; |
1863 |
if(vs_top-vs_base<1) too_few_arguments(); |
V211=(base[0]); |
|
if(vs_top-vs_base>2) too_many_arguments(); |
|
|
V193=(base[0]); |
|
1864 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
1865 |
if(vs_base>=vs_top){vs_top=sup;goto T707;} |
if(vs_base>=vs_top){vs_top=sup;goto T792;} |
1866 |
V194=(base[1]); |
V212=(base[1]); |
1867 |
vs_top=sup; |
vs_top=sup; |
1868 |
goto T708; |
goto T793; |
1869 |
T707:; |
T792:; |
1870 |
V194= symbol_value(VV[69]); |
V212= (VV[69]->s.s_dbind); |
1871 |
T708:; |
T793:; |
1872 |
{object V195; |
{object V213; |
1873 |
register object V196; |
register object V214; |
1874 |
object V197; |
object V215; |
1875 |
V195= Cnil; |
V213= Cnil; |
1876 |
bds_bind(VV[20],Cnil); |
bds_bind(VV[20],Cnil); |
1877 |
V196= Cnil; |
V214= Cnil; |
1878 |
V197= Cnil; |
V215= Cnil; |
1879 |
{object V198; |
{object V216; |
1880 |
base[3]= (V193); |
base[3]= (V211); |
1881 |
base[4]= (V194); |
base[4]= (V212); |
1882 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1883 |
(void) (*Lnk119)(); |
(void) (*Lnk120)(); |
1884 |
vs_top=sup; |
vs_top=sup; |
1885 |
V198= vs_base[0]; |
V216= vs_base[0]; |
1886 |
if((symbol_value(VV[43]))==Cnil){ |
if(((VV[43]->s.s_dbind))==Cnil){ |
1887 |
goto T717;} |
goto T802;} |
1888 |
base[3]= (V198); |
base[3]= (V216); |
1889 |
base[4]= (V194); |
base[4]= (V212); |
1890 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1891 |
(void) (*Lnk120)(); |
(void) (*Lnk121)(); |
1892 |
bds_unwind1; |
bds_unwind1; |
1893 |
return; |
return; |
1894 |
T717:; |
T802:; |
1895 |
if(((V198))==Cnil){ |
if(((V216))==Cnil){ |
1896 |
goto T722;} |
goto T807;} |
1897 |
{register int V199; |
base[3]= CMPmake_fixnum(length((V216))); |
1898 |
V199= 0; |
base[3]=MMcons(base[3],Cnil); |
1899 |
{register object V200; |
{register int V217; |
1900 |
register object V201; |
V217= 0; |
1901 |
V200= Cnil; |
{register object V218; |
1902 |
V201= (V198); |
register object V219; |
1903 |
{object V202; |
V218= Cnil; |
1904 |
V202= Cnil; |
V219= (V216); |
1905 |
T727:; |
{object V220; |
1906 |
if(((V201))==Cnil){ |
V220= Cnil; |
1907 |
goto T730;} |
T813:; |
1908 |
goto T729; |
if(((V219))==Cnil){ |
1909 |
T730:; |
goto T816;} |
1910 |
goto T728; |
goto T815; |
1911 |
T729:; |
T816:; |
1912 |
{object V203; |
goto T814; |
1913 |
V203= car((V201)); |
T815:; |
1914 |
V200= (V203);} |
{object V221; |
1915 |
V196= Cnil; |
V221= CMPcar((V219)); |
1916 |
V197= Cnil; |
V218= (V221);} |
1917 |
if(!(type_of((V200))==t_cons)){ |
V214= Cnil; |
1918 |
goto T740;} |
V215= Cnil; |
1919 |
if(!(type_of(cdr((V200)))==t_cons)){ |
if(!(type_of((V218))==t_cons)){ |
1920 |
goto T740;} |
goto T826;} |
1921 |
V196= cadr((V200)); |
if(!(type_of(CMPcdr((V218)))==t_cons)){ |
1922 |
V200= car((V200)); |
goto T826;} |
1923 |
T740:; |
V214= CMPcadr((V218)); |
1924 |
if(!(type_of((V200))==t_cons)){ |
V218= CMPcar((V218)); |
1925 |
goto T739;} |
T826:; |
1926 |
V197= car((V200)); |
if(!(type_of((V218))==t_cons)){ |
1927 |
V200= cdr((V200)); |
goto T825;} |
1928 |
T739:; |
V215= CMPcar((V218)); |
1929 |
base[3]= Ct; |
V218= CMPcdr((V218)); |
1930 |
base[4]= VV[71]; |
T825:; |
1931 |
base[5]= make_fixnum(V199); |
base[4]= Ct; |
1932 |
base[6]= (V197); |
base[5]= VV[71]; |
1933 |
if(!(((V196))==((V202)))){ |
base[6]= CMPmake_fixnum(V217); |
1934 |
goto T760;} |
base[7]= (V215); |
1935 |
base[7]= Cnil; |
if(!(((V214))==((V220)))){ |
1936 |
goto T758; |
goto T846;} |
1937 |
T760:; |
base[8]= Cnil; |
1938 |
V202= (V196); |
goto T844; |
1939 |
base[7]= (V202); |
T846:; |
1940 |
T758:; |
V220= (V214); |
1941 |
base[8]= (V200); |
base[8]= (V220); |
1942 |
vs_top=(vs_base=base+3)+6; |
T844:; |
1943 |
|
base[9]= (V218); |
1944 |
|
vs_top=(vs_base=base+4)+6; |
1945 |
Lformat(); |
Lformat(); |
1946 |
vs_top=sup; |
vs_top=sup; |
1947 |
if(!((V199)<(2147483646))){ |
if(!((V217)<(2147483646))){ |
1948 |
goto T765;} |
goto T851;} |
1949 |
goto T764; |
goto T850; |
1950 |
T765:; |
T851:; |
1951 |
(void)((*(LnkLI121))()); |
vs_base=vs_top; |
1952 |
T764:; |
(void) (*Lnk122)(); |
1953 |
V199= (V199)+(1); |
vs_top=sup; |
1954 |
V201= cdr((V201)); |
T850:; |
1955 |
goto T727; |
V217= (V217)+(1); |
1956 |
T728:; |
V219= CMPcdr((V219)); |
1957 |
goto T724; |
goto T813; |
1958 |
goto T724;}}} |
T814:; |
1959 |
T724:; |
goto T810; |
1960 |
base[3]= Ct; |
goto T810;}}} |
1961 |
base[4]= VV[73]; |
T810:; |
1962 |
vs_top=(vs_base=base+3)+2; |
if(!((length((V216)))>(1))){ |
1963 |
|
goto T860;} |
1964 |
|
base[4]= Ct; |
1965 |
|
base[5]= VV[73]; |
1966 |
|
vs_top=(vs_base=base+4)+2; |
1967 |
Lformat(); |
Lformat(); |
1968 |
vs_top=sup; |
vs_top=sup; |
1969 |
{object V204; |
goto T858; |
1970 |
object V205; |
T860:; |
1971 |
register object V206; |
princ_char(10,Cnil); |
1972 |
|
T858:; |
1973 |
|
{object V222; |
1974 |
|
object V223; |
1975 |
|
register object V224; |
1976 |
|
if(!((length((V216)))>(1))){ |
1977 |
|
goto T866;} |
1978 |
vs_base=vs_top; |
vs_base=vs_top; |
1979 |
Lread_line(); |
Lread_line(); |
1980 |
vs_top=sup; |
vs_top=sup; |
1981 |
V204= vs_base[0]; |
V222= vs_base[0]; |
1982 |
V205= small_fixnum(0); |
goto T864; |
1983 |
V206= Cnil; |
T866:; |
1984 |
T778:; |
V222= VV[74]; |
1985 |
if(!(equal((V204),VV[74]))){ |
T864:; |
1986 |
goto T781;} |
V223= small_fixnum(0); |
1987 |
goto T780; |
V224= Cnil; |
1988 |
T781:; |
T870:; |
1989 |
goto T779; |
if(!(equal((V222),VV[75]))){ |
1990 |
T780:; |
goto T873;} |
1991 |
|
goto T872; |
1992 |
|
T873:; |
1993 |
|
goto T871; |
1994 |
|
T872:; |
1995 |
vs_base=vs_top; |
vs_base=vs_top; |
1996 |
Lread_line(); |
Lread_line(); |
1997 |
vs_top=sup; |
vs_top=sup; |
1998 |
V204= vs_base[0]; |
V222= vs_base[0]; |
1999 |
goto T778; |
goto T870; |
2000 |
T779:; |
T871:; |
2001 |
goto T776; |
goto T868; |
2002 |
goto T776; |
goto T868; |
2003 |
T776:; |
T868:; |
2004 |
T788:;{object V207; |
T880:;{object V225; |
2005 |
base[3]= (V204); |
base[4]= (V222); |
|
base[4]= Cnil; |
|
2006 |
base[5]= Cnil; |
base[5]= Cnil; |
2007 |
base[6]= VV[75]; |
base[6]= Cnil; |
2008 |
base[7]= (V205); |
base[7]= VV[76]; |
2009 |
vs_top=(vs_base=base+3)+5; |
base[8]= (V223); |
2010 |
(void) (*Lnk122)(); |
vs_top=(vs_base=base+4)+5; |
2011 |
|
(void) (*Lnk123)(); |
2012 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
2013 |
V206= vs_base[0]; |
V224= vs_base[0]; |
2014 |
vs_base++; |
vs_base++; |
2015 |
}else{ |
}else{ |
2016 |
V206= Cnil;} |
V224= Cnil;} |
2017 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
2018 |
V205= vs_base[0]; |
V223= vs_base[0]; |
2019 |
}else{ |
}else{ |
2020 |
V205= Cnil;} |
V223= Cnil;} |
2021 |
vs_top=sup; |
vs_top=sup; |
2022 |
V207= (V206); |
V225= (V224); |
2023 |
if(V207==Cnil)goto T791; |
if(V225==Cnil)goto T883; |
2024 |
goto T790; |
goto T882; |
2025 |
T791:;} |
T883:;} |
2026 |
goto T789; |
goto T881; |
2027 |
T790:; |
T882:; |
2028 |
if(!(type_of((V206))==t_fixnum|| |
if(!(type_of((V224))==t_fixnum|| |
2029 |
type_of((V206))==t_bignum|| |
type_of((V224))==t_bignum|| |
2030 |
type_of((V206))==t_ratio|| |
type_of((V224))==t_ratio|| |
2031 |
type_of((V206))==t_shortfloat|| |
type_of((V224))==t_shortfloat|| |
2032 |
type_of((V206))==t_longfloat|| |
type_of((V224))==t_longfloat|| |
2033 |
type_of((V206))==t_complex)){ |
type_of((V224))==t_complex)){ |
2034 |
goto T801;} |
goto T893;} |
2035 |
V195= make_cons((V206),(V195)); |
V213= make_cons((V224),(V213)); |
2036 |
goto T799; |
goto T891; |
2037 |
T801:; |
T893:; |
2038 |
V195= (V206); |
V213= (V224); |
2039 |
goto T786; |
goto T878; |
2040 |
T799:; |
T891:; |
2041 |
goto T788; |
goto T880; |
2042 |
T789:; |
T881:; |
2043 |
goto T786; |
goto T878; |
2044 |
goto T786; |
goto T878; |
2045 |
T786:; |
T878:; |
2046 |
if(!(type_of((V195))==t_cons)){ |
if(!(type_of((V213))==t_cons)){ |
2047 |
goto T809;} |
goto T901;} |
2048 |
V195= nreverse((V195)); |
V213= nreverse((V213)); |
2049 |
goto T807; |
goto T899; |
2050 |
T809:; |
T901:; |
2051 |
if(!(type_of((V195))==t_symbol)){ |
if(!(type_of((V213))==t_symbol)){ |
2052 |
goto T807;} |
goto T899;} |
2053 |
V208= symbol_name((V195)); |
V226= symbol_name((V213)); |
2054 |
if(equal(/* INLINE-ARGS */V208,VV[76])){ |
if(equal(/* INLINE-ARGS */V226,VV[77])){ |
2055 |
goto T815;} |
goto T907;} |
|
V195= Cnil; |
|
|
goto T814; |
|
|
T815:; |
|
|
{register int V209; |
|
|
int V210; |
|
|
V209= 0; |
|
|
{object V211; |
|
|
V211= make_fixnum(length((V198)));{object V212; |
|
|
V212= (type_of((V211))==t_fixnum?Ct:Cnil); |
|
|
if(V212==Cnil)goto T821; |
|
|
goto T820; |
|
|
T821:;} |
|
|
(void)((*(LnkLI121))()); |
|
|
T820:; |
|
|
V210= fix((V211));} |
|
|
{object V213; |
|
|
register object V214; |
|
2056 |
V213= Cnil; |
V213= Cnil; |
2057 |
V214= Cnil; |
goto T906; |
2058 |
T824:; |
T907:; |
2059 |
if((V209)>=(V210)){ |
{register int V227; |
2060 |
goto T827;} |
int V228; |
2061 |
goto T826; |
V227= 0; |
2062 |
T827:; |
{object V229; |
2063 |
goto T825; |
V229= CMPmake_fixnum(length((V216)));{object V230; |
2064 |
T826:; |
V230= (type_of((V229))==t_fixnum?Ct:Cnil); |
2065 |
if(((V214))==Cnil){ |
if(V230==Cnil)goto T913; |
2066 |
goto T831;} |
goto T912; |
2067 |
{object V215; |
T913:;} |
2068 |
object V216; |
vs_base=vs_top; |
2069 |
V215= (V214); |
(void) (*Lnk122)(); |
2070 |
V217 = make_fixnum(V209); |
vs_top=sup; |
2071 |
V214= make_cons(V217,Cnil); |
T912:; |
2072 |
V216= (V214); |
V228= fix((V229));} |
2073 |
if(type_of((V215))!=t_cons)FEwrong_type_argument(Scons,(V215)); |
{object V231; |
2074 |
((V215))->c.c_cdr = (V216); |
register object V232; |
2075 |
goto T829;} |
V231= Cnil; |
2076 |
T831:; |
V232= Cnil; |
2077 |
V218 = make_fixnum(V209); |
T916:; |
2078 |
V214= make_cons(V218,Cnil); |
if((V227)>=(V228)){ |
2079 |
V213= (V214); |
goto T919;} |
2080 |
T829:; |
goto T918; |
2081 |
V209= (V209)+(1); |
T919:; |
2082 |
goto T824; |
goto T917; |
2083 |
T825:; |
T918:; |
2084 |
V195= (V213); |
if(((V232))==Cnil){ |
2085 |
goto T814; |
goto T923;} |
2086 |
V195= Cnil; |
{object V233; |
2087 |
goto T814; |
object V234; |
2088 |
V195= Cnil; |
V233= (V232); |
2089 |
goto T814;}} |
V235 = CMPmake_fixnum(V227); |
2090 |
T814:; |
V232= make_cons(V235,Cnil); |
2091 |
T807:; |
V234= (V232); |
2092 |
if(((V195))==Cnil){ |
((V233))->c.c_cdr = (V234); |
2093 |
goto T843;} |
goto T921;} |
2094 |
base[3]= Ct; |
T923:; |
2095 |
base[4]= VV[77]; |
V236 = CMPmake_fixnum(V227); |
2096 |
base[5]= car((VV[20]->s.s_dbind)); |
V232= make_cons(V236,Cnil); |
2097 |
vs_top=(vs_base=base+3)+3; |
V231= (V232); |
2098 |
|
T921:; |
2099 |
|
V227= (V227)+(1); |
2100 |
|
goto T916; |
2101 |
|
T917:; |
2102 |
|
V213= (V231); |
2103 |
|
goto T906; |
2104 |
|
V213= Cnil; |
2105 |
|
goto T906; |
2106 |
|
V213= Cnil; |
2107 |
|
goto T906;}} |
2108 |
|
T906:; |
2109 |
|
T899:; |
2110 |
|
if(((V213))==Cnil){ |
2111 |
|
goto T935;} |
2112 |
|
base[4]= |
2113 |
|
make_cclosure_new(LC31,Cnil,base[3],Cdata); |
2114 |
|
base[5]= (V213); |
2115 |
|
vs_top=(vs_base=base+4)+2; |
2116 |
|
(void) (*Lnk124)(); |
2117 |
|
vs_top=sup; |
2118 |
|
V213= vs_base[0]; |
2119 |
|
base[4]= Ct; |
2120 |
|
base[5]= VV[78]; |
2121 |
|
base[6]= CMPcar((VV[20]->s.s_dbind)); |
2122 |
|
vs_top=(vs_base=base+4)+3; |
2123 |
Lformat(); |
Lformat(); |
2124 |
vs_top=sup; |
vs_top=sup; |
2125 |
T843:; |
T935:; |
2126 |
{object V219; |
{object V237; |
2127 |
register object V220; |
register object V238; |
2128 |
V219= Cnil; |
V237= Cnil; |
2129 |
V220= (V195); |
V238= (V213); |
2130 |
T850:; |
T946:; |
2131 |
if(((V220))==Cnil){ |
if(((V238))==Cnil){ |
2132 |
goto T853;} |
goto T949;} |
2133 |
goto T852; |
goto T948; |
2134 |
T853:; |
T949:; |
2135 |
goto T851; |
goto T947; |
2136 |
T852:; |
T948:; |
2137 |
{object V221; |
{object V239; |
2138 |
V221= car((V220)); |
V239= CMPcar((V238)); |
2139 |
V219= (V221);} |
V237= (V239);} |
2140 |
base[3]= nth(fixint((V219)),(V198)); |
base[4]= nth(fix((V237)),(V216)); |
2141 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+4)+1; |
2142 |
(void) (*Lnk102)(); |
(void) (*Lnk103)(); |
2143 |
vs_top=sup; |
vs_top=sup; |
2144 |
V222= vs_base[0]; |
V240= vs_base[0]; |
2145 |
(void)(princ(V222,Cnil)); |
(void)(princ(V240,Cnil)); |
2146 |
V220= cdr((V220)); |
V238= CMPcdr((V238)); |
2147 |
goto T850; |
goto T946; |
2148 |
T851:; |
T947:; |
2149 |
base[3]= Cnil; |
base[4]= Cnil; |
2150 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+4)+1; |
2151 |
bds_unwind1; |
bds_unwind1; |
2152 |
return; |
return; |
2153 |
base[3]= Cnil; |
base[4]= Cnil; |
2154 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+4)+1; |
2155 |
bds_unwind1; |
bds_unwind1; |
2156 |
return;}} |
return;}} |
2157 |
T722:; |
T807:; |
2158 |
base[3]= Cnil; |
base[3]= Cnil; |
2159 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2160 |
bds_unwind1; |
bds_unwind1; |
2166 |
static L28() |
static L28() |
2167 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2168 |
register object *sup=base+VM28; VC28 |
register object *sup=base+VM28; VC28 |
2169 |
vs_reserve(VM28); |
vs_check; |
|
check_arg(0); |
|
2170 |
vs_top=sup; |
vs_top=sup; |
2171 |
TTL:; |
TTL:; |
2172 |
base[1]= VV[78]; |
base[1]= VV[79]; |
2173 |
vs_base=vs_top; |
vs_base=vs_top; |
2174 |
(void) (*Lnk123)(); |
(void) (*Lnk125)(); |
2175 |
vs_top=sup; |
vs_top=sup; |
2176 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
2177 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2187 |
static L29() |
static L29() |
2188 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
2189 |
register object *VOL sup=base+VM29; VC29 |
register object *VOL sup=base+VM29; VC29 |
2190 |
vs_reserve(VM29); |
vs_check; |
|
check_arg(1); |
|
2191 |
vs_top=sup; |
vs_top=sup; |
2192 |
TTL:; |
TTL:; |
2193 |
if(!(type_of(base[0])==t_symbol)){ |
if(!(type_of(base[0])==t_symbol)){ |
2194 |
goto T867;} |
goto T963;} |
2195 |
base[0]= get(base[0],VV[68],Cnil); |
{object V241 =(base[0])->s.s_plist; |
2196 |
T867:; |
object ind= VV[68]; |
2197 |
|
while(V241!=Cnil){ |
2198 |
|
if(V241->c.c_car==ind){ |
2199 |
|
base[0]= (V241->c.c_cdr->c.c_car); |
2200 |
|
goto T966; |
2201 |
|
}else V241=V241->c.c_cdr->c.c_cdr;} |
2202 |
|
base[0]= Cnil;} |
2203 |
|
T966:; |
2204 |
|
T963:; |
2205 |
if((base[0])==Cnil){ |
if((base[0])==Cnil){ |
2206 |
goto T872;} |
goto T968;} |
2207 |
vs_base=vs_top; |
vs_base=vs_top; |
2208 |
(void) (*Lnk124)(); |
(void) (*Lnk126)(); |
2209 |
vs_top=sup; |
vs_top=sup; |
2210 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
2211 |
base[3]= VV[79]; |
base[3]= VV[80]; |
2212 |
base[4]= VV[80]; |
base[4]= VV[81]; |
2213 |
base[5]= VV[81]; |
base[5]= VV[82]; |
2214 |
base[6]= VV[82]; |
base[6]= VV[83]; |
2215 |
base[7]= VV[83]; |
base[7]= VV[84]; |
2216 |
base[8]= VV[84]; |
base[8]= VV[85]; |
2217 |
vs_top=(vs_base=base+2)+7; |
vs_top=(vs_base=base+2)+7; |
2218 |
(void) (*Lnk89)(); |
(void) (*Lnk90)(); |
2219 |
vs_top=sup; |
vs_top=sup; |
2220 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
2221 |
{object tag;frame_ptr fr;object p;bool active; |
{object tag;frame_ptr fr;object p;bool active; |
2226 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2227 |
Lfile_position(); |
Lfile_position(); |
2228 |
vs_top=sup; |
vs_top=sup; |
2229 |
V223= vs_base[0]; |
V242= vs_base[0]; |
2230 |
if(!(number_compare(V223,small_fixnum(10))<0)){ |
if(!(number_compare(V242,small_fixnum(10))<0)){ |
2231 |
goto T883;} |
goto T979;} |
2232 |
(void)(princ(VV[85],base[1])); |
(void)(princ(VV[86],base[1])); |
2233 |
T883:; |
T979:; |
2234 |
base[3]= base[1]; |
base[3]= base[1]; |
2235 |
base[4]= VV[86]; |
base[4]= VV[87]; |
2236 |
base[5]= caddr(cddddr(base[0])); |
base[5]= CMPcaddr(CMPcddddr(base[0])); |
2237 |
base[6]= car(cddddr(base[0])); |
base[6]= CMPcar(CMPcddddr(base[0])); |
2238 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
2239 |
Lformat(); |
Lformat(); |
2240 |
active=FALSE;} |
active=FALSE;} |
2244 |
vs_top=sup; |
vs_top=sup; |
2245 |
nlj_active=FALSE;frs_pop(); |
nlj_active=FALSE;frs_pop(); |
2246 |
if((base[1])==Cnil){ |
if((base[1])==Cnil){ |
2247 |
goto T892;} |
goto T988;} |
2248 |
base[3]= base[1]; |
base[3]= base[1]; |
2249 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2250 |
Lclose(); |
Lclose(); |
2251 |
vs_top=sup; |
vs_top=sup; |
2252 |
T892:; |
T988:; |
2253 |
vs_base=vs_top=base+3; |
vs_base=vs_top=base+3; |
2254 |
for(p= base[2];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
for(p= base[2];!endp(p);p=MMcdr(p))vs_push(MMcar(p)); |
2255 |
if(active)unwind(fr,tag);else{ |
if(active)unwind(fr,tag);else{ |
2256 |
return;}} |
return;}} |
2257 |
T872:; |
T968:; |
2258 |
base[1]= Cnil; |
base[1]= Cnil; |
2259 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2260 |
return; |
return; |
2264 |
static L30() |
static L30() |
2265 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2266 |
register object *sup=base+VM30; VC30 |
register object *sup=base+VM30; VC30 |
2267 |
vs_reserve(VM30); |
vs_check; |
2268 |
{object V224; |
{object V243; |
2269 |
object V225; |
object V244; |
2270 |
if(vs_top-vs_base<1) too_few_arguments(); |
V243=(base[0]); |
|
V224=(base[0]); |
|
2271 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
2272 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
2273 |
{object *p=vs_top; |
{object *p=vs_top; |
2274 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
2275 |
V225=(base[1]); |
V244=(base[1]); |
2276 |
vs_top=sup; |
vs_top=sup; |
2277 |
{register object V226; |
{register object V245; |
2278 |
register object V227; |
register object V246; |
2279 |
V226= Cnil; |
V245= Cnil; |
2280 |
V227= (V225); |
V246= (V244); |
2281 |
{object V228; |
{object V247; |
2282 |
register object V229; |
register object V248; |
2283 |
register object V230; |
register object V249; |
2284 |
V228= Cnil; |
V247= Cnil; |
2285 |
V229= Cnil; |
V248= Cnil; |
2286 |
V230= Cnil; |
V249= Cnil; |
2287 |
T897:; |
T993:; |
2288 |
if(((V227))==Cnil){ |
if(((V246))==Cnil){ |
2289 |
goto T900;} |
goto T996;} |
2290 |
goto T899; |
goto T995; |
2291 |
T900:; |
T996:; |
2292 |
goto T898; |
goto T994; |
2293 |
T899:; |
T995:; |
2294 |
{register object V231; |
{register object V250; |
2295 |
V231= car((V227)); |
V250= CMPcar((V246)); |
2296 |
V226= (V231);} |
V245= (V250);} |
2297 |
{int V232= (*(LnkLI94))(fix((V226))); |
{int V251= (*(LnkLI95))(fix((V245))); |
2298 |
if((/* INLINE-ARGS */V232)>=(0)){ |
if((/* INLINE-ARGS */V251)>=(0)){ |
2299 |
goto T907;}} |
goto T1003;}} |
2300 |
V230= Cnil; |
V249= Cnil; |
2301 |
goto T906; |
goto T1002; |
2302 |
T907:; |
T1003:; |
2303 |
base[2]= (V224); |
base[2]= (V243); |
2304 |
base[3]= (V226); |
base[3]= (V245); |
2305 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2306 |
(void) (*Lnk96)(); |
(void) (*Lnk97)(); |
2307 |
vs_top=sup; |
vs_top=sup; |
2308 |
V230= vs_base[0]; |
V249= vs_base[0]; |
2309 |
T906:; |
T1002:; |
2310 |
if(((V229))==Cnil){ |
if(((V248))==Cnil){ |
2311 |
goto T913;} |
goto T1009;} |
2312 |
{register object V233; |
{register object V252; |
2313 |
register object V234; |
register object V253; |
2314 |
V233= (V229); |
V252= (V248); |
2315 |
V229= make_cons((V230),Cnil); |
V248= make_cons((V249),Cnil); |
2316 |
V234= (V229); |
V253= (V248); |
2317 |
if(type_of((V233))!=t_cons)FEwrong_type_argument(Scons,(V233)); |
((V252))->c.c_cdr = (V253); |
2318 |
((V233))->c.c_cdr = (V234); |
goto T1007;} |
2319 |
goto T911;} |
T1009:; |
2320 |
T913:; |
V248= make_cons((V249),Cnil); |
2321 |
V229= make_cons((V230),Cnil); |
V247= (V248); |
2322 |
V228= (V229); |
T1007:; |
2323 |
T911:; |
V246= CMPcdr((V246)); |
2324 |
V227= cdr((V227)); |
goto T993; |
2325 |
goto T897; |
T994:; |
2326 |
T898:; |
base[2]= (V247); |
|
base[2]= (V228); |
|
2327 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2328 |
return; |
return; |
2329 |
base[2]= Cnil; |
base[2]= Cnil; |
2334 |
return;}} |
return;}} |
2335 |
} |
} |
2336 |
} |
} |
2337 |
static LnkT124(){ call_or_link(VV[124],&Lnk124);} /* DEFAULT-INFO-HOTLIST */ |
/* local function CLOSURE */ |
|
static LnkT123(){ call_or_link(VV[123],&Lnk123);} /* USER-HOMEDIR-PATHNAME */ |
|
|
static LnkT122(){ call_or_link(VV[122],&Lnk122);} /* READ-FROM-STRING */ |
|
|
static object LnkTLI121(){return call_proc0(VV[121],&LnkLI121);} /* TYPE-ERROR */ |
|
|
static LnkT120(){ call_or_link(VV[120],&Lnk120);} /* OFFER-CHOICES */ |
|
|
static LnkT119(){ call_or_link(VV[119],&Lnk119);} /* INFO-AUX */ |
|
|
static LnkT118(){ call_or_link(VV[118],&Lnk118);} /* ADD-FILE */ |
|
|
static LnkT117(){ call_or_link(VV[117],&Lnk117);} /* GET-INFO-CHOICES */ |
|
|
static LnkT116(){ call_or_link(VV[116],&Lnk116);} /* END-WAITING */ |
|
|
static LnkT115(){ call_or_link(VV[115],&Lnk115);} /* PRINT-NODE */ |
|
|
static LnkT114(){ call_or_link(VV[114],&Lnk114);} /* GET-NODE-INDEX */ |
|
|
static LnkT113(){ call_or_link(VV[113],&Lnk113);} /* SETUP-INFO */ |
|
|
static LnkT112(){ call_or_link(VV[112],&Lnk112);} /* WAITING */ |
|
|
static LnkT111(){ call_or_link(VV[111],&Lnk111);} /* INFO-GET-FILE */ |
|
|
static LnkT110(){ call_or_link(VV[110],&Lnk110);} /* INFO-SUBFILE */ |
|
|
static LnkT109(){ call_or_link(VV[109],&Lnk109);} /* WINFO */ |
|
|
static LnkT108(){ call_or_link(VV[108],&Lnk108);} /* TKERROR */ |
|
|
static LnkT107(){ call_or_link(VV[107],&Lnk107);} /* NODES-FROM-INDEX */ |
|
|
static LnkT106(){ call_or_link(VV[106],&Lnk106);} /* INFO-GET-TAGS */ |
|
|
static LnkT105(){ call_or_link(VV[105],&Lnk105);} /* FILE-SEARCH */ |
|
|
static LnkT104(){ call_or_link(VV[104],&Lnk104);} /* FIX-LOAD-PATH */ |
|
|
static LnkT103(){ call_or_link(VV[103],&Lnk103);} /* GET-INDEX-NODE */ |
|
|
static LnkT102(){ call_or_link(VV[102],&Lnk102);} /* SHOW-INFO */ |
|
|
static LnkT101(){ call_or_link(VV[101],&Lnk101);} /* GET-NODES */ |
|
|
static LnkT100(){ call_or_link(VV[100],&Lnk100);} /* STRING-CONCATENATE */ |
|
|
static LnkT99(){ call_or_link(VV[99],&Lnk99);} /* RE-QUOTE-STRING */ |
|
|
static object LnkTLI98(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[98],&LnkLI98,ap);} /* POSITION */ |
|
|
static LnkT97(){ call_or_link(VV[97],&Lnk97);} /* INFO-ERROR */ |
|
|
static LnkT96(){ call_or_link(VV[96],&Lnk96);} /* GET-MATCH */ |
|
|
static LnkT95(){ call_or_link(VV[95],&Lnk95);} /* ATOI */ |
|
|
static int LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[94],&LnkLI94,4353,ap);} /* MATCH-BEGINNING */ |
|
|
static int LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[93],&LnkLI93,4353,ap);} /* MATCH-END */ |
|
|
static object LnkTLI92(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[92],&LnkLI92,ap);} /* STRING-MATCH */ |
|
|
static LnkT91(){ call_or_link(VV[91],&Lnk91);} /* FILE-TO-STRING */ |
|
|
static LnkT90(){ call_or_link(VV[90],&Lnk90);} /* FREAD */ |
|
|
static LnkT89(){ call_or_link(VV[89],&Lnk89);} /* OPEN */ |
|
|
static object LnkTLI88(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[88],&LnkLI88,ap);} /* VECTOR-PUSH-EXTEND */ |
|
|
static object LnkTLI87(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[87],&LnkLI87,ap);} /* MAKE-ARRAY */ |
|
|
|
|
|
#ifdef SYSTEM_SPECIAL_INIT |
|
|
SYSTEM_SPECIAL_INIT |
|
|
#endif |
|
2338 |
|
|
2339 |
|
static LC31(base0) |
2340 |
|
register object *base0; |
2341 |
|
{ register object *base=vs_base; |
2342 |
|
register object *sup=base+VM31; VC31 |
2343 |
|
vs_check; |
2344 |
|
{object V254; |
2345 |
|
V254=(base[0]); |
2346 |
|
vs_top=sup; |
2347 |
|
if(type_of((V254))==t_fixnum||type_of((V254))==t_bignum){ |
2348 |
|
goto T1021;} |
2349 |
|
base[1]= Cnil; |
2350 |
|
vs_top=(vs_base=base+1)+1; |
2351 |
|
return; |
2352 |
|
T1021:; |
2353 |
|
base[1]= (number_compare((V254),(base0[0]->c.c_car))>=0?Ct:Cnil); |
2354 |
|
vs_top=(vs_base=base+1)+1; |
2355 |
|
return; |
2356 |
|
} |
2357 |
|
} |
2358 |
|
static LnkT126(){ call_or_link(VV[126],&Lnk126);} /* DEFAULT-INFO-HOTLIST */ |
2359 |
|
static LnkT125(){ call_or_link(VV[125],&Lnk125);} /* USER-HOMEDIR-PATHNAME */ |
2360 |
|
static LnkT124(){ call_or_link(VV[124],&Lnk124);} /* REMOVE-IF */ |
2361 |
|
static LnkT123(){ call_or_link(VV[123],&Lnk123);} /* READ-FROM-STRING */ |
2362 |
|
static LnkT122(){ call_or_link(VV[122],&Lnk122);} /* TYPE-ERROR */ |
2363 |
|
static LnkT121(){ call_or_link(VV[121],&Lnk121);} /* OFFER-CHOICES */ |
2364 |
|
static LnkT120(){ call_or_link(VV[120],&Lnk120);} /* INFO-AUX */ |
2365 |
|
static LnkT119(){ call_or_link(VV[119],&Lnk119);} /* ADD-FILE */ |
2366 |
|
static LnkT118(){ call_or_link(VV[118],&Lnk118);} /* GET-INFO-CHOICES */ |
2367 |
|
static LnkT117(){ call_or_link(VV[117],&Lnk117);} /* END-WAITING */ |
2368 |
|
static LnkT116(){ call_or_link(VV[116],&Lnk116);} /* PRINT-NODE */ |
2369 |
|
static LnkT115(){ call_or_link(VV[115],&Lnk115);} /* GET-NODE-INDEX */ |
2370 |
|
static LnkT114(){ call_or_link(VV[114],&Lnk114);} /* SETUP-INFO */ |
2371 |
|
static LnkT113(){ call_or_link(VV[113],&Lnk113);} /* WAITING */ |
2372 |
|
static LnkT112(){ call_or_link(VV[112],&Lnk112);} /* INFO-GET-FILE */ |
2373 |
|
static LnkT111(){ call_or_link(VV[111],&Lnk111);} /* INFO-SUBFILE */ |
2374 |
|
static LnkT110(){ call_or_link(VV[110],&Lnk110);} /* WINFO */ |
2375 |
|
static LnkT109(){ call_or_link(VV[109],&Lnk109);} /* TKERROR */ |
2376 |
|
static LnkT108(){ call_or_link(VV[108],&Lnk108);} /* NODES-FROM-INDEX */ |
2377 |
|
static LnkT107(){ call_or_link(VV[107],&Lnk107);} /* INFO-GET-TAGS */ |
2378 |
|
static LnkT106(){ call_or_link(VV[106],&Lnk106);} /* FILE-SEARCH */ |
2379 |
|
static LnkT105(){ call_or_link(VV[105],&Lnk105);} /* FIX-LOAD-PATH */ |
2380 |
|
static LnkT104(){ call_or_link(VV[104],&Lnk104);} /* GET-INDEX-NODE */ |
2381 |
|
static LnkT103(){ call_or_link(VV[103],&Lnk103);} /* SHOW-INFO */ |
2382 |
|
static LnkT102(){ call_or_link(VV[102],&Lnk102);} /* GET-NODES */ |
2383 |
|
static LnkT101(){ call_or_link(VV[101],&Lnk101);} /* STRING-CONCATENATE */ |
2384 |
|
static LnkT100(){ call_or_link(VV[100],&Lnk100);} /* RE-QUOTE-STRING */ |
2385 |
|
static LnkT99(){ call_or_link(VV[99],&Lnk99);} /* POSITION */ |
2386 |
|
static LnkT98(){ call_or_link(VV[98],&Lnk98);} /* INFO-ERROR */ |
2387 |
|
static LnkT97(){ call_or_link(VV[97],&Lnk97);} /* GET-MATCH */ |
2388 |
|
static LnkT96(){ call_or_link(VV[96],&Lnk96);} /* ATOI */ |
2389 |
|
static int LnkTLI95(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[95],&LnkLI95,4353,ap);} /* MATCH-BEGINNING */ |
2390 |
|
static int LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[94],&LnkLI94,4353,ap);} /* MATCH-END */ |
2391 |
|
static object LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[93],&LnkLI93,ap);} /* STRING-MATCH */ |
2392 |
|
static LnkT92(){ call_or_link(VV[92],&Lnk92);} /* FILE-TO-STRING */ |
2393 |
|
static LnkT91(){ call_or_link(VV[91],&Lnk91);} /* FREAD */ |
2394 |
|
static LnkT90(){ call_or_link(VV[90],&Lnk90);} /* OPEN */ |
2395 |
|
static LnkT89(){ call_or_link(VV[89],&Lnk89);} /* VECTOR-PUSH-EXTEND */ |
2396 |
|
static LnkT88(){ call_or_link(VV[88],&Lnk88);} /* MAKE-ARRAY */ |