anchor.diff:               (setf value (parse-integer value :junk-allowed T))
                (assert (not (null value)) () "Probation has to be an integer.")))
             (setf (slot-value rule (find-symbol (format NIL "%~a" field)))
  -                value))
  +                value)
  +          (respond event "Rule ~a edited." name))
           (respond event "A rule with that name does not exist!"))))
   
   (define-command (rules activate) (name &optional channel server) (:authorization T :documentation "Activate a rule for a channel.")
  
positive.code: (in-package :org.tymoonnext.colleen.mod.rules)
  
  (define-module rules () 
    ((%rules :initform (make-hash-table :test 'equalp) :accessor rules))
    (:documentation "Primitive rule enforcement module."))
  
  (defparameter *types* '(:KICK :BAN :KILL :MUTE :SCOLD :REWARD))
  
negative.code:                 (delete (format NIL "~a/~a" server channel) (active-on rule) :test #'string-equal))
            (respond event "Rule ~a has been deactivated for ~a/~a" name server channel))
          (respond event "A rule with that name does not exist!"))))
  
  (define-command (rules whitelisted) () (:documentation "Show a list of all whitelisted users.")
    (respond event "Whitelist: ~{~a~^, ~}" (whitelist module)))
  
  (define-command (rules whitelist) (&optional nick server) (:authorization T :documentation "Add a user to the whitelist.")
    (unless nick (setf nick (nick event)))
    (unless server (setf server (name (server event))))
    (pushnew (format NIL "~a/~a" (string-upcase server) (string-upcase nick))
             (whitelist module) :test #'string-equal)
    (respond event "User ~a whitelisted!" nick))
  
  (define-command (rules blacklist) (&optional nick server) (:authorization T :documentation "Remove a user from the whitelist.")
    (unless nick (setf nick (nick event)))
    (unless server (setf server (name (server event))))
    (setf (whitelist module)
          (delete (format NIL "~a/~a" (string-upcase server) (string-upcase nick))
                  (whitelist module) :test #'string-equal))
    (respond event "User ~a removed from the whitelist!" nick))
  