anchor.diff:  
   (defreply disconnect ((bot (proto 'sykobot)) &optional message)
     (bt:destroy-thread (msg-loop-thread bot))
  -  (setf *active-bots* (delete bot *active-bots*))
  +  (setf *active-bot* nil)
     (irc:quit (connection bot) (or message (values))))
   
   (defreply join ((bot (proto 'sykobot)) channel)
  
positive.code: ;;; Message processing
  ;;;
  (defmessage msg-hook (bot msg))
  (defmessage process-message (mode bot sender channel message))
  (defmessage shut-up (bot))
  (defmessage un-shut-up (bot))
  (defmessage respond-to-message (bot sender channel message))
  
negative.code:   (irc:notice (connection bot) target message))
  
  (defreply send-msg ((bot (proto 'sykobot)) channel message)
    (unless (silentp bot)
     (irc:privmsg (connection bot) channel (or message ""))))
  
  (defreply send-reply ((bot (proto 'sykobot)) target channel message)
    (send-msg bot channel (format nil "~A: ~A" target message)))
  