harlequin.lisp: Use the statically defined address for `guvnor'.

This avoids exercising the resolver for what's anyway a locally defined
name, and also avoids stressing the local search rules.

diff --git a/harlequin.lisp b/harlequin.lisp
index 148d696547ebc2efbed4057ef6b1f1459cef6d40..ecb2a67cff81f7b647ac137b64adcdec83d9f153 100644 (file)
--- a/harlequin.lisp
+++ b/harlequin.lisp
@@ -11,8 +11,8 @@    (defhost mail metalzone)
    (defhost bloghost vampire))
   (t
    (setf *default-zone-source* 'guvnor.distorted.org.uk.)
    (defhost bloghost vampire))
   (t
    (setf *default-zone-source* 'guvnor.distorted.org.uk.)

-   (defhost mail guvnor.demon)
-   (defhost bloghost guvnor.demon)))
+   (defhost mail guvnor.distorted.org.uk)
+   (defhost bloghost guvnor.distorted.org.uk)))

 
 (defzone harlequin.org.uk
   ;;
 
 (defzone harlequin.org.uk
   ;;