anchor.diff:  ;;; CALLS: scan-string-for-direct-message, process-command-string
   ;;;  - Adlai
   (defreply respond-to-message ((bot (proto 'sykobot)) sender channel message)
  -  (let* ((string (scan-for-direct-message bot channel message))
  +  (let* ((string (scan-for-direct-message bot message))
            (results (process-command-string bot string sender channel)))
       (loop for result in results
          do (send-reply bot sender channel (format nil "~A" result)))))
  
positive.code: ;;; CALLS: scan-string-for-direct-message, respond-to-message
  ;;;  - Adlai
  (deflistener command-listener
    (when (scan-for-direct-message *bot* *channel* *message*)
      (respond-to-message *bot* *sender* *channel* *message*)))
  
  (defmessage respond-to-message (bot sender channel message))
  
negative.code:              (declare (ignore channel args))
               (send-notice bot sender
                            (format nil "I don't know how to ~A." command))
               (values))))
  
  (defreply erase-all-commands ((bot (proto 'sykobot-commands)))
    (clrhash (commands bot)))
  