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