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)