Changeset 3418

Timestamp:

07/09/08 07:55:22 (6 months ago)

Author:

hans

Message:

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

Files:

• trunk/thirdparty/usocket/backend/openmcl.lisp (modified) (1 diff)

trunk/thirdparty/usocket/backend/openmcl.lisp

@@ -60 +60 @@
-       (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))