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