anchor.diff:        ;; Other
         (t (init-instance 'irc-message)))))
   
  -(defun parse-message (line)
  +(defun parse-message (line &optional server)
     "Create IRC message from received line."
     (handler-case
         (let ((prefix "")
  
positive.code:   (with-accessors ((args args)
                     (channel channel)) msg
      (setf channel (pop args))))
  
  (defclass join-message (channel-message)
    ((channel
  
negative.code: ;; IRC message classes
  
  (defclass irc-message ()
    ((server
      :initarg :server
      :accessor server
      :documentation "IRC server.")
     (prefix
      :initarg :prefix
      :accessor prefix
      :documentation "IRC message prefix (first word).")
  