anchor.diff:                  ($ a "td" (eq 4) (message) (node))) T)))
     NIL)
   
  -
  -
  -
  -
  -
  -
  +;; Events are generated by the above functions using https://www.alien.net.au/irc/irc2numerics.html as a template.
  +;; All events need to be manually checked and adapted for names and proper arguments lists though.
  +;;
   (define-event welcome-event :RPL_WELCOME (event)
       (message)
       (:documentation "The first message sent after client registration. The text used varies widely"))
  
positive.code:     (channel message)
      (:documentation "Privmsg event."))
  
  (defmethod initialize-instance :after ((event privmsg-event) &rest rest)
    (declare (ignore rest))
    (with-slots ((channel %channel) (message %message)) event
      (setf channel (first (arguments event))
            message (second (arguments event)))
  
negative.code:     (:documentation "Start of an RPL_TRACEROUTE_HOP list"))
  
  (define-event mode-change-warn-event :RPL_MODECHANGEWARN (event)
      (mode message)
      (:documentation "Plain text warning to the user about turning on or off a user mode. If no '+' or '-' prefix is used for the mode char, '+' is presumed."))
  
  (define-event chanredir-event :RPL_CHANREDIR (event)
  