[Openmcl-cvs-notifications] r13414 - /trunk/source/level-1/linux-files.lisp

[gb at clozure.com]

Author: gb
Date: Thu Jan 28 20:46:58 2010
New Revision: 13414

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

Modified:
    trunk/source/level-1/linux-files.lisp

Modified: trunk/source/level-1/linux-files.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/linux-files.lisp (original)
+++ trunk/source/level-1/linux-files.lisp Thu Jan 28 20:46:58 2010
@@ -135,7 +135,7 @@
         (multiple-value-bind (secs millis) (milliseconds duration)
           (let* ((now (get-internal-real-time))
                  (stop (+ now
-                          (* secs 1000)
+                          (* secs internal-time-units-per-second)
                           millis)))
             (loop
               (multiple-value-bind (success err)