[usocket-cvs] r157 - usocket/branches/0.2.x/backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue Jan 16 15:56:57 2007
New Revision: 157

Modified:
   usocket/branches/0.2.x/backend/lispworks.lisp
Log:
Backport r156 (missing get-hosts-by-name).

Modified: usocket/branches/0.2.x/backend/lispworks.lisp
==============================================================================
--- usocket/branches/0.2.x/backend/lispworks.lisp	(original)
+++ usocket/branches/0.2.x/backend/lispworks.lisp	Tue Jan 16 15:56:57 2007
@@ -88,3 +88,7 @@
 
 (defmethod get-peer-port ((usocket usocket))
   (nth-value 1 (get-peer-name usocket)))
+
+(defun get-hosts-by-name (name)
+  (with-mapped-conditions ()
+     (comm:get-host-entry name :fields '(:addresses))))