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)