anchor.diff:        `(values)
         `(let ((category (load-time-value 
   			(update-category-spec nil ',category-spec)
  -			:read-only-p t)))
  +			t)))
   	 (handle-message
   	  (category-id category)
   	  ,message
  
positive.code: (defun start-sender-fn (name category-spec output-spec 
  			sender-type &rest args)
    ;; stop any current one with the same name... warn?
    (stop-sending name :warn-if-not-found-p nil)
    (let ((sender (apply #'make-instance 
  		 sender-type 
  		 :name name
  
negative.code: 
  (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)
  