lace.events: Optimise.

1-base/lace/source/events/concrete/lace-observer-deferred.ads

@@ -33,6 +33,9 @@ is
 private
    use ada.Strings.unbounded;
 
+   pragma Suppress (Container_Checks);     -- Suppress expensive tamper checks.
+
+
    package Observer is new lace.make_Observer (Any.limited_item);
    package Deferred is new Observer.deferred  (Observer.item);
 

1-base/lace/source/events/concrete/lace-observer-instant.ads

@@ -32,6 +32,9 @@ is
 private
    use ada.Strings.unbounded;
 
+   pragma Suppress (Container_Checks);     -- Suppress expensive tamper checks.
+
+
    package Observer is new make_Observer (Any.limited_item);
 
    type Item is limited new Observer.item with

1-base/lace/source/events/concrete/lace-subject-local.ads

@@ -36,6 +36,9 @@ private
 
    use ada.Strings.unbounded;
 
+   pragma Suppress (Container_Checks);     -- Suppress expensive tamper checks.
+
+
    package Subject is new make_Subject (Any.limited_item);
 
    type Item is limited new Subject.item with

1-base/lace/source/events/concrete/lace-subject_and_deferred_observer.ads

@@ -39,6 +39,9 @@ is
 private
    use ada.Strings.unbounded;
 
+   pragma Suppress (Container_Checks);     -- Suppress expensive tamper checks.
+
+
    package Subject  is new make_Subject      (Any.limited_item);
    package Observer is new make_Observer     (Subject    .item);
    package Deferred is new Observer.deferred (Observer   .item);

1-base/lace/source/events/concrete/lace-subject_and_instant_observer.ads

@@ -36,6 +36,9 @@ is
 private
    use ada.Strings.unbounded;
 
+   pragma Suppress (Container_Checks);     -- Suppress expensive tamper checks.
+
+
    package Subject  is new make_Subject  (Any.limited_item);
    package Observer is new make_Observer (Subject    .item);
 

1-base/lace/source/events/mixin/lace-make_observer.ads

@@ -56,6 +56,10 @@ is
 
 
 private
+
+   pragma Suppress (Container_Checks);     -- Suppress expensive tamper checks.
+
+
    ----------------------
    -- Event response maps
    --

1-base/lace/source/events/mixin/lace-make_subject.ads

@@ -58,6 +58,9 @@ is
 
 private
 
+   pragma Suppress (Container_Checks);     -- Suppress expensive tamper checks.
+
+
    -------------------------
    -- Event observer vectors
    --

1-base/lace/source/events/mixin/xgc/lace-make_observer-deferred.ads

@@ -40,6 +40,8 @@ is
 
 private
 
+   pragma Suppress (Container_Checks);     -- Suppress expensive tamper checks.
+
    ----------------
    -- Event Vectors
    --

1-base/lace/source/text/lace-text-forge.adb

@@ -11,7 +11,7 @@ is
    -- Files
    --
 
-   function to_String (Filename : in forge.Filename) return String
+   function File_to_String (Filename : in forge.Filename) return String
    is
       use ada.Characters,
           ada.Directories;
@@ -47,15 +47,15 @@ is
       end loop;
 
       return Result (1 .. i);
-   end to_String;
+   end File_to_String;
 
 
 
-   function to_Text (Filename : in forge.Filename) return Item
+   function File_to_Text (Filename : in forge.Filename) return Item
    is
    begin
-      return to_Text (to_String (Filename));
-   end to_Text;
+      return to_Text (File_to_String (Filename));
+   end File_to_Text;
 
 
 

1-base/lace/source/text/lace-text-forge.ads

@@ -10,8 +10,8 @@ is
 
    type Filename is new String;
 
-   function to_String (Filename : in forge.Filename) return String;     -- Converts 'CR & LF' to 'LF' at the end of a line.
-   function to_Text   (Filename : in forge.Filename) return Item;       -- Converts 'CR & LF' to 'LF' at the end of a line.
+   function File_to_String (Filename : in forge.Filename) return String;     -- Converts 'CR & LF' to 'LF' at the end of a line.
+   function File_to_Text   (Filename : in forge.Filename) return Item;       -- Converts 'CR & LF' to 'LF' at the end of a line.
 
 
    procedure store (Filename : in forge.Filename;   the_String : in String);