;;;--------------------------------------------------------------------------
;;; Name resolution.
-#+cmu
(defun resolve-hostname (name)
"Resolve a hostname to an IP address using the DNS, or return nil."
- (let ((he (ext:lookup-host-entry name)))
- (and he
- (ext:host-entry-addr he))))
+ #+cmu (let ((he (ext:lookup-host-entry name)))
+ (and he
+ (ext:host-entry-addr he)))
+ #-cmu nil
+)
-#+cmu
(defun canonify-hostname (name)
"Resolve a hostname to canonical form using the DNS, or return nil."
- (let ((he (ext:lookup-host-entry name)))
- (and he
- (ext:host-entry-name he))))
+ #+cmu (let ((he (ext:lookup-host-entry name)))
+ (and he
+ (ext:host-entry-name he)))
+ #-cmu nil)
;;;--------------------------------------------------------------------------
;;; Host names and specifiers.