~mdw
/
zone
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Attempt to port the lot to CLisp.
[zone]
/
net.lisp
diff --git
a/net.lisp
b/net.lisp
index
35e4340
..
d957f53
100644
(file)
--- a/
net.lisp
+++ b/
net.lisp
@@
-256,19
+256,20
@@
;;;--------------------------------------------------------------------------
;;; Name resolution.
;;;--------------------------------------------------------------------------
;;; Name resolution.
-#+cmu
(defun resolve-hostname (name)
"Resolve a hostname to an IP address using the DNS, or return nil."
(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."
(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.
;;;--------------------------------------------------------------------------
;;; Host names and specifiers.