53 |
|
|
54 |
register object V13;object V14;object V15;object V16; |
register object V13;object V14;object V15;object V16; |
55 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
56 |
goto TTL; |
goto TTL; |
57 |
TTL:; |
TTL:; |
58 |
{register object V17; |
{register object V17; |
59 |
V17= Cnil; |
V17= Cnil; |
62 |
if(type_of((V13))==t_symbol){ |
if(type_of((V13))==t_symbol){ |
63 |
goto T12;} |
goto T12;} |
64 |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[2],(V13)))); |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[2],(V13)))); |
65 |
goto T12; |
goto T12; |
66 |
T12:; |
T12:; |
67 |
base[0]= (V13); |
base[0]= (V13); |
68 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
71 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
72 |
goto T15;} |
goto T15;} |
73 |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[3],(V13)))); |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[3],(V13)))); |
74 |
goto T15; |
goto T15; |
75 |
T15:; |
T15:; |
76 |
{register object x= (V13),V19= (V14); |
{register object x= (V13),V19= (V14); |
77 |
while(!endp(V19)) |
while(!endp(V19)) |
84 |
vs_top=sup; |
vs_top=sup; |
85 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
86 |
goto T21;} |
goto T21;} |
87 |
goto T20; |
goto T20; |
88 |
T20:; |
T20:; |
89 |
(void)(structure_set((V18),VV[0],1,VV[4])); |
(void)(structure_set((V18),VV[0],1,VV[4])); |
90 |
V20= (*(LnkLI68))((V13)); |
V20= (*(LnkLI68))((V13)); |
96 |
goto T32; |
goto T32; |
97 |
}else V21=V21->c.c_cdr; |
}else V21=V21->c.c_cdr; |
98 |
V17= Cnil;} |
V17= Cnil;} |
99 |
goto T32; |
goto T32; |
100 |
T32:; |
T32:; |
101 |
if(((V17))==Cnil){ |
if(((V17))==Cnil){ |
102 |
goto T30;} |
goto T30;} |
103 |
(void)(structure_set((V18),VV[0],5,cdr((V17)))); |
(void)(structure_set((V18),VV[0],5,cdr((V17)))); |
104 |
goto T28; |
goto T28; |
105 |
goto T30; |
goto T30; |
106 |
T30:; |
T30:; |
107 |
V17= get((V13),VV[5],Cnil); |
V17= get((V13),VV[5],Cnil); |
108 |
if(((V17))==Cnil){ |
if(((V17))==Cnil){ |
109 |
goto T28;} |
goto T28;} |
110 |
(void)(structure_set((V18),VV[0],5,(V17))); |
(void)(structure_set((V18),VV[0],5,(V17))); |
111 |
goto T28; |
goto T28; |
112 |
T28:; |
T28:; |
113 |
setq(VV[6],Ct); |
setq(VV[6],Ct); |
114 |
goto T19; |
goto T19; |
115 |
goto T21; |
goto T21; |
116 |
T21:; |
T21:; |
117 |
{register object V22; |
{register object V22; |
118 |
register object V23; |
register object V23; |
119 |
V22= (V16); |
V22= (V16); |
120 |
V23= car((V22)); |
V23= car((V22)); |
121 |
goto T41; |
goto T41; |
122 |
T41:; |
T41:; |
123 |
if(!(endp_prop((V22)))){ |
if(!(endp_prop((V22)))){ |
124 |
goto T42;} |
goto T42;} |
125 |
goto T37; |
goto T37; |
126 |
goto T42; |
goto T42; |
127 |
T42:; |
T42:; |
128 |
if(!((car((V23)))==((V13)))){ |
if(!((car((V23)))==((V13)))){ |
129 |
goto T46;} |
goto T46;} |
131 |
if((V24!= VV[7]))goto T49; |
if((V24!= VV[7]))goto T49; |
132 |
(void)(structure_set((V18),VV[0],4,VV[7])); |
(void)(structure_set((V18),VV[0],4,VV[7])); |
133 |
goto T46; |
goto T46; |
134 |
goto T49; |
goto T49; |
135 |
T49:; |
T49:; |
136 |
if((V24!= VV[69]))goto T50; |
if((V24!= VV[69]))goto T50; |
137 |
V25= structure_ref((V18),VV[0],6); |
V25= structure_ref((V18),VV[0],6); |
138 |
V26= number_plus(/* INLINE-ARGS */V25,small_fixnum(100)); |
V26= number_plus(/* INLINE-ARGS */V25,small_fixnum(100)); |
139 |
(void)(structure_set((V18),VV[0],6,/* INLINE-ARGS */V26)); |
(void)(structure_set((V18),VV[0],6,/* INLINE-ARGS */V26)); |
140 |
goto T46; |
goto T46; |
141 |
goto T50; |
goto T50; |
142 |
T50:; |
T50:; |
143 |
(void)(structure_set((V18),VV[0],5,cdr((V23))));} |
(void)(structure_set((V18),VV[0],5,cdr((V23))));} |
144 |
goto T46; |
goto T46; |
145 |
T46:; |
T46:; |
146 |
V22= cdr((V22)); |
V22= cdr((V22)); |
147 |
V23= car((V22)); |
V23= car((V22)); |
148 |
goto T41;} |
goto T41;} |
149 |
goto T37; |
goto T37; |
150 |
T37:; |
T37:; |
151 |
base[0]= VV[8]; |
base[0]= VV[8]; |
152 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
155 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
156 |
goto T57;} |
goto T57;} |
157 |
goto T56; |
goto T56; |
158 |
goto T57; |
goto T57; |
159 |
T57:; |
T57:; |
160 |
if(symbol_value(VV[8])==Cnil){ |
if(symbol_value(VV[8])==Cnil){ |
161 |
goto T56;} |
goto T56;} |
163 |
if(!((/* INLINE-ARGS */V27)==Cnil)){ |
if(!((/* INLINE-ARGS */V27)==Cnil)){ |
164 |
goto T62;} |
goto T62;} |
165 |
goto T60; |
goto T60; |
166 |
goto T62; |
goto T62; |
167 |
T62:; |
T62:; |
168 |
V28= structure_ref((V18),VV[0],5); |
V28= structure_ref((V18),VV[0],5); |
169 |
if((Ct)==(/* INLINE-ARGS */V28)){ |
if((Ct)==(/* INLINE-ARGS */V28)){ |
170 |
goto T60;} |
goto T60;} |
171 |
goto T56; |
goto T56; |
172 |
goto T60; |
goto T60; |
173 |
T60:; |
T60:; |
174 |
(void)(structure_set((V18),VV[0],4,VV[7])); |
(void)(structure_set((V18),VV[0],4,VV[7])); |
175 |
goto T56; |
goto T56; |
176 |
T56:; |
T56:; |
177 |
(void)(structure_set((V18),VV[0],1,VV[9])); |
(void)(structure_set((V18),VV[0],1,VV[9])); |
178 |
goto T19; |
goto T19; |
179 |
T19:; |
T19:; |
180 |
{register object x= (V13),V29= (V15); |
{register object x= (V13),V29= (V15); |
181 |
while(!endp(V29)) |
while(!endp(V29)) |
183 |
goto T66; |
goto T66; |
184 |
}else V29=V29->c.c_cdr; |
}else V29=V29->c.c_cdr; |
185 |
goto T64;} |
goto T64;} |
186 |
goto T66; |
goto T66; |
187 |
T66:; |
T66:; |
188 |
(void)(structure_set((V18),VV[0],2,VV[10])); |
(void)(structure_set((V18),VV[0],2,VV[10])); |
189 |
goto T64; |
goto T64; |
190 |
T64:; |
T64:; |
191 |
{object V30 = (V18); |
{object V30 = (V18); |
192 |
VMR2(V30)}}} |
VMR2(V30)}}} |
199 |
|
|
200 |
register object V32; |
register object V32; |
201 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
202 |
goto TTL; |
goto TTL; |
203 |
TTL:; |
TTL:; |
204 |
V33= structure_ref((V32),VV[0],1); |
V33= structure_ref((V32),VV[0],1); |
205 |
if(!((/* INLINE-ARGS */V33)==(VV[9]))){ |
if(!((/* INLINE-ARGS */V33)==(VV[9]))){ |
211 |
V34= structure_ref((V32),VV[0],0); |
V34= structure_ref((V32),VV[0],0); |
212 |
{object V35 = (VFUN_NARGS=2,(*(LnkLI70))(VV[11],/* INLINE-ARGS */V34)); |
{object V35 = (VFUN_NARGS=2,(*(LnkLI70))(VV[11],/* INLINE-ARGS */V34)); |
213 |
VMR3(V35)} |
VMR3(V35)} |
214 |
goto T68; |
goto T68; |
215 |
T68:; |
T68:; |
216 |
{object V36 = Cnil; |
{object V36 = Cnil; |
217 |
VMR3(V36)} |
VMR3(V36)} |
223 |
|
|
224 |
object V38; |
object V38; |
225 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
226 |
goto TTL; |
goto TTL; |
227 |
TTL:; |
TTL:; |
228 |
{object V39; |
{object V39; |
229 |
object V40; |
object V40; |
248 |
|
|
249 |
register object V48; |
register object V48; |
250 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
251 |
goto TTL; |
goto TTL; |
252 |
TTL:; |
TTL:; |
253 |
{register object V49; |
{register object V49; |
254 |
register object V50; |
register object V50; |
258 |
register object V52; |
register object V52; |
259 |
V51= symbol_value(VV[13]); |
V51= symbol_value(VV[13]); |
260 |
V52= car((V51)); |
V52= car((V51)); |
261 |
goto T85; |
goto T85; |
262 |
T85:; |
T85:; |
263 |
if(!(endp_prop((V51)))){ |
if(!(endp_prop((V51)))){ |
264 |
goto T86;} |
goto T86;} |
273 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
274 |
goto T93;} |
goto T93;} |
275 |
(void)((*(LnkLI74))((V48))); |
(void)((*(LnkLI74))((V48))); |
276 |
goto T93; |
goto T93; |
277 |
T93:; |
T93:; |
278 |
V54= (*(LnkLI68))((V48));{object V56; |
V54= (*(LnkLI68))((V48));{object V56; |
279 |
V56= get((V48),VV[5],Cnil); |
V56= get((V48),VV[5],Cnil); |
280 |
if(V56==Cnil)goto T100; |
if(V56==Cnil)goto T100; |
281 |
V55= V56; |
V55= V56; |
282 |
goto T99; |
goto T99; |
283 |
goto T100; |
goto T100; |
284 |
T100:;} |
T100:;} |
285 |
V55= Ct; |
V55= Ct; |
286 |
goto T99; |
goto T99; |
287 |
T99:; |
T99:; |
288 |
V53= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V48),VV[14],VV[15],VV[16],/* INLINE-ARGS */V54,VV[17],V55)); |
V53= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V48),VV[14],VV[15],VV[16],/* INLINE-ARGS */V54,VV[17],V55)); |
289 |
setq(VV[18],make_cons(V53,symbol_value(VV[18]))); |
setq(VV[18],make_cons(V53,symbol_value(VV[18]))); |
290 |
goto T90; |
goto T90; |
291 |
T90:; |
T90:; |
292 |
{object V58 = list(2,(V53),(V49)); |
{object V58 = list(2,(V53),(V49)); |
293 |
VMR5(V58)}} |
VMR5(V58)}} |
294 |
goto T86; |
goto T86; |
295 |
T86:; |
T86:; |
296 |
if(!(((V52))==(VV[19]))){ |
if(!(((V52))==(VV[19]))){ |
297 |
goto T106;} |
goto T106;} |
298 |
V49= Ct; |
V49= Ct; |
299 |
goto T104; |
goto T104; |
300 |
goto T106; |
goto T106; |
301 |
T106:; |
T106:; |
302 |
if(!(((V52))==(VV[20]))){ |
if(!(((V52))==(VV[20]))){ |
303 |
goto T110;} |
goto T110;} |
304 |
V50= Ct; |
V50= Ct; |
305 |
goto T104; |
goto T104; |
306 |
goto T110; |
goto T110; |
307 |
T110:; |
T110:; |
308 |
V59= structure_ref((V52),VV[0],0); |
V59= structure_ref((V52),VV[0],0); |
309 |
if(!((/* INLINE-ARGS */V59)==((V48)))){ |
if(!((/* INLINE-ARGS */V59)==((V48)))){ |
313 |
goto T115;} |
goto T115;} |
314 |
(void)((VFUN_NARGS=2,(*(LnkLI70))(VV[21],(V48)))); |
(void)((VFUN_NARGS=2,(*(LnkLI70))(VV[21],(V48)))); |
315 |
(void)(structure_set((V52),VV[0],2,Ct)); |
(void)(structure_set((V52),VV[0],2,Ct)); |
316 |
goto T115; |
goto T115; |
317 |
T115:; |
T115:; |
318 |
if(((V49))==Cnil){ |
if(((V49))==Cnil){ |
319 |
goto T121;} |
goto T121;} |
320 |
(void)(structure_set((V52),VV[0],3,Ct)); |
(void)(structure_set((V52),VV[0],3,Ct)); |
321 |
goto T119; |
goto T119; |
322 |
goto T121; |
goto T121; |
323 |
T121:; |
T121:; |
324 |
if(((V50))==Cnil){ |
if(((V50))==Cnil){ |
325 |
goto T124;} |
goto T124;} |
327 |
if(!((/* INLINE-ARGS */V61)==(VV[9]))){ |
if(!((/* INLINE-ARGS */V61)==(VV[9]))){ |
328 |
goto T126;} |
goto T126;} |
329 |
(void)(structure_set((V52),VV[0],4,VV[22])); |
(void)(structure_set((V52),VV[0],4,VV[22])); |
330 |
goto T126; |
goto T126; |
331 |
T126:; |
T126:; |
332 |
(void)(structure_set((V52),VV[0],2,Ct)); |
(void)(structure_set((V52),VV[0],2,Ct)); |
333 |
goto T119; |
goto T119; |
334 |
goto T124; |
goto T124; |
335 |
T124:; |
T124:; |
336 |
(void)(structure_set((V52),VV[0],2,Ct)); |
(void)(structure_set((V52),VV[0],2,Ct)); |
337 |
{long V62= fix(structure_ref((V52),VV[0],6)); |
{long V62= fix(structure_ref((V52),VV[0],6)); |
338 |
V63 = make_fixnum((long)(1)+(/* INLINE-ARGS */V62)); |
V63 = make_fixnum((long)(1)+(/* INLINE-ARGS */V62)); |
339 |
(void)(structure_set((V52),VV[0],6,V63));} |
(void)(structure_set((V52),VV[0],6,V63));} |
340 |
goto T119; |
goto T119; |
341 |
T119:; |
T119:; |
342 |
{object V64 = list(2,(V52),(V49)); |
{object V64 = list(2,(V52),(V49)); |
343 |
VMR5(V64)} |
VMR5(V64)} |
344 |
goto T104; |
goto T104; |
345 |
T104:; |
T104:; |
346 |
V51= cdr((V51)); |
V51= cdr((V51)); |
347 |
V52= car((V51)); |
V52= car((V51)); |
355 |
|
|
356 |
register object V66; |
register object V66; |
357 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
358 |
goto TTL; |
goto TTL; |
359 |
TTL:; |
TTL:; |
360 |
V67= structure_ref((V66),VV[0],1); |
V67= structure_ref((V66),VV[0],1); |
361 |
if(!((/* INLINE-ARGS */V67)==(VV[9]))){ |
if(!((/* INLINE-ARGS */V67)==(VV[9]))){ |
370 |
goto T143;} |
goto T143;} |
371 |
{object V70 = VV[7]; |
{object V70 = VV[7]; |
372 |
VMR6(V70)} |
VMR6(V70)} |
373 |
goto T143; |
goto T143; |
374 |
T143:; |
T143:; |
375 |
{register object V71; |
{register object V71; |
376 |
V71= structure_ref((V66),VV[0],5); |
V71= structure_ref((V66),VV[0],5); |
378 |
goto T147;} |
goto T147;} |
379 |
{object V72 = VV[23]; |
{object V72 = VV[23]; |
380 |
VMR6(V72)} |
VMR6(V72)} |
381 |
goto T147; |
goto T147; |
382 |
T147:; |
T147:; |
383 |
if(((*(LnkLI75))(VV[24],(V71)))==Cnil){ |
if(((*(LnkLI75))(VV[24],(V71)))==Cnil){ |
384 |
goto T150;} |
goto T150;} |
385 |
{object V73 = VV[24]; |
{object V73 = VV[24]; |
386 |
VMR6(V73)} |
VMR6(V73)} |
387 |
goto T150; |
goto T150; |
388 |
T150:; |
T150:; |
389 |
if(((*(LnkLI75))(VV[25],(V71)))==Cnil){ |
if(((*(LnkLI75))(VV[25],(V71)))==Cnil){ |
390 |
goto T153;} |
goto T153;} |
391 |
{object V74 = VV[25]; |
{object V74 = VV[25]; |
392 |
VMR6(V74)} |
VMR6(V74)} |
393 |
goto T153; |
goto T153; |
394 |
T153:; |
T153:; |
395 |
if(((*(LnkLI75))(VV[26],(V71)))==Cnil){ |
if(((*(LnkLI75))(VV[26],(V71)))==Cnil){ |
396 |
goto T156;} |
goto T156;} |
397 |
{object V75 = VV[26]; |
{object V75 = VV[26]; |
398 |
VMR6(V75)} |
VMR6(V75)} |
399 |
goto T156; |
goto T156; |
400 |
T156:; |
T156:; |
401 |
if(((*(LnkLI75))(VV[27],(V71)))==Cnil){ |
if(((*(LnkLI75))(VV[27],(V71)))==Cnil){ |
402 |
goto T159;} |
goto T159;} |
403 |
{object V76 = VV[27]; |
{object V76 = VV[27]; |
404 |
VMR6(V76)} |
VMR6(V76)} |
405 |
goto T159; |
goto T159; |
406 |
T159:; |
T159:; |
407 |
{object V77; |
{object V77; |
408 |
base[0]= VV[8]; |
base[0]= VV[8]; |
413 |
goto T162;} |
goto T162;} |
414 |
V77= Cnil; |
V77= Cnil; |
415 |
goto T161; |
goto T161; |
416 |
goto T162; |
goto T162; |
417 |
T162:; |
T162:; |
418 |
if(symbol_value(VV[8])==Cnil){ |
if(symbol_value(VV[8])==Cnil){ |
419 |
V77= Cnil; |
V77= Cnil; |
420 |
goto T161;} |
goto T161;} |
421 |
V77= VV[7]; |
V77= VV[7]; |
422 |
goto T161; |
goto T161; |
423 |
T161:; |
T161:; |
424 |
if(((V77))==Cnil){ |
if(((V77))==Cnil){ |
425 |
goto T166;} |
goto T166;} |
426 |
{object V78 = (V77); |
{object V78 = (V77); |
427 |
VMR6(V78)} |
VMR6(V78)} |
428 |
goto T166; |
goto T166; |
429 |
T166:; |
T166:; |
430 |
{object V79 = Cnil; |
{object V79 = Cnil; |
431 |
VMR6(V79)}}} |
VMR6(V79)}}} |
432 |
goto T136; |
goto T136; |
433 |
T136:; |
T136:; |
434 |
{object V80 = Cnil; |
{object V80 = Cnil; |
435 |
VMR6(V80)} |
VMR6(V80)} |
442 |
|
|
443 |
object V82; |
object V82; |
444 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
445 |
goto TTL; |
goto TTL; |
446 |
TTL:; |
TTL:; |
447 |
V83= make_cons(VV[0],(V82)); |
V83= make_cons(VV[0],(V82)); |
448 |
{object V84 = (VFUN_NARGS=3,(*(LnkLI76))(/* INLINE-ARGS */V83,Cnil,VV[28])); |
{object V84 = (VFUN_NARGS=3,(*(LnkLI76))(/* INLINE-ARGS */V83,Cnil,VV[28])); |
455 |
|
|
456 |
object V86; |
object V86; |
457 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
458 |
goto TTL; |
goto TTL; |
459 |
TTL:; |
TTL:; |
460 |
{object V87 = (VFUN_NARGS=3,(*(LnkLI76))((V86),Cnil,VV[28])); |
{object V87 = (VFUN_NARGS=3,(*(LnkLI76))((V86),Cnil,VV[28])); |
461 |
VMR8(V87)} |
VMR8(V87)} |
467 |
|
|
468 |
object V89; |
object V89; |
469 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
470 |
goto TTL; |
goto TTL; |
471 |
TTL:; |
TTL:; |
472 |
{object V90; |
{object V90; |
473 |
V90= Cnil; |
V90= Cnil; |
475 |
object V92; |
object V92; |
476 |
V91= symbol_value(VV[29]); |
V91= symbol_value(VV[29]); |
477 |
V92= car((V91)); |
V92= car((V91)); |
478 |
goto T173; |
goto T173; |
479 |
T173:; |
T173:; |
480 |
if(!(endp_prop((V91)))){ |
if(!(endp_prop((V91)))){ |
481 |
goto T174;} |
goto T174;} |
482 |
goto T169; |
goto T169; |
483 |
goto T174; |
goto T174; |
484 |
T174:; |
T174:; |
485 |
if(!((car((V92)))==(VV[30]))){ |
if(!((car((V92)))==(VV[30]))){ |
486 |
goto T178;} |
goto T178;} |
489 |
register object V94; |
register object V94; |
490 |
V93= symbol_value(VV[29]); |
V93= symbol_value(VV[29]); |
491 |
V94= car((V93)); |
V94= car((V93)); |
492 |
goto T187; |
goto T187; |
493 |
T187:; |
T187:; |
494 |
if(!(endp_prop((V93)))){ |
if(!(endp_prop((V93)))){ |
495 |
goto T188;} |
goto T188;} |
496 |
goto T183; |
goto T183; |
497 |
goto T188; |
goto T188; |
498 |
T188:; |
T188:; |
499 |
if(!((car((V94)))==(VV[31]))){ |
if(!((car((V94)))==(VV[31]))){ |
500 |
goto T192;} |
goto T192;} |
504 |
V96= VV[30]; |
V96= VV[30]; |
505 |
if(type_of((V95))!=t_cons)FEwrong_type_argument(Scons,(V95)); |
if(type_of((V95))!=t_cons)FEwrong_type_argument(Scons,(V95)); |
506 |
((V95))->c.c_car = (V96);} |
((V95))->c.c_car = (V96);} |
507 |
goto T192; |
goto T192; |
508 |
T192:; |
T192:; |
509 |
V93= cdr((V93)); |
V93= cdr((V93)); |
510 |
V94= car((V93)); |
V94= car((V93)); |
511 |
goto T187;} |
goto T187;} |
512 |
goto T183; |
goto T183; |
513 |
T183:; |
T183:; |
514 |
goto T169; |
goto T169; |
515 |
goto T178; |
goto T178; |
516 |
T178:; |
T178:; |
517 |
V91= cdr((V91)); |
V91= cdr((V91)); |
518 |
V92= car((V91)); |
V92= car((V91)); |
519 |
goto T173;} |
goto T173;} |
520 |
goto T169; |
goto T169; |
521 |
T169:; |
T169:; |
522 |
setq(VV[29],Cnil); |
setq(VV[29],Cnil); |
523 |
if(((V90))==Cnil){ |
if(((V90))==Cnil){ |
526 |
object V98; |
object V98; |
527 |
V97= (V89); |
V97= (V89); |
528 |
V98= car((V97)); |
V98= car((V97)); |
529 |
goto T216; |
goto T216; |
530 |
T216:; |
T216:; |
531 |
if(!(endp_prop((V97)))){ |
if(!(endp_prop((V97)))){ |
532 |
goto T217;} |
goto T217;} |
533 |
{object V99 = Cnil; |
{object V99 = Cnil; |
534 |
VMR9(V99)} |
VMR9(V99)} |
535 |
goto T217; |
goto T217; |
536 |
T217:; |
T217:; |
537 |
V100= structure_ref((V98),VV[0],1); |
V100= structure_ref((V98),VV[0],1); |
538 |
if(!((/* INLINE-ARGS */V100)==(VV[32]))){ |
if(!((/* INLINE-ARGS */V100)==(VV[32]))){ |
539 |
goto T221;} |
goto T221;} |
540 |
(void)(structure_set((V98),VV[0],1,VV[9])); |
(void)(structure_set((V98),VV[0],1,VV[9])); |
541 |
goto T221; |
goto T221; |
542 |
T221:; |
T221:; |
543 |
V97= cdr((V97)); |
V97= cdr((V97)); |
544 |
V98= car((V97)); |
V98= car((V97)); |
545 |
goto T216;} |
goto T216;} |
546 |
goto T211; |
goto T211; |
547 |
T211:; |
T211:; |
548 |
{object V101 = Cnil; |
{object V101 = Cnil; |
549 |
VMR9(V101)}} |
VMR9(V101)}} |
556 |
|
|
557 |
object V105;object V106;object V107; |
object V105;object V106;object V107; |
558 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
559 |
goto TTL; |
goto TTL; |
560 |
TTL:; |
TTL:; |
561 |
{register object V108; |
{register object V108; |
562 |
V108= small_fixnum(0); |
V108= small_fixnum(0); |
564 |
register object V110; |
register object V110; |
565 |
V109= (V105); |
V109= (V105); |
566 |
V110= car((V109)); |
V110= car((V109)); |
567 |
goto T234; |
goto T234; |
568 |
T234:; |
T234:; |
569 |
if(!(endp_prop((V109)))){ |
if(!(endp_prop((V109)))){ |
570 |
goto T235;} |
goto T235;} |
571 |
goto T230; |
goto T230; |
572 |
goto T235; |
goto T235; |
573 |
T235:; |
T235:; |
574 |
V111= structure_ref((V110),VV[0],1); |
V111= structure_ref((V110),VV[0],1); |
575 |
if(!((/* INLINE-ARGS */V111)==(VV[32]))){ |
if(!((/* INLINE-ARGS */V111)==(VV[32]))){ |
583 |
V115= structure_ref((V110),VV[0],4); |
V115= structure_ref((V110),VV[0],4); |
584 |
(void)(structure_set((V110),VV[0],2,/* INLINE-ARGS */V115)); |
(void)(structure_set((V110),VV[0],2,/* INLINE-ARGS */V115)); |
585 |
goto T239; |
goto T239; |
586 |
goto T243; |
goto T243; |
587 |
T243:; |
T243:; |
588 |
(void)(structure_set((V110),VV[0],2,(V108))); |
(void)(structure_set((V110),VV[0],2,(V108))); |
589 |
(void)(structure_set((V110),VV[0],4,(V108))); |
(void)(structure_set((V110),VV[0],4,(V108))); |
590 |
V108= number_plus((V108),small_fixnum(1)); |
V108= number_plus((V108),small_fixnum(1)); |
591 |
goto T239; |
goto T239; |
592 |
T239:; |
T239:; |
593 |
V109= cdr((V109)); |
V109= cdr((V109)); |
594 |
V110= car((V109)); |
V110= car((V109)); |
595 |
goto T234;} |
goto T234;} |
596 |
goto T230; |
goto T230; |
597 |
T230:; |
T230:; |
598 |
if(!(number_compare((V108),small_fixnum(0))>0)){ |
if(!(number_compare((V108),small_fixnum(0))>0)){ |
599 |
goto T255;} |
goto T255;} |
602 |
princ_str("\n object base0[",VV[34]); |
princ_str("\n object base0[",VV[34]); |
603 |
(void)((*(LnkLI77))((V108))); |
(void)((*(LnkLI77))((V108))); |
604 |
princ_str("];",VV[34]); |
princ_str("];",VV[34]); |
605 |
goto T258; |
goto T258; |
606 |
T258:; |
T258:; |
607 |
setq(VV[36],make_cons(VV[35],symbol_value(VV[36]))); |
setq(VV[36],make_cons(VV[35],symbol_value(VV[36]))); |
608 |
princ_str("\n DCnames",VV[34]); |
princ_str("\n DCnames",VV[34]); |
609 |
(void)((*(LnkLI77))((V106))); |
(void)((*(LnkLI77))((V106))); |
610 |
princ_str("",VV[34]); |
princ_str("",VV[34]); |
611 |
goto T255; |
goto T255; |
612 |
T255:; |
T255:; |
613 |
{object V117 = (V108); |
{object V117 = (V108); |
614 |
VMR10(V117)}} |
VMR10(V117)}} |
621 |
|
|
622 |
object V119; |
object V119; |
623 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
624 |
goto TTL; |
goto TTL; |
625 |
TTL:;{object V120; |
TTL:;{object V120; |
626 |
base[0]= (V119); |
base[0]= (V119); |
627 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
630 |
V120= vs_base[0]; |
V120= vs_base[0]; |
631 |
if(V120==Cnil)goto T270; |
if(V120==Cnil)goto T270; |
632 |
goto T269; |
goto T269; |
633 |
goto T270; |
goto T270; |
634 |
T270:;} |
T270:;} |
635 |
(void)((*(LnkLI79))()); |
(void)((*(LnkLI79))()); |
636 |
goto T269; |
goto T269; |
637 |
T269:; |
T269:; |
638 |
princ_str("base0[",VV[34]); |
princ_str("base0[",VV[34]); |
639 |
(void)((*(LnkLI77))((V119))); |
(void)((*(LnkLI77))((V119))); |
649 |
|
|
650 |
register object V124;object V125; |
register object V124;object V125; |
651 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
652 |
goto TTL; |
goto TTL; |
653 |
TTL:; |
TTL:; |
654 |
V127= structure_ref((V124),VV[0],1); |
V127= structure_ref((V124),VV[0],1); |
655 |
{object V126= /* INLINE-ARGS */V127; |
{object V126= /* INLINE-ARGS */V127; |
659 |
V128= structure_ref((V124),VV[0],3); |
V128= structure_ref((V124),VV[0],3); |
660 |
{object V129 = (*(LnkLI80))(/* INLINE-ARGS */V128); |
{object V129 = (*(LnkLI80))(/* INLINE-ARGS */V128); |
661 |
VMR12(V129)} |
VMR12(V129)} |
662 |
goto T278; |
goto T278; |
663 |
T278:; |
T278:; |
664 |
if((structure_ref((V124),VV[0],3))==Cnil){ |
if((structure_ref((V124),VV[0],3))==Cnil){ |
665 |
goto T281;} |
goto T281;} |
666 |
V130= structure_ref((V124),VV[0],2); |
V130= structure_ref((V124),VV[0],2); |
667 |
{object V131 = (*(LnkLI81))(/* INLINE-ARGS */V130); |
{object V131 = (*(LnkLI81))(/* INLINE-ARGS */V130); |
668 |
VMR12(V131)} |
VMR12(V131)} |
669 |
goto T281; |
goto T281; |
670 |
T281:; |
T281:; |
671 |
V132= structure_ref((V124),VV[0],2); |
V132= structure_ref((V124),VV[0],2); |
672 |
if(!((Ct)==(/* INLINE-ARGS */V132))){ |
if(!((Ct)==(/* INLINE-ARGS */V132))){ |
681 |
goto T284;} |
goto T284;} |
682 |
(void)(structure_set((V124),VV[0],1,VV[7])); |
(void)(structure_set((V124),VV[0],1,VV[7])); |
683 |
goto TTL; |
goto TTL; |
684 |
goto T284; |
goto T284; |
685 |
T284:; |
T284:; |
686 |
V135= structure_ref((V124),VV[0],2); |
V135= structure_ref((V124),VV[0],2); |
687 |
{object V136 = (*(LnkLI82))(/* INLINE-ARGS */V135); |
{object V136 = (*(LnkLI82))(/* INLINE-ARGS */V135); |
688 |
VMR12(V136)} |
VMR12(V136)} |
689 |
goto T276; |
goto T276; |
690 |
T276:; |
T276:; |
691 |
if((V126!= VV[4]))goto T296; |
if((V126!= VV[4]))goto T296; |
692 |
princ_str("(VV[",VV[34]); |
princ_str("(VV[",VV[34]); |
695 |
princ_str("]->s.s_dbind)",VV[34]); |
princ_str("]->s.s_dbind)",VV[34]); |
696 |
{object V138 = Cnil; |
{object V138 = Cnil; |
697 |
VMR12(V138)} |
VMR12(V138)} |
698 |
goto T296; |
goto T296; |
699 |
T296:; |
T296:; |
700 |
if((V126!= VV[83]))goto T300; |
if((V126!= VV[83]))goto T300; |
701 |
V139= structure_ref((V124),VV[0],4); |
V139= structure_ref((V124),VV[0],4); |
702 |
(void)((*(LnkLI77))(/* INLINE-ARGS */V139)); |
(void)((*(LnkLI77))(/* INLINE-ARGS */V139)); |
703 |
{object V140 = Cnil; |
{object V140 = Cnil; |
704 |
VMR12(V140)} |
VMR12(V140)} |
705 |
goto T300; |
goto T300; |
706 |
T300:; |
T300:; |
707 |
if((V126!= VV[32]))goto T302; |
if((V126!= VV[32]))goto T302; |
708 |
V141= structure_ref((V124),VV[0],4); |
V141= structure_ref((V124),VV[0],4); |
709 |
{object V142 = (*(LnkLI84))(/* INLINE-ARGS */V141); |
{object V142 = (*(LnkLI84))(/* INLINE-ARGS */V141); |
710 |
VMR12(V142)} |
VMR12(V142)} |
711 |
goto T302; |
goto T302; |
712 |
T302:; |
T302:; |
713 |
if((V126!= VV[15]))goto T303; |
if((V126!= VV[15]))goto T303; |
714 |
if((symbol_value(VV[37]))==Cnil){ |
if((symbol_value(VV[37]))==Cnil){ |
719 |
princ_str("])",VV[34]); |
princ_str("])",VV[34]); |
720 |
{object V144 = Cnil; |
{object V144 = Cnil; |
721 |
VMR12(V144)} |
VMR12(V144)} |
722 |
goto T305; |
goto T305; |
723 |
T305:; |
T305:; |
724 |
princ_str("(VV[",VV[34]); |
princ_str("(VV[",VV[34]); |
725 |
V145= structure_ref((V124),VV[0],4); |
V145= structure_ref((V124),VV[0],4); |
727 |
princ_str("]->s.s_dbind)",VV[34]); |
princ_str("]->s.s_dbind)",VV[34]); |
728 |
{object V146 = Cnil; |
{object V146 = Cnil; |
729 |
VMR12(V146)} |
VMR12(V146)} |
730 |
goto T303; |
goto T303; |
731 |
T303:; |
T303:; |
732 |
V148= structure_ref((V124),VV[0],1); |
V148= structure_ref((V124),VV[0],1); |
733 |
{object V147= /* INLINE-ARGS */V148; |
{object V147= /* INLINE-ARGS */V148; |
735 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[38]))==0)){ |
if(!(number_compare(small_fixnum(0),symbol_value(VV[38]))==0)){ |
736 |
goto T315;} |
goto T315;} |
737 |
princ_str("CMP",VV[34]); |
princ_str("CMP",VV[34]); |
738 |
goto T315; |
goto T315; |
739 |
T315:; |
T315:; |
740 |
princ_str("make_fixnum",VV[34]); |
princ_str("make_fixnum",VV[34]); |
741 |
goto T313; |
goto T313; |
742 |
goto T314; |
goto T314; |
743 |
T314:; |
T314:; |
744 |
if((V147!= VV[24]))goto T320; |
if((V147!= VV[24]))goto T320; |
745 |
princ_str("make_integer",VV[34]); |
princ_str("make_integer",VV[34]); |
746 |
goto T313; |
goto T313; |
747 |
goto T320; |
goto T320; |
748 |
T320:; |
T320:; |
749 |
if((V147!= VV[25]))goto T322; |
if((V147!= VV[25]))goto T322; |
750 |
princ_str("code_char",VV[34]); |
princ_str("code_char",VV[34]); |
751 |
goto T313; |
goto T313; |
752 |
goto T322; |
goto T322; |
753 |
T322:; |
T322:; |
754 |
if((V147!= VV[26]))goto T324; |
if((V147!= VV[26]))goto T324; |
755 |
princ_str("make_longfloat",VV[34]); |
princ_str("make_longfloat",VV[34]); |
756 |
goto T313; |
goto T313; |
757 |
goto T324; |
goto T324; |
758 |
T324:; |
T324:; |
759 |
if((V147!= VV[27]))goto T326; |
if((V147!= VV[27]))goto T326; |
760 |
princ_str("make_shortfloat",VV[34]); |
princ_str("make_shortfloat",VV[34]); |
761 |
goto T313; |
goto T313; |
762 |
goto T326; |
goto T326; |
763 |
T326:; |
T326:; |
764 |
if((V147!= VV[7]))goto T328; |
if((V147!= VV[7]))goto T328; |
765 |
goto T313; |
goto T313; |
766 |
goto T328; |
goto T328; |
767 |
T328:; |
T328:; |
768 |
(void)((*(LnkLI85))());} |
(void)((*(LnkLI85))());} |
769 |
goto T313; |
goto T313; |
770 |
T313:; |
T313:; |
771 |
princ_str("(V",VV[34]); |
princ_str("(V",VV[34]); |
772 |
V149= structure_ref((V124),VV[0],4); |
V149= structure_ref((V124),VV[0],4); |
783 |
register object V154;register object V155;object V156; |
register object V154;register object V155;object V156; |
784 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
785 |
bds_check; |
bds_check; |
786 |
goto TTL; |
goto TTL; |
787 |
TTL:; |
TTL:; |
788 |
if(!(type_of((V154))==t_cons)){ |
if(!(type_of((V154))==t_cons)){ |
789 |
goto T332;} |
goto T332;} |
793 |
goto T332;} |
goto T332;} |
794 |
if((caddr((V154)))==((V156))){ |
if((caddr((V154)))==((V156))){ |
795 |
goto T333;} |
goto T333;} |
796 |
goto T332; |
goto T332; |
797 |
T332:; |
T332:; |
798 |
V158= structure_ref((V155),VV[0],1); |
V158= structure_ref((V155),VV[0],1); |
799 |
{object V157= /* INLINE-ARGS */V158; |
{object V157= /* INLINE-ARGS */V158; |
804 |
V159= structure_ref((V155),VV[0],3); |
V159= structure_ref((V155),VV[0],3); |
805 |
(void)((*(LnkLI80))(/* INLINE-ARGS */V159)); |
(void)((*(LnkLI80))(/* INLINE-ARGS */V159)); |
806 |
goto T343; |
goto T343; |
807 |
goto T345; |
goto T345; |
808 |
T345:; |
T345:; |
809 |
if((structure_ref((V155),VV[0],3))==Cnil){ |
if((structure_ref((V155),VV[0],3))==Cnil){ |
810 |
goto T348;} |
goto T348;} |
811 |
V160= structure_ref((V155),VV[0],2); |
V160= structure_ref((V155),VV[0],2); |
812 |
(void)((*(LnkLI81))(/* INLINE-ARGS */V160)); |
(void)((*(LnkLI81))(/* INLINE-ARGS */V160)); |
813 |
goto T343; |
goto T343; |
814 |
goto T348; |
goto T348; |
815 |
T348:; |
T348:; |
816 |
V161= structure_ref((V155),VV[0],2); |
V161= structure_ref((V155),VV[0],2); |
817 |
(void)((*(LnkLI82))(/* INLINE-ARGS */V161)); |
(void)((*(LnkLI82))(/* INLINE-ARGS */V161)); |
818 |
goto T343; |
goto T343; |
819 |
T343:; |
T343:; |
820 |
princ_str("= ",VV[34]); |
princ_str("= ",VV[34]); |
821 |
(void)((*(LnkLI77))((V154))); |
(void)((*(LnkLI77))((V154))); |
822 |
princ_char(59,VV[34]); |
princ_char(59,VV[34]); |
823 |
{object V162 = Cnil; |
{object V162 = Cnil; |
824 |
VMR13(V162)} |
VMR13(V162)} |
825 |
goto T341; |
goto T341; |
826 |
T341:; |
T341:; |
827 |
if((V157!= VV[4]))goto T353; |
if((V157!= VV[4]))goto T353; |
828 |
princ_str("\n (VV[",VV[34]); |
princ_str("\n (VV[",VV[34]); |
833 |
princ_char(59,VV[34]); |
princ_char(59,VV[34]); |
834 |
{object V164 = Cnil; |
{object V164 = Cnil; |
835 |
VMR13(V164)} |
VMR13(V164)} |
836 |
goto T353; |
goto T353; |
837 |
T353:; |
T353:; |
838 |
if((V157!= VV[15]))goto T359; |
if((V157!= VV[15]))goto T359; |
839 |
if((symbol_value(VV[37]))==Cnil){ |
if((symbol_value(VV[37]))==Cnil){ |
846 |
princ_str(");",VV[34]); |
princ_str(");",VV[34]); |
847 |
{object V166 = Cnil; |
{object V166 = Cnil; |
848 |
VMR13(V166)} |
VMR13(V166)} |
849 |
goto T361; |
goto T361; |
850 |
T361:; |
T361:; |
851 |
princ_str("\n (VV[",VV[34]); |
princ_str("\n (VV[",VV[34]); |
852 |
V167= structure_ref((V155),VV[0],4); |
V167= structure_ref((V155),VV[0],4); |
856 |
princ_char(59,VV[34]); |
princ_char(59,VV[34]); |
857 |
{object V168 = Cnil; |
{object V168 = Cnil; |
858 |
VMR13(V168)} |
VMR13(V168)} |
859 |
goto T359; |
goto T359; |
860 |
T359:; |
T359:; |
861 |
if((V157!= VV[32]))goto T373; |
if((V157!= VV[32]))goto T373; |
862 |
princ_str("\n ",VV[34]); |
princ_str("\n ",VV[34]); |
867 |
princ_char(59,VV[34]); |
princ_char(59,VV[34]); |
868 |
{object V170 = Cnil; |
{object V170 = Cnil; |
869 |
VMR13(V170)} |
VMR13(V170)} |
870 |
goto T373; |
goto T373; |
871 |
T373:; |
T373:; |
872 |
if((V157!= VV[24]))goto T380; |
if((V157!= VV[24]))goto T380; |
873 |
{object V171; |
{object V171; |
876 |
goto T382;} |
goto T382;} |
877 |
V171= Cnil; |
V171= Cnil; |
878 |
goto T381; |
goto T381; |
879 |
goto T382; |
goto T382; |
880 |
T382:; |
T382:; |
881 |
V171= car((V154)); |
V171= car((V154)); |
882 |
goto T381; |
goto T381; |
883 |
T381:; |
T381:; |
884 |
V172= structure_ref((V155),VV[0],4); |
V172= structure_ref((V155),VV[0],4); |
885 |
{object V173= (V171); |
{object V173= (V171); |
895 |
(void) (*Lnk87)(); |
(void) (*Lnk87)(); |
896 |
vs_top=sup; |
vs_top=sup; |
897 |
goto T385; |
goto T385; |
898 |
goto T386; |
goto T386; |
899 |
T386:; |
T386:; |
900 |
if((V173!= VV[88]))goto T395; |
if((V173!= VV[88]))goto T395; |
901 |
princ_str("\n ISETQ_FIX(V",VV[34]); |
princ_str("\n ISETQ_FIX(V",VV[34]); |
905 |
princ_str("alloc,",VV[34]); |
princ_str("alloc,",VV[34]); |
906 |
(void)((*(LnkLI77))(caddr((V154)))); |
(void)((*(LnkLI77))(caddr((V154)))); |
907 |
goto T385; |
goto T385; |
908 |
goto T395; |
goto T395; |
909 |
T395:; |
T395:; |
910 |
if((V173!= VV[0]))goto T402; |
if((V173!= VV[0]))goto T402; |
911 |
V175= structure_ref(cadr((V154)),VV[0],1); |
V175= structure_ref(cadr((V154)),VV[0],1); |
919 |
V176= structure_ref(cadr((V154)),VV[0],4); |
V176= structure_ref(cadr((V154)),VV[0],4); |
920 |
(void)((*(LnkLI77))(/* INLINE-ARGS */V176)); |
(void)((*(LnkLI77))(/* INLINE-ARGS */V176)); |
921 |
goto T385; |
goto T385; |
922 |
goto T403; |
goto T403; |
923 |
T403:; |
T403:; |
924 |
if((V174!= VV[23]))goto T410; |
if((V174!= VV[23]))goto T410; |
925 |
princ_str("ISETQ_FIX(V",VV[34]); |
princ_str("ISETQ_FIX(V",VV[34]); |
930 |
V177= structure_ref(cadr((V154)),VV[0],4); |
V177= structure_ref(cadr((V154)),VV[0],4); |
931 |
(void)((*(LnkLI77))(/* INLINE-ARGS */V177)); |
(void)((*(LnkLI77))(/* INLINE-ARGS */V177)); |
932 |
goto T385; |
goto T385; |
933 |
goto T410; |
goto T410; |
934 |
T410:; |
T410:; |
935 |
princ_str("SETQ_IO(V",VV[34]); |
princ_str("SETQ_IO(V",VV[34]); |
936 |
(void)((*(LnkLI77))((V172))); |
(void)((*(LnkLI77))((V172))); |
939 |
princ_str("alloc,",VV[34]); |
princ_str("alloc,",VV[34]); |
940 |
(void)((*(LnkLI77))((V154))); |
(void)((*(LnkLI77))((V154))); |
941 |
goto T385;} |
goto T385;} |
942 |
goto T402; |
goto T402; |
943 |
T402:; |
T402:; |
944 |
if((V173!= VV[54]))goto T423; |
if((V173!= VV[54]))goto T423; |
945 |
princ_str("SETQ_IO(V",VV[34]); |
princ_str("SETQ_IO(V",VV[34]); |
949 |
princ_str("alloc,",VV[34]); |
princ_str("alloc,",VV[34]); |
950 |
(void)((*(LnkLI77))((V154))); |
(void)((*(LnkLI77))((V154))); |
951 |
goto T385; |
goto T385; |
952 |
goto T423; |
goto T423; |
953 |
T423:; |
T423:; |
954 |
bds_bind(VV[39],small_fixnum(0)); |
bds_bind(VV[39],small_fixnum(0)); |
955 |
bds_bind(VV[40],symbol_value(VV[40])); |
bds_bind(VV[40],symbol_value(VV[40])); |
973 |
bds_unwind1; |
bds_unwind1; |
974 |
{object V179 = Cnil; |
{object V179 = Cnil; |
975 |
VMR13(V179)}} |
VMR13(V179)}} |
976 |
goto T385; |
goto T385; |
977 |
T385:; |
T385:; |
978 |
princ_str(");",VV[34]); |
princ_str(");",VV[34]); |
979 |
{object V180 = Cnil; |
{object V180 = Cnil; |
980 |
VMR13(V180)}} |
VMR13(V180)}} |
981 |
goto T380; |
goto T380; |
982 |
T380:; |
T380:; |
983 |
princ_str("\n V",VV[34]); |
princ_str("\n V",VV[34]); |
984 |
V181= structure_ref((V155),VV[0],4); |
V181= structure_ref((V155),VV[0],4); |
992 |
(void) (*Lnk92)(); |
(void) (*Lnk92)(); |
993 |
vs_top=sup; |
vs_top=sup; |
994 |
goto T449; |
goto T449; |
995 |
goto T450; |
goto T450; |
996 |
T450:; |
T450:; |
997 |
if((V182!= VV[25]))goto T452; |
if((V182!= VV[25]))goto T452; |
998 |
base[0]= (V154); |
base[0]= (V154); |
1000 |
(void) (*Lnk93)(); |
(void) (*Lnk93)(); |
1001 |
vs_top=sup; |
vs_top=sup; |
1002 |
goto T449; |
goto T449; |
1003 |
goto T452; |
goto T452; |
1004 |
T452:; |
T452:; |
1005 |
if((V182!= VV[26]))goto T454; |
if((V182!= VV[26]))goto T454; |
1006 |
base[0]= (V154); |
base[0]= (V154); |
1008 |
(void) (*Lnk94)(); |
(void) (*Lnk94)(); |
1009 |
vs_top=sup; |
vs_top=sup; |
1010 |
goto T449; |
goto T449; |
1011 |
goto T454; |
goto T454; |
1012 |
T454:; |
T454:; |
1013 |
if((V182!= VV[27]))goto T456; |
if((V182!= VV[27]))goto T456; |
1014 |
base[0]= (V154); |
base[0]= (V154); |
1016 |
(void) (*Lnk95)(); |
(void) (*Lnk95)(); |
1017 |
vs_top=sup; |
vs_top=sup; |
1018 |
goto T449; |
goto T449; |
1019 |
goto T456; |
goto T456; |
1020 |
T456:; |
T456:; |
1021 |
if((V182!= VV[7]))goto T458; |
if((V182!= VV[7]))goto T458; |
1022 |
base[0]= (V154); |
base[0]= (V154); |
1024 |
(void) (*Lnk96)(); |
(void) (*Lnk96)(); |
1025 |
vs_top=sup; |
vs_top=sup; |
1026 |
goto T449; |
goto T449; |
1027 |
goto T458; |
goto T458; |
1028 |
T458:; |
T458:; |
1029 |
(void)((*(LnkLI85))());} |
(void)((*(LnkLI85))());} |
1030 |
goto T449; |
goto T449; |
1031 |
T449:; |
T449:; |
1032 |
princ_char(59,VV[34]); |
princ_char(59,VV[34]); |
1033 |
{object V184 = Cnil; |
{object V184 = Cnil; |
1034 |
VMR13(V184)}} |
VMR13(V184)}} |
1035 |
goto T333; |
goto T333; |
1036 |
T333:; |
T333:; |
1037 |
{object V185 = Cnil; |
{object V185 = Cnil; |
1038 |
VMR13(V185)} |
VMR13(V185)} |
1045 |
|
|
1046 |
register object V187; |
register object V187; |
1047 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1048 |
goto TTL; |
goto TTL; |
1049 |
TTL:; |
TTL:; |
1050 |
{register object V188; |
{register object V188; |
1051 |
register object V189; |
register object V189; |
1052 |
V188= symbol_value(VV[18]); |
V188= symbol_value(VV[18]); |
1053 |
V189= car((V188)); |
V189= car((V188)); |
1054 |
goto T464; |
goto T464; |
1055 |
T464:; |
T464:; |
1056 |
if(!(endp_prop((V188)))){ |
if(!(endp_prop((V188)))){ |
1057 |
goto T465;} |
goto T465;} |
1058 |
{object V190 = Cnil; |
{object V190 = Cnil; |
1059 |
VMR14(V190)} |
VMR14(V190)} |
1060 |
goto T465; |
goto T465; |
1061 |
T465:; |
T465:; |
1062 |
V191= structure_ref((V189),VV[0],0); |
V191= structure_ref((V189),VV[0],0); |
1063 |
if(!((/* INLINE-ARGS */V191)==((V187)))){ |
if(!((/* INLINE-ARGS */V191)==((V187)))){ |
1064 |
goto T469;} |
goto T469;} |
1065 |
{object V192 = (V189); |
{object V192 = (V189); |
1066 |
VMR14(V192)} |
VMR14(V192)} |
1067 |
goto T469; |
goto T469; |
1068 |
T469:; |
T469:; |
1069 |
V188= cdr((V188)); |
V188= cdr((V188)); |
1070 |
V189= car((V188)); |
V189= car((V188)); |
1078 |
|
|
1079 |
object V194; |
object V194; |
1080 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
1081 |
goto TTL; |
goto TTL; |
1082 |
TTL:; |
TTL:; |
1083 |
{register object V195; |
{register object V195; |
1084 |
register object V196; |
register object V196; |
1085 |
V195= (V194); |
V195= (V194); |
1086 |
V196= car((V195)); |
V196= car((V195)); |
1087 |
goto T480; |
goto T480; |
1088 |
T480:; |
T480:; |
1089 |
if(!(endp_prop((V195)))){ |
if(!(endp_prop((V195)))){ |
1090 |
goto T481;} |
goto T481;} |
1091 |
{object V197 = Cnil; |
{object V197 = Cnil; |
1092 |
VMR15(V197)} |
VMR15(V197)} |
1093 |
goto T481; |
goto T481; |
1094 |
T481:; |
T481:; |
1095 |
{register object V198; |
{register object V198; |
1096 |
V199= (*(LnkLI68))((V196)); |
V199= (*(LnkLI68))((V196)); |
1100 |
goto T490;} |
goto T490;} |
1101 |
V200= (V201); |
V200= (V201); |
1102 |
goto T487; |
goto T487; |
1103 |
goto T490; |
goto T490; |
1104 |
T490:; |
T490:; |
1105 |
V200= Ct;} |
V200= Ct;} |
1106 |
goto T487; |
goto T487; |
1107 |
T487:; |
T487:; |
1108 |
V198= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V196),VV[14],VV[15],VV[16],/* INLINE-ARGS */V199,VV[17],V200)); |
V198= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V196),VV[14],VV[15],VV[16],/* INLINE-ARGS */V199,VV[17],V200)); |
1109 |
setq(VV[13],make_cons((V198),symbol_value(VV[13])));} |
setq(VV[13],make_cons((V198),symbol_value(VV[13])));} |
1119 |
|
|
1120 |
register object V203; |
register object V203; |
1121 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
1122 |
goto TTL; |
goto TTL; |
1123 |
TTL:; |
TTL:; |
1124 |
if(!(endp_prop((V203)))){ |
if(!(endp_prop((V203)))){ |
1125 |
goto T499;} |
goto T499;} |
1126 |
{object V204 = (*(LnkLI97))(); |
{object V204 = (*(LnkLI97))(); |
1127 |
VMR16(V204)} |
VMR16(V204)} |
1128 |
goto T499; |
goto T499; |
1129 |
T499:; |
T499:; |
1130 |
if(!(endp_prop(cdr((V203))))){ |
if(!(endp_prop(cdr((V203))))){ |
1131 |
goto T502;} |
goto T502;} |
1132 |
{object V205 = (*(LnkLI98))(VV[43],small_fixnum(2),small_fixnum(1)); |
{object V205 = (*(LnkLI98))(VV[43],small_fixnum(2),small_fixnum(1)); |
1133 |
VMR16(V205)} |
VMR16(V205)} |
1134 |
goto T502; |
goto T502; |
1135 |
T502:; |
T502:; |
1136 |
if(!(endp_prop(cddr((V203))))){ |
if(!(endp_prop(cddr((V203))))){ |
1137 |
goto T505;} |
goto T505;} |
1138 |
{object V206 = (*(LnkLI99))(car((V203)),cadr((V203))); |
{object V206 = (*(LnkLI99))(car((V203)),cadr((V203))); |
1139 |
VMR16(V206)} |
VMR16(V206)} |
1140 |
goto T505; |
goto T505; |
1141 |
T505:; |
T505:; |
1142 |
{register object V207; |
{register object V207; |
1143 |
register object V208; |
register object V208; |
1144 |
V207= (V203); |
V207= (V203); |
1145 |
V208= Cnil; |
V208= Cnil; |
1146 |
goto T508; |
goto T508; |
1147 |
T508:; |
T508:; |
1148 |
if(!(endp_prop((V207)))){ |
if(!(endp_prop((V207)))){ |
1149 |
goto T509;} |
goto T509;} |
1151 |
V210= make_cons(VV[44],/* INLINE-ARGS */V209); |
V210= make_cons(VV[44],/* INLINE-ARGS */V209); |
1152 |
{object V211 = (*(LnkLI100))(/* INLINE-ARGS */V210); |
{object V211 = (*(LnkLI100))(/* INLINE-ARGS */V210); |
1153 |
VMR16(V211)} |
VMR16(V211)} |
1154 |
goto T509; |
goto T509; |
1155 |
T509:; |
T509:; |
1156 |
if(!(endp_prop(cdr((V207))))){ |
if(!(endp_prop(cdr((V207))))){ |
1157 |
goto T513;} |
goto T513;} |
1158 |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[45],car((V207))))); |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[45],car((V207))))); |
1159 |
goto T513; |
goto T513; |
1160 |
T513:; |
T513:; |
1161 |
{register object V212; |
{register object V212; |
1162 |
V212= list(3,VV[43],car((V207)),cadr((V207))); |
V212= list(3,VV[43],car((V207)),cadr((V207))); |
1172 |
|
|
1173 |
register object V215;object V216; |
register object V215;object V216; |
1174 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
1175 |
goto TTL; |
goto TTL; |
1176 |
TTL:; |
TTL:; |
1177 |
{register object V217; |
{register object V217; |
1178 |
register object V218; |
register object V218; |
1185 |
if(type_of((V215))==t_symbol){ |
if(type_of((V215))==t_symbol){ |
1186 |
goto T526;} |
goto T526;} |
1187 |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[46],(V215)))); |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[46],(V215)))); |
1188 |
goto T526; |
goto T526; |
1189 |
T526:; |
T526:; |
1190 |
base[1]= (V215); |
base[1]= (V215); |
1191 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1194 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1195 |
goto T529;} |
goto T529;} |
1196 |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[47],(V215)))); |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[47],(V215)))); |
1197 |
goto T529; |
goto T529; |
1198 |
T529:; |
T529:; |
1199 |
V220= (*(LnkLI72))((V215)); |
V220= (*(LnkLI72))((V215)); |
1200 |
{object V221; |
{object V221; |
1211 |
if(((V218))!=Cnil){ |
if(((V218))!=Cnil){ |
1212 |
goto T543;} |
goto T543;} |
1213 |
(void)((VFUN_NARGS=3,(*(LnkLI70))(VV[48],(V215),(V216)))); |
(void)((VFUN_NARGS=3,(*(LnkLI70))(VV[48],(V215),(V216)))); |
1214 |
goto T543; |
goto T543; |
1215 |
T543:; |
T543:; |
1216 |
V227= structure_ref(cadr((V219)),VV[12],2); |
V227= structure_ref(cadr((V219)),VV[12],2); |
1217 |
if(((V218))==(/* INLINE-ARGS */V227)){ |
if(((V218))==(/* INLINE-ARGS */V227)){ |
1224 |
V228= vs_base[0]; |
V228= vs_base[0]; |
1225 |
(void)(structure_set((V228),VV[12],2,(V218))); |
(void)(structure_set((V228),VV[12],2,(V218))); |
1226 |
V219= listA(3,car((V219)),(V228),cddr((V219)));} |
V219= listA(3,car((V219)),(V228),cddr((V219)));} |
1227 |
goto T546; |
goto T546; |
1228 |
T546:; |
T546:; |
1229 |
(void)(structure_set((V217),VV[12],2,(V218))); |
(void)(structure_set((V217),VV[12],2,(V218))); |
1230 |
{object V229 = list(4,VV[43],(V217),(V220),(V219)); |
{object V229 = list(4,VV[43],(V217),(V220),(V219)); |
1239 |
object V232;object V233; |
object V232;object V233; |
1240 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1241 |
bds_check; |
bds_check; |
1242 |
goto TTL; |
goto TTL; |
1243 |
TTL:; |
TTL:; |
1244 |
base[0]= make_cons(VV[0],(V232)); |
base[0]= make_cons(VV[0],(V232)); |
1245 |
bds_bind(VV[49],base[0]); |
bds_bind(VV[49],base[0]); |
1249 |
if((V235!= VV[105]))goto T556; |
if((V235!= VV[105]))goto T556; |
1250 |
{object V236 = (*(LnkLI106))(caddr((V233))); |
{object V236 = (*(LnkLI106))(caddr((V233))); |
1251 |
VMR18(V236)} |
VMR18(V236)} |
1252 |
goto T556; |
goto T556; |
1253 |
T556:; |
T556:; |
1254 |
V237= make_cons(VV[0],(V232)); |
V237= make_cons(VV[0],(V232)); |
1255 |
{object V238 = (VFUN_NARGS=1,(*(LnkLI76))(/* INLINE-ARGS */V237)); |
{object V238 = (VFUN_NARGS=1,(*(LnkLI76))(/* INLINE-ARGS */V237)); |
1263 |
|
|
1264 |
register object V240; |
register object V240; |
1265 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
1266 |
goto TTL; |
goto TTL; |
1267 |
TTL:; |
TTL:; |
1268 |
{object V241; |
{object V241; |
1269 |
object V242; |
object V242; |
1275 |
goto T561;} |
goto T561;} |
1276 |
if(!(endp_prop(cdr((V240))))){ |
if(!(endp_prop(cdr((V240))))){ |
1277 |
goto T560;} |
goto T560;} |
1278 |
goto T561; |
goto T561; |
1279 |
T561:; |
T561:; |
1280 |
V244 = make_fixnum((long)length((V240))); |
V244 = make_fixnum((long)length((V240))); |
1281 |
(void)((*(LnkLI98))(VV[50],small_fixnum(2),V244)); |
(void)((*(LnkLI98))(VV[50],small_fixnum(2),V244)); |
1282 |
goto T560; |
goto T560; |
1283 |
T560:; |
T560:; |
1284 |
V241= (*(LnkLI107))(car((V240)),(V243)); |
V241= (*(LnkLI107))(car((V240)),(V243)); |
1285 |
V242= (*(LnkLI107))(cadr((V240)),(V243)); |
V242= (*(LnkLI107))(cadr((V240)),(V243)); |
1295 |
object V249;object V250;object V251; |
object V249;object V250;object V251; |
1296 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
1297 |
bds_check; |
bds_check; |
1298 |
goto TTL; |
goto TTL; |
1299 |
TTL:; |
TTL:; |
1300 |
{object V252; |
{object V252; |
1301 |
setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1))); |
setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1))); |
1326 |
goto T594;} |
goto T594;} |
1327 |
princ_str("\n if(type_of(MMcar(symbols))!=t_symbol)",VV[34]); |
princ_str("\n if(type_of(MMcar(symbols))!=t_symbol)",VV[34]); |
1328 |
princ_str("\n FEinvalid_variable(\"~s is not a symbol.\",MMcar(symbols));",VV[34]); |
princ_str("\n FEinvalid_variable(\"~s is not a symbol.\",MMcar(symbols));",VV[34]); |
1329 |
goto T594; |
goto T594; |
1330 |
T594:; |
T594:; |
1331 |
princ_str("\n if(endp(values))bds_bind(MMcar(symbols),OBJNULL);",VV[34]); |
princ_str("\n if(endp(values))bds_bind(MMcar(symbols),OBJNULL);",VV[34]); |
1332 |
princ_str("\n else{bds_bind(MMcar(symbols),MMcar(values));",VV[34]); |
princ_str("\n else{bds_bind(MMcar(symbols),MMcar(values));",VV[34]); |
1350 |
|
|
1351 |
object V256; |
object V256; |
1352 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
1353 |
goto TTL; |
goto TTL; |
1354 |
TTL:; |
TTL:; |
1355 |
{object V257; |
{object V257; |
1356 |
register object V258; |
register object V258; |
1360 |
V259= (VFUN_NARGS=2,(*(LnkLI71))(VV[17],VV[55])); |
V259= (VFUN_NARGS=2,(*(LnkLI71))(VV[17],VV[55])); |
1361 |
{register object V260; |
{register object V260; |
1362 |
V260= (V256); |
V260= (V256); |
1363 |
goto T615; |
goto T615; |
1364 |
T615:; |
T615:; |
1365 |
if(!(endp_prop((V260)))){ |
if(!(endp_prop((V260)))){ |
1366 |
goto T616;} |
goto T616;} |
1367 |
goto T613; |
goto T613; |
1368 |
goto T616; |
goto T616; |
1369 |
T616:; |
T616:; |
1370 |
if(type_of(car((V260)))==t_symbol){ |
if(type_of(car((V260)))==t_symbol){ |
1371 |
goto T620;} |
goto T620;} |
1372 |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[56],car((V260))))); |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[56],car((V260))))); |
1373 |
goto T620; |
goto T620; |
1374 |
T620:; |
T620:; |
1375 |
base[1]= car((V260)); |
base[1]= car((V260)); |
1376 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1379 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1380 |
goto T623;} |
goto T623;} |
1381 |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[57],car((V260))))); |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[57],car((V260))))); |
1382 |
goto T623; |
goto T623; |
1383 |
T623:; |
T623:; |
1384 |
if(!(endp_prop(cdr((V260))))){ |
if(!(endp_prop(cdr((V260))))){ |
1385 |
goto T627;} |
goto T627;} |
1386 |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[58],car((V260))))); |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[58],car((V260))))); |
1387 |
goto T627; |
goto T627; |
1388 |
T627:; |
T627:; |
1389 |
{register object V261; |
{register object V261; |
1390 |
register object V262; |
register object V262; |
1405 |
V267= vs_base[0]; |
V267= vs_base[0]; |
1406 |
(void)(structure_set((V267),VV[12],2,(V263))); |
(void)(structure_set((V267),VV[12],2,(V263))); |
1407 |
V262= listA(3,car((V262)),(V267),cddr((V262)));} |
V262= listA(3,car((V262)),(V267),cddr((V262)));} |
1408 |
goto T634; |
goto T634; |
1409 |
T634:; |
T634:; |
1410 |
V257= make_cons(V261,(V257)); |
V257= make_cons(V261,(V257)); |
1411 |
V258= make_cons(V262,(V258)); |
V258= make_cons(V262,(V258)); |
1420 |
(void)((*(LnkLI101))((V259),cadar((V258))));} |
(void)((*(LnkLI101))((V259),cadar((V258))));} |
1421 |
V260= cddr((V260)); |
V260= cddr((V260)); |
1422 |
goto T615;} |
goto T615;} |
1423 |
goto T613; |
goto T613; |
1424 |
T613:; |
T613:; |
1425 |
V274= reverse((V257)); |
V274= reverse((V257)); |
1426 |
{object V275 = list(4,VV[59],(V259),/* INLINE-ARGS */V274,reverse((V258))); |
{object V275 = list(4,VV[59],(V259),/* INLINE-ARGS */V274,reverse((V258))); |
1435 |
object V278;register object V279; |
object V278;register object V279; |
1436 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
1437 |
bds_check; |
bds_check; |
1438 |
goto TTL; |
goto TTL; |
1439 |
TTL:; |
TTL:; |
1440 |
{register object V280; |
{register object V280; |
1441 |
object V281; |
object V281; |
1446 |
register object V283; |
register object V283; |
1447 |
V282= (V278); |
V282= (V278); |
1448 |
V283= car((V282)); |
V283= car((V282)); |
1449 |
goto T658; |
goto T658; |
1450 |
T658:; |
T658:; |
1451 |
if(!(endp_prop((V282)))){ |
if(!(endp_prop((V282)))){ |
1452 |
goto T659;} |
goto T659;} |
1453 |
goto T654; |
goto T654; |
1454 |
goto T659; |
goto T659; |
1455 |
T659:; |
T659:; |
1456 |
if(((*(LnkLI111))(car((V283)),cdr((V279))))!=Cnil){ |
if(((*(LnkLI111))(car((V283)),cdr((V279))))!=Cnil){ |
1457 |
goto T664;} |
goto T664;} |
1458 |
if(((*(LnkLI112))(car((V283)),cdr((V279))))==Cnil){ |
if(((*(LnkLI112))(car((V283)),cdr((V279))))==Cnil){ |
1459 |
goto T665;} |
goto T665;} |
1460 |
goto T664; |
goto T664; |
1461 |
T664:; |
T664:; |
1462 |
{object V284= caar((V279)); |
{object V284= caar((V279)); |
1463 |
if((V284!= VV[105]))goto T669; |
if((V284!= VV[105]))goto T669; |
1465 |
V285= make_cons((V283),caddar((V279))); |
V285= make_cons((V283),caddar((V279))); |
1466 |
V280= make_cons((V285),(V280)); |
V280= make_cons((V285),(V280)); |
1467 |
goto T663;} |
goto T663;} |
1468 |
goto T669; |
goto T669; |
1469 |
T669:; |
T669:; |
1470 |
V287= structure_ref(car((V283)),VV[0],1); |
V287= structure_ref(car((V283)),VV[0],1); |
1471 |
{register object x= /* INLINE-ARGS */V287,V286= VV[60]; |
{register object x= /* INLINE-ARGS */V287,V286= VV[60]; |
1474 |
goto T674; |
goto T674; |
1475 |
}else V286=V286->c.c_cdr; |
}else V286=V286->c.c_cdr; |
1476 |
goto T673;} |
goto T673;} |
1477 |
goto T674; |
goto T674; |
1478 |
T674:; |
T674:; |
1479 |
{object V288; |
{object V288; |
1480 |
object V289; |
object V289; |
1499 |
V294= make_cons((V283),(V290)); |
V294= make_cons((V283),(V290)); |
1500 |
V280= make_cons((V294),(V280)); |
V280= make_cons((V294),(V280)); |
1501 |
goto T663;}} |
goto T663;}} |
1502 |
goto T673; |
goto T673; |
1503 |
T673:; |
T673:; |
1504 |
base[2]= list(2,VV[54],(*(LnkLI109))()); |
base[2]= list(2,VV[54],(*(LnkLI109))()); |
1505 |
bds_bind(VV[49],base[2]); |
bds_bind(VV[49],base[2]); |
1509 |
V280= make_cons((V295),(V280)); |
V280= make_cons((V295),(V280)); |
1510 |
bds_unwind1; |
bds_unwind1; |
1511 |
goto T663;}} |
goto T663;}} |
1512 |
goto T665; |
goto T665; |
1513 |
T665:; |
T665:; |
1514 |
base[2]= make_cons(VV[0],(V283)); |
base[2]= make_cons(VV[0],(V283)); |
1515 |
bds_bind(VV[49],base[2]); |
bds_bind(VV[49],base[2]); |
1516 |
V296= (*(LnkLI104))(car((V279))); |
V296= (*(LnkLI104))(car((V279))); |
1517 |
bds_unwind1; |
bds_unwind1; |
1518 |
goto T663; |
goto T663; |
1519 |
T663:; |
T663:; |
1520 |
{object V297; |
{object V297; |
1521 |
V297= car((V279)); |
V297= car((V279)); |
1523 |
V282= cdr((V282)); |
V282= cdr((V282)); |
1524 |
V283= car((V282)); |
V283= car((V282)); |
1525 |
goto T658;} |
goto T658;} |
1526 |
goto T654; |
goto T654; |
1527 |
T654:; |
T654:; |
1528 |
{register object V298; |
{register object V298; |
1529 |
register object V299; |
register object V299; |
1530 |
V298= (V280); |
V298= (V280); |
1531 |
V299= car((V298)); |
V299= car((V298)); |
1532 |
goto T709; |
goto T709; |
1533 |
T709:; |
T709:; |
1534 |
if(!(endp_prop((V298)))){ |
if(!(endp_prop((V298)))){ |
1535 |
goto T710;} |
goto T710;} |
1536 |
goto T705; |
goto T705; |
1537 |
goto T710; |
goto T710; |
1538 |
T710:; |
T710:; |
1539 |
(void)((*(LnkLI42))(cdr((V299)),caar((V299)),cadar((V299)))); |
(void)((*(LnkLI42))(cdr((V299)),caar((V299)),cadar((V299)))); |
1540 |
V298= cdr((V298)); |
V298= cdr((V298)); |
1541 |
V299= car((V298)); |
V299= car((V298)); |
1542 |
goto T709;} |
goto T709;} |
1543 |
goto T705; |
goto T705; |
1544 |
T705:; |
T705:; |
1545 |
{object V301; |
{object V301; |
1546 |
V301= small_fixnum(0); |
V301= small_fixnum(0); |
1547 |
goto T723; |
goto T723; |
1548 |
T723:; |
T723:; |
1549 |
if(!(number_compare((V301),V281)>=0)){ |
if(!(number_compare((V301),V281)>=0)){ |
1550 |
goto T724;} |
goto T724;} |
1551 |
goto T720; |
goto T720; |
1552 |
goto T724; |
goto T724; |
1553 |
T724:; |
T724:; |
1554 |
princ_char(125,VV[34]); |
princ_char(125,VV[34]); |
1555 |
V301= one_plus((V301)); |
V301= one_plus((V301)); |
1556 |
goto T723;} |
goto T723;} |
1557 |
goto T720; |
goto T720; |
1558 |
T720:; |
T720:; |
1559 |
{object V302 = (VFUN_NARGS=1,(*(LnkLI76))(Cnil)); |
{object V302 = (VFUN_NARGS=1,(*(LnkLI76))(Cnil)); |
1560 |
bds_unwind1; |
bds_unwind1; |
1572 |
check_arg(1); |
check_arg(1); |
1573 |
V303=(base[0]); |
V303=(base[0]); |
1574 |
vs_top=sup; |
vs_top=sup; |
1575 |
goto TTL; |
goto TTL; |
1576 |
TTL:; |
TTL:; |
1577 |
base[1]= (V303); |
base[1]= (V303); |
1578 |
base[2]= VV[0]; |
base[2]= VV[0]; |
1587 |
if(!((/* INLINE-ARGS */V305)==(VV[24]))){ |
if(!((/* INLINE-ARGS */V305)==(VV[24]))){ |
1588 |
goto T739;} |
goto T739;} |
1589 |
princ_str("IDECL(",VV[34]); |
princ_str("IDECL(",VV[34]); |
1590 |
goto T739; |
goto T739; |
1591 |
T739:; |
T739:; |
1592 |
(void)((*(LnkLI77))(symbol_value(VV[61]))); |
(void)((*(LnkLI77))(symbol_value(VV[61]))); |
1593 |
V306= (*(LnkLI69))((V303)); |
V306= (*(LnkLI69))((V303)); |
1605 |
princ_str("space,V",VV[34]); |
princ_str("space,V",VV[34]); |
1606 |
(void)((*(LnkLI77))((V304))); |
(void)((*(LnkLI77))((V304))); |
1607 |
princ_str("alloc)",VV[34]); |
princ_str("alloc)",VV[34]); |
1608 |
goto T749; |
goto T749; |
1609 |
T749:; |
T749:; |
1610 |
princ_char(59,VV[34]); |
princ_char(59,VV[34]); |
1611 |
base[1]= Cnil; |
base[1]= Cnil; |
1612 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1613 |
return;} |
return;} |
1614 |
goto T734; |
goto T734; |
1615 |
T734:; |
T734:; |
1616 |
base[1]= (*(LnkLI79))(); |
base[1]= (*(LnkLI79))(); |
1617 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |