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