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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Wed Feb  1 16:01:18 2006
New Revision: 18

Modified:
   usocket/trunk/backend/allegro.lisp
Log:
Update with latest documentation research.

Modified: usocket/trunk/backend/allegro.lisp
==============================================================================
--- usocket/trunk/backend/allegro.lisp	(original)
+++ usocket/trunk/backend/allegro.lisp	Wed Feb  1 16:01:18 2006
@@ -25,7 +25,10 @@
 
 
 (defun get-host-by-address (address)
-  (sock:lookup-host address))
+  (sock:ipaddr-to-hostname address))
 
 (defun get-hosts-by-name (name)
-  (sock:lookup-host 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.
+  (list (hbo-to-vector-quad (sock:lookup-hostname name))))