-(preferred-subnet-case
- (fretwank
- (setf *default-zone-source* 'vampire.distorted.org.uk.)
- (defhost mail metalzone)
- (defhost bloghost vampire))
- (t
- (setf *default-zone-source* 'guvnor.distorted.org.uk.)
- (defhost mail guvnor.demon)
- (defhost bloghost guvnor.demon)))