Author: ehuelsmann Date: Mon Sep 17 15:15:07 2007 New Revision: 290

Modified: usocket/branches/0.3.x/backend/clisp.lisp Log: Merge r289 from trunk (clisp breakage with get-local-name/get-peer-name).

Modified: usocket/branches/0.3.x/backend/clisp.lisp ============================================================================== --- usocket/branches/0.3.x/backend/clisp.lisp (original) +++ usocket/branches/0.3.x/backend/clisp.lisp Mon Sep 17 15:15:07 2007 @@ -103,13 +103,13 @@ (defmethod get-local-name ((usocket usocket)) (multiple-value-bind (address port) - (socket:socket-stream-local (socket usocket) nil) + (socket:socket-stream-local (socket usocket) t) (values (dotted-quad-to-vector-quad address) port)))

(defmethod get-peer-name ((usocket stream-usocket)) (multiple-value-bind (address port) - (socket:socket-stream-peer (socket usocket) nil) + (socket:socket-stream-peer (socket usocket) t) (values (dotted-quad-to-vector-quad address) port)))

(defmethod get-local-address ((usocket usocket))