io-loop.lisp

io-loop.lisp

(let* ((mailbox (sb-concurrency:make-mailbox))
       (event-base (make-instance 'iolib:event-base))
       (control-fd (eventfd:eventfd.new 0))
       (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))))))
  (eventfd:eventfd.notify-1 control-fd)
  (sb-concurrency:receive-message mailbox :timeout 3)
  (print "qwe"))