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

(unless (si:parse-host "DNS" t)
  (net:make-logical-pathname-host "DNS"))

(sys:set-system-source-file :dns "DNS: DNS; DEFSYSTEM.LISP")