[usocket-cvs] r331 - in usocket/branches: 0.3.x 0.4.x

[ehuelsmann at common-lisp.net]

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
-           , at body)
+           (with-mapped-conditions (,var)
+             , at 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
-           , at body)
+           (with-mapped-conditions (,var)
+             , at body))
        (when ,var
          (socket-close ,var)))))