[usocket-cvs] r327 - usocket/trunk

Author: ehuelsmann Date: Fri Apr 11 17:17:32 2008 New Revision: 327 Modified: usocket/trunk/usocket.lisp Log: Wrap section with WITH-MAPPED-CONDITIONS; by Hans Huebner (hans at huebner dot org). Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Fri Apr 11 17:17:32 2008 @@ -168,7 +168,8 @@ `(let ((,var ,socket)) (unwind-protect (when ,var - ,@body) + (with-mapped-conditions (,var) + ,@body)) (when ,var (socket-close ,var)))))