;; (1) this code should be moved to iolib-posix and exported under some name...
(defun fsleep (delay)
(when (plusp delay)
(multiple-value-bind (i d) (floor delay)
(unless (zerop i)
;; TODO: here insert check for overflow...
(et::sleep i))
(unless (zerop d)
(et::usleep (floor (* d 1000000))))))
nil)
;; (2) et::gettime should be exported
;; (3) unless we don't care about the inefficiency of calling gettime
many times, we should expose the deadline in polling, etc., because
that's what the application wants, anyway. At least mine.
[ François-René ÐVB Rideau | Reflection&Cybernethics | http://fare.tunes.org ]
The hacker: someone who figured things out and made something cool happen.
-- Alan Schmitt
_______________________________________________
iolib-devel mailing list
[email protected]
http://common-lisp.net/cgi-bin/mailman/listinfo/iolib-devel
