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:    (protections    :initarg :protections :initform () :accessor protections)
     (redirects      :initarg :redirects :initform () :accessor redirects)
     (urls           :initarg :urls :initform () :accessor urls)
     (log-directory  :initarg :log-directory :initform "logs/" :accessor log-directory)
     (access-log     :initarg :access-log :accessor access-log)
     (message-log    :initarg :message-log :accessor message-log)
     (ports          :initarg :ports :initform () :accessor ports)
     (acceptors      :initarg :acceptors :initform () :accessor acceptors)))
  
  