diff --git a/src/gemini/client.lisp b/src/gemini/client.lisp index 4dc672e..4236a5c 100644 --- a/src/gemini/client.lisp +++ b/src/gemini/client.lisp @@ -441,7 +441,7 @@ (usocket:socket-connect hostname port :element-type '(unsigned-byte 8)))) - #+sbcl (sb-sys:with-deadline (:seconds +open-socket-response-deadline+) + #+sbcl (sb-ext:with-timeout +open-socket-response-deadline+ (open-socket (idn:host-unicode->ascii host))) #-sbcl (open-socket (idn:host-unicode->ascii host))))