anchor.diff:  log5-test> 
   
   ;; 0.86
  +#+(or)
   (progn 
     (when (probe-file "/tmp/bar.log")
       (delete-file "/tmp/bar.log"))
  -  (lift::measure 
  -   (lambda ()
  -     (with-open-file (s "/tmp/bar.log" :if-exists :supersede
  -			:if-does-not-exist :create :direction :output)
  -       (loop repeat 10000 do
  -	    (let ((file-length (ignore-errors (file-length s))))
  -	      (when file-length (file-position s (file-length s)))
  -	      (fresh-line s)
  -	      (princ (get-universal-time) s)
  -	      (princ #\Space s)
  -	      (princ "a message" s)
  -	      (terpri s)
  -	      (force-output s)))))))
  +  (let (s b)
  +    (lift::measure s b
  +      (with-open-file (s "/tmp/bar.log" :if-exists :supersede
  +			 :if-does-not-exist :create :direction :output)
  +	(loop repeat 10000 do
  +	     (let ((file-length (ignore-errors (file-length s))))
  +	       (when file-length (file-position s (file-length s)))
  +	       (fresh-line s)
  +	       (princ (get-universal-time) s)
  +	       (princ #\Space s)
  +	       (princ "a message" s)
  +	       (terpri s)
  +	       (force-output s)))))
  +    (values s b)))
   
   ;; 0.39
  +#+(or)
   (progn 
     (when (probe-file "/tmp/bar.log")
       (delete-file "/tmp/bar.log"))
  
positive.code:   (+ 1 loggers))
  
  (defun measure-log5-speed (loggers count)
    (let ((x 0))
      (lift::measure 
       (lambda ()
         (loop repeat count do
  	    (setf x (log5-speed-test loggers)))
         x))))
  
  (defvar *handy-special-variable* nil)
  
  
negative.code:      for i from 1 do
         (start-sender (intern (format nil "TEST-LOG-~d" i))
  		     (log5:stream-sender :location "/tmp/foo.log")
  		     :output-spec '(time message)
  		     :category-spec '(and info log5-speed-test)))
    (loop repeat senders-that-ignore 
       for i from 1 do
         (start-sender (intern (format nil "TEST-IGNORE-~d" i))
  		     (log5:stream-sender :location "/tmp/foo.log")
  		     :output-spec '(time message)
  		     :category-spec '(and dribble log5-speed-test)))
    (setf *handy-special-variable* 
  	(list senders-that-log senders-that-ignore))
    (benchmark-with-loggers count logger-counts))
  