anchor.diff:  (defun botil (command server)
     (ecase command
       ((reconnect)
  -     (dolist (channel (logged-channels))
  +     (dolist (channel (logged-channels server))
          (start-logging-channel channel)))
       ((quit)
        (exit))))
  
positive.code: 
  
  (defun create-server (hostname &optional (nick "botil") (password nil))
      (check-type hostname string)
    (ensure-directories-exist
     (merge-pathnames (make-pathname :directory (list :relative
                                                      "servers" hostname
                                                      "channels")
                                     :name "dummy" :type "dummy" :version nil
                                     :defaults *database*)
                      *database*))
    (let ((server (make-instance 'server
                                 :hostname hostname
                                 :botnick nick
  
negative.code:                              :botpass  (getf data :botpass))))
            (directory (server-pathname :wild))))
  
  
                        
  (defun load-channels-of-server (server)
    (dolist (pathname (directory (channel-pathname :wild server)))
      (make-instance 'channel
                     :server server
                     :name (first (last (pathname-directory pathname))))))
  