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: (defun config-file (server file)
    (merge-pathnames file (server-dir server "config/")))
  
  (defun make-server (dir)
    (let ((actual-dir (file-exists-p (pathname-as-directory dir))))
      (cond
  
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)
  