73 |
goto T15; |
goto T15; |
74 |
T15:; |
T15:; |
75 |
{register object x= (V13),V19= (V14); |
{register object x= (V13),V19= (V14); |
76 |
while(!endp(V19)) |
while(V19!=Cnil) |
77 |
if(eql(x,V19->c.c_car)){ |
if(eql(x,V19->c.c_car)){ |
78 |
goto T20; |
goto T20; |
79 |
}else V19=V19->c.c_cdr;} |
}else V19=V19->c.c_cdr;} |
85 |
goto T21;} |
goto T21;} |
86 |
goto T20; |
goto T20; |
87 |
T20:; |
T20:; |
88 |
(void)(structure_set((V18),VV[0],1,VV[4])); |
V20= Ct; |
89 |
V20= (*(LnkLI68))((V13)); |
STSET(object,(V18),4, VV[4]); |
90 |
(void)(structure_set((V18),VV[0],4,/* INLINE-ARGS */V20)); |
(void)(VV[4]); |
91 |
{register object x= (V13),V21= (V16); |
V21= (*(LnkLI68))((V13)); |
92 |
while(!endp(V21)) |
V22= Ct; |
93 |
if(type_of(V21->c.c_car)==t_cons &&eql(x,V21->c.c_car->c.c_car)){ |
STSET(object,(V18),16, /* INLINE-ARGS */V21); |
94 |
V17= (V21->c.c_car); |
(void)(/* INLINE-ARGS */V21); |
95 |
|
{register object x= (V13),V23= (V16); |
96 |
|
while(V23!=Cnil) |
97 |
|
if(eql(x,V23->c.c_car->c.c_car) &&V23->c.c_car != Cnil){ |
98 |
|
V17= (V23->c.c_car); |
99 |
goto T32; |
goto T32; |
100 |
}else V21=V21->c.c_cdr; |
}else V23=V23->c.c_cdr; |
101 |
V17= Cnil;} |
V17= Cnil;} |
102 |
goto T32; |
goto T32; |
103 |
T32:; |
T32:; |
104 |
if(((V17))==Cnil){ |
if(((V17))==Cnil){ |
105 |
goto T30;} |
goto T30;} |
106 |
(void)(structure_set((V18),VV[0],5,cdr((V17)))); |
V24= CMPcdr((V17)); |
107 |
|
V25= Ct; |
108 |
|
STSET(object,(V18),20, /* INLINE-ARGS */V24); |
109 |
|
(void)(/* INLINE-ARGS */V24); |
110 |
goto T28; |
goto T28; |
111 |
goto T30; |
goto T30; |
112 |
T30:; |
T30:; |
113 |
V17= get((V13),VV[5],Cnil); |
{object V26 =((V13))->s.s_plist; |
114 |
|
object ind= VV[5]; |
115 |
|
while(V26!=Cnil){ |
116 |
|
if(V26->c.c_car==ind){ |
117 |
|
V17= (V26->c.c_cdr->c.c_car); |
118 |
|
goto T35; |
119 |
|
}else V26=V26->c.c_cdr->c.c_cdr;} |
120 |
|
V17= Cnil;} |
121 |
|
goto T35; |
122 |
|
T35:; |
123 |
if(((V17))==Cnil){ |
if(((V17))==Cnil){ |
124 |
goto T28;} |
goto T28;} |
125 |
(void)(structure_set((V18),VV[0],5,(V17))); |
V27= Ct; |
126 |
|
STSET(object,(V18),20, (V17)); |
127 |
|
(void)((V17)); |
128 |
goto T28; |
goto T28; |
129 |
T28:; |
T28:; |
130 |
setq(VV[6],Ct); |
(VV[6]->s.s_dbind)= Ct; |
131 |
goto T19; |
goto T19; |
132 |
goto T21; |
goto T21; |
133 |
T21:; |
T21:; |
134 |
{register object V22; |
{register object V28; |
135 |
register object V23; |
register object V29; |
136 |
V22= (V16); |
V28= (V16); |
137 |
V23= car((V22)); |
V29= CMPcar((V28)); |
138 |
goto T41; |
goto T41; |
139 |
T41:; |
T41:; |
140 |
if(!(endp_prop((V22)))){ |
if(!(((V28))==Cnil)){ |
141 |
goto T42;} |
goto T42;} |
142 |
goto T37; |
goto T37; |
143 |
goto T42; |
goto T42; |
144 |
T42:; |
T42:; |
145 |
if(!((car((V23)))==((V13)))){ |
if(!((CMPcar((V29)))==((V13)))){ |
146 |
goto T46;} |
goto T46;} |
147 |
{object V24= cdr((V23)); |
{object V30= CMPcdr((V29)); |
148 |
if((V24!= VV[7]))goto T49; |
if((V30!= VV[7]))goto T49; |
149 |
(void)(structure_set((V18),VV[0],4,VV[7])); |
V31= Ct; |
150 |
|
STSET(object,(V18),16, VV[7]); |
151 |
|
(void)(VV[7]); |
152 |
goto T46; |
goto T46; |
153 |
goto T49; |
goto T49; |
154 |
T49:; |
T49:; |
155 |
if((V24!= VV[69]))goto T50; |
if((V30!= VV[69]))goto T50; |
156 |
V25= structure_ref((V18),VV[0],6); |
V32= number_plus(STREF(object,(V18),24),small_fixnum(100)); |
157 |
V26= number_plus(/* INLINE-ARGS */V25,small_fixnum(100)); |
V33= Ct; |
158 |
(void)(structure_set((V18),VV[0],6,/* INLINE-ARGS */V26)); |
STSET(object,(V18),24, /* INLINE-ARGS */V32); |
159 |
|
(void)(/* INLINE-ARGS */V32); |
160 |
goto T46; |
goto T46; |
161 |
goto T50; |
goto T50; |
162 |
T50:; |
T50:; |
163 |
(void)(structure_set((V18),VV[0],5,cdr((V23))));} |
V34= CMPcdr((V29)); |
164 |
|
V35= Ct; |
165 |
|
STSET(object,(V18),20, /* INLINE-ARGS */V34); |
166 |
|
(void)(/* INLINE-ARGS */V34);} |
167 |
goto T46; |
goto T46; |
168 |
T46:; |
T46:; |
169 |
V22= cdr((V22)); |
V28= CMPcdr((V28)); |
170 |
V23= car((V22)); |
V29= CMPcar((V28)); |
171 |
goto T41;} |
goto T41;} |
172 |
goto T37; |
goto T37; |
173 |
T37:; |
T37:; |
174 |
base[0]= VV[8]; |
if((VV[8])->s.s_dbind!=OBJNULL){ |
|
vs_top=(vs_base=base+0)+1; |
|
|
Lboundp(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])!=Cnil){ |
|
175 |
goto T57;} |
goto T57;} |
176 |
goto T56; |
goto T56; |
177 |
goto T57; |
goto T57; |
178 |
T57:; |
T57:; |
179 |
if(symbol_value(VV[8])==Cnil){ |
if((VV[8]->s.s_dbind)==Cnil){ |
180 |
goto T56;} |
goto T56;} |
181 |
V27= structure_ref((V18),VV[0],5); |
if(!((STREF(object,(V18),20))==Cnil)){ |
182 |
if(!((/* INLINE-ARGS */V27)==Cnil)){ |
goto T61;} |
183 |
goto T62;} |
goto T59; |
184 |
goto T60; |
goto T61; |
185 |
goto T62; |
T61:; |
186 |
T62:; |
if((Ct)==(STREF(object,(V18),20))){ |
187 |
V28= structure_ref((V18),VV[0],5); |
goto T59;} |
|
if((Ct)==(/* INLINE-ARGS */V28)){ |
|
|
goto T60;} |
|
188 |
goto T56; |
goto T56; |
189 |
goto T60; |
goto T59; |
190 |
T60:; |
T59:; |
191 |
(void)(structure_set((V18),VV[0],4,VV[7])); |
V36= Ct; |
192 |
|
STSET(object,(V18),16, VV[7]); |
193 |
|
(void)(VV[7]); |
194 |
goto T56; |
goto T56; |
195 |
T56:; |
T56:; |
196 |
(void)(structure_set((V18),VV[0],1,VV[9])); |
V37= Ct; |
197 |
|
STSET(object,(V18),4, VV[9]); |
198 |
|
(void)(VV[9]); |
199 |
goto T19; |
goto T19; |
200 |
T19:; |
T19:; |
201 |
{register object x= (V13),V29= (V15); |
{register object x= (V13),V38= (V15); |
202 |
while(!endp(V29)) |
while(V38!=Cnil) |
203 |
if(eql(x,V29->c.c_car)){ |
if(eql(x,V38->c.c_car)){ |
204 |
goto T66; |
goto T65; |
205 |
}else V29=V29->c.c_cdr; |
}else V38=V38->c.c_cdr; |
206 |
goto T64;} |
goto T63;} |
207 |
goto T66; |
goto T65; |
208 |
T66:; |
T65:; |
209 |
(void)(structure_set((V18),VV[0],2,VV[10])); |
V39= Ct; |
210 |
goto T64; |
STSET(object,(V18),8, VV[10]); |
211 |
T64:; |
(void)(VV[10]); |
212 |
{object V30 = (V18); |
goto T63; |
213 |
VMR2(V30)}}} |
T63:; |
214 |
|
{object V40 = (V18); |
215 |
|
VMR2(V40)}}} |
216 |
base[0]=base[0]; |
base[0]=base[0]; |
217 |
return Cnil; |
return Cnil; |
218 |
} |
} |
219 |
/* local entry for function CHECK-VREF */ |
/* local entry for function CHECK-VREF */ |
220 |
|
|
221 |
static object LI3(V32) |
static object LI3(V42) |
222 |
|
|
223 |
register object V32; |
register object V42; |
224 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
225 |
goto TTL; |
goto TTL; |
226 |
TTL:; |
TTL:; |
227 |
V33= structure_ref((V32),VV[0],1); |
if(!((STREF(object,(V42),4))==(VV[9]))){ |
228 |
if(!((/* INLINE-ARGS */V33)==(VV[9]))){ |
goto T67;} |
229 |
goto T68;} |
if((STREF(object,(V42),8))!=Cnil){ |
230 |
if((structure_ref((V32),VV[0],2))!=Cnil){ |
goto T67;} |
231 |
goto T68;} |
if((STREF(object,(V42),12))!=Cnil){ |
232 |
if((structure_ref((V32),VV[0],3))!=Cnil){ |
goto T67;} |
233 |
goto T68;} |
{object V43 = (VFUN_NARGS=2,(*(LnkLI70))(VV[11],STREF(object,(V42),0))); |
234 |
V34= structure_ref((V32),VV[0],0); |
VMR3(V43)} |
235 |
{object V35 = (VFUN_NARGS=2,(*(LnkLI70))(VV[11],/* INLINE-ARGS */V34)); |
goto T67; |
236 |
VMR3(V35)} |
T67:; |
237 |
goto T68; |
{object V44 = Cnil; |
238 |
T68:; |
VMR3(V44)} |
|
{object V36 = Cnil; |
|
|
VMR3(V36)} |
|
239 |
return Cnil; |
return Cnil; |
240 |
} |
} |
241 |
/* local entry for function C1VAR */ |
/* local entry for function C1VAR */ |
242 |
|
|
243 |
static object LI4(V38) |
static object LI4(V46) |
244 |
|
|
245 |
object V38; |
object V46; |
246 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
247 |
goto TTL; |
goto TTL; |
248 |
TTL:; |
TTL:; |
249 |
{object V39; |
{object V47; |
250 |
object V40; |
object V48; |
251 |
V39= (VFUN_NARGS=0,(*(LnkLI71))()); |
V47= (VFUN_NARGS=0,(*(LnkLI71))()); |
252 |
V40= (*(LnkLI72))((V38)); |
V48= (*(LnkLI72))((V46)); |
253 |
{object V41; |
{object V49; |
254 |
object V43; |
object V51; |
255 |
V41= car((V40)); |
V49= CMPcar((V48)); |
256 |
V44= structure_ref(V39,VV[12],1); |
V51= make_cons((V49),STREF(object,V47,4)); |
257 |
V43= make_cons((V41),/* INLINE-ARGS */V44); |
V52= Ct; |
258 |
(void)(structure_set(V39,VV[12],1,(V43)));} |
STSET(object,V47,4, (V51)); |
259 |
V45= structure_ref(car((V40)),VV[0],5); |
(void)((V51));} |
260 |
(void)(structure_set((V39),VV[12],2,/* INLINE-ARGS */V45)); |
V53= Ct; |
261 |
{object V46 = list(3,VV[0],(V39),(V40)); |
STSET(object,(V47),8, STREF(object,CMPcar((V48)),20)); |
262 |
VMR4(V46)}} |
(void)(STREF(object,CMPcar((V48)),20)); |
263 |
|
{object V54 = list(3,VV[0],(V47),(V48)); |
264 |
|
VMR4(V54)}} |
265 |
base[0]=base[0]; |
base[0]=base[0]; |
266 |
return Cnil; |
return Cnil; |
267 |
} |
} |
268 |
/* local entry for function C1VREF */ |
/* local entry for function C1VREF */ |
269 |
|
|
270 |
static object LI5(V48) |
static object LI5(V56) |
271 |
|
|
272 |
register object V48; |
register object V56; |
273 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
274 |
goto TTL; |
goto TTL; |
275 |
TTL:; |
TTL:; |
276 |
{register object V49; |
{register object V57; |
277 |
register object V50; |
register object V58; |
278 |
V49= Cnil; |
V57= Cnil; |
279 |
V50= Cnil; |
V58= Cnil; |
280 |
{register object V51; |
{register object V59; |
281 |
register object V52; |
register object V60; |
282 |
V51= symbol_value(VV[13]); |
V59= (VV[13]->s.s_dbind); |
283 |
V52= car((V51)); |
V60= CMPcar((V59)); |
284 |
goto T85; |
goto T84; |
285 |
T85:; |
T84:; |
286 |
if(!(endp_prop((V51)))){ |
if(!(((V59))==Cnil)){ |
287 |
goto T86;} |
goto T85;} |
288 |
{register object V53; |
{register object V61; |
289 |
V53= (*(LnkLI73))((V48)); |
V61= (*(LnkLI73))((V56)); |
290 |
if(((V53))!=Cnil){ |
if(((V61))!=Cnil){ |
291 |
goto T90;} |
goto T89;} |
292 |
base[1]= (V48); |
base[1]= (V56); |
293 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
294 |
siLspecialp(); |
siLspecialp(); |
295 |
vs_top=sup; |
vs_top=sup; |
296 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
297 |
goto T93;} |
goto T92;} |
298 |
(void)((*(LnkLI74))((V48))); |
(void)((*(LnkLI74))((V56))); |
299 |
goto T93; |
goto T92; |
300 |
T93:; |
T92:; |
301 |
V54= (*(LnkLI68))((V48));{object V56; |
V62= (*(LnkLI68))((V56));{object V64; |
302 |
V56= get((V48),VV[5],Cnil); |
{object V65 =((V56))->s.s_plist; |
303 |
if(V56==Cnil)goto T100; |
object ind= VV[5]; |
304 |
V55= V56; |
while(V65!=Cnil){ |
305 |
goto T99; |
if(V65->c.c_car==ind){ |
306 |
|
V64= (V65->c.c_cdr->c.c_car); |
307 |
|
goto T100; |
308 |
|
}else V65=V65->c.c_cdr->c.c_cdr;} |
309 |
|
V64= Cnil;} |
310 |
goto T100; |
goto T100; |
311 |
T100:;} |
T100:; |
312 |
V55= Ct; |
if(V64==Cnil)goto T99; |
313 |
|
V63= V64; |
314 |
|
goto T98; |
315 |
goto T99; |
goto T99; |
316 |
T99:; |
T99:;} |
317 |
V53= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V48),VV[14],VV[15],VV[16],/* INLINE-ARGS */V54,VV[17],V55)); |
V63= Ct; |
318 |
setq(VV[18],make_cons(V53,symbol_value(VV[18]))); |
goto T98; |
319 |
goto T90; |
T98:; |
320 |
T90:; |
V61= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V56),VV[14],VV[15],VV[16],/* INLINE-ARGS */V62,VV[17],V63)); |
321 |
{object V58 = list(2,(V53),(V49)); |
(VV[18]->s.s_dbind)= make_cons(V61,(VV[18]->s.s_dbind)); |
322 |
VMR5(V58)}} |
goto T89; |
323 |
goto T86; |
T89:; |
324 |
T86:; |
{object V67 = list(2,(V61),(V57)); |
325 |
if(!(((V52))==(VV[19]))){ |
VMR5(V67)}} |
326 |
goto T106;} |
goto T85; |
327 |
V49= Ct; |
T85:; |
328 |
goto T104; |
if(!(((V60))==(VV[19]))){ |
329 |
goto T106; |
goto T105;} |
330 |
T106:; |
V57= Ct; |
331 |
if(!(((V52))==(VV[20]))){ |
goto T103; |
332 |
goto T110;} |
goto T105; |
333 |
V50= Ct; |
T105:; |
334 |
goto T104; |
if(!(((V60))==(VV[20]))){ |
335 |
goto T110; |
goto T109;} |
336 |
T110:; |
V58= Ct; |
337 |
V59= structure_ref((V52),VV[0],0); |
goto T103; |
338 |
if(!((/* INLINE-ARGS */V59)==((V48)))){ |
goto T109; |
339 |
goto T104;} |
T109:; |
340 |
V60= structure_ref((V52),VV[0],2); |
if(!((STREF(object,(V60),0))==((V56)))){ |
341 |
if(!((/* INLINE-ARGS */V60)==(VV[10]))){ |
goto T103;} |
342 |
goto T115;} |
if(!((STREF(object,(V60),8))==(VV[10]))){ |
343 |
(void)((VFUN_NARGS=2,(*(LnkLI70))(VV[21],(V48)))); |
goto T114;} |
344 |
(void)(structure_set((V52),VV[0],2,Ct)); |
(void)((VFUN_NARGS=2,(*(LnkLI70))(VV[21],(V56)))); |
345 |
goto T115; |
V68= Ct; |
346 |
T115:; |
STSET(object,(V60),8, Ct); |
347 |
if(((V49))==Cnil){ |
(void)(Ct); |
348 |
goto T121;} |
goto T114; |
349 |
(void)(structure_set((V52),VV[0],3,Ct)); |
T114:; |
350 |
goto T119; |
if(((V57))==Cnil){ |
351 |
goto T121; |
goto T120;} |
352 |
T121:; |
V69= Ct; |
353 |
if(((V50))==Cnil){ |
STSET(object,(V60),12, Ct); |
354 |
goto T124;} |
(void)(Ct); |
355 |
V61= structure_ref((V52),VV[0],1); |
goto T118; |
356 |
if(!((/* INLINE-ARGS */V61)==(VV[9]))){ |
goto T120; |
357 |
goto T126;} |
T120:; |
358 |
(void)(structure_set((V52),VV[0],4,VV[22])); |
if(((V58))==Cnil){ |
359 |
goto T126; |
goto T123;} |
360 |
T126:; |
if(!((STREF(object,(V60),4))==(VV[9]))){ |
361 |
(void)(structure_set((V52),VV[0],2,Ct)); |
goto T125;} |
362 |
goto T119; |
V70= Ct; |
363 |
goto T124; |
STSET(object,(V60),16, VV[22]); |
364 |
T124:; |
(void)(VV[22]); |
365 |
(void)(structure_set((V52),VV[0],2,Ct)); |
goto T125; |
366 |
{long V62= fix(structure_ref((V52),VV[0],6)); |
T125:; |
367 |
V63 = make_fixnum((long)(1)+(/* INLINE-ARGS */V62)); |
V71= Ct; |
368 |
(void)(structure_set((V52),VV[0],6,V63));} |
STSET(object,(V60),8, Ct); |
369 |
goto T119; |
(void)(Ct); |
370 |
T119:; |
goto T118; |
371 |
{object V64 = list(2,(V52),(V49)); |
goto T123; |
372 |
VMR5(V64)} |
T123:; |
373 |
goto T104; |
V72= Ct; |
374 |
T104:; |
STSET(object,(V60),8, Ct); |
375 |
V51= cdr((V51)); |
(void)(Ct); |
376 |
V52= car((V51)); |
V73 = CMPmake_fixnum((long)(1)+(fix(STREF(object,(V60),24)))); |
377 |
goto T85;}} |
V74= Ct; |
378 |
|
STSET(object,(V60),24, V73); |
379 |
|
(void)(V73); |
380 |
|
goto T118; |
381 |
|
T118:; |
382 |
|
{object V75 = list(2,(V60),(V57)); |
383 |
|
VMR5(V75)} |
384 |
|
goto T103; |
385 |
|
T103:; |
386 |
|
V59= CMPcdr((V59)); |
387 |
|
V60= CMPcar((V59)); |
388 |
|
goto T84;}} |
389 |
base[0]=base[0]; |
base[0]=base[0]; |
390 |
return Cnil; |
return Cnil; |
391 |
} |
} |
392 |
/* local entry for function C2VAR-KIND */ |
/* local entry for function C2VAR-KIND */ |
393 |
|
|
394 |
static object LI6(V66) |
static object LI6(V77) |
395 |
|
|
396 |
register object V66; |
register object V77; |
397 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
398 |
goto TTL; |
goto TTL; |
399 |
TTL:; |
TTL:; |
400 |
V67= structure_ref((V66),VV[0],1); |
if(!((STREF(object,(V77),4))==(VV[9]))){ |
401 |
if(!((/* INLINE-ARGS */V67)==(VV[9]))){ |
goto T135;} |
402 |
goto T136;} |
if((STREF(object,(V77),12))!=Cnil){ |
403 |
if((structure_ref((V66),VV[0],3))!=Cnil){ |
goto T135;} |
404 |
goto T136;} |
if((STREF(object,(V77),16))==(VV[22])){ |
405 |
V68= structure_ref((V66),VV[0],4); |
goto T135;} |
406 |
if((/* INLINE-ARGS */V68)==(VV[22])){ |
if(!((STREF(object,(V77),16))==(VV[7]))){ |
407 |
goto T136;} |
goto T142;} |
408 |
V69= structure_ref((V66),VV[0],4); |
{object V78 = VV[7]; |
409 |
if(!((/* INLINE-ARGS */V69)==(VV[7]))){ |
VMR6(V78)} |
410 |
goto T143;} |
goto T142; |
411 |
{object V70 = VV[7]; |
T142:; |
412 |
VMR6(V70)} |
{register object V79; |
413 |
goto T143; |
V79= STREF(object,(V77),20); |
414 |
T143:; |
if(((*(LnkLI75))(VV[23],(V79)))==Cnil){ |
415 |
{register object V71; |
goto T146;} |
416 |
V71= structure_ref((V66),VV[0],5); |
{object V80 = VV[23]; |
417 |
if(((*(LnkLI75))(VV[23],(V71)))==Cnil){ |
VMR6(V80)} |
418 |
goto T147;} |
goto T146; |
419 |
{object V72 = VV[23]; |
T146:; |
420 |
VMR6(V72)} |
if(((*(LnkLI75))(VV[24],(V79)))==Cnil){ |
421 |
goto T147; |
goto T149;} |
422 |
T147:; |
{object V81 = VV[24]; |
423 |
if(((*(LnkLI75))(VV[24],(V71)))==Cnil){ |
VMR6(V81)} |
424 |
goto T150;} |
goto T149; |
425 |
{object V73 = VV[24]; |
T149:; |
426 |
VMR6(V73)} |
if(((*(LnkLI75))(VV[25],(V79)))==Cnil){ |
427 |
goto T150; |
goto T152;} |
428 |
T150:; |
{object V82 = VV[25]; |
429 |
if(((*(LnkLI75))(VV[25],(V71)))==Cnil){ |
VMR6(V82)} |
430 |
goto T153;} |
goto T152; |
431 |
{object V74 = VV[25]; |
T152:; |
432 |
VMR6(V74)} |
if(((*(LnkLI75))(VV[26],(V79)))==Cnil){ |
433 |
goto T153; |
goto T155;} |
434 |
T153:; |
{object V83 = VV[26]; |
435 |
if(((*(LnkLI75))(VV[26],(V71)))==Cnil){ |
VMR6(V83)} |
436 |
goto T156;} |
goto T155; |
437 |
{object V75 = VV[26]; |
T155:; |
438 |
VMR6(V75)} |
if(((*(LnkLI75))(VV[27],(V79)))==Cnil){ |
439 |
goto T156; |
goto T158;} |
440 |
T156:; |
{object V84 = VV[27]; |
441 |
if(((*(LnkLI75))(VV[27],(V71)))==Cnil){ |
VMR6(V84)} |
442 |
goto T159;} |
goto T158; |
443 |
{object V76 = VV[27]; |
T158:; |
444 |
VMR6(V76)} |
{object V85; |
445 |
goto T159; |
if((VV[8])->s.s_dbind!=OBJNULL){ |
|
T159:; |
|
|
{object V77; |
|
|
base[0]= VV[8]; |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
Lboundp(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])!=Cnil){ |
|
|
goto T162;} |
|
|
V77= Cnil; |
|
|
goto T161; |
|
|
goto T162; |
|
|
T162:; |
|
|
if(symbol_value(VV[8])==Cnil){ |
|
|
V77= Cnil; |
|
446 |
goto T161;} |
goto T161;} |
447 |
V77= VV[7]; |
V85= Cnil; |
448 |
|
goto T160; |
449 |
goto T161; |
goto T161; |
450 |
T161:; |
T161:; |
451 |
if(((V77))==Cnil){ |
if((VV[8]->s.s_dbind)==Cnil){ |
452 |
goto T166;} |
V85= Cnil; |
453 |
{object V78 = (V77); |
goto T160;} |
454 |
VMR6(V78)} |
V85= VV[7]; |
455 |
goto T166; |
goto T160; |
456 |
T166:; |
T160:; |
457 |
{object V79 = Cnil; |
if(((V85))==Cnil){ |
458 |
VMR6(V79)}}} |
goto T164;} |
459 |
goto T136; |
{object V86 = (V85); |
460 |
T136:; |
VMR6(V86)} |
461 |
{object V80 = Cnil; |
goto T164; |
462 |
VMR6(V80)} |
T164:; |
463 |
base[0]=base[0]; |
{object V87 = Cnil; |
464 |
|
VMR6(V87)}}} |
465 |
|
goto T135; |
466 |
|
T135:; |
467 |
|
{object V88 = Cnil; |
468 |
|
VMR6(V88)} |
469 |
return Cnil; |
return Cnil; |
470 |
} |
} |
471 |
/* local entry for function C2VAR */ |
/* local entry for function C2VAR */ |
472 |
|
|
473 |
static object LI7(V82) |
static object LI7(V90) |
474 |
|
|
475 |
object V82; |
object V90; |
476 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
477 |
goto TTL; |
goto TTL; |
478 |
TTL:; |
TTL:; |
479 |
V83= make_cons(VV[0],(V82)); |
V91= make_cons(VV[0],(V90)); |
480 |
{object V84 = (VFUN_NARGS=3,(*(LnkLI76))(/* INLINE-ARGS */V83,Cnil,VV[28])); |
{object V92 = (VFUN_NARGS=3,(*(LnkLI76))(/* INLINE-ARGS */V91,Cnil,VV[28])); |
481 |
VMR7(V84)} |
VMR7(V92)} |
482 |
return Cnil; |
return Cnil; |
483 |
} |
} |
484 |
/* local entry for function C2LOCATION */ |
/* local entry for function C2LOCATION */ |
485 |
|
|
486 |
static object LI8(V86) |
static object LI8(V94) |
487 |
|
|
488 |
object V86; |
object V94; |
489 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
490 |
goto TTL; |
goto TTL; |
491 |
TTL:; |
TTL:; |
492 |
{object V87 = (VFUN_NARGS=3,(*(LnkLI76))((V86),Cnil,VV[28])); |
{object V95 = (VFUN_NARGS=3,(*(LnkLI76))((V94),Cnil,VV[28])); |
493 |
VMR8(V87)} |
VMR8(V95)} |
494 |
return Cnil; |
return Cnil; |
495 |
} |
} |
496 |
/* local entry for function CHECK-DOWNWARD */ |
/* local entry for function CHECK-DOWNWARD */ |
497 |
|
|
498 |
static object LI9(V89) |
static object LI9(V97) |
499 |
|
|
500 |
object V89; |
object V97; |
501 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
502 |
goto TTL; |
goto TTL; |
503 |
TTL:; |
TTL:; |
504 |
{object V90; |
{object V98; |
505 |
V90= Cnil; |
V98= Cnil; |
506 |
{register object V91; |
{register object V99; |
507 |
object V92; |
object V100; |
508 |
V91= symbol_value(VV[29]); |
V99= (VV[29]->s.s_dbind); |
509 |
V92= car((V91)); |
V100= CMPcar((V99)); |
510 |
goto T173; |
goto T171; |
511 |
T173:; |
T171:; |
512 |
if(!(endp_prop((V91)))){ |
if(!(((V99))==Cnil)){ |
513 |
goto T174;} |
goto T172;} |
514 |
goto T169; |
goto T167; |
515 |
goto T174; |
goto T172; |
516 |
T174:; |
T172:; |
517 |
if(!((car((V92)))==(VV[30]))){ |
if(!((CMPcar((V100)))==(VV[30]))){ |
518 |
goto T178;} |
goto T176;} |
519 |
V90= Ct; |
V98= Ct; |
520 |
{register object V93; |
{register object V101; |
521 |
register object V94; |
register object V102; |
522 |
V93= symbol_value(VV[29]); |
V101= (VV[29]->s.s_dbind); |
523 |
V94= car((V93)); |
V102= CMPcar((V101)); |
524 |
goto T187; |
goto T185; |
525 |
T187:; |
T185:; |
526 |
if(!(endp_prop((V93)))){ |
if(!(((V101))==Cnil)){ |
527 |
goto T188;} |
goto T186;} |
528 |
goto T183; |
goto T181; |
529 |
goto T188; |
goto T186; |
530 |
T188:; |
T186:; |
531 |
if(!((car((V94)))==(VV[31]))){ |
if(!((CMPcar((V102)))==(VV[31]))){ |
532 |
goto T192;} |
goto T190;} |
533 |
{register object V95; |
{register object V103; |
534 |
register object V96; |
register object V104; |
535 |
V95= (V94); |
V103= (V102); |
536 |
V96= VV[30]; |
V104= VV[30]; |
537 |
if(type_of((V95))!=t_cons)FEwrong_type_argument(Scons,(V95)); |
((V103))->c.c_car = (V104);} |
538 |
((V95))->c.c_car = (V96);} |
goto T190; |
539 |
goto T192; |
T190:; |
540 |
T192:; |
V101= CMPcdr((V101)); |
541 |
V93= cdr((V93)); |
V102= CMPcar((V101)); |
542 |
V94= car((V93)); |
goto T185;} |
543 |
goto T187;} |
goto T181; |
544 |
goto T183; |
T181:; |
545 |
T183:; |
goto T167; |
546 |
goto T169; |
goto T176; |
547 |
goto T178; |
T176:; |
548 |
T178:; |
V99= CMPcdr((V99)); |
549 |
V91= cdr((V91)); |
V100= CMPcar((V99)); |
550 |
V92= car((V91)); |
goto T171;} |
551 |
goto T173;} |
goto T167; |
552 |
goto T169; |
T167:; |
553 |
T169:; |
(VV[29]->s.s_dbind)= Cnil; |
554 |
setq(VV[29],Cnil); |
if(((V98))==Cnil){ |
555 |
if(((V90))==Cnil){ |
goto T209;} |
556 |
goto T211;} |
{register object V105; |
557 |
{register object V97; |
object V106; |
558 |
object V98; |
V105= (V97); |
559 |
V97= (V89); |
V106= CMPcar((V105)); |
560 |
V98= car((V97)); |
goto T214; |
561 |
goto T216; |
T214:; |
562 |
T216:; |
if(!(((V105))==Cnil)){ |
563 |
if(!(endp_prop((V97)))){ |
goto T215;} |
564 |
goto T217;} |
{object V107 = Cnil; |
565 |
{object V99 = Cnil; |
VMR9(V107)} |
566 |
VMR9(V99)} |
goto T215; |
567 |
goto T217; |
T215:; |
568 |
T217:; |
if(!((STREF(object,(V106),4))==(VV[32]))){ |
569 |
V100= structure_ref((V98),VV[0],1); |
goto T219;} |
570 |
if(!((/* INLINE-ARGS */V100)==(VV[32]))){ |
V108= Ct; |
571 |
goto T221;} |
STSET(object,(V106),4, VV[9]); |
572 |
(void)(structure_set((V98),VV[0],1,VV[9])); |
(void)(VV[9]); |
573 |
goto T221; |
goto T219; |
574 |
T221:; |
T219:; |
575 |
V97= cdr((V97)); |
V105= CMPcdr((V105)); |
576 |
V98= car((V97)); |
V106= CMPcar((V105)); |
577 |
goto T216;} |
goto T214;} |
578 |
goto T211; |
goto T209; |
579 |
T211:; |
T209:; |
580 |
{object V101 = Cnil; |
{object V109 = Cnil; |
581 |
VMR9(V101)}} |
VMR9(V109)}} |
582 |
base[0]=base[0]; |
base[0]=base[0]; |
583 |
return Cnil; |
return Cnil; |
584 |
} |
} |
585 |
/* local entry for function ASSIGN-DOWN-VARS */ |
/* local entry for function ASSIGN-DOWN-VARS */ |
586 |
|
|
587 |
static object LI10(V105,V106,V107) |
static object LI10(V113,V114,V115) |
588 |
|
|
589 |
object V105;object V106;object V107; |
object V113;object V114;object V115; |
590 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
591 |
goto TTL; |
goto TTL; |
592 |
TTL:; |
TTL:; |
593 |
{register object V108; |
{register object V116; |
594 |
V108= small_fixnum(0); |
V116= small_fixnum(0); |
595 |
{register object V109; |
{register object V117; |
596 |
register object V110; |
register object V118; |
597 |
V109= (V105); |
V117= (V113); |
598 |
V110= car((V109)); |
V118= CMPcar((V117)); |
599 |
goto T234; |
goto T232; |
600 |
T234:; |
T232:; |
601 |
if(!(endp_prop((V109)))){ |
if(!(((V117))==Cnil)){ |
602 |
goto T235;} |
goto T233;} |
603 |
goto T230; |
goto T228; |
604 |
goto T235; |
goto T233; |
605 |
T235:; |
T233:; |
606 |
V111= structure_ref((V110),VV[0],1); |
if(!((STREF(object,(V118),4))==(VV[32]))){ |
607 |
if(!((/* INLINE-ARGS */V111)==(VV[32]))){ |
goto T237;} |
608 |
goto T239;} |
{object V119= STREF(object,(V118),16); |
609 |
V112= structure_ref((V110),VV[0],4); |
if(!(type_of(V119)==t_fixnum||type_of(V119)==t_bignum)){ |
610 |
if(!(type_of(/* INLINE-ARGS */V112)==t_fixnum||type_of(/* INLINE-ARGS */V112)==t_bignum)){ |
goto T241;}} |
611 |
goto T243;} |
V120= one_plus(STREF(object,(V118),16)); |
612 |
V113= structure_ref((V110),VV[0],4); |
V116= (number_compare((V116),/* INLINE-ARGS */V120)>=0?((V116)):/* INLINE-ARGS */V120); |
613 |
V114= one_plus(/* INLINE-ARGS */V113); |
V121= Ct; |
614 |
V108= (number_compare((V108),/* INLINE-ARGS */V114)>=0?((V108)):/* INLINE-ARGS */V114); |
STSET(object,(V118),8, STREF(object,(V118),16)); |
615 |
V115= structure_ref((V110),VV[0],4); |
(void)(STREF(object,(V118),16)); |
616 |
(void)(structure_set((V110),VV[0],2,/* INLINE-ARGS */V115)); |
goto T237; |
617 |
goto T239; |
goto T241; |
618 |
goto T243; |
T241:; |
619 |
T243:; |
V122= Ct; |
620 |
(void)(structure_set((V110),VV[0],2,(V108))); |
STSET(object,(V118),8, (V116)); |
621 |
(void)(structure_set((V110),VV[0],4,(V108))); |
(void)((V116)); |
622 |
V108= number_plus((V108),small_fixnum(1)); |
V123= Ct; |
623 |
goto T239; |
STSET(object,(V118),16, (V116)); |
624 |
T239:; |
(void)((V116)); |
625 |
V109= cdr((V109)); |
V116= number_plus((V116),small_fixnum(1)); |
626 |
V110= car((V109)); |
goto T237; |
627 |
goto T234;} |
T237:; |
628 |
goto T230; |
V117= CMPcdr((V117)); |
629 |
T230:; |
V118= CMPcar((V117)); |
630 |
if(!(number_compare((V108),small_fixnum(0))>0)){ |
goto T232;} |
631 |
goto T255;} |
goto T228; |
632 |
if(!(((V107))==(VV[33]))){ |
T228:; |
633 |
goto T258;} |
if(!(number_compare((V116),small_fixnum(0))>0)){ |
634 |
|
goto T253;} |
635 |
|
if(!(((V115))==(VV[33]))){ |
636 |
|
goto T256;} |
637 |
princ_str("\n object base0[",VV[34]); |
princ_str("\n object base0[",VV[34]); |
638 |
(void)((*(LnkLI77))((V108))); |
(void)((*(LnkLI77))((V116))); |
639 |
princ_str("];",VV[34]); |
princ_str("];",VV[34]); |
640 |
goto T258; |
goto T256; |
641 |
T258:; |
T256:; |
642 |
setq(VV[36],make_cons(VV[35],symbol_value(VV[36]))); |
(VV[36]->s.s_dbind)= make_cons(VV[35],(VV[36]->s.s_dbind)); |
643 |
princ_str("\n DCnames",VV[34]); |
princ_str("\n DCnames",VV[34]); |
644 |
(void)((*(LnkLI77))((V106))); |
(void)((*(LnkLI77))((V114))); |
645 |
princ_str("",VV[34]); |
princ_str("",VV[34]); |
646 |
goto T255; |
goto T253; |
647 |
T255:; |
T253:; |
648 |
{object V117 = (V108); |
{object V125 = (V116); |
649 |
VMR10(V117)}} |
VMR10(V125)}} |
650 |
base[0]=base[0]; |
base[0]=base[0]; |
651 |
return Cnil; |
return Cnil; |
652 |
} |
} |
653 |
/* local entry for function WT-DOWN */ |
/* local entry for function WT-DOWN */ |
654 |
|
|
655 |
static object LI11(V119) |
static object LI11(V127) |
656 |
|
|
657 |
object V119; |
object V127; |
658 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
659 |
goto TTL; |
goto TTL; |
660 |
TTL:;{object V120; |
TTL:;{object V128; |
661 |
base[0]= (V119); |
base[0]= (V127); |
662 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
663 |
(void) (*Lnk78)(); |
(void) (*Lnk78)(); |
664 |
vs_top=sup; |
vs_top=sup; |
665 |
V120= vs_base[0]; |
V128= vs_base[0]; |
666 |
if(V120==Cnil)goto T270; |
if(V128==Cnil)goto T268; |
667 |
goto T269; |
goto T267; |
668 |
goto T270; |
goto T268; |
669 |
T270:;} |
T268:;} |
670 |
(void)((*(LnkLI79))()); |
(void)((*(LnkLI79))()); |
671 |
goto T269; |
goto T267; |
672 |
T269:; |
T267:; |
673 |
princ_str("base0[",VV[34]); |
princ_str("base0[",VV[34]); |
674 |
(void)((*(LnkLI77))((V119))); |
(void)((*(LnkLI77))((V127))); |
675 |
princ_char(93,VV[34]); |
princ_char(93,VV[34]); |
676 |
{object V121 = Cnil; |
{object V129 = Cnil; |
677 |
VMR11(V121)} |
VMR11(V129)} |
678 |
base[0]=base[0]; |
base[0]=base[0]; |
679 |
return Cnil; |
return Cnil; |
680 |
} |
} |
681 |
/* local entry for function WT-VAR */ |
/* local entry for function WT-VAR */ |
682 |
|
|
683 |
static object LI12(V124,V125) |
static object LI12(V132,V133) |
684 |
|
|
685 |
register object V124;object V125; |
register object V132;object V133; |
686 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
687 |
goto TTL; |
goto TTL; |
688 |
TTL:; |
TTL:; |
689 |
V127= structure_ref((V124),VV[0],1); |
{object V134= STREF(object,(V132),4); |
690 |
{object V126= /* INLINE-ARGS */V127; |
if((V134!= VV[9]))goto T274; |
691 |
if((V126!= VV[9]))goto T276; |
if(((V133))==Cnil){ |
692 |
if(((V125))==Cnil){ |
goto T276;} |
693 |
goto T278;} |
{object V135 = (*(LnkLI80))(STREF(object,(V132),12)); |
694 |
V128= structure_ref((V124),VV[0],3); |
VMR12(V135)} |
|
{object V129 = (*(LnkLI80))(/* INLINE-ARGS */V128); |
|
|
VMR12(V129)} |
|
|
goto T278; |
|
|
T278:; |
|
|
if((structure_ref((V124),VV[0],3))==Cnil){ |
|
|
goto T281;} |
|
|
V130= structure_ref((V124),VV[0],2); |
|
|
{object V131 = (*(LnkLI81))(/* INLINE-ARGS */V130); |
|
|
VMR12(V131)} |
|
|
goto T281; |
|
|
T281:; |
|
|
V132= structure_ref((V124),VV[0],2); |
|
|
if(!((Ct)==(/* INLINE-ARGS */V132))){ |
|
|
goto T284;} |
|
|
V133= structure_ref((V124),VV[0],4); |
|
|
if(!(type_of(/* INLINE-ARGS */V133)==t_fixnum)){ |
|
|
goto T284;} |
|
|
if((symbol_value(VV[8]))==Cnil){ |
|
|
goto T284;} |
|
|
V134= structure_ref((V124),VV[0],5); |
|
|
if(!((Ct)==(/* INLINE-ARGS */V134))){ |
|
|
goto T284;} |
|
|
(void)(structure_set((V124),VV[0],1,VV[7])); |
|
|
goto TTL; |
|
|
goto T284; |
|
|
T284:; |
|
|
V135= structure_ref((V124),VV[0],2); |
|
|
{object V136 = (*(LnkLI82))(/* INLINE-ARGS */V135); |
|
|
VMR12(V136)} |
|
695 |
goto T276; |
goto T276; |
696 |
T276:; |
T276:; |
697 |
if((V126!= VV[4]))goto T296; |
if((STREF(object,(V132),12))==Cnil){ |
698 |
|
goto T279;} |
699 |
|
{object V136 = (*(LnkLI81))(STREF(object,(V132),8)); |
700 |
|
VMR12(V136)} |
701 |
|
goto T279; |
702 |
|
T279:; |
703 |
|
if(!((Ct)==(STREF(object,(V132),8)))){ |
704 |
|
goto T282;} |
705 |
|
if(!(type_of(STREF(object,(V132),16))==t_fixnum)){ |
706 |
|
goto T282;} |
707 |
|
if(((VV[8]->s.s_dbind))==Cnil){ |
708 |
|
goto T282;} |
709 |
|
if(!((Ct)==(STREF(object,(V132),20)))){ |
710 |
|
goto T282;} |
711 |
|
V137= Ct; |
712 |
|
STSET(object,(V132),4, VV[7]); |
713 |
|
(void)(VV[7]); |
714 |
|
goto TTL; |
715 |
|
goto T282; |
716 |
|
T282:; |
717 |
|
{object V138 = (*(LnkLI82))(STREF(object,(V132),8)); |
718 |
|
VMR12(V138)} |
719 |
|
goto T274; |
720 |
|
T274:; |
721 |
|
if((V134!= VV[4]))goto T294; |
722 |
princ_str("(VV[",VV[34]); |
princ_str("(VV[",VV[34]); |
723 |
V137= structure_ref((V124),VV[0],4); |
(void)((*(LnkLI77))(STREF(object,(V132),16))); |
|
(void)((*(LnkLI77))(/* INLINE-ARGS */V137)); |
|
724 |
princ_str("]->s.s_dbind)",VV[34]); |
princ_str("]->s.s_dbind)",VV[34]); |
725 |
{object V138 = Cnil; |
{object V139 = Cnil; |
726 |
VMR12(V138)} |
VMR12(V139)} |
727 |
goto T296; |
goto T294; |
728 |
T296:; |
T294:; |
729 |
if((V126!= VV[83]))goto T300; |
if((V134!= VV[83]))goto T298; |
730 |
V139= structure_ref((V124),VV[0],4); |
(void)((*(LnkLI77))(STREF(object,(V132),16))); |
|
(void)((*(LnkLI77))(/* INLINE-ARGS */V139)); |
|
731 |
{object V140 = Cnil; |
{object V140 = Cnil; |
732 |
VMR12(V140)} |
VMR12(V140)} |
733 |
|
goto T298; |
734 |
|
T298:; |
735 |
|
if((V134!= VV[32]))goto T300; |
736 |
|
{object V141 = (*(LnkLI84))(STREF(object,(V132),16)); |
737 |
|
VMR12(V141)} |
738 |
goto T300; |
goto T300; |
739 |
T300:; |
T300:; |
740 |
if((V126!= VV[32]))goto T302; |
if((V134!= VV[15]))goto T301; |
741 |
V141= structure_ref((V124),VV[0],4); |
if(((VV[37]->s.s_dbind))==Cnil){ |
742 |
{object V142 = (*(LnkLI84))(/* INLINE-ARGS */V141); |
goto T303;} |
|
VMR12(V142)} |
|
|
goto T302; |
|
|
T302:; |
|
|
if((V126!= VV[15]))goto T303; |
|
|
if((symbol_value(VV[37]))==Cnil){ |
|
|
goto T305;} |
|
743 |
princ_str("symbol_value(VV[",VV[34]); |
princ_str("symbol_value(VV[",VV[34]); |
744 |
V143= structure_ref((V124),VV[0],4); |
(void)((*(LnkLI77))(STREF(object,(V132),16))); |
|
(void)((*(LnkLI77))(/* INLINE-ARGS */V143)); |
|
745 |
princ_str("])",VV[34]); |
princ_str("])",VV[34]); |
746 |
{object V144 = Cnil; |
{object V142 = Cnil; |
747 |
VMR12(V144)} |
VMR12(V142)} |
|
goto T305; |
|
|
T305:; |
|
|
princ_str("(VV[",VV[34]); |
|
|
V145= structure_ref((V124),VV[0],4); |
|
|
(void)((*(LnkLI77))(/* INLINE-ARGS */V145)); |
|
|
princ_str("]->s.s_dbind)",VV[34]); |
|
|
{object V146 = Cnil; |
|
|
VMR12(V146)} |
|
748 |
goto T303; |
goto T303; |
749 |
T303:; |
T303:; |
750 |
V148= structure_ref((V124),VV[0],1); |
princ_str("(VV[",VV[34]); |
751 |
{object V147= /* INLINE-ARGS */V148; |
(void)((*(LnkLI77))(STREF(object,(V132),16))); |
752 |
if((V147!= VV[23]))goto T314; |
princ_str("]->s.s_dbind)",VV[34]); |
753 |
if(!(number_compare(small_fixnum(0),symbol_value(VV[38]))==0)){ |
{object V143 = Cnil; |
754 |
goto T315;} |
VMR12(V143)} |
755 |
|
goto T301; |
756 |
|
T301:; |
757 |
|
{object V144= STREF(object,(V132),4); |
758 |
|
if((V144!= VV[23]))goto T312; |
759 |
|
if(!(number_compare(small_fixnum(0),(VV[38]->s.s_dbind))==0)){ |
760 |
|
goto T313;} |
761 |
princ_str("CMP",VV[34]); |
princ_str("CMP",VV[34]); |
|
goto T315; |
|
|
T315:; |
|
|
princ_str("make_fixnum",VV[34]); |
|
762 |
goto T313; |
goto T313; |
763 |
goto T314; |
T313:; |
764 |
T314:; |
princ_str("make_fixnum",VV[34]); |
765 |
if((V147!= VV[24]))goto T320; |
goto T311; |
766 |
|
goto T312; |
767 |
|
T312:; |
768 |
|
if((V144!= VV[24]))goto T318; |
769 |
princ_str("make_integer",VV[34]); |
princ_str("make_integer",VV[34]); |
770 |
goto T313; |
goto T311; |
771 |
|
goto T318; |
772 |
|
T318:; |
773 |
|
if((V144!= VV[25]))goto T320; |
774 |
|
princ_str("code_char",VV[34]); |
775 |
|
goto T311; |
776 |
goto T320; |
goto T320; |
777 |
T320:; |
T320:; |
778 |
if((V147!= VV[25]))goto T322; |
if((V144!= VV[26]))goto T322; |
779 |
princ_str("code_char",VV[34]); |
princ_str("make_longfloat",VV[34]); |
780 |
goto T313; |
goto T311; |
781 |
goto T322; |
goto T322; |
782 |
T322:; |
T322:; |
783 |
if((V147!= VV[26]))goto T324; |
if((V144!= VV[27]))goto T324; |
784 |
princ_str("make_longfloat",VV[34]); |
princ_str("make_shortfloat",VV[34]); |
785 |
goto T313; |
goto T311; |
786 |
goto T324; |
goto T324; |
787 |
T324:; |
T324:; |
788 |
if((V147!= VV[27]))goto T326; |
if((V144!= VV[7]))goto T326; |
789 |
princ_str("make_shortfloat",VV[34]); |
goto T311; |
|
goto T313; |
|
790 |
goto T326; |
goto T326; |
791 |
T326:; |
T326:; |
|
if((V147!= VV[7]))goto T328; |
|
|
goto T313; |
|
|
goto T328; |
|
|
T328:; |
|
792 |
(void)((*(LnkLI85))());} |
(void)((*(LnkLI85))());} |
793 |
goto T313; |
goto T311; |
794 |
T313:; |
T311:; |
795 |
princ_str("(V",VV[34]); |
princ_str("(V",VV[34]); |
796 |
V149= structure_ref((V124),VV[0],4); |
(void)((*(LnkLI77))(STREF(object,(V132),16))); |
|
(void)((*(LnkLI77))(/* INLINE-ARGS */V149)); |
|
797 |
princ_char(41,VV[34]); |
princ_char(41,VV[34]); |
798 |
{object V150 = Cnil; |
{object V145 = Cnil; |
799 |
VMR12(V150)}} |
VMR12(V145)}} |
800 |
return Cnil; |
return Cnil; |
801 |
} |
} |
802 |
/* local entry for function SET-VAR */ |
/* local entry for function SET-VAR */ |
803 |
|
|
804 |
static object LI13(V154,V155,V156) |
static object LI13(V149,V150,V151) |
805 |
|
|
806 |
register object V154;register object V155;object V156; |
register object V149;register object V150;object V151; |
807 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
808 |
bds_check; |
bds_check; |
809 |
goto TTL; |
goto TTL; |
810 |
TTL:; |
TTL:; |
811 |
if(!(type_of((V154))==t_cons)){ |
if(!(type_of((V149))==t_cons)){ |
812 |
goto T332;} |
goto T330;} |
813 |
if(!((car((V154)))==(VV[0]))){ |
if(!((CMPcar((V149)))==(VV[0]))){ |
814 |
goto T332;} |
goto T330;} |
815 |
if(!((cadr((V154)))==((V155)))){ |
if(!((CMPcadr((V149)))==((V150)))){ |
816 |
goto T332;} |
goto T330;} |
817 |
if((caddr((V154)))==((V156))){ |
if((CMPcaddr((V149)))==((V151))){ |
818 |
goto T333;} |
goto T331;} |
819 |
goto T332; |
goto T330; |
820 |
T332:; |
T330:; |
821 |
V158= structure_ref((V155),VV[0],1); |
{object V152= STREF(object,(V150),4); |
822 |
{object V157= /* INLINE-ARGS */V158; |
if((V152!= VV[9]))goto T339; |
|
if((V157!= VV[9]))goto T341; |
|
823 |
princ_str("\n ",VV[34]); |
princ_str("\n ",VV[34]); |
824 |
if(((V156))==Cnil){ |
if(((V151))==Cnil){ |
825 |
goto T345;} |
goto T343;} |
826 |
V159= structure_ref((V155),VV[0],3); |
(void)((*(LnkLI80))(STREF(object,(V150),12))); |
827 |
(void)((*(LnkLI80))(/* INLINE-ARGS */V159)); |
goto T341; |
|
goto T343; |
|
|
goto T345; |
|
|
T345:; |
|
|
if((structure_ref((V155),VV[0],3))==Cnil){ |
|
|
goto T348;} |
|
|
V160= structure_ref((V155),VV[0],2); |
|
|
(void)((*(LnkLI81))(/* INLINE-ARGS */V160)); |
|
|
goto T343; |
|
|
goto T348; |
|
|
T348:; |
|
|
V161= structure_ref((V155),VV[0],2); |
|
|
(void)((*(LnkLI82))(/* INLINE-ARGS */V161)); |
|
828 |
goto T343; |
goto T343; |
829 |
T343:; |
T343:; |
830 |
princ_str("= ",VV[34]); |
if((STREF(object,(V150),12))==Cnil){ |
831 |
(void)((*(LnkLI77))((V154))); |
goto T346;} |
832 |
princ_char(59,VV[34]); |
(void)((*(LnkLI81))(STREF(object,(V150),8))); |
833 |
{object V162 = Cnil; |
goto T341; |
834 |
VMR13(V162)} |
goto T346; |
835 |
|
T346:; |
836 |
|
(void)((*(LnkLI82))(STREF(object,(V150),8))); |
837 |
goto T341; |
goto T341; |
838 |
T341:; |
T341:; |
839 |
if((V157!= VV[4]))goto T353; |
princ_str("= ",VV[34]); |
840 |
|
(void)((*(LnkLI77))((V149))); |
841 |
|
princ_char(59,VV[34]); |
842 |
|
{object V153 = Cnil; |
843 |
|
VMR13(V153)} |
844 |
|
goto T339; |
845 |
|
T339:; |
846 |
|
if((V152!= VV[4]))goto T351; |
847 |
princ_str("\n (VV[",VV[34]); |
princ_str("\n (VV[",VV[34]); |
848 |
V163= structure_ref((V155),VV[0],4); |
(void)((*(LnkLI77))(STREF(object,(V150),16))); |
|
(void)((*(LnkLI77))(/* INLINE-ARGS */V163)); |
|
849 |
princ_str("]->s.s_dbind)= ",VV[34]); |
princ_str("]->s.s_dbind)= ",VV[34]); |
850 |
(void)((*(LnkLI77))((V154))); |
(void)((*(LnkLI77))((V149))); |
851 |
princ_char(59,VV[34]); |
princ_char(59,VV[34]); |
852 |
{object V164 = Cnil; |
{object V154 = Cnil; |
853 |
VMR13(V164)} |
VMR13(V154)} |
854 |
goto T353; |
goto T351; |
855 |
T353:; |
T351:; |
856 |
if((V157!= VV[15]))goto T359; |
if((V152!= VV[15]))goto T357; |
857 |
if((symbol_value(VV[37]))==Cnil){ |
if(((VV[37]->s.s_dbind))==Cnil){ |
858 |
goto T361;} |
goto T359;} |
859 |
princ_str("\n setq(VV[",VV[34]); |
princ_str("\n setq(VV[",VV[34]); |
860 |
V165= structure_ref((V155),VV[0],4); |
(void)((*(LnkLI77))(STREF(object,(V150),16))); |
|
(void)((*(LnkLI77))(/* INLINE-ARGS */V165)); |
|
861 |
princ_str("],",VV[34]); |
princ_str("],",VV[34]); |
862 |
(void)((*(LnkLI77))((V154))); |
(void)((*(LnkLI77))((V149))); |
863 |
princ_str(");",VV[34]); |
princ_str(");",VV[34]); |
864 |
{object V166 = Cnil; |
{object V155 = Cnil; |
865 |
VMR13(V166)} |
VMR13(V155)} |
866 |
goto T361; |
goto T359; |
867 |
T361:; |
T359:; |
868 |
princ_str("\n (VV[",VV[34]); |
princ_str("\n (VV[",VV[34]); |
869 |
V167= structure_ref((V155),VV[0],4); |
(void)((*(LnkLI77))(STREF(object,(V150),16))); |
|
(void)((*(LnkLI77))(/* INLINE-ARGS */V167)); |
|
870 |
princ_str("]->s.s_dbind)= ",VV[34]); |
princ_str("]->s.s_dbind)= ",VV[34]); |
871 |
(void)((*(LnkLI77))((V154))); |
(void)((*(LnkLI77))((V149))); |
872 |
princ_char(59,VV[34]); |
princ_char(59,VV[34]); |
873 |
{object V168 = Cnil; |
{object V156 = Cnil; |
874 |
VMR13(V168)} |
VMR13(V156)} |
875 |
goto T359; |
goto T357; |
876 |
T359:; |
T357:; |
877 |
if((V157!= VV[32]))goto T373; |
if((V152!= VV[32]))goto T371; |
878 |
princ_str("\n ",VV[34]); |
princ_str("\n ",VV[34]); |
879 |
V169= structure_ref((V155),VV[0],4); |
(void)((*(LnkLI84))(STREF(object,(V150),16))); |
|
(void)((*(LnkLI84))(/* INLINE-ARGS */V169)); |
|
880 |
princ_char(61,VV[34]); |
princ_char(61,VV[34]); |
881 |
(void)((*(LnkLI77))((V154))); |
(void)((*(LnkLI77))((V149))); |
882 |
princ_char(59,VV[34]); |
princ_char(59,VV[34]); |
883 |
{object V170 = Cnil; |
{object V157 = Cnil; |
884 |
VMR13(V170)} |
VMR13(V157)} |
885 |
goto T373; |
goto T371; |
886 |
T373:; |
T371:; |
887 |
if((V157!= VV[24]))goto T380; |
if((V152!= VV[24]))goto T378; |
888 |
{object V171; |
{object V158; |
889 |
register object V172; |
register object V159; |
890 |
if(type_of((V154))==t_cons){ |
if(type_of((V149))==t_cons){ |
891 |
goto T382;} |
goto T380;} |
892 |
V171= Cnil; |
V158= Cnil; |
893 |
goto T381; |
goto T379; |
894 |
goto T382; |
goto T380; |
895 |
T382:; |
T380:; |
896 |
V171= car((V154)); |
V158= CMPcar((V149)); |
897 |
goto T381; |
goto T379; |
898 |
T381:; |
T379:; |
899 |
V172= structure_ref((V155),VV[0],4); |
V159= STREF(object,(V150),16); |
900 |
{object V173= (V171); |
{object V160= (V158); |
901 |
if((V173!= VV[86]))goto T386; |
if((V160!= VV[86]))goto T384; |
902 |
princ_str("\n ISETQ_FIX(V",VV[34]); |
princ_str("\n ISETQ_FIX(V",VV[34]); |
903 |
(void)((*(LnkLI77))((V172))); |
(void)((*(LnkLI77))((V159))); |
904 |
princ_str(",V",VV[34]); |
princ_str(",V",VV[34]); |
905 |
(void)((*(LnkLI77))((V172))); |
(void)((*(LnkLI77))((V159))); |
906 |
princ_str("alloc,",VV[34]); |
princ_str("alloc,",VV[34]); |
907 |
base[0]= caddr((V154)); |
base[0]= CMPcaddr((V149)); |
908 |
base[1]= cadddr((V154)); |
base[1]= CMPcadddr((V149)); |
909 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
910 |
(void) (*Lnk87)(); |
(void) (*Lnk87)(); |
911 |
vs_top=sup; |
vs_top=sup; |
912 |
goto T385; |
goto T383; |
913 |
goto T386; |
goto T384; |
914 |
T386:; |
T384:; |
915 |
if((V173!= VV[88]))goto T395; |
if((V160!= VV[88]))goto T393; |
916 |
princ_str("\n ISETQ_FIX(V",VV[34]); |
princ_str("\n ISETQ_FIX(V",VV[34]); |
917 |
(void)((*(LnkLI77))((V172))); |
(void)((*(LnkLI77))((V159))); |
918 |
princ_str(",V",VV[34]); |
princ_str(",V",VV[34]); |
919 |
(void)((*(LnkLI77))((V172))); |
(void)((*(LnkLI77))((V159))); |
920 |
princ_str("alloc,",VV[34]); |
princ_str("alloc,",VV[34]); |
921 |
(void)((*(LnkLI77))(caddr((V154)))); |
(void)((*(LnkLI77))(CMPcaddr((V149)))); |
922 |
goto T385; |
goto T383; |
923 |
goto T395; |
goto T393; |
924 |
T395:; |
T393:; |
925 |
if((V173!= VV[0]))goto T402; |
if((V160!= VV[0]))goto T400; |
926 |
V175= structure_ref(cadr((V154)),VV[0],1); |
{object V161= STREF(object,CMPcadr((V149)),4); |
927 |
{object V174= /* INLINE-ARGS */V175; |
if((V161!= VV[24]))goto T401; |
|
if((V174!= VV[24]))goto T403; |
|
928 |
princ_str("SETQ_II(V",VV[34]); |
princ_str("SETQ_II(V",VV[34]); |
929 |
(void)((*(LnkLI77))((V172))); |
(void)((*(LnkLI77))((V159))); |
930 |
princ_str(",V",VV[34]); |
princ_str(",V",VV[34]); |
931 |
(void)((*(LnkLI77))((V172))); |
(void)((*(LnkLI77))((V159))); |
932 |
princ_str("alloc,V",VV[34]); |
princ_str("alloc,V",VV[34]); |
933 |
V176= structure_ref(cadr((V154)),VV[0],4); |
(void)((*(LnkLI77))(STREF(object,CMPcadr((V149)),16))); |
934 |
(void)((*(LnkLI77))(/* INLINE-ARGS */V176)); |
goto T383; |
935 |
goto T385; |
goto T401; |
936 |
goto T403; |
T401:; |
937 |
T403:; |
if((V161!= VV[23]))goto T408; |
|
if((V174!= VV[23]))goto T410; |
|
938 |
princ_str("ISETQ_FIX(V",VV[34]); |
princ_str("ISETQ_FIX(V",VV[34]); |
939 |
(void)((*(LnkLI77))((V172))); |
(void)((*(LnkLI77))((V159))); |
940 |
princ_str(",V",VV[34]); |
princ_str(",V",VV[34]); |
941 |
(void)((*(LnkLI77))((V172))); |
(void)((*(LnkLI77))((V159))); |
942 |
princ_str("alloc,V",VV[34]); |
princ_str("alloc,V",VV[34]); |
943 |
V177= structure_ref(cadr((V154)),VV[0],4); |
(void)((*(LnkLI77))(STREF(object,CMPcadr((V149)),16))); |
944 |
(void)((*(LnkLI77))(/* INLINE-ARGS */V177)); |
goto T383; |
945 |
goto T385; |
goto T408; |
946 |
goto T410; |
T408:; |
|
T410:; |
|
947 |
princ_str("SETQ_IO(V",VV[34]); |
princ_str("SETQ_IO(V",VV[34]); |
948 |
(void)((*(LnkLI77))((V172))); |
(void)((*(LnkLI77))((V159))); |
949 |
princ_str(",V",VV[34]); |
princ_str(",V",VV[34]); |
950 |
(void)((*(LnkLI77))((V172))); |
(void)((*(LnkLI77))((V159))); |
951 |
princ_str("alloc,",VV[34]); |
princ_str("alloc,",VV[34]); |
952 |
(void)((*(LnkLI77))((V154))); |
(void)((*(LnkLI77))((V149))); |
953 |
goto T385;} |
goto T383;} |
954 |
goto T402; |
goto T400; |
955 |
T402:; |
T400:; |
956 |
if((V173!= VV[54]))goto T423; |
if((V160!= VV[54]))goto T421; |
957 |
princ_str("SETQ_IO(V",VV[34]); |
princ_str("SETQ_IO(V",VV[34]); |
958 |
(void)((*(LnkLI77))((V172))); |
(void)((*(LnkLI77))((V159))); |
959 |
princ_str(",V",VV[34]); |
princ_str(",V",VV[34]); |
960 |
(void)((*(LnkLI77))((V172))); |
(void)((*(LnkLI77))((V159))); |
961 |
princ_str("alloc,",VV[34]); |
princ_str("alloc,",VV[34]); |
962 |
(void)((*(LnkLI77))((V154))); |
(void)((*(LnkLI77))((V149))); |
963 |
goto T385; |
goto T383; |
964 |
goto T423; |
goto T421; |
965 |
T423:; |
T421:; |
966 |
bds_bind(VV[39],small_fixnum(0)); |
bds_bind(VV[39],small_fixnum(0)); |
967 |
bds_bind(VV[40],symbol_value(VV[40])); |
bds_bind(VV[40],(VV[40]->s.s_dbind)); |
968 |
base[2]= VV[41]; |
(void)((*(LnkLI89))(VV[41])); |
|
vs_top=(vs_base=base+2)+1; |
|
|
(void) (*Lnk89)(); |
|
|
vs_top=sup; |
|
969 |
princ_str("\n SETQ_II(V",VV[34]); |
princ_str("\n SETQ_II(V",VV[34]); |
970 |
(void)((*(LnkLI77))((V172))); |
(void)((*(LnkLI77))((V159))); |
971 |
princ_str(",V",VV[34]); |
princ_str(",V",VV[34]); |
972 |
(void)((*(LnkLI77))((V172))); |
(void)((*(LnkLI77))((V159))); |
973 |
princ_str("alloc,",VV[34]); |
princ_str("alloc,",VV[34]); |
974 |
base[2]= (V154); |
V162= make_cons(VV[42],(V150)); |
975 |
base[3]= make_cons(VV[42],(V155)); |
(void)((VFUN_NARGS=2,(*(LnkLI90))((V149),/* INLINE-ARGS */V162))); |
|
vs_top=(vs_base=base+2)+2; |
|
|
(void) (*Lnk90)(); |
|
|
vs_top=sup; |
|
976 |
princ_str(");",VV[34]); |
princ_str(");",VV[34]); |
977 |
V178= (*(LnkLI91))(); |
V163= (*(LnkLI91))(); |
978 |
bds_unwind1; |
bds_unwind1; |
979 |
bds_unwind1; |
bds_unwind1; |
980 |
{object V179 = Cnil; |
{object V164 = Cnil; |
981 |
VMR13(V179)}} |
VMR13(V164)}} |
982 |
goto T385; |
goto T383; |
983 |
T385:; |
T383:; |
984 |
princ_str(");",VV[34]); |
princ_str(");",VV[34]); |
985 |
{object V180 = Cnil; |
{object V165 = Cnil; |
986 |
VMR13(V180)}} |
VMR13(V165)}} |
987 |
goto T380; |
goto T378; |
988 |
T380:; |
T378:; |
989 |
princ_str("\n V",VV[34]); |
princ_str("\n V",VV[34]); |
990 |
V181= structure_ref((V155),VV[0],4); |
(void)((*(LnkLI77))(STREF(object,(V150),16))); |
|
(void)((*(LnkLI77))(/* INLINE-ARGS */V181)); |
|
991 |
princ_str("= ",VV[34]); |
princ_str("= ",VV[34]); |
992 |
V183= structure_ref((V155),VV[0],1); |
{object V166= STREF(object,(V150),4); |
993 |
{object V182= /* INLINE-ARGS */V183; |
if((V166!= VV[23]))goto T445; |
994 |
if((V182!= VV[23]))goto T450; |
base[0]= (V149); |
|
base[0]= (V154); |
|
995 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
996 |
(void) (*Lnk92)(); |
(void) (*Lnk92)(); |
997 |
vs_top=sup; |
vs_top=sup; |
998 |
goto T449; |
goto T444; |
999 |
goto T450; |
goto T445; |
1000 |
T450:; |
T445:; |
1001 |
if((V182!= VV[25]))goto T452; |
if((V166!= VV[25]))goto T447; |
1002 |
base[0]= (V154); |
base[0]= (V149); |
1003 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1004 |
(void) (*Lnk93)(); |
(void) (*Lnk93)(); |
1005 |
vs_top=sup; |
vs_top=sup; |
1006 |
goto T449; |
goto T444; |
1007 |
goto T452; |
goto T447; |
1008 |
T452:; |
T447:; |
1009 |
if((V182!= VV[26]))goto T454; |
if((V166!= VV[26]))goto T449; |
1010 |
base[0]= (V154); |
base[0]= (V149); |
1011 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1012 |
(void) (*Lnk94)(); |
(void) (*Lnk94)(); |
1013 |
vs_top=sup; |
vs_top=sup; |
1014 |
|
goto T444; |
1015 |
goto T449; |
goto T449; |
1016 |
goto T454; |
T449:; |
1017 |
T454:; |
if((V166!= VV[27]))goto T451; |
1018 |
if((V182!= VV[27]))goto T456; |
base[0]= (V149); |
|
base[0]= (V154); |
|
1019 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1020 |
(void) (*Lnk95)(); |
(void) (*Lnk95)(); |
1021 |
vs_top=sup; |
vs_top=sup; |
1022 |
goto T449; |
goto T444; |
1023 |
goto T456; |
goto T451; |
1024 |
T456:; |
T451:; |
1025 |
if((V182!= VV[7]))goto T458; |
if((V166!= VV[7]))goto T453; |
1026 |
base[0]= (V154); |
base[0]= (V149); |
1027 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1028 |
(void) (*Lnk96)(); |
(void) (*Lnk96)(); |
1029 |
vs_top=sup; |
vs_top=sup; |
1030 |
goto T449; |
goto T444; |
1031 |
goto T458; |
goto T453; |
1032 |
T458:; |
T453:; |
1033 |
(void)((*(LnkLI85))());} |
(void)((*(LnkLI85))());} |
1034 |
goto T449; |
goto T444; |
1035 |
T449:; |
T444:; |
1036 |
princ_char(59,VV[34]); |
princ_char(59,VV[34]); |
1037 |
{object V184 = Cnil; |
{object V167 = Cnil; |
1038 |
VMR13(V184)}} |
VMR13(V167)}} |
1039 |
goto T333; |
goto T331; |
1040 |
T333:; |
T331:; |
1041 |
{object V185 = Cnil; |
{object V168 = Cnil; |
1042 |
VMR13(V185)} |
VMR13(V168)} |
1043 |
base[0]=base[0]; |
base[0]=base[0]; |
1044 |
return Cnil; |
return Cnil; |
1045 |
} |
} |
1046 |
/* local entry for function SCH-GLOBAL */ |
/* local entry for function SCH-GLOBAL */ |
1047 |
|
|
1048 |
static object LI14(V187) |
static object LI14(V170) |
1049 |
|
|
1050 |
register object V187; |
register object V170; |
1051 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1052 |
goto TTL; |
goto TTL; |
1053 |
TTL:; |
TTL:; |
1054 |
{register object V188; |
{register object V171; |
1055 |
register object V189; |
register object V172; |
1056 |
V188= symbol_value(VV[18]); |
V171= (VV[18]->s.s_dbind); |
1057 |
V189= car((V188)); |
V172= CMPcar((V171)); |
1058 |
|
goto T459; |
1059 |
|
T459:; |
1060 |
|
if(!(((V171))==Cnil)){ |
1061 |
|
goto T460;} |
1062 |
|
{object V173 = Cnil; |
1063 |
|
VMR14(V173)} |
1064 |
|
goto T460; |
1065 |
|
T460:; |
1066 |
|
if(!((STREF(object,(V172),0))==((V170)))){ |
1067 |
|
goto T464;} |
1068 |
|
{object V174 = (V172); |
1069 |
|
VMR14(V174)} |
1070 |
goto T464; |
goto T464; |
1071 |
T464:; |
T464:; |
1072 |
if(!(endp_prop((V188)))){ |
V171= CMPcdr((V171)); |
1073 |
goto T465;} |
V172= CMPcar((V171)); |
1074 |
{object V190 = Cnil; |
goto T459;} |
|
VMR14(V190)} |
|
|
goto T465; |
|
|
T465:; |
|
|
V191= structure_ref((V189),VV[0],0); |
|
|
if(!((/* INLINE-ARGS */V191)==((V187)))){ |
|
|
goto T469;} |
|
|
{object V192 = (V189); |
|
|
VMR14(V192)} |
|
|
goto T469; |
|
|
T469:; |
|
|
V188= cdr((V188)); |
|
|
V189= car((V188)); |
|
|
goto T464;} |
|
1075 |
base[0]=base[0]; |
base[0]=base[0]; |
1076 |
return Cnil; |
return Cnil; |
1077 |
} |
} |
1078 |
/* local entry for function C1ADD-GLOBALS */ |
/* local entry for function C1ADD-GLOBALS */ |
1079 |
|
|
1080 |
static object LI15(V194) |
static object LI15(V176) |
1081 |
|
|
1082 |
object V194; |
object V176; |
1083 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
1084 |
goto TTL; |
goto TTL; |
1085 |
TTL:; |
TTL:; |
1086 |
{register object V195; |
{register object V177; |
1087 |
register object V196; |
register object V178; |
1088 |
V195= (V194); |
V177= (V176); |
1089 |
V196= car((V195)); |
V178= CMPcar((V177)); |
1090 |
goto T480; |
goto T475; |
1091 |
T480:; |
T475:; |
1092 |
if(!(endp_prop((V195)))){ |
if(!(((V177))==Cnil)){ |
1093 |
goto T481;} |
goto T476;} |
1094 |
{object V197 = Cnil; |
{object V179 = Cnil; |
1095 |
VMR15(V197)} |
VMR15(V179)} |
1096 |
goto T481; |
goto T476; |
1097 |
T481:; |
T476:; |
1098 |
{register object V198; |
{register object V180; |
1099 |
V199= (*(LnkLI68))((V196)); |
V181= (*(LnkLI68))((V178)); |
1100 |
{register object V201; |
{register object V183; |
1101 |
V201= get((V196),VV[5],Cnil); |
{object V184 =((V178))->s.s_plist; |
1102 |
if(((V201))==Cnil){ |
object ind= VV[5]; |
1103 |
goto T490;} |
while(V184!=Cnil){ |
1104 |
V200= (V201); |
if(V184->c.c_car==ind){ |
1105 |
goto T487; |
V183= (V184->c.c_cdr->c.c_car); |
1106 |
goto T490; |
goto T483; |
1107 |
T490:; |
}else V184=V184->c.c_cdr->c.c_cdr;} |
1108 |
V200= Ct;} |
V183= Cnil;} |
1109 |
goto T487; |
goto T483; |
1110 |
T487:; |
T483:; |
1111 |
V198= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V196),VV[14],VV[15],VV[16],/* INLINE-ARGS */V199,VV[17],V200)); |
if(((V183))==Cnil){ |
1112 |
setq(VV[13],make_cons((V198),symbol_value(VV[13])));} |
goto T485;} |
1113 |
V195= cdr((V195)); |
V182= (V183); |
1114 |
V196= car((V195)); |
goto T482; |
1115 |
goto T480;} |
goto T485; |
1116 |
|
T485:; |
1117 |
|
V182= Ct;} |
1118 |
|
goto T482; |
1119 |
|
T482:; |
1120 |
|
V180= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V178),VV[14],VV[15],VV[16],/* INLINE-ARGS */V181,VV[17],V182)); |
1121 |
|
(VV[13]->s.s_dbind)= make_cons((V180),(VV[13]->s.s_dbind));} |
1122 |
|
V177= CMPcdr((V177)); |
1123 |
|
V178= CMPcar((V177)); |
1124 |
|
goto T475;} |
1125 |
base[0]=base[0]; |
base[0]=base[0]; |
1126 |
return Cnil; |
return Cnil; |
1127 |
} |
} |
1128 |
/* local entry for function C1SETQ */ |
/* local entry for function C1SETQ */ |
1129 |
|
|
1130 |
static object LI16(V203) |
static object LI16(V186) |
1131 |
|
|
1132 |
register object V203; |
register object V186; |
1133 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
1134 |
goto TTL; |
goto TTL; |
1135 |
TTL:; |
TTL:; |
1136 |
if(!(endp_prop((V203)))){ |
if(!(((V186))==Cnil)){ |
1137 |
goto T499;} |
goto T494;} |
1138 |
{object V204 = (*(LnkLI97))(); |
{object V187 = (*(LnkLI97))(); |
1139 |
VMR16(V204)} |
VMR16(V187)} |
1140 |
goto T499; |
goto T494; |
1141 |
T499:; |
T494:; |
1142 |
if(!(endp_prop(cdr((V203))))){ |
if(!((CMPcdr((V186)))==Cnil)){ |
1143 |
goto T502;} |
goto T497;} |
1144 |
{object V205 = (*(LnkLI98))(VV[43],small_fixnum(2),small_fixnum(1)); |
{object V188 = (*(LnkLI98))(VV[43],small_fixnum(2),small_fixnum(1)); |
1145 |
VMR16(V205)} |
VMR16(V188)} |
1146 |
goto T502; |
goto T497; |
1147 |
T502:; |
T497:; |
1148 |
if(!(endp_prop(cddr((V203))))){ |
if(!((CMPcddr((V186)))==Cnil)){ |
1149 |
goto T505;} |
goto T500;} |
1150 |
{object V206 = (*(LnkLI99))(car((V203)),cadr((V203))); |
{object V189 = (*(LnkLI99))(CMPcar((V186)),CMPcadr((V186))); |
1151 |
VMR16(V206)} |
VMR16(V189)} |
1152 |
goto T505; |
goto T500; |
1153 |
T505:; |
T500:; |
1154 |
{register object V207; |
{register object V190; |
1155 |
register object V208; |
register object V191; |
1156 |
V207= (V203); |
V190= (V186); |
1157 |
V208= Cnil; |
V191= Cnil; |
1158 |
|
goto T503; |
1159 |
|
T503:; |
1160 |
|
if(!(((V190))==Cnil)){ |
1161 |
|
goto T504;} |
1162 |
|
V192= reverse((V191)); |
1163 |
|
V193= make_cons(VV[44],/* INLINE-ARGS */V192); |
1164 |
|
{object V194 = (*(LnkLI100))(/* INLINE-ARGS */V193); |
1165 |
|
VMR16(V194)} |
1166 |
|
goto T504; |
1167 |
|
T504:; |
1168 |
|
if(!((CMPcdr((V190)))==Cnil)){ |
1169 |
|
goto T508;} |
1170 |
|
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[45],CMPcar((V190))))); |
1171 |
goto T508; |
goto T508; |
1172 |
T508:; |
T508:; |
1173 |
if(!(endp_prop((V207)))){ |
{register object V195; |
1174 |
goto T509;} |
V195= list(3,VV[43],CMPcar((V190)),CMPcadr((V190))); |
1175 |
V209= reverse((V208)); |
V191= make_cons((V195),(V191));} |
1176 |
V210= make_cons(VV[44],/* INLINE-ARGS */V209); |
V190= CMPcddr((V190)); |
1177 |
{object V211 = (*(LnkLI100))(/* INLINE-ARGS */V210); |
goto T503;} |
|
VMR16(V211)} |
|
|
goto T509; |
|
|
T509:; |
|
|
if(!(endp_prop(cdr((V207))))){ |
|
|
goto T513;} |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[45],car((V207))))); |
|
|
goto T513; |
|
|
T513:; |
|
|
{register object V212; |
|
|
V212= list(3,VV[43],car((V207)),cadr((V207))); |
|
|
V208= make_cons((V212),(V208));} |
|
|
V207= cddr((V207)); |
|
|
goto T508;} |
|
1178 |
base[0]=base[0]; |
base[0]=base[0]; |
1179 |
return Cnil; |
return Cnil; |
1180 |
} |
} |
1181 |
/* local entry for function C1SETQ1 */ |
/* local entry for function C1SETQ1 */ |
1182 |
|
|
1183 |
static object LI17(V215,V216) |
static object LI17(V198,V199) |
1184 |
|
|
1185 |
register object V215;object V216; |
register object V198;object V199; |
1186 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
1187 |
goto TTL; |
goto TTL; |
1188 |
TTL:; |
TTL:; |
1189 |
{register object V217; |
{register object V200; |
1190 |
register object V218; |
register object V201; |
1191 |
register object V219; |
register object V202; |
1192 |
register object V220; |
register object V203; |
1193 |
V217= (VFUN_NARGS=0,(*(LnkLI71))()); |
V200= (VFUN_NARGS=0,(*(LnkLI71))()); |
1194 |
V218= Cnil; |
V201= Cnil; |
1195 |
V219= Cnil; |
V202= Cnil; |
1196 |
V220= Cnil; |
V203= Cnil; |
1197 |
if(type_of((V215))==t_symbol){ |
if(type_of((V198))==t_symbol){ |
1198 |
goto T526;} |
goto T521;} |
1199 |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[46],(V215)))); |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[46],(V198)))); |
1200 |
goto T526; |
goto T521; |
1201 |
T526:; |
T521:; |
1202 |
base[1]= (V215); |
base[1]= (V198); |
1203 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1204 |
Lconstantp(); |
Lconstantp(); |
1205 |
vs_top=sup; |
vs_top=sup; |
1206 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1207 |
goto T529;} |
goto T524;} |
1208 |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[47],(V215)))); |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[47],(V198)))); |
1209 |
goto T529; |
goto T524; |
1210 |
T529:; |
T524:; |
1211 |
V220= (*(LnkLI72))((V215)); |
V203= (*(LnkLI72))((V198)); |
1212 |
{object V221; |
{object V204; |
1213 |
object V223; |
object V206; |
1214 |
V221= car((V220)); |
V204= CMPcar((V203)); |
1215 |
V224= structure_ref(V217,VV[12],0); |
V206= make_cons((V204),STREF(object,V200,0)); |
1216 |
V223= make_cons((V221),/* INLINE-ARGS */V224); |
V207= Ct; |
1217 |
(void)(structure_set(V217,VV[12],0,(V223)));} |
STSET(object,V200,0, (V206)); |
1218 |
V219= (*(LnkLI100))((V216)); |
(void)((V206));} |
1219 |
(void)((*(LnkLI101))((V217),cadr((V219)))); |
V202= (*(LnkLI100))((V199)); |
1220 |
V225= structure_ref(car((V220)),VV[0],5); |
(void)((*(LnkLI101))((V200),CMPcadr((V202)))); |
1221 |
V226= structure_ref(cadr((V219)),VV[12],2); |
V201= (*(LnkLI102))(STREF(object,CMPcar((V203)),20),STREF(object,CMPcadr((V202)),8)); |
1222 |
V218= (*(LnkLI102))(/* INLINE-ARGS */V225,/* INLINE-ARGS */V226); |
if(((V201))!=Cnil){ |
1223 |
if(((V218))!=Cnil){ |
goto T538;} |
1224 |
goto T543;} |
(void)((VFUN_NARGS=3,(*(LnkLI70))(VV[48],(V198),(V199)))); |
1225 |
(void)((VFUN_NARGS=3,(*(LnkLI70))(VV[48],(V215),(V216)))); |
goto T538; |
1226 |
goto T543; |
T538:; |
1227 |
T543:; |
if(((V201))==(STREF(object,CMPcadr((V202)),8))){ |
1228 |
V227= structure_ref(cadr((V219)),VV[12],2); |
goto T541;} |
1229 |
if(((V218))==(/* INLINE-ARGS */V227)){ |
{object V208; |
1230 |
goto T546;} |
base[1]= CMPcadr((V202)); |
|
{object V228; |
|
|
base[1]= cadr((V219)); |
|
1231 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1232 |
(void) (*Lnk103)(); |
(void) (*Lnk103)(); |
1233 |
vs_top=sup; |
vs_top=sup; |
1234 |
V228= vs_base[0]; |
V208= vs_base[0]; |
1235 |
(void)(structure_set((V228),VV[12],2,(V218))); |
V209= Ct; |
1236 |
V219= listA(3,car((V219)),(V228),cddr((V219)));} |
STSET(object,(V208),8, (V201)); |
1237 |
goto T546; |
(void)((V201)); |
1238 |
T546:; |
V202= listA(3,CMPcar((V202)),(V208),CMPcddr((V202)));} |
1239 |
(void)(structure_set((V217),VV[12],2,(V218))); |
goto T541; |
1240 |
{object V229 = list(4,VV[43],(V217),(V220),(V219)); |
T541:; |
1241 |
VMR17(V229)}} |
V210= Ct; |
1242 |
|
STSET(object,(V200),8, (V201)); |
1243 |
|
(void)((V201)); |
1244 |
|
{object V211 = list(4,VV[43],(V200),(V203),(V202)); |
1245 |
|
VMR17(V211)}} |
1246 |
base[0]=base[0]; |
base[0]=base[0]; |
1247 |
return Cnil; |
return Cnil; |
1248 |
} |
} |
1249 |
/* local entry for function C2SETQ */ |
/* local entry for function C2SETQ */ |
1250 |
|
|
1251 |
static object LI18(V232,V233) |
static object LI18(V214,V215) |
1252 |
|
|
1253 |
object V232;object V233; |
object V214;object V215; |
1254 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
1255 |
bds_check; |
bds_check; |
1256 |
goto TTL; |
goto TTL; |
1257 |
TTL:; |
TTL:; |
1258 |
base[0]= make_cons(VV[0],(V232)); |
base[0]= make_cons(VV[0],(V214)); |
1259 |
bds_bind(VV[49],base[0]); |
bds_bind(VV[49],base[0]); |
1260 |
V234= (*(LnkLI104))((V233)); |
V216= (*(LnkLI104))((V215)); |
1261 |
bds_unwind1; |
bds_unwind1; |
1262 |
{object V235= car((V233)); |
{object V217= CMPcar((V215)); |
1263 |
if((V235!= VV[105]))goto T556; |
if((V217!= VV[105]))goto T551; |
1264 |
{object V236 = (*(LnkLI106))(caddr((V233))); |
{object V218 = (*(LnkLI106))(CMPcaddr((V215))); |
1265 |
VMR18(V236)} |
VMR18(V218)} |
1266 |
goto T556; |
goto T551; |
1267 |
T556:; |
T551:; |
1268 |
V237= make_cons(VV[0],(V232)); |
V219= make_cons(VV[0],(V214)); |
1269 |
{object V238 = (VFUN_NARGS=1,(*(LnkLI76))(/* INLINE-ARGS */V237)); |
{object V220 = (VFUN_NARGS=1,(*(LnkLI76))(/* INLINE-ARGS */V219)); |
1270 |
VMR18(V238)}} |
VMR18(V220)}} |
1271 |
base[0]=base[0]; |
base[0]=base[0]; |
1272 |
return Cnil; |
return Cnil; |
1273 |
} |
} |
1274 |
/* local entry for function C1PROGV */ |
/* local entry for function C1PROGV */ |
1275 |
|
|
1276 |
static object LI19(V240) |
static object LI19(V222) |
1277 |
|
|
1278 |
register object V240; |
register object V222; |
1279 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
1280 |
goto TTL; |
goto TTL; |
1281 |
TTL:; |
TTL:; |
1282 |
{object V241; |
{object V223; |
1283 |
object V242; |
object V224; |
1284 |
register object V243; |
register object V225; |
1285 |
V241= Cnil; |
V223= Cnil; |
1286 |
V242= Cnil; |
V224= Cnil; |
1287 |
V243= (VFUN_NARGS=0,(*(LnkLI71))()); |
V225= (VFUN_NARGS=0,(*(LnkLI71))()); |
1288 |
if(endp_prop((V240))){ |
if(((V222))==Cnil){ |
1289 |
goto T561;} |
goto T556;} |
1290 |
if(!(endp_prop(cdr((V240))))){ |
if(!((CMPcdr((V222)))==Cnil)){ |
1291 |
goto T560;} |
goto T555;} |
1292 |
goto T561; |
goto T556; |
1293 |
T561:; |
T556:; |
1294 |
V244 = make_fixnum((long)length((V240))); |
V226 = CMPmake_fixnum((long)length((V222))); |
1295 |
(void)((*(LnkLI98))(VV[50],small_fixnum(2),V244)); |
(void)((*(LnkLI98))(VV[50],small_fixnum(2),V226)); |
1296 |
goto T560; |
goto T555; |
1297 |
T560:; |
T555:; |
1298 |
V241= (*(LnkLI107))(car((V240)),(V243)); |
V223= (*(LnkLI107))(CMPcar((V222)),(V225)); |
1299 |
V242= (*(LnkLI107))(cadr((V240)),(V243)); |
V224= (*(LnkLI107))(CMPcadr((V222)),(V225)); |
1300 |
{object V245 = list(5,VV[50],(V243),(V241),(V242),(*(LnkLI108))(cddr((V240)),(V243))); |
{object V227 = list(5,VV[50],(V225),(V223),(V224),(*(LnkLI108))(CMPcddr((V222)),(V225))); |
1301 |
VMR19(V245)}} |
VMR19(V227)}} |
1302 |
base[0]=base[0]; |
base[0]=base[0]; |
1303 |
return Cnil; |
return Cnil; |
1304 |
} |
} |
1305 |
/* local entry for function C2PROGV */ |
/* local entry for function C2PROGV */ |
1306 |
|
|
1307 |
static object LI20(V249,V250,V251) |
static object LI20(V231,V232,V233) |
1308 |
|
|
1309 |
object V249;object V250;object V251; |
object V231;object V232;object V233; |
1310 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
1311 |
bds_check; |
bds_check; |
1312 |
goto TTL; |
goto TTL; |
1313 |
TTL:; |
TTL:; |
1314 |
{object V252; |
{object V234; |
1315 |
setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1))); |
(VV[51]->s.s_dbind)= number_plus((VV[51]->s.s_dbind),small_fixnum(1)); |
1316 |
V252= symbol_value(VV[51]); |
V234= (VV[51]->s.s_dbind); |
1317 |
bds_bind(VV[52],symbol_value(VV[52])); |
bds_bind(VV[52],(VV[52]->s.s_dbind)); |
1318 |
princ_str("\n {object symbols,values;",VV[34]); |
princ_str("\n {object symbols,values;",VV[34]); |
1319 |
princ_str("\n bds_ptr V",VV[34]); |
princ_str("\n bds_ptr V",VV[34]); |
1320 |
(void)((*(LnkLI77))((V252))); |
(void)((*(LnkLI77))((V234))); |
1321 |
princ_str("=bds_top;",VV[34]); |
princ_str("=bds_top;",VV[34]); |
1322 |
(VV[52]->s.s_dbind)= make_cons(V252,(VV[52]->s.s_dbind)); |
(VV[52]->s.s_dbind)= make_cons(V234,(VV[52]->s.s_dbind)); |
1323 |
bds_bind(VV[53],symbol_value(VV[53])); |
bds_bind(VV[53],(VV[53]->s.s_dbind)); |
1324 |
base[3]= list(2,VV[54],(*(LnkLI109))()); |
base[3]= list(2,VV[54],(*(LnkLI109))()); |
1325 |
bds_bind(VV[49],base[3]); |
bds_bind(VV[49],base[3]); |
1326 |
(void)((*(LnkLI104))((V249))); |
(void)((*(LnkLI104))((V231))); |
1327 |
princ_str("\n symbols= ",VV[34]); |
princ_str("\n symbols= ",VV[34]); |
1328 |
(void)((*(LnkLI77))((VV[49]->s.s_dbind))); |
(void)((*(LnkLI77))((VV[49]->s.s_dbind))); |
1329 |
princ_char(59,VV[34]); |
princ_char(59,VV[34]); |
1330 |
bds_unwind1; |
bds_unwind1; |
1331 |
base[3]= list(2,VV[54],(*(LnkLI109))()); |
base[3]= list(2,VV[54],(*(LnkLI109))()); |
1332 |
bds_bind(VV[49],base[3]); |
bds_bind(VV[49],base[3]); |
1333 |
(void)((*(LnkLI104))((V250))); |
(void)((*(LnkLI104))((V232))); |
1334 |
princ_str("\n values= ",VV[34]); |
princ_str("\n values= ",VV[34]); |
1335 |
(void)((*(LnkLI77))((VV[49]->s.s_dbind))); |
(void)((*(LnkLI77))((VV[49]->s.s_dbind))); |
1336 |
princ_char(59,VV[34]); |
princ_char(59,VV[34]); |
1337 |
bds_unwind1; |
bds_unwind1; |
1338 |
princ_str("\n while(!endp(symbols)){",VV[34]); |
princ_str("\n while(!endp(symbols)){",VV[34]); |
1339 |
if((symbol_value(VV[37]))==Cnil){ |
if(((VV[37]->s.s_dbind))==Cnil){ |
1340 |
goto T594;} |
goto T589;} |
1341 |
princ_str("\n if(type_of(MMcar(symbols))!=t_symbol)",VV[34]); |
princ_str("\n if(type_of(MMcar(symbols))!=t_symbol)",VV[34]); |
1342 |
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]); |
1343 |
goto T594; |
goto T589; |
1344 |
T594:; |
T589:; |
1345 |
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]); |
1346 |
princ_str("\n else{bds_bind(MMcar(symbols),MMcar(values));",VV[34]); |
princ_str("\n else{bds_bind(MMcar(symbols),MMcar(values));",VV[34]); |
1347 |
princ_str("\n values=MMcdr(values);}",VV[34]); |
princ_str("\n values=MMcdr(values);}",VV[34]); |
1348 |
princ_str("\n symbols=MMcdr(symbols);}",VV[34]); |
princ_str("\n symbols=MMcdr(symbols);}",VV[34]); |
1349 |
bds_unwind1; |
bds_unwind1; |
1350 |
base[2]= (V251); |
base[2]= (V233); |
1351 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1352 |
(void) (*Lnk110)(); |
(void) (*Lnk110)(); |
1353 |
vs_top=sup; |
vs_top=sup; |
1354 |
princ_char(125,VV[34]); |
princ_char(125,VV[34]); |
1355 |
{object V254 = Cnil; |
{object V236 = Cnil; |
1356 |
bds_unwind1; |
bds_unwind1; |
1357 |
VMR20(V254)}} |
VMR20(V236)}} |
1358 |
base[0]=base[0]; |
base[0]=base[0]; |
1359 |
return Cnil; |
return Cnil; |
1360 |
} |
} |
1361 |
/* local entry for function C1PSETQ */ |
/* local entry for function C1PSETQ */ |
1362 |
|
|
1363 |
static object LI21(V256) |
static object LI21(V238) |
1364 |
|
|
1365 |
object V256; |
object V238; |
1366 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
1367 |
goto TTL; |
goto TTL; |
1368 |
TTL:; |
TTL:; |
1369 |
{object V257; |
{object V239; |
1370 |
register object V258; |
register object V240; |
1371 |
object V259; |
object V241; |
1372 |
V257= Cnil; |
V239= Cnil; |
1373 |
V258= Cnil; |
V240= Cnil; |
1374 |
V259= (VFUN_NARGS=2,(*(LnkLI71))(VV[17],VV[55])); |
V241= (VFUN_NARGS=2,(*(LnkLI71))(VV[17],VV[55])); |
1375 |
{register object V260; |
{register object V242; |
1376 |
V260= (V256); |
V242= (V238); |
1377 |
|
goto T610; |
1378 |
|
T610:; |
1379 |
|
if(!(((V242))==Cnil)){ |
1380 |
|
goto T611;} |
1381 |
|
goto T608; |
1382 |
|
goto T611; |
1383 |
|
T611:; |
1384 |
|
if(type_of(CMPcar((V242)))==t_symbol){ |
1385 |
|
goto T615;} |
1386 |
|
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[56],CMPcar((V242))))); |
1387 |
goto T615; |
goto T615; |
1388 |
T615:; |
T615:; |
1389 |
if(!(endp_prop((V260)))){ |
base[1]= CMPcar((V242)); |
|
goto T616;} |
|
|
goto T613; |
|
|
goto T616; |
|
|
T616:; |
|
|
if(type_of(car((V260)))==t_symbol){ |
|
|
goto T620;} |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[56],car((V260))))); |
|
|
goto T620; |
|
|
T620:; |
|
|
base[1]= car((V260)); |
|
1390 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
1391 |
Lconstantp(); |
Lconstantp(); |
1392 |
vs_top=sup; |
vs_top=sup; |
1393 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1394 |
goto T623;} |
goto T618;} |
1395 |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[57],car((V260))))); |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[57],CMPcar((V242))))); |
1396 |
goto T623; |
goto T618; |
1397 |
T623:; |
T618:; |
1398 |
if(!(endp_prop(cdr((V260))))){ |
if(!((CMPcdr((V242)))==Cnil)){ |
1399 |
goto T627;} |
goto T622;} |
1400 |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[58],car((V260))))); |
(void)((VFUN_NARGS=2,(*(LnkLI67))(VV[58],CMPcar((V242))))); |
1401 |
goto T627; |
goto T622; |
1402 |
T627:; |
T622:; |
1403 |
{register object V261; |
{register object V243; |
1404 |
register object V262; |
register object V244; |
1405 |
register object V263; |
register object V245; |
1406 |
V261= (*(LnkLI72))(car((V260))); |
V243= (*(LnkLI72))(CMPcar((V242))); |
1407 |
V262= (*(LnkLI100))(cadr((V260))); |
V244= (*(LnkLI100))(CMPcadr((V242))); |
1408 |
V264= structure_ref(car((V261)),VV[0],5); |
V245= (*(LnkLI102))(STREF(object,CMPcar((V243)),20),STREF(object,CMPcadr((V244)),8)); |
1409 |
V265= structure_ref(cadr((V262)),VV[12],2); |
if(equal((V245),STREF(object,CMPcadr((V244)),8))){ |
1410 |
V263= (*(LnkLI102))(/* INLINE-ARGS */V264,/* INLINE-ARGS */V265); |
goto T629;} |
1411 |
V266= structure_ref(cadr((V262)),VV[12],2); |
{register object V246; |
1412 |
if(equal((V263),/* INLINE-ARGS */V266)){ |
base[4]= CMPcadr((V244)); |
|
goto T634;} |
|
|
{register object V267; |
|
|
base[4]= cadr((V262)); |
|
1413 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1414 |
(void) (*Lnk103)(); |
(void) (*Lnk103)(); |
1415 |
vs_top=sup; |
vs_top=sup; |
1416 |
V267= vs_base[0]; |
V246= vs_base[0]; |
1417 |
(void)(structure_set((V267),VV[12],2,(V263))); |
V247= Ct; |
1418 |
V262= listA(3,car((V262)),(V267),cddr((V262)));} |
STSET(object,(V246),8, (V245)); |
1419 |
goto T634; |
(void)((V245)); |
1420 |
T634:; |
V244= listA(3,CMPcar((V244)),(V246),CMPcddr((V244)));} |
1421 |
V257= make_cons(V261,(V257)); |
goto T629; |
1422 |
V258= make_cons(V262,(V258)); |
T629:; |
1423 |
{object V270; |
V239= make_cons(V243,(V239)); |
1424 |
register object V271; |
V240= make_cons(V244,(V240)); |
1425 |
object V272; |
{object V250; |
1426 |
V270= car((V261)); |
register object V251; |
1427 |
V271= (V259); |
object V252; |
1428 |
V273= structure_ref((V271),VV[12],0); |
V250= CMPcar((V243)); |
1429 |
V272= make_cons((V270),/* INLINE-ARGS */V273); |
V251= (V241); |
1430 |
(void)(structure_set((V271),VV[12],0,(V272)));} |
V252= make_cons((V250),STREF(object,(V251),0)); |
1431 |
(void)((*(LnkLI101))((V259),cadar((V258))));} |
V253= Ct; |
1432 |
V260= cddr((V260)); |
STSET(object,(V251),0, (V252)); |
1433 |
goto T615;} |
(void)((V252));} |
1434 |
goto T613; |
(void)((*(LnkLI101))((V241),CMPcadar((V240))));} |
1435 |
T613:; |
V242= CMPcddr((V242)); |
1436 |
V274= reverse((V257)); |
goto T610;} |
1437 |
{object V275 = list(4,VV[59],(V259),/* INLINE-ARGS */V274,reverse((V258))); |
goto T608; |
1438 |
VMR21(V275)}} |
T608:; |
1439 |
|
V254= reverse((V239)); |
1440 |
|
{object V255 = list(4,VV[59],(V241),/* INLINE-ARGS */V254,reverse((V240))); |
1441 |
|
VMR21(V255)}} |
1442 |
base[0]=base[0]; |
base[0]=base[0]; |
1443 |
return Cnil; |
return Cnil; |
1444 |
} |
} |
1445 |
/* local entry for function C2PSETQ */ |
/* local entry for function C2PSETQ */ |
1446 |
|
|
1447 |
static object LI22(V278,V279) |
static object LI22(V258,V259) |
1448 |
|
|
1449 |
object V278;register object V279; |
object V258;register object V259; |
1450 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
1451 |
bds_check; |
bds_check; |
1452 |
goto TTL; |
goto TTL; |
1453 |
TTL:; |
TTL:; |
1454 |
{register object V280; |
{register object V260; |
1455 |
object V281; |
object V261; |
1456 |
bds_bind(VV[53],symbol_value(VV[53])); |
bds_bind(VV[53],(VV[53]->s.s_dbind)); |
1457 |
V280= Cnil; |
V260= Cnil; |
1458 |
V281= small_fixnum(0); |
V261= small_fixnum(0); |
1459 |
{register object V282; |
{register object V262; |
1460 |
register object V283; |
register object V263; |
1461 |
V282= (V278); |
V262= (V258); |
1462 |
V283= car((V282)); |
V263= CMPcar((V262)); |
1463 |
goto T658; |
goto T653; |
1464 |
T658:; |
T653:; |
1465 |
if(!(endp_prop((V282)))){ |
if(!(((V262))==Cnil)){ |
1466 |
goto T659;} |
goto T654;} |
1467 |
|
goto T649; |
1468 |
goto T654; |
goto T654; |
1469 |
|
T654:; |
1470 |
|
if(((*(LnkLI111))(CMPcar((V263)),CMPcdr((V259))))!=Cnil){ |
1471 |
|
goto T659;} |
1472 |
|
if(((*(LnkLI112))(CMPcar((V263)),CMPcdr((V259))))==Cnil){ |
1473 |
|
goto T660;} |
1474 |
goto T659; |
goto T659; |
1475 |
T659:; |
T659:; |
1476 |
if(((*(LnkLI111))(car((V283)),cdr((V279))))!=Cnil){ |
{object V264= CMPcaar((V259)); |
1477 |
goto T664;} |
if((V264!= VV[105]))goto T664; |
1478 |
if(((*(LnkLI112))(car((V283)),cdr((V279))))==Cnil){ |
{object V265; |
1479 |
goto T665;} |
V265= make_cons((V263),CMPcaddar((V259))); |
1480 |
|
V260= make_cons((V265),(V260)); |
1481 |
|
goto T658;} |
1482 |
goto T664; |
goto T664; |
1483 |
T664:; |
T664:; |
1484 |
{object V284= caar((V279)); |
{register object x= STREF(object,CMPcar((V263)),4),V266= VV[60]; |
1485 |
if((V284!= VV[105]))goto T669; |
while(V266!=Cnil) |
1486 |
{object V285; |
if(eql(x,V266->c.c_car)){ |
1487 |
V285= make_cons((V283),caddar((V279))); |
goto T669; |
1488 |
V280= make_cons((V285),(V280)); |
}else V266=V266->c.c_cdr; |
1489 |
goto T663;} |
goto T668;} |
1490 |
goto T669; |
goto T669; |
1491 |
T669:; |
T669:; |
1492 |
V287= structure_ref(car((V283)),VV[0],1); |
{object V267; |
1493 |
{register object x= /* INLINE-ARGS */V287,V286= VV[60]; |
object V268; |
1494 |
while(!endp(V286)) |
object V269; |
1495 |
if(eql(x,V286->c.c_car)){ |
V267= STREF(object,CMPcar((V263)),4); |
1496 |
goto T674; |
(VV[51]->s.s_dbind)= number_plus((VV[51]->s.s_dbind),small_fixnum(1)); |
1497 |
}else V286=V286->c.c_cdr; |
V268= (VV[51]->s.s_dbind); |
1498 |
goto T673;} |
V270= (VFUN_NARGS=4,(*(LnkLI66))(VV[14],(V267),VV[16],(V268))); |
1499 |
goto T674; |
V269= list(3,VV[0],/* INLINE-ARGS */V270,Cnil); |
|
T674:; |
|
|
{object V288; |
|
|
object V289; |
|
|
object V290; |
|
|
V288= structure_ref(car((V283)),VV[0],1); |
|
|
setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1))); |
|
|
V289= symbol_value(VV[51]); |
|
|
V291= (VFUN_NARGS=4,(*(LnkLI66))(VV[14],(V288),VV[16],(V289))); |
|
|
V290= list(3,VV[0],/* INLINE-ARGS */V291,Cnil); |
|
1500 |
princ_str("\n {",VV[34]); |
princ_str("\n {",VV[34]); |
1501 |
(void)((*(LnkLI77))(symbol_value(VV[61]))); |
(void)((*(LnkLI77))((VV[61]->s.s_dbind))); |
1502 |
V292= (*(LnkLI113))((V288)); |
V271= (*(LnkLI113))((V267)); |
1503 |
(void)((*(LnkLI77))(/* INLINE-ARGS */V292)); |
(void)((*(LnkLI77))(/* INLINE-ARGS */V271)); |
1504 |
princ_char(86,VV[34]); |
princ_char(86,VV[34]); |
1505 |
(void)((*(LnkLI77))((V289))); |
(void)((*(LnkLI77))((V268))); |
1506 |
princ_char(59,VV[34]); |
princ_char(59,VV[34]); |
1507 |
V281= number_plus((V281),small_fixnum(1)); |
V261= number_plus((V261),small_fixnum(1)); |
1508 |
bds_bind(VV[49],(V290)); |
bds_bind(VV[49],(V269)); |
1509 |
V293= (*(LnkLI104))(car((V279))); |
V272= (*(LnkLI104))(CMPcar((V259))); |
1510 |
bds_unwind1; |
bds_unwind1; |
1511 |
{object V294; |
{object V273; |
1512 |
V294= make_cons((V283),(V290)); |
V273= make_cons((V263),(V269)); |
1513 |
V280= make_cons((V294),(V280)); |
V260= make_cons((V273),(V260)); |
1514 |
goto T663;}} |
goto T658;}} |
1515 |
goto T673; |
goto T668; |
1516 |
T673:; |
T668:; |
1517 |
base[2]= list(2,VV[54],(*(LnkLI109))()); |
base[2]= list(2,VV[54],(*(LnkLI109))()); |
1518 |
bds_bind(VV[49],base[2]); |
bds_bind(VV[49],base[2]); |
1519 |
(void)((*(LnkLI104))(car((V279)))); |
(void)((*(LnkLI104))(CMPcar((V259)))); |
1520 |
{object V295; |
{object V274; |
1521 |
V295= make_cons((V283),(VV[49]->s.s_dbind)); |
V274= make_cons((V263),(VV[49]->s.s_dbind)); |
1522 |
V280= make_cons((V295),(V280)); |
V260= make_cons((V274),(V260)); |
1523 |
bds_unwind1; |
bds_unwind1; |
1524 |
goto T663;}} |
goto T658;}} |
1525 |
goto T665; |
goto T660; |
1526 |
T665:; |
T660:; |
1527 |
base[2]= make_cons(VV[0],(V283)); |
base[2]= make_cons(VV[0],(V263)); |
1528 |
bds_bind(VV[49],base[2]); |
bds_bind(VV[49],base[2]); |
1529 |
V296= (*(LnkLI104))(car((V279))); |
V275= (*(LnkLI104))(CMPcar((V259))); |
1530 |
bds_unwind1; |
bds_unwind1; |
1531 |
goto T663; |
goto T658; |
1532 |
T663:; |
T658:; |
1533 |
{object V297; |
{object V276; |
1534 |
V297= car((V279)); |
V276= CMPcar((V259)); |
1535 |
V279= cdr((V279));} |
V259= CMPcdr((V259));} |
1536 |
V282= cdr((V282)); |
V262= CMPcdr((V262)); |
1537 |
V283= car((V282)); |
V263= CMPcar((V262)); |
1538 |
goto T658;} |
goto T653;} |
1539 |
goto T654; |
goto T649; |
1540 |
T654:; |
T649:; |
1541 |
{register object V298; |
{register object V277; |
1542 |
register object V299; |
register object V278; |
1543 |
V298= (V280); |
V277= (V260); |
1544 |
V299= car((V298)); |
V278= CMPcar((V277)); |
1545 |
goto T709; |
goto T704; |
1546 |
T709:; |
T704:; |
1547 |
if(!(endp_prop((V298)))){ |
if(!(((V277))==Cnil)){ |
1548 |
goto T710;} |
goto T705;} |
1549 |
goto T705; |
goto T700; |
|
goto T710; |
|
|
T710:; |
|
|
(void)((*(LnkLI42))(cdr((V299)),caar((V299)),cadar((V299)))); |
|
|
V298= cdr((V298)); |
|
|
V299= car((V298)); |
|
|
goto T709;} |
|
1550 |
goto T705; |
goto T705; |
1551 |
T705:; |
T705:; |
1552 |
{object V301; |
(void)((*(LnkLI42))(CMPcdr((V278)),CMPcaar((V278)),CMPcadar((V278)))); |
1553 |
V301= small_fixnum(0); |
V277= CMPcdr((V277)); |
1554 |
goto T723; |
V278= CMPcar((V277)); |
1555 |
T723:; |
goto T704;} |
1556 |
if(!(number_compare((V301),V281)>=0)){ |
goto T700; |
1557 |
goto T724;} |
T700:; |
1558 |
goto T720; |
{object V280; |
1559 |
goto T724; |
V280= small_fixnum(0); |
1560 |
T724:; |
goto T718; |
1561 |
|
T718:; |
1562 |
|
if(!(number_compare((V280),V261)>=0)){ |
1563 |
|
goto T719;} |
1564 |
|
goto T715; |
1565 |
|
goto T719; |
1566 |
|
T719:; |
1567 |
princ_char(125,VV[34]); |
princ_char(125,VV[34]); |
1568 |
V301= one_plus((V301)); |
V280= one_plus((V280)); |
1569 |
goto T723;} |
goto T718;} |
1570 |
goto T720; |
goto T715; |
1571 |
T720:; |
T715:; |
1572 |
{object V302 = (VFUN_NARGS=1,(*(LnkLI76))(Cnil)); |
{object V281 = (VFUN_NARGS=1,(*(LnkLI76))(Cnil)); |
1573 |
bds_unwind1; |
bds_unwind1; |
1574 |
VMR22(V302)}} |
VMR22(V281)}} |
1575 |
base[0]=base[0]; |
base[0]=base[0]; |
1576 |
return Cnil; |
return Cnil; |
1577 |
} |
} |
1578 |
/* function definition for WT-VAR-DECL */ |
/* local entry for function WT-VAR-DECL */ |
1579 |
|
|
1580 |
static void L23() |
static object LI23(V283) |
1581 |
{register object *base=vs_base; |
|
1582 |
register object *sup=base+VM23; VC23 |
register object V283; |
1583 |
vs_reserve(VM23); |
{ VMB23 VMS23 VMV23 |
|
{register object V303; |
|
|
check_arg(1); |
|
|
V303=(base[0]); |
|
|
vs_top=sup; |
|
1584 |
goto TTL; |
goto TTL; |
1585 |
TTL:; |
TTL:; |
1586 |
base[1]= (V303); |
base[0]= (V283); |
1587 |
base[2]= VV[0]; |
base[1]= VV[0]; |
1588 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+0)+2; |
1589 |
(void) (*Lnk114)(); |
(void) (*Lnk114)(); |
1590 |
vs_top=sup; |
vs_top=sup; |
1591 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1592 |
|
goto T729;} |
1593 |
|
{object V284; |
1594 |
|
V284= STREF(object,(V283),16); |
1595 |
|
if(!((STREF(object,(V283),4))==(VV[24]))){ |
1596 |
goto T734;} |
goto T734;} |
|
{object V304; |
|
|
V304= structure_ref((V303),VV[0],4); |
|
|
V305= structure_ref((V303),VV[0],1); |
|
|
if(!((/* INLINE-ARGS */V305)==(VV[24]))){ |
|
|
goto T739;} |
|
1597 |
princ_str("IDECL(",VV[34]); |
princ_str("IDECL(",VV[34]); |
1598 |
goto T739; |
goto T734; |
1599 |
T739:; |
T734:; |
1600 |
(void)((*(LnkLI77))(symbol_value(VV[61]))); |
(void)((*(LnkLI77))((VV[61]->s.s_dbind))); |
1601 |
V306= (*(LnkLI69))((V303)); |
V285= (*(LnkLI69))((V283)); |
1602 |
(void)((*(LnkLI77))(/* INLINE-ARGS */V306)); |
(void)((*(LnkLI77))(/* INLINE-ARGS */V285)); |
1603 |
V307= structure_ref((V303),VV[0],1); |
V286= (*(LnkLI113))(STREF(object,(V283),4)); |
1604 |
V308= (*(LnkLI113))(/* INLINE-ARGS */V307); |
(void)((*(LnkLI77))(/* INLINE-ARGS */V286)); |
|
(void)((*(LnkLI77))(/* INLINE-ARGS */V308)); |
|
1605 |
princ_char(86,VV[34]); |
princ_char(86,VV[34]); |
1606 |
(void)((*(LnkLI77))((V304))); |
(void)((*(LnkLI77))((V284))); |
1607 |
V309= structure_ref((V303),VV[0],1); |
if(!(eql(STREF(object,(V283),4),VV[24]))){ |
1608 |
if(!(eql(/* INLINE-ARGS */V309,VV[24]))){ |
goto T744;} |
|
goto T749;} |
|
1609 |
princ_str(",V",VV[34]); |
princ_str(",V",VV[34]); |
1610 |
(void)((*(LnkLI77))((V304))); |
(void)((*(LnkLI77))((V284))); |
1611 |
princ_str("space,V",VV[34]); |
princ_str("space,V",VV[34]); |
1612 |
(void)((*(LnkLI77))((V304))); |
(void)((*(LnkLI77))((V284))); |
1613 |
princ_str("alloc)",VV[34]); |
princ_str("alloc)",VV[34]); |
1614 |
goto T749; |
goto T744; |
1615 |
T749:; |
T744:; |
1616 |
princ_char(59,VV[34]); |
princ_char(59,VV[34]); |
1617 |
base[1]= Cnil; |
{object V287 = Cnil; |
1618 |
vs_top=(vs_base=base+1)+1; |
VMR23(V287)}} |
1619 |
return;} |
goto T729; |
1620 |
goto T734; |
T729:; |
1621 |
T734:; |
{object V288 = (*(LnkLI79))(); |
1622 |
base[1]= (*(LnkLI79))(); |
VMR23(V288)} |
1623 |
vs_top=(vs_base=base+1)+1; |
base[0]=base[0]; |
1624 |
return; |
return Cnil; |
|
} |
|
1625 |
} |
} |
1626 |
static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* REGISTER */ |
static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* REGISTER */ |
1627 |
static void LnkT114(){ call_or_link(VV[114],(void **)(void *)&Lnk114);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT114(){ call_or_link(VV[114],(void **)(void *)&Lnk114);} /* STRUCTURE-SUBTYPE-P */ |
1648 |
static void LnkT93(){ call_or_link(VV[93],(void **)(void *)&Lnk93);} /* WT-CHARACTER-LOC */ |
static void LnkT93(){ call_or_link(VV[93],(void **)(void *)&Lnk93);} /* WT-CHARACTER-LOC */ |
1649 |
static void LnkT92(){ call_or_link(VV[92],(void **)(void *)&Lnk92);} /* WT-FIXNUM-LOC */ |
static void LnkT92(){ call_or_link(VV[92],(void **)(void *)&Lnk92);} /* WT-FIXNUM-LOC */ |
1650 |
static object LnkTLI91(){return call_proc0(VV[91],(void **)(void *)&LnkLI91);} /* CLOSE-INLINE-BLOCKS */ |
static object LnkTLI91(){return call_proc0(VV[91],(void **)(void *)&LnkLI91);} /* CLOSE-INLINE-BLOCKS */ |
1651 |
static void LnkT90(){ call_or_link(VV[90],(void **)(void *)&Lnk90);} /* WT-INTEGER-LOC */ |
static object LnkTLI90(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[90],(void **)(void *)&LnkLI90,first,ap);va_end(ap);return V1;} /* WT-INTEGER-LOC */ |
1652 |
static void LnkT89(){ call_or_link(VV[89],(void **)(void *)&Lnk89);} /* SAVE-AVMA */ |
static object LnkTLI89(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[89],(void **)(void *)&LnkLI89,1,first,ap);va_end(ap);return V1;} /* SAVE-AVMA */ |
1653 |
static void LnkT87(){ call_or_link(VV[87],(void **)(void *)&Lnk87);} /* WT-INLINE-LOC */ |
static void LnkT87(){ call_or_link(VV[87],(void **)(void *)&Lnk87);} /* WT-INLINE-LOC */ |
1654 |
static object LnkTLI85(){return call_proc0(VV[85],(void **)(void *)&LnkLI85);} /* BABOON */ |
static object LnkTLI85(){return call_proc0(VV[85],(void **)(void *)&LnkLI85);} /* BABOON */ |
1655 |
static object LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[84],(void **)(void *)&LnkLI84,1,first,ap);va_end(ap);return V1;} /* WT-DOWN */ |
static object LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[84],(void **)(void *)&LnkLI84,1,first,ap);va_end(ap);return V1;} /* WT-DOWN */ |