138 |
|
|
139 |
static object LI5(V28) |
static object LI5(V28) |
140 |
|
|
141 |
register object V28; |
object V28; |
142 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
143 |
goto TTL; |
goto TTL; |
144 |
TTL:; |
TTL:; |
175 |
(void)((VFUN_NARGS=2,(*(LnkLI53))(VV[9],(V32)))); |
(void)((VFUN_NARGS=2,(*(LnkLI53))(VV[9],(V32)))); |
176 |
goto T66; |
goto T66; |
177 |
T66:; |
T66:; |
178 |
V29= make_cons(car((V32)),(V29)); |
{register object V33; |
179 |
|
V33= car((V32)); |
180 |
|
V29= make_cons((V33),(V29));} |
181 |
|
{register object V34; |
182 |
if(!(endp_prop(cdr((V32))))){ |
if(!(endp_prop(cdr((V32))))){ |
183 |
goto T78;} |
goto T78;} |
184 |
V33= Cnil; |
V34= Cnil; |
185 |
goto T76; |
goto T76; |
186 |
goto T78; |
goto T78; |
187 |
T78:; |
T78:; |
188 |
base[2]= cadr((V32)); |
base[3]= cadr((V32)); |
189 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+3)+1; |
190 |
Leval(); |
Leval(); |
191 |
vs_top=sup; |
vs_top=sup; |
192 |
V33= vs_base[0]; |
V34= vs_base[0]; |
193 |
goto T76; |
goto T76; |
194 |
T76:; |
T76:; |
195 |
V30= make_cons(V33,(V30)); |
V30= make_cons((V34),(V30)); |
196 |
goto T62; |
goto T62;} |
197 |
goto T64; |
goto T64; |
198 |
T64:; |
T64:; |
199 |
if(!(type_of((V32))==t_symbol)){ |
if(!(type_of((V32))==t_symbol)){ |
200 |
goto T82;} |
goto T83;} |
201 |
V29= make_cons((V32),(V29)); |
{register object V35; |
202 |
V30= make_cons(Cnil,(V30)); |
V35= (V32); |
203 |
goto T62; |
V29= make_cons((V35),(V29));} |
204 |
goto T82; |
{register object V36; |
205 |
T82:; |
V36= Cnil; |
206 |
|
V30= make_cons((V36),(V30)); |
207 |
|
goto T62;} |
208 |
|
goto T83; |
209 |
|
T83:; |
210 |
(void)((VFUN_NARGS=2,(*(LnkLI53))(VV[10],(V32)))); |
(void)((VFUN_NARGS=2,(*(LnkLI53))(VV[10],(V32)))); |
211 |
goto T62; |
goto T62; |
212 |
T62:; |
T62:; |
218 |
V29= reverse((V29)); |
V29= reverse((V29)); |
219 |
V30= reverse((V30)); |
V30= reverse((V30)); |
220 |
{object symbols,values; |
{object symbols,values; |
221 |
bds_ptr V34=bds_top; |
bds_ptr V37=bds_top; |
222 |
base[0]= (V29); |
base[0]= (V29); |
223 |
symbols= base[0]; |
symbols= base[0]; |
224 |
base[1]= (V30); |
base[1]= (V30); |
230 |
else{bds_bind(MMcar(symbols),MMcar(values)); |
else{bds_bind(MMcar(symbols),MMcar(values)); |
231 |
values=MMcdr(values);} |
values=MMcdr(values);} |
232 |
symbols=MMcdr(symbols);} |
symbols=MMcdr(symbols);} |
233 |
V35= (*(LnkLI50))(cdr((V28))); |
V38= (*(LnkLI50))(cdr((V28))); |
234 |
bds_unwind(V34); |
bds_unwind(V37); |
235 |
V28= V35;} |
V28= V38;} |
236 |
{object V36 = list(5,VV[8],cadr((V28)),(V29),(V30),(V28)); |
{object V39 = list(5,VV[8],cadr((V28)),(V29),(V30),(V28)); |
237 |
VMR5(V36)}} |
VMR5(V39)}} |
238 |
base[0]=base[0]; |
base[0]=base[0]; |
239 |
return Cnil; |
return Cnil; |
240 |
} |
} |
244 |
{register object *base=vs_base; |
{register object *base=vs_base; |
245 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM6; VC6 |
246 |
vs_reserve(VM6); |
vs_reserve(VM6); |
247 |
{object V37; |
{object V40; |
248 |
object V38; |
object V41; |
249 |
object V39; |
object V42; |
250 |
check_arg(3); |
check_arg(3); |
251 |
V37=(base[0]); |
V40=(base[0]); |
252 |
V38=(base[1]); |
V41=(base[1]); |
253 |
V39=(base[2]); |
V42=(base[2]); |
254 |
vs_top=sup; |
vs_top=sup; |
255 |
goto TTL; |
goto TTL; |
256 |
TTL:; |
TTL:; |
257 |
{object symbols,values; |
{object symbols,values; |
258 |
bds_ptr V40=bds_top; |
bds_ptr V43=bds_top; |
259 |
base[3]= (V37); |
base[3]= (V40); |
260 |
symbols= base[3]; |
symbols= base[3]; |
261 |
base[4]= (V38); |
base[4]= (V41); |
262 |
values= base[4]; |
values= base[4]; |
263 |
while(!endp(symbols)){ |
while(!endp(symbols)){ |
264 |
if(type_of(MMcar(symbols))!=t_symbol) |
if(type_of(MMcar(symbols))!=t_symbol) |
267 |
else{bds_bind(MMcar(symbols),MMcar(values)); |
else{bds_bind(MMcar(symbols),MMcar(values)); |
268 |
values=MMcdr(values);} |
values=MMcdr(values);} |
269 |
symbols=MMcdr(symbols);} |
symbols=MMcdr(symbols);} |
270 |
base[3]= (V39); |
base[3]= (V42); |
271 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
272 |
(void) (*Lnk59)(); |
(void) (*Lnk59)(); |
273 |
bds_unwind(V40); |
bds_unwind(V43); |
274 |
return;} |
return;} |
275 |
} |
} |
276 |
} |
} |
277 |
/* local entry for function C1FUNCTION */ |
/* local entry for function C1FUNCTION */ |
278 |
|
|
279 |
static object LI7(V42) |
static object LI7(V45) |
280 |
|
|
281 |
register object V42; |
register object V45; |
282 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
283 |
bds_check; |
bds_check; |
284 |
goto TTL; |
goto TTL; |
285 |
TTL:; |
TTL:; |
286 |
{object V43; |
{object V46; |
287 |
V43= Cnil; |
V46= Cnil; |
288 |
if(!(endp_prop((V42)))){ |
if(!(endp_prop((V45)))){ |
|
goto T104;} |
|
|
(void)((*(LnkLI45))(VV[11],small_fixnum(1),small_fixnum(0))); |
|
|
goto T104; |
|
|
T104:; |
|
|
if(endp_prop(cdr((V42)))){ |
|
289 |
goto T107;} |
goto T107;} |
290 |
V44 = make_fixnum((long)length((V42))); |
(void)((*(LnkLI45))(VV[11],small_fixnum(1),small_fixnum(0))); |
|
(void)((*(LnkLI46))(VV[11],small_fixnum(1),V44)); |
|
291 |
goto T107; |
goto T107; |
292 |
T107:; |
T107:; |
293 |
{register object V45; |
if(endp_prop(cdr((V45)))){ |
294 |
V45= car((V42)); |
goto T110;} |
295 |
if(!(type_of((V45))==t_symbol)){ |
V47 = make_fixnum((long)length((V45))); |
296 |
goto T112;} |
(void)((*(LnkLI46))(VV[11],small_fixnum(1),V47)); |
297 |
V43= (*(LnkLI60))((V45)); |
goto T110; |
298 |
if(((V43))==Cnil){ |
T110:; |
299 |
|
{register object V48; |
300 |
|
V48= car((V45)); |
301 |
|
if(!(type_of((V48))==t_symbol)){ |
302 |
goto T115;} |
goto T115;} |
303 |
if(!((car((V43)))==(VV[12]))){ |
V46= (*(LnkLI60))((V48)); |
304 |
goto T115;} |
if(((V46))==Cnil){ |
305 |
{object V46 = list(3,VV[11],symbol_value(VV[13]),(V43)); |
goto T118;} |
306 |
VMR7(V46)} |
if(!((car((V46)))==(VV[12]))){ |
307 |
|
goto T118;} |
308 |
|
{object V49 = list(3,VV[11],symbol_value(VV[13]),(V46)); |
309 |
|
VMR7(V49)} |
310 |
|
goto T118; |
311 |
|
T118:; |
312 |
|
{object V50; |
313 |
|
V51= get((V48),VV[15],Cnil); |
314 |
|
V50= (VFUN_NARGS=2,(*(LnkLI61))(VV[14],((V51)==Cnil?Ct:Cnil))); |
315 |
|
{object V52 = list(3,VV[11],(V50),list(3,VV[16],(V50),(V48))); |
316 |
|
VMR7(V52)}} |
317 |
goto T115; |
goto T115; |
318 |
T115:; |
T115:; |
319 |
{object V47; |
if(!(type_of((V48))==t_cons)){ |
320 |
V48= get((V45),VV[15],Cnil); |
goto T126;} |
321 |
V47= (VFUN_NARGS=2,(*(LnkLI61))(VV[14],((V48)==Cnil?Ct:Cnil))); |
if(!((car((V48)))==(VV[17]))){ |
322 |
{object V49 = list(3,VV[11],(V47),list(3,VV[16],(V47),(V45))); |
goto T126;} |
323 |
VMR7(V49)}} |
if(!(endp_prop(cdr((V48))))){ |
324 |
goto T112; |
goto T130;} |
325 |
T112:; |
(void)((VFUN_NARGS=2,(*(LnkLI53))(VV[18],(V48)))); |
326 |
if(!(type_of((V45))==t_cons)){ |
goto T130; |
327 |
goto T123;} |
T130:; |
|
if(!((car((V45)))==(VV[17]))){ |
|
|
goto T123;} |
|
|
if(!(endp_prop(cdr((V45))))){ |
|
|
goto T127;} |
|
|
(void)((VFUN_NARGS=2,(*(LnkLI53))(VV[18],(V45)))); |
|
|
goto T127; |
|
|
T127:; |
|
328 |
base[0]= make_cons(VV[20],symbol_value(VV[19])); |
base[0]= make_cons(VV[20],symbol_value(VV[19])); |
329 |
base[1]= make_cons(VV[20],symbol_value(VV[21])); |
base[1]= make_cons(VV[20],symbol_value(VV[21])); |
330 |
base[2]= make_cons(VV[20],symbol_value(VV[22])); |
base[2]= make_cons(VV[20],symbol_value(VV[22])); |
333 |
bds_bind(VV[21],base[1]); |
bds_bind(VV[21],base[1]); |
334 |
bds_bind(VV[22],base[2]); |
bds_bind(VV[22],base[2]); |
335 |
bds_bind(VV[23],base[3]); |
bds_bind(VV[23],base[3]); |
336 |
V45= (VFUN_NARGS=1,(*(LnkLI62))(cdr((V45)))); |
V48= (VFUN_NARGS=1,(*(LnkLI62))(cdr((V48)))); |
337 |
{object V50 = list(3,VV[11],cadr((V45)),(V45)); |
{object V53 = list(3,VV[11],cadr((V48)),(V48)); |
338 |
bds_unwind1; |
bds_unwind1; |
339 |
bds_unwind1; |
bds_unwind1; |
340 |
bds_unwind1; |
bds_unwind1; |
341 |
bds_unwind1; |
bds_unwind1; |
342 |
VMR7(V50)} |
VMR7(V53)} |
343 |
goto T123; |
goto T126; |
344 |
T123:; |
T126:; |
345 |
{object V51 = (VFUN_NARGS=2,(*(LnkLI53))(VV[24],(V45))); |
{object V54 = (VFUN_NARGS=2,(*(LnkLI53))(VV[24],(V48))); |
346 |
VMR7(V51)}}} |
VMR7(V54)}}} |
347 |
base[0]=base[0]; |
base[0]=base[0]; |
348 |
return Cnil; |
return Cnil; |
349 |
} |
} |
350 |
/* local entry for function C2FUNCTION */ |
/* local entry for function C2FUNCTION */ |
351 |
|
|
352 |
static object LI8(V53) |
static object LI8(V56) |
353 |
|
|
354 |
register object V53; |
register object V56; |
355 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
356 |
goto TTL; |
goto TTL; |
357 |
TTL:; |
TTL:; |
358 |
{object V54= car((V53)); |
{object V57= car((V56)); |
359 |
if((V54!= VV[16]))goto T136; |
if((V57!= VV[16]))goto T139; |
360 |
V55= list(2,VV[25],(*(LnkLI64))(caddr((V53)))); |
V58= list(2,VV[25],(*(LnkLI64))(caddr((V56)))); |
361 |
{object V56 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V55)); |
{object V59 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V58)); |
362 |
VMR8(V56)} |
VMR8(V59)} |
|
goto T136; |
|
|
T136:; |
|
|
if((V54!= VV[12]))goto T137; |
|
|
if((cadddr((V53)))==Cnil){ |
|
|
goto T139;} |
|
|
V57= list(2,VV[26],structure_ref(caddr((V53)),VV[27],2)); |
|
|
{object V58 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V57)); |
|
|
VMR8(V58)} |
|
363 |
goto T139; |
goto T139; |
364 |
T139:; |
T139:; |
365 |
V59= list(2,VV[28],structure_ref(caddr((V53)),VV[27],1)); |
if((V57!= VV[12]))goto T140; |
366 |
{object V60 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V59)); |
if((cadddr((V56)))==Cnil){ |
367 |
VMR8(V60)} |
goto T142;} |
368 |
goto T137; |
V60= list(2,VV[26],structure_ref(caddr((V56)),VV[27],2)); |
369 |
T137:; |
{object V61 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V60)); |
370 |
{register object V61; |
VMR8(V61)} |
371 |
|
goto T142; |
372 |
|
T142:; |
373 |
|
V62= list(2,VV[28],structure_ref(caddr((V56)),VV[27],1)); |
374 |
|
{object V63 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V62)); |
375 |
|
VMR8(V63)} |
376 |
|
goto T140; |
377 |
|
T140:; |
378 |
|
{register object V64; |
379 |
setq(VV[32],number_plus(symbol_value(VV[32]),small_fixnum(1))); |
setq(VV[32],number_plus(symbol_value(VV[32]),small_fixnum(1))); |
380 |
V61= (VFUN_NARGS=4,(*(LnkLI65))(VV[29],VV[30],VV[31],symbol_value(VV[32]))); |
V64= (VFUN_NARGS=4,(*(LnkLI65))(VV[29],VV[30],VV[31],symbol_value(VV[32]))); |
381 |
if((symbol_value(VV[34]))!=Cnil){ |
{object V65; |
382 |
goto T147;} |
if((symbol_value(VV[33]))!=Cnil){ |
383 |
V62= Cnil; |
goto T150;} |
384 |
goto T145; |
V66= Cnil; |
385 |
goto T147; |
goto T148; |
386 |
T147:; |
goto T150; |
387 |
V62= make_cons(small_fixnum(0),small_fixnum(0)); |
T150:; |
388 |
goto T145; |
V66= make_cons(small_fixnum(0),small_fixnum(0)); |
389 |
T145:; |
goto T148; |
390 |
V63= list(5,VV[30],V62,symbol_value(VV[35]),(V61),(V53)); |
T148:; |
391 |
setq(VV[33],make_cons(/* INLINE-ARGS */V63,symbol_value(VV[33]))); |
V65= list(5,VV[30],V66,symbol_value(VV[34]),(V64),(V56)); |
392 |
setq(VV[36],make_cons((V61),symbol_value(VV[36]))); |
setq(VV[35],make_cons((V65),symbol_value(VV[35])));} |
393 |
if((symbol_value(VV[34]))==Cnil){ |
setq(VV[36],make_cons(V64,symbol_value(VV[36]))); |
394 |
goto T152;} |
if((symbol_value(VV[33]))==Cnil){ |
395 |
V64= list(3,VV[37],structure_ref((V61),VV[27],3),symbol_value(VV[34])); |
goto T156;} |
396 |
{object V65 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V64)); |
V68= list(3,VV[37],structure_ref((V64),VV[27],3),symbol_value(VV[33])); |
397 |
VMR8(V65)} |
{object V69 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V68)); |
398 |
goto T152; |
VMR8(V69)} |
399 |
T152:; |
goto T156; |
400 |
(void)((*(LnkLI66))(Cnil));{object V66; |
T156:; |
401 |
V66= symbol_value(VV[39]); |
(void)((*(LnkLI66))(Cnil));{object V70; |
402 |
V67= structure_ref((V61),VV[27],3); |
V70= symbol_value(VV[39]); |
403 |
V68= list(3,VV[38],V66,list(3,VV[40],Cnil,(*(LnkLI68))(VV[41],/* INLINE-ARGS */V67))); |
V71= structure_ref((V64),VV[27],3); |
404 |
(void)((VFUN_NARGS=2,(*(LnkLI67))(/* INLINE-ARGS */V68,Ct)));} |
V72= list(3,VV[38],V70,list(3,VV[40],Cnil,(*(LnkLI68))(VV[41],/* INLINE-ARGS */V71))); |
405 |
V69= list(2,VV[42],symbol_value(VV[39])); |
(void)((VFUN_NARGS=2,(*(LnkLI67))(/* INLINE-ARGS */V72,Ct)));} |
406 |
{object V70 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V69)); |
V73= list(2,VV[42],symbol_value(VV[39])); |
407 |
VMR8(V70)}}} |
{object V74 = (VFUN_NARGS=1,(*(LnkLI63))(/* INLINE-ARGS */V73)); |
408 |
|
VMR8(V74)}}} |
409 |
|
base[0]=base[0]; |
410 |
return Cnil; |
return Cnil; |
411 |
} |
} |
412 |
/* local entry for function WT-SYMBOL-FUNCTION */ |
/* local entry for function WT-SYMBOL-FUNCTION */ |
413 |
|
|
414 |
static object LI9(V72) |
static object LI9(V76) |
415 |
|
|
416 |
object V72; |
object V76; |
417 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
418 |
goto TTL; |
goto TTL; |
419 |
TTL:; |
TTL:; |
420 |
if((symbol_value(VV[43]))==Cnil){ |
if((symbol_value(VV[43]))==Cnil){ |
421 |
goto T157;} |
goto T161;} |
422 |
princ_str("symbol_function(VV[",VV[44]); |
princ_str("symbol_function(VV[",VV[44]); |
423 |
(void)((*(LnkLI69))((V72))); |
(void)((*(LnkLI69))((V76))); |
424 |
princ_str("])",VV[44]); |
princ_str("])",VV[44]); |
425 |
{object V73 = Cnil; |
{object V77 = Cnil; |
426 |
VMR9(V73)} |
VMR9(V77)} |
427 |
goto T157; |
goto T161; |
428 |
T157:; |
T161:; |
429 |
princ_str("(VV[",VV[44]); |
princ_str("(VV[",VV[44]); |
430 |
(void)((*(LnkLI69))((V72))); |
(void)((*(LnkLI69))((V76))); |
431 |
princ_str("]->s.s_gfdef)",VV[44]); |
princ_str("]->s.s_gfdef)",VV[44]); |
432 |
{object V74 = Cnil; |
{object V78 = Cnil; |
433 |
VMR9(V74)} |
VMR9(V78)} |
434 |
return Cnil; |
return Cnil; |
435 |
} |
} |
436 |
/* local entry for function WT-MAKE-CCLOSURE */ |
/* local entry for function WT-MAKE-CCLOSURE */ |
437 |
|
|
438 |
static object LI10(V77,V78) |
static object LI10(V81,V82) |
439 |
|
|
440 |
object V77;object V78; |
object V81;object V82; |
441 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
442 |
goto TTL; |
goto TTL; |
443 |
TTL:; |
TTL:; |
444 |
princ_str("\n make_cclosure_new(LC",VV[44]); |
princ_str("\n make_cclosure_new(LC",VV[44]); |
445 |
(void)((*(LnkLI69))((V77))); |
(void)((*(LnkLI69))((V81))); |
446 |
princ_str(",Cnil,",VV[44]); |
princ_str(",Cnil,",VV[44]); |
447 |
(void)((VFUN_NARGS=1,(*(LnkLI70))((V78)))); |
(void)((VFUN_NARGS=1,(*(LnkLI70))((V82)))); |
448 |
princ_str(",Cdata)",VV[44]); |
princ_str(",Cdata)",VV[44]); |
449 |
{object V79 = Cnil; |
{object V83 = Cnil; |
450 |
VMR10(V79)} |
VMR10(V83)} |
451 |
return Cnil; |
return Cnil; |
452 |
} |
} |
453 |
static object LnkTLI70(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[70],(void **)&LnkLI70,ap);va_end(ap);return V1;} /* WT-CLINK */ |
static object LnkTLI70(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[70],(void **)&LnkLI70,ap);va_end(ap);return V1;} /* WT-CLINK */ |