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

[Chun Tian (binghe)]

Author: ctian
Date: Wed Jul 22 11:32:46 2009
New Revision: 498

Log:
Disable a error-map (sb-sys:io-timeout) on ECL, reported by Marko Kocic

Modified:
   usocket/trunk/backend/sbcl.lisp

Modified: usocket/trunk/backend/sbcl.lisp
==============================================================================
--- usocket/trunk/backend/sbcl.lisp	(original)
+++ usocket/trunk/backend/sbcl.lisp	Wed Jul 22 11:32:46 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)
+    #-ecl
     (sb-sys:io-timeout . timeout-error)
     (sb-bsd-sockets:socket-error . ,#'map-socket-error)