anchor.diff:      (channel message)
       (:documentation "Privmsg event."))
   
  -(defmethod initialize-instance :after ((event privmsg-event) &rest rest)
  -  (declare (ignore rest))
  +(defmethod initialize-instance :after ((event privmsg-event) &rest params)
  +  (declare (ignore params))
     (with-slots ((channel %channel) (message %message)) event
       (setf channel (first (arguments event))
             message (second (arguments event)))
  
positive.code:                 ($ a "td" (eq 4) (message) (node))) T)))
    NIL)
  
  
  
  
  
  
  
  (define-event welcome-event :RPL_WELCOME (event)
      (message)
      (:documentation "The first message sent after client registration. The text used varies widely"))
  
negative.code:     (:documentation "Reply to WHOIS command - A list of languages someone can speak. The language codes are comma delimitered."))
  
  (define-event modlist-event :RPL_MODLIST (event)
      (&rest params)
      (:documentation "Output from the MODLIST command"))
  
  (define-event modlist-end-event :RPL_ENDOFMODLIST (event)
  