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