Author: ctian Date: Tue Oct 28 10:37:24 2008 New Revision: 468
Log: [udp] merge from trunk and limit format of datagram to :binary
Modified: usocket/branches/experimental-udp/backend/openmcl.lisp
Modified: usocket/branches/experimental-udp/backend/openmcl.lisp ============================================================================== --- usocket/branches/experimental-udp/backend/openmcl.lisp (original) +++ usocket/branches/experimental-udp/backend/openmcl.lisp Tue Oct 28 10:37:24 2008 @@ -81,9 +81,9 @@ (ecase protocol (:stream (let ((mcl-sock - (openmcl-socket:make-socket :remote-host (host-to-hbo host) + (openmcl-socket:make-socket :remote-host (host-to-hostname host) :remote-port port - :local-host (host-to-hbo local-host) + :local-host (when local-host (host-to-hostname local-host)) :local-port local-port :format (to-format element-type) :deadline deadline @@ -96,8 +96,9 @@ (let ((mcl-sock (openmcl-socket:make-socket :address-family :internet :type :datagram - :local-host (host-to-hbo local-host) - :local-port local-port))) + :local-host (when local-host (host-to-hostname local-host)) + :local-port local-port + :format :binary))) (when (and host port) (ccl::inet-connect (ccl::socket-device mcl-sock) (ccl::host-as-inet-host host)