timer

[smith@icat.larc.nasa.gov (Steven L. Smith)]

Dear SLUGs,

I'm using the (sys:%microsecond-clock) function as a means of timing
a given event. However, if I'm not mistaken, the (sys:%microsecond-clock)
wraps around ever hour or so. Therefore the following would not always
be accurate:

(defun foo ()
  (let (t1 t2)
    (setq t1 (sys:%microsecond-clock))
    (some-event)
    (setq t2 (sys:%microsecond-clock))
    (/ (- t2 t1) 1000000))) ; Return time

To the best of my recollection there is a function which accurately
takes the difference of t1 and t2. QUESTION: What is that function?

						Thanks
*******************************************************************************
Steve Smith                          | Internet: smith@icat.larc.nasa.gov
NASA Langley Research Center         |
M/S 152                              | Voice: (804) 864-2004
Hampton, VA 23665                    | FAX  : (804) 864-7793
*******************************************************************************