Natools

Diff
Login

Differences From Artifact [a1983f5e7e]:

To Artifact [64adc939bb]:


418
419
420
421
422
423
424






425
418
419
420
421
422
423
424
425
426
427
428
429
430
431







+
+
+
+
+
+

         end loop;
      end if;

      Object.Locked
        := Object.Absolute_Level < Lockable.Current_Level (Object.Stack);
   end Unlock;


   overriding function Duplicate (Object : Cursor) return Cursor is
   begin
      return Object;
   end Duplicate;

end Natools.S_Expressions.Generic_Caches;