Commit 432b7ada authored by Dave Cooper's avatar Dave Cooper
Browse files

made the windows sleep patch more explicit.

parent 7a10254c
......@@ -237,10 +237,8 @@ Perhaps a zombie process is holding port ~a?~%" port port))
#+(and ccl windows-target)
(let (*warn-if-redefine-kernel*)
(defun %windows-sleep (millis)
(dotimes (n 3)
(unless (typep millis '(unsigned-byte 32))
(setq millis (/ millis 100))))
(unless (typep millis 'unsigned-byte 32)
(setq millis (coerce 1000000000 '(unsigned-byte 32))))
(do* ((start (floor (get-internal-real-time)
(floor internal-time-units-per-second 1000))
(floor (get-internal-real-time)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment