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)