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