anchor.diff:      (:documentation "Generic response for new lists to save numerics."))
   
   (define-event whowas-details-event :RPL_WHOWASDETAILS (event)
  -    (nick who-type information)
  +    (nick who-type message)
       (:documentation "Returned by WHOWAS to return extended information (if available). The type field is a number indication what kind of information."))
   
   (define-event whois-secure-event :RPL_WHOISSECURE (event)
  
positive.code:     (&rest params)
      (:documentation "Also known as RPL_CURRENT_LOCAL"))
  
  (define-event global-users-event :RPL_GLOBALUSERRS (event)
      (&rest params)
      (:documentation "Also known as RPL_CURRENT_GLOBAL"))
  
  
negative.code:     (unless (char= (aref channel 0) #\#)
        (setf channel (nick event)))))
  
  (define-event join-event :JOIN (channel-event)
      ()
      (:documentation "User join event."))
  
  (define-event part-event :PART (channel-event)
      ()
      (:documentation "User part event."))
  
  (define-event quit-event :QUIT (user-event)
  