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

[ehuelsmann at common-lisp.net]

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)