[usocket-cvs] r327 - usocket/trunk

[ehuelsmann at common-lisp.net]

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