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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue Jan 16 18:07:39 2007
New Revision: 164

Modified:
   usocket/trunk/backend/allegro.lisp
Log:
Ensure correct argument type for DNS query functions.

Modified: usocket/trunk/backend/allegro.lisp
==============================================================================
--- usocket/trunk/backend/allegro.lisp	(original)
+++ usocket/trunk/backend/allegro.lisp	Tue Jan 16 18:07:39 2007
@@ -94,11 +94,12 @@
 
 (defun get-host-by-address (address)
   (with-mapped-conditions ()
-    (socket:ipaddr-to-hostname address)))
+    (socket:ipaddr-to-hostname (host-to-hbo address))))
 
 (defun get-hosts-by-name (name)
   ;;###FIXME: ACL has the acldns module which returns all A records
   ;; only problem: it doesn't fall back to tcp (from udp) if the returned
   ;; structure is too long.
   (with-mapped-conditions ()
-    (list (hbo-to-vector-quad (socket:lookup-hostname name)))))
+    (list (hbo-to-vector-quad (socket:lookup-hostname
+                               (host-to-hostname name)))))