[bknr-cvs] hans changed trunk/thirdparty/usocket/

[BKNR Commits]

Revision: 4195
Author: hans
URL: http://bknr.net/trac/changeset/4195

update from usocket trunk
_U  trunk/thirdparty/usocket/
U   trunk/thirdparty/usocket/backend/openmcl.lisp


Property changes on: trunk/thirdparty/usocket
___________________________________________________________________
Name: piston:local-revision
   - 4172
   + 4194
Name: piston:remote-revision
   - 483
   + 489

Modified: trunk/thirdparty/usocket/backend/openmcl.lisp
===================================================================
--- trunk/thirdparty/usocket/backend/openmcl.lisp	2009-02-09 09:57:29 UTC (rev 4194)
+++ trunk/thirdparty/usocket/backend/openmcl.lisp	2009-02-09 10:08:05 UTC (rev 4195)
@@ -1,4 +1,4 @@
-;;;; $Id: openmcl.lisp 439 2008-10-21 12:25:53Z ehuelsmann $
+;;;; $Id: openmcl.lisp 489 2009-02-09 10:08:05Z hhubner $
 ;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/trunk/backend/openmcl.lisp $
 
 ;;;; See LICENSE for licensing information.
@@ -123,10 +123,14 @@
     (close (socket usocket))))
 
 (defmethod get-local-address ((usocket usocket))
-  (hbo-to-vector-quad (openmcl-socket:local-host (socket usocket))))
+  (let ((address (openmcl-socket:local-host (socket usocket))))
+    (when address
+      (hbo-to-vector-quad address))))
 
 (defmethod get-peer-address ((usocket stream-usocket))
-  (hbo-to-vector-quad (openmcl-socket:remote-host (socket usocket))))
+  (let ((address (openmcl-socket:remote-host (socket usocket))))
+    (when address
+      (hbo-to-vector-quad address))))
 
 (defmethod get-local-port ((usocket usocket))
   (openmcl-socket:local-port (socket usocket)))