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

[ctian at common-lisp.net]

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)