(def!method print-object ((handler handler) stream)
(print-unreadable-object (handler stream :type t)
(format stream
(def!method print-object ((handler handler) stream)
(print-unreadable-object (handler stream :type t)
(format stream
;;; polling function if it does time out. One important use of this
;;; is to periodically call process-yield.
(declaim (type (or null function) *periodic-polling-function*))
;;; polling function if it does time out. One important use of this
;;; is to periodically call process-yield.
(declaim (type (or null function) *periodic-polling-function*))
(declaim (type (unsigned-byte 29) *max-event-to-sec* *max-event-to-usec*))
(defvar *max-event-to-sec* 1)
(defvar *max-event-to-usec* 0)
(declaim (type (unsigned-byte 29) *max-event-to-sec* *max-event-to-usec*))
(defvar *max-event-to-sec* 1)
(defvar *max-event-to-usec* 0)