anchor.diff:                     (message message)) msg
       (setf message (car args))))
   
  +(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))))
  +
  +;; NOTICE message
  +
   (defclass notice-message (privmsg-message) ())
  +
  +;; PART message
   
   (defclass part-message (privmsg-message)
     ((channel
  
positive.code: 		  :text (format nil "~{~a~^ ~}" args)))))
    (call-next-method))
  
  ;; Maybe made subclass with "message" contents?
  (defclass quit-message (irc-message)
    ((message
  
negative.code:   (format t "Saving ~a~%" msg))
  
  ;; Numeric response
  
  (defclass numeric-message (irc-message)
    ((code
      :initarg :code
  