196 |
}else{ |
}else{ |
197 |
V33=(base[3]);} |
V33=(base[3]);} |
198 |
if(base[7]==Cnil){ |
if(base[7]==Cnil){ |
199 |
V34= make_fixnum(length((V30))); |
V34= make_fixnum((long)length((V30))); |
200 |
}else{ |
}else{ |
201 |
V34=(base[4]);} |
V34=(base[4]);} |
202 |
V35=(base[5]); |
V35=(base[5]); |
570 |
goto T133; |
goto T133; |
571 |
T133:; |
T133:; |
572 |
V84= one_plus((V84)); |
V84= one_plus((V84)); |
573 |
V89 = make_fixnum(length((V86))); |
V89 = make_fixnum((long)length((V86))); |
574 |
V85= make_cons(V89,(V85)); |
V85= make_cons(V89,(V85)); |
575 |
if(!((length((V86)))==0)){ |
if(!(((long)length((V86)))==0)){ |
576 |
goto T142;} |
goto T142;} |
577 |
goto T140; |
goto T140; |
578 |
goto T142; |
goto T142; |
764 |
} |
} |
765 |
static void LnkT58(){ call_or_link(VV[58],(void **)&Lnk58);} /* GET-DECODED-TIME */ |
static void LnkT58(){ call_or_link(VV[58],(void **)&Lnk58);} /* GET-DECODED-TIME */ |
766 |
static void LnkT11(){ call_or_link(VV[11],(void **)&Lnk11);} /* OPEN */ |
static void LnkT11(){ call_or_link(VV[11],(void **)&Lnk11);} /* OPEN */ |
767 |
static object LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[57],(void **)&LnkLI57,ap);} /* WARN */ |
static object LnkTLI57(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[57],(void **)&LnkLI57,ap);va_end(ap);return V1;} /* WARN */ |
768 |
static object LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[56],(void **)&LnkLI56,ap);} /* MAKE-ARRAY */ |
static object LnkTLI56(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[56],(void **)&LnkLI56,ap);va_end(ap);return V1;} /* MAKE-ARRAY */ |
769 |
static void LnkT9(){ call_or_link(VV[9],(void **)&Lnk9);} /* GET-OUTPUT-STREAM-STRING */ |
static void LnkT9(){ call_or_link(VV[9],(void **)&Lnk9);} /* GET-OUTPUT-STREAM-STRING */ |
770 |
static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* MAKE-STRING-OUTPUT-STREAM */ |
static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* MAKE-STRING-OUTPUT-STREAM */ |
771 |
static void LnkT6(){ call_or_link(VV[6],(void **)&Lnk6);} /* GET-STRING-INPUT-STREAM-INDEX */ |
static void LnkT6(){ call_or_link(VV[6],(void **)&Lnk6);} /* GET-STRING-INPUT-STREAM-INDEX */ |