(define create-event
  (foreign-primitive c-pointer () "
        struct tb_event event;
        C_return(&event);"))