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

[Chun Tian (binghe)]

Author: ctian
Date: Fri Jul  9 03:26:48 2010
New Revision: 537

Log:
ECL: wrong read macro fixed ...

Modified:
   usocket/trunk/backend/openmcl.lisp
   usocket/trunk/backend/sbcl.lisp

Modified: usocket/trunk/backend/openmcl.lisp
==============================================================================
--- usocket/trunk/backend/openmcl.lisp	(original)
+++ usocket/trunk/backend/openmcl.lisp	Fri Jul  9 03:26:48 2010
@@ -144,6 +144,7 @@
   (with-mapped-conditions (usocket)
     (close (socket usocket))))
 
+;;; TODO: use send() if already connected.
 (defmethod socket-send ((usocket datagram-usocket) buffer length &key host port)
   (with-mapped-conditions (usocket)
     (openmcl-socket:send-to (socket usocket) buffer length

Modified: usocket/trunk/backend/sbcl.lisp
==============================================================================
--- usocket/trunk/backend/sbcl.lisp	(original)
+++ usocket/trunk/backend/sbcl.lisp	Fri Jul  9 03:26:48 2010
@@ -556,7 +556,7 @@
      waiter))
 ) ; progn
 
-#+(and ecl win32)
+#-(and ecl win32)
 (progn
   (defun wait-for-input-internal (wl &key timeout)
     (with-mapped-conditions ()