From ctian at common-lisp.net  Wed Jul 22 15:32:59 2009
From: ctian at common-lisp.net (Chun Tian (binghe))
Date: Wed, 22 Jul 2009 11:32:59 -0400
Subject: [usocket-cvs] r498 - usocket/trunk/backend
Message-ID: <E1MTdoR-0000lB-Fi@common-lisp.net>

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)