anchor.diff:               (declare (ignore channel args))
                (send-notice bot sender
                             (format nil "I don't know how to ~A." command))
  -	     (values))))
  +             (values))))
   
   (defreply erase-all-commands ((bot (proto 'sykobot-commands)))
     (clrhash (commands bot)))
  
positive.code: ;;; 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))
           (results (process-command-string bot string sender channel)))
      (loop for result in results
         do (send-reply bot sender channel (format nil "~A" result)))))
  
negative.code:   ((commands (make-hash-table :test #'equal))
     (detection-regex nil)))
  
  ;;; Detection regex handling
  (defmessage update-detection-regex (bot))
  (defreply update-detection-regex ((bot (proto 'sykobot-commands)))
    (setf (detection-regex bot)
          (create-scanner (format nil "^~A[:,] " (nickname bot))
                          :case-insensitive-mode T)))
  
  (defreply init-sheep :after ((bot (proto 'sykobot-commands)) &key)
    (update-detection-regex bot))
  
  (defreply nick :after ((bot (proto 'sykobot-commands)) new-nick)
    (declare (ignore new-nick))
    (update-detection-regex bot))
  
  ;;; Command handling stuff
  (defmessage add-command (bot command function))
  (defmessage remove-command (bot command))
  (defmessage command-function (bot command))
  