For whatever reason not all socket errors from sbcl are translated by…

… usocket.
Shinmera · Aug 30, 2024 · cc97ff5 · cc97ff5
1 parent 6124454
commit cc97ff5
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/client.lisp b/client.lisp
@@ -234,6 +234,9 @@
                           (when (and received (< 0 received))
                             (return received)))))
           (usocket:socket-close socket)))
+    #+sbcl
+    (sb-bsd-sockets:socket-error (e)
+      (values NIL e))
     (usocket:socket-error (e)
       (values NIL e))))