src/cutil/oldlist.cpp
LIST destroy(LIST list) {
  LIST next;

  while (list != NIL_LIST) {
    next = list->list_rest();
    delete list;
    list = next;
  }
  return (NIL_LIST);
}
/**********************************************************************
 *  d e s t r o y
 *
 *  Return the space taken by a list to the heap.
 **********************************************************************/
d e s t r o y
Return the space taken by a list to the heap.
d e s t r o y Return the space taken by a list to the heap .
LIST destroy(LIST list) {
  LIST next;
  while (list != NIL_LIST) {
    next = list->list_rest();
    delete list;
    list = next;
  }
  return (NIL_LIST);
}
LIST destroy ( LIST list ) { LIST next ; while ( list != NIL_LIST ) { next = list -> list_rest ( ) ; delete list ; list = next ; } return ( NIL_LIST ) ; }
d e s t r o y
  Return the space taken by a list to the heap.
d e s t r o y Return the space taken by a list to the heap .