[usocket-cvs] r593 - usocket/branches/0.5.x/backend

[Chun Tian (binghe)]

Author: ctian
Date: Mon Mar 28 19:02:54 2011
New Revision: 593

Log:
Fixed for ECL (always forget this)

Modified:
   usocket/branches/0.5.x/backend/sbcl.lisp

Modified: usocket/branches/0.5.x/backend/sbcl.lisp
==============================================================================
--- usocket/branches/0.5.x/backend/sbcl.lisp	(original)
+++ usocket/branches/0.5.x/backend/sbcl.lisp	Mon Mar 28 19:02:54 2011
@@ -250,11 +250,14 @@
               (when (or local-host local-port)
                 (sb-bsd-sockets:socket-bind socket local-host local-port))
               (with-mapped-conditions (usocket)
+		#+sbcl
 		(labels ((connect ()
 			   (sb-bsd-sockets:socket-connect socket (host-to-vector-quad host) port)))
 		  (if timeout
 		      (sb-ext:with-timeout timeout (connect))
 		      (connect)))
+		#+ecl
+		(sb-bsd-sockets:socket-connect socket (host-to-vector-quad host) port)
                 ;; Now that we're connected make the stream.
                 (setf (socket-stream usocket)
                       (sb-bsd-sockets:socket-make-stream socket