Listing 8

ln_seq::~ln_seq()
   {
   listnode *p;
   while ((p = first) != 0)
      {
      first = first->next;
      delete p;
      }
   }