154 |
goto T34;} |
goto T34;} |
155 |
if(!(type_of(caddr((V23)))==t_cons)){ |
if(!(type_of(caddr((V23)))==t_cons)){ |
156 |
goto T35;} |
goto T35;} |
157 |
if(!((length(caddr((V23))))==(1))){ |
if(!(((long)length(caddr((V23))))==(1))){ |
158 |
goto T35;} |
goto T35;} |
159 |
goto T34; |
goto T34; |
160 |
T34:; |
T34:; |
855 |
return Cnil; |
return Cnil; |
856 |
} |
} |
857 |
static object LnkTLI70(){return call_proc0(VV[70],(void **)&LnkLI70);} /* C1NIL */ |
static object LnkTLI70(){return call_proc0(VV[70],(void **)&LnkLI70);} /* C1NIL */ |
858 |
static object LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[69],(void **)&LnkLI69,ap);} /* CMPWARN */ |
static object LnkTLI69(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[69],(void **)&LnkLI69,ap);va_end(ap);return V1;} /* CMPWARN */ |
859 |
static void LnkT68(){ call_or_link(VV[68],(void **)&Lnk68);} /* COPY-INFO */ |
static void LnkT68(){ call_or_link(VV[68],(void **)&Lnk68);} /* COPY-INFO */ |
860 |
static object LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[67],(void **)&LnkLI67,2,ap);} /* TYPE-AND */ |
static object LnkTLI67(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[67],(void **)&LnkLI67,2,ap);va_end(ap);return V1;} /* TYPE-AND */ |
861 |
static object LnkTLI36(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[36],(void **)&LnkLI36,1,ap);} /* TYPE-FILTER */ |
static object LnkTLI36(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[36],(void **)&LnkLI36,1,ap);va_end(ap);return V1;} /* TYPE-FILTER */ |
862 |
static void LnkT60(){ call_or_link(VV[60],(void **)&Lnk60);} /* SUBTYPEP */ |
static void LnkT60(){ call_or_link(VV[60],(void **)&Lnk60);} /* SUBTYPEP */ |
863 |
static object LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],(void **)&LnkLI59,2,ap);} /* SUB-INTERVAL-P */ |
static object LnkTLI59(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[59],(void **)&LnkLI59,2,ap);va_end(ap);return V1;} /* SUB-INTERVAL-P */ |
864 |
static object LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],(void **)&LnkLI58,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */ |
static object LnkTLI58(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[58],(void **)&LnkLI58,1,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */ |
865 |
static object LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],(void **)&LnkLI56,1,ap);} /* NORMALIZE-TYPE */ |
static object LnkTLI56(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[56],(void **)&LnkLI56,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */ |
866 |
|
|
867 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
868 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |