anchor.diff:      (channel)
       (:documentation "Events for channel commands."))
   
  -(defclass command-event (channel-event)
  -    ((%command :initarg :command :accessor command)
  -     (%cmd-args :initarg :cmd-args :accessor cmd-args))
  -    (:documentation "Event for commands."))
  -
   (defgeneric respond (event message &rest format-args)
     (:documentation "Respond to an event origin with the given message."))
   
  
positive.code:     (unless (char= (aref channel 0) #\#)
        (setf channel (nick event)))))
  
  (define-event join-event :JOIN (channel-event) ()
      (:documentation "User join event."))
  
  
negative.code: 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  ;;; NON REPLY
  (define-event ping-event :PING (event) 
      (server1 &optional server2)
      (:documentation "Event on a PING request."))
  