53 |
|
|
54 |
register object V12;object V13; |
register object V12;object V13; |
55 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
56 |
goto TTL; |
goto TTL; |
57 |
TTL:; |
TTL:; |
58 |
{object V14; |
{object V14; |
59 |
V14= Cnil; |
V14= Cnil; |
61 |
goto T12;} |
goto T12;} |
62 |
{object V15 = Cnil; |
{object V15 = Cnil; |
63 |
VMR2(V15)} |
VMR2(V15)} |
64 |
goto T12; |
goto T12; |
65 |
T12:; |
T12:; |
66 |
{object V16; |
{object V16; |
67 |
if((car((V12)))==(VV[1])){ |
if((car((V12)))==(VV[1])){ |
68 |
goto T15;} |
goto T15;} |
69 |
V16= Cnil; |
V16= Cnil; |
70 |
goto T14; |
goto T14; |
71 |
goto T15; |
goto T15; |
72 |
T15:; |
T15:; |
73 |
V14= cadddr(cdr((V12))); |
V14= cadddr(cdr((V12))); |
74 |
base[0]= (V14); |
base[0]= (V14); |
80 |
goto T17;} |
goto T17;} |
81 |
V16= Cnil; |
V16= Cnil; |
82 |
goto T14; |
goto T14; |
83 |
goto T17; |
goto T17; |
84 |
T17:; |
T17:; |
85 |
V17= structure_ref((V14),VV[0],0); |
V17= structure_ref((V14),VV[0],0); |
86 |
V16= ((/* INLINE-ARGS */V17)==((V13))?Ct:Cnil); |
V16= ((/* INLINE-ARGS */V17)==((V13))?Ct:Cnil); |
87 |
goto T14; |
goto T14; |
88 |
T14:; |
T14:; |
89 |
if(((V16))==Cnil){ |
if(((V16))==Cnil){ |
90 |
goto T23;} |
goto T23;} |
91 |
{object V18 = (V16); |
{object V18 = (V16); |
92 |
VMR2(V18)} |
VMR2(V18)} |
93 |
goto T23; |
goto T23; |
94 |
T23:;{object V19; |
T23:;{object V19; |
95 |
V19= (*(LnkLI46))(car((V12)),(V13)); |
V19= (*(LnkLI46))(car((V12)),(V13)); |
96 |
if(V19==Cnil)goto T25; |
if(V19==Cnil)goto T25; |
97 |
{object V20 = V19; |
{object V20 = V19; |
98 |
VMR2(V20)} |
VMR2(V20)} |
99 |
goto T25; |
goto T25; |
100 |
T25:;} |
T25:;} |
101 |
V12= cdr((V12)); |
V12= cdr((V12)); |
102 |
goto TTL;}} |
goto TTL;}} |
109 |
|
|
110 |
register object V22; |
register object V22; |
111 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
112 |
goto TTL; |
goto TTL; |
113 |
TTL:; |
TTL:; |
114 |
if(!(type_of((V22))!=t_cons)){ |
if(!(type_of((V22))!=t_cons)){ |
115 |
goto T31;} |
goto T31;} |
124 |
V24 = make_fixnum((long)(/* INLINE-ARGS */V23)+(fix(symbol_value(VV[3])))); |
V24 = make_fixnum((long)(/* INLINE-ARGS */V23)+(fix(symbol_value(VV[3])))); |
125 |
{object V25 = structure_set((V22),VV[2],6,V24); |
{object V25 = structure_set((V22),VV[2],6,V24); |
126 |
VMR3(V25)}} |
VMR3(V25)}} |
127 |
goto T34; |
goto T34; |
128 |
T34:; |
T34:; |
129 |
{object V26 = Cnil; |
{object V26 = Cnil; |
130 |
VMR3(V26)} |
VMR3(V26)} |
131 |
goto T31; |
goto T31; |
132 |
T31:; |
T31:; |
133 |
(void)((*(LnkLI47))(car((V22)))); |
(void)((*(LnkLI47))(car((V22)))); |
134 |
V22= cdr((V22)); |
V22= cdr((V22)); |
142 |
|
|
143 |
object V28; |
object V28; |
144 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
145 |
goto TTL; |
goto TTL; |
146 |
TTL:; |
TTL:; |
147 |
{register object V29; |
{register object V29; |
148 |
register object V30; |
register object V30; |
150 |
V29= (V28); |
V29= (V28); |
151 |
V30= Cnil; |
V30= Cnil; |
152 |
V31= Cnil; |
V31= Cnil; |
153 |
goto T42; |
goto T42; |
154 |
T42:; |
T42:; |
155 |
if(((V29))!=Cnil){ |
if(((V29))!=Cnil){ |
156 |
goto T43;} |
goto T43;} |
157 |
{register object V32; |
{register object V32; |
158 |
V32= (V31); |
V32= (V31); |
159 |
goto T47; |
goto T47; |
160 |
T47:; |
T47:; |
161 |
if(!(((V32))==((V30)))){ |
if(!(((V32))==((V30)))){ |
162 |
goto T48;} |
goto T48;} |
163 |
{object V33 = (*(LnkLI47))(car((V32))); |
{object V33 = (*(LnkLI47))(car((V32))); |
164 |
VMR4(V33)} |
VMR4(V33)} |
165 |
goto T48; |
goto T48; |
166 |
T48:; |
T48:; |
167 |
(void)((*(LnkLI47))(car((V32)))); |
(void)((*(LnkLI47))(car((V32)))); |
168 |
V32= cdr((V32)); |
V32= cdr((V32)); |
169 |
goto T47;} |
goto T47;} |
170 |
goto T43; |
goto T43; |
171 |
T43:; |
T43:; |
172 |
base[0]= car((V29)); |
base[0]= car((V29)); |
173 |
base[1]= VV[0]; |
base[1]= VV[0]; |
179 |
if((V31)!=Cnil){ |
if((V31)!=Cnil){ |
180 |
goto T62;} |
goto T62;} |
181 |
V31= (V29); |
V31= (V29); |
182 |
goto T62; |
goto T62; |
183 |
T62:; |
T62:; |
184 |
{register object V34; |
{register object V34; |
185 |
register object V35; |
register object V35; |
186 |
V34= cdr((V29)); |
V34= cdr((V29)); |
187 |
V35= structure_ref(car((V29)),VV[0],0); |
V35= structure_ref(car((V29)),VV[0],0); |
188 |
goto T67; |
goto T67; |
189 |
T67:; |
T67:; |
190 |
if(((V34))!=Cnil){ |
if(((V34))!=Cnil){ |
191 |
goto T68;} |
goto T68;} |
192 |
goto T57; |
goto T57; |
193 |
goto T68; |
goto T68; |
194 |
T68:; |
T68:; |
195 |
if(((*(LnkLI46))(car((V34)),(V35)))==Cnil){ |
if(((*(LnkLI46))(car((V34)),(V35)))==Cnil){ |
196 |
goto T72;} |
goto T72;} |
197 |
V30= (V34); |
V30= (V34); |
198 |
goto T72; |
goto T72; |
199 |
T72:; |
T72:; |
200 |
V34= cdr((V34)); |
V34= cdr((V34)); |
201 |
goto T67;} |
goto T67;} |
202 |
goto T57; |
goto T57; |
203 |
T57:; |
T57:; |
204 |
V29= cdr((V29)); |
V29= cdr((V29)); |
205 |
goto T42;} |
goto T42;} |
213 |
object V37; |
object V37; |
214 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
215 |
bds_check; |
bds_check; |
216 |
goto TTL; |
goto TTL; |
217 |
TTL:; |
TTL:; |
218 |
{register object V38; |
{register object V38; |
219 |
bds_bind(VV[4],symbol_value(VV[4])); |
bds_bind(VV[4],symbol_value(VV[4])); |
224 |
V37= Cnil; |
V37= Cnil; |
225 |
goto T84;} |
goto T84;} |
226 |
base[2]=V39=MMcons(Cnil,Cnil); |
base[2]=V39=MMcons(Cnil,Cnil); |
227 |
goto T85; |
goto T85; |
228 |
T85:; |
T85:; |
229 |
if(type_of((V40->c.c_car))==t_symbol){ |
if(type_of((V40->c.c_car))==t_symbol){ |
230 |
goto T87;} |
goto T87;} |
231 |
if(!(type_of((V40->c.c_car))==t_fixnum||type_of((V40->c.c_car))==t_bignum)){ |
if(!(type_of((V40->c.c_car))==t_fixnum||type_of((V40->c.c_car))==t_bignum)){ |
232 |
goto T88;} |
goto T88;} |
233 |
goto T87; |
goto T87; |
234 |
T87:; |
T87:; |
235 |
{object V42; |
{object V42; |
236 |
V42= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V40->c.c_car),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil)); |
V42= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V40->c.c_car),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil)); |
237 |
(VV[4]->s.s_dbind)= make_cons(V42,(VV[4]->s.s_dbind)); |
(VV[4]->s.s_dbind)= make_cons(V42,(VV[4]->s.s_dbind)); |
238 |
(V39->c.c_car)= (V42); |
(V39->c.c_car)= (V42); |
239 |
goto T86;} |
goto T86;} |
240 |
goto T88; |
goto T88; |
241 |
T88:; |
T88:; |
242 |
(V39->c.c_car)= (V40->c.c_car); |
(V39->c.c_car)= (V40->c.c_car); |
243 |
goto T86; |
goto T86; |
244 |
T86:; |
T86:; |
245 |
V40=MMcdr(V40); |
V40=MMcdr(V40); |
246 |
if(endp(V40)){ |
if(endp(V40)){ |
248 |
goto T84;} |
goto T84;} |
249 |
V39=MMcdr(V39)=MMcons(Cnil,Cnil); |
V39=MMcdr(V39)=MMcons(Cnil,Cnil); |
250 |
goto T85;} |
goto T85;} |
251 |
goto T84; |
goto T84; |
252 |
T84:; |
T84:; |
253 |
{object V44; |
{object V44; |
254 |
object V45= (V37); |
object V45= (V37); |
256 |
V37= Cnil; |
V37= Cnil; |
257 |
goto T96;} |
goto T96;} |
258 |
base[2]=V44=MMcons(Cnil,Cnil); |
base[2]=V44=MMcons(Cnil,Cnil); |
259 |
goto T97; |
goto T97; |
260 |
T97:; |
T97:; |
261 |
base[3]= (V45->c.c_car); |
base[3]= (V45->c.c_car); |
262 |
base[4]= VV[0]; |
base[4]= VV[0]; |
267 |
goto T100;} |
goto T100;} |
268 |
(V44->c.c_car)= (V45->c.c_car); |
(V44->c.c_car)= (V45->c.c_car); |
269 |
goto T98; |
goto T98; |
270 |
goto T100; |
goto T100; |
271 |
T100:; |
T100:; |
272 |
(V44->c.c_car)= (*(LnkLI50))((V45->c.c_car),(V38)); |
(V44->c.c_car)= (*(LnkLI50))((V45->c.c_car),(V38)); |
273 |
goto T98; |
goto T98; |
274 |
T98:; |
T98:; |
275 |
V45=MMcdr(V45); |
V45=MMcdr(V45); |
276 |
if(endp(V45)){ |
if(endp(V45)){ |
278 |
goto T96;} |
goto T96;} |
279 |
V44=MMcdr(V44)=MMcons(Cnil,Cnil); |
V44=MMcdr(V44)=MMcons(Cnil,Cnil); |
280 |
goto T97;} |
goto T97;} |
281 |
goto T96; |
goto T96; |
282 |
T96:; |
T96:; |
283 |
{register object V47; |
{register object V47; |
284 |
register object V48; |
register object V48; |
290 |
V49= Cnil; |
V49= Cnil; |
291 |
V50= Cnil; |
V50= Cnil; |
292 |
V51= Cnil; |
V51= Cnil; |
293 |
goto T105; |
goto T105; |
294 |
T105:; |
T105:; |
295 |
if(!(endp_prop((V47)))){ |
if(!(endp_prop((V47)))){ |
296 |
goto T106;} |
goto T106;} |
300 |
goto T109;} |
goto T109;} |
301 |
if(((V49))==Cnil){ |
if(((V49))==Cnil){ |
302 |
goto T110;} |
goto T110;} |
303 |
goto T109; |
goto T109; |
304 |
T109:; |
T109:; |
305 |
V48= reverse((V48)); |
V48= reverse((V48)); |
306 |
if(((V50))!=Cnil){ |
if(((V50))!=Cnil){ |
307 |
goto T119;} |
goto T119;} |
308 |
if(((V51))==Cnil){ |
if(((V51))==Cnil){ |
309 |
goto T120;} |
goto T120;} |
310 |
goto T119; |
goto T119; |
311 |
T119:; |
T119:; |
312 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
313 |
goto T118; |
goto T118; |
314 |
goto T120; |
goto T120; |
315 |
T120:; |
T120:; |
316 |
(void)((*(LnkLI51))((V48))); |
(void)((*(LnkLI51))((V48))); |
317 |
goto T118; |
goto T118; |
318 |
T118:; |
T118:; |
319 |
{object V52 = list(5,VV[10],(V38),(V50),(V51),(V48)); |
{object V52 = list(5,VV[10],(V38),(V50),(V51),(V48)); |
320 |
bds_unwind1; |
bds_unwind1; |
321 |
VMR5(V52)} |
VMR5(V52)} |
322 |
goto T110; |
goto T110; |
323 |
T110:; |
T110:; |
324 |
V53= (*(LnkLI52))(); |
V53= (*(LnkLI52))(); |
325 |
V54= make_cons(/* INLINE-ARGS */V53,(V48)); |
V54= make_cons(/* INLINE-ARGS */V53,(V48)); |
326 |
{object V55 = list(3,VV[11],(V38),reverse(/* INLINE-ARGS */V54)); |
{object V55 = list(3,VV[11],(V38),reverse(/* INLINE-ARGS */V54)); |
327 |
bds_unwind1; |
bds_unwind1; |
328 |
VMR5(V55)} |
VMR5(V55)} |
329 |
goto T106; |
goto T106; |
330 |
T106:; |
T106:; |
331 |
base[2]= car((V47)); |
base[2]= car((V47)); |
332 |
base[3]= VV[0]; |
base[3]= VV[0]; |
346 |
(void)(structure_set(/* INLINE-ARGS */V57,VV[0],6,/* INLINE-ARGS */V59)); |
(void)(structure_set(/* INLINE-ARGS */V57,VV[0],6,/* INLINE-ARGS */V59)); |
347 |
V51= Ct; |
V51= Ct; |
348 |
goto T126; |
goto T126; |
349 |
goto T133; |
goto T133; |
350 |
T133:; |
T133:; |
351 |
if((structure_ref(car((V47)),VV[0],2))==Cnil){ |
if((structure_ref(car((V47)),VV[0],2))==Cnil){ |
352 |
goto T141;} |
goto T141;} |
359 |
(void)(structure_set(/* INLINE-ARGS */V61,VV[0],6,/* INLINE-ARGS */V63)); |
(void)(structure_set(/* INLINE-ARGS */V61,VV[0],6,/* INLINE-ARGS */V63)); |
360 |
V50= Ct; |
V50= Ct; |
361 |
goto T126; |
goto T126; |
362 |
goto T141; |
goto T141; |
363 |
T141:; |
T141:; |
364 |
if((structure_ref(car((V47)),VV[0],1))==Cnil){ |
if((structure_ref(car((V47)),VV[0],1))==Cnil){ |
365 |
goto T126;} |
goto T126;} |
368 |
V48= make_cons((V64),(V48));} |
V48= make_cons((V64),(V48));} |
369 |
V49= Ct; |
V49= Ct; |
370 |
goto T126; |
goto T126; |
371 |
goto T128; |
goto T128; |
372 |
T128:; |
T128:; |
373 |
{object V65; |
{object V65; |
374 |
V65= car((V47)); |
V65= car((V47)); |
375 |
V48= make_cons((V65),(V48));} |
V48= make_cons((V65),(V48));} |
376 |
goto T126; |
goto T126; |
377 |
T126:; |
T126:; |
378 |
V47= cdr((V47)); |
V47= cdr((V47)); |
379 |
goto T105;}} |
goto T105;}} |
386 |
|
|
387 |
object V69;object V70;object V71; |
object V69;object V70;object V71; |
388 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
389 |
goto TTL; |
goto TTL; |
390 |
TTL:; |
TTL:; |
391 |
if(((V70))==Cnil){ |
if(((V70))==Cnil){ |
392 |
goto T160;} |
goto T160;} |
393 |
{object V72 = (*(LnkLI54))((V71)); |
{object V72 = (*(LnkLI54))((V71)); |
394 |
VMR6(V72)} |
VMR6(V72)} |
395 |
goto T160; |
goto T160; |
396 |
T160:; |
T160:; |
397 |
if(((V69))==Cnil){ |
if(((V69))==Cnil){ |
398 |
goto T163;} |
goto T163;} |
399 |
{object V73 = (*(LnkLI55))((V71)); |
{object V73 = (*(LnkLI55))((V71)); |
400 |
VMR6(V73)} |
VMR6(V73)} |
401 |
goto T163; |
goto T163; |
402 |
T163:; |
T163:; |
403 |
{object V74 = (*(LnkLI56))((V71)); |
{object V74 = (*(LnkLI56))((V71)); |
404 |
VMR6(V74)} |
VMR6(V74)} |
411 |
object V76; |
object V76; |
412 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
413 |
bds_check; |
bds_check; |
414 |
goto TTL; |
goto TTL; |
415 |
TTL:; |
TTL:; |
416 |
{register object V77; |
{register object V77; |
417 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
420 |
register object V79; |
register object V79; |
421 |
V78= (V76); |
V78= (V76); |
422 |
V79= car((V78)); |
V79= car((V78)); |
423 |
goto T171; |
goto T171; |
424 |
T171:; |
T171:; |
425 |
if(!(endp_prop((V78)))){ |
if(!(endp_prop((V78)))){ |
426 |
goto T172;} |
goto T172;} |
427 |
goto T167; |
goto T167; |
428 |
goto T172; |
goto T172; |
429 |
T172:; |
T172:; |
430 |
base[2]= (V79); |
base[2]= (V79); |
431 |
base[3]= VV[0]; |
base[3]= VV[0]; |
438 |
V80= make_cons(symbol_value(VV[12]),Ct); |
V80= make_cons(symbol_value(VV[12]),Ct); |
439 |
(void)(structure_set((V79),VV[0],4,/* INLINE-ARGS */V80)); |
(void)(structure_set((V79),VV[0],4,/* INLINE-ARGS */V80)); |
440 |
(void)(structure_set((V79),VV[0],5,(V77))); |
(void)(structure_set((V79),VV[0],5,(V77))); |
441 |
goto T176; |
goto T176; |
442 |
T176:; |
T176:; |
443 |
V78= cdr((V78)); |
V78= cdr((V78)); |
444 |
V79= car((V78)); |
V79= car((V78)); |
445 |
goto T171;} |
goto T171;} |
446 |
goto T167; |
goto T167; |
447 |
T167:; |
T167:; |
448 |
base[1]= make_cons((V77),symbol_value(VV[13])); |
base[1]= make_cons((V77),symbol_value(VV[13])); |
449 |
bds_bind(VV[13],base[1]); |
bds_bind(VV[13],base[1]); |
460 |
object V83; |
object V83; |
461 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
462 |
bds_check; |
bds_check; |
463 |
goto TTL; |
goto TTL; |
464 |
TTL:; |
TTL:; |
465 |
{register object V84; |
{register object V84; |
466 |
register object V85; |
register object V85; |
467 |
V84= (V83); |
V84= (V83); |
468 |
V85= Cnil; |
V85= Cnil; |
469 |
goto T190; |
goto T190; |
470 |
T190:; |
T190:; |
471 |
if(!(endp_prop(cdr((V84))))){ |
if(!(endp_prop(cdr((V84))))){ |
472 |
goto T191;} |
goto T191;} |
474 |
goto T195;} |
goto T195;} |
475 |
{object V86 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
{object V86 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
476 |
VMR8(V86)} |
VMR8(V86)} |
477 |
goto T195; |
goto T195; |
478 |
T195:; |
T195:; |
479 |
base[0]= car((V84)); |
base[0]= car((V84)); |
480 |
base[1]= VV[0]; |
base[1]= VV[0]; |
488 |
V88= structure_ref(car((V84)),VV[0],4); |
V88= structure_ref(car((V84)),VV[0],4); |
489 |
if((cdr(/* INLINE-ARGS */V88))==Cnil){ |
if((cdr(/* INLINE-ARGS */V88))==Cnil){ |
490 |
goto T203;} |
goto T203;} |
491 |
princ_str("\ngoto T",VV[14]); |
princ_str("\n goto T",VV[14]); |
492 |
V89= structure_ref(car((V84)),VV[0],4); |
V89= structure_ref(car((V84)),VV[0],4); |
493 |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V89))); |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V89))); |
494 |
princ_char(59,VV[14]); |
princ_char(59,VV[14]); |
496 |
V90= structure_ref(car((V84)),VV[0],4); |
V90= structure_ref(car((V84)),VV[0],4); |
497 |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V90))); |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V90))); |
498 |
princ_str(":;",VV[14]); |
princ_str(":;",VV[14]); |
499 |
goto T203; |
goto T203; |
500 |
T203:; |
T203:; |
501 |
{object V91 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
{object V91 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
502 |
VMR8(V91)} |
VMR8(V91)} |
503 |
goto T198; |
goto T198; |
504 |
T198:; |
T198:; |
505 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
506 |
bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil)); |
bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil)); |
515 |
bds_unwind1; |
bds_unwind1; |
516 |
bds_unwind1; |
bds_unwind1; |
517 |
goto T213;} |
goto T213;} |
518 |
princ_str("\ngoto T",VV[14]); |
princ_str("\n goto T",VV[14]); |
519 |
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind)))); |
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind)))); |
520 |
princ_char(59,VV[14]); |
princ_char(59,VV[14]); |
521 |
princ_str("\nT",VV[14]); |
princ_str("\nT",VV[14]); |
524 |
bds_unwind1; |
bds_unwind1; |
525 |
bds_unwind1; |
bds_unwind1; |
526 |
bds_unwind1; |
bds_unwind1; |
527 |
goto T213; |
goto T213; |
528 |
T213:; |
T213:; |
529 |
if((caar((V84)))==(VV[1])){ |
if((caar((V84)))==(VV[1])){ |
530 |
goto T229;} |
goto T229;} |
531 |
{object V92 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
{object V92 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
532 |
VMR8(V92)} |
VMR8(V92)} |
533 |
goto T229; |
goto T229; |
534 |
T229:; |
T229:; |
535 |
{object V93 = Cnil; |
{object V93 = Cnil; |
536 |
VMR8(V93)} |
VMR8(V93)} |
537 |
goto T191; |
goto T191; |
538 |
T191:; |
T191:; |
539 |
if(((V85))==Cnil){ |
if(((V85))==Cnil){ |
540 |
goto T234;} |
goto T234;} |
541 |
V85= Cnil; |
V85= Cnil; |
542 |
goto T232; |
goto T232; |
543 |
goto T234; |
goto T234; |
544 |
T234:; |
T234:; |
545 |
base[0]= car((V84)); |
base[0]= car((V84)); |
546 |
base[1]= VV[0]; |
base[1]= VV[0]; |
554 |
V95= structure_ref(car((V84)),VV[0],4); |
V95= structure_ref(car((V84)),VV[0],4); |
555 |
if((cdr(/* INLINE-ARGS */V95))==Cnil){ |
if((cdr(/* INLINE-ARGS */V95))==Cnil){ |
556 |
goto T232;} |
goto T232;} |
557 |
princ_str("\ngoto T",VV[14]); |
princ_str("\n goto T",VV[14]); |
558 |
V96= structure_ref(car((V84)),VV[0],4); |
V96= structure_ref(car((V84)),VV[0],4); |
559 |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V96))); |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V96))); |
560 |
princ_char(59,VV[14]); |
princ_char(59,VV[14]); |
563 |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V97))); |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V97))); |
564 |
princ_str(":;",VV[14]); |
princ_str(":;",VV[14]); |
565 |
goto T232; |
goto T232; |
566 |
goto T238; |
goto T238; |
567 |
T238:; |
T238:; |
568 |
base[3]= cadr((V84)); |
base[3]= cadr((V84)); |
569 |
base[4]= VV[0]; |
base[4]= VV[0]; |
575 |
V85= Ct; |
V85= Ct; |
576 |
bds_bind(VV[15],structure_ref(cadr((V84)),VV[0],4)); |
bds_bind(VV[15],structure_ref(cadr((V84)),VV[0],4)); |
577 |
goto T252; |
goto T252; |
578 |
goto T254; |
goto T254; |
579 |
T254:; |
T254:; |
580 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
581 |
bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil)); |
bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil)); |
582 |
goto T252; |
goto T252; |
583 |
T252:; |
T252:; |
584 |
bds_bind(VV[13],make_cons((VV[15]->s.s_dbind),symbol_value(VV[13]))); |
bds_bind(VV[13],make_cons((VV[15]->s.s_dbind),symbol_value(VV[13]))); |
585 |
bds_bind(VV[16],VV[17]); |
bds_bind(VV[16],VV[17]); |
595 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
596 |
goto T265;} |
goto T265;} |
597 |
goto T264; |
goto T264; |
598 |
goto T265; |
goto T265; |
599 |
T265:; |
T265:; |
600 |
V98= structure_ref(cadr((V84)),VV[0],7); |
V98= structure_ref(cadr((V84)),VV[0],7); |
601 |
(void)((*(LnkLI59))(/* INLINE-ARGS */V98)); |
(void)((*(LnkLI59))(/* INLINE-ARGS */V98)); |
602 |
goto T264; |
goto T264; |
603 |
T264:; |
T264:; |
604 |
if((cdr((VV[15]->s.s_dbind)))==Cnil){ |
if((cdr((VV[15]->s.s_dbind)))==Cnil){ |
605 |
bds_unwind1; |
bds_unwind1; |
606 |
bds_unwind1; |
bds_unwind1; |
607 |
bds_unwind1; |
bds_unwind1; |
608 |
goto T232;} |
goto T232;} |
609 |
princ_str("\ngoto T",VV[14]); |
princ_str("\n goto T",VV[14]); |
610 |
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind)))); |
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind)))); |
611 |
princ_char(59,VV[14]); |
princ_char(59,VV[14]); |
612 |
princ_str("\nT",VV[14]); |
princ_str("\nT",VV[14]); |
615 |
bds_unwind1; |
bds_unwind1; |
616 |
bds_unwind1; |
bds_unwind1; |
617 |
bds_unwind1; |
bds_unwind1; |
618 |
goto T232; |
goto T232; |
619 |
T232:; |
T232:; |
620 |
V84= cdr((V84)); |
V84= cdr((V84)); |
621 |
goto T190;} |
goto T190;} |
629 |
object V100; |
object V100; |
630 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
631 |
bds_check; |
bds_check; |
632 |
goto TTL; |
goto TTL; |
633 |
TTL:; |
TTL:; |
634 |
{register object V101; |
{register object V101; |
635 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
651 |
register object V104; |
register object V104; |
652 |
V103= (V100); |
V103= (V100); |
653 |
V104= car((V103)); |
V104= car((V103)); |
654 |
goto T302; |
goto T302; |
655 |
T302:; |
T302:; |
656 |
if(!(endp_prop((V103)))){ |
if(!(endp_prop((V103)))){ |
657 |
goto T303;} |
goto T303;} |
658 |
goto T298; |
goto T298; |
659 |
goto T303; |
goto T303; |
660 |
T303:; |
T303:; |
661 |
base[4]= (V104); |
base[4]= (V104); |
662 |
base[5]= VV[0]; |
base[5]= VV[0]; |
683 |
V108= structure_ref((V104),VV[0],4); |
V108= structure_ref((V104),VV[0],4); |
684 |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V108))); |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V108))); |
685 |
princ_char(59,VV[14]); |
princ_char(59,VV[14]); |
686 |
goto T307; |
goto T307; |
687 |
T307:; |
T307:; |
688 |
V103= cdr((V103)); |
V103= cdr((V103)); |
689 |
V104= car((V103)); |
V104= car((V103)); |
690 |
goto T302;} |
goto T302;} |
691 |
goto T298; |
goto T298; |
692 |
T298:; |
T298:; |
693 |
princ_str("\n FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]); |
princ_str("\n FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]); |
694 |
princ_str("\n }",VV[14]); |
princ_str("\n }",VV[14]); |
709 |
object V111; |
object V111; |
710 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
711 |
bds_check; |
bds_check; |
712 |
goto TTL; |
goto TTL; |
713 |
TTL:; |
TTL:; |
714 |
{register object V112; |
{register object V112; |
715 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
744 |
register object V116; |
register object V116; |
745 |
V115= (V111); |
V115= (V111); |
746 |
V116= car((V115)); |
V116= car((V115)); |
747 |
goto T370; |
goto T370; |
748 |
T370:; |
T370:; |
749 |
if(!(endp_prop((V115)))){ |
if(!(endp_prop((V115)))){ |
750 |
goto T371;} |
goto T371;} |
751 |
goto T366; |
goto T366; |
752 |
goto T371; |
goto T371; |
753 |
T371:; |
T371:; |
754 |
base[6]= (V116); |
base[6]= (V116); |
755 |
base[7]= VV[0]; |
base[7]= VV[0]; |
766 |
goto T383;} |
goto T383;} |
767 |
if((structure_ref((V116),VV[0],3))==Cnil){ |
if((structure_ref((V116),VV[0],3))==Cnil){ |
768 |
goto T375;} |
goto T375;} |
769 |
goto T383; |
goto T383; |
770 |
T383:; |
T383:; |
771 |
(void)(structure_set((V116),VV[0],2,(V113))); |
(void)(structure_set((V116),VV[0],2,(V113))); |
772 |
if((structure_ref((V116),VV[0],3))==Cnil){ |
if((structure_ref((V116),VV[0],3))==Cnil){ |
773 |
goto T388;} |
goto T388;} |
774 |
(void)(structure_set((V116),VV[0],3,(V114))); |
(void)(structure_set((V116),VV[0],3,(V114))); |
775 |
goto T388; |
goto T388; |
776 |
T388:; |
T388:; |
777 |
princ_str("\n if(eql(nlj_tag,VV[",VV[14]); |
princ_str("\n if(eql(nlj_tag,VV[",VV[14]); |
778 |
V118= structure_ref((V116),VV[0],6); |
V118= structure_ref((V116),VV[0],6); |
785 |
V120= structure_ref((V116),VV[0],4); |
V120= structure_ref((V116),VV[0],4); |
786 |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V120))); |
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V120))); |
787 |
princ_char(59,VV[14]); |
princ_char(59,VV[14]); |
788 |
goto T375; |
goto T375; |
789 |
T375:; |
T375:; |
790 |
V115= cdr((V115)); |
V115= cdr((V115)); |
791 |
V116= car((V115)); |
V116= car((V115)); |
792 |
goto T370;} |
goto T370;} |
793 |
goto T366; |
goto T366; |
794 |
T366:; |
T366:; |
795 |
princ_str("\n FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]); |
princ_str("\n FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]); |
796 |
princ_str("\n }",VV[14]); |
princ_str("\n }",VV[14]); |
812 |
|
|
813 |
object V123; |
object V123; |
814 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
815 |
goto TTL; |
goto TTL; |
816 |
TTL:; |
TTL:; |
817 |
if(!(endp_prop((V123)))){ |
if(!(endp_prop((V123)))){ |
818 |
goto T411;} |
goto T411;} |
819 |
(void)((*(LnkLI68))(VV[1],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI68))(VV[1],small_fixnum(1),small_fixnum(0))); |
820 |
goto T409; |
goto T409; |
821 |
goto T411; |
goto T411; |
822 |
T411:; |
T411:; |
823 |
if(endp_prop(cdr((V123)))){ |
if(endp_prop(cdr((V123)))){ |
824 |
goto T414;} |
goto T414;} |
825 |
V124 = make_fixnum((long)length((V123))); |
V124 = make_fixnum((long)length((V123))); |
826 |
(void)((*(LnkLI69))(VV[1],small_fixnum(1),V124)); |
(void)((*(LnkLI69))(VV[1],small_fixnum(1),V124)); |
827 |
goto T409; |
goto T409; |
828 |
goto T414; |
goto T414; |
829 |
T414:; |
T414:; |
830 |
if(type_of(car((V123)))==t_symbol){ |
if(type_of(car((V123)))==t_symbol){ |
831 |
goto T409;} |
goto T409;} |
833 |
if(type_of(V125)==t_fixnum||type_of(V125)==t_bignum){ |
if(type_of(V125)==t_fixnum||type_of(V125)==t_bignum){ |
834 |
goto T409;}} |
goto T409;}} |
835 |
(void)(car((V123))); |
(void)(car((V123))); |
836 |
goto T409; |
goto T409; |
837 |
T409:; |
T409:; |
838 |
{register object V126; |
{register object V126; |
839 |
register object V127; |
register object V127; |
843 |
V127= car((V123)); |
V127= car((V123)); |
844 |
V128= Cnil; |
V128= Cnil; |
845 |
V129= Cnil; |
V129= Cnil; |
846 |
goto T424; |
goto T424; |
847 |
T424:; |
T424:; |
848 |
if(!(endp_prop((V126)))){ |
if(!(endp_prop((V126)))){ |
849 |
goto T425;} |
goto T425;} |
850 |
{object V130 = (VFUN_NARGS=2,(*(LnkLI70))(VV[23],(V127))); |
{object V130 = (VFUN_NARGS=2,(*(LnkLI70))(VV[23],(V127))); |
851 |
VMR11(V130)} |
VMR11(V130)} |
852 |
goto T425; |
goto T425; |
853 |
T425:; |
T425:; |
854 |
{object V131= car((V126)); |
{object V131= car((V126)); |
855 |
if((V131!= VV[71]))goto T430; |
if((V131!= VV[71]))goto T430; |
856 |
V128= Ct; |
V128= Ct; |
857 |
goto T429; |
goto T429; |
858 |
goto T430; |
goto T430; |
859 |
T430:; |
T430:; |
860 |
if((V131!= VV[72]))goto T432; |
if((V131!= VV[72]))goto T432; |
861 |
V129= Ct; |
V129= Ct; |
862 |
goto T429; |
goto T429; |
863 |
goto T432; |
goto T432; |
864 |
T432:; |
T432:; |
865 |
V132= structure_ref(car((V126)),VV[0],0); |
V132= structure_ref(car((V126)),VV[0],0); |
866 |
if(!((/* INLINE-ARGS */V132)==((V127)))){ |
if(!((/* INLINE-ARGS */V132)==((V127)))){ |
871 |
goto T439;} |
goto T439;} |
872 |
(void)(structure_set((V133),VV[0],3,Ct)); |
(void)(structure_set((V133),VV[0],3,Ct)); |
873 |
goto T437; |
goto T437; |
874 |
goto T439; |
goto T439; |
875 |
T439:; |
T439:; |
876 |
if(((V129))==Cnil){ |
if(((V129))==Cnil){ |
877 |
goto T442;} |
goto T442;} |
878 |
(void)(structure_set((V133),VV[0],2,Ct)); |
(void)(structure_set((V133),VV[0],2,Ct)); |
879 |
goto T437; |
goto T437; |
880 |
goto T442; |
goto T442; |
881 |
T442:; |
T442:; |
882 |
(void)(structure_set((V133),VV[0],1,Ct)); |
(void)(structure_set((V133),VV[0],1,Ct)); |
883 |
goto T437; |
goto T437; |
884 |
T437:; |
T437:; |
885 |
{object V134 = list(5,VV[1],symbol_value(VV[24]),(V129),(V128),(V133)); |
{object V134 = list(5,VV[1],symbol_value(VV[24]),(V129),(V128),(V133)); |
886 |
VMR11(V134)}}} |
VMR11(V134)}}} |
887 |
goto T429; |
goto T429; |
888 |
T429:; |
T429:; |
889 |
V126= cdr((V126)); |
V126= cdr((V126)); |
890 |
goto T424;} |
goto T424;} |
896 |
|
|
897 |
object V138;object V139;object V140; |
object V138;object V139;object V140; |
898 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
899 |
goto TTL; |
goto TTL; |
900 |
TTL:; |
TTL:; |
901 |
if(((V139))==Cnil){ |
if(((V139))==Cnil){ |
902 |
goto T448;} |
goto T448;} |
903 |
{object V141 = (*(LnkLI73))((V140)); |
{object V141 = (*(LnkLI73))((V140)); |
904 |
VMR12(V141)} |
VMR12(V141)} |
905 |
goto T448; |
goto T448; |
906 |
T448:; |
T448:; |
907 |
if(((V138))==Cnil){ |
if(((V138))==Cnil){ |
908 |
goto T451;} |
goto T451;} |
909 |
{object V142 = (*(LnkLI74))((V140)); |
{object V142 = (*(LnkLI74))((V140)); |
910 |
VMR12(V142)} |
VMR12(V142)} |
911 |
goto T451; |
goto T451; |
912 |
T451:; |
T451:; |
913 |
{object V143 = (*(LnkLI75))((V140)); |
{object V143 = (*(LnkLI75))((V140)); |
914 |
VMR12(V143)} |
VMR12(V143)} |
920 |
|
|
921 |
object V145; |
object V145; |
922 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
923 |
goto TTL; |
goto TTL; |
924 |
TTL:; |
TTL:; |
925 |
V146= structure_ref((V145),VV[0],5); |
V146= structure_ref((V145),VV[0],5); |
926 |
(void)((*(LnkLI76))(/* INLINE-ARGS */V146)); |
(void)((*(LnkLI76))(/* INLINE-ARGS */V146)); |
942 |
|
|
943 |
register object V151; |
register object V151; |
944 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
945 |
goto TTL; |
goto TTL; |
946 |
TTL:; |
TTL:; |
947 |
princ_str("\n vs_base=vs_top;",VV[14]); |
princ_str("\n vs_base=vs_top;",VV[14]); |
948 |
princ_str("\n unwind(frs_sch(",VV[14]); |
princ_str("\n unwind(frs_sch(",VV[14]); |
951 |
V152= structure_ref((V151),VV[0],2); |
V152= structure_ref((V151),VV[0],2); |
952 |
(void)((*(LnkLI67))(/* INLINE-ARGS */V152)); |
(void)((*(LnkLI67))(/* INLINE-ARGS */V152)); |
953 |
goto T463; |
goto T463; |
954 |
goto T465; |
goto T465; |
955 |
T465:; |
T465:; |
956 |
V153= structure_ref((V151),VV[0],2); |
V153= structure_ref((V151),VV[0],2); |
957 |
(void)((*(LnkLI63))(/* INLINE-ARGS */V153)); |
(void)((*(LnkLI63))(/* INLINE-ARGS */V153)); |
958 |
goto T463; |
goto T463; |
959 |
T463:; |
T463:; |
960 |
princ_str("),VV[",VV[14]); |
princ_str("),VV[",VV[14]); |
961 |
V154= structure_ref((V151),VV[0],6); |
V154= structure_ref((V151),VV[0],6); |
971 |
|
|
972 |
object V157; |
object V157; |
973 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
974 |
goto TTL; |
goto TTL; |
975 |
TTL:; |
TTL:; |
976 |
princ_str("\n {frame_ptr fr;",VV[14]); |
princ_str("\n {frame_ptr fr;",VV[14]); |
977 |
princ_str("\n fr=frs_sch(",VV[14]); |
princ_str("\n fr=frs_sch(",VV[14]); |
997 |
|
|
998 |
register object V163; |
register object V163; |
999 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
1000 |
goto TTL; |
goto TTL; |
1001 |
TTL:; |
TTL:; |
1002 |
if(((V163))==Cnil){ |
if(((V163))==Cnil){ |
1003 |
goto T487;} |
goto T487;} |
1006 |
goto T493;} |
goto T493;} |
1007 |
V164= VV[25]; |
V164= VV[25]; |
1008 |
goto T491; |
goto T491; |
1009 |
goto T493; |
goto T493; |
1010 |
T493:; |
T493:; |
1011 |
V164= VV[26]; |
V164= VV[26]; |
1012 |
goto T491; |
goto T491; |
1013 |
T491:; |
T491:; |
1014 |
(void)((*(LnkLI60))(V164)); |
(void)((*(LnkLI60))(V164)); |
1015 |
(void)((*(LnkLI60))((V163))); |
(void)((*(LnkLI60))((V163))); |
1016 |
princ_char(58,VV[14]); |
princ_char(58,VV[14]); |
1017 |
{object V165 = Cnil; |
{object V165 = Cnil; |
1018 |
VMR16(V165)} |
VMR16(V165)} |
1019 |
goto T487; |
goto T487; |
1020 |
T487:; |
T487:; |
1021 |
{object V166 = Cnil; |
{object V166 = Cnil; |
1022 |
VMR16(V166)} |
VMR16(V166)} |
1029 |
object V168; |
object V168; |
1030 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
1031 |
bds_check; |
bds_check; |
1032 |
goto TTL; |
goto TTL; |
1033 |
TTL:; |
TTL:; |
1034 |
bds_bind(VV[4],symbol_value(VV[4])); |
bds_bind(VV[4],symbol_value(VV[4])); |
1035 |
{object V169; |
{object V169; |
1059 |
goto T511; |
goto T511; |
1060 |
}else V173=V173->c.c_cdr; |
}else V173=V173->c.c_cdr; |
1061 |
V172= Cnil;} |
V172= Cnil;} |
1062 |
goto T511; |
goto T511; |
1063 |
T511:; |
T511:; |
1064 |
if(V172==Cnil)goto T510; |
if(V172==Cnil)goto T510; |
1065 |
goto T509; |
goto T509; |
1066 |
goto T510; |
goto T510; |
1067 |
T510:;} |
T510:;} |
1068 |
V174= make_cons(Ct,Cnil); |
V174= make_cons(Ct,Cnil); |
1069 |
V170= append((V170),/* INLINE-ARGS */V174); |
V170= append((V170),/* INLINE-ARGS */V174); |
1070 |
goto T509; |
goto T509; |
1071 |
T509:; |
T509:; |
1072 |
{object V175; |
{object V175; |
1073 |
object V176= (V170); |
object V176= (V170); |
1075 |
V170= Cnil; |
V170= Cnil; |
1076 |
goto T514;} |
goto T514;} |
1077 |
base[4]=V175=MMcons(Cnil,Cnil); |
base[4]=V175=MMcons(Cnil,Cnil); |
1078 |
goto T515; |
goto T515; |
1079 |
T515:; |
T515:; |
1080 |
{register object V177; |
{register object V177; |
1081 |
V177= (V176->c.c_car); |
V177= (V176->c.c_car); |
1083 |
goto T517;} |
goto T517;} |
1084 |
if(!(type_of((V177))==t_fixnum||type_of((V177))==t_bignum)){ |
if(!(type_of((V177))==t_fixnum||type_of((V177))==t_bignum)){ |
1085 |
goto T518;} |
goto T518;} |
1086 |
goto T517; |
goto T517; |
1087 |
T517:; |
T517:; |
1088 |
{register object V178; |
{register object V178; |
1089 |
V178= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V177),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil)); |
V178= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V177),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil)); |
1092 |
(void)(structure_set((V178),VV[0],1,Ct)); |
(void)(structure_set((V178),VV[0],1,Ct)); |
1093 |
(void)(structure_set((V178),VV[0],7,(V177))); |
(void)(structure_set((V178),VV[0],7,(V177))); |
1094 |
goto T523; |
goto T523; |
1095 |
goto T525; |
goto T525; |
1096 |
T525:; |
T525:; |
1097 |
if(!((Ct)==((V177)))){ |
if(!((Ct)==((V177)))){ |
1098 |
goto T523;} |
goto T523;} |
1099 |
(void)(structure_set((V178),VV[0],1,Ct)); |
(void)(structure_set((V178),VV[0],1,Ct)); |
1100 |
(void)(structure_set((V178),VV[0],7,VV[29])); |
(void)(structure_set((V178),VV[0],7,VV[29])); |
1101 |
goto T523; |
goto T523; |
1102 |
T523:; |
T523:; |
1103 |
(V175->c.c_car)= (V178); |
(V175->c.c_car)= (V178); |
1104 |
goto T516;} |
goto T516;} |
1105 |
goto T518; |
goto T518; |
1106 |
T518:; |
T518:; |
1107 |
(V175->c.c_car)= (V177);} |
(V175->c.c_car)= (V177);} |
1108 |
goto T516; |
goto T516; |
1109 |
T516:; |
T516:; |
1110 |
V176=MMcdr(V176); |
V176=MMcdr(V176); |
1111 |
if(endp(V176)){ |
if(endp(V176)){ |
1113 |
goto T514;} |
goto T514;} |
1114 |
V175=MMcdr(V175)=MMcons(Cnil,Cnil); |
V175=MMcdr(V175)=MMcons(Cnil,Cnil); |
1115 |
goto T515;} |
goto T515;} |
1116 |
goto T514; |
goto T514; |
1117 |
T514:; |
T514:; |
1118 |
{object V179; |
{object V179; |
1119 |
V180= append((V170),VV[30]); |
V180= append((V170),VV[30]); |
1122 |
{object V182 = nconc(/* INLINE-ARGS */V181,cddr((V179))); |
{object V182 = nconc(/* INLINE-ARGS */V181,cddr((V179))); |
1123 |
bds_unwind1; |
bds_unwind1; |
1124 |
VMR17(V182)}} |
VMR17(V182)}} |
1125 |
goto T501; |
goto T501; |
1126 |
T501:; |
T501:; |
1127 |
V183= make_cons(VV[31],(V168)); |
V183= make_cons(VV[31],(V168)); |
1128 |
V184= (*(LnkLI81))(/* INLINE-ARGS */V183); |
V184= (*(LnkLI81))(/* INLINE-ARGS */V183); |
1139 |
object V190;object V191;object V192;object V193; |
object V190;object V191;object V192;object V193; |
1140 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1141 |
bds_check; |
bds_check; |
1142 |
goto TTL; |
goto TTL; |
1143 |
TTL:; |
TTL:; |
1144 |
bds_bind(VV[32],small_fixnum(0)); |
bds_bind(VV[32],small_fixnum(0)); |
1145 |
bds_bind(VV[18],symbol_value(VV[18])); |
bds_bind(VV[18],symbol_value(VV[18])); |
1155 |
goto T538;} |
goto T538;} |
1156 |
(void)((*(LnkLI54))((V193))); |
(void)((*(LnkLI54))((V193))); |
1157 |
goto T536; |
goto T536; |
1158 |
goto T538; |
goto T538; |
1159 |
T538:; |
T538:; |
1160 |
if(((V191))==Cnil){ |
if(((V191))==Cnil){ |
1161 |
goto T541;} |
goto T541;} |
1162 |
(void)((*(LnkLI55))((V193))); |
(void)((*(LnkLI55))((V193))); |
1163 |
goto T536; |
goto T536; |
1164 |
goto T541; |
goto T541; |
1165 |
T541:; |
T541:; |
1166 |
(void)((*(LnkLI56))((V193))); |
(void)((*(LnkLI56))((V193))); |
1167 |
goto T536; |
goto T536; |
1168 |
T536:; |
T536:; |
1169 |
princ_char(125,VV[14]); |
princ_char(125,VV[14]); |
1170 |
(void)((VFUN_NARGS=1,(*(LnkLI58))(Cnil))); |
(void)((VFUN_NARGS=1,(*(LnkLI58))(Cnil))); |
1193 |
register object V199; |
register object V199; |
1194 |
V198= base[3]; |
V198= base[3]; |
1195 |
V199= car((V198)); |
V199= car((V198)); |
1196 |
goto T551; |
goto T551; |
1197 |
T551:; |
T551:; |
1198 |
if(!(endp_prop((V198)))){ |
if(!(endp_prop((V198)))){ |
1199 |
goto T552;} |
goto T552;} |
1200 |
goto T547; |
goto T547; |
1201 |
goto T552; |
goto T552; |
1202 |
T552:; |
T552:; |
1203 |
if(!(type_of((V199))==t_fixnum||type_of((V199))==t_bignum)){ |
if(!(type_of((V199))==t_fixnum||type_of((V199))==t_bignum)){ |
1204 |
goto T556;} |
goto T556;} |
1206 |
V201= list(3,VV[36],(V199),base[2]); |
V201= list(3,VV[36],(V199),base[2]); |
1207 |
V200= list(4,VV[35],/* INLINE-ARGS */V201,list(2,VV[1],(V199)),Cnil); |
V200= list(4,VV[35],/* INLINE-ARGS */V201,list(2,VV[1],(V199)),Cnil); |
1208 |
base[4]= make_cons((V200),base[4]);} |
base[4]= make_cons((V200),base[4]);} |
1209 |
goto T556; |
goto T556; |
1210 |
T556:; |
T556:; |
1211 |
V198= cdr((V198)); |
V198= cdr((V198)); |
1212 |
V199= car((V198)); |
V199= car((V198)); |
1213 |
goto T551;} |
goto T551;} |
1214 |
goto T547; |
goto T547; |
1215 |
T547:; |
T547:; |
1216 |
V202= nreverse(base[4]); |
V202= nreverse(base[4]); |
1217 |
base[5]= base[3]; |
base[5]= base[3]; |
1221 |
goto T571; |
goto T571; |
1222 |
}else V204=V204->c.c_cdr; |
}else V204=V204->c.c_cdr; |
1223 |
goto T570;} |
goto T570;} |
1224 |
goto T571; |
goto T571; |
1225 |
T571:; |
T571:; |
1226 |
base[6]= Cnil; |
base[6]= Cnil; |
1227 |
goto T568; |
goto T568; |
1228 |
goto T570; |
goto T570; |
1229 |
T570:; |
T570:; |
1230 |
base[6]= VV[38]; |
base[6]= VV[38]; |
1231 |
goto T568; |
goto T568; |
1232 |
T568:; |
T568:; |
1233 |
base[7]= VV[39]; |
base[7]= VV[39]; |
1234 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |