anchor.diff:                               :botpass  (getf data :botpass))))
             (directory (server-pathname :wild))))
   
  +
  +                      
   (defun load-channels-of-server (server)
  -  (dolist (pathname
  -           (directory (merge-pathnames (make-pathname :directory (list :relative
  -                                                                       "servers" (hostname server)
  -                                                                       "channels" :wild)
  -                                                      :name nil :type nil :version nil
  -                                                      :defaults *database*)
  -                                       *database*)))
  +  (dolist (pathname (directory (channel-pathname :wild server)))
       (make-instance 'channel
                      :server server
                      :name (first (last (pathname-directory pathname))))))
  
positive.code:         *command-processor* (make-worker-thread command-processor (sender message)
                                (format *trace-output* "~&~A -> ~A~%" sender message)
                                (command-processor sender message))
          *botil*             (make-worker-thread botil (command)
                                (format *trace-output* "~&BOTIL <- ~A~%" command)
                                (botil command)))
    (load-server-database)
    (mapcar (lambda (server)
              (hostname server)
  
negative.code: (defun answer (recipient format-control &rest format-arguments)
    (let ((text (apply (function format) nil format-control format-arguments)))
      (say text)
      (apply (function send-irc) *sender* recipient text)))
  
  (defun query-processor (sender query)
    (declare (ignore sender query))
  