[usocket-cvs] r497 - usocket/trunk/backend

[Hans Hübner]

Author: hhubner
Date: Fri May 22 04:05:53 2009
New Revision: 497

Log:
Add mapping for SB-SYS:IO-TIMEOUT condition.
Patch provided by Andrei Stebakov


Modified:
   usocket/trunk/backend/sbcl.lisp

Modified: usocket/trunk/backend/sbcl.lisp
==============================================================================
--- usocket/trunk/backend/sbcl.lisp	(original)
+++ usocket/trunk/backend/sbcl.lisp	Fri May 22 04:05:53 2009
@@ -174,6 +174,7 @@
      . socket-type-not-supported-error)
     (sb-bsd-sockets:network-unreachable-error . network-unreachable-error)
     (sb-bsd-sockets:operation-timeout-error . timeout-error)
+    (sb-sys:io-timeout . timeout-error)
     (sb-bsd-sockets:socket-error . ,#'map-socket-error)
 
     ;; Nameservice errors: mapped to unknown-error