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:                               (let ((message (format nil "~?" message arguments)))
                                  
                                  (format *trace-output* "~&~A <- ~A~%" recipient message)
                                  (sender recipient message)))
          *query-processor*   (make-worker-thread query-processor (sender message)
                                (format *trace-output* "~&~A -> ~A~%" sender message)
                                (query-processor sender message))
  
negative.code: 
  
  (defmethod write-message ((channel channel) (message message))
    (ensure-log-stream channel (received-time message))
    (prin1 (list :source (source message)
                 :user (user message)
                 :host (host message)
  