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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sat Feb 11 17:27:34 2006
New Revision: 79

Modified:
   usocket/trunk/backend/openmcl.lisp
Log:
Fix return type of socket-connect.

Modified: usocket/trunk/backend/openmcl.lisp
==============================================================================
--- usocket/trunk/backend/openmcl.lisp	(original)
+++ usocket/trunk/backend/openmcl.lisp	Sat Feb 11 17:27:34 2006
@@ -36,12 +36,12 @@
     (condition (signal 'unknown-condition :real-condition condition))))
 
 (defun socket-connect (host port)
-  (let ((sock))
-    (with-mapped-conditions (sock)
-      (setf sock
-            (openmcl-socket:make-socket :remote-host (host-to-hostname host)
-                             :remote-port port))
-      (openmcl-socket:socket-connect sock))))
+  (with-mapped-conditions ()
+     (let ((mcl-sock (openmcl-socket:make-socket :remote-host
+                                                 (host-to-hostname host)
+                                                 :remote-port port)))
+        (openmcl-socket:socket-connect mcl-sock)
+        (make-socket :stream mcl-sock :socket mcl-sock))))
 
 (defmethod socket-close ((usocket usocket))
   (with-mapped-conditions (usocket)