anchor.diff:  	  ,message
   	  ,@args))))
   
  +(defmacro when-logging (category-spec &body body)
  +  (if (member :no-logging *features*)
  +      `(values)
  +      `(let ((category (load-time-value 
  +			(update-category-spec nil ',category-spec)
  +			t)))
  +	 (when (active-category-p (category-id category))
  +	   ,@body))))
  +
   ;;?? if I'm right, it would be faster to call the log-test first and
   ;; then the predicate only if we're logging...
   (defmacro log-if (predicate category-spec message &rest args)
  
positive.code:     ',sender-type 
      ,@args))
      
  (defun start-sender-fn (name category-spec output-spec 
  			sender-type &rest args)
    ;; stop any current one with the same name... warn?
  
negative.code: 
  ;;;;; messages 
  
  #+(or)
  (defmacro with-logging (category-spec &body body)
    (cond ((member :no-logging *features*)
  	 `(values))
  	((and (log5-compile-time-category-spec (log-manager))
  	      ))))
  
  (defmacro log-for (category-spec message &rest args)
    (if (member :no-logging *features*)
        `(values)
  