anchor.diff:  (defun server-setup (dir)
     (let ((server (make-server dir)))
       (read-configuration-files server)
  +    (open-logs server)
       server))
   
   (defun read-configuration-files (server)
  
positive.code:    (protections    :initarg :protections :initform () :accessor protections)
     (redirects      :initarg :redirects :initform () :accessor redirects)
     (urls           :initarg :urls :initform () :accessor urls)
     (accept-log     :initarg :accept-log :initform "accept.log" :accessor accept-log)
     (message-log    :initarg :message-log :initform "messages.log" :accessor message-log)
     (ports          :initarg :ports :initform () :accessor ports)
     (acceptors      :initarg :acceptors :initform () :accessor acceptors)))
  
  
negative.code: (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)
  