anchor.diff:  
   
   (defmethod write-message ((channel channel) (message message))
  -  (ensure-log-stream (received-time message))
  +  (ensure-log-stream channel (received-time message))
     (prin1 (list :source (source message)
                  :user (user message)
                  :host (host message)
  
positive.code:   )
  
  (defun join-channel (channel)
    (join *connection* channel))
  
  (defun logged-channels () ;; TIME!
    )
  
  (defun start-logging-channel (channel)
  
negative.code:                                 :raw-message-string (raw-message-string ircmsg))))
  
  ;; (setf (log-month  (first (channels (first *servers*)))) 201601)
  ;; (log-file-pathname (first (channels (first *servers*))))
  
  (defun initialize-database (dbdir-pathname)
    "This initialize the empty directory at pathname DBDIR-PATHNAME as a
  