anchor.diff:    ((owner      :initarg  :owner
                  :initform (error "A query needs a :owner")
                  :reader   owner
  -               :type     user
  +               :type     botil-user
                  :documentation "Who made the request and will receive the results.")
      (sender     :initarg  :sender
                  :initform nil
  
positive.code:                               (command-processor sender message))
          *botil*             (make-worker-thread botil (command)
                                (format *trace-output* "~&BOTIL <- ~A~%" command)
                                (botil command))))
  
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
negative.code: (defun answer (recipient format-control &rest format-arguments)
    (let ((text (apply (function format) nil format-control format-arguments)))
      (say text)
      (apply (function send-irc) *sender* recipient format-control format-arguments)))
  
  (defun query-processor (sender query)
    (declare (ignore sender query))
  