1 |
|
|
2 |
|
#include "cmpinclude.h" |
3 |
|
#include "gcl_cmpflet.h" |
4 |
|
void init_gcl_cmpflet(){do_init(VV);} |
5 |
|
/* local entry for function MAKE-FUN */ |
6 |
|
|
7 |
|
static object LI1(object first,...) |
8 |
|
{ |
9 |
|
va_list ap; |
10 |
|
int narg = VFUN_NARGS; VMB1 VMS1 VMV1 |
11 |
|
{object V1; |
12 |
|
object V2; |
13 |
|
object V3; |
14 |
|
object V4; |
15 |
|
object V5; |
16 |
|
va_start(ap,first); |
17 |
|
narg= narg - 0; |
18 |
|
{ |
19 |
|
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI1key,first,ap); |
20 |
|
V1=(Vcs[0]); |
21 |
|
V2=(Vcs[1]); |
22 |
|
V3=(Vcs[2]); |
23 |
|
V4=(Vcs[3]); |
24 |
|
V5=(Vcs[4]); |
25 |
|
base[0]= VV[0]; |
26 |
|
base[1]= (V1); |
27 |
|
base[2]= (V2); |
28 |
|
base[3]= (V3); |
29 |
|
base[4]= (V4); |
30 |
|
base[5]= (V5); |
31 |
|
vs_top=(vs_base=base+0)+6; |
32 |
|
siLmake_structure(); |
33 |
|
vs_top=sup; |
34 |
|
{object V6 = vs_base[0]; |
35 |
|
VMR1(V6)} |
36 |
|
va_end(ap); |
37 |
|
base[0]=base[0]; |
38 |
|
return Cnil;} |
39 |
|
}} |
40 |
|
/* local entry for function C1FLET */ |
41 |
|
|
42 |
|
static object LI2(V8) |
43 |
|
|
44 |
|
object V8; |
45 |
|
{ VMB2 VMS2 VMV2 |
46 |
|
bds_check; |
47 |
|
goto TTL; |
48 |
|
TTL:; |
49 |
|
{object V9; |
50 |
|
object V10; |
51 |
|
object V11; |
52 |
|
object V12; |
53 |
|
object V13; |
54 |
|
object V14; |
55 |
|
object V15; |
56 |
|
object V16; |
57 |
|
object V17; |
58 |
|
V9= Cnil; |
59 |
|
V10= Cnil; |
60 |
|
V11= Cnil; |
61 |
|
V12= Cnil; |
62 |
|
V13= Cnil; |
63 |
|
V14= Cnil; |
64 |
|
V15= Cnil; |
65 |
|
V16= Cnil; |
66 |
|
V17= Cnil; |
67 |
|
if(!(endp_prop((V8)))){ |
68 |
|
goto T16;} |
69 |
|
(void)((*(LnkLI42))(VV[1],small_fixnum(1),small_fixnum(0))); |
70 |
|
goto T16; |
71 |
|
T16:; |
72 |
|
bds_bind(VV[2],symbol_value(VV[2])); |
73 |
|
{register object V18; |
74 |
|
register object V19; |
75 |
|
V18= car((V8)); |
76 |
|
V19= car((V18)); |
77 |
|
goto T24; |
78 |
|
T24:; |
79 |
|
if(!(endp_prop((V18)))){ |
80 |
|
goto T25;} |
81 |
|
goto T20; |
82 |
|
goto T25; |
83 |
|
T25:; |
84 |
|
if(endp_prop((V19))){ |
85 |
|
goto T30;} |
86 |
|
if(!(type_of(car((V19)))==t_symbol)){ |
87 |
|
goto T30;} |
88 |
|
if(!(endp_prop(cdr((V19))))){ |
89 |
|
goto T29;} |
90 |
|
goto T30; |
91 |
|
T30:; |
92 |
|
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[3],(V19)))); |
93 |
|
goto T29; |
94 |
|
T29:; |
95 |
|
{object V20; |
96 |
|
V20= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V19)),VV[5],Cnil,VV[6],Cnil)); |
97 |
|
(VV[2]->s.s_dbind)= make_cons(V20,(VV[2]->s.s_dbind)); |
98 |
|
{object V22; |
99 |
|
V22= list(2,(V20),cdr((V19))); |
100 |
|
V15= make_cons((V22),(V15));}} |
101 |
|
V18= cdr((V18)); |
102 |
|
V19= car((V18)); |
103 |
|
goto T24;} |
104 |
|
goto T20; |
105 |
|
T20:; |
106 |
|
base[1]= cdr((V8)); |
107 |
|
base[2]= Ct; |
108 |
|
vs_top=(vs_base=base+1)+2; |
109 |
|
(void) (*Lnk45)(); |
110 |
|
if(vs_base<vs_top){ |
111 |
|
V9= vs_base[0]; |
112 |
|
vs_base++; |
113 |
|
}else{ |
114 |
|
V9= Cnil;} |
115 |
|
if(vs_base<vs_top){ |
116 |
|
V10= vs_base[0]; |
117 |
|
vs_base++; |
118 |
|
}else{ |
119 |
|
V10= Cnil;} |
120 |
|
if(vs_base<vs_top){ |
121 |
|
V11= vs_base[0]; |
122 |
|
vs_base++; |
123 |
|
}else{ |
124 |
|
V11= Cnil;} |
125 |
|
if(vs_base<vs_top){ |
126 |
|
V12= vs_base[0]; |
127 |
|
vs_base++; |
128 |
|
}else{ |
129 |
|
V12= Cnil;} |
130 |
|
if(vs_base<vs_top){ |
131 |
|
V13= vs_base[0]; |
132 |
|
}else{ |
133 |
|
V13= Cnil;} |
134 |
|
vs_top=sup; |
135 |
|
bds_bind(VV[7],symbol_value(VV[7])); |
136 |
|
(void)((*(LnkLI46))((V10))); |
137 |
|
(void)((*(LnkLI47))(Cnil,(V11),(V12))); |
138 |
|
V9= (*(LnkLI48))((V13),(V9)); |
139 |
|
bds_unwind1; |
140 |
|
base[1]= cadr((V9)); |
141 |
|
vs_top=(vs_base=base+1)+1; |
142 |
|
(void) (*Lnk49)(); |
143 |
|
vs_top=sup; |
144 |
|
V14= vs_base[0]; |
145 |
|
bds_unwind1; |
146 |
|
{register object V23; |
147 |
|
register object V24; |
148 |
|
V23= reverse((V15)); |
149 |
|
V24= car((V23)); |
150 |
|
goto T61; |
151 |
|
T61:; |
152 |
|
if(!(endp_prop((V23)))){ |
153 |
|
goto T62;} |
154 |
|
goto T57; |
155 |
|
goto T62; |
156 |
|
T62:; |
157 |
|
if((structure_ref(car((V24)),VV[0],2))==Cnil){ |
158 |
|
goto T66;} |
159 |
|
base[2]= make_cons(VV[8],symbol_value(VV[7])); |
160 |
|
base[3]= make_cons(VV[8],symbol_value(VV[2])); |
161 |
|
base[4]= make_cons(VV[8],symbol_value(VV[9])); |
162 |
|
base[5]= make_cons(VV[8],symbol_value(VV[10])); |
163 |
|
bds_bind(VV[7],base[2]); |
164 |
|
bds_bind(VV[2],base[3]); |
165 |
|
bds_bind(VV[9],base[4]); |
166 |
|
bds_bind(VV[10],base[5]); |
167 |
|
{object V25; |
168 |
|
V26= cadr((V24)); |
169 |
|
V27= structure_ref(car((V24)),VV[0],0); |
170 |
|
V25= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V26,/* INLINE-ARGS */V27)); |
171 |
|
(void)((*(LnkLI51))((V14),cadr((V25)))); |
172 |
|
{object V28; |
173 |
|
V28= list(2,car((V24)),(V25)); |
174 |
|
V17= make_cons((V28),(V17)); |
175 |
|
bds_unwind1; |
176 |
|
bds_unwind1; |
177 |
|
bds_unwind1; |
178 |
|
bds_unwind1;}} |
179 |
|
goto T66; |
180 |
|
T66:; |
181 |
|
if((structure_ref(car((V24)),VV[0],1))==Cnil){ |
182 |
|
goto T77;} |
183 |
|
base[2]= make_cons(VV[11],symbol_value(VV[9])); |
184 |
|
base[3]= make_cons(VV[11],symbol_value(VV[10])); |
185 |
|
base[4]= make_cons(VV[11],symbol_value(VV[7])); |
186 |
|
bds_bind(VV[9],base[2]); |
187 |
|
bds_bind(VV[10],base[3]); |
188 |
|
bds_bind(VV[7],base[4]); |
189 |
|
{object V29; |
190 |
|
V30= cadr((V24)); |
191 |
|
V31= structure_ref(car((V24)),VV[0],0); |
192 |
|
V29= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V30,/* INLINE-ARGS */V31)); |
193 |
|
(void)((*(LnkLI51))((V14),cadr((V29)))); |
194 |
|
{object V32; |
195 |
|
V32= list(2,car((V24)),(V29)); |
196 |
|
V16= make_cons((V32),(V16)); |
197 |
|
bds_unwind1; |
198 |
|
bds_unwind1; |
199 |
|
bds_unwind1;}} |
200 |
|
goto T77; |
201 |
|
T77:; |
202 |
|
if((structure_ref(car((V24)),VV[0],1))!=Cnil){ |
203 |
|
goto T88;} |
204 |
|
if((structure_ref(car((V24)),VV[0],2))==Cnil){ |
205 |
|
goto T87;} |
206 |
|
goto T88; |
207 |
|
T88:; |
208 |
|
V33= car((V24)); |
209 |
|
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
210 |
|
(void)(structure_set(/* INLINE-ARGS */V33,VV[0],3,symbol_value(VV[12]))); |
211 |
|
goto T87; |
212 |
|
T87:; |
213 |
|
V23= cdr((V23)); |
214 |
|
V24= car((V23)); |
215 |
|
goto T61;} |
216 |
|
goto T57; |
217 |
|
T57:; |
218 |
|
if(((V16))!=Cnil){ |
219 |
|
goto T98;} |
220 |
|
if(((V17))==Cnil){ |
221 |
|
goto T99;} |
222 |
|
goto T98; |
223 |
|
T98:; |
224 |
|
V34= reverse((V16)); |
225 |
|
{object V35 = list(5,VV[1],(V14),/* INLINE-ARGS */V34,reverse((V17)),(V9)); |
226 |
|
VMR2(V35)} |
227 |
|
goto T99; |
228 |
|
T99:; |
229 |
|
{object V36 = (V9); |
230 |
|
VMR2(V36)}} |
231 |
|
base[0]=base[0]; |
232 |
|
return Cnil; |
233 |
|
} |
234 |
|
/* function definition for C2FLET */ |
235 |
|
|
236 |
|
static void L3() |
237 |
|
{register object *base=vs_base; |
238 |
|
register object *sup=base+VM3; VC3 |
239 |
|
vs_reserve(VM3); |
240 |
|
bds_check; |
241 |
|
{object V37; |
242 |
|
object V38; |
243 |
|
object V39; |
244 |
|
check_arg(3); |
245 |
|
V37=(base[0]); |
246 |
|
V38=(base[1]); |
247 |
|
V39=(base[2]); |
248 |
|
vs_top=sup; |
249 |
|
goto TTL; |
250 |
|
TTL:; |
251 |
|
bds_bind(VV[13],symbol_value(VV[13])); |
252 |
|
bds_bind(VV[14],symbol_value(VV[14])); |
253 |
|
bds_bind(VV[15],symbol_value(VV[15])); |
254 |
|
{register object V40; |
255 |
|
object V41; |
256 |
|
V40= (V37); |
257 |
|
V41= car((V40)); |
258 |
|
goto T107; |
259 |
|
T107:; |
260 |
|
if(!(endp_prop((V40)))){ |
261 |
|
goto T108;} |
262 |
|
goto T103; |
263 |
|
goto T108; |
264 |
|
T108:; |
265 |
|
(void)(structure_set(car((V41)),VV[0],4,symbol_value(VV[16]))); |
266 |
|
{object V42;{object V43; |
267 |
|
V43= (VV[14]->s.s_dbind);{object V44; |
268 |
|
V44= (VV[15]->s.s_dbind); |
269 |
|
V42= list(5,Cnil,V43,V44,car((V41)),cadr((V41)));}} |
270 |
|
setq(VV[17],make_cons((V42),symbol_value(VV[17])));} |
271 |
|
V40= cdr((V40)); |
272 |
|
V41= car((V40)); |
273 |
|
goto T107;} |
274 |
|
goto T103; |
275 |
|
T103:; |
276 |
|
{register object V45; |
277 |
|
register object V46; |
278 |
|
V45= (V38); |
279 |
|
V46= car((V45)); |
280 |
|
goto T125; |
281 |
|
T125:; |
282 |
|
if(!(endp_prop((V45)))){ |
283 |
|
goto T126;} |
284 |
|
goto T121; |
285 |
|
goto T126; |
286 |
|
T126:; |
287 |
|
{object V47; |
288 |
|
if(((VV[14]->s.s_dbind))!=Cnil){ |
289 |
|
goto T134;} |
290 |
|
V48= Cnil; |
291 |
|
goto T132; |
292 |
|
goto T134; |
293 |
|
T134:; |
294 |
|
V48= make_cons(small_fixnum(0),small_fixnum(0)); |
295 |
|
goto T132; |
296 |
|
T132:;{object V49; |
297 |
|
V49= (VV[15]->s.s_dbind); |
298 |
|
V47= list(5,VV[18],V48,V49,car((V46)),cadr((V46)));} |
299 |
|
setq(VV[17],make_cons((V47),symbol_value(VV[17])));} |
300 |
|
{object V50; |
301 |
|
V50= car((V46)); |
302 |
|
setq(VV[19],make_cons((V50),symbol_value(VV[19])));} |
303 |
|
{register object V51; |
304 |
|
V51= car((V46)); |
305 |
|
V52= (*(LnkLI52))(); |
306 |
|
(void)(structure_set((V51),VV[0],1,/* INLINE-ARGS */V52)); |
307 |
|
princ_str("\n ",VV[20]); |
308 |
|
V53= structure_ref((V51),VV[0],1); |
309 |
|
(void)((*(LnkLI53))(/* INLINE-ARGS */V53)); |
310 |
|
princ_str("=make_cclosure_new(LC",VV[20]); |
311 |
|
V54= structure_ref((V51),VV[0],3); |
312 |
|
(void)((*(LnkLI54))(/* INLINE-ARGS */V54)); |
313 |
|
princ_str(",Cnil,",VV[20]); |
314 |
|
(void)((VFUN_NARGS=0,(*(LnkLI55))())); |
315 |
|
princ_str(",Cdata);",VV[20]); |
316 |
|
princ_str("\n ",VV[20]); |
317 |
|
V55= structure_ref((V51),VV[0],1); |
318 |
|
(void)((*(LnkLI53))(/* INLINE-ARGS */V55)); |
319 |
|
princ_str("=MMcons(",VV[20]); |
320 |
|
V56= structure_ref((V51),VV[0],1); |
321 |
|
(void)((*(LnkLI53))(/* INLINE-ARGS */V56)); |
322 |
|
princ_char(44,VV[20]); |
323 |
|
(void)((VFUN_NARGS=0,(*(LnkLI55))())); |
324 |
|
princ_str(");",VV[20]); |
325 |
|
V57= structure_ref((V51),VV[0],1); |
326 |
|
(void)((*(LnkLI56))(/* INLINE-ARGS */V57)); |
327 |
|
V58= (*(LnkLI57))(); |
328 |
|
(void)(structure_set((V51),VV[0],2,/* INLINE-ARGS */V58));} |
329 |
|
V45= cdr((V45)); |
330 |
|
V46= car((V45)); |
331 |
|
goto T125;} |
332 |
|
goto T121; |
333 |
|
T121:; |
334 |
|
base[6]= (V39); |
335 |
|
vs_top=(vs_base=base+6)+1; |
336 |
|
(void) (*Lnk58)(); |
337 |
|
bds_unwind1; |
338 |
|
bds_unwind1; |
339 |
|
bds_unwind1; |
340 |
|
return; |
341 |
|
} |
342 |
|
} |
343 |
|
/* local entry for function C1LABELS */ |
344 |
|
|
345 |
|
static object LI4(V60) |
346 |
|
|
347 |
|
object V60; |
348 |
|
{ VMB4 VMS4 VMV4 |
349 |
|
bds_check; |
350 |
|
goto TTL; |
351 |
|
TTL:; |
352 |
|
{object V61; |
353 |
|
object V62; |
354 |
|
object V63; |
355 |
|
object V64; |
356 |
|
object V65; |
357 |
|
object V66; |
358 |
|
object V67; |
359 |
|
object V68; |
360 |
|
object V69; |
361 |
|
object V70; |
362 |
|
register object V71; |
363 |
|
V61= Cnil; |
364 |
|
V62= Cnil; |
365 |
|
V63= Cnil; |
366 |
|
V64= Cnil; |
367 |
|
V65= Cnil; |
368 |
|
V66= Cnil; |
369 |
|
V67= Cnil; |
370 |
|
V68= Cnil; |
371 |
|
V69= Cnil; |
372 |
|
V70= Cnil; |
373 |
|
V71= Cnil; |
374 |
|
bds_bind(VV[2],symbol_value(VV[2])); |
375 |
|
if(!(endp_prop((V60)))){ |
376 |
|
goto T180;} |
377 |
|
(void)((*(LnkLI42))(VV[21],small_fixnum(1),small_fixnum(0))); |
378 |
|
goto T180; |
379 |
|
T180:; |
380 |
|
{object V72; |
381 |
|
register object V73; |
382 |
|
V72= car((V60)); |
383 |
|
V73= car((V72)); |
384 |
|
goto T187; |
385 |
|
T187:; |
386 |
|
if(!(endp_prop((V72)))){ |
387 |
|
goto T188;} |
388 |
|
goto T183; |
389 |
|
goto T188; |
390 |
|
T188:; |
391 |
|
if(endp_prop((V73))){ |
392 |
|
goto T193;} |
393 |
|
if(!(type_of(car((V73)))==t_symbol)){ |
394 |
|
goto T193;} |
395 |
|
if(!(endp_prop(cdr((V73))))){ |
396 |
|
goto T192;} |
397 |
|
goto T193; |
398 |
|
T193:; |
399 |
|
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[22],(V73)))); |
400 |
|
goto T192; |
401 |
|
T192:; |
402 |
|
{register object x= car((V73)),V74= (V70); |
403 |
|
while(!endp(V74)) |
404 |
|
if(eql(x,V74->c.c_car)){ |
405 |
|
goto T201; |
406 |
|
}else V74=V74->c.c_cdr; |
407 |
|
goto T199;} |
408 |
|
goto T201; |
409 |
|
T201:; |
410 |
|
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[23],car((V73))))); |
411 |
|
goto T199; |
412 |
|
T199:; |
413 |
|
{object V75; |
414 |
|
V75= car((V73)); |
415 |
|
V70= make_cons((V75),(V70));} |
416 |
|
{object V76; |
417 |
|
V76= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V73)),VV[5],Cnil,VV[6],Cnil)); |
418 |
|
(VV[2]->s.s_dbind)= make_cons(V76,(VV[2]->s.s_dbind)); |
419 |
|
{object V78; |
420 |
|
V78= list(4,(V76),Cnil,Cnil,cdr((V73))); |
421 |
|
V67= make_cons((V78),(V67));}} |
422 |
|
V72= cdr((V72)); |
423 |
|
V73= car((V72)); |
424 |
|
goto T187;} |
425 |
|
goto T183; |
426 |
|
T183:; |
427 |
|
V67= reverse((V67)); |
428 |
|
base[1]= cdr((V60)); |
429 |
|
base[2]= Ct; |
430 |
|
vs_top=(vs_base=base+1)+2; |
431 |
|
(void) (*Lnk45)(); |
432 |
|
if(vs_base<vs_top){ |
433 |
|
V61= vs_base[0]; |
434 |
|
vs_base++; |
435 |
|
}else{ |
436 |
|
V61= Cnil;} |
437 |
|
if(vs_base<vs_top){ |
438 |
|
V62= vs_base[0]; |
439 |
|
vs_base++; |
440 |
|
}else{ |
441 |
|
V62= Cnil;} |
442 |
|
if(vs_base<vs_top){ |
443 |
|
V63= vs_base[0]; |
444 |
|
vs_base++; |
445 |
|
}else{ |
446 |
|
V63= Cnil;} |
447 |
|
if(vs_base<vs_top){ |
448 |
|
V64= vs_base[0]; |
449 |
|
vs_base++; |
450 |
|
}else{ |
451 |
|
V64= Cnil;} |
452 |
|
if(vs_base<vs_top){ |
453 |
|
V65= vs_base[0]; |
454 |
|
}else{ |
455 |
|
V65= Cnil;} |
456 |
|
vs_top=sup; |
457 |
|
bds_bind(VV[7],symbol_value(VV[7])); |
458 |
|
(void)((*(LnkLI46))((V62))); |
459 |
|
(void)((*(LnkLI47))(Cnil,(V63),(V64))); |
460 |
|
V61= (*(LnkLI48))((V65),(V61)); |
461 |
|
bds_unwind1; |
462 |
|
base[1]= cadr((V61)); |
463 |
|
vs_top=(vs_base=base+1)+1; |
464 |
|
(void) (*Lnk49)(); |
465 |
|
vs_top=sup; |
466 |
|
V66= vs_base[0]; |
467 |
|
goto T231; |
468 |
|
T231:; |
469 |
|
V71= Cnil; |
470 |
|
{register object V79; |
471 |
|
register object V80; |
472 |
|
V79= (V67); |
473 |
|
V80= car((V79)); |
474 |
|
goto T239; |
475 |
|
T239:; |
476 |
|
if(!(endp_prop((V79)))){ |
477 |
|
goto T240;} |
478 |
|
goto T235; |
479 |
|
goto T240; |
480 |
|
T240:; |
481 |
|
if((structure_ref(car((V80)),VV[0],1))==Cnil){ |
482 |
|
goto T244;} |
483 |
|
if((cadr((V80)))!=Cnil){ |
484 |
|
goto T244;} |
485 |
|
V71= Ct; |
486 |
|
if(type_of(cdr(V80))!=t_cons)FEwrong_type_argument(Scons,cdr(V80)); |
487 |
|
(cdr(V80))->c.c_car = Ct; |
488 |
|
(void)(cdr(V80)); |
489 |
|
base[2]= make_cons(VV[11],symbol_value(VV[9])); |
490 |
|
base[3]= make_cons(VV[11],symbol_value(VV[10])); |
491 |
|
base[4]= make_cons(VV[11],symbol_value(VV[7])); |
492 |
|
bds_bind(VV[9],base[2]); |
493 |
|
bds_bind(VV[10],base[3]); |
494 |
|
bds_bind(VV[7],base[4]); |
495 |
|
{object V83; |
496 |
|
V84= cadddr((V80)); |
497 |
|
V85= structure_ref(car((V80)),VV[0],0); |
498 |
|
V83= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V84,/* INLINE-ARGS */V85)); |
499 |
|
(void)((*(LnkLI51))((V66),cadr((V83)))); |
500 |
|
{object V86; |
501 |
|
V86= list(2,car((V80)),(V83)); |
502 |
|
V68= make_cons((V86),(V68)); |
503 |
|
bds_unwind1; |
504 |
|
bds_unwind1; |
505 |
|
bds_unwind1;}} |
506 |
|
goto T244; |
507 |
|
T244:; |
508 |
|
V79= cdr((V79)); |
509 |
|
V80= car((V79)); |
510 |
|
goto T239;} |
511 |
|
goto T235; |
512 |
|
T235:; |
513 |
|
if(((V71))!=Cnil){ |
514 |
|
goto T232;} |
515 |
|
goto T229; |
516 |
|
goto T232; |
517 |
|
T232:; |
518 |
|
goto T231; |
519 |
|
goto T229; |
520 |
|
T229:; |
521 |
|
goto T270; |
522 |
|
T270:; |
523 |
|
V71= Cnil; |
524 |
|
{register object V87; |
525 |
|
register object V88; |
526 |
|
V87= (V67); |
527 |
|
V88= car((V87)); |
528 |
|
goto T278; |
529 |
|
T278:; |
530 |
|
if(!(endp_prop((V87)))){ |
531 |
|
goto T279;} |
532 |
|
goto T274; |
533 |
|
goto T279; |
534 |
|
T279:; |
535 |
|
if((structure_ref(car((V88)),VV[0],2))==Cnil){ |
536 |
|
goto T283;} |
537 |
|
if((caddr((V88)))!=Cnil){ |
538 |
|
goto T283;} |
539 |
|
V71= Ct; |
540 |
|
if(type_of(cddr(V88))!=t_cons)FEwrong_type_argument(Scons,cddr(V88)); |
541 |
|
(cddr(V88))->c.c_car = Ct; |
542 |
|
(void)(cddr(V88)); |
543 |
|
base[2]= make_cons(VV[8],symbol_value(VV[7])); |
544 |
|
base[3]= make_cons(VV[8],(VV[2]->s.s_dbind)); |
545 |
|
base[4]= make_cons(VV[8],symbol_value(VV[9])); |
546 |
|
base[5]= make_cons(VV[8],symbol_value(VV[10])); |
547 |
|
bds_bind(VV[7],base[2]); |
548 |
|
bds_bind(VV[2],base[3]); |
549 |
|
bds_bind(VV[9],base[4]); |
550 |
|
bds_bind(VV[10],base[5]); |
551 |
|
{object V91; |
552 |
|
V92= cadddr((V88)); |
553 |
|
V93= structure_ref(car((V88)),VV[0],0); |
554 |
|
V91= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V92,/* INLINE-ARGS */V93)); |
555 |
|
(void)((*(LnkLI51))((V66),cadr((V91)))); |
556 |
|
{object V94; |
557 |
|
V94= list(2,car((V88)),(V91)); |
558 |
|
V69= make_cons((V94),(V69)); |
559 |
|
bds_unwind1; |
560 |
|
bds_unwind1; |
561 |
|
bds_unwind1; |
562 |
|
bds_unwind1;}} |
563 |
|
goto T283; |
564 |
|
T283:; |
565 |
|
V87= cdr((V87)); |
566 |
|
V88= car((V87)); |
567 |
|
goto T278;} |
568 |
|
goto T274; |
569 |
|
T274:; |
570 |
|
if(((V71))!=Cnil){ |
571 |
|
goto T271;} |
572 |
|
goto T268; |
573 |
|
goto T271; |
574 |
|
T271:; |
575 |
|
goto T270; |
576 |
|
goto T268; |
577 |
|
T268:; |
578 |
|
{object V95; |
579 |
|
object V96; |
580 |
|
V95= (V67); |
581 |
|
V96= car((V95)); |
582 |
|
goto T312; |
583 |
|
T312:; |
584 |
|
if(!(endp_prop((V95)))){ |
585 |
|
goto T313;} |
586 |
|
goto T308; |
587 |
|
goto T313; |
588 |
|
T313:; |
589 |
|
if((structure_ref(car((V96)),VV[0],1))!=Cnil){ |
590 |
|
goto T318;} |
591 |
|
if((structure_ref(car((V96)),VV[0],2))==Cnil){ |
592 |
|
goto T317;} |
593 |
|
goto T318; |
594 |
|
T318:; |
595 |
|
V97= car((V96)); |
596 |
|
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
597 |
|
(void)(structure_set(/* INLINE-ARGS */V97,VV[0],3,symbol_value(VV[12]))); |
598 |
|
goto T317; |
599 |
|
T317:; |
600 |
|
V95= cdr((V95)); |
601 |
|
V96= car((V95)); |
602 |
|
goto T312;} |
603 |
|
goto T308; |
604 |
|
T308:; |
605 |
|
if(((V68))!=Cnil){ |
606 |
|
goto T328;} |
607 |
|
if(((V69))==Cnil){ |
608 |
|
goto T329;} |
609 |
|
goto T328; |
610 |
|
T328:; |
611 |
|
V98= reverse((V68)); |
612 |
|
{object V99 = list(5,VV[21],(V66),/* INLINE-ARGS */V98,reverse((V69)),(V61)); |
613 |
|
bds_unwind1; |
614 |
|
VMR4(V99)} |
615 |
|
goto T329; |
616 |
|
T329:; |
617 |
|
{object V100 = (V61); |
618 |
|
bds_unwind1; |
619 |
|
VMR4(V100)}} |
620 |
|
base[0]=base[0]; |
621 |
|
return Cnil; |
622 |
|
} |
623 |
|
/* function definition for C2LABELS */ |
624 |
|
|
625 |
|
static void L5() |
626 |
|
{register object *base=vs_base; |
627 |
|
register object *sup=base+VM5; VC5 |
628 |
|
vs_reserve(VM5); |
629 |
|
bds_check; |
630 |
|
{object V101; |
631 |
|
object V102; |
632 |
|
object V103; |
633 |
|
check_arg(3); |
634 |
|
V101=(base[0]); |
635 |
|
V102=(base[1]); |
636 |
|
V103=(base[2]); |
637 |
|
vs_top=sup; |
638 |
|
goto TTL; |
639 |
|
TTL:; |
640 |
|
bds_bind(VV[13],symbol_value(VV[13])); |
641 |
|
bds_bind(VV[14],symbol_value(VV[14])); |
642 |
|
{register object V104; |
643 |
|
object V105; |
644 |
|
V104= (V102); |
645 |
|
V105= car((V104)); |
646 |
|
goto T337; |
647 |
|
T337:; |
648 |
|
if(!(endp_prop((V104)))){ |
649 |
|
goto T338;} |
650 |
|
goto T333; |
651 |
|
goto T338; |
652 |
|
T338:; |
653 |
|
{register object V106; |
654 |
|
V106= car((V105)); |
655 |
|
V107= (*(LnkLI52))(); |
656 |
|
(void)(structure_set((V106),VV[0],1,/* INLINE-ARGS */V107)); |
657 |
|
princ_str("\n ",VV[20]); |
658 |
|
V108= structure_ref((V106),VV[0],1); |
659 |
|
(void)((*(LnkLI53))(/* INLINE-ARGS */V108)); |
660 |
|
princ_str("=MMcons(Cnil,",VV[20]); |
661 |
|
(void)((VFUN_NARGS=0,(*(LnkLI55))())); |
662 |
|
princ_str(");",VV[20]); |
663 |
|
V109= structure_ref((V106),VV[0],1); |
664 |
|
(void)((*(LnkLI56))(/* INLINE-ARGS */V109)); |
665 |
|
V110= (*(LnkLI57))(); |
666 |
|
(void)(structure_set((V106),VV[0],2,/* INLINE-ARGS */V110));} |
667 |
|
V104= cdr((V104)); |
668 |
|
V105= car((V104)); |
669 |
|
goto T337;} |
670 |
|
goto T333; |
671 |
|
T333:; |
672 |
|
{register object V111; |
673 |
|
object V112; |
674 |
|
V111= (V101); |
675 |
|
V112= car((V111)); |
676 |
|
goto T362; |
677 |
|
T362:; |
678 |
|
if(!(endp_prop((V111)))){ |
679 |
|
goto T363;} |
680 |
|
goto T358; |
681 |
|
goto T363; |
682 |
|
T363:; |
683 |
|
(void)(structure_set(car((V112)),VV[0],4,symbol_value(VV[16]))); |
684 |
|
{object V113;{object V114; |
685 |
|
V114= (VV[14]->s.s_dbind);{object V115; |
686 |
|
V115= symbol_value(VV[15]); |
687 |
|
V113= list(5,Cnil,V114,V115,car((V112)),cadr((V112)));}} |
688 |
|
setq(VV[17],make_cons((V113),symbol_value(VV[17])));} |
689 |
|
V111= cdr((V111)); |
690 |
|
V112= car((V111)); |
691 |
|
goto T362;} |
692 |
|
goto T358; |
693 |
|
T358:; |
694 |
|
{register object V116; |
695 |
|
register object V117; |
696 |
|
V116= (V102); |
697 |
|
V117= car((V116)); |
698 |
|
goto T380; |
699 |
|
T380:; |
700 |
|
if(!(endp_prop((V116)))){ |
701 |
|
goto T381;} |
702 |
|
goto T376; |
703 |
|
goto T381; |
704 |
|
T381:; |
705 |
|
{object V118; |
706 |
|
if(((VV[14]->s.s_dbind))!=Cnil){ |
707 |
|
goto T389;} |
708 |
|
V119= Cnil; |
709 |
|
goto T387; |
710 |
|
goto T389; |
711 |
|
T389:; |
712 |
|
V119= make_cons(small_fixnum(0),small_fixnum(0)); |
713 |
|
goto T387; |
714 |
|
T387:;{object V120; |
715 |
|
V120= symbol_value(VV[15]); |
716 |
|
V118= list(5,VV[18],V119,V120,car((V117)),cadr((V117)));} |
717 |
|
setq(VV[17],make_cons((V118),symbol_value(VV[17])));} |
718 |
|
{object V121; |
719 |
|
V121= car((V117)); |
720 |
|
setq(VV[19],make_cons((V121),symbol_value(VV[19])));} |
721 |
|
princ_str("\n ",VV[20]); |
722 |
|
V122= structure_ref(car((V117)),VV[0],1); |
723 |
|
(void)((*(LnkLI59))(/* INLINE-ARGS */V122)); |
724 |
|
princ_str("=make_cclosure_new(LC",VV[20]); |
725 |
|
V123= structure_ref(car((V117)),VV[0],3); |
726 |
|
(void)((*(LnkLI54))(/* INLINE-ARGS */V123)); |
727 |
|
princ_str(",Cnil,",VV[20]); |
728 |
|
(void)((VFUN_NARGS=0,(*(LnkLI55))())); |
729 |
|
princ_str(",Cdata);",VV[20]); |
730 |
|
V116= cdr((V116)); |
731 |
|
V117= car((V116)); |
732 |
|
goto T380;} |
733 |
|
goto T376; |
734 |
|
T376:; |
735 |
|
base[5]= (V103); |
736 |
|
vs_top=(vs_base=base+5)+1; |
737 |
|
(void) (*Lnk58)(); |
738 |
|
bds_unwind1; |
739 |
|
bds_unwind1; |
740 |
|
return; |
741 |
|
} |
742 |
|
} |
743 |
|
/* local entry for function C1MACROLET */ |
744 |
|
|
745 |
|
static object LI6(V125) |
746 |
|
|
747 |
|
object V125; |
748 |
|
{ VMB6 VMS6 VMV6 |
749 |
|
bds_check; |
750 |
|
goto TTL; |
751 |
|
TTL:; |
752 |
|
{object V126; |
753 |
|
object V127; |
754 |
|
object V128; |
755 |
|
object V129; |
756 |
|
object V130; |
757 |
|
V126= Cnil; |
758 |
|
V127= Cnil; |
759 |
|
V128= Cnil; |
760 |
|
V129= Cnil; |
761 |
|
V130= Cnil; |
762 |
|
bds_bind(VV[2],symbol_value(VV[2])); |
763 |
|
bds_bind(VV[7],symbol_value(VV[7])); |
764 |
|
if(!(endp_prop((V125)))){ |
765 |
|
goto T415;} |
766 |
|
(void)((*(LnkLI42))(VV[24],small_fixnum(1),small_fixnum(0))); |
767 |
|
goto T415; |
768 |
|
T415:; |
769 |
|
{register object V131; |
770 |
|
register object V132; |
771 |
|
V131= car((V125)); |
772 |
|
V132= car((V131)); |
773 |
|
goto T422; |
774 |
|
T422:; |
775 |
|
if(!(endp_prop((V131)))){ |
776 |
|
goto T423;} |
777 |
|
goto T418; |
778 |
|
goto T423; |
779 |
|
T423:; |
780 |
|
if(endp_prop((V132))){ |
781 |
|
goto T428;} |
782 |
|
if(!(type_of(car((V132)))==t_symbol)){ |
783 |
|
goto T428;} |
784 |
|
if(!(endp_prop(cdr((V132))))){ |
785 |
|
goto T427;} |
786 |
|
goto T428; |
787 |
|
T428:; |
788 |
|
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[25],(V132)))); |
789 |
|
goto T427; |
790 |
|
T427:; |
791 |
|
{register object V133; |
792 |
|
V134= car((V132)); |
793 |
|
V135= (*(LnkLI60))(car((V132)),cadr((V132)),cddr((V132))); |
794 |
|
V133= list(2,/* INLINE-ARGS */V134,caddr(/* INLINE-ARGS */V135)); |
795 |
|
(VV[2]->s.s_dbind)= make_cons((V133),(VV[2]->s.s_dbind));} |
796 |
|
V131= cdr((V131)); |
797 |
|
V132= car((V131)); |
798 |
|
goto T422;} |
799 |
|
goto T418; |
800 |
|
T418:; |
801 |
|
base[2]= cdr((V125)); |
802 |
|
base[3]= Ct; |
803 |
|
vs_top=(vs_base=base+2)+2; |
804 |
|
(void) (*Lnk45)(); |
805 |
|
if(vs_base<vs_top){ |
806 |
|
V126= vs_base[0]; |
807 |
|
vs_base++; |
808 |
|
}else{ |
809 |
|
V126= Cnil;} |
810 |
|
if(vs_base<vs_top){ |
811 |
|
V127= vs_base[0]; |
812 |
|
vs_base++; |
813 |
|
}else{ |
814 |
|
V127= Cnil;} |
815 |
|
if(vs_base<vs_top){ |
816 |
|
V128= vs_base[0]; |
817 |
|
vs_base++; |
818 |
|
}else{ |
819 |
|
V128= Cnil;} |
820 |
|
if(vs_base<vs_top){ |
821 |
|
V129= vs_base[0]; |
822 |
|
vs_base++; |
823 |
|
}else{ |
824 |
|
V129= Cnil;} |
825 |
|
if(vs_base<vs_top){ |
826 |
|
V130= vs_base[0]; |
827 |
|
}else{ |
828 |
|
V130= Cnil;} |
829 |
|
vs_top=sup; |
830 |
|
(void)((*(LnkLI46))((V127))); |
831 |
|
(void)((*(LnkLI47))(Cnil,(V128),(V129))); |
832 |
|
{object V136 = (*(LnkLI48))((V130),(V126)); |
833 |
|
bds_unwind1; |
834 |
|
bds_unwind1; |
835 |
|
VMR6(V136)}} |
836 |
|
base[0]=base[0]; |
837 |
|
return Cnil; |
838 |
|
} |
839 |
|
/* local entry for function C1LOCAL-FUN */ |
840 |
|
|
841 |
|
static object LI7(V138) |
842 |
|
|
843 |
|
register object V138; |
844 |
|
{ VMB7 VMS7 VMV7 |
845 |
|
goto TTL; |
846 |
|
TTL:; |
847 |
|
{register object V139; |
848 |
|
V139= Cnil; |
849 |
|
{register object V140; |
850 |
|
register object V141; |
851 |
|
V140= symbol_value(VV[2]); |
852 |
|
V141= car((V140)); |
853 |
|
goto T452; |
854 |
|
T452:; |
855 |
|
if(!(endp_prop((V140)))){ |
856 |
|
goto T453;} |
857 |
|
{object V142 = Cnil; |
858 |
|
VMR7(V142)} |
859 |
|
goto T453; |
860 |
|
T453:; |
861 |
|
if(!(((V141))==(VV[8]))){ |
862 |
|
goto T459;} |
863 |
|
V139= Ct; |
864 |
|
goto T457; |
865 |
|
goto T459; |
866 |
|
T459:; |
867 |
|
if(!(type_of((V141))==t_cons)){ |
868 |
|
goto T463;} |
869 |
|
if(!((car((V141)))==((V138)))){ |
870 |
|
goto T457;} |
871 |
|
{object V143 = cadr((V141)); |
872 |
|
VMR7(V143)} |
873 |
|
goto T463; |
874 |
|
T463:; |
875 |
|
V144= structure_ref((V141),VV[0],0); |
876 |
|
if(!((/* INLINE-ARGS */V144)==((V138)))){ |
877 |
|
goto T457;} |
878 |
|
if(((V139))==Cnil){ |
879 |
|
goto T471;} |
880 |
|
(void)(structure_set((V141),VV[0],2,Ct)); |
881 |
|
goto T469; |
882 |
|
goto T471; |
883 |
|
T471:; |
884 |
|
(void)(structure_set((V141),VV[0],1,Ct)); |
885 |
|
goto T469; |
886 |
|
T469:; |
887 |
|
{object V145 = list(4,VV[26],symbol_value(VV[27]),(V141),(V139)); |
888 |
|
VMR7(V145)} |
889 |
|
goto T457; |
890 |
|
T457:; |
891 |
|
V140= cdr((V140)); |
892 |
|
V141= car((V140)); |
893 |
|
goto T452;}} |
894 |
|
base[0]=base[0]; |
895 |
|
return Cnil; |
896 |
|
} |
897 |
|
/* local entry for function SCH-LOCAL-FUN */ |
898 |
|
|
899 |
|
static object LI8(V147) |
900 |
|
|
901 |
|
register object V147; |
902 |
|
{ VMB8 VMS8 VMV8 |
903 |
|
goto TTL; |
904 |
|
TTL:; |
905 |
|
{register object V148; |
906 |
|
register object V149; |
907 |
|
V148= symbol_value(VV[2]); |
908 |
|
V149= car((V148)); |
909 |
|
goto T481; |
910 |
|
T481:; |
911 |
|
if(!(endp_prop((V148)))){ |
912 |
|
goto T482;} |
913 |
|
{object V150 = (V147); |
914 |
|
VMR8(V150)} |
915 |
|
goto T482; |
916 |
|
T482:; |
917 |
|
if(((V149))==(VV[8])){ |
918 |
|
goto T486;} |
919 |
|
if(type_of((V149))==t_cons){ |
920 |
|
goto T486;} |
921 |
|
V151= structure_ref((V149),VV[0],0); |
922 |
|
if(!((/* INLINE-ARGS */V151)==((V147)))){ |
923 |
|
goto T486;} |
924 |
|
{object V152 = (V149); |
925 |
|
VMR8(V152)} |
926 |
|
goto T486; |
927 |
|
T486:; |
928 |
|
V148= cdr((V148)); |
929 |
|
V149= car((V148)); |
930 |
|
goto T481;} |
931 |
|
base[0]=base[0]; |
932 |
|
return Cnil; |
933 |
|
} |
934 |
|
/* local entry for function C1LOCAL-CLOSURE */ |
935 |
|
|
936 |
|
static object LI9(V154) |
937 |
|
|
938 |
|
register object V154; |
939 |
|
{ VMB9 VMS9 VMV9 |
940 |
|
goto TTL; |
941 |
|
TTL:; |
942 |
|
{register object V155; |
943 |
|
V155= Cnil; |
944 |
|
{register object V156; |
945 |
|
register object V157; |
946 |
|
V156= symbol_value(VV[2]); |
947 |
|
V157= car((V156)); |
948 |
|
goto T502; |
949 |
|
T502:; |
950 |
|
if(!(endp_prop((V156)))){ |
951 |
|
goto T503;} |
952 |
|
{object V158 = Cnil; |
953 |
|
VMR9(V158)} |
954 |
|
goto T503; |
955 |
|
T503:; |
956 |
|
if(!(((V157))==(VV[8]))){ |
957 |
|
goto T509;} |
958 |
|
V155= Ct; |
959 |
|
goto T507; |
960 |
|
goto T509; |
961 |
|
T509:; |
962 |
|
if(!(type_of((V157))==t_cons)){ |
963 |
|
goto T513;} |
964 |
|
if(!((car((V157)))==((V154)))){ |
965 |
|
goto T507;} |
966 |
|
{object V159 = cadr((V157)); |
967 |
|
VMR9(V159)} |
968 |
|
goto T513; |
969 |
|
T513:; |
970 |
|
V160= structure_ref((V157),VV[0],0); |
971 |
|
if(!((/* INLINE-ARGS */V160)==((V154)))){ |
972 |
|
goto T507;} |
973 |
|
(void)(structure_set((V157),VV[0],2,Ct)); |
974 |
|
{object V161 = list(4,VV[26],symbol_value(VV[27]),(V157),(V155)); |
975 |
|
VMR9(V161)} |
976 |
|
goto T507; |
977 |
|
T507:; |
978 |
|
V156= cdr((V156)); |
979 |
|
V157= car((V156)); |
980 |
|
goto T502;}} |
981 |
|
base[0]=base[0]; |
982 |
|
return Cnil; |
983 |
|
} |
984 |
|
/* local entry for function C2CALL-LOCAL */ |
985 |
|
|
986 |
|
static object LI10(V164,V165) |
987 |
|
|
988 |
|
register object V164;register object V165; |
989 |
|
{ VMB10 VMS10 VMV10 |
990 |
|
bds_check; |
991 |
|
goto TTL; |
992 |
|
TTL:; |
993 |
|
bds_bind(VV[13],symbol_value(VV[13])); |
994 |
|
if((cadr((V164)))==Cnil){ |
995 |
|
goto T527;} |
996 |
|
(void)((*(LnkLI61))((V165))); |
997 |
|
princ_str("\n cclosure_call(",VV[20]); |
998 |
|
V166= structure_ref(car((V164)),VV[0],2); |
999 |
|
(void)((*(LnkLI62))(/* INLINE-ARGS */V166)); |
1000 |
|
princ_str(");",VV[20]); |
1001 |
|
goto T525; |
1002 |
|
goto T527; |
1003 |
|
T527:; |
1004 |
|
if(!(type_of((V165))==t_cons||((V165))==Cnil)){ |
1005 |
|
goto T535;} |
1006 |
|
if((symbol_value(VV[28]))==Cnil){ |
1007 |
|
goto T535;} |
1008 |
|
if((symbol_value(VV[29]))==Cnil){ |
1009 |
|
goto T535;} |
1010 |
|
if(!((car(symbol_value(VV[29])))==(car((V164))))){ |
1011 |
|
goto T535;} |
1012 |
|
if(!((symbol_value(VV[30]))==(VV[31]))){ |
1013 |
|
goto T535;} |
1014 |
|
if(((*(LnkLI63))())==Cnil){ |
1015 |
|
goto T535;} |
1016 |
|
if(!(((long)length((V165)))==((long)length(cdr(symbol_value(VV[29])))))){ |
1017 |
|
goto T535;} |
1018 |
|
bds_bind(VV[32],VV[33]); |
1019 |
|
setq(VV[34],number_plus(symbol_value(VV[34]),small_fixnum(1))); |
1020 |
|
bds_bind(VV[30],make_cons(symbol_value(VV[34]),Cnil)); |
1021 |
|
bds_bind(VV[35],make_cons((VV[30]->s.s_dbind),symbol_value(VV[35]))); |
1022 |
|
{object V168; |
1023 |
|
object V169= cdr(symbol_value(VV[29])); |
1024 |
|
if(endp(V169)){ |
1025 |
|
V167= Cnil; |
1026 |
|
goto T554;} |
1027 |
|
base[4]=V168=MMcons(Cnil,Cnil); |
1028 |
|
goto T555; |
1029 |
|
T555:; |
1030 |
|
(V168->c.c_car)= list(2,(V169->c.c_car),Cnil); |
1031 |
|
V169=MMcdr(V169); |
1032 |
|
if(endp(V169)){ |
1033 |
|
V167= base[4]; |
1034 |
|
goto T554;} |
1035 |
|
V168=MMcdr(V168)=MMcons(Cnil,Cnil); |
1036 |
|
goto T555;} |
1037 |
|
goto T554; |
1038 |
|
T554:; |
1039 |
|
(void)((*(LnkLI64))(V167,(V165))); |
1040 |
|
if((cdr((VV[30]->s.s_dbind)))==Cnil){ |
1041 |
|
bds_unwind1; |
1042 |
|
bds_unwind1; |
1043 |
|
bds_unwind1; |
1044 |
|
goto T549;} |
1045 |
|
princ_str("\n goto T",VV[20]); |
1046 |
|
(void)((*(LnkLI54))(car((VV[30]->s.s_dbind)))); |
1047 |
|
princ_char(59,VV[20]); |
1048 |
|
princ_str("\nT",VV[20]); |
1049 |
|
(void)((*(LnkLI54))(car((VV[30]->s.s_dbind)))); |
1050 |
|
princ_str(":;",VV[20]); |
1051 |
|
bds_unwind1; |
1052 |
|
bds_unwind1; |
1053 |
|
bds_unwind1; |
1054 |
|
goto T549; |
1055 |
|
T549:; |
1056 |
|
(void)((*(LnkLI65))(VV[36])); |
1057 |
|
princ_str("\n goto TTL;",VV[20]); |
1058 |
|
V171= structure_ref(car((V164)),VV[0],0); |
1059 |
|
(void)((VFUN_NARGS=2,(*(LnkLI66))(VV[37],/* INLINE-ARGS */V171))); |
1060 |
|
goto T525; |
1061 |
|
goto T535; |
1062 |
|
T535:; |
1063 |
|
(void)((*(LnkLI61))((V165))); |
1064 |
|
princ_str("\n L",VV[20]); |
1065 |
|
V172= structure_ref(car((V164)),VV[0],3); |
1066 |
|
(void)((*(LnkLI54))(/* INLINE-ARGS */V172)); |
1067 |
|
princ_char(40,VV[20]); |
1068 |
|
{register long V173; |
1069 |
|
register long V174; |
1070 |
|
V173= fix(structure_ref(car((V164)),VV[0],4)); |
1071 |
|
V174= 0; |
1072 |
|
goto T578; |
1073 |
|
T578:; |
1074 |
|
if(!((V174)>=(V173))){ |
1075 |
|
goto T579;} |
1076 |
|
goto T574; |
1077 |
|
goto T579; |
1078 |
|
T579:; |
1079 |
|
princ_str("base",VV[20]); |
1080 |
|
V175 = make_fixnum(V174); |
1081 |
|
(void)((*(LnkLI54))(V175)); |
1082 |
|
princ_char(44,VV[20]); |
1083 |
|
V174= (long)(V174)+1; |
1084 |
|
goto T578;} |
1085 |
|
goto T574; |
1086 |
|
T574:; |
1087 |
|
princ_str("base",VV[20]); |
1088 |
|
V176= structure_ref(car((V164)),VV[0],4); |
1089 |
|
if(number_compare(/* INLINE-ARGS */V176,symbol_value(VV[16]))==0){ |
1090 |
|
goto T592;} |
1091 |
|
V177= structure_ref(car((V164)),VV[0],4); |
1092 |
|
(void)((*(LnkLI54))(/* INLINE-ARGS */V177)); |
1093 |
|
goto T592; |
1094 |
|
T592:; |
1095 |
|
princ_str(");",VV[20]); |
1096 |
|
setq(VV[38],Ct); |
1097 |
|
goto T525; |
1098 |
|
T525:; |
1099 |
|
{object V178 = (VFUN_NARGS=1,(*(LnkLI67))(VV[39])); |
1100 |
|
bds_unwind1; |
1101 |
|
VMR10(V178)} |
1102 |
|
base[0]=base[0]; |
1103 |
|
return Cnil; |
1104 |
|
} |
1105 |
|
static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[67],(void **)(void *)&LnkLI67,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */ |
1106 |
|
static object LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[66],(void **)(void *)&LnkLI66,first,ap);va_end(ap);return V1;} /* CMPNOTE */ |
1107 |
|
static object LnkTLI65(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[65],(void **)(void *)&LnkLI65,1,first,ap);va_end(ap);return V1;} /* UNWIND-NO-EXIT */ |
1108 |
|
static object LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[64],(void **)(void *)&LnkLI64,2,first,ap);va_end(ap);return V1;} /* C2PSETQ */ |
1109 |
|
static object LnkTLI63(){return call_proc0(VV[63],(void **)(void *)&LnkLI63);} /* TAIL-RECURSION-POSSIBLE */ |
1110 |
|
static object LnkTLI62(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[62],(void **)(void *)&LnkLI62,1,first,ap);va_end(ap);return V1;} /* WT-CCB-VS */ |
1111 |
|
static object LnkTLI61(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[61],(void **)(void *)&LnkLI61,1,first,ap);va_end(ap);return V1;} /* PUSH-ARGS */ |
1112 |
|
static object LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)(void *)&LnkLI60,3,first,ap);va_end(ap);return V1;} /* DEFMACRO* */ |
1113 |
|
static object LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[59],(void **)(void *)&LnkLI59,1,first,ap);va_end(ap);return V1;} /* WT-VS* */ |
1114 |
|
static void LnkT58(){ call_or_link(VV[58],(void **)(void *)&Lnk58);} /* C2EXPR */ |
1115 |
|
static object LnkTLI57(){return call_proc0(VV[57],(void **)(void *)&LnkLI57);} /* CCB-VS-PUSH */ |
1116 |
|
static object LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[56],(void **)(void *)&LnkLI56,1,first,ap);va_end(ap);return V1;} /* CLINK */ |
1117 |
|
static object LnkTLI55(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[55],(void **)(void *)&LnkLI55,first,ap);va_end(ap);return V1;} /* WT-CLINK */ |
1118 |
|
static object LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[54],(void **)(void *)&LnkLI54,1,first,ap);va_end(ap);return V1;} /* WT1 */ |
1119 |
|
static object LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[53],(void **)(void *)&LnkLI53,1,first,ap);va_end(ap);return V1;} /* WT-VS */ |
1120 |
|
static object LnkTLI52(){return call_proc0(VV[52],(void **)(void *)&LnkLI52);} /* VS-PUSH */ |
1121 |
|
static object LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)(void *)&LnkLI51,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */ |
1122 |
|
static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[50],(void **)(void *)&LnkLI50,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */ |
1123 |
|
static void LnkT49(){ call_or_link(VV[49],(void **)(void *)&Lnk49);} /* COPY-INFO */ |
1124 |
|
static object LnkTLI48(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[48],(void **)(void *)&LnkLI48,2,first,ap);va_end(ap);return V1;} /* C1DECL-BODY */ |
1125 |
|
static object LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)(void *)&LnkLI47,3,first,ap);va_end(ap);return V1;} /* CHECK-VDECL */ |
1126 |
|
static object LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)(void *)&LnkLI46,1,first,ap);va_end(ap);return V1;} /* C1ADD-GLOBALS */ |
1127 |
|
static void LnkT45(){ call_or_link(VV[45],(void **)(void *)&Lnk45);} /* C1BODY */ |
1128 |
|
static object LnkTLI44(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[44],(void **)(void *)&LnkLI44,first,ap);va_end(ap);return V1;} /* MAKE-FUN */ |
1129 |
|
static object LnkTLI43(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[43],(void **)(void *)&LnkLI43,first,ap);va_end(ap);return V1;} /* CMPERR */ |
1130 |
|
static object LnkTLI42(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[42],(void **)(void *)&LnkLI42,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */ |
1131 |
|
|
1132 |
|
#ifdef SYSTEM_SPECIAL_INIT |
1133 |
|
SYSTEM_SPECIAL_INIT |
1134 |
|
#endif |
1135 |
|
|