anchor.diff:    channel)
   
   
  -(defclass user ()
  +(defclass botil-user ()
     ((server   :initarg  :server
                :initform (error "A channel needs a :server")
                :reader   server
  
positive.code:                                                   :arguments arguments))
        (say arguments)
        (if (string= *nickname* recipient)
            (send *command-processor* sender (second arguments))
            (send *logger* message))))
    t)
  
  
  
negative.code:   ((owner      :initarg  :owner
                 :initform (error "A query needs a :owner")
                 :reader   owner
                 :type     botil-user
                 :documentation "Who made the request and will receive the results.")
     (sender     :initarg  :sender
                 :initform nil
  