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:     (funcall fn bot args sender channel)))
  
  ;;; (defparameter *cmd-prefix* "@")
  
  ;;; Checks if the message is directed at the bot
  ;;; If so, strips out the header; if not, returns NIL.
  ;;; CALLED BY: command-listener, respond-to-message
  ;;; Uses (detection-regex bot) to scan out the command.
  ;;; Currently only works for channel messages, no command prefix.
  ;;;  - Adlai
  (defmessage scan-for-direct-message (bot message))
  (defreply scan-for-direct-message ((bot (proto 'sykobot)) message)
    (subseq message
            (nth-value 1 (scan (detection-regex bot) message))))
  
  ;;; Puts message responses on the response stack
  (defun cmd-msg (message &rest format-args)
  
negative.code: 
  ;;; When a message is applicable for the bot, responds to it.
  ;;; CALLED BY: call-listeners
  ;;; CALLS: respond-to-message
  ;;;  - Adlai
  (deflistener command-listener
    (let ((index (nth-value 1 (scan (detection-regex *bot*) *message*))))
      (when index
        (respond-to-message *bot* *sender* *channel*
                            (subseq *message* index)))))
  
  (defmessage respond-to-message (bot sender channel message))
  (defmessage get-responses (bot cmd args sender channel))
  