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

17 Feb 2006

Author: ehuelsmann
Date: Fri Feb 17 01:49:40 2006
New Revision: 103
Modified:
   usocket/trunk/backend/clisp.lisp
   usocket/trunk/backend/cmucl.lisp
   usocket/trunk/backend/lispworks.lisp
   usocket/trunk/backend/sbcl.lisp
Log:
nth-value is zero based ...
Modified: usocket/trunk/backend/clisp.lisp
==============================================================================

--- usocket/trunk/backend/clisp.lisp	(original)
+++ usocket/trunk/backend/clisp.lisp	Fri Feb 17 01:49:40 2006
@@ -69,14 +69,14 @@
     (values (dotted-quad-to-vector-quad address) port)))
(defmethod get-local-address ((usocket usocket))
-  (nth-value 1 (get-local-name usocket)))
+  (nth-value 0 (get-local-name usocket)))
(defmethod get-peer-address ((usocket usocket))
-  (nth-value 1 (get-peer-name usocket)))
+  (nth-value 0 (get-peer-name usocket)))
(defmethod get-local-port ((usocket usocket))
-  (nth-value 2 (get-local-name usocket)))
+  (nth-value 1 (get-local-name usocket)))
(defmethod get-peer-port ((usocket usocket))
-  (nth-value 2 (get-peer-name 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	Fri Feb 17 01:49:40 2006
@@ -87,16 +87,16 @@
     (values (hbo-to-vector-quad address) port)))
(defmethod get-local-address ((usocket usocket))
-  (nth-value 1 (get-local-name usocket)))
+  (nth-value 0 (get-local-name usocket)))
(defmethod get-peer-address ((usocket usocket))
-  (nth-value 1 (get-peer-name usocket)))
+  (nth-value 0 (get-peer-name usocket)))
(defmethod get-local-port ((usocket usocket))
-  (nth-value 2 (get-local-name usocket)))
+  (nth-value 1 (get-local-name usocket)))
(defmethod get-peer-port ((usocket usocket))
-  (nth-value 2 (get-peer-name usocket)))
+  (nth-value 1 (get-peer-name usocket)))
(defun get-host-by-address (address)
Modified: usocket/trunk/backend/lispworks.lisp
==============================================================================
--- usocket/trunk/backend/lispworks.lisp	(original)
+++ usocket/trunk/backend/lispworks.lisp	Fri Feb 17 01:49:40 2006
@@ -77,13 +77,13 @@
     (values (hbo-to-vector-quad address) port)))
(defmethod get-local-address ((usocket usocket))
-  (nth-value 1 (get-local-name usocket)))
+  (nth-value 0 (get-local-name usocket)))
(defmethod get-peer-address ((usocket usocket))
-  (nth-value 1 (get-peer-name usocket)))
+  (nth-value 0 (get-peer-name usocket)))
(defmethod get-local-port ((usocket usocket))
-  (nth-value 2 (get-local-name usocket)))
+  (nth-value 1 (get-local-name usocket)))
(defmethod get-peer-port ((usocket usocket))
-  (nth-value 2 (get-peer-name usocket)))
+  (nth-value 1 (get-peer-name usocket)))
Modified: usocket/trunk/backend/sbcl.lisp
==============================================================================
--- usocket/trunk/backend/sbcl.lisp	(original)
+++ usocket/trunk/backend/sbcl.lisp	Fri Feb 17 01:49:40 2006
@@ -85,16 +85,16 @@
   (sb-bsd-sockets:socket-peername (socket usocket)))
(defmethod get-local-address ((usocket usocket))
-  (nth-value 1 (get-local-name usocket)))
+  (nth-value 0 (get-local-name usocket)))
(defmethod get-peer-address ((usocket usocket))
-  (nth-value 1 (get-peer-name usocket)))
+  (nth-value 0 (get-peer-name usocket)))
(defmethod get-local-port ((usocket usocket))
-  (nth-value 2 (get-local-name usocket)))
+  (nth-value 1 (get-local-name usocket)))
(defmethod get-peer-port ((usocket usocket))
-  (nth-value 2 (get-peer-name usocket)))
+  (nth-value 1 (get-peer-name usocket)))
(defun get-host-by-address (address)

    