[usocket-cvs] r499 - in usocket/trunk: . backend

[Hans Hübner]

Author: hhubner
Date: Thu Sep 17 03:00:14 2009
New Revision: 499

Log:
Fix condition instanciation for openmcl port.
Add new deadline-timeout-error condition, conditionalized for openmcl atm


Modified:
   usocket/trunk/backend/openmcl.lisp
   usocket/trunk/condition.lisp

Modified: usocket/trunk/backend/openmcl.lisp
==============================================================================
--- usocket/trunk/backend/openmcl.lisp	(original)
+++ usocket/trunk/backend/openmcl.lisp	Thu Sep 17 03:00:14 2009
@@ -62,9 +62,9 @@
        (raise-error-from-id (openmcl-socket:socket-error-identifier condition)
                             socket condition))
     (ccl:input-timeout
-       (error 'timeout-error :socket socket :real-error condition))
+       (error 'timeout-error :socket socket))
     (ccl:communication-deadline-expired
-       (error 'timeout-error :socket socket :real-error condition))
+       (error 'deadline-timeout-error :socket socket))
     (ccl::socket-creation-error #| ugh! |#
        (raise-error-from-id (ccl::socket-creation-error-identifier condition)
                             socket condition))))

Modified: usocket/trunk/condition.lisp
==============================================================================
--- usocket/trunk/condition.lisp	(original)
+++ usocket/trunk/condition.lisp	Thu Sep 17 03:00:14 2009
@@ -111,6 +111,7 @@
    host-unreachable-error
    shutdown-error
    timeout-error
+   #+openmcl deadline-timeout-error
    invalid-socket-error
    invalid-socket-stream-error)
   (socket-error))