comparison src/alloc.c @ 56539:9fc5aae4053e

(check_cons_list): New function (contents commented out).

56538:1b66d336a770

  consing_since_gc += sizeof (struct Lisp_Cons);
  cons_cells_consed++;
  return val;
}


/* Make a list of 2, 3, 4 or 5 specified objects.  */

Lisp_Object
list2 (arg1, arg2)

56539:9fc5aae4053e

  consing_since_gc += sizeof (struct Lisp_Cons);
  cons_cells_consed++;
  return val;
}

/* Get an error now if there's any junk in the cons free list.  */
void
check_cons_list ()
{
  struct Lisp_Cons *tail = cons_free_list;

#if 0
  while (tail)
    tail = *(struct Lisp_Cons **)&tail->cdr;
#endif
}

/* Make a list of 2, 3, 4 or 5 specified objects.  */

Lisp_Object
list2 (arg1, arg2)