anchor.diff:                     (args args)
                      (message message)) msg
       (setf message (car args))))
  +
  +(defclass notice-message (privmsg-message) ())
   
   (defclass part-message (privmsg-message)
     ((channel
  
positive.code:        (init-instance 'action-message))
        ;; PRIVMSG
        ((string= command "PRIVMSG") (init-instance 'privmsg-message))
        ;; JOIN
        ((string= command "JOIN") (init-instance 'join-message))
        ;; PART
  
negative.code: (defmethod print-object ((msg privmsg-message) stream)
    "Print PRIVMSG object."
    (print-unreadable-object (msg stream :type t :identity t)
      (format stream "~a: NICK: '~a' HOST: '~a' CHANNEL: '~a' MSG: '~a'"
              (date-fmt msg)
              (nick msg)
              (host msg)
              (channel msg)
              (message msg))))
  
  