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! |#