[usocket-cvs] r440 - usocket/branches/0.4.x/backend

[Erik Huelsmann]

Author: ehuelsmann
Date: Tue Oct 21 12:27:45 2008
New Revision: 440

Log:
Merge c439: report deadline errors as DEADLINE-ERROR.

Modified:
   usocket/branches/0.4.x/backend/openmcl.lisp

Modified: usocket/branches/0.4.x/backend/openmcl.lisp
==============================================================================
--- usocket/branches/0.4.x/backend/openmcl.lisp	(original)
+++ usocket/branches/0.4.x/backend/openmcl.lisp	Tue Oct 21 12:27:45 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))))