8 |
|
|
9 |
register object V2; |
register object V2; |
10 |
{ VMB1 VMS1 VMV1 |
{ VMB1 VMS1 VMV1 |
11 |
goto TTL; |
goto TTL; |
12 |
TTL:; |
TTL:; |
13 |
{register object V3; |
{register object V3; |
14 |
object V4; |
object V4; |
18 |
goto T4;} |
goto T4;} |
19 |
if(!(endp_prop(cdr((V2))))){ |
if(!(endp_prop(cdr((V2))))){ |
20 |
goto T3;} |
goto T3;} |
21 |
goto T4; |
goto T4; |
22 |
T4:; |
T4:; |
23 |
V5 = make_fixnum((long)length((V2))); |
V5 = make_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(endp_prop(cddr((V2)))){ |
28 |
goto T8;} |
goto T8;} |
30 |
goto T8;} |
goto T8;} |
31 |
V6 = make_fixnum((long)length((V2))); |
V6 = make_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))(car((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))(cadr((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(!(endp_prop(cddr((V2))))){ |
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))(caddr((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)); |
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))(caddr((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); |
66 |
VMR1(V14)}}} |
VMR1(V14)}}} |
72 |
|
|
73 |
register object V16; |
register object V16; |
74 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
75 |
goto TTL; |
goto TTL; |
76 |
TTL:; |
TTL:; |
77 |
{register object V17; |
{register object V17; |
78 |
V17= Cnil; |
V17= Cnil; |
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= cdr((V16)); |
85 |
goto T33; |
goto T33; |
86 |
T33:; |
T33:; |
87 |
if(!(endp_prop((V19)))){ |
if(!(endp_prop((V19)))){ |
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))(car((V19))); |
94 |
{object V21= (V17); |
{object V21= (V17); |
95 |
if((V21!= Ct))goto T41; |
if((V21!= Ct))goto T41; |
96 |
goto T40; |
goto T40; |
97 |
goto T41; |
goto T41; |
98 |
T41:; |
T41:; |
99 |
if((V21!= Cnil))goto T42; |
if((V21!= Cnil))goto T42; |
100 |
{object V22 = Cnil; |
{object V22 = Cnil; |
101 |
VMR2(V22)} |
VMR2(V22)} |
102 |
goto T42; |
goto T42; |
103 |
T42:; |
T42:; |
104 |
if(!(endp_prop(cdr((V19))))){ |
if(!(endp_prop(cdr((V19))))){ |
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),cdr((V19))); |
111 |
VMR2(V24)}} |
VMR2(V24)}} |
112 |
goto T40; |
goto T40; |
113 |
T40:; |
T40:; |
114 |
V19= cdr((V19)); |
V19= cdr((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= cdr((V16)); |
121 |
goto T52; |
goto T52; |
122 |
T52:; |
T52:; |
123 |
if(!(endp_prop((V25)))){ |
if(!(endp_prop((V25)))){ |
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))(car((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; |
133 |
VMR2(V28)} |
VMR2(V28)} |
134 |
goto T60; |
goto T60; |
135 |
T60:; |
T60:; |
136 |
if((V27!= Cnil))goto T61; |
if((V27!= Cnil))goto T61; |
137 |
goto T59; |
goto T59; |
138 |
goto T61; |
goto T61; |
139 |
T61:; |
T61:; |
140 |
if(!(endp_prop(cdr((V25))))){ |
if(!(endp_prop(cdr((V25))))){ |
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),cdr((V25))); |
147 |
VMR2(V30)}} |
VMR2(V30)}} |
148 |
goto T59; |
goto T59; |
149 |
T59:; |
T59:; |
150 |
V25= cdr((V25)); |
V25= cdr((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(!(endp_prop(cdr((V16))))){ |
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(endp_prop(cddr((V16)))){ |
162 |
goto T72;} |
goto T72;} |
163 |
V31 = make_fixnum((long)length(cdr((V16)))); |
V31 = make_fixnum((long)length(cdr((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))(cadr((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; |
171 |
VMR2(V33)} |
VMR2(V33)} |
172 |
goto T77; |
goto T77; |
173 |
T77:; |
T77:; |
174 |
if((V32!= Cnil))goto T78; |
if((V32!= Cnil))goto T78; |
175 |
{object V34 = Ct; |
{object V34 = Ct; |
176 |
VMR2(V34)} |
VMR2(V34)} |
177 |
goto T78; |
goto T78; |
178 |
T78:; |
T78:; |
179 |
{object V35 = list(2,VV[3],(V17)); |
{object V35 = list(2,VV[3],(V17)); |
180 |
VMR2(V35)}} |
VMR2(V35)}} |
181 |
goto T68; |
goto T68; |
182 |
T68:; |
T68:; |
183 |
{object V36 = (V16); |
{object V36 = (V16); |
184 |
VMR2(V36)}} |
VMR2(V36)}} |
185 |
goto T28; |
goto T28; |
186 |
T28:; |
T28:; |
187 |
if(!(type_of((V16))==t_symbol)){ |
if(!(type_of((V16))==t_symbol)){ |
188 |
goto T80;} |
goto T80;} |
200 |
goto T87;} |
goto T87;} |
201 |
{object V37 = Ct; |
{object V37 = Ct; |
202 |
VMR2(V37)} |
VMR2(V37)} |
203 |
goto T87; |
goto T87; |
204 |
T87:; |
T87:; |
205 |
{object V38 = Cnil; |
{object V38 = Cnil; |
206 |
VMR2(V38)} |
VMR2(V38)} |
207 |
goto T83; |
goto T83; |
208 |
T83:; |
T83:; |
209 |
{object V39 = (V16); |
{object V39 = (V16); |
210 |
VMR2(V39)} |
VMR2(V39)} |
211 |
goto T80; |
goto T80; |
212 |
T80:; |
T80:; |
213 |
{object V40 = Ct; |
{object V40 = Ct; |
214 |
VMR2(V40)}} |
VMR2(V40)}} |
221 |
|
|
222 |
register object V43;register object V44; |
register object V43;register object V44; |
223 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
224 |
goto TTL; |
goto TTL; |
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= car((V43)); |
229 |
if((V45!= VV[1]))goto T93;switch((long)length(cdr((V43)))){ |
if((V45!= VV[1]))goto T93;switch((long)length(cdr((V43)))){ |
230 |
case 0: |
case 0: |
231 |
goto T95; |
goto T95; |
232 |
T95:; |
T95:; |
233 |
{object V46 = (*(LnkLI52))(); |
{object V46 = (*(LnkLI52))(); |
234 |
VMR3(V46)} |
VMR3(V46)} |
235 |
case 1: |
case 1: |
236 |
goto T96; |
goto T96; |
237 |
T96:; |
T96:; |
238 |
V43= cadr((V43)); |
V43= cadr((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= cdr((V43)); |
246 |
V47= Cnil; |
V47= Cnil; |
247 |
goto T102;} |
goto T102;} |
248 |
base[0]=V48=MMcons(Cnil,Cnil); |
base[0]=V48=MMcons(Cnil,Cnil); |
249 |
goto T103; |
goto T103; |
250 |
T103:; |
T103:; |
251 |
{register object V50; |
{register object V50; |
252 |
V50= (V49->c.c_car); |
V50= (V49->c.c_car); |
257 |
goto T102;} |
goto T102;} |
258 |
V48=MMcdr(V48)=MMcons(Cnil,Cnil); |
V48=MMcdr(V48)=MMcons(Cnil,Cnil); |
259 |
goto T103;} |
goto T103;} |
260 |
goto T102; |
goto T102; |
261 |
T102:; |
T102:; |
262 |
{object V51 = make_cons(VV[4],V47); |
{object V51 = make_cons(VV[4],V47); |
263 |
VMR3(V51)} |
VMR3(V51)} |
265 |
VMR3(V52)}} |
VMR3(V52)}} |
266 |
{object V53 = Cnil; |
{object V53 = Cnil; |
267 |
VMR3(V53)} |
VMR3(V53)} |
268 |
goto T93; |
goto T93; |
269 |
T93:; |
T93:; |
270 |
if((V45!= VV[2]))goto T105;switch((long)length(cdr((V43)))){ |
if((V45!= VV[2]))goto T105;switch((long)length(cdr((V43)))){ |
271 |
case 0: |
case 0: |
272 |
goto T107; |
goto T107; |
273 |
T107:; |
T107:; |
274 |
{object V54 = (*(LnkLI47))(); |
{object V54 = (*(LnkLI47))(); |
275 |
VMR3(V54)} |
VMR3(V54)} |
276 |
case 1: |
case 1: |
277 |
goto T108; |
goto T108; |
278 |
T108:; |
T108:; |
279 |
V43= cadr((V43)); |
V43= cadr((V43)); |
280 |
goto TTL; |
goto TTL; |
281 |
default: |
default: |
282 |
goto T109; |
goto T109; |
283 |
T109:; |
T109:; |
284 |
{object V56; |
{object V56; |
285 |
object V57= cdr((V43)); |
object V57= cdr((V43)); |
287 |
V55= Cnil; |
V55= Cnil; |
288 |
goto T114;} |
goto T114;} |
289 |
base[0]=V56=MMcons(Cnil,Cnil); |
base[0]=V56=MMcons(Cnil,Cnil); |
290 |
goto T115; |
goto T115; |
291 |
T115:; |
T115:; |
292 |
{register object V58; |
{register object V58; |
293 |
V58= (V57->c.c_car); |
V58= (V57->c.c_car); |
298 |
goto T114;} |
goto T114;} |
299 |
V56=MMcdr(V56)=MMcons(Cnil,Cnil); |
V56=MMcdr(V56)=MMcons(Cnil,Cnil); |
300 |
goto T115;} |
goto T115;} |
301 |
goto T114; |
goto T114; |
302 |
T114:; |
T114:; |
303 |
{object V59 = make_cons(VV[5],V55); |
{object V59 = make_cons(VV[5],V55); |
304 |
VMR3(V59)} |
VMR3(V59)} |
306 |
VMR3(V60)}} |
VMR3(V60)}} |
307 |
{object V61 = Cnil; |
{object V61 = Cnil; |
308 |
VMR3(V61)} |
VMR3(V61)} |
309 |
goto T105; |
goto T105; |
310 |
T105:; |
T105:; |
311 |
if((V45!= VV[3]) |
if((V45!= VV[3]) |
312 |
&& (V45!= VV[51]))goto T117; |
&& (V45!= VV[51]))goto T117; |
313 |
if(!(endp_prop(cdr((V43))))){ |
if(!(endp_prop(cdr((V43))))){ |
314 |
goto T118;} |
goto T118;} |
315 |
(void)((*(LnkLI43))(VV[3],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI43))(VV[3],small_fixnum(1),small_fixnum(0))); |
316 |
goto T118; |
goto T118; |
317 |
T118:; |
T118:; |
318 |
if(endp_prop(cddr((V43)))){ |
if(endp_prop(cddr((V43)))){ |
319 |
goto T121;} |
goto T121;} |
320 |
V62 = make_fixnum((long)length(cdr((V43)))); |
V62 = make_fixnum((long)length(cdr((V43)))); |
321 |
(void)((*(LnkLI44))(VV[3],small_fixnum(1),V62)); |
(void)((*(LnkLI44))(VV[3],small_fixnum(1),V62)); |
322 |
goto T121; |
goto T121; |
323 |
T121:; |
T121:; |
324 |
{object V63 = list(2,VV[6],(*(LnkLI49))(cadr((V43)),(V44))); |
{object V63 = list(2,VV[6],(*(LnkLI49))(cadr((V43)),(V44))); |
325 |
VMR3(V63)} |
VMR3(V63)} |
326 |
goto T117; |
goto T117; |
327 |
T117:; |
T117:; |
328 |
V64= list(3,VV[7],VV[8],(V43)); |
V64= list(3,VV[7],VV[8],(V43)); |
329 |
{object V65 = (*(LnkLI50))(/* INLINE-ARGS */V64,(V44)); |
{object V65 = (*(LnkLI50))(/* INLINE-ARGS */V64,(V44)); |
330 |
VMR3(V65)}} |
VMR3(V65)}} |
331 |
goto T91; |
goto T91; |
332 |
T91:; |
T91:; |
333 |
{object V66 = (*(LnkLI50))((V43),(V44)); |
{object V66 = (*(LnkLI50))((V43),(V44)); |
334 |
VMR3(V66)} |
VMR3(V66)} |
350 |
V68=(base[1]); |
V68=(base[1]); |
351 |
V69=(base[2]); |
V69=(base[2]); |
352 |
vs_top=sup; |
vs_top=sup; |
353 |
goto TTL; |
goto TTL; |
354 |
TTL:; |
TTL:; |
355 |
{register object V70; |
{register object V70; |
356 |
register object V71; |
register object V71; |
375 |
bds_unwind1;} |
bds_unwind1;} |
376 |
if((cdr((V70)))==Cnil){ |
if((cdr((V70)))==Cnil){ |
377 |
goto T139;} |
goto T139;} |
378 |
princ_str("\ngoto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
379 |
(void)((*(LnkLI54))(car((V70)))); |
(void)((*(LnkLI54))(car((V70)))); |
380 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
381 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
382 |
(void)((*(LnkLI54))(car((V70)))); |
(void)((*(LnkLI54))(car((V70)))); |
383 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
384 |
goto T139; |
goto T139; |
385 |
T139:; |
T139:; |
386 |
base[4]= (V68); |
base[4]= (V68); |
387 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
388 |
(void) (*Lnk55)(); |
(void) (*Lnk55)(); |
389 |
return; |
return; |
390 |
goto T128; |
goto T128; |
391 |
T128:; |
T128:; |
392 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
393 |
V71= make_cons(symbol_value(VV[9]),Cnil); |
V71= make_cons(symbol_value(VV[9]),Cnil); |
399 |
bds_unwind1; |
bds_unwind1; |
400 |
if((cdr((V70)))==Cnil){ |
if((cdr((V70)))==Cnil){ |
401 |
goto T155;} |
goto T155;} |
402 |
princ_str("\ngoto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
403 |
(void)((*(LnkLI54))(car((V70)))); |
(void)((*(LnkLI54))(car((V70)))); |
404 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
405 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
406 |
(void)((*(LnkLI54))(car((V70)))); |
(void)((*(LnkLI54))(car((V70)))); |
407 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
408 |
goto T155; |
goto T155; |
409 |
T155:; |
T155:; |
410 |
base[4]= make_cons(VV[17],symbol_value(VV[15])); |
base[4]= make_cons(VV[17],symbol_value(VV[15])); |
411 |
bds_bind(VV[15],base[4]); |
bds_bind(VV[15],base[4]); |
416 |
bds_unwind1; |
bds_unwind1; |
417 |
if((cdr((V71)))==Cnil){ |
if((cdr((V71)))==Cnil){ |
418 |
goto T168;} |
goto T168;} |
419 |
princ_str("\ngoto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
420 |
(void)((*(LnkLI54))(car((V71)))); |
(void)((*(LnkLI54))(car((V71)))); |
421 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
422 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
423 |
(void)((*(LnkLI54))(car((V71)))); |
(void)((*(LnkLI54))(car((V71)))); |
424 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
425 |
goto T168; |
goto T168; |
426 |
T168:; |
T168:; |
427 |
base[4]= (V69); |
base[4]= (V69); |
428 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
437 |
object V78;object V79;object V80; |
object V78;object V79;object V80; |
438 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
439 |
bds_check; |
bds_check; |
440 |
goto TTL; |
goto TTL; |
441 |
TTL:; |
TTL:; |
442 |
{object V81= car((V78)); |
{object V81= car((V78)); |
443 |
if((V81!= VV[4]))goto T179; |
if((V81!= VV[4]))goto T179; |
444 |
{register object V82; |
{register object V82; |
445 |
V82= cdr((V78)); |
V82= cdr((V78)); |
446 |
goto T182; |
goto T182; |
447 |
T182:; |
T182:; |
448 |
if(!(endp_prop(cdr((V82))))){ |
if(!(endp_prop(cdr((V82))))){ |
449 |
goto T183;} |
goto T183;} |
450 |
V78= car((V82)); |
V78= car((V82)); |
451 |
goto TTL; |
goto TTL; |
452 |
goto T183; |
goto T183; |
453 |
T183:; |
T183:; |
454 |
{register object V83; |
{register object V83; |
455 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
459 |
if((cdr((V83)))==Cnil){ |
if((cdr((V83)))==Cnil){ |
460 |
bds_unwind1; |
bds_unwind1; |
461 |
goto T191;} |
goto T191;} |
462 |
princ_str("\ngoto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
463 |
(void)((*(LnkLI54))(car((V83)))); |
(void)((*(LnkLI54))(car((V83)))); |
464 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
465 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
466 |
(void)((*(LnkLI54))(car((V83)))); |
(void)((*(LnkLI54))(car((V83)))); |
467 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
468 |
bds_unwind1;} |
bds_unwind1;} |
469 |
goto T191; |
goto T191; |
470 |
T191:; |
T191:; |
471 |
V82= cdr((V82)); |
V82= cdr((V82)); |
472 |
goto T182;} |
goto T182;} |
473 |
goto T179; |
goto T179; |
474 |
T179:; |
T179:; |
475 |
if((V81!= VV[5]))goto T208; |
if((V81!= VV[5]))goto T208; |
476 |
{register object V84; |
{register object V84; |
477 |
V84= cdr((V78)); |
V84= cdr((V78)); |
478 |
goto T211; |
goto T211; |
479 |
T211:; |
T211:; |
480 |
if(!(endp_prop(cdr((V84))))){ |
if(!(endp_prop(cdr((V84))))){ |
481 |
goto T212;} |
goto T212;} |
482 |
V78= car((V84)); |
V78= car((V84)); |
483 |
goto TTL; |
goto TTL; |
484 |
goto T212; |
goto T212; |
485 |
T212:; |
T212:; |
486 |
{register object V85; |
{register object V85; |
487 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
491 |
if((cdr((V85)))==Cnil){ |
if((cdr((V85)))==Cnil){ |
492 |
bds_unwind1; |
bds_unwind1; |
493 |
goto T220;} |
goto T220;} |
494 |
princ_str("\ngoto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
495 |
(void)((*(LnkLI54))(car((V85)))); |
(void)((*(LnkLI54))(car((V85)))); |
496 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
497 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
498 |
(void)((*(LnkLI54))(car((V85)))); |
(void)((*(LnkLI54))(car((V85)))); |
499 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
500 |
bds_unwind1;} |
bds_unwind1;} |
501 |
goto T220; |
goto T220; |
502 |
T220:; |
T220:; |
503 |
V84= cdr((V84)); |
V84= cdr((V84)); |
504 |
goto T211;} |
goto T211;} |
505 |
goto T208; |
goto T208; |
506 |
T208:; |
T208:; |
507 |
if((V81!= VV[6]))goto T237; |
if((V81!= VV[6]))goto T237; |
508 |
{object V86 = (*(LnkLI53))(cadr((V78)),(V80),(V79)); |
{object V86 = (*(LnkLI53))(cadr((V78)),(V80),(V79)); |
509 |
VMR5(V86)} |
VMR5(V86)} |
510 |
goto T237; |
goto T237; |
511 |
T237:; |
T237:; |
512 |
if((V81!= VV[10]))goto T238; |
if((V81!= VV[10]))goto T238; |
513 |
{object V87= caddr((V78)); |
{object V87= caddr((V78)); |
521 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
522 |
{object V88 = Cnil; |
{object V88 = Cnil; |
523 |
VMR5(V88)} |
VMR5(V88)} |
524 |
goto T239; |
goto T239; |
525 |
T239:; |
T239:; |
526 |
if((V87!= Cnil))goto T246; |
if((V87!= Cnil))goto T246; |
527 |
{object V89 = Cnil; |
{object V89 = Cnil; |
528 |
VMR5(V89)} |
VMR5(V89)} |
529 |
goto T246; |
goto T246; |
530 |
T246:; |
T246:; |
531 |
base[0]= list(2,VV[18],(V79)); |
base[0]= list(2,VV[18],(V79)); |
532 |
bds_bind(VV[11],base[0]); |
bds_bind(VV[11],base[0]); |
533 |
{object V90 = (*(LnkLI58))((V78)); |
{object V90 = (*(LnkLI58))((V78)); |
534 |
bds_unwind1; |
bds_unwind1; |
535 |
VMR5(V90)}} |
VMR5(V90)}} |
536 |
goto T238; |
goto T238; |
537 |
T238:; |
T238:; |
538 |
base[0]= list(2,VV[18],(V79)); |
base[0]= list(2,VV[18],(V79)); |
539 |
bds_bind(VV[11],base[0]); |
bds_bind(VV[11],base[0]); |
550 |
object V95;object V96;object V97; |
object V95;object V96;object V97; |
551 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
552 |
bds_check; |
bds_check; |
553 |
goto TTL; |
goto TTL; |
554 |
TTL:; |
TTL:; |
555 |
{object V98= car((V95)); |
{object V98= car((V95)); |
556 |
if((V98!= VV[4]))goto T249; |
if((V98!= VV[4]))goto T249; |
557 |
{register object V99; |
{register object V99; |
558 |
V99= cdr((V95)); |
V99= cdr((V95)); |
559 |
goto T252; |
goto T252; |
560 |
T252:; |
T252:; |
561 |
if(!(endp_prop(cdr((V99))))){ |
if(!(endp_prop(cdr((V99))))){ |
562 |
goto T253;} |
goto T253;} |
563 |
V95= car((V99)); |
V95= car((V99)); |
564 |
goto TTL; |
goto TTL; |
565 |
goto T253; |
goto T253; |
566 |
T253:; |
T253:; |
567 |
{register object V100; |
{register object V100; |
568 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
572 |
if((cdr((V100)))==Cnil){ |
if((cdr((V100)))==Cnil){ |
573 |
bds_unwind1; |
bds_unwind1; |
574 |
goto T261;} |
goto T261;} |
575 |
princ_str("\ngoto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
576 |
(void)((*(LnkLI54))(car((V100)))); |
(void)((*(LnkLI54))(car((V100)))); |
577 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
578 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
579 |
(void)((*(LnkLI54))(car((V100)))); |
(void)((*(LnkLI54))(car((V100)))); |
580 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
581 |
bds_unwind1;} |
bds_unwind1;} |
582 |
goto T261; |
goto T261; |
583 |
T261:; |
T261:; |
584 |
V99= cdr((V99)); |
V99= cdr((V99)); |
585 |
goto T252;} |
goto T252;} |
586 |
goto T249; |
goto T249; |
587 |
T249:; |
T249:; |
588 |
if((V98!= VV[5]))goto T278; |
if((V98!= VV[5]))goto T278; |
589 |
{register object V101; |
{register object V101; |
590 |
V101= cdr((V95)); |
V101= cdr((V95)); |
591 |
goto T281; |
goto T281; |
592 |
T281:; |
T281:; |
593 |
if(!(endp_prop(cdr((V101))))){ |
if(!(endp_prop(cdr((V101))))){ |
594 |
goto T282;} |
goto T282;} |
595 |
V95= car((V101)); |
V95= car((V101)); |
596 |
goto TTL; |
goto TTL; |
597 |
goto T282; |
goto T282; |
598 |
T282:; |
T282:; |
599 |
{register object V102; |
{register object V102; |
600 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
604 |
if((cdr((V102)))==Cnil){ |
if((cdr((V102)))==Cnil){ |
605 |
bds_unwind1; |
bds_unwind1; |
606 |
goto T290;} |
goto T290;} |
607 |
princ_str("\ngoto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
608 |
(void)((*(LnkLI54))(car((V102)))); |
(void)((*(LnkLI54))(car((V102)))); |
609 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
610 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
611 |
(void)((*(LnkLI54))(car((V102)))); |
(void)((*(LnkLI54))(car((V102)))); |
612 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
613 |
bds_unwind1;} |
bds_unwind1;} |
614 |
goto T290; |
goto T290; |
615 |
T290:; |
T290:; |
616 |
V101= cdr((V101)); |
V101= cdr((V101)); |
617 |
goto T281;} |
goto T281;} |
618 |
goto T278; |
goto T278; |
619 |
T278:; |
T278:; |
620 |
if((V98!= VV[6]))goto T307; |
if((V98!= VV[6]))goto T307; |
621 |
{object V103 = (*(LnkLI56))(cadr((V95)),(V97),(V96)); |
{object V103 = (*(LnkLI56))(cadr((V95)),(V97),(V96)); |
622 |
VMR6(V103)} |
VMR6(V103)} |
623 |
goto T307; |
goto T307; |
624 |
T307:; |
T307:; |
625 |
if((V98!= VV[10]))goto T308; |
if((V98!= VV[10]))goto T308; |
626 |
{object V104= caddr((V95)); |
{object V104= caddr((V95)); |
627 |
if((V104!= Ct))goto T309; |
if((V104!= Ct))goto T309; |
628 |
{object V105 = Cnil; |
{object V105 = Cnil; |
629 |
VMR6(V105)} |
VMR6(V105)} |
630 |
goto T309; |
goto T309; |
631 |
T309:; |
T309:; |
632 |
if((V104!= Cnil))goto T310; |
if((V104!= Cnil))goto T310; |
633 |
(void)((*(LnkLI57))((V97))); |
(void)((*(LnkLI57))((V97))); |
639 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
640 |
{object V106 = Cnil; |
{object V106 = Cnil; |
641 |
VMR6(V106)} |
VMR6(V106)} |
642 |
goto T310; |
goto T310; |
643 |
T310:; |
T310:; |
644 |
base[0]= list(2,VV[19],(V97)); |
base[0]= list(2,VV[19],(V97)); |
645 |
bds_bind(VV[11],base[0]); |
bds_bind(VV[11],base[0]); |
646 |
{object V107 = (*(LnkLI58))((V95)); |
{object V107 = (*(LnkLI58))((V95)); |
647 |
bds_unwind1; |
bds_unwind1; |
648 |
VMR6(V107)}} |
VMR6(V107)}} |
649 |
goto T308; |
goto T308; |
650 |
T308:; |
T308:; |
651 |
base[0]= list(2,VV[19],(V97)); |
base[0]= list(2,VV[19],(V97)); |
652 |
bds_bind(VV[11],base[0]); |
bds_bind(VV[11],base[0]); |
662 |
|
|
663 |
register object V110; |
register object V110; |
664 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
665 |
goto TTL; |
goto TTL; |
666 |
TTL:; |
TTL:; |
667 |
if(!(endp_prop((V110)))){ |
if(!(endp_prop((V110)))){ |
668 |
goto T320;} |
goto T320;} |
669 |
{object V111 = (*(LnkLI52))(); |
{object V111 = (*(LnkLI52))(); |
670 |
VMR7(V111)} |
VMR7(V111)} |
671 |
goto T320; |
goto T320; |
672 |
T320:; |
T320:; |
673 |
if(!(endp_prop(cdr((V110))))){ |
if(!(endp_prop(cdr((V110))))){ |
674 |
goto T323;} |
goto T323;} |
675 |
{object V112 = (*(LnkLI46))(car((V110))); |
{object V112 = (*(LnkLI46))(car((V110))); |
676 |
VMR7(V112)} |
VMR7(V112)} |
677 |
goto T323; |
goto T323; |
678 |
T323:; |
T323:; |
679 |
{object V113; |
{object V113; |
680 |
V113= (VFUN_NARGS=0,(*(LnkLI48))()); |
V113= (VFUN_NARGS=0,(*(LnkLI48))()); |
693 |
check_arg(1); |
check_arg(1); |
694 |
V115=(base[0]); |
V115=(base[0]); |
695 |
vs_top=sup; |
vs_top=sup; |
696 |
goto TTL; |
goto TTL; |
697 |
TTL:; |
TTL:; |
698 |
{register object V116; |
{register object V116; |
699 |
V116= (V115); |
V116= (V115); |
700 |
goto T327; |
goto T327; |
701 |
T327:; |
T327:; |
702 |
if(!(endp_prop(cdr((V116))))){ |
if(!(endp_prop(cdr((V116))))){ |
703 |
goto T328;} |
goto T328;} |
705 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
706 |
(void) (*Lnk55)(); |
(void) (*Lnk55)(); |
707 |
return; |
return; |
708 |
goto T328; |
goto T328; |
709 |
T328:; |
T328:; |
710 |
if(!((caar((V116)))==(VV[10]))){ |
if(!((caar((V116)))==(VV[10]))){ |
711 |
goto T335;} |
goto T335;} |
712 |
{object V117= caddar((V116)); |
{object V117= caddar((V116)); |
713 |
if((V117!= Ct))goto T337; |
if((V117!= Ct))goto T337; |
714 |
goto T333; |
goto T333; |
715 |
goto T337; |
goto T337; |
716 |
T337:; |
T337:; |
717 |
if((V117!= Cnil))goto T338; |
if((V117!= Cnil))goto T338; |
718 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
719 |
goto T333; |
goto T333; |
720 |
goto T338; |
goto T338; |
721 |
T338:; |
T338:; |
722 |
princ_str("\n if(",VV[16]); |
princ_str("\n if(",VV[16]); |
723 |
(void)((*(LnkLI54))(caddar((V116)))); |
(void)((*(LnkLI54))(caddar((V116)))); |
725 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
726 |
princ_char(125,VV[16]); |
princ_char(125,VV[16]); |
727 |
goto T333;} |
goto T333;} |
728 |
goto T335; |
goto T335; |
729 |
T335:; |
T335:; |
730 |
if(!((caar((V116)))==(VV[20]))){ |
if(!((caar((V116)))==(VV[20]))){ |
731 |
goto T346;} |
goto T346;} |
735 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
736 |
princ_char(125,VV[16]); |
princ_char(125,VV[16]); |
737 |
goto T333; |
goto T333; |
738 |
goto T346; |
goto T346; |
739 |
T346:; |
T346:; |
740 |
{register object V118; |
{register object V118; |
741 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
749 |
if((cdr((V118)))==Cnil){ |
if((cdr((V118)))==Cnil){ |
750 |
bds_unwind1; |
bds_unwind1; |
751 |
goto T333;} |
goto T333;} |
752 |
princ_str("\ngoto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
753 |
(void)((*(LnkLI54))(car((V118)))); |
(void)((*(LnkLI54))(car((V118)))); |
754 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
755 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
756 |
(void)((*(LnkLI54))(car((V118)))); |
(void)((*(LnkLI54))(car((V118)))); |
757 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
758 |
bds_unwind1;} |
bds_unwind1;} |
759 |
goto T333; |
goto T333; |
760 |
T333:; |
T333:; |
761 |
V116= cdr((V116)); |
V116= cdr((V116)); |
762 |
goto T327;} |
goto T327;} |
768 |
|
|
769 |
register object V121; |
register object V121; |
770 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
771 |
goto TTL; |
goto TTL; |
772 |
TTL:; |
TTL:; |
773 |
if(!(endp_prop((V121)))){ |
if(!(endp_prop((V121)))){ |
774 |
goto T374;} |
goto T374;} |
775 |
{object V122 = (*(LnkLI47))(); |
{object V122 = (*(LnkLI47))(); |
776 |
VMR9(V122)} |
VMR9(V122)} |
777 |
goto T374; |
goto T374; |
778 |
T374:; |
T374:; |
779 |
if(!(endp_prop(cdr((V121))))){ |
if(!(endp_prop(cdr((V121))))){ |
780 |
goto T377;} |
goto T377;} |
781 |
{object V123 = (*(LnkLI46))(car((V121))); |
{object V123 = (*(LnkLI46))(car((V121))); |
782 |
VMR9(V123)} |
VMR9(V123)} |
783 |
goto T377; |
goto T377; |
784 |
T377:; |
T377:; |
785 |
{object V124; |
{object V124; |
786 |
V124= (VFUN_NARGS=0,(*(LnkLI48))()); |
V124= (VFUN_NARGS=0,(*(LnkLI48))()); |
799 |
check_arg(1); |
check_arg(1); |
800 |
V126=(base[0]); |
V126=(base[0]); |
801 |
vs_top=sup; |
vs_top=sup; |
802 |
goto TTL; |
goto TTL; |
803 |
TTL:; |
TTL:; |
804 |
{object V127; |
{object V127; |
805 |
bds_bind(VV[21],symbol_value(VV[21])); |
bds_bind(VV[21],symbol_value(VV[21])); |
806 |
V127= Cnil; |
V127= Cnil; |
807 |
{register object V128; |
{register object V128; |
808 |
V128= (V126); |
V128= (V126); |
809 |
goto T382; |
goto T382; |
810 |
T382:; |
T382:; |
811 |
if(!(endp_prop(cdr((V128))))){ |
if(!(endp_prop(cdr((V128))))){ |
812 |
goto T383;} |
goto T383;} |
815 |
(void) (*Lnk55)(); |
(void) (*Lnk55)(); |
816 |
bds_unwind1; |
bds_unwind1; |
817 |
return; |
return; |
818 |
goto T383; |
goto T383; |
819 |
T383:; |
T383:; |
820 |
if(!((caar((V128)))==(VV[10]))){ |
if(!((caar((V128)))==(VV[10]))){ |
821 |
goto T390;} |
goto T390;} |
823 |
if((V129!= Ct))goto T392; |
if((V129!= Ct))goto T392; |
824 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17]))); |
825 |
goto T388; |
goto T388; |
826 |
goto T392; |
goto T392; |
827 |
T392:; |
T392:; |
828 |
if((V129!= Cnil))goto T393; |
if((V129!= Cnil))goto T393; |
829 |
goto T388; |
goto T388; |
830 |
goto T393; |
goto T393; |
831 |
T393:; |
T393:; |
832 |
princ_str("\n if(",VV[16]); |
princ_str("\n if(",VV[16]); |
833 |
(void)((*(LnkLI54))(caddar((V128)))); |
(void)((*(LnkLI54))(caddar((V128)))); |
835 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(caddar((V128)),VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(caddar((V128)),VV[17]))); |
836 |
princ_char(125,VV[16]); |
princ_char(125,VV[16]); |
837 |
goto T388;} |
goto T388;} |
838 |
goto T390; |
goto T390; |
839 |
T390:; |
T390:; |
840 |
if(!((caar((V128)))==(VV[20]))){ |
if(!((caar((V128)))==(VV[20]))){ |
841 |
goto T401;} |
goto T401;} |
846 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(/* INLINE-ARGS */V130,VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(/* INLINE-ARGS */V130,VV[17]))); |
847 |
princ_char(125,VV[16]); |
princ_char(125,VV[16]); |
848 |
goto T388; |
goto T388; |
849 |
goto T401; |
goto T401; |
850 |
T401:; |
T401:; |
851 |
if(!((caar((V128)))==(VV[22]))){ |
if(!((caar((V128)))==(VV[22]))){ |
852 |
goto T411;} |
goto T411;} |
864 |
if((cdr((V131)))==Cnil){ |
if((cdr((V131)))==Cnil){ |
865 |
bds_unwind1; |
bds_unwind1; |
866 |
goto T388;} |
goto T388;} |
867 |
princ_str("\ngoto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
868 |
(void)((*(LnkLI54))(car((V131)))); |
(void)((*(LnkLI54))(car((V131)))); |
869 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
870 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
872 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
873 |
bds_unwind1; |
bds_unwind1; |
874 |
goto T388;} |
goto T388;} |
875 |
goto T411; |
goto T411; |
876 |
T411:; |
T411:; |
877 |
{register object V133; |
{register object V133; |
878 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
894 |
(void)((VFUN_NARGS=2,(*(LnkLI60))((V127),VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))((V127),VV[17]))); |
895 |
if((cdr((V133)))==Cnil){ |
if((cdr((V133)))==Cnil){ |
896 |
goto T446;} |
goto T446;} |
897 |
princ_str("\ngoto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
898 |
(void)((*(LnkLI54))(car((V133)))); |
(void)((*(LnkLI54))(car((V133)))); |
899 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
900 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
901 |
(void)((*(LnkLI54))(car((V133)))); |
(void)((*(LnkLI54))(car((V133)))); |
902 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
903 |
goto T446; |
goto T446; |
904 |
T446:; |
T446:; |
905 |
V135= (*(LnkLI63))(); |
V135= (*(LnkLI63))(); |
906 |
bds_unwind1; |
bds_unwind1; |
907 |
bds_unwind1;} |
bds_unwind1;} |
908 |
goto T388; |
goto T388; |
909 |
T388:; |
T388:; |
910 |
V128= cdr((V128)); |
V128= cdr((V128)); |
911 |
goto T382;}} |
goto T382;}} |
917 |
|
|
918 |
register object V138;object V139; |
register object V138;object V139; |
919 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
920 |
goto TTL; |
goto TTL; |
921 |
TTL:; |
TTL:; |
922 |
if(((V138))==Cnil){ |
if(((V138))==Cnil){ |
923 |
goto T460;} |
goto T460;} |
926 |
if(((V140))==Cnil){ |
if(((V140))==Cnil){ |
927 |
goto T465;} |
goto T465;} |
928 |
goto T462; |
goto T462; |
929 |
goto T465; |
goto T465; |
930 |
T465:; |
T465:; |
931 |
if(!(type_of((V138))==t_cons)){ |
if(!(type_of((V138))==t_cons)){ |
932 |
goto T468;} |
goto T468;} |
940 |
vs_top=sup; |
vs_top=sup; |
941 |
princ_char(41,VV[16]); |
princ_char(41,VV[16]); |
942 |
goto T462; |
goto T462; |
943 |
goto T468; |
goto T468; |
944 |
T468:; |
T468:; |
945 |
princ_str("\n if((",VV[16]); |
princ_str("\n if((",VV[16]); |
946 |
(void)((*(LnkLI54))((V138))); |
(void)((*(LnkLI54))((V138))); |
947 |
princ_str(")!=Cnil)",VV[16]);} |
princ_str(")!=Cnil)",VV[16]);} |
948 |
goto T462; |
goto T462; |
949 |
T462:; |
T462:; |
950 |
if(((V138))==(Ct)){ |
if(((V138))==(Ct)){ |
951 |
goto T481;} |
goto T481;} |
952 |
princ_char(123,VV[16]); |
princ_char(123,VV[16]); |
953 |
goto T481; |
goto T481; |
954 |
T481:; |
T481:; |
955 |
(void)((*(LnkLI57))((V139))); |
(void)((*(LnkLI57))((V139))); |
956 |
princ_str("\n ",VV[16]); |
princ_str("\n ",VV[16]); |
964 |
princ_char(125,VV[16]); |
princ_char(125,VV[16]); |
965 |
{object V141 = Cnil; |
{object V141 = Cnil; |
966 |
VMR11(V141)} |
VMR11(V141)} |
967 |
goto T493; |
goto T493; |
968 |
T493:; |
T493:; |
969 |
{object V142 = Cnil; |
{object V142 = Cnil; |
970 |
VMR11(V142)} |
VMR11(V142)} |
971 |
goto T460; |
goto T460; |
972 |
T460:; |
T460:; |
973 |
{object V143 = Cnil; |
{object V143 = Cnil; |
974 |
VMR11(V143)} |
VMR11(V143)} |
981 |
|
|
982 |
register object V146;object V147; |
register object V146;object V147; |
983 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
984 |
goto TTL; |
goto TTL; |
985 |
TTL:; |
TTL:; |
986 |
if(((V146))==(Ct)){ |
if(((V146))==(Ct)){ |
987 |
goto T497;} |
goto T497;} |
990 |
if(((V148))==Cnil){ |
if(((V148))==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((V146))==t_cons)){ |
996 |
goto T505;} |
goto T505;} |
1004 |
vs_top=sup; |
vs_top=sup; |
1005 |
princ_str("))",VV[16]); |
princ_str("))",VV[16]); |
1006 |
goto T499; |
goto T499; |
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))((V146))); |
1011 |
princ_str(")==Cnil)",VV[16]);} |
princ_str(")==Cnil)",VV[16]);} |
1012 |
goto T499; |
goto T499; |
1013 |
T499:; |
T499:; |
1014 |
if(((V146))==Cnil){ |
if(((V146))==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))((V147))); |
1020 |
princ_str("\n ",VV[16]); |
princ_str("\n ",VV[16]); |
1028 |
princ_char(125,VV[16]); |
princ_char(125,VV[16]); |
1029 |
{object V149 = Cnil; |
{object V149 = Cnil; |
1030 |
VMR12(V149)} |
VMR12(V149)} |
1031 |
goto T530; |
goto T530; |
1032 |
T530:; |
T530:; |
1033 |
{object V150 = Cnil; |
{object V150 = Cnil; |
1034 |
VMR12(V150)} |
VMR12(V150)} |
1035 |
goto T497; |
goto T497; |
1036 |
T497:; |
T497:; |
1037 |
{object V151 = Cnil; |
{object V151 = Cnil; |
1038 |
VMR12(V151)} |
VMR12(V151)} |
1045 |
|
|
1046 |
object V153; |
object V153; |
1047 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
1048 |
goto TTL; |
goto TTL; |
1049 |
TTL:; |
TTL:; |
1050 |
{object V154 = (VFUN_NARGS=2,(*(LnkLI65))((V153),Ct)); |
{object V154 = (VFUN_NARGS=2,(*(LnkLI65))((V153),Ct)); |
1051 |
VMR13(V154)} |
VMR13(V154)} |
1057 |
|
|
1058 |
object V157;object V158; |
object V157;object V158; |
1059 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1060 |
goto TTL; |
goto TTL; |
1061 |
TTL:; |
TTL:; |
1062 |
{object V159; |
{object V159; |
1063 |
register object V160; |
register object V160; |
1072 |
register object V163; |
register object V163; |
1073 |
V162= cdr((V157)); |
V162= cdr((V157)); |
1074 |
V163= car((V162)); |
V163= car((V162)); |
1075 |
goto T538; |
goto T538; |
1076 |
T538:; |
T538:; |
1077 |
if(!(endp_prop((V162)))){ |
if(!(endp_prop((V162)))){ |
1078 |
goto T539;} |
goto T539;} |
1079 |
goto T534; |
goto T534; |
1080 |
goto T539; |
goto T539; |
1081 |
T539:; |
T539:; |
1082 |
if(!(type_of(car((V163)))==t_fixnum)){ |
if(!(type_of(car((V163)))==t_fixnum)){ |
1083 |
goto T545;} |
goto T545;} |
1085 |
V164= car((V163)); |
V164= car((V163)); |
1086 |
V160= make_cons((V164),(V160)); |
V160= make_cons((V164),(V160)); |
1087 |
goto T543;} |
goto T543;} |
1088 |
goto T545; |
goto T545; |
1089 |
T545:; |
T545:; |
1090 |
if(!(type_of(car((V163)))==t_cons)){ |
if(!(type_of(car((V163)))==t_cons)){ |
1091 |
goto T550;} |
goto T550;} |
1093 |
register object V166; |
register object V166; |
1094 |
V165= car((V163)); |
V165= car((V163)); |
1095 |
V166= car((V165)); |
V166= car((V165)); |
1096 |
goto T555; |
goto T555; |
1097 |
T555:; |
T555:; |
1098 |
if(!(endp_prop((V165)))){ |
if(!(endp_prop((V165)))){ |
1099 |
goto T556;} |
goto T556;} |
1100 |
goto T543; |
goto T543; |
1101 |
goto T556; |
goto T556; |
1102 |
T556:; |
T556:; |
1103 |
V160= make_cons(V166,(V160)); |
V160= make_cons(V166,(V160)); |
1104 |
V165= cdr((V165)); |
V165= cdr((V165)); |
1105 |
V166= car((V165)); |
V166= car((V165)); |
1106 |
goto T555;} |
goto T555;} |
1107 |
goto T550; |
goto T550; |
1108 |
T550:; |
T550:; |
1109 |
{register object x= car((V163)),V168= VV[26]; |
{register object x= car((V163)),V168= VV[26]; |
1110 |
while(!endp(V168)) |
while(!endp(V168)) |
1112 |
goto T568; |
goto T568; |
1113 |
}else V168=V168->c.c_cdr; |
}else V168=V168->c.c_cdr; |
1114 |
goto T543;} |
goto T543;} |
1115 |
goto T568; |
goto T568; |
1116 |
T568:; |
T568:; |
1117 |
if((V158)==Cnil){ |
if((V158)==Cnil){ |
1118 |
goto T569;} |
goto T569;} |
1120 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1121 |
(void) (*Lnk66)(); |
(void) (*Lnk66)(); |
1122 |
vs_top=sup; |
vs_top=sup; |
1123 |
goto T569; |
goto T569; |
1124 |
T569:; |
T569:; |
1125 |
V160= make_cons(Ct,(V160)); |
V160= make_cons(Ct,(V160)); |
1126 |
goto T543; |
goto T543; |
1127 |
T543:; |
T543:; |
1128 |
{object V170; |
{object V170; |
1129 |
V170= list(3,VV[28],(V159),make_cons(VV[29],cdr((V163)))); |
V170= list(3,VV[28],(V159),make_cons(VV[29],cdr((V163)))); |
1131 |
V162= cdr((V162)); |
V162= cdr((V162)); |
1132 |
V163= car((V162)); |
V163= car((V162)); |
1133 |
goto T538;} |
goto T538;} |
1134 |
goto T534; |
goto T534; |
1135 |
T534:; |
T534:; |
1136 |
if(((V158))==Cnil){ |
if(((V158))==Cnil){ |
1137 |
goto T580;} |
goto T580;} |
1140 |
object V173; |
object V173; |
1141 |
V172= cdr((V157)); |
V172= cdr((V157)); |
1142 |
V173= car((V172)); |
V173= car((V172)); |
1143 |
goto T589; |
goto T589; |
1144 |
T589:; |
T589:; |
1145 |
if(!(endp_prop((V172)))){ |
if(!(endp_prop((V172)))){ |
1146 |
goto T590;} |
goto T590;} |
1147 |
goto T585; |
goto T585; |
1148 |
goto T590; |
goto T590; |
1149 |
T590:; |
T590:; |
1150 |
if(!(type_of(car((V173)))!=t_cons)){ |
if(!(type_of(car((V173)))!=t_cons)){ |
1151 |
goto T596;} |
goto T596;} |
1153 |
V174= car((V173)); |
V174= car((V173)); |
1154 |
V161= make_cons((V174),(V161)); |
V161= make_cons((V174),(V161)); |
1155 |
goto T594;} |
goto T594;} |
1156 |
goto T596; |
goto T596; |
1157 |
T596:; |
T596:; |
1158 |
V161= append(car((V173)),(V161)); |
V161= append(car((V173)),(V161)); |
1159 |
goto T594; |
goto T594; |
1160 |
T594:; |
T594:; |
1161 |
V172= cdr((V172)); |
V172= cdr((V172)); |
1162 |
V173= car((V172)); |
V173= car((V172)); |
1163 |
goto T589;} |
goto T589;} |
1164 |
goto T585; |
goto T585; |
1165 |
T585:; |
T585:; |
1166 |
{object V175; |
{object V175; |
1167 |
V176= car((V157)); |
V176= car((V157)); |
1168 |
V175= list(4,VV[30],VV[31],/* INLINE-ARGS */V176,list(2,VV[32],(V161))); |
V175= list(4,VV[30],VV[31],/* INLINE-ARGS */V176,list(2,VV[32],(V161))); |
1169 |
V160= make_cons((V175),(V160));} |
V160= make_cons((V175),(V160));} |
1170 |
goto T580; |
goto T580; |
1171 |
T580:; |
T580:; |
1172 |
V177= car((V157)); |
V177= car((V157)); |
1173 |
{object V178 = list(3,VV[33],(V159),listA(3,VV[34],/* INLINE-ARGS */V177,nreverse((V160)))); |
{object V178 = list(3,VV[33],(V159),listA(3,VV[34],/* INLINE-ARGS */V177,nreverse((V160)))); |
1192 |
else { |
else { |
1193 |
V181= first;} |
V181= first;} |
1194 |
--narg; goto T609; |
--narg; goto T609; |
1195 |
goto T608; |
goto T608; |
1196 |
T608:; |
T608:; |
1197 |
V181= Cnil; |
V181= Cnil; |
1198 |
goto T609; |
goto T609; |
1199 |
T609:; |
T609:; |
1200 |
if(!(endp_prop((V180)))){ |
if(!(endp_prop((V180)))){ |
1201 |
goto T611;} |
goto T611;} |
1202 |
(void)((*(LnkLI43))(VV[35],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI43))(VV[35],small_fixnum(1),small_fixnum(0))); |
1203 |
goto T611; |
goto T611; |
1204 |
T611:; |
T611:; |
1205 |
{register object V182; |
{register object V182; |
1206 |
object V183; |
object V183; |
1218 |
V185= (*(LnkLI68))((V180),(V181)); |
V185= (*(LnkLI68))((V180),(V181)); |
1219 |
{object V186 = (*(LnkLI46))(/* INLINE-ARGS */V185); |
{object V186 = (*(LnkLI46))(/* INLINE-ARGS */V185); |
1220 |
VMR15(V186)} |
VMR15(V186)} |
1221 |
goto T617; |
goto T617; |
1222 |
T617:; |
T617:; |
1223 |
{register object V187; |
{register object V187; |
1224 |
register object V188; |
register object V188; |
1225 |
V187= cdr((V180)); |
V187= cdr((V180)); |
1226 |
V188= car((V187)); |
V188= car((V187)); |
1227 |
goto T626; |
goto T626; |
1228 |
T626:; |
T626:; |
1229 |
if(!(endp_prop((V187)))){ |
if(!(endp_prop((V187)))){ |
1230 |
goto T627;} |
goto T627;} |
1231 |
goto T622; |
goto T622; |
1232 |
goto T627; |
goto T627; |
1233 |
T627:; |
T627:; |
1234 |
if(!(endp_prop((V188)))){ |
if(!(endp_prop((V188)))){ |
1235 |
goto T631;} |
goto T631;} |
1236 |
(void)((VFUN_NARGS=2,(*(LnkLI69))(VV[38],(V188)))); |
(void)((VFUN_NARGS=2,(*(LnkLI69))(VV[38],(V188)))); |
1237 |
goto T631; |
goto T631; |
1238 |
T631:; |
T631:; |
1239 |
{object V189= car((V188)); |
{object V189= car((V188)); |
1240 |
if((V189!= Cnil))goto T635; |
if((V189!= Cnil))goto T635; |
1241 |
goto T634; |
goto T634; |
1242 |
goto T635; |
goto T635; |
1243 |
T635:; |
T635:; |
1244 |
if((V189!= Ct) |
if((V189!= Ct) |
1245 |
&& (V189!= VV[70]))goto T636; |
&& (V189!= VV[70]))goto T636; |
1249 |
goto T642;} |
goto T642;} |
1250 |
V190= VV[39]; |
V190= VV[39]; |
1251 |
goto T640; |
goto T640; |
1252 |
goto T642; |
goto T642; |
1253 |
T642:; |
T642:; |
1254 |
V190= VV[40]; |
V190= VV[40]; |
1255 |
goto T640; |
goto T640; |
1256 |
T640:; |
T640:; |
1257 |
(void)((VFUN_NARGS=1,(*(LnkLI69))(V190))); |
(void)((VFUN_NARGS=1,(*(LnkLI69))(V190))); |
1258 |
goto T637; |
goto T637; |
1259 |
T637:; |
T637:; |
1260 |
V181= (*(LnkLI71))(cdr((V188))); |
V181= (*(LnkLI71))(cdr((V188))); |
1261 |
(void)((*(LnkLI72))((V182),cadr((V181)))); |
(void)((*(LnkLI72))((V182),cadr((V181)))); |
1262 |
goto T634; |
goto T634; |
1263 |
goto T636; |
goto T636; |
1264 |
T636:; |
T636:; |
1265 |
{object V191; |
{object V191; |
1266 |
register object V192; |
register object V192; |
1272 |
V191= Cnil; |
V191= Cnil; |
1273 |
goto T646;} |
goto T646;} |
1274 |
base[6]=V193=MMcons(Cnil,Cnil); |
base[6]=V193=MMcons(Cnil,Cnil); |
1275 |
goto T650; |
goto T650; |
1276 |
T650:; |
T650:; |
1277 |
{register object V195; |
{register object V195; |
1278 |
V195= (V194->c.c_car); |
V195= (V194->c.c_car); |
1280 |
goto T653;} |
goto T653;} |
1281 |
(V193->c.c_car)= (V195); |
(V193->c.c_car)= (V195); |
1282 |
goto T651; |
goto T651; |
1283 |
goto T653; |
goto T653; |
1284 |
T653:; |
T653:; |
1285 |
(V193->c.c_car)= (*(LnkLI73))((V195));} |
(V193->c.c_car)= (*(LnkLI73))((V195));} |
1286 |
goto T651; |
goto T651; |
1287 |
T651:; |
T651:; |
1288 |
V194=MMcdr(V194); |
V194=MMcdr(V194); |
1289 |
if(endp(V194)){ |
if(endp(V194)){ |
1291 |
goto T646;} |
goto T646;} |
1292 |
V193=MMcdr(V193)=MMcons(Cnil,Cnil); |
V193=MMcdr(V193)=MMcons(Cnil,Cnil); |
1293 |
goto T650;} |
goto T650;} |
1294 |
goto T648; |
goto T648; |
1295 |
T648:; |
T648:; |
1296 |
if(!(type_of(car((V188)))==t_symbol)){ |
if(!(type_of(car((V188)))==t_symbol)){ |
1297 |
goto T656;} |
goto T656;} |
1298 |
V191= make_cons(car((V188)),Cnil); |
V191= make_cons(car((V188)),Cnil); |
1299 |
goto T646; |
goto T646; |
1300 |
goto T656; |
goto T656; |
1301 |
T656:; |
T656:; |
1302 |
V196= (*(LnkLI73))(car((V188))); |
V196= (*(LnkLI73))(car((V188))); |
1303 |
V191= make_cons(/* INLINE-ARGS */V196,Cnil); |
V191= make_cons(/* INLINE-ARGS */V196,Cnil); |
1304 |
goto T646; |
goto T646; |
1305 |
T646:; |
T646:; |
1306 |
V192= (*(LnkLI71))(cdr((V188))); |
V192= (*(LnkLI71))(cdr((V188))); |
1307 |
(void)((*(LnkLI72))((V182),cadr((V192)))); |
(void)((*(LnkLI72))((V182),cadr((V192)))); |
1308 |
{object V197; |
{object V197; |
1309 |
V197= make_cons((V191),(V192)); |
V197= make_cons((V191),(V192)); |
1310 |
V184= make_cons((V197),(V184));}}} |
V184= make_cons((V197),(V184));}}} |
1311 |
goto T634; |
goto T634; |
1312 |
T634:; |
T634:; |
1313 |
V187= cdr((V187)); |
V187= cdr((V187)); |
1314 |
V188= car((V187)); |
V188= car((V187)); |
1315 |
goto T626;} |
goto T626;} |
1316 |
goto T622; |
goto T622; |
1317 |
T622:; |
T622:; |
1318 |
V198= reverse((V184)); |
V198= reverse((V184)); |
1319 |
if((V181)!=Cnil){ |
if((V181)!=Cnil){ |
1320 |
V199= (V181); |
V199= (V181); |
1321 |
goto T667;} |
goto T667;} |
1322 |
V199= (*(LnkLI47))(); |
V199= (*(LnkLI47))(); |
1323 |
goto T667; |
goto T667; |
1324 |
T667:; |
T667:; |
1325 |
{object V200 = list(5,VV[35],(V182),(V183),/* INLINE-ARGS */V198,V199); |
{object V200 = list(5,VV[35],(V182),(V183),/* INLINE-ARGS */V198,V199); |
1326 |
VMR15(V200)}} |
VMR15(V200)}} |
1335 |
object V204;object V205;object V206; |
object V204;object V205;object V206; |
1336 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
1337 |
bds_check; |
bds_check; |
1338 |
goto TTL; |
goto TTL; |
1339 |
TTL:; |
TTL:; |
1340 |
{register object V207; |
{register object V207; |
1341 |
setq(VV[41],number_plus(symbol_value(VV[41]),small_fixnum(1))); |
setq(VV[41],number_plus(symbol_value(VV[41]),small_fixnum(1))); |
1354 |
object V211; |
object V211; |
1355 |
V210= (V205); |
V210= (V205); |
1356 |
V211= car((V210)); |
V211= car((V210)); |
1357 |
goto T682; |
goto T682; |
1358 |
T682:; |
T682:; |
1359 |
if(!(endp_prop((V210)))){ |
if(!(endp_prop((V210)))){ |
1360 |
goto T683;} |
goto T683;} |
1361 |
goto T678; |
goto T678; |
1362 |
goto T683; |
goto T683; |
1363 |
T683:; |
T683:; |
1364 |
{object V212; |
{object V212; |
1365 |
register object V213; |
register object V213; |
1368 |
V212= make_cons(symbol_value(VV[9]),Cnil); |
V212= make_cons(symbol_value(VV[9]),Cnil); |
1369 |
V213= car((V211)); |
V213= car((V211)); |
1370 |
V214= Cnil; |
V214= Cnil; |
1371 |
goto T694; |
goto T694; |
1372 |
T694:; |
T694:; |
1373 |
if(!(((long)length((V213)))<=(5))){ |
if(!(((long)length((V213)))<=(5))){ |
1374 |
goto T695;} |
goto T695;} |
1375 |
goto T692; |
goto T692; |
1376 |
goto T695; |
goto T695; |
1377 |
T695:; |
T695:; |
1378 |
if(((V214))!=Cnil){ |
if(((V214))!=Cnil){ |
1379 |
goto T699;} |
goto T699;} |
1380 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
1381 |
V214= make_cons(symbol_value(VV[9]),Cnil); |
V214= make_cons(symbol_value(VV[9]),Cnil); |
1382 |
goto T699; |
goto T699; |
1383 |
T699:; |
T699:; |
1384 |
princ_str("\n if(",VV[16]); |
princ_str("\n if(",VV[16]); |
1385 |
{register object V216; |
{register object V216; |
1386 |
V216= small_fixnum(0); |
V216= small_fixnum(0); |
1387 |
goto T709; |
goto T709; |
1388 |
T709:; |
T709:; |
1389 |
if(!(number_compare((V216),small_fixnum(5))>=0)){ |
if(!(number_compare((V216),small_fixnum(5))>=0)){ |
1390 |
goto T710;} |
goto T710;} |
1391 |
goto T706; |
goto T706; |
1392 |
goto T710; |
goto T710; |
1393 |
T710:; |
T710:; |
1394 |
if(!(type_of(car((V213)))==t_symbol)){ |
if(!(type_of(car((V213)))==t_symbol)){ |
1395 |
goto T716;} |
goto T716;} |
1400 |
if((V217!= Ct))goto T723; |
if((V217!= Ct))goto T723; |
1401 |
princ_str("Ct",VV[16]); |
princ_str("Ct",VV[16]); |
1402 |
goto T722; |
goto T722; |
1403 |
goto T723; |
goto T723; |
1404 |
T723:; |
T723:; |
1405 |
if((V217!= Cnil))goto T725; |
if((V217!= Cnil))goto T725; |
1406 |
princ_str("Cnil",VV[16]); |
princ_str("Cnil",VV[16]); |
1407 |
goto T722; |
goto T722; |
1408 |
goto T725; |
goto T725; |
1409 |
T725:; |
T725:; |
1410 |
princ_str("VV[",VV[16]); |
princ_str("VV[",VV[16]); |
1411 |
V218= (*(LnkLI75))(car((V213))); |
V218= (*(LnkLI75))(car((V213))); |
1412 |
(void)((*(LnkLI54))(/* INLINE-ARGS */V218)); |
(void)((*(LnkLI54))(/* INLINE-ARGS */V218)); |
1413 |
princ_char(93,VV[16]);} |
princ_char(93,VV[16]);} |
1414 |
goto T722; |
goto T722; |
1415 |
T722:; |
T722:; |
1416 |
princ_char(41,VV[16]); |
princ_char(41,VV[16]); |
1417 |
goto T714; |
goto T714; |
1418 |
goto T716; |
goto T716; |
1419 |
T716:; |
T716:; |
1420 |
princ_str("eql(V",VV[16]); |
princ_str("eql(V",VV[16]); |
1421 |
(void)((*(LnkLI54))((V207))); |
(void)((*(LnkLI54))((V207))); |
1422 |
princ_str(",VV[",VV[16]); |
princ_str(",VV[",VV[16]); |
1423 |
(void)((*(LnkLI54))(car((V213)))); |
(void)((*(LnkLI54))(car((V213)))); |
1424 |
princ_str("])",VV[16]); |
princ_str("])",VV[16]); |
1425 |
goto T714; |
goto T714; |
1426 |
T714:; |
T714:; |
1427 |
if(!(number_compare((V216),small_fixnum(4))<0)){ |
if(!(number_compare((V216),small_fixnum(4))<0)){ |
1428 |
goto T736;} |
goto T736;} |
1429 |
princ_str("\n || ",VV[16]); |
princ_str("\n || ",VV[16]); |
1430 |
goto T736; |
goto T736; |
1431 |
T736:; |
T736:; |
1432 |
{object V219; |
{object V219; |
1433 |
V219= car((V213)); |
V219= car((V213)); |
1434 |
V213= cdr((V213));} |
V213= cdr((V213));} |
1435 |
V216= one_plus((V216)); |
V216= one_plus((V216)); |
1436 |
goto T709;} |
goto T709;} |
1437 |
goto T706; |
goto T706; |
1438 |
T706:; |
T706:; |
1439 |
princ_char(41,VV[16]); |
princ_char(41,VV[16]); |
1440 |
if(type_of((V214))!=t_cons)FEwrong_type_argument(Scons,(V214)); |
if(type_of((V214))!=t_cons)FEwrong_type_argument(Scons,(V214)); |
1443 |
(void)((*(LnkLI54))(car((V214)))); |
(void)((*(LnkLI54))(car((V214)))); |
1444 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
1445 |
goto T694; |
goto T694; |
1446 |
goto T692; |
goto T692; |
1447 |
T692:; |
T692:; |
1448 |
princ_str("\n if(",VV[16]); |
princ_str("\n if(",VV[16]); |
1449 |
goto T760; |
goto T760; |
1450 |
T760:; |
T760:; |
1451 |
if(!(endp_prop((V213)))){ |
if(!(endp_prop((V213)))){ |
1452 |
goto T761;} |
goto T761;} |
1453 |
goto T758; |
goto T758; |
1454 |
goto T761; |
goto T761; |
1455 |
T761:; |
T761:; |
1456 |
if(!(type_of(car((V213)))==t_symbol)){ |
if(!(type_of(car((V213)))==t_symbol)){ |
1457 |
goto T767;} |
goto T767;} |
1462 |
if((V220!= Ct))goto T774; |
if((V220!= Ct))goto T774; |
1463 |
princ_str("Ct",VV[16]); |
princ_str("Ct",VV[16]); |
1464 |
goto T773; |
goto T773; |
1465 |
goto T774; |
goto T774; |
1466 |
T774:; |
T774:; |
1467 |
if((V220!= Cnil))goto T776; |
if((V220!= Cnil))goto T776; |
1468 |
princ_str("Cnil",VV[16]); |
princ_str("Cnil",VV[16]); |
1469 |
goto T773; |
goto T773; |
1470 |
goto T776; |
goto T776; |
1471 |
T776:; |
T776:; |
1472 |
princ_str("VV[",VV[16]); |
princ_str("VV[",VV[16]); |
1473 |
V221= (*(LnkLI75))(car((V213))); |
V221= (*(LnkLI75))(car((V213))); |
1474 |
(void)((*(LnkLI54))(/* INLINE-ARGS */V221)); |
(void)((*(LnkLI54))(/* INLINE-ARGS */V221)); |
1475 |
princ_char(93,VV[16]);} |
princ_char(93,VV[16]);} |
1476 |
goto T773; |
goto T773; |
1477 |
T773:; |
T773:; |
1478 |
princ_char(41,VV[16]); |
princ_char(41,VV[16]); |
1479 |
goto T765; |
goto T765; |
1480 |
goto T767; |
goto T767; |
1481 |
T767:; |
T767:; |
1482 |
princ_str("!eql(V",VV[16]); |
princ_str("!eql(V",VV[16]); |
1483 |
(void)((*(LnkLI54))((V207))); |
(void)((*(LnkLI54))((V207))); |
1484 |
princ_str(",VV[",VV[16]); |
princ_str(",VV[",VV[16]); |
1485 |
(void)((*(LnkLI54))(car((V213)))); |
(void)((*(LnkLI54))(car((V213)))); |
1486 |
princ_str("])",VV[16]); |
princ_str("])",VV[16]); |
1487 |
goto T765; |
goto T765; |
1488 |
T765:; |
T765:; |
1489 |
if(endp_prop(cdr((V213)))){ |
if(endp_prop(cdr((V213)))){ |
1490 |
goto T787;} |
goto T787;} |
1491 |
princ_str("\n && ",VV[16]); |
princ_str("\n && ",VV[16]); |
1492 |
goto T787; |
goto T787; |
1493 |
T787:; |
T787:; |
1494 |
{object V222; |
{object V222; |
1495 |
V222= car((V213)); |
V222= car((V213)); |
1496 |
V213= cdr((V213));} |
V213= cdr((V213));} |
1497 |
goto T760; |
goto T760; |
1498 |
goto T758; |
goto T758; |
1499 |
T758:; |
T758:; |
1500 |
princ_char(41,VV[16]); |
princ_char(41,VV[16]); |
1501 |
if(type_of((V212))!=t_cons)FEwrong_type_argument(Scons,(V212)); |
if(type_of((V212))!=t_cons)FEwrong_type_argument(Scons,(V212)); |
1507 |
goto T804;} |
goto T804;} |
1508 |
if((cdr((V214)))==Cnil){ |
if((cdr((V214)))==Cnil){ |
1509 |
goto T804;} |
goto T804;} |
1510 |
princ_str("\ngoto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
1511 |
(void)((*(LnkLI54))(car((V214)))); |
(void)((*(LnkLI54))(car((V214)))); |
1512 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
1513 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
1514 |
(void)((*(LnkLI54))(car((V214)))); |
(void)((*(LnkLI54))(car((V214)))); |
1515 |
princ_str(":;",VV[16]); |
princ_str(":;",VV[16]); |
1516 |
goto T804; |
goto T804; |
1517 |
T804:; |
T804:; |
1518 |
base[6]= make_cons(VV[17],symbol_value(VV[15])); |
base[6]= make_cons(VV[17],symbol_value(VV[15])); |
1519 |
bds_bind(VV[15],base[6]); |
bds_bind(VV[15],base[6]); |
1524 |
bds_unwind1; |
bds_unwind1; |
1525 |
if((cdr((V212)))==Cnil){ |
if((cdr((V212)))==Cnil){ |
1526 |
goto T687;} |
goto T687;} |
1527 |
princ_str("\ngoto T",VV[16]); |
princ_str("\n goto T",VV[16]); |
1528 |
(void)((*(LnkLI54))(car((V212)))); |
(void)((*(LnkLI54))(car((V212)))); |
1529 |
princ_char(59,VV[16]); |
princ_char(59,VV[16]); |
1530 |
princ_str("\nT",VV[16]); |
princ_str("\nT",VV[16]); |
1531 |
(void)((*(LnkLI54))(car((V212)))); |
(void)((*(LnkLI54))(car((V212)))); |
1532 |
princ_str(":;",VV[16]);} |
princ_str(":;",VV[16]);} |
1533 |
goto T687; |
goto T687; |
1534 |
T687:; |
T687:; |
1535 |
V210= cdr((V210)); |
V210= cdr((V210)); |
1536 |
V211= car((V210)); |
V211= car((V210)); |
1537 |
goto T682;} |
goto T682;} |
1538 |
goto T678; |
goto T678; |
1539 |
T678:; |
T678:; |
1540 |
if(!(((V206))==(Ct))){ |
if(!(((V206))==(Ct))){ |
1541 |
goto T835;} |
goto T835;} |
1544 |
princ_str(");",VV[16]); |
princ_str(");",VV[16]); |
1545 |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
(void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17]))); |
1546 |
goto T833; |
goto T833; |
1547 |
goto T835; |
goto T835; |
1548 |
T835:; |
T835:; |
1549 |
base[3]= (V206); |
base[3]= (V206); |
1550 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1551 |
(void) (*Lnk55)(); |
(void) (*Lnk55)(); |
1552 |
vs_top=sup; |
vs_top=sup; |
1553 |
goto T833; |
goto T833; |
1554 |
T833:; |
T833:; |
1555 |
princ_char(125,VV[16]); |
princ_char(125,VV[16]); |
1556 |
{object V223 = (*(LnkLI63))(); |
{object V223 = (*(LnkLI63))(); |