condition-wait-loop.lisp

(ql:quickload :iolib)
(ql:quickload :eventfd)

(setf control-fd (eventfd:eventfd.new 0))
(setf event-base (make-instance 'iolib:event-base))
(setf thread (bt:make-thread (lambda ()
                                 (iolib:set-io-handler event-base
                                                       control-fd
                                                       :read (lambda (fd e ex)
                                                               (declare (ignorable fd e ex)))
                                                               (log:debug (eventfd.read control-fd))))
                                 (loop (iolib:event-dispatch event-base :one-shot t)))))

(defun run-test ()
  (eventfd:eventfd.notify-1 control-fd)
  (let ((mutex (bt:make-lock))
        (cond (bt:make-condition-variable)))
    (bt:with-lock-held (mutex)
      (loop (print (sb-thread:condition-wait cond mutex :timeout 10))))))