96 |
T29:; |
T29:; |
97 |
{object V20; |
{object V20; |
98 |
V20= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V19)),VV[5],Cnil,VV[6],Cnil)); |
V20= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V19)),VV[5],Cnil,VV[6],Cnil)); |
99 |
(VV[2]->s.s_dbind)= make_cons((V20),(VV[2]->s.s_dbind)); |
(VV[2]->s.s_dbind)= make_cons(V20,(VV[2]->s.s_dbind)); |
100 |
V21= list(2,(V20),cdr((V19))); |
{object V22; |
101 |
V15= make_cons(/* INLINE-ARGS */V21,(V15));} |
V22= list(2,(V20),cdr((V19))); |
102 |
|
V15= make_cons((V22),(V15));}} |
103 |
V18= cdr((V18)); |
V18= cdr((V18)); |
104 |
V19= car((V18)); |
V19= car((V18)); |
105 |
goto T24;} |
goto T24;} |
145 |
vs_top=sup; |
vs_top=sup; |
146 |
V14= vs_base[0]; |
V14= vs_base[0]; |
147 |
bds_unwind1; |
bds_unwind1; |
148 |
{register object V22; |
{register object V23; |
149 |
register object V23; |
register object V24; |
150 |
V22= reverse((V15)); |
V23= reverse((V15)); |
151 |
V23= car((V22)); |
V24= car((V23)); |
|
goto T60; |
|
|
T60:; |
|
|
if(!(endp_prop((V22)))){ |
|
|
goto T61;} |
|
|
goto T56; |
|
152 |
goto T61; |
goto T61; |
153 |
T61:; |
T61:; |
154 |
if((structure_ref(car((V23)),VV[0],2))==Cnil){ |
if(!(endp_prop((V23)))){ |
155 |
goto T65;} |
goto T62;} |
156 |
|
goto T57; |
157 |
|
goto T62; |
158 |
|
T62:; |
159 |
|
if((structure_ref(car((V24)),VV[0],2))==Cnil){ |
160 |
|
goto T66;} |
161 |
base[2]= make_cons(VV[8],symbol_value(VV[7])); |
base[2]= make_cons(VV[8],symbol_value(VV[7])); |
162 |
base[3]= make_cons(VV[8],symbol_value(VV[2])); |
base[3]= make_cons(VV[8],symbol_value(VV[2])); |
163 |
base[4]= make_cons(VV[8],symbol_value(VV[9])); |
base[4]= make_cons(VV[8],symbol_value(VV[9])); |
166 |
bds_bind(VV[2],base[3]); |
bds_bind(VV[2],base[3]); |
167 |
bds_bind(VV[9],base[4]); |
bds_bind(VV[9],base[4]); |
168 |
bds_bind(VV[10],base[5]); |
bds_bind(VV[10],base[5]); |
169 |
{object V24; |
{object V25; |
170 |
V25= cadr((V23)); |
V26= cadr((V24)); |
171 |
V26= structure_ref(car((V23)),VV[0],0); |
V27= structure_ref(car((V24)),VV[0],0); |
172 |
V24= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V25,/* INLINE-ARGS */V26)); |
V25= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V26,/* INLINE-ARGS */V27)); |
173 |
(void)((*(LnkLI51))((V14),cadr((V24)))); |
(void)((*(LnkLI51))((V14),cadr((V25)))); |
174 |
V27= list(2,car((V23)),(V24)); |
{object V28; |
175 |
V17= make_cons(/* INLINE-ARGS */V27,(V17)); |
V28= list(2,car((V24)),(V25)); |
176 |
|
V17= make_cons((V28),(V17)); |
177 |
bds_unwind1; |
bds_unwind1; |
178 |
bds_unwind1; |
bds_unwind1; |
179 |
bds_unwind1; |
bds_unwind1; |
180 |
bds_unwind1;} |
bds_unwind1;}} |
181 |
goto T65; |
goto T66; |
182 |
T65:; |
T66:; |
183 |
if((structure_ref(car((V23)),VV[0],1))==Cnil){ |
if((structure_ref(car((V24)),VV[0],1))==Cnil){ |
184 |
goto T75;} |
goto T77;} |
185 |
base[2]= make_cons(VV[11],symbol_value(VV[9])); |
base[2]= make_cons(VV[11],symbol_value(VV[9])); |
186 |
base[3]= make_cons(VV[11],symbol_value(VV[10])); |
base[3]= make_cons(VV[11],symbol_value(VV[10])); |
187 |
base[4]= make_cons(VV[11],symbol_value(VV[7])); |
base[4]= make_cons(VV[11],symbol_value(VV[7])); |
188 |
bds_bind(VV[9],base[2]); |
bds_bind(VV[9],base[2]); |
189 |
bds_bind(VV[10],base[3]); |
bds_bind(VV[10],base[3]); |
190 |
bds_bind(VV[7],base[4]); |
bds_bind(VV[7],base[4]); |
191 |
{object V28; |
{object V29; |
192 |
V29= cadr((V23)); |
V30= cadr((V24)); |
193 |
V30= structure_ref(car((V23)),VV[0],0); |
V31= structure_ref(car((V24)),VV[0],0); |
194 |
V28= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V29,/* INLINE-ARGS */V30)); |
V29= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V30,/* INLINE-ARGS */V31)); |
195 |
(void)((*(LnkLI51))((V14),cadr((V28)))); |
(void)((*(LnkLI51))((V14),cadr((V29)))); |
196 |
V31= list(2,car((V23)),(V28)); |
{object V32; |
197 |
V16= make_cons(/* INLINE-ARGS */V31,(V16)); |
V32= list(2,car((V24)),(V29)); |
198 |
bds_unwind1; |
V16= make_cons((V32),(V16)); |
199 |
bds_unwind1; |
bds_unwind1; |
200 |
bds_unwind1;} |
bds_unwind1; |
201 |
goto T75; |
bds_unwind1;}} |
202 |
T75:; |
goto T77; |
203 |
if((structure_ref(car((V23)),VV[0],1))!=Cnil){ |
T77:; |
204 |
goto T85;} |
if((structure_ref(car((V24)),VV[0],1))!=Cnil){ |
205 |
if((structure_ref(car((V23)),VV[0],2))==Cnil){ |
goto T88;} |
206 |
goto T84;} |
if((structure_ref(car((V24)),VV[0],2))==Cnil){ |
207 |
goto T85; |
goto T87;} |
208 |
T85:; |
goto T88; |
209 |
V32= car((V23)); |
T88:; |
210 |
|
V33= car((V24)); |
211 |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
212 |
(void)(structure_set(/* INLINE-ARGS */V32,VV[0],3,symbol_value(VV[12]))); |
(void)(structure_set(/* INLINE-ARGS */V33,VV[0],3,symbol_value(VV[12]))); |
213 |
goto T84; |
goto T87; |
214 |
T84:; |
T87:; |
215 |
V22= cdr((V22)); |
V23= cdr((V23)); |
216 |
V23= car((V22)); |
V24= car((V23)); |
217 |
goto T60;} |
goto T61;} |
218 |
goto T56; |
goto T57; |
219 |
T56:; |
T57:; |
220 |
if(((V16))!=Cnil){ |
if(((V16))!=Cnil){ |
221 |
goto T95;} |
goto T98;} |
222 |
if(((V17))==Cnil){ |
if(((V17))==Cnil){ |
223 |
goto T96;} |
goto T99;} |
224 |
goto T95; |
goto T98; |
225 |
T95:; |
T98:; |
226 |
V33= reverse((V16)); |
V34= reverse((V16)); |
227 |
{object V34 = list(5,VV[1],(V14),/* INLINE-ARGS */V33,reverse((V17)),(V9)); |
{object V35 = list(5,VV[1],(V14),/* INLINE-ARGS */V34,reverse((V17)),(V9)); |
228 |
VMR2(V34)} |
VMR2(V35)} |
229 |
goto T96; |
goto T99; |
230 |
T96:; |
T99:; |
231 |
{object V35 = (V9); |
{object V36 = (V9); |
232 |
VMR2(V35)}} |
VMR2(V36)}} |
233 |
base[0]=base[0]; |
base[0]=base[0]; |
234 |
return Cnil; |
return Cnil; |
235 |
} |
} |
240 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
241 |
vs_reserve(VM3); |
vs_reserve(VM3); |
242 |
bds_check; |
bds_check; |
243 |
{object V36; |
{object V37; |
|
object V37; |
|
244 |
object V38; |
object V38; |
245 |
|
object V39; |
246 |
check_arg(3); |
check_arg(3); |
247 |
V36=(base[0]); |
V37=(base[0]); |
248 |
V37=(base[1]); |
V38=(base[1]); |
249 |
V38=(base[2]); |
V39=(base[2]); |
250 |
vs_top=sup; |
vs_top=sup; |
251 |
goto TTL; |
goto TTL; |
252 |
TTL:; |
TTL:; |
253 |
bds_bind(VV[13],symbol_value(VV[13])); |
bds_bind(VV[13],symbol_value(VV[13])); |
254 |
bds_bind(VV[14],symbol_value(VV[14])); |
bds_bind(VV[14],symbol_value(VV[14])); |
255 |
bds_bind(VV[15],symbol_value(VV[15])); |
bds_bind(VV[15],symbol_value(VV[15])); |
256 |
{register object V39; |
{register object V40; |
257 |
object V40; |
object V41; |
258 |
V39= (V36); |
V40= (V37); |
259 |
V40= car((V39)); |
V41= car((V40)); |
260 |
goto T104; |
goto T107; |
261 |
T104:; |
T107:; |
262 |
if(!(endp_prop((V39)))){ |
if(!(endp_prop((V40)))){ |
263 |
goto T105;} |
goto T108;} |
264 |
goto T100; |
goto T103; |
265 |
goto T105; |
goto T108; |
266 |
T105:; |
T108:; |
267 |
(void)(structure_set(car((V40)),VV[0],4,symbol_value(VV[16])));{object V41; |
(void)(structure_set(car((V41)),VV[0],4,symbol_value(VV[16]))); |
268 |
V41= (VV[14]->s.s_dbind);{object V42; |
{object V42;{object V43; |
269 |
V42= (VV[15]->s.s_dbind); |
V43= (VV[14]->s.s_dbind);{object V44; |
270 |
V43= list(5,Cnil,V41,V42,car((V40)),cadr((V40))); |
V44= (VV[15]->s.s_dbind); |
271 |
setq(VV[17],make_cons(/* INLINE-ARGS */V43,symbol_value(VV[17])));}} |
V42= list(5,Cnil,V43,V44,car((V41)),cadr((V41)));}} |
272 |
V39= cdr((V39)); |
setq(VV[17],make_cons((V42),symbol_value(VV[17])));} |
273 |
V40= car((V39)); |
V40= cdr((V40)); |
274 |
goto T104;} |
V41= car((V40)); |
275 |
goto T100; |
goto T107;} |
276 |
T100:; |
goto T103; |
277 |
{register object V44; |
T103:; |
278 |
register object V45; |
{register object V45; |
279 |
V44= (V37); |
register object V46; |
280 |
V45= car((V44)); |
V45= (V38); |
281 |
goto T121; |
V46= car((V45)); |
282 |
T121:; |
goto T125; |
283 |
if(!(endp_prop((V44)))){ |
T125:; |
284 |
goto T122;} |
if(!(endp_prop((V45)))){ |
285 |
goto T117; |
goto T126;} |
286 |
goto T122; |
goto T121; |
287 |
T122:; |
goto T126; |
288 |
|
T126:; |
289 |
|
{object V47; |
290 |
if(((VV[14]->s.s_dbind))!=Cnil){ |
if(((VV[14]->s.s_dbind))!=Cnil){ |
291 |
goto T130;} |
goto T134;} |
292 |
V46= Cnil; |
V48= Cnil; |
293 |
goto T128; |
goto T132; |
294 |
goto T130; |
goto T134; |
295 |
T130:; |
T134:; |
296 |
V46= make_cons(small_fixnum(0),small_fixnum(0)); |
V48= make_cons(small_fixnum(0),small_fixnum(0)); |
297 |
goto T128; |
goto T132; |
298 |
T128:;{object V47; |
T132:;{object V49; |
299 |
V47= (VV[15]->s.s_dbind); |
V49= (VV[15]->s.s_dbind); |
300 |
V48= list(5,VV[18],V46,V47,car((V45)),cadr((V45))); |
V47= list(5,VV[18],V48,V49,car((V46)),cadr((V46)));} |
301 |
setq(VV[17],make_cons(/* INLINE-ARGS */V48,symbol_value(VV[17])));} |
setq(VV[17],make_cons((V47),symbol_value(VV[17])));} |
302 |
setq(VV[19],make_cons(car((V45)),symbol_value(VV[19]))); |
{object V50; |
303 |
{register object V49; |
V50= car((V46)); |
304 |
V49= car((V45)); |
setq(VV[19],make_cons((V50),symbol_value(VV[19])));} |
305 |
V50= (*(LnkLI52))(); |
{register object V51; |
306 |
(void)(structure_set((V49),VV[0],1,/* INLINE-ARGS */V50)); |
V51= car((V46)); |
307 |
|
V52= (*(LnkLI52))(); |
308 |
|
(void)(structure_set((V51),VV[0],1,/* INLINE-ARGS */V52)); |
309 |
princ_str("\n ",VV[20]); |
princ_str("\n ",VV[20]); |
310 |
V51= structure_ref((V49),VV[0],1); |
V53= structure_ref((V51),VV[0],1); |
311 |
(void)((*(LnkLI53))(/* INLINE-ARGS */V51)); |
(void)((*(LnkLI53))(/* INLINE-ARGS */V53)); |
312 |
princ_str("=make_cclosure_new(LC",VV[20]); |
princ_str("=make_cclosure_new(LC",VV[20]); |
313 |
V52= structure_ref((V49),VV[0],3); |
V54= structure_ref((V51),VV[0],3); |
314 |
(void)((*(LnkLI54))(/* INLINE-ARGS */V52)); |
(void)((*(LnkLI54))(/* INLINE-ARGS */V54)); |
315 |
princ_str(",Cnil,",VV[20]); |
princ_str(",Cnil,",VV[20]); |
316 |
(void)((VFUN_NARGS=0,(*(LnkLI55))())); |
(void)((VFUN_NARGS=0,(*(LnkLI55))())); |
317 |
princ_str(",Cdata);",VV[20]); |
princ_str(",Cdata);",VV[20]); |
318 |
princ_str("\n ",VV[20]); |
princ_str("\n ",VV[20]); |
319 |
V53= structure_ref((V49),VV[0],1); |
V55= structure_ref((V51),VV[0],1); |
320 |
(void)((*(LnkLI53))(/* INLINE-ARGS */V53)); |
(void)((*(LnkLI53))(/* INLINE-ARGS */V55)); |
321 |
princ_str("=MMcons(",VV[20]); |
princ_str("=MMcons(",VV[20]); |
322 |
V54= structure_ref((V49),VV[0],1); |
V56= structure_ref((V51),VV[0],1); |
323 |
(void)((*(LnkLI53))(/* INLINE-ARGS */V54)); |
(void)((*(LnkLI53))(/* INLINE-ARGS */V56)); |
324 |
princ_char(44,VV[20]); |
princ_char(44,VV[20]); |
325 |
(void)((VFUN_NARGS=0,(*(LnkLI55))())); |
(void)((VFUN_NARGS=0,(*(LnkLI55))())); |
326 |
princ_str(");",VV[20]); |
princ_str(");",VV[20]); |
327 |
V55= structure_ref((V49),VV[0],1); |
V57= structure_ref((V51),VV[0],1); |
328 |
(void)((*(LnkLI56))(/* INLINE-ARGS */V55)); |
(void)((*(LnkLI56))(/* INLINE-ARGS */V57)); |
329 |
V56= (*(LnkLI57))(); |
V58= (*(LnkLI57))(); |
330 |
(void)(structure_set((V49),VV[0],2,/* INLINE-ARGS */V56));} |
(void)(structure_set((V51),VV[0],2,/* INLINE-ARGS */V58));} |
331 |
V44= cdr((V44)); |
V45= cdr((V45)); |
332 |
V45= car((V44)); |
V46= car((V45)); |
333 |
goto T121;} |
goto T125;} |
334 |
goto T117; |
goto T121; |
335 |
T117:; |
T121:; |
336 |
base[6]= (V38); |
base[6]= (V39); |
337 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
338 |
(void) (*Lnk58)(); |
(void) (*Lnk58)(); |
339 |
bds_unwind1; |
bds_unwind1; |
344 |
} |
} |
345 |
/* local entry for function C1LABELS */ |
/* local entry for function C1LABELS */ |
346 |
|
|
347 |
static object LI4(V58) |
static object LI4(V60) |
348 |
|
|
349 |
object V58; |
object V60; |
350 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
351 |
bds_check; |
bds_check; |
352 |
goto TTL; |
goto TTL; |
353 |
TTL:; |
TTL:; |
354 |
{object V59; |
{object V61; |
|
object V60; |
|
|
object V61; |
|
355 |
object V62; |
object V62; |
356 |
object V63; |
object V63; |
357 |
object V64; |
object V64; |
359 |
object V66; |
object V66; |
360 |
object V67; |
object V67; |
361 |
object V68; |
object V68; |
362 |
register object V69; |
object V69; |
363 |
V59= Cnil; |
object V70; |
364 |
V60= Cnil; |
register object V71; |
365 |
V61= Cnil; |
V61= Cnil; |
366 |
V62= Cnil; |
V62= Cnil; |
367 |
V63= Cnil; |
V63= Cnil; |
371 |
V67= Cnil; |
V67= Cnil; |
372 |
V68= Cnil; |
V68= Cnil; |
373 |
V69= Cnil; |
V69= Cnil; |
374 |
|
V70= Cnil; |
375 |
|
V71= Cnil; |
376 |
bds_bind(VV[2],symbol_value(VV[2])); |
bds_bind(VV[2],symbol_value(VV[2])); |
377 |
if(!(endp_prop((V58)))){ |
if(!(endp_prop((V60)))){ |
378 |
goto T174;} |
goto T180;} |
379 |
(void)((*(LnkLI42))(VV[21],small_fixnum(1),small_fixnum(0))); |
(void)((*(LnkLI42))(VV[21],small_fixnum(1),small_fixnum(0))); |
380 |
goto T174; |
goto T180; |
381 |
T174:; |
T180:; |
382 |
{object V70; |
{object V72; |
383 |
register object V71; |
register object V73; |
384 |
V70= car((V58)); |
V72= car((V60)); |
385 |
V71= car((V70)); |
V73= car((V72)); |
|
goto T181; |
|
|
T181:; |
|
|
if(!(endp_prop((V70)))){ |
|
|
goto T182;} |
|
|
goto T177; |
|
|
goto T182; |
|
|
T182:; |
|
|
if(endp_prop((V71))){ |
|
|
goto T187;} |
|
|
if(!(type_of(car((V71)))==t_symbol)){ |
|
|
goto T187;} |
|
|
if(!(endp_prop(cdr((V71))))){ |
|
|
goto T186;} |
|
386 |
goto T187; |
goto T187; |
387 |
T187:; |
T187:; |
388 |
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[22],(V71)))); |
if(!(endp_prop((V72)))){ |
389 |
goto T186; |
goto T188;} |
390 |
T186:; |
goto T183; |
391 |
{register object x= car((V71)),V72= (V68); |
goto T188; |
392 |
while(!endp(V72)) |
T188:; |
393 |
if(eql(x,V72->c.c_car)){ |
if(endp_prop((V73))){ |
394 |
goto T195; |
goto T193;} |
395 |
}else V72=V72->c.c_cdr; |
if(!(type_of(car((V73)))==t_symbol)){ |
396 |
goto T193;} |
goto T193;} |
397 |
goto T195; |
if(!(endp_prop(cdr((V73))))){ |
398 |
T195:; |
goto T192;} |
|
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[23],car((V71))))); |
|
399 |
goto T193; |
goto T193; |
400 |
T193:; |
T193:; |
401 |
V68= make_cons(car((V71)),(V68)); |
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[22],(V73)))); |
402 |
{object V73; |
goto T192; |
403 |
V73= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V71)),VV[5],Cnil,VV[6],Cnil)); |
T192:; |
404 |
(VV[2]->s.s_dbind)= make_cons((V73),(VV[2]->s.s_dbind)); |
{register object x= car((V73)),V74= (V70); |
405 |
V74= list(4,(V73),Cnil,Cnil,cdr((V71))); |
while(!endp(V74)) |
406 |
V65= make_cons(/* INLINE-ARGS */V74,(V65));} |
if(eql(x,V74->c.c_car)){ |
407 |
V70= cdr((V70)); |
goto T201; |
408 |
V71= car((V70)); |
}else V74=V74->c.c_cdr; |
409 |
goto T181;} |
goto T199;} |
410 |
goto T177; |
goto T201; |
411 |
T177:; |
T201:; |
412 |
V65= reverse((V65)); |
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[23],car((V73))))); |
413 |
base[1]= cdr((V58)); |
goto T199; |
414 |
|
T199:; |
415 |
|
{object V75; |
416 |
|
V75= car((V73)); |
417 |
|
V70= make_cons((V75),(V70));} |
418 |
|
{object V76; |
419 |
|
V76= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V73)),VV[5],Cnil,VV[6],Cnil)); |
420 |
|
(VV[2]->s.s_dbind)= make_cons(V76,(VV[2]->s.s_dbind)); |
421 |
|
{object V78; |
422 |
|
V78= list(4,(V76),Cnil,Cnil,cdr((V73))); |
423 |
|
V67= make_cons((V78),(V67));}} |
424 |
|
V72= cdr((V72)); |
425 |
|
V73= car((V72)); |
426 |
|
goto T187;} |
427 |
|
goto T183; |
428 |
|
T183:; |
429 |
|
V67= reverse((V67)); |
430 |
|
base[1]= cdr((V60)); |
431 |
base[2]= Ct; |
base[2]= Ct; |
432 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
433 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
434 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
|
V59= vs_base[0]; |
|
|
vs_base++; |
|
|
}else{ |
|
|
V59= Cnil;} |
|
|
if(vs_base<vs_top){ |
|
|
V60= vs_base[0]; |
|
|
vs_base++; |
|
|
}else{ |
|
|
V60= Cnil;} |
|
|
if(vs_base<vs_top){ |
|
435 |
V61= vs_base[0]; |
V61= vs_base[0]; |
436 |
vs_base++; |
vs_base++; |
437 |
}else{ |
}else{ |
443 |
V62= Cnil;} |
V62= Cnil;} |
444 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
445 |
V63= vs_base[0]; |
V63= vs_base[0]; |
446 |
|
vs_base++; |
447 |
}else{ |
}else{ |
448 |
V63= Cnil;} |
V63= Cnil;} |
449 |
|
if(vs_base<vs_top){ |
450 |
|
V64= vs_base[0]; |
451 |
|
vs_base++; |
452 |
|
}else{ |
453 |
|
V64= Cnil;} |
454 |
|
if(vs_base<vs_top){ |
455 |
|
V65= vs_base[0]; |
456 |
|
}else{ |
457 |
|
V65= Cnil;} |
458 |
vs_top=sup; |
vs_top=sup; |
459 |
bds_bind(VV[7],symbol_value(VV[7])); |
bds_bind(VV[7],symbol_value(VV[7])); |
460 |
(void)((*(LnkLI46))((V60))); |
(void)((*(LnkLI46))((V62))); |
461 |
(void)((*(LnkLI47))(Cnil,(V61),(V62))); |
(void)((*(LnkLI47))(Cnil,(V63),(V64))); |
462 |
V59= (*(LnkLI48))((V63),(V59)); |
V61= (*(LnkLI48))((V65),(V61)); |
463 |
bds_unwind1; |
bds_unwind1; |
464 |
base[1]= cadr((V59)); |
base[1]= cadr((V61)); |
465 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
466 |
(void) (*Lnk49)(); |
(void) (*Lnk49)(); |
467 |
vs_top=sup; |
vs_top=sup; |
468 |
V64= vs_base[0]; |
V66= vs_base[0]; |
|
goto T223; |
|
|
T223:; |
|
|
V69= Cnil; |
|
|
{register object V75; |
|
|
register object V76; |
|
|
V75= (V65); |
|
|
V76= car((V75)); |
|
469 |
goto T231; |
goto T231; |
470 |
T231:; |
T231:; |
471 |
if(!(endp_prop((V75)))){ |
V71= Cnil; |
472 |
goto T232;} |
{register object V79; |
473 |
goto T227; |
register object V80; |
474 |
goto T232; |
V79= (V67); |
475 |
T232:; |
V80= car((V79)); |
476 |
if((structure_ref(car((V76)),VV[0],1))==Cnil){ |
goto T239; |
477 |
goto T236;} |
T239:; |
478 |
if((cadr((V76)))!=Cnil){ |
if(!(endp_prop((V79)))){ |
479 |
goto T236;} |
goto T240;} |
480 |
V69= Ct; |
goto T235; |
481 |
if(type_of(cdr(V76))!=t_cons)FEwrong_type_argument(Scons,cdr(V76)); |
goto T240; |
482 |
(cdr(V76))->c.c_car = Ct; |
T240:; |
483 |
(void)(cdr(V76)); |
if((structure_ref(car((V80)),VV[0],1))==Cnil){ |
484 |
|
goto T244;} |
485 |
|
if((cadr((V80)))!=Cnil){ |
486 |
|
goto T244;} |
487 |
|
V71= Ct; |
488 |
|
if(type_of(cdr(V80))!=t_cons)FEwrong_type_argument(Scons,cdr(V80)); |
489 |
|
(cdr(V80))->c.c_car = Ct; |
490 |
|
(void)(cdr(V80)); |
491 |
base[2]= make_cons(VV[11],symbol_value(VV[9])); |
base[2]= make_cons(VV[11],symbol_value(VV[9])); |
492 |
base[3]= make_cons(VV[11],symbol_value(VV[10])); |
base[3]= make_cons(VV[11],symbol_value(VV[10])); |
493 |
base[4]= make_cons(VV[11],symbol_value(VV[7])); |
base[4]= make_cons(VV[11],symbol_value(VV[7])); |
494 |
bds_bind(VV[9],base[2]); |
bds_bind(VV[9],base[2]); |
495 |
bds_bind(VV[10],base[3]); |
bds_bind(VV[10],base[3]); |
496 |
bds_bind(VV[7],base[4]); |
bds_bind(VV[7],base[4]); |
497 |
{object V79; |
{object V83; |
498 |
V80= cadddr((V76)); |
V84= cadddr((V80)); |
499 |
V81= structure_ref(car((V76)),VV[0],0); |
V85= structure_ref(car((V80)),VV[0],0); |
500 |
V79= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V80,/* INLINE-ARGS */V81)); |
V83= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V84,/* INLINE-ARGS */V85)); |
501 |
(void)((*(LnkLI51))((V64),cadr((V79)))); |
(void)((*(LnkLI51))((V66),cadr((V83)))); |
502 |
V82= list(2,car((V76)),(V79)); |
{object V86; |
503 |
V66= make_cons(/* INLINE-ARGS */V82,(V66)); |
V86= list(2,car((V80)),(V83)); |
504 |
bds_unwind1; |
V68= make_cons((V86),(V68)); |
505 |
bds_unwind1; |
bds_unwind1; |
506 |
bds_unwind1;} |
bds_unwind1; |
507 |
goto T236; |
bds_unwind1;}} |
508 |
T236:; |
goto T244; |
509 |
V75= cdr((V75)); |
T244:; |
510 |
V76= car((V75)); |
V79= cdr((V79)); |
511 |
goto T231;} |
V80= car((V79)); |
512 |
goto T227; |
goto T239;} |
513 |
T227:; |
goto T235; |
514 |
if(((V69))!=Cnil){ |
T235:; |
515 |
goto T224;} |
if(((V71))!=Cnil){ |
516 |
goto T221; |
goto T232;} |
517 |
goto T224; |
goto T229; |
518 |
T224:; |
goto T232; |
519 |
goto T223; |
T232:; |
520 |
goto T221; |
goto T231; |
521 |
T221:; |
goto T229; |
522 |
goto T261; |
T229:; |
|
T261:; |
|
|
V69= Cnil; |
|
|
{register object V83; |
|
|
register object V84; |
|
|
V83= (V65); |
|
|
V84= car((V83)); |
|
|
goto T269; |
|
|
T269:; |
|
|
if(!(endp_prop((V83)))){ |
|
|
goto T270;} |
|
|
goto T265; |
|
523 |
goto T270; |
goto T270; |
524 |
T270:; |
T270:; |
525 |
if((structure_ref(car((V84)),VV[0],2))==Cnil){ |
V71= Cnil; |
526 |
goto T274;} |
{register object V87; |
527 |
if((caddr((V84)))!=Cnil){ |
register object V88; |
528 |
goto T274;} |
V87= (V67); |
529 |
V69= Ct; |
V88= car((V87)); |
530 |
if(type_of(cddr(V84))!=t_cons)FEwrong_type_argument(Scons,cddr(V84)); |
goto T278; |
531 |
(cddr(V84))->c.c_car = Ct; |
T278:; |
532 |
(void)(cddr(V84)); |
if(!(endp_prop((V87)))){ |
533 |
|
goto T279;} |
534 |
|
goto T274; |
535 |
|
goto T279; |
536 |
|
T279:; |
537 |
|
if((structure_ref(car((V88)),VV[0],2))==Cnil){ |
538 |
|
goto T283;} |
539 |
|
if((caddr((V88)))!=Cnil){ |
540 |
|
goto T283;} |
541 |
|
V71= Ct; |
542 |
|
if(type_of(cddr(V88))!=t_cons)FEwrong_type_argument(Scons,cddr(V88)); |
543 |
|
(cddr(V88))->c.c_car = Ct; |
544 |
|
(void)(cddr(V88)); |
545 |
base[2]= make_cons(VV[8],symbol_value(VV[7])); |
base[2]= make_cons(VV[8],symbol_value(VV[7])); |
546 |
base[3]= make_cons(VV[8],(VV[2]->s.s_dbind)); |
base[3]= make_cons(VV[8],(VV[2]->s.s_dbind)); |
547 |
base[4]= make_cons(VV[8],symbol_value(VV[9])); |
base[4]= make_cons(VV[8],symbol_value(VV[9])); |
550 |
bds_bind(VV[2],base[3]); |
bds_bind(VV[2],base[3]); |
551 |
bds_bind(VV[9],base[4]); |
bds_bind(VV[9],base[4]); |
552 |
bds_bind(VV[10],base[5]); |
bds_bind(VV[10],base[5]); |
553 |
{object V87; |
{object V91; |
554 |
V88= cadddr((V84)); |
V92= cadddr((V88)); |
555 |
V89= structure_ref(car((V84)),VV[0],0); |
V93= structure_ref(car((V88)),VV[0],0); |
556 |
V87= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V88,/* INLINE-ARGS */V89)); |
V91= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V92,/* INLINE-ARGS */V93)); |
557 |
(void)((*(LnkLI51))((V64),cadr((V87)))); |
(void)((*(LnkLI51))((V66),cadr((V91)))); |
558 |
V90= list(2,car((V84)),(V87)); |
{object V94; |
559 |
V67= make_cons(/* INLINE-ARGS */V90,(V67)); |
V94= list(2,car((V88)),(V91)); |
560 |
|
V69= make_cons((V94),(V69)); |
561 |
bds_unwind1; |
bds_unwind1; |
562 |
bds_unwind1; |
bds_unwind1; |
563 |
bds_unwind1; |
bds_unwind1; |
564 |
bds_unwind1;} |
bds_unwind1;}} |
565 |
|
goto T283; |
566 |
|
T283:; |
567 |
|
V87= cdr((V87)); |
568 |
|
V88= car((V87)); |
569 |
|
goto T278;} |
570 |
goto T274; |
goto T274; |
571 |
T274:; |
T274:; |
572 |
V83= cdr((V83)); |
if(((V71))!=Cnil){ |
573 |
V84= car((V83)); |
goto T271;} |
574 |
goto T269;} |
goto T268; |
575 |
goto T265; |
goto T271; |
576 |
T265:; |
T271:; |
577 |
if(((V69))!=Cnil){ |
goto T270; |
578 |
goto T262;} |
goto T268; |
579 |
goto T259; |
T268:; |
580 |
goto T262; |
{object V95; |
581 |
T262:; |
object V96; |
582 |
goto T261; |
V95= (V67); |
583 |
goto T259; |
V96= car((V95)); |
584 |
T259:; |
goto T312; |
585 |
{object V91; |
T312:; |
586 |
object V92; |
if(!(endp_prop((V95)))){ |
587 |
V91= (V65); |
goto T313;} |
588 |
V92= car((V91)); |
goto T308; |
589 |
goto T302; |
goto T313; |
590 |
T302:; |
T313:; |
591 |
if(!(endp_prop((V91)))){ |
if((structure_ref(car((V96)),VV[0],1))!=Cnil){ |
|
goto T303;} |
|
|
goto T298; |
|
|
goto T303; |
|
|
T303:; |
|
|
if((structure_ref(car((V92)),VV[0],1))!=Cnil){ |
|
|
goto T308;} |
|
|
if((structure_ref(car((V92)),VV[0],2))==Cnil){ |
|
|
goto T307;} |
|
|
goto T308; |
|
|
T308:; |
|
|
V93= car((V92)); |
|
|
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
|
|
(void)(structure_set(/* INLINE-ARGS */V93,VV[0],3,symbol_value(VV[12]))); |
|
|
goto T307; |
|
|
T307:; |
|
|
V91= cdr((V91)); |
|
|
V92= car((V91)); |
|
|
goto T302;} |
|
|
goto T298; |
|
|
T298:; |
|
|
if(((V66))!=Cnil){ |
|
592 |
goto T318;} |
goto T318;} |
593 |
if(((V67))==Cnil){ |
if((structure_ref(car((V96)),VV[0],2))==Cnil){ |
594 |
goto T319;} |
goto T317;} |
595 |
goto T318; |
goto T318; |
596 |
T318:; |
T318:; |
597 |
V94= reverse((V66)); |
V97= car((V96)); |
598 |
{object V95 = list(5,VV[21],(V64),/* INLINE-ARGS */V94,reverse((V67)),(V59)); |
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1))); |
599 |
|
(void)(structure_set(/* INLINE-ARGS */V97,VV[0],3,symbol_value(VV[12]))); |
600 |
|
goto T317; |
601 |
|
T317:; |
602 |
|
V95= cdr((V95)); |
603 |
|
V96= car((V95)); |
604 |
|
goto T312;} |
605 |
|
goto T308; |
606 |
|
T308:; |
607 |
|
if(((V68))!=Cnil){ |
608 |
|
goto T328;} |
609 |
|
if(((V69))==Cnil){ |
610 |
|
goto T329;} |
611 |
|
goto T328; |
612 |
|
T328:; |
613 |
|
V98= reverse((V68)); |
614 |
|
{object V99 = list(5,VV[21],(V66),/* INLINE-ARGS */V98,reverse((V69)),(V61)); |
615 |
bds_unwind1; |
bds_unwind1; |
616 |
VMR4(V95)} |
VMR4(V99)} |
617 |
goto T319; |
goto T329; |
618 |
T319:; |
T329:; |
619 |
{object V96 = (V59); |
{object V100 = (V61); |
620 |
bds_unwind1; |
bds_unwind1; |
621 |
VMR4(V96)}} |
VMR4(V100)}} |
622 |
base[0]=base[0]; |
base[0]=base[0]; |
623 |
return Cnil; |
return Cnil; |
624 |
} |
} |
629 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
630 |
vs_reserve(VM5); |
vs_reserve(VM5); |
631 |
bds_check; |
bds_check; |
632 |
{object V97; |
{object V101; |
633 |
object V98; |
object V102; |
634 |
object V99; |
object V103; |
635 |
check_arg(3); |
check_arg(3); |
636 |
V97=(base[0]); |
V101=(base[0]); |
637 |
V98=(base[1]); |
V102=(base[1]); |
638 |
V99=(base[2]); |
V103=(base[2]); |
639 |
vs_top=sup; |
vs_top=sup; |
640 |
goto TTL; |
goto TTL; |
641 |
TTL:; |
TTL:; |
642 |
bds_bind(VV[13],symbol_value(VV[13])); |
bds_bind(VV[13],symbol_value(VV[13])); |
643 |
bds_bind(VV[14],symbol_value(VV[14])); |
bds_bind(VV[14],symbol_value(VV[14])); |
644 |
{register object V100; |
{register object V104; |
645 |
object V101; |
object V105; |
646 |
V100= (V98); |
V104= (V102); |
647 |
V101= car((V100)); |
V105= car((V104)); |
648 |
goto T327; |
goto T337; |
649 |
T327:; |
T337:; |
650 |
if(!(endp_prop((V100)))){ |
if(!(endp_prop((V104)))){ |
651 |
goto T328;} |
goto T338;} |
652 |
goto T323; |
goto T333; |
653 |
goto T328; |
goto T338; |
654 |
T328:; |
T338:; |
655 |
{register object V102; |
{register object V106; |
656 |
V102= car((V101)); |
V106= car((V105)); |
657 |
V103= (*(LnkLI52))(); |
V107= (*(LnkLI52))(); |
658 |
(void)(structure_set((V102),VV[0],1,/* INLINE-ARGS */V103)); |
(void)(structure_set((V106),VV[0],1,/* INLINE-ARGS */V107)); |
659 |
princ_str("\n ",VV[20]); |
princ_str("\n ",VV[20]); |
660 |
V104= structure_ref((V102),VV[0],1); |
V108= structure_ref((V106),VV[0],1); |
661 |
(void)((*(LnkLI53))(/* INLINE-ARGS */V104)); |
(void)((*(LnkLI53))(/* INLINE-ARGS */V108)); |
662 |
princ_str("=MMcons(Cnil,",VV[20]); |
princ_str("=MMcons(Cnil,",VV[20]); |
663 |
(void)((VFUN_NARGS=0,(*(LnkLI55))())); |
(void)((VFUN_NARGS=0,(*(LnkLI55))())); |
664 |
princ_str(");",VV[20]); |
princ_str(");",VV[20]); |
665 |
V105= structure_ref((V102),VV[0],1); |
V109= structure_ref((V106),VV[0],1); |
666 |
(void)((*(LnkLI56))(/* INLINE-ARGS */V105)); |
(void)((*(LnkLI56))(/* INLINE-ARGS */V109)); |
667 |
V106= (*(LnkLI57))(); |
V110= (*(LnkLI57))(); |
668 |
(void)(structure_set((V102),VV[0],2,/* INLINE-ARGS */V106));} |
(void)(structure_set((V106),VV[0],2,/* INLINE-ARGS */V110));} |
669 |
V100= cdr((V100)); |
V104= cdr((V104)); |
670 |
V101= car((V100)); |
V105= car((V104)); |
671 |
goto T327;} |
goto T337;} |
672 |
goto T323; |
goto T333; |
673 |
T323:; |
T333:; |
674 |
{register object V107; |
{register object V111; |
675 |
object V108; |
object V112; |
676 |
V107= (V97); |
V111= (V101); |
677 |
V108= car((V107)); |
V112= car((V111)); |
678 |
goto T352; |
goto T362; |
679 |
T352:; |
T362:; |
680 |
if(!(endp_prop((V107)))){ |
if(!(endp_prop((V111)))){ |
681 |
goto T353;} |
goto T363;} |
682 |
goto T348; |
goto T358; |
683 |
goto T353; |
goto T363; |
684 |
T353:; |
T363:; |
685 |
(void)(structure_set(car((V108)),VV[0],4,symbol_value(VV[16])));{object V109; |
(void)(structure_set(car((V112)),VV[0],4,symbol_value(VV[16]))); |
686 |
V109= (VV[14]->s.s_dbind);{object V110; |
{object V113;{object V114; |
687 |
V110= symbol_value(VV[15]); |
V114= (VV[14]->s.s_dbind);{object V115; |
|
V111= list(5,Cnil,V109,V110,car((V108)),cadr((V108))); |
|
|
setq(VV[17],make_cons(/* INLINE-ARGS */V111,symbol_value(VV[17])));}} |
|
|
V107= cdr((V107)); |
|
|
V108= car((V107)); |
|
|
goto T352;} |
|
|
goto T348; |
|
|
T348:; |
|
|
{register object V112; |
|
|
register object V113; |
|
|
V112= (V98); |
|
|
V113= car((V112)); |
|
|
goto T369; |
|
|
T369:; |
|
|
if(!(endp_prop((V112)))){ |
|
|
goto T370;} |
|
|
goto T365; |
|
|
goto T370; |
|
|
T370:; |
|
|
if(((VV[14]->s.s_dbind))!=Cnil){ |
|
|
goto T378;} |
|
|
V114= Cnil; |
|
|
goto T376; |
|
|
goto T378; |
|
|
T378:; |
|
|
V114= make_cons(small_fixnum(0),small_fixnum(0)); |
|
|
goto T376; |
|
|
T376:;{object V115; |
|
688 |
V115= symbol_value(VV[15]); |
V115= symbol_value(VV[15]); |
689 |
V116= list(5,VV[18],V114,V115,car((V113)),cadr((V113))); |
V113= list(5,Cnil,V114,V115,car((V112)),cadr((V112)));}} |
690 |
setq(VV[17],make_cons(/* INLINE-ARGS */V116,symbol_value(VV[17])));} |
setq(VV[17],make_cons((V113),symbol_value(VV[17])));} |
691 |
setq(VV[19],make_cons(car((V113)),symbol_value(VV[19]))); |
V111= cdr((V111)); |
692 |
|
V112= car((V111)); |
693 |
|
goto T362;} |
694 |
|
goto T358; |
695 |
|
T358:; |
696 |
|
{register object V116; |
697 |
|
register object V117; |
698 |
|
V116= (V102); |
699 |
|
V117= car((V116)); |
700 |
|
goto T380; |
701 |
|
T380:; |
702 |
|
if(!(endp_prop((V116)))){ |
703 |
|
goto T381;} |
704 |
|
goto T376; |
705 |
|
goto T381; |
706 |
|
T381:; |
707 |
|
{object V118; |
708 |
|
if(((VV[14]->s.s_dbind))!=Cnil){ |
709 |
|
goto T389;} |
710 |
|
V119= Cnil; |
711 |
|
goto T387; |
712 |
|
goto T389; |
713 |
|
T389:; |
714 |
|
V119= make_cons(small_fixnum(0),small_fixnum(0)); |
715 |
|
goto T387; |
716 |
|
T387:;{object V120; |
717 |
|
V120= symbol_value(VV[15]); |
718 |
|
V118= list(5,VV[18],V119,V120,car((V117)),cadr((V117)));} |
719 |
|
setq(VV[17],make_cons((V118),symbol_value(VV[17])));} |
720 |
|
{object V121; |
721 |
|
V121= car((V117)); |
722 |
|
setq(VV[19],make_cons((V121),symbol_value(VV[19])));} |
723 |
princ_str("\n ",VV[20]); |
princ_str("\n ",VV[20]); |
724 |
V117= structure_ref(car((V113)),VV[0],1); |
V122= structure_ref(car((V117)),VV[0],1); |
725 |
(void)((*(LnkLI59))(/* INLINE-ARGS */V117)); |
(void)((*(LnkLI59))(/* INLINE-ARGS */V122)); |
726 |
princ_str("=make_cclosure_new(LC",VV[20]); |
princ_str("=make_cclosure_new(LC",VV[20]); |
727 |
V118= structure_ref(car((V113)),VV[0],3); |
V123= structure_ref(car((V117)),VV[0],3); |
728 |
(void)((*(LnkLI54))(/* INLINE-ARGS */V118)); |
(void)((*(LnkLI54))(/* INLINE-ARGS */V123)); |
729 |
princ_str(",Cnil,",VV[20]); |
princ_str(",Cnil,",VV[20]); |
730 |
(void)((VFUN_NARGS=0,(*(LnkLI55))())); |
(void)((VFUN_NARGS=0,(*(LnkLI55))())); |
731 |
princ_str(",Cdata);",VV[20]); |
princ_str(",Cdata);",VV[20]); |
732 |
V112= cdr((V112)); |
V116= cdr((V116)); |
733 |
V113= car((V112)); |
V117= car((V116)); |
734 |
goto T369;} |
goto T380;} |
735 |
goto T365; |
goto T376; |
736 |
T365:; |
T376:; |
737 |
base[5]= (V99); |
base[5]= (V103); |
738 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
739 |
(void) (*Lnk58)(); |
(void) (*Lnk58)(); |
740 |
bds_unwind1; |
bds_unwind1; |
744 |
} |
} |
745 |
/* local entry for function C1MACROLET */ |
/* local entry for function C1MACROLET */ |
746 |
|
|
747 |
static object LI6(V120) |
static object LI6(V125) |
748 |
|
|
749 |
object V120; |
object V125; |
750 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
751 |
bds_check; |
bds_check; |
752 |
goto TTL; |
goto TTL; |
753 |
TTL:; |
TTL:; |
754 |
{object V121; |
{object V126; |
755 |
object V122; |
object V127; |
756 |
object V123; |
object V128; |
757 |
object V124; |
object V129; |
758 |
object V125; |
object V130; |
759 |
V121= Cnil; |
V126= Cnil; |
760 |
V122= Cnil; |
V127= Cnil; |
761 |
V123= Cnil; |
V128= Cnil; |
762 |
V124= Cnil; |
V129= Cnil; |
763 |
V125= Cnil; |
V130= Cnil; |
764 |
bds_bind(VV[2],symbol_value(VV[2])); |
bds_bind(VV[2],symbol_value(VV[2])); |
765 |
bds_bind(VV[7],symbol_value(VV[7])); |
bds_bind(VV[7],symbol_value(VV[7])); |
766 |
if(!(endp_prop((V120)))){ |
if(!(endp_prop((V125)))){ |
|
goto T402;} |
|
|
(void)((*(LnkLI42))(VV[24],small_fixnum(1),small_fixnum(0))); |
|
|
goto T402; |
|
|
T402:; |
|
|
{register object V126; |
|
|
register object V127; |
|
|
V126= car((V120)); |
|
|
V127= car((V126)); |
|
|
goto T409; |
|
|
T409:; |
|
|
if(!(endp_prop((V126)))){ |
|
|
goto T410;} |
|
|
goto T405; |
|
|
goto T410; |
|
|
T410:; |
|
|
if(endp_prop((V127))){ |
|
|
goto T415;} |
|
|
if(!(type_of(car((V127)))==t_symbol)){ |
|
767 |
goto T415;} |
goto T415;} |
768 |
if(!(endp_prop(cdr((V127))))){ |
(void)((*(LnkLI42))(VV[24],small_fixnum(1),small_fixnum(0))); |
|
goto T414;} |
|
769 |
goto T415; |
goto T415; |
770 |
T415:; |
T415:; |
771 |
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[25],(V127)))); |
{register object V131; |
772 |
goto T414; |
register object V132; |
773 |
T414:; |
V131= car((V125)); |
774 |
V128= car((V127)); |
V132= car((V131)); |
775 |
V129= (*(LnkLI60))(car((V127)),cadr((V127)),cddr((V127))); |
goto T422; |
776 |
V130= list(2,/* INLINE-ARGS */V128,caddr(/* INLINE-ARGS */V129)); |
T422:; |
777 |
(VV[2]->s.s_dbind)= make_cons(/* INLINE-ARGS */V130,(VV[2]->s.s_dbind)); |
if(!(endp_prop((V131)))){ |
778 |
V126= cdr((V126)); |
goto T423;} |
779 |
V127= car((V126)); |
goto T418; |
780 |
goto T409;} |
goto T423; |
781 |
goto T405; |
T423:; |
782 |
T405:; |
if(endp_prop((V132))){ |
783 |
base[2]= cdr((V120)); |
goto T428;} |
784 |
|
if(!(type_of(car((V132)))==t_symbol)){ |
785 |
|
goto T428;} |
786 |
|
if(!(endp_prop(cdr((V132))))){ |
787 |
|
goto T427;} |
788 |
|
goto T428; |
789 |
|
T428:; |
790 |
|
(void)((VFUN_NARGS=2,(*(LnkLI43))(VV[25],(V132)))); |
791 |
|
goto T427; |
792 |
|
T427:; |
793 |
|
{register object V133; |
794 |
|
V134= car((V132)); |
795 |
|
V135= (*(LnkLI60))(car((V132)),cadr((V132)),cddr((V132))); |
796 |
|
V133= list(2,/* INLINE-ARGS */V134,caddr(/* INLINE-ARGS */V135)); |
797 |
|
(VV[2]->s.s_dbind)= make_cons((V133),(VV[2]->s.s_dbind));} |
798 |
|
V131= cdr((V131)); |
799 |
|
V132= car((V131)); |
800 |
|
goto T422;} |
801 |
|
goto T418; |
802 |
|
T418:; |
803 |
|
base[2]= cdr((V125)); |
804 |
base[3]= Ct; |
base[3]= Ct; |
805 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
806 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
807 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
808 |
V121= vs_base[0]; |
V126= vs_base[0]; |
809 |
vs_base++; |
vs_base++; |
810 |
}else{ |
}else{ |
811 |
V121= Cnil;} |
V126= Cnil;} |
812 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
813 |
V122= vs_base[0]; |
V127= vs_base[0]; |
814 |
vs_base++; |
vs_base++; |
815 |
}else{ |
}else{ |
816 |
V122= Cnil;} |
V127= Cnil;} |
817 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
818 |
V123= vs_base[0]; |
V128= vs_base[0]; |
819 |
vs_base++; |
vs_base++; |
820 |
}else{ |
}else{ |
821 |
V123= Cnil;} |
V128= Cnil;} |
822 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
823 |
V124= vs_base[0]; |
V129= vs_base[0]; |
824 |
vs_base++; |
vs_base++; |
825 |
}else{ |
}else{ |
826 |
V124= Cnil;} |
V129= Cnil;} |
827 |
if(vs_base<vs_top){ |
if(vs_base<vs_top){ |
828 |
V125= vs_base[0]; |
V130= vs_base[0]; |
829 |
}else{ |
}else{ |
830 |
V125= Cnil;} |
V130= Cnil;} |
831 |
vs_top=sup; |
vs_top=sup; |
832 |
(void)((*(LnkLI46))((V122))); |
(void)((*(LnkLI46))((V127))); |
833 |
(void)((*(LnkLI47))(Cnil,(V123),(V124))); |
(void)((*(LnkLI47))(Cnil,(V128),(V129))); |
834 |
{object V131 = (*(LnkLI48))((V125),(V121)); |
{object V136 = (*(LnkLI48))((V130),(V126)); |
835 |
bds_unwind1; |
bds_unwind1; |
836 |
bds_unwind1; |
bds_unwind1; |
837 |
VMR6(V131)}} |
VMR6(V136)}} |
838 |
base[0]=base[0]; |
base[0]=base[0]; |
839 |
return Cnil; |
return Cnil; |
840 |
} |
} |
841 |
/* local entry for function C1LOCAL-FUN */ |
/* local entry for function C1LOCAL-FUN */ |
842 |
|
|
843 |
static object LI7(V133) |
static object LI7(V138) |
844 |
|
|
845 |
register object V133; |
register object V138; |
846 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
847 |
goto TTL; |
goto TTL; |
848 |
TTL:; |
TTL:; |
849 |
{register object V134; |
{register object V139; |
850 |
V134= Cnil; |
V139= Cnil; |
851 |
{register object V135; |
{register object V140; |
852 |
register object V136; |
register object V141; |
853 |
V135= symbol_value(VV[2]); |
V140= symbol_value(VV[2]); |
854 |
V136= car((V135)); |
V141= car((V140)); |
855 |
goto T438; |
goto T452; |
856 |
T438:; |
T452:; |
857 |
if(!(endp_prop((V135)))){ |
if(!(endp_prop((V140)))){ |
858 |
goto T439;} |
goto T453;} |
859 |
{object V137 = Cnil; |
{object V142 = Cnil; |
860 |
VMR7(V137)} |
VMR7(V142)} |
861 |
goto T439; |
goto T453; |
862 |
T439:; |
T453:; |
863 |
if(!(((V136))==(VV[8]))){ |
if(!(((V141))==(VV[8]))){ |
864 |
goto T445;} |
goto T459;} |
865 |
V134= Ct; |
V139= Ct; |
866 |
goto T443; |
goto T457; |
867 |
goto T445; |
goto T459; |
868 |
T445:; |
T459:; |
869 |
if(!(type_of((V136))==t_cons)){ |
if(!(type_of((V141))==t_cons)){ |
870 |
goto T449;} |
goto T463;} |
871 |
if(!((car((V136)))==((V133)))){ |
if(!((car((V141)))==((V138)))){ |
|
goto T443;} |
|
|
{object V138 = cadr((V136)); |
|
|
VMR7(V138)} |
|
|
goto T449; |
|
|
T449:; |
|
|
V139= structure_ref((V136),VV[0],0); |
|
|
if(!((/* INLINE-ARGS */V139)==((V133)))){ |
|
|
goto T443;} |
|
|
if(((V134))==Cnil){ |
|
872 |
goto T457;} |
goto T457;} |
873 |
(void)(structure_set((V136),VV[0],2,Ct)); |
{object V143 = cadr((V141)); |
874 |
goto T455; |
VMR7(V143)} |
875 |
|
goto T463; |
876 |
|
T463:; |
877 |
|
V144= structure_ref((V141),VV[0],0); |
878 |
|
if(!((/* INLINE-ARGS */V144)==((V138)))){ |
879 |
|
goto T457;} |
880 |
|
if(((V139))==Cnil){ |
881 |
|
goto T471;} |
882 |
|
(void)(structure_set((V141),VV[0],2,Ct)); |
883 |
|
goto T469; |
884 |
|
goto T471; |
885 |
|
T471:; |
886 |
|
(void)(structure_set((V141),VV[0],1,Ct)); |
887 |
|
goto T469; |
888 |
|
T469:; |
889 |
|
{object V145 = list(4,VV[26],symbol_value(VV[27]),(V141),(V139)); |
890 |
|
VMR7(V145)} |
891 |
goto T457; |
goto T457; |
892 |
T457:; |
T457:; |
893 |
(void)(structure_set((V136),VV[0],1,Ct)); |
V140= cdr((V140)); |
894 |
goto T455; |
V141= car((V140)); |
895 |
T455:; |
goto T452;}} |
|
{object V140 = list(4,VV[26],symbol_value(VV[27]),(V136),(V134)); |
|
|
VMR7(V140)} |
|
|
goto T443; |
|
|
T443:; |
|
|
V135= cdr((V135)); |
|
|
V136= car((V135)); |
|
|
goto T438;}} |
|
896 |
base[0]=base[0]; |
base[0]=base[0]; |
897 |
return Cnil; |
return Cnil; |
898 |
} |
} |
899 |
/* local entry for function SCH-LOCAL-FUN */ |
/* local entry for function SCH-LOCAL-FUN */ |
900 |
|
|
901 |
static object LI8(V142) |
static object LI8(V147) |
902 |
|
|
903 |
register object V142; |
register object V147; |
904 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
905 |
goto TTL; |
goto TTL; |
906 |
TTL:; |
TTL:; |
907 |
{register object V143; |
{register object V148; |
908 |
register object V144; |
register object V149; |
909 |
V143= symbol_value(VV[2]); |
V148= symbol_value(VV[2]); |
910 |
V144= car((V143)); |
V149= car((V148)); |
911 |
goto T467; |
goto T481; |
912 |
T467:; |
T481:; |
913 |
if(!(endp_prop((V143)))){ |
if(!(endp_prop((V148)))){ |
914 |
goto T468;} |
goto T482;} |
915 |
{object V145 = (V142); |
{object V150 = (V147); |
916 |
VMR8(V145)} |
VMR8(V150)} |
917 |
goto T468; |
goto T482; |
918 |
T468:; |
T482:; |
919 |
if(((V144))==(VV[8])){ |
if(((V149))==(VV[8])){ |
920 |
goto T472;} |
goto T486;} |
921 |
if(type_of((V144))==t_cons){ |
if(type_of((V149))==t_cons){ |
922 |
goto T472;} |
goto T486;} |
923 |
V146= structure_ref((V144),VV[0],0); |
V151= structure_ref((V149),VV[0],0); |
924 |
if(!((/* INLINE-ARGS */V146)==((V142)))){ |
if(!((/* INLINE-ARGS */V151)==((V147)))){ |
925 |
goto T472;} |
goto T486;} |
926 |
{object V147 = (V144); |
{object V152 = (V149); |
927 |
VMR8(V147)} |
VMR8(V152)} |
928 |
goto T472; |
goto T486; |
929 |
T472:; |
T486:; |
930 |
V143= cdr((V143)); |
V148= cdr((V148)); |
931 |
V144= car((V143)); |
V149= car((V148)); |
932 |
goto T467;} |
goto T481;} |
933 |
base[0]=base[0]; |
base[0]=base[0]; |
934 |
return Cnil; |
return Cnil; |
935 |
} |
} |
936 |
/* local entry for function C1LOCAL-CLOSURE */ |
/* local entry for function C1LOCAL-CLOSURE */ |
937 |
|
|
938 |
static object LI9(V149) |
static object LI9(V154) |
939 |
|
|
940 |
register object V149; |
register object V154; |
941 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
942 |
goto TTL; |
goto TTL; |
943 |
TTL:; |
TTL:; |
944 |
{register object V150; |
{register object V155; |
945 |
V150= Cnil; |
V155= Cnil; |
946 |
{register object V151; |
{register object V156; |
947 |
register object V152; |
register object V157; |
948 |
V151= symbol_value(VV[2]); |
V156= symbol_value(VV[2]); |
949 |
V152= car((V151)); |
V157= car((V156)); |
950 |
goto T488; |
goto T502; |
951 |
T488:; |
T502:; |
952 |
if(!(endp_prop((V151)))){ |
if(!(endp_prop((V156)))){ |
953 |
goto T489;} |
goto T503;} |
954 |
{object V153 = Cnil; |
{object V158 = Cnil; |
955 |
VMR9(V153)} |
VMR9(V158)} |
956 |
goto T489; |
goto T503; |
957 |
T489:; |
T503:; |
958 |
if(!(((V152))==(VV[8]))){ |
if(!(((V157))==(VV[8]))){ |
959 |
goto T495;} |
goto T509;} |
960 |
V150= Ct; |
V155= Ct; |
961 |
goto T493; |
goto T507; |
962 |
goto T495; |
goto T509; |
963 |
T495:; |
T509:; |
964 |
if(!(type_of((V152))==t_cons)){ |
if(!(type_of((V157))==t_cons)){ |
965 |
goto T499;} |
goto T513;} |
966 |
if(!((car((V152)))==((V149)))){ |
if(!((car((V157)))==((V154)))){ |
967 |
goto T493;} |
goto T507;} |
968 |
{object V154 = cadr((V152)); |
{object V159 = cadr((V157)); |
969 |
VMR9(V154)} |
VMR9(V159)} |
970 |
goto T499; |
goto T513; |
971 |
T499:; |
T513:; |
972 |
V155= structure_ref((V152),VV[0],0); |
V160= structure_ref((V157),VV[0],0); |
973 |
if(!((/* INLINE-ARGS */V155)==((V149)))){ |
if(!((/* INLINE-ARGS */V160)==((V154)))){ |
974 |
goto T493;} |
goto T507;} |
975 |
(void)(structure_set((V152),VV[0],2,Ct)); |
(void)(structure_set((V157),VV[0],2,Ct)); |
976 |
{object V156 = list(4,VV[26],symbol_value(VV[27]),(V152),(V150)); |
{object V161 = list(4,VV[26],symbol_value(VV[27]),(V157),(V155)); |
977 |
VMR9(V156)} |
VMR9(V161)} |
978 |
goto T493; |
goto T507; |
979 |
T493:; |
T507:; |
980 |
V151= cdr((V151)); |
V156= cdr((V156)); |
981 |
V152= car((V151)); |
V157= car((V156)); |
982 |
goto T488;}} |
goto T502;}} |
983 |
base[0]=base[0]; |
base[0]=base[0]; |
984 |
return Cnil; |
return Cnil; |
985 |
} |
} |
986 |
/* local entry for function C2CALL-LOCAL */ |
/* local entry for function C2CALL-LOCAL */ |
987 |
|
|
988 |
static object LI10(V159,V160) |
static object LI10(V164,V165) |
989 |
|
|
990 |
register object V159;register object V160; |
register object V164;register object V165; |
991 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
992 |
bds_check; |
bds_check; |
993 |
goto TTL; |
goto TTL; |
994 |
TTL:; |
TTL:; |
995 |
bds_bind(VV[13],symbol_value(VV[13])); |
bds_bind(VV[13],symbol_value(VV[13])); |
996 |
if((cadr((V159)))==Cnil){ |
if((cadr((V164)))==Cnil){ |
997 |
goto T513;} |
goto T527;} |
998 |
(void)((*(LnkLI61))((V160))); |
(void)((*(LnkLI61))((V165))); |
999 |
princ_str("\n cclosure_call(",VV[20]); |
princ_str("\n cclosure_call(",VV[20]); |
1000 |
V161= structure_ref(car((V159)),VV[0],2); |
V166= structure_ref(car((V164)),VV[0],2); |
1001 |
(void)((*(LnkLI62))(/* INLINE-ARGS */V161)); |
(void)((*(LnkLI62))(/* INLINE-ARGS */V166)); |
1002 |
princ_str(");",VV[20]); |
princ_str(");",VV[20]); |
1003 |
goto T511; |
goto T525; |
1004 |
goto T513; |
goto T527; |
1005 |
T513:; |
T527:; |
1006 |
if(!(type_of((V160))==t_cons||((V160))==Cnil)){ |
if(!(type_of((V165))==t_cons||((V165))==Cnil)){ |
1007 |
goto T521;} |
goto T535;} |
1008 |
if((symbol_value(VV[28]))==Cnil){ |
if((symbol_value(VV[28]))==Cnil){ |
1009 |
goto T521;} |
goto T535;} |
1010 |
if((symbol_value(VV[29]))==Cnil){ |
if((symbol_value(VV[29]))==Cnil){ |
1011 |
goto T521;} |
goto T535;} |
1012 |
if(!((car(symbol_value(VV[29])))==(car((V159))))){ |
if(!((car(symbol_value(VV[29])))==(car((V164))))){ |
1013 |
goto T521;} |
goto T535;} |
1014 |
if(!((symbol_value(VV[30]))==(VV[31]))){ |
if(!((symbol_value(VV[30]))==(VV[31]))){ |
1015 |
goto T521;} |
goto T535;} |
1016 |
if(((*(LnkLI63))())==Cnil){ |
if(((*(LnkLI63))())==Cnil){ |
1017 |
goto T521;} |
goto T535;} |
1018 |
if(!(((long)length((V160)))==((long)length(cdr(symbol_value(VV[29])))))){ |
if(!(((long)length((V165)))==((long)length(cdr(symbol_value(VV[29])))))){ |
1019 |
goto T521;} |
goto T535;} |
1020 |
bds_bind(VV[32],VV[33]); |
bds_bind(VV[32],VV[33]); |
1021 |
setq(VV[34],number_plus(symbol_value(VV[34]),small_fixnum(1))); |
setq(VV[34],number_plus(symbol_value(VV[34]),small_fixnum(1))); |
1022 |
bds_bind(VV[30],make_cons(symbol_value(VV[34]),Cnil)); |
bds_bind(VV[30],make_cons(symbol_value(VV[34]),Cnil)); |
1023 |
bds_bind(VV[35],make_cons((VV[30]->s.s_dbind),symbol_value(VV[35]))); |
bds_bind(VV[35],make_cons((VV[30]->s.s_dbind),symbol_value(VV[35]))); |
1024 |
{object V163; |
{object V168; |
1025 |
object V164= cdr(symbol_value(VV[29])); |
object V169= cdr(symbol_value(VV[29])); |
1026 |
if(endp(V164)){ |
if(endp(V169)){ |
1027 |
V162= Cnil; |
V167= Cnil; |
1028 |
goto T540;} |
goto T554;} |
1029 |
base[4]=V163=MMcons(Cnil,Cnil); |
base[4]=V168=MMcons(Cnil,Cnil); |
1030 |
goto T541; |
goto T555; |
1031 |
T541:; |
T555:; |
1032 |
(V163->c.c_car)= list(2,(V164->c.c_car),Cnil); |
(V168->c.c_car)= list(2,(V169->c.c_car),Cnil); |
1033 |
V164=MMcdr(V164); |
V169=MMcdr(V169); |
1034 |
if(endp(V164)){ |
if(endp(V169)){ |
1035 |
V162= base[4]; |
V167= base[4]; |
1036 |
goto T540;} |
goto T554;} |
1037 |
V163=MMcdr(V163)=MMcons(Cnil,Cnil); |
V168=MMcdr(V168)=MMcons(Cnil,Cnil); |
1038 |
goto T541;} |
goto T555;} |
1039 |
goto T540; |
goto T554; |
1040 |
T540:; |
T554:; |
1041 |
(void)((*(LnkLI64))(V162,(V160))); |
(void)((*(LnkLI64))(V167,(V165))); |
1042 |
if((cdr((VV[30]->s.s_dbind)))==Cnil){ |
if((cdr((VV[30]->s.s_dbind)))==Cnil){ |
1043 |
bds_unwind1; |
bds_unwind1; |
1044 |
bds_unwind1; |
bds_unwind1; |
1045 |
bds_unwind1; |
bds_unwind1; |
1046 |
goto T535;} |
goto T549;} |
1047 |
princ_str("\ngoto T",VV[20]); |
princ_str("\ngoto T",VV[20]); |
1048 |
(void)((*(LnkLI54))(car((VV[30]->s.s_dbind)))); |
(void)((*(LnkLI54))(car((VV[30]->s.s_dbind)))); |
1049 |
princ_char(59,VV[20]); |
princ_char(59,VV[20]); |
1053 |
bds_unwind1; |
bds_unwind1; |
1054 |
bds_unwind1; |
bds_unwind1; |
1055 |
bds_unwind1; |
bds_unwind1; |
1056 |
goto T535; |
goto T549; |
1057 |
T535:; |
T549:; |
1058 |
(void)((*(LnkLI65))(VV[36])); |
(void)((*(LnkLI65))(VV[36])); |
1059 |
princ_str("\n goto TTL;",VV[20]); |
princ_str("\n goto TTL;",VV[20]); |
1060 |
V166= structure_ref(car((V159)),VV[0],0); |
V171= structure_ref(car((V164)),VV[0],0); |
1061 |
(void)((VFUN_NARGS=2,(*(LnkLI66))(VV[37],/* INLINE-ARGS */V166))); |
(void)((VFUN_NARGS=2,(*(LnkLI66))(VV[37],/* INLINE-ARGS */V171))); |
1062 |
goto T511; |
goto T525; |
1063 |
goto T521; |
goto T535; |
1064 |
T521:; |
T535:; |
1065 |
(void)((*(LnkLI61))((V160))); |
(void)((*(LnkLI61))((V165))); |
1066 |
princ_str("\n L",VV[20]); |
princ_str("\n L",VV[20]); |
1067 |
V167= structure_ref(car((V159)),VV[0],3); |
V172= structure_ref(car((V164)),VV[0],3); |
1068 |
(void)((*(LnkLI54))(/* INLINE-ARGS */V167)); |
(void)((*(LnkLI54))(/* INLINE-ARGS */V172)); |
1069 |
princ_char(40,VV[20]); |
princ_char(40,VV[20]); |
1070 |
{register long V168; |
{register long V173; |
1071 |
register long V169; |
register long V174; |
1072 |
V168= fix(structure_ref(car((V159)),VV[0],4)); |
V173= fix(structure_ref(car((V164)),VV[0],4)); |
1073 |
V169= 0; |
V174= 0; |
1074 |
goto T564; |
goto T578; |
1075 |
T564:; |
T578:; |
1076 |
if(!((V169)>=(V168))){ |
if(!((V174)>=(V173))){ |
1077 |
goto T565;} |
goto T579;} |
1078 |
goto T560; |
goto T574; |
1079 |
goto T565; |
goto T579; |
1080 |
T565:; |
T579:; |
1081 |
princ_str("base",VV[20]); |
princ_str("base",VV[20]); |
1082 |
V170 = make_fixnum(V169); |
V175 = make_fixnum(V174); |
1083 |
(void)((*(LnkLI54))(V170)); |
(void)((*(LnkLI54))(V175)); |
1084 |
princ_char(44,VV[20]); |
princ_char(44,VV[20]); |
1085 |
V169= (long)(V169)+1; |
V174= (long)(V174)+1; |
|
goto T564;} |
|
|
goto T560; |
|
|
T560:; |
|
|
princ_str("base",VV[20]); |
|
|
V171= structure_ref(car((V159)),VV[0],4); |
|
|
if(number_compare(/* INLINE-ARGS */V171,symbol_value(VV[16]))==0){ |
|
1086 |
goto T578;} |
goto T578;} |
1087 |
V172= structure_ref(car((V159)),VV[0],4); |
goto T574; |
1088 |
(void)((*(LnkLI54))(/* INLINE-ARGS */V172)); |
T574:; |
1089 |
goto T578; |
princ_str("base",VV[20]); |
1090 |
T578:; |
V176= structure_ref(car((V164)),VV[0],4); |
1091 |
|
if(number_compare(/* INLINE-ARGS */V176,symbol_value(VV[16]))==0){ |
1092 |
|
goto T592;} |
1093 |
|
V177= structure_ref(car((V164)),VV[0],4); |
1094 |
|
(void)((*(LnkLI54))(/* INLINE-ARGS */V177)); |
1095 |
|
goto T592; |
1096 |
|
T592:; |
1097 |
princ_str(");",VV[20]); |
princ_str(");",VV[20]); |
1098 |
setq(VV[38],Ct); |
setq(VV[38],Ct); |
1099 |
goto T511; |
goto T525; |
1100 |
T511:; |
T525:; |
1101 |
{object V173 = (VFUN_NARGS=1,(*(LnkLI67))(VV[39])); |
{object V178 = (VFUN_NARGS=1,(*(LnkLI67))(VV[39])); |
1102 |
bds_unwind1; |
bds_unwind1; |
1103 |
VMR10(V173)} |
VMR10(V178)} |
1104 |
base[0]=base[0]; |
base[0]=base[0]; |
1105 |
return Cnil; |
return Cnil; |
1106 |
} |
} |