[usocket-cvs] r220 - usocket/trunk/backend - usocket-cvs@common-lisp.net - mailman3.common-lisp.net

24 Mar 2007

Author: ehuelsmann
Date: Sat Mar 24 18:18:41 2007
New Revision: 220
Modified:
   usocket/trunk/backend/allegro.lisp
   usocket/trunk/backend/clisp.lisp
   usocket/trunk/backend/cmucl.lisp
   usocket/trunk/backend/lispworks.lisp
   usocket/trunk/backend/openmcl.lisp
   usocket/trunk/backend/sbcl.lisp
   usocket/trunk/backend/scl.lisp
Log:
Specialize the peer info functions on the only socket which has a peer.
Modified: usocket/trunk/backend/allegro.lisp
==============================================================================

--- usocket/trunk/backend/allegro.lisp	(original)
+++ usocket/trunk/backend/allegro.lisp	Sat Mar 24 18:18:41 2007
@@ -85,20 +85,20 @@
 (defmethod get-local-address ((usocket usocket))
   (hbo-to-vector-quad (socket:local-host (socket usocket))))
-(defmethod get-peer-address ((usocket stream-server-usocket))
+(defmethod get-peer-address ((usocket stream-usocket))
   (hbo-to-vector-quad (socket:remote-host (socket usocket))))
(defmethod get-local-port ((usocket usocket))
   (socket:local-port (socket usocket)))
-(defmethod get-peer-port ((usocket stream-server-usocket))
+(defmethod get-peer-port ((usocket stream-usocket))
   (socket:remote-port (socket usocket)))
(defmethod get-local-name ((usocket usocket))
   (values (get-local-address usocket)
           (get-local-port usocket)))
-(defmethod get-peer-name ((usocket stream-server-usocket))
+(defmethod get-peer-name ((usocket stream-usocket))
   (values (get-peer-address usocket)
           (get-peer-port usocket)))
Modified: usocket/trunk/backend/clisp.lisp
==============================================================================
--- usocket/trunk/backend/clisp.lisp	(original)
+++ usocket/trunk/backend/clisp.lisp	Sat Mar 24 18:18:41 2007
@@ -87,7 +87,7 @@
       (socket:socket-stream-local (socket usocket) nil)
     (values (dotted-quad-to-vector-quad address) port)))
-(defmethod get-peer-name ((usocket usocket))
+(defmethod get-peer-name ((usocket stream-usocket))
   (multiple-value-bind
       (address port)
       (socket:socket-stream-peer (socket usocket) nil)
@@ -96,12 +96,12 @@
 (defmethod get-local-address ((usocket usocket))
   (nth-value 0 (get-local-name usocket)))
-(defmethod get-peer-address ((usocket usocket))
+(defmethod get-peer-address ((usocket stream-usocket))
   (nth-value 0 (get-peer-name usocket)))
(defmethod get-local-port ((usocket usocket))
   (nth-value 1 (get-local-name usocket)))
-(defmethod get-peer-port ((usocket usocket))
+(defmethod get-peer-port ((usocket stream-usocket))
   (nth-value 1 (get-peer-name usocket)))
Modified: usocket/trunk/backend/cmucl.lisp
==============================================================================
--- usocket/trunk/backend/cmucl.lisp	(original)
+++ usocket/trunk/backend/cmucl.lisp	Sat Mar 24 18:18:41 2007
@@ -110,7 +110,7 @@
       (ext:get-socket-host-and-port (socket usocket))
     (values (hbo-to-vector-quad address) port)))
-(defmethod get-peer-name ((usocket usocket))
+(defmethod get-peer-name ((usocket stream-usocket))
   (multiple-value-bind
       (address port)
       (ext:get-peer-host-and-port (socket usocket))
@@ -119,13 +119,13 @@
 (defmethod get-local-address ((usocket usocket))
   (nth-value 0 (get-local-name usocket)))
-(defmethod get-peer-address ((usocket usocket))
+(defmethod get-peer-address ((usocket stream-usocket))
   (nth-value 0 (get-peer-name usocket)))
(defmethod get-local-port ((usocket usocket))
   (nth-value 1 (get-local-name usocket)))
-(defmethod get-peer-port ((usocket usocket))
+(defmethod get-peer-port ((usocket stream-usocket))
   (nth-value 1 (get-peer-name usocket)))
Modified: usocket/trunk/backend/lispworks.lisp
==============================================================================
--- usocket/trunk/backend/lispworks.lisp	(original)
+++ usocket/trunk/backend/lispworks.lisp	Sat Mar 24 18:18:41 2007
@@ -94,7 +94,7 @@
       (comm:get-socket-address (socket usocket))
     (values (hbo-to-vector-quad address) port)))
-(defmethod get-peer-name ((usocket usocket))
+(defmethod get-peer-name ((usocket stream-usocket))
   (multiple-value-bind
       (address port)
       (comm:get-socket-peer-address (socket usocket))
@@ -103,13 +103,13 @@
 (defmethod get-local-address ((usocket usocket))
   (nth-value 0 (get-local-name usocket)))
-(defmethod get-peer-address ((usocket usocket))
+(defmethod get-peer-address ((usocket stream-usocket))
   (nth-value 0 (get-peer-name usocket)))
(defmethod get-local-port ((usocket usocket))
   (nth-value 1 (get-local-name usocket)))
-(defmethod get-peer-port ((usocket usocket))
+(defmethod get-peer-port ((usocket stream-usocket))
   (nth-value 1 (get-peer-name usocket)))
(defun get-hosts-by-name (name)
Modified: usocket/trunk/backend/openmcl.lisp
==============================================================================
--- usocket/trunk/backend/openmcl.lisp	(original)
+++ usocket/trunk/backend/openmcl.lisp	Sat Mar 24 18:18:41 2007
@@ -83,20 +83,20 @@
 (defmethod get-local-address ((usocket usocket))
   (hbo-to-vector-quad (openmcl-socket:local-host (socket usocket))))
-(defmethod get-peer-address ((usocket usocket))
+(defmethod get-peer-address ((usocket stream-usocket))
   (hbo-to-vector-quad (openmcl-socket:remote-host (socket usocket))))
(defmethod get-local-port ((usocket usocket))
   (openmcl-socket:local-port (socket usocket)))
-(defmethod get-peer-port ((usocket usocket))
+(defmethod get-peer-port ((usocket stream-usocket))
   (openmcl-socket:remote-port (socket usocket)))
(defmethod get-local-name ((usocket usocket))
   (values (get-local-address usocket)
           (get-local-port usocket)))
-(defmethod get-peer-name ((usocket usocket))
+(defmethod get-peer-name ((usocket stream-usocket))
   (values (get-peer-address usocket)
           (get-peer-port usocket)))
Modified: usocket/trunk/backend/sbcl.lisp
==============================================================================
--- usocket/trunk/backend/sbcl.lisp	(original)
+++ usocket/trunk/backend/sbcl.lisp	Sat Mar 24 18:18:41 2007
@@ -116,19 +116,19 @@
 (defmethod get-local-name ((usocket usocket))
   (sb-bsd-sockets:socket-name (socket usocket)))
-(defmethod get-peer-name ((usocket usocket))
+(defmethod get-peer-name ((usocket stream-usocket))
   (sb-bsd-sockets:socket-peername (socket usocket)))
(defmethod get-local-address ((usocket usocket))
   (nth-value 0 (get-local-name usocket)))
-(defmethod get-peer-address ((usocket usocket))
+(defmethod get-peer-address ((usocket stream-usocket))
   (nth-value 0 (get-peer-name usocket)))
(defmethod get-local-port ((usocket usocket))
   (nth-value 1 (get-local-name usocket)))
-(defmethod get-peer-port ((usocket usocket))
+(defmethod get-peer-port ((usocket stream-usocket))
   (nth-value 1 (get-peer-name usocket)))
Modified: usocket/trunk/backend/scl.lisp
==============================================================================
--- usocket/trunk/backend/scl.lisp	(original)
+++ usocket/trunk/backend/scl.lisp	Sat Mar 24 18:18:41 2007
@@ -82,7 +82,7 @@
         (ext:get-socket-host-and-port (socket usocket)))
     (values (hbo-to-vector-quad address) port)))
-(defmethod get-peer-name ((usocket usocket))
+(defmethod get-peer-name ((usocket stream-usocket))
   (multiple-value-bind (address port)
       (with-mapped-conditions (usocket)
         (ext:get-peer-host-and-port (socket usocket)))
@@ -91,13 +91,13 @@
 (defmethod get-local-address ((usocket usocket))
   (nth-value 0 (get-local-name usocket)))
-(defmethod get-peer-address ((usocket usocket))
+(defmethod get-peer-address ((usocket stream-usocket))
   (nth-value 0 (get-peer-name usocket)))
(defmethod get-local-port ((usocket usocket))
   (nth-value 1 (get-local-name usocket)))
-(defmethod get-peer-port ((usocket usocket))
+(defmethod get-peer-port ((usocket stream-usocket))
   (nth-value 1 (get-peer-name usocket)))

    