14 |
object V4; |
object V4; |
15 |
V3= Cnil; |
V3= Cnil; |
16 |
V4= Cnil; |
V4= Cnil; |
17 |
if(!(endp_prop((V2)))){ |
if(!(((V2))==Cnil)){ |
18 |
goto T3;} |
goto T3;} |
19 |
(void)((*(LnkLI38))(VV[0],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI38))(VV[0],small_fixnum(1),small_fixnum(0))); |
20 |
goto T3; |
goto T3; |
21 |
T3:; |
T3:; |
22 |
if(!(endp_prop(cdr((V2))))){ |
if(!((CMPcdr((V2)))==Cnil)){ |
23 |
goto T7;} |
goto T7;} |
24 |
{object V5 = (*(LnkLI39))((V2)); |
{object V5 = (*(LnkLI39))((V2)); |
25 |
VMR1(V5)} |
VMR1(V5)} |
26 |
goto T7; |
goto T7; |
27 |
T7:; |
T7:; |
28 |
V4= (*(LnkLI40))(car((V2))); |
V4= (*(LnkLI40))(CMPcar((V2))); |
29 |
base[0]= cadr((V4)); |
base[0]= CMPcadr((V4)); |
30 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
31 |
(void) (*Lnk41)(); |
(void) (*Lnk41)(); |
32 |
vs_top=sup; |
vs_top=sup; |
33 |
V3= vs_base[0]; |
V3= vs_base[0]; |
34 |
V2= (*(LnkLI42))(cdr((V2)),(V3)); |
V2= (*(LnkLI42))(CMPcdr((V2)),(V3)); |
35 |
{object V6 = list(4,VV[0],(V3),(V4),(V2)); |
{object V6 = list(4,VV[0],(V3),(V4),(V2)); |
36 |
VMR1(V6)}} |
VMR1(V6)}} |
37 |
base[0]=base[0]; |
base[0]=base[0]; |
48 |
TTL:; |
TTL:; |
49 |
{register object V11; |
{register object V11; |
50 |
register object V12; |
register object V12; |
51 |
bds_bind(VV[1],symbol_value(VV[1])); |
bds_bind(VV[1],(VV[1]->s.s_dbind)); |
52 |
V11= Cnil; |
V11= Cnil; |
53 |
V12= Cnil; |
V12= Cnil; |
54 |
if(!(endp_prop(cdr((V10))))){ |
if(!((CMPcdr((V10)))==Cnil)){ |
55 |
goto T19;} |
goto T19;} |
56 |
V11= (*(LnkLI43))((V9)); |
V11= (*(LnkLI43))((V9)); |
57 |
bds_bind(VV[2],VV[3]); |
bds_bind(VV[2],VV[3]); |
58 |
V13= (*(LnkLI44))(car((V10))); |
V13= (*(LnkLI44))(CMPcar((V10))); |
59 |
bds_unwind1; |
bds_unwind1; |
60 |
{object V14 = (VFUN_NARGS=3,(*(LnkLI45))((V9),VV[4],(V11))); |
{object V14 = (VFUN_NARGS=3,(*(LnkLI45))((V9),VV[4],(V11))); |
61 |
bds_unwind1; |
bds_unwind1; |
62 |
VMR2(V14)} |
VMR2(V14)} |
63 |
goto T19; |
goto T19; |
64 |
T19:; |
T19:; |
65 |
setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); |
(VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1)); |
66 |
V12= symbol_value(VV[5]); |
V12= (VV[5]->s.s_dbind); |
67 |
V11= (*(LnkLI43))((V9)); |
V11= (*(LnkLI43))((V9)); |
68 |
princ_str("\n {object *V",VV[6]); |
princ_str("\n {object *V",VV[6]); |
69 |
(void)((*(LnkLI46))((V12))); |
(void)((*(LnkLI46))((V12))); |
70 |
princ_str("=base+",VV[6]); |
princ_str("=base+",VV[6]); |
71 |
(void)((*(LnkLI46))((VV[1]->s.s_dbind))); |
(void)((*(LnkLI46))((VV[1]->s.s_dbind))); |
72 |
princ_char(59,VV[6]); |
princ_char(59,VV[6]); |
73 |
setq(VV[7],Ct); |
(VV[7]->s.s_dbind)= Ct; |
74 |
{register object V15; |
{register object V15; |
75 |
register object V16; |
register object V16; |
76 |
V15= (V10); |
V15= (V10); |
77 |
V16= car((V15)); |
V16= CMPcar((V15)); |
78 |
goto T41; |
goto T41; |
79 |
T41:; |
T41:; |
80 |
if(!(endp_prop((V15)))){ |
if(!(((V15))==Cnil)){ |
81 |
goto T42;} |
goto T42;} |
82 |
goto T37; |
goto T37; |
83 |
goto T42; |
goto T42; |
91 |
princ_str("[0]=vs_base[0];V",VV[6]); |
princ_str("[0]=vs_base[0];V",VV[6]); |
92 |
(void)((*(LnkLI46))((V12))); |
(void)((*(LnkLI46))((V12))); |
93 |
princ_str("++;vs_base++;}",VV[6]); |
princ_str("++;vs_base++;}",VV[6]); |
94 |
V15= cdr((V15)); |
V15= CMPcdr((V15)); |
95 |
V16= car((V15)); |
V16= CMPcar((V15)); |
96 |
goto T41;} |
goto T41;} |
97 |
goto T37; |
goto T37; |
98 |
T37:; |
T37:; |
101 |
princ_str(";vs_top=V",VV[6]); |
princ_str(";vs_top=V",VV[6]); |
102 |
(void)((*(LnkLI46))((V12))); |
(void)((*(LnkLI46))((V12))); |
103 |
princ_char(59,VV[6]); |
princ_char(59,VV[6]); |
104 |
setq(VV[7],Ct); |
(VV[7]->s.s_dbind)= Ct; |
105 |
(void)((VFUN_NARGS=3,(*(LnkLI45))((V9),VV[4],(V11)))); |
(void)((VFUN_NARGS=3,(*(LnkLI45))((V9),VV[4],(V11)))); |
106 |
princ_char(125,VV[6]); |
princ_char(125,VV[6]); |
107 |
{object V18 = Cnil; |
{object V18 = Cnil; |
122 |
object V22; |
object V22; |
123 |
V21= (VFUN_NARGS=0,(*(LnkLI48))()); |
V21= (VFUN_NARGS=0,(*(LnkLI48))()); |
124 |
V22= Cnil; |
V22= Cnil; |
125 |
if(!(endp_prop((V20)))){ |
if(!(((V20))==Cnil)){ |
126 |
goto T72;} |
goto T72;} |
127 |
(void)((*(LnkLI38))(VV[8],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI38))(VV[8],small_fixnum(1),small_fixnum(0))); |
128 |
goto T72; |
goto T72; |
129 |
T72:; |
T72:; |
130 |
V22= (*(LnkLI49))(car((V20)),(V21)); |
V22= (*(LnkLI49))(CMPcar((V20)),(V21)); |
131 |
V20= (*(LnkLI42))(cdr((V20)),(V21)); |
V20= (*(LnkLI42))(CMPcdr((V20)),(V21)); |
132 |
{object V23 = list(4,VV[8],(V21),(V22),(V20)); |
{object V23 = list(4,VV[8],(V21),(V22),(V20)); |
133 |
VMR3(V23)}} |
VMR3(V23)}} |
134 |
base[0]=base[0]; |
base[0]=base[0]; |
146 |
{object V28; |
{object V28; |
147 |
register object V29; |
register object V29; |
148 |
object V30; |
object V30; |
149 |
setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); |
(VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1)); |
150 |
V28= symbol_value(VV[5]); |
V28= (VV[5]->s.s_dbind); |
151 |
setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); |
(VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1)); |
152 |
V29= symbol_value(VV[5]); |
V29= (VV[5]->s.s_dbind); |
153 |
V30= Cnil; |
V30= Cnil; |
154 |
bds_bind(VV[2],VV[3]); |
bds_bind(VV[2],VV[3]); |
155 |
bds_bind(VV[9],Cnil); |
bds_bind(VV[9],Cnil); |
167 |
{register object V31; |
{register object V31; |
168 |
register object V32; |
register object V32; |
169 |
V31= (V27); |
V31= (V27); |
170 |
V32= car((V31)); |
V32= CMPcar((V31)); |
171 |
goto T99; |
goto T99; |
172 |
T99:; |
T99:; |
173 |
if(!(endp_prop((V31)))){ |
if(!(((V31))==Cnil)){ |
174 |
goto T100;} |
goto T100;} |
175 |
goto T95; |
goto T95; |
176 |
goto T100; |
goto T100; |
178 |
bds_bind(VV[2],VV[10]); |
bds_bind(VV[2],VV[10]); |
179 |
V33= (*(LnkLI47))((V32),(V29)); |
V33= (*(LnkLI47))((V32),(V29)); |
180 |
bds_unwind1; |
bds_unwind1; |
181 |
V31= cdr((V31)); |
V31= CMPcdr((V31)); |
182 |
V32= car((V31)); |
V32= CMPcar((V31)); |
183 |
goto T99;} |
goto T99;} |
184 |
goto T95; |
goto T95; |
185 |
T95:; |
T95:; |
190 |
princ_str(";}",VV[6]); |
princ_str(";}",VV[6]); |
191 |
if(((V30))==Cnil){ |
if(((V30))==Cnil){ |
192 |
goto T118;} |
goto T118;} |
193 |
V34= car((V30)); |
V34= CMPcar((V30)); |
194 |
goto T116; |
goto T116; |
195 |
goto T118; |
goto T118; |
196 |
T118:; |
T118:; |
214 |
V38= (VFUN_NARGS=0,(*(LnkLI48))()); |
V38= (VFUN_NARGS=0,(*(LnkLI48))()); |
215 |
if(((V37))==Cnil){ |
if(((V37))==Cnil){ |
216 |
goto T122;} |
goto T122;} |
217 |
if((cdr((V37)))!=Cnil){ |
if((CMPcdr((V37)))!=Cnil){ |
218 |
goto T122;} |
goto T122;} |
219 |
if(!(type_of(car((V37)))==t_cons)){ |
if(!(type_of(CMPcar((V37)))==t_cons)){ |
220 |
goto T121;} |
goto T121;} |
221 |
if(!(type_of(caar((V37)))==t_symbol)){ |
if(!(type_of(CMPcaar((V37)))==t_symbol)){ |
222 |
goto T122;} |
goto T122;} |
223 |
{register object V39; |
{register object V39; |
224 |
V39= (*(LnkLI51))(caar((V37))); |
V39= (*(LnkLI51))(CMPcaar((V37))); |
225 |
if((V39)==Cnil){ |
if((V39)==Cnil){ |
226 |
goto T122;} |
goto T122;} |
227 |
if(!(type_of((V39))!=t_cons)){ |
if(!(type_of((V39))!=t_cons)){ |
234 |
goto T122; |
goto T122; |
235 |
goto T135; |
goto T135; |
236 |
T135:; |
T135:; |
237 |
if((cdr((V39)))==Cnil){ |
if((CMPcdr((V39)))==Cnil){ |
238 |
goto T137;} |
goto T137;} |
239 |
goto T122; |
goto T122; |
240 |
goto T137; |
goto T137; |
241 |
T137:; |
T137:; |
242 |
if(!((((VV[12])==(car((V39)))?Ct:Cnil))==Cnil)){ |
if(!((((VV[12])==(CMPcar((V39)))?Ct:Cnil))==Cnil)){ |
243 |
goto T122;}} |
goto T122;}} |
244 |
goto T131; |
goto T131; |
245 |
T131:; |
T131:; |
246 |
goto T121; |
goto T121; |
247 |
T121:; |
T121:; |
248 |
{object V40 = (*(LnkLI52))(car((V37))); |
{object V40 = (*(LnkLI52))(CMPcar((V37))); |
249 |
VMR5(V40)} |
VMR5(V40)} |
250 |
goto T122; |
goto T122; |
251 |
T122:; |
T122:; |
265 |
goto TTL; |
goto TTL; |
266 |
TTL:; |
TTL:; |
267 |
{object V44; |
{object V44; |
268 |
V44= symbol_value(VV[1]); |
V44= (VV[1]->s.s_dbind); |
269 |
bds_bind(VV[1],symbol_value(VV[1])); |
bds_bind(VV[1],(VV[1]->s.s_dbind)); |
270 |
if(!((symbol_value(VV[2]))==(VV[14]))){ |
if(!(((VV[2]->s.s_dbind))==(VV[14]))){ |
271 |
goto T142;} |
goto T142;} |
272 |
if((cdr((V43)))==Cnil){ |
if((CMPcdr((V43)))==Cnil){ |
273 |
goto T142;} |
goto T142;} |
274 |
if(!(type_of(symbol_value(VV[15]))==t_cons)){ |
if(!(type_of((VV[15]->s.s_dbind))==t_cons)){ |
275 |
goto T142;} |
goto T142;} |
276 |
if(!((VV[16])==(car(symbol_value(VV[15]))))){ |
if(!((VV[16])==(CMPcar((VV[15]->s.s_dbind))))){ |
277 |
goto T142;} |
goto T142;} |
278 |
(void)((VFUN_NARGS=2,(*(LnkLI53))(VV[17],cadr(symbol_value(VV[15]))))); |
(void)((VFUN_NARGS=2,(*(LnkLI53))(VV[17],CMPcadr((VV[15]->s.s_dbind))))); |
279 |
goto T142; |
goto T142; |
280 |
T142:; |
T142:; |
281 |
if(((V43))!=Cnil){ |
if(((V43))!=Cnil){ |
283 |
princ_str("\n vs_base=vs_top=base+",VV[6]); |
princ_str("\n vs_base=vs_top=base+",VV[6]); |
284 |
(void)((*(LnkLI46))((V44))); |
(void)((*(LnkLI46))((V44))); |
285 |
princ_char(59,VV[6]); |
princ_char(59,VV[6]); |
286 |
setq(VV[7],Ct); |
(VV[7]->s.s_dbind)= Ct; |
287 |
princ_str("\n vs_base[0]=Cnil;",VV[6]); |
princ_str("\n vs_base[0]=Cnil;",VV[6]); |
288 |
goto T151; |
goto T151; |
289 |
goto T153; |
goto T153; |
291 |
{register object V45; |
{register object V45; |
292 |
register object V46; |
register object V46; |
293 |
V45= (V43); |
V45= (V43); |
294 |
V46= car((V45)); |
V46= CMPcar((V45)); |
295 |
goto T166; |
goto T166; |
296 |
T166:; |
T166:; |
297 |
if(!(endp_prop((V45)))){ |
if(!(((V45))==Cnil)){ |
298 |
goto T167;} |
goto T167;} |
299 |
goto T162; |
goto T162; |
300 |
goto T167; |
goto T167; |
303 |
bds_bind(VV[2],base[2]); |
bds_bind(VV[2],base[2]); |
304 |
V47= (*(LnkLI44))((V46)); |
V47= (*(LnkLI44))((V46)); |
305 |
bds_unwind1; |
bds_unwind1; |
306 |
V45= cdr((V45)); |
V45= CMPcdr((V45)); |
307 |
V46= car((V45)); |
V46= CMPcar((V45)); |
308 |
goto T166;} |
goto T166;} |
309 |
goto T162; |
goto T162; |
310 |
T162:; |
T162:; |
314 |
V48= number_minus((VV[1]->s.s_dbind),(V44)); |
V48= number_minus((VV[1]->s.s_dbind),(V44)); |
315 |
(void)((*(LnkLI46))(/* INLINE-ARGS */V48)); |
(void)((*(LnkLI46))(/* INLINE-ARGS */V48)); |
316 |
princ_char(59,VV[6]); |
princ_char(59,VV[6]); |
317 |
setq(VV[7],Ct); |
(VV[7]->s.s_dbind)= Ct; |
318 |
goto T151; |
goto T151; |
319 |
T151:; |
T151:; |
320 |
V49 = make_fixnum((long)length((V43))); |
V49 = CMPmake_fixnum((long)length((V43))); |
321 |
V50= make_cons(VV[13],V49); |
V50= make_cons(VV[13],V49); |
322 |
{object V51 = (VFUN_NARGS=3,(*(LnkLI50))(VV[11],Cnil,/* INLINE-ARGS */V50)); |
{object V51 = (VFUN_NARGS=3,(*(LnkLI50))(VV[11],Cnil,/* INLINE-ARGS */V50)); |
323 |
bds_unwind1; |
bds_unwind1; |
337 |
register object V55; |
register object V55; |
338 |
V54= (VFUN_NARGS=0,(*(LnkLI48))()); |
V54= (VFUN_NARGS=0,(*(LnkLI48))()); |
339 |
V55= Cnil; |
V55= Cnil; |
340 |
if(endp_prop((V53))){ |
if(((V53))==Cnil){ |
341 |
goto T188;} |
goto T188;} |
342 |
if(!(endp_prop(cdr((V53))))){ |
if(!((CMPcdr((V53)))==Cnil)){ |
343 |
goto T187;} |
goto T187;} |
344 |
goto T188; |
goto T188; |
345 |
T188:; |
T188:; |
346 |
(void)((*(LnkLI38))(VV[19],small_fixnum(2),small_fixnum(0))); |
(void)((*(LnkLI38))(VV[19],small_fixnum(2),small_fixnum(0))); |
347 |
goto T187; |
goto T187; |
348 |
T187:; |
T187:; |
349 |
if(endp_prop(cddr((V53)))){ |
if((CMPcddr((V53)))==Cnil){ |
350 |
goto T192;} |
goto T192;} |
351 |
V56 = make_fixnum((long)length((V53))); |
V56 = CMPmake_fixnum((long)length((V53))); |
352 |
(void)((*(LnkLI55))(VV[19],small_fixnum(2),V56)); |
(void)((*(LnkLI55))(VV[19],small_fixnum(2),V56)); |
353 |
goto T192; |
goto T192; |
354 |
T192:; |
T192:; |
355 |
{register object V57; |
{register object V57; |
356 |
register object V58; |
register object V58; |
357 |
V57= car((V53)); |
V57= CMPcar((V53)); |
358 |
V58= car((V57)); |
V58= CMPcar((V57)); |
359 |
goto T199; |
goto T199; |
360 |
T199:; |
T199:; |
361 |
if(!(endp_prop((V57)))){ |
if(!(((V57))==Cnil)){ |
362 |
goto T200;} |
goto T200;} |
363 |
goto T195; |
goto T195; |
364 |
goto T200; |
goto T200; |
384 |
{register object V60; |
{register object V60; |
385 |
register object V61; |
register object V61; |
386 |
register object V62; |
register object V62; |
387 |
V60= car((V58)); |
V60= CMPcar((V58)); |
388 |
V61= (V54); |
V61= (V54); |
389 |
V63= structure_ref((V61),VV[22],0); |
V62= make_cons((V60),STREF(object,(V61),0)); |
390 |
V62= make_cons((V60),/* INLINE-ARGS */V63); |
V63= Ct; |
391 |
(void)(structure_set((V61),VV[22],0,(V62)));} |
STSET(object,(V61),0, (V62)); |
392 |
V57= cdr((V57)); |
(void)((V62));} |
393 |
V58= car((V57)); |
V57= CMPcdr((V57)); |
394 |
|
V58= CMPcar((V57)); |
395 |
goto T199;} |
goto T199;} |
396 |
goto T195; |
goto T195; |
397 |
T195:; |
T195:; |
398 |
V64= reverse((V55)); |
V64= reverse((V55)); |
399 |
{object V65 = list(4,VV[19],(V54),/* INLINE-ARGS */V64,(*(LnkLI49))(cadr((V53)),(V54))); |
{object V65 = list(4,VV[19],(V54),/* INLINE-ARGS */V64,(*(LnkLI49))(CMPcadr((V53)),(V54))); |
400 |
VMR7(V65)}} |
VMR7(V65)}} |
401 |
base[0]=base[0]; |
base[0]=base[0]; |
402 |
return Cnil; |
return Cnil; |
409 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
410 |
goto TTL; |
goto TTL; |
411 |
TTL:; |
TTL:; |
412 |
if((cdr((V68)))!=Cnil){ |
if((CMPcdr((V68)))!=Cnil){ |
413 |
goto T225;} |
goto T225;} |
414 |
{object V70 = Cnil; |
{object V70 = Cnil; |
415 |
VMR8(V70)} |
VMR8(V70)} |
416 |
goto T225; |
goto T225; |
417 |
T225:; |
T225:; |
418 |
if((car((V69)))==(VV[23])){ |
if((CMPcar((V69)))==(VV[23])){ |
419 |
goto T227;} |
goto T227;} |
420 |
{object V71 = Cnil; |
{object V71 = Cnil; |
421 |
VMR8(V71)} |
VMR8(V71)} |
422 |
goto T227; |
goto T227; |
423 |
T227:; |
T227:; |
424 |
{object V72; |
{object V72; |
425 |
V72= caddr((V69)); |
V72= CMPcaddr((V69)); |
426 |
if(!(type_of((V72))==t_symbol)){ |
if(!(type_of((V72))==t_symbol)){ |
427 |
goto T231;} |
goto T231;} |
428 |
{register object V73; |
{register object V73; |
429 |
V73= get((V72),VV[24],Cnil); |
{object V74 =((V72))->s.s_plist; |
430 |
|
object ind= VV[24]; |
431 |
|
while(V74!=Cnil){ |
432 |
|
if(V74->c.c_car==ind){ |
433 |
|
V73= (V74->c.c_cdr->c.c_car); |
434 |
|
goto T235; |
435 |
|
}else V74=V74->c.c_cdr->c.c_cdr;} |
436 |
|
V73= Cnil;} |
437 |
|
goto T235; |
438 |
|
T235:; |
439 |
if((V73)==Cnil){ |
if((V73)==Cnil){ |
440 |
goto T231;} |
goto T231;} |
441 |
if(type_of((V73))==t_cons){ |
if(type_of((V73))==t_cons){ |
448 |
goto T231; |
goto T231; |
449 |
goto T238; |
goto T238; |
450 |
T238:; |
T238:; |
451 |
if(!((cdr((V73)))==Cnil)){ |
if(!((CMPcdr((V73)))==Cnil)){ |
452 |
goto T231;}} |
goto T231;}} |
453 |
{object V74 = (VFUN_NARGS=2,(*(LnkLI53))(VV[26],(V72))); |
{object V75 = (VFUN_NARGS=2,(*(LnkLI53))(VV[26],(V72))); |
454 |
VMR8(V74)} |
VMR8(V75)} |
455 |
goto T231; |
goto T231; |
456 |
T231:; |
T231:; |
457 |
{object V75 = Cnil; |
{object V76 = Cnil; |
458 |
VMR8(V75)}} |
VMR8(V76)}} |
459 |
return Cnil; |
return Cnil; |
460 |
} |
} |
461 |
/* local entry for function C2MULTIPLE-VALUE-SETQ */ |
/* local entry for function C2MULTIPLE-VALUE-SETQ */ |
462 |
|
|
463 |
static object LI9(V78,V79) |
static object LI9(V79,V80) |
464 |
|
|
465 |
register object V78;object V79; |
register object V79;object V80; |
466 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
467 |
bds_check; |
bds_check; |
468 |
goto TTL; |
goto TTL; |
469 |
TTL:; |
TTL:; |
470 |
{object V80; |
{object V81; |
471 |
V80= Cnil; |
V81= Cnil; |
472 |
(void)((*(LnkLI58))((V78),(V79))); |
(void)((*(LnkLI58))((V79),(V80))); |
473 |
bds_bind(VV[2],VV[3]); |
bds_bind(VV[2],VV[3]); |
474 |
bds_bind(VV[9],Cnil); |
bds_bind(VV[9],Cnil); |
475 |
(void)((*(LnkLI44))((V79))); |
(void)((*(LnkLI44))((V80))); |
476 |
V80= (VV[9]->s.s_dbind); |
V81= (VV[9]->s.s_dbind); |
477 |
bds_unwind1; |
bds_unwind1; |
478 |
bds_unwind1; |
bds_unwind1; |
479 |
if(symbol_value(VV[27])==Cnil){ |
if((VV[27]->s.s_dbind)==Cnil){ |
480 |
goto T245;} |
goto T245;} |
481 |
(void)((*(LnkLI59))(Cnil,car((V80)))); |
base[0]= Cnil; |
482 |
|
base[1]= CMPcar((V81)); |
483 |
|
vs_top=(vs_base=base+0)+2; |
484 |
|
(void) (*Lnk59)(); |
485 |
|
vs_top=sup; |
486 |
goto T245; |
goto T245; |
487 |
T245:; |
T245:; |
|
{register object V81; |
|
|
V81= (V78); |
|
|
goto T248; |
|
|
T248:; |
|
|
if(!(endp_prop((V81)))){ |
|
|
goto T249;} |
|
|
goto T246; |
|
|
goto T249; |
|
|
T249:; |
|
488 |
{register object V82; |
{register object V82; |
489 |
V82= car((V81)); |
V82= (V79); |
490 |
|
goto T250; |
491 |
|
T250:; |
492 |
|
if(!(((V82))==Cnil)){ |
493 |
|
goto T251;} |
494 |
|
goto T248; |
495 |
|
goto T251; |
496 |
|
T251:; |
497 |
|
{register object V83; |
498 |
|
V83= CMPcar((V82)); |
499 |
princ_str("\n if(vs_base<vs_top){",VV[6]); |
princ_str("\n if(vs_base<vs_top){",VV[6]); |
500 |
(void)((*(LnkLI60))(VV[11],car((V82)),cadr((V82)))); |
(void)((*(LnkLI60))(VV[11],CMPcar((V83)),CMPcadr((V83)))); |
501 |
if(endp_prop(cdr((V81)))){ |
if((CMPcdr((V82)))==Cnil){ |
502 |
goto T258;} |
goto T260;} |
503 |
princ_str("\n vs_base++;",VV[6]); |
princ_str("\n vs_base++;",VV[6]); |
504 |
goto T258; |
goto T260; |
505 |
T258:; |
T260:; |
506 |
princ_str("\n }else{",VV[6]); |
princ_str("\n }else{",VV[6]); |
507 |
(void)((*(LnkLI60))(Cnil,car((V82)),cadr((V82)))); |
(void)((*(LnkLI60))(Cnil,CMPcar((V83)),CMPcadr((V83)))); |
508 |
princ_char(125,VV[6]);} |
princ_char(125,VV[6]);} |
509 |
V81= cdr((V81)); |
V82= CMPcdr((V82)); |
510 |
goto T248;} |
goto T250;} |
511 |
goto T246; |
goto T248; |
512 |
T246:; |
T248:; |
513 |
if(((V78))!=Cnil){ |
if(((V79))!=Cnil){ |
514 |
goto T270;} |
goto T272;} |
515 |
princ_str("\n if(vs_base=vs_top){vs_base[0]=Cnil;vs_top=vs_base+1;}",VV[6]); |
princ_str("\n if(vs_base=vs_top){vs_base[0]=Cnil;vs_top=vs_base+1;}",VV[6]); |
516 |
{object V83 = (VFUN_NARGS=1,(*(LnkLI50))(VV[11])); |
{object V84 = (VFUN_NARGS=1,(*(LnkLI50))(VV[11])); |
517 |
VMR9(V83)} |
VMR9(V84)} |
518 |
goto T270; |
goto T272; |
519 |
T270:; |
T272:; |
520 |
if((symbol_value(VV[28]))==(VV[29])){ |
if(((VV[28]->s.s_dbind))==(VV[29])){ |
521 |
goto T274;} |
goto T276;} |
522 |
princ_str("\n ",VV[6]); |
princ_str("\n ",VV[6]); |
523 |
(void)((*(LnkLI61))()); |
(void)((*(LnkLI61))()); |
524 |
goto T274; |
goto T276; |
525 |
T274:; |
T276:; |
526 |
V84= make_cons(VV[30],car((V78))); |
V85= make_cons(VV[30],CMPcar((V79))); |
527 |
{object V85 = (VFUN_NARGS=1,(*(LnkLI50))(/* INLINE-ARGS */V84)); |
{object V86 = (VFUN_NARGS=1,(*(LnkLI50))(/* INLINE-ARGS */V85)); |
528 |
VMR9(V85)}} |
VMR9(V86)}} |
529 |
base[0]=base[0]; |
base[0]=base[0]; |
530 |
return Cnil; |
return Cnil; |
531 |
} |
} |
532 |
/* local entry for function C1MULTIPLE-VALUE-BIND */ |
/* local entry for function C1MULTIPLE-VALUE-BIND */ |
533 |
|
|
534 |
static object LI10(V87) |
static object LI10(V88) |
535 |
|
|
536 |
object V87; |
object V88; |
537 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
538 |
bds_check; |
bds_check; |
539 |
goto TTL; |
goto TTL; |
540 |
TTL:; |
TTL:; |
541 |
{object V88; |
{object V89; |
|
register object V89; |
|
542 |
register object V90; |
register object V90; |
543 |
object V91; |
register object V91; |
544 |
object V92; |
object V92; |
545 |
object V93; |
object V93; |
546 |
object V94; |
object V94; |
547 |
object V95; |
object V95; |
548 |
object V96; |
object V96; |
549 |
V88= (VFUN_NARGS=0,(*(LnkLI48))()); |
object V97; |
550 |
V89= Cnil; |
V89= (VFUN_NARGS=0,(*(LnkLI48))()); |
551 |
V90= Cnil; |
V90= Cnil; |
552 |
V91= Cnil; |
V91= Cnil; |
553 |
V92= Cnil; |
V92= Cnil; |
555 |
V94= Cnil; |
V94= Cnil; |
556 |
V95= Cnil; |
V95= Cnil; |
557 |
V96= Cnil; |
V96= Cnil; |
558 |
bds_bind(VV[31],symbol_value(VV[31])); |
V97= Cnil; |
559 |
if(endp_prop((V87))){ |
bds_bind(VV[31],(VV[31]->s.s_dbind)); |
560 |
goto T288;} |
if(((V88))==Cnil){ |
561 |
if(!(endp_prop(cdr((V87))))){ |
goto T290;} |
562 |
goto T287;} |
if(!((CMPcdr((V88)))==Cnil)){ |
563 |
goto T288; |
goto T289;} |
564 |
T288:; |
goto T290; |
565 |
V97 = make_fixnum((long)length((V87))); |
T290:; |
566 |
(void)((*(LnkLI38))(VV[32],small_fixnum(2),V97)); |
V98 = CMPmake_fixnum((long)length((V88))); |
567 |
goto T287; |
(void)((*(LnkLI38))(VV[32],small_fixnum(2),V98)); |
568 |
T287:; |
goto T289; |
569 |
base[2]= cddr((V87)); |
T289:; |
570 |
|
base[2]= CMPcddr((V88)); |
571 |
base[3]= Cnil; |
base[3]= Cnil; |
572 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
573 |
(void) (*Lnk62)(); |
(void) (*Lnk62)(); |
574 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
575 |
V95= vs_base[0]; |
V96= vs_base[0]; |
576 |
vs_base++; |
vs_base++; |
577 |
}else{ |
}else{ |
578 |
V95= Cnil;} |
V96= Cnil;} |
579 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
580 |
V92= vs_base[0]; |
V93= vs_base[0]; |
581 |
vs_base++; |
vs_base++; |
582 |
}else{ |
}else{ |
583 |
V92= Cnil;} |
V93= Cnil;} |
584 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
585 |
V94= vs_base[0]; |
V95= vs_base[0]; |
586 |
vs_base++; |
vs_base++; |
587 |
}else{ |
}else{ |
588 |
V94= Cnil;} |
V95= Cnil;} |
589 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
590 |
V93= vs_base[0]; |
V94= vs_base[0]; |
591 |
vs_base++; |
vs_base++; |
592 |
}else{ |
}else{ |
593 |
V93= Cnil;} |
V94= Cnil;} |
594 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
595 |
V96= vs_base[0]; |
V97= vs_base[0]; |
596 |
}else{ |
}else{ |
597 |
V96= Cnil;} |
V97= Cnil;} |
598 |
vs_top=sup; |
vs_top=sup; |
599 |
(void)((*(LnkLI63))((V92))); |
(void)((*(LnkLI63))((V93))); |
600 |
{register object V98; |
{register object V99; |
601 |
register object V99; |
register object V100; |
602 |
V98= car((V87)); |
V99= CMPcar((V88)); |
603 |
V99= car((V98)); |
V100= CMPcar((V99)); |
604 |
goto T301; |
goto T303; |
605 |
T301:; |
T303:; |
606 |
if(!(endp_prop((V98)))){ |
if(!(((V99))==Cnil)){ |
607 |
goto T302;} |
goto T304;} |
608 |
goto T297; |
goto T299; |
609 |
goto T302; |
goto T304; |
610 |
T302:; |
T304:; |
611 |
{object V100; |
{object V101; |
612 |
V100= (*(LnkLI64))((V99),(V92),(V93),(V94)); |
V101= (*(LnkLI64))((V100),(V93),(V94),(V95)); |
613 |
V90= make_cons(V99,(V90)); |
V91= make_cons(V100,(V91)); |
614 |
V89= make_cons(V100,(V89));} |
V90= make_cons(V101,(V90));} |
615 |
V98= cdr((V98)); |
V99= CMPcdr((V99)); |
616 |
V99= car((V98)); |
V100= CMPcar((V99)); |
617 |
goto T301;} |
goto T303;} |
618 |
goto T297; |
goto T299; |
619 |
T297:; |
T299:; |
620 |
V91= (*(LnkLI49))(cadr((V87)),(V88)); |
V92= (*(LnkLI49))(CMPcadr((V88)),(V89)); |
621 |
{register object V103; |
{register object V104; |
622 |
object V104; |
object V105; |
623 |
V103= reverse((V89)); |
V104= reverse((V90)); |
624 |
V104= car((V103)); |
V105= CMPcar((V104)); |
625 |
goto T322; |
goto T324; |
626 |
T322:; |
T324:; |
627 |
if(!(endp_prop((V103)))){ |
if(!(((V104))==Cnil)){ |
628 |
goto T323;} |
goto T325;} |
629 |
goto T318; |
goto T320; |
630 |
goto T323; |
goto T325; |
631 |
T323:; |
T325:; |
632 |
(VV[31]->s.s_dbind)= make_cons(V104,(VV[31]->s.s_dbind)); |
(VV[31]->s.s_dbind)= make_cons(V105,(VV[31]->s.s_dbind)); |
633 |
V103= cdr((V103)); |
V104= CMPcdr((V104)); |
634 |
V104= car((V103)); |
V105= CMPcar((V104)); |
635 |
goto T322;} |
goto T324;} |
636 |
goto T318; |
goto T320; |
637 |
T318:; |
T320:; |
638 |
(void)((*(LnkLI65))((V90),(V94),(V93))); |
(void)((*(LnkLI65))((V91),(V95),(V94))); |
639 |
V95= (*(LnkLI66))((V96),(V95)); |
V96= (*(LnkLI66))((V97),(V96)); |
640 |
(void)((*(LnkLI67))((V88),cadr((V95)))); |
(void)((*(LnkLI67))((V89),CMPcadr((V96)))); |
641 |
V106= structure_ref(cadr((V95)),VV[22],2); |
V107= Ct; |
642 |
(void)(structure_set((V88),VV[22],2,/* INLINE-ARGS */V106)); |
STSET(object,(V89),8, STREF(object,CMPcadr((V96)),8)); |
643 |
{register object V107; |
(void)(STREF(object,CMPcadr((V96)),8)); |
644 |
object V108; |
{register object V108; |
645 |
V107= (V89); |
object V109; |
646 |
V108= car((V107)); |
V108= (V90); |
647 |
goto T343; |
V109= CMPcar((V108)); |
648 |
T343:; |
goto T345; |
649 |
if(!(endp_prop((V107)))){ |
T345:; |
650 |
goto T344;} |
if(!(((V108))==Cnil)){ |
651 |
goto T339; |
goto T346;} |
652 |
goto T344; |
goto T341; |
653 |
T344:; |
goto T346; |
654 |
(void)((*(LnkLI68))((V108))); |
T346:; |
655 |
V107= cdr((V107)); |
(void)((*(LnkLI68))((V109))); |
656 |
V108= car((V107)); |
V108= CMPcdr((V108)); |
657 |
goto T343;} |
V109= CMPcar((V108)); |
658 |
goto T339; |
goto T345;} |
659 |
T339:; |
goto T341; |
660 |
{object V109 = list(5,VV[32],(V88),reverse((V89)),(V91),(V95)); |
T341:; |
661 |
|
{object V110 = list(5,VV[32],(V89),reverse((V90)),(V92),(V96)); |
662 |
bds_unwind1; |
bds_unwind1; |
663 |
VMR10(V109)}} |
VMR10(V110)}} |
664 |
base[0]=base[0]; |
base[0]=base[0]; |
665 |
return Cnil; |
return Cnil; |
666 |
} |
} |
667 |
/* local entry for function C2MULTIPLE-VALUE-BIND */ |
/* local entry for function C2MULTIPLE-VALUE-BIND */ |
668 |
|
|
669 |
static object LI11(V113,V114,V115) |
static object LI11(V114,V115,V116) |
670 |
|
|
671 |
object V113;object V114;object V115; |
object V114;object V115;object V116; |
672 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
673 |
bds_check; |
bds_check; |
674 |
goto TTL; |
goto TTL; |
675 |
TTL:; |
TTL:; |
676 |
{object V116; |
{object V117; |
677 |
register object V117; |
register object V118; |
678 |
object V118; |
object V119; |
|
V116= Cnil; |
|
679 |
V117= Cnil; |
V117= Cnil; |
|
bds_bind(VV[33],symbol_value(VV[33])); |
|
|
bds_bind(VV[1],symbol_value(VV[1])); |
|
|
bds_bind(VV[34],symbol_value(VV[34])); |
|
|
bds_bind(VV[35],symbol_value(VV[35])); |
|
680 |
V118= Cnil; |
V118= Cnil; |
681 |
(void)((*(LnkLI58))((V113),(V114))); |
bds_bind(VV[33],(VV[33]->s.s_dbind)); |
682 |
{register object V119; |
bds_bind(VV[1],(VV[1]->s.s_dbind)); |
683 |
register object V120; |
bds_bind(VV[34],(VV[34]->s.s_dbind)); |
684 |
V119= (V113); |
bds_bind(VV[35],(VV[35]->s.s_dbind)); |
685 |
V120= car((V119)); |
V119= Cnil; |
686 |
goto T362; |
(void)((*(LnkLI58))((V114),(V115))); |
687 |
T362:; |
{register object V120; |
688 |
if(!(endp_prop((V119)))){ |
register object V121; |
689 |
goto T363;} |
V120= (V114); |
690 |
goto T358; |
V121= CMPcar((V120)); |
691 |
goto T363; |
goto T364; |
692 |
T363:; |
T364:; |
693 |
{object V121; |
if(!(((V120))==Cnil)){ |
694 |
V121= (*(LnkLI69))((V120)); |
goto T365;} |
695 |
if(((V121))==Cnil){ |
goto T360; |
696 |
goto T370;} |
goto T365; |
697 |
|
T365:; |
698 |
{object V122; |
{object V122; |
699 |
setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1))); |
V122= (*(LnkLI69))((V121)); |
700 |
V122= symbol_value(VV[5]); |
if(((V122))==Cnil){ |
701 |
(void)(structure_set((V120),VV[30],1,(V121))); |
goto T372;} |
702 |
(void)(structure_set((V120),VV[30],4,(V122))); |
{object V123; |
703 |
|
(VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1)); |
704 |
|
V123= (VV[5]->s.s_dbind); |
705 |
|
V124= Ct; |
706 |
|
STSET(object,(V121),4, (V122)); |
707 |
|
(void)((V122)); |
708 |
|
V125= Ct; |
709 |
|
STSET(object,(V121),16, (V123)); |
710 |
|
(void)((V123)); |
711 |
princ_str("\n ",VV[6]); |
princ_str("\n ",VV[6]); |
712 |
if(((V116))!=Cnil){ |
if(((V117))!=Cnil){ |
713 |
goto T377;} |
goto T379;} |
714 |
princ_char(123,VV[6]); |
princ_char(123,VV[6]); |
715 |
V116= Ct; |
V117= Ct; |
716 |
goto T377; |
goto T379; |
717 |
T377:; |
T379:; |
718 |
base[5]= (V120); |
(void)((*(LnkLI70))((V121))); |
719 |
vs_top=(vs_base=base+5)+1; |
goto T369;} |
720 |
(void) (*Lnk70)(); |
goto T372; |
721 |
vs_top=sup; |
T372:; |
722 |
goto T367;} |
V126= (*(LnkLI54))(); |
723 |
goto T370; |
V127= Ct; |
724 |
T370:; |
STSET(object,(V121),8, /* INLINE-ARGS */V126); |
725 |
V123= (*(LnkLI54))(); |
(void)(/* INLINE-ARGS */V126);} |
726 |
(void)(structure_set((V120),VV[30],2,/* INLINE-ARGS */V123));} |
goto T369; |
727 |
goto T367; |
T369:; |
728 |
T367:; |
V120= CMPcdr((V120)); |
729 |
V119= cdr((V119)); |
V121= CMPcar((V120)); |
730 |
V120= car((V119)); |
goto T364;} |
731 |
goto T362;} |
goto T360; |
732 |
goto T358; |
T360:; |
|
T358:; |
|
733 |
bds_bind(VV[2],VV[3]); |
bds_bind(VV[2],VV[3]); |
734 |
bds_bind(VV[9],Cnil); |
bds_bind(VV[9],Cnil); |
735 |
(void)((*(LnkLI44))((V114))); |
(void)((*(LnkLI44))((V115))); |
736 |
V118= (VV[9]->s.s_dbind); |
V119= (VV[9]->s.s_dbind); |
737 |
bds_unwind1; |
bds_unwind1; |
738 |
bds_unwind1; |
bds_unwind1; |
739 |
if(symbol_value(VV[27])==Cnil){ |
if((VV[27]->s.s_dbind)==Cnil){ |
740 |
goto T392;} |
goto T393;} |
741 |
(void)((*(LnkLI59))(Cnil,car((V118)))); |
base[4]= Cnil; |
742 |
goto T392; |
base[5]= CMPcar((V119)); |
743 |
T392:; |
vs_top=(vs_base=base+4)+2; |
744 |
|
(void) (*Lnk59)(); |
745 |
|
vs_top=sup; |
746 |
|
goto T393; |
747 |
|
T393:; |
748 |
bds_bind(VV[34],(VV[34]->s.s_dbind)); |
bds_bind(VV[34],(VV[34]->s.s_dbind)); |
749 |
bds_bind(VV[33],(VV[33]->s.s_dbind)); |
bds_bind(VV[33],(VV[33]->s.s_dbind)); |
750 |
bds_bind(VV[35],(VV[35]->s.s_dbind)); |
bds_bind(VV[35],(VV[35]->s.s_dbind)); |
751 |
{register object V124; |
{register object V128; |
752 |
V124= (V113); |
V128= (V114); |
753 |
goto T395; |
goto T398; |
754 |
T395:; |
T398:; |
755 |
if(!(endp_prop((V124)))){ |
if(!(((V128))==Cnil)){ |
756 |
goto T396;} |
goto T399;} |
757 |
bds_unwind1; |
bds_unwind1; |
758 |
bds_unwind1; |
bds_unwind1; |
759 |
bds_unwind1; |
bds_unwind1; |
|
goto T393; |
|
760 |
goto T396; |
goto T396; |
761 |
T396:; |
goto T399; |
762 |
{object V125; |
T399:; |
763 |
setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1))); |
{object V129; |
764 |
V125= make_cons(symbol_value(VV[36]),Cnil); |
(VV[36]->s.s_dbind)= number_plus((VV[36]->s.s_dbind),small_fixnum(1)); |
765 |
V117= make_cons((V125),(V117));} |
V129= make_cons((VV[36]->s.s_dbind),Cnil); |
766 |
|
V118= make_cons((V129),(V118));} |
767 |
princ_str("\n if(vs_base>=vs_top){",VV[6]); |
princ_str("\n if(vs_base>=vs_top){",VV[6]); |
768 |
(void)((*(LnkLI61))()); |
(void)((*(LnkLI61))()); |
769 |
if(type_of(car((V117)))!=t_cons)FEwrong_type_argument(Scons,car((V117))); |
(CMPcar((V118)))->c.c_cdr = Ct; |
770 |
(car((V117)))->c.c_cdr = Ct; |
(void)(CMPcar((V118))); |
|
(void)(car((V117))); |
|
771 |
princ_str("goto T",VV[6]); |
princ_str("goto T",VV[6]); |
772 |
(void)((*(LnkLI46))(car(car((V117))))); |
(void)((*(LnkLI46))(CMPcar(CMPcar((V118))))); |
773 |
princ_char(59,VV[6]); |
princ_char(59,VV[6]); |
774 |
princ_char(125,VV[6]); |
princ_char(125,VV[6]); |
775 |
(void)((*(LnkLI71))(car((V124)),VV[37])); |
(void)((*(LnkLI71))(CMPcar((V128)),VV[37])); |
776 |
if(endp_prop(cdr((V124)))){ |
if((CMPcdr((V128)))==Cnil){ |
777 |
goto T415;} |
goto T418;} |
778 |
princ_str("\n vs_base++;",VV[6]); |
princ_str("\n vs_base++;",VV[6]); |
779 |
goto T415; |
goto T418; |
780 |
T415:; |
T418:; |
781 |
V124= cdr((V124)); |
V128= CMPcdr((V128)); |
782 |
goto T395;} |
goto T398;} |
783 |
goto T393; |
goto T396; |
784 |
T393:; |
T396:; |
785 |
princ_str("\n ",VV[6]); |
princ_str("\n ",VV[6]); |
786 |
(void)((*(LnkLI61))()); |
(void)((*(LnkLI61))()); |
787 |
{object V126; |
{object V130; |
788 |
setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1))); |
(VV[36]->s.s_dbind)= number_plus((VV[36]->s.s_dbind),small_fixnum(1)); |
789 |
V126= make_cons(symbol_value(VV[36]),Cnil); |
V130= make_cons((VV[36]->s.s_dbind),Cnil); |
790 |
princ_str("\n ",VV[6]); |
princ_str("\n ",VV[6]); |
791 |
if(type_of((V126))!=t_cons)FEwrong_type_argument(Scons,(V126)); |
((V130))->c.c_cdr = Ct; |
|
((V126))->c.c_cdr = Ct; |
|
792 |
princ_str("goto T",VV[6]); |
princ_str("goto T",VV[6]); |
793 |
(void)((*(LnkLI46))(car((V126)))); |
(void)((*(LnkLI46))(CMPcar((V130)))); |
794 |
princ_char(59,VV[6]); |
princ_char(59,VV[6]); |
795 |
V117= reverse((V117)); |
V118= reverse((V118)); |
796 |
{register object V127; |
{register object V131; |
797 |
object V128; |
object V132; |
798 |
V127= (V113); |
V131= (V114); |
799 |
V128= car((V127)); |
V132= CMPcar((V131)); |
800 |
goto T439; |
goto T442; |
801 |
T439:; |
T442:; |
802 |
if(!(endp_prop((V127)))){ |
if(!(((V131))==Cnil)){ |
803 |
goto T440;} |
goto T443;} |
804 |
goto T435; |
goto T438; |
805 |
goto T440; |
goto T443; |
806 |
T440:; |
T443:; |
807 |
if((cdr(car((V117))))==Cnil){ |
if((CMPcdr(CMPcar((V118))))==Cnil){ |
808 |
goto T444;} |
goto T447;} |
809 |
princ_str("\n goto T",VV[6]); |
princ_str("\n goto T",VV[6]); |
810 |
(void)((*(LnkLI46))(car(car((V117))))); |
(void)((*(LnkLI46))(CMPcar(CMPcar((V118))))); |
811 |
princ_char(59,VV[6]); |
princ_char(59,VV[6]); |
812 |
princ_str("\nT",VV[6]); |
princ_str("\nT",VV[6]); |
813 |
(void)((*(LnkLI46))(car(car((V117))))); |
(void)((*(LnkLI46))(CMPcar(CMPcar((V118))))); |
814 |
princ_str(":;",VV[6]); |
princ_str(":;",VV[6]); |
815 |
goto T444; |
goto T447; |
816 |
T444:; |
T447:; |
817 |
{object V129; |
{object V133; |
818 |
V129= car((V117)); |
V133= CMPcar((V118)); |
819 |
V117= cdr((V117));} |
V118= CMPcdr((V118));} |
820 |
(void)((*(LnkLI71))((V128),Cnil)); |
(void)((*(LnkLI71))((V132),Cnil)); |
821 |
V127= cdr((V127)); |
V131= CMPcdr((V131)); |
822 |
V128= car((V127)); |
V132= CMPcar((V131)); |
823 |
goto T439;} |
goto T442;} |
824 |
goto T435; |
goto T438; |
825 |
T435:; |
T438:; |
826 |
if((cdr((V126)))==Cnil){ |
if((CMPcdr((V130)))==Cnil){ |
827 |
goto T424;} |
goto T427;} |
828 |
princ_str("\n goto T",VV[6]); |
princ_str("\n goto T",VV[6]); |
829 |
(void)((*(LnkLI46))(car((V126)))); |
(void)((*(LnkLI46))(CMPcar((V130)))); |
830 |
princ_char(59,VV[6]); |
princ_char(59,VV[6]); |
831 |
princ_str("\nT",VV[6]); |
princ_str("\nT",VV[6]); |
832 |
(void)((*(LnkLI46))(car((V126)))); |
(void)((*(LnkLI46))(CMPcar((V130)))); |
833 |
princ_str(":;",VV[6]);} |
princ_str(":;",VV[6]);} |
834 |
goto T424; |
goto T427; |
835 |
T424:; |
T427:; |
836 |
base[4]= (V115); |
base[4]= (V116); |
837 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
838 |
(void) (*Lnk72)(); |
(void) (*Lnk72)(); |
839 |
vs_top=sup; |
vs_top=sup; |
840 |
if(((V116))==Cnil){ |
if(((V117))==Cnil){ |
841 |
goto T476;} |
goto T479;} |
842 |
princ_char(125,VV[6]); |
princ_char(125,VV[6]); |
843 |
{object V130 = Cnil; |
{object V134 = Cnil; |
844 |
bds_unwind1; |
bds_unwind1; |
845 |
bds_unwind1; |
bds_unwind1; |
846 |
bds_unwind1; |
bds_unwind1; |
847 |
bds_unwind1; |
bds_unwind1; |
848 |
VMR11(V130)} |
VMR11(V134)} |
849 |
goto T476; |
goto T479; |
850 |
T476:; |
T479:; |
851 |
{object V131 = Cnil; |
{object V135 = Cnil; |
852 |
bds_unwind1; |
bds_unwind1; |
853 |
bds_unwind1; |
bds_unwind1; |
854 |
bds_unwind1; |
bds_unwind1; |
855 |
bds_unwind1; |
bds_unwind1; |
856 |
VMR11(V131)}} |
VMR11(V135)}} |
857 |
base[0]=base[0]; |
base[0]=base[0]; |
858 |
return Cnil; |
return Cnil; |
859 |
} |
} |
860 |
static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* C2EXPR */ |
static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* C2EXPR */ |
861 |
static object LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)(void *)&LnkLI71,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */ |
static object LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)(void *)&LnkLI71,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */ |
862 |
static void LnkT70(){ call_or_link(VV[70],(void **)(void *)&Lnk70);} /* WT-VAR-DECL */ |
static object LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[70],(void **)(void *)&LnkLI70,1,first,ap);va_end(ap);return V1;} /* WT-VAR-DECL */ |
863 |
static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */ |
static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */ |
864 |
static object LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)(void *)&LnkLI68,1,first,ap);va_end(ap);return V1;} /* CHECK-VREF */ |
static object LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)(void *)&LnkLI68,1,first,ap);va_end(ap);return V1;} /* CHECK-VREF */ |
865 |
static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)(void *)&LnkLI67,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */ |
static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)(void *)&LnkLI67,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */ |
870 |
static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* C1BODY */ |
static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* C1BODY */ |
871 |
static object LnkTLI61(){return call_proc0(VV[61],(void **)(void *)&LnkLI61);} /* RESET-TOP */ |
static object LnkTLI61(){return call_proc0(VV[61],(void **)(void *)&LnkLI61);} /* RESET-TOP */ |
872 |
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;} /* SET-VAR */ |
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;} /* SET-VAR */ |
873 |
static object LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[59],(void **)(void *)&LnkLI59,2,first,ap);va_end(ap);return V1;} /* RECORD-CALL-INFO */ |
static void LnkT59(){ call_or_link(VV[59],(void **)(void *)&Lnk59);} /* RECORD-CALL-INFO */ |
874 |
static object LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[58],(void **)(void *)&LnkLI58,2,first,ap);va_end(ap);return V1;} /* MULTIPLE-VALUE-CHECK */ |
static object LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[58],(void **)(void *)&LnkLI58,2,first,ap);va_end(ap);return V1;} /* MULTIPLE-VALUE-CHECK */ |
875 |
static object LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)(void *)&LnkLI57,1,first,ap);va_end(ap);return V1;} /* C1VREF */ |
static object LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)(void *)&LnkLI57,1,first,ap);va_end(ap);return V1;} /* C1VREF */ |
876 |
static object LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[56],(void **)(void *)&LnkLI56,first,ap);va_end(ap);return V1;} /* CMPERR */ |
static object LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[56],(void **)(void *)&LnkLI56,first,ap);va_end(ap);return V1;} /* CMPERR */ |