Author: ctian Date: Sat May 1 21:57:55 2010 New Revision: 522

Log: Bugfix from USOCKET-UDP: call HOST-TO-HBO before detecting NULL values (Clozure only)

Modified: usocket/trunk/backend/openmcl.lisp

Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Sat May 1 21:57:55 2010 @@ -147,7 +147,7 @@ (defmethod socket-send ((usocket datagram-usocket) buffer length &key host port) (with-mapped-conditions (usocket) (openmcl-socket:send-to (socket usocket) buffer length - :remote-host (host-to-hbo host) + :remote-host (if host (host-to-hbo host)) :remote-port port)))

(defmethod socket-receive ((usocket datagram-usocket) buffer length &key) @@ -204,5 +204,3 @@ (input-available-p (wait-list-waiters wait-list) (when timeout ticks-timeout)) wait-list))) - -