[usocket-cvs] r292 - usocket/trunk/backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Mon Sep 17 15:25:34 2007
New Revision: 292

Modified:
   usocket/trunk/backend/sbcl.lisp
Log:
Expand SBCL with-mapped-conditions binding to close over sb-bsd-sockets:accept call.

Modified: usocket/trunk/backend/sbcl.lisp
==============================================================================
--- usocket/trunk/backend/sbcl.lisp	(original)
+++ usocket/trunk/backend/sbcl.lisp	Mon Sep 17 15:25:34 2007
@@ -214,8 +214,8 @@
        (make-stream-server-socket sock :element-type element-type))))
 
 (defmethod socket-accept ((socket stream-server-usocket) &key element-type)
-  (let ((sock (sb-bsd-sockets:socket-accept (socket socket))))
-    (with-mapped-conditions (socket)
+  (with-mapped-conditions (socket)
+     (let ((sock (sb-bsd-sockets:socket-accept (socket socket))))
        (make-stream-socket
         :socket sock
         :stream (sb-bsd-sockets:socket-make-stream