Changeset 13414


Ignore:
Timestamp:
Jan 28, 2010, 8:46:58 PM (10 years ago)
Author:
gb
Message:

in %TIMED-WAIT-ON-SEMAPHORE-PTR, calculate "stop" in terms of
INTERNAL-TIME-UNITS-PER-SECOND, not 1000.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/linux-files.lisp

    r13209 r13414  
    136136          (let* ((now (get-internal-real-time))
    137137                 (stop (+ now
    138                           (* secs 1000)
     138                          (* secs internal-time-units-per-second)
    139139                          millis)))
    140140            (loop
Note: See TracChangeset for help on using the changeset viewer.