Changeset 10823

Timestamp:

Sep 22, 2008, 3:08:34 PM (12 years ago)

Author:

gb

Message:

Use #_SleepEx in HOUSEKEEPING-LOOP on Windows.
Todo: handle premature timeout due to interrupt/APC delivery.

File:

• trunk/source/level-1/l1-application.lisp (modified) (1 diff)

trunk/source/level-1/l1-application.lisp

@@ -295 +295 @@
   (with-standard-abort-handling nil 
     (loop
-      #+windows-target
-      (#_Sleep 333)
-      #-windows-target
-      (%nanosleep *periodic-task-seconds* *periodic-task-nanoseconds*)
+      #+windows-target (#_SleepEx 333 #$true)
+      #-windows-target (%nanosleep *periodic-task-seconds* *periodic-task-nanoseconds*)
       (housekeeping))))