[usocket-cvs] r460 - usocket/branches/0.4.x/backend

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Oct 26 13:08:45 2008
New Revision: 460

Log:
Backport c459 from trunk.

Modified:
   usocket/branches/0.4.x/backend/sbcl.lisp

Modified: usocket/branches/0.4.x/backend/sbcl.lisp
==============================================================================
--- usocket/branches/0.4.x/backend/sbcl.lisp	(original)
+++ usocket/branches/0.4.x/backend/sbcl.lisp	Sun Oct 26 13:08:45 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)