51 |
register object V10; |
register object V10; |
52 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
53 |
bds_check; |
bds_check; |
54 |
goto TTL; |
goto TTL; |
55 |
TTL:; |
TTL:; |
56 |
if(!(endp_prop((V10)))){ |
if(!(endp_prop((V10)))){ |
57 |
goto T9;} |
goto T9;} |
58 |
(void)((*(LnkLI26))(VV[1],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI26))(VV[1],small_fixnum(1),small_fixnum(0))); |
59 |
goto T9; |
goto T9; |
60 |
T9:; |
T9:; |
61 |
if(type_of(car((V10)))==t_symbol){ |
if(type_of(car((V10)))==t_symbol){ |
62 |
goto T12;} |
goto T12;} |
63 |
(void)((VFUN_NARGS=2,(*(LnkLI27))(VV[2],car((V10))))); |
(void)((VFUN_NARGS=2,(*(LnkLI27))(VV[2],car((V10))))); |
64 |
goto T12; |
goto T12; |
65 |
T12:; |
T12:; |
66 |
{register object V11; |
{register object V11; |
67 |
object V12; |
object V12; |
72 |
goto T19;} |
goto T19;} |
73 |
if((structure_ref((V11),VV[0],2))==Cnil){ |
if((structure_ref((V11),VV[0],2))==Cnil){ |
74 |
goto T18;} |
goto T18;} |
75 |
goto T19; |
goto T19; |
76 |
T19:; |
T19:; |
77 |
setq(VV[8],number_plus(symbol_value(VV[8]),small_fixnum(1))); |
setq(VV[8],number_plus(symbol_value(VV[8]),small_fixnum(1))); |
78 |
goto T18; |
goto T18; |
79 |
T18:; |
T18:; |
80 |
if((structure_ref((V11),VV[0],3))!=Cnil){ |
if((structure_ref((V11),VV[0],3))!=Cnil){ |
81 |
goto T24;} |
goto T24;} |
83 |
goto T24;} |
goto T24;} |
84 |
if((structure_ref((V11),VV[0],1))==Cnil){ |
if((structure_ref((V11),VV[0],1))==Cnil){ |
85 |
goto T25;} |
goto T25;} |
86 |
goto T24; |
goto T24; |
87 |
T24:; |
T24:; |
88 |
V13= (*(LnkLI30))(cadr((V12))); |
V13= (*(LnkLI30))(cadr((V12))); |
89 |
{object V14 = list(4,VV[1],/* INLINE-ARGS */V13,(V11),(V12)); |
{object V14 = list(4,VV[1],/* INLINE-ARGS */V13,(V11),(V12)); |
90 |
bds_unwind1; |
bds_unwind1; |
91 |
VMR2(V14)} |
VMR2(V14)} |
92 |
goto T25; |
goto T25; |
93 |
T25:; |
T25:; |
94 |
{object V15 = (V12); |
{object V15 = (V12); |
95 |
bds_unwind1; |
bds_unwind1; |
109 |
V16=(base[0]); |
V16=(base[0]); |
110 |
V17=(base[1]); |
V17=(base[1]); |
111 |
vs_top=sup; |
vs_top=sup; |
112 |
goto TTL; |
goto TTL; |
113 |
TTL:; |
TTL:; |
114 |
if((structure_ref((V16),VV[0],3))==Cnil){ |
if((structure_ref((V16),VV[0],3))==Cnil){ |
115 |
goto T32;} |
goto T32;} |
116 |
base[2]= (*(LnkLI31))((V16),(V17)); |
base[2]= (*(LnkLI31))((V16),(V17)); |
117 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
118 |
return; |
return; |
119 |
goto T32; |
goto T32; |
120 |
T32:; |
T32:; |
121 |
if((structure_ref((V16),VV[0],2))==Cnil){ |
if((structure_ref((V16),VV[0],2))==Cnil){ |
122 |
goto T35;} |
goto T35;} |
123 |
base[2]= (*(LnkLI32))((V16),(V17)); |
base[2]= (*(LnkLI32))((V16),(V17)); |
124 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
125 |
return; |
return; |
126 |
goto T35; |
goto T35; |
127 |
T35:; |
T35:; |
128 |
base[2]= (V16); |
base[2]= (V16); |
129 |
base[3]= (V17); |
base[3]= (V17); |
144 |
V18=(base[0]); |
V18=(base[0]); |
145 |
V19=(base[1]); |
V19=(base[1]); |
146 |
vs_top=sup; |
vs_top=sup; |
147 |
goto TTL; |
goto TTL; |
148 |
TTL:; |
TTL:; |
149 |
(void)(structure_set((V18),VV[0],4,symbol_value(VV[9]))); |
(void)(structure_set((V18),VV[0],4,symbol_value(VV[9]))); |
150 |
(void)(structure_set((V18),VV[0],5,symbol_value(VV[10]))); |
(void)(structure_set((V18),VV[0],5,symbol_value(VV[10]))); |
161 |
register object V22;object V23; |
register object V22;object V23; |
162 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
163 |
bds_check; |
bds_check; |
164 |
goto TTL; |
goto TTL; |
165 |
TTL:; |
TTL:; |
166 |
bds_bind(VV[11],symbol_value(VV[11])); |
bds_bind(VV[11],symbol_value(VV[11])); |
167 |
(void)(structure_set((V22),VV[0],4,symbol_value(VV[9]))); |
(void)(structure_set((V22),VV[0],4,symbol_value(VV[9]))); |
202 |
register object V30;object V31; |
register object V30;object V31; |
203 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
204 |
bds_check; |
bds_check; |
205 |
goto TTL; |
goto TTL; |
206 |
TTL:; |
TTL:; |
207 |
bds_bind(VV[11],symbol_value(VV[11])); |
bds_bind(VV[11],symbol_value(VV[11])); |
208 |
bds_bind(VV[17],symbol_value(VV[17])); |
bds_bind(VV[17],symbol_value(VV[17])); |
262 |
|
|
263 |
object V43; |
object V43; |
264 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
265 |
goto TTL; |
goto TTL; |
266 |
TTL:; |
TTL:; |
267 |
if(!(endp_prop((V43)))){ |
if(!(endp_prop((V43)))){ |
268 |
goto T107;} |
goto T107;} |
269 |
(void)((*(LnkLI26))(VV[19],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI26))(VV[19],small_fixnum(1),small_fixnum(0))); |
270 |
goto T105; |
goto T105; |
271 |
goto T107; |
goto T107; |
272 |
T107:; |
T107:; |
273 |
if(endp_prop(cdr((V43)))){ |
if(endp_prop(cdr((V43)))){ |
274 |
goto T110;} |
goto T110;} |
277 |
V44 = make_fixnum((long)length((V43))); |
V44 = make_fixnum((long)length((V43))); |
278 |
(void)((*(LnkLI43))(VV[19],small_fixnum(2),V44)); |
(void)((*(LnkLI43))(VV[19],small_fixnum(2),V44)); |
279 |
goto T105; |
goto T105; |
280 |
goto T110; |
goto T110; |
281 |
T110:; |
T110:; |
282 |
if(type_of(car((V43)))==t_symbol){ |
if(type_of(car((V43)))==t_symbol){ |
283 |
goto T105;} |
goto T105;} |
284 |
(void)(car((V43))); |
(void)(car((V43))); |
285 |
goto T105; |
goto T105; |
286 |
T105:; |
T105:; |
287 |
{register object V45; |
{register object V45; |
288 |
register object V46; |
register object V46; |
292 |
V46= car((V43)); |
V46= car((V43)); |
293 |
V47= Cnil; |
V47= Cnil; |
294 |
V48= Cnil; |
V48= Cnil; |
295 |
goto T120; |
goto T120; |
296 |
T120:; |
T120:; |
297 |
if(!(endp_prop((V45)))){ |
if(!(endp_prop((V45)))){ |
298 |
goto T121;} |
goto T121;} |
299 |
{object V49 = (VFUN_NARGS=2,(*(LnkLI27))(VV[21],(V46))); |
{object V49 = (VFUN_NARGS=2,(*(LnkLI27))(VV[21],(V46))); |
300 |
VMR7(V49)} |
VMR7(V49)} |
301 |
goto T121; |
goto T121; |
302 |
T121:; |
T121:; |
303 |
{object V50= car((V45)); |
{object V50= car((V45)); |
304 |
if((V50!= VV[44]))goto T126; |
if((V50!= VV[44]))goto T126; |
305 |
V47= Ct; |
V47= Ct; |
306 |
goto T125; |
goto T125; |
307 |
goto T126; |
goto T126; |
308 |
T126:; |
T126:; |
309 |
if((V50!= VV[45]))goto T128; |
if((V50!= VV[45]))goto T128; |
310 |
V48= Ct; |
V48= Ct; |
311 |
goto T125; |
goto T125; |
312 |
goto T128; |
goto T128; |
313 |
T128:; |
T128:; |
314 |
V51= structure_ref(car((V45)),VV[0],0); |
V51= structure_ref(car((V45)),VV[0],0); |
315 |
if(!((/* INLINE-ARGS */V51)==((V46)))){ |
if(!((/* INLINE-ARGS */V51)==((V46)))){ |
322 |
goto T136;} |
goto T136;} |
323 |
(void)(structure_set((V53),VV[0],3,Ct)); |
(void)(structure_set((V53),VV[0],3,Ct)); |
324 |
goto T134; |
goto T134; |
325 |
goto T136; |
goto T136; |
326 |
T136:; |
T136:; |
327 |
if(((V48))==Cnil){ |
if(((V48))==Cnil){ |
328 |
goto T139;} |
goto T139;} |
329 |
(void)(structure_set((V53),VV[0],2,Ct)); |
(void)(structure_set((V53),VV[0],2,Ct)); |
330 |
goto T134; |
goto T134; |
331 |
goto T139; |
goto T139; |
332 |
T139:; |
T139:; |
333 |
(void)(structure_set((V53),VV[0],1,Ct)); |
(void)(structure_set((V53),VV[0],1,Ct)); |
334 |
goto T134; |
goto T134; |
335 |
T134:; |
T134:; |
336 |
V54= (*(LnkLI30))(cadr((V52))); |
V54= (*(LnkLI30))(cadr((V52))); |
337 |
{object V55 = list(6,VV[19],/* INLINE-ARGS */V54,(V53),(V48),(V47),(V52)); |
{object V55 = list(6,VV[19],/* INLINE-ARGS */V54,(V53),(V48),(V47),(V52)); |
338 |
VMR7(V55)}}} |
VMR7(V55)}}} |
339 |
goto T125; |
goto T125; |
340 |
T125:; |
T125:; |
341 |
V45= cdr((V45)); |
V45= cdr((V45)); |
342 |
goto T120;} |
goto T120;} |
358 |
V58=(base[2]); |
V58=(base[2]); |
359 |
V59=(base[3]); |
V59=(base[3]); |
360 |
vs_top=sup; |
vs_top=sup; |
361 |
goto TTL; |
goto TTL; |
362 |
TTL:; |
TTL:; |
363 |
if(((V58))==Cnil){ |
if(((V58))==Cnil){ |
364 |
goto T145;} |
goto T145;} |
365 |
base[4]= (*(LnkLI47))((V56),(V59)); |
base[4]= (*(LnkLI47))((V56),(V59)); |
366 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
367 |
return; |
return; |
368 |
goto T145; |
goto T145; |
369 |
T145:; |
T145:; |
370 |
if(((V57))==Cnil){ |
if(((V57))==Cnil){ |
371 |
goto T148;} |
goto T148;} |
372 |
base[4]= (*(LnkLI48))((V56),(V59)); |
base[4]= (*(LnkLI48))((V56),(V59)); |
373 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
374 |
return; |
return; |
375 |
goto T148; |
goto T148; |
376 |
T148:; |
T148:; |
377 |
base[4]= (V56); |
base[4]= (V56); |
378 |
base[5]= (V59); |
base[5]= (V59); |
394 |
V60=(base[0]); |
V60=(base[0]); |
395 |
V61=(base[1]); |
V61=(base[1]); |
396 |
vs_top=sup; |
vs_top=sup; |
397 |
goto TTL; |
goto TTL; |
398 |
TTL:; |
TTL:; |
399 |
base[2]= structure_ref((V60),VV[0],5); |
base[2]= structure_ref((V60),VV[0],5); |
400 |
base[3]= structure_ref((V60),VV[0],4); |
base[3]= structure_ref((V60),VV[0],4); |
415 |
object V64;object V65; |
object V64;object V65; |
416 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
417 |
bds_check; |
bds_check; |
418 |
goto TTL; |
goto TTL; |
419 |
TTL:; |
TTL:; |
420 |
bds_bind(VV[10],VV[22]); |
bds_bind(VV[10],VV[22]); |
421 |
V66= (*(LnkLI50))((V65)); |
V66= (*(LnkLI50))((V65)); |
426 |
V67= structure_ref((V64),VV[0],2); |
V67= structure_ref((V64),VV[0],2); |
427 |
(void)((*(LnkLI42))(/* INLINE-ARGS */V67)); |
(void)((*(LnkLI42))(/* INLINE-ARGS */V67)); |
428 |
goto T158; |
goto T158; |
429 |
goto T160; |
goto T160; |
430 |
T160:; |
T160:; |
431 |
V68= structure_ref((V64),VV[0],2); |
V68= structure_ref((V64),VV[0],2); |
432 |
(void)((*(LnkLI36))(/* INLINE-ARGS */V68)); |
(void)((*(LnkLI36))(/* INLINE-ARGS */V68)); |
433 |
goto T158; |
goto T158; |
434 |
T158:; |
T158:; |
435 |
princ_str("),Cnil);",VV[12]); |
princ_str("),Cnil);",VV[12]); |
436 |
{object V69 = Cnil; |
{object V69 = Cnil; |
445 |
object V72;object V73; |
object V72;object V73; |
446 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
447 |
bds_check; |
bds_check; |
448 |
goto TTL; |
goto TTL; |
449 |
TTL:; |
TTL:; |
450 |
princ_str("\n {frame_ptr fr;",VV[12]); |
princ_str("\n {frame_ptr fr;",VV[12]); |
451 |
princ_str("\n fr=frs_sch(",VV[12]); |
princ_str("\n fr=frs_sch(",VV[12]); |