const struct primitives
  {
    unsigned char *name;
    short min_args, max_args;
    lisp_object (*func) ();
    unsigned char *doc;
  } plist[] = {
#define XPRIM(a, b, c, d, e)            {a, b, c, d, e},
#include "primitives.h"
    { NULL }
#undef XPRIM
  };