63 |
goto T12; |
goto T12; |
64 |
T12:; |
T12:; |
65 |
{object V16; |
{object V16; |
66 |
if((car((V12)))==(VV[1])){ |
if((CMPcar((V12)))==(VV[1])){ |
67 |
goto T15;} |
goto T15;} |
68 |
V16= Cnil; |
V16= Cnil; |
69 |
goto T14; |
goto T14; |
70 |
goto T15; |
goto T15; |
71 |
T15:; |
T15:; |
72 |
V14= cadddr(cdr((V12))); |
V14= CMPcadddr(CMPcdr((V12))); |
73 |
base[0]= (V14); |
base[0]= (V14); |
74 |
base[1]= VV[0]; |
base[1]= VV[0]; |
75 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
81 |
goto T14; |
goto T14; |
82 |
goto T17; |
goto T17; |
83 |
T17:; |
T17:; |
84 |
V17= structure_ref((V14),VV[0],0); |
V16= ((STREF(object,(V14),0))==((V13))?Ct:Cnil); |
|
V16= ((/* INLINE-ARGS */V17)==((V13))?Ct:Cnil); |
|
85 |
goto T14; |
goto T14; |
86 |
T14:; |
T14:; |
87 |
if(((V16))==Cnil){ |
if(((V16))==Cnil){ |
88 |
goto T23;} |
goto T23;} |
89 |
{object V18 = (V16); |
{object V17 = (V16); |
90 |
VMR2(V18)} |
VMR2(V17)} |
91 |
goto T23; |
goto T23; |
92 |
T23:;{object V19; |
T23:;{object V18; |
93 |
V19= (*(LnkLI46))(car((V12)),(V13)); |
V18= (*(LnkLI46))(CMPcar((V12)),(V13)); |
94 |
if(V19==Cnil)goto T25; |
if(V18==Cnil)goto T25; |
95 |
{object V20 = V19; |
{object V19 = V18; |
96 |
VMR2(V20)} |
VMR2(V19)} |
97 |
goto T25; |
goto T25; |
98 |
T25:;} |
T25:;} |
99 |
V12= cdr((V12)); |
V12= CMPcdr((V12)); |
100 |
goto TTL;}} |
goto TTL;}} |
101 |
base[0]=base[0]; |
base[0]=base[0]; |
102 |
return Cnil; |
return Cnil; |
103 |
} |
} |
104 |
/* local entry for function ADD-REG1 */ |
/* local entry for function ADD-REG1 */ |
105 |
|
|
106 |
static object LI3(V22) |
static object LI3(V21) |
107 |
|
|
108 |
register object V22; |
register object V21; |
109 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
110 |
goto TTL; |
goto TTL; |
111 |
TTL:; |
TTL:; |
112 |
if(!(type_of((V22))!=t_cons)){ |
if(!(type_of((V21))!=t_cons)){ |
113 |
goto T31;} |
goto T31;} |
114 |
base[0]= (V22); |
base[0]= (V21); |
115 |
base[1]= VV[2]; |
base[1]= VV[2]; |
116 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
117 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
118 |
vs_top=sup; |
vs_top=sup; |
119 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
120 |
goto T34;} |
goto T34;} |
121 |
{long V23= fix(structure_ref((V22),VV[2],6)); |
V22 = CMPmake_fixnum((long)(fix(STREF(object,(V21),24)))+(fix((VV[3]->s.s_dbind)))); |
122 |
V24 = make_fixnum((long)(/* INLINE-ARGS */V23)+(fix(symbol_value(VV[3])))); |
V23= Ct; |
123 |
{object V25 = structure_set((V22),VV[2],6,V24); |
STSET(object,(V21),24, V22); |
124 |
VMR3(V25)}} |
{object V24 = V22; |
125 |
|
VMR3(V24)} |
126 |
goto T34; |
goto T34; |
127 |
T34:; |
T34:; |
128 |
{object V26 = Cnil; |
{object V25 = Cnil; |
129 |
VMR3(V26)} |
VMR3(V25)} |
130 |
goto T31; |
goto T31; |
131 |
T31:; |
T31:; |
132 |
(void)((*(LnkLI47))(car((V22)))); |
(void)((*(LnkLI47))(CMPcar((V21)))); |
133 |
V22= cdr((V22)); |
V21= CMPcdr((V21)); |
134 |
goto TTL; |
goto TTL; |
135 |
base[0]=base[0]; |
base[0]=base[0]; |
136 |
return Cnil; |
return Cnil; |
137 |
} |
} |
138 |
/* local entry for function ADD-LOOP-REGISTERS */ |
/* local entry for function ADD-LOOP-REGISTERS */ |
139 |
|
|
140 |
static object LI4(V28) |
static object LI4(V27) |
141 |
|
|
142 |
object V28; |
object V27; |
143 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
144 |
goto TTL; |
goto TTL; |
145 |
TTL:; |
TTL:; |
146 |
{register object V29; |
{register object V28; |
147 |
|
register object V29; |
148 |
register object V30; |
register object V30; |
149 |
register object V31; |
V28= (V27); |
150 |
V29= (V28); |
V29= Cnil; |
151 |
V30= Cnil; |
V30= Cnil; |
|
V31= Cnil; |
|
152 |
goto T42; |
goto T42; |
153 |
T42:; |
T42:; |
154 |
if(((V29))!=Cnil){ |
if(((V28))!=Cnil){ |
155 |
goto T43;} |
goto T43;} |
156 |
{register object V32; |
{register object V31; |
157 |
V32= (V31); |
V31= (V30); |
158 |
goto T47; |
goto T47; |
159 |
T47:; |
T47:; |
160 |
if(!(((V32))==((V30)))){ |
if(!(((V31))==((V29)))){ |
161 |
goto T48;} |
goto T48;} |
162 |
{object V33 = (*(LnkLI47))(car((V32))); |
{object V32 = (*(LnkLI47))(CMPcar((V31))); |
163 |
VMR4(V33)} |
VMR4(V32)} |
164 |
goto T48; |
goto T48; |
165 |
T48:; |
T48:; |
166 |
(void)((*(LnkLI47))(car((V32)))); |
(void)((*(LnkLI47))(CMPcar((V31)))); |
167 |
V32= cdr((V32)); |
V31= CMPcdr((V31)); |
168 |
goto T47;} |
goto T47;} |
169 |
goto T43; |
goto T43; |
170 |
T43:; |
T43:; |
171 |
base[0]= car((V29)); |
base[0]= CMPcar((V28)); |
172 |
base[1]= VV[0]; |
base[1]= VV[0]; |
173 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
174 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
175 |
vs_top=sup; |
vs_top=sup; |
176 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
177 |
goto T57;} |
goto T57;} |
178 |
if((V31)!=Cnil){ |
if((V30)!=Cnil){ |
179 |
goto T62;} |
goto T62;} |
180 |
V31= (V29); |
V30= (V28); |
181 |
goto T62; |
goto T62; |
182 |
T62:; |
T62:; |
183 |
{register object V34; |
{register object V33; |
184 |
register object V35; |
register object V34; |
185 |
V34= cdr((V29)); |
V33= CMPcdr((V28)); |
186 |
V35= structure_ref(car((V29)),VV[0],0); |
V34= STREF(object,CMPcar((V28)),0); |
187 |
goto T67; |
goto T67; |
188 |
T67:; |
T67:; |
189 |
if(((V34))!=Cnil){ |
if(((V33))!=Cnil){ |
190 |
goto T68;} |
goto T68;} |
191 |
goto T57; |
goto T57; |
192 |
goto T68; |
goto T68; |
193 |
T68:; |
T68:; |
194 |
if(((*(LnkLI46))(car((V34)),(V35)))==Cnil){ |
if(((*(LnkLI46))(CMPcar((V33)),(V34)))==Cnil){ |
195 |
goto T72;} |
goto T72;} |
196 |
V30= (V34); |
V29= (V33); |
197 |
goto T72; |
goto T72; |
198 |
T72:; |
T72:; |
199 |
V34= cdr((V34)); |
V33= CMPcdr((V33)); |
200 |
goto T67;} |
goto T67;} |
201 |
goto T57; |
goto T57; |
202 |
T57:; |
T57:; |
203 |
V29= cdr((V29)); |
V28= CMPcdr((V28)); |
204 |
goto T42;} |
goto T42;} |
205 |
base[0]=base[0]; |
base[0]=base[0]; |
206 |
return Cnil; |
return Cnil; |
207 |
} |
} |
208 |
/* local entry for function C1TAGBODY */ |
/* local entry for function C1TAGBODY */ |
209 |
|
|
210 |
static object LI5(V37) |
static object LI5(V36) |
211 |
|
|
212 |
object V37; |
object V36; |
213 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
214 |
bds_check; |
bds_check; |
215 |
goto TTL; |
goto TTL; |
216 |
TTL:; |
TTL:; |
217 |
{register object V38; |
{register object V37; |
218 |
bds_bind(VV[4],symbol_value(VV[4])); |
bds_bind(VV[4],(VV[4]->s.s_dbind)); |
219 |
V38= (VFUN_NARGS=0,(*(LnkLI48))()); |
V37= (VFUN_NARGS=0,(*(LnkLI48))()); |
220 |
{object V39; |
{object V38; |
221 |
object V40= (V37); |
object V39= (V36); |
222 |
if(endp(V40)){ |
if(V39==Cnil){ |
223 |
V37= Cnil; |
V36= Cnil; |
224 |
goto T84;} |
goto T84;} |
225 |
base[2]=V39=MMcons(Cnil,Cnil); |
base[2]=V38=MMcons(Cnil,Cnil); |
226 |
goto T85; |
goto T85; |
227 |
T85:; |
T85:; |
228 |
if(type_of((V40->c.c_car))==t_symbol){ |
if(type_of((V39->c.c_car))==t_symbol){ |
229 |
goto T87;} |
goto T87;} |
230 |
if(!(type_of((V40->c.c_car))==t_fixnum||type_of((V40->c.c_car))==t_bignum)){ |
if(!(type_of((V39->c.c_car))==t_fixnum||type_of((V39->c.c_car))==t_bignum)){ |
231 |
goto T88;} |
goto T88;} |
232 |
goto T87; |
goto T87; |
233 |
T87:; |
T87:; |
234 |
{object V42; |
{object V41; |
235 |
V42= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V40->c.c_car),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil)); |
V41= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V39->c.c_car),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil)); |
236 |
(VV[4]->s.s_dbind)= make_cons(V42,(VV[4]->s.s_dbind)); |
(VV[4]->s.s_dbind)= make_cons(V41,(VV[4]->s.s_dbind)); |
237 |
(V39->c.c_car)= (V42); |
(V38->c.c_car)= (V41); |
238 |
goto T86;} |
goto T86;} |
239 |
goto T88; |
goto T88; |
240 |
T88:; |
T88:; |
241 |
(V39->c.c_car)= (V40->c.c_car); |
(V38->c.c_car)= (V39->c.c_car); |
242 |
goto T86; |
goto T86; |
243 |
T86:; |
T86:; |
244 |
V40=MMcdr(V40); |
if((V39=MMcdr(V39))==Cnil){ |
245 |
if(endp(V40)){ |
V36= base[2]; |
|
V37= base[2]; |
|
246 |
goto T84;} |
goto T84;} |
247 |
V39=MMcdr(V39)=MMcons(Cnil,Cnil); |
V38=MMcdr(V38)=MMcons(Cnil,Cnil); |
248 |
goto T85;} |
goto T85;} |
249 |
goto T84; |
goto T84; |
250 |
T84:; |
T84:; |
251 |
{object V44; |
{object V43; |
252 |
object V45= (V37); |
object V44= (V36); |
253 |
if(endp(V45)){ |
if(V44==Cnil){ |
254 |
V37= Cnil; |
V36= Cnil; |
255 |
goto T96;} |
goto T96;} |
256 |
base[2]=V44=MMcons(Cnil,Cnil); |
base[2]=V43=MMcons(Cnil,Cnil); |
257 |
goto T97; |
goto T97; |
258 |
T97:; |
T97:; |
259 |
base[3]= (V45->c.c_car); |
base[3]= (V44->c.c_car); |
260 |
base[4]= VV[0]; |
base[4]= VV[0]; |
261 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
262 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
263 |
vs_top=sup; |
vs_top=sup; |
264 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
265 |
goto T100;} |
goto T100;} |
266 |
(V44->c.c_car)= (V45->c.c_car); |
(V43->c.c_car)= (V44->c.c_car); |
267 |
goto T98; |
goto T98; |
268 |
goto T100; |
goto T100; |
269 |
T100:; |
T100:; |
270 |
(V44->c.c_car)= (*(LnkLI50))((V45->c.c_car),(V38)); |
(V43->c.c_car)= (*(LnkLI50))((V44->c.c_car),(V37)); |
271 |
goto T98; |
goto T98; |
272 |
T98:; |
T98:; |
273 |
V45=MMcdr(V45); |
if((V44=MMcdr(V44))==Cnil){ |
274 |
if(endp(V45)){ |
V36= base[2]; |
|
V37= base[2]; |
|
275 |
goto T96;} |
goto T96;} |
276 |
V44=MMcdr(V44)=MMcons(Cnil,Cnil); |
V43=MMcdr(V43)=MMcons(Cnil,Cnil); |
277 |
goto T97;} |
goto T97;} |
278 |
goto T96; |
goto T96; |
279 |
T96:; |
T96:; |
280 |
{register object V47; |
{register object V46; |
281 |
|
register object V47; |
282 |
register object V48; |
register object V48; |
283 |
register object V49; |
register object V49; |
284 |
register object V50; |
register object V50; |
285 |
register object V51; |
V46= (V36); |
286 |
V47= (V37); |
V47= Cnil; |
287 |
V48= Cnil; |
V48= Cnil; |
288 |
V49= Cnil; |
V49= Cnil; |
289 |
V50= Cnil; |
V50= Cnil; |
|
V51= Cnil; |
|
290 |
goto T105; |
goto T105; |
291 |
T105:; |
T105:; |
292 |
if(!(endp_prop((V47)))){ |
if(!(((V46))==Cnil)){ |
293 |
goto T106;} |
goto T106;} |
|
if(((V51))!=Cnil){ |
|
|
goto T109;} |
|
294 |
if(((V50))!=Cnil){ |
if(((V50))!=Cnil){ |
295 |
goto T109;} |
goto T109;} |
296 |
if(((V49))==Cnil){ |
if(((V49))!=Cnil){ |
297 |
|
goto T109;} |
298 |
|
if(((V48))==Cnil){ |
299 |
goto T110;} |
goto T110;} |
300 |
goto T109; |
goto T109; |
301 |
T109:; |
T109:; |
302 |
V48= reverse((V48)); |
V47= reverse((V47)); |
303 |
if(((V50))!=Cnil){ |
if(((V49))!=Cnil){ |
304 |
goto T119;} |
goto T119;} |
305 |
if(((V51))==Cnil){ |
if(((V50))==Cnil){ |
306 |
goto T120;} |
goto T120;} |
307 |
goto T119; |
goto T119; |
308 |
T119:; |
T119:; |
309 |
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1))); |
(VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1)); |
310 |
goto T118; |
goto T118; |
311 |
goto T120; |
goto T120; |
312 |
T120:; |
T120:; |
313 |
(void)((*(LnkLI51))((V48))); |
(void)((*(LnkLI51))((V47))); |
314 |
goto T118; |
goto T118; |
315 |
T118:; |
T118:; |
316 |
{object V52 = list(5,VV[10],(V38),(V50),(V51),(V48)); |
{object V51 = list(5,VV[10],(V37),(V49),(V50),(V47)); |
317 |
bds_unwind1; |
bds_unwind1; |
318 |
VMR5(V52)} |
VMR5(V51)} |
319 |
goto T110; |
goto T110; |
320 |
T110:; |
T110:; |
321 |
V53= (*(LnkLI52))(); |
V52= (*(LnkLI52))(); |
322 |
V54= make_cons(/* INLINE-ARGS */V53,(V48)); |
V53= make_cons(/* INLINE-ARGS */V52,(V47)); |
323 |
{object V55 = list(3,VV[11],(V38),reverse(/* INLINE-ARGS */V54)); |
{object V54 = list(3,VV[11],(V37),reverse(/* INLINE-ARGS */V53)); |
324 |
bds_unwind1; |
bds_unwind1; |
325 |
VMR5(V55)} |
VMR5(V54)} |
326 |
goto T106; |
goto T106; |
327 |
T106:; |
T106:; |
328 |
base[2]= car((V47)); |
base[2]= CMPcar((V46)); |
329 |
base[3]= VV[0]; |
base[3]= VV[0]; |
330 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
331 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
332 |
vs_top=sup; |
vs_top=sup; |
333 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
334 |
goto T128;} |
goto T128;} |
335 |
if((structure_ref(car((V47)),VV[0],3))==Cnil){ |
if((STREF(object,CMPcar((V46)),12))==Cnil){ |
336 |
goto T133;} |
goto T133;} |
337 |
{object V56; |
{object V55; |
338 |
V56= car((V47)); |
V55= CMPcar((V46)); |
339 |
V48= make_cons((V56),(V48));} |
V47= make_cons((V55),(V47));} |
340 |
V57= car((V47)); |
V56= CMPcar((V46)); |
341 |
V58= structure_ref(car((V47)),VV[0],0); |
V57= (*(LnkLI53))(STREF(object,CMPcar((V46)),0)); |
342 |
V59= (*(LnkLI53))(/* INLINE-ARGS */V58); |
V58= Ct; |
343 |
(void)(structure_set(/* INLINE-ARGS */V57,VV[0],6,/* INLINE-ARGS */V59)); |
STSET(object,/* INLINE-ARGS */V56,24, /* INLINE-ARGS */V57); |
344 |
V51= Ct; |
(void)(/* INLINE-ARGS */V57); |
345 |
|
V50= Ct; |
346 |
goto T126; |
goto T126; |
347 |
goto T133; |
goto T133; |
348 |
T133:; |
T133:; |
349 |
if((structure_ref(car((V47)),VV[0],2))==Cnil){ |
if((STREF(object,CMPcar((V46)),8))==Cnil){ |
350 |
goto T141;} |
goto T141;} |
351 |
{object V60; |
{object V59; |
352 |
V60= car((V47)); |
V59= CMPcar((V46)); |
353 |
V48= make_cons((V60),(V48));} |
V47= make_cons((V59),(V47));} |
354 |
V61= car((V47)); |
V60= CMPcar((V46)); |
355 |
V62= structure_ref(car((V47)),VV[0],0); |
V61= (*(LnkLI53))(STREF(object,CMPcar((V46)),0)); |
356 |
V63= (*(LnkLI53))(/* INLINE-ARGS */V62); |
V62= Ct; |
357 |
(void)(structure_set(/* INLINE-ARGS */V61,VV[0],6,/* INLINE-ARGS */V63)); |
STSET(object,/* INLINE-ARGS */V60,24, /* INLINE-ARGS */V61); |
358 |
V50= Ct; |
(void)(/* INLINE-ARGS */V61); |
359 |
|
V49= Ct; |
360 |
goto T126; |
goto T126; |
361 |
goto T141; |
goto T141; |
362 |
T141:; |
T141:; |
363 |
if((structure_ref(car((V47)),VV[0],1))==Cnil){ |
if((STREF(object,CMPcar((V46)),4))==Cnil){ |
364 |
goto T126;} |
goto T126;} |
365 |
{object V64; |
{object V63; |
366 |
V64= car((V47)); |
V63= CMPcar((V46)); |
367 |
V48= make_cons((V64),(V48));} |
V47= make_cons((V63),(V47));} |
368 |
V49= Ct; |
V48= Ct; |
369 |
goto T126; |
goto T126; |
370 |
goto T128; |
goto T128; |
371 |
T128:; |
T128:; |
372 |
{object V65; |
{object V64; |
373 |
V65= car((V47)); |
V64= CMPcar((V46)); |
374 |
V48= make_cons((V65),(V48));} |
V47= make_cons((V64),(V47));} |
375 |
goto T126; |
goto T126; |
376 |
T126:; |
T126:; |
377 |
V47= cdr((V47)); |
V46= CMPcdr((V46)); |
378 |
goto T105;}} |
goto T105;}} |
379 |
base[0]=base[0]; |
base[0]=base[0]; |
380 |
return Cnil; |
return Cnil; |
381 |
} |
} |
382 |
/* local entry for function C2TAGBODY */ |
/* local entry for function C2TAGBODY */ |
383 |
|
|
384 |
static object LI6(V69,V70,V71) |
static object LI6(V68,V69,V70) |
385 |
|
|
386 |
object V69;object V70;object V71; |
object V68;object V69;object V70; |
387 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
388 |
goto TTL; |
goto TTL; |
389 |
TTL:; |
TTL:; |
390 |
if(((V70))==Cnil){ |
if(((V69))==Cnil){ |
391 |
goto T160;} |
goto T160;} |
392 |
{object V72 = (*(LnkLI54))((V71)); |
{object V71 = (*(LnkLI54))((V70)); |
393 |
VMR6(V72)} |
VMR6(V71)} |
394 |
goto T160; |
goto T160; |
395 |
T160:; |
T160:; |
396 |
if(((V69))==Cnil){ |
if(((V68))==Cnil){ |
397 |
goto T163;} |
goto T163;} |
398 |
{object V73 = (*(LnkLI55))((V71)); |
{object V72 = (*(LnkLI55))((V70)); |
399 |
VMR6(V73)} |
VMR6(V72)} |
400 |
goto T163; |
goto T163; |
401 |
T163:; |
T163:; |
402 |
{object V74 = (*(LnkLI56))((V71)); |
{object V73 = (*(LnkLI56))((V70)); |
403 |
VMR6(V74)} |
VMR6(V73)} |
404 |
return Cnil; |
return Cnil; |
405 |
} |
} |
406 |
/* local entry for function C2TAGBODY-LOCAL */ |
/* local entry for function C2TAGBODY-LOCAL */ |
407 |
|
|
408 |
static object LI7(V76) |
static object LI7(V75) |
409 |
|
|
410 |
object V76; |
object V75; |
411 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
412 |
bds_check; |
bds_check; |
413 |
goto TTL; |
goto TTL; |
414 |
TTL:; |
TTL:; |
415 |
|
{register object V76; |
416 |
|
(VV[12]->s.s_dbind)= number_plus((VV[12]->s.s_dbind),small_fixnum(1)); |
417 |
|
V76= make_cons((VV[12]->s.s_dbind),Cnil); |
418 |
{register object V77; |
{register object V77; |
419 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
register object V78; |
420 |
V77= make_cons(symbol_value(VV[12]),Cnil); |
V77= (V75); |
421 |
{register object V78; |
V78= CMPcar((V77)); |
|
register object V79; |
|
|
V78= (V76); |
|
|
V79= car((V78)); |
|
422 |
goto T171; |
goto T171; |
423 |
T171:; |
T171:; |
424 |
if(!(endp_prop((V78)))){ |
if(!(((V77))==Cnil)){ |
425 |
goto T172;} |
goto T172;} |
426 |
goto T167; |
goto T167; |
427 |
goto T172; |
goto T172; |
428 |
T172:; |
T172:; |
429 |
base[2]= (V79); |
base[2]= (V78); |
430 |
base[3]= VV[0]; |
base[3]= VV[0]; |
431 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
432 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
433 |
vs_top=sup; |
vs_top=sup; |
434 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
435 |
goto T176;} |
goto T176;} |
436 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
(VV[12]->s.s_dbind)= number_plus((VV[12]->s.s_dbind),small_fixnum(1)); |
437 |
V80= make_cons(symbol_value(VV[12]),Ct); |
V79= make_cons((VV[12]->s.s_dbind),Ct); |
438 |
(void)(structure_set((V79),VV[0],4,/* INLINE-ARGS */V80)); |
V80= Ct; |
439 |
(void)(structure_set((V79),VV[0],5,(V77))); |
STSET(object,(V78),16, /* INLINE-ARGS */V79); |
440 |
|
(void)(/* INLINE-ARGS */V79); |
441 |
|
V81= Ct; |
442 |
|
STSET(object,(V78),20, (V76)); |
443 |
|
(void)((V76)); |
444 |
goto T176; |
goto T176; |
445 |
T176:; |
T176:; |
446 |
V78= cdr((V78)); |
V77= CMPcdr((V77)); |
447 |
V79= car((V78)); |
V78= CMPcar((V77)); |
448 |
goto T171;} |
goto T171;} |
449 |
goto T167; |
goto T167; |
450 |
T167:; |
T167:; |
451 |
base[1]= make_cons((V77),symbol_value(VV[13])); |
base[1]= make_cons((V76),(VV[13]->s.s_dbind)); |
452 |
bds_bind(VV[13],base[1]); |
bds_bind(VV[13],base[1]); |
453 |
{object V81 = (*(LnkLI57))((V76)); |
{object V82 = (*(LnkLI57))((V75)); |
454 |
bds_unwind1; |
bds_unwind1; |
455 |
VMR7(V81)}} |
VMR7(V82)}} |
456 |
base[0]=base[0]; |
base[0]=base[0]; |
457 |
return Cnil; |
return Cnil; |
458 |
} |
} |
459 |
/* local entry for function C2TAGBODY-BODY */ |
/* local entry for function C2TAGBODY-BODY */ |
460 |
|
|
461 |
static object LI8(V83) |
static object LI8(V84) |
462 |
|
|
463 |
object V83; |
object V84; |
464 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
465 |
bds_check; |
bds_check; |
466 |
goto TTL; |
goto TTL; |
467 |
TTL:; |
TTL:; |
468 |
{register object V84; |
{register object V85; |
469 |
register object V85; |
register object V86; |
470 |
V84= (V83); |
V85= (V84); |
471 |
V85= Cnil; |
V86= Cnil; |
472 |
goto T190; |
goto T190; |
473 |
T190:; |
T190:; |
474 |
if(!(endp_prop(cdr((V84))))){ |
if(!((CMPcdr((V85)))==Cnil)){ |
475 |
goto T191;} |
goto T191;} |
476 |
if(((V85))==Cnil){ |
if(((V86))==Cnil){ |
477 |
goto T195;} |
goto T195;} |
478 |
{object V86 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
{object V87 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
479 |
VMR8(V86)} |
VMR8(V87)} |
480 |
goto T195; |
goto T195; |
481 |
T195:; |
T195:; |
482 |
base[0]= car((V84)); |
base[0]= CMPcar((V85)); |
483 |
base[1]= VV[0]; |
base[1]= VV[0]; |
484 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
485 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
486 |
vs_top=sup; |
vs_top=sup; |
487 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
488 |
goto T198;} |
goto T198;} |
489 |
V87= structure_ref(car((V84)),VV[0],7); |
(void)((*(LnkLI59))(STREF(object,CMPcar((V85)),28))); |
490 |
(void)((*(LnkLI59))(/* INLINE-ARGS */V87)); |
if((CMPcdr(STREF(object,CMPcar((V85)),16)))==Cnil){ |
|
V88= structure_ref(car((V84)),VV[0],4); |
|
|
if((cdr(/* INLINE-ARGS */V88))==Cnil){ |
|
491 |
goto T203;} |
goto T203;} |
492 |
princ_str("\n goto T",VV[14]); |
princ_str("\n goto T",VV[14]); |
493 |
V89= structure_ref(car((V84)),VV[0],4); |
(void)((*(LnkLI60))(CMPcar(STREF(object,CMPcar((V85)),16)))); |
|
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V89))); |
|
494 |
princ_char(59,VV[14]); |
princ_char(59,VV[14]); |
495 |
princ_str("\nT",VV[14]); |
princ_str("\nT",VV[14]); |
496 |
V90= structure_ref(car((V84)),VV[0],4); |
(void)((*(LnkLI60))(CMPcar(STREF(object,CMPcar((V85)),16)))); |
|
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V90))); |
|
497 |
princ_str(":;",VV[14]); |
princ_str(":;",VV[14]); |
498 |
goto T203; |
goto T203; |
499 |
T203:; |
T203:; |
500 |
{object V91 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
{object V88 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
501 |
VMR8(V91)} |
VMR8(V88)} |
502 |
goto T198; |
goto T198; |
503 |
T198:; |
T198:; |
504 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
(VV[12]->s.s_dbind)= number_plus((VV[12]->s.s_dbind),small_fixnum(1)); |
505 |
bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil)); |
bds_bind(VV[15],make_cons((VV[12]->s.s_dbind),Cnil)); |
506 |
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),(VV[13]->s.s_dbind))); |
507 |
bds_bind(VV[16],VV[17]); |
bds_bind(VV[16],VV[17]); |
508 |
base[3]= car((V84)); |
base[3]= CMPcar((V85)); |
509 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
510 |
(void) (*Lnk61)(); |
(void) (*Lnk61)(); |
511 |
vs_top=sup; |
vs_top=sup; |
512 |
if((cdr((VV[15]->s.s_dbind)))==Cnil){ |
if((CMPcdr((VV[15]->s.s_dbind)))==Cnil){ |
513 |
bds_unwind1; |
bds_unwind1; |
514 |
bds_unwind1; |
bds_unwind1; |
515 |
bds_unwind1; |
bds_unwind1; |
516 |
goto T213;} |
goto T213;} |
517 |
princ_str("\n goto T",VV[14]); |
princ_str("\n goto T",VV[14]); |
518 |
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind)))); |
(void)((*(LnkLI60))(CMPcar((VV[15]->s.s_dbind)))); |
519 |
princ_char(59,VV[14]); |
princ_char(59,VV[14]); |
520 |
princ_str("\nT",VV[14]); |
princ_str("\nT",VV[14]); |
521 |
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind)))); |
(void)((*(LnkLI60))(CMPcar((VV[15]->s.s_dbind)))); |
522 |
princ_str(":;",VV[14]); |
princ_str(":;",VV[14]); |
523 |
bds_unwind1; |
bds_unwind1; |
524 |
bds_unwind1; |
bds_unwind1; |
525 |
bds_unwind1; |
bds_unwind1; |
526 |
goto T213; |
goto T213; |
527 |
T213:; |
T213:; |
528 |
if((caar((V84)))==(VV[1])){ |
if((CMPcaar((V85)))==(VV[1])){ |
529 |
goto T229;} |
goto T229;} |
530 |
{object V92 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
{object V89 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil)); |
531 |
VMR8(V92)} |
VMR8(V89)} |
532 |
goto T229; |
goto T229; |
533 |
T229:; |
T229:; |
534 |
{object V93 = Cnil; |
{object V90 = Cnil; |
535 |
VMR8(V93)} |
VMR8(V90)} |
536 |
goto T191; |
goto T191; |
537 |
T191:; |
T191:; |
538 |
if(((V85))==Cnil){ |
if(((V86))==Cnil){ |
539 |
goto T234;} |
goto T234;} |
540 |
V85= Cnil; |
V86= Cnil; |
541 |
goto T232; |
goto T232; |
542 |
goto T234; |
goto T234; |
543 |
T234:; |
T234:; |
544 |
base[0]= car((V84)); |
base[0]= CMPcar((V85)); |
545 |
base[1]= VV[0]; |
base[1]= VV[0]; |
546 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
547 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
548 |
vs_top=sup; |
vs_top=sup; |
549 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
550 |
goto T238;} |
goto T238;} |
551 |
V94= structure_ref(car((V84)),VV[0],7); |
(void)((*(LnkLI59))(STREF(object,CMPcar((V85)),28))); |
552 |
(void)((*(LnkLI59))(/* INLINE-ARGS */V94)); |
if((CMPcdr(STREF(object,CMPcar((V85)),16)))==Cnil){ |
|
V95= structure_ref(car((V84)),VV[0],4); |
|
|
if((cdr(/* INLINE-ARGS */V95))==Cnil){ |
|
553 |
goto T232;} |
goto T232;} |
554 |
princ_str("\n goto T",VV[14]); |
princ_str("\n goto T",VV[14]); |
555 |
V96= structure_ref(car((V84)),VV[0],4); |
(void)((*(LnkLI60))(CMPcar(STREF(object,CMPcar((V85)),16)))); |
|
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V96))); |
|
556 |
princ_char(59,VV[14]); |
princ_char(59,VV[14]); |
557 |
princ_str("\nT",VV[14]); |
princ_str("\nT",VV[14]); |
558 |
V97= structure_ref(car((V84)),VV[0],4); |
(void)((*(LnkLI60))(CMPcar(STREF(object,CMPcar((V85)),16)))); |
|
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V97))); |
|
559 |
princ_str(":;",VV[14]); |
princ_str(":;",VV[14]); |
560 |
goto T232; |
goto T232; |
561 |
goto T238; |
goto T238; |
562 |
T238:; |
T238:; |
563 |
base[3]= cadr((V84)); |
base[3]= CMPcadr((V85)); |
564 |
base[4]= VV[0]; |
base[4]= VV[0]; |
565 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
566 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
567 |
vs_top=sup; |
vs_top=sup; |
568 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
569 |
goto T254;} |
goto T254;} |
570 |
V85= Ct; |
V86= Ct; |
571 |
bds_bind(VV[15],structure_ref(cadr((V84)),VV[0],4)); |
bds_bind(VV[15],STREF(object,CMPcadr((V85)),16)); |
572 |
goto T252; |
goto T252; |
573 |
goto T254; |
goto T254; |
574 |
T254:; |
T254:; |
575 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
(VV[12]->s.s_dbind)= number_plus((VV[12]->s.s_dbind),small_fixnum(1)); |
576 |
bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil)); |
bds_bind(VV[15],make_cons((VV[12]->s.s_dbind),Cnil)); |
577 |
goto T252; |
goto T252; |
578 |
T252:; |
T252:; |
579 |
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),(VV[13]->s.s_dbind))); |
580 |
bds_bind(VV[16],VV[17]); |
bds_bind(VV[16],VV[17]); |
581 |
base[3]= car((V84)); |
base[3]= CMPcar((V85)); |
582 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
583 |
(void) (*Lnk61)(); |
(void) (*Lnk61)(); |
584 |
vs_top=sup; |
vs_top=sup; |
585 |
base[3]= cadr((V84)); |
base[3]= CMPcadr((V85)); |
586 |
base[4]= VV[0]; |
base[4]= VV[0]; |
587 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
588 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
592 |
goto T264; |
goto T264; |
593 |
goto T265; |
goto T265; |
594 |
T265:; |
T265:; |
595 |
V98= structure_ref(cadr((V84)),VV[0],7); |
(void)((*(LnkLI59))(STREF(object,CMPcadr((V85)),28))); |
|
(void)((*(LnkLI59))(/* INLINE-ARGS */V98)); |
|
596 |
goto T264; |
goto T264; |
597 |
T264:; |
T264:; |
598 |
if((cdr((VV[15]->s.s_dbind)))==Cnil){ |
if((CMPcdr((VV[15]->s.s_dbind)))==Cnil){ |
599 |
bds_unwind1; |
bds_unwind1; |
600 |
bds_unwind1; |
bds_unwind1; |
601 |
bds_unwind1; |
bds_unwind1; |
602 |
goto T232;} |
goto T232;} |
603 |
princ_str("\n goto T",VV[14]); |
princ_str("\n goto T",VV[14]); |
604 |
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind)))); |
(void)((*(LnkLI60))(CMPcar((VV[15]->s.s_dbind)))); |
605 |
princ_char(59,VV[14]); |
princ_char(59,VV[14]); |
606 |
princ_str("\nT",VV[14]); |
princ_str("\nT",VV[14]); |
607 |
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind)))); |
(void)((*(LnkLI60))(CMPcar((VV[15]->s.s_dbind)))); |
608 |
princ_str(":;",VV[14]); |
princ_str(":;",VV[14]); |
609 |
bds_unwind1; |
bds_unwind1; |
610 |
bds_unwind1; |
bds_unwind1; |
611 |
bds_unwind1; |
bds_unwind1; |
612 |
goto T232; |
goto T232; |
613 |
T232:; |
T232:; |
614 |
V84= cdr((V84)); |
V85= CMPcdr((V85)); |
615 |
goto T190;} |
goto T190;} |
616 |
base[0]=base[0]; |
base[0]=base[0]; |
617 |
return Cnil; |
return Cnil; |
618 |
} |
} |
619 |
/* local entry for function C2TAGBODY-CLB */ |
/* local entry for function C2TAGBODY-CLB */ |
620 |
|
|
621 |
static object LI9(V100) |
static object LI9(V92) |
622 |
|
|
623 |
object V100; |
object V92; |
624 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
625 |
bds_check; |
bds_check; |
626 |
goto TTL; |
goto TTL; |
627 |
TTL:; |
TTL:; |
628 |
{register object V101; |
{register object V93; |
629 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
(VV[12]->s.s_dbind)= number_plus((VV[12]->s.s_dbind),small_fixnum(1)); |
630 |
V101= make_cons(symbol_value(VV[12]),Cnil); |
V93= make_cons((VV[12]->s.s_dbind),Cnil); |
631 |
bds_bind(VV[18],symbol_value(VV[18])); |
bds_bind(VV[18],(VV[18]->s.s_dbind)); |
632 |
{register object V102; |
{register object V94; |
633 |
base[2]= make_cons(VV[19],symbol_value(VV[13])); |
base[2]= make_cons(VV[19],(VV[13]->s.s_dbind)); |
634 |
V102= (*(LnkLI62))(); |
V94= (*(LnkLI62))(); |
635 |
bds_bind(VV[13],base[2]); |
bds_bind(VV[13],base[2]); |
636 |
princ_str("\n ",VV[14]); |
princ_str("\n ",VV[14]); |
637 |
(void)((*(LnkLI63))((V102))); |
(void)((*(LnkLI63))((V94))); |
638 |
princ_str("=alloc_frame_id();",VV[14]); |
princ_str("=alloc_frame_id();",VV[14]); |
639 |
princ_str("\n frs_push(FRS_CATCH,",VV[14]); |
princ_str("\n frs_push(FRS_CATCH,",VV[14]); |
640 |
(void)((*(LnkLI63))((V102))); |
(void)((*(LnkLI63))((V94))); |
641 |
princ_str(");",VV[14]); |
princ_str(");",VV[14]); |
642 |
princ_str("\n if(nlj_active){",VV[14]); |
princ_str("\n if(nlj_active){",VV[14]); |
643 |
princ_str("\n nlj_active=FALSE;",VV[14]); |
princ_str("\n nlj_active=FALSE;",VV[14]); |
644 |
{register object V103; |
{register object V95; |
645 |
register object V104; |
register object V96; |
646 |
V103= (V100); |
V95= (V92); |
647 |
V104= car((V103)); |
V96= CMPcar((V95)); |
648 |
goto T302; |
goto T302; |
649 |
T302:; |
T302:; |
650 |
if(!(endp_prop((V103)))){ |
if(!(((V95))==Cnil)){ |
651 |
goto T303;} |
goto T303;} |
652 |
goto T298; |
goto T298; |
653 |
goto T303; |
goto T303; |
654 |
T303:; |
T303:; |
655 |
base[4]= (V104); |
base[4]= (V96); |
656 |
base[5]= VV[0]; |
base[5]= VV[0]; |
657 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
658 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
659 |
vs_top=sup; |
vs_top=sup; |
660 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
661 |
goto T307;} |
goto T307;} |
662 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
(VV[12]->s.s_dbind)= number_plus((VV[12]->s.s_dbind),small_fixnum(1)); |
663 |
V105= make_cons(symbol_value(VV[12]),Ct); |
V97= make_cons((VV[12]->s.s_dbind),Ct); |
664 |
(void)(structure_set((V104),VV[0],4,/* INLINE-ARGS */V105)); |
V98= Ct; |
665 |
(void)(structure_set((V104),VV[0],5,(V101))); |
STSET(object,(V96),16, /* INLINE-ARGS */V97); |
666 |
if((structure_ref((V104),VV[0],2))==Cnil){ |
(void)(/* INLINE-ARGS */V97); |
667 |
|
V99= Ct; |
668 |
|
STSET(object,(V96),20, (V93)); |
669 |
|
(void)((V93)); |
670 |
|
if((STREF(object,(V96),8))==Cnil){ |
671 |
goto T307;} |
goto T307;} |
672 |
(void)(structure_set((V104),VV[0],2,(V102))); |
V100= Ct; |
673 |
|
STSET(object,(V96),8, (V94)); |
674 |
|
(void)((V94)); |
675 |
princ_str("\n if(eql(nlj_tag,VV[",VV[14]); |
princ_str("\n if(eql(nlj_tag,VV[",VV[14]); |
676 |
V106= structure_ref((V104),VV[0],6); |
(void)((*(LnkLI60))(STREF(object,(V96),24))); |
|
(void)((*(LnkLI60))(/* INLINE-ARGS */V106)); |
|
677 |
princ_str("]))",VV[14]); |
princ_str("]))",VV[14]); |
678 |
V107= structure_ref((V104),VV[0],4); |
(STREF(object,(V96),16))->c.c_cdr = Ct; |
679 |
if(type_of(/* INLINE-ARGS */V107)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V107); |
(void)(STREF(object,(V96),16)); |
|
(/* INLINE-ARGS */V107)->c.c_cdr = Ct; |
|
680 |
princ_str("goto T",VV[14]); |
princ_str("goto T",VV[14]); |
681 |
V108= structure_ref((V104),VV[0],4); |
(void)((*(LnkLI60))(CMPcar(STREF(object,(V96),16)))); |
|
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V108))); |
|
682 |
princ_char(59,VV[14]); |
princ_char(59,VV[14]); |
683 |
goto T307; |
goto T307; |
684 |
T307:; |
T307:; |
685 |
V103= cdr((V103)); |
V95= CMPcdr((V95)); |
686 |
V104= car((V103)); |
V96= CMPcar((V95)); |
687 |
goto T302;} |
goto T302;} |
688 |
goto T298; |
goto T298; |
689 |
T298:; |
T298:; |
690 |
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]); |
691 |
princ_str("\n }",VV[14]); |
princ_str("\n }",VV[14]); |
692 |
base[3]= make_cons((V101),(VV[13]->s.s_dbind)); |
base[3]= make_cons((V93),(VV[13]->s.s_dbind)); |
693 |
bds_bind(VV[13],base[3]); |
bds_bind(VV[13],base[3]); |
694 |
{object V109 = (*(LnkLI57))((V100)); |
{object V101 = (*(LnkLI57))((V92)); |
695 |
bds_unwind1; |
bds_unwind1; |
696 |
bds_unwind1; |
bds_unwind1; |
697 |
bds_unwind1; |
bds_unwind1; |
698 |
VMR9(V109)}}} |
VMR9(V101)}}} |
699 |
base[0]=base[0]; |
base[0]=base[0]; |
700 |
return Cnil; |
return Cnil; |
701 |
} |
} |
702 |
/* local entry for function C2TAGBODY-CCB */ |
/* local entry for function C2TAGBODY-CCB */ |
703 |
|
|
704 |
static object LI10(V111) |
static object LI10(V103) |
705 |
|
|
706 |
object V111; |
object V103; |
707 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
708 |
bds_check; |
bds_check; |
709 |
goto TTL; |
goto TTL; |
710 |
TTL:; |
TTL:; |
711 |
{register object V112; |
{register object V104; |
712 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
(VV[12]->s.s_dbind)= number_plus((VV[12]->s.s_dbind),small_fixnum(1)); |
713 |
V112= make_cons(symbol_value(VV[12]),Cnil); |
V104= make_cons((VV[12]->s.s_dbind),Cnil); |
714 |
bds_bind(VV[18],symbol_value(VV[18])); |
bds_bind(VV[18],(VV[18]->s.s_dbind)); |
715 |
bds_bind(VV[20],symbol_value(VV[20])); |
bds_bind(VV[20],(VV[20]->s.s_dbind)); |
716 |
bds_bind(VV[21],symbol_value(VV[21])); |
bds_bind(VV[21],(VV[21]->s.s_dbind)); |
717 |
{register object V113; |
{register object V105; |
718 |
register object V114; |
register object V106; |
719 |
base[4]= make_cons(VV[19],symbol_value(VV[13])); |
base[4]= make_cons(VV[19],(VV[13]->s.s_dbind)); |
720 |
V113= (*(LnkLI62))(); |
V105= (*(LnkLI62))(); |
721 |
bds_bind(VV[13],base[4]); |
bds_bind(VV[13],base[4]); |
722 |
V114= Cnil; |
V106= Cnil; |
723 |
princ_str("\n ",VV[14]); |
princ_str("\n ",VV[14]); |
724 |
(void)((*(LnkLI63))((V113))); |
(void)((*(LnkLI63))((V105))); |
725 |
princ_str("=alloc_frame_id();",VV[14]); |
princ_str("=alloc_frame_id();",VV[14]); |
726 |
princ_str("\n ",VV[14]); |
princ_str("\n ",VV[14]); |
727 |
(void)((*(LnkLI63))((V113))); |
(void)((*(LnkLI63))((V105))); |
728 |
princ_str("=MMcons(",VV[14]); |
princ_str("=MMcons(",VV[14]); |
729 |
(void)((*(LnkLI63))((V113))); |
(void)((*(LnkLI63))((V105))); |
730 |
princ_char(44,VV[14]); |
princ_char(44,VV[14]); |
731 |
(void)((VFUN_NARGS=0,(*(LnkLI64))())); |
(void)((VFUN_NARGS=0,(*(LnkLI64))())); |
732 |
princ_str(");",VV[14]); |
princ_str(");",VV[14]); |
733 |
(void)((*(LnkLI65))((V113))); |
(void)((*(LnkLI65))((V105))); |
734 |
V114= (*(LnkLI66))(); |
V106= (*(LnkLI66))(); |
735 |
princ_str("\n frs_push(FRS_CATCH,",VV[14]); |
princ_str("\n frs_push(FRS_CATCH,",VV[14]); |
736 |
(void)((*(LnkLI67))((V113))); |
(void)((*(LnkLI67))((V105))); |
737 |
princ_str(");",VV[14]); |
princ_str(");",VV[14]); |
738 |
princ_str("\n if(nlj_active){",VV[14]); |
princ_str("\n if(nlj_active){",VV[14]); |
739 |
princ_str("\n nlj_active=FALSE;",VV[14]); |
princ_str("\n nlj_active=FALSE;",VV[14]); |
740 |
{register object V115; |
{register object V107; |
741 |
register object V116; |
register object V108; |
742 |
V115= (V111); |
V107= (V103); |
743 |
V116= car((V115)); |
V108= CMPcar((V107)); |
744 |
goto T370; |
goto T370; |
745 |
T370:; |
T370:; |
746 |
if(!(endp_prop((V115)))){ |
if(!(((V107))==Cnil)){ |
747 |
goto T371;} |
goto T371;} |
748 |
goto T366; |
goto T366; |
749 |
goto T371; |
goto T371; |
750 |
T371:; |
T371:; |
751 |
base[6]= (V116); |
base[6]= (V108); |
752 |
base[7]= VV[0]; |
base[7]= VV[0]; |
753 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
754 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
755 |
vs_top=sup; |
vs_top=sup; |
756 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
757 |
goto T375;} |
goto T375;} |
758 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
(VV[12]->s.s_dbind)= number_plus((VV[12]->s.s_dbind),small_fixnum(1)); |
759 |
V117= make_cons(symbol_value(VV[12]),Ct); |
V109= make_cons((VV[12]->s.s_dbind),Ct); |
760 |
(void)(structure_set((V116),VV[0],4,/* INLINE-ARGS */V117)); |
V110= Ct; |
761 |
(void)(structure_set((V116),VV[0],5,(V112))); |
STSET(object,(V108),16, /* INLINE-ARGS */V109); |
762 |
if((structure_ref((V116),VV[0],2))!=Cnil){ |
(void)(/* INLINE-ARGS */V109); |
763 |
|
V111= Ct; |
764 |
|
STSET(object,(V108),20, (V104)); |
765 |
|
(void)((V104)); |
766 |
|
if((STREF(object,(V108),8))!=Cnil){ |
767 |
goto T383;} |
goto T383;} |
768 |
if((structure_ref((V116),VV[0],3))==Cnil){ |
if((STREF(object,(V108),12))==Cnil){ |
769 |
goto T375;} |
goto T375;} |
770 |
goto T383; |
goto T383; |
771 |
T383:; |
T383:; |
772 |
(void)(structure_set((V116),VV[0],2,(V113))); |
V112= Ct; |
773 |
if((structure_ref((V116),VV[0],3))==Cnil){ |
STSET(object,(V108),8, (V105)); |
774 |
|
(void)((V105)); |
775 |
|
if((STREF(object,(V108),12))==Cnil){ |
776 |
goto T388;} |
goto T388;} |
777 |
(void)(structure_set((V116),VV[0],3,(V114))); |
V113= Ct; |
778 |
|
STSET(object,(V108),12, (V106)); |
779 |
|
(void)((V106)); |
780 |
goto T388; |
goto T388; |
781 |
T388:; |
T388:; |
782 |
princ_str("\n if(eql(nlj_tag,VV[",VV[14]); |
princ_str("\n if(eql(nlj_tag,VV[",VV[14]); |
783 |
V118= structure_ref((V116),VV[0],6); |
(void)((*(LnkLI60))(STREF(object,(V108),24))); |
|
(void)((*(LnkLI60))(/* INLINE-ARGS */V118)); |
|
784 |
princ_str("]))",VV[14]); |
princ_str("]))",VV[14]); |
785 |
V119= structure_ref((V116),VV[0],4); |
(STREF(object,(V108),16))->c.c_cdr = Ct; |
786 |
if(type_of(/* INLINE-ARGS */V119)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V119); |
(void)(STREF(object,(V108),16)); |
|
(/* INLINE-ARGS */V119)->c.c_cdr = Ct; |
|
787 |
princ_str("goto T",VV[14]); |
princ_str("goto T",VV[14]); |
788 |
V120= structure_ref((V116),VV[0],4); |
(void)((*(LnkLI60))(CMPcar(STREF(object,(V108),16)))); |
|
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V120))); |
|
789 |
princ_char(59,VV[14]); |
princ_char(59,VV[14]); |
790 |
goto T375; |
goto T375; |
791 |
T375:; |
T375:; |
792 |
V115= cdr((V115)); |
V107= CMPcdr((V107)); |
793 |
V116= car((V115)); |
V108= CMPcar((V107)); |
794 |
goto T370;} |
goto T370;} |
795 |
goto T366; |
goto T366; |
796 |
T366:; |
T366:; |
797 |
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]); |
798 |
princ_str("\n }",VV[14]); |
princ_str("\n }",VV[14]); |
799 |
base[5]= make_cons((V112),(VV[13]->s.s_dbind)); |
base[5]= make_cons((V104),(VV[13]->s.s_dbind)); |
800 |
bds_bind(VV[13],base[5]); |
bds_bind(VV[13],base[5]); |
801 |
{object V121 = (*(LnkLI57))((V111)); |
{object V114 = (*(LnkLI57))((V103)); |
802 |
bds_unwind1; |
bds_unwind1; |
803 |
bds_unwind1; |
bds_unwind1; |
804 |
bds_unwind1; |
bds_unwind1; |
805 |
bds_unwind1; |
bds_unwind1; |
806 |
bds_unwind1; |
bds_unwind1; |
807 |
VMR10(V121)}}} |
VMR10(V114)}}} |
808 |
base[0]=base[0]; |
base[0]=base[0]; |
809 |
return Cnil; |
return Cnil; |
810 |
} |
} |
811 |
/* local entry for function C1GO */ |
/* local entry for function C1GO */ |
812 |
|
|
813 |
static object LI11(V123) |
static object LI11(V116) |
814 |
|
|
815 |
object V123; |
object V116; |
816 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
817 |
goto TTL; |
goto TTL; |
818 |
TTL:; |
TTL:; |
819 |
if(!(endp_prop((V123)))){ |
if(!(((V116))==Cnil)){ |
820 |
goto T411;} |
goto T411;} |
821 |
(void)((*(LnkLI68))(VV[1],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI68))(VV[1],small_fixnum(1),small_fixnum(0))); |
822 |
goto T409; |
goto T409; |
823 |
goto T411; |
goto T411; |
824 |
T411:; |
T411:; |
825 |
if(endp_prop(cdr((V123)))){ |
if((CMPcdr((V116)))==Cnil){ |
826 |
goto T414;} |
goto T414;} |
827 |
V124 = make_fixnum((long)length((V123))); |
V117 = CMPmake_fixnum((long)length((V116))); |
828 |
(void)((*(LnkLI69))(VV[1],small_fixnum(1),V124)); |
(void)((*(LnkLI69))(VV[1],small_fixnum(1),V117)); |
829 |
goto T409; |
goto T409; |
830 |
goto T414; |
goto T414; |
831 |
T414:; |
T414:; |
832 |
if(type_of(car((V123)))==t_symbol){ |
if(type_of(CMPcar((V116)))==t_symbol){ |
833 |
goto T409;} |
goto T409;} |
834 |
{object V125= car((V123)); |
{object V118= CMPcar((V116)); |
835 |
if(type_of(V125)==t_fixnum||type_of(V125)==t_bignum){ |
if(type_of(V118)==t_fixnum||type_of(V118)==t_bignum){ |
836 |
goto T409;}} |
goto T409;}} |
837 |
(void)(car((V123))); |
(void)(CMPcar((V116))); |
838 |
goto T409; |
goto T409; |
839 |
T409:; |
T409:; |
840 |
{register object V126; |
{register object V119; |
841 |
register object V127; |
register object V120; |
842 |
register object V128; |
register object V121; |
843 |
register object V129; |
register object V122; |
844 |
V126= symbol_value(VV[4]); |
V119= (VV[4]->s.s_dbind); |
845 |
V127= car((V123)); |
V120= CMPcar((V116)); |
846 |
V128= Cnil; |
V121= Cnil; |
847 |
V129= Cnil; |
V122= Cnil; |
848 |
goto T424; |
goto T424; |
849 |
T424:; |
T424:; |
850 |
if(!(endp_prop((V126)))){ |
if(!(((V119))==Cnil)){ |
851 |
goto T425;} |
goto T425;} |
852 |
{object V130 = (VFUN_NARGS=2,(*(LnkLI70))(VV[23],(V127))); |
{object V123 = (VFUN_NARGS=2,(*(LnkLI70))(VV[23],(V120))); |
853 |
VMR11(V130)} |
VMR11(V123)} |
854 |
goto T425; |
goto T425; |
855 |
T425:; |
T425:; |
856 |
{object V131= car((V126)); |
{object V124= CMPcar((V119)); |
857 |
if((V131!= VV[71]))goto T430; |
if((V124!= VV[71]))goto T430; |
858 |
V128= Ct; |
V121= Ct; |
859 |
goto T429; |
goto T429; |
860 |
goto T430; |
goto T430; |
861 |
T430:; |
T430:; |
862 |
if((V131!= VV[72]))goto T432; |
if((V124!= VV[72]))goto T432; |
863 |
V129= Ct; |
V122= Ct; |
864 |
goto T429; |
goto T429; |
865 |
goto T432; |
goto T432; |
866 |
T432:; |
T432:; |
867 |
V132= structure_ref(car((V126)),VV[0],0); |
if(!((STREF(object,CMPcar((V119)),0))==((V120)))){ |
|
if(!((/* INLINE-ARGS */V132)==((V127)))){ |
|
868 |
goto T429;} |
goto T429;} |
869 |
{register object V133; |
{register object V125; |
870 |
V133= car((V126)); |
V125= CMPcar((V119)); |
871 |
if(((V128))==Cnil){ |
if(((V121))==Cnil){ |
872 |
goto T439;} |
goto T439;} |
873 |
(void)(structure_set((V133),VV[0],3,Ct)); |
V126= Ct; |
874 |
|
STSET(object,(V125),12, Ct); |
875 |
|
(void)(Ct); |
876 |
goto T437; |
goto T437; |
877 |
goto T439; |
goto T439; |
878 |
T439:; |
T439:; |
879 |
if(((V129))==Cnil){ |
if(((V122))==Cnil){ |
880 |
goto T442;} |
goto T442;} |
881 |
(void)(structure_set((V133),VV[0],2,Ct)); |
V127= Ct; |
882 |
|
STSET(object,(V125),8, Ct); |
883 |
|
(void)(Ct); |
884 |
goto T437; |
goto T437; |
885 |
goto T442; |
goto T442; |
886 |
T442:; |
T442:; |
887 |
(void)(structure_set((V133),VV[0],1,Ct)); |
V128= Ct; |
888 |
|
STSET(object,(V125),4, Ct); |
889 |
|
(void)(Ct); |
890 |
goto T437; |
goto T437; |
891 |
T437:; |
T437:; |
892 |
{object V134 = list(5,VV[1],symbol_value(VV[24]),(V129),(V128),(V133)); |
{object V129 = list(5,VV[1],(VV[24]->s.s_dbind),(V122),(V121),(V125)); |
893 |
VMR11(V134)}}} |
VMR11(V129)}}} |
894 |
goto T429; |
goto T429; |
895 |
T429:; |
T429:; |
896 |
V126= cdr((V126)); |
V119= CMPcdr((V119)); |
897 |
goto T424;} |
goto T424;} |
898 |
return Cnil; |
return Cnil; |
899 |
} |
} |
900 |
/* local entry for function C2GO */ |
/* local entry for function C2GO */ |
901 |
|
|
902 |
static object LI12(V138,V139,V140) |
static object LI12(V133,V134,V135) |
903 |
|
|
904 |
object V138;object V139;object V140; |
object V133;object V134;object V135; |
905 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
906 |
goto TTL; |
goto TTL; |
907 |
TTL:; |
TTL:; |
908 |
if(((V139))==Cnil){ |
if(((V134))==Cnil){ |
909 |
goto T448;} |
goto T448;} |
910 |
{object V141 = (*(LnkLI73))((V140)); |
{object V136 = (*(LnkLI73))((V135)); |
911 |
VMR12(V141)} |
VMR12(V136)} |
912 |
goto T448; |
goto T448; |
913 |
T448:; |
T448:; |
914 |
if(((V138))==Cnil){ |
if(((V133))==Cnil){ |
915 |
goto T451;} |
goto T451;} |
916 |
{object V142 = (*(LnkLI74))((V140)); |
{object V137 = (*(LnkLI74))((V135)); |
917 |
VMR12(V142)} |
VMR12(V137)} |
918 |
goto T451; |
goto T451; |
919 |
T451:; |
T451:; |
920 |
{object V143 = (*(LnkLI75))((V140)); |
{object V138 = (*(LnkLI75))((V135)); |
921 |
VMR12(V143)} |
VMR12(V138)} |
922 |
return Cnil; |
return Cnil; |
923 |
} |
} |
924 |
/* local entry for function C2GO-LOCAL */ |
/* local entry for function C2GO-LOCAL */ |
925 |
|
|
926 |
static object LI13(V145) |
static object LI13(V140) |
927 |
|
|
928 |
object V145; |
object V140; |
929 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
930 |
goto TTL; |
goto TTL; |
931 |
TTL:; |
TTL:; |
932 |
V146= structure_ref((V145),VV[0],5); |
(void)((*(LnkLI76))(STREF(object,(V140),20))); |
|
(void)((*(LnkLI76))(/* INLINE-ARGS */V146)); |
|
933 |
princ_str("\n ",VV[14]); |
princ_str("\n ",VV[14]); |
934 |
V147= structure_ref((V145),VV[0],4); |
(STREF(object,(V140),16))->c.c_cdr = Ct; |
935 |
if(type_of(/* INLINE-ARGS */V147)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V147); |
(void)(STREF(object,(V140),16)); |
|
(/* INLINE-ARGS */V147)->c.c_cdr = Ct; |
|
936 |
princ_str("goto T",VV[14]); |
princ_str("goto T",VV[14]); |
937 |
V148= structure_ref((V145),VV[0],4); |
(void)((*(LnkLI60))(CMPcar(STREF(object,(V140),16)))); |
|
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V148))); |
|
938 |
princ_char(59,VV[14]); |
princ_char(59,VV[14]); |
939 |
{object V149 = Cnil; |
{object V141 = Cnil; |
940 |
VMR13(V149)} |
VMR13(V141)} |
941 |
return Cnil; |
return Cnil; |
942 |
} |
} |
943 |
/* local entry for function C2GO-CLB */ |
/* local entry for function C2GO-CLB */ |
944 |
|
|
945 |
static object LI14(V151) |
static object LI14(V143) |
946 |
|
|
947 |
register object V151; |
register object V143; |
948 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
949 |
goto TTL; |
goto TTL; |
950 |
TTL:; |
TTL:; |
951 |
princ_str("\n vs_base=vs_top;",VV[14]); |
princ_str("\n vs_base=vs_top;",VV[14]); |
952 |
princ_str("\n unwind(frs_sch(",VV[14]); |
princ_str("\n unwind(frs_sch(",VV[14]); |
953 |
if((structure_ref((V151),VV[0],3))==Cnil){ |
if((STREF(object,(V143),12))==Cnil){ |
954 |
goto T465;} |
goto T465;} |
955 |
V152= structure_ref((V151),VV[0],2); |
(void)((*(LnkLI67))(STREF(object,(V143),8))); |
|
(void)((*(LnkLI67))(/* INLINE-ARGS */V152)); |
|
956 |
goto T463; |
goto T463; |
957 |
goto T465; |
goto T465; |
958 |
T465:; |
T465:; |
959 |
V153= structure_ref((V151),VV[0],2); |
(void)((*(LnkLI63))(STREF(object,(V143),8))); |
|
(void)((*(LnkLI63))(/* INLINE-ARGS */V153)); |
|
960 |
goto T463; |
goto T463; |
961 |
T463:; |
T463:; |
962 |
princ_str("),VV[",VV[14]); |
princ_str("),VV[",VV[14]); |
963 |
V154= structure_ref((V151),VV[0],6); |
(void)((*(LnkLI60))(STREF(object,(V143),24))); |
|
(void)((*(LnkLI60))(/* INLINE-ARGS */V154)); |
|
964 |
princ_str("]);",VV[14]); |
princ_str("]);",VV[14]); |
965 |
{object V155 = Cnil; |
{object V144 = Cnil; |
966 |
VMR14(V155)} |
VMR14(V144)} |
967 |
return Cnil; |
return Cnil; |
968 |
} |
} |
969 |
/* local entry for function C2GO-CCB */ |
/* local entry for function C2GO-CCB */ |
970 |
|
|
971 |
static object LI15(V157) |
static object LI15(V146) |
972 |
|
|
973 |
object V157; |
object V146; |
974 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
975 |
goto TTL; |
goto TTL; |
976 |
TTL:; |
TTL:; |
977 |
princ_str("\n {frame_ptr fr;",VV[14]); |
princ_str("\n {frame_ptr fr;",VV[14]); |
978 |
princ_str("\n fr=frs_sch(",VV[14]); |
princ_str("\n fr=frs_sch(",VV[14]); |
979 |
V158= structure_ref((V157),VV[0],3); |
(void)((*(LnkLI77))(STREF(object,(V146),12))); |
|
(void)((*(LnkLI77))(/* INLINE-ARGS */V158)); |
|
980 |
princ_str(");",VV[14]); |
princ_str(");",VV[14]); |
981 |
princ_str("\n if(fr==NULL)FEerror(\"The GO tag ~s is missing.\",1,VV[",VV[14]); |
princ_str("\n if(fr==NULL)FEerror(\"The GO tag ~s is missing.\",1,VV[",VV[14]); |
982 |
V159= structure_ref((V157),VV[0],6); |
(void)((*(LnkLI60))(STREF(object,(V146),24))); |
|
(void)((*(LnkLI60))(/* INLINE-ARGS */V159)); |
|
983 |
princ_str("]);",VV[14]); |
princ_str("]);",VV[14]); |
984 |
princ_str("\n vs_base=vs_top;",VV[14]); |
princ_str("\n vs_base=vs_top;",VV[14]); |
985 |
princ_str("\n unwind(fr,VV[",VV[14]); |
princ_str("\n unwind(fr,VV[",VV[14]); |
986 |
V160= structure_ref((V157),VV[0],6); |
(void)((*(LnkLI60))(STREF(object,(V146),24))); |
|
(void)((*(LnkLI60))(/* INLINE-ARGS */V160)); |
|
987 |
princ_str("]);}",VV[14]); |
princ_str("]);}",VV[14]); |
988 |
{object V161 = Cnil; |
{object V147 = Cnil; |
989 |
VMR15(V161)} |
VMR15(V147)} |
990 |
return Cnil; |
return Cnil; |
991 |
} |
} |
992 |
/* local entry for function WT-SWITCH-CASE */ |
/* local entry for function WT-SWITCH-CASE */ |
993 |
|
|
994 |
static object LI16(V163) |
static object LI16(V149) |
995 |
|
|
996 |
register object V163; |
register object V149; |
997 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
998 |
goto TTL; |
goto TTL; |
999 |
TTL:; |
TTL:; |
1000 |
if(((V163))==Cnil){ |
if(((V149))==Cnil){ |
1001 |
goto T487;} |
goto T487;} |
1002 |
princ_str("\n ",VV[14]); |
princ_str("\n ",VV[14]); |
1003 |
if(!(type_of((V163))==t_fixnum)){ |
if(!(type_of((V149))==t_fixnum)){ |
1004 |
goto T493;} |
goto T493;} |
1005 |
V164= VV[25]; |
V150= VV[25]; |
1006 |
goto T491; |
goto T491; |
1007 |
goto T493; |
goto T493; |
1008 |
T493:; |
T493:; |
1009 |
V164= VV[26]; |
V150= VV[26]; |
1010 |
goto T491; |
goto T491; |
1011 |
T491:; |
T491:; |
1012 |
(void)((*(LnkLI60))(V164)); |
(void)((*(LnkLI60))(V150)); |
1013 |
(void)((*(LnkLI60))((V163))); |
(void)((*(LnkLI60))((V149))); |
1014 |
princ_char(58,VV[14]); |
princ_char(58,VV[14]); |
1015 |
{object V165 = Cnil; |
{object V151 = Cnil; |
1016 |
VMR16(V165)} |
VMR16(V151)} |
1017 |
goto T487; |
goto T487; |
1018 |
T487:; |
T487:; |
1019 |
{object V166 = Cnil; |
{object V152 = Cnil; |
1020 |
VMR16(V166)} |
VMR16(V152)} |
1021 |
return Cnil; |
return Cnil; |
1022 |
} |
} |
1023 |
/* local entry for function C1SWITCH */ |
/* local entry for function C1SWITCH */ |
1024 |
|
|
1025 |
static object LI17(V168) |
static object LI17(V154) |
1026 |
|
|
1027 |
object V168; |
object V154; |
1028 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
1029 |
bds_check; |
bds_check; |
1030 |
goto TTL; |
goto TTL; |
1031 |
TTL:; |
TTL:; |
1032 |
bds_bind(VV[4],symbol_value(VV[4])); |
bds_bind(VV[4],(VV[4]->s.s_dbind)); |
1033 |
{object V169; |
{object V155; |
1034 |
register object V170; |
register object V156; |
1035 |
object V171; |
object V157; |
1036 |
V169= car((V168)); |
V155= CMPcar((V154)); |
1037 |
V170= cdr((V168)); |
V156= CMPcdr((V154)); |
1038 |
V171= (*(LnkLI78))((V169)); |
V157= (*(LnkLI78))((V155)); |
1039 |
base[4]= cadr((V171)); |
base[4]= CMPcadr((V157)); |
1040 |
base[5]= VV[27]; |
base[5]= VV[27]; |
1041 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1042 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
1043 |
vs_top=sup; |
vs_top=sup; |
1044 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1045 |
goto T501;} |
goto T501;} |
1046 |
base[4]= structure_ref(cadr((V171)),VV[27],2); |
base[4]= STREF(object,CMPcadr((V157)),8); |
1047 |
base[5]= VV[28]; |
base[5]= VV[28]; |
1048 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1049 |
(void) (*Lnk79)(); |
(void) (*Lnk79)(); |
1050 |
vs_top=sup; |
vs_top=sup; |
1051 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1052 |
goto T501;}{object V172; |
goto T501;}{object V158; |
1053 |
{register object x= Ct,V173= (V170); |
{register object x= Ct,V159= (V156); |
1054 |
while(!endp(V173)) |
while(V159!=Cnil) |
1055 |
if(eql(x,V173->c.c_car)){ |
if(eql(x,V159->c.c_car)){ |
1056 |
V172= V173; |
V158= V159; |
1057 |
goto T511; |
goto T511; |
1058 |
}else V173=V173->c.c_cdr; |
}else V159=V159->c.c_cdr; |
1059 |
V172= Cnil;} |
V158= Cnil;} |
1060 |
goto T511; |
goto T511; |
1061 |
T511:; |
T511:; |
1062 |
if(V172==Cnil)goto T510; |
if(V158==Cnil)goto T510; |
1063 |
goto T509; |
goto T509; |
1064 |
goto T510; |
goto T510; |
1065 |
T510:;} |
T510:;} |
1066 |
V174= make_cons(Ct,Cnil); |
V160= make_cons(Ct,Cnil); |
1067 |
V170= append((V170),/* INLINE-ARGS */V174); |
V156= append((V156),/* INLINE-ARGS */V160); |
1068 |
goto T509; |
goto T509; |
1069 |
T509:; |
T509:; |
1070 |
{object V175; |
{object V161; |
1071 |
object V176= (V170); |
object V162= (V156); |
1072 |
if(endp(V176)){ |
if(V162==Cnil){ |
1073 |
V170= Cnil; |
V156= Cnil; |
1074 |
goto T514;} |
goto T514;} |
1075 |
base[4]=V175=MMcons(Cnil,Cnil); |
base[4]=V161=MMcons(Cnil,Cnil); |
1076 |
goto T515; |
goto T515; |
1077 |
T515:; |
T515:; |
1078 |
{register object V177; |
{register object V163; |
1079 |
V177= (V176->c.c_car); |
V163= (V162->c.c_car); |
1080 |
if(type_of((V177))==t_symbol){ |
if(type_of((V163))==t_symbol){ |
1081 |
goto T517;} |
goto T517;} |
1082 |
if(!(type_of((V177))==t_fixnum||type_of((V177))==t_bignum)){ |
if(!(type_of((V163))==t_fixnum||type_of((V163))==t_bignum)){ |
1083 |
goto T518;} |
goto T518;} |
1084 |
goto T517; |
goto T517; |
1085 |
T517:; |
T517:; |
1086 |
{register object V178; |
{register object V164; |
1087 |
V178= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V177),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil)); |
V164= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V163),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil)); |
1088 |
if(!(type_of((V177))==t_fixnum)){ |
if(!(type_of((V163))==t_fixnum)){ |
1089 |
goto T525;} |
goto T525;} |
1090 |
(void)(structure_set((V178),VV[0],1,Ct)); |
V165= Ct; |
1091 |
(void)(structure_set((V178),VV[0],7,(V177))); |
STSET(object,(V164),4, Ct); |
1092 |
|
(void)(Ct); |
1093 |
|
V166= Ct; |
1094 |
|
STSET(object,(V164),28, (V163)); |
1095 |
|
(void)((V163)); |
1096 |
goto T523; |
goto T523; |
1097 |
goto T525; |
goto T525; |
1098 |
T525:; |
T525:; |
1099 |
if(!((Ct)==((V177)))){ |
if(!((Ct)==((V163)))){ |
1100 |
goto T523;} |
goto T523;} |
1101 |
(void)(structure_set((V178),VV[0],1,Ct)); |
V167= Ct; |
1102 |
(void)(structure_set((V178),VV[0],7,VV[29])); |
STSET(object,(V164),4, Ct); |
1103 |
|
(void)(Ct); |
1104 |
|
V168= Ct; |
1105 |
|
STSET(object,(V164),28, VV[29]); |
1106 |
|
(void)(VV[29]); |
1107 |
goto T523; |
goto T523; |
1108 |
T523:; |
T523:; |
1109 |
(V175->c.c_car)= (V178); |
(V161->c.c_car)= (V164); |
1110 |
goto T516;} |
goto T516;} |
1111 |
goto T518; |
goto T518; |
1112 |
T518:; |
T518:; |
1113 |
(V175->c.c_car)= (V177);} |
(V161->c.c_car)= (V163);} |
1114 |
goto T516; |
goto T516; |
1115 |
T516:; |
T516:; |
1116 |
V176=MMcdr(V176); |
if((V162=MMcdr(V162))==Cnil){ |
1117 |
if(endp(V176)){ |
V156= base[4]; |
|
V170= base[4]; |
|
1118 |
goto T514;} |
goto T514;} |
1119 |
V175=MMcdr(V175)=MMcons(Cnil,Cnil); |
V161=MMcdr(V161)=MMcons(Cnil,Cnil); |
1120 |
goto T515;} |
goto T515;} |
1121 |
goto T514; |
goto T514; |
1122 |
T514:; |
T514:; |
1123 |
{object V179; |
{object V169; |
1124 |
V180= append((V170),VV[30]); |
V170= append((V156),VV[30]); |
1125 |
V179= (*(LnkLI80))(/* INLINE-ARGS */V180); |
V169= (*(LnkLI80))(/* INLINE-ARGS */V170); |
1126 |
V181= list(3,VV[31],cadr((V179)),(V171)); |
V171= list(3,VV[31],CMPcadr((V169)),(V157)); |
1127 |
{object V182 = nconc(/* INLINE-ARGS */V181,cddr((V179))); |
{object V172 = nconc(/* INLINE-ARGS */V171,CMPcddr((V169))); |
1128 |
bds_unwind1; |
bds_unwind1; |
1129 |
VMR17(V182)}} |
VMR17(V172)}} |
1130 |
goto T501; |
goto T501; |
1131 |
T501:; |
T501:; |
1132 |
V183= make_cons(VV[31],(V168)); |
V173= make_cons(VV[31],(V154)); |
1133 |
V184= (*(LnkLI81))(/* INLINE-ARGS */V183); |
V174= (*(LnkLI81))(/* INLINE-ARGS */V173); |
1134 |
{object V185 = (*(LnkLI78))(/* INLINE-ARGS */V184); |
{object V175 = (*(LnkLI78))(/* INLINE-ARGS */V174); |
1135 |
bds_unwind1; |
bds_unwind1; |
1136 |
VMR17(V185)}} |
VMR17(V175)}} |
1137 |
base[0]=base[0]; |
base[0]=base[0]; |
1138 |
return Cnil; |
return Cnil; |
1139 |
} |
} |
1140 |
/* local entry for function C2SWITCH */ |
/* local entry for function C2SWITCH */ |
1141 |
|
|
1142 |
static object LI18(V190,V191,V192,V193) |
static object LI18(V180,V181,V182,V183) |
1143 |
|
|
1144 |
object V190;object V191;object V192;object V193; |
object V180;object V181;object V182;object V183; |
1145 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1146 |
bds_check; |
bds_check; |
1147 |
goto TTL; |
goto TTL; |
1148 |
TTL:; |
TTL:; |
1149 |
bds_bind(VV[32],small_fixnum(0)); |
bds_bind(VV[32],small_fixnum(0)); |
1150 |
bds_bind(VV[18],symbol_value(VV[18])); |
bds_bind(VV[18],(VV[18]->s.s_dbind)); |
1151 |
{object V194; |
{object V184; |
1152 |
V195= make_cons((V190),Cnil); |
V185= make_cons((V180),Cnil); |
1153 |
V194= (VFUN_NARGS=2,(*(LnkLI82))(/* INLINE-ARGS */V195,VV[33])); |
V184= (VFUN_NARGS=2,(*(LnkLI82))(/* INLINE-ARGS */V185,VV[33])); |
1154 |
base[2]= VV[34]; |
base[2]= VV[34]; |
1155 |
base[3]= (V194); |
base[3]= (V184); |
1156 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1157 |
(void) (*Lnk83)(); |
(void) (*Lnk83)(); |
1158 |
vs_top=sup; |
vs_top=sup; |
1159 |
if(((V192))==Cnil){ |
if(((V182))==Cnil){ |
1160 |
goto T538;} |
goto T538;} |
1161 |
(void)((*(LnkLI54))((V193))); |
(void)((*(LnkLI54))((V183))); |
1162 |
goto T536; |
goto T536; |
1163 |
goto T538; |
goto T538; |
1164 |
T538:; |
T538:; |
1165 |
if(((V191))==Cnil){ |
if(((V181))==Cnil){ |
1166 |
goto T541;} |
goto T541;} |
1167 |
(void)((*(LnkLI55))((V193))); |
(void)((*(LnkLI55))((V183))); |
1168 |
goto T536; |
goto T536; |
1169 |
goto T541; |
goto T541; |
1170 |
T541:; |
T541:; |
1171 |
(void)((*(LnkLI56))((V193))); |
(void)((*(LnkLI56))((V183))); |
1172 |
goto T536; |
goto T536; |
1173 |
T536:; |
T536:; |
1174 |
princ_char(125,VV[14]); |
princ_char(125,VV[14]); |
1175 |
(void)((VFUN_NARGS=1,(*(LnkLI58))(Cnil))); |
(void)((VFUN_NARGS=1,(*(LnkLI58))(Cnil))); |
1176 |
{object V196 = (*(LnkLI84))(); |
{object V186 = (*(LnkLI84))(); |
1177 |
bds_unwind1; |
bds_unwind1; |
1178 |
bds_unwind1; |
bds_unwind1; |
1179 |
VMR18(V196)}} |
VMR18(V186)}} |
1180 |
base[0]=base[0]; |
base[0]=base[0]; |
1181 |
return Cnil; |
return Cnil; |
1182 |
} |
} |
1185 |
static void L19() |
static void L19() |
1186 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1187 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
1188 |
vs_reserve(VM19); |
vs_check; |
|
check_arg(2); |
|
1189 |
vs_top=sup; |
vs_top=sup; |
1190 |
{object V197=base[0]->c.c_cdr; |
{object V187=base[0]->c.c_cdr; |
1191 |
if(endp(V197))invalid_macro_call(); |
base[2]= (V187->c.c_car); |
1192 |
base[2]= (V197->c.c_car); |
V187=V187->c.c_cdr; |
1193 |
V197=V197->c.c_cdr; |
base[3]= V187; |
|
base[3]= V197; |
|
1194 |
base[4]= Cnil;} |
base[4]= Cnil;} |
1195 |
{register object V198; |
{register object V188; |
1196 |
register object V199; |
register object V189; |
1197 |
V198= base[3]; |
V188= base[3]; |
1198 |
V199= car((V198)); |
V189= CMPcar((V188)); |
1199 |
goto T551; |
goto T551; |
1200 |
T551:; |
T551:; |
1201 |
if(!(endp_prop((V198)))){ |
if(!(((V188))==Cnil)){ |
1202 |
goto T552;} |
goto T552;} |
1203 |
goto T547; |
goto T547; |
1204 |
goto T552; |
goto T552; |
1205 |
T552:; |
T552:; |
1206 |
if(!(type_of((V199))==t_fixnum||type_of((V199))==t_bignum)){ |
if(!(type_of((V189))==t_fixnum||type_of((V189))==t_bignum)){ |
1207 |
goto T556;} |
goto T556;} |
1208 |
{register object V200; |
{register object V190; |
1209 |
V201= list(3,VV[36],(V199),base[2]); |
V191= list(3,VV[36],(V189),base[2]); |
1210 |
V200= list(4,VV[35],/* INLINE-ARGS */V201,list(2,VV[1],(V199)),Cnil); |
V190= list(4,VV[35],/* INLINE-ARGS */V191,list(2,VV[1],(V189)),Cnil); |
1211 |
base[4]= make_cons((V200),base[4]);} |
base[4]= make_cons((V190),base[4]);} |
1212 |
goto T556; |
goto T556; |
1213 |
T556:; |
T556:; |
1214 |
V198= cdr((V198)); |
V188= CMPcdr((V188)); |
1215 |
V199= car((V198)); |
V189= CMPcar((V188)); |
1216 |
goto T551;} |
goto T551;} |
1217 |
goto T547; |
goto T547; |
1218 |
T547:; |
T547:; |
1219 |
V202= nreverse(base[4]); |
V192= nreverse(base[4]); |
1220 |
base[5]= base[3]; |
base[5]= base[3]; |
1221 |
{register object x= Ct,V204= base[3]; |
{register object x= Ct,V194= base[3]; |
1222 |
while(!endp(V204)) |
while(V194!=Cnil) |
1223 |
if(eql(x,V204->c.c_car)){ |
if(eql(x,V194->c.c_car)){ |
1224 |
goto T571; |
goto T571; |
1225 |
}else V204=V204->c.c_cdr; |
}else V194=V194->c.c_cdr; |
1226 |
goto T570;} |
goto T570;} |
1227 |
goto T571; |
goto T571; |
1228 |
T571:; |
T571:; |
1237 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
1238 |
Lappend(); |
Lappend(); |
1239 |
vs_top=sup; |
vs_top=sup; |
1240 |
V203= vs_base[0]; |
V193= vs_base[0]; |
1241 |
V205= make_cons(VV[37],V203); |
V195= make_cons(VV[37],V193); |
1242 |
V206= append(/* INLINE-ARGS */V202,/* INLINE-ARGS */V205); |
V196= append(/* INLINE-ARGS */V192,/* INLINE-ARGS */V195); |
1243 |
base[5]= make_cons(VV[10],/* INLINE-ARGS */V206); |
base[5]= make_cons(VV[10],/* INLINE-ARGS */V196); |
1244 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1245 |
return; |
return; |
1246 |
} |
} |
1249 |
static void L20() |
static void L20() |
1250 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1251 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
1252 |
vs_reserve(VM20); |
vs_check; |
|
check_arg(2); |
|
1253 |
vs_top=sup; |
vs_top=sup; |
|
{object V207=base[0]->c.c_cdr; |
|
|
if(!endp(V207))invalid_macro_call();} |
|
1254 |
base[2]= VV[40]; |
base[2]= VV[40]; |
1255 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1256 |
return; |
return; |