Author: ctian Date: Sat Feb 4 09:48:27 2012 New Revision: 686
Log: Fixed a bug in previous commit during argument name changes
Modified: usocket/trunk/backend/allegro.lisp usocket/trunk/backend/sbcl.lisp
Modified: usocket/trunk/backend/allegro.lisp ============================================================================== --- usocket/trunk/backend/allegro.lisp Sat Feb 4 07:56:00 2012 (r685) +++ usocket/trunk/backend/allegro.lisp Sat Feb 4 09:48:27 2012 (r686) @@ -151,9 +151,9 @@ (values (get-peer-address usocket) (get-peer-port usocket)))
-(defmethod socket-send ((socket datagram-usocket) buffer size &key host port (offset 0)) - (with-mapped-conditions (socket) - (let ((s (socket socket))) +(defmethod socket-send ((usocket datagram-usocket) buffer size &key host port (offset 0)) + (with-mapped-conditions (usocket) + (let ((s (socket usocket))) (socket:send-to s (if (zerop offset) buffer
Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp Sat Feb 4 07:56:00 2012 (r685) +++ usocket/trunk/backend/sbcl.lisp Sat Feb 4 09:48:27 2012 (r686) @@ -399,7 +399,7 @@ (close (socket-stream usocket))))
(defmethod socket-send ((usocket datagram-usocket) buffer size &key host port (offset 0)) - (with-mapped-conditions (socket) + (with-mapped-conditions (usocket) (let* ((s (socket usocket)) (dest (if (and host port) (list (host-to-vector-quad host) port) nil)) (real-buffer (if (zerop offset)