/* Copyright 1989-93 GROUPE BULL -- See license conditions in file COPYRIGHT */
/*********************************************\
*                                             *
* KLGENERIC.h                                 *
*                                             *
* Hooks to add your types to generic routines *
*                                             *
\*********************************************/

 /* hooks */
EXT KlO(*KlGen_subseq) () INIT(0);
EXT KlO(*KlGen_replace_seq) () INIT(0);
EXT KlO(*KlGen_nconc) () INIT(0);
EXT KlO(*KlGen_map) () INIT(0);

 /* error messages */

EXT char *KlTypeErr_StringOrList 
INIT("string or list");
EXT char *KlTypeErr_PositiveInteger 
INIT("positive integer");
EXT char *KlTypeErr_Table 
INIT("table");
EXT char *KlTypeErr_StringOrNumber 
INIT("string or number");
EXT char *KlTypeErr_SubrOrFSubr
INIT("Subr or FSubr");
EXT char *KlTypeErr_TrueOrNil
INIT("boolean: t or ()");
EXT char *KlTypeErr_Expr
INIT("SML function");