Yurttas/PL/IL/Ada-95/OO/GEO/geometry-lists.adb

1package body Geometry.Lists is
2
3  procedure Add_To_List(List    : in out Cell_Ptr;
4                        Obj_Ptr : in Pointer) is
5  begin
6    List := new Cell'(List, Obj_Ptr);
7  end Add_To_List;
8
9end Geometry.Lists;