anchor.diff:              (command msg)
               (args msg))))
   
  -(defmethod print-object ((msg privmesg-message) stream)
  -  "Print PRIVMESG object."
  +(defmethod print-object ((msg privmsg-message) stream)
  +  "Print PRIVMSG object."
     (print-unreadable-object (msg stream :type t :identity t)
       (format stream "~a: PREFIX: '~a' CHANNEL: '~a' MSG: '~a'"
               (date-fmt msg)
  
positive.code:             (channel msg)
              (message msg))))
  
  ;; Parsing and message creating functions 
  
  (defun make-message (prefix command args raw)
    "Create generic irc message object or it's subclass."
  
negative.code: (in-package #:zoglog)
  
  ;; Helper functions
  (defmacro send-cmd (socket tpl &rest args)
    "Send IRC command through SOCKET."
    `(progn
  