anchor.diff:  (defun reread-config (&optional (server *whistle-server*))
     (read-configuration-files server))
   
  -
   (defclass server ()
     ((root-directory :initarg :root-directory :accessor root-directory)
      (passwords      :initarg :passwords :initform () :accessor passwords)
  
positive.code:     (load-protections "protections.sexp" server)
      (load-urls "urls.sexp" server)))
  
  (defun start-acceptors (server)
    (loop for (protocol port) in (ports server) do
         (push (make-instance 'toot::acceptor :port port :handler server) (acceptors server)))
    (loop for acceptor in (acceptors server) do (start-acceptor acceptor)))
  
  (defun load-ports (file server)
    (setf (ports server) (file->list (config-file server file))))
  
negative.code: (defun config-file (server file)
    (merge-pathnames file (server-dir server "config/")))
  
  (defun log-file (server file)
    (merge-pathnames file (server-dir server (log-directory server))))
  
  
  (defun make-server (dir)
    (let ((actual-dir (file-exists-p (pathname-as-directory dir))))
      (cond
  