[Openmcl-cvs-notifications] r10876 - /trunk/source/level-1/l1-processes.lisp

[gb at clozure.com]

Author: gb
Date: Thu Sep 25 09:23:23 2008
New Revision: 10876

Log:
If PROCESS-WAIT sleeps, use (new) %WINDOWS-SLEEP to do so on Windows.

Modified:
    trunk/source/level-1/l1-processes.lisp

Modified: trunk/source/level-1/l1-processes.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/l1-processes.lisp (original)
+++ trunk/source/level-1/l1-processes.lisp Thu Sep 25 09:23:23 2008
@@ -516,7 +516,10 @@
           (when (apply function args)
             (return))
           ;; Sleep for a tick
-          (%nanosleep 0 *ns-per-tick*)))))
+          #-windows-target
+          (%nanosleep 0 *ns-per-tick*)
+          #+windows-target
+          (%windows-sleep 5)))))
 =

 =

 =