153 |
goto T70; |
goto T70; |
154 |
T70:; |
T70:; |
155 |
(void)(elt_set((V8),V14,(V5))); |
(void)(elt_set((V8),V14,(V5))); |
156 |
V14= (V14)+1; |
V14= (long)(V14)+1; |
157 |
goto T69;} |
goto T69;} |
158 |
goto T63; |
goto T63; |
159 |
T63:; |
T63:; |
225 |
{register long V29; |
{register long V29; |
226 |
register long V30; |
register long V30; |
227 |
V29= 0; |
V29= 0; |
228 |
V30= length(car((V22))); |
V30= (long)length(car((V22))); |
229 |
goto T95; |
goto T95; |
230 |
T95:; |
T95:; |
231 |
if(!((V29)>=(V30))){ |
if(!((V29)>=(V30))){ |
235 |
T96:; |
T96:; |
236 |
V31= elt(car((V22)),V29); |
V31= elt(car((V22)),V29); |
237 |
(void)(elt_set((V21),V23,/* INLINE-ARGS */V31)); |
(void)(elt_set((V21),V23,/* INLINE-ARGS */V31)); |
238 |
V23= (V23)+(1); |
V23= (long)(V23)+(1); |
239 |
V29= (V29)+1; |
V29= (long)(V29)+1; |
240 |
goto T95;} |
goto T95;} |
241 |
goto T91; |
goto T91; |
242 |
T91:; |
T91:; |
337 |
vs_base=base+1;} |
vs_base=base+1;} |
338 |
super_funcall_no_event(base[0]); |
super_funcall_no_event(base[0]); |
339 |
vs_top=sup; |
vs_top=sup; |
340 |
V44= (V44)+1; |
V44= (long)(V44)+1; |
341 |
goto T122;} |
goto T122;} |
342 |
goto T117; |
goto T117; |
343 |
T117:; |
T117:; |
383 |
vs_top=sup; |
vs_top=sup; |
384 |
V55= vs_base[0]; |
V55= vs_base[0]; |
385 |
(void)(elt_set((V51),V52,V55)); |
(void)(elt_set((V51),V52,V55)); |
386 |
V52= (V52)+1; |
V52= (long)(V52)+1; |
387 |
goto T139;}}} |
goto T139;}}} |
388 |
va_end(ap); |
va_end(ap); |
389 |
base[0]=base[0]; |
base[0]=base[0]; |
482 |
VMR4(V77)}} |
VMR4(V77)}} |
483 |
goto T167; |
goto T167; |
484 |
T167:; |
T167:; |
485 |
V66= (V66)+1; |
V66= (long)(V66)+1; |
486 |
goto T162;} |
goto T162;} |
487 |
va_end(ap); |
va_end(ap); |
488 |
base[0]=base[0]; |
base[0]=base[0]; |
579 |
VMR5(V94)} |
VMR5(V94)} |
580 |
goto T192; |
goto T192; |
581 |
T192:; |
T192:; |
582 |
V84= (V84)+1; |
V84= (long)(V84)+1; |
583 |
goto T187;} |
goto T187;} |
584 |
va_end(ap); |
va_end(ap); |
585 |
base[0]=base[0]; |
base[0]=base[0]; |
659 |
} |
} |
660 |
static void LnkT17(){ call_or_link(VV[17],(void **)&Lnk17);} /* EVERY */ |
static void LnkT17(){ call_or_link(VV[17],(void **)&Lnk17);} /* EVERY */ |
661 |
static void LnkT16(){ call_or_link(VV[16],(void **)&Lnk16);} /* SOME */ |
static void LnkT16(){ call_or_link(VV[16],(void **)&Lnk16);} /* SOME */ |
662 |
static object LnkTLI15(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[15],(void **)&LnkLI15,ap);} /* MAKE-SEQUENCE */ |
static object LnkTLI15(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[15],(void **)&LnkLI15,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */ |
663 |
static object LnkTLI14(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[14],(void **)&LnkLI14,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */ |
static object LnkTLI14(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[14],(void **)&LnkLI14,1,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */ |
664 |
static object LnkTLI13(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[13],(void **)&LnkLI13,1,ap);} /* NORMALIZE-TYPE */ |
static object LnkTLI13(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[13],(void **)&LnkLI13,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */ |
665 |
|
|
666 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
667 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |