[usocket-cvs] r522 - usocket/trunk/backend

[Chun Tian (binghe)]

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