Author: hhubner Date: Wed Feb 18 14:56:24 2009 New Revision: 492

Log: Change mapping of ccl:communication-deadline-expired to 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 Wed Feb 18 14:56:24 2009 @@ -64,7 +64,7 @@ (ccl:input-timeout (error 'timeout-error :socket socket :real-error condition)) (ccl:communication-deadline-expired - (error 'deadline-error :socket socket :real-error condition)) + (error 'timeout-error :socket socket :real-error condition)) (ccl::socket-creation-error #| ugh! |# (raise-error-from-id (ccl::socket-creation-error-identifier condition) socket condition))))