[usocket-cvs] r290 - usocket/branches/0.3.x/backend

[ehuelsmann at common-lisp.net]

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))