anchor.diff:    (let ((sender (irc:source msg))
           (channel (car (irc:arguments msg)))
           (message (second (irc:arguments msg))))
  -    (process-message (mode bot) bot sender channel message)))
  +    (process-message bot sender channel message)))
   
  -(defreply process-message ((mode :normal) (bot (proto 'sykobot))
  +(defreply process-message ((bot (proto 'sykobot))
                              sender channel message)
  -  (declare (ignore mode))
     (call-listeners bot sender channel message))
   
  -(defreply process-message ((mode :silent) (bot (proto 'sykobot))
  -                           sender channel message)
  -  (declare (ignore mode))
  -  (when (sent-to-me-p bot channel message)
  -    (let ((command (car (split "\\s+" (scan-string-for-direct-message bot channel message) :limit 2))))
  -      (when (string-equal command "talk")
  -        (send-reply bot sender channel "bla bla bla bla. There, happy?")
  -        (un-shut-up bot)))))
  -
   (defreply shut-up ((bot (proto 'sykobot)))
  -  (setf (mode bot) :silent))
  +  (setf (silentp bot) t))
   
   (defreply un-shut-up ((bot (proto 'sykobot)))
  -  (setf (mode bot) :normal))
  +  (setf (silentp bot) nil))
   
   (defreply respond-to-message ((bot (proto 'sykobot)) sender channel message)
     (let* ((string (scan-string-for-direct-message bot channel message))
  
positive.code:   (irc:notice (connection bot) target message))
  
  (defreply send-msg ((bot (proto 'sykobot)) channel message)
    (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)))
  
negative.code: ;;; Message processing
  ;;;
  (defmessage msg-hook (bot msg))
  (defmessage process-message (bot sender channel message))
  (defmessage shut-up (bot))
  (defmessage un-shut-up (bot))
  (defmessage respond-to-message (bot sender channel message))
  