Commit 470c7fba authored by Dave Cooper's avatar Dave Cooper

tweaked windows CCL sleep fix.

parent b671a5bc
......@@ -237,8 +237,16 @@ Perhaps a zombie process is holding port ~a?~%" port port))
#+(and ccl windows-target)
(let (*warn-if-redefine-kernel*)
(defun %windows-sleep (millis)
(unless (typep millis 'unsigned-byte 32)
(setq millis (coerce 1000000000 '(unsigned-byte 32))))
(do ((new-value (round (/ millis 10)) (round (/ millis 10))))
((typep millis '(unsigned-byte 32)))
(setq millis new-value))
(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