anchor.diff:      (setf (alref channel active-listeners)
             (delete name (alref channel active-listeners)))))
   
  -(defreply call-active-listeners ((bot (proto 'listener-bot)) channel sender message)
  +(defreply call-active-listeners ((bot (proto 'listener-bot)) channel)
     (let ((deafp (alref channel (deafp bot))))
       (if deafp
  -        (call-listener bot deafp sender channel message)
  +        (call-listener bot deafp)
           (dolist (name (alref channel (active-listeners bot)))
  -          (call-listener bot name sender channel message)))))
  +          (call-listener bot name)))))
   
   (defreply listener-active-p ((bot (proto 'listener-bot)) channel name)
     (member name (alref channel (active-listeners bot))))
  
positive.code: 		   (if (equal target (nickname *bot*))
  		       (irc:source msg)
  		       target)))
          (*message* (cadr (irc:arguments msg))))
      (handler-case
          (call-active-listeners *bot* *channel* *sender*
                                 (escape-format-string *message*))
        (error (e) (send-msg *bot* *channel*
                             (build-string "ERROR: ~A" e))))))
  
  (defmessage add-listener (bot name function))
  (defmessage remove-listener (bot name))
  (defmessage listener-function (bot name))
  (defmessage call-listener (bot name sender channel message))
  
  (defreply set-listener ((bot (proto 'listener-bot)) (name (proto 'symbol)) function)
    (setf (gethash name (listeners bot)) function))
  
negative.code:                (declare (ignore bot sender channel message))
                 (cerror "Continue" "Nonexistant listener ~S" name)))))
  
  (defreply call-listener ((bot (proto 'listener-bot)) (name (proto 'symbol)))
    (funcall (listener-function bot name)))
  
  (defmacro deflistener (name &body body)
    `(set-listener (proto 'listener-bot) ',name
                   (lambda () ,@body)))
  
  ;;; Customization of listeners
  (defmessage listener-on (bot channel name))
  (defmessage listener-off (bot channel name))
  (defmessage call-active-listeners (bot channel))
  (defmessage listener-active-p (bot channel name))
  
  (defreply listener-on ((bot (proto 'listener-bot)) channel name)
  