[usocket-cvs] r444 - usocket/branches/experimental-udp

[Chun Tian (binghe)]

Author: ctian
Date: Tue Oct 21 13:47:47 2008
New Revision: 444

Log:
[udp] revert changes to HOST-TO-HOSTNAME and HOST-TO-HBO, just bad idea.

Modified:
   usocket/branches/experimental-udp/usocket.lisp

Modified: usocket/branches/experimental-udp/usocket.lisp
==============================================================================
--- usocket/branches/experimental-udp/usocket.lisp	(original)
+++ usocket/branches/experimental-udp/usocket.lisp	Tue Oct 21 13:47:47 2008
@@ -407,7 +407,6 @@
 (defun host-to-hostname (host)
   "Translate a string or vector quad to a stringified hostname."
   (etypecase host
-    (null nil)
     (string host)
     ((or (vector t 4)
          (array (unsigned-byte 8) (4)))
@@ -461,7 +460,6 @@
 
   (defun host-to-hbo (host)
     (etypecase host
-      (null nil)
       (string (let ((ip (ignore-errors
                           (dotted-quad-to-vector-quad host))))
                 (if (and ip (= 4 (length ip)))