From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,48fa8e3cfaec41af
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-07-23 05:37:12 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!newspeer.clara.net!news.clara.net!newsfeed01.sul.t-online.de!t-online.de!newspeer1-gui.server.ntli.net!ntli.net!newsfep1-win.server.ntli.net.POSTED!53ab2750!not-for-mail
From: "chris.danx" <spamoff.danx@ntlworld.com>
Newsgroups: comp.lang.ada
References: <ZPW_8.1457$tg4.87971@newsfep1-win.server.ntli.net>
 <xHX_8.1635$tg4.100380@newsfep1-win.server.ntli.net>
 <ud6tfljrs.fsf@gsfc.nasa.gov>
 <nu__8.4842$vN6.246271@newsfep2-win.server.ntli.net>
Subject: Re: worth the hassle?
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Message-ID: <X5c%8.766$7h7.113501@newsfep1-win.server.ntli.net>
Date: Tue, 23 Jul 2002 13:36:35 +0100
NNTP-Posting-Host: 80.5.140.234
X-Complaints-To: abuse@ntlworld.com
X-Trace: newsfep1-win.server.ntli.net 1027427831 80.5.140.234 (Tue,
 23 Jul 2002 13:37:11 BST)
NNTP-Posting-Date: Tue, 23 Jul 2002 13:37:11 BST
Organization: ntl Cablemodem News Service
Xref: archiver1.google.com comp.lang.ada:27331
Date: 2002-07-23T13:36:35+01:00
List-Id: <comp.lang.ada>

Fixed it with the help of the Booch components.

function First (List : in List_Type) return Iterator_Type is
begin
   if Is_Empty (List) then
      raise Empty_List_Error;
   end if;
   return Iterator_Type'(
      List_Address_Conversions.To_Pointer(List'Address).all'access,
         List.First);
end First;