anchor.diff:      (target mode &optional parameter)
       (:documentation "Mode change event."))
   
  -(define-event topic-event :TOPIC (channel-event)
  +(define-event topic-set-event :TOPIC (channel-event)
       (channel topic)
       (:documentation "Topic set event."))
   
  
positive.code:     (NIL message)
      (:documentation "Notice message."))
  
  ;;;;;;;;;;;;;;;; REPLIES ;;;;;;;;;;;;;;;;;;;;;;;
  
  (defun print-generated-event-definition (name origin format comment)
    (setf name (string-trim '(#\Newline #\Linefeed #\Space) name))
  
negative.code: |#
  
  (in-package :org.tymoonnext.colleen.events)
  
  ;;;;;;;;;;;;;;;; COMMANDS ;;;;;;;;;;;;;;;;
  
  (define-event ping-event :PING (event) 
      (server1 &optional server2)
      (:documentation "Event on a PING request."))
  