anchor.diff:  ;;; Removes the direct message indicator from a message,
   ;;;   and then splits it into a command and arguments.
   ;;; CALLED BY: command-listener
  -;;; CALLS: scan-string-for-direct-message, process-command-string
  +;;; CALLS: process-command-string
   ;;;  - Adlai
   (defreply respond-to-message ((bot (proto 'sykobot)) sender channel message)
  -  (let* ((string (scan-for-direct-message bot message))
  -         (results (process-command-string bot string sender channel)))
  +  (let* ((results (process-command-string bot message sender channel)))
       (loop for result in results
          do (send-reply bot sender channel (format nil "~A" result)))))
   
  
positive.code: 
  ;;; When a message is applicable for the bot, responds to it.
  ;;; CALLED BY: call-listeners
  ;;; CALLS: scan-string-for-direct-message, respond-to-message
  ;;;  - Adlai
  (deflistener command-listener
    (when (scan-for-direct-message *bot* *message*)
      (respond-to-message *bot* *sender* *channel* *message*)))
  
  (defmessage respond-to-message (bot sender channel message))
  (defmessage get-responses (bot cmd args sender channel))
  
negative.code:         (create-scanner (format nil "^~A[:,] " (nickname bot))
                          :case-insensitive-mode T)))
  
  (defreply init-bot :after ((bot (proto 'sykobot-commands)))
    (update-detection-regex bot))
  
  (defreply nick :after ((bot (proto 'sykobot-commands)) new-nick)
  