anchor.diff:  (defvar *sender*)
   (defvar *logger*)
   
  -(defun send (recipient text)
  +(defun send-irc (recipient text)
     (privmsg *connection* recipient text))
   
   (defun say (&rest args)
  
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 request-request needs a :owner")
                 :reader   owner
                 :type     botil-user)
     (start-date :initarg  :start-date
                 :initform (get-universal-time)
                 :reader   start-date
  