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