[usocket-cvs] r499 - in usocket/trunk: . backend
Hans Hübner
hhubner at common-lisp.net
Thu Sep 17 07:00:16 UTC 2009
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))
More information about the usocket-cvs
mailing list