Author: ehuelsmann Date: Tue Oct 21 12:25:53 2008 New Revision: 439
Log: Report deadline errors as DEADLINE-ERROR instead of TIMEOUT-ERROR
Modified: usocket/trunk/backend/openmcl.lisp
Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Tue Oct 21 12:25:53 2008 @@ -64,7 +64,7 @@ (ccl:input-timeout (error 'timeout-error :socket socket :real-error condition)) (ccl:communication-deadline-expired - (error 'timeout-error :socket socket :real-error condition)) + (error 'deadline-error :socket socket :real-error condition)) (ccl::socket-creation-error #| ugh! |# (raise-error-from-id (ccl::socket-creation-error-identifier condition) socket condition))))