anchor.diff:  (defparameter *default-count* (* 1024 16))
   (defparameter *default-size* 128)
   
  -(defun open-log (&key path count size)
  +(defun open-log (&key path count size tag)
     (unless count (setf count *default-count*))
     (unless size (setf size *default-size*))
     (let ((map (open-mapping (or path *default-log-file*)
   			   :size (* count size))))
       (handler-case 
   	(let ((log (make-log-stream (make-mapping-stream map)
  -				    :size size)))
  +				    :size size
  +				    :tag tag)))
   	  log)
         (error (e)
   	(close-mapping map)
  
positive.code: 	      (2 :warning)
  	      (4 :error))
         :time time
         :msg (flexi-streams:octets-to-string octets)))))
  
  (defun write-log-message (stream message)
  
negative.code:       (decode-universal-time (log-message-time msg))
      (declare (ignore i1 i2 i3))
      (format stream
  	    "~D-~D-~D ~2,'0D:~2,'0D:~2,'0D ~A ~A ~A"
  	    year month day hour min seconds
  	    (log-message-tag msg)
  	    (log-message-lvl msg)
  	    (log-message-msg msg))))
  
  