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

[ehuelsmann at common-lisp.net]

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