From hhubner at common-lisp.net  Thu Sep 17 07:00:16 2009
From: hhubner at common-lisp.net (=?UTF-8?Q?Hans_H=C3=BCbner?=)
Date: Thu, 17 Sep 2009 03:00:16 -0400
Subject: [usocket-cvs] r499 - in usocket/trunk: . backend
Message-ID: <E1MoAyW-0004nz-7E@common-lisp.net>

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



From hhubner at common-lisp.net  Thu Sep 17 07:01:50 2009
From: hhubner at common-lisp.net (=?UTF-8?Q?Hans_H=C3=BCbner?=)
Date: Thu, 17 Sep 2009 03:01:50 -0400
Subject: [usocket-cvs] r500 - usocket/trunk
Message-ID: <E1MoB02-0005PJ-Jm@common-lisp.net>

Author: hhubner
Date: Thu Sep 17 03:01:50 2009
New Revision: 500

Log:
unconditionalize deadline-timeout-error

Modified:
   usocket/trunk/condition.lisp

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