[usocket-cvs] r439 - usocket/trunk/backend

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))))
participants (1)
-
Erik Huelsmann