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

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
participants (1)
-
Chun Tian