22 |
object V11; |
object V11; |
23 |
object V12; |
object V12; |
24 |
V3= (VFUN_NARGS=0,(*(LnkLI39))()); |
V3= (VFUN_NARGS=0,(*(LnkLI39))()); |
25 |
V4= symbol_value(VV[0]); |
V4= (VV[0]->s.s_dbind); |
26 |
V5= Cnil; |
V5= Cnil; |
27 |
V6= Cnil; |
V6= Cnil; |
28 |
V7= Cnil; |
V7= Cnil; |
31 |
V10= Cnil; |
V10= Cnil; |
32 |
V11= Cnil; |
V11= Cnil; |
33 |
V12= Cnil; |
V12= Cnil; |
34 |
bds_bind(VV[1],symbol_value(VV[1])); |
bds_bind(VV[1],(VV[1]->s.s_dbind)); |
35 |
if(!(endp_prop((V2)))){ |
if(!(((V2))==Cnil)){ |
36 |
goto T11;} |
goto T11;} |
37 |
(void)((*(LnkLI40))(VV[2],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI40))(VV[2],small_fixnum(1),small_fixnum(0))); |
38 |
goto T11; |
goto T11; |
39 |
T11:; |
T11:; |
40 |
base[2]= cdr((V2)); |
base[2]= CMPcdr((V2)); |
41 |
base[3]= Cnil; |
base[3]= Cnil; |
42 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
43 |
(void) (*Lnk41)(); |
(void) (*Lnk41)(); |
69 |
(void)((*(LnkLI42))((V8))); |
(void)((*(LnkLI42))((V8))); |
70 |
{register object V13; |
{register object V13; |
71 |
register object V14; |
register object V14; |
72 |
V13= car((V2)); |
V13= CMPcar((V2)); |
73 |
V14= car((V13)); |
V14= CMPcar((V13)); |
74 |
goto T23; |
goto T23; |
75 |
T23:; |
T23:; |
76 |
if(!(endp_prop((V13)))){ |
if(!(((V13))==Cnil)){ |
77 |
goto T24;} |
goto T24;} |
78 |
goto T19; |
goto T19; |
79 |
goto T24; |
goto T24; |
85 |
V7= make_cons(V14,(V7)); |
V7= make_cons(V14,(V7)); |
86 |
V6= make_cons(V15,(V6)); |
V6= make_cons(V15,(V6)); |
87 |
{object V18; |
{object V18; |
88 |
V19= structure_ref((V15),VV[3],5); |
V18= (*(LnkLI44))(STREF(object,(V15),20)); |
|
V18= (*(LnkLI44))(/* INLINE-ARGS */V19); |
|
89 |
V5= make_cons((V18),(V5)); |
V5= make_cons((V18),(V5)); |
90 |
goto T28;}} |
goto T28;}} |
91 |
goto T30; |
goto T30; |
92 |
T30:; |
T30:; |
93 |
if(!(type_of((V14))==t_cons)){ |
if(!(type_of((V14))==t_cons)){ |
94 |
goto T40;} |
goto T40;} |
95 |
if(endp_prop(cdr((V14)))){ |
if((CMPcdr((V14)))==Cnil){ |
96 |
goto T39;} |
goto T39;} |
97 |
if(endp_prop(cddr((V14)))){ |
if((CMPcddr((V14)))==Cnil){ |
98 |
goto T39;} |
goto T39;} |
99 |
goto T40; |
goto T40; |
100 |
T40:; |
T40:; |
101 |
(void)((VFUN_NARGS=2,(*(LnkLI45))(VV[4],(V14)))); |
(void)((VFUN_NARGS=2,(*(LnkLI45))(VV[4],(V14)))); |
102 |
goto T39; |
goto T39; |
103 |
T39:; |
T39:; |
104 |
|
{object V19; |
105 |
|
V19= (*(LnkLI43))(CMPcar((V14)),(V8),(V9),(V10)); |
106 |
{object V20; |
{object V20; |
107 |
V20= (*(LnkLI43))(car((V14)),(V8),(V9),(V10)); |
V20= CMPcar((V14)); |
108 |
{object V21; |
V7= make_cons((V20),(V7));} |
109 |
V21= car((V14)); |
V6= make_cons(V19,(V6)); |
110 |
V7= make_cons((V21),(V7));} |
{object V22; |
111 |
V6= make_cons(V20,(V6)); |
if(!((CMPcdr((V14)))==Cnil)){ |
|
{object V23; |
|
|
if(!(endp_prop(cdr((V14))))){ |
|
112 |
goto T54;} |
goto T54;} |
113 |
V24= structure_ref((V20),VV[3],5); |
V22= (*(LnkLI44))(STREF(object,(V19),20)); |
|
V23= (*(LnkLI44))(/* INLINE-ARGS */V24); |
|
114 |
goto T52; |
goto T52; |
115 |
goto T54; |
goto T54; |
116 |
T54:; |
T54:; |
117 |
V25= structure_ref((V20),VV[3],5); |
V23= (*(LnkLI47))(CMPcadr((V14)),(V3)); |
118 |
V26= (*(LnkLI47))(cadr((V14)),(V3)); |
V22= (*(LnkLI46))(STREF(object,(V19),20),/* INLINE-ARGS */V23,CMPcadr((V14))); |
|
V23= (*(LnkLI46))(/* INLINE-ARGS */V25,/* INLINE-ARGS */V26,cadr((V14))); |
|
119 |
goto T52; |
goto T52; |
120 |
T52:; |
T52:; |
121 |
V5= make_cons((V23),(V5));}} |
V5= make_cons((V22),(V5));}} |
122 |
goto T28; |
goto T28; |
123 |
T28:; |
T28:; |
124 |
V13= cdr((V13)); |
V13= CMPcdr((V13)); |
125 |
V14= car((V13)); |
V14= CMPcar((V13)); |
126 |
goto T23;} |
goto T23;} |
127 |
goto T19; |
goto T19; |
128 |
T19:; |
T19:; |
129 |
{register object V27; |
{register object V24; |
130 |
object V28; |
object V25; |
131 |
V27= reverse((V6)); |
V24= reverse((V6)); |
132 |
V28= car((V27)); |
V25= CMPcar((V24)); |
133 |
goto T66; |
goto T66; |
134 |
T66:; |
T66:; |
135 |
if(!(endp_prop((V27)))){ |
if(!(((V24))==Cnil)){ |
136 |
goto T67;} |
goto T67;} |
137 |
goto T62; |
goto T62; |
138 |
goto T67; |
goto T67; |
139 |
T67:; |
T67:; |
140 |
(VV[1]->s.s_dbind)= make_cons(V28,(VV[1]->s.s_dbind)); |
(VV[1]->s.s_dbind)= make_cons(V25,(VV[1]->s.s_dbind)); |
141 |
V27= cdr((V27)); |
V24= CMPcdr((V24)); |
142 |
V28= car((V27)); |
V25= CMPcar((V24)); |
143 |
goto T66;} |
goto T66;} |
144 |
goto T62; |
goto T62; |
145 |
T62:; |
T62:; |
146 |
(void)((*(LnkLI48))((V7),(V10),(V9))); |
(void)((*(LnkLI48))((V7),(V10),(V9))); |
147 |
V11= (*(LnkLI49))((V12),(V11)); |
V11= (*(LnkLI49))((V12),(V11)); |
148 |
(void)((*(LnkLI50))((V3),cadr((V11)))); |
(void)((*(LnkLI50))((V3),CMPcadr((V11)))); |
149 |
V30= structure_ref(cadr((V11)),VV[5],2); |
V27= Ct; |
150 |
(void)(structure_set((V3),VV[5],2,/* INLINE-ARGS */V30)); |
STSET(object,(V3),8, STREF(object,CMPcadr((V11)),8)); |
151 |
{register object V31; |
(void)(STREF(object,CMPcadr((V11)),8)); |
152 |
object V32; |
{register object V28; |
153 |
V31= (V6); |
object V29; |
154 |
V32= car((V31)); |
V28= (V6); |
155 |
|
V29= CMPcar((V28)); |
156 |
goto T87; |
goto T87; |
157 |
T87:; |
T87:; |
158 |
if(!(endp_prop((V31)))){ |
if(!(((V28))==Cnil)){ |
159 |
goto T88;} |
goto T88;} |
160 |
goto T83; |
goto T83; |
161 |
goto T88; |
goto T88; |
162 |
T88:; |
T88:; |
163 |
(void)((*(LnkLI51))((V32))); |
(void)((*(LnkLI51))((V29))); |
164 |
V31= cdr((V31)); |
V28= CMPcdr((V28)); |
165 |
V32= car((V31)); |
V29= CMPcar((V28)); |
166 |
goto T87;} |
goto T87;} |
167 |
goto T83; |
goto T83; |
168 |
T83:; |
T83:; |
169 |
if(!(eql((V4),symbol_value(VV[0])))){ |
if(!(eql((V4),(VV[0]->s.s_dbind)))){ |
170 |
goto T99;} |
goto T99;} |
171 |
goto T98; |
goto T98; |
172 |
goto T99; |
goto T99; |
173 |
T99:; |
T99:; |
174 |
(void)(structure_set((V3),VV[5],4,Ct)); |
V30= Ct; |
175 |
|
STSET(object,(V3),16, Ct); |
176 |
|
(void)(Ct); |
177 |
goto T98; |
goto T98; |
178 |
T98:; |
T98:; |
179 |
V33= reverse((V6)); |
V31= reverse((V6)); |
180 |
{object V34 = list(5,VV[2],(V3),/* INLINE-ARGS */V33,reverse((V5)),(V11)); |
{object V32 = list(5,VV[2],(V3),/* INLINE-ARGS */V31,reverse((V5)),(V11)); |
181 |
bds_unwind1; |
bds_unwind1; |
182 |
VMR1(V34)}} |
VMR1(V32)}} |
183 |
base[0]=base[0]; |
base[0]=base[0]; |
184 |
return Cnil; |
return Cnil; |
185 |
} |
} |
186 |
/* local entry for function C2LET */ |
/* local entry for function C2LET */ |
187 |
|
|
188 |
static object LI2(V38,V39,V40) |
static object LI2(V36,V37,V38) |
189 |
|
|
190 |
object V38;object V39;object V40; |
object V36;object V37;object V38; |
191 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
192 |
bds_check; |
bds_check; |
193 |
goto TTL; |
goto TTL; |
194 |
TTL:; |
TTL:; |
195 |
{object V41; |
{object V39; |
196 |
register object V42; |
register object V40; |
197 |
register object V43; |
register object V41; |
198 |
|
V39= Cnil; |
199 |
|
V40= Cnil; |
200 |
V41= Cnil; |
V41= Cnil; |
201 |
V42= Cnil; |
bds_bind(VV[6],(VV[6]->s.s_dbind)); |
202 |
V43= Cnil; |
bds_bind(VV[7],(VV[7]->s.s_dbind)); |
203 |
bds_bind(VV[6],symbol_value(VV[6])); |
bds_bind(VV[8],(VV[8]->s.s_dbind)); |
204 |
bds_bind(VV[7],symbol_value(VV[7])); |
bds_bind(VV[9],(VV[9]->s.s_dbind)); |
205 |
bds_bind(VV[8],symbol_value(VV[8])); |
{object V42; |
206 |
bds_bind(VV[9],symbol_value(VV[9])); |
object V43; |
207 |
{object V44; |
object V44; |
208 |
object V45; |
V42= (V36); |
209 |
object V46; |
V43= (V37); |
210 |
V44= (V38); |
V44= Cnil; |
|
V45= (V39); |
|
|
V46= Cnil; |
|
211 |
goto T106; |
goto T106; |
212 |
T106:; |
T106:; |
213 |
if(!(endp_prop((V44)))){ |
if(!(((V42))==Cnil)){ |
214 |
goto T107;} |
goto T107;} |
215 |
goto T104; |
goto T104; |
216 |
goto T107; |
goto T107; |
217 |
T107:; |
T107:; |
218 |
{register object V47; |
{register object V45; |
219 |
register object V48; |
register object V46; |
220 |
object V49; |
object V47; |
221 |
V47= car((V45)); |
V45= CMPcar((V43)); |
222 |
V48= car((V44)); |
V46= CMPcar((V42)); |
223 |
V49= (*(LnkLI52))((V48)); |
V47= (*(LnkLI52))((V46)); |
224 |
if(((V49))==Cnil){ |
if(((V47))==Cnil){ |
225 |
goto T117;} |
goto T117;} |
226 |
(void)(structure_set((V48),VV[3],1,(V49))); |
V48= Ct; |
227 |
setq(VV[10],number_plus(symbol_value(VV[10]),small_fixnum(1))); |
STSET(object,(V46),4, (V47)); |
228 |
(void)(structure_set((V48),VV[3],4,symbol_value(VV[10]))); |
(void)((V47)); |
229 |
|
(VV[10]->s.s_dbind)= number_plus((VV[10]->s.s_dbind),small_fixnum(1)); |
230 |
|
V49= Ct; |
231 |
|
STSET(object,(V46),16, (VV[10]->s.s_dbind)); |
232 |
|
(void)((VV[10]->s.s_dbind)); |
233 |
goto T115; |
goto T115; |
234 |
goto T117; |
goto T117; |
235 |
T117:; |
T117:; |
236 |
V50= structure_ref((V48),VV[3],1); |
if(!((STREF(object,(V46),4))==(VV[11]))){ |
237 |
if(!((/* INLINE-ARGS */V50)==(VV[11]))){ |
goto T122;}{object V50; |
238 |
goto T122;}{object V51; |
base[7]= STREF(object,(V46),16); |
|
base[7]= structure_ref((V48),VV[3],4); |
|
239 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
240 |
(void) (*Lnk53)(); |
(void) (*Lnk53)(); |
241 |
vs_top=sup; |
vs_top=sup; |
242 |
V51= vs_base[0]; |
V50= vs_base[0]; |
243 |
if(V51==Cnil)goto T124; |
if(V50==Cnil)goto T124; |
244 |
goto T115; |
goto T115; |
245 |
goto T124; |
goto T124; |
246 |
T124:;} |
T124:;} |
248 |
goto T115; |
goto T115; |
249 |
goto T122; |
goto T122; |
250 |
T122:; |
T122:; |
251 |
V52= (*(LnkLI55))(); |
V51= (*(LnkLI55))(); |
252 |
(void)(structure_set((V48),VV[3],2,/* INLINE-ARGS */V52)); |
V52= Ct; |
253 |
|
STSET(object,(V46),8, /* INLINE-ARGS */V51); |
254 |
|
(void)(/* INLINE-ARGS */V51); |
255 |
goto T115; |
goto T115; |
256 |
T115:; |
T115:; |
257 |
V54= structure_ref((V48),VV[3],1); |
{object V53= STREF(object,(V46),4); |
|
{object V53= /* INLINE-ARGS */V54; |
|
258 |
if((V53!= VV[56]) |
if((V53!= VV[56]) |
259 |
&& (V53!= VV[57]) |
&& (V53!= VV[57]) |
260 |
&& (V53!= VV[58]) |
&& (V53!= VV[58]) |
261 |
&& (V53!= VV[59]) |
&& (V53!= VV[59]) |
262 |
&& (V53!= VV[60]))goto T128; |
&& (V53!= VV[60]))goto T128; |
263 |
{object V55; |
{object V54; |
264 |
V55= list(3,VV[12],list(3,VV[3],(V48),Cnil),(V47)); |
V54= list(3,VV[12],list(3,VV[3],(V46),Cnil),(V45)); |
265 |
V43= make_cons((V55),(V43)); |
V41= make_cons((V54),(V41)); |
266 |
goto T127;} |
goto T127;} |
267 |
goto T128; |
goto T128; |
268 |
T128:; |
T128:; |
269 |
{object V56= car((V47)); |
{object V55= CMPcar((V45)); |
270 |
if((V56!= VV[61]))goto T131; |
if((V55!= VV[61]))goto T131; |
271 |
if(((*(LnkLI62))((V48),(V40)))==Cnil){ |
if(((*(LnkLI62))((V46),(V38)))==Cnil){ |
272 |
goto T133;} |
goto T133;} |
273 |
(void)(structure_set((V48),VV[3],1,VV[13])); |
V56= Ct; |
274 |
(void)(structure_set((V48),VV[3],4,caddr((V47)))); |
STSET(object,(V46),4, VV[13]); |
275 |
|
(void)(VV[13]); |
276 |
|
V57= CMPcaddr((V45)); |
277 |
|
V58= Ct; |
278 |
|
STSET(object,(V46),16, /* INLINE-ARGS */V57); |
279 |
|
(void)(/* INLINE-ARGS */V57); |
280 |
goto T127; |
goto T127; |
281 |
goto T133; |
goto T133; |
282 |
T133:; |
T133:; |
283 |
{object V57; |
{object V59; |
284 |
V57= list(2,(V48),caddr((V47))); |
V59= list(2,(V46),CMPcaddr((V45))); |
285 |
V42= make_cons((V57),(V42)); |
V40= make_cons((V59),(V40)); |
286 |
goto T127;} |
goto T127;} |
287 |
goto T131; |
goto T131; |
288 |
T131:; |
T131:; |
289 |
if((V56!= VV[3]))goto T138; |
if((V55!= VV[3]))goto T138; |
290 |
{register object V58; |
{register object V60; |
291 |
V58= caaddr((V47)); |
V60= CMPcaaddr((V45)); |
292 |
if(((*(LnkLI63))((V58),cdr((V45))))!=Cnil){ |
if(((*(LnkLI63))((V60),CMPcdr((V43))))!=Cnil){ |
293 |
goto T140;} |
goto T140;} |
294 |
V60= structure_ref((V58),VV[3],1); |
{register object x= STREF(object,(V60),4),V61= VV[14]; |
295 |
{register object x= /* INLINE-ARGS */V60,V59= VV[14]; |
while(V61!=Cnil) |
296 |
while(!endp(V59)) |
if(eql(x,V61->c.c_car)){ |
|
if(eql(x,V59->c.c_car)){ |
|
297 |
goto T145; |
goto T145; |
298 |
}else V59=V59->c.c_cdr; |
}else V61=V61->c.c_cdr; |
299 |
goto T141;} |
goto T141;} |
300 |
goto T145; |
goto T145; |
301 |
T145:; |
T145:; |
302 |
V62= structure_ref((V58),VV[3],0); |
{register object x= STREF(object,(V60),0),V62= (V44); |
303 |
{register object x= /* INLINE-ARGS */V62,V61= (V46); |
while(V62!=Cnil) |
304 |
while(!endp(V61)) |
if(eql(x,V62->c.c_car)){ |
|
if(eql(x,V61->c.c_car)){ |
|
305 |
goto T146; |
goto T146; |
306 |
}else V61=V61->c.c_cdr; |
}else V62=V62->c.c_cdr; |
307 |
goto T141;} |
goto T141;} |
308 |
goto T146; |
goto T146; |
309 |
T146:; |
T146:; |
310 |
goto T140; |
goto T140; |
311 |
T140:; |
T140:; |
312 |
{object V63; |
{object V63; |
313 |
V65= structure_ref((V48),VV[3],1); |
if(!((STREF(object,(V46),4))==(VV[15]))){ |
|
if(!((/* INLINE-ARGS */V65)==(VV[15]))){ |
|
314 |
goto T150;} |
goto T150;} |
315 |
V64= list(3,VV[3],(V48),Cnil); |
V64= list(3,VV[3],(V46),Cnil); |
316 |
goto T148; |
goto T148; |
317 |
goto T150; |
goto T150; |
318 |
T150:; |
T150:; |
319 |
V66= structure_ref((V48),VV[3],1); |
if(!((STREF(object,(V46),4))==(VV[11]))){ |
|
if(!((/* INLINE-ARGS */V66)==(VV[11]))){ |
|
320 |
goto T153;} |
goto T153;} |
321 |
V64= list(2,VV[11],structure_ref((V48),VV[3],4)); |
V64= list(2,VV[11],STREF(object,(V46),16)); |
322 |
goto T148; |
goto T148; |
323 |
goto T153; |
goto T153; |
324 |
T153:; |
T153:; |
325 |
{object V67; |
{object V65; |
326 |
V67= make_cons((V48),Cnil); |
V65= make_cons((V46),Cnil); |
327 |
V42= make_cons((V67),(V42));} |
V40= make_cons((V65),(V40));} |
328 |
V64= list(2,VV[16],structure_ref((V48),VV[3],2)); |
V64= list(2,VV[16],STREF(object,(V46),8)); |
329 |
goto T148; |
goto T148; |
330 |
T148:; |
T148:; |
331 |
V63= list(3,VV[12],V64,(V47)); |
V63= list(3,VV[12],V64,(V45)); |
332 |
V43= make_cons((V63),(V43)); |
V41= make_cons((V63),(V41)); |
333 |
goto T127;} |
goto T127;} |
334 |
goto T141; |
goto T141; |
335 |
T141:; |
T141:; |
336 |
if(((*(LnkLI62))((V48),(V40)))==Cnil){ |
if(((*(LnkLI62))((V46),(V38)))==Cnil){ |
337 |
goto T160;} |
goto T160;} |
338 |
V69= structure_ref((V58),VV[3],1); |
{register object x= STREF(object,(V60),4),V66= VV[17]; |
339 |
{register object x= /* INLINE-ARGS */V69,V68= VV[17]; |
while(V66!=Cnil) |
340 |
while(!endp(V68)) |
if(eql(x,V66->c.c_car)){ |
|
if(eql(x,V68->c.c_car)){ |
|
341 |
goto T164; |
goto T164; |
342 |
}else V68=V68->c.c_cdr; |
}else V66=V66->c.c_cdr; |
343 |
goto T160;} |
goto T160;} |
344 |
goto T164; |
goto T164; |
345 |
T164:; |
T164:; |
346 |
if((structure_ref((V58),VV[3],3))!=Cnil){ |
if((STREF(object,(V60),12))!=Cnil){ |
347 |
goto T160;} |
goto T160;} |
348 |
V71= structure_ref(cadr((V40)),VV[5],0); |
{register object x= (V60),V67= STREF(object,CMPcadr((V38)),0); |
349 |
{register object x= (V58),V70= /* INLINE-ARGS */V71; |
while(V67!=Cnil) |
350 |
while(!endp(V70)) |
if(eql(x,V67->c.c_car)){ |
|
if(eql(x,V70->c.c_car)){ |
|
351 |
goto T160; |
goto T160; |
352 |
}else V70=V70->c.c_cdr;} |
}else V67=V67->c.c_cdr;} |
353 |
(void)(structure_set((V48),VV[3],1,VV[13])); |
V68= Ct; |
354 |
V74= structure_ref((V58),VV[3],1); |
STSET(object,(V46),4, VV[13]); |
355 |
{object V73= /* INLINE-ARGS */V74; |
(void)(VV[13]); |
356 |
if((V73!= VV[28]))goto T170; |
{object V70= STREF(object,(V60),4); |
357 |
V72= list(2,VV[16],structure_ref((V58),VV[3],2)); |
if((V70!= VV[28]))goto T170; |
358 |
|
V69= list(2,VV[16],STREF(object,(V60),8)); |
359 |
goto T169; |
goto T169; |
360 |
goto T170; |
goto T170; |
361 |
T170:; |
T170:; |
362 |
if((V73!= VV[13]))goto T171; |
if((V70!= VV[13]))goto T171; |
363 |
V72= structure_ref((V58),VV[3],4); |
V69= STREF(object,(V60),16); |
364 |
goto T169; |
goto T169; |
365 |
goto T171; |
goto T171; |
366 |
T171:; |
T171:; |
367 |
if((V73!= VV[15]))goto T172; |
if((V70!= VV[15]))goto T172; |
368 |
V72= list(2,VV[18],structure_ref((V58),VV[3],4)); |
V69= list(2,VV[18],STREF(object,(V60),16)); |
369 |
goto T169; |
goto T169; |
370 |
goto T172; |
goto T172; |
371 |
T172:; |
T172:; |
372 |
V72= (*(LnkLI64))();} |
V69= (*(LnkLI64))();} |
373 |
goto T169; |
goto T169; |
374 |
T169:; |
T169:; |
375 |
(void)(structure_set((V48),VV[3],4,V72)); |
V71= Ct; |
376 |
|
STSET(object,(V46),16, V69); |
377 |
|
(void)(V69); |
378 |
goto T127; |
goto T127; |
379 |
goto T160; |
goto T160; |
380 |
T160:; |
T160:; |
381 |
{object V75; |
{object V72; |
382 |
V75= list(2,(V48),list(3,VV[3],(V58),cadr(caddr((V47))))); |
V72= list(2,(V46),list(3,VV[3],(V60),CMPcadr(CMPcaddr((V45))))); |
383 |
V42= make_cons((V75),(V42)); |
V40= make_cons((V72),(V40)); |
384 |
goto T127;}} |
goto T127;}} |
385 |
goto T138; |
goto T138; |
386 |
T138:; |
T138:; |
387 |
{object V76; |
{object V73; |
388 |
V78= structure_ref((V48),VV[3],1); |
if(!((STREF(object,(V46),4))==(VV[15]))){ |
|
if(!((/* INLINE-ARGS */V78)==(VV[15]))){ |
|
389 |
goto T178;} |
goto T178;} |
390 |
V77= list(3,VV[3],(V48),Cnil); |
V74= list(3,VV[3],(V46),Cnil); |
391 |
goto T176; |
goto T176; |
392 |
goto T178; |
goto T178; |
393 |
T178:; |
T178:; |
394 |
V79= structure_ref((V48),VV[3],1); |
if(!((STREF(object,(V46),4))==(VV[11]))){ |
|
if(!((/* INLINE-ARGS */V79)==(VV[11]))){ |
|
395 |
goto T181;} |
goto T181;} |
396 |
V77= list(2,VV[11],structure_ref((V48),VV[3],4)); |
V74= list(2,VV[11],STREF(object,(V46),16)); |
397 |
goto T176; |
goto T176; |
398 |
goto T181; |
goto T181; |
399 |
T181:; |
T181:; |
400 |
{object V80; |
{object V75; |
401 |
V80= make_cons((V48),Cnil); |
V75= make_cons((V46),Cnil); |
402 |
V42= make_cons((V80),(V42));} |
V40= make_cons((V75),(V40));} |
403 |
V77= list(2,VV[16],structure_ref((V48),VV[3],2)); |
V74= list(2,VV[16],STREF(object,(V46),8)); |
404 |
goto T176; |
goto T176; |
405 |
T176:; |
T176:; |
406 |
V76= list(3,VV[12],V77,(V47)); |
V73= list(3,VV[12],V74,(V45)); |
407 |
V43= make_cons((V76),(V43));}}} |
V41= make_cons((V73),(V41));}}} |
408 |
goto T127; |
goto T127; |
409 |
T127:; |
T127:; |
410 |
V81= structure_ref((V48),VV[3],1); |
if(!((STREF(object,(V46),4))==(VV[19]))){ |
|
if(!((/* INLINE-ARGS */V81)==(VV[19]))){ |
|
411 |
goto T111;} |
goto T111;} |
412 |
{object V82; |
{object V76; |
413 |
V82= structure_ref((V48),VV[3],0); |
V76= STREF(object,(V46),0); |
414 |
V46= make_cons((V82),(V46));}} |
V44= make_cons((V76),(V44));}} |
415 |
goto T111; |
goto T111; |
416 |
T111:; |
T111:; |
417 |
V44= cdr((V44)); |
V42= CMPcdr((V42)); |
418 |
V45= cdr((V45)); |
V43= CMPcdr((V43)); |
419 |
goto T106;} |
goto T106;} |
420 |
goto T104; |
goto T104; |
421 |
T104:; |
T104:; |
422 |
V41= (*(LnkLI65))((V38)); |
V39= (*(LnkLI65))((V36)); |
423 |
{object V83; |
{object V77; |
424 |
object V84; |
object V78; |
425 |
V83= reverse((V43)); |
V77= reverse((V41)); |
426 |
V84= car((V83)); |
V78= CMPcar((V77)); |
427 |
goto T201; |
goto T201; |
428 |
T201:; |
T201:; |
429 |
if(!(endp_prop((V83)))){ |
if(!(((V77))==Cnil)){ |
430 |
goto T202;} |
goto T202;} |
431 |
goto T197; |
goto T197; |
432 |
goto T202; |
goto T202; |
433 |
T202:; |
T202:; |
434 |
base[6]= cadr((V84)); |
base[6]= CMPcadr((V78)); |
435 |
bds_bind(VV[20],base[6]); |
bds_bind(VV[20],base[6]); |
436 |
V85= (*(LnkLI12))(caddr((V84))); |
V79= (*(LnkLI12))(CMPcaddr((V78))); |
437 |
bds_unwind1; |
bds_unwind1; |
438 |
V83= cdr((V83)); |
V77= CMPcdr((V77)); |
439 |
V84= car((V83)); |
V78= CMPcar((V77)); |
440 |
goto T201;} |
goto T201;} |
441 |
goto T197; |
goto T197; |
442 |
T197:; |
T197:; |
443 |
{object V86; |
{object V80; |
444 |
object V87; |
object V81; |
445 |
V86= reverse((V42)); |
V80= reverse((V40)); |
446 |
V87= car((V86)); |
V81= CMPcar((V80)); |
447 |
goto T217; |
goto T217; |
448 |
T217:; |
T217:; |
449 |
if(!(endp_prop((V86)))){ |
if(!(((V80))==Cnil)){ |
450 |
goto T218;} |
goto T218;} |
451 |
goto T213; |
goto T213; |
452 |
goto T218; |
goto T218; |
453 |
T218:; |
T218:; |
454 |
if((cdr((V87)))==Cnil){ |
if((CMPcdr((V81)))==Cnil){ |
455 |
goto T224;} |
goto T224;} |
456 |
(void)((*(LnkLI66))(car((V87)),cadr((V87)))); |
(void)((*(LnkLI66))(CMPcar((V81)),CMPcadr((V81)))); |
457 |
goto T222; |
goto T222; |
458 |
goto T224; |
goto T224; |
459 |
T224:; |
T224:; |
460 |
(void)((*(LnkLI67))(car((V87)))); |
(void)((*(LnkLI67))(CMPcar((V81)))); |
461 |
goto T222; |
goto T222; |
462 |
T222:; |
T222:; |
463 |
V86= cdr((V86)); |
V80= CMPcdr((V80)); |
464 |
V87= car((V86)); |
V81= CMPcar((V80)); |
465 |
goto T217;} |
goto T217;} |
466 |
goto T213; |
goto T213; |
467 |
T213:; |
T213:; |
468 |
base[4]= (V40); |
base[4]= (V38); |
469 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
470 |
(void) (*Lnk68)(); |
(void) (*Lnk68)(); |
471 |
vs_top=sup; |
vs_top=sup; |
472 |
if(((V41))==Cnil){ |
if(((V39))==Cnil){ |
473 |
goto T234;} |
goto T234;} |
474 |
princ_char(125,VV[21]); |
princ_char(125,VV[21]); |
475 |
{object V88 = Cnil; |
{object V82 = Cnil; |
476 |
bds_unwind1; |
bds_unwind1; |
477 |
bds_unwind1; |
bds_unwind1; |
478 |
bds_unwind1; |
bds_unwind1; |
479 |
bds_unwind1; |
bds_unwind1; |
480 |
VMR2(V88)} |
VMR2(V82)} |
481 |
goto T234; |
goto T234; |
482 |
T234:; |
T234:; |
483 |
{object V89 = Cnil; |
{object V83 = Cnil; |
484 |
bds_unwind1; |
bds_unwind1; |
485 |
bds_unwind1; |
bds_unwind1; |
486 |
bds_unwind1; |
bds_unwind1; |
487 |
bds_unwind1; |
bds_unwind1; |
488 |
VMR2(V89)}} |
VMR2(V83)}} |
489 |
base[0]=base[0]; |
base[0]=base[0]; |
490 |
return Cnil; |
return Cnil; |
491 |
} |
} |
492 |
/* local entry for function C1LET* */ |
/* local entry for function C1LET* */ |
493 |
|
|
494 |
static object LI3(V91) |
static object LI3(V85) |
495 |
|
|
496 |
object V91; |
object V85; |
497 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
498 |
bds_check; |
bds_check; |
499 |
goto TTL; |
goto TTL; |
500 |
TTL:; |
TTL:; |
501 |
{register object V92; |
{register object V86; |
502 |
register object V93; |
register object V87; |
503 |
register object V94; |
register object V88; |
504 |
|
object V89; |
505 |
|
object V90; |
506 |
|
object V91; |
507 |
|
object V92; |
508 |
|
object V93; |
509 |
|
object V94; |
510 |
object V95; |
object V95; |
511 |
object V96; |
V86= Cnil; |
512 |
object V97; |
V87= Cnil; |
513 |
object V98; |
V88= Cnil; |
514 |
object V99; |
V89= (VV[0]->s.s_dbind); |
515 |
object V100; |
V90= Cnil; |
516 |
object V101; |
V91= Cnil; |
517 |
V92= Cnil; |
V92= Cnil; |
518 |
V93= Cnil; |
V93= Cnil; |
519 |
V94= Cnil; |
V94= Cnil; |
520 |
V95= symbol_value(VV[0]); |
V95= (VFUN_NARGS=0,(*(LnkLI39))()); |
521 |
V96= Cnil; |
bds_bind(VV[1],(VV[1]->s.s_dbind)); |
522 |
V97= Cnil; |
if(!(((V85))==Cnil)){ |
|
V98= Cnil; |
|
|
V99= Cnil; |
|
|
V100= Cnil; |
|
|
V101= (VFUN_NARGS=0,(*(LnkLI39))()); |
|
|
bds_bind(VV[1],symbol_value(VV[1])); |
|
|
if(!(endp_prop((V91)))){ |
|
523 |
goto T247;} |
goto T247;} |
524 |
(void)((*(LnkLI40))(VV[22],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI40))(VV[22],small_fixnum(1),small_fixnum(0))); |
525 |
goto T247; |
goto T247; |
526 |
T247:; |
T247:; |
527 |
base[2]= cdr((V91)); |
base[2]= CMPcdr((V85)); |
528 |
base[3]= Cnil; |
base[3]= Cnil; |
529 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
530 |
(void) (*Lnk41)(); |
(void) (*Lnk41)(); |
531 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
532 |
V99= vs_base[0]; |
V93= vs_base[0]; |
533 |
vs_base++; |
vs_base++; |
534 |
}else{ |
}else{ |
535 |
V99= Cnil;} |
V93= Cnil;} |
536 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
537 |
V96= vs_base[0]; |
V90= vs_base[0]; |
538 |
vs_base++; |
vs_base++; |
539 |
}else{ |
}else{ |
540 |
V96= Cnil;} |
V90= Cnil;} |
541 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
542 |
V98= vs_base[0]; |
V92= vs_base[0]; |
543 |
vs_base++; |
vs_base++; |
544 |
}else{ |
}else{ |
545 |
V98= Cnil;} |
V92= Cnil;} |
546 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
547 |
V97= vs_base[0]; |
V91= vs_base[0]; |
548 |
vs_base++; |
vs_base++; |
549 |
}else{ |
}else{ |
550 |
V97= Cnil;} |
V91= Cnil;} |
551 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
552 |
V100= vs_base[0]; |
V94= vs_base[0]; |
553 |
}else{ |
}else{ |
554 |
V100= Cnil;} |
V94= Cnil;} |
555 |
vs_top=sup; |
vs_top=sup; |
556 |
(void)((*(LnkLI42))((V96))); |
(void)((*(LnkLI42))((V90))); |
557 |
{register object V102; |
{register object V96; |
558 |
register object V103; |
register object V97; |
559 |
V102= car((V91)); |
V96= CMPcar((V85)); |
560 |
V103= car((V102)); |
V97= CMPcar((V96)); |
561 |
goto T259; |
goto T259; |
562 |
T259:; |
T259:; |
563 |
if(!(endp_prop((V102)))){ |
if(!(((V96))==Cnil)){ |
564 |
goto T260;} |
goto T260;} |
565 |
goto T255; |
goto T255; |
566 |
goto T260; |
goto T260; |
567 |
T260:; |
T260:; |
568 |
if(!(type_of((V103))==t_symbol)){ |
if(!(type_of((V97))==t_symbol)){ |
569 |
goto T266;} |
goto T266;} |
570 |
{object V104; |
{object V98; |
571 |
V104= (*(LnkLI43))((V103),(V96),(V97),(V98)); |
V98= (*(LnkLI43))((V97),(V90),(V91),(V92)); |
572 |
V94= make_cons(V103,(V94)); |
V88= make_cons(V97,(V88)); |
573 |
{object V106; |
{object V100; |
574 |
V107= structure_ref((V104),VV[3],5); |
V100= (*(LnkLI44))(STREF(object,(V98),20)); |
575 |
V106= (*(LnkLI44))(/* INLINE-ARGS */V107); |
V86= make_cons((V100),(V86));} |
576 |
V92= make_cons((V106),(V92));} |
V87= make_cons(V98,(V87)); |
577 |
V93= make_cons(V104,(V93)); |
(VV[1]->s.s_dbind)= make_cons(V98,(VV[1]->s.s_dbind)); |
|
(VV[1]->s.s_dbind)= make_cons(V104,(VV[1]->s.s_dbind)); |
|
578 |
goto T264;} |
goto T264;} |
579 |
goto T266; |
goto T266; |
580 |
T266:; |
T266:; |
581 |
if(!(type_of((V103))==t_cons)){ |
if(!(type_of((V97))==t_cons)){ |
582 |
goto T277;} |
goto T277;} |
583 |
if(endp_prop(cdr((V103)))){ |
if((CMPcdr((V97)))==Cnil){ |
584 |
goto T278;} |
goto T278;} |
585 |
if(endp_prop(cddr((V103)))){ |
if((CMPcddr((V97)))==Cnil){ |
586 |
goto T278;} |
goto T278;} |
587 |
goto T277; |
goto T277; |
588 |
T277:; |
T277:; |
589 |
(void)((VFUN_NARGS=2,(*(LnkLI45))(VV[23],(V103)))); |
(void)((VFUN_NARGS=2,(*(LnkLI45))(VV[23],(V97)))); |
590 |
goto T264; |
goto T264; |
591 |
goto T278; |
goto T278; |
592 |
T278:; |
T278:; |
593 |
{register object V110; |
{register object V103; |
594 |
V110= (*(LnkLI43))(car((V103)),(V96),(V97),(V98)); |
V103= (*(LnkLI43))(CMPcar((V97)),(V90),(V91),(V92)); |
595 |
{object V111; |
{object V104; |
596 |
V111= car((V103)); |
V104= CMPcar((V97)); |
597 |
V94= make_cons((V111),(V94));} |
V88= make_cons((V104),(V88));} |
598 |
{object V112; |
{object V105; |
599 |
if(!(endp_prop(cdr((V103))))){ |
if(!((CMPcdr((V97)))==Cnil)){ |
600 |
goto T291;} |
goto T291;} |
601 |
V113= structure_ref((V110),VV[3],5); |
V105= (*(LnkLI44))(STREF(object,(V103),20)); |
|
V112= (*(LnkLI44))(/* INLINE-ARGS */V113); |
|
602 |
goto T289; |
goto T289; |
603 |
goto T291; |
goto T291; |
604 |
T291:; |
T291:; |
605 |
V114= structure_ref((V110),VV[3],5); |
V106= (*(LnkLI47))(CMPcadr((V97)),(V95)); |
606 |
V115= (*(LnkLI47))(cadr((V103)),(V101)); |
V105= (*(LnkLI46))(STREF(object,(V103),20),/* INLINE-ARGS */V106,CMPcadr((V97))); |
|
V112= (*(LnkLI46))(/* INLINE-ARGS */V114,/* INLINE-ARGS */V115,cadr((V103))); |
|
607 |
goto T289; |
goto T289; |
608 |
T289:; |
T289:; |
609 |
V92= make_cons((V112),(V92));} |
V86= make_cons((V105),(V86));} |
610 |
V93= make_cons(V110,(V93)); |
V87= make_cons(V103,(V87)); |
611 |
(VV[1]->s.s_dbind)= make_cons(V110,(VV[1]->s.s_dbind));} |
(VV[1]->s.s_dbind)= make_cons(V103,(VV[1]->s.s_dbind));} |
612 |
goto T264; |
goto T264; |
613 |
T264:; |
T264:; |
614 |
V102= cdr((V102)); |
V96= CMPcdr((V96)); |
615 |
V103= car((V102)); |
V97= CMPcar((V96)); |
616 |
goto T259;} |
goto T259;} |
617 |
goto T255; |
goto T255; |
618 |
T255:; |
T255:; |
619 |
(void)((*(LnkLI48))((V94),(V98),(V97))); |
(void)((*(LnkLI48))((V88),(V92),(V91))); |
620 |
V99= (*(LnkLI49))((V100),(V99)); |
V93= (*(LnkLI49))((V94),(V93)); |
621 |
(void)((*(LnkLI50))((V101),cadr((V99)))); |
(void)((*(LnkLI50))((V95),CMPcadr((V93)))); |
622 |
V118= structure_ref(cadr((V99)),VV[5],2); |
V109= Ct; |
623 |
(void)(structure_set((V101),VV[5],2,/* INLINE-ARGS */V118)); |
STSET(object,(V95),8, STREF(object,CMPcadr((V93)),8)); |
624 |
{register object V119; |
(void)(STREF(object,CMPcadr((V93)),8)); |
625 |
object V120; |
{register object V110; |
626 |
V119= (V93); |
object V111; |
627 |
V120= car((V119)); |
V110= (V87); |
628 |
|
V111= CMPcar((V110)); |
629 |
goto T311; |
goto T311; |
630 |
T311:; |
T311:; |
631 |
if(!(endp_prop((V119)))){ |
if(!(((V110))==Cnil)){ |
632 |
goto T312;} |
goto T312;} |
633 |
goto T307; |
goto T307; |
634 |
goto T312; |
goto T312; |
635 |
T312:; |
T312:; |
636 |
(void)((*(LnkLI51))((V120))); |
(void)((*(LnkLI51))((V111))); |
637 |
V119= cdr((V119)); |
V110= CMPcdr((V110)); |
638 |
V120= car((V119)); |
V111= CMPcar((V110)); |
639 |
goto T311;} |
goto T311;} |
640 |
goto T307; |
goto T307; |
641 |
T307:; |
T307:; |
642 |
if(!(eql((V95),symbol_value(VV[0])))){ |
if(!(eql((V89),(VV[0]->s.s_dbind)))){ |
643 |
goto T323;} |
goto T323;} |
644 |
goto T322; |
goto T322; |
645 |
goto T323; |
goto T323; |
646 |
T323:; |
T323:; |
647 |
(void)(structure_set((V101),VV[5],4,Ct)); |
V112= Ct; |
648 |
|
STSET(object,(V95),16, Ct); |
649 |
|
(void)(Ct); |
650 |
goto T322; |
goto T322; |
651 |
T322:; |
T322:; |
652 |
V121= reverse((V93)); |
V113= reverse((V87)); |
653 |
{object V122 = list(5,VV[22],(V101),/* INLINE-ARGS */V121,reverse((V92)),(V99)); |
{object V114 = list(5,VV[22],(V95),/* INLINE-ARGS */V113,reverse((V86)),(V93)); |
654 |
bds_unwind1; |
bds_unwind1; |
655 |
VMR3(V122)}} |
VMR3(V114)}} |
656 |
base[0]=base[0]; |
base[0]=base[0]; |
657 |
return Cnil; |
return Cnil; |
658 |
} |
} |
659 |
/* local entry for function C2LET* */ |
/* local entry for function C2LET* */ |
660 |
|
|
661 |
static object LI4(V126,V127,V128) |
static object LI4(V118,V119,V120) |
662 |
|
|
663 |
object V126;object V127;object V128; |
object V118;object V119;object V120; |
664 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
665 |
bds_check; |
bds_check; |
666 |
goto TTL; |
goto TTL; |
667 |
TTL:; |
TTL:; |
668 |
{object V129; |
{object V121; |
669 |
V129= Cnil; |
V121= Cnil; |
670 |
bds_bind(VV[6],symbol_value(VV[6])); |
bds_bind(VV[6],(VV[6]->s.s_dbind)); |
671 |
bds_bind(VV[7],symbol_value(VV[7])); |
bds_bind(VV[7],(VV[7]->s.s_dbind)); |
672 |
bds_bind(VV[8],symbol_value(VV[8])); |
bds_bind(VV[8],(VV[8]->s.s_dbind)); |
673 |
bds_bind(VV[9],symbol_value(VV[9])); |
bds_bind(VV[9],(VV[9]->s.s_dbind)); |
674 |
{object V130; |
{object V122; |
675 |
register object V131; |
register object V123; |
676 |
V130= (V126); |
V122= (V118); |
677 |
V131= (V127); |
V123= (V119); |
678 |
goto T328; |
goto T328; |
679 |
T328:; |
T328:; |
680 |
if(!(endp_prop((V130)))){ |
if(!(((V122))==Cnil)){ |
681 |
goto T329;} |
goto T329;} |
682 |
goto T326; |
goto T326; |
683 |
goto T329; |
goto T329; |
684 |
T329:; |
T329:; |
685 |
{object V132; |
{object V124; |
686 |
register object V133; |
register object V125; |
687 |
object V134; |
object V126; |
688 |
V132= car((V131)); |
V124= CMPcar((V123)); |
689 |
V133= car((V130)); |
V125= CMPcar((V122)); |
690 |
V134= (*(LnkLI52))((V133)); |
V126= (*(LnkLI52))((V125)); |
691 |
if(((V134))==Cnil){ |
if(((V126))==Cnil){ |
692 |
goto T337;} |
goto T337;} |
693 |
(void)(structure_set((V133),VV[3],1,(V134))); |
V127= Ct; |
694 |
setq(VV[10],number_plus(symbol_value(VV[10]),small_fixnum(1))); |
STSET(object,(V125),4, (V126)); |
695 |
(void)(structure_set((V133),VV[3],4,symbol_value(VV[10]))); |
(void)((V126)); |
696 |
|
(VV[10]->s.s_dbind)= number_plus((VV[10]->s.s_dbind),small_fixnum(1)); |
697 |
|
V128= Ct; |
698 |
|
STSET(object,(V125),16, (VV[10]->s.s_dbind)); |
699 |
|
(void)((VV[10]->s.s_dbind)); |
700 |
goto T337; |
goto T337; |
701 |
T337:; |
T337:; |
702 |
V136= structure_ref((V133),VV[3],1); |
{register object x= STREF(object,(V125),4),V129= VV[24]; |
703 |
{register object x= /* INLINE-ARGS */V136,V135= VV[24]; |
while(V129!=Cnil) |
704 |
while(!endp(V135)) |
if(eql(x,V129->c.c_car)){ |
|
if(eql(x,V135->c.c_car)){ |
|
705 |
goto T344; |
goto T344; |
706 |
}else V135=V135->c.c_cdr; |
}else V129=V129->c.c_cdr; |
707 |
goto T343;} |
goto T343;} |
708 |
goto T344; |
goto T344; |
709 |
T344:; |
T344:; |
710 |
goto T333; |
goto T333; |
711 |
goto T343; |
goto T343; |
712 |
T343:; |
T343:; |
713 |
{object V137= car((V132)); |
{object V130= CMPcar((V124)); |
714 |
if((V137!= VV[61]))goto T345; |
if((V130!= VV[61]))goto T345; |
715 |
if(((*(LnkLI69))((V133),(V128),cdr((V131))))==Cnil){ |
if(((*(LnkLI69))((V125),(V120),CMPcdr((V123))))==Cnil){ |
716 |
goto T347;} |
goto T347;} |
717 |
(void)(structure_set((V133),VV[3],1,VV[13])); |
V131= Ct; |
718 |
(void)(structure_set((V133),VV[3],4,caddr((V132)))); |
STSET(object,(V125),4, VV[13]); |
719 |
|
(void)(VV[13]); |
720 |
|
V132= CMPcaddr((V124)); |
721 |
|
V133= Ct; |
722 |
|
STSET(object,(V125),16, /* INLINE-ARGS */V132); |
723 |
|
(void)(/* INLINE-ARGS */V132); |
724 |
goto T333; |
goto T333; |
725 |
goto T347; |
goto T347; |
726 |
T347:; |
T347:; |
727 |
{object V138; |
{object V134; |
728 |
V139= structure_ref((V133),VV[3],1); |
V134= ((STREF(object,(V125),4))==(VV[15])?Ct:Cnil); |
729 |
V138= ((/* INLINE-ARGS */V139)==(VV[15])?Ct:Cnil); |
if(((V134))==Cnil){ |
|
if(((V138))==Cnil){ |
|
730 |
goto T352;} |
goto T352;} |
731 |
goto T333; |
goto T333; |
732 |
goto T352; |
goto T352; |
733 |
T352:; |
T352:; |
734 |
V140= structure_ref((V133),VV[3],1); |
if(!((STREF(object,(V125),4))==(VV[11]))){ |
735 |
if(!((/* INLINE-ARGS */V140)==(VV[11]))){ |
goto T355;}{object V135; |
736 |
goto T355;}{object V141; |
base[7]= STREF(object,(V125),16); |
|
base[7]= structure_ref((V133),VV[3],4); |
|
737 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
738 |
(void) (*Lnk53)(); |
(void) (*Lnk53)(); |
739 |
vs_top=sup; |
vs_top=sup; |
740 |
V141= vs_base[0]; |
V135= vs_base[0]; |
741 |
if(V141==Cnil)goto T357; |
if(V135==Cnil)goto T357; |
742 |
goto T333; |
goto T333; |
743 |
goto T357; |
goto T357; |
744 |
T357:;} |
T357:;} |
746 |
goto T333; |
goto T333; |
747 |
goto T355; |
goto T355; |
748 |
T355:; |
T355:; |
749 |
V142= (*(LnkLI55))(); |
V136= (*(LnkLI55))(); |
750 |
(void)(structure_set((V133),VV[3],2,/* INLINE-ARGS */V142)); |
V137= Ct; |
751 |
|
STSET(object,(V125),8, /* INLINE-ARGS */V136); |
752 |
|
(void)(/* INLINE-ARGS */V136); |
753 |
goto T333;} |
goto T333;} |
754 |
goto T345; |
goto T345; |
755 |
T345:; |
T345:; |
756 |
if((V137!= VV[3]))goto T360; |
if((V130!= VV[3]))goto T360; |
757 |
{register object V143; |
{register object V138; |
758 |
V143= caaddr((V132)); |
V138= CMPcaaddr((V124)); |
759 |
if(((*(LnkLI69))((V133),(V128),cdr((V131))))==Cnil){ |
if(((*(LnkLI69))((V125),(V120),CMPcdr((V123))))==Cnil){ |
760 |
goto T363;} |
goto T363;} |
761 |
V145= structure_ref((V143),VV[3],1); |
{register object x= STREF(object,(V138),4),V139= VV[25]; |
762 |
{register object x= /* INLINE-ARGS */V145,V144= VV[25]; |
while(V139!=Cnil) |
763 |
while(!endp(V144)) |
if(eql(x,V139->c.c_car)){ |
|
if(eql(x,V144->c.c_car)){ |
|
764 |
goto T367; |
goto T367; |
765 |
}else V144=V144->c.c_cdr; |
}else V139=V139->c.c_cdr; |
766 |
goto T363;} |
goto T363;} |
767 |
goto T367; |
goto T367; |
768 |
T367:; |
T367:; |
769 |
if((structure_ref((V143),VV[3],3))!=Cnil){ |
if((STREF(object,(V138),12))!=Cnil){ |
770 |
goto T363;} |
goto T363;} |
771 |
if(((*(LnkLI63))((V143),cdr((V131))))!=Cnil){ |
if(((*(LnkLI63))((V138),CMPcdr((V123))))!=Cnil){ |
772 |
goto T363;} |
goto T363;} |
773 |
V147= structure_ref(cadr((V128)),VV[5],0); |
{register object x= (V138),V140= STREF(object,CMPcadr((V120)),0); |
774 |
{register object x= (V143),V146= /* INLINE-ARGS */V147; |
while(V140!=Cnil) |
775 |
while(!endp(V146)) |
if(eql(x,V140->c.c_car)){ |
|
if(eql(x,V146->c.c_car)){ |
|
776 |
goto T363; |
goto T363; |
777 |
}else V146=V146->c.c_cdr;} |
}else V140=V140->c.c_cdr;} |
778 |
(void)(structure_set((V133),VV[3],1,VV[13])); |
V141= Ct; |
779 |
V150= structure_ref((V143),VV[3],1); |
STSET(object,(V125),4, VV[13]); |
780 |
{object V149= /* INLINE-ARGS */V150; |
(void)(VV[13]); |
781 |
if((V149!= VV[28]))goto T375; |
{object V143= STREF(object,(V138),4); |
782 |
V148= list(2,VV[16],structure_ref((V143),VV[3],2)); |
if((V143!= VV[28]))goto T375; |
783 |
|
V142= list(2,VV[16],STREF(object,(V138),8)); |
784 |
goto T374; |
goto T374; |
785 |
goto T375; |
goto T375; |
786 |
T375:; |
T375:; |
787 |
if((V149!= VV[13]))goto T376; |
if((V143!= VV[13]))goto T376; |
788 |
V148= structure_ref((V143),VV[3],4); |
V142= STREF(object,(V138),16); |
789 |
goto T374; |
goto T374; |
790 |
goto T376; |
goto T376; |
791 |
T376:; |
T376:; |
792 |
if((V149!= VV[15]))goto T377; |
if((V143!= VV[15]))goto T377; |
793 |
V148= list(2,VV[18],structure_ref((V143),VV[3],4)); |
V142= list(2,VV[18],STREF(object,(V138),16)); |
794 |
goto T374; |
goto T374; |
795 |
goto T377; |
goto T377; |
796 |
T377:; |
T377:; |
797 |
V148= (*(LnkLI64))();} |
V142= (*(LnkLI64))();} |
798 |
goto T374; |
goto T374; |
799 |
T374:; |
T374:; |
800 |
(void)(structure_set((V133),VV[3],4,V148)); |
V144= Ct; |
801 |
|
STSET(object,(V125),16, V142); |
802 |
|
(void)(V142); |
803 |
goto T333; |
goto T333; |
804 |
goto T363; |
goto T363; |
805 |
T363:; |
T363:; |
806 |
{object V151; |
{object V145; |
807 |
V152= structure_ref((V133),VV[3],1); |
V145= ((STREF(object,(V125),4))==(VV[15])?Ct:Cnil); |
808 |
V151= ((/* INLINE-ARGS */V152)==(VV[15])?Ct:Cnil); |
if(((V145))==Cnil){ |
|
if(((V151))==Cnil){ |
|
809 |
goto T380;} |
goto T380;} |
810 |
goto T333; |
goto T333; |
811 |
goto T380; |
goto T380; |
812 |
T380:; |
T380:; |
813 |
V153= (*(LnkLI55))(); |
V146= (*(LnkLI55))(); |
814 |
(void)(structure_set((V133),VV[3],2,/* INLINE-ARGS */V153)); |
V147= Ct; |
815 |
|
STSET(object,(V125),8, /* INLINE-ARGS */V146); |
816 |
|
(void)(/* INLINE-ARGS */V146); |
817 |
goto T333;}} |
goto T333;}} |
818 |
goto T360; |
goto T360; |
819 |
T360:; |
T360:; |
820 |
if((V137!= VV[70]) |
if((V130!= VV[70]) |
821 |
&& !eql(V137,VV[26]) |
&& !eql(V130,VV[26]) |
822 |
&& !eql(V137,VV[27]))goto T382; |
&& !eql(V130,VV[27]))goto T382; |
823 |
goto T333; |
goto T333; |
824 |
goto T382; |
goto T382; |
825 |
T382:; |
T382:; |
826 |
V154= (*(LnkLI55))(); |
V148= (*(LnkLI55))(); |
827 |
(void)(structure_set((V133),VV[3],2,/* INLINE-ARGS */V154));}} |
V149= Ct; |
828 |
|
STSET(object,(V125),8, /* INLINE-ARGS */V148); |
829 |
|
(void)(/* INLINE-ARGS */V148);}} |
830 |
goto T333; |
goto T333; |
831 |
T333:; |
T333:; |
832 |
V130= cdr((V130)); |
V122= CMPcdr((V122)); |
833 |
V131= cdr((V131)); |
V123= CMPcdr((V123)); |
834 |
goto T328;} |
goto T328;} |
835 |
goto T326; |
goto T326; |
836 |
T326:; |
T326:; |
837 |
V129= (*(LnkLI65))((V126)); |
V121= (*(LnkLI65))((V118)); |
838 |
{object V155; |
{object V150; |
839 |
object V156; |
object V151; |
840 |
register object V157; |
register object V152; |
841 |
register object V158; |
register object V153; |
842 |
V155= (V126); |
V150= (V118); |
843 |
V156= (V127); |
V151= (V119); |
844 |
V157= Cnil; |
V152= Cnil; |
845 |
V158= Cnil; |
V153= Cnil; |
846 |
goto T391; |
goto T391; |
847 |
T391:; |
T391:; |
848 |
if(((V155))!=Cnil){ |
if(((V150))!=Cnil){ |
849 |
goto T392;} |
goto T392;} |
850 |
goto T389; |
goto T389; |
851 |
goto T392; |
goto T392; |
852 |
T392:; |
T392:; |
853 |
V157= car((V155)); |
V152= CMPcar((V150)); |
854 |
V158= car((V156)); |
V153= CMPcar((V151)); |
855 |
V160= structure_ref((V157),VV[3],1); |
{object V154= STREF(object,(V152),4); |
856 |
{object V159= /* INLINE-ARGS */V160; |
if((V154== VV[56]) |
857 |
if((V159== VV[56]) |
|| (V154== VV[57]) |
858 |
|| (V159== VV[57]) |
|| (V154== VV[58]) |
859 |
|| (V159== VV[58]) |
|| (V154== VV[59]) |
860 |
|| (V159== VV[59]) |
|| (V154== VV[15]))goto T402; |
861 |
|| (V159== VV[15]))goto T402; |
if((V154!= VV[60]))goto T401; |
|
if((V159!= VV[60]))goto T401; |
|
862 |
goto T402; |
goto T402; |
863 |
T402:; |
T402:; |
864 |
base[4]= list(3,VV[3],(V157),Cnil); |
base[4]= list(3,VV[3],(V152),Cnil); |
865 |
bds_bind(VV[20],base[4]); |
bds_bind(VV[20],base[4]); |
866 |
V161= (*(LnkLI12))((V158)); |
V155= (*(LnkLI12))((V153)); |
867 |
bds_unwind1; |
bds_unwind1; |
868 |
goto T400; |
goto T400; |
869 |
goto T401; |
goto T401; |
870 |
T401:; |
T401:; |
871 |
if((V159!= VV[13]))goto T404; |
if((V154!= VV[13]))goto T404; |
872 |
goto T400; |
goto T400; |
873 |
goto T404; |
goto T404; |
874 |
T404:; |
T404:; |
875 |
{object V162= car((V158)); |
{object V156= CMPcar((V153)); |
876 |
if((V162!= VV[61]))goto T405; |
if((V156!= VV[61]))goto T405; |
877 |
(void)((*(LnkLI66))((V157),caddr((V158)))); |
(void)((*(LnkLI66))((V152),CMPcaddr((V153)))); |
878 |
goto T400; |
goto T400; |
879 |
goto T405; |
goto T405; |
880 |
T405:; |
T405:; |
881 |
if((V162!= VV[3]))goto T406; |
if((V156!= VV[3]))goto T406; |
882 |
V163= list(3,VV[3],caaddr((V158)),cadr(caddr((V158)))); |
V157= list(3,VV[3],CMPcaaddr((V153)),CMPcadr(CMPcaddr((V153)))); |
883 |
(void)((*(LnkLI66))((V157),/* INLINE-ARGS */V163)); |
(void)((*(LnkLI66))((V152),/* INLINE-ARGS */V157)); |
884 |
goto T400; |
goto T400; |
885 |
goto T406; |
goto T406; |
886 |
T406:; |
T406:; |
887 |
(void)((*(LnkLI71))((V157),(V158)));}} |
(void)((*(LnkLI71))((V152),(V153)));}} |
888 |
goto T400; |
goto T400; |
889 |
T400:; |
T400:; |
890 |
V155= cdr((V155)); |
V150= CMPcdr((V150)); |
891 |
V156= cdr((V156)); |
V151= CMPcdr((V151)); |
892 |
goto T391;} |
goto T391;} |
893 |
goto T389; |
goto T389; |
894 |
T389:; |
T389:; |
895 |
base[4]= (V128); |
base[4]= (V120); |
896 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
897 |
(void) (*Lnk68)(); |
(void) (*Lnk68)(); |
898 |
vs_top=sup; |
vs_top=sup; |
899 |
if(((V129))==Cnil){ |
if(((V121))==Cnil){ |
900 |
goto T414;} |
goto T414;} |
901 |
princ_char(125,VV[21]); |
princ_char(125,VV[21]); |
902 |
{object V164 = Cnil; |
{object V158 = Cnil; |
903 |
bds_unwind1; |
bds_unwind1; |
904 |
bds_unwind1; |
bds_unwind1; |
905 |
bds_unwind1; |
bds_unwind1; |
906 |
bds_unwind1; |
bds_unwind1; |
907 |
VMR4(V164)} |
VMR4(V158)} |
908 |
goto T414; |
goto T414; |
909 |
T414:; |
T414:; |
910 |
{object V165 = Cnil; |
{object V159 = Cnil; |
911 |
bds_unwind1; |
bds_unwind1; |
912 |
bds_unwind1; |
bds_unwind1; |
913 |
bds_unwind1; |
bds_unwind1; |
914 |
bds_unwind1; |
bds_unwind1; |
915 |
VMR4(V165)}} |
VMR4(V159)}} |
916 |
base[0]=base[0]; |
base[0]=base[0]; |
917 |
return Cnil; |
return Cnil; |
918 |
} |
} |
919 |
/* local entry for function CAN-BE-REPLACED */ |
/* local entry for function CAN-BE-REPLACED */ |
920 |
|
|
921 |
static object LI5(V168,V169) |
static object LI5(V162,V163) |
922 |
|
|
923 |
register object V168;object V169; |
register object V162;object V163; |
924 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
925 |
goto TTL; |
goto TTL; |
926 |
TTL:; |
TTL:; |
927 |
V170= structure_ref((V168),VV[3],1); |
if(!((STREF(object,(V162),4))==(VV[28]))){ |
|
if(!((/* INLINE-ARGS */V170)==(VV[28]))){ |
|
928 |
goto T419;} |
goto T419;} |
929 |
goto T417; |
goto T417; |
930 |
goto T419; |
goto T419; |
931 |
T419:; |
T419:; |
932 |
V171= structure_ref((V168),VV[3],1); |
if((STREF(object,(V162),4))==(VV[15])){ |
|
if((/* INLINE-ARGS */V171)==(VV[15])){ |
|
933 |
goto T421;} |
goto T421;} |
934 |
goto T418; |
goto T418; |
935 |
goto T421; |
goto T421; |
936 |
T421:; |
T421:; |
937 |
{long V172= fix(structure_ref((V168),VV[3],6)); |
if((fix(STREF(object,(V162),24)))<(fix((VV[29]->s.s_dbind)))){ |
938 |
if((/* INLINE-ARGS */V172)<(fix(symbol_value(VV[29])))){ |
goto T417;} |
|
goto T417;}} |
|
939 |
goto T418; |
goto T418; |
940 |
T418:; |
T418:; |
941 |
{object V173 = Cnil; |
{object V164 = Cnil; |
942 |
VMR5(V173)} |
VMR5(V164)} |
943 |
goto T417; |
goto T417; |
944 |
T417:; |
T417:; |
945 |
V174= structure_ref((V168),VV[3],3); |
if((STREF(object,(V162),12))==Cnil){ |
|
if((/* INLINE-ARGS */V174)==Cnil){ |
|
946 |
goto T423;} |
goto T423;} |
947 |
{object V175 = Cnil; |
{object V165 = Cnil; |
948 |
VMR5(V175)} |
VMR5(V165)} |
949 |
goto T423; |
goto T423; |
950 |
T423:; |
T423:; |
951 |
V176= structure_ref((V168),VV[3],4); |
if((((STREF(object,(V162),16))==(VV[30])?Ct:Cnil))==Cnil){ |
|
if((((/* INLINE-ARGS */V176)==(VV[30])?Ct:Cnil))==Cnil){ |
|
952 |
goto T425;} |
goto T425;} |
953 |
{object V177 = Cnil; |
{object V166 = Cnil; |
954 |
VMR5(V177)} |
VMR5(V166)} |
955 |
goto T425; |
goto T425; |
956 |
T425:; |
T425:; |
957 |
V180= structure_ref(cadr((V169)),VV[5],0); |
{register object x= (V162),V168= STREF(object,CMPcadr((V163)),0); |
958 |
{register object x= (V168),V179= /* INLINE-ARGS */V180; |
while(V168!=Cnil) |
959 |
while(!endp(V179)) |
if(eql(x,V168->c.c_car)){ |
960 |
if(eql(x,V179->c.c_car)){ |
V167= V168; |
|
V178= V179; |
|
961 |
goto T427; |
goto T427; |
962 |
}else V179=V179->c.c_cdr; |
}else V168=V168->c.c_cdr; |
963 |
V178= Cnil;} |
V167= Cnil;} |
964 |
goto T427; |
goto T427; |
965 |
T427:; |
T427:; |
966 |
{object V181 = ((V178)==Cnil?Ct:Cnil); |
{object V169 = ((V167)==Cnil?Ct:Cnil); |
967 |
VMR5(V181)} |
VMR5(V169)} |
968 |
return Cnil; |
return Cnil; |
969 |
} |
} |
970 |
/* local entry for function CAN-BE-REPLACED* */ |
/* local entry for function CAN-BE-REPLACED* */ |
971 |
|
|
972 |
static object LI6(V185,V186,V187) |
static object LI6(V173,V174,V175) |
973 |
|
|
974 |
register object V185;object V186;object V187; |
register object V173;object V174;object V175; |
975 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
976 |
goto TTL; |
goto TTL; |
977 |
TTL:; |
TTL:; |
978 |
if(((*(LnkLI62))((V185),(V186)))!=Cnil){ |
if(((*(LnkLI62))((V173),(V174)))!=Cnil){ |
979 |
goto T428;} |
goto T428;} |
980 |
{object V188 = Cnil; |
{object V176 = Cnil; |
981 |
VMR6(V188)} |
VMR6(V176)} |
982 |
goto T428; |
goto T428; |
983 |
T428:; |
T428:; |
984 |
{register object V189; |
{register object V177; |
985 |
register object V190; |
register object V178; |
986 |
V189= (V187); |
V177= (V175); |
987 |
V190= car((V189)); |
V178= CMPcar((V177)); |
988 |
goto T433; |
goto T433; |
989 |
T433:; |
T433:; |
990 |
if(!(endp_prop((V189)))){ |
if(!(((V177))==Cnil)){ |
991 |
goto T434;} |
goto T434;} |
992 |
{object V191 = Ct; |
{object V179 = Ct; |
993 |
VMR6(V191)} |
VMR6(V179)} |
994 |
goto T434; |
goto T434; |
995 |
T434:; |
T434:; |
996 |
V193= structure_ref(cadr((V190)),VV[5],0); |
{register object x= (V173),V180= STREF(object,CMPcadr((V178)),0); |
997 |
{register object x= (V185),V192= /* INLINE-ARGS */V193; |
while(V180!=Cnil) |
998 |
while(!endp(V192)) |
if(eql(x,V180->c.c_car)){ |
|
if(eql(x,V192->c.c_car)){ |
|
999 |
goto T440; |
goto T440; |
1000 |
}else V192=V192->c.c_cdr; |
}else V180=V180->c.c_cdr; |
1001 |
goto T438;} |
goto T438;} |
1002 |
goto T440; |
goto T440; |
1003 |
T440:; |
T440:; |
1004 |
{object V194 = Cnil; |
{object V181 = Cnil; |
1005 |
VMR6(V194)} |
VMR6(V181)} |
1006 |
goto T438; |
goto T438; |
1007 |
T438:; |
T438:; |
1008 |
V189= cdr((V189)); |
V177= CMPcdr((V177)); |
1009 |
V190= car((V189)); |
V178= CMPcar((V177)); |
1010 |
goto T433;} |
goto T433;} |
1011 |
base[0]=base[0]; |
base[0]=base[0]; |
1012 |
return Cnil; |
return Cnil; |
1013 |
} |
} |
1014 |
/* local entry for function WRITE-BLOCK-OPEN */ |
/* local entry for function WRITE-BLOCK-OPEN */ |
1015 |
|
|
1016 |
static object LI7(V196) |
static object LI7(V183) |
1017 |
|
|
1018 |
object V196; |
object V183; |
1019 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
1020 |
goto TTL; |
goto TTL; |
1021 |
TTL:; |
TTL:; |
1022 |
{register object V197; |
{register object V184; |
1023 |
V197= Cnil; |
V184= Cnil; |
1024 |
{register object V198; |
{register object V185; |
1025 |
register object V199; |
register object V186; |
1026 |
V198= (V196); |
V185= (V183); |
1027 |
V199= car((V198)); |
V186= CMPcar((V185)); |
1028 |
goto T450; |
goto T450; |
1029 |
T450:; |
T450:; |
1030 |
if(!(endp_prop((V198)))){ |
if(!(((V185))==Cnil)){ |
1031 |
goto T451;} |
goto T451;} |
1032 |
goto T446; |
goto T446; |
1033 |
goto T451; |
goto T451; |
1034 |
T451:; |
T451:; |
1035 |
{register object V200; |
{register object V187; |
1036 |
V200= structure_ref((V199),VV[3],1); |
V187= STREF(object,(V186),4); |
1037 |
{register object x= (V200),V201= VV[31]; |
{register object x= (V187),V188= VV[31]; |
1038 |
while(!endp(V201)) |
while(V188!=Cnil) |
1039 |
if(eql(x,V201->c.c_car)){ |
if(eql(x,V188->c.c_car)){ |
1040 |
goto T458; |
goto T458; |
1041 |
}else V201=V201->c.c_cdr; |
}else V188=V188->c.c_cdr; |
1042 |
goto T455;} |
goto T455;} |
1043 |
goto T458; |
goto T458; |
1044 |
T458:; |
T458:; |
1045 |
princ_str("\n ",VV[21]); |
princ_str("\n ",VV[21]); |
1046 |
if(((V197))!=Cnil){ |
if(((V184))!=Cnil){ |
1047 |
goto T460;} |
goto T460;} |
1048 |
princ_char(123,VV[21]); |
princ_char(123,VV[21]); |
1049 |
V197= Ct; |
V184= Ct; |
1050 |
goto T460; |
goto T460; |
1051 |
T460:; |
T460:; |
1052 |
base[1]= (V199); |
(void)((*(LnkLI72))((V186)));} |
|
vs_top=(vs_base=base+1)+1; |
|
|
(void) (*Lnk72)(); |
|
|
vs_top=sup;} |
|
1053 |
goto T455; |
goto T455; |
1054 |
T455:; |
T455:; |
1055 |
V198= cdr((V198)); |
V185= CMPcdr((V185)); |
1056 |
V199= car((V198)); |
V186= CMPcar((V185)); |
1057 |
goto T450;} |
goto T450;} |
1058 |
goto T446; |
goto T446; |
1059 |
T446:; |
T446:; |
1060 |
{object V202 = (V197); |
{object V189 = (V184); |
1061 |
VMR7(V202)}} |
VMR7(V189)}} |
1062 |
base[0]=base[0]; |
base[0]=base[0]; |
1063 |
return Cnil; |
return Cnil; |
1064 |
} |
} |
1067 |
static void L8() |
static void L8() |
1068 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1069 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
1070 |
vs_reserve(VM8); |
vs_check; |
|
check_arg(2); |
|
1071 |
vs_top=sup; |
vs_top=sup; |
1072 |
{object V203=base[0]->c.c_cdr; |
{object V190=base[0]->c.c_cdr; |
1073 |
base[2]= V203;} |
base[2]= V190;} |
1074 |
base[3]= make_cons(VV[2],base[2]); |
base[3]= make_cons(VV[2],base[2]); |
1075 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1076 |
return; |
return; |
1077 |
} |
} |
1078 |
/* local entry for function C1STACK-LET */ |
/* local entry for function C1STACK-LET */ |
1079 |
|
|
1080 |
static object LI9(V205) |
static object LI9(V192) |
1081 |
|
|
1082 |
object V205; |
object V192; |
1083 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
1084 |
goto TTL; |
goto TTL; |
1085 |
TTL:; |
TTL:; |
1086 |
{object V206; |
{object V193; |
1087 |
register object V207; |
register object V194; |
1088 |
V206= Cnil; |
V193= Cnil; |
1089 |
V207= Cnil; |
V194= Cnil; |
1090 |
{object V208; |
{object V195; |
1091 |
V208= car((V205)); |
V195= CMPcar((V192)); |
1092 |
{register object V209; |
{register object V196; |
1093 |
register object V210; |
register object V197; |
1094 |
V209= (V208); |
V196= (V195); |
1095 |
V210= car((V209)); |
V197= CMPcar((V196)); |
1096 |
|
goto T478; |
1097 |
|
T478:; |
1098 |
|
if(!(((V196))==Cnil)){ |
1099 |
|
goto T479;} |
1100 |
|
goto T474; |
1101 |
goto T479; |
goto T479; |
1102 |
T479:; |
T479:; |
1103 |
if(!(endp_prop((V209)))){ |
{object V198; |
1104 |
goto T480;} |
if(!(type_of((V197))!=t_cons)){ |
1105 |
goto T475; |
goto T486;} |
1106 |
goto T480; |
V198= (V197); |
1107 |
T480:; |
goto T484; |
1108 |
{object V211; |
goto T486; |
1109 |
if(!(type_of((V210))!=t_cons)){ |
T486:; |
1110 |
goto T487;} |
{register object V199; |
1111 |
V211= (V210); |
{object V200; |
1112 |
goto T485; |
register object V201; |
1113 |
goto T487; |
V200= CMPcar((V197)); |
1114 |
T487:; |
V201= CMPcadr((V197)); |
1115 |
{register object V212; |
if(type_of((V201))==t_cons){ |
1116 |
{object V213; |
goto T491;} |
1117 |
register object V214; |
V199= Cnil; |
1118 |
V213= car((V210)); |
goto T488; |
1119 |
V214= cadr((V210)); |
goto T491; |
1120 |
if(type_of((V214))==t_cons){ |
T491:; |
1121 |
goto T492;} |
if(!((CMPcar((V201)))==(VV[32]))){ |
1122 |
V212= Cnil; |
goto T495;} |
1123 |
goto T489; |
goto T493; |
|
goto T492; |
|
|
T492:; |
|
|
if(!((car((V214)))==(VV[32]))){ |
|
|
goto T496;} |
|
|
goto T494; |
|
|
goto T496; |
|
|
T496:; |
|
|
if((car((V214)))==(VV[33])){ |
|
|
goto T498;} |
|
|
goto T495; |
|
|
goto T498; |
|
|
T498:; |
|
|
if((cddr((V214)))==Cnil){ |
|
|
goto T500;} |
|
|
goto T495; |
|
|
goto T500; |
|
|
T500:; |
|
|
V214= list(3,VV[32],cadr((V214)),Cnil); |
|
|
if(((V214))!=Cnil){ |
|
|
goto T494;} |
|
1124 |
goto T495; |
goto T495; |
1125 |
T495:; |
T495:; |
1126 |
V212= Cnil; |
if((CMPcar((V201)))==(VV[33])){ |
1127 |
goto T489; |
goto T497;} |
1128 |
|
goto T494; |
1129 |
|
goto T497; |
1130 |
|
T497:; |
1131 |
|
if((CMPcddr((V201)))==Cnil){ |
1132 |
|
goto T499;} |
1133 |
|
goto T494; |
1134 |
|
goto T499; |
1135 |
|
T499:; |
1136 |
|
V201= list(3,VV[32],CMPcadr((V201)),Cnil); |
1137 |
|
if(((V201))!=Cnil){ |
1138 |
|
goto T493;} |
1139 |
goto T494; |
goto T494; |
1140 |
T494:; |
T494:; |
1141 |
{object V215; |
V199= Cnil; |
1142 |
setq(VV[10],number_plus(symbol_value(VV[10]),small_fixnum(1))); |
goto T488; |
1143 |
V215= symbol_value(VV[10]); |
goto T493; |
1144 |
V207= make_cons((V215),(V207));} |
T493:; |
1145 |
V212= list(2,(V213),listA(3,VV[34],car((V207)),cdr((V214))));} |
{object V202; |
1146 |
goto T489; |
(VV[10]->s.s_dbind)= number_plus((VV[10]->s.s_dbind),small_fixnum(1)); |
1147 |
T489:; |
V202= (VV[10]->s.s_dbind); |
1148 |
if(((V212))==Cnil){ |
V194= make_cons((V202),(V194));} |
1149 |
goto T508;} |
V199= list(2,(V200),listA(3,VV[34],CMPcar((V194)),CMPcdr((V201))));} |
1150 |
V211= (V212); |
goto T488; |
1151 |
goto T485; |
T488:; |
1152 |
goto T508; |
if(((V199))==Cnil){ |
1153 |
T508:; |
goto T507;} |
1154 |
(void)((VFUN_NARGS=3,(*(LnkLI73))(VV[35],(V210),cdr((V205))))); |
V198= (V199); |
1155 |
V211= (V210);} |
goto T484; |
1156 |
goto T485; |
goto T507; |
1157 |
T485:; |
T507:; |
1158 |
V206= make_cons((V211),(V206));} |
(void)((VFUN_NARGS=3,(*(LnkLI73))(VV[35],(V197),CMPcdr((V192))))); |
1159 |
V209= cdr((V209)); |
V198= (V197);} |
1160 |
V210= car((V209)); |
goto T484; |
1161 |
goto T479;} |
T484:; |
1162 |
goto T475; |
V193= make_cons((V198),(V193));} |
1163 |
T475:; |
V196= CMPcdr((V196)); |
1164 |
{object V216; |
V197= CMPcar((V196)); |
1165 |
V217= nreverse((V206)); |
goto T478;} |
1166 |
V218= listA(3,VV[2],/* INLINE-ARGS */V217,cdr((V205))); |
goto T474; |
1167 |
V216= (*(LnkLI74))(/* INLINE-ARGS */V218); |
T474:; |
1168 |
{object V219 = list(4,VV[36],cadr((V216)),(V207),(V216)); |
{object V203; |
1169 |
VMR9(V219)}}}} |
V204= nreverse((V193)); |
1170 |
|
V205= listA(3,VV[2],/* INLINE-ARGS */V204,CMPcdr((V192))); |
1171 |
|
V203= (*(LnkLI74))(/* INLINE-ARGS */V205); |
1172 |
|
{object V206 = list(4,VV[36],CMPcadr((V203)),(V194),(V203)); |
1173 |
|
VMR9(V206)}}}} |
1174 |
base[0]=base[0]; |
base[0]=base[0]; |
1175 |
return Cnil; |
return Cnil; |
1176 |
} |
} |
1177 |
/* local entry for function C2STACK-LET */ |
/* local entry for function C2STACK-LET */ |
1178 |
|
|
1179 |
static object LI10(V222,V223) |
static object LI10(V209,V210) |
1180 |
|
|
1181 |
object V222;object V223; |
object V209;object V210; |
1182 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
1183 |
goto TTL; |
goto TTL; |
1184 |
TTL:; |
TTL:; |
1185 |
{object V224; |
{object V211; |
1186 |
setq(VV[10],number_plus(symbol_value(VV[10]),small_fixnum(1))); |
(VV[10]->s.s_dbind)= number_plus((VV[10]->s.s_dbind),small_fixnum(1)); |
1187 |
V224= symbol_value(VV[10]); |
V211= (VV[10]->s.s_dbind); |
1188 |
princ_str("\n {Cons_Macro",VV[21]); |
princ_str("\n {Cons_Macro",VV[21]); |
1189 |
(void)((*(LnkLI75))((V224))); |
(void)((*(LnkLI75))((V211))); |
1190 |
princ_char(59,VV[21]); |
princ_char(59,VV[21]); |
1191 |
base[0]= (V223); |
base[0]= (V210); |
1192 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1193 |
(void) (*Lnk68)(); |
(void) (*Lnk68)(); |
1194 |
vs_top=sup; |
vs_top=sup; |
1195 |
princ_char(125,VV[21]); |
princ_char(125,VV[21]); |
1196 |
princ_str("\n#define Cons_Macro",VV[37]); |
princ_str("\n#define Cons_Macro",VV[37]); |
1197 |
(void)((*(LnkLI76))((V224))); |
(void)((*(LnkLI76))((V211))); |
1198 |
base[0]= Cnil; |
base[0]= Cnil; |
1199 |
base[1]= VV[38]; |
base[1]= VV[38]; |
1200 |
base[2]= (V222); |
base[2]= (V209); |
1201 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1202 |
Lformat(); |
Lformat(); |
1203 |
vs_top=sup; |
vs_top=sup; |
1204 |
V225= vs_base[0]; |
V212= vs_base[0]; |
1205 |
(void)((*(LnkLI76))(V225)); |
(void)((*(LnkLI76))(V212)); |
1206 |
{object V226 = Cnil; |
{object V213 = Cnil; |
1207 |
VMR10(V226)}} |
VMR10(V213)}} |
1208 |
base[0]=base[0]; |
base[0]=base[0]; |
1209 |
return Cnil; |
return Cnil; |
1210 |
} |
} |
1212 |
static object LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,1,first,ap);va_end(ap);return V1;} /* WT1 */ |
static object LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,1,first,ap);va_end(ap);return V1;} /* WT1 */ |
1213 |
static object LnkTLI74(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[74],(void **)(void *)&LnkLI74,1,first,ap);va_end(ap);return V1;} /* C1EXPR */ |
static object LnkTLI74(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[74],(void **)(void *)&LnkLI74,1,first,ap);va_end(ap);return V1;} /* C1EXPR */ |
1214 |
static object LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[73],(void **)(void *)&LnkLI73,first,ap);va_end(ap);return V1;} /* CMPWARN */ |
static object LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[73],(void **)(void *)&LnkLI73,first,ap);va_end(ap);return V1;} /* CMPWARN */ |
1215 |
static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* WT-VAR-DECL */ |
static object LnkTLI72(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[72],(void **)(void *)&LnkLI72,1,first,ap);va_end(ap);return V1;} /* WT-VAR-DECL */ |
1216 |
static object LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)(void *)&LnkLI71,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */ |
static object LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)(void *)&LnkLI71,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */ |
1217 |
static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,3,first,ap);va_end(ap);return V1;} /* CAN-BE-REPLACED* */ |
static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,3,first,ap);va_end(ap);return V1;} /* CAN-BE-REPLACED* */ |
1218 |
static void LnkT68(){ call_or_link(VV[68],(void **)(void *)&Lnk68);} /* C2EXPR */ |
static void LnkT68(){ call_or_link(VV[68],(void **)(void *)&Lnk68);} /* C2EXPR */ |