Скрыть

CL, usocket и timeout

Надо же разбавить сие болото.

Вот, допустим, у меня есть такой код (упрощённый):

lisp

(let* ((socket (usocket:socket-connect server port :timeout timeout))
       (stream (make-stream socket encoding)))
  (do ((line
        (read-line stream nil)
        (read-line stream nil)))
      ((not line))
    (do-something-with-line)))
 

Всё отлично, но возникают редкие ситуации, когда соединение хитрым образом рвётся, а цикл остаётся висеть на read-line до окончания времён.

Как я понимаю, timeout срабатывает только на установление соединения, а сам read-line спокойно может заблокировать текущий поток на неопределённое время (ну или я совсем что-то не то делаю). Предполагаю, что нужен какой-то таймаут на чтение, после которого можно будет всё это дело прервать и переконнектиться. Вопрос, собственно, в том, как его кроссплатформенно (SBCL, CCL, ECL, чем больше - тем лучше) реализовать наиболее красивым способом.

Сходу находится какой-то trivial-timeout, но он страшный, мёртвый и, по заверением разработчиков, может не работать. Второй вариант - решение из comp.lang.lisp с бесконечным циклом и sleep. Вроде бы должно сработать, но бесконечные циклы со sleep меня пугают (хотя можно, если прижмёт).Третье - поиграть с usocket:wait-for-input, но все его применяют для серверных вещей, а у меня типа клиентское.

Также в качестве извращённого варианта можно предложить какой-нибудь watchdog thread (у меня и так многопоточная штука), который будет проверять время последнего сработавшего read-line и рестартить треды по необходимости. Но это немного странно выглядит, да и надо хэш-таблицу с локами делать.

Может кто подскажет самое изящное и простое решение?