1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "cmpmap.h" |
#include "cmpmap.h" |
4 |
init_cmpmap(){do_init(VV);} |
void init_cmpmap(){do_init(VV);} |
5 |
/* local entry for function C1MAPCAR */ |
/* local entry for function C1MAPCAR */ |
6 |
|
|
7 |
static object LI1(V2) |
static object LI1(V2) |
8 |
|
|
9 |
object V2; |
object V2; |
10 |
{ VMB1 VMS1 VMV1 |
{ VMB1 VMS1 VMV1 |
11 |
|
goto TTL; |
12 |
TTL:; |
TTL:; |
13 |
{object V3 = (*(LnkLI23))(VV[0],Ct,(V2)); |
{object V3 = (*(LnkLI23))(VV[0],Ct,(V2)); |
14 |
VMR1(V3)} |
VMR1(V3)} |
15 |
|
return Cnil; |
16 |
} |
} |
17 |
/* local entry for function C1MAPLIST */ |
/* local entry for function C1MAPLIST */ |
18 |
|
|
20 |
|
|
21 |
object V5; |
object V5; |
22 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
23 |
|
goto TTL; |
24 |
TTL:; |
TTL:; |
25 |
{object V6 = (*(LnkLI23))(VV[0],Cnil,(V5)); |
{object V6 = (*(LnkLI23))(VV[0],Cnil,(V5)); |
26 |
VMR2(V6)} |
VMR2(V6)} |
27 |
|
return Cnil; |
28 |
} |
} |
29 |
/* local entry for function C1MAPC */ |
/* local entry for function C1MAPC */ |
30 |
|
|
32 |
|
|
33 |
object V8; |
object V8; |
34 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
35 |
|
goto TTL; |
36 |
TTL:; |
TTL:; |
37 |
{object V9 = (*(LnkLI23))(VV[1],Ct,(V8)); |
{object V9 = (*(LnkLI23))(VV[1],Ct,(V8)); |
38 |
VMR3(V9)} |
VMR3(V9)} |
39 |
|
return Cnil; |
40 |
} |
} |
41 |
/* local entry for function C1MAPL */ |
/* local entry for function C1MAPL */ |
42 |
|
|
44 |
|
|
45 |
object V11; |
object V11; |
46 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
47 |
|
goto TTL; |
48 |
TTL:; |
TTL:; |
49 |
{object V12 = (*(LnkLI23))(VV[1],Cnil,(V11)); |
{object V12 = (*(LnkLI23))(VV[1],Cnil,(V11)); |
50 |
VMR4(V12)} |
VMR4(V12)} |
51 |
|
return Cnil; |
52 |
} |
} |
53 |
/* local entry for function C1MAPCAN */ |
/* local entry for function C1MAPCAN */ |
54 |
|
|
56 |
|
|
57 |
object V14; |
object V14; |
58 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
59 |
|
goto TTL; |
60 |
TTL:; |
TTL:; |
61 |
{object V15 = (*(LnkLI23))(VV[2],Ct,(V14)); |
{object V15 = (*(LnkLI23))(VV[2],Ct,(V14)); |
62 |
VMR5(V15)} |
VMR5(V15)} |
63 |
|
return Cnil; |
64 |
} |
} |
65 |
/* local entry for function C1MAPCON */ |
/* local entry for function C1MAPCON */ |
66 |
|
|
68 |
|
|
69 |
object V17; |
object V17; |
70 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
71 |
|
goto TTL; |
72 |
TTL:; |
TTL:; |
73 |
{object V18 = (*(LnkLI23))(VV[2],Cnil,(V17)); |
{object V18 = (*(LnkLI23))(VV[2],Cnil,(V17)); |
74 |
VMR6(V18)} |
VMR6(V18)} |
75 |
|
return Cnil; |
76 |
} |
} |
77 |
/* local entry for function C1MAP-FUNCTIONS */ |
/* local entry for function C1MAP-FUNCTIONS */ |
78 |
|
|
80 |
|
|
81 |
object V22;object V23;register object V24; |
object V22;object V23;register object V24; |
82 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
83 |
|
goto TTL; |
84 |
TTL:; |
TTL:; |
85 |
{object V25; |
{object V25; |
86 |
object V26; |
object V26; |
90 |
goto T4;} |
goto T4;} |
91 |
if(!(endp(cdr((V24))))){ |
if(!(endp(cdr((V24))))){ |
92 |
goto T3;} |
goto T3;} |
93 |
|
goto T4; |
94 |
T4:; |
T4:; |
95 |
V27 = make_fixnum(length((V24))); |
V27 = make_fixnum(length((V24))); |
96 |
(void)((*(LnkLI24))(VV[3],small_fixnum(2),V27)); |
(void)((*(LnkLI24))(VV[3],small_fixnum(2),V27)); |
97 |
|
goto T3; |
98 |
T3:; |
T3:; |
99 |
V25= (*(LnkLI25))(car((V24))); |
V25= (*(LnkLI25))(car((V24))); |
100 |
base[0]= cadr((V25)); |
base[0]= cadr((V25)); |
104 |
V26= vs_base[0]; |
V26= vs_base[0]; |
105 |
{object V28 = list(5,(V22),(V26),(V25),(V23),(*(LnkLI27))(cdr((V24)),(V26))); |
{object V28 = list(5,(V22),(V26),(V25),(V23),(*(LnkLI27))(cdr((V24)),(V26))); |
106 |
VMR7(V28)}} |
VMR7(V28)}} |
107 |
|
base[0]=base[0]; |
108 |
|
return Cnil; |
109 |
} |
} |
110 |
/* local entry for function C2MAPCAR */ |
/* local entry for function C2MAPCAR */ |
111 |
|
|
114 |
object V32;object V33;register object V34; |
object V32;object V33;register object V34; |
115 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
116 |
bds_check; |
bds_check; |
117 |
|
goto TTL; |
118 |
TTL:; |
TTL:; |
119 |
bds_bind(VV[4],symbol_value(VV[4])); |
bds_bind(VV[4],symbol_value(VV[4])); |
120 |
bds_bind(VV[5],small_fixnum(0)); |
bds_bind(VV[5],small_fixnum(0)); |
134 |
V38= Cnil; |
V38= Cnil; |
135 |
goto T18;} |
goto T18;} |
136 |
base[2]=V40=MMcons(Cnil,Cnil); |
base[2]=V40=MMcons(Cnil,Cnil); |
137 |
|
goto T19; |
138 |
T19:; |
T19:; |
139 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
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])); |
(V40->c.c_car)= list(2,VV[8],symbol_value(VV[9])); |
143 |
goto T18;} |
goto T18;} |
144 |
V40=MMcdr(V40)=MMcons(Cnil,Cnil); |
V40=MMcdr(V40)=MMcons(Cnil,Cnil); |
145 |
goto T19;} |
goto T19;} |
146 |
|
goto T18; |
147 |
T18:; |
T18:; |
148 |
V39= Cnil; |
V39= Cnil; |
149 |
V39= (*(LnkLI29))((V32)); |
V39= (*(LnkLI29))((V32)); |
163 |
object V46; |
object V46; |
164 |
V45= (V38); |
V45= (V38); |
165 |
V46= car((V45)); |
V46= car((V45)); |
166 |
|
goto T38; |
167 |
T38:; |
T38:; |
168 |
if(!(endp((V45)))){ |
if(!(endp((V45)))){ |
169 |
goto T39;} |
goto T39;} |
170 |
goto T34; |
goto T34; |
171 |
|
goto T39; |
172 |
T39:; |
T39:; |
173 |
princ_str("\n object ",VV[11]); |
princ_str("\n object ",VV[11]); |
174 |
(void)((*(LnkLI32))((V46))); |
(void)((*(LnkLI32))((V46))); |
181 |
V45= cdr((V45)); |
V45= cdr((V45)); |
182 |
V46= car((V45)); |
V46= car((V45)); |
183 |
goto T38;} |
goto T38;} |
184 |
|
goto T34; |
185 |
T34:; |
T34:; |
186 |
if((symbol_value(VV[12]))==Cnil){ |
if((symbol_value(VV[12]))==Cnil){ |
187 |
goto T60;} |
goto T60;} |
192 |
object V49; |
object V49; |
193 |
V48= cdr((V38)); |
V48= cdr((V38)); |
194 |
V49= car((V48)); |
V49= car((V48)); |
195 |
|
goto T70; |
196 |
T70:; |
T70:; |
197 |
if(!(endp((V48)))){ |
if(!(endp((V48)))){ |
198 |
goto T71;} |
goto T71;} |
199 |
goto T66; |
goto T66; |
200 |
|
goto T71; |
201 |
T71:; |
T71:; |
202 |
princ_str("||endp(",VV[11]); |
princ_str("||endp(",VV[11]); |
203 |
(void)((*(LnkLI32))((V49))); |
(void)((*(LnkLI32))((V49))); |
205 |
V48= cdr((V48)); |
V48= cdr((V48)); |
206 |
V49= car((V48)); |
V49= car((V48)); |
207 |
goto T70;} |
goto T70;} |
208 |
|
goto T66; |
209 |
T66:; |
T66:; |
210 |
princ_str("){",VV[11]); |
princ_str("){",VV[11]); |
211 |
goto T58; |
goto T58; |
212 |
|
goto T60; |
213 |
T60:; |
T60:; |
214 |
princ_str("\n if(",VV[11]); |
princ_str("\n if(",VV[11]); |
215 |
(void)((*(LnkLI32))(car((V38)))); |
(void)((*(LnkLI32))(car((V38)))); |
218 |
object V51; |
object V51; |
219 |
V50= cdr((V38)); |
V50= cdr((V38)); |
220 |
V51= car((V50)); |
V51= car((V50)); |
221 |
|
goto T93; |
222 |
T93:; |
T93:; |
223 |
if(!(endp((V50)))){ |
if(!(endp((V50)))){ |
224 |
goto T94;} |
goto T94;} |
225 |
goto T89; |
goto T89; |
226 |
|
goto T94; |
227 |
T94:; |
T94:; |
228 |
princ_str("||",VV[11]); |
princ_str("||",VV[11]); |
229 |
(void)((*(LnkLI32))((V51))); |
(void)((*(LnkLI32))((V51))); |
231 |
V50= cdr((V50)); |
V50= cdr((V50)); |
232 |
V51= car((V50)); |
V51= car((V50)); |
233 |
goto T93;} |
goto T93;} |
234 |
|
goto T89; |
235 |
T89:; |
T89:; |
236 |
princ_str("){",VV[11]); |
princ_str("){",VV[11]); |
237 |
|
goto T58; |
238 |
T58:; |
T58:; |
239 |
(void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13]))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13]))); |
240 |
princ_char(125,VV[11]); |
princ_char(125,VV[11]); |
245 |
princ_str("=MMcons(Cnil,Cnil);",VV[11]); |
princ_str("=MMcons(Cnil,Cnil);",VV[11]); |
246 |
if((cdr((V35)))==Cnil){ |
if((cdr((V35)))==Cnil){ |
247 |
goto T117;} |
goto T117;} |
248 |
|
princ_str("\ngoto T",VV[11]); |
249 |
|
(void)((*(LnkLI32))(car((V35)))); |
250 |
|
princ_char(59,VV[11]); |
251 |
princ_str("\nT",VV[11]); |
princ_str("\nT",VV[11]); |
252 |
(void)((*(LnkLI32))(car((V35)))); |
(void)((*(LnkLI32))(car((V35)))); |
253 |
princ_str(":;",VV[11]); |
princ_str(":;",VV[11]); |
254 |
|
goto T117; |
255 |
T117:; |
T117:; |
256 |
bds_bind(VV[14],list(2,VV[15],cadr((V37)))); |
bds_bind(VV[14],list(2,VV[15],cadr((V37)))); |
257 |
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
258 |
bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil)); |
bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil)); |
259 |
bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17]))); |
bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17]))); |
260 |
if(((V33))==Cnil){ |
if(((V33))==Cnil){ |
261 |
goto T131;} |
goto T135;} |
262 |
{object V53; |
{object V53; |
263 |
object V54= (V38); |
object V54= (V38); |
264 |
if(endp(V54)){ |
if(endp(V54)){ |
265 |
V52= Cnil; |
V52= Cnil; |
266 |
goto T129;} |
goto T133;} |
267 |
base[5]=V53=MMcons(Cnil,Cnil); |
base[5]=V53=MMcons(Cnil,Cnil); |
268 |
T133:;{object V56; |
goto T137; |
269 |
|
T137:;{object V56; |
270 |
V56= symbol_value(VV[19]); |
V56= symbol_value(VV[19]); |
271 |
(V53->c.c_car)= list(3,VV[18],V56,list(2,VV[15],cadr((V54->c.c_car))));} |
(V53->c.c_car)= list(3,VV[18],V56,list(2,VV[15],cadr((V54->c.c_car))));} |
272 |
if(endp(V54=MMcdr(V54))){ |
if(endp(V54=MMcdr(V54))){ |
273 |
V52= base[5]; |
V52= base[5]; |
|
goto T129;} |
|
|
V53=MMcdr(V53)=MMcons(Cnil,Cnil); |
|
274 |
goto T133;} |
goto T133;} |
275 |
T131:; |
V53=MMcdr(V53)=MMcons(Cnil,Cnil); |
276 |
|
goto T137;} |
277 |
|
goto T135; |
278 |
|
T135:; |
279 |
{object V57; |
{object V57; |
280 |
object V58= (V38); |
object V58= (V38); |
281 |
if(endp(V58)){ |
if(endp(V58)){ |
282 |
V52= Cnil; |
V52= Cnil; |
283 |
goto T129;} |
goto T133;} |
284 |
base[5]=V57=MMcons(Cnil,Cnil); |
base[5]=V57=MMcons(Cnil,Cnil); |
285 |
T135:; |
goto T139; |
286 |
|
T139:; |
287 |
(V57->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V58->c.c_car)); |
(V57->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V58->c.c_car)); |
288 |
if(endp(V58=MMcdr(V58))){ |
if(endp(V58=MMcdr(V58))){ |
289 |
V52= base[5]; |
V52= base[5]; |
290 |
goto T129;} |
goto T133;} |
291 |
V57=MMcdr(V57)=MMcons(Cnil,Cnil); |
V57=MMcdr(V57)=MMcons(Cnil,Cnil); |
292 |
goto T135;} |
goto T139;} |
293 |
T129:; |
goto T133; |
294 |
|
T133:; |
295 |
(void)((VFUN_NARGS=3,(*(LnkLI34))((V32),V52,(V39)))); |
(void)((VFUN_NARGS=3,(*(LnkLI34))((V32),V52,(V39)))); |
296 |
if((cdr((VV[16]->s.s_dbind)))==Cnil){ |
if((cdr((VV[16]->s.s_dbind)))==Cnil){ |
297 |
bds_unwind1; |
bds_unwind1; |
298 |
bds_unwind1; |
bds_unwind1; |
299 |
bds_unwind1; |
bds_unwind1; |
300 |
goto T123;} |
goto T127;} |
301 |
|
princ_str("\ngoto T",VV[11]); |
302 |
|
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
303 |
|
princ_char(59,VV[11]); |
304 |
princ_str("\nT",VV[11]); |
princ_str("\nT",VV[11]); |
305 |
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
306 |
princ_str(":;",VV[11]); |
princ_str(":;",VV[11]); |
307 |
bds_unwind1; |
bds_unwind1; |
308 |
bds_unwind1; |
bds_unwind1; |
309 |
bds_unwind1; |
bds_unwind1; |
310 |
T123:; |
goto T127; |
311 |
|
T127:; |
312 |
if((symbol_value(VV[12]))==Cnil){ |
if((symbol_value(VV[12]))==Cnil){ |
313 |
goto T144;} |
goto T152;} |
314 |
princ_str("\n if(endp(",VV[11]); |
princ_str("\n if(endp(",VV[11]); |
315 |
(void)((*(LnkLI32))(car((V38)))); |
(void)((*(LnkLI32))(car((V38)))); |
316 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
320 |
object V61; |
object V61; |
321 |
V60= cdr((V38)); |
V60= cdr((V38)); |
322 |
V61= car((V60)); |
V61= car((V60)); |
323 |
T156:; |
goto T164; |
324 |
|
T164:; |
325 |
if(!(endp((V60)))){ |
if(!(endp((V60)))){ |
326 |
goto T157;} |
goto T165;} |
327 |
goto T152; |
goto T160; |
328 |
T157:; |
goto T165; |
329 |
|
T165:; |
330 |
princ_str("||endp(",VV[11]); |
princ_str("||endp(",VV[11]); |
331 |
(void)((*(LnkLI32))((V61))); |
(void)((*(LnkLI32))((V61))); |
332 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
334 |
princ_str("))",VV[11]); |
princ_str("))",VV[11]); |
335 |
V60= cdr((V60)); |
V60= cdr((V60)); |
336 |
V61= car((V60)); |
V61= car((V60)); |
337 |
goto T156;} |
goto T164;} |
338 |
T152:; |
goto T160; |
339 |
|
T160:; |
340 |
princ_str("){",VV[11]); |
princ_str("){",VV[11]); |
341 |
goto T142; |
goto T150; |
342 |
T144:; |
goto T152; |
343 |
|
T152:; |
344 |
princ_str("\n if((",VV[11]); |
princ_str("\n if((",VV[11]); |
345 |
(void)((*(LnkLI32))(car((V38)))); |
(void)((*(LnkLI32))(car((V38)))); |
346 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
350 |
object V63; |
object V63; |
351 |
V62= cdr((V38)); |
V62= cdr((V38)); |
352 |
V63= car((V62)); |
V63= car((V62)); |
353 |
T183:; |
goto T191; |
354 |
|
T191:; |
355 |
if(!(endp((V62)))){ |
if(!(endp((V62)))){ |
356 |
goto T184;} |
goto T192;} |
357 |
goto T179; |
goto T187; |
358 |
T184:; |
goto T192; |
359 |
|
T192:; |
360 |
princ_str("||(",VV[11]); |
princ_str("||(",VV[11]); |
361 |
(void)((*(LnkLI32))((V63))); |
(void)((*(LnkLI32))((V63))); |
362 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
364 |
princ_str("))==Cnil",VV[11]); |
princ_str("))==Cnil",VV[11]); |
365 |
V62= cdr((V62)); |
V62= cdr((V62)); |
366 |
V63= car((V62)); |
V63= car((V62)); |
367 |
goto T183;} |
goto T191;} |
368 |
T179:; |
goto T187; |
369 |
|
T187:; |
370 |
princ_str("){",VV[11]); |
princ_str("){",VV[11]); |
371 |
T142:; |
goto T150; |
372 |
|
T150:; |
373 |
(void)((VFUN_NARGS=2,(*(LnkLI33))((V36),VV[13]))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))((V36),VV[13]))); |
374 |
princ_char(125,VV[11]); |
princ_char(125,VV[11]); |
375 |
princ_str("\n ",VV[11]); |
princ_str("\n ",VV[11]); |
388 |
bds_unwind1; |
bds_unwind1; |
389 |
bds_unwind1; |
bds_unwind1; |
390 |
VMR8(V64)}} |
VMR8(V64)}} |
391 |
|
base[0]=base[0]; |
392 |
|
return Cnil; |
393 |
} |
} |
394 |
/* local entry for function C2MAPC */ |
/* local entry for function C2MAPC */ |
395 |
|
|
398 |
object V68;object V69;register object V70; |
object V68;object V69;register object V70; |
399 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
400 |
bds_check; |
bds_check; |
401 |
|
goto TTL; |
402 |
TTL:; |
TTL:; |
403 |
bds_bind(VV[4],symbol_value(VV[4])); |
bds_bind(VV[4],symbol_value(VV[4])); |
404 |
bds_bind(VV[5],small_fixnum(0)); |
bds_bind(VV[5],small_fixnum(0)); |
412 |
object V76= (V70); |
object V76= (V70); |
413 |
if(endp(V76)){ |
if(endp(V76)){ |
414 |
V73= Cnil; |
V73= Cnil; |
415 |
goto T219;} |
goto T227;} |
416 |
base[2]=V75=MMcons(Cnil,Cnil); |
base[2]=V75=MMcons(Cnil,Cnil); |
417 |
T220:; |
goto T228; |
418 |
|
T228:; |
419 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
420 |
(V75->c.c_car)= list(2,VV[8],symbol_value(VV[9])); |
(V75->c.c_car)= list(2,VV[8],symbol_value(VV[9])); |
421 |
if(endp(V76=MMcdr(V76))){ |
if(endp(V76=MMcdr(V76))){ |
422 |
V73= base[2]; |
V73= base[2]; |
423 |
goto T219;} |
goto T227;} |
424 |
V75=MMcdr(V75)=MMcons(Cnil,Cnil); |
V75=MMcdr(V75)=MMcons(Cnil,Cnil); |
425 |
goto T220;} |
goto T228;} |
426 |
T219:; |
goto T227; |
427 |
|
T227:; |
428 |
V72= Cnil; |
V72= Cnil; |
429 |
V74= Cnil; |
V74= Cnil; |
430 |
V74= (*(LnkLI29))((V68)); |
V74= (*(LnkLI29))((V68)); |
443 |
object V81; |
object V81; |
444 |
V80= (V73); |
V80= (V73); |
445 |
V81= car((V80)); |
V81= car((V80)); |
446 |
T239:; |
goto T247; |
447 |
|
T247:; |
448 |
if(!(endp((V80)))){ |
if(!(endp((V80)))){ |
449 |
goto T240;} |
goto T248;} |
450 |
goto T235; |
goto T243; |
451 |
T240:; |
goto T248; |
452 |
|
T248:; |
453 |
princ_str("\n object ",VV[11]); |
princ_str("\n object ",VV[11]); |
454 |
(void)((*(LnkLI32))((V81))); |
(void)((*(LnkLI32))((V81))); |
455 |
princ_str("= ",VV[11]); |
princ_str("= ",VV[11]); |
460 |
V70= cdr((V70));} |
V70= cdr((V70));} |
461 |
V80= cdr((V80)); |
V80= cdr((V80)); |
462 |
V81= car((V80)); |
V81= car((V80)); |
463 |
goto T239;} |
goto T247;} |
464 |
T235:; |
goto T243; |
465 |
|
T243:; |
466 |
if((symbol_value(VV[12]))==Cnil){ |
if((symbol_value(VV[12]))==Cnil){ |
467 |
goto T261;} |
goto T269;} |
468 |
princ_str("\n if(endp(",VV[11]); |
princ_str("\n if(endp(",VV[11]); |
469 |
(void)((*(LnkLI32))(car((V73)))); |
(void)((*(LnkLI32))(car((V73)))); |
470 |
princ_char(41,VV[11]); |
princ_char(41,VV[11]); |
472 |
object V84; |
object V84; |
473 |
V83= cdr((V73)); |
V83= cdr((V73)); |
474 |
V84= car((V83)); |
V84= car((V83)); |
475 |
T271:; |
goto T279; |
476 |
|
T279:; |
477 |
if(!(endp((V83)))){ |
if(!(endp((V83)))){ |
478 |
goto T272;} |
goto T280;} |
479 |
goto T267; |
goto T275; |
480 |
T272:; |
goto T280; |
481 |
|
T280:; |
482 |
princ_str("||endp(",VV[11]); |
princ_str("||endp(",VV[11]); |
483 |
(void)((*(LnkLI32))((V84))); |
(void)((*(LnkLI32))((V84))); |
484 |
princ_char(41,VV[11]); |
princ_char(41,VV[11]); |
485 |
V83= cdr((V83)); |
V83= cdr((V83)); |
486 |
V84= car((V83)); |
V84= car((V83)); |
487 |
goto T271;} |
goto T279;} |
488 |
T267:; |
goto T275; |
489 |
|
T275:; |
490 |
princ_str("){",VV[11]); |
princ_str("){",VV[11]); |
491 |
goto T259; |
goto T267; |
492 |
T261:; |
goto T269; |
493 |
|
T269:; |
494 |
princ_str("\n if(",VV[11]); |
princ_str("\n if(",VV[11]); |
495 |
(void)((*(LnkLI32))(car((V73)))); |
(void)((*(LnkLI32))(car((V73)))); |
496 |
princ_str("==Cnil",VV[11]); |
princ_str("==Cnil",VV[11]); |
498 |
object V86; |
object V86; |
499 |
V85= cdr((V73)); |
V85= cdr((V73)); |
500 |
V86= car((V85)); |
V86= car((V85)); |
501 |
T294:; |
goto T302; |
502 |
|
T302:; |
503 |
if(!(endp((V85)))){ |
if(!(endp((V85)))){ |
504 |
goto T295;} |
goto T303;} |
505 |
goto T290; |
goto T298; |
506 |
T295:; |
goto T303; |
507 |
|
T303:; |
508 |
princ_str("||",VV[11]); |
princ_str("||",VV[11]); |
509 |
(void)((*(LnkLI32))((V86))); |
(void)((*(LnkLI32))((V86))); |
510 |
princ_str("==Cnil",VV[11]); |
princ_str("==Cnil",VV[11]); |
511 |
V85= cdr((V85)); |
V85= cdr((V85)); |
512 |
V86= car((V85)); |
V86= car((V85)); |
513 |
goto T294;} |
goto T302;} |
514 |
T290:; |
goto T298; |
515 |
|
T298:; |
516 |
princ_str("){",VV[11]); |
princ_str("){",VV[11]); |
517 |
T259:; |
goto T267; |
518 |
|
T267:; |
519 |
(void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13]))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13]))); |
520 |
princ_char(125,VV[11]); |
princ_char(125,VV[11]); |
521 |
if((cdr((V71)))==Cnil){ |
if((cdr((V71)))==Cnil){ |
522 |
goto T312;} |
goto T320;} |
523 |
|
princ_str("\ngoto T",VV[11]); |
524 |
|
(void)((*(LnkLI32))(car((V71)))); |
525 |
|
princ_char(59,VV[11]); |
526 |
princ_str("\nT",VV[11]); |
princ_str("\nT",VV[11]); |
527 |
(void)((*(LnkLI32))(car((V71)))); |
(void)((*(LnkLI32))(car((V71)))); |
528 |
princ_str(":;",VV[11]); |
princ_str(":;",VV[11]); |
529 |
T312:; |
goto T320; |
530 |
|
T320:; |
531 |
bds_bind(VV[14],VV[20]); |
bds_bind(VV[14],VV[20]); |
532 |
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
533 |
bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil)); |
bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil)); |
534 |
bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17]))); |
bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17]))); |
535 |
if(((V69))==Cnil){ |
if(((V69))==Cnil){ |
536 |
goto T325;} |
goto T337;} |
537 |
{object V88; |
{object V88; |
538 |
object V89= (V73); |
object V89= (V73); |
539 |
if(endp(V89)){ |
if(endp(V89)){ |
540 |
V87= Cnil; |
V87= Cnil; |
541 |
goto T323;} |
goto T335;} |
542 |
base[5]=V88=MMcons(Cnil,Cnil); |
base[5]=V88=MMcons(Cnil,Cnil); |
543 |
T327:;{object V91; |
goto T339; |
544 |
|
T339:;{object V91; |
545 |
V91= symbol_value(VV[19]); |
V91= symbol_value(VV[19]); |
546 |
(V88->c.c_car)= list(3,VV[18],V91,list(2,VV[15],cadr((V89->c.c_car))));} |
(V88->c.c_car)= list(3,VV[18],V91,list(2,VV[15],cadr((V89->c.c_car))));} |
547 |
if(endp(V89=MMcdr(V89))){ |
if(endp(V89=MMcdr(V89))){ |
548 |
V87= base[5]; |
V87= base[5]; |
549 |
goto T323;} |
goto T335;} |
550 |
V88=MMcdr(V88)=MMcons(Cnil,Cnil); |
V88=MMcdr(V88)=MMcons(Cnil,Cnil); |
551 |
goto T327;} |
goto T339;} |
552 |
T325:; |
goto T337; |
553 |
|
T337:; |
554 |
{object V92; |
{object V92; |
555 |
object V93= (V73); |
object V93= (V73); |
556 |
if(endp(V93)){ |
if(endp(V93)){ |
557 |
V87= Cnil; |
V87= Cnil; |
558 |
goto T323;} |
goto T335;} |
559 |
base[5]=V92=MMcons(Cnil,Cnil); |
base[5]=V92=MMcons(Cnil,Cnil); |
560 |
T329:; |
goto T341; |
561 |
|
T341:; |
562 |
(V92->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V93->c.c_car)); |
(V92->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V93->c.c_car)); |
563 |
if(endp(V93=MMcdr(V93))){ |
if(endp(V93=MMcdr(V93))){ |
564 |
V87= base[5]; |
V87= base[5]; |
565 |
goto T323;} |
goto T335;} |
566 |
V92=MMcdr(V92)=MMcons(Cnil,Cnil); |
V92=MMcdr(V92)=MMcons(Cnil,Cnil); |
567 |
goto T329;} |
goto T341;} |
568 |
T323:; |
goto T335; |
569 |
|
T335:; |
570 |
(void)((VFUN_NARGS=3,(*(LnkLI34))((V68),V87,(V74)))); |
(void)((VFUN_NARGS=3,(*(LnkLI34))((V68),V87,(V74)))); |
571 |
if((cdr((VV[16]->s.s_dbind)))==Cnil){ |
if((cdr((VV[16]->s.s_dbind)))==Cnil){ |
572 |
bds_unwind1; |
bds_unwind1; |
573 |
bds_unwind1; |
bds_unwind1; |
574 |
bds_unwind1; |
bds_unwind1; |
575 |
goto T318;} |
goto T330;} |
576 |
|
princ_str("\ngoto T",VV[11]); |
577 |
|
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
578 |
|
princ_char(59,VV[11]); |
579 |
princ_str("\nT",VV[11]); |
princ_str("\nT",VV[11]); |
580 |
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
581 |
princ_str(":;",VV[11]); |
princ_str(":;",VV[11]); |
582 |
bds_unwind1; |
bds_unwind1; |
583 |
bds_unwind1; |
bds_unwind1; |
584 |
bds_unwind1; |
bds_unwind1; |
585 |
T318:; |
goto T330; |
586 |
|
T330:; |
587 |
if((symbol_value(VV[12]))==Cnil){ |
if((symbol_value(VV[12]))==Cnil){ |
588 |
goto T338;} |
goto T354;} |
589 |
princ_str("\n if(endp(",VV[11]); |
princ_str("\n if(endp(",VV[11]); |
590 |
(void)((*(LnkLI32))(car((V73)))); |
(void)((*(LnkLI32))(car((V73)))); |
591 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
595 |
object V96; |
object V96; |
596 |
V95= cdr((V73)); |
V95= cdr((V73)); |
597 |
V96= car((V95)); |
V96= car((V95)); |
598 |
T350:; |
goto T366; |
599 |
|
T366:; |
600 |
if(!(endp((V95)))){ |
if(!(endp((V95)))){ |
601 |
goto T351;} |
goto T367;} |
602 |
goto T346; |
goto T362; |
603 |
T351:; |
goto T367; |
604 |
|
T367:; |
605 |
princ_str("||endp(",VV[11]); |
princ_str("||endp(",VV[11]); |
606 |
(void)((*(LnkLI32))((V96))); |
(void)((*(LnkLI32))((V96))); |
607 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
609 |
princ_str("))",VV[11]); |
princ_str("))",VV[11]); |
610 |
V95= cdr((V95)); |
V95= cdr((V95)); |
611 |
V96= car((V95)); |
V96= car((V95)); |
612 |
goto T350;} |
goto T366;} |
613 |
T346:; |
goto T362; |
614 |
|
T362:; |
615 |
princ_str("){",VV[11]); |
princ_str("){",VV[11]); |
616 |
goto T336; |
goto T352; |
617 |
T338:; |
goto T354; |
618 |
|
T354:; |
619 |
princ_str("\n if((",VV[11]); |
princ_str("\n if((",VV[11]); |
620 |
(void)((*(LnkLI32))(car((V73)))); |
(void)((*(LnkLI32))(car((V73)))); |
621 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
625 |
object V98; |
object V98; |
626 |
V97= cdr((V73)); |
V97= cdr((V73)); |
627 |
V98= car((V97)); |
V98= car((V97)); |
628 |
T377:; |
goto T393; |
629 |
|
T393:; |
630 |
if(!(endp((V97)))){ |
if(!(endp((V97)))){ |
631 |
goto T378;} |
goto T394;} |
632 |
goto T373; |
goto T389; |
633 |
T378:; |
goto T394; |
634 |
|
T394:; |
635 |
princ_str("||(",VV[11]); |
princ_str("||(",VV[11]); |
636 |
(void)((*(LnkLI32))((V98))); |
(void)((*(LnkLI32))((V98))); |
637 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
639 |
princ_str("))==Cnil",VV[11]); |
princ_str("))==Cnil",VV[11]); |
640 |
V97= cdr((V97)); |
V97= cdr((V97)); |
641 |
V98= car((V97)); |
V98= car((V97)); |
642 |
goto T377;} |
goto T393;} |
643 |
T373:; |
goto T389; |
644 |
|
T389:; |
645 |
princ_str("){",VV[11]); |
princ_str("){",VV[11]); |
646 |
T336:; |
goto T352; |
647 |
|
T352:; |
648 |
(void)((VFUN_NARGS=2,(*(LnkLI33))((V72),VV[13]))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))((V72),VV[13]))); |
649 |
princ_char(125,VV[11]); |
princ_char(125,VV[11]); |
650 |
princ_str("\n ",VV[11]); |
princ_str("\n ",VV[11]); |
658 |
bds_unwind1; |
bds_unwind1; |
659 |
bds_unwind1; |
bds_unwind1; |
660 |
VMR9(V99)}} |
VMR9(V99)}} |
661 |
|
base[0]=base[0]; |
662 |
|
return Cnil; |
663 |
} |
} |
664 |
/* local entry for function C2MAPCAN */ |
/* local entry for function C2MAPCAN */ |
665 |
|
|
668 |
object V103;object V104;register object V105; |
object V103;object V104;register object V105; |
669 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
670 |
bds_check; |
bds_check; |
671 |
|
goto TTL; |
672 |
TTL:; |
TTL:; |
673 |
bds_bind(VV[4],symbol_value(VV[4])); |
bds_bind(VV[4],symbol_value(VV[4])); |
674 |
bds_bind(VV[5],small_fixnum(0)); |
bds_bind(VV[5],small_fixnum(0)); |
686 |
object V112= (V105); |
object V112= (V105); |
687 |
if(endp(V112)){ |
if(endp(V112)){ |
688 |
V109= Cnil; |
V109= Cnil; |
689 |
goto T410;} |
goto T426;} |
690 |
base[2]=V111=MMcons(Cnil,Cnil); |
base[2]=V111=MMcons(Cnil,Cnil); |
691 |
T411:; |
goto T427; |
692 |
|
T427:; |
693 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
694 |
(V111->c.c_car)= list(2,VV[8],symbol_value(VV[9])); |
(V111->c.c_car)= list(2,VV[8],symbol_value(VV[9])); |
695 |
if(endp(V112=MMcdr(V112))){ |
if(endp(V112=MMcdr(V112))){ |
696 |
V109= base[2]; |
V109= base[2]; |
697 |
goto T410;} |
goto T426;} |
698 |
V111=MMcdr(V111)=MMcons(Cnil,Cnil); |
V111=MMcdr(V111)=MMcons(Cnil,Cnil); |
699 |
goto T411;} |
goto T427;} |
700 |
T410:; |
goto T426; |
701 |
|
T426:; |
702 |
V110= Cnil; |
V110= Cnil; |
703 |
V110= (*(LnkLI29))((V103)); |
V110= (*(LnkLI29))((V103)); |
704 |
base[2]= make_fixnum(length((V105))); |
base[2]= make_fixnum(length((V105))); |
717 |
object V117; |
object V117; |
718 |
V116= (V109); |
V116= (V109); |
719 |
V117= car((V116)); |
V117= car((V116)); |
720 |
T430:; |
goto T446; |
721 |
|
T446:; |
722 |
if(!(endp((V116)))){ |
if(!(endp((V116)))){ |
723 |
goto T431;} |
goto T447;} |
724 |
goto T426; |
goto T442; |
725 |
T431:; |
goto T447; |
726 |
|
T447:; |
727 |
princ_str("\n object ",VV[11]); |
princ_str("\n object ",VV[11]); |
728 |
(void)((*(LnkLI32))((V117))); |
(void)((*(LnkLI32))((V117))); |
729 |
princ_str("= ",VV[11]); |
princ_str("= ",VV[11]); |
734 |
V105= cdr((V105));} |
V105= cdr((V105));} |
735 |
V116= cdr((V116)); |
V116= cdr((V116)); |
736 |
V117= car((V116)); |
V117= car((V116)); |
737 |
goto T430;} |
goto T446;} |
738 |
T426:; |
goto T442; |
739 |
|
T442:; |
740 |
if((symbol_value(VV[12]))==Cnil){ |
if((symbol_value(VV[12]))==Cnil){ |
741 |
goto T452;} |
goto T468;} |
742 |
princ_str("\n if(endp(",VV[11]); |
princ_str("\n if(endp(",VV[11]); |
743 |
(void)((*(LnkLI32))(car((V109)))); |
(void)((*(LnkLI32))(car((V109)))); |
744 |
princ_char(41,VV[11]); |
princ_char(41,VV[11]); |
746 |
object V120; |
object V120; |
747 |
V119= cdr((V109)); |
V119= cdr((V109)); |
748 |
V120= car((V119)); |
V120= car((V119)); |
749 |
T462:; |
goto T478; |
750 |
|
T478:; |
751 |
if(!(endp((V119)))){ |
if(!(endp((V119)))){ |
752 |
goto T463;} |
goto T479;} |
753 |
goto T458; |
goto T474; |
754 |
T463:; |
goto T479; |
755 |
|
T479:; |
756 |
princ_str("||endp(",VV[11]); |
princ_str("||endp(",VV[11]); |
757 |
(void)((*(LnkLI32))((V120))); |
(void)((*(LnkLI32))((V120))); |
758 |
princ_char(41,VV[11]); |
princ_char(41,VV[11]); |
759 |
V119= cdr((V119)); |
V119= cdr((V119)); |
760 |
V120= car((V119)); |
V120= car((V119)); |
761 |
goto T462;} |
goto T478;} |
762 |
T458:; |
goto T474; |
763 |
|
T474:; |
764 |
princ_str("){",VV[11]); |
princ_str("){",VV[11]); |
765 |
goto T450; |
goto T466; |
766 |
T452:; |
goto T468; |
767 |
|
T468:; |
768 |
princ_str("\n if(",VV[11]); |
princ_str("\n if(",VV[11]); |
769 |
(void)((*(LnkLI32))(car((V109)))); |
(void)((*(LnkLI32))(car((V109)))); |
770 |
princ_str("==Cnil",VV[11]); |
princ_str("==Cnil",VV[11]); |
772 |
object V122; |
object V122; |
773 |
V121= cdr((V109)); |
V121= cdr((V109)); |
774 |
V122= car((V121)); |
V122= car((V121)); |
775 |
T485:; |
goto T501; |
776 |
|
T501:; |
777 |
if(!(endp((V121)))){ |
if(!(endp((V121)))){ |
778 |
goto T486;} |
goto T502;} |
779 |
goto T481; |
goto T497; |
780 |
T486:; |
goto T502; |
781 |
|
T502:; |
782 |
princ_str("||",VV[11]); |
princ_str("||",VV[11]); |
783 |
(void)((*(LnkLI32))((V122))); |
(void)((*(LnkLI32))((V122))); |
784 |
princ_str("==Cnil",VV[11]); |
princ_str("==Cnil",VV[11]); |
785 |
V121= cdr((V121)); |
V121= cdr((V121)); |
786 |
V122= car((V121)); |
V122= car((V121)); |
787 |
goto T485;} |
goto T501;} |
788 |
T481:; |
goto T497; |
789 |
|
T497:; |
790 |
princ_str("){",VV[11]); |
princ_str("){",VV[11]); |
791 |
T450:; |
goto T466; |
792 |
|
T466:; |
793 |
(void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13]))); |
(void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13]))); |
794 |
princ_char(125,VV[11]); |
princ_char(125,VV[11]); |
795 |
princ_str("\n ",VV[11]); |
princ_str("\n ",VV[11]); |
798 |
(void)((*(LnkLI32))((V108))); |
(void)((*(LnkLI32))((V108))); |
799 |
princ_str("=MMcons(Cnil,Cnil);",VV[11]); |
princ_str("=MMcons(Cnil,Cnil);",VV[11]); |
800 |
if((cdr((V106)))==Cnil){ |
if((cdr((V106)))==Cnil){ |
801 |
goto T509;} |
goto T525;} |
802 |
|
princ_str("\ngoto T",VV[11]); |
803 |
|
(void)((*(LnkLI32))(car((V106)))); |
804 |
|
princ_char(59,VV[11]); |
805 |
princ_str("\nT",VV[11]); |
princ_str("\nT",VV[11]); |
806 |
(void)((*(LnkLI32))(car((V106)))); |
(void)((*(LnkLI32))(car((V106)))); |
807 |
princ_str(":;",VV[11]); |
princ_str(":;",VV[11]); |
808 |
T509:; |
goto T525; |
809 |
|
T525:; |
810 |
bds_bind(VV[14],list(2,VV[21],cadr((V108)))); |
bds_bind(VV[14],list(2,VV[21],cadr((V108)))); |
811 |
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1))); |
812 |
bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil)); |
bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil)); |
813 |
bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17]))); |
bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17]))); |
814 |
if(((V104))==Cnil){ |
if(((V104))==Cnil){ |
815 |
goto T523;} |
goto T543;} |
816 |
{object V124; |
{object V124; |
817 |
object V125= (V109); |
object V125= (V109); |
818 |
if(endp(V125)){ |
if(endp(V125)){ |
819 |
V123= Cnil; |
V123= Cnil; |
820 |
goto T521;} |
goto T541;} |
821 |
base[5]=V124=MMcons(Cnil,Cnil); |
base[5]=V124=MMcons(Cnil,Cnil); |
822 |
T525:;{object V127; |
goto T545; |
823 |
|
T545:;{object V127; |
824 |
V127= symbol_value(VV[19]); |
V127= symbol_value(VV[19]); |
825 |
(V124->c.c_car)= list(3,VV[18],V127,list(2,VV[15],cadr((V125->c.c_car))));} |
(V124->c.c_car)= list(3,VV[18],V127,list(2,VV[15],cadr((V125->c.c_car))));} |
826 |
if(endp(V125=MMcdr(V125))){ |
if(endp(V125=MMcdr(V125))){ |
827 |
V123= base[5]; |
V123= base[5]; |
828 |
goto T521;} |
goto T541;} |
829 |
V124=MMcdr(V124)=MMcons(Cnil,Cnil); |
V124=MMcdr(V124)=MMcons(Cnil,Cnil); |
830 |
goto T525;} |
goto T545;} |
831 |
T523:; |
goto T543; |
832 |
|
T543:; |
833 |
{object V128; |
{object V128; |
834 |
object V129= (V109); |
object V129= (V109); |
835 |
if(endp(V129)){ |
if(endp(V129)){ |
836 |
V123= Cnil; |
V123= Cnil; |
837 |
goto T521;} |
goto T541;} |
838 |
base[5]=V128=MMcons(Cnil,Cnil); |
base[5]=V128=MMcons(Cnil,Cnil); |
839 |
T527:; |
goto T547; |
840 |
|
T547:; |
841 |
(V128->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V129->c.c_car)); |
(V128->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V129->c.c_car)); |
842 |
if(endp(V129=MMcdr(V129))){ |
if(endp(V129=MMcdr(V129))){ |
843 |
V123= base[5]; |
V123= base[5]; |
844 |
goto T521;} |
goto T541;} |
845 |
V128=MMcdr(V128)=MMcons(Cnil,Cnil); |
V128=MMcdr(V128)=MMcons(Cnil,Cnil); |
846 |
goto T527;} |
goto T547;} |
847 |
T521:; |
goto T541; |
848 |
|
T541:; |
849 |
(void)((VFUN_NARGS=3,(*(LnkLI34))((V103),V123,(V110)))); |
(void)((VFUN_NARGS=3,(*(LnkLI34))((V103),V123,(V110)))); |
850 |
if((cdr((VV[16]->s.s_dbind)))==Cnil){ |
if((cdr((VV[16]->s.s_dbind)))==Cnil){ |
851 |
bds_unwind1; |
bds_unwind1; |
852 |
bds_unwind1; |
bds_unwind1; |
853 |
bds_unwind1; |
bds_unwind1; |
854 |
goto T515;} |
goto T535;} |
855 |
|
princ_str("\ngoto T",VV[11]); |
856 |
|
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
857 |
|
princ_char(59,VV[11]); |
858 |
princ_str("\nT",VV[11]); |
princ_str("\nT",VV[11]); |
859 |
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
(void)((*(LnkLI32))(car((VV[16]->s.s_dbind)))); |
860 |
princ_str(":;",VV[11]); |
princ_str(":;",VV[11]); |
861 |
bds_unwind1; |
bds_unwind1; |
862 |
bds_unwind1; |
bds_unwind1; |
863 |
bds_unwind1; |
bds_unwind1; |
864 |
T515:; |
goto T535; |
865 |
|
T535:; |
866 |
if((symbol_value(VV[12]))==Cnil){ |
if((symbol_value(VV[12]))==Cnil){ |
867 |
goto T536;} |
goto T560;} |
868 |
princ_str("\n while(!endp(MMcdr(",VV[11]); |
princ_str("\n while(!endp(MMcdr(",VV[11]); |
869 |
(void)((*(LnkLI32))((V108))); |
(void)((*(LnkLI32))((V108))); |
870 |
princ_str(")))",VV[11]); |
princ_str(")))",VV[11]); |
881 |
object V132; |
object V132; |
882 |
V131= cdr((V109)); |
V131= cdr((V109)); |
883 |
V132= car((V131)); |
V132= car((V131)); |
884 |
T556:; |
goto T580; |
885 |
|
T580:; |
886 |
if(!(endp((V131)))){ |
if(!(endp((V131)))){ |
887 |
goto T557;} |
goto T581;} |
888 |
goto T552; |
goto T576; |
889 |
T557:; |
goto T581; |
890 |
|
T581:; |
891 |
princ_str("||endp(",VV[11]); |
princ_str("||endp(",VV[11]); |
892 |
(void)((*(LnkLI32))((V132))); |
(void)((*(LnkLI32))((V132))); |
893 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
895 |
princ_str("))",VV[11]); |
princ_str("))",VV[11]); |
896 |
V131= cdr((V131)); |
V131= cdr((V131)); |
897 |
V132= car((V131)); |
V132= car((V131)); |
898 |
goto T556;} |
goto T580;} |
899 |
T552:; |
goto T576; |
900 |
|
T576:; |
901 |
princ_str("){",VV[11]); |
princ_str("){",VV[11]); |
902 |
goto T534; |
goto T558; |
903 |
T536:; |
goto T560; |
904 |
|
T560:; |
905 |
princ_str("\n while(MMcdr(",VV[11]); |
princ_str("\n while(MMcdr(",VV[11]); |
906 |
(void)((*(LnkLI32))((V108))); |
(void)((*(LnkLI32))((V108))); |
907 |
princ_str(")!=Cnil)",VV[11]); |
princ_str(")!=Cnil)",VV[11]); |
918 |
object V134; |
object V134; |
919 |
V133= cdr((V109)); |
V133= cdr((V109)); |
920 |
V134= car((V133)); |
V134= car((V133)); |
921 |
T591:; |
goto T615; |
922 |
|
T615:; |
923 |
if(!(endp((V133)))){ |
if(!(endp((V133)))){ |
924 |
goto T592;} |
goto T616;} |
925 |
goto T587; |
goto T611; |
926 |
T592:; |
goto T616; |
927 |
|
T616:; |
928 |
princ_str("||(",VV[11]); |
princ_str("||(",VV[11]); |
929 |
(void)((*(LnkLI32))((V134))); |
(void)((*(LnkLI32))((V134))); |
930 |
princ_str("=MMcdr(",VV[11]); |
princ_str("=MMcdr(",VV[11]); |
932 |
princ_str("))==Cnil",VV[11]); |
princ_str("))==Cnil",VV[11]); |
933 |
V133= cdr((V133)); |
V133= cdr((V133)); |
934 |
V134= car((V133)); |
V134= car((V133)); |
935 |
goto T591;} |
goto T615;} |
936 |
T587:; |
goto T611; |
937 |
|
T611:; |
938 |
princ_str("){",VV[11]); |
princ_str("){",VV[11]); |
939 |
T534:; |
goto T558; |
940 |
|
T558:; |
941 |
princ_str("\n ",VV[11]); |
princ_str("\n ",VV[11]); |
942 |
(void)((*(LnkLI32))((V107))); |
(void)((*(LnkLI32))((V107))); |
943 |
princ_char(61,VV[11]); |
princ_char(61,VV[11]); |
956 |
bds_unwind1; |
bds_unwind1; |
957 |
bds_unwind1; |
bds_unwind1; |
958 |
VMR10(V135)}} |
VMR10(V135)}} |
959 |
|
base[0]=base[0]; |
960 |
|
return Cnil; |
961 |
} |
} |
962 |
/* local entry for function PUSH-CHANGED-VARS */ |
/* local entry for function PUSH-CHANGED-VARS */ |
963 |
|
|
965 |
|
|
966 |
object V138;object V139; |
object V138;object V139; |
967 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
968 |
|
goto TTL; |
969 |
TTL:; |
TTL:; |
970 |
{register object V140; |
{register object V140; |
971 |
register object V141; |
register object V141; |
975 |
register object V143; |
register object V143; |
976 |
V142= (V138); |
V142= (V138); |
977 |
V143= car((V142)); |
V143= car((V142)); |
978 |
T630:; |
goto T654; |
979 |
|
T654:; |
980 |
if(!(endp((V142)))){ |
if(!(endp((V142)))){ |
981 |
goto T631;} |
goto T655;} |
982 |
{object V144 = reverse((V140)); |
{object V144 = reverse((V140)); |
983 |
VMR11(V144)} |
VMR11(V144)} |
984 |
T631:; |
goto T655; |
985 |
|
T655:; |
986 |
if(!(type_of((V143))==t_cons)){ |
if(!(type_of((V143))==t_cons)){ |
987 |
goto T637;} |
goto T661;} |
988 |
if(!((car((V143)))==(VV[22]))){ |
if(!((car((V143)))==(VV[22]))){ |
989 |
goto T637;} |
goto T661;} |
990 |
if(((*(LnkLI36))(cadr((V143)),(V141)))==Cnil){ |
if(((*(LnkLI36))(cadr((V143)),(V141)))==Cnil){ |
991 |
goto T637;} |
goto T661;} |
992 |
{register object V145; |
{register object V145; |
993 |
V145= list(2,VV[7],(*(LnkLI28))()); |
V145= list(2,VV[7],(*(LnkLI28))()); |
994 |
princ_str("\n ",VV[11]); |
princ_str("\n ",VV[11]); |
997 |
(void)((*(LnkLI32))((V143))); |
(void)((*(LnkLI32))((V143))); |
998 |
princ_char(59,VV[11]); |
princ_char(59,VV[11]); |
999 |
V140= make_cons((V145),(V140)); |
V140= make_cons((V145),(V140)); |
1000 |
goto T635;} |
goto T659;} |
1001 |
T637:; |
goto T661; |
1002 |
|
T661:; |
1003 |
V140= make_cons((V143),(V140)); |
V140= make_cons((V143),(V140)); |
1004 |
T635:; |
goto T659; |
1005 |
|
T659:; |
1006 |
V142= cdr((V142)); |
V142= cdr((V142)); |
1007 |
V143= car((V142)); |
V143= car((V142)); |
1008 |
goto T630;}} |
goto T654;}} |
1009 |
|
base[0]=base[0]; |
1010 |
|
return Cnil; |
1011 |
} |
} |
1012 |
static object LnkTLI36(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[36],&LnkLI36,2,ap);} /* ARGS-INFO-CHANGED-VARS */ |
static object LnkTLI36(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[36],(void **)&LnkLI36,2,ap);} /* ARGS-INFO-CHANGED-VARS */ |
1013 |
static object LnkTLI35(){return call_proc0(VV[35],&LnkLI35);} /* CLOSE-INLINE-BLOCKS */ |
static object LnkTLI35(){return call_proc0(VV[35],(void **)&LnkLI35);} /* CLOSE-INLINE-BLOCKS */ |
1014 |
static object LnkTLI34(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[34],&LnkLI34,ap);} /* C2FUNCALL */ |
static object LnkTLI34(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[34],(void **)&LnkLI34,ap);} /* C2FUNCALL */ |
1015 |
static object LnkTLI33(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[33],&LnkLI33,ap);} /* UNWIND-EXIT */ |
static object LnkTLI33(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[33],(void **)&LnkLI33,ap);} /* UNWIND-EXIT */ |
1016 |
static object LnkTLI32(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[32],&LnkLI32,1,ap);} /* WT1 */ |
static object LnkTLI32(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[32],(void **)&LnkLI32,1,ap);} /* WT1 */ |
1017 |
static object LnkTLI31(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[31],&LnkLI31,ap);} /* INLINE-ARGS */ |
static object LnkTLI31(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[31],(void **)&LnkLI31,ap);} /* INLINE-ARGS */ |
1018 |
static object LnkTLI30(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[30],&LnkLI30,2,ap);} /* PUSH-CHANGED-VARS */ |
static object LnkTLI30(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[30],(void **)&LnkLI30,2,ap);} /* PUSH-CHANGED-VARS */ |
1019 |
static object LnkTLI29(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[29],&LnkLI29,1,ap);} /* SAVE-FUNOB */ |
static object LnkTLI29(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[29],(void **)&LnkLI29,1,ap);} /* SAVE-FUNOB */ |
1020 |
static object LnkTLI28(){return call_proc0(VV[28],&LnkLI28);} /* VS-PUSH */ |
static object LnkTLI28(){return call_proc0(VV[28],(void **)&LnkLI28);} /* VS-PUSH */ |
1021 |
static object LnkTLI27(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[27],&LnkLI27,2,ap);} /* C1ARGS */ |
static object LnkTLI27(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[27],(void **)&LnkLI27,2,ap);} /* C1ARGS */ |
1022 |
static LnkT26(){ call_or_link(VV[26],&Lnk26);} /* COPY-INFO */ |
static void LnkT26(){ call_or_link(VV[26],(void **)&Lnk26);} /* COPY-INFO */ |
1023 |
static object LnkTLI25(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[25],&LnkLI25,1,ap);} /* C1FUNOB */ |
static object LnkTLI25(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[25],(void **)&LnkLI25,1,ap);} /* C1FUNOB */ |
1024 |
static object LnkTLI24(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[24],&LnkLI24,3,ap);} /* TOO-FEW-ARGS */ |
static object LnkTLI24(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[24],(void **)&LnkLI24,3,ap);} /* TOO-FEW-ARGS */ |
1025 |
static object LnkTLI23(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[23],&LnkLI23,3,ap);} /* C1MAP-FUNCTIONS */ |
static object LnkTLI23(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[23],(void **)&LnkLI23,3,ap);} /* C1MAP-FUNCTIONS */ |
1026 |
|
|
1027 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1028 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |