1 |
|
|
2 |
|
#include "cmpinclude.h" |
3 |
|
#include "gcl_cmpmap.h" |
4 |
|
void init_gcl_cmpmap(){do_init(VV);} |
5 |
|
/* local entry for function C1MAPCAR */ |
6 |
|
|
7 |
|
static object LI1(V2) |
8 |
|
|
9 |
|
object V2; |
10 |
|
{ VMB1 VMS1 VMV1 |
11 |
|
goto TTL; |
12 |
|
TTL:; |
13 |
|
{object V3 = (*(LnkLI23))(VV[0],Ct,(V2)); |
14 |
|
VMR1(V3)} |
15 |
|
return Cnil; |
16 |
|
} |
17 |
|
/* local entry for function C1MAPLIST */ |
18 |
|
|
19 |
|
static object LI2(V5) |
20 |
|
|
21 |
|
object V5; |
22 |
|
{ VMB2 VMS2 VMV2 |
23 |
|
goto TTL; |
24 |
|
TTL:; |
25 |
|
{object V6 = (*(LnkLI23))(VV[0],Cnil,(V5)); |
26 |
|
VMR2(V6)} |
27 |
|
return Cnil; |
28 |
|
} |
29 |
|
/* local entry for function C1MAPC */ |
30 |
|
|
31 |
|
static object LI3(V8) |
32 |
|
|
33 |
|
object V8; |
34 |
|
{ VMB3 VMS3 VMV3 |
35 |
|
goto TTL; |
36 |
|
TTL:; |
37 |
|
{object V9 = (*(LnkLI23))(VV[1],Ct,(V8)); |
38 |
|
VMR3(V9)} |
39 |
|
return Cnil; |
40 |
|
} |
41 |
|
/* local entry for function C1MAPL */ |
42 |
|
|
43 |
|
static object LI4(V11) |
44 |
|
|
45 |
|
object V11; |
46 |
|
{ VMB4 VMS4 VMV4 |
47 |
|
goto TTL; |
48 |
|
TTL:; |
49 |
|
{object V12 = (*(LnkLI23))(VV[1],Cnil,(V11)); |
50 |
|
VMR4(V12)} |
51 |
|
return Cnil; |
52 |
|
} |
53 |
|
/* local entry for function C1MAPCAN */ |
54 |
|
|
55 |
|
static object LI5(V14) |
56 |
|
|
57 |
|
object V14; |
58 |
|
{ VMB5 VMS5 VMV5 |
59 |
|
goto TTL; |
60 |
|
TTL:; |
61 |
|
{object V15 = (*(LnkLI23))(VV[2],Ct,(V14)); |
62 |
|
VMR5(V15)} |
63 |
|
return Cnil; |
64 |
|
} |
65 |
|
/* local entry for function C1MAPCON */ |
66 |
|
|
67 |
|
static object LI6(V17) |
68 |
|
|
69 |
|
object V17; |
70 |
|
{ VMB6 VMS6 VMV6 |
71 |
|
goto TTL; |
72 |
|
TTL:; |
73 |
|
{object V18 = (*(LnkLI23))(VV[2],Cnil,(V17)); |
74 |
|
VMR6(V18)} |
75 |
|
return Cnil; |
76 |
|
} |
77 |
|
/* local entry for function C1MAP-FUNCTIONS */ |
78 |
|
|
79 |
|
static object LI7(V22,V23,V24) |
80 |
|
|
81 |
|
object V22;object V23;register object V24; |
82 |
|
{ VMB7 VMS7 VMV7 |
83 |
|
goto TTL; |
84 |
|
TTL:; |
85 |
|
{object V25; |
86 |
|
object V26; |
87 |
|
V25= Cnil; |
88 |
|
V26= Cnil; |
89 |
|
if(endp_prop((V24))){ |
90 |
|
goto T4;} |
91 |
|
if(!(endp_prop(cdr((V24))))){ |
92 |
|
goto T3;} |
93 |
|
goto T4; |
94 |
|
T4:; |
95 |
|
V27 = make_fixnum((long)length((V24))); |
96 |
|
(void)((*(LnkLI24))(VV[3],small_fixnum(2),V27)); |
97 |
|
goto T3; |
98 |
|
T3:; |
99 |
|
V25= (*(LnkLI25))(car((V24))); |
100 |
|
base[0]= cadr((V25)); |
101 |
|
vs_top=(vs_base=base+0)+1; |
102 |
|
(void) (*Lnk26)(); |
103 |
|
vs_top=sup; |
104 |
|
V26= vs_base[0]; |
105 |
|
{object V28 = list(5,(V22),(V26),(V25),(V23),(*(LnkLI27))(cdr((V24)),(V26))); |
106 |
|
VMR7(V28)}} |
107 |
|
base[0]=base[0]; |
108 |
|
return Cnil; |
109 |
|
} |
110 |
|
/* local entry for function C2MAPCAR */ |
111 |
|
|
112 |
|
static object LI8(V32,V33,V34) |
113 |
|
|
114 |
|
object V32;object V33;register object V34; |
115 |
|
{ VMB8 VMS8 VMV8 |
116 |
|
bds_check; |
117 |
|
goto TTL; |
118 |
|
TTL:; |
119 |
|
bds_bind(VV[4],symbol_value(VV[4])); |
120 |
|
bds_bind(VV[5],small_fixnum(0)); |
121 |
|
{object V35; |
122 |
|
object V36; |
123 |
|
object V37; |
124 |
|
object V38; |
125 |
|
object V39; |
126 |
|
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
127 |
|
V35= make_cons(symbol_value(VV[6]),Ct); |
128 |
|
V36= list(2,VV[7],(*(LnkLI28))()); |
129 |
|
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
130 |
|
V37= list(2,VV[8],symbol_value(VV[9])); |
131 |
|
{object V40; |
132 |
|
object V41= (V34); |
133 |
|
if(endp(V41)){ |
134 |
|
V38= Cnil; |
135 |
|
goto T18;} |
136 |
|
base[2]=V40=MMcons(Cnil,Cnil); |
137 |
|
goto T19; |
138 |
|
T19:; |
139 |
|
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
140 |
|
(V40->c.c_car)= list(2,VV[8],symbol_value(VV[9])); |
141 |
|
V41=MMcdr(V41); |
142 |
|
if(endp(V41)){ |
143 |
|
V38= base[2]; |
144 |
|
goto T18;} |
145 |
|
V40=MMcdr(V40)=MMcons(Cnil,Cnil); |
146 |
|
goto T19;} |
147 |
|
goto T18; |
148 |
|
T18:; |
149 |
|
V39= Cnil; |
150 |
|
V39= (*(LnkLI29))((V32)); |
151 |
|
base[2]= make_fixnum((long)length((V34))); |
152 |
|
base[3]= VV[10]; |
153 |
|
base[4]= Ct; |
154 |
|
vs_top=(vs_base=base+2)+3; |
155 |
|
Lmake_list(); |
156 |
|
vs_top=sup; |
157 |
|
V43= vs_base[0]; |
158 |
|
V44= (VFUN_NARGS=2,(*(LnkLI31))((V34),V43)); |
159 |
|
V34= (*(LnkLI30))(/* INLINE-ARGS */V44,(V32)); |
160 |
|
princ_str("\n {object ",VV[11]); |
161 |
|
(void)((*(LnkLI32))((V37))); |
162 |
|
princ_char(59,VV[11]); |
163 |
|
{register object V45; |
164 |
|
object V46; |
165 |
|
V45= (V38); |
166 |
|
V46= car((V45)); |
167 |
|
goto T38; |
168 |
|
T38:; |
169 |
|
if(!(endp_prop((V45)))){ |
170 |
|
goto T39;} |
171 |
|
goto T34; |
172 |
|
goto T39; |
173 |
|
T39:; |
174 |
|
princ_str("\n object ",VV[11]); |
175 |
|
(void)((*(LnkLI32))((V46))); |
176 |
|
princ_str("= ",VV[11]); |
177 |
|
(void)((*(LnkLI32))(car((V34)))); |
178 |
|
princ_char(59,VV[11]); |
179 |
|
{object V47; |
180 |
|
V47= car((V34)); |
181 |
|
V34= cdr((V34));} |
182 |
|
V45= cdr((V45)); |
183 |
|
V46= car((V45)); |
184 |
|
goto T38;} |
185 |
|
goto T34; |
186 |
|
T34:; |
187 |
|
if((symbol_value(VV[12]))==Cnil){ |
188 |
|
goto T60;} |
189 |
|
princ_str("\n if(endp(",VV[11]); |
190 |
|
(void)((*(LnkLI32))(car((V38)))); |
191 |
|
princ_char(41,VV[11]); |
192 |
|
{register object V48; |
193 |
|
object V49; |
194 |
|
V48= cdr((V38)); |
195 |
|
V49= car((V48)); |
196 |
|
goto T70; |
197 |
|
T70:; |
198 |
|
if(!(endp_prop((V48)))){ |
199 |
|
goto T71;} |
200 |
|
goto T66; |
201 |
|
goto T71; |
202 |
|
T71:; |
203 |
|
princ_str("||endp(",VV[11]); |
204 |
|
(void)((*(LnkLI32))((V49))); |
205 |
|
princ_char(41,VV[11]); |
206 |
|
V48= cdr((V48)); |
207 |
|
V49= car((V48)); |
208 |
|
goto T70;} |
209 |
|
goto T66; |
210 |
|
T66:; |
211 |
|
princ_str("){",VV[11]); |
212 |
|
goto T58; |
213 |
|
goto T60; |
214 |
|
T60:; |
215 |
|
princ_str("\n if(",VV[11]); |
216 |
|
(void)((*(LnkLI32))(car((V38)))); |
217 |
|
princ_str("==Cnil",VV[11]); |
218 |
|
{register object V50; |
219 |
|
object V51; |
220 |
|
V50= cdr((V38)); |
221 |
|
V51= car((V50)); |
222 |
|
goto T93; |
223 |
|
T93:; |
224 |
|
if(!(endp_prop((V50)))){ |
225 |
|
goto T94;} |
226 |
|
goto T89; |
227 |
|
goto T94; |
228 |
|
T94:; |
229 |
|
princ_str("||",VV[11]); |
230 |
|
(void)((*(LnkLI32))((V51))); |
231 |
|
princ_str("==Cnil",VV[11]); |
232 |
|
V50= cdr((V50)); |
233 |
|
V51= car((V50)); |
234 |
|
goto T93;} |
235 |
|
goto T89; |
236 |
|
T89:; |
237 |
|
princ_str("){",VV[11]); |
238 |
|
goto T58; |
239 |
|
T58:; |
240 |
|
(void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13]))); |
241 |
|
princ_char(125,VV[11]); |
242 |
|
princ_str("\n ",VV[11]); |
243 |
|
(void)((*(LnkLI32))((V36))); |
244 |
|
princ_char(61,VV[11]); |
245 |
|
(void)((*(LnkLI32))((V37))); |
246 |
|
princ_str("=MMcons(Cnil,Cnil);",VV[11]); |
247 |
|
if((cdr((V35)))==Cnil){ |
248 |
|
goto T117;} |
249 |
|
princ_str("\n goto T",VV[11]); |
250 |
|
(void)((*(LnkLI32))(car((V35)))); |
251 |
|
princ_char(59,VV[11]); |
252 |
|
princ_str("\nT",VV[11]); |
253 |
|
(void)((*(LnkLI32))(car((V35)))); |
254 |
|
princ_str(":;",VV[11]); |
255 |
|
goto T117; |
256 |
|
T117:; |
257 |
|
bds_bind(VV[14],list(2,VV[15],cadr((V37)))); |
258 |
|
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
259 |
|
bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil)); |
260 |
|
bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17]))); |
261 |
|
if(((V33))==Cnil){ |
262 |
|
goto T135;} |
263 |
|
{object V53; |
264 |
|
object V54= (V38); |
265 |
|
if(endp(V54)){ |
266 |
|
V52= Cnil; |
267 |
|
goto T133;} |
268 |
|
base[5]=V53=MMcons(Cnil,Cnil); |
269 |
|
goto T137; |
270 |
|
T137:;{object V56; |
271 |
|
V56= symbol_value(VV[19]); |
272 |
|
(V53->c.c_car)= list(3,VV[18],V56,list(2,VV[15],cadr((V54->c.c_car))));} |
273 |
|
V54=MMcdr(V54); |
274 |
|
if(endp(V54)){ |
275 |
|
V52= base[5]; |
276 |
|
goto T133;} |
277 |
|
V53=MMcdr(V53)=MMcons(Cnil,Cnil); |
278 |
|
goto T137;} |
279 |
|
goto T135; |
280 |
|
T135:; |
281 |
|
{object V57; |
282 |
|
object V58= (V38); |
283 |
|
if(endp(V58)){ |
284 |
|
V52= Cnil; |
285 |
|
goto T133;} |
286 |
|
base[5]=V57=MMcons(Cnil,Cnil); |
287 |
|
goto T139; |
288 |
|
T139:; |
289 |
|
(V57->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V58->c.c_car)); |
290 |
|
V58=MMcdr(V58); |
291 |
|
if(endp(V58)){ |
292 |
|
V52= base[5]; |
293 |
|
goto T133;} |
294 |
|
V57=MMcdr(V57)=MMcons(Cnil,Cnil); |
295 |
|
goto T139;} |
296 |
|
goto T133; |
297 |
|
T133:; |
298 |
|
(void)((VFUN_NARGS=3,(*(LnkLI34))((V32),V52,(V39)))); |
299 |
|
if((cdr((VV[16]->s.s_dbind)))==Cnil){ |
300 |
|
bds_unwind1; |
301 |
|
bds_unwind1; |
302 |
|
bds_unwind1; |
303 |
|
goto T127;} |
304 |
|
princ_str("\n goto T",VV[11]); |
305 |
|
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
306 |
|
princ_char(59,VV[11]); |
307 |
|
princ_str("\nT",VV[11]); |
308 |
|
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
309 |
|
princ_str(":;",VV[11]); |
310 |
|
bds_unwind1; |
311 |
|
bds_unwind1; |
312 |
|
bds_unwind1; |
313 |
|
goto T127; |
314 |
|
T127:; |
315 |
|
if((symbol_value(VV[12]))==Cnil){ |
316 |
|
goto T152;} |
317 |
|
princ_str("\n ",VV[11]); |
318 |
|
(void)((*(LnkLI32))(car((V38)))); |
319 |
|
princ_str("=MMcdr(",VV[11]); |
320 |
|
(void)((*(LnkLI32))(car((V38)))); |
321 |
|
princ_str(");",VV[11]); |
322 |
|
{register object V60; |
323 |
|
object V61; |
324 |
|
V60= cdr((V38)); |
325 |
|
V61= car((V60)); |
326 |
|
goto T164; |
327 |
|
T164:; |
328 |
|
if(!(endp_prop((V60)))){ |
329 |
|
goto T165;} |
330 |
|
goto T160; |
331 |
|
goto T165; |
332 |
|
T165:; |
333 |
|
princ_str("\n ",VV[11]); |
334 |
|
(void)((*(LnkLI32))((V61))); |
335 |
|
princ_str("=MMcdr(",VV[11]); |
336 |
|
(void)((*(LnkLI32))((V61))); |
337 |
|
princ_str(");",VV[11]); |
338 |
|
V60= cdr((V60)); |
339 |
|
V61= car((V60)); |
340 |
|
goto T164;} |
341 |
|
goto T160; |
342 |
|
T160:; |
343 |
|
princ_str("\n if(endp(",VV[11]); |
344 |
|
(void)((*(LnkLI32))(car((V38)))); |
345 |
|
princ_char(41,VV[11]); |
346 |
|
{register object V62; |
347 |
|
object V63; |
348 |
|
V62= cdr((V38)); |
349 |
|
V63= car((V62)); |
350 |
|
goto T188; |
351 |
|
T188:; |
352 |
|
if(!(endp_prop((V62)))){ |
353 |
|
goto T189;} |
354 |
|
goto T184; |
355 |
|
goto T189; |
356 |
|
T189:; |
357 |
|
princ_str("||endp(",VV[11]); |
358 |
|
(void)((*(LnkLI32))((V63))); |
359 |
|
princ_char(41,VV[11]); |
360 |
|
V62= cdr((V62)); |
361 |
|
V63= car((V62)); |
362 |
|
goto T188;} |
363 |
|
goto T184; |
364 |
|
T184:; |
365 |
|
princ_str("){",VV[11]); |
366 |
|
goto T150; |
367 |
|
goto T152; |
368 |
|
T152:; |
369 |
|
princ_str("\n if((",VV[11]); |
370 |
|
(void)((*(LnkLI32))(car((V38)))); |
371 |
|
princ_str("=MMcdr(",VV[11]); |
372 |
|
(void)((*(LnkLI32))(car((V38)))); |
373 |
|
princ_str("))==Cnil",VV[11]); |
374 |
|
{register object V64; |
375 |
|
object V65; |
376 |
|
V64= cdr((V38)); |
377 |
|
V65= car((V64)); |
378 |
|
goto T213; |
379 |
|
T213:; |
380 |
|
if(!(endp_prop((V64)))){ |
381 |
|
goto T214;} |
382 |
|
goto T209; |
383 |
|
goto T214; |
384 |
|
T214:; |
385 |
|
princ_str("||(",VV[11]); |
386 |
|
(void)((*(LnkLI32))((V65))); |
387 |
|
princ_str("=MMcdr(",VV[11]); |
388 |
|
(void)((*(LnkLI32))((V65))); |
389 |
|
princ_str("))==Cnil",VV[11]); |
390 |
|
V64= cdr((V64)); |
391 |
|
V65= car((V64)); |
392 |
|
goto T213;} |
393 |
|
goto T209; |
394 |
|
T209:; |
395 |
|
princ_str("){",VV[11]); |
396 |
|
goto T150; |
397 |
|
T150:; |
398 |
|
(void)((VFUN_NARGS=2,(*(LnkLI33))((V36),VV[13]))); |
399 |
|
princ_char(125,VV[11]); |
400 |
|
princ_str("\n ",VV[11]); |
401 |
|
(void)((*(LnkLI32))((V37))); |
402 |
|
princ_str("=MMcdr(",VV[11]); |
403 |
|
(void)((*(LnkLI32))((V37))); |
404 |
|
princ_str(")=MMcons(Cnil,Cnil);",VV[11]); |
405 |
|
princ_str("\n ",VV[11]); |
406 |
|
if(type_of((V35))!=t_cons)FEwrong_type_argument(Scons,(V35)); |
407 |
|
((V35))->c.c_cdr = Ct; |
408 |
|
princ_str("goto T",VV[11]); |
409 |
|
(void)((*(LnkLI32))(car((V35)))); |
410 |
|
princ_char(59,VV[11]); |
411 |
|
princ_char(125,VV[11]); |
412 |
|
{object V66 = (*(LnkLI35))(); |
413 |
|
bds_unwind1; |
414 |
|
bds_unwind1; |
415 |
|
VMR8(V66)}} |
416 |
|
base[0]=base[0]; |
417 |
|
return Cnil; |
418 |
|
} |
419 |
|
/* local entry for function C2MAPC */ |
420 |
|
|
421 |
|
static object LI9(V70,V71,V72) |
422 |
|
|
423 |
|
object V70;object V71;register object V72; |
424 |
|
{ VMB9 VMS9 VMV9 |
425 |
|
bds_check; |
426 |
|
goto TTL; |
427 |
|
TTL:; |
428 |
|
bds_bind(VV[4],symbol_value(VV[4])); |
429 |
|
bds_bind(VV[5],small_fixnum(0)); |
430 |
|
{object V73; |
431 |
|
object V74; |
432 |
|
object V75; |
433 |
|
object V76; |
434 |
|
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
435 |
|
V73= make_cons(symbol_value(VV[6]),Ct); |
436 |
|
{object V77; |
437 |
|
object V78= (V72); |
438 |
|
if(endp(V78)){ |
439 |
|
V75= Cnil; |
440 |
|
goto T249;} |
441 |
|
base[2]=V77=MMcons(Cnil,Cnil); |
442 |
|
goto T250; |
443 |
|
T250:; |
444 |
|
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
445 |
|
(V77->c.c_car)= list(2,VV[8],symbol_value(VV[9])); |
446 |
|
V78=MMcdr(V78); |
447 |
|
if(endp(V78)){ |
448 |
|
V75= base[2]; |
449 |
|
goto T249;} |
450 |
|
V77=MMcdr(V77)=MMcons(Cnil,Cnil); |
451 |
|
goto T250;} |
452 |
|
goto T249; |
453 |
|
T249:; |
454 |
|
V74= Cnil; |
455 |
|
V76= Cnil; |
456 |
|
V76= (*(LnkLI29))((V70)); |
457 |
|
base[2]= make_fixnum((long)length((V72))); |
458 |
|
base[3]= VV[10]; |
459 |
|
base[4]= Ct; |
460 |
|
vs_top=(vs_base=base+2)+3; |
461 |
|
Lmake_list(); |
462 |
|
vs_top=sup; |
463 |
|
V80= vs_base[0]; |
464 |
|
V81= (VFUN_NARGS=2,(*(LnkLI31))((V72),V80)); |
465 |
|
V72= (*(LnkLI30))(/* INLINE-ARGS */V81,(V70)); |
466 |
|
V74= car((V72)); |
467 |
|
princ_str("\n {",VV[11]); |
468 |
|
{register object V82; |
469 |
|
object V83; |
470 |
|
V82= (V75); |
471 |
|
V83= car((V82)); |
472 |
|
goto T269; |
473 |
|
T269:; |
474 |
|
if(!(endp_prop((V82)))){ |
475 |
|
goto T270;} |
476 |
|
goto T265; |
477 |
|
goto T270; |
478 |
|
T270:; |
479 |
|
princ_str("\n object ",VV[11]); |
480 |
|
(void)((*(LnkLI32))((V83))); |
481 |
|
princ_str("= ",VV[11]); |
482 |
|
(void)((*(LnkLI32))(car((V72)))); |
483 |
|
princ_char(59,VV[11]); |
484 |
|
{object V84; |
485 |
|
V84= car((V72)); |
486 |
|
V72= cdr((V72));} |
487 |
|
V82= cdr((V82)); |
488 |
|
V83= car((V82)); |
489 |
|
goto T269;} |
490 |
|
goto T265; |
491 |
|
T265:; |
492 |
|
if((symbol_value(VV[12]))==Cnil){ |
493 |
|
goto T291;} |
494 |
|
princ_str("\n if(endp(",VV[11]); |
495 |
|
(void)((*(LnkLI32))(car((V75)))); |
496 |
|
princ_char(41,VV[11]); |
497 |
|
{register object V85; |
498 |
|
object V86; |
499 |
|
V85= cdr((V75)); |
500 |
|
V86= car((V85)); |
501 |
|
goto T301; |
502 |
|
T301:; |
503 |
|
if(!(endp_prop((V85)))){ |
504 |
|
goto T302;} |
505 |
|
goto T297; |
506 |
|
goto T302; |
507 |
|
T302:; |
508 |
|
princ_str("||endp(",VV[11]); |
509 |
|
(void)((*(LnkLI32))((V86))); |
510 |
|
princ_char(41,VV[11]); |
511 |
|
V85= cdr((V85)); |
512 |
|
V86= car((V85)); |
513 |
|
goto T301;} |
514 |
|
goto T297; |
515 |
|
T297:; |
516 |
|
princ_str("){",VV[11]); |
517 |
|
goto T289; |
518 |
|
goto T291; |
519 |
|
T291:; |
520 |
|
princ_str("\n if(",VV[11]); |
521 |
|
(void)((*(LnkLI32))(car((V75)))); |
522 |
|
princ_str("==Cnil",VV[11]); |
523 |
|
{register object V87; |
524 |
|
object V88; |
525 |
|
V87= cdr((V75)); |
526 |
|
V88= car((V87)); |
527 |
|
goto T324; |
528 |
|
T324:; |
529 |
|
if(!(endp_prop((V87)))){ |
530 |
|
goto T325;} |
531 |
|
goto T320; |
532 |
|
goto T325; |
533 |
|
T325:; |
534 |
|
princ_str("||",VV[11]); |
535 |
|
(void)((*(LnkLI32))((V88))); |
536 |
|
princ_str("==Cnil",VV[11]); |
537 |
|
V87= cdr((V87)); |
538 |
|
V88= car((V87)); |
539 |
|
goto T324;} |
540 |
|
goto T320; |
541 |
|
T320:; |
542 |
|
princ_str("){",VV[11]); |
543 |
|
goto T289; |
544 |
|
T289:; |
545 |
|
(void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13]))); |
546 |
|
princ_char(125,VV[11]); |
547 |
|
if((cdr((V73)))==Cnil){ |
548 |
|
goto T342;} |
549 |
|
princ_str("\n goto T",VV[11]); |
550 |
|
(void)((*(LnkLI32))(car((V73)))); |
551 |
|
princ_char(59,VV[11]); |
552 |
|
princ_str("\nT",VV[11]); |
553 |
|
(void)((*(LnkLI32))(car((V73)))); |
554 |
|
princ_str(":;",VV[11]); |
555 |
|
goto T342; |
556 |
|
T342:; |
557 |
|
bds_bind(VV[14],VV[20]); |
558 |
|
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
559 |
|
bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil)); |
560 |
|
bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17]))); |
561 |
|
if(((V71))==Cnil){ |
562 |
|
goto T359;} |
563 |
|
{object V90; |
564 |
|
object V91= (V75); |
565 |
|
if(endp(V91)){ |
566 |
|
V89= Cnil; |
567 |
|
goto T357;} |
568 |
|
base[5]=V90=MMcons(Cnil,Cnil); |
569 |
|
goto T361; |
570 |
|
T361:;{object V93; |
571 |
|
V93= symbol_value(VV[19]); |
572 |
|
(V90->c.c_car)= list(3,VV[18],V93,list(2,VV[15],cadr((V91->c.c_car))));} |
573 |
|
V91=MMcdr(V91); |
574 |
|
if(endp(V91)){ |
575 |
|
V89= base[5]; |
576 |
|
goto T357;} |
577 |
|
V90=MMcdr(V90)=MMcons(Cnil,Cnil); |
578 |
|
goto T361;} |
579 |
|
goto T359; |
580 |
|
T359:; |
581 |
|
{object V94; |
582 |
|
object V95= (V75); |
583 |
|
if(endp(V95)){ |
584 |
|
V89= Cnil; |
585 |
|
goto T357;} |
586 |
|
base[5]=V94=MMcons(Cnil,Cnil); |
587 |
|
goto T363; |
588 |
|
T363:; |
589 |
|
(V94->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V95->c.c_car)); |
590 |
|
V95=MMcdr(V95); |
591 |
|
if(endp(V95)){ |
592 |
|
V89= base[5]; |
593 |
|
goto T357;} |
594 |
|
V94=MMcdr(V94)=MMcons(Cnil,Cnil); |
595 |
|
goto T363;} |
596 |
|
goto T357; |
597 |
|
T357:; |
598 |
|
(void)((VFUN_NARGS=3,(*(LnkLI34))((V70),V89,(V76)))); |
599 |
|
if((cdr((VV[16]->s.s_dbind)))==Cnil){ |
600 |
|
bds_unwind1; |
601 |
|
bds_unwind1; |
602 |
|
bds_unwind1; |
603 |
|
goto T352;} |
604 |
|
princ_str("\n goto T",VV[11]); |
605 |
|
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
606 |
|
princ_char(59,VV[11]); |
607 |
|
princ_str("\nT",VV[11]); |
608 |
|
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
609 |
|
princ_str(":;",VV[11]); |
610 |
|
bds_unwind1; |
611 |
|
bds_unwind1; |
612 |
|
bds_unwind1; |
613 |
|
goto T352; |
614 |
|
T352:; |
615 |
|
if((symbol_value(VV[12]))==Cnil){ |
616 |
|
goto T376;} |
617 |
|
princ_str("\n ",VV[11]); |
618 |
|
(void)((*(LnkLI32))(car((V75)))); |
619 |
|
princ_str("=MMcdr(",VV[11]); |
620 |
|
(void)((*(LnkLI32))(car((V75)))); |
621 |
|
princ_str(");",VV[11]); |
622 |
|
{register object V97; |
623 |
|
object V98; |
624 |
|
V97= cdr((V75)); |
625 |
|
V98= car((V97)); |
626 |
|
goto T388; |
627 |
|
T388:; |
628 |
|
if(!(endp_prop((V97)))){ |
629 |
|
goto T389;} |
630 |
|
goto T384; |
631 |
|
goto T389; |
632 |
|
T389:; |
633 |
|
princ_str("\n ",VV[11]); |
634 |
|
(void)((*(LnkLI32))((V98))); |
635 |
|
princ_str("=MMcdr(",VV[11]); |
636 |
|
(void)((*(LnkLI32))((V98))); |
637 |
|
princ_str(");",VV[11]); |
638 |
|
V97= cdr((V97)); |
639 |
|
V98= car((V97)); |
640 |
|
goto T388;} |
641 |
|
goto T384; |
642 |
|
T384:; |
643 |
|
princ_str("\n if(endp(",VV[11]); |
644 |
|
(void)((*(LnkLI32))(car((V75)))); |
645 |
|
princ_char(41,VV[11]); |
646 |
|
{register object V99; |
647 |
|
object V100; |
648 |
|
V99= cdr((V75)); |
649 |
|
V100= car((V99)); |
650 |
|
goto T412; |
651 |
|
T412:; |
652 |
|
if(!(endp_prop((V99)))){ |
653 |
|
goto T413;} |
654 |
|
goto T408; |
655 |
|
goto T413; |
656 |
|
T413:; |
657 |
|
princ_str("||endp(",VV[11]); |
658 |
|
(void)((*(LnkLI32))((V100))); |
659 |
|
princ_char(41,VV[11]); |
660 |
|
V99= cdr((V99)); |
661 |
|
V100= car((V99)); |
662 |
|
goto T412;} |
663 |
|
goto T408; |
664 |
|
T408:; |
665 |
|
princ_str("){",VV[11]); |
666 |
|
goto T374; |
667 |
|
goto T376; |
668 |
|
T376:; |
669 |
|
princ_str("\n if((",VV[11]); |
670 |
|
(void)((*(LnkLI32))(car((V75)))); |
671 |
|
princ_str("=MMcdr(",VV[11]); |
672 |
|
(void)((*(LnkLI32))(car((V75)))); |
673 |
|
princ_str("))==Cnil",VV[11]); |
674 |
|
{register object V101; |
675 |
|
object V102; |
676 |
|
V101= cdr((V75)); |
677 |
|
V102= car((V101)); |
678 |
|
goto T437; |
679 |
|
T437:; |
680 |
|
if(!(endp_prop((V101)))){ |
681 |
|
goto T438;} |
682 |
|
goto T433; |
683 |
|
goto T438; |
684 |
|
T438:; |
685 |
|
princ_str("||(",VV[11]); |
686 |
|
(void)((*(LnkLI32))((V102))); |
687 |
|
princ_str("=MMcdr(",VV[11]); |
688 |
|
(void)((*(LnkLI32))((V102))); |
689 |
|
princ_str("))==Cnil",VV[11]); |
690 |
|
V101= cdr((V101)); |
691 |
|
V102= car((V101)); |
692 |
|
goto T437;} |
693 |
|
goto T433; |
694 |
|
T433:; |
695 |
|
princ_str("){",VV[11]); |
696 |
|
goto T374; |
697 |
|
T374:; |
698 |
|
(void)((VFUN_NARGS=2,(*(LnkLI33))((V74),VV[13]))); |
699 |
|
princ_char(125,VV[11]); |
700 |
|
princ_str("\n ",VV[11]); |
701 |
|
if(type_of((V73))!=t_cons)FEwrong_type_argument(Scons,(V73)); |
702 |
|
((V73))->c.c_cdr = Ct; |
703 |
|
princ_str("goto T",VV[11]); |
704 |
|
(void)((*(LnkLI32))(car((V73)))); |
705 |
|
princ_char(59,VV[11]); |
706 |
|
princ_char(125,VV[11]); |
707 |
|
{object V103 = (*(LnkLI35))(); |
708 |
|
bds_unwind1; |
709 |
|
bds_unwind1; |
710 |
|
VMR9(V103)}} |
711 |
|
base[0]=base[0]; |
712 |
|
return Cnil; |
713 |
|
} |
714 |
|
/* local entry for function C2MAPCAN */ |
715 |
|
|
716 |
|
static object LI10(V107,V108,V109) |
717 |
|
|
718 |
|
object V107;object V108;register object V109; |
719 |
|
{ VMB10 VMS10 VMV10 |
720 |
|
bds_check; |
721 |
|
goto TTL; |
722 |
|
TTL:; |
723 |
|
bds_bind(VV[4],symbol_value(VV[4])); |
724 |
|
bds_bind(VV[5],small_fixnum(0)); |
725 |
|
{object V110; |
726 |
|
object V111; |
727 |
|
object V112; |
728 |
|
object V113; |
729 |
|
object V114; |
730 |
|
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
731 |
|
V110= make_cons(symbol_value(VV[6]),Ct); |
732 |
|
V111= list(2,VV[7],(*(LnkLI28))()); |
733 |
|
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
734 |
|
V112= list(2,VV[8],symbol_value(VV[9])); |
735 |
|
{object V115; |
736 |
|
object V116= (V109); |
737 |
|
if(endp(V116)){ |
738 |
|
V113= Cnil; |
739 |
|
goto T470;} |
740 |
|
base[2]=V115=MMcons(Cnil,Cnil); |
741 |
|
goto T471; |
742 |
|
T471:; |
743 |
|
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
744 |
|
(V115->c.c_car)= list(2,VV[8],symbol_value(VV[9])); |
745 |
|
V116=MMcdr(V116); |
746 |
|
if(endp(V116)){ |
747 |
|
V113= base[2]; |
748 |
|
goto T470;} |
749 |
|
V115=MMcdr(V115)=MMcons(Cnil,Cnil); |
750 |
|
goto T471;} |
751 |
|
goto T470; |
752 |
|
T470:; |
753 |
|
V114= Cnil; |
754 |
|
V114= (*(LnkLI29))((V107)); |
755 |
|
base[2]= make_fixnum((long)length((V109))); |
756 |
|
base[3]= VV[10]; |
757 |
|
base[4]= Ct; |
758 |
|
vs_top=(vs_base=base+2)+3; |
759 |
|
Lmake_list(); |
760 |
|
vs_top=sup; |
761 |
|
V118= vs_base[0]; |
762 |
|
V119= (VFUN_NARGS=2,(*(LnkLI31))((V109),V118)); |
763 |
|
V109= (*(LnkLI30))(/* INLINE-ARGS */V119,(V107)); |
764 |
|
princ_str("\n {object ",VV[11]); |
765 |
|
(void)((*(LnkLI32))((V112))); |
766 |
|
princ_char(59,VV[11]); |
767 |
|
{register object V120; |
768 |
|
object V121; |
769 |
|
V120= (V113); |
770 |
|
V121= car((V120)); |
771 |
|
goto T490; |
772 |
|
T490:; |
773 |
|
if(!(endp_prop((V120)))){ |
774 |
|
goto T491;} |
775 |
|
goto T486; |
776 |
|
goto T491; |
777 |
|
T491:; |
778 |
|
princ_str("\n object ",VV[11]); |
779 |
|
(void)((*(LnkLI32))((V121))); |
780 |
|
princ_str("= ",VV[11]); |
781 |
|
(void)((*(LnkLI32))(car((V109)))); |
782 |
|
princ_char(59,VV[11]); |
783 |
|
{object V122; |
784 |
|
V122= car((V109)); |
785 |
|
V109= cdr((V109));} |
786 |
|
V120= cdr((V120)); |
787 |
|
V121= car((V120)); |
788 |
|
goto T490;} |
789 |
|
goto T486; |
790 |
|
T486:; |
791 |
|
if((symbol_value(VV[12]))==Cnil){ |
792 |
|
goto T512;} |
793 |
|
princ_str("\n if(endp(",VV[11]); |
794 |
|
(void)((*(LnkLI32))(car((V113)))); |
795 |
|
princ_char(41,VV[11]); |
796 |
|
{register object V123; |
797 |
|
object V124; |
798 |
|
V123= cdr((V113)); |
799 |
|
V124= car((V123)); |
800 |
|
goto T522; |
801 |
|
T522:; |
802 |
|
if(!(endp_prop((V123)))){ |
803 |
|
goto T523;} |
804 |
|
goto T518; |
805 |
|
goto T523; |
806 |
|
T523:; |
807 |
|
princ_str("||endp(",VV[11]); |
808 |
|
(void)((*(LnkLI32))((V124))); |
809 |
|
princ_char(41,VV[11]); |
810 |
|
V123= cdr((V123)); |
811 |
|
V124= car((V123)); |
812 |
|
goto T522;} |
813 |
|
goto T518; |
814 |
|
T518:; |
815 |
|
princ_str("){",VV[11]); |
816 |
|
goto T510; |
817 |
|
goto T512; |
818 |
|
T512:; |
819 |
|
princ_str("\n if(",VV[11]); |
820 |
|
(void)((*(LnkLI32))(car((V113)))); |
821 |
|
princ_str("==Cnil",VV[11]); |
822 |
|
{register object V125; |
823 |
|
object V126; |
824 |
|
V125= cdr((V113)); |
825 |
|
V126= car((V125)); |
826 |
|
goto T545; |
827 |
|
T545:; |
828 |
|
if(!(endp_prop((V125)))){ |
829 |
|
goto T546;} |
830 |
|
goto T541; |
831 |
|
goto T546; |
832 |
|
T546:; |
833 |
|
princ_str("||",VV[11]); |
834 |
|
(void)((*(LnkLI32))((V126))); |
835 |
|
princ_str("==Cnil",VV[11]); |
836 |
|
V125= cdr((V125)); |
837 |
|
V126= car((V125)); |
838 |
|
goto T545;} |
839 |
|
goto T541; |
840 |
|
T541:; |
841 |
|
princ_str("){",VV[11]); |
842 |
|
goto T510; |
843 |
|
T510:; |
844 |
|
(void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13]))); |
845 |
|
princ_char(125,VV[11]); |
846 |
|
princ_str("\n ",VV[11]); |
847 |
|
(void)((*(LnkLI32))((V111))); |
848 |
|
princ_char(61,VV[11]); |
849 |
|
(void)((*(LnkLI32))((V112))); |
850 |
|
princ_str("=MMcons(Cnil,Cnil);",VV[11]); |
851 |
|
if((cdr((V110)))==Cnil){ |
852 |
|
goto T569;} |
853 |
|
princ_str("\n goto T",VV[11]); |
854 |
|
(void)((*(LnkLI32))(car((V110)))); |
855 |
|
princ_char(59,VV[11]); |
856 |
|
princ_str("\nT",VV[11]); |
857 |
|
(void)((*(LnkLI32))(car((V110)))); |
858 |
|
princ_str(":;",VV[11]); |
859 |
|
goto T569; |
860 |
|
T569:; |
861 |
|
bds_bind(VV[14],list(2,VV[21],cadr((V112)))); |
862 |
|
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
863 |
|
bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil)); |
864 |
|
bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17]))); |
865 |
|
if(((V108))==Cnil){ |
866 |
|
goto T587;} |
867 |
|
{object V128; |
868 |
|
object V129= (V113); |
869 |
|
if(endp(V129)){ |
870 |
|
V127= Cnil; |
871 |
|
goto T585;} |
872 |
|
base[5]=V128=MMcons(Cnil,Cnil); |
873 |
|
goto T589; |
874 |
|
T589:;{object V131; |
875 |
|
V131= symbol_value(VV[19]); |
876 |
|
(V128->c.c_car)= list(3,VV[18],V131,list(2,VV[15],cadr((V129->c.c_car))));} |
877 |
|
V129=MMcdr(V129); |
878 |
|
if(endp(V129)){ |
879 |
|
V127= base[5]; |
880 |
|
goto T585;} |
881 |
|
V128=MMcdr(V128)=MMcons(Cnil,Cnil); |
882 |
|
goto T589;} |
883 |
|
goto T587; |
884 |
|
T587:; |
885 |
|
{object V132; |
886 |
|
object V133= (V113); |
887 |
|
if(endp(V133)){ |
888 |
|
V127= Cnil; |
889 |
|
goto T585;} |
890 |
|
base[5]=V132=MMcons(Cnil,Cnil); |
891 |
|
goto T591; |
892 |
|
T591:; |
893 |
|
(V132->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V133->c.c_car)); |
894 |
|
V133=MMcdr(V133); |
895 |
|
if(endp(V133)){ |
896 |
|
V127= base[5]; |
897 |
|
goto T585;} |
898 |
|
V132=MMcdr(V132)=MMcons(Cnil,Cnil); |
899 |
|
goto T591;} |
900 |
|
goto T585; |
901 |
|
T585:; |
902 |
|
(void)((VFUN_NARGS=3,(*(LnkLI34))((V107),V127,(V114)))); |
903 |
|
if((cdr((VV[16]->s.s_dbind)))==Cnil){ |
904 |
|
bds_unwind1; |
905 |
|
bds_unwind1; |
906 |
|
bds_unwind1; |
907 |
|
goto T579;} |
908 |
|
princ_str("\n goto T",VV[11]); |
909 |
|
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
910 |
|
princ_char(59,VV[11]); |
911 |
|
princ_str("\nT",VV[11]); |
912 |
|
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
913 |
|
princ_str(":;",VV[11]); |
914 |
|
bds_unwind1; |
915 |
|
bds_unwind1; |
916 |
|
bds_unwind1; |
917 |
|
goto T579; |
918 |
|
T579:; |
919 |
|
if((symbol_value(VV[12]))==Cnil){ |
920 |
|
goto T604;} |
921 |
|
princ_str("\n {object cdr_",VV[11]); |
922 |
|
(void)((*(LnkLI32))((V112))); |
923 |
|
princ_str("=MMcdr(",VV[11]); |
924 |
|
(void)((*(LnkLI32))((V112))); |
925 |
|
princ_str(");while(!endp(cdr_",VV[11]); |
926 |
|
(void)((*(LnkLI32))((V112))); |
927 |
|
princ_str(")) {cdr_",VV[11]); |
928 |
|
(void)((*(LnkLI32))((V112))); |
929 |
|
princ_str("=MMcdr(cdr_",VV[11]); |
930 |
|
(void)((*(LnkLI32))((V112))); |
931 |
|
princ_str(");",VV[11]); |
932 |
|
(void)((*(LnkLI32))((V112))); |
933 |
|
princ_str("=MMcdr(",VV[11]); |
934 |
|
(void)((*(LnkLI32))((V112))); |
935 |
|
princ_str(");}}",VV[11]); |
936 |
|
princ_str("\n ",VV[11]); |
937 |
|
(void)((*(LnkLI32))(car((V113)))); |
938 |
|
princ_str("=MMcdr(",VV[11]); |
939 |
|
(void)((*(LnkLI32))(car((V113)))); |
940 |
|
princ_str(");",VV[11]); |
941 |
|
{register object V135; |
942 |
|
object V136; |
943 |
|
V135= cdr((V113)); |
944 |
|
V136= car((V135)); |
945 |
|
goto T632; |
946 |
|
T632:; |
947 |
|
if(!(endp_prop((V135)))){ |
948 |
|
goto T633;} |
949 |
|
goto T628; |
950 |
|
goto T633; |
951 |
|
T633:; |
952 |
|
princ_str("\n ",VV[11]); |
953 |
|
(void)((*(LnkLI32))((V136))); |
954 |
|
princ_str("=MMcdr(",VV[11]); |
955 |
|
(void)((*(LnkLI32))((V136))); |
956 |
|
princ_str(");",VV[11]); |
957 |
|
V135= cdr((V135)); |
958 |
|
V136= car((V135)); |
959 |
|
goto T632;} |
960 |
|
goto T628; |
961 |
|
T628:; |
962 |
|
princ_str("\n if(endp(",VV[11]); |
963 |
|
(void)((*(LnkLI32))(car((V113)))); |
964 |
|
princ_char(41,VV[11]); |
965 |
|
{register object V137; |
966 |
|
object V138; |
967 |
|
V137= cdr((V113)); |
968 |
|
V138= car((V137)); |
969 |
|
goto T656; |
970 |
|
T656:; |
971 |
|
if(!(endp_prop((V137)))){ |
972 |
|
goto T657;} |
973 |
|
goto T652; |
974 |
|
goto T657; |
975 |
|
T657:; |
976 |
|
princ_str("||endp(",VV[11]); |
977 |
|
(void)((*(LnkLI32))((V138))); |
978 |
|
princ_char(41,VV[11]); |
979 |
|
V137= cdr((V137)); |
980 |
|
V138= car((V137)); |
981 |
|
goto T656;} |
982 |
|
goto T652; |
983 |
|
T652:; |
984 |
|
princ_str("){",VV[11]); |
985 |
|
goto T602; |
986 |
|
goto T604; |
987 |
|
T604:; |
988 |
|
princ_str("\n while(MMcdr(",VV[11]); |
989 |
|
(void)((*(LnkLI32))((V112))); |
990 |
|
princ_str(")!=Cnil)",VV[11]); |
991 |
|
(void)((*(LnkLI32))((V112))); |
992 |
|
princ_str("=MMcdr(",VV[11]); |
993 |
|
(void)((*(LnkLI32))((V112))); |
994 |
|
princ_str(");",VV[11]); |
995 |
|
princ_str("\n if((",VV[11]); |
996 |
|
(void)((*(LnkLI32))(car((V113)))); |
997 |
|
princ_str("=MMcdr(",VV[11]); |
998 |
|
(void)((*(LnkLI32))(car((V113)))); |
999 |
|
princ_str("))==Cnil",VV[11]); |
1000 |
|
{register object V139; |
1001 |
|
object V140; |
1002 |
|
V139= cdr((V113)); |
1003 |
|
V140= car((V139)); |
1004 |
|
goto T689; |
1005 |
|
T689:; |
1006 |
|
if(!(endp_prop((V139)))){ |
1007 |
|
goto T690;} |
1008 |
|
goto T685; |
1009 |
|
goto T690; |
1010 |
|
T690:; |
1011 |
|
princ_str("||(",VV[11]); |
1012 |
|
(void)((*(LnkLI32))((V140))); |
1013 |
|
princ_str("=MMcdr(",VV[11]); |
1014 |
|
(void)((*(LnkLI32))((V140))); |
1015 |
|
princ_str("))==Cnil",VV[11]); |
1016 |
|
V139= cdr((V139)); |
1017 |
|
V140= car((V139)); |
1018 |
|
goto T689;} |
1019 |
|
goto T685; |
1020 |
|
T685:; |
1021 |
|
princ_str("){",VV[11]); |
1022 |
|
goto T602; |
1023 |
|
T602:; |
1024 |
|
princ_str("\n ",VV[11]); |
1025 |
|
(void)((*(LnkLI32))((V111))); |
1026 |
|
princ_char(61,VV[11]); |
1027 |
|
(void)((*(LnkLI32))((V111))); |
1028 |
|
princ_str("->c.c_cdr;",VV[11]); |
1029 |
|
(void)((VFUN_NARGS=2,(*(LnkLI33))((V111),VV[13]))); |
1030 |
|
princ_char(125,VV[11]); |
1031 |
|
princ_str("\n ",VV[11]); |
1032 |
|
if(type_of((V110))!=t_cons)FEwrong_type_argument(Scons,(V110)); |
1033 |
|
((V110))->c.c_cdr = Ct; |
1034 |
|
princ_str("goto T",VV[11]); |
1035 |
|
(void)((*(LnkLI32))(car((V110)))); |
1036 |
|
princ_char(59,VV[11]); |
1037 |
|
princ_char(125,VV[11]); |
1038 |
|
{object V141 = (*(LnkLI35))(); |
1039 |
|
bds_unwind1; |
1040 |
|
bds_unwind1; |
1041 |
|
VMR10(V141)}} |
1042 |
|
base[0]=base[0]; |
1043 |
|
return Cnil; |
1044 |
|
} |
1045 |
|
/* local entry for function PUSH-CHANGED-VARS */ |
1046 |
|
|
1047 |
|
static object LI11(V144,V145) |
1048 |
|
|
1049 |
|
object V144;object V145; |
1050 |
|
{ VMB11 VMS11 VMV11 |
1051 |
|
goto TTL; |
1052 |
|
TTL:; |
1053 |
|
{register object V146; |
1054 |
|
object V147; |
1055 |
|
V146= Cnil; |
1056 |
|
V147= make_cons((V145),Cnil); |
1057 |
|
{register object V148; |
1058 |
|
register object V149; |
1059 |
|
V148= (V144); |
1060 |
|
V149= car((V148)); |
1061 |
|
goto T728; |
1062 |
|
T728:; |
1063 |
|
if(!(endp_prop((V148)))){ |
1064 |
|
goto T729;} |
1065 |
|
{object V150 = reverse((V146)); |
1066 |
|
VMR11(V150)} |
1067 |
|
goto T729; |
1068 |
|
T729:; |
1069 |
|
if(!(type_of((V149))==t_cons)){ |
1070 |
|
goto T735;} |
1071 |
|
if(!((car((V149)))==(VV[22]))){ |
1072 |
|
goto T735;} |
1073 |
|
if(((*(LnkLI36))(cadr((V149)),(V147)))==Cnil){ |
1074 |
|
goto T735;} |
1075 |
|
{register object V151; |
1076 |
|
V151= list(2,VV[7],(*(LnkLI28))()); |
1077 |
|
princ_str("\n ",VV[11]); |
1078 |
|
(void)((*(LnkLI32))((V151))); |
1079 |
|
princ_str("= ",VV[11]); |
1080 |
|
(void)((*(LnkLI32))((V149))); |
1081 |
|
princ_char(59,VV[11]); |
1082 |
|
{register object V152; |
1083 |
|
V152= (V151); |
1084 |
|
V146= make_cons((V152),(V146)); |
1085 |
|
goto T733;}} |
1086 |
|
goto T735; |
1087 |
|
T735:; |
1088 |
|
{register object V153; |
1089 |
|
V153= (V149); |
1090 |
|
V146= make_cons((V153),(V146));} |
1091 |
|
goto T733; |
1092 |
|
T733:; |
1093 |
|
V148= cdr((V148)); |
1094 |
|
V149= car((V148)); |
1095 |
|
goto T728;}} |
1096 |
|
base[0]=base[0]; |
1097 |
|
return Cnil; |
1098 |
|
} |
1099 |
|
static object LnkTLI36(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[36],(void **)(void *)&LnkLI36,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */ |
1100 |
|
static object LnkTLI35(){return call_proc0(VV[35],(void **)(void *)&LnkLI35);} /* CLOSE-INLINE-BLOCKS */ |
1101 |
|
static object LnkTLI34(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[34],(void **)(void *)&LnkLI34,first,ap);va_end(ap);return V1;} /* C2FUNCALL */ |
1102 |
|
static object LnkTLI33(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[33],(void **)(void *)&LnkLI33,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */ |
1103 |
|
static object LnkTLI32(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[32],(void **)(void *)&LnkLI32,1,first,ap);va_end(ap);return V1;} /* WT1 */ |
1104 |
|
static object LnkTLI31(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[31],(void **)(void *)&LnkLI31,first,ap);va_end(ap);return V1;} /* INLINE-ARGS */ |
1105 |
|
static object LnkTLI30(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[30],(void **)(void *)&LnkLI30,2,first,ap);va_end(ap);return V1;} /* PUSH-CHANGED-VARS */ |
1106 |
|
static object LnkTLI29(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[29],(void **)(void *)&LnkLI29,1,first,ap);va_end(ap);return V1;} /* SAVE-FUNOB */ |
1107 |
|
static object LnkTLI28(){return call_proc0(VV[28],(void **)(void *)&LnkLI28);} /* VS-PUSH */ |
1108 |
|
static object LnkTLI27(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[27],(void **)(void *)&LnkLI27,2,first,ap);va_end(ap);return V1;} /* C1ARGS */ |
1109 |
|
static void LnkT26(){ call_or_link(VV[26],(void **)(void *)&Lnk26);} /* COPY-INFO */ |
1110 |
|
static object LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[25],(void **)(void *)&LnkLI25,1,first,ap);va_end(ap);return V1;} /* C1FUNOB */ |
1111 |
|
static object LnkTLI24(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[24],(void **)(void *)&LnkLI24,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */ |
1112 |
|
static object LnkTLI23(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[23],(void **)(void *)&LnkLI23,3,first,ap);va_end(ap);return V1;} /* C1MAP-FUNCTIONS */ |
1113 |
|
|
1114 |
|
#ifdef SYSTEM_SPECIAL_INIT |
1115 |
|
SYSTEM_SPECIAL_INIT |
1116 |
|
#endif |
1117 |
|
|