anchor.diff:    (with-accessors ((args args)
                      (channel channel)) msg
       (setf channel (pop args))))
  +
  +(defmethod save-p ((msg channel-message) channels)
  +  (when (find (string-left-trim "#" (channel msg)) channels :test #'equal)
  +    t))
   
   (defclass join-message (channel-message)
     ((channel
  
positive.code:               (nconc args (cdr splitted)))
              (setf args (split-sequence #\space s)))
          (setf command (pop args))
          (make-message prefix command args line))
      (error (c) (error 'message-parse-error :text c :raw line))))
  
  ;; Server logging
  
negative.code: 
  ;; Parsing and message creating functions
  
  (defun make-message (prefix command args raw &optional server)
    "Create generic irc message object or it's subclass."
    (flet ((init-instance (type)
             (make-instance type
                            :server server
                            :prefix prefix
                            :command command
                            :args args
  