anchor.diff:  
   (in-package #:log5)
   
  +(defgeneric update-active-categories (sender maximum-id))
  +
  +(defgeneric create-handle-message-context (sender))
  +
  +(defgeneric start-handling (sender))
  +
  +(defgeneric finish-handling (sender))
  +
  +(defgeneric separate-properties (sender))
  +
  +(defgeneric close-sender (sender))
  +
  +(defgeneric handle-output (sender output))
  +
   (defparameter *default-logical-connective* 'or)
   
   (defvar *log-manager* nil)
  
positive.code: (defun stop-all-senders ()
    "Stops all logging."
    (loop for sender in (log5-senders (log-manager)) do
         (stop-sending (name sender))))
  
  (defun senders ()
    "Returns a list of the current senders."
  
negative.code: (defun start-sender-fn (name category-spec output-spec 
  			sender-type &rest args)
    ;; stop any current one with the same name... warn?
    (stop-sender-fn name :warn-if-not-found-p nil)
    (let ((sender (apply #'make-instance 
  		 sender-type 
  		 :name name
  