anchor.diff:          (create-scanner (format nil "^~A[:,] " (nickname bot))
                           :case-insensitive-mode T)))
   
  -(defreply init-sheep :after ((bot (proto 'sykobot-commands)) &key)
  +(defreply init-bot :after ((bot (proto 'sykobot-commands)))
     (update-detection-regex bot))
   
   (defreply nick :after ((bot (proto 'sykobot-commands)) new-nick)
  
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: ;;; Removes the direct message indicator from a message,
  ;;;   and then splits it into a command and arguments.
  ;;; CALLED BY: command-listener
  ;;; CALLS: process-command-string
  ;;;  - Adlai
  (defreply respond-to-message ((bot (proto 'sykobot)) sender channel message)
    (let* ((results (process-command-string bot message sender channel)))
      (loop for result in results
         do (send-reply bot sender channel (format nil "~A" result)))))
  
  