anchor.diff:  
   ;; Parsing and message creating functions
   
  -(defun make-message (prefix command args raw)
  +(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
  
positive.code:   (with-accessors ((args args)
                     (channel channel)) msg
      (setf channel (pop args))))
  
  (defclass join-message (channel-message)
    ((channel
  
negative.code:                    (message message)) msg
      (setf message (car args))))
  
  (defmethod save-p ((msg quit-message) channels) t)
  
  (defclass channel-message (irc-message)
    ((channel
      :initarg :channel
  