;;; -*- Mode:Common-Lisp; Package:USER; Base:10 -*-
;;; 30-Jul-88 18:52:32, Björn Victor
;;; Copyright (c) 1988, Björn Victor, Department of Computer Systems, Uppsala University

;;; A logical host for the Domain Name System tree.

(net:set-logical-pathname-host "DNS"
  :physical-host (send (send (net:get-pathname-host "ICU") :host) :fully-qualified-name)
  :translations '(("DNS" "ICU.Network.DNS;")
		  ("CONFIG" "ICU.Network.DNS.Config;")
		  ("PATCHES" "ICU.Network.DNS.Patches;")
		  ("RFC" "ICU.Network.DNS.RFC;")
		  )
  :local-only nil
  :namespace (send (net:get-pathname-host "ICU") :domain)
  )