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 T4;} |
goto T4;} |
19 |
if(!(endp_prop(cdr((V2))))){ |
if(!((CMPcdr((V2)))==Cnil)){ |
20 |
goto T3;} |
goto T3;} |
21 |
goto T4; |
goto T4; |
22 |
T4:; |
T4:; |
23 |
V5 = make_fixnum((long)length((V2))); |
V5 = CMPmake_fixnum((long)length((V2))); |
24 |
(void)((*(LnkLI43))(VV[0],small_fixnum(2),V5)); |
(void)((*(LnkLI43))(VV[0],small_fixnum(2),V5)); |
25 |
goto T3; |
goto T3; |
26 |
T3:; |
T3:; |
27 |
if(endp_prop(cddr((V2)))){ |
if((CMPcddr((V2)))==Cnil){ |
28 |
goto T8;} |
goto T8;} |
29 |
if(endp_prop(cdddr((V2)))){ |
if((CMPcdddr((V2)))==Cnil){ |
30 |
goto T8;} |
goto T8;} |
31 |
V6 = make_fixnum((long)length((V2))); |
V6 = CMPmake_fixnum((long)length((V2))); |
32 |
(void)((*(LnkLI44))(VV[0],small_fixnum(3),V6)); |
(void)((*(LnkLI44))(VV[0],small_fixnum(3),V6)); |
33 |
goto T8; |
goto T8; |
34 |
T8:; |
T8:; |
35 |
V4= (*(LnkLI45))(car((V2))); |
V4= (*(LnkLI45))(CMPcar((V2))); |
36 |
{object V7= (V4); |
{object V7= (V4); |
37 |
if((V7!= Ct))goto T15; |
if((V7!= Ct))goto T15; |
38 |
{object V8 = (*(LnkLI46))(cadr((V2))); |
{object V8 = (*(LnkLI46))(CMPcadr((V2))); |
39 |
VMR1(V8)} |
VMR1(V8)} |
40 |
goto T15; |
goto T15; |
41 |
T15:; |
T15:; |
42 |
if((V7!= Cnil))goto T16; |
if((V7!= Cnil))goto T16; |
43 |
if(!(endp_prop(cddr((V2))))){ |
if(!((CMPcddr((V2)))==Cnil)){ |
44 |
goto T18;} |
goto T18;} |
45 |
{object V9 = (*(LnkLI47))(); |
{object V9 = (*(LnkLI47))(); |
46 |
VMR1(V9)} |
VMR1(V9)} |
47 |
goto T18; |
goto T18; |
48 |
T18:; |
T18:; |
49 |
{object V10 = (*(LnkLI46))(caddr((V2))); |
{object V10 = (*(LnkLI46))(CMPcaddr((V2))); |
50 |
VMR1(V10)} |
VMR1(V10)} |
51 |
goto T16; |
goto T16; |
52 |
T16:; |
T16:; |
53 |
V3= (VFUN_NARGS=0,(*(LnkLI48))()); |
V3= (VFUN_NARGS=0,(*(LnkLI48))()); |
54 |
V11= (*(LnkLI49))((V4),(V3)); |
V11= (*(LnkLI49))((V4),(V3)); |
55 |
V12= (*(LnkLI50))(cadr((V2)),(V3)); |
V12= (*(LnkLI50))(CMPcadr((V2)),(V3)); |
56 |
if(!(endp_prop(cddr((V2))))){ |
if(!((CMPcddr((V2)))==Cnil)){ |
57 |
goto T24;} |
goto T24;} |
58 |
V13= (*(LnkLI47))(); |
V13= (*(LnkLI47))(); |
59 |
goto T22; |
goto T22; |
60 |
goto T24; |
goto T24; |
61 |
T24:; |
T24:; |
62 |
V13= (*(LnkLI50))(caddr((V2)),(V3)); |
V13= (*(LnkLI50))(CMPcaddr((V2)),(V3)); |
63 |
goto T22; |
goto T22; |
64 |
T22:; |
T22:; |
65 |
{object V14 = list(5,VV[0],(V3),/* INLINE-ARGS */V11,/* INLINE-ARGS */V12,V13); |
{object V14 = list(5,VV[0],(V3),/* INLINE-ARGS */V11,/* INLINE-ARGS */V12,V13); |
78 |
V17= Cnil; |
V17= Cnil; |
79 |
if(!(type_of((V16))==t_cons)){ |
if(!(type_of((V16))==t_cons)){ |
80 |
goto T28;} |
goto T28;} |
81 |
{object V18= car((V16)); |
{object V18= CMPcar((V16)); |
82 |
if((V18!= VV[1]))goto T30; |
if((V18!= VV[1]))goto T30; |
83 |
{register object V19; |
{register object V19; |
84 |
V19= cdr((V16)); |
V19= CMPcdr((V16)); |
85 |
goto T33; |
goto T33; |
86 |
T33:; |
T33:; |
87 |
if(!(endp_prop((V19)))){ |
if(!(((V19))==Cnil)){ |
88 |
goto T34;} |
goto T34;} |
89 |
{object V20 = Ct; |
{object V20 = Ct; |
90 |
VMR2(V20)} |
VMR2(V20)} |
91 |
goto T34; |
goto T34; |
92 |
T34:; |
T34:; |
93 |
V17= (*(LnkLI45))(car((V19))); |
V17= (*(LnkLI45))(CMPcar((V19))); |
94 |
{object V21= (V17); |
{object V21= (V17); |
95 |
if((V21!= Ct))goto T41; |
if((V21!= Ct))goto T41; |
96 |
goto T40; |
goto T40; |
101 |
VMR2(V22)} |
VMR2(V22)} |
102 |
goto T42; |
goto T42; |
103 |
T42:; |
T42:; |
104 |
if(!(endp_prop(cdr((V19))))){ |
if(!((CMPcdr((V19)))==Cnil)){ |
105 |
goto T44;} |
goto T44;} |
106 |
{object V23 = (V17); |
{object V23 = (V17); |
107 |
VMR2(V23)} |
VMR2(V23)} |
108 |
goto T44; |
goto T44; |
109 |
T44:; |
T44:; |
110 |
{object V24 = listA(3,VV[1],(V17),cdr((V19))); |
{object V24 = listA(3,VV[1],(V17),CMPcdr((V19))); |
111 |
VMR2(V24)}} |
VMR2(V24)}} |
112 |
goto T40; |
goto T40; |
113 |
T40:; |
T40:; |
114 |
V19= cdr((V19)); |
V19= CMPcdr((V19)); |
115 |
goto T33;} |
goto T33;} |
116 |
goto T30; |
goto T30; |
117 |
T30:; |
T30:; |
118 |
if((V18!= VV[2]))goto T49; |
if((V18!= VV[2]))goto T49; |
119 |
{register object V25; |
{register object V25; |
120 |
V25= cdr((V16)); |
V25= CMPcdr((V16)); |
121 |
goto T52; |
goto T52; |
122 |
T52:; |
T52:; |
123 |
if(!(endp_prop((V25)))){ |
if(!(((V25))==Cnil)){ |
124 |
goto T53;} |
goto T53;} |
125 |
{object V26 = Cnil; |
{object V26 = Cnil; |
126 |
VMR2(V26)} |
VMR2(V26)} |
127 |
goto T53; |
goto T53; |
128 |
T53:; |
T53:; |
129 |
V17= (*(LnkLI45))(car((V25))); |
V17= (*(LnkLI45))(CMPcar((V25))); |
130 |
{object V27= (V17); |
{object V27= (V17); |
131 |
if((V27!= Ct))goto T60; |
if((V27!= Ct))goto T60; |
132 |
{object V28 = Ct; |
{object V28 = Ct; |
137 |
goto T59; |
goto T59; |
138 |
goto T61; |
goto T61; |
139 |
T61:; |
T61:; |
140 |
if(!(endp_prop(cdr((V25))))){ |
if(!((CMPcdr((V25)))==Cnil)){ |
141 |
goto T63;} |
goto T63;} |
142 |
{object V29 = (V17); |
{object V29 = (V17); |
143 |
VMR2(V29)} |
VMR2(V29)} |
144 |
goto T63; |
goto T63; |
145 |
T63:; |
T63:; |
146 |
{object V30 = listA(3,VV[2],(V17),cdr((V25))); |
{object V30 = listA(3,VV[2],(V17),CMPcdr((V25))); |
147 |
VMR2(V30)}} |
VMR2(V30)}} |
148 |
goto T59; |
goto T59; |
149 |
T59:; |
T59:; |
150 |
V25= cdr((V25)); |
V25= CMPcdr((V25)); |
151 |
goto T52;} |
goto T52;} |
152 |
goto T49; |
goto T49; |
153 |
T49:; |
T49:; |
154 |
if((V18!= VV[3]) |
if((V18!= VV[3]) |
155 |
&& (V18!= VV[51]))goto T68; |
&& (V18!= VV[51]))goto T68; |
156 |
if(!(endp_prop(cdr((V16))))){ |
if(!((CMPcdr((V16)))==Cnil)){ |
157 |
goto T69;} |
goto T69;} |
158 |
(void)((*(LnkLI43))(VV[3],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI43))(VV[3],small_fixnum(1),small_fixnum(0))); |
159 |
goto T69; |
goto T69; |
160 |
T69:; |
T69:; |
161 |
if(endp_prop(cddr((V16)))){ |
if((CMPcddr((V16)))==Cnil){ |
162 |
goto T72;} |
goto T72;} |
163 |
V31 = make_fixnum((long)length(cdr((V16)))); |
V31 = CMPmake_fixnum((long)length(CMPcdr((V16)))); |
164 |
(void)((*(LnkLI44))(VV[3],small_fixnum(1),V31)); |
(void)((*(LnkLI44))(VV[3],small_fixnum(1),V31)); |
165 |
goto T72; |
goto T72; |
166 |
T72:; |
T72:; |
167 |
V17= (*(LnkLI45))(cadr((V16))); |
V17= (*(LnkLI45))(CMPcadr((V16))); |
168 |
{object V32= (V17); |
{object V32= (V17); |
169 |
if((V32!= Ct))goto T77; |
if((V32!= Ct))goto T77; |
170 |
{object V33 = Cnil; |
{object V33 = Cnil; |
225 |
TTL:; |
TTL:; |
226 |
if(!(type_of((V43))==t_cons)){ |
if(!(type_of((V43))==t_cons)){ |
227 |
goto T91;} |
goto T91;} |
228 |
{object V45= car((V43)); |
{object V45= CMPcar((V43)); |
229 |
if((V45!= VV[1]))goto T93;switch((long)length(cdr((V43)))){ |
if((V45!= VV[1]))goto T93;switch((long)length(CMPcdr((V43)))){ |
230 |
case 0: |
case 0: |
231 |
goto T95; |
goto T95; |
232 |
T95:; |
T95:; |
235 |
case 1: |
case 1: |
236 |
goto T96; |
goto T96; |
237 |
T96:; |
T96:; |
238 |
V43= cadr((V43)); |
V43= CMPcadr((V43)); |
239 |
goto TTL; |
goto TTL; |
240 |
default: |
default: |
241 |
goto T97; |
goto T97; |
242 |
T97:; |
T97:; |
243 |
{object V48; |
{object V48; |
244 |
object V49= cdr((V43)); |
object V49= CMPcdr((V43)); |
245 |
if(endp(V49)){ |
if(V49==Cnil){ |
246 |
V47= Cnil; |
V47= Cnil; |
247 |
goto T102;} |
goto T102;} |
248 |
base[0]=V48=MMcons(Cnil,Cnil); |
base[0]=V48=MMcons(Cnil,Cnil); |
251 |
{register object V50; |
{register object V50; |
252 |
V50= (V49->c.c_car); |
V50= (V49->c.c_car); |
253 |
(V48->c.c_car)= (*(LnkLI49))((V50),(V44));} |
(V48->c.c_car)= (*(LnkLI49))((V50),(V44));} |
254 |
V49=MMcdr(V49); |
if((V49=MMcdr(V49))==Cnil){ |
|
if(endp(V49)){ |
|
255 |
V47= base[0]; |
V47= base[0]; |
256 |
goto T102;} |
goto T102;} |
257 |
V48=MMcdr(V48)=MMcons(Cnil,Cnil); |
V48=MMcdr(V48)=MMcons(Cnil,Cnil); |
266 |
VMR3(V53)} |
VMR3(V53)} |
267 |
goto T93; |
goto T93; |
268 |
T93:; |
T93:; |
269 |
if((V45!= VV[2]))goto T105;switch((long)length(cdr((V43)))){ |
if((V45!= VV[2]))goto T105;switch((long)length(CMPcdr((V43)))){ |
270 |
case 0: |
case 0: |
271 |
goto T107; |
goto T107; |
272 |
T107:; |
T107:; |
275 |
case 1: |
case 1: |
276 |
goto T108; |
goto T108; |
277 |
T108:; |
T108:; |
278 |
V43= cadr((V43)); |
V43= CMPcadr((V43)); |
279 |
goto TTL; |
goto TTL; |
280 |
default: |
default: |
281 |
goto T109; |
goto T109; |
282 |
T109:; |
T109:; |
283 |
{object V56; |
{object V56; |
284 |
object V57= cdr((V43)); |
object V57= CMPcdr((V43)); |
285 |
if(endp(V57)){ |
if(V57==Cnil){ |
286 |
V55= Cnil; |
V55= Cnil; |
287 |
goto T114;} |
goto T114;} |
288 |
base[0]=V56=MMcons(Cnil,Cnil); |
base[0]=V56=MMcons(Cnil,Cnil); |
291 |
{register object V58; |
{register object V58; |
292 |
V58= (V57->c.c_car); |
V58= (V57->c.c_car); |
293 |
(V56->c.c_car)= (*(LnkLI49))((V58),(V44));} |
(V56->c.c_car)= (*(LnkLI49))((V58),(V44));} |
294 |
V57=MMcdr(V57); |
if((V57=MMcdr(V57))==Cnil){ |
|
if(endp(V57)){ |
|
295 |
V55= base[0]; |
V55= base[0]; |
296 |
goto T114;} |
goto T114;} |
297 |
V56=MMcdr(V56)=MMcons(Cnil,Cnil); |
V56=MMcdr(V56)=MMcons(Cnil,Cnil); |
308 |
T105:; |
T105:; |
309 |
if((V45!= VV[3]) |
if((V45!= VV[3]) |
310 |
&& (V45!= VV[51]))goto T117; |
&& (V45!= VV[51]))goto T117; |
311 |
if(!(endp_prop(cdr((V43))))){ |
if(!((CMPcdr((V43)))==Cnil)){ |
312 |
goto T118;} |
goto T118;} |
313 |
(void)((*(LnkLI43))(VV[3],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI43))(VV[3],small_fixnum(1),small_fixnum(0))); |
314 |
goto T118; |
goto T118; |
315 |
T118:; |
T118:; |
316 |
if(endp_prop(cddr((V43)))){ |
if((CMPcddr((V43)))==Cnil){ |
317 |
goto T121;} |
goto T121;} |
318 |
V62 = make_fixnum((long)length(cdr((V43)))); |
V62 = CMPmake_fixnum((long)length(CMPcdr((V43)))); |
319 |
(void)((*(LnkLI44))(VV[3],small_fixnum(1),V62)); |
(void)((*(LnkLI44))(VV[3],small_fixnum(1),V62)); |
320 |
goto T121; |
goto T121; |
321 |
T121:; |
T121:; |
322 |
{object V63 = list(2,VV[6],(*(LnkLI49))(cadr((V43)),(V44))); |
{object V63 = list(2,VV[6],(*(LnkLI49))(CMPcadr((V43)),(V44))); |
323 |
VMR3(V63)} |
VMR3(V63)} |
324 |
goto T117; |
goto T117; |
325 |
T117:; |
T117:; |
338 |
static void L4() |
static void L4() |
339 |
{register object *base=vs_base; |
{register object *base=vs_base; |
340 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
341 |
vs_reserve(VM4); |
vs_check; |
342 |
bds_check; |
bds_check; |
343 |
{object V67; |
{object V67; |
344 |
object V68; |
object V68; |
345 |
object V69; |
object V69; |
|
check_arg(3); |
|
346 |
V67=(base[0]); |
V67=(base[0]); |
347 |
V68=(base[1]); |
V68=(base[1]); |
348 |
V69=(base[2]); |
V69=(base[2]); |
351 |
TTL:; |
TTL:; |
352 |
{register object V70; |
{register object V70; |
353 |
register object V71; |
register object V71; |
354 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
(VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1)); |
355 |
V70= make_cons(symbol_value(VV[9]),Cnil); |
V70= make_cons((VV[9]->s.s_dbind),Cnil); |
356 |
V71= Cnil; |
V71= Cnil; |
357 |
if(!((car((V69)))==(VV[10]))){ |
if(!((CMPcar((V69)))==(VV[10]))){ |
358 |
goto T128;} |
goto T128;} |
359 |
if((caddr((V69)))!=Cnil){ |
if((CMPcaddr((V69)))!=Cnil){ |
360 |
goto T128;} |
goto T128;} |
361 |
if(!((symbol_value(VV[11]))==(VV[12]))){ |
if(!(((VV[11]->s.s_dbind))==(VV[12]))){ |
362 |
goto T128;} |
goto T128;} |
363 |
if((symbol_value(VV[13]))==(VV[14])){ |
if(((VV[13]->s.s_dbind))==(VV[14])){ |
364 |
goto T128;} |
goto T128;} |
365 |
{object V72; |
{object V72; |
366 |
V72= symbol_value(VV[13]); |
V72= (VV[13]->s.s_dbind); |
367 |
base[4]= make_cons((V70),symbol_value(VV[15])); |
base[4]= make_cons((V70),(VV[15]->s.s_dbind)); |
368 |
bds_bind(VV[15],base[4]); |
bds_bind(VV[15],base[4]); |
369 |
bds_bind(VV[13],(V70)); |
bds_bind(VV[13],(V70)); |
370 |
V73= (*(LnkLI53))((V67),(V70),(V72)); |
V73= (*(LnkLI53))((V67),(V70),(V72)); |
371 |
bds_unwind1; |
bds_unwind1; |
372 |
bds_unwind1;} |
bds_unwind1;} |
373 |
if((cdr((V70)))==Cnil){ |
if((CMPcdr((V70)))==Cnil){ |
374 |
goto T139;} |
goto T139;} |
375 |
princ_str("\n goto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
376 |
(void)((*(LnkLI54))(car((V70)))); |
(void)((*(LnkLI54))(CMPcar((V70)))); |
377 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
378 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
379 |
(void)((*(LnkLI54))(car((V70)))); |
(void)((*(LnkLI54))(CMPcar((V70)))); |
380 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
381 |
goto T139; |
goto T139; |
382 |
T139:; |
T139:; |
386 |
return; |
return; |
387 |
goto T128; |
goto T128; |
388 |
T128:; |
T128:; |
389 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
(VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1)); |
390 |
V71= make_cons(symbol_value(VV[9]),Cnil); |
V71= make_cons((VV[9]->s.s_dbind),Cnil); |
391 |
base[4]= listA(3,(V71),(V70),symbol_value(VV[15])); |
base[4]= listA(3,(V71),(V70),(VV[15]->s.s_dbind)); |
392 |
bds_bind(VV[15],base[4]); |
bds_bind(VV[15],base[4]); |
393 |
bds_bind(VV[13],(V70)); |
bds_bind(VV[13],(V70)); |
394 |
V74= (*(LnkLI53))((V67),(V70),(V71)); |
V74= (*(LnkLI53))((V67),(V70),(V71)); |
395 |
bds_unwind1; |
bds_unwind1; |
396 |
bds_unwind1; |
bds_unwind1; |
397 |
if((cdr((V70)))==Cnil){ |
if((CMPcdr((V70)))==Cnil){ |
398 |
goto T155;} |
goto T155;} |
399 |
princ_str("\n goto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
400 |
(void)((*(LnkLI54))(car((V70)))); |
(void)((*(LnkLI54))(CMPcar((V70)))); |
401 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
402 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
403 |
(void)((*(LnkLI54))(car((V70)))); |
(void)((*(LnkLI54))(CMPcar((V70)))); |
404 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
405 |
goto T155; |
goto T155; |
406 |
T155:; |
T155:; |
407 |
base[4]= make_cons(VV[17],symbol_value(VV[15])); |
base[4]= make_cons(VV[17],(VV[15]->s.s_dbind)); |
408 |
bds_bind(VV[15],base[4]); |
bds_bind(VV[15],base[4]); |
409 |
base[5]= (V68); |
base[5]= (V68); |
410 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
411 |
(void) (*Lnk55)(); |
(void) (*Lnk55)(); |
412 |
vs_top=sup; |
vs_top=sup; |
413 |
bds_unwind1; |
bds_unwind1; |
414 |
if((cdr((V71)))==Cnil){ |
if((CMPcdr((V71)))==Cnil){ |
415 |
goto T168;} |
goto T168;} |
416 |
princ_str("\n goto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
417 |
(void)((*(LnkLI54))(car((V71)))); |
(void)((*(LnkLI54))(CMPcar((V71)))); |
418 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
419 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
420 |
(void)((*(LnkLI54))(car((V71)))); |
(void)((*(LnkLI54))(CMPcar((V71)))); |
421 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
422 |
goto T168; |
goto T168; |
423 |
T168:; |
T168:; |
436 |
bds_check; |
bds_check; |
437 |
goto TTL; |
goto TTL; |
438 |
TTL:; |
TTL:; |
439 |
{object V81= car((V78)); |
{object V81= CMPcar((V78)); |
440 |
if((V81!= VV[4]))goto T179; |
if((V81!= VV[4]))goto T179; |
441 |
{register object V82; |
{register object V82; |
442 |
V82= cdr((V78)); |
V82= CMPcdr((V78)); |
443 |
goto T182; |
goto T182; |
444 |
T182:; |
T182:; |
445 |
if(!(endp_prop(cdr((V82))))){ |
if(!((CMPcdr((V82)))==Cnil)){ |
446 |
goto T183;} |
goto T183;} |
447 |
V78= car((V82)); |
V78= CMPcar((V82)); |
448 |
goto TTL; |
goto TTL; |
449 |
goto T183; |
goto T183; |
450 |
T183:; |
T183:; |
451 |
{register object V83; |
{register object V83; |
452 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
(VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1)); |
453 |
V83= make_cons(symbol_value(VV[9]),Cnil); |
V83= make_cons((VV[9]->s.s_dbind),Cnil); |
454 |
bds_bind(VV[15],make_cons((V83),symbol_value(VV[15]))); |
bds_bind(VV[15],make_cons((V83),(VV[15]->s.s_dbind))); |
455 |
(void)((*(LnkLI53))(car((V82)),(V83),(V80))); |
(void)((*(LnkLI53))(CMPcar((V82)),(V83),(V80))); |
456 |
if((cdr((V83)))==Cnil){ |
if((CMPcdr((V83)))==Cnil){ |
457 |
bds_unwind1; |
bds_unwind1; |
458 |
goto T191;} |
goto T191;} |
459 |
princ_str("\n goto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
460 |
(void)((*(LnkLI54))(car((V83)))); |
(void)((*(LnkLI54))(CMPcar((V83)))); |
461 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
462 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
463 |
(void)((*(LnkLI54))(car((V83)))); |
(void)((*(LnkLI54))(CMPcar((V83)))); |
464 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
465 |
bds_unwind1;} |
bds_unwind1;} |
466 |
goto T191; |
goto T191; |
467 |
T191:; |
T191:; |
468 |
V82= cdr((V82)); |
V82= CMPcdr((V82)); |
469 |
goto T182;} |
goto T182;} |
470 |
goto T179; |
goto T179; |
471 |
T179:; |
T179:; |
472 |
if((V81!= VV[5]))goto T208; |
if((V81!= VV[5]))goto T208; |
473 |
{register object V84; |
{register object V84; |
474 |
V84= cdr((V78)); |
V84= CMPcdr((V78)); |
475 |
goto T211; |
goto T211; |
476 |
T211:; |
T211:; |
477 |
if(!(endp_prop(cdr((V84))))){ |
if(!((CMPcdr((V84)))==Cnil)){ |
478 |
goto T212;} |
goto T212;} |
479 |
V78= car((V84)); |
V78= CMPcar((V84)); |
480 |
goto TTL; |
goto TTL; |
481 |
goto T212; |
goto T212; |
482 |
T212:; |
T212:; |
483 |
{register object V85; |
{register object V85; |
484 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
(VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1)); |
485 |
V85= make_cons(symbol_value(VV[9]),Cnil); |
V85= make_cons((VV[9]->s.s_dbind),Cnil); |
486 |
bds_bind(VV[15],make_cons((V85),symbol_value(VV[15]))); |
bds_bind(VV[15],make_cons((V85),(VV[15]->s.s_dbind))); |
487 |
(void)((*(LnkLI56))(car((V84)),(V79),(V85))); |
(void)((*(LnkLI56))(CMPcar((V84)),(V79),(V85))); |
488 |
if((cdr((V85)))==Cnil){ |
if((CMPcdr((V85)))==Cnil){ |
489 |
bds_unwind1; |
bds_unwind1; |
490 |
goto T220;} |
goto T220;} |
491 |
princ_str("\n goto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
492 |
(void)((*(LnkLI54))(car((V85)))); |
(void)((*(LnkLI54))(CMPcar((V85)))); |
493 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
494 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
495 |
(void)((*(LnkLI54))(car((V85)))); |
(void)((*(LnkLI54))(CMPcar((V85)))); |
496 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
497 |
bds_unwind1;} |
bds_unwind1;} |
498 |
goto T220; |
goto T220; |
499 |
T220:; |
T220:; |
500 |
V84= cdr((V84)); |
V84= CMPcdr((V84)); |
501 |
goto T211;} |
goto T211;} |
502 |
goto T208; |
goto T208; |
503 |
T208:; |
T208:; |
504 |
if((V81!= VV[6]))goto T237; |
if((V81!= VV[6]))goto T237; |
505 |
{object V86 = (*(LnkLI53))(cadr((V78)),(V80),(V79)); |
{object V86 = (*(LnkLI53))(CMPcadr((V78)),(V80),(V79)); |
506 |
VMR5(V86)} |
VMR5(V86)} |
507 |
goto T237; |
goto T237; |
508 |
T237:; |
T237:; |
509 |
if((V81!= VV[10]))goto T238; |
if((V81!= VV[10]))goto T238; |
510 |
{object V87= caddr((V78)); |
{object V87= CMPcaddr((V78)); |
511 |
if((V87!= Ct))goto T239; |
if((V87!= Ct))goto T239; |
512 |
(void)((*(LnkLI57))((V79))); |
(void)((*(LnkLI57))((V79))); |
513 |
princ_str("\n ",VV[16]); |
princ_str("\n ",VV[16]); |
|
if(type_of((V79))!=t_cons)FEwrong_type_argument(Scons,(V79)); |
|
514 |
((V79))->c.c_cdr = Ct; |
((V79))->c.c_cdr = Ct; |
515 |
princ_str("goto T",VV[16]); |
princ_str("goto T",VV[16]); |
516 |
(void)((*(LnkLI54))(car((V79)))); |
(void)((*(LnkLI54))(CMPcar((V79)))); |
517 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
518 |
{object V88 = Cnil; |
{object V88 = Cnil; |
519 |
VMR5(V88)} |
VMR5(V88)} |
548 |
bds_check; |
bds_check; |
549 |
goto TTL; |
goto TTL; |
550 |
TTL:; |
TTL:; |
551 |
{object V98= car((V95)); |
{object V98= CMPcar((V95)); |
552 |
if((V98!= VV[4]))goto T249; |
if((V98!= VV[4]))goto T249; |
553 |
{register object V99; |
{register object V99; |
554 |
V99= cdr((V95)); |
V99= CMPcdr((V95)); |
555 |
goto T252; |
goto T252; |
556 |
T252:; |
T252:; |
557 |
if(!(endp_prop(cdr((V99))))){ |
if(!((CMPcdr((V99)))==Cnil)){ |
558 |
goto T253;} |
goto T253;} |
559 |
V95= car((V99)); |
V95= CMPcar((V99)); |
560 |
goto TTL; |
goto TTL; |
561 |
goto T253; |
goto T253; |
562 |
T253:; |
T253:; |
563 |
{register object V100; |
{register object V100; |
564 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
(VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1)); |
565 |
V100= make_cons(symbol_value(VV[9]),Cnil); |
V100= make_cons((VV[9]->s.s_dbind),Cnil); |
566 |
bds_bind(VV[15],make_cons((V100),symbol_value(VV[15]))); |
bds_bind(VV[15],make_cons((V100),(VV[15]->s.s_dbind))); |
567 |
(void)((*(LnkLI53))(car((V99)),(V100),(V97))); |
(void)((*(LnkLI53))(CMPcar((V99)),(V100),(V97))); |
568 |
if((cdr((V100)))==Cnil){ |
if((CMPcdr((V100)))==Cnil){ |
569 |
bds_unwind1; |
bds_unwind1; |
570 |
goto T261;} |
goto T261;} |
571 |
princ_str("\n goto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
572 |
(void)((*(LnkLI54))(car((V100)))); |
(void)((*(LnkLI54))(CMPcar((V100)))); |
573 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
574 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
575 |
(void)((*(LnkLI54))(car((V100)))); |
(void)((*(LnkLI54))(CMPcar((V100)))); |
576 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
577 |
bds_unwind1;} |
bds_unwind1;} |
578 |
goto T261; |
goto T261; |
579 |
T261:; |
T261:; |
580 |
V99= cdr((V99)); |
V99= CMPcdr((V99)); |
581 |
goto T252;} |
goto T252;} |
582 |
goto T249; |
goto T249; |
583 |
T249:; |
T249:; |
584 |
if((V98!= VV[5]))goto T278; |
if((V98!= VV[5]))goto T278; |
585 |
{register object V101; |
{register object V101; |
586 |
V101= cdr((V95)); |
V101= CMPcdr((V95)); |
587 |
goto T281; |
goto T281; |
588 |
T281:; |
T281:; |
589 |
if(!(endp_prop(cdr((V101))))){ |
if(!((CMPcdr((V101)))==Cnil)){ |
590 |
goto T282;} |
goto T282;} |
591 |
V95= car((V101)); |
V95= CMPcar((V101)); |
592 |
goto TTL; |
goto TTL; |
593 |
goto T282; |
goto T282; |
594 |
T282:; |
T282:; |
595 |
{register object V102; |
{register object V102; |
596 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
(VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1)); |
597 |
V102= make_cons(symbol_value(VV[9]),Cnil); |
V102= make_cons((VV[9]->s.s_dbind),Cnil); |
598 |
bds_bind(VV[15],make_cons((V102),symbol_value(VV[15]))); |
bds_bind(VV[15],make_cons((V102),(VV[15]->s.s_dbind))); |
599 |
(void)((*(LnkLI56))(car((V101)),(V96),(V102))); |
(void)((*(LnkLI56))(CMPcar((V101)),(V96),(V102))); |
600 |
if((cdr((V102)))==Cnil){ |
if((CMPcdr((V102)))==Cnil){ |
601 |
bds_unwind1; |
bds_unwind1; |
602 |
goto T290;} |
goto T290;} |
603 |
princ_str("\n goto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
604 |
(void)((*(LnkLI54))(car((V102)))); |
(void)((*(LnkLI54))(CMPcar((V102)))); |
605 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
606 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
607 |
(void)((*(LnkLI54))(car((V102)))); |
(void)((*(LnkLI54))(CMPcar((V102)))); |
608 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
609 |
bds_unwind1;} |
bds_unwind1;} |
610 |
goto T290; |
goto T290; |
611 |
T290:; |
T290:; |
612 |
V101= cdr((V101)); |
V101= CMPcdr((V101)); |
613 |
goto T281;} |
goto T281;} |
614 |
goto T278; |
goto T278; |
615 |
T278:; |
T278:; |
616 |
if((V98!= VV[6]))goto T307; |
if((V98!= VV[6]))goto T307; |
617 |
{object V103 = (*(LnkLI56))(cadr((V95)),(V97),(V96)); |
{object V103 = (*(LnkLI56))(CMPcadr((V95)),(V97),(V96)); |
618 |
VMR6(V103)} |
VMR6(V103)} |
619 |
goto T307; |
goto T307; |
620 |
T307:; |
T307:; |
621 |
if((V98!= VV[10]))goto T308; |
if((V98!= VV[10]))goto T308; |
622 |
{object V104= caddr((V95)); |
{object V104= CMPcaddr((V95)); |
623 |
if((V104!= Ct))goto T309; |
if((V104!= Ct))goto T309; |
624 |
{object V105 = Cnil; |
{object V105 = Cnil; |
625 |
VMR6(V105)} |
VMR6(V105)} |
628 |
if((V104!= Cnil))goto T310; |
if((V104!= Cnil))goto T310; |
629 |
(void)((*(LnkLI57))((V97))); |
(void)((*(LnkLI57))((V97))); |
630 |
princ_str("\n ",VV[16]); |
princ_str("\n ",VV[16]); |
|
if(type_of((V97))!=t_cons)FEwrong_type_argument(Scons,(V97)); |
|
631 |
((V97))->c.c_cdr = Ct; |
((V97))->c.c_cdr = Ct; |
632 |
princ_str("goto T",VV[16]); |
princ_str("goto T",VV[16]); |
633 |
(void)((*(LnkLI54))(car((V97)))); |
(void)((*(LnkLI54))(CMPcar((V97)))); |
634 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
635 |
{object V106 = Cnil; |
{object V106 = Cnil; |
636 |
VMR6(V106)} |
VMR6(V106)} |
659 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
660 |
goto TTL; |
goto TTL; |
661 |
TTL:; |
TTL:; |
662 |
if(!(endp_prop((V110)))){ |
if(!(((V110))==Cnil)){ |
663 |
goto T320;} |
goto T320;} |
664 |
{object V111 = (*(LnkLI52))(); |
{object V111 = (*(LnkLI52))(); |
665 |
VMR7(V111)} |
VMR7(V111)} |
666 |
goto T320; |
goto T320; |
667 |
T320:; |
T320:; |
668 |
if(!(endp_prop(cdr((V110))))){ |
if(!((CMPcdr((V110)))==Cnil)){ |
669 |
goto T323;} |
goto T323;} |
670 |
{object V112 = (*(LnkLI46))(car((V110))); |
{object V112 = (*(LnkLI46))(CMPcar((V110))); |
671 |
VMR7(V112)} |
VMR7(V112)} |
672 |
goto T323; |
goto T323; |
673 |
T323:; |
T323:; |
682 |
static void L8() |
static void L8() |
683 |
{register object *base=vs_base; |
{register object *base=vs_base; |
684 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
685 |
vs_reserve(VM8); |
vs_check; |
686 |
bds_check; |
bds_check; |
687 |
{object V115; |
{object V115; |
|
check_arg(1); |
|
688 |
V115=(base[0]); |
V115=(base[0]); |
689 |
vs_top=sup; |
vs_top=sup; |
690 |
goto TTL; |
goto TTL; |
693 |
V116= (V115); |
V116= (V115); |
694 |
goto T327; |
goto T327; |
695 |
T327:; |
T327:; |
696 |
if(!(endp_prop(cdr((V116))))){ |
if(!((CMPcdr((V116)))==Cnil)){ |
697 |
goto T328;} |
goto T328;} |
698 |
base[1]= car((V116)); |
base[1]= CMPcar((V116)); |
699 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
700 |
(void) (*Lnk55)(); |
(void) (*Lnk55)(); |
701 |
return; |
return; |
702 |
goto T328; |
goto T328; |
703 |
T328:; |
T328:; |
704 |
if(!((caar((V116)))==(VV[10]))){ |
if(!((CMPcaar((V116)))==(VV[10]))){ |
705 |
goto T335;} |
goto T335;} |
706 |
{object V117= caddar((V116)); |
{object V117= CMPcaddar((V116)); |
707 |
if((V117!= Ct))goto T337; |
if((V117!= Ct))goto T337; |
708 |
goto T333; |
goto T333; |
709 |
goto T337; |
goto T337; |
714 |
goto T338; |
goto T338; |
715 |
T338:; |
T338:; |
716 |
princ_str("\n if(",VV[16]); |
princ_str("\n if(",VV[16]); |
717 |
(void)((*(LnkLI54))(caddar((V116)))); |
(void)((*(LnkLI54))(CMPcaddar((V116)))); |
718 |
princ_str("==Cnil){",VV[16]); |
princ_str("==Cnil){",VV[16]); |
719 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
720 |
princ_char(125,VV[16]); |
princ_char(125,VV[16]); |
721 |
goto T333;} |
goto T333;} |
722 |
goto T335; |
goto T335; |
723 |
T335:; |
T335:; |
724 |
if(!((caar((V116)))==(VV[20]))){ |
if(!((CMPcaar((V116)))==(VV[20]))){ |
725 |
goto T346;} |
goto T346;} |
726 |
princ_str("\n if(",VV[16]); |
princ_str("\n if(",VV[16]); |
727 |
(void)((*(LnkLI61))(car(caddar((V116))),cadr(caddar((V116))))); |
(void)((*(LnkLI61))(CMPcar(CMPcaddar((V116))),CMPcadr(CMPcaddar((V116))))); |
728 |
princ_str("==Cnil){",VV[16]); |
princ_str("==Cnil){",VV[16]); |
729 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
730 |
princ_char(125,VV[16]); |
princ_char(125,VV[16]); |
732 |
goto T346; |
goto T346; |
733 |
T346:; |
T346:; |
734 |
{register object V118; |
{register object V118; |
735 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
(VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1)); |
736 |
V118= make_cons(symbol_value(VV[9]),Cnil); |
V118= make_cons((VV[9]->s.s_dbind),Cnil); |
737 |
bds_bind(VV[15],make_cons((V118),symbol_value(VV[15]))); |
bds_bind(VV[15],make_cons((V118),(VV[15]->s.s_dbind))); |
738 |
base[3]= list(2,VV[18],(V118)); |
base[3]= list(2,VV[18],(V118)); |
739 |
bds_bind(VV[11],base[3]); |
bds_bind(VV[11],base[3]); |
740 |
V119= (*(LnkLI58))(car((V116))); |
V119= (*(LnkLI58))(CMPcar((V116))); |
741 |
bds_unwind1; |
bds_unwind1; |
742 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
743 |
if((cdr((V118)))==Cnil){ |
if((CMPcdr((V118)))==Cnil){ |
744 |
bds_unwind1; |
bds_unwind1; |
745 |
goto T333;} |
goto T333;} |
746 |
princ_str("\n goto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
747 |
(void)((*(LnkLI54))(car((V118)))); |
(void)((*(LnkLI54))(CMPcar((V118)))); |
748 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
749 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
750 |
(void)((*(LnkLI54))(car((V118)))); |
(void)((*(LnkLI54))(CMPcar((V118)))); |
751 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
752 |
bds_unwind1;} |
bds_unwind1;} |
753 |
goto T333; |
goto T333; |
754 |
T333:; |
T333:; |
755 |
V116= cdr((V116)); |
V116= CMPcdr((V116)); |
756 |
goto T327;} |
goto T327;} |
757 |
} |
} |
758 |
} |
} |
764 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
765 |
goto TTL; |
goto TTL; |
766 |
TTL:; |
TTL:; |
767 |
if(!(endp_prop((V121)))){ |
if(!(((V121))==Cnil)){ |
768 |
goto T374;} |
goto T374;} |
769 |
{object V122 = (*(LnkLI47))(); |
{object V122 = (*(LnkLI47))(); |
770 |
VMR9(V122)} |
VMR9(V122)} |
771 |
goto T374; |
goto T374; |
772 |
T374:; |
T374:; |
773 |
if(!(endp_prop(cdr((V121))))){ |
if(!((CMPcdr((V121)))==Cnil)){ |
774 |
goto T377;} |
goto T377;} |
775 |
{object V123 = (*(LnkLI46))(car((V121))); |
{object V123 = (*(LnkLI46))(CMPcar((V121))); |
776 |
VMR9(V123)} |
VMR9(V123)} |
777 |
goto T377; |
goto T377; |
778 |
T377:; |
T377:; |
787 |
static void L10() |
static void L10() |
788 |
{register object *base=vs_base; |
{register object *base=vs_base; |
789 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM10; VC10 |
790 |
vs_reserve(VM10); |
vs_check; |
791 |
bds_check; |
bds_check; |
792 |
{object V126; |
{object V126; |
|
check_arg(1); |
|
793 |
V126=(base[0]); |
V126=(base[0]); |
794 |
vs_top=sup; |
vs_top=sup; |
795 |
goto TTL; |
goto TTL; |
796 |
TTL:; |
TTL:; |
797 |
{object V127; |
{object V127; |
798 |
bds_bind(VV[21],symbol_value(VV[21])); |
bds_bind(VV[21],(VV[21]->s.s_dbind)); |
799 |
V127= Cnil; |
V127= Cnil; |
800 |
{register object V128; |
{register object V128; |
801 |
V128= (V126); |
V128= (V126); |
802 |
goto T382; |
goto T382; |
803 |
T382:; |
T382:; |
804 |
if(!(endp_prop(cdr((V128))))){ |
if(!((CMPcdr((V128)))==Cnil)){ |
805 |
goto T383;} |
goto T383;} |
806 |
base[2]= car((V128)); |
base[2]= CMPcar((V128)); |
807 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
808 |
(void) (*Lnk55)(); |
(void) (*Lnk55)(); |
809 |
bds_unwind1; |
bds_unwind1; |
810 |
return; |
return; |
811 |
goto T383; |
goto T383; |
812 |
T383:; |
T383:; |
813 |
if(!((caar((V128)))==(VV[10]))){ |
if(!((CMPcaar((V128)))==(VV[10]))){ |
814 |
goto T390;} |
goto T390;} |
815 |
{object V129= caddar((V128)); |
{object V129= CMPcaddar((V128)); |
816 |
if((V129!= Ct))goto T392; |
if((V129!= Ct))goto T392; |
817 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17]))); |
818 |
goto T388; |
goto T388; |
823 |
goto T393; |
goto T393; |
824 |
T393:; |
T393:; |
825 |
princ_str("\n if(",VV[16]); |
princ_str("\n if(",VV[16]); |
826 |
(void)((*(LnkLI54))(caddar((V128)))); |
(void)((*(LnkLI54))(CMPcaddar((V128)))); |
827 |
princ_str("!=Cnil){",VV[16]); |
princ_str("!=Cnil){",VV[16]); |
828 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(caddar((V128)),VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(CMPcaddar((V128)),VV[17]))); |
829 |
princ_char(125,VV[16]); |
princ_char(125,VV[16]); |
830 |
goto T388;} |
goto T388;} |
831 |
goto T390; |
goto T390; |
832 |
T390:; |
T390:; |
833 |
if(!((caar((V128)))==(VV[20]))){ |
if(!((CMPcaar((V128)))==(VV[20]))){ |
834 |
goto T401;} |
goto T401;} |
835 |
princ_str("\n if(",VV[16]); |
princ_str("\n if(",VV[16]); |
836 |
(void)((*(LnkLI61))(car(caddar((V128))),cadr(caddar((V128))))); |
(void)((*(LnkLI61))(CMPcar(CMPcaddar((V128))),CMPcadr(CMPcaddar((V128))))); |
837 |
princ_str("!=Cnil){",VV[16]); |
princ_str("!=Cnil){",VV[16]); |
838 |
V130= make_cons(VV[20],caddar((V128))); |
V130= make_cons(VV[20],CMPcaddar((V128))); |
839 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(/* INLINE-ARGS */V130,VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(/* INLINE-ARGS */V130,VV[17]))); |
840 |
princ_char(125,VV[16]); |
princ_char(125,VV[16]); |
841 |
goto T388; |
goto T388; |
842 |
goto T401; |
goto T401; |
843 |
T401:; |
T401:; |
844 |
if(!((caar((V128)))==(VV[22]))){ |
if(!((CMPcaar((V128)))==(VV[22]))){ |
845 |
goto T411;} |
goto T411;} |
846 |
if((get(caddar((V128)),VV[23],Cnil))==Cnil){ |
{object V131 =(CMPcaddar((V128)))->s.s_plist; |
847 |
|
object ind= VV[23]; |
848 |
|
while(V131!=Cnil){ |
849 |
|
if(V131->c.c_car==ind){ |
850 |
|
if(((V131->c.c_cdr->c.c_car))==Cnil){ |
851 |
goto T411;} |
goto T411;} |
852 |
{register object V131; |
goto T414; |
853 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
}else V131=V131->c.c_cdr->c.c_cdr;} |
854 |
V131= make_cons(symbol_value(VV[9]),Cnil); |
goto T411;} |
855 |
bds_bind(VV[15],make_cons((V131),symbol_value(VV[15]))); |
goto T414; |
856 |
base[4]= list(2,VV[19],(V131)); |
T414:; |
857 |
|
{register object V132; |
858 |
|
(VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1)); |
859 |
|
V132= make_cons((VV[9]->s.s_dbind),Cnil); |
860 |
|
bds_bind(VV[15],make_cons((V132),(VV[15]->s.s_dbind))); |
861 |
|
base[4]= list(2,VV[19],(V132)); |
862 |
bds_bind(VV[11],base[4]); |
bds_bind(VV[11],base[4]); |
863 |
V132= (*(LnkLI58))(car((V128))); |
V133= (*(LnkLI58))(CMPcar((V128))); |
864 |
bds_unwind1; |
bds_unwind1; |
865 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17]))); |
866 |
if((cdr((V131)))==Cnil){ |
if((CMPcdr((V132)))==Cnil){ |
867 |
bds_unwind1; |
bds_unwind1; |
868 |
goto T388;} |
goto T388;} |
869 |
princ_str("\n goto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
870 |
(void)((*(LnkLI54))(car((V131)))); |
(void)((*(LnkLI54))(CMPcar((V132)))); |
871 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
872 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
873 |
(void)((*(LnkLI54))(car((V131)))); |
(void)((*(LnkLI54))(CMPcar((V132)))); |
874 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
875 |
bds_unwind1; |
bds_unwind1; |
876 |
goto T388;} |
goto T388;} |
877 |
goto T411; |
goto T411; |
878 |
T411:; |
T411:; |
879 |
{register object V133; |
{register object V134; |
880 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
(VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1)); |
881 |
V133= make_cons(symbol_value(VV[9]),Cnil); |
V134= make_cons((VV[9]->s.s_dbind),Cnil); |
882 |
bds_bind(VV[24],small_fixnum(0)); |
bds_bind(VV[24],small_fixnum(0)); |
883 |
bds_bind(VV[15],make_cons((V133),symbol_value(VV[15]))); |
bds_bind(VV[15],make_cons((V134),(VV[15]->s.s_dbind))); |
884 |
V127= (*(LnkLI62))(); |
V127= (*(LnkLI62))(); |
885 |
bds_bind(VV[11],(V127)); |
bds_bind(VV[11],(V127)); |
886 |
V134= (*(LnkLI58))(car((V128))); |
V135= (*(LnkLI58))(CMPcar((V128))); |
887 |
bds_unwind1; |
bds_unwind1; |
888 |
princ_str("\n if(",VV[16]); |
princ_str("\n if(",VV[16]); |
889 |
(void)((*(LnkLI54))((V127))); |
(void)((*(LnkLI54))((V127))); |
890 |
princ_str("==Cnil)",VV[16]); |
princ_str("==Cnil)",VV[16]); |
891 |
if(type_of((V133))!=t_cons)FEwrong_type_argument(Scons,(V133)); |
((V134))->c.c_cdr = Ct; |
|
((V133))->c.c_cdr = Ct; |
|
892 |
princ_str("goto T",VV[16]); |
princ_str("goto T",VV[16]); |
893 |
(void)((*(LnkLI54))(car((V133)))); |
(void)((*(LnkLI54))(CMPcar((V134)))); |
894 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
895 |
(void)((VFUN_NARGS=2,(*(LnkLI60))((V127),VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))((V127),VV[17]))); |
896 |
if((cdr((V133)))==Cnil){ |
if((CMPcdr((V134)))==Cnil){ |
897 |
goto T446;} |
goto T446;} |
898 |
princ_str("\n goto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
899 |
(void)((*(LnkLI54))(car((V133)))); |
(void)((*(LnkLI54))(CMPcar((V134)))); |
900 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
901 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
902 |
(void)((*(LnkLI54))(car((V133)))); |
(void)((*(LnkLI54))(CMPcar((V134)))); |
903 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
904 |
goto T446; |
goto T446; |
905 |
T446:; |
T446:; |
906 |
V135= (*(LnkLI63))(); |
V136= (*(LnkLI63))(); |
907 |
bds_unwind1; |
bds_unwind1; |
908 |
bds_unwind1;} |
bds_unwind1;} |
909 |
goto T388; |
goto T388; |
910 |
T388:; |
T388:; |
911 |
V128= cdr((V128)); |
V128= CMPcdr((V128)); |
912 |
goto T382;}} |
goto T382;}} |
913 |
} |
} |
914 |
} |
} |
915 |
/* local entry for function SET-JUMP-TRUE */ |
/* local entry for function SET-JUMP-TRUE */ |
916 |
|
|
917 |
static object LI11(V138,V139) |
static object LI11(V139,V140) |
918 |
|
|
919 |
register object V138;object V139; |
register object V139;object V140; |
920 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
921 |
goto TTL; |
goto TTL; |
922 |
TTL:; |
TTL:; |
923 |
if(((V138))==Cnil){ |
if(((V139))==Cnil){ |
924 |
goto T460;} |
goto T460;} |
925 |
{object V140; |
{object V141; |
926 |
V140= (((V138))==(Ct)?Ct:Cnil); |
V141= (((V139))==(Ct)?Ct:Cnil); |
927 |
if(((V140))==Cnil){ |
if(((V141))==Cnil){ |
928 |
goto T465;} |
goto T465;} |
929 |
goto T462; |
goto T462; |
930 |
goto T465; |
goto T465; |
931 |
T465:; |
T465:; |
932 |
if(!(type_of((V138))==t_cons)){ |
if(!(type_of((V139))==t_cons)){ |
933 |
goto T468;} |
goto T468;} |
934 |
if(!((car((V138)))==(VV[25]))){ |
if(!((CMPcar((V139)))==(VV[25]))){ |
935 |
goto T468;} |
goto T468;} |
936 |
princ_str("\n if(",VV[16]); |
princ_str("\n if(",VV[16]); |
937 |
base[0]= caddr((V138)); |
base[0]= CMPcaddr((V139)); |
938 |
base[1]= cadddr((V138)); |
base[1]= CMPcadddr((V139)); |
939 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
940 |
(void) (*Lnk64)(); |
(void) (*Lnk64)(); |
941 |
vs_top=sup; |
vs_top=sup; |
944 |
goto T468; |
goto T468; |
945 |
T468:; |
T468:; |
946 |
princ_str("\n if((",VV[16]); |
princ_str("\n if((",VV[16]); |
947 |
(void)((*(LnkLI54))((V138))); |
(void)((*(LnkLI54))((V139))); |
948 |
princ_str(")!=Cnil)",VV[16]);} |
princ_str(")!=Cnil)",VV[16]);} |
949 |
goto T462; |
goto T462; |
950 |
T462:; |
T462:; |
951 |
if(((V138))==(Ct)){ |
if(((V139))==(Ct)){ |
952 |
goto T481;} |
goto T481;} |
953 |
princ_char(123,VV[16]); |
princ_char(123,VV[16]); |
954 |
goto T481; |
goto T481; |
955 |
T481:; |
T481:; |
956 |
(void)((*(LnkLI57))((V139))); |
(void)((*(LnkLI57))((V140))); |
957 |
princ_str("\n ",VV[16]); |
princ_str("\n ",VV[16]); |
958 |
if(type_of((V139))!=t_cons)FEwrong_type_argument(Scons,(V139)); |
((V140))->c.c_cdr = Ct; |
|
((V139))->c.c_cdr = Ct; |
|
959 |
princ_str("goto T",VV[16]); |
princ_str("goto T",VV[16]); |
960 |
(void)((*(LnkLI54))(car((V139)))); |
(void)((*(LnkLI54))(CMPcar((V140)))); |
961 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
962 |
if(((V138))==(Ct)){ |
if(((V139))==(Ct)){ |
963 |
goto T493;} |
goto T493;} |
964 |
princ_char(125,VV[16]); |
princ_char(125,VV[16]); |
|
{object V141 = Cnil; |
|
|
VMR11(V141)} |
|
|
goto T493; |
|
|
T493:; |
|
965 |
{object V142 = Cnil; |
{object V142 = Cnil; |
966 |
VMR11(V142)} |
VMR11(V142)} |
967 |
goto T460; |
goto T493; |
968 |
T460:; |
T493:; |
969 |
{object V143 = Cnil; |
{object V143 = Cnil; |
970 |
VMR11(V143)} |
VMR11(V143)} |
971 |
|
goto T460; |
972 |
|
T460:; |
973 |
|
{object V144 = Cnil; |
974 |
|
VMR11(V144)} |
975 |
base[0]=base[0]; |
base[0]=base[0]; |
976 |
return Cnil; |
return Cnil; |
977 |
} |
} |
978 |
/* local entry for function SET-JUMP-FALSE */ |
/* local entry for function SET-JUMP-FALSE */ |
979 |
|
|
980 |
static object LI12(V146,V147) |
static object LI12(V147,V148) |
981 |
|
|
982 |
register object V146;object V147; |
register object V147;object V148; |
983 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
984 |
goto TTL; |
goto TTL; |
985 |
TTL:; |
TTL:; |
986 |
if(((V146))==(Ct)){ |
if(((V147))==(Ct)){ |
987 |
goto T497;} |
goto T497;} |
988 |
{object V148; |
{object V149; |
989 |
V148= (((V146))==Cnil?Ct:Cnil); |
V149= (((V147))==Cnil?Ct:Cnil); |
990 |
if(((V148))==Cnil){ |
if(((V149))==Cnil){ |
991 |
goto T502;} |
goto T502;} |
992 |
goto T499; |
goto T499; |
993 |
goto T502; |
goto T502; |
994 |
T502:; |
T502:; |
995 |
if(!(type_of((V146))==t_cons)){ |
if(!(type_of((V147))==t_cons)){ |
996 |
goto T505;} |
goto T505;} |
997 |
if(!((car((V146)))==(VV[25]))){ |
if(!((CMPcar((V147)))==(VV[25]))){ |
998 |
goto T505;} |
goto T505;} |
999 |
princ_str("\n if(!(",VV[16]); |
princ_str("\n if(!(",VV[16]); |
1000 |
base[0]= caddr((V146)); |
base[0]= CMPcaddr((V147)); |
1001 |
base[1]= cadddr((V146)); |
base[1]= CMPcadddr((V147)); |
1002 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1003 |
(void) (*Lnk64)(); |
(void) (*Lnk64)(); |
1004 |
vs_top=sup; |
vs_top=sup; |
1007 |
goto T505; |
goto T505; |
1008 |
T505:; |
T505:; |
1009 |
princ_str("\n if((",VV[16]); |
princ_str("\n if((",VV[16]); |
1010 |
(void)((*(LnkLI54))((V146))); |
(void)((*(LnkLI54))((V147))); |
1011 |
princ_str(")==Cnil)",VV[16]);} |
princ_str(")==Cnil)",VV[16]);} |
1012 |
goto T499; |
goto T499; |
1013 |
T499:; |
T499:; |
1014 |
if(((V146))==Cnil){ |
if(((V147))==Cnil){ |
1015 |
goto T518;} |
goto T518;} |
1016 |
princ_char(123,VV[16]); |
princ_char(123,VV[16]); |
1017 |
goto T518; |
goto T518; |
1018 |
T518:; |
T518:; |
1019 |
(void)((*(LnkLI57))((V147))); |
(void)((*(LnkLI57))((V148))); |
1020 |
princ_str("\n ",VV[16]); |
princ_str("\n ",VV[16]); |
1021 |
if(type_of((V147))!=t_cons)FEwrong_type_argument(Scons,(V147)); |
((V148))->c.c_cdr = Ct; |
|
((V147))->c.c_cdr = Ct; |
|
1022 |
princ_str("goto T",VV[16]); |
princ_str("goto T",VV[16]); |
1023 |
(void)((*(LnkLI54))(car((V147)))); |
(void)((*(LnkLI54))(CMPcar((V148)))); |
1024 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
1025 |
if(((V146))==Cnil){ |
if(((V147))==Cnil){ |
1026 |
goto T530;} |
goto T530;} |
1027 |
princ_char(125,VV[16]); |
princ_char(125,VV[16]); |
|
{object V149 = Cnil; |
|
|
VMR12(V149)} |
|
|
goto T530; |
|
|
T530:; |
|
1028 |
{object V150 = Cnil; |
{object V150 = Cnil; |
1029 |
VMR12(V150)} |
VMR12(V150)} |
1030 |
goto T497; |
goto T530; |
1031 |
T497:; |
T530:; |
1032 |
{object V151 = Cnil; |
{object V151 = Cnil; |
1033 |
VMR12(V151)} |
VMR12(V151)} |
1034 |
|
goto T497; |
1035 |
|
T497:; |
1036 |
|
{object V152 = Cnil; |
1037 |
|
VMR12(V152)} |
1038 |
base[0]=base[0]; |
base[0]=base[0]; |
1039 |
return Cnil; |
return Cnil; |
1040 |
} |
} |
1041 |
/* local entry for function C1ECASE */ |
/* local entry for function C1ECASE */ |
1042 |
|
|
1043 |
static object LI13(V153) |
static object LI13(V154) |
1044 |
|
|
1045 |
object V153; |
object V154; |
1046 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
1047 |
goto TTL; |
goto TTL; |
1048 |
TTL:; |
TTL:; |
1049 |
{object V154 = (VFUN_NARGS=2,(*(LnkLI65))((V153),Ct)); |
{object V155 = (VFUN_NARGS=2,(*(LnkLI65))((V154),Ct)); |
1050 |
VMR13(V154)} |
VMR13(V155)} |
1051 |
return Cnil; |
return Cnil; |
1052 |
} |
} |
1053 |
/* local entry for function CONVERT-CASE-TO-SWITCH */ |
/* local entry for function CONVERT-CASE-TO-SWITCH */ |
1054 |
|
|
1055 |
static object LI14(V157,V158) |
static object LI14(V158,V159) |
1056 |
|
|
1057 |
object V157;object V158; |
object V158;object V159; |
1058 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1059 |
goto TTL; |
goto TTL; |
1060 |
TTL:; |
TTL:; |
1061 |
{object V159; |
{object V160; |
|
register object V160; |
|
1062 |
register object V161; |
register object V161; |
1063 |
|
register object V162; |
1064 |
vs_base=vs_top; |
vs_base=vs_top; |
1065 |
Lgensym(); |
Lgensym(); |
1066 |
vs_top=sup; |
vs_top=sup; |
1067 |
V159= vs_base[0]; |
V160= vs_base[0]; |
|
V160= Cnil; |
|
1068 |
V161= Cnil; |
V161= Cnil; |
1069 |
{register object V162; |
V162= Cnil; |
1070 |
register object V163; |
{register object V163; |
1071 |
V162= cdr((V157)); |
register object V164; |
1072 |
V163= car((V162)); |
V163= CMPcdr((V158)); |
1073 |
|
V164= CMPcar((V163)); |
1074 |
goto T538; |
goto T538; |
1075 |
T538:; |
T538:; |
1076 |
if(!(endp_prop((V162)))){ |
if(!(((V163))==Cnil)){ |
1077 |
goto T539;} |
goto T539;} |
1078 |
goto T534; |
goto T534; |
1079 |
goto T539; |
goto T539; |
1080 |
T539:; |
T539:; |
1081 |
if(!(type_of(car((V163)))==t_fixnum)){ |
if(!(type_of(CMPcar((V164)))==t_fixnum)){ |
1082 |
goto T545;} |
goto T545;} |
1083 |
{object V164; |
{object V165; |
1084 |
V164= car((V163)); |
V165= CMPcar((V164)); |
1085 |
V160= make_cons((V164),(V160)); |
V161= make_cons((V165),(V161)); |
1086 |
goto T543;} |
goto T543;} |
1087 |
goto T545; |
goto T545; |
1088 |
T545:; |
T545:; |
1089 |
if(!(type_of(car((V163)))==t_cons)){ |
if(!(type_of(CMPcar((V164)))==t_cons)){ |
1090 |
goto T550;} |
goto T550;} |
1091 |
{register object V165; |
{register object V166; |
1092 |
register object V166; |
register object V167; |
1093 |
V165= car((V163)); |
V166= CMPcar((V164)); |
1094 |
V166= car((V165)); |
V167= CMPcar((V166)); |
1095 |
goto T555; |
goto T555; |
1096 |
T555:; |
T555:; |
1097 |
if(!(endp_prop((V165)))){ |
if(!(((V166))==Cnil)){ |
1098 |
goto T556;} |
goto T556;} |
1099 |
goto T543; |
goto T543; |
1100 |
goto T556; |
goto T556; |
1101 |
T556:; |
T556:; |
1102 |
V160= make_cons(V166,(V160)); |
V161= make_cons(V167,(V161)); |
1103 |
V165= cdr((V165)); |
V166= CMPcdr((V166)); |
1104 |
V166= car((V165)); |
V167= CMPcar((V166)); |
1105 |
goto T555;} |
goto T555;} |
1106 |
goto T550; |
goto T550; |
1107 |
T550:; |
T550:; |
1108 |
{register object x= car((V163)),V168= VV[26]; |
{register object x= CMPcar((V164)),V169= VV[26]; |
1109 |
while(!endp(V168)) |
while(V169!=Cnil) |
1110 |
if(eql(x,V168->c.c_car)){ |
if(eql(x,V169->c.c_car)){ |
1111 |
goto T568; |
goto T568; |
1112 |
}else V168=V168->c.c_cdr; |
}else V169=V169->c.c_cdr; |
1113 |
goto T543;} |
goto T543;} |
1114 |
goto T568; |
goto T568; |
1115 |
T568:; |
T568:; |
1116 |
if((V158)==Cnil){ |
if((V159)==Cnil){ |
1117 |
goto T569;} |
goto T569;} |
1118 |
base[2]= VV[27]; |
base[2]= VV[27]; |
1119 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1121 |
vs_top=sup; |
vs_top=sup; |
1122 |
goto T569; |
goto T569; |
1123 |
T569:; |
T569:; |
1124 |
V160= make_cons(Ct,(V160)); |
V161= make_cons(Ct,(V161)); |
1125 |
goto T543; |
goto T543; |
1126 |
T543:; |
T543:; |
1127 |
{object V170; |
{object V171; |
1128 |
V170= list(3,VV[28],(V159),make_cons(VV[29],cdr((V163)))); |
V171= list(3,VV[28],(V160),make_cons(VV[29],CMPcdr((V164)))); |
1129 |
V160= make_cons((V170),(V160));} |
V161= make_cons((V171),(V161));} |
1130 |
V162= cdr((V162)); |
V163= CMPcdr((V163)); |
1131 |
V163= car((V162)); |
V164= CMPcar((V163)); |
1132 |
goto T538;} |
goto T538;} |
1133 |
goto T534; |
goto T534; |
1134 |
T534:; |
T534:; |
1135 |
if(((V158))==Cnil){ |
if(((V159))==Cnil){ |
1136 |
goto T580;} |
goto T580;} |
1137 |
V160= make_cons(Ct,(V160)); |
V161= make_cons(Ct,(V161)); |
1138 |
{register object V172; |
{register object V173; |
1139 |
object V173; |
object V174; |
1140 |
V172= cdr((V157)); |
V173= CMPcdr((V158)); |
1141 |
V173= car((V172)); |
V174= CMPcar((V173)); |
1142 |
goto T589; |
goto T589; |
1143 |
T589:; |
T589:; |
1144 |
if(!(endp_prop((V172)))){ |
if(!(((V173))==Cnil)){ |
1145 |
goto T590;} |
goto T590;} |
1146 |
goto T585; |
goto T585; |
1147 |
goto T590; |
goto T590; |
1148 |
T590:; |
T590:; |
1149 |
if(!(type_of(car((V173)))!=t_cons)){ |
if(!(type_of(CMPcar((V174)))!=t_cons)){ |
1150 |
goto T596;} |
goto T596;} |
1151 |
{object V174; |
{object V175; |
1152 |
V174= car((V173)); |
V175= CMPcar((V174)); |
1153 |
V161= make_cons((V174),(V161)); |
V162= make_cons((V175),(V162)); |
1154 |
goto T594;} |
goto T594;} |
1155 |
goto T596; |
goto T596; |
1156 |
T596:; |
T596:; |
1157 |
V161= append(car((V173)),(V161)); |
V162= append(CMPcar((V174)),(V162)); |
1158 |
goto T594; |
goto T594; |
1159 |
T594:; |
T594:; |
1160 |
V172= cdr((V172)); |
V173= CMPcdr((V173)); |
1161 |
V173= car((V172)); |
V174= CMPcar((V173)); |
1162 |
goto T589;} |
goto T589;} |
1163 |
goto T585; |
goto T585; |
1164 |
T585:; |
T585:; |
1165 |
{object V175; |
{object V176; |
1166 |
V176= car((V157)); |
V177= CMPcar((V158)); |
1167 |
V175= list(4,VV[30],VV[31],/* INLINE-ARGS */V176,list(2,VV[32],(V161))); |
V176= list(4,VV[30],VV[31],/* INLINE-ARGS */V177,list(2,VV[32],(V162))); |
1168 |
V160= make_cons((V175),(V160));} |
V161= make_cons((V176),(V161));} |
1169 |
goto T580; |
goto T580; |
1170 |
T580:; |
T580:; |
1171 |
V177= car((V157)); |
V178= CMPcar((V158)); |
1172 |
{object V178 = list(3,VV[33],(V159),listA(3,VV[34],/* INLINE-ARGS */V177,nreverse((V160)))); |
{object V179 = list(3,VV[33],(V160),listA(3,VV[34],/* INLINE-ARGS */V178,nreverse((V161)))); |
1173 |
VMR14(V178)}} |
VMR14(V179)}} |
1174 |
base[0]=base[0]; |
base[0]=base[0]; |
1175 |
return Cnil; |
return Cnil; |
1176 |
} |
} |
1177 |
/* local entry for function C1CASE */ |
/* local entry for function C1CASE */ |
1178 |
|
|
1179 |
static object LI15(object V179,object first,...) |
static object LI15(object V180,object first,...) |
1180 |
{ |
{ |
1181 |
va_list ap; |
va_list ap; |
1182 |
int narg = VFUN_NARGS; VMB15 VMS15 VMV15 |
int narg = VFUN_NARGS; VMB15 VMS15 VMV15 |
1183 |
{object V180; |
{object V181; |
1184 |
register object V181; |
register object V182; |
1185 |
va_start(ap,first); |
va_start(ap,first); |
1186 |
if(narg <1) too_few_arguments(); |
V181= V180; |
|
V180= V179; |
|
1187 |
narg = narg - 1; |
narg = narg - 1; |
1188 |
if (narg <= 0) goto T608; |
if (narg <= 0) goto T608; |
1189 |
else { |
else { |
1190 |
V181= first;} |
V182= first;} |
1191 |
--narg; goto T609; |
--narg; goto T609; |
1192 |
goto T608; |
goto T608; |
1193 |
T608:; |
T608:; |
1194 |
V181= Cnil; |
V182= Cnil; |
1195 |
goto T609; |
goto T609; |
1196 |
T609:; |
T609:; |
1197 |
if(!(endp_prop((V180)))){ |
if(!(((V181))==Cnil)){ |
1198 |
goto T611;} |
goto T611;} |
1199 |
(void)((*(LnkLI43))(VV[35],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI43))(VV[35],small_fixnum(1),small_fixnum(0))); |
1200 |
goto T611; |
goto T611; |
1201 |
T611:; |
T611:; |
1202 |
{register object V182; |
{register object V183; |
|
object V183; |
|
1203 |
object V184; |
object V184; |
1204 |
V182= (VFUN_NARGS=0,(*(LnkLI48))()); |
object V185; |
1205 |
V183= (*(LnkLI50))(car((V180)),(V182)); |
V183= (VFUN_NARGS=0,(*(LnkLI48))()); |
1206 |
V184= Cnil; |
V184= (*(LnkLI50))(CMPcar((V181)),(V183)); |
1207 |
base[2]= structure_ref(cadr((V183)),VV[36],2); |
V185= Cnil; |
1208 |
|
base[2]= STREF(object,CMPcadr((V184)),8); |
1209 |
base[3]= VV[37]; |
base[3]= VV[37]; |
1210 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1211 |
(void) (*Lnk67)(); |
(void) (*Lnk67)(); |
1212 |
vs_top=sup; |
vs_top=sup; |
1213 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1214 |
goto T617;} |
goto T617;} |
1215 |
V185= (*(LnkLI68))((V180),(V181)); |
V186= (*(LnkLI68))((V181),(V182)); |
1216 |
{object V186 = (*(LnkLI46))(/* INLINE-ARGS */V185); |
{object V187 = (*(LnkLI46))(/* INLINE-ARGS */V186); |
1217 |
VMR15(V186)} |
VMR15(V187)} |
1218 |
goto T617; |
goto T617; |
1219 |
T617:; |
T617:; |
1220 |
{register object V187; |
{register object V188; |
1221 |
register object V188; |
register object V189; |
1222 |
V187= cdr((V180)); |
V188= CMPcdr((V181)); |
1223 |
V188= car((V187)); |
V189= CMPcar((V188)); |
1224 |
goto T626; |
goto T626; |
1225 |
T626:; |
T626:; |
1226 |
if(!(endp_prop((V187)))){ |
if(!(((V188))==Cnil)){ |
1227 |
goto T627;} |
goto T627;} |
1228 |
goto T622; |
goto T622; |
1229 |
goto T627; |
goto T627; |
1230 |
T627:; |
T627:; |
1231 |
if(!(endp_prop((V188)))){ |
if(!(((V189))==Cnil)){ |
1232 |
goto T631;} |
goto T631;} |
1233 |
(void)((VFUN_NARGS=2,(*(LnkLI69))(VV[38],(V188)))); |
(void)((VFUN_NARGS=2,(*(LnkLI69))(VV[38],(V189)))); |
1234 |
goto T631; |
goto T631; |
1235 |
T631:; |
T631:; |
1236 |
{object V189= car((V188)); |
{object V190= CMPcar((V189)); |
1237 |
if((V189!= Cnil))goto T635; |
if((V190!= Cnil))goto T635; |
1238 |
goto T634; |
goto T634; |
1239 |
goto T635; |
goto T635; |
1240 |
T635:; |
T635:; |
1241 |
if((V189!= Ct) |
if((V190!= Ct) |
1242 |
&& (V189!= VV[70]))goto T636; |
&& (V190!= VV[70]))goto T636; |
1243 |
if(((V181))==Cnil){ |
if(((V182))==Cnil){ |
1244 |
goto T637;} |
goto T637;} |
1245 |
if(!(((V181))==(Ct))){ |
if(!(((V182))==(Ct))){ |
1246 |
goto T642;} |
goto T642;} |
1247 |
V190= VV[39]; |
V191= VV[39]; |
1248 |
goto T640; |
goto T640; |
1249 |
goto T642; |
goto T642; |
1250 |
T642:; |
T642:; |
1251 |
V190= VV[40]; |
V191= VV[40]; |
1252 |
goto T640; |
goto T640; |
1253 |
T640:; |
T640:; |
1254 |
(void)((VFUN_NARGS=1,(*(LnkLI69))(V190))); |
(void)((VFUN_NARGS=1,(*(LnkLI69))(V191))); |
1255 |
goto T637; |
goto T637; |
1256 |
T637:; |
T637:; |
1257 |
V181= (*(LnkLI71))(cdr((V188))); |
V182= (*(LnkLI71))(CMPcdr((V189))); |
1258 |
(void)((*(LnkLI72))((V182),cadr((V181)))); |
(void)((*(LnkLI72))((V183),CMPcadr((V182)))); |
1259 |
goto T634; |
goto T634; |
1260 |
goto T636; |
goto T636; |
1261 |
T636:; |
T636:; |
1262 |
{object V191; |
{object V192; |
1263 |
register object V192; |
register object V193; |
1264 |
if(!(type_of(car((V188)))==t_cons)){ |
if(!(type_of(CMPcar((V189)))==t_cons)){ |
1265 |
goto T648;} |
goto T648;} |
1266 |
{object V193; |
{object V194; |
1267 |
object V194= car((V188)); |
object V195= CMPcar((V189)); |
1268 |
if(endp(V194)){ |
if(V195==Cnil){ |
1269 |
V191= Cnil; |
V192= Cnil; |
1270 |
goto T646;} |
goto T646;} |
1271 |
base[6]=V193=MMcons(Cnil,Cnil); |
base[6]=V194=MMcons(Cnil,Cnil); |
1272 |
goto T650; |
goto T650; |
1273 |
T650:; |
T650:; |
1274 |
{register object V195; |
{register object V196; |
1275 |
V195= (V194->c.c_car); |
V196= (V195->c.c_car); |
1276 |
if(!(type_of((V195))==t_symbol)){ |
if(!(type_of((V196))==t_symbol)){ |
1277 |
goto T653;} |
goto T653;} |
1278 |
(V193->c.c_car)= (V195); |
(V194->c.c_car)= (V196); |
1279 |
goto T651; |
goto T651; |
1280 |
goto T653; |
goto T653; |
1281 |
T653:; |
T653:; |
1282 |
(V193->c.c_car)= (*(LnkLI73))((V195));} |
(V194->c.c_car)= (*(LnkLI73))((V196));} |
1283 |
goto T651; |
goto T651; |
1284 |
T651:; |
T651:; |
1285 |
V194=MMcdr(V194); |
if((V195=MMcdr(V195))==Cnil){ |
1286 |
if(endp(V194)){ |
V192= base[6]; |
|
V191= base[6]; |
|
1287 |
goto T646;} |
goto T646;} |
1288 |
V193=MMcdr(V193)=MMcons(Cnil,Cnil); |
V194=MMcdr(V194)=MMcons(Cnil,Cnil); |
1289 |
goto T650;} |
goto T650;} |
1290 |
goto T648; |
goto T648; |
1291 |
T648:; |
T648:; |
1292 |
if(!(type_of(car((V188)))==t_symbol)){ |
if(!(type_of(CMPcar((V189)))==t_symbol)){ |
1293 |
goto T656;} |
goto T656;} |
1294 |
V191= make_cons(car((V188)),Cnil); |
V192= make_cons(CMPcar((V189)),Cnil); |
1295 |
goto T646; |
goto T646; |
1296 |
goto T656; |
goto T656; |
1297 |
T656:; |
T656:; |
1298 |
V196= (*(LnkLI73))(car((V188))); |
V197= (*(LnkLI73))(CMPcar((V189))); |
1299 |
V191= make_cons(/* INLINE-ARGS */V196,Cnil); |
V192= make_cons(/* INLINE-ARGS */V197,Cnil); |
1300 |
goto T646; |
goto T646; |
1301 |
T646:; |
T646:; |
1302 |
V192= (*(LnkLI71))(cdr((V188))); |
V193= (*(LnkLI71))(CMPcdr((V189))); |
1303 |
(void)((*(LnkLI72))((V182),cadr((V192)))); |
(void)((*(LnkLI72))((V183),CMPcadr((V193)))); |
1304 |
{object V197; |
{object V198; |
1305 |
V197= make_cons((V191),(V192)); |
V198= make_cons((V192),(V193)); |
1306 |
V184= make_cons((V197),(V184));}}} |
V185= make_cons((V198),(V185));}}} |
1307 |
goto T634; |
goto T634; |
1308 |
T634:; |
T634:; |
1309 |
V187= cdr((V187)); |
V188= CMPcdr((V188)); |
1310 |
V188= car((V187)); |
V189= CMPcar((V188)); |
1311 |
goto T626;} |
goto T626;} |
1312 |
goto T622; |
goto T622; |
1313 |
T622:; |
T622:; |
1314 |
V198= reverse((V184)); |
V199= reverse((V185)); |
1315 |
if((V181)!=Cnil){ |
if((V182)!=Cnil){ |
1316 |
V199= (V181); |
V200= (V182); |
1317 |
goto T667;} |
goto T667;} |
1318 |
V199= (*(LnkLI47))(); |
V200= (*(LnkLI47))(); |
1319 |
goto T667; |
goto T667; |
1320 |
T667:; |
T667:; |
1321 |
{object V200 = list(5,VV[35],(V182),(V183),/* INLINE-ARGS */V198,V199); |
{object V201 = list(5,VV[35],(V183),(V184),/* INLINE-ARGS */V199,V200); |
1322 |
VMR15(V200)}} |
VMR15(V201)}} |
1323 |
va_end(ap); |
va_end(ap); |
1324 |
base[0]=base[0]; |
base[0]=base[0]; |
1325 |
return Cnil;} |
return Cnil;} |
1326 |
} |
} |
1327 |
/* local entry for function C2CASE */ |
/* local entry for function C2CASE */ |
1328 |
|
|
1329 |
static object LI16(V204,V205,V206) |
static object LI16(V205,V206,V207) |
1330 |
|
|
1331 |
object V204;object V205;object V206; |
object V205;object V206;object V207; |
1332 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
1333 |
bds_check; |
bds_check; |
1334 |
goto TTL; |
goto TTL; |
1335 |
TTL:; |
TTL:; |
1336 |
{register object V207; |
{register object V208; |
1337 |
setq(VV[41],number_plus(symbol_value(VV[41]),small_fixnum(1))); |
(VV[41]->s.s_dbind)= number_plus((VV[41]->s.s_dbind),small_fixnum(1)); |
1338 |
V207= symbol_value(VV[41]); |
V208= (VV[41]->s.s_dbind); |
1339 |
bds_bind(VV[21],symbol_value(VV[21])); |
bds_bind(VV[21],(VV[21]->s.s_dbind)); |
1340 |
bds_bind(VV[24],small_fixnum(0)); |
bds_bind(VV[24],small_fixnum(0)); |
1341 |
V208= make_cons((V204),Cnil); |
V209= make_cons((V205),Cnil); |
1342 |
V209= (VFUN_NARGS=2,(*(LnkLI74))(/* INLINE-ARGS */V208,VV[42])); |
V210= (VFUN_NARGS=2,(*(LnkLI74))(/* INLINE-ARGS */V209,VV[42])); |
1343 |
V204= car(/* INLINE-ARGS */V209); |
V205= CMPcar(/* INLINE-ARGS */V210); |
1344 |
princ_str("\n {object V",VV[16]); |
princ_str("\n {object V",VV[16]); |
1345 |
(void)((*(LnkLI54))((V207))); |
(void)((*(LnkLI54))((V208))); |
1346 |
princ_str("= ",VV[16]); |
princ_str("= ",VV[16]); |
1347 |
(void)((*(LnkLI54))((V204))); |
(void)((*(LnkLI54))((V205))); |
1348 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
1349 |
{object V210; |
{object V211; |
1350 |
object V211; |
object V212; |
1351 |
V210= (V205); |
V211= (V206); |
1352 |
V211= car((V210)); |
V212= CMPcar((V211)); |
1353 |
goto T682; |
goto T682; |
1354 |
T682:; |
T682:; |
1355 |
if(!(endp_prop((V210)))){ |
if(!(((V211))==Cnil)){ |
1356 |
goto T683;} |
goto T683;} |
1357 |
goto T678; |
goto T678; |
1358 |
goto T683; |
goto T683; |
1359 |
T683:; |
T683:; |
1360 |
{object V212; |
{object V213; |
|
register object V213; |
|
1361 |
register object V214; |
register object V214; |
1362 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
register object V215; |
1363 |
V212= make_cons(symbol_value(VV[9]),Cnil); |
(VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1)); |
1364 |
V213= car((V211)); |
V213= make_cons((VV[9]->s.s_dbind),Cnil); |
1365 |
V214= Cnil; |
V214= CMPcar((V212)); |
1366 |
|
V215= Cnil; |
1367 |
goto T694; |
goto T694; |
1368 |
T694:; |
T694:; |
1369 |
if(!(((long)length((V213)))<=(5))){ |
if(!(((long)length((V214)))<=(5))){ |
1370 |
goto T695;} |
goto T695;} |
1371 |
goto T692; |
goto T692; |
1372 |
goto T695; |
goto T695; |
1373 |
T695:; |
T695:; |
1374 |
if(((V214))!=Cnil){ |
if(((V215))!=Cnil){ |
1375 |
goto T699;} |
goto T699;} |
1376 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
(VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1)); |
1377 |
V214= make_cons(symbol_value(VV[9]),Cnil); |
V215= make_cons((VV[9]->s.s_dbind),Cnil); |
1378 |
goto T699; |
goto T699; |
1379 |
T699:; |
T699:; |
1380 |
princ_str("\n if(",VV[16]); |
princ_str("\n if(",VV[16]); |
1381 |
{register object V216; |
{register object V217; |
1382 |
V216= small_fixnum(0); |
V217= small_fixnum(0); |
1383 |
goto T709; |
goto T709; |
1384 |
T709:; |
T709:; |
1385 |
if(!(number_compare((V216),small_fixnum(5))>=0)){ |
if(!(number_compare((V217),small_fixnum(5))>=0)){ |
1386 |
goto T710;} |
goto T710;} |
1387 |
goto T706; |
goto T706; |
1388 |
goto T710; |
goto T710; |
1389 |
T710:; |
T710:; |
1390 |
if(!(type_of(car((V213)))==t_symbol)){ |
if(!(type_of(CMPcar((V214)))==t_symbol)){ |
1391 |
goto T716;} |
goto T716;} |
1392 |
princ_str("(V",VV[16]); |
princ_str("(V",VV[16]); |
1393 |
(void)((*(LnkLI54))((V207))); |
(void)((*(LnkLI54))((V208))); |
1394 |
princ_str("== ",VV[16]); |
princ_str("== ",VV[16]); |
1395 |
{object V217= car((V213)); |
{object V218= CMPcar((V214)); |
1396 |
if((V217!= Ct))goto T723; |
if((V218!= Ct))goto T723; |
1397 |
princ_str("Ct",VV[16]); |
princ_str("Ct",VV[16]); |
1398 |
goto T722; |
goto T722; |
1399 |
goto T723; |
goto T723; |
1400 |
T723:; |
T723:; |
1401 |
if((V217!= Cnil))goto T725; |
if((V218!= Cnil))goto T725; |
1402 |
princ_str("Cnil",VV[16]); |
princ_str("Cnil",VV[16]); |
1403 |
goto T722; |
goto T722; |
1404 |
goto T725; |
goto T725; |
1405 |
T725:; |
T725:; |
1406 |
princ_str("VV[",VV[16]); |
princ_str("VV[",VV[16]); |
1407 |
V218= (*(LnkLI75))(car((V213))); |
V219= (*(LnkLI75))(CMPcar((V214))); |
1408 |
(void)((*(LnkLI54))(/* INLINE-ARGS */V218)); |
(void)((*(LnkLI54))(/* INLINE-ARGS */V219)); |
1409 |
princ_char(93,VV[16]);} |
princ_char(93,VV[16]);} |
1410 |
goto T722; |
goto T722; |
1411 |
T722:; |
T722:; |
1414 |
goto T716; |
goto T716; |
1415 |
T716:; |
T716:; |
1416 |
princ_str("eql(V",VV[16]); |
princ_str("eql(V",VV[16]); |
1417 |
(void)((*(LnkLI54))((V207))); |
(void)((*(LnkLI54))((V208))); |
1418 |
princ_str(",VV[",VV[16]); |
princ_str(",VV[",VV[16]); |
1419 |
(void)((*(LnkLI54))(car((V213)))); |
(void)((*(LnkLI54))(CMPcar((V214)))); |
1420 |
princ_str("])",VV[16]); |
princ_str("])",VV[16]); |
1421 |
goto T714; |
goto T714; |
1422 |
T714:; |
T714:; |
1423 |
if(!(number_compare((V216),small_fixnum(4))<0)){ |
if(!(number_compare((V217),small_fixnum(4))<0)){ |
1424 |
goto T736;} |
goto T736;} |
1425 |
princ_str("\n || ",VV[16]); |
princ_str("\n || ",VV[16]); |
1426 |
goto T736; |
goto T736; |
1427 |
T736:; |
T736:; |
1428 |
{object V219; |
{object V220; |
1429 |
V219= car((V213)); |
V220= CMPcar((V214)); |
1430 |
V213= cdr((V213));} |
V214= CMPcdr((V214));} |
1431 |
V216= one_plus((V216)); |
V217= one_plus((V217)); |
1432 |
goto T709;} |
goto T709;} |
1433 |
goto T706; |
goto T706; |
1434 |
T706:; |
T706:; |
1435 |
princ_char(41,VV[16]); |
princ_char(41,VV[16]); |
1436 |
if(type_of((V214))!=t_cons)FEwrong_type_argument(Scons,(V214)); |
((V215))->c.c_cdr = Ct; |
|
((V214))->c.c_cdr = Ct; |
|
1437 |
princ_str("goto T",VV[16]); |
princ_str("goto T",VV[16]); |
1438 |
(void)((*(LnkLI54))(car((V214)))); |
(void)((*(LnkLI54))(CMPcar((V215)))); |
1439 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
1440 |
goto T694; |
goto T694; |
1441 |
goto T692; |
goto T692; |
1443 |
princ_str("\n if(",VV[16]); |
princ_str("\n if(",VV[16]); |
1444 |
goto T760; |
goto T760; |
1445 |
T760:; |
T760:; |
1446 |
if(!(endp_prop((V213)))){ |
if(!(((V214))==Cnil)){ |
1447 |
goto T761;} |
goto T761;} |
1448 |
goto T758; |
goto T758; |
1449 |
goto T761; |
goto T761; |
1450 |
T761:; |
T761:; |
1451 |
if(!(type_of(car((V213)))==t_symbol)){ |
if(!(type_of(CMPcar((V214)))==t_symbol)){ |
1452 |
goto T767;} |
goto T767;} |
1453 |
princ_str("(V",VV[16]); |
princ_str("(V",VV[16]); |
1454 |
(void)((*(LnkLI54))((V207))); |
(void)((*(LnkLI54))((V208))); |
1455 |
princ_str("!= ",VV[16]); |
princ_str("!= ",VV[16]); |
1456 |
{object V220= car((V213)); |
{object V221= CMPcar((V214)); |
1457 |
if((V220!= Ct))goto T774; |
if((V221!= Ct))goto T774; |
1458 |
princ_str("Ct",VV[16]); |
princ_str("Ct",VV[16]); |
1459 |
goto T773; |
goto T773; |
1460 |
goto T774; |
goto T774; |
1461 |
T774:; |
T774:; |
1462 |
if((V220!= Cnil))goto T776; |
if((V221!= Cnil))goto T776; |
1463 |
princ_str("Cnil",VV[16]); |
princ_str("Cnil",VV[16]); |
1464 |
goto T773; |
goto T773; |
1465 |
goto T776; |
goto T776; |
1466 |
T776:; |
T776:; |
1467 |
princ_str("VV[",VV[16]); |
princ_str("VV[",VV[16]); |
1468 |
V221= (*(LnkLI75))(car((V213))); |
V222= (*(LnkLI75))(CMPcar((V214))); |
1469 |
(void)((*(LnkLI54))(/* INLINE-ARGS */V221)); |
(void)((*(LnkLI54))(/* INLINE-ARGS */V222)); |
1470 |
princ_char(93,VV[16]);} |
princ_char(93,VV[16]);} |
1471 |
goto T773; |
goto T773; |
1472 |
T773:; |
T773:; |
1475 |
goto T767; |
goto T767; |
1476 |
T767:; |
T767:; |
1477 |
princ_str("!eql(V",VV[16]); |
princ_str("!eql(V",VV[16]); |
1478 |
(void)((*(LnkLI54))((V207))); |
(void)((*(LnkLI54))((V208))); |
1479 |
princ_str(",VV[",VV[16]); |
princ_str(",VV[",VV[16]); |
1480 |
(void)((*(LnkLI54))(car((V213)))); |
(void)((*(LnkLI54))(CMPcar((V214)))); |
1481 |
princ_str("])",VV[16]); |
princ_str("])",VV[16]); |
1482 |
goto T765; |
goto T765; |
1483 |
T765:; |
T765:; |
1484 |
if(endp_prop(cdr((V213)))){ |
if((CMPcdr((V214)))==Cnil){ |
1485 |
goto T787;} |
goto T787;} |
1486 |
princ_str("\n && ",VV[16]); |
princ_str("\n && ",VV[16]); |
1487 |
goto T787; |
goto T787; |
1488 |
T787:; |
T787:; |
1489 |
{object V222; |
{object V223; |
1490 |
V222= car((V213)); |
V223= CMPcar((V214)); |
1491 |
V213= cdr((V213));} |
V214= CMPcdr((V214));} |
1492 |
goto T760; |
goto T760; |
1493 |
goto T758; |
goto T758; |
1494 |
T758:; |
T758:; |
1495 |
princ_char(41,VV[16]); |
princ_char(41,VV[16]); |
1496 |
if(type_of((V212))!=t_cons)FEwrong_type_argument(Scons,(V212)); |
((V213))->c.c_cdr = Ct; |
|
((V212))->c.c_cdr = Ct; |
|
1497 |
princ_str("goto T",VV[16]); |
princ_str("goto T",VV[16]); |
1498 |
(void)((*(LnkLI54))(car((V212)))); |
(void)((*(LnkLI54))(CMPcar((V213)))); |
1499 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
1500 |
if(((V214))==Cnil){ |
if(((V215))==Cnil){ |
1501 |
goto T804;} |
goto T804;} |
1502 |
if((cdr((V214)))==Cnil){ |
if((CMPcdr((V215)))==Cnil){ |
1503 |
goto T804;} |
goto T804;} |
1504 |
princ_str("\n goto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
1505 |
(void)((*(LnkLI54))(car((V214)))); |
(void)((*(LnkLI54))(CMPcar((V215)))); |
1506 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
1507 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
1508 |
(void)((*(LnkLI54))(car((V214)))); |
(void)((*(LnkLI54))(CMPcar((V215)))); |
1509 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
1510 |
goto T804; |
goto T804; |
1511 |
T804:; |
T804:; |
1512 |
base[6]= make_cons(VV[17],symbol_value(VV[15])); |
base[6]= make_cons(VV[17],(VV[15]->s.s_dbind)); |
1513 |
bds_bind(VV[15],base[6]); |
bds_bind(VV[15],base[6]); |
1514 |
base[7]= cdr((V211)); |
base[7]= CMPcdr((V212)); |
1515 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1516 |
(void) (*Lnk55)(); |
(void) (*Lnk55)(); |
1517 |
vs_top=sup; |
vs_top=sup; |
1518 |
bds_unwind1; |
bds_unwind1; |
1519 |
if((cdr((V212)))==Cnil){ |
if((CMPcdr((V213)))==Cnil){ |
1520 |
goto T687;} |
goto T687;} |
1521 |
princ_str("\n goto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
1522 |
(void)((*(LnkLI54))(car((V212)))); |
(void)((*(LnkLI54))(CMPcar((V213)))); |
1523 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
1524 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
1525 |
(void)((*(LnkLI54))(car((V212)))); |
(void)((*(LnkLI54))(CMPcar((V213)))); |
1526 |
princ_str(":;",VV[16]);} |
princ_str(":;",VV[16]);} |
1527 |
goto T687; |
goto T687; |
1528 |
T687:; |
T687:; |
1529 |
V210= cdr((V210)); |
V211= CMPcdr((V211)); |
1530 |
V211= car((V210)); |
V212= CMPcar((V211)); |
1531 |
goto T682;} |
goto T682;} |
1532 |
goto T678; |
goto T678; |
1533 |
T678:; |
T678:; |
1534 |
if(!(((V206))==(Ct))){ |
if(!(((V207))==(Ct))){ |
1535 |
goto T835;} |
goto T835;} |
1536 |
princ_str("\n FEerror(\"The ECASE key value ~s is illegal.\",1,V",VV[16]); |
princ_str("\n FEerror(\"The ECASE key value ~s is illegal.\",1,V",VV[16]); |
1537 |
(void)((*(LnkLI54))((V207))); |
(void)((*(LnkLI54))((V208))); |
1538 |
princ_str(");",VV[16]); |
princ_str(");",VV[16]); |
1539 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
1540 |
goto T833; |
goto T833; |
1541 |
goto T835; |
goto T835; |
1542 |
T835:; |
T835:; |
1543 |
base[3]= (V206); |
base[3]= (V207); |
1544 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1545 |
(void) (*Lnk55)(); |
(void) (*Lnk55)(); |
1546 |
vs_top=sup; |
vs_top=sup; |
1547 |
goto T833; |
goto T833; |
1548 |
T833:; |
T833:; |
1549 |
princ_char(125,VV[16]); |
princ_char(125,VV[16]); |
1550 |
{object V223 = (*(LnkLI63))(); |
{object V224 = (*(LnkLI63))(); |
1551 |
bds_unwind1; |
bds_unwind1; |
1552 |
bds_unwind1; |
bds_unwind1; |
1553 |
VMR16(V223)}} |
VMR16(V224)}} |
1554 |
base[0]=base[0]; |
base[0]=base[0]; |
1555 |
return Cnil; |
return Cnil; |
1556 |
} |
} |