/* Prototypes for functions defined in
fns.c
 */

extern int Qstring_lessp;

extern int Qprovide;

extern int Qrequire;

extern int Qyes_or_no_p_history;

extern struct Lisp_Subr Sidentity;

int Fidentity(int );

extern struct Lisp_Subr Srandom;

int Frandom(int );

extern struct Lisp_Subr Slength;

int Flength(int );

extern struct Lisp_Subr Sstring_equal;

int Fstring_equal(int , int );

extern struct Lisp_Subr Sstring_lessp;

int Fstring_lessp(int , int );

int concat2(int s1,
            int s2);

extern struct Lisp_Subr Sappend;

int Fappend(int , int * );

extern struct Lisp_Subr Sconcat;

int Fconcat(int , int * );

extern struct Lisp_Subr Svconcat;

int Fvconcat(int , int * );

extern struct Lisp_Subr Scopy_sequence;

int Fcopy_sequence(int );

int concat(int nargs,
           int * args,
           enum Lisp_Type target_type,
           int last_special);

extern struct Lisp_Subr Scopy_alist;

int Fcopy_alist(int );

extern struct Lisp_Subr Ssubstring;

int Fsubstring(int , int , int );

extern struct Lisp_Subr Snthcdr;

int Fnthcdr(int , int );

extern struct Lisp_Subr Snth;

int Fnth(int , int );

extern struct Lisp_Subr Selt;

int Felt(int , int );

extern struct Lisp_Subr Smember;

int Fmember(int , int );

extern struct Lisp_Subr Smemq;

int Fmemq(int , int );

extern struct Lisp_Subr Sassq;

int Fassq(int , int );

int assq_no_quit(register int key,
                 int list);

extern struct Lisp_Subr Sassoc;

int Fassoc(int , int );

extern struct Lisp_Subr Srassq;

int Frassq(int , int );

extern struct Lisp_Subr Sdelq;

int Fdelq(int , int );

extern struct Lisp_Subr Sdelete;

int Fdelete(int , int );

extern struct Lisp_Subr Snreverse;

int Fnreverse(int );

extern struct Lisp_Subr Sreverse;

int Freverse(int );

extern struct Lisp_Subr Ssort;

int Fsort(int , int );

int merge(int org_l1,
          int org_l2,
          int pred);

extern struct Lisp_Subr Sget;

int Fget(int , int );

extern struct Lisp_Subr Sput;

int Fput(int , int , int );

extern struct Lisp_Subr Sequal;

int Fequal(int , int );

int internal_equal(register int o1,
                   register int o2,
                   int depth);

extern struct Lisp_Subr Sfillarray;

int Ffillarray(int , int );

int nconc2(int s1,
           int s2);

extern struct Lisp_Subr Snconc;

int Fnconc(int , int * );

void mapcar1(int leni,
             int * vals,
             int fn,
             int seq);

extern struct Lisp_Subr Smapconcat;

int Fmapconcat(int , int , int );

extern struct Lisp_Subr Smapcar;

int Fmapcar(int , int );

extern struct Lisp_Subr Sy_or_n_p;

int Fy_or_n_p(int );

int do_yes_or_no_p(int prompt);

extern struct Lisp_Subr Syes_or_no_p;

int Fyes_or_no_p(int );

extern struct Lisp_Subr Sload_average;

int Fload_average(void);

extern int Vfeatures;

extern struct Lisp_Subr Sfeaturep;

int Ffeaturep(int );

extern struct Lisp_Subr Sprovide;

int Fprovide(int );

extern struct Lisp_Subr Srequire;

int Frequire(int , int );

int syms_of_fns(void);