[usocket-cvs] r165 - usocket/trunk/backend

Author: ehuelsmann Date: Tue Jan 16 18:11:09 2007 New Revision: 165 Modified: usocket/trunk/backend/lispworks.lisp Log: Ensure correct return type for DNS query function. Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Tue Jan 16 18:11:09 2007 @@ -106,4 +106,5 @@ (defun get-hosts-by-name (name) (with-mapped-conditions () - (comm:get-host-entry name :fields '(:addresses)))) + (mapcar #'hbo-to-vector-quad + (comm:get-host-entry name :fields '(:addresses)))))