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: 	    (terpri s)
  	    (force-output s))))))
  
  (lift::measure 
   (lambda ()
    (loop repeat 1000000 do
  
negative.code: 
  #|
  #+(or)
  (benchmark-log5 '((0 0 0 1000)
  		  (0 0 10 1000)
  		  (0 0 20 1000)
  		  (10 0 0 1000)
  		  (10 0 10 1000)
  		  (10 0 20 1000)
  		  (0 10 0 1000)
  		  (0 10 10 1000)
  		  (0 10 20 1000)))
  
  (defun rpt (data)
    (format t "~&Active ~vTIgnoring ~vTLoggers ~vTLoops ~vT Seconds ~vTConses ~vTSeconds"
  