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)))
-
-
