[usocket-cvs] r490 - usocket/branches/experimental-udp/backend

[Chun Tian (binghe)]

Author: ctian
Date: Wed Feb 11 04:20:40 2009
New Revision: 490

Log:
[udp, sbcl] fix a bug reported on usocket-udp

Modified:
   usocket/branches/experimental-udp/backend/sbcl.lisp

Modified: usocket/branches/experimental-udp/backend/sbcl.lisp
==============================================================================
--- usocket/branches/experimental-udp/backend/sbcl.lisp	(original)
+++ usocket/branches/experimental-udp/backend/sbcl.lisp	Wed Feb 11 04:20:40 2009
@@ -252,7 +252,7 @@
 					  (or local-host *wildcard-host*))
 					 (or local-port *auto-port*)))
 	   (when (and host port)
-	     (sb-bsd-sockets:socket-connect socket (host-to-hbo host) port))
+	     (sb-bsd-sockets:socket-connect socket (host-to-vector-quad host) port))
 	   (make-datagram-socket socket)))
       (t (c)
         ;; Make sure we don't leak filedescriptors