Module:       duim-utilities
Synopsis:     DUIM utilities
Author:       Scott McKay, Andy Armstrong
Copyright:    Original Code is Copyright (c) 1995-2004 Functional Objects, Inc.
              All rights reserved.
License:      Functional Objects Library Public License Version 1.0
Dual-license: GNU Lesser General Public License
Warranty:     Distributed WITHOUT WARRANTY OF ANY KIND

//---*** Need a way to cheaply get the current time in microseconds
define lisp-interface
  functions get-internal-real-time from lisp;
end;


///---*** Why is this not in the emulator?

define macro without-bounds-checks
  { without-bounds-checks ?:body end }
    => { begin ?body end }
end macro without-bounds-checks;

define constant element-no-bounds-check = element;
define constant element-no-bounds-check-setter = element-setter;

define function element-range-error
    (collection :: <collection>, key) => ()
  error(make(<simple-error>,
             format-string: "ELEMENT outside of range: %=",
             format-arguments: list(key)))
end function element-range-error;


/// Fake abort condition

define class <abort> (<condition>)
end class <abort>;