Author: ehuelsmann Date: Fri Apr 11 17:48:26 2008 New Revision: 331
Modified: usocket/branches/0.3.x/usocket.lisp usocket/branches/0.4.x/usocket.lisp Log: Backport r327 to 0.3.x and 0.4.x branches.
Modified: usocket/branches/0.3.x/usocket.lisp ============================================================================== --- usocket/branches/0.3.x/usocket.lisp (original) +++ usocket/branches/0.3.x/usocket.lisp Fri Apr 11 17:48:26 2008 @@ -128,7 +128,8 @@ `(let ((,var ,socket)) (unwind-protect (when ,var - ,@body) + (with-mapped-conditions (,var) + ,@body)) (when ,var (socket-close ,var)))))
Modified: usocket/branches/0.4.x/usocket.lisp ============================================================================== --- usocket/branches/0.4.x/usocket.lisp (original) +++ usocket/branches/0.4.x/usocket.lisp Fri Apr 11 17:48:26 2008 @@ -162,7 +162,8 @@ `(let ((,var ,socket)) (unwind-protect (when ,var - ,@body) + (with-mapped-conditions (,var) + ,@body)) (when ,var (socket-close ,var)))))