anchor.diff:      :accessor date
       :documentation "Message date in lisp universal date format")))
   
  +;; Pretty date formatting
   (defgeneric date-fmt (irc-message)
     (:documentation  "Format message date in UTC."))
   
  
positive.code: (in-package #:zoglog)
  
  ;; Helper functions
  
  (defmacro send-cmd (socket tpl &rest args)
    "Send IRC command through SOCKET."
    `(progn
  
negative.code:             (command msg)
              (args msg))))
  
  (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)
  