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

[Erik Huelsmann]

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))))