anchor.diff:                     (message message)) msg
       (setf message (car args))))
   
  +(defmethod save-p ((msg quit-message) channels) t)
  +
   (defclass channel-message (irc-message)
     ((channel
       :initarg :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:       ;; Other
        (t (init-instance 'irc-message)))))
  
  (defun parse-message (line &optional server)
    "Create IRC message from received line."
    (handler-case
        (let ((prefix "")
  