[bknr-cvs] hans changed trunk/thirdparty/usocket/backend/openmcl.lisp

[BKNR Commits]

Revision: 3418
Author: hans
URL: http://bknr.net/trac/changeset/3418

Convert CCL:INPUT-TIMEOUT to USOCKET:TIMEOUT-ERROR.

U   trunk/thirdparty/usocket/backend/openmcl.lisp

Modified: trunk/thirdparty/usocket/backend/openmcl.lisp
===================================================================
--- trunk/thirdparty/usocket/backend/openmcl.lisp	2008-07-09 05:54:03 UTC (rev 3417)
+++ trunk/thirdparty/usocket/backend/openmcl.lisp	2008-07-09 05:55:22 UTC (rev 3418)
@@ -59,6 +59,8 @@
     (openmcl-socket:socket-error
        (raise-error-from-id (openmcl-socket:socket-error-identifier condition)
                             socket condition))
+    (ccl:input-timeout
+       (error 'timeout-error :socket socket :real-error condition))
     (ccl:communication-deadline-expired
        (error 'timeout-error :socket socket :real-error condition))
     (ccl::socket-creation-error #| ugh! |#