[usocket-cvs] r459 - usocket/trunk/backend

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Oct 26 13:06:24 2008
New Revision: 459

Log:
Catch serious-conditions for re-raising through ERROR too.

Found by: Attila Levendai

PS: Other backends seem to use different assumptions.

Modified:
   usocket/trunk/backend/sbcl.lisp

Modified: usocket/trunk/backend/sbcl.lisp
==============================================================================
--- usocket/trunk/backend/sbcl.lisp	(original)
+++ usocket/trunk/backend/sbcl.lisp	Sun Oct 26 13:06:24 2008
@@ -185,7 +185,7 @@
 (defun handle-condition (condition &optional (socket nil))
   "Dispatch correct usocket condition."
   (typecase condition
-    (error (let* ((usock-error (cdr (assoc (type-of condition)
+    (serious-condition (let* ((usock-error (cdr (assoc (type-of condition)
                                            +sbcl-error-map+)))
                   (usock-error (if (functionp usock-error)
                                    (funcall usock-error condition)