/* xlftab.c - xlisp function table */
/*	Copyright (c) 1985, by David Michael Betz
	All Rights Reserved
	Permission is granted for unrestricted non-commercial use	*/

/*New file which holds the external declarations for all the xlisp functions*/

#ifdef ANSI
/* external functions */
extern LVAL
    rmhash(void),rmquote(void),rmdquote(void),rmbquote(void),rmcomma(void),
    clnew(void),clisnew(void),clanswer(void),
    obisnew(void),obclass(void),obshow(void),
#ifdef OBJPRNT
    obprin1(void),
#endif
    rmlpar(void),rmrpar(void),rmsemi(void),
    xeval(void),xapply(void),xfuncall(void),xquote(void),xfunction(void),xbquote(void),
    xlambda(void),xset(void),xsetq(void),xsetf(void),xdefun(void),xdefmacro(void),
    xgensym(void),xmakesymbol(void),xintern(void),
    xsymname(void),xsymvalue(void),xsymplist(void),
    xget(void),xputprop(void),xremprop(void),
    xhash(void),xmkarray(void),xaref(void),
    xcar(void),xcdr(void),
    xcaar(void),xcadr(void),xcdar(void),xcddr(void),
    xcaaar(void),xcaadr(void),xcadar(void),xcaddr(void),
    xcdaar(void),xcdadr(void),xcddar(void),xcdddr(void),
    xcaaaar(void),xcaaadr(void),xcaadar(void),xcaaddr(void),
    xcadaar(void),xcadadr(void),xcaddar(void),xcadddr(void),
    xcdaaar(void),xcdaadr(void),xcdadar(void),xcdaddr(void),
    xcddaar(void),xcddadr(void),xcdddar(void),xcddddr(void),
    xcons(void),xlist(void),xappend(void),xreverse(void),xlast(void),xnth(void),xnthcdr(void),
    xmember(void),xassoc(void),xsubst(void),xsublis(void),xlength(void),xsort(void),
    xremove(void),xremif(void),xremifnot(void),
    xmapc(void),xmapcar(void),xmapl(void),xmaplist(void),
    xrplca(void),xrplcd(void),xnconc(void),
    xdelete(void),xdelif(void),xdelifnot(void),
    xatom(void),xsymbolp(void),xnumberp(void),xboundp(void),xnull(void),xlistp(void),xendp(void),xconsp(void),
    xeq(void),xeql(void),xequal(void),
    xcond(void),xcase(void),xand(void),xor(void),xlet(void),xletstar(void),xif(void),
    xprog(void),xprogstar(void),xprog1(void),xprog2(void),xprogn(void),xgo(void),xreturn(void),
    xcatch(void),xthrow(void),
    xerror(void),xcerror(void),xbreak(void),
    xcleanup(void),xtoplevel(void),xcontinue(void),xerrset(void),
    xbaktrace(void),xevalhook(void),
    xdo(void),xdostar(void),xdolist(void),xdotimes(void),
    xminusp(void),xzerop(void),xplusp(void),xevenp(void),xoddp(void),
    xfix(void),xfloat(void),
    xgcd(void),xadd(void),xsub(void),xmul(void),xdiv(void),xrem(void),xmin(void),xmax(void),xabs(void),
    xadd1(void),xsub1(void),xlogand(void),xlogior(void),xlogxor(void),xlognot(void),
    xsin(void),xcos(void),xtan(void),xexpt(void),xexp(void),xsqrt(void),xrand(void),
    xlss(void),xleq(void),xequ(void),xneq(void),xgeq(void),xgtr(void),
    xsubseq(void),xstring(void),xchar(void),
    xread(void),xprint(void),xprin1(void),xprinc(void),xterpri(void),
    xflatsize(void),xflatc(void),
    xopen(void),xclose(void),xrdchar(void),xpkchar(void),xwrchar(void),xreadline(void),
    xload(void),xtranscript(void),
    xtype(void),xexit(void),xpeek(void),xpoke(void),xaddrs(void),
    xvector(void),xblock(void),xrtnfrom(void),xtagbody(void),
    xpsetq(void),xflet(void),xlabels(void),xmacrolet(void),xunwindprotect(void),xpp(void),
    xstrlss(void),xstrleq(void),xstreql(void),xstrneq(void),xstrgeq(void),xstrgtr(void),
    xstrilss(void),xstrileq(void),xstrieql(void),xstrineq(void),xstrigeq(void),xstrigtr(void),
    xupcase(void),xdowncase(void),xnupcase(void),xndowncase(void),
    xtrim(void),xlefttrim(void),xrighttrim(void),
    xuppercasep(void),xlowercasep(void),xbothcasep(void),xdigitp(void),xalphanumericp(void),
    xcharcode(void),xcodechar(void),xchupcase(void),xchdowncase(void),xdigitchar(void),
    xchrlss(void),xchrleq(void),xchreql(void),xchrneq(void),xchrgeq(void),xchrgtr(void),
    xchrilss(void),xchrileq(void),xchrieql(void),xchrineq(void),xchrigeq(void),xchrigtr(void),
    xintegerp(void),xfloatp(void),xstringp(void),xarrayp(void),xstreamp(void),xobjectp(void),
    xwhen(void),xunless(void),xloop(void),
    xsymfunction(void),xfboundp(void),xsend(void),xsendsuper(void),
    xprogv(void),xrdbyte(void),xwrbyte(void),xformat(void),
    xcharp(void),xcharint(void),xintchar(void),
    xmkstrinput(void),xmkstroutput(void),xgetstroutput(void),xgetlstoutput(void),
    xgetlambda(void),xmacroexpand(void),x1macroexpand(void),
    xtrace(void),xuntrace(void);
#ifdef STRUCTS
extern LVAL
	xdefstruct(void),xmkstruct(void),xcpystruct(void),xstrref(void),xstrset(void),xstrtypep(void),
	xasin(void),xacos(void),xatan(void);
#endif


#ifdef ADDEDTAA
extern LVAL
    xgeneric(void),xtime(void),xcountif(void),xfindif(void); /* TAA MOD -- added */
#endif

#ifdef COMMONLISP
extern LVAL
	xsome(void), xevery(void), xnotany(void), xnotevery(void), xnreverse(void),
	xcoerce(void), xconcatenate(void), xelt(void), xmap(void), xsearch(void);
#ifdef ADDEDTAA
extern LVAL
	xpositionif(void);	/* TAA MOD, only added when COMMONLISP is true as well */
#endif
#else
extern LVAL xstrcat(void);
#endif

#ifdef BETTERIO
extern LVAL xfileposition(void), xfilelength(void);
#endif

/* functions specific to xldmem.c */
extern LVAL xgc(void),xexpand(void),xalloc(void),xmem(void);
#ifdef SAVERESTORE
extern LVAL xsave(void),xrestore(void);
#endif

#ifdef APPLYHOOK
extern LVAL xapplyhook(void);
#endif

/*************************/
#else
/* not an ANSI compiler */

/* external functions */
extern LVAL
    rmhash(),rmquote(),rmdquote(),rmbquote(),rmcomma(),
    clnew(),clisnew(),clanswer(),
    obisnew(),obclass(),obshow(),
#ifdef OBJPRNT
    obprin1(),
#endif
    rmlpar(),rmrpar(),rmsemi(),
    xeval(),xapply(),xfuncall(),xquote(),xfunction(),xbquote(),
    xlambda(),xset(),xsetq(),xsetf(),xdefun(),xdefmacro(),
    xgensym(),xmakesymbol(),xintern(),
    xsymname(),xsymvalue(),xsymplist(),
    xget(),xputprop(),xremprop(),
    xhash(),xmkarray(),xaref(),
    xcar(),xcdr(),
    xcaar(),xcadr(),xcdar(),xcddr(),
    xcaaar(),xcaadr(),xcadar(),xcaddr(),
    xcdaar(),xcdadr(),xcddar(),xcdddr(),
    xcaaaar(),xcaaadr(),xcaadar(),xcaaddr(),
    xcadaar(),xcadadr(),xcaddar(),xcadddr(),
    xcdaaar(),xcdaadr(),xcdadar(),xcdaddr(),
    xcddaar(),xcddadr(),xcdddar(),xcddddr(),
    xcons(),xlist(),xappend(),xreverse(),xlast(),xnth(),xnthcdr(),
    xmember(),xassoc(),xsubst(),xsublis(),xlength(),xsort(),
    xremove(),xremif(),xremifnot(),
    xmapc(),xmapcar(),xmapl(),xmaplist(),
    xrplca(),xrplcd(),xnconc(),
    xdelete(),xdelif(),xdelifnot(),
    xatom(),xsymbolp(),xnumberp(),xboundp(),xnull(),xlistp(),xendp(),xconsp(),
    xeq(),xeql(),xequal(),
    xcond(),xcase(),xand(),xor(),xlet(),xletstar(),xif(),
    xprog(),xprogstar(),xprog1(),xprog2(),xprogn(),xgo(),xreturn(),
    xcatch(),xthrow(),
    xerror(),xcerror(),xbreak(),
    xcleanup(),xtoplevel(),xcontinue(),xerrset(),
    xbaktrace(),xevalhook(),
    xdo(),xdostar(),xdolist(),xdotimes(),
    xminusp(),xzerop(),xplusp(),xevenp(),xoddp(),
    xfix(),xfloat(),
    xgcd(),xadd(),xsub(),xmul(),xdiv(),xrem(),xmin(),xmax(),xabs(),
    xadd1(),xsub1(),xlogand(),xlogior(),xlogxor(),xlognot(),
    xsin(),xcos(),xtan(),xexpt(),xexp(),xsqrt(),xrand(),
    xlss(),xleq(),xequ(),xneq(),xgeq(),xgtr(),
    xsubseq(),xstring(),xchar(),
    xread(),xprint(),xprin1(),xprinc(),xterpri(),
    xflatsize(),xflatc(),
    xopen(),xclose(),xrdchar(),xpkchar(),xwrchar(),xreadline(),
    xload(),xtranscript(),
    xtype(),xexit(),xpeek(),xpoke(),xaddrs(),
    xvector(),xblock(),xrtnfrom(),xtagbody(),
    xpsetq(),xflet(),xlabels(),xmacrolet(),xunwindprotect(),xpp(),
    xstrlss(),xstrleq(),xstreql(),xstrneq(),xstrgeq(),xstrgtr(),
    xstrilss(),xstrileq(),xstrieql(),xstrineq(),xstrigeq(),xstrigtr(),
    xupcase(),xdowncase(),xnupcase(),xndowncase(),
    xtrim(),xlefttrim(),xrighttrim(),
    xuppercasep(),xlowercasep(),xbothcasep(),xdigitp(),xalphanumericp(),
    xcharcode(),xcodechar(),xchupcase(),xchdowncase(),xdigitchar(),
    xchrlss(),xchrleq(),xchreql(),xchrneq(),xchrgeq(),xchrgtr(),
    xchrilss(),xchrileq(),xchrieql(),xchrineq(),xchrigeq(),xchrigtr(),
    xintegerp(),xfloatp(),xstringp(),xarrayp(),xstreamp(),xobjectp(),
    xwhen(),xunless(),xloop(),
    xsymfunction(),xfboundp(),xsend(),xsendsuper(),
    xprogv(),xrdbyte(),xwrbyte(),xformat(),
    xcharp(),xcharint(),xintchar(),
    xmkstrinput(),xmkstroutput(),xgetstroutput(),xgetlstoutput(),
    xgetlambda(),xmacroexpand(),x1macroexpand(),
    xtrace(),xuntrace();
#ifdef STRUCTS
extern LVAL
	xdefstruct(),xmkstruct(),xcpystruct(),xstrref(),xstrset(),xstrtypep(),
	xasin(),xacos(),xatan();
#endif


#ifdef ADDEDTAA
extern LVAL
    xgeneric(),xtime(),xcountif(),xfindif(); /* TAA MOD -- added */
#endif

#ifdef COMMONLISP
extern LVAL
	xsome(), xevery(), xnotany(), xnotevery(), xnreverse(),
	xcoerce(), xconcatenate(), xelt(), xmap(), xsearch();
#ifdef ADDEDTAA
extern LVAL
	xpositionif();	/* TAA MOD, only added when COMMONLISP is true as well */
#endif
#else
extern LVAL xstrcat();
#endif

#ifdef BETTERIO
extern LVAL xfileposition(), xfilelength();
#endif

/* functions specific to xldmem.c */
extern LVAL xgc(),xexpand(),xalloc(),xmem();
#ifdef SAVERESTORE
extern LVAL xsave(),xrestore();
#endif

#ifdef APPLYHOOK
extern LVAL xapplyhook();
#endif

#endif