xtype_desc create_desc(char *type_name, void (*fm)(), void (*pm)(),
                       void (*sm)(), unsigned char * (*rm)(), void (*mm)());
int exttypep(LVAL x, LVAL type_sym);