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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Mon Sep 17 15:41:59 2007
New Revision: 293

Modified:
   usocket/trunk/backend/scl.lisp
Log:
r289 followup for Scieneer.

Modified: usocket/trunk/backend/scl.lisp
==============================================================================
--- usocket/trunk/backend/scl.lisp	(original)
+++ usocket/trunk/backend/scl.lisp	Mon Sep 17 15:41:59 2007
@@ -50,19 +50,22 @@
          (host (if (ip= host *wildcard-host*)
                    0
                  (host-to-hbo host)))
-         (server-sock (ext:create-inet-listener port :stream
-                                                :host host
-                                                :reuse-address reuseaddress
-                                                :backlog backlog)))
+         (server-sock
+          (with-mapped-conditions ()
+            (ext:create-inet-listener port :stream
+                                      :host host
+                                      :reuse-address reuseaddress
+                                      :backlog backlog))))
    (make-stream-server-socket server-sock :element-type element-type)))
 
 (defmethod socket-accept ((usocket stream-server-usocket) &key element-type)
-  (let* ((sock (ext:accept-tcp-connection (socket usocket)))
-         (stream (sys:make-fd-stream sock :input t :output t
-                                     :element-type (or element-type
-                                                       (element-type usocket))
-                                     :buffering :full)))
-    (make-stream-socket :socket sock :stream stream)))
+  (with-mapped-conditions (usocket)
+    (let* ((sock (ext:accept-tcp-connection (socket usocket)))
+           (stream (sys:make-fd-stream sock :input t :output t
+                                      :element-type (or element-type
+                                                        (element-type usocket))
+                                      :buffering :full)))
+      (make-stream-socket :socket sock :stream stream))))
 
 ;; Sockets and their associated streams are modelled as
 ;; different objects. Be sure to close the socket stream